*
* PURPOSE
*
-* TO READ ASCII SOURCE TEXT FROM HIGH SPEED PAPTER TAPE READER
+* TO READ ASCII SOURCE TEXT FROM HIGH SPEED PAPER TAPE READER
*
*
* RESTRICTIONS
* 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)
* . .
* DEC TAB (N)
*
-*
+* NOTICE
+*
+* THE CHARACTER SEQUENCE 'ABS' HAS BEEN REPLACED BY 'DBS' BECAUSE THE
+* ASSEMBLER SHOWED STRANGE BEHAVIOUR
+*
********************************************************************************
*
* EXPORTED LABELS
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
* 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