*** empty log message ***

[h316.git] / lib / hachti / src / pl$mv.asm

diff --git a/lib/hachti/src/pl$mv.asm b/lib/hachti/src/pl$mv.asm
index 36accdc9a7fe25bf6fdc25cd3db45044bae89205..133248cabcaf55c0a35b2ac8137ee5e569cfef24 100644 (file)
--- 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$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
@@ -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