Cleaned up typos.

diff --git a/src/clock1.mac b/src/clock1.mac
index d337313..67292ba 100644 (file)
--- a/src/clock1.mac
+++ b/src/clock1.mac
@@ -516,7 +516,7 @@ EXTERN PRJPRG
        MOVSI   TAC1,JNA        ;YES,JOB NUMBER ASSGINED BIT\r
        HRRZ    TAC,ITEM        ;SCAN DOWNWARD\r
        TDNN    TAC1,JBTSTS(TAC)        ;IS JNA BIT SET FOR THIS JOB?\r
-       SOJG    TAC,-1          ;NO,KEEP LOOKING,FINISHED(TRUE IF THIS THE ONLY JOB\r
+       SOJG    TAC,.-1         ;NO,KEEP LOOKING,FINISHED(TRUE IF THIS THE ONLY JOB\r
        MOVEM   TAC,HIGHJB      ;YES,STORE NEW HIGHEST JOB NUMBER ASSIGNED\r
        JRST    ESTOP           ;GO SET ERROR BIT\r
 \f;ROUTINE TO STOP JOB, SET ERROR BIT AND PRINT MESSAGE\r

diff --git a/src/comcon.mac b/src/comcon.mac
index 7038b08..883f015 100644 (file)
--- a/src/comcon.mac
+++ b/src/comcon.mac
@@ -2833,7 +2833,7 @@ IOWBLT:   MOVSI   TAC,@TAC        ;YES, KEEP THE ENTIRE IOWD DATA
        SUBI    AC3,(TAC)       ;AC3 POINTS TO TOP OF DATA READ IN-(N)\r
        BLT     TAC1,@AC3       ;MOVE ONLY GOOD DATA DOWN\r
        JRST    EXPND1          ;GO EXPAND THE GOOD DATA\r
-\fSGDO1:        MOVEI TAC,JOBDDT(PROG)  ;MOVE EVERYTHING DOWN )MUST BE NON-COMPRESSED DSK FILE\r
+\fSGDO1:        MOVEI TAC,JOBDDT(PROG)  ;MOVE EVERYTHING DOWN )MUST BE NON-COMPRESSED DSK FILE  \r
        HRLI TAC,JOBSVD(TAC)    ;OR CONVERT SAVE FILE\r
        SKIPGE JOBSV(JDAT)      ;IS THIS CONVERT FILE(FIRST WORD IS IOWD)?\r
        HRLI TAC,JOBSDP(TAC)    ;YES, ALSO SKIP OVER IOWD\r

diff --git a/src/core1.mac b/src/core1.mac
index 5e81986..f2b2dc9 100644 (file)
--- a/src/core1.mac
+++ b/src/core1.mac
@@ -442,7 +442,7 @@ IFN FTSWAP,<
 >\r
 IFE FTSWAP,<\r
        IFE FT2REL,<\r
-       SOSO (PDP)              ;SET FOR ERROR RETURN AND GET BACK LO CORE\r
+       SOS (PDP)               ;SET FOR ERROR RETURN AND GET BACK LO CORE\r
        >\r
        IFN FT2REL,<\r
        EXTERN FRECOR\r

diff --git a/src/dpdint.mac b/src/dpdint.mac
index 0882969..7b7fcab 100644 (file)
--- a/src/dpdint.mac
+++ b/src/dpdint.mac
@@ -230,5 +230,5 @@ DSKCON:     0
 IOWRD: 0\r
 DCBERR:        0\r
 ACSAV: 0\r
-<>\r
+>\r
 DPDEND:        END\r

diff --git a/src/dskint.mac b/src/dskint.mac
index 2b3f239..cd914c2 100644 (file)
--- a/src/dskint.mac
+++ b/src/dskint.mac
@@ -47,8 +47,7 @@ DATERR=DPAR!CHDPAR            ;DATA ERRORS.
 DEVERR=SRCHE!PSF!CHCPAR!OVR    ;DEVICE ERRORS.\r
 SETERR=DDE!TSE!NRDY!NXMEM      ;SOFTWARE-PREVENTABLE ERRORS.\r
 ALLERR=DATERR!DEVERR!SETERR!WRPE       ;ALL POSSIBLE ERRORS.\r
