Commit: bdfde7319a13b935a217dc69b1d90faa19d95e3e - nsvtl (git)

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

Commit MetaInfo

• Revisão: bdfde7319a13b935a217dc69b1d90faa19d95e3e (tree)
• Hora: 2022-09-25 19:44:02
• Autor: Joel Matthew Rees <joel.rees@gmai...>
• Commiter: Joel Matthew Rees

Mensagem de Log

semicolons to solve the SP problems

Mudança Sumário

• delete: VTL_spacey.ASM => VTL_semicolons.ASM

Diff

--- a/VTL_spacey.ASM
+++ b/VTL_semicolons.ASM
@@ -1,4 +1,3 @@
-	OPT PRT
 *	VTL-2
 *	V-3.6
 *	9-23-76
@@ -7,22 +6,22 @@
 *	COPYWRIGHT 1976, THE COMPUTER STORE
 *
 *	DEFINE LOCATIONS IN MONITOR
-INCH	EQU	$FF00
-POLCAT	EQU	$FF24
-OUTCH	EQU	$FF81
-OUTS	EQU	$FF82
+INCH	EQU	$FF00	; per VTL.ASM
+POLCAT	EQU	$FF24	; from VTL.ASM
+OUTCH	EQU	$FF81	; from VTL.ASM
+OUTS	EQU	$FF82	; from VTL.ASM
 *
 *	FOR SBC6800
-BREAK	EQU	$1B	BREAK KEY
+BREAK	EQU	$1B	; BREAK KEY
 *
 *	SET ASIDE FOUR BYTES FOR USER
 *	DEFINED INTERUPT ROUTINE IF NEEDED
 	ORG	$0000
-ZERO	RMB	4	INTERUPT VECTOR
-AT	RMB	2	CANCEL & C-R
+ZERO	RMB	4	; INTERUPT VECTOR
+AT	RMB	2	; CANCEL & C-R
 *
 *	GENERAL PURPOSE STORRGE
-VARS	RMB	52	VARIRBLES(A-Z)
+VARS	RMB	52	; VARIABLES(A-Z)
 BRAK	RMB	2	; [
 SAVE10	RMB	2	; BACK SLASH
 BRIK	RMB	2	; ]
@@ -56,25 +55,25 @@ SAVE6	RMB	2
 SAVE7	RMB	2
 SAVE8	RMB	2
 SAVE9	RMB	2
-COLN	RMB	2	:
-SEMI	RMB	2	;
-LESS	RMB	2	<
-EQAL	RMB	2	=
-GRRT	RMB	1	>
+COLN	RMB	2	; :
+SEMI	RMB	2	; ;
+LESS	RMB	2	; <
+EQAL	RMB	2	; =
+GRRT	RMB	1	; >
 DECB_1	RMB	1
 *
 DECBUF	RMB	4
 LASTD	RMB	1
 DELIM	RMB	1
-LINBUF	RMB	73	LINE LENGTH +1
+LINBUF	RMB	73	; LINE LENGTH +1
 *
 	ORG	$00F1
 STACK	RMB	1
 *
 	ORG	$0100
-MI	RMB	4	INTERUPT VECTORS
+MI	RMB	4	; INTERUPT VECTORS
 NMI	RMB	4
-PRGM	EQU	*	PROGRAM STARTS HERE
+PRGM	EQU	*	; PROGRAM STARTS HERE
 *
 	ORG	$FC00
 *
@@ -87,56 +86,56 @@ LOOP	CLRA
 	STAA	DOLR
 	STAA	DOLR+1
 	JSR	CVTLN
-	BCC	STMNT	NO LINE# THEN EXEC
+	BCC	STMNT	; NO LINE# THEN EXEC
 	BSR	EXEC
 	BEQ	START
 *
