*** 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 d828bb6d2b4a1f5a0a2149360df3ad4d0fca1a66..51b49812f61f8be0acaa9a4790537fd7bf5bbba3 100644 (file)
--- a/lib/hachti/src/pl$u.asm
+++ b/lib/hachti/src/pl$u.asm
@@ -50,19 +50,19 @@
 PADR   EQU     '40     PORT ADDRESS OF THE PLOTTER INTERFACE
 *
 *
-*      SUBR    PL$U,UP
-*      SUBR    PL$D,DOWN
-*      SUBR    PL$R,RGHT
-*      SUBR    PL$L,LEFT
-*      SUBR    PL$PU,PENU
-       SUBR    PL$PD,PEND
+       SUBR    PL$U,UP
+       SUBR    PL$D,DOWN
+       SUBR    PL$R,RGHT
+       SUBR    PL$L,LEFT
+       SUBR    PL$PU,PENU
+       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
 *
 * 
@@ -78,7 +78,6 @@ OUT   DAC     **      DO THE MOVEMENT
 *      JMP     LLL
 *      IRS     CNT
 *      JMP     LLL
-* 
 * 
        JMP*    OUT
 * 
@@ -117,6 +116,7 @@ PENU        DAC     **
        LDA     CPNU
        JST     OUT
        JMP*    PENU
+CPNU   OCT     '20
 *
 *      
 PEND   DAC     **
@@ -127,6 +127,7 @@ PEND        DAC     **
        JST     OUT
        IRS     PEN
        JMP*    PEND
+CPND   OCT     '40
 *
 *
 UL     DAC     **
@@ -141,6 +142,7 @@ UR  DAC     **
        ADD     CRGT
        JST     OUT
        JMP*    UR
+CUP    OCT     '1
 *
 *
 DL     DAC     **
@@ -148,6 +150,7 @@ DL  DAC     **
        ADD     CLFT
        JST     OUT
        JMP*    DL
+CLFT   OCT     '4
 *
 *
 DR     DAC     **
@@ -155,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
 *