Commit: 0ee453130d83ba00fbac25efff9454790354d7e3 - nsvtl (git)

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

Commit MetaInfo

• Revision: 0ee453130d83ba00fbac25efff9454790354d7e3 (tree)
• Time: 2022-09-25 21:54:30
• Author: Joel Matthew Rees <joel.rees@gmai...>
• Commiter: Joel Matthew Rees

Log Message

removed debugging pokes to screen

Change Summary

• modified: VTL_6809_coco_translit.asm

Incremental Difference

--- a/VTL_6809_coco_translit.asm
+++ b/VTL_6809_coco_translit.asm
@@ -189,38 +189,27 @@ PROBET	CMPX	#COLD
 	BLO	PROBE	; CMPX on 6809 works right.
 NOTRAM	LEAX	-1,X
 	STX	STAR
-*	STX	$402	; DBG
 START
-	STX	$400	; DBG
 *	LDS	#STACK	; re-initialize at beginning of each evaluate
 	LDS	STKMRK	; from mark instead of constant
 	STS	SEMI	; DBG Comment this out when we no longer need to see the stack pointer BASIC gives us.
 	CLRA		; NUL delimiter
 	LDX	#OKM
-*	STX	$404	; DBG
 	LBSR	STRING
-*	BRA	*	; DBG
 *
 LOOP	CLRA
 	STA	DOLR
 	STA	DOLR+1
-	INC	$40D	; DBG
-	STA	$420	; DBG
 	LBSR	CVTLN
-	INC	$40E	; DBG
-	STA	$421	; DBG
 	BCC	STMNT	; NO LINE# THEN EXEC
 	BSR	EXEC
 	BEQ	START
 *
 LOOP2	BSR	FIND	; FIND LINE
 EQSTRT	BEQ	START	; IF END THEN STOP
-	DEC	$42A	; DBG
 	LDX	0,X	; LOAD REAL LINE #
-	STX	$42B	; DBG
 	STX	DOLR	; SAVE IT
 	LDX	SAVLIN	; GET LINE
-	STX	$42D	; DBG
 	LEAX	3,X	; BUMP PAST LINE # and SPACE
 	BSR	EXEC	; EXECUTE IT
 	BEQ	LOOP3	; IF ZERO, CONTINUE
@@ -276,11 +265,9 @@ LOOKAG	LEAX	1,X	; FIND END OF LINE
 	RTS
 *
 FIND	LDX	#PRGM	; FIND LINE
-	DEC	$425	; DBG
 FND2	STX	SAVLIN
 	CMPX	AMPR
 	BEQ	RTS1
-	DEC	$426	; DBG
 *	LDA	1,X	; almost missed this.
 *	SUBA	DOLR+1	; This was necessary because no SUBD
 *	LDA	0,X	; and CPX does not affect C flag on 6800
@@ -290,14 +277,11 @@ FND2	STX	SAVLIN
 	SUBD	DOLR
 *	PULS	B
 	BCC	SET
-	DEC	$427	; DBG
 FND3	BSR	NXTXT
-	DEC	$428	; DBG
 	BRA	FND2
 *
 SET	LDA	#$FF	; SET NOT EQUAL
 RTS1
-	CLR	$429	; DBG (Z FLAG SET)
 	RTS
 *
 EVALU	LBSR	EVAL	; EVALUATE LINE
@@ -326,10 +310,8 @@ AR2RND	ADDB	QUITE	; RANDOMIZER	; Adding the low byte to the high byte
 	RTS
 *
 SKP2
-	DEC	$422	; DBG
 	BSR	FIND	; FIND LINE
 	BEQ	INSRT	; IF NOT THERE
-	DEC	$423	; DBG
 	LDX	0,X	; THEN INSERT
 	CMPX	DOLR	; NEW LINE
 	BNE	INSRT
@@ -359,9 +341,7 @@ FITIT	LDX	DST
 	STX	AMPR	; STORE NEW END
 *
 INSRT
-	INC	$423	; DBG
 	LDX	EDTLIN	; COUNT NEW LINE LENGTH
-	STX	$430	; DBG
 	LDB	#$03
 	TST	0,X
 	BEQ	GOTIT	; IF NO LINE THEN STOP
@@ -369,17 +349,13 @@ CNTLN	INCB		; count bytes
 	LEAX	1,X
 	TST	0,X	; Find trailing NUL
 	BNE	CNTLN
