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

diff --git a/lib/hachti/src/pl$u.asm b/lib/hachti/src/pl$u.asm
index d828bb6..51b4981 100644
--- a/lib/hachti/src/pl$u.asm
+++ b/lib/hachti/src/pl$u.asm
@@ -50,19 +50,19 @@
 PADR	EQU	'40	PORT ADDRESS OF THE PLOTTER INTERFACE
 *
 *
-*	SUBR	PL$U,UP
-*	SUBR	PL$D,DOWN
-*	SUBR	PL$R,RGHT
-*	SUBR	PL$L,LEFT
-* 	SUBR	PL$PU,PENU
-	SUBR	PL$PD,PEND
+	SUBR	PL$U,UP
+	SUBR	PL$D,DOWN
+	SUBR	PL$R,RGHT
+	SUBR	PL$L,LEFT
+	SUBR	PL$PU,PENU
+   	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
 *