-\f\r
-;CONO FORMAT FOR THE MODEL RC-10 DISK SYNCHRONIZER\r
+\f;CONO FORMAT FOR THE MODEL RC-10 DISK SYNCHRONIZER\r
 \r
 ;BITS 00 - 17  UNUSED\r
 ;BITS 18 - 19  SELECT DISK FOR SECTOR COUNTER READ-OUT A(SEE DATAI BITS 28-35)\r
@@ -59,6 +58,7 @@ STPBIT=1B31   ;STOP -- IMMEDIATELY CEASE PRESENT I/O AND CLEAR THE CHANNEL.
 RESETB=1B32    ;RESET THE DONE FLAG (CORRESPONDING CONI BIT) TO CLEAR INTERRUPT\r
 ;BITS 33 - 35  PI CHANNEL SELECTION BITS\r
 \r
+\r
 ;DATAI FORMAT FOR THE MODEL RC-10 DISK SYNCHRONIZER --\r
 \r
 ;BITS 00 - 17  UNUSED\r
@@ -67,6 +67,7 @@ RESETB=1B32   ;RESET THE DONE FLAG (CORRESPONDING CONI BIT) TO CLEAR INTERRUPT
 ;BITS 26 - 27  DISK SELECTED BY BITS 18-19 OF LAST CONO\r
 ;BITS 28 - 35  CURRENT SECTOR POSITION OF SELECTED DISK (FOR LATENCY OPTIMIZATION!)\r
 \r
+\r
 ;DATAO FORMAT FOR THE MODEL RC-10 DISK SYNCHRONIZER --\r
 \r
 ;BITS 00 - 17  DISK ADDRESS ELECTION\r
@@ -80,8 +81,7 @@ WRBIT=1B26    ;SET MEANS WRITE ON DISK, RESET MEANS READ FROM DISK
 ;BITS 27 - 34  ;CORRESPONDING BITS OF INITIAL CHANNEL CONTROL ADDRESS, HENCE,\r
                ; THIS ADDRESS MUST BE EVEN AND IN THE FIRST 1K OF CORE MEMORY!\r
 ;BIT 35                ;WRITE EVEN PARITY DATA INTO MEMORY (DIAGNOSTICS ONLY!)\r
-\f\r
-;SUBROUTINE "DFWRT" IS CALLED TO START UP A WRITE ON THE DISK.\r
+\f;SUBROUTINE "DFWRT" IS CALLED TO START UP A WRITE ON THE DISK.\r
 \r
 ;CALLING SEQUENCE  --\r
 ;      PUSHJ   PDP,DFWRT\r
@@ -100,7 +100,6 @@ DFWRT:      CONSZ   DSK,BUSYBT      ;FOR SAFETY SAKE BE SURE THE DISK IS
        MOVEM   TAC1,WRCHNL     ;SET UP CHANNEL COMMAND SEQUENCE.\r
        SETZM   WRCHNL+1        ;MAKE SURE NEXT COMMAND IS 0, SO CHANNEL\r
                                ; WILL NOT WRITE ALL OVER DISK\r
-\r
 IFN    FTRCHK,<\r
        EXTERN SATM2\r
        MOVEI TAC1,1(TAC1)      ;CLEAR LH AND COMPARE WITH\r
@@ -111,8 +110,8 @@ IFN FTRCHK,<
                                 ;WILL LOOP\r
 >\r
        MOVEI   TAC1,WRCHNL\r
