*** 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)
+*            1.1 (2007-11-08) - ADDED PEN POSITION TRACKING
+*                               TO PL$PU AND PL$PD
 *
 * AUTHOR:      
 *
@@ -22,8 +24,8 @@
 *    
 * STORAGE:     
 *
-*    ??? (OCTAL)
-*    ??? (DECIMAL)
+*    100 (OCTAL)
+*     64 (DECIMAL)
 *
 *
 * USAGE:       
@@ -48,7 +50,6 @@
 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
@@ -96,14 +97,23 @@ LEFT        DAC     **
 *
 *
 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
 *
 *
@@ -143,5 +153,6 @@ CRGT        OCT     '10
 CPNU   OCT     '20
 CPND   OCT     '40
 *
+PEN    DEC     0       PEN STATE: 1=DOWN
 *
        END