-LOOP2	BSR	FIND	FIND LINE
-EQSTRT	BEQ	START	IF END THEN STOP
-	LDX	0,X	LOAD REAL LINE #
-	STX	DOLR	SAVE IT
-	LDX	SAVE11	GET LINE
-	INX		BUMP PAST LINE #
-	INX		BUMP PAST LINE #
-	INX		BUMP PAST SPACE
-	BSR	EXEC	EXECUTE IT
-	BEQ	LOOP3	IF ZERO, CONTINUE
-	LDX	SAVE11	FIND LINE
-	LDX	0,X	GET IT
-	CPX	DOLR	HAS IT CHANGED?
-	BEQ	LOOP3	IF NOT GET NEXT
-*
-	INX		INCREMENT OLD LINE#
-	STX	EXCL	SAVE FOR RETURN
-	BRA	LOOP2	CONTINUE
-*
-LOOP3	BSR	FND3	FIND NEXT LINE
-	BRA	EQSTRT	CONTINUE
-*
-EXEC	STX	SAVE7	EXECUTE LINE
+LOOP2	BSR	FIND	; FIND LINE
+EQSTRT	BEQ	START	; IF END THEN STOP
+	LDX	0,X	; LOAD REAL LINE #
+	STX	DOLR	; SAVE IT
+	LDX	SAVE11	; GET LINE
+	INX		; BUMP PAST LINE #
+	INX		; BUMP PAST LINE #
+	INX		; BUMP PAST SPACE
+	BSR	EXEC	; EXECUTE IT
+	BEQ	LOOP3	; IF ZERO, CONTINUE
+	LDX	SAVE11	; FIND LINE
+	LDX	0,X	; GET IT
+	CPX	DOLR	; HAS IT CHANGED?
+	BEQ	LOOP3	; IF NOT GET NEXT
+*
+	INX		; INCREMENT OLD LINE#
+	STX	EXCL	; SAVE FOR RETURN
+	BRA	LOOP2	; CONTINUE
+*
+LOOP3	BSR	FND3	; FIND NEXT LINE
+	BRA	EQSTRT	; CONTINUE
+*
+EXEC	STX	SAVE7	; EXECUTE LINE
 	JSR	VAR2
 	INX
 *
-SKIP	LDAA	0,X	GET FIRST TERM
-	BSR	EVIL	EVALUATE EXPRESSION
-OUTX	LDX	DOLR	GET LINE #
+SKIP	LDAA	0,X	; GET FIRST TERM
+	BSR	EVIL	; EVALUATE EXPRESSION
+OUTX	LDX	DOLR	; GET LINE #
 	RTS
 *
-EVIL	CMPA	#$22	IF " THEN BRANCH
+EVIL	CMPA	#$22	; IF " THEN BRANCH
 	BNE	EVALU
 	INX
-STRGT	JMP	STRING	TO PRINT IT
+STRGT	JMP	STRING	; TO PRINT IT
 *
-STMNT	STX	SAVE8	SAVE LINE #
+STMNT	STX	SAVE8	; SAVE LINE #
 	STAA	DOLR
 	STAB	DOLR+1
 	LDX	DOLR
-	BNE	SKP2	IF LINE# <> 0
+	BNE	SKP2	; IF LINE# <> 0
 *
-	LDX	#PRGM	LIST PROGRAM
-LST2	CPX	AMPR	END OF PROGRAM
+	LDX	#PRGM	; LIST PROGRAM
+LST2	CPX	AMPR	; END OF PROGRAM
 	BEQ	EQSTRT
-	STX	SAVE11	LINE # FOR CVDEC
+	STX	SAVE11	; LINE # FOR CVDEC
 	LDAA	0,X
 	LDAB	1,X
 	JSR	PRNT2
@@ -147,15 +146,15 @@ LST2	CPX	AMPR	END OF PROGRAM
 	JSR	CRLF
 	BRA	LST2
 *
