Commit: b163b0691f356186b723b0fb17b9ec007e54b44a - nsvtl (git)

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

Commit MetaInfo

• Revision: b163b0691f356186b723b0fb17b9ec007e54b44a (tree)
• Time: 2022-10-02 20:39:00
• Author: Joel Matthew Rees <joel.rees@gmai...>
• Commiter: Joel Matthew Rees

Log Message

More Y conversions

Change Summary

• modified: VTL_6809_coco.asm

Incremental Difference

--- a/VTL_6809_coco.asm
+++ b/VTL_6809_coco.asm
@@ -378,8 +378,6 @@ OPEN	LDX	AMPR	; CALCULATE NEW END
 	CMPY	STAR
 	LBHS	START
 
-* Changes to here known to be functional 10/01
-
 *	LDX	AMPR
 **	LDS	INSPTR	; Remember that the 6800/6801 stack is postdecrement push.
 **	STS	AMPR
@@ -409,26 +407,33 @@ SLIDE	LDB	,-X
 DON
 	LDD	DOLR	; STORE LINE #
 	STD	0,X	; ** Note MSB1st byte order implicit dependency here! ** 
-	STX	DST	; will skip by offset on store
-*	LDS	EDTLIN	; GET NEW LINE
-*	DES		; pre-increment
-	LDD	EDTLIN	; GET NEW LINE
-	STD	SRC
-*
-*MOVL	INX		; INSERT NEW LINE (skip over LINE # hi byte)
-*	PULB
-*	STAB	1,X	; (skips over low byte, BTW)
-MOVL	LDX	SRC
-	LDB	,X+
-	STX	SRC
-	LDX	DST
+*	STX	DST	; will skip by offset on store
+**	LDS	EDTLIN	; GET NEW LINE
+**	DES		; pre-increment
+*	LDD	EDTLIN	; GET NEW LINE
+*	STD	SRC
+	LDY	EDTLIN	; GET NEW LINE
+*
+**MOVL	INX		; INSERT NEW LINE (skip over LINE # hi byte)
+**	PULB
+**	STAB	1,X	; (skips over low byte, BTW)
+*MOVL	LDX	SRC
+*	LDB	,X+
+*	STX	SRC
+MOVL	LDB	,Y+
+*	LDX	DST
+*	LEAX	1,X		; skip over what was already stored (too tricky for words).
+*	STX	DST
 	LEAX	1,X		; skip over what was already stored (too tricky for words).
-	STX	DST
 	STB	1,X	; note offset store
 	BNE	MOVL	; until NUL stored
+
+* Changes to here known to be functional 10/01
+
 *
 GOTIT
 *	LDS	#STACK	; Ready for a new line of input.
+	LDU	#STACK	; Ready for a new line of input.
 	LDS	STKMRK	; restore from mark
 	LBRA	LOOP
 *