X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/cda2ba6d27526e5ef6f27f7b3391cfb55055bf2e..0000ed8f3efcdbf411f6c91517909089e5d7ef5d:/src/mtcsr6.mac diff --git a/src/mtcsr6.mac b/src/mtcsr6.mac index 215a429..370a94e 100644 --- a/src/mtcsr6.mac +++ b/src/mtcsr6.mac @@ -58,10 +58,10 @@ MTCDSP: POPJ PDP, ;RELEASE POPJ PDP, ;UTPCLR ;MTAPE UUO (FALL INTO THIS CODE WHICH FOLLOWS) -DEFINE MTAPE (A) ;MARCO TO DEFINE LEGAL MTAPE UUO EFFECTIVE ADDRESSES. +DEFINE MTAPES (A) ;MARCO TO DEFINE LEGAL MTAPES UUO EFFECTIVE ADDRESSES. < CODES=0 IRP A, < - CODES=CODES!<1B<^D35-^0'A>>>> + CODES=CODES!<1B<^D35-^O'A>>>> MTAPES <0,1,11,7,17,3,6,13,16,10> ;DEFINE WHICH CODES ARE LEGAL @@ -78,7 +78,7 @@ DEFINE MTAPE (A) ;MARCO TO DEFINE LEGAL MTAPE UUO EFFECTIVE ADDRESSES. MTAPE: PUSHJ PDP,MTCHK2 ;CHECK IF MAG TAPE CONTROL AVAIL. MTAPE2: TDZ IOS,[XWD IODT!IOSEOF,IOACT] TRNN T,SLICE ;SET SLICE LEVEL THIS UUO? - JRST NOSFT ;NO + JRST NOSET ;NO TLZ IOS,IOSLIC ;YES, CLEAR LEVEL TRNE T,SLEVEL ;SET TO 1? TLO IOS,IOSLIC ;YES @@ -89,7 +89,7 @@ NOSET: JRST MTLEOT CAIE T,1400 ;WRITE EOF CAIN T,5400 ;OR WRITE BLANK TAPE? - JRST CHKLOC ;YES, CHECK WRITE-LOCK + JRST CHKLOK ;YES, CHECK WRITE-LOCK CONSO 224,4000 ;AT LOAD POINT? JRST MTGO0 ;NO CAIE T,3400 ;YES, BACKSPACE RECORD? @@ -114,7 +114,7 @@ MTGO1: LDB TAC1,PUNIT ;UNIT TRO TAC,100000 ;YES, SET COMMAND. HRRM DEVDAT,MTDEV ;COMMAND, DVDB HRLM TAC,MTDEV -MTGO3: MOVEI TAC1,MTPOUN +MTGO3: MOVEI TAC1,MTPDUN HRRM TAC1,MTIDSP SETZM MTEOFF ;CLEAR EOF FLAG TLNN IOS,IODT ;IS THIS A DATA TRANSFER OPERATION @@ -129,7 +129,7 @@ MTGO2: SETZM MISSED ;CLEAR DATA MISSED FLAG JRST STOIOS ;STORE HUNG COUNT, EXIT ;READ -MTIN: PUSHJ PDP,MTCHECK ;IS SYSTEM AVAILABLE?> +MTIN: PUSHJ PDP,MTCHEK ;IS SYSTEM AVAILABLE?> TLZ IOS,IO ;READING. MTIN1: SETCM TAC,@DEVIAD(DEVDAT) ;-SIZE-1 HRRI TAC,@DEVIAD(DEVDAT) ;BUFFER ADDRESS,PROG INCLUDED @@ -149,14 +149,14 @@ MTCHEK: PUSHJ PDP,GETDCMT ;GET DATA AND MAG TAPE CONTROLS MTCHK2: AOSE MTREQ PUSHJ PDP,MTWAIT MOVE IOS,DEVIOS(DEVDAT) - TLZ IOS,IO ;CLEAR IUO INDICATION SO "REWCK" WILL WORK + TLZ IOS,IO ;CLEAR IO INDICATION SO "REWCK" WILL WORK PUSHJ PDP,MTCHK4 ;CHECK STATUS JRST MTCHK2 ;GET MT AGAIN MTCHK4: TLO IOS,HASMT ;THIS JOB NOW HAS MTC TLZE IOS,IOBEG ;FIRST OPERATION AFTER INIT OR SETSTS - TLZ IOS,IUOSLIC ;YES, SET SLICE LEVEL TO 0. + TLZ IOS,IOSLIC ;YES, SET SLICE LEVEL TO 0. TLZ IOS,IOREW ;CLEAR MAG TAPE REWINDING PUSHJ PDP,REWCK ;CHECK IF REWINDING? JRST TPOPJ ;NO - STATUS OK @@ -197,7 +197,7 @@ MTHUNG: DETDC: TLZN IOS,IODT ;DOES JOB HAVE DATA CONTROL? JRST STOIOS ;NO- EXIT CONO DC,0 - CONO PD,DCOFF + CONO DC,DCOFF SOSL DCREQ ;ANYONE ELSE WAITING FOR IT? SETOM DCAVAL ;YES- FLAG AS JUST BECOME AVAILABLE JRST STOIOS ;AND EXIT @@ -254,7 +254,7 @@ MTINDC: MOVEM TAC,MTDCCN ;BLKO POINTER HRRI TAC1,DCWRD CONO PI,DCOFF ;TURN DC PI CHANNEL OFF MOVEM TAC1,DCLOC ;BLK COMMAND - MOVE TAC1,JSR MTDCND] + MOVE TAC1,[JSR MTDCND] MOVEM TAC1,DCLOC1 TRO IOS,IOACT ;SET IOACT MOVSI TAC, ERF ;ENABLE FOR EOR IF EOR FLAG NOT ON. @@ -282,7 +282,7 @@ MWLEOT: MOVEI T,3 ;WRITE EOF JRST MTAPE MTCINI: PUSHJ PDP,RELCON - SETOM MRTEWN ;SET CLOCK REQUEST COUNT TO -1 + SETOM MTREWN ;SET CLOCK REQUEST COUNT TO -1 JRST MTNIO1 @@ -299,7 +299,7 @@ MTCINT: CONSO 224,@MTCCON JRST . JSR MTCSAV ;SAVE AC'S HRRZ DEVDAT,MTDEV ;DVDB - LDB PROG,PJOBM; JOB NUMBER + LDB PROG,PJOBN; JOB NUMBER MOVE PROG,JBTADR(PROG) MOVE IOS, DEVIOS(DEVDAT) CONSO 224,TCF ;TAPE CONTROL FREE @@ -314,11 +314,11 @@ MTPDUN: TLNN IOS,IODT JRST DMPDUN ;DUMP TLNE IOS,IO JRST MTNOTI ;WRITING - SKIPF MTEOFF ;NOT EOF? + SKIPE MTEOFF ;NOT EOF? JRST MTEOF MOVEI TAC,@DEVIAD(DEVDAT) ;BUFFER ADDRESS MOVN TAC1,MTDCCN ;WD CNT-1 - AOBJ TAC1, .+1 ;WD CNT + AOBJN TAC1, .+1 ;WD CNT HLLZS TAC1 ;CLR RT HALF ADD TAC1,DCWRD ;ADD CURRENT COUNT=NO, OF WDS HLRM TAC1,1(TAC) ;STORE AT WORD COUNT @@ -335,20 +335,20 @@ MTEOF: TLO IOS,IOEND SETZM MTEOFF ;CLEAR EOF FLAG ;AND FALL INTO MTEND1 - MTEND1: PUSHJ PDP,DETDO ;DETACH DC (IF ASSIGNED) + MTEND1: PUSHJ PDP,DETDC ;DETACH DC (IF ASSIGNED) PUSHJ PDP,ETCHK ;CHECK FOR END OF TAPE (FOR DUMP MODE OUT) PUSHJ PDP,CLRACT CONSO 224,TCF ;TAPE CONTROL FREE? - JRST MTION ;NO. WAIT FOR IT. + JRST MTIGN ;NO. WAIT FOR IT. MTFIN: MTNIO: TLZE IOS,IOW ;CLEAR WAIT PUSHJ PDP,SETIOD - PUSHJ PDP,DETMOC ;DETACH MTC (IF HASMT SET) AND DC (IF IODT) + PUSHJ PDP,DETMDC ;DETACH MTC (IF HASMT SET) AND DC (IF IODT) PUSHJ PDP,ETCHK ;CHECK FOR END OF TAPE PUSHJ PDP,CLRACT ;RESTORE BITS,CLEAR IOACT ;AND FALL INTO MTNIO1 - MTIO1: MOVN TAC,MTREDO ;REPEAT COUNTER + MTNIO1: MOVN TAC,MTREDO ;REPEAT COUNTER HRREM TAC,MTERCN SKIPGE MTREWN ;IS ANY OTHER UNIT REWINDING AND ;A SECOND COMMAND HELD UP? @@ -380,7 +380,7 @@ REW1: AOS MTREWN ;INCREMENT COUNT OF REW WAIT UNITS REW2: HLRZ DEVDAT,DEVSER(DEVDAT) ;DEVDAT TO NEXT DDB JUMPE DEVDAT,REW3 ;LAST ONE? HRLZ DAT,DEVNAM(DEVDAT) ;NO,GET LH OF NAME - CAIN DAT,(SIZBIT /MTA/) ;STILL A MAGTAPE? + CAIN DAT,(SIXBIT /MTA/) ;STILL A MAGTAPE? JRST REWLP ;YES, CONTINUE REW3: POP PDP,DEVDAT POPJ PDP, ;YES, DISMISS INTERRUPT OF RETURN TO MTC OK @@ -441,7 +441,7 @@ MTNIO2: HLRZ TAC,MTDEV ;COMMAND JRST MTIGN1 ;NO. WAIT FOR IT. CONSZ DC,1000 ;DATA MISSED SETOM MISSED ;YES - CONSO DC,1600000 ;ANY CHARS. LEFT? + CONSO DC,160000 ;ANY CHARS. LEFT? JRST MTEOR1 ;NO MOVE T,DCWRD ;GET IOWD TLNN IOS,IO ;O/P @@ -479,7 +479,7 @@ MTEOR2: SOS MTIDSP ;POINT TO ERROR ROUTINE CONSZ MTS1,400000 ;ILLEGAL OP? TRO T,1000 ;YES, COUNT IN QUARTER 3 CONSO MTS1,100 - SKIPF MISSFD ;DATA MISSED? + SKIPE MISSED ;DATA MISSED? TRO T,1 ;YES, COUNT IN QUARTER 4 ADDM T,MTECNT(DEVDAT);ADD TO ERROR COUNTS FOR THIS DRIVE JRST MTECON ;CHECK EOF @@ -507,7 +507,7 @@ MTERR2: CONSO 224,400100 ;SET IODERR IF ILLEG OR MISSED CHAR FLAGS JRST MTPDUN MTBSP: MOVE TAC,MTDCCN ;POINTER - MOVEM TAC,DOWRD ;RESET POINTER WORD + MOVEM TAC,DCWRD ;RESET POINTER WORD HLRZ TAC,MTDEV ;COMMAND CONSO 224,XNC ;WAIT FOR XNC JRST .-1 ;SHOULD ADD A COUNT(RUNAWAY TAPE TURNED OFF) @@ -531,7 +531,7 @@ MTDC=2 ;MAG TAPE DATA CONTROL DEVICE NO. TCF=1 ;TAPE CONTROL FREE ERF=4 ;END OF RECORD FLAG LPE=20 ;LONG. PARITY ERROR -CRE=10 ;CHAR. PARITY ERROR +CPE=10 ;CHAR. PARITY ERROR SEL=2 ;UNIT TO COMMAND BUFFER IOSEOF=4000 ;SPACING ONE RECORD FORWARD FOUND EOF IOTEND=2000 ;EOT INDICATION @@ -579,7 +579,7 @@ MTIDSP: JRST MTPDUN > ;LOGICAL EBND OF TAPE LOOP MTLEOT: MOVEI T,7 ;BACKSPACE - PUSHJ PDP,MTAPC2 + PUSHJ PDP,MTAPE2 PUSHJ PDP,MTCHK2 ;CALL INTERLOCK, PICKUP IOS ;AFTER PREVIOS TASK FINISHED. MTEOT2: MOVEI T,16 ;SAVE ONE FILE @@ -602,12 +602,12 @@ MTDPO1: PUSHJ PDP,MTCHEK ;IS SYSTEM AVAILABLE PUSHJ PDP,SAVCHK MOVE TAC1, @MTOUT2 ;BLKO AND DATA CONTROL COMMAND MOVEI T,1000 ;WRITING COMMAND -MTDMP1: HTLI TAC, PROG ;ACTUAL ADDRESS OF COMMAND LIST - MOVEM TAC, MTDUMP ;COMMAND POINTER +MTDMP1: HRLI TAC, PROG ;ACTUAL ADDRESS OF COMMAND LIST + MOVEM TAC, MTCMDP ;COMMAND POINTER SKIPN TAC,@TAC ;COMMAND WORD JRST MTEND1 JUMPG TAC, MTDMP1 ;CHANGE COMMAND SEQUENCE - HLREM TAC, SVCNT ;SAVE COUNTER + HLREM TAC, SVCNTR ;SAVE COUNTER HRRZS TAC ;GET ADDRESS ALONE CAMGE TAC,AC1 JRST MTDMP2 @@ -640,7 +640,7 @@ SAVCHK: MOVEI AC1,JOBPFI MTDMPI: PUSH PDP,UUO MTDPI1: TRNE IOS,IODEND JRST TPOPJ - PUSHJ PDP,MTCHECK + PUSHJ PDP,MTCHEK TLZ IOS,IO ;READING PUSHJ PDP,SAVCHK MOVE TAC1,@MTIN2 ;BLKI AND DATA CONTROL COMMAND @@ -652,3 +652,4 @@ MTDMP2: PUSHJ PDP,MTEND1 END + \ No newline at end of file