From: hachti <hachti>
Date: Fri, 6 Mar 2009 22:49:24 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://gitweb.hachti.de/?a=commitdiff_plain;h=7128b5732a3d25dc30c555deb213095c424956b5;p=h316.git

*** empty log message ***
---

diff --git a/lib/hachti/font.config b/lib/hachti/font.config
index a464cc9..5570364 100644
--- 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 133248c..89d3609 100644
--- 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 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
 *
 *
 *