X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Fiolib%2Fsrc%2Fi%24pa.asm;h=e56f2470b65f561073cbae1ecff75a04556d9027;hb=b903ebdb10a06e57e8d90a22d638d96c4a882a23;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..e56f247 100644
--- 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