Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2024-06-28 11:29:38 +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

145
msbasic.s
View File

@ -175,70 +175,6 @@ TOKEN_NAME_TABLE:
.endif
keyrts "NEW", NEW
; keyrts "",
; keyrts "",
; keyrts "",
; keyrts "",
.segment "VECTORS"
UNFNC:
.addr SGN
.addr INT
.addr ABS
.ifdef KIM
.addr IQERR
.else
.ifdef KBD
.addr VER
.else
.addr USR
.endif
.endif
.addr FRE
.addr POS
.addr SQR
.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:
.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
.segment "KEYWORDS"
htasc "TAB("
htasc "TO"
@ -261,41 +197,72 @@ MATHTBL:
htasc ">"
htasc "="
htasc "<"
htasc "SGN"
htasc "INT"
htasc "ABS"
.segment "VECTORS"
UNFNC:
keyvec "SGN", SGN
keyvec "INT", INT
keyvec "ABS", ABS
.ifdef KBD
htasc "VER"
keyvec "VER", VER
.else
htasc "USR"
.ifdef KIM
keyvec "USR", IQERR
.else
keyvec "USR", USR
.endif
htasc "FRE"
htasc "POS"
htasc "SQR"
htasc "RND"
htasc "LOG"
htasc "EXP"
htasc "COS"
htasc "SIN"
htasc "TAN"
htasc "ATN"
.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
htasc "GETC"
keyvec "GETC", GETC
.else
htasc "PEEK"
keyvec "PEEK", PEEK
.endif
htasc "LEN"
htasc "STR$"
htasc "VAL"
htasc "ASC"
htasc "CHR$"
htasc "LEFT$"
htasc "RIGHT$"
htasc "MID$"
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
.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
.segment "CODE"
ERROR_MESSAGES:
.ifdef CONFIG_SMALL