projects
/
h316.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
.gitignore again
[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
*
*
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
*
*
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 RELOCAT
E
ABLE OBJECT
ORG '0
*
*
ORG '0
*
*
@@
-78,7
+78,6
@@
OUT DAC ** DO THE MOVEMENT
* JMP LLL
* IRS CNT
* JMP LLL
* JMP LLL
* IRS CNT
* JMP LLL
-*
*
JMP* OUT
*
*
JMP* OUT
*
@@
-117,6
+116,7
@@
PENU DAC **
LDA CPNU
JST OUT
JMP* PENU
LDA CPNU
JST OUT
JMP* PENU
+CPNU OCT '20
*
*
PEND DAC **
*
*
PEND DAC **
@@
-127,6
+127,7
@@
PEND DAC **
JST OUT
IRS PEN
JMP* PEND
JST OUT
IRS PEN
JMP* PEND
+CPND OCT '40
*
*
UL DAC **
*
*
UL DAC **
@@
-141,6
+142,7
@@
UR DAC **
ADD CRGT
JST OUT
JMP* UR
ADD CRGT
JST OUT
JMP* UR
+CUP OCT '1
*
*
DL DAC **
*
*
DL DAC **
@@
-148,6
+150,7
@@
DL DAC **
ADD CLFT
JST OUT
JMP* DL
ADD CLFT
JST OUT
JMP* DL
+CLFT OCT '4
*
*
DR DAC **
*
*
DR DAC **
@@
-155,15
+158,11
@@
DR DAC **
ADD CRGT
JST OUT
JMP* DR
ADD CRGT
JST OUT
JMP* DR
-*
+CRGT OCT '10
+CDWN OCT '2
+*
*
* CONSTANTS
*
* 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
*
*
PEN DEC 0 PEN STATE: 1=DOWN
*