*** 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..e6c2db49da31995e9af78194d38d5ae0e3b98924 100644 (file)
--- a/lib/hachti/src/pl$u.asm
+++ b/lib/hachti/src/pl$u.asm
@@ -65,18 +65,24 @@ PADR        EQU     '40     PORT ADDRESS OF THE PLOTTER INTERFACE
        REL             THIS IS A RELOCATABLE 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