mirror of https://github.com/mist64/msbasic.git
182 lines
3.6 KiB
ArmAsm
182 lines
3.6 KiB
ArmAsm
init_token_tables
|
|
|
|
keyword_rts "END", END
|
|
keyword_rts "FOR", FOR
|
|
keyword_rts "NEXT", NEXT
|
|
keyword_rts "DATA", DATA
|
|
.ifdef CONFIG_FILE
|
|
keyword_rts "INPUT#", INPUTH
|
|
.endif
|
|
keyword_rts "INPUT", INPUT
|
|
keyword_rts "DIM", DIM
|
|
keyword_rts "READ", READ
|
|
.ifdef APPLE
|
|
keyword_rts "PLT", PLT
|
|
.else
|
|
keyword_rts "LET", LET
|
|
.endif
|
|
keyword_rts "GOTO", GOTO, TOKEN_GOTO
|
|
keyword_rts "RUN", RUN
|
|
keyword_rts "IF", IF
|
|
keyword_rts "RESTORE", RESTORE
|
|
keyword_rts "GOSUB", GOSUB, TOKEN_GOSUB
|
|
keyword_rts "RETURN", POP
|
|
.ifdef APPLE
|
|
keyword_rts "TEX", TEX, TOKEN_REM
|
|
.else
|
|
keyword_rts "REM", REM, TOKEN_REM
|
|
.endif
|
|
keyword_rts "STOP", STOP
|
|
keyword_rts "ON", ON
|
|
.ifdef CONFIG_NULL
|
|
keyword_rts "NULL", NULL
|
|
.endif
|
|
.ifdef KBD
|
|
keyword_rts "PLOD", PLOD
|
|
keyword_rts "PSAV", PSAV
|
|
keyword_rts "VLOD", VLOD
|
|
keyword_rts "VSAV", VSAV
|
|
.endif
|
|
.ifndef CONFIG_NO_POKE
|
|
keyword_rts "WAIT", WAIT
|
|
.endif
|
|
.ifndef KBD
|
|
keyword_rts "LOAD", LOAD
|
|
keyword_rts "SAVE", SAVE
|
|
.endif
|
|
.ifdef CONFIG_CBM_ALL
|
|
keyword_rts "VERIFY", VERIFY
|
|
.endif
|
|
keyword_rts "DEF", DEF
|
|
.ifdef KBD
|
|
keyword_rts "SLOD", SLOD
|
|
.endif
|
|
.ifndef CONFIG_NO_POKE
|
|
keyword_rts "POKE", POKE
|
|
.endif
|
|
.ifdef CONFIG_FILE
|
|
keyword_rts "PRINT#", PRINTH
|
|
.endif
|
|
keyword_rts "PRINT", PRINT, TOKEN_PRINT
|
|
keyword_rts "CONT", CONT
|
|
keyword_rts "LIST", LIST
|
|
.ifdef CONFIG_CBM_ALL
|
|
keyword_rts "CLR", CLEAR
|
|
.else
|
|
keyword_rts "CLEAR", CLEAR
|
|
.endif
|
|
.ifdef CONFIG_FILE
|
|
keyword_rts "CMD", CMD
|
|
keyword_rts "SYS", SYS
|
|
keyword_rts "OPEN", OPEN
|
|
keyword_rts "CLOSE", CLOSE
|
|
.endif
|
|
.ifndef CONFIG_SMALL
|
|
keyword_rts "GET", GET
|
|
.endif
|
|
.ifdef KBD
|
|
keyword_rts "PRT", PRT
|
|
.endif
|
|
keyword_rts "NEW", NEW
|
|
|
|
count_tokens
|
|
|
|
keyword "TAB(", TOKEN_TAB
|
|
keyword "TO", TOKEN_TO
|
|
keyword "FN", TOKEN_FN
|
|
keyword "SPC(", TOKEN_SPC
|
|
keyword "THEN", TOKEN_THEN
|
|
keyword "NOT", TOKEN_NOT
|
|
keyword "STEP", TOKEN_STEP
|
|
keyword "+", TOKEN_PLUS
|
|
keyword "-", TOKEN_MINUS
|
|
keyword "*"
|
|
keyword "/"
|
|
.ifdef KBD
|
|
keyword "#"
|
|
.else
|
|
keyword "^"
|
|
.endif
|
|
keyword "AND"
|
|
keyword "OR"
|
|
keyword ">", TOKEN_GREATER
|
|
keyword "=", TOKEN_EQUAL
|
|
keyword "<"
|
|
|
|
.segment "VECTORS"
|
|
UNFNC:
|
|
|
|
keyword_addr "SGN", SGN, TOKEN_SGN
|
|
keyword_addr "INT", INT
|
|
keyword_addr "ABS", ABS
|
|
.ifdef KBD
|
|
keyword_addr "VER", VER
|
|
.endif
|
|
.ifndef CONFIG_NO_POKE
|
|
.ifdef CONFIG_RAM
|
|
keyword_addr "USR", IQERR
|
|
.else
|
|
keyword_addr "USR", USR, TOKEN_USR
|
|
.endif
|
|
.endif
|
|
keyword_addr "FRE", FRE
|
|
keyword_addr "POS", POS
|
|
keyword_addr "SQR", SQR
|
|
keyword_addr "RND", RND
|
|
keyword_addr "LOG", LOG
|
|
keyword_addr "EXP", EXP
|
|
.segment "VECTORS"
|
|
UNFNC_COS:
|
|
keyword_addr "COS", COS
|
|
.segment "VECTORS"
|
|
UNFNC_SIN:
|
|
keyword_addr "SIN", SIN
|
|
.segment "VECTORS"
|
|
UNFNC_TAN:
|
|
keyword_addr "TAN", TAN
|
|
.segment "VECTORS"
|
|
UNFNC_ATN:
|
|
keyword_addr "ATN", ATN
|
|
.ifdef KBD
|
|
keyword_addr "GETC", GETC
|
|
.endif
|
|
.ifndef CONFIG_NO_POKE
|
|
keyword_addr "PEEK", PEEK
|
|
.endif
|
|
keyword_addr "LEN", LEN
|
|
keyword_addr "STR$", STR
|
|
keyword_addr "VAL", VAL
|
|
keyword_addr "ASC", ASC
|
|
keyword_addr "CHR$", CHRSTR
|
|
keyword_addr "LEFT$", LEFTSTR, TOKEN_LEFTSTR
|
|
keyword_addr "RIGHT$", RIGHTSTR
|
|
keyword_addr "MID$", MIDSTR
|
|
.ifdef CONFIG_2
|
|
keyword "GO", TOKEN_GO
|
|
.endif
|
|
.segment "KEYWORDS"
|
|
.byte 0
|
|
|
|
.segment "VECTORS"
|
|
MATHTBL:
|
|
.byte $79
|
|
.word FADDT-1
|
|
.byte $79
|
|
.word FSUBT-1
|
|
.byte $7B
|
|
.word FMULTT-1
|
|
.byte $7B
|
|
.word FDIVT-1
|
|
.byte $7F
|
|
.word FPWRT-1
|
|
.byte $50
|
|
.word TAND-1
|
|
.byte $46
|
|
.word OR-1
|
|
.byte $7D
|
|
.word NEGOP-1
|
|
.byte $5A
|
|
.word EQUOP-1
|
|
.byte $64
|
|
.word RELOPS-1
|