X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Fiolib%2Fsrc%2Fi%24pa.asm;h=dc656b538fa4f3ef3d08bcf06fbd8d3fa372a67d;hb=c6be4ceec9e04d59a5538fa5c7b8464f42f8dd98;hp=78c758fe0e899c87ecf8fca76876fd83144326a2;hpb=8acc03e2c9cabeffe39ddf10f6832a35ebe29d87;p=h316.git

diff --git a/lib/iolib/src/i$pa.asm b/lib/iolib/src/i$pa.asm
index 78c758f..dc656b5 100644
--- a/lib/iolib/src/i$pa.asm
+++ b/lib/iolib/src/i$pa.asm
@@ -18,7 +18,7 @@
 *
 * PURPOSE
 *
-*    TO READ ASCII SOURCE TEXT FROM HIGH SPEED PAPTER TAPE READER
+*    TO READ ASCII SOURCE TEXT FROM HIGH SPEED PAPER TAPE READER
 *
 *
 * RESTRICTIONS
@@ -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)
@@ -140,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 TDBS
+	JMP	NOTB	Z, NO TABS
 *
 	STA	0	INDEX REGISTER
 	LDA	TABL	TAB TABLE LINK
@@ -219,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	TDBS	TAB TABLE LINK (DEFAULT IS TDBS)
+TABL	DAC	TABS	TAB TABLE LINK (DEFAULT IS TABS)
 *
 * DAP-16 TAB SETTINGS
-TDBS	DEC	6	OPERATION FIELD
+TABS	DEC	6	OPERATION FIELD
 	DEC	12	VARIABLE FIELD
 	DEC	30	COMMENTS FIELD
 	DEC	73	IDENTIFICATION FIELD