*
* REVISIONS:
* 1.0 (2007-05-27)
+* 1.1 (2007-11-08) - ADDED PEN POSITION TRACKING
+* TO PL$PU AND PL$PD
*
* AUTHOR:
*
*
* STORAGE:
*
-* ??? (OCTAL)
-* ??? (DECIMAL)
+* 100 (OCTAL)
+* 64 (DECIMAL)
*
*
* USAGE:
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
*
*
PENU DAC **
+ LDA PEN
+ SNZ
+ JMP* PENU
+ CRA
+ STA PEN
LDA CPNU
JST OUT
JMP* PENU
*
*
PEND DAC **
+ LDA PEN
+ SZE
+ JMP* PEND
LDA CPND
JST OUT
+ IRS PEN
JMP* PEND
*
*
CPNU OCT '20
CPND OCT '40
*
+PEN DEC 0 PEN STATE: 1=DOWN
*
END