|
|
@@ -62,7 +62,9 @@ TokenTable_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 $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
|
|
|
@@ -71,10 +73,12 @@ TokenTable_0:
|
|
|
.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 $EC,0,3,"IMode " ;Func
|
|
|
+ .db $EE,0,0,"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(
|
|
|
@@ -87,6 +91,7 @@ TokenTable_1:
|
|
|
.db $7C,1,4,"jmp " ;ln(
|
|
|
; .db $7E,1,2,"2^" ;²
|
|
|
.db $A6,1,4,"For " ;For(
|
|
|
+ .db $AA,1, ,"retPnt" ;Return
|
|
|
.db $B4,1,7,"GetInc " ;IS>(
|
|
|
.db $B6,1,7,"GetDec " ;DS<(
|
|
|
.db $BC,1,7,"SetBuf " ;Disp
|
|
|
@@ -95,11 +100,14 @@ TokenTable_1:
|
|
|
.db $CE,1,8,"MakeVar " ;Send(
|
|
|
.db $D0,1,8,"FindVar " ;Get(
|
|
|
.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 $FE,3,5,"parse " ;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
|
NonstickAtom785