Commit: e16e8f4e35290c6305f6cb99a0f1c5107f444de9 - nsvtl (git)

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

Commit MetaInfo

• Revisão: e16e8f4e35290c6305f6cb99a0f1c5107f444de9 (tree)
• Hora: 2022-10-06 10:09:08
• Autor: Joel Matthew Rees <joel.rees@gmai...>
• Commiter: Joel Matthew Rees

Mensagem de Log

detour working out parameter and local discipline too far in advance

Mudança Sumário

• modified: VTL_6809_coco.asm

Diff

--- a/VTL_6809_coco.asm
+++ b/VTL_6809_coco.asm
@@ -442,7 +442,7 @@ GOTIT
 * RSTRT	LBRA	START	; warm start over
 *
 PRNT	PULU	B	; PRINT DECIMAL
-PRNT2	LDX	#DECBUF	; CONVERT TO DECIMAL
+PRNT2	LDX	#DECBUF	; CONVERT TO DECIMAL ** fix this reference later
 	STX	CNVPTR
 	LDX	#PWRS10
 CVD1	PSHU	X
@@ -643,31 +643,41 @@ PWRS10	FCB	$27	; 10000
 	FCB	$00	; 1
 	FCB	$01
 *
-DIVIDE	CLR	MLDVCT	; DEVIDE 16-BITS
-GOT	INC	MLDVCT
-	ASL	1,X
-	ROL	0,X
+* parameters (should prefer to use SET rather than EQU)
+DIVSR	EQU	3	; divisor
+DIVCT	EQU	2	; lead bit count
+DIVQ	EQU	0	; quotient
+DIVLOC	EQU	DIVCT+1	
+DIVIDE	LEAU	-DIVLOC,U
+	CLR	DIVCT,U	; DEVIDE 16-BITS
+GOT	INC	DIVCT,U
+	ASL	DIVSR+1,U
+	ROL	DIVSR,U
 	BCC	GOT
-	ROR	0,X
-	ROR	1,X
-	CLR	DIVQUO
-	CLR	DIVQUO+1
-DIV2	SUBD	0,X
+	ROR	DIVSR,U
+	ROR	DIVSR+1,U
+	CLR	DIVQ,U
+	CLR	DIVQ+1,U
+DIV2	SUBD	DIVSR,U
 	BCC	OK
-	ADDD	0,X
+	ADDD	DIVSR,U
 	ANDCC	#$FE
 	BRA	DIVNOC	; instead of the trick
 * The 6809 CMPX affects all relevant flags, can't use this trick.
 * And the op-codes are different in the 6809, too.
 *	FCB	$9C	; CMPX
 OK	ORCC	#$01
-DIVNOC	ROL	DIVQUO+1
-	ROL	DIVQUO
-	DEC	MLDVCT
+DIVNOC	ROL	DIVQ+1,U
+	ROL	DIVQ,U
+	DEC	DIVCT,U
 	BEQ	DONE
-	LSR	0,X
-	ROR	1,X
+	LSR	DIVSR,U
+	ROR	DIVSR+1,U
 	BRA	DIV2
+DIVDUN	LEAU	DIVLOC,U
+DONE	ANDCC	#$FE
+	RTS
+	
 *
 TSTN	LDB	0,X	; TEST FOR NUMERIC
 	CMPB	#$3A
@@ -675,9 +685,9 @@ TSTN	LDB	0,X	; TEST FOR NUMERIC
 	CMPB	#'0
 	BGE	DONE
 NOTDEC	ORCC	#$01
-	RTS
-DONE	ANDCC	#$FE
 DUN	RTS
+*DONE	ANDCC	#$FE
+*DUN	RTS
 *
 CVTLN	BSR	INLN
 *