Cleanup more typos.

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

diff --git a/src/pltser.mac b/src/pltser.mac
index f7b68b1..ba07460 100644 (file)
--- a/src/pltser.mac
+++ b/src/pltser.mac
@@ -24,9 +24,10 @@ EXTERNAL OUT,SETACT,PLTCHN,PLTCHL,IOSET,ADVBFE,ADRERR,CPOPJ1
 EXTERNAL SETIOD,STOIOS,CLRACT,ILLINP,PLTSAV,IADRCK\r
 \r
 INTERN PLTDDB,PLTINT,PLTDSP\r
-\f;DISPATCH TABLE\r
+\f\r
+;DISPATCH TABLE\r
 \r
-       JRST PLTINT             ;INITIALIZE\r
+       JRST PLTINI             ;INITIALIZE\r
        JRST PLTHNG             ;HUNG DEVICE ERROR\r
 PLTDSP:        JRST PLTREL             ;RELEASE\r
        JRST PLTCLS             ;CLOSE\r
@@ -43,7 +44,7 @@ PLTREL:       CONO PLT,0              ;DEASSIGN PI CHANNEL, CLEAR DONE
        HLLZS PLTINT            ;REMOVE PLOTTER FROM DEVICE CHAIN\r
        POPJ PDP,\r
 \r
-\f;HERE BEGINS THE "OUTPUT" UUO\r
+;HERE BEGINS THE "OUTPUT" UUO\r
 \r
 PLTOUT:        PUSHJ PDP,PLTSET        ;SETUP BYTE POINTER AND COUNTER\r
         JRST ADRERR            ;ADDRESS ERR RETURN FROM PLTSET\r
@@ -56,7 +57,7 @@ PLTOUT:       PUSHJ PDP,PLTSET        ;SETUP BYTE POINTER AND COUNTER
        JRST .+3                ;NO\r
        MOVEI TAC,40            ;YES, START PLOTTER WITH PEN UP\r
        TLZ IOS,PLTUP           ;INIT "CLOSE" BIT\r
-       MOVE IOS,PLTIOS\r
+       MOVEM IOS,PLTIOS\r
        DATAO PLT,TAC           ;START PLOTTER BY SENDING 0 OR 40\r
        POPJ PDP,\r
 \f;FROM HERE THROUGH PLTOFF IS INTERRUPT SERVICE\r
@@ -74,7 +75,7 @@ PLTINT:       CONSO PLT,10            ;PLOTTER DONE FLAG SET?
 PLT1:  JSR PLTSAV              ;SAVE AC'S. SET UP PUSH DOWN POINTER\r
        MOVEI DEVDAT,PLTDDB\r
        PUSHJ PDP,IOSET         ;SETS UP PROG AND IOS\r
-       PUSHJ PDP,ADVBFE        ;ADVANCE AND LOOK AT NEXT BUFFERE\r
+       PUSHJ PDP,ADVBFE        ;ADVANCE AND LOOK AT NEXT BUFFER\r
         JRST PLTOFF            ;NO MORE DATA AVAILABLE\r
        PUSHJ PDP,PLTSET        ;SETUP BYTE POINTER AND COUNTER\r
         JRST PLTOFF            ;ADDRESS ERROR RET FROM PLTSET\r
@@ -91,7 +92,8 @@ PLTOFF:       CONO PLT,0              ;SHUT DOWN PLOTTER
        TLZE IOS,PLTUP          ;HAS THE "CLOSE" BEEN DONE?\r
        DATAO PLT,[40]          ;YES, LIFT PEN\r
        JRST PLT2\r
-\f;THIS SUBROUTINE CALCULATES A BYTE POINTER AND A BYTE COUNTER FOR\r
+\f\r
+;THIS SUBROUTINE CALCULATES A BYTE POINTER AND A BYTE COUNTER FOR\r
 ;THE BUFFER TO BE OUPUT, THE LAST WORD OF BUFFER IS ADR CHECKED TO BE IN USER AREA\r
 ;      PUSHJ PDP,PLTSET\r
 ;         RETURN 1     ;ADDRESS ERROR RETURN\r
@@ -101,7 +103,7 @@ PLTSET:     MOVEI TAC,@PLTADR       ;GET ADDRESS OF CURRENT BUFFER
        ADD TAC,[POINT 6,1,35]  ;CONVERT TO 6 BIT BYTE POINTER WITH\r
                                ;ADDRESS OF BUFFER WORD COUNT\r
        TRNN IOS,16             ;IS THIS A TEST DATA MODE?\r
-       TLO TAC,[POINT 7,0,35]  ;YES, CONVERT TO 7 BIT BYTE POINTER\r
+       TLO TAC,(POINT 7,0,35)  ;YES, CONVERT TO 7 BIT BYTE POINTER\r
        MOVEM TAC,PLTPTR        ;SAVE BYTE POINTER\r
        HRRZ TAC,@TAC           ;GET BUFFER WORD COUNT\r
        MOVEM TAC,PLTCTR        ;SAVE AS POSITIVE WORD COUNT\r