Added version 10 of basic.

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

diff --git a/src/pltser.mac b/src/pltser.mac
index 8af014f..ba07460 100644 (file)
--- a/src/pltser.mac
+++ b/src/pltser.mac
@@ -21,12 +21,13 @@ PLTADR: XWD PROG,0
 PLTCTR:        0                       ;OUTPUT BYTE COUNTER\r
 \r
 EXTERNAL OUT,SETACT,PLTCHN,PLTCHL,IOSET,ADVBFE,ADRERR,CPOPJ1\r
-EXTERNAL SETIOD,STOIOS,CLRACT,IULLINP,PLTSAV,IADRCK\r
+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,24 +75,25 @@ 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
 PLT2:  TLZE IOS,IOW\r
-       PUSHJ PDP,SETIUOD       ;LET JOB START AGAIN\r
+       PUSHJ PDP,SETIOD        ;LET JOB START AGAIN\r
        JRST STOIOS             ;EVENTUALLY DISMISS INTERRUPT. IF ADVBFE\r
                                ;FOUND MORE DATA (IT SKIPPED), ANOTHER\r
                                ;INTERRUPT WILL IMMEDIATELY OCCUR BUT\r
                                ;IT WILL BE HANDLED WITHOUT GOING TO PLT1\r
 \r
 PLTOFF:        CONO PLT,0              ;SHUT DOWN PLOTTER\r
-       HLLSZ PLTINT            ;REMOVE PLOTTER FROM CHAIN\r
+       HLLZS PLTINT            ;REMOVE PLOTTER FROM CHAIN\r
        PUSHJ PDP,CLRACT\r
        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