X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Fhachti%2Fsrc%2Fpl%24mv.asm;h=133248cabcaf55c0a35b2ac8137ee5e569cfef24;hb=23208140e9463411bf374e1cdba7b75e755d0860;hp=3a142f7cce6411f14518a683d6cdb94c835dca7f;hpb=eabafccaa9119c64c3964f25035a71579de18ddd;p=h316.git

diff --git a/lib/hachti/src/pl$mv.asm b/lib/hachti/src/pl$mv.asm
index 3a142f7..133248c 100644
--- a/lib/hachti/src/pl$mv.asm
+++ b/lib/hachti/src/pl$mv.asm
@@ -65,15 +65,15 @@
 *              CALL	PL$IDN - RESET TRANSFORMATION MATRIX
 *
 ********************************************************************************
-*
-*
+*       
 	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
-	SUBR	PL$X,UX
-	SUBR	PL$Y,UY
 	SUBR	PL$MAT,ATRA
 	SUBR	PL$SCL,SCLE
 	SUBR	PL$SCI,SCLI
@@ -135,6 +135,7 @@ INIT	DAC	**
 	STA	RELA
 	CALL	T$INIT
 	DAC	ATRA
+	CALL	PL$PU
 	JMP*	INIT
 *  
 * 
@@ -473,6 +474,7 @@ ROT	DAC	**
 	LDA*	ROT
 	STA	FCR2
 	IRS	ROT
+	IRS	ROT
 	CALL	T$ROT
 	DAC	ATRA
 FCR2	DAC	0