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

diff --git a/lib/hachti/src/pl$u.asm b/lib/hachti/src/pl$u.asm
index e6c2db4..51b4981 100644
--- a/lib/hachti/src/pl$u.asm
+++ b/lib/hachti/src/pl$u.asm
@@ -55,14 +55,14 @@ 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
 *
 * 
@@ -78,7 +78,6 @@ OUT	DAC	**	DO THE MOVEMENT
 * 	JMP	LLL
 * 	IRS	CNT
 * 	JMP	LLL
-* 
 * 
 	JMP*	OUT
 * 
@@ -117,6 +116,7 @@ PENU	DAC	**
 	LDA	CPNU
 	JST	OUT
 	JMP*	PENU
+CPNU	OCT	'20
 *
 *	
 PEND	DAC	**
@@ -127,6 +127,7 @@ PEND	DAC	**
 	JST	OUT
 	IRS	PEN
 	JMP*	PEND
+CPND	OCT	'40
 *
 *
 UL	DAC	**
@@ -141,6 +142,7 @@ UR	DAC	**
 	ADD	CRGT
 	JST	OUT
 	JMP*	UR
+CUP	OCT	'1
 *
 *
 DL	DAC	**
@@ -148,6 +150,7 @@ DL	DAC	**
 	ADD	CLFT
 	JST	OUT
 	JMP*	DL
+CLFT	OCT	'4
 *
 *
 DR	DAC	**
@@ -155,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
 *