removed o$pa.asm - was completely wrong

[h316.git] / lib / iolib / src / i$pa.asm

diff --git a/lib/iolib/src/i$pa.asm b/lib/iolib/src/i$pa.asm
index 78c758fe0e899c87ecf8fca76876fd83144326a2..dc656b538fa4f3ef3d08bcf06fbd8d3fa372a67d 100644 (file)
--- a/lib/iolib/src/i$pa.asm
+++ b/lib/iolib/src/i$pa.asm
@@ -18,7 +18,7 @@
 *
 * PURPOSE
 *
-*    TO READ ASCII SOURCE TEXT FROM HIGH SPEED PAPTER TAPE READER
+*    TO READ ASCII SOURCE TEXT FROM HIGH SPEED PAPER TAPE READER
 *
 *
 * RESTRICTIONS
@@ -38,8 +38,8 @@
 *             CALL I$PA
 *             DAC (BUFFER ADDRESS)
 *
-*    I$PI - CONFIGURE O$PA
-*             CALL O$PI
+*    I$PI - CONFIGURE I$PA
+*             CALL I$PI
 *             DEC (NUMBER OF WORDS IN DATA BUFFER)
 *             DEC (NUMBER OF TABS IN FOLLOWING TABLE, IF ANY)
 *             DEC TAB (1)
@@ -140,7 +140,7 @@ NAC JST     NSRT    INSERT IN CHARACTER POSITION
 TAB    CRA             CLEAR A-REGISTER
        SUB     NTAB    TAB COUNT
        SNZ             NZ, SKIP
-       JMP     NOTB    Z, NO TDBS
+       JMP     NOTB    Z, NO TABS
 *
        STA     0       INDEX REGISTER
        LDA     TABL    TAB TABLE LINK
@@ -219,10 +219,10 @@ TABI      BSZ     1       TABLE POINTER
 * CHANGEABLE PARAMETERS
 LIM    DEC     80      BUFFER LIMIT (DEFAULT IS 80)
 NTAB   DEC     4       TAB COUNT (DEFAULT IS 4)
-TABL   DAC     TDBS    TAB TABLE LINK (DEFAULT IS TDBS)
+TABL   DAC     TABS    TAB TABLE LINK (DEFAULT IS TABS)
 *
 * DAP-16 TAB SETTINGS
-TDBS   DEC     6       OPERATION FIELD
+TABS   DEC     6       OPERATION FIELD
        DEC     12      VARIABLE FIELD
        DEC     30      COMMENTS FIELD
        DEC     73      IDENTIFICATION FIELD