*** 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)
+*            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:       
@@ -95,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
 *
 *
@@ -142,5 +153,6 @@ CRGT        OCT     '10
 CPNU   OCT     '20
 CPND   OCT     '40
 *
+PEN    DEC     0       PEN STATE: 1=DOWN
 *
        END