projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** 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
*
REL THIS IS A RELOCATABLE OBJECT
ORG '0
*
-*
+*
OUT DAC ** DO THE MOVEMENT
OTA PADR
JMP *-1
*
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
JMP* OUT
-*
+*
+* CNT DAC **
*
UP DAC **
LDA CUP
*
UP DAC **
LDA CUP