\r
\r
DTADIR: BLOCK 200\r
-DTADDS=.-DTADDR\r
+DTADDS=.-DTADDB\r
\r
JRST DTAINI\r
JRST HUNGTP ;HUNG DEVICE\r
-DTADSP JRST UREL\r
+DTADSP: JRST UREL\r
JRST UCLS\r
JRST UOUT\r
JRST UIN\r
\f HRRZ TAC1,UUO ;MTAPE - GET OPERATION\r
CAIE TAC1,1 ;REWIND OR\r
CAIN TAC1,11 ;REWIND UNLOAD ARE LEGAL\r
- SOJA TAC1,MTA0\r
+ SOJA TAC1,MTAP0\r
POPJ PDP, ;OTHERS ARE NO-OPS\r
\r
;INITIALIZE DTC\r
MOVEM TAC1,DEVFIL(DEVDAT) ;STORE FOR RENAME AND SUPERSEDING\r
; SHARED SEGMENTS\r
CAMN TAC1,(TAC) ;TEST FOR MATCH\r
- AOJA UUOI,NMFOUN ;FOUND NAME, CHECK EXTENSION\r
+ AOJA UUO,NMFOUN ;FOUND NAME, CHECK EXTENSION\r
AOBJN TAC,.-2 ;TRY NEXT NAME\r
POPJ PDP, ;NOT FOUND\r
NMFOUN: HLLZ TAC1,@UUO ;PICK UP USER'S EXTENSION\r
ENTR: TRNE IOS,UDSD ;NON STANDARD?\r
JRST CPOPJ1 ;YES. RETURN\r
PUSHJ PDP,DSERCH ;NO. LOOK FOR MATCH\r
- JRST NEWNT ;THIS IS A NEW ENTRY\r
+ JRST NEWENT ;THIS IS A NEW ENTRY\r
ENTR2: MOVE TAC1,@UUO ;PICK UP 2ND WORD (EXTENSSION)\r
AOS UUO ;POINT TO WORD 3\r
HRR TAC1,@UUO ;ADD DATE\r
HRLM TAC,OBLK(DEVDAT) ;SAVE INDEX IN DDB\r
\r
PUSHJ PDP,DLETE ;DELETE ALL BLOCKS BELONGING TO FILE\r
- AOJE AC3,FNTRD ;FIND FIRST FREE BLOCK ON TAPE IF THIS\r
+ AOJE AC3,ENTRD ;FIND FIRST FREE BLOCK ON TAPE IF THIS\r
;IS A SAVE FILE (UGETF DONE)\r
MOVEI BLK,DIRBLK ;NO. GET 1ST BLOCK CLOSE TO\r
TLO IOS,RVERSE ;DIRECTORY. GOING IN REVERSE\r
;;SET POINTER TO CORRECT DIRECTORY ENTRY\r
DRPTR: SUBI BLK,1 ;SET FOR ILDB OR IDPB\r
IDIVI BLK,7 ;COMPUTE WORD, POSITION\r
- ADD BLK,OLOC(DEVDAT) ;GET CORRECT ADDRESS\r
+ ADD BLK,DLOC(DEVDAT) ;GET CORRECT ADDRESS\r
HRLI BLK,440500 ;MAKE IT A BYTE POINTER\r
JUMPE DAT,CPOPJ ;CORRECT FOR POSITION IN WORD\r
IBP BLK\r
JRST OUT ;GO TO WRITE RECORD\r
\r
;HERE TO CLOSE A DUMP MODE FILE\r
-CLSDMP: TLO IOS,DMPOCLS+IO+DMPMOD ;SET SWITCHES\r
+CLSDMP: TLO IOS,DMPCLS+IO+DMPMOD ;SET SWITCHES\r
PUSHJ PDP,GETDT ;GET CONTROL\r
SETZM BUF ;ENSURE ZERO LINK,WORDCOUNT\r
SETZM BUF+1 ;MAKE SURE 0, SO CAN GET WITH 3 SERIES MON.\r
HRRZ BLK,OBLK(DEVDAT)\r
CAIN BLK,DIRBLKK ;CHECK IF WRITING DIRECTORY\r
JRST COR2HM ;YES, WRITE CORE IMAGE\r
- JUMPE BLK,FAKAV ;DONT WRITE IF NO BLOCK GIVEN\r
+ JUMPE BLK,FAKADV ;DONT WRITE IF NO BLOCK GIVEN\r
\r
PUSHJ PDP,BLKCHK ;CHECK FOR LEGAL BLOCK\r
UOUT2: TLNN IOS,DMPMOD ;ALREADY HAVE CONTROL IF DUMP-MODE\r
JRST DMPTS1 ;YES. RETURN\r
IFN CPBIT, <\r
TRNE IOS,UDSD ;NO. NON-STD MODE?\r
- SOJA DAT,TDUSER ;YES. GO ELSEWHERE\r
+ SOJA DAT,TOUSER ;YES. GO ELSEWHERE\r
>\r
DMPST2: SOS UUO ;NO. SAVE START OF LIST (-1)\r
MOVEM UUO,DMPLST(DEVDAT)\r
\r
IFN CPBIT, <\r
;HERE TO START DUMP-MODE INTO USER AREA DIRECTLY\r
-TOUSRF: JUMPE AC2,NOBLK0 ;CANT READ BLK 0 IN NON-STD DUMP MODE\r
+TOUSER: JUMPE AC2,NOBLK0 ;CANT READ BLK 0 IN NON-STD DUMP MODE\r
ASH DAT,-7 ;NUMBER OF WRDS IN LIST /200\r
AOS DAT\r
MOVEM DAT,BLKCNT ;SAVE TO UPDATE POSITION\r
>\r
DMPFLB: PUSHJ PDP,NXTCOM ;GET NEXT COMMAND\r
JRST DMPOTH ;END OF LIST\r
-DMPLFA: MOVE TEM,(TAC) ;GET NEXT WORD\r
+DMPFLA: MOVE TEM,(TAC) ;GET NEXT WORD\r
MOVEM TEM,BUF+1(TAC1) ;INTO BUFFER\r
AOBJP TAC1,DMPOVR ;BUFFER FULL IF GOES\r
AOBJN TAC,.-3 ;GET NEXT WORD FROM COMMAND\r
NXTCM1: HRRM TAC,DMPLST(DEVDAT) ;STORE GO-TO ADDRESS\r
MOVE TAC,@TAC ;GET COMMAND\r
JUMPE TAC,NXTCM2 ;END OF LIST\r
- JUMPG TAX,NXTCM1 ;GO-TO WORD\r
+ JUMPG TAC,NXTCM1 ;GO-TO WORD\r
ADDI TAC,(PROG) ;REAL COMMAND - ADD RELOCATION\r
AOJA TAC,CPOPJ1 ;AND RETURN\r
\f;END OF DUMP-MODE LIST\r
\f;HERE IF TAPE IS GOING IN REVERSE WHEN BLOCK NUMBER FOUND\r
IORVRS: ADDI TAC,176 ;START AT TOP OF BUFFER\r
MOVE TEM,[JSR RVERS]\r
- JRST TOGO ;COMPILCATED STUFF FOR EACH WORD\r
+ JRST IOGO ;COMPILCATED STUFF FOR EACH WORD\r
\r
;HERE FOR AY DATA WORD WITH TAPE IN REVERSE\r
RVERS: 0\r
JRST SRCHXT ;AND GO AWAY\r
MOVMS TAC\r
CAILE TAC,MINDIS ;WORTH WHILE TO DISCONNECT TAPE?\r
- JRST BEKON ;YES. GO DISCONNECT\r
+ JRST REKON ;YES. GO DISCONNECT\r
SKIPLE DISCON ;NO. IS THERE A DISCON. TAPE\r
;WHICH HAS TIMED OUT?\r
CAIG TAC,2 ;YES. WILL THIS SEARCH TAKE LONG?\r
SETZM ALMSWT\r
JEN @SRCH ;AND DISMISS THE INTERRUPT\r
\f;HERE IF AN ILLEGAL BLOCK WAS READ FROM THE TAPE\r
-SRCHR: AOS TAC,ERRCNT ;BUMP ERROR COUNT\r
- CAIG TAC,DTTRV ;TRIED ENOUGH?\r
+SRCHB: AOS TAC,ERRCNT ;BUMP ERROR COUNT\r
+ CAIG TAC,DTTRY ;TRIED ENOUGH?\r
JRST SRCHXT ;NO. READ ANOTHER BLOCK NUMBER\r
SETOM BLOCK ;YES. BLOCK = -1 AS AN ERROR SWITCH\r
- CONO DTA,770001 ;FUNCTION STOP\r
+ CONO DTS,770001 ;FUNCTION STOP\r
JRST SRCHXT ;GO AWAY\r
\r
IFN CPBIT, <\r
SRCHC: CONSZ DTC,100000 ;GOING FORWARD?\r
TLCA TAC,400000 ;NO. SWITCH TURN AROUND TEST. ENSURE FORWARD\r
JUMPE TAC,FOUND ;GO IF FOUND FORWARD\r
- SKIPI TAC ;TURN AROUND?>\r
+ SKIPL TAC ;TURN AROUND?\r
CONO DTC,DTTURN ;YES\r
JRST SRCHXT ;READ ANOTHER BLOCK NUMBER\r
>\r
SETM MONB2 ;CLEAR JOB NO, FROM MON BUFFER\r
TLNN IOS,IOFST ;WAS JOB SWAPPED OUT WHEN DATA FINISHED?\r
POPJ PDP, ;NO. TRANSFER COMPLETED\r
- MOVE TAC,JBTSTS(ITEM) ;YES, WAS IO ABORTED?>\r
+ MOVE TAC,JBTSTS(ITEM) ;YES, WAS IO ABORTED?\r
TRNN TAC,ALBORT\r
JRST FAKINT ;NO. NOW TRANSFER DATA, ADVANCE BUFFERS\r
JRST THRUTP ;YES. FORGET REST OF OPERATION\r
MOVEM TEM,RVERS\r
EXCH DEVDAT,USEWRD\r
EXCH IOS,DEVIOS(DEVDAT)\r
- ECHO PDP,FNDPDP\r
+ EXCH PDP,FNDPDP\r
PUSHJ PDP,@DISPAD(DEVDAT) ;GO TO DISPATCH LOCATION\r
EXCH PDP,FNDPDP ;RESTORE ACS\r
EXCH IOS,DEVIOS(DEVDAT)\r
HRRM BLK,IBLK(DEVDAT) ;DAVE IN DDB\r
TRNE IOS,IODTER+IODERR+IOIMPM\r
JRST THRUIN\r
- PUSHJ PDP,ADVBUFF ;GET NEXT BUFFER\r
+ PUSHJ PDP,ADVBFF ;GET NEXT BUFFER\r
JRST THRUIN ;EMPTY BUF NOT AVAILABLE\r
\r
SKIPLE DISCON ;TAPE TIMED OUT?\r
THRUTD: SOSL DTREQ ;BUMP COUNT DOWN\r
SETOM DTAVAL ;TELL SCHEDULER\r
THRUTA: CONO DTC,10000 ;DESELECT CONTROL\r
- TLZ IOS,DMPMOD+NOBUF+DMPCLS+PEWBIT+RUNBIT\r
+ TLZ IOS,DMPMOD+NOBUF+DMPCLS+REWBIT+RUNBIT\r
SETZM USEWRD ;INDICATE CONTROL NOW FREE\r
JRST CLRACT ;RESET IOACT AND RETURN\r
\r
SUB TAC1,ONEONE ;SET UP TAC1 WITH COUNT\r
>\r
TLNN IOS,IO\r
- JRST SVOMIN ;INPUT FILE\r
+ JRST SVDMIN ;INPUT FILE\r
HRRZ BLK,OBLK(DEVDAT) ;OUTPUT FILE, NEXT BLOCK\r
- JUMPF BLK,DMPTHA ;LAST BLOCK\r
+ JUMPE BLK,DMPTHA ;LAST BLOCK\r
IFE CPBIT, <\r
TRNE IOS,UDSD ;IF NON-STD MODE\r
AOSA OBLK(DEVDAT) ;WRITE CONSECUTIVE BLOCKS\r
JUMPE BLK,DMPEOF ;IF EOF - LIGHT BIT\r
RDNXT: CAIG BLK,TOPBLK ;BLOCK LEGAL?\r
JRST READBC ;GO READ BLOCK NUMBER\r
- TROA IOS,IOBLKT ;LIGHT ERROR BIT\r
+ TROA IOS,IOBKTL ;LIGHT ERROR BIT\r
\r
;EOF BEFORE ALL DATA IS IN - DUMP MODE\r
DMPEOF: TRO IOS,IODEND ;LIGHT EOF BIT\r
>\r
ERRS1: CONSO DTS,40000 ;IF ILLEGAL OP - DONT RETRY\r
CAILE TAC,DTTRY ;ENOUGH REREADS?\r
- JRST PERMET ;YES. PERMANENT ERROR\r
+ JRST PERMER ;YES. PERMANENT ERROR\r
JRST FNDBL2 ;NO. TRY AGAIN\r
\r
;PERMANENT ERROR\r
TRO IOS,IOIMPM ;ILLEGAL OP\r
TLNE IOS,DMPMOD ;DUMP MODE?\r
JRST DMPTHR ;YES. NOT THROUGH YET\r
- TLNN IOS,IO+RDDIR+SINGL\r
+ TLNN IOS,IO+RWDIR+SINGL\r
JRST DTAIN2\r
REWDUN: TLZE IOS,IOW\r
PUSHJ PDP,SETIOD ;NO. TAKE OUT OF IO WAIT\r
JRST THRUTP ;NO. RETURN TO USER\r
PUSHJ PDP,THRUTP ;YES. STOP TAPE\r
MOVSI TAC,DVDIRIN ;CLEAR DIRECTORY IN CORE BIT\r
- ANDCAM TAC,DEVMOND(DEVDAT)\r
+ ANDCAM TAC,DEVMOD(DEVDAT)\r
BDDIR: LDB ITEM,PJOBN ;NUMBER OF OFFENDING JOB\r
- JRST RADDIR ;GO PRINT ERROR MESSAGE\r
+ JRST BADDIR ;GO PRINT ERROR MESSAGE\r
\f INTERN DTABUF\r
BFPNTR: IOWD 200,BUF+1\r
ONEONE: XWD 1,1\r
SVPNTR: 0\r
\r
USPNTR: 0\r
-DIRCNT: 0\r
+DIRCTN: 0\r
>\r
;THIS IS THE MONITOR BUFFER\r
DTABUF:\r
git://git.sky-visions.com / retro-software/dec/tops10/v4.5.git / blobdiff