*** empty log message ***

diff --git a/lib/hachti/font.config b/lib/hachti/font.config
index a464cc935c823952d858f101440581d859dec1ff..55703640c16450ec786bdbd3e1a9f431b3c0ba75 100644 (file)
--- a/lib/hachti/font.config
+++ b/lib/hachti/font.config
@@ -9,7 +9,7 @@
 #FONT=gothgbt
 
 # Der BESTE!
-#FONT=gothgrt
+FONT=gothgrt
 
 #FONT=gothicita
 #FONT=gothitt
@@ -20,7 +20,7 @@
 #FONT=hp_charset0_1
 #FONT=hp_charset0_2
 #FONT=hp_charset0_3
-FONT=hp_charset0_4
+#FONT=hp_charset0_4
 #FONT=hp_charset1_1
 #FONT=hp_charset1_2
 #FONT=hp_charset1_3

diff --git a/lib/hachti/src/pl$mv.asm b/lib/hachti/src/pl$mv.asm
index 133248cabcaf55c0a35b2ac8137ee5e569cfef24..89d360975c9b5b35c691b252ef3dc20359dd3f38 100644 (file)
--- a/lib/hachti/src/pl$mv.asm
+++ b/lib/hachti/src/pl$mv.asm
@@ -66,11 +66,11 @@
 *
 ********************************************************************************
 *       
+       SUBR    PL$RST,RST
        SUBR    PL$MV,MOVE
        SUBR    PL$X,XU
        SUBR    PL$Y,YU
        SUBR    PL$MVR,MVR
-       SUBR    PL$RST,RST
        SUBR    PL$LN,LINE
        SUBR    LINE
        SUBR    PL$RMR,RMR

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
 *
 *
 *