@@ 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 )