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