mirror of
https://github.com/brouhaha/a1basic.git
synced 2025-01-18 03:29:55 +00:00
Cleanups to verb table.
This commit is contained in:
Eric Smith
parent
4ea0bf8050
commit
312e769de9
141
a1basic.asm
141
a1basic.asm
@ -461,7 +461,7 @@ Le206: tay
|
|||||||
string_neq: jsr string_eq
|
string_neq: jsr string_eq
|
||||||
jmp not_op
|
jmp not_op
|
||||||
|
|
||||||
mult_op: jsr Se254
|
multiply_op: jsr Se254
|
||||||
Le225: asl acc
|
Le225: asl acc
|
||||||
rol acc+1
|
rol acc+1
|
||||||
bcc Le238
|
bcc Le238
|
||||||
@ -965,7 +965,7 @@ dectabh: fcb $00,$00,$00,$03,$27
|
|||||||
lda himem+1
|
lda himem+1
|
||||||
sta pp+1
|
sta pp+1
|
||||||
|
|
||||||
clr: lda lomem
|
clr_cmd: lda lomem
|
||||||
sta pv
|
sta pv
|
||||||
lda lomem+1
|
lda lomem+1
|
||||||
sta pv+1
|
sta pv+1
|
||||||
@ -1185,7 +1185,7 @@ not_op: jsr get16bit
|
|||||||
inc noun_stk_l,x
|
inc noun_stk_l,x
|
||||||
Le749: rts
|
Le749: rts
|
||||||
|
|
||||||
neq_op: jsr subtract
|
neq_op: jsr subtract_op
|
||||||
jsr sgn_fn
|
jsr sgn_fn
|
||||||
|
|
||||||
abs_fn: jsr get16bit
|
abs_fn: jsr get16bit
|
||||||
@ -1217,9 +1217,9 @@ Se772: tya
|
|||||||
Le77e: ldy #$00
|
Le77e: ldy #$00
|
||||||
bpl go_errmess_3
|
bpl go_errmess_3
|
||||||
|
|
||||||
subtract: jsr negate
|
subtract_op: jsr negate
|
||||||
|
|
||||||
add: jsr get16bit
|
add_op: jsr get16bit
|
||||||
lda acc
|
lda acc
|
||||||
sta aux
|
sta aux
|
||||||
lda acc+1
|
lda acc+1
|
||||||
@ -1285,7 +1285,7 @@ Le7f3: sta auto_inc
|
|||||||
sty auto_inc+1
|
sty auto_inc+1
|
||||||
rts
|
rts
|
||||||
|
|
||||||
auto_com: jsr get16bit
|
auto_comma: jsr get16bit
|
||||||
lda acc
|
lda acc
|
||||||
ldy acc+1
|
ldy acc+1
|
||||||
bpl Le7f3
|
bpl Le7f3
|
||||||
@ -1443,7 +1443,7 @@ Le8dc: beq go_errmess_4
|
|||||||
lda fstk_tol-1,y
|
lda fstk_tol-1,y
|
||||||
ldy #$00
|
ldy #$00
|
||||||
jsr push_ya_noun_stk
|
jsr push_ya_noun_stk
|
||||||
jsr subtract
|
jsr subtract_op
|
||||||
jsr sgn_fn
|
jsr sgn_fn
|
||||||
jsr get16bit
|
jsr get16bit
|
||||||
ldy for_nest_count
|
ldy for_nest_count
|
||||||
@ -1515,62 +1515,62 @@ verb_addr_h: rmb $78
|
|||||||
verb $04,$03,list_cmd
|
verb $04,$03,list_cmd
|
||||||
verb $05,$03,list_comman
|
verb $05,$03,list_comman
|
||||||
verb $06,$03,list_all
|
verb $06,$03,list_all
|
||||||
verb $07,$03,Teff2 ; RUN w/ line #
|
verb $07,$03,run_cmd_w_lno ; RUN w/ line #
|
||||||
verb $08,$03,$efec ; RUN w/o line #
|
verb $08,$03,run_cmd ; RUN w/o line #
|
||||||
verb $09,$03,$e387 ; DEL
|
verb $09,$03,del_cmd ; DEL
|
||||||
verb $0a,$03,$e36f ; comma used with DEL
|
verb $0a,$03,del_comma ; comma used with DEL
|
||||||
verb $0b,$03,$e5ad ; SCR (New)
|
verb $0b,$03,new_cmd ; SCR (New)
|
||||||
verb $0c,$03,$e5b7 ; CLR
|
verb $0c,$03,clr_cmd ; CLR
|
||||||
verb $0d,$03,$e7e2 ; AUTO
|
verb $0d,$03,auto_cmd ; AUTO
|
||||||
verb $0e,$03,$e7f8 ; comma used with AUTO
|
verb $0e,$03,auto_comma ; comma used with AUTO
|
||||||
verb $0f,$03,$ee54 ; MAN
|
verb $0f,$03,man_cmd ; MAN
|
||||||
verb $10,$03,$ef80 ; HIMEM:
|
verb $10,$03,himem_cmd ; HIMEM:
|
||||||
verb $11,$03,$ef96 ; LOMEM:
|
verb $11,$03,lomem_cmd ; LOMEM:
|
||||||
verb $12,$3f,$e785 ; +
|
verb $12,$3f,add_op ; +
|
||||||
verb $13,$3f,$e782 ; -
|
verb $13,$3f,subtract_op ; -
|
||||||
verb $14,$c0,$e222 ; *
|
verb $14,$c0,multiply_op ; *
|
||||||
verb $15,$c0,$ef10 ; /
|
verb $15,$c0,divide_op ; /
|
||||||
verb $16,$3c,$e733 ; =
|
verb $16,$3c,eq_op ; =
|
||||||
verb $17,$3c,$e74a ; #
|
verb $17,$3c,neq_op ; #
|
||||||
verb $18,$3c,$ec13 ; >=
|
verb $18,$3c,gt_eq_op ; >=
|
||||||
verb $19,$3c,$ec06 ; >
|
verb $19,$3c,gt_op ; >
|
||||||
verb $1a,$3c,$ec0b ; <=
|
verb $1a,$3c,lt_eq_op ; <=
|
||||||
verb $1b,$3c,$e74a ; <>
|
verb $1b,$3c,neq_op ; <>
|
||||||
verb $1c,$3c,$ec01 ; <
|
verb $1c,$3c,lt_op ; <
|
||||||
verb $1d,$30,$ec40 ; AND
|
verb $1d,$30,and_op ; AND
|
||||||
verb $1e,$0f,$ec47 ; OR
|
verb $1e,$0f,or_op ; OR
|
||||||
verb $1f,$c0,$e27a ; MOD
|
verb $1f,$c0,mod_op ; MOD
|
||||||
verb $20,$cc,$0000
|
verb $20,$cc,$0000
|
||||||
verb $21,$ff,$ffff
|
verb $21,$ff,$ffff
|
||||||
verb $22,$55,$e823 ; ( used in string DIM
|
verb $22,$55,left_paren ; ( used in string DIM
|
||||||
verb $23,$00,$e109 ; ,
|
verb $23,$00,comma_substr ; ,
|
||||||
verb $24,$ab,$e85b ; THEN followed by a line number
|
verb $24,$ab,goto_stmt ; THEN followed by a line number
|
||||||
verb $25,$ab,null_stmt ; THEN followed by a statement
|
verb $25,$ab,null_stmt ; THEN followed by a statement
|
||||||
verb $26,$03,$efb6 ; , used in string INPUT
|
verb $26,$03,string_input ; , used in string INPUT
|
||||||
verb $27,$03,$ebcb ; , used in numeric input
|
verb $27,$03,input_num_comma ; , used in numeric input
|
||||||
verb $28,$ff,$ffff
|
verb $28,$ff,$ffff
|
||||||
verb $29,$ff,$ffff
|
verb $29,$ff,$ffff
|
||||||
verb $2a,$55,$e0fb ; ( substring
|
verb $2a,$55,paren_substr ; ( substring
|
||||||
verb $2b,$ff,$ffff
|
verb $2b,$ff,$ffff
|
||||||
verb $2c,$ff,$ffff
|
verb $2c,$ff,$ffff
|
||||||
verb $2d,$55,$ef24 ; ( variable array subscript
|
verb $2d,$55,num_array_subs ; ( variable array subscript
|
||||||
verb $2e,$cf,$eef6 ; PEEK
|
verb $2e,$cf,peek_fn ; PEEK
|
||||||
verb $2f,$cf,$ef4e ; RND
|
verb $2f,$cf,rnd_fn ; RND
|
||||||
verb $30,$cf,$e759 ; SGN
|
verb $30,$cf,sgn_fn ; SGN
|
||||||
verb $31,$cf,$e750 ; ABS
|
verb $31,$cf,abs_fn ; ABS
|
||||||
verb $32,$cf,$0000 ; USR
|
verb $32,$cf,$0000 ; USR
|
||||||
verb $33,$ff,$ffff
|
verb $33,$ff,$ffff
|
||||||
verb $34,$55,$e823 ; ( used in variable DIM
|
verb $34,$55,left_paren ; ( used in variable DIM
|
||||||
verb $35,$c3,$e7a3 ; unary +
|
verb $35,$c3,unary_pos ; unary +
|
||||||
verb $36,$c3,$e76f ; unary -
|
verb $36,$c3,negate ; unary -
|
||||||
verb $37,$c3,$e736 ; NOT
|
verb $37,$c3,not_op ; NOT
|
||||||
verb $38,$55,$e823 ; ( numeric
|
verb $38,$55,left_paren ; ( numeric
|
||||||
verb $39,$f0,$e1d7 ; = string
|
verb $39,$f0,string_eq ; = string
|
||||||
verb $3a,$f0,$e21c ; # string
|
verb $3a,$f0,string_neq ; # string
|
||||||
verb $3b,$cf,len_fn ; LEN(
|
verb $3b,$cf,len_fn ; LEN(
|
||||||
verb $3c,$56,$eec2 ; ASC( XXX doesnt' work
|
verb $3c,$56,asc_fn ; ASC( XXX doesnt' work
|
||||||
verb $3d,$56,Teeae ; SCRN( ???
|
verb $3d,$56,scrn_fn ; SCRN( ???
|
||||||
verb $3e,$56,$eeba ; , used in SCRN
|
verb $3e,$56,scrn_comma ; , used in SCRN
|
||||||
verb $3f,$55,left_paren ; (
|
verb $3f,$55,left_paren ; (
|
||||||
verb $40,$ff,$ffff
|
verb $40,$ff,$ffff
|
||||||
verb $41,$ff,$ffff
|
verb $41,$ff,$ffff
|
||||||
@ -1610,7 +1610,7 @@ verb_addr_h: rmb $78
|
|||||||
verb $63,$03,print_cr ; PRINT w/o arg
|
verb $63,$03,print_cr ; PRINT w/o arg
|
||||||
verb $64,$03,poke_stmt ; POKE
|
verb $64,$03,poke_stmt ; POKE
|
||||||
verb $65,$07,poke_comma ; , in POKE
|
verb $65,$07,poke_comma ; , in POKE
|
||||||
verb $66,$03,$ee4e ; COLOR= ???
|
verb $66,$03,color_stmt ; COLOR= ???
|
||||||
verb $67,$03,$ef00 ; PLOT ???
|
verb $67,$03,$ef00 ; PLOT ???
|
||||||
verb $68,$03,$ee3e ; , in PLOT ???
|
verb $68,$03,$ee3e ; , in PLOT ???
|
||||||
verb $69,$03,$ef00 ; HLIN ???
|
verb $69,$03,$ef00 ; HLIN ???
|
||||||
@ -1753,17 +1753,17 @@ Lebfa: jmp var_assign
|
|||||||
|
|
||||||
fcb $ff,$ff,$ff,$50
|
fcb $ff,$ff,$ff,$50
|
||||||
|
|
||||||
Tec01: jsr Tec13
|
lt_op: jsr gt_eq_op
|
||||||
bne Lec1b
|
bne Lec1b
|
||||||
|
|
||||||
Tec06: jsr Tec0b
|
gt_op: jsr lt_eq_op
|
||||||
bne Lec1b
|
bne Lec1b
|
||||||
|
|
||||||
Tec0b: jsr subtract
|
lt_eq_op: jsr subtract_op
|
||||||
jsr negate
|
jsr negate
|
||||||
bvc Lec16
|
bvc Lec16
|
||||||
|
|
||||||
Tec13: jsr subtract
|
gt_eq_op: jsr subtract_op
|
||||||
Lec16: jsr sgn_fn
|
Lec16: jsr sgn_fn
|
||||||
lsr noun_stk_l,x
|
lsr noun_stk_l,x
|
||||||
Lec1b: jmp not_op
|
Lec1b: jmp not_op
|
||||||
@ -1804,11 +1804,11 @@ category_table:
|
|||||||
fcb ((syn_cat_1e-1)/2)&$ff ; binary operator
|
fcb ((syn_cat_1e-1)/2)&$ff ; binary operator
|
||||||
fcb ((syn_cat_1f-1)/2)&$ff
|
fcb ((syn_cat_1f-1)/2)&$ff
|
||||||
|
|
||||||
Tec40: jsr Sefc9
|
and_op: jsr Sefc9
|
||||||
ora rnd+1,x
|
ora rnd+1,x
|
||||||
bpl Lec4c
|
bpl Lec4c
|
||||||
|
|
||||||
Tec47: jsr Sefc9
|
or_op: jsr Sefc9
|
||||||
and rnd+1,x
|
and rnd+1,x
|
||||||
Lec4c: sta noun_stk_l,x
|
Lec4c: sta noun_stk_l,x
|
||||||
bpl Lec1b
|
bpl Lec1b
|
||||||
@ -2267,7 +2267,8 @@ plot_comma: jsr getbyte
|
|||||||
nop
|
nop
|
||||||
nop
|
nop
|
||||||
|
|
||||||
Tee4e: jsr getbyte
|
; COLOR= statement not usable on Apple 1
|
||||||
|
color_stmt: jsr getbyte
|
||||||
rts
|
rts
|
||||||
|
|
||||||
nop
|
nop
|
||||||
@ -2322,7 +2323,8 @@ call_stmt: jsr get16bit
|
|||||||
|
|
||||||
fcb $20,$34,$ee,$c5,$c8,$90,$bb,$85
|
fcb $20,$34,$ee,$c5,$c8,$90,$bb,$85
|
||||||
|
|
||||||
Teeae: lda himem+1
|
; SCRN function not usable on Apple 1
|
||||||
|
scrn_fn: lda himem+1
|
||||||
|
|
||||||
Teeb0: pha
|
Teeb0: pha
|
||||||
lda himem
|
lda himem
|
||||||
@ -2331,13 +2333,14 @@ Teeb0: pha
|
|||||||
sta noun_stk_h_int,x
|
sta noun_stk_h_int,x
|
||||||
rts
|
rts
|
||||||
|
|
||||||
Teeba: lda lomem+1
|
scrn_comma: lda lomem+1
|
||||||
|
|
||||||
Teebc: pha
|
Teebc: pha
|
||||||
lda lomem
|
lda lomem
|
||||||
jmp Lefb3
|
jmp Lefb3
|
||||||
|
|
||||||
fcb $a5,$85,$2d,$60
|
; bogus code, ASC function doesn't work
|
||||||
|
asc_fn: fcb $a5,$85,$2d,$60
|
||||||
|
|
||||||
Teec6: jsr getbyte
|
Teec6: jsr getbyte
|
||||||
cmp #$28
|
cmp #$28
|
||||||
@ -2385,7 +2388,7 @@ poke_comma: rts
|
|||||||
|
|
||||||
fcb $ff,$ff,$ff
|
fcb $ff,$ff,$ff
|
||||||
|
|
||||||
divide: jsr See6c
|
divide_op: jsr See6c
|
||||||
lda acc
|
lda acc
|
||||||
sta p3
|
sta p3
|
||||||
lda acc+1
|
lda acc+1
|
||||||
@ -2444,7 +2447,7 @@ Lef66: lda rnd+1
|
|||||||
sta noun_stk_h_int,x
|
sta noun_stk_h_int,x
|
||||||
jmp mod_op
|
jmp mod_op
|
||||||
|
|
||||||
Tef80: jsr get16bit
|
himem_cmd: jsr get16bit
|
||||||
ldy acc
|
ldy acc
|
||||||
cpy lomem
|
cpy lomem
|
||||||
lda acc+1
|
lda acc+1
|
||||||
@ -2455,7 +2458,7 @@ Tef80: jsr get16bit
|
|||||||
sta himem+1
|
sta himem+1
|
||||||
Lef93: jmp new_cmd
|
Lef93: jmp new_cmd
|
||||||
|
|
||||||
Tef96: jsr get16bit
|
lomem_cmd: jsr get16bit
|
||||||
ldy acc
|
ldy acc
|
||||||
cpy himem
|
cpy himem
|
||||||
lda acc+1
|
lda acc+1
|
||||||
@ -2502,10 +2505,10 @@ Sefe4: cmp noun_stk_h_str,x
|
|||||||
clc
|
clc
|
||||||
Lefe9: jmp Le102
|
Lefe9: jmp Le102
|
||||||
|
|
||||||
Tefec: jsr clr
|
run_cmd: jsr clr_cmd
|
||||||
jmp run_warm
|
jmp run_warm
|
||||||
|
|
||||||
Teff2: jsr clr
|
run_cmd_w_lno: jsr clr_cmd
|
||||||
jmp goto_stmt
|
jmp goto_stmt
|
||||||
|
|
||||||
Seff8: cpx #$80
|
Seff8: cpx #$80
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user