\ExtToken
cmpi.b #$EA,d0
beq.s \t1Exprs ; One arg
cmpi.b #$EB,d0
beq.s \t2Exprs ; Two arg
cmpi.b #$ED,d0
beq.s \t1Exprs ; One arg
cmpi.b #$EE,d0
beq.s \t1Exprs ; One arg
cmpi.b #$E5,d0
beq.s \EndTag
cmpi.b #$E9,d0
bne.s \NoEndTag
\EndTag addq.l #1,a0 ; Do not skip these tags!
rts
\NoEndTag
; Extra Basic commands ? $E3 & $E4 ?
; $DB -> $F9 -> ???
ER_THROW INVALID_COMMAND_ERROR
Ca plante ici :
cmpi.b #$E9,d0
bne.s \NoEndTag
\EndTag addq.l #1,a0 ; Do not skip these tags!
rts
\NoEndTag
; Extra Basic commands ? $E3 & $E4 ?
; $DB -> $F9 -> ???
ER_THROW INVALID_COMMAND_ERROR
Branchement a \NoEndTag.... plantage !