X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/cda2ba6d27526e5ef6f27f7b3391cfb55055bf2e..d693caac75dd25e668e43e85c29205bfc8dea06e:/src/mtasrx.mac diff --git a/src/mtasrx.mac b/src/mtasrx.mac index 87e7435..93f2e20 100644 --- a/src/mtasrx.mac +++ b/src/mtasrx.mac @@ -23,7 +23,7 @@ MTADSP: JRST MTAREL ;RELEASE JRST CPOPJ1 ;RENAME POPJ PDP, ;CLOSE INPUT POPJ PDP, ;UTPCLR - JRST MTAP0T + JRST MTAP0 MTC=340 MTS=344 @@ -34,7 +34,7 @@ MTS=344 ;MTBOTH=10*MTACHN+MTDCHN ;MTALOC=40 + 2*MTDCHN ;MTLOC1=MTALOC+1 - INTERN MTAINI,MTADDS,MTADDB + INTERN MTAINT,MTADDS,MTADDB EXTERN ADVBFE,ADVBFF,MTFLAG,MTBOTH,SETACT,CLRACT,WSYNC EXTERN STDENS,SETIOD,MTREQ,MTAVAL,CLOCK,MTALOC,MTLOC1,OUT EXTERN CPOPJ,CPOPJ1,PIOMOD,PUNIT,MTWAIT,JIFSC2,COMCHK @@ -57,7 +57,7 @@ MTADDB: SIXBIT /MTA0/ 0 XWD PROG,0 XWD PROG,0 - XP MTADDS,.-MTADB ;SIZE OF DDB (FOR BUILD) + XP MTADDS,.-MTADDB ;SIZE OF DDB (FOR BUILD) ;INITIALIZE MTAINI: SETOM NMTREW ;RESET FLAGS SETOM UNIT @@ -99,7 +99,7 @@ HUNGTP: TLZN IOS,MTREW ;TAPE REWINDING? JRST THRUTP ;NO. GIVE UP CONTROL SOS NMTREW ;YES. DECREASE COUNT OF TAPES IN REW AOS MTREQ ;THRUTP WILL SOS THIS BACK - JRST THRUPT ;TURN OFF TM10 + JRST THRUTP ;TURN OFF TM10 ;CONNECT CONTROL TO A TRANSPORT CONECT: MOVEI TAC,440102 ;SET UP INTERRUPT CONDITIONS HRRM TAC,MTAINT @@ -173,7 +173,7 @@ RDYCHK: CONSZ MTS,40 ;READY? POPJ PDP, ;NO. COME BACK LATER MTCLK2: SETOM NMTREW ;COUNT NO. OF TAPES REWINDING MOVEM DEVDAT,SAVDEV - MOVEI DEVDAT,MTADDR ;START AT MTA0 + MOVEI DEVDAT,MTADDB ;START AT MTA0 AOS MTREQ ;MAKE SURE NO OTHER MTA REQUESTS ARE HONORED NOW REWCHK: MOVE IOS,DEVIOS(DEVDAT) JUMPGE IOS,REWCK2 ;TAPE NOT REWINDING @@ -245,7 +245,7 @@ MTAREL: TLZ IOS,COMPAT ;NOT IBM COMPAT ;SKIP TO LOGICAL EOT LEOT: CONSZ MTS,100000 ;TAPE AT BOT? JRST LEOT2 ;YES, DONT BACKSPACE - PUSHJ PDP,MTAG0 ;BACKSPACE RECORD + PUSHJ PDP,MTAGO ;BACKSPACE RECORD PUSHJ PDP,EOTWT ;WAIT FOR IT LEOT2: MOVEI UUO,16 ;SKIP A FILE PUSHJ PDP,MTAP2 @@ -253,7 +253,7 @@ LEOT2: MOVEI UUO,16 ;SKIP A FILE PUSHJ PDP,MTAP PUSHJ PDP,EOTWT ;WAIT FOR IT MOVE IOS,DEVIOS(DEVDAT) - TRNN IOS,IODENT ;END OF FILE SEEN? + TRNN IOS,IODEND ;END OF FILE SEEN? JRST LEOT2 ;NO. SKIP TO NEXT FILE MOVEI UUO,7 ;YES. BACKSPACE RECORD @@ -286,7 +286,7 @@ MTOUT1: MOVEI TAC,@DEVOAD(DEVDAT) ;ADDRESS OF BUFFER MTOUT2: TRO TP,4000 ;FUNCTION = WRITE MOVSI TAC1,(BLKO MTC,) ;SETUP BLKO MTDTGO: MOVEM TAC,PNTR ;SAVE BLKI/BLKO POINTER - MOVEM TAC,SVNPTR + MOVEM TAC,SVPNTR HRRI TAC1,PNTR ;BLKI/BLKO PNTR MOVEM TAC1,MTALOC ;INTO INTERRUPT LOC HRLM TP,USEWRD ;SAVE COMMAND @@ -358,17 +358,17 @@ THRUT3: HLRZ TP,USEWRD ;GET UNIT MTDEND: 0 CONO MTS,1 ;GIVE A FUNCTION STOP JEN @MTDEND ;AND EXIT - DATENO: CONSZ MTS,20600 ;RECORD OK? + DATEND: CONSZ MTS,20600 ;RECORD OK? JRST RETRY ;PARITY, DATA LATE OR BAD TAPE DATND2: TLNE IOS,DMPMOD ;DUMP MODE? - JRST CMPEND ;YES + JRST DMPEND ;YES TLNN IOS,IO ;READING? JRST INPTND ;YES, FINISH INPUT -ADVOUT: PUHSJ PDP,ADVBFE ;WRITING, ADVANCE BUFFERS +ADVOUT: PUSHJ PDP,ADVBFE ;WRITING, ADVANCE BUFFERS ;END OF TAPE? JRST THRUTP ;YES, DONT WRITE ANY MORE NXTREC: TLZE IOS,IOW ;IN IO WAIT? - PUSHJ PDP,GETIOD ;RESTART JOB + PUSHJ PDP,SETIOD ;RESTART JOB SOSG QUANTM ;COUNT DOWN PROTECT TIME SKIPG MTREQ ;ANYONE ELSE WANT CONTROL? CONSZ MTS,4000 ;NO. KEEP GOING UNLESS EOT @@ -425,7 +425,7 @@ DMPBLK: PUSHJ PDP,NXTCOM ;GET NEXT COMMAND ADDI TAC,(PROG) ;ADD RELOCATION FACTOR TLNE IOS,IO ;WRITING? JRST MTOUT2 ;YES. GO WRITE RECORD - TRMN IOS,1 + TRNN IOS,1 TRO TP,10000 ;OR - READ ACROSS RECORD BOUNDARIES JRST MTIN2 ;GO READ RECORD(S) @@ -449,7 +449,7 @@ NXTCM3: HLRE TAC1,TAC ;YES. GET WORDCOUNT POPJ PDP, ;NO, GO WRITE ADD TAC,[XWD MTSIZ,MTSIZ] ;YES. MOVEM TAC,REMNDR ;IOWD TO USE FOR NEXT RECORD - SUBI TAC,MTSIZE ;ADDRESS FOR THIS IOWD + SUBI TAC,MTSIZ ;ADDRESS FOR THIS IOWD HRLI TAC,MMTSIZ ;WRITE -MTSIZE WORD RECORDS POPJ PDP, ;RETURN THE IOWD REMNDR: 0 @@ -476,7 +476,7 @@ DATEOF: TLO IOS,IOEND ;EOF - LIGHT BIT JRST THRUTP ;AND GIVE UP CONTROL ;TRY AGAIN ON PARITY ERROR OR BAD TAPE -RETRY: TRNN IOS,ONRCK ;WANT TO STOP ON ERROR? +RETRY: TRNN IOS,IONRCK ;WANT TO STOP ON ERROR? AOSL TAC,ERCNT ;OR TRIED ENOUGH? JRST PERMER ;YES. PERMANENT ERROR RETRY1: MOVEI TAC,2 ;SET RETRY SWITCH @@ -534,3 +534,4 @@ PNTR: 0 SVPNTR: 0 MTAEND: END +