Commit: ea551197339ed3098ed96d60da76c78d28e75e75 - nsvtl (git)

Deriving a new dialect of Very Tiny Language from VTL-2 6800 version

Commit MetaInfo

• Revision: ea551197339ed3098ed96d60da76c78d28e75e75 (tree)
• Time: 2022-10-06 15:56:26
• Author: Joel Matthew Rees <joel.rees@gmai...>
• Commiter: Joel Matthew Rees

Log Message

Using Y in decimal conversion, analyzing powers10

Change Summary

• modified: VTL_6809_coco.asm

Incremental Difference

--- a/VTL_6809_coco.asm
+++ b/VTL_6809_coco.asm
@@ -441,12 +441,26 @@ GOTIT
 *
 * RSTRT	LBRA	START	; warm start over
 *
+PWRS10	FCB	$27	; 10000
+	FCB	$10
+	FCB	$03	; 1000
+	FCB	$E8
+	FCB	$00	; 100
+	FCB	$64
+	FCB	$00	; 10
+	FCB	$0A
+	FCB	$00	; 1
+	FCB	$01
+*
 PRNT	PULS	B	; PRINT DECIMAL
-PRNT2	LDX	#DECBUF	; CONVERT TO DECIMAL ** fix this reference later
+PRNT2	LDX	#DECBUF	; CONVERT TO DECIMAL ** fix local variables later
 	STX	CNVPTR
-	LDX	#PWRS10
-CVD1	PSHS	X
-	LDX	0,X
+*	LDX	#PWRS10
+	LEAY	PWRS10,PCR
+*CVD1	PSHS	X
+*	LDX	0,X
+CVD1
+	LDX	0,Y
 	STX	VARADR
 	LDX	#VARADR
 	LBSR	DIVIDE
@@ -458,9 +472,11 @@ CVD1	PSHS	X
 	PULS	A
 	LEAX	1,X
 	STX	CNVPTR
-	PULS	X
-	LEAX	2,X
-	TST	1,X
+*	PULS	X
+*	LEAX	2,X
+*	TST	1,X	; What is this stopping on?
+	LEAY	2,Y
+	TST	1,Y	; What is this stopping on?
 	BNE	CVD1
 *
 	LDX	#DECB_1
@@ -632,16 +648,7 @@ EVAL7	BSR	SUB2	; GT TEST
 COMBOUT	COMB
 	BRA	COMOUT
 *
-PWRS10	FCB	$27	; 10000
-	FCB	$10
-	FCB	$03	; 1000
-	FCB	$E8
-	FCB	$00	; 100
-	FCB	$64
-	FCB	$00	; 10
-	FCB	$0A
-	FCB	$00	; 1
-	FCB	$01
+* Move powers of 10 closer to what uses it.
 *
 DIVIDE	CLR	MLDVCT	; DEVIDE 16-BITS
 GOT	INC	MLDVCT