*** empty log message ***

[h316.git] / lib / hachti / src / pl$txt.asm

diff --git a/lib/hachti/src/pl$txt.asm b/lib/hachti/src/pl$txt.asm
index 9566dfadb61a7efbbc086740a539b990af81ab04..20efde0c88980fe5cd2df52fcdc8a8f5d96e38db 100644 (file)
--- 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
 *
 *
 *