*** empty log message ***

[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 a5e3033dd295f33fd6bf848132737f6a505eae03..e56f2470b65f561073cbae1ecff75a04556d9027 100644 (file)
--- a/lib/iolib/src/i$pa.asm
+++ b/lib/iolib/src/i$pa.asm
@@ -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)
@@ -49,7 +49,11 @@
 *              .    .
 *             DEC TAB (N)
 *
-*     
+* NOTICE
+*
+*      THE CHARACTER SEQUENCE 'ABS' HAS BEEN REPLACED BY 'DBS' BECAUSE THE 
+*      ASSEMBLER SHOWED STRANGE BEHAVIOUR
+*           
 ********************************************************************************
 *
 * EXPORTED LABELS
@@ -136,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 TABS
+       JMP     NOTB    Z, NO TDBS
 *
        STA     0       INDEX REGISTER
        LDA     TABL    TAB TABLE LINK
@@ -215,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     TABS    TAB TABLE LINK (DEFAULT IS TABS)
+TABL   DAC     TDBS    TAB TABLE LINK (DEFAULT IS TDBS)
 *
 * DAP-16 TAB SETTINGS
-TABS   DEC     6       OPERATION FIELD
+TDBS   DEC     6       OPERATION FIELD
        DEC     12      VARIABLE FIELD
        DEC     30      COMMENTS FIELD
        DEC     73      IDENTIFICATION FIELD