~rabbits/dexe

012f92f7d550b7c726706c1dd30de2d73aaf5e39 — Devine Lu Linvega 1 year, 11 months ago da9b26f
Print JM/JC/JS opcodes
1 files changed, 10 insertions(+), 6 deletions(-)

M src/dexe.tal
M src/dexe.tal => src/dexe.tal +10 -6
@@ 787,9 787,9 @@ JMP2

@draw-opcode ( byte color -- )

	OVR #20 EQU ;&unused JCN2
	OVR #40 EQU ;&unused JCN2
	OVR #60 EQU ;&unused JCN2
	OVR #20 EQU ;&jmi JCN2
	OVR #40 EQU ;&jci JCN2
	OVR #60 EQU ;&jsi JCN2
	STH
	DUP ,&no-brk JCN
		POP ;opcodes/brk STHr ;draw-string JSR2 ,&fill JMP


@@ 811,9 811,13 @@ JMP2
		#03 ;draw-string ( .. )

JMP2
	&unused 
		NIP ;&unknown-txt ROT ;draw-string JMP2
	&unknown-txt "?????? $1
	( TODO: Make pretty )
	&jmi NIP ;&jmi-txt ROT ;draw-string JMP2
	&jci NIP ;&jci-txt ROT ;draw-string JMP2
	&jsi NIP ;&jsi-txt ROT ;draw-string JMP2
	&jmi-txt "JMI $1
	&jci-txt "JCI $1
	&jsi-txt "JSI $1
	"..... &fill-end $2

( primitives )