X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Fiolib%2Fsrc%2Fpl%24u.asm;h=be61b235bf8aecf8404dd7156151535056e56789;hb=bf9d30c535b51bcb9841e98dc7bd6a5007f84014;hp=4c0dcb61cf97a0a93e6c10e5209fe90d0a5429ff;hpb=fcb7b340c0c50feddfd0b1a4b2df25e41c374a12;p=h316.git

diff --git a/lib/iolib/src/pl$u.asm b/lib/iolib/src/pl$u.asm
index 4c0dcb6..be61b23 100644
--- 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