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
/
iolib
/
src
/
pl$u.asm
diff --git
a/lib/iolib/src/pl$u.asm
b/lib/iolib/src/pl$u.asm
index 4c0dcb61cf97a0a93e6c10e5209fe90d0a5429ff..be61b235bf8aecf8404dd7156151535056e56789 100644
(file)
--- a/
lib/iolib/src/pl$u.asm
+++ b/
lib/iolib/src/pl$u.asm
@@
-8,6
+8,8
@@
*
* REVISIONS:
* 1.0 (2007-05-27)
*
* REVISIONS:
* 1.0 (2007-05-27)
+* 1.1 (2007-11-08) - ADDED PEN POSITION TRACKING
+* TO PL$PU AND PL$PD
*
* AUTHOR:
*
*
* AUTHOR:
*
@@
-22,8
+24,8
@@
*
* STORAGE:
*
*
* STORAGE:
*
-*
???
(OCTAL)
-*
???
(DECIMAL)
+*
100
(OCTAL)
+*
64
(DECIMAL)
*
*
* USAGE:
*
*
* USAGE:
@@
-48,7
+50,6
@@
PADR EQU '40 PORT ADDRESS OF THE PLOTTER INTERFACE
*
*
PADR EQU '40 PORT ADDRESS OF THE PLOTTER INTERFACE
*
*
- SUBR PL$UP,UP
SUBR PL$U,UP
SUBR PL$D,DOWN
SUBR PL$R,RGHT
SUBR PL$U,UP
SUBR PL$D,DOWN
SUBR PL$R,RGHT
@@
-96,14
+97,23
@@
LEFT DAC **
*
*
PENU DAC **
*
*
PENU DAC **
+ LDA PEN
+ SNZ
+ JMP* PENU
+ CRA
+ STA PEN
LDA CPNU
JST OUT
JMP* PENU
*
*
PEND DAC **
LDA CPNU
JST OUT
JMP* PENU
*
*
PEND DAC **
+ LDA PEN
+ SZE
+ JMP* PEND
LDA CPND
JST OUT
LDA CPND
JST OUT
+ IRS PEN
JMP* PEND
*
*
JMP* PEND
*
*
@@
-143,5
+153,6
@@
CRGT OCT '10
CPNU OCT '20
CPND OCT '40
*
CPNU OCT '20
CPND OCT '40
*
+PEN DEC 0 PEN STATE: 1=DOWN
*
END
*
END