X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Fhachti%2Fsrc%2Fpl%24u.asm;h=e6c2db49da31995e9af78194d38d5ae0e3b98924;hb=5460594cba2e0b00899906aa123fcd8807d944e5;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..e6c2db4 100644
--- a/lib/hachti/src/pl$u.asm
+++ b/lib/hachti/src/pl$u.asm
@@ -65,18 +65,24 @@ PADR	EQU	'40	PORT ADDRESS OF THE PLOTTER INTERFACE
 	REL		THIS IS A RELOCATABLE 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