retro/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2024-09-21 02:27:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-18 07:36:56 +00:00
parent 57be95bb4a
commit 0213247f06
2 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
init.s
View File

@ -308,20 +308,20 @@ L4136:
L4157:
ldx #<IQERR
ldy #>IQERR
stx UNFNC+(13*2)
sty UNFNC+(13*2)+1
stx UNFNC_ATN
sty UNFNC_ATN+1
ldx #<ATN ; overwrite starting
ldy #>ATN ; with ATN
cmp #'A'
beq L4183
ldx #<IQERR
ldy #>IQERR
stx UNFNC+(10*2)
sty UNFNC+(10*2)+1
stx UNFNC+(12*2)
sty UNFNC+(12*2)+1
stx UNFNC+(11*2)
sty UNFNC+(11*2)+1
stx UNFNC_COS
sty UNFNC_COS+1
stx UNFNC_TAN
sty UNFNC_TAN+1
stx UNFNC_SIN
sty UNFNC_SIN+1
ldx #<SIN_COS_TAN_ATN ; overwrite
ldy #>SIN_COS_TAN_ATN ; all of trig.s
L4183:

8
token.s
View File

@ -124,9 +124,17 @@ UNFNC:
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