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

diff --git a/lib/hachti/src/pl$txt.asm b/lib/hachti/src/pl$txt.asm
index 9566dfa..20efde0 100644
--- a/lib/hachti/src/pl$txt.asm
+++ b/lib/hachti/src/pl$txt.asm
@@ -72,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
 ********************************************************************************
 *
 *
@@ -103,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
@@ -114,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
@@ -131,7 +128,7 @@ SDA2	DAC	**
 	DAC	ZERO
 	DAC	*
 * 
-	JMP*	TXIN	THAT'S IT, WE GO HOME.
+	JMP*	TXIN	THAT'S IT, RETURN
 *
 *
 *