Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2024-07-02 05:29:36 +00:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-11 22:37:02 +00:00
parent b183d3ba34
commit 8fc6b95bae
1 changed files with 57 additions and 90 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

147
msbasic.s
View File

@ -175,48 +175,72 @@ TOKEN_NAME_TABLE:
.endif .endif
keyrts "NEW", NEW keyrts "NEW", NEW
; keyrts "", .segment "KEYWORDS"
; keyrts "", htasc "TAB("
; keyrts "", htasc "TO"
; keyrts "", htasc "FN"
htasc "SPC("
htasc "THEN"
htasc "NOT"
htasc "STEP"
htasc "+"
htasc "-"
htasc "*"
htasc "/"
.ifdef KBD
htasc "#"
.else
htasc "^"
.endif
htasc "AND"
htasc "OR"
htasc ">"
htasc "="
htasc "<"
.segment "VECTORS" .segment "VECTORS"
UNFNC: UNFNC:
.addr SGN keyvec "SGN", SGN
.addr INT keyvec "INT", INT
.addr ABS keyvec "ABS", ABS
.ifdef KBD
keyvec "VER", VER
.else
.ifdef KIM .ifdef KIM
.addr IQERR keyvec "USR", IQERR
.else .else
keyvec "USR", USR
.endif
.endif
keyvec "FRE", FRE
keyvec "POS", POS
keyvec "SQR", SQR
keyvec "RND", RND
keyvec "LOG", LOG
keyvec "EXP", EXP
keyvec "COS", COS
keyvec "SIN", SIN
keyvec "TAN", TAN
keyvec "ATN", ATN
.ifdef KBD .ifdef KBD
.addr VER keyvec "GETC", GETC
.else .else
.addr USR keyvec "PEEK", PEEK
.endif .endif
keyvec "LEN", LEN
keyvec "STR$", STR
keyvec "VAL", VAL
keyvec "ASC", ASC
keyvec "CHR$", CHRSTR
keyvec "LEFT$", LEFTSTR
keyvec "RIGHT$", RIGHTSTR
keyvec "MID$", MIDSTR
.ifdef CBM2_KBD
htasc "GO"
.endif .endif
.addr FRE .byte 0
.addr POS
.addr SQR .segment "VECTORS"
.addr RND
.addr LOG
.addr EXP
.addr COS
.addr SIN
.addr TAN
.addr ATN
.ifdef KBD
.addr GETC
.else
.addr PEEK
.endif
.addr LEN
.addr STR
.addr VAL
.addr ASC
.addr CHRSTR
.addr LEFTSTR
.addr RIGHTSTR
.addr MIDSTR
MATHTBL: MATHTBL:
.byte $79 .byte $79
.word FADDT-1 .word FADDT-1
@ -239,63 +263,6 @@ MATHTBL:
.byte $64 .byte $64
.word RELOPS-1 .word RELOPS-1
.segment "KEYWORDS"
htasc "TAB("
htasc "TO"
htasc "FN"
htasc "SPC("
htasc "THEN"
htasc "NOT"
htasc "STEP"
htasc "+"
htasc "-"
htasc "*"
htasc "/"
.ifdef KBD
htasc "#"
.else
htasc "^"
.endif
htasc "AND"
htasc "OR"
htasc ">"
htasc "="
htasc "<"
htasc "SGN"
htasc "INT"
htasc "ABS"
.ifdef KBD
htasc "VER"
.else
htasc "USR"
.endif
htasc "FRE"
htasc "POS"
htasc "SQR"
htasc "RND"
htasc "LOG"
htasc "EXP"
htasc "COS"
htasc "SIN"
htasc "TAN"
htasc "ATN"
.ifdef KBD
htasc "GETC"
.else
htasc "PEEK"
.endif
htasc "LEN"
htasc "STR$"
htasc "VAL"
htasc "ASC"
htasc "CHR$"
htasc "LEFT$"
htasc "RIGHT$"
htasc "MID$"
.ifdef CBM2_KBD
htasc "GO"
.endif
.byte 0
.segment "CODE" .segment "CODE"
ERROR_MESSAGES: ERROR_MESSAGES:
.ifdef CONFIG_SMALL .ifdef CONFIG_SMALL