X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/cda2ba6d27526e5ef6f27f7b3391cfb55055bf2e..0000ed8f3efcdbf411f6c91517909089e5d7ef5d:/src/dskser.mac diff --git a/src/dskser.mac b/src/dskser.mac index 6b6d9d2..30fe5b8 100644 --- a/src/dskser.mac +++ b/src/dskser.mac @@ -54,7 +54,7 @@ SATXWD: XWD -NUMSAT,67 ;BLOCKS GO AT THESE ABSOLUTE ADDRESSES ; UNLESS USER SPECIFIES OTHERWISE DURING "ONCE". > IFE FTRC10, < -MDFBLK: 13000 ;THIS BLOCK CONTAINS RETRIEVAL INFO, OF MFD +MFDBLK: 13000 ;THIS BLOCK CONTAINS RETRIEVAL INFO, OF MFD SATXWD: XWD -NUMSAT,13001 ;LH=NUMBER OF SAT BLOCKS. ;RH=FIRST SAT BLOCK NUMBER. >> @@ -159,7 +159,7 @@ RUNUSR: BLOCK 1 ;LH=DEVDAT OF USER JOB RUNNING USRCNT: BLOCK 1 ;COUNT OF WAITING USER JOBS DFBUSY: 0 ;-1 IF DISK CONTROL IN USE, 0 IF FREE FAT: 0 ;POINTER TO FIRST ACCESS TABLE ENTRY -DKSMOT: 0 ;COUNT OF VARIOUS CHECKSUM ERRORS +CKSMCT: 0 ;COUNT OF VARIOUS CHECKSUM ERRORS REFLAG: 0 ;CONTAINS A PPN TO ALLOW LOGIN AFTER REFRESH UXFERS: 0 ;TOTAL USER TRANSFER ATTEMPTED ECOUNT: 0 ;TOTAL HARDWARE ERRORS ON USER TRANSFERS @@ -174,7 +174,7 @@ SATTMP: BLOCK 1 ; ROUTINE TO AVOID PUSH-DOWN LIST OVERFLOW. IFN FTRA10, < EXTERNAL MFDBLK,SATXWD,NUMBLK,SATENT,SENTSZ,SATTOP > -IFE FTRA10,< +IFE FTRA10, < INTERNAL SATENT IFN FTRC10, < @@ -186,7 +186,7 @@ IFE FTRC10, < ;ONE SAT BLOCK ON THE DATA PRODUCTS 270 DISK. > XP SENTSZ,3 ;SIZE OF EACH SATENT ENTRY -IFN FTREC10, < +IFN FTRC10, < DSKXDB=0 ;ON PDP-10 DISK FILE STORAGE BEGINS IN LOGICAL ; BLOCK NO. 0, > @@ -203,12 +203,12 @@ SATENT: REPEAT NUMSAT,< ; IN SAT BLOCK DSKXDB=DSKXDB+NUMBLK> - XP SATTOP,SATENT*SENTSZ*NUMSAT-SENTSZ + XP SATTOP,SATENT+SENTSZ*NUMSAT-SENTSZ >;END OF FTRA100 CONDITIONAL SAT: BLOCK 200 ;CURRENT SAT BLOCK - XP SAATM2,SAT-2 ;LOWEST ABS, ADR-1 ALLOWED IN CHANNEL COMMAND + XP SATM2,SAT-2 ;LOWEST ABS, ADR-1 ALLOWED IN CHANNEL COMMAND ; LIST - USED TO KEEP FROM WIPING OUT MONITOR. SATBK2: XWD -200,SAT @@ -282,7 +282,7 @@ MONBUF: BLOCK 200 ;MONITOR BUFFER, USED TO READ RETRIEVAL POINTERS, ETC. NOTINU=0 ;NO SUCH FILE NOTINM=1 ;NO SUCH USER -PHOTF=2 ;PROTECTION FAILURE +PROTF=2 ;PROTECTION FAILURE NORITE=3 ;MORE THAN 1 WRITE TO A FILE RENFAL=4 ;TRIED TO RENAME FILE TO EXISTING NAME OR ENTER ; A NULL FILE NAMES @@ -571,7 +571,7 @@ DFLUK3: AOS TBITS(TAC) ;INCREMENT RCOUNT TLZE IOS,PRCHG ;PROTECTION CHANGE FAILURE? JRST DFLUK7 ;YES. ERROR RETURN MOVSI DAT,200000 ;READ PROTECTION BIT - PUSH J PDP,PROTEK ;READ PROTECTED? + PUSHJ PDP,PROTEK ;READ PROTECTED? JRST DFERR3 ;NAME WRONG JRST DFLUK7 ;PROTECTION FAILURE @@ -954,16 +954,16 @@ PROTKY: MOVE ITEM,JOB TLNE AC1,-1 ;NO, SAME PROJECT? ROT DAT,-3 ;NO, ROTATE TO UNIVERAL FIELD -PROT1: TLZ DAT,60000 ;DO NOT TEST OWNER READ OR PROTECT PROTECTION +PROT1: TLZ DAT,60000 ;DO NOT TEST OWNER READ OR PROTECT PROTECTION TDNN DAT,2(TAC) - JRST CPOPJ1 ;PROTECTION O.K. + JRST CPOPJ1 ;PROTECTION O.K. MOVE AC1,PRJPRG(ITEM) - CAMN AC1,DUMPPP ;EQUAL TO DUMPPER PROJECT - ;PROGRAMMER NUMBER? - AOS(PDP) ;YES, ALL FILES AVAILABLE + CAMN AC1,DUMPPP ;EQUAL TO DUMPPER PROJECT + ;PROGRAMMER NUMBER? + AOS(PDP) ;YES, ALL FILES AVAILABLE POPJ PDP, -;CLOSE UUO + CLOSE UUO ;CLOSE AN OUTPUT FILE EXTERNAL PIOMOD,WAIT1,OUT @@ -1381,7 +1381,7 @@ WUFD1: PUSHJ PDP,MQOUT ;WRITE UFD BLOCK JRST WUFD3 ;WRITE ERROR MOVE TAC,DEVOAD(DEVDAT) TLO IOS,NMP ;SET NMP - MOVEM IOS,DEVIOS(DEVDAT) ;SO DFO4A WON'T READ POINTERS + MOVEM IOS,DEVIOS(DEVDAT) ;SO WON'T READ POINTERS TLN TAC,PNTDIF ;WERE POINTERS CHANGED? PUSHJ PDP,DFO4A ;YES, WRITE THEM OUT. SOSL AUREQ ;RELEASE UFD RESOURCE @@ -1511,7 +1511,7 @@ DFDO1A: PUSHJ PDP,SATGET ;AQUIRE A NON-FULL SAT BLOCK MOVMS ITEM ADDI ITEM,BLKSIZ-1 ;MAKE E.G. 129 WORDS USE 2 DISK BLOCK ASH ITEM,-BLKP2 ;NUMBER OF BLOCK REQUIRED FOR THIS WRITE -DFDO2A: HRRZ AC1,SATPTR +DFD02A: HRRZ AC1,SATPTR MOVE AC2,SATBK2 DFDO1B: PUSHJ PDP,GETBIT ;ASK FOR C(ITEM BITS) JRST DFDO6 ;NOT AVAILABLE @@ -2016,7 +2016,7 @@ DFIN4: MOVEI AC2,PTR1(DEVDAT) ;RESET DEVACC MOVE TAC,DEVBLK(DEVDAT) ;RESET DEVBKO MOVEM TAC,DEVBKO(DEVDAT) ;BLOCK # WORD INDEX OF A CURRENT RETRIEVAL PACKET GTPTR1: PUSHJ PDP,SET000 ;SET TAC1 TO FIRST WORD OF RIB - MOVE IOS,DEVIOS(DEVDAT) + MOVE IOS,DEVIOS(DEVDAT) HRRZ AC3,DEVBLK(DEVDAT) ;WORD INDEX OF RETRIEVAL POINTER PACKET ADD AC3,TAC1 ;AC3 POINTS TO NEXT POINTER WITHIN RIB ADDI TAC1,BLKSIZ-2 ;TAC1 POINTS TO WORD 127 @@ -2109,7 +2109,7 @@ DFOUT1: HRRZ DAT,DEVACC(DEVDAT) ;*GET POINTER LOC ORM TAC1,DEVOAD(DEVDAT) MOVEM TAC,@DAT> -DFOT3A: CAIE DAT,PRTN(DEVDAT) ;*LIST FULL? +DFOT3A: CAIE DAT,PTRN(DEVDAT) ;*LIST FULL? JRST QOUT ;*NO, WRITE AND LEAVE ;OUTPUT UUO CONTINUED. @@ -2503,7 +2503,7 @@ SUBTTL "FREE" CORE ALLOCATION INTERNAL CLRDDB CLRDDB: MOVEI TAC,DSKDDB ;POINT TO PROTOTYPE DDB -CLRDB1: MOVE TAC1,TAC ;COPY LINK TO TAC1 +CLDDB1: MOVE TAC1,TAC ;COPY LINK TO TAC1 HLRZ TAC,DEVSER(TAC1) ;GET LINK TO NEXT DDB JUMPE TAC,CPOPJ ;0 MEANS END CAIE TAC,(DEVDAT) ;OWNED BY CURRENT USER? @@ -2584,7 +2584,7 @@ SETBF5: HRLI TAC1,NBLKSZ SETBF6: AOSE MQREQ PUSHJ PDP,MQWAIT - TLO IUOS,UBFU ;BUFFER IN MONITOR CORE + TLO IOS,UBFU ;BUFFER IN MONITOR CORE MOVEI TAC1, MONBUF ;TAC1 POINTS TO MONITOR BUFFER JRST SETBF5 @@ -2644,7 +2644,7 @@ GETZ2: AOBJP TAC,CPOPJ CAMN DAT,(TAC) JRST GETZ2 -GETZ3: TONE TAC1,(TAC) +GETZ3: TDNE TAC1,(TAC) JRST GETZ1 JRST CPOPJ @@ -2900,7 +2900,7 @@ EXTERNAL MQTOP,MQUEUE DFINT: IFN FTSWAP,< - EXTERNAL SQREQ,SERA,SOGO,SWPINT + EXTERNAL SQREQ,SERA,SQGO,SWPINT MOVE TAC,SERA ;*WAS THAT A SWAPPING JOB? TLNE TAC,200000 ;* JRST SWPINT ;*YES @@ -2979,7 +2979,7 @@ DFINT3: HRRM IOS,DSKCNT(DEVDAT) ;SAVE ANY ERRORS DFINT4: MOVEM IOS,DEVIOS(DEVDAT) ;CLEAR IOACT DINT4A: IFN FTSWAP,< SKIPE SQREQ ;SWAPPING JOB WAITING? - JRST SOGO ;YES,START IT + JRST SQGO ;YES,START IT > INTERNAL DINT4B @@ -3015,7 +3015,7 @@ DFINT6: ANDCAM TAC,DEVOAD(DEVDAT) ;CLEAR OUTPUT WAIT BIT IN DDB JRST USRGO ;START UP A USER READ - + DFINT7: ANDCAM TAC,DEVIAD(DEVDAT) ;CLEAR INPUT WAIT BIT IN DDB USRGO: MOVSM DEVDAT,RUNUSR ;SAVE DEVDAT FOR USE AT DFINT @@ -3235,7 +3235,7 @@ WLERA: HLR TAC,DSKCNT(DEVDAT) ;PICK UP BLOCK NUMBER. ;SET WRITE-LOCK INDICATION IN A SAT ENTRY. ;ENTER WITH A BLOCK NUMBER IN TAC. -SETWL: MOVEI TAC1,SETENT ;* +SETWL: MOVEI TAC1,SATENT ;* JRST .+2 ;* SETWL1: ADDI TAC1,SENTSZ ;* HLRZ ITEM,@TAC1 ;*IS THE BLOCK IN THIS SAT ENTRY? @@ -3248,3 +3248,4 @@ SETWL1: ADDI TAC1,SENTSZ ;* DSKSR: END +