*** empty log message ***

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

diff --git a/lib/hachti/src/pl$u.asm b/lib/hachti/src/pl$u.asm
index 19ee7dac8a33f243302597414e258aca1550d199..51b49812f61f8be0acaa9a4790537fd7bf5bbba3 100644 (file)
--- a/lib/hachti/src/pl$u.asm
+++ b/lib/hachti/src/pl$u.asm
@@ -55,28 +55,33 @@ PADR        EQU     '40     PORT ADDRESS OF THE PLOTTER INTERFACE
        SUBR    PL$R,RGHT
        SUBR    PL$L,LEFT
        SUBR    PL$PU,PENU
-       SUBR    PL$PD,PEND
+       SUBR    PL$PD,PEND
        SUBR    PL$UR,UR
        SUBR    PL$UL,UL
        SUBR    PL$DR,DR
        SUBR    PL$DL,DL
 *
 *
-       REL             THIS IS A RELOCATABLE OBJECT
+       REL             THIS IS A RELOCATEABLE OBJECT
        ORG     '0
 *
-*
+* 
 OUT    DAC     **      DO THE MOVEMENT
        OTA     PADR
        JMP     *-1
 *
-*      LDA     =-'10000
-*      AOA
-*      SZE
-*      JMP     *-2
-*
+*      LDA     =-1
+*      STA     CNT     
+*      LDA     =-1000
+* LLL  AOA
+*      SZE
+*      JMP     LLL
+*      IRS     CNT
+*      JMP     LLL
+* 
        JMP*    OUT
-*
+* 
+* CNT  DAC     **
 *      
 UP     DAC     **
        LDA     CUP
@@ -111,6 +116,7 @@ PENU        DAC     **
        LDA     CPNU
        JST     OUT
        JMP*    PENU
+CPNU   OCT     '20
 *
 *      
 PEND   DAC     **
@@ -121,6 +127,7 @@ PEND        DAC     **
        JST     OUT
        IRS     PEN
        JMP*    PEND
+CPND   OCT     '40
 *
 *
 UL     DAC     **
@@ -135,6 +142,7 @@ UR  DAC     **
        ADD     CRGT
        JST     OUT
        JMP*    UR
+CUP    OCT     '1
 *
 *
 DL     DAC     **
@@ -142,6 +150,7 @@ DL  DAC     **
        ADD     CLFT
        JST     OUT
        JMP*    DL
+CLFT   OCT     '4
 *
 *
 DR     DAC     **
@@ -149,15 +158,11 @@ DR        DAC     **
        ADD     CRGT
        JST     OUT
        JMP*    DR
-*
+CRGT   OCT     '10
+CDWN   OCT     '2
+* 
 *
 *                      CONSTANTS
-CUP    OCT     '1
-CDWN   OCT     '2
-CLFT   OCT     '4
-CRGT   OCT     '10
-CPNU   OCT     '20
-CPND   OCT     '40
 *
 PEN    DEC     0       PEN STATE: 1=DOWN
 *