*** 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 d100b3f692454b9033594b87937088cbb942df39..20efde0c88980fe5cd2df52fcdc8a8f5d96e38db 100644 (file)
--- 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
 *
 *
 *