-NXTXT	LDX	SAVE11	GET POINTER
-	INX		BUMP PAST LINE#
-LOOKAG	INX		FIND END OF LINE
+NXTXT	LDX	SAVE11	; GET POINTER
+	INX		; BUMP PAST LINE#
+LOOKAG	INX		; FIND END OF LINE
 	TST	0,X
 	BNE	LOOKAG
 	INX
 	RTS
 *
-FIND	LDX	#PRGM	FIND LINE
+FIND	LDX	#PRGM	; FIND LINE
 FND2	STX	SAVE11
 	CPX	AMPR
 	BEQ	RTS1
@@ -167,44 +166,44 @@ FND2	STX	SAVE11
 FND3	BSR	NXTXT
 	BRA	FND2
 *
-SET	LDAA	#$FF	SET NOT EQUAL
+SET	LDAA	#$FF	; SET NOT EQUAL
 RTS1	RTS
 *
-EVALU	JSR	EVAL	EVALUATE LINE
+EVALU	JSR	EVAL	; EVALUATE LINE
 	PSHB
 	PSHA
 	LDX	SAVE7
 	JSR	CONVP
 	PULA
-	CMPB	#'$	STRING?
+	CMPB	#'$	; STRING?
 	BNE	AR1
 	PULB
-	JMP	OUTCH	THEN PRINT IT
-AR1	SUBB	#'?	PRINT?
-	BEQ	PRNT	THEN DO IT
-	INCB		MACHINE LANGUAGE?
+	JMP	OUTCH	; THEN PRINT IT
+AR1	SUBB	#'?	; PRINT?
+	BEQ	PRNT	; THEN DO IT
+	INCB		; MACHINE LANGUAGE?
 	PULB
 	BNE	AR2
-	SWI		THEN INTERUPT
+	SWI		; THEN INTERUPT
 *
-AR2	STAA	0,X	STORE NEW VALUE
+AR2	STAA	0,X	; STORE NEW VALUE
 	STAB	1,X
-	ADDB	QUITE	RANDOMIZER
+	ADDB	QUITE	; RANDOMIZER
 	ADCA	QUITE+1
 	STAA	QUITE
 	STAB	QUITE+1
 	RTS
 *
-SKP2	BSR	FIND	FIND LINE
-	BEQ	INSRT	IF NOT THERE
-	LDX	0,X	THEN INSERT
-	CPX	DOLR	NEW LINE
+SKP2	BSR	FIND	; FIND LINE
+	BEQ	INSRT	; IF NOT THERE
+	LDX	0,X	; THEN INSERT
+	CPX	DOLR	; NEW LINE
 	BNE	INSRT
 *
-	BSR	NXTXT	SETUP REGISTERS
-	LDS	SAVE11	FOR DELETE
+	BSR	NXTXT	; SETUP REGISTERS
+	LDS	SAVE11	; FOR DELETE
 *
-DELT	CPX	AMPR	DELETE OLD LINE
+DELT	CPX	AMPR	; DELETE OLD LINE
 	BEQ	FITIT
 	LDAA	0,X
 	PSHA
@@ -213,42 +212,42 @@ DELT	CPX	AMPR	DELETE OLD LINE
 	INS
 	BRA	DELT
 *
-FITIT	STS	AMPR	STORE NEW END
+FITIT	STS	AMPR	; STORE NEW END
 *
-INSRT	LDX	SAVE8	COUNT NEW LINE LENGTH
+INSRT	LDX	SAVE8	; COUNT NEW LINE LENGTH
 	LDAB	#$03
 	TST	0,X
-	BEQ	GOTIT	IF NO LINE THEN STOP
+	BEQ	GOTIT	; IF NO LINE THEN STOP
 CNTLN	INCB
 	INX
 	TST	0,X
 	BNE	CNTLN
 *
-OPEN	CLRA		CALCULATE NEW END
+OPEN	CLRA		; CALCULATE NEW END
 	ADDB	AMPR+1
 	ADCA	AMPR
 	STAA	SAVE10
 	STAB	SAVE10+1
 	SUBB	STAR+1
 	SBCA	STAR
