Browse Source

Added a bunch of Data

NonstickAtom785 4 years ago
parent
commit
72560e2cc1
1 changed files with 45 additions and 33 deletions
  1. 45 33
      src/tokenhook.z80

+ 45 - 33
src/tokenhook.z80

@@ -56,38 +56,50 @@ NoChange:
 TokenTable:
 TokenTable_0:
 ; .db $02,0,7,"module."
- .db $02,0,1,$F2    ;$
- .db $04,0,6,$05,"Float"
- .db $06,0,8,5,"lFactor"
- .db $28,0,4,"ins "
- .db $36,0,7,"ClrPart"
- .db $38,0,7,"RunPart"
- .db $3A,0,8,"AddPart "
- .db $3C,0,9,"PartType "
- .db $44,0,5,"Misc "
- .db $58,0,1,5Fh
- .db $BE,0,5,"call "
- .db 0
+ .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 $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,3,"int"         ;Func
+ .db 0                     ;End of Table 0
 
 TokenTable_1:
- .db $38,1,5,"Rect "
- .db $3C,1,5,"Tile "
- .db $3E,1,7,"Sprite "
- .db $40,1,8,"TileMap "
- .db $48,1,9,"Contrast "
- .db $4E,1,9,"ShiftBuf "
- .db $62,1,7,"WriteB "
- .db $70,1,4,"Inv "
- .db $72,1,7,"WriteW "
-; .db $7E,1,2,"2^"
- .db $A6,1,4,"For "
- .db $B4,1,7,"GetInc "
- .db $B6,1,7,"GetDec "
- .db $BC,1,7,"SetBuf "
- .db $C0,1,8,"SetFont "
- .db $CE,1,8,"MakeVar "
- .db $D0,1,8,"FindVar "
- .db $C8,$03,6,"inStr "
- .db $C2,$03,4,"del "
- .db $72,4,4,"gbuf"
- .db 0
+ .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,3,"jp "         ;ln(
+; .db $7E,1,2,"2^"         ;²
+ .db $A6,1,4,"For "        ;For( 
+ .db $B4,1,7,"GetInc "     ;IS>(
+ .db $B6,1,7,"GetDec "     ;DS<(
+ .db $BC,1,7,"GetBuf "     ;Disp 
+ .db $BE,1,7,"DispBuf"     ;DispGraph
+ .db $C0,1,8,"GetFont "    ;Output(
+ .db $CE,1,8,"MakeVar "    ;Send(
+ .db $D0,1,8,"FindVar "    ;Get(
+ .db $B4,3,6,"PushVar "    ;►Nom(
+ .db $C2,3,4,"del "        ;sub(
+ .db $C8,3,6,"inStr "      ;inString(
+ .db $F4,3,5,"Play "       ;conj(
+ .db $FE,3,5,"expr "       ;expr(
+ .db $00,4,7,"Search "     ;length(
+ .db $72,4,4,"gbuf"        ;G-T
+ .db $7A,4,4,"Arch "       ;Archive
+ .db $7C,4,6,"UnArch "     ;UnArchive
+ .db $7E,4,4,"Asm "        ;Asm(
+ .db $82,4,4,"Asm$"        ;AsmPrgm
+ .db 0                     ;End of Table 1