Fixed typos.

[retro-software/dec/tops10/v4.5.git] / src / dskser.mac

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