-       MOVEM   TAC1,RCXIOC     ;RCX10C IS MAGIC EVEN LOCATION IN FIRST 1K OF CORE.\r
-       PUSHJ   PDP,CNVBLK      ;CONVERT LOGICAL BLOCK NO. INTO PHYSICAL DISK ADDRESS.\r
+       MOVEM   TAC1,RCXIOC     ;RCXIOC IS MAGIC EVEN LOCATION IN FIRST 1K OF CORE.\r
+       PUSHJ   PDP,CNVBLK      ;CONVERT LOGICAL BLOCK NO. INTO PHYSICAL DISK ADDRESS.  \r
        ORI     TAC,WRBIT       ;REQUEST WRITE (INSTEAD OF READ)\r
 DFWRTC:        ORI     TAC,RCXIOC\r
        MOVEM TAC,DFORDR        ;SAVE RC-10 DATAO COMMAND\r
@@ -131,8 +130,7 @@ DSKFDG:     HRRZI   TAC,DSKCHN      ;THIS INSTRUCTION TEMPORARILY ALTERED DURING "ONCE".
                                ; STORE THE CHANNEL CONTROL WORD.\r
        DATAO   DSK,DFORDR      ;START UP DISK AND DATA CHANNEL.\r
        POPJ    PDP,            ;SUBROUTINE EXIT.,......***\r
-\f\r
-;SUBROUTINE "DFRED" IS CALLED TO START UP A READ FROM THE DISK.\r
+\f;SUBROUTINE "DFRED" IS CALLED TO START UP A READ FROM THE DISK.\r
 \r
 ;THE CALLING SEQUENCE, ENTRY CONDITIONS, AND EXIT CONDITIONS ARE EXACTLY\r
 ; SIMILAR TO THOSE FOR SUBROUTINE "DFWRT" ABOVE.\r
@@ -147,29 +145,15 @@ IFN       FTRCHK,<
        MOVEI TAC1,1(TAC1)      ;CLEAR LH AND COMPARE WITH FIRST WORD AFFECTED\r
        CAIG TAC1,SATM2         ;COMPARE ABS CORE ADDRESS TO BEGINNING\r
                                 ;OF SAT TABLE-2\r
-       HALT    .               ;HALT - DO NOT WRITE OUT MONITOR - CONTINUE\r
-                                ;WILL LOOP\r
+       HALT    .               ;HALT - DO NOT WRITE OUT MONITOR,CONTINUE WILL LOOP\r
 >\r
-       MOVEI   TAC,RDCHNL      ; PLACE FROM WRITE CONTROL WORDS FOR\r
-       MOVEM   TAC,RCXIOC      ; BETTER FOOTPRINTS IN CASE OF A CRASH.\r
+       MOVEI   TAC1,RDCHNL     ; PLACE FROM WRITE CONTROL WORDS FOR\r
+       MOVEM   TAC1,RCXIOC     ; BETTER FOOTPRINTS IN CASE OF A CRASH.\r
        PUSHJ   PDP,CNVBLK      ;CONVERT LOGICAL BLOCK NUMBER TO PHYSICAL DISK ADDRESS.\r
        JRST    DFWRTC  ;REMAINDER OF THIS READ ROUTINE IS\r
                        ; IDENTICAL TO WRITING.\r
-\f\r
-;A ROUTINE CALLED DURING SYSTEM INITIALIZATION TO BE SURE DISK IS READY,\r
-; NOTE: THIS ROUTINE DESTROYS ACCUMULATOR TAC.\r
+\f;DISK INTERRUPTS COME HERE TO BE SERVICED --\r
 \r
-DISKUP:        CONO    DSK,ALLERR!RESETB       ;CLEAR THE DISK SYNCHRONIZER.\r
-       CONSZ   DSK,NRDY!PSF!BUSYBT!DONEFLG     ;ANYTHING AMISS OR STUCK ?\r
-       JRST    DISKUP          ;IF SO, JUST HANGE HERE IN A LOOP.\r
-       DATAI   DSK,TAC         ;IS THE SECTOR COUNTER GOING ?\r
-       JUMPE   TAC,.-1         ;IF NOT, JUST LOOP HERE.\r
-;*** THIS LOOP ABOVE WILL OCCUR DURING INITIALIZATION IF THE DISK IS OFF-LINE. ***\r
-       HRRZI   TAC,DSKBIT      ;IF NOT, ENABLE DISK INTERRUPTS ON THE\r
-       CONO    PI,2200(TAC)    ; APPRORIATE PRIORITY INTERRUPT CHANNEL.\r
-       POPJ    PDP,            ;SUBROUTINE EXIT.....,***\r
-\f\r
-;DISK INTERRUPTS COME HERE TO BE SERVICED --\r
 \r
 DSKINT:        CONSO   DSK,@DSKCON     ;*DID THE DISK SYNCHRONIZER CAUSE THE INTERRUPT ON\r
        JRST    .-1             ;* THIS CHANNEL? IF NOT, GO TO THE NEXT DEVICE ON\r
