123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122 |
- TokenHook:
- .db $83
- inc b
- dec b
- ret nz
- push hl
- ld hl,(iMathPtr1)
- inc hl
- inc hl
- ld a,3Ah
- cp (hl)
- jr nz,tokenhook_pop1exit
- inc hl
- ld a,30h
- cp (hl)
- jr nz,tokenhook_pop1exit
- inc hl
- ld a,3Eh
- cp (hl)
- jr nz,tokenhook_pop1exit
- xor a
- ld b,a
- or d
- ld hl,TokenTable_0
- jr z,TokenSearchLoop
- ld hl,TokenTable_1
- dec a
- jr z,TokenSearchLoop
- ld hl,TokenTable_2
- TokenSearchLoop:
- ld a,(hl)
- and $FE
- ; ld a,e
- ; cp (hl)
- cp e
- inc hl
- jr z,ChkByte2
- NotTokenMatch:
- inc hl
- ld c,(hl)
- inc c
- add hl,bc
- ld a,(hl)
- or a
- jr nz,TokenSearchLoop
- tokenhook_pop1exit:
- pop hl
- ret
- ChkByte2:
- ld a,d
- cp (hl)
- jr nz,NotTokenMatch
- pop de
- ld de,OP1
- inc hl
- ld c,(hl)
- inc c
- ldir
- ld hl,OP1-1
- ret
- NoChange:
- TokenTable:
- TokenTable_0:
- ; .db $02,0,7,"module."
- .db $02,0,1,$F2 ;►DMS (turns into "$")
- .db $04,0,6,$05,"Float" ;►Dec
- .db $06,0,8,5,"lFactor" ;►Frac
- .db $28,0,4,"ins " ;augment(
- .db $32,0,4,"max " ;max(
- .db $34,0,4,"min " ;min(
- .db $36,0,7,"clrPart" ;R►Pr
- .db $38,0,7,"runPart" ;R►PΘ
- .db $3A,0,8,"addPart " ;P►Rx
- .db $3C,0,9,"partType " ;P►Ry
- .db $44,0,5,"misc " ;solve(
- .db $58,0,1,5Fh ;i (turns into "_")
- .db $BE,0,5,"call " ;prgm
- .db $E6,0,5,"Mode " ;Fix
- .db $EC,0,9,"setUpInt " ;Func
- .db $EE,0,8,"StackOp " ;Param
- .db 0 ;End of Table 0
- TokenTable_1:
- .db $26,1,5,"Text " ;Text(
- .db $38,1,5,"Rect " ;Line(
- .db $3C,1,5,"Tile " ;Pt-On(
- .db $3E,1,7,"Sprite " ;Pt-Off(
- .db $40,1,8,"TileMap " ;Pt-Change(
- .db $48,1,9,"Contrast " ;Shade(
- .db $4E,1,9,"shiftBuf " ;Tangent(
- .db $62,1,7,"WriteB " ;int(
- .db $70,1,4,"Inv " ;not(
- .db $72,1,7,"WriteW " ;iPart(
- .db $7C,1,4,"jmp " ;ln(
- ; .db $7E,1,2,"2^" ;e^(
- .db $A6,1,4,"For " ;For(
- ; .db $AA,1,6,"retPnt" ;Return
- .db $B4,1,7,"GetInc " ;IS>(
- .db $B6,1,7,"GetDec " ;DS<(
- .db $BC,1,7,"setBuf " ;Disp
- .db $BE,1,7,"DispBuf" ;DispGraph
- .db $C0,1,8,"setFont " ;Output(
- .db $CE,1,8,"MakeVar " ;Send(
- .db $D0,1,8,"FindVar " ;Get(
- .db 0
- TokenTable_2:
- .db $B4,3,6,"Local " ;►Nom(
- .db $BE,3,8,"randInt " ;randInt(
- .db $C2,3,4,"del " ;sub(
- .db $C8,3,6,"inStr " ;inString(
- .db $F4,3,5,"Play " ;conj(
- .db $FE,3,5,"eval " ;expr(
- .db $01,4,7,"Search " ;length( ;use 01 instead of 00 (00 indicates the end of the table)
- .db $40,4,7,"StackE " ;Pmt_End
- .db $42,4,7,"StackS " ;Pmt_Bgn
- .db $72,4,4,"gbuf" ;G-T
- .db $7A,4,5,"Arch " ;Archive
- .db $7C,4,7,"UnArch " ;UnArchive
- .db $7E,4,4,"Asm " ;Asm(
- .db $82,4,7,"AsmHex " ;AsmPrgm
- .db 0 ;End of Table 1
|