-	STX	$432	; DBG
-	STB	$434	; DBG
 *
 OPEN	CLRA		; CALCULATE NEW END
 	ADDD	AMPR
 	STD	INSPTR
-	STD	$437	; DBG
 	SUBD	STAR
 	LBCC	START	; IF TOO BIG THEN STOP
 	LDX	AMPR
-	STX	$435
 *	LDS	INSPTR	; Remember that the 6800/6801 stack is postdecrement push.
 *	STS	AMPR
 	LDD	INSPTR	; The 6809 stack is predecrement push, but that doesn't matter here.
@@ -401,7 +377,6 @@ SLIDE	LEAX	-1,X	; going down
 * DON	LDS	DOLR	; STORE LINE #
 *	STS	0,X
 DON
-	STX	$439	; DBG
 	LDD	DOLR	; STORE LINE #
 	STD	0,X	; Note MSB1st byte order implicit dependency here.
 	STX	DST	; will skip by offset on store
@@ -409,7 +384,6 @@ DON
 *	DES		; pre-increment
 	LDD	EDTLIN	; GET NEW LINE
 	STD	SRC
-	STD	$43B	; DBG
 *
 *MOVL	INX		; INSERT NEW LINE (skip over LINE # hi byte)
 *	PULB
@@ -425,10 +399,7 @@ MOVL	LDX	SRC
 *
 GOTIT
 *	LDS	#STACK	; Ready for a new line of input.
-	STS	$41C	; DBG
 	LDS	STKMRK	; restore from mark
-	STS	$41E	; DBG
-	STX	$43D	; DBG
 	LBRA	LOOP
 *
 * RSTRT	LBRA	START	; warm start over
@@ -465,27 +436,18 @@ ZRSUP	LEAX	1,X
 *
 PNTMSG	CLRA		; ZERO FOR DELIM
 STRTMS	STA	DELIM	; STORE DELIMTER
-*	DEC	$408	; DBG
 *
 OUTMSG	LDB	,X+	; GENERAL PURPOSE PRINT
-*	INC	$409	; DBG
-*	STB	$40A	; DBG
 	CMPB	DELIM
 	BEQ	CTLC
 	LBSR	OUTCH
-*	STB	$40C	; DBG
 	BRA	OUTMSG
 *
 CTLC
-*	INC	$420	; DBG
 	LBSR	POLCAT	; POL FOR CHARACTER
-*	INC	$421	; DBG
 	BCC	RTS2	; return wherever we came from
-*	INC	$422	; DBG
-*	STB	$423	; DBG
 	LBSR	INCH
 	CMPB	#BREAK	; BREAK KEY?
-*	STB	$424	; DBG
 	LBEQ	START
 *
 INCH2	LBRA	INCH
@@ -552,9 +514,7 @@ OUTV	RTS
 *
 VAR	CMPB	#'$	; OR STRING
 	BNE	VAR1
-*	INC	$418	; DBG
 	LBSR	INCH
-*	STB	$419	; DBG
 	CLRA
 	LEAX	1,X
 	RTS
@@ -718,10 +678,7 @@ INLN	LDX	#ZERO+2	; INPUT LINE FROM TERMINAL
 INLN5	LEAX	-1,X
 	CMPX	#ZERO	; Make this explicit to enable variables moved out of DP.
 	BEQ	NEWLIN	; (Was implicit zero compare X from DEX, now explicit.)
-*	INC	$420	; DBG
 INLN2	LBSR	INCH	; INPUT CHARACTER
-*	STB	$421	; DBG
-*	INC	$422	; DBG
 	STB	BUFOFF-1,X	; STORE IT
 	CMPB	#$5F	; BACKSPACE?
 	BEQ	INLN5
@@ -770,10 +727,7 @@ POLCATR	PULS	A
 *
 *	INPUT ONE CHAR INTO B ACCUMULATOR
 INCH	BSR	POLCAT
-*	INC	$400	; DBG
 	BCC	INCH	; Wait here.
-*	INC	$401	; DBG
-*	STB	$402	; DBG
 	BSR	OUTCH	; echo
 	RTS
 *
@@ -781,8 +735,6 @@ INCH	BSR	POLCAT
 OUTCH	PSHS	B,A
 	TFR	B,A
 	JSR	[OUTCHV]
-*	INC	$410	; DBG
-*	STA	&411	; DBG
 	PULS	A,B
 	RTS
 *