Added version 10 of basic.

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

diff --git a/src/ptrser.mac b/src/ptrser.mac
index fd8b81e..244d665 100644 (file)
--- a/src/ptrser.mac
+++ b/src/ptrser.mac
@@ -6,12 +6,18 @@ EXTERNAL  STOSQD,ILLOUT
 EXTERNAL STODAT, IOSET, SETBYT, ADVBFF\r
 EXTERNAL SETIOD, PTRSAV, PTRCHN,PIOMOD\r
 EXTERNAL SETACT,STOIOS,CPOPJ1,PTRMSK\r
-INTERNAL PTRINT,PRTDSP\r
+INTERNAL PTRINT,PTRDSP\r
 \r
 ;PTR DEVICE DATA BLOCK LINKAGE\r
 \r
+\r
+\r
+\r
+\r
 ENTRY PTRSER\r
 PTRSER:\r
+\r
+\r
 \f,PARAMETER ASSIGNMENTS\r
 ,   PTR CONTROL REGISTER\r
        PTRDON=10               ;DONE FLAG\r
@@ -50,7 +56,9 @@ PTRSVC:       0
 PTRSV1:        0\r
 PTRCON:        0\r
 >\r
-\f,PTR SERVICE DISPATCH TABLE\r
+\f\r
+\r
+,PTR SERVICE DISPATCH TABLE\r
        JRST PTRINI     ;INITILIZE\r
        JRST    PTRREL          ;HUNG DEVICE TIME-OUT ERROR.\r
 PTRDSP:        JRST PTRREL             ;RELEASE\r
@@ -63,25 +71,26 @@ PTRDSP:     JRST PTRREL             ;RELEASE
        PUSHJ PDP,SETBYT        ;TAC0-5:=TAC12-13:=0,TAC6-11:=BYTE SIZE\r
                                ;TAC14-17:=PROG\r
        MOVEM TAC,PTRPTR        ;PTRPTR:=C(TAC)\r
-       CONSZ PTR,POW           ;IS POWER ON?>\r
-       TLO IOS,PTRPOW          LYES. PTRPOW:=1\r
+       CONSZ PTR,POW           ;IS POWER ON?\r
+       TLO IOS,PTRPOW          ;YES. PTRPOW:=1\r
 PTRIN1:\r
        MOVEI TAC1,PTRBSY\r
        TLZN IOS,IOBEG          ;VIRGIN?\r
        MOVEI TAC1,PTRDON       ;NO\r
 \r
        TLNN    IOS,PTRPOW\r
-       ANDI TAC1,PTRMSK                ;PTRMSK IUS DEFINED IN BUILD AS -1 PDP-6 AND 0 PDP-10\r
+       ANDI TAC1,PTRMSK                ;PTRMSK IS DEFINED IN BUILD AS -1 PDP-6 AND 0 PDP-10\r
        PUSHJ PDP,SETACT        ;IOACT:=1\r
        MOVEI TAC,PTRCHN(TAC1)\r
        LDB TAC1,PIOMOD\r
-       CAIE TAC1,1B            ;IMAGE BINARY?\r
+       CAIE TAC1,IB            ;IMAGE BINARY?\r
        CAIN TAC1,B             ;OR BINARY\r
        IORI TAC,PTRBIN\r
        HRLI TAC,PTRDON\r
        STARTDV PTR\r
        POPJ PDP,\r
-\fPTRINT:       CONSO PTR,@PTRCON\r
+\f\r
+PTRINT:        CONSO PTR,@PTRCON\r
        JRST    PTRINT\r
        SKIPL PTRIOS            ;DISCONNECT REQUEST? (IODISC=1?)\r
        DATAI PTR,PTRSV1        ;PTRSV1:=DATA ITEM.\r
@@ -95,6 +104,7 @@ PTRIN1:
        TLON IOS,PTRPOW         ;PTRPOW=1? PTRPOW:=1\r
        JRST PTREX1             ;NO\r
        TLZE IOS,IODISC         ;DISCONNECT REQUEST?\r
+       JRST PTREX              ;YES\r
        TLZE IOS,PTRFCI         ;IS PTRFCI=1?\r
        MOVE DAT,PTRSVC         ;YES.  DAT:=C(PTRSVC)\r
 PTRIN0:        TRNE IOS,B              ;MODE=BINARY?\r
@@ -104,7 +114,7 @@ PTRIN0:     TRNE IOS,B              ;MODE=BINARY?
        JRST PTREX1             ;YES\r
        JUMPE DAT,PTREX1        ;DAT=0?\r
 \r
-PTRIO: PUSHJ PDP,STODAT        ;NO STORE DATA WORD.\r
+PTRI0: PUSHJ PDP,STODAT        ;NO STORE DATA WORD.\r
        JFCL                    ;CHECKSUM ERROR\r
        JRST PTRI1              ;BLOCK FULL OR BLOCK COMPLETE\r
        JRST PTREX1             ;DATA STORED CORRECTLY.\r
@@ -117,13 +127,14 @@ PTRI2:    TLO IOS,IOFST           ;IOFST:=1, NEXT ITEM IS FIRST ITEM OF A BUFFER.
        JRST PTREX1\r
 \f,COME HERE WHEN THE READER IS SHUT OFF\r
 \r
+\r
 PTREND:        TDZ IOS,[XWD PTRPOW,IOACT]      ;PTRPWO:=0,IOACT:=0\r
        PUSHJ PDP,PTRREL        ;CLEAR PTR AND CONSO FLAG\r
-       LDB TAC,IOMOD\r
-       TLO IOS,IOEND+IOREG\r
+       LDB TAC,PIOMOD\r
+       TLO IOS,IOEND+IOBEG\r
        CAIE TAC,B              ;CHECKSUM BINARY BLOCK ..OF?\r
        JRST PTREI              ;NO\r
-       TLNN IOS,IOEST          ;IOEST=1?\r
+       TLNN IOS,IOFST          ;IOFST=1?\r
        TRO IOS,IOIMPM          ;NO. BINARY BLOCK INCOMPLETE.\r
        JRST PTRI2\r
 PTREI: PUSHJ PDP,STOSQD        ;FINISH THE BUFFERE, STORE WORD COUNT\r
@@ -131,7 +142,8 @@ PTREI:      PUSHJ PDP,STOSQD        ;FINISH THE BUFFERE, STORE WORD COUNT
        PUSHJ PDP,ADVBFF        ;ADVANCE BUFFERE\r
        JFCL\r
        JRST PTRI2\r
-\f,DISCONNECT PTR\r
+\f\r
+,DISCONNECT PTR\r
 PTREX: SKIPG @PTRADR           ;IOUSE=1?\r
        JRST PTREX0             ;YES.\r
        DATAI PTR,DAT\r
@@ -154,4 +166,3 @@ PTRREL:     CONO PTR,0              ;CLEAR PTR CONTROL
        POPJ PDP,\r
 \r
        END\r
-\f\r