-	BCC	RSTRT	IF TOO BIG THEN STOP
+	BCC	RSTRT	; IF TOO BIG THEN STOP
 	LDX	AMPR
 	LDS	SAVE10
 	STS	AMPR
 *
-	INX		SLIDE OPEN GAP
+	INX		; SLIDE OPEN GAP
 SLIDE	DEX
 	LDAB	0,X
 	PSHB
 	CPX	SAVE11
 	BNE	SLIDE
 *
-DON	LDS	DOLR	STORE LINE #
+DON	LDS	DOLR	; STORE LINE #
 	STS	0,X
-	LDS	SAVE8	GET NEW LINE
+	LDS	SAVE8	; GET NEW LINE
 	DES
 *
-MOVL	INX		INSERT NEW LINE
+MOVL	INX		; INSERT NEW LINE
 	PULB
 	STAB	1,X
 	BNE	MOVL
@@ -258,8 +257,8 @@ GOTIT	LDS	#STACK
 *
 RSTRT	JMP	START
 *
-PRNT	PULB		PRINT DECIMAL
-PRNT2	LDX	#DECBUF	CONVERT TO DECIMAL
+PRNT	PULB		; PRINT DECIMAL
+PRNT2	LDX	#DECBUF	; CONVERT TO DECIMAL
 	STX	SAVE4
 	LDX	#PWRS10
 CVD1	STX	SAVE5
@@ -282,41 +281,41 @@ CVD1	STX	SAVE5
 	BNE	CVD1
 *
 	LDX	#DECB_1
-	COM	5,X	ZERO SUPPRESS
+	COM	5,X	; ZERO SUPPRESS
 ZRSUP	INX
 	LDAB	0,X
 	CMPB	#'0
 	BEQ	ZRSUP
 	COM	LASTD
 *
-PNTMSG	CLRA		ZERO FOR DELIM
-STRTMS	STAA	DELIM	STORE DELIMTER
+PNTMSG	CLRA		; ZERO FOR DELIM
+STRTMS	STAA	DELIM	; STORE DELIMTER
 *
-OUTMSG	LDAB	0,X	GENERAL PURPOSE PRINT
+OUTMSG	LDAB	0,X	; GENERAL PURPOSE PRINT
 	INX
 	CMPB	DELIM
 	BEQ	CTLC
 	JSR	OUTCH
 	BRA	OUTMSG
 *
-CTLC	JSR	POLCAT	POL FOR CHARACTER
+CTLC	JSR	POLCAT	; POL FOR CHARACTER
 	BCC	RTS2
 	BSR	INCH2
-	CMPB	#BREAK	BREAK KEY?
+	CMPB	#BREAK	; BREAK KEY?
 	BEQ	RSTRT
 *
 INCH2	JMP	INCH
 *
-STRING	BSR	STRTMS	PRINT STRING LITERAL
+STRING	BSR	STRTMS	; PRINT STRING LITERAL
 	LDAA	0,X
 	CMPA	#';
 	BEQ	OUTD
 	JMP	CRLF
 *
-EVAL	BSR	GETVAL	EVALUATE EXPRESSION
+EVAL	BSR	GETVAL	; EVALUATE EXPRESSION
 *
 NXTRM	PSHA
-	LDAA	0,X	END OF LINE?
+	LDAA	0,X	; END OF LINE?
 	BEQ	OUTN
 	CMPA	#')
 OUTN	PULA
@@ -325,7 +324,7 @@ OUTN	PULA
 	LDX	SAVE0
 	BRA	NXTRM
 *
-TERM	PSHA		GET VALUE
+TERM	PSHA		; GET VALUE
 	PSHB
 	LDAA	0,X
 	PSHA
@@ -338,11 +337,11 @@ TERM	PSHA		GET VALUE
 	PULA
 	PULB
 *
-	CMPA	#'*	SEE IF *
+	CMPA	#'*	; SEE IF *
 	BNE	EVAL2
