X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Fhachti%2Fsrc%2Fpl%24u.asm;h=51b49812f61f8be0acaa9a4790537fd7bf5bbba3;hb=7128b5732a3d25dc30c555deb213095c424956b5;hp=19ee7dac8a33f243302597414e258aca1550d199;hpb=8fac3a64e23edb8f2cd4cdc28631d603075de709;p=h316.git

diff --git a/lib/hachti/src/pl$u.asm b/lib/hachti/src/pl$u.asm
index 19ee7da..51b4981 100644
--- a/lib/hachti/src/pl$u.asm
+++ b/lib/hachti/src/pl$u.asm
@@ -55,28 +55,33 @@ PADR	EQU	'40	PORT ADDRESS OF THE PLOTTER INTERFACE
 	SUBR	PL$R,RGHT
 	SUBR	PL$L,LEFT
 	SUBR	PL$PU,PENU
-	SUBR	PL$PD,PEND
+   	SUBR	PL$PD,PEND
 	SUBR	PL$UR,UR
 	SUBR	PL$UL,UL
 	SUBR	PL$DR,DR
 	SUBR	PL$DL,DL
 *
 *
-	REL		THIS IS A RELOCATABLE OBJECT
+	REL		THIS IS A RELOCATEABLE OBJECT
 	ORG	'0
 *
-*
+* 
 OUT	DAC	**	DO THE MOVEMENT
 	OTA	PADR
 	JMP	*-1
 *
-*	LDA	=-'10000
-*	AOA
-*	SZE
-*	JMP	*-2
-*
+* 	LDA	=-1
+* 	STA	CNT	
+*  	LDA	=-1000
+* LLL	AOA
+* 	SZE
+* 	JMP	LLL
+* 	IRS	CNT
+* 	JMP	LLL
+* 
 	JMP*	OUT
-*
+* 
+* CNT	DAC	**
 *	
 UP	DAC	**
 	LDA	CUP
@@ -111,6 +116,7 @@ PENU	DAC	**
 	LDA	CPNU
 	JST	OUT
 	JMP*	PENU
+CPNU	OCT	'20
 *
 *	
 PEND	DAC	**
@@ -121,6 +127,7 @@ PEND	DAC	**
 	JST	OUT
 	IRS	PEN
 	JMP*	PEND
+CPND	OCT	'40
 *
 *
 UL	DAC	**
@@ -135,6 +142,7 @@ UR	DAC	**
 	ADD	CRGT
 	JST	OUT
 	JMP*	UR
+CUP	OCT	'1
 *
 *
 DL	DAC	**
@@ -142,6 +150,7 @@ DL	DAC	**
 	ADD	CLFT
 	JST	OUT
 	JMP*	DL
+CLFT	OCT	'4
 *
 *
 DR	DAC	**
@@ -149,15 +158,11 @@ DR	DAC	**
 	ADD	CRGT
 	JST	OUT
 	JMP*	DR
-*
+CRGT	OCT	'10
+CDWN	OCT	'2
+* 
 *
 *			CONSTANTS
-CUP	OCT	'1
-CDWN	OCT	'2
-CLFT	OCT	'4
-CRGT	OCT	'10
-CPNU	OCT	'20
-CPND	OCT	'40
 *
 PEN	DEC	0	PEN STATE: 1=DOWN
 *