@@ -187,8 +171,9 @@ DSKINT:     CONSO   DSK,@DSKCON     ;*DID THE DISK SYNCHRONIZER CAUSE THE INTERRUPT ON
        CONSZ   DSK,WRPE        ;*\r
        TRO     IOS,IOIMPM      ;*\r
 ;CLEAR OUT THE DISK SYNCHRONIZER AND LEAVE IT DETACHED FROM ITS INTERRUPT CHANNEL.\r
+\r
        CONO    DSK,ALLERR!RESETB\r
-       MOVE    TAC,RCXCCW      ;*PICK UP THE FINAL VALUE FO THE CHANNEL CONTROL WORD.\r
+       MOVE    TAC,RCXCCW      ;*PICK UP THE FINAL VALUE FO THE CHANNEL CONTROL WORD.  \r
        CAMN    TAC,RCXFIN      ;*DOES IT AGREE WITH THE SAVED VALUE WE EXPECTED ?\r
        JRST    DFINT           ;*YES, EXIT TO THE DEVICE INDEPENDENT INTERRUPT\r
                                ;* HANDLING ROUTINE IN "DSKSER".........\r
@@ -213,8 +198,24 @@ DSKNT1:    SKIPE   RCXCCW          ;*MAYBE CHANNEL WAS TURNED OFF ?
 /\r
        POP     PDP,ITEM        ;*\r
        JRST    DSKNT2          ;*\r
-\f\r
-;SUBROUTINE TO CONVERT LOGICAL BLOCK NUMBERS TO PHYSICAL DISK ADDRESSES\r
+\r
+\r
+\r
+\r
+\r
+;A ROUTINE CALLED DURING SYSTEM INITIALIZATION TO BE SURE DISK IS READY,\r
+; NOTE: THIS ROUTINE DESTROYS ACCUMULATOR TAC.\r
+\r
+DISKUP:        CONO    DSK,ALLERR!RESETB       ;CLEAR THE DISK SYNCHRONIZER.\r
+       CONSZ   DSK,NRDY!PSF!BUSYBT!DONEFLG     ;ANYTHING AMISS OR STUCK ?\r
+       JRST    DISKUP          ;IF SO, JUST HANGE HERE IN A LOOP.\r
+       DATAI   DSK,TAC         ;IS THE SECTOR COUNTER GOING ?\r
+       JUMPE   TAC,.-1         ;IF NOT, JUST LOOP HERE.\r
+;*** THIS LOOP ABOVE WILL OCCUR DURING INITIALIZATION IF THE DISK IS OFF-LINE. ***\r
+       HRRZI   TAC,DSKBIT      ;IF NOT, ENABLE DISK INTERRUPTS ON THE\r
+       CONO    PI,2200(TAC)    ; APPRORIATE PRIORITY INTERRUPT CHANNEL.\r
+       POPJ    PDP,            ;SUBROUTINE EXIT.....,***\r
+\f;SUBROUTINE TO CONVERT LOGICAL BLOCK NUMBERS TO PHYSICAL DISK ADDRESSES\r
 \r
 ;CALLING SEQUENCE --\r
 ;      PUSHJ   PDP,CNVBLK\r
@@ -290,4 +291,3 @@ DFORDR:     0       ;ITS  CORRESPONDING PHYSICAL DISK ADDRESS.
 \r
 >\r
 DSKEND:        END\r
-\0\0\0\0
\ No newline at end of file