X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Fhachti%2Fsrc%2Fpl%24txt.asm;h=20efde0c88980fe5cd2df52fcdc8a8f5d96e38db;hb=7128b5732a3d25dc30c555deb213095c424956b5;hp=d100b3f692454b9033594b87937088cbb942df39;hpb=eabafccaa9119c64c3964f25035a71579de18ddd;p=h316.git

diff --git a/lib/hachti/src/pl$txt.asm b/lib/hachti/src/pl$txt.asm
index d100b3f..20efde0 100644
--- a/lib/hachti/src/pl$txt.asm
+++ b/lib/hachti/src/pl$txt.asm
@@ -1,7 +1,19 @@
 * PLOTTER TEXT OUTPUT
 *
+* PHILIPP HACHTMANN
+* 06.11.2008
 *
 *
+* USAGE:
+* 
+*	CALL    PL$TXT
+*	DAC     STACK           POINTER TO INITIALIZED STACK
+*       DAC     TEXT            POINTER TO TEXT
+*       DAC     LENGTH          POINTER TO TEXT LENGTH
+*       DAC     0               ZERO FOR FORTRAN IV COMPATIBILITY
+* 
+*       CALL    PL$NL
+* 
 	SUBR	PL$TXT,FPTX
 	SUBR	PL$TNL,NEWL
 *
@@ -60,9 +72,6 @@ FPTX	DAC	**	FORTRAN TEXT OUTPUT ROUTINE
 	LDA	TWDH
 	JMP*	FPTX	RETURN TO CALLER
 *
-* TXTP	DAC	TXTT
-* TXTT	BCI	10,Philipp VOID                
-* 	DAC	0
 ********************************************************************************
 *
 *
@@ -91,7 +100,7 @@ TEGO	LGR	8	TAKE DOWN UPPER CHARACTER
 	ANA	='177	MASK OUT PARITY BIT
 	JST	PLG	DRAW GLYPH
 	ADD	TWDH
-	STA	TWDH
+	STA	TWDH	ACCOUNT FOR TEXT WIDTH
 *
 	IRS	BLEN	INCREMENT CHARACTER COUNTER
 	SKP
@@ -102,7 +111,7 @@ TEGO	LGR	8	TAKE DOWN UPPER CHARACTER
 *
 	JST	PLG	LIKE ABOVE
 	ADD	TWDH
-	STA	TWDH
+	STA	TWDH	ACCOUNT FOR TEXT WIDTH
 * 
 *
 	IRS	BLEN
@@ -119,7 +128,7 @@ SDA2	DAC	**
 	DAC	ZERO
 	DAC	*
 * 
-	JMP*	TXIN	THAT'S IT, WE GO HOME.
+	JMP*	TXIN	THAT'S IT, RETURN
 *
 *
 *