-	PULA		MULTIPLY
+	PULA		; MULTIPLY
 MULTIP	STAA	SAVE2
-	STAB	SAVE2+1	2'S COMPLEMENT
+	STAB	SAVE2+1	; 2'S COMPLEMENT
 	LDAB	#$10
 	STAB	SAVE1
 	CLRA
@@ -355,12 +354,12 @@ MULTI	BSR	ADD
 NOAD	ASL	1,X
 	ROL	0,X
 	DEC	SAVE1
-	BNE	MULT	LOOP TIL DONE
+	BNE	MULT	; LOOP TIL DONE
 RTS2	RTS
 *
-GETVAL	JSR	CVBIN	GET VALUE
+GETVAL	JSR	CVBIN	; GET VALUE
 	BCC	OUTV
-	CMPB	#'?	OF LITERAL
+	CMPB	#'?	; OF LITERAL
 	BNE	VAR
 	STX	SAVE9	; OR INPUT
 	JSR	INLN
@@ -384,48 +383,48 @@ VAR1	CMPB	#'(
 VAR2	BSR	CONVP	; OR VARIABLE
 	LDAA	0,X	; OR ARRAY ELEMENT
 	LDAB	1,X
-	LDX	SAVE6	LOAD OLD INDEX
+	LDX	SAVE6	; LOAD OLD INDEX
 	RTS
 *
-ARRAY	BSR	EVAL	LOCATE ARRAY ELEMENT
+ARRAY	BSR	EVAL	; LOCATE ARRAY ELEMENT
 	ASLB
 	ROLA
 	ADDB	AMPR+1
 	ADCA	AMPR
 	BRA	PACK
 *
-CONVP	LDAB	0,X	GET LOCATION
+CONVP	LDAB	0,X	; GET LOCATION
 	INX
 	PSHB
 	CMPB	#':
-	BEQ	ARRAY	OF VARIABLE OR
-	CLRA		ARRAY ELEMENT
+	BEQ	ARRAY	; OF VARIABLE OR
+	CLRA		; ARRAY ELEMENT
 	ANDB	#$3F
 	ADDB	#$02
 	ASLB
 *
-PACK	STX	SAVE6	STORE OLD INDEX
+PACK	STX	SAVE6	; STORE OLD INDEX
 	STAA	SAVE4
 	STAB	SAVE4+1
-	LDX	SAVE4	LOAD NEW INDEX
+	LDX	SAVE4	; LOAD NEW INDEX
 	PULB
 	RTS
 *
-EVAL2	CMPA	#'+	ADDITION
+EVAL2	CMPA	#'+	; ADDITION
 	BNE	EVAL3
 	PULA
 ADD	ADDB	1,X
 	ADCA	0,X
 	RTS
 *
-EVAL3	CMPA	#'-	SUBTRACTION
+EVAL3	CMPA	#'-	; SUBTRACTION
 	BNE	EVAL4
 	PULA
 SUBTR	SUBB	1,X
 	SBCA	0,X
 	RTS
 *
-EVAL4	CMPA	#'/	SEE IF IT'S DIVIDE
+EVAL4	CMPA	#'/	; SEE IF IT'S DIVIDE
 	BNE	EVAL5
 	PULA
 	BSR	DIVIDE
@@ -435,7 +434,7 @@ EVAL4	CMPA	#'/	SEE IF IT'S DIVIDE
 	LDAB	SAVE2+1
 	RTS
 *
-EVAL5	SUBA	#'=	SEE IF EQUAL TEST
+EVAL5	SUBA	#'=	; SEE IF EQUAL TEST
 	BNE	EVAL6
 	PULA
 	BSR	SUBTR
@@ -445,7 +444,7 @@ EVAL5	SUBA	#'=	SEE IF EQUAL TEST
 NOTEQ	LDAB	#$FF
 EQL	BRA	COMBOUT
 *
