X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Fhachti%2Fsrc%2Fpl%24mv.asm;h=6e314c943645f2739e24933c42f163351b99226a;hb=c0fc7e111cb540730e471bc795309f65cf32a512;hp=36accdc9a7fe25bf6fdc25cd3db45044bae89205;hpb=cd1f85ce2ff24ee972445cf73b746b3b00c7e092;p=h316.git

diff --git a/lib/hachti/src/pl$mv.asm b/lib/hachti/src/pl$mv.asm
index 36accdc..6e314c9 100644
--- a/lib/hachti/src/pl$mv.asm
+++ b/lib/hachti/src/pl$mv.asm
@@ -65,16 +65,15 @@
 *              CALL	PL$IDN - RESET TRANSFORMATION MATRIX
 *
 ********************************************************************************
-*
-*
+*       
 	SUBR	PL$MV,MOVE
-	SUBR	PL$MVR,MVR
 	SUBR	PL$RST,RST
+	SUBR	PL$X,XU
+	SUBR	PL$Y,YU
+	SUBR	PL$MVR,MVR
 	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
@@ -136,6 +135,7 @@ INIT	DAC	**
 	STA	RELA
 	CALL	T$INIT
 	DAC	ATRA
+	CALL	PL$PU
 	JMP*	INIT
 *  
 * 
@@ -474,6 +474,7 @@ ROT	DAC	**
 	LDA*	ROT
 	STA	FCR2
 	IRS	ROT
+	IRS	ROT
 	CALL	T$ROT
 	DAC	ATRA
 FCR2	DAC	0