*** 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..78c758fe0e899c87ecf8fca76876fd83144326a2 100644 (file)
--- a/lib/iolib/src/i$pa.asm
+++ b/lib/iolib/src/i$pa.asm
@@ -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