-EVAL6	DECA		SEE IF LESS THAN TEST
+EVAL6	DECA		; SEE IF LESS THAN TEST
 	PULA
 	BEQ	EVAL7
 *
@@ -459,18 +458,18 @@ EVAL7	BSR	SUB2	; GT TEST
 COMBOUT	COMB
 	BRA	COMOUT
 *
-PWRS10	FCB	$27	10000
+PWRS10	FCB	$27	; 10000
 	FCB	$10
-	FCB	$03	1000
+	FCB	$03	; 1000
 	FCB	$E8
-	FCB	$00	100
+	FCB	$00	; 100
 	FCB	$64
-	FCB	$00	10
+	FCB	$00	; 10
 	FCB	$0A
-	FCB	$00	1
+	FCB	$00	; 1
 	FCB	$01
 *
-DIVIDE	CLR	SAVE1	DEVIDE 16-BITS
+DIVIDE	CLR	SAVE1	; DEVIDE 16-BITS
 GOT	INC	SAVE1
 	ASL	1,X
 	ROL	0,X
@@ -483,7 +482,7 @@ DIV2	BSR	SUBTR
 	BCC	OK
 	BSR	ADD
 	CLC
-	FCB	$9C	WHAT?
+	FCB	$9C	; WHAT?
 OK	SEC
 	ROL	SAVE2+1
 	ROL	SAVE2
@@ -493,7 +492,7 @@ OK	SEC
 	ROR	1,X
 	BRA	DIV2
 *
-TSTN	LDAB	0,X	TEST FOR NUMERIC
+TSTN	LDAB	0,X	; TEST FOR NUMERIC
 	CMPB	#$3A
 	BPL	NOTDEC
 	CMPB	#'0
@@ -505,7 +504,7 @@ DUN	RTS
 *
 CVTLN	BSR	INLN
 *
-CVBIN	BSR	TSTN	CONVERT TO BINARY
+CVBIN	BSR	TSTN	; CONVERT TO BINARY
 	BCS	DUN
 CONT	CLRA
 	CLRB
@@ -530,32 +529,32 @@ CBLOOP	ADDB	0,X
 	ROLA
 	BRA	CBLOOP
 *
-INLN6	CMPB	#'@	CANCEL
+INLN6	CMPB	#'@	; CANCEL
 	BEQ	NEWLIN
-	INX		'.'
-	CPX	#74	LINE LENGTH +2
+	INX		; '.'
+	CPX	#74	; LINE LENGTH +2
 	BNE	INLN2
 NEWLIN	BSR	CRLF
 *
-INLN	LDX	#2	INPUT LINE FROM TERMINAL
+INLN	LDX	#2	; INPUT LINE FROM TERMINAL
 INLN5	DEX
 	BEQ	NEWLIN
-INLN2	JSR	INCH	INPUT CHARACTER
-	STAB	$87,X	STORE IT
-	CMPB	#$5F	BACKSPACE?
+INLN2	JSR	INCH	; INPUT CHARACTER
+	STAB	$87,X	; STORE IT
+	CMPB	#$5F	; BACKSPACE?
 	BEQ	INLN5
 *
-INLIN3	CMPB	#$0D	CARRIAGE RETURN
+INLIN3	CMPB	#$0D	; CARRIAGE RETURN
 	BMI	INLN2
 	BNE	INLN6
 *
-INLIN4	CLR	$87,X	CLEAR LAST CHAR
+INLIN4	CLR	$87,X	; CLEAR LAST CHAR
 	LDX	#LINBUF
 	BRA	LF
 *
-CRLF	LDAB	#$0D	CARR-RET
+CRLF	LDAB	#$0D	; CARR-RET
 	BSR	OUTCH2
-LF	LDAB	#$0A	LINE FEED
+LF	LDAB	#$0A	; LINE FEED
 OUTCH2	JMP	OUTCH
 *
 OKM	FCB	$0D