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 4c23c6496ff4ed39816aa5fccbd84d70c65043af..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:
@@
-95,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
*
*
@@
-142,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