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