X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Fiolib%2Fsrc%2Fi%24pa.asm;h=78c758fe0e899c87ecf8fca76876fd83144326a2;hb=8acc03e2c9cabeffe39ddf10f6832a35ebe29d87;hp=a5e3033dd295f33fd6bf848132737f6a505eae03;hpb=c08e22bbb226696a64764be9b466a02a3ab0d93f;p=h316.git diff --git a/lib/iolib/src/i$pa.asm b/lib/iolib/src/i$pa.asm index a5e3033..78c758f 100644 --- 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