mirror of https://github.com/brouhaha/a1basic.git
Clean up immediate operands.
This commit is contained in:
Eric Smith
parent
b6587fdbdb
commit
d7e6f6be29
223
a1basic.asm
223
a1basic.asm
|
|
@ -230,36 +230,36 @@ Le083: jsr Se018
|
||||||
jsr Se011
|
jsr Se011
|
||||||
Le095: txa
|
Le095: txa
|
||||||
Le096: jsr cout
|
Le096: jsr cout
|
||||||
Le099: lda #$25 ; 37 %
|
Le099: lda #$25
|
||||||
jsr Se01a
|
jsr Se01a
|
||||||
tax
|
tax
|
||||||
bmi Le096
|
bmi Le096
|
||||||
sta p2
|
sta p2
|
||||||
list_token: cmp #$01 ; 1 .
|
list_token: cmp #$01
|
||||||
bne Le0ac
|
bne Le0ac
|
||||||
ldx x_save
|
ldx x_save
|
||||||
jmp crout
|
jmp crout
|
||||||
Le0ac: pha
|
Le0ac: pha
|
||||||
sty acc
|
sty acc
|
||||||
ldx #$ed ; 237 m
|
ldx #$ed
|
||||||
stx acc+1
|
stx acc+1
|
||||||
cmp #$51 ; 81 Q
|
cmp #$51
|
||||||
bcc Le0bb
|
bcc Le0bb
|
||||||
dec acc+1
|
dec acc+1
|
||||||
sbc #$50 ; 80 P
|
sbc #$50
|
||||||
Le0bb: pha
|
Le0bb: pha
|
||||||
lda (acc),y
|
lda (acc),y
|
||||||
Le0be: tax
|
Le0be: tax
|
||||||
dey
|
dey
|
||||||
lda (acc),y
|
lda (acc),y
|
||||||
bpl Le0be
|
bpl Le0be
|
||||||
cpx #$c0 ; 192 @
|
cpx #$c0
|
||||||
bcs Le0cc
|
bcs Le0cc
|
||||||
cpx #$00 ; 0 .
|
cpx #$00
|
||||||
bmi Le0be
|
bmi Le0be
|
||||||
Le0cc: tax
|
Le0cc: tax
|
||||||
pla
|
pla
|
||||||
sbc #$01 ; 1 .
|
sbc #$01
|
||||||
bne Le0bb
|
bne Le0bb
|
||||||
bit p2
|
bit p2
|
||||||
bmi Le0d9
|
bmi Le0d9
|
||||||
|
|
@ -267,19 +267,19 @@ Le0cc: tax
|
||||||
Le0d9: lda (acc),y
|
Le0d9: lda (acc),y
|
||||||
bpl Le0ed
|
bpl Le0ed
|
||||||
tax
|
tax
|
||||||
and #$3f ; 63 ?
|
and #$3f
|
||||||
sta p2
|
sta p2
|
||||||
clc
|
clc
|
||||||
adc #$a0 ; 160
|
adc #' '+$80
|
||||||
jsr cout
|
jsr cout
|
||||||
dey
|
dey
|
||||||
cpx #$c0 ; 192 @
|
cpx #$c0
|
||||||
bcc Le0d9
|
bcc Le0d9
|
||||||
Le0ed: jsr Se00c
|
Le0ed: jsr Se00c
|
||||||
pla
|
pla
|
||||||
cmp #$5d ; 93 ]
|
cmp #$5d
|
||||||
beq Le099
|
beq Le099
|
||||||
cmp #$28 ; 40 (
|
cmp #$28
|
||||||
bne Le083
|
bne Le083
|
||||||
beq Le099
|
beq Le099
|
||||||
|
|
||||||
|
|
@ -287,7 +287,7 @@ paren_substr: jsr Se118
|
||||||
sta noun_stk_l,x
|
sta noun_stk_l,x
|
||||||
cmp noun_stk_h_str,x
|
cmp noun_stk_h_str,x
|
||||||
Le102: bcc Le115
|
Le102: bcc Le115
|
||||||
string_err: ldy #$2b ; 43 +
|
string_err: ldy #$2b
|
||||||
go_errmess_1: jmp do_error
|
go_errmess_1: jmp do_error
|
||||||
|
|
||||||
comma_substr: jsr getbyte
|
comma_substr: jsr getbyte
|
||||||
|
|
@ -300,7 +300,7 @@ Le115: jmp left_paren
|
||||||
Se118: jsr getbyte
|
Se118: jsr getbyte
|
||||||
beq string_err
|
beq string_err
|
||||||
sec
|
sec
|
||||||
sbc #$01 ; 1 .
|
sbc #$01
|
||||||
rts
|
rts
|
||||||
|
|
||||||
str_arr_dest: jsr Se118
|
str_arr_dest: jsr Se118
|
||||||
|
|
@ -308,7 +308,7 @@ str_arr_dest: jsr Se118
|
||||||
clc
|
clc
|
||||||
sbc noun_stk_h_str,x
|
sbc noun_stk_h_str,x
|
||||||
jmp Le102
|
jmp Le102
|
||||||
Le12c: ldy #$14 ; 20 .
|
Le12c: ldy #$14
|
||||||
bne go_errmess_1
|
bne go_errmess_1
|
||||||
|
|
||||||
dim_str: jsr Se118
|
dim_str: jsr Se118
|
||||||
|
|
@ -326,9 +326,9 @@ Le134: lda noun_stk_l,x
|
||||||
sbc pp+1
|
sbc pp+1
|
||||||
bcs Le12c
|
bcs Le12c
|
||||||
lda aux
|
lda aux
|
||||||
adc #$fe ; 254 ~
|
adc #$fe
|
||||||
sta aux
|
sta aux
|
||||||
lda #$ff ; 255 .
|
lda #$ff
|
||||||
tay
|
tay
|
||||||
adc aux+1
|
adc aux+1
|
||||||
sta aux+1
|
sta aux+1
|
||||||
|
|
@ -348,17 +348,17 @@ Le161: pla
|
||||||
|
|
||||||
nop ; unused
|
nop ; unused
|
||||||
|
|
||||||
Le16d: ldy #$80 ; 128 .
|
Le16d: ldy #$80
|
||||||
Le16f: bne go_errmess_1
|
Le16f: bne go_errmess_1
|
||||||
|
|
||||||
input_str: lda #$00 ; 0 .
|
input_str: lda #$00
|
||||||
jsr push_a_noun_stk
|
jsr push_a_noun_stk
|
||||||
ldy #$02 ; 2 .
|
ldy #$02
|
||||||
sty noun_stk_h_str,x
|
sty noun_stk_h_str,x
|
||||||
jsr push_a_noun_stk
|
jsr push_a_noun_stk
|
||||||
lda #$bf ; 191 ?
|
lda #$bf
|
||||||
jsr cout
|
jsr cout
|
||||||
ldy #$00 ; 0 .
|
ldy #$00
|
||||||
jsr read_line
|
jsr read_line
|
||||||
sty noun_stk_h_str,x
|
sty noun_stk_h_str,x
|
||||||
|
|
||||||
|
|
@ -382,7 +382,7 @@ Le199: lda rnd,x
|
||||||
ldy noun_stk_l,x
|
ldy noun_stk_l,x
|
||||||
cpy p2
|
cpy p2
|
||||||
bcc Le1ae
|
bcc Le1ae
|
||||||
ldy #$83 ; 131 .
|
ldy #$83
|
||||||
bne Le16f
|
bne Le16f
|
||||||
Le1ae: sta (aux),y
|
Le1ae: sta (aux),y
|
||||||
inc noun_stk_l,x
|
inc noun_stk_l,x
|
||||||
|
|
@ -397,13 +397,13 @@ Le1b4: ldy noun_stk_l,x
|
||||||
Se1bc: lda noun_stk_l+1,x
|
Se1bc: lda noun_stk_l+1,x
|
||||||
sta aux
|
sta aux
|
||||||
sec
|
sec
|
||||||
sbc #$02 ; 2 .
|
sbc #$02
|
||||||
sta p2
|
sta p2
|
||||||
lda noun_stk_h_str+1,x
|
lda noun_stk_h_str+1,x
|
||||||
sta aux+1
|
sta aux+1
|
||||||
sbc #$00 ; 0 .
|
sbc #$00
|
||||||
sta p2+1
|
sta p2+1
|
||||||
ldy #$00 ; 0 .
|
ldy #$00
|
||||||
lda (p2),y
|
lda (p2),y
|
||||||
clc
|
clc
|
||||||
sbc aux
|
sbc aux
|
||||||
|
|
@ -421,7 +421,7 @@ string_eq: lda noun_stk_l+3,x
|
||||||
inx
|
inx
|
||||||
inx
|
inx
|
||||||
inx
|
inx
|
||||||
ldy #$00 ; 0 .
|
ldy #$00
|
||||||
sty noun_stk_h_str,x
|
sty noun_stk_h_str,x
|
||||||
sty noun_stk_h_int,x
|
sty noun_stk_h_int,x
|
||||||
iny
|
iny
|
||||||
|
|
@ -481,7 +481,7 @@ Le244: lda p3
|
||||||
bcc Le279
|
bcc Le279
|
||||||
jmp negate
|
jmp negate
|
||||||
|
|
||||||
Se254: lda #$55 ; 85 U
|
Se254: lda #$55
|
||||||
sta p2+1
|
sta p2+1
|
||||||
jsr Se25b
|
jsr Se25b
|
||||||
|
|
||||||
|
|
@ -498,27 +498,27 @@ Se25b: lda acc
|
||||||
asl p2+1
|
asl p2+1
|
||||||
jsr negate
|
jsr negate
|
||||||
jsr get16bit
|
jsr get16bit
|
||||||
Le277: ldy #$10 ; 16 .
|
Le277: ldy #$10
|
||||||
Le279: rts
|
Le279: rts
|
||||||
|
|
||||||
mod_op: jsr See6c
|
mod_op: jsr See6c
|
||||||
beq Le244 ; hoepfully always taken
|
beq Le244 ; hoepfully always taken
|
||||||
fcb $ff ; hopefully unused
|
fcb $ff ; hopefully unused
|
||||||
|
|
||||||
Le280: cmp #$84 ; 132 .
|
Le280: cmp #$84
|
||||||
bne Le286
|
bne Le286
|
||||||
lsr auto_flag
|
lsr auto_flag
|
||||||
Le286: cmp #$df ; 223 _
|
Le286: cmp #$df
|
||||||
beq Le29b
|
beq Le29b
|
||||||
cmp #$9b ; 155 .
|
cmp #$9b
|
||||||
beq Le294
|
beq Le294
|
||||||
sta buffer,y
|
sta buffer,y
|
||||||
iny
|
iny
|
||||||
bpl read_line
|
bpl read_line
|
||||||
Le294: ldy #$8b ; 139 .
|
Le294: ldy #$8b
|
||||||
jsr Se3c4
|
jsr Se3c4
|
||||||
|
|
||||||
Se299: ldy #$01 ; 1 .
|
Se299: ldy #$01
|
||||||
Le29b: dey
|
Le29b: dey
|
||||||
bmi Le294
|
bmi Le294
|
||||||
|
|
||||||
|
|
@ -537,38 +537,38 @@ read_line: jsr rdkey
|
||||||
cold: jsr mem_init_4k
|
cold: jsr mem_init_4k
|
||||||
warm: jsr crout
|
warm: jsr crout
|
||||||
Le2b6: lsr run_flag
|
Le2b6: lsr run_flag
|
||||||
lda #$be ; 190 >
|
lda #$be
|
||||||
jsr cout
|
jsr cout
|
||||||
ldy #$00 ; 0 .
|
ldy #$00
|
||||||
sty leadzr
|
sty leadzr
|
||||||
bit auto_flag
|
bit auto_flag
|
||||||
bpl Le2d1
|
bpl Le2d1
|
||||||
ldx auto_ln
|
ldx auto_ln
|
||||||
lda auto_ln+1
|
lda auto_ln+1
|
||||||
jsr prdec
|
jsr prdec
|
||||||
lda #$a0 ; 160
|
lda #' '+$80
|
||||||
jsr cout
|
jsr cout
|
||||||
Le2d1: ldx #$ff ; 255 .
|
Le2d1: ldx #$ff
|
||||||
txs
|
txs
|
||||||
jsr read_line
|
jsr read_line
|
||||||
sty token_index
|
sty token_index
|
||||||
txa
|
txa
|
||||||
sta text_index
|
sta text_index
|
||||||
ldx #$20 ; 32
|
ldx #$20
|
||||||
jsr Se491
|
jsr Se491
|
||||||
lda text_index
|
lda text_index
|
||||||
adc #$00 ; 0 .
|
adc #$00
|
||||||
sta pverb
|
sta pverb
|
||||||
lda #$00 ; 0 .
|
lda #$00
|
||||||
tax
|
tax
|
||||||
adc #$02 ; 2 .
|
adc #$02
|
||||||
sta pverb+1
|
sta pverb+1
|
||||||
lda (pverb,x)
|
lda (pverb,x)
|
||||||
and #$f0 ; 240 p
|
and #$f0
|
||||||
cmp #$b0 ; 176 0
|
cmp #$b0
|
||||||
beq Le2f9
|
beq Le2f9
|
||||||
jmp Le883
|
jmp Le883
|
||||||
Le2f9: ldy #$02 ; 2 .
|
Le2f9: ldy #$02
|
||||||
Le2fb: lda (pverb),y
|
Le2fb: lda (pverb),y
|
||||||
sta pv+1,y
|
sta pv+1,y
|
||||||
dey
|
dey
|
||||||
|
|
@ -576,14 +576,14 @@ Le2fb: lda (pverb),y
|
||||||
jsr Se38a
|
jsr Se38a
|
||||||
lda token_index
|
lda token_index
|
||||||
sbc text_index
|
sbc text_index
|
||||||
cmp #$04 ; 4 .
|
cmp #$04
|
||||||
beq Le2b6
|
beq Le2b6
|
||||||
sta (pverb),y
|
sta (pverb),y
|
||||||
lda pp
|
lda pp
|
||||||
sbc (pverb),y
|
sbc (pverb),y
|
||||||
sta p2
|
sta p2
|
||||||
lda pp+1
|
lda pp+1
|
||||||
sbc #$00 ; 0 .
|
sbc #$00
|
||||||
sta p2+1
|
sta p2+1
|
||||||
lda p2
|
lda p2
|
||||||
cmp pv
|
cmp pv
|
||||||
|
|
@ -594,7 +594,7 @@ Le326: lda pp
|
||||||
sbc (pverb),y
|
sbc (pverb),y
|
||||||
sta p3
|
sta p3
|
||||||
lda pp+1
|
lda pp+1
|
||||||
sbc #$00 ; 0 .
|
sbc #$00
|
||||||
sta p3+1
|
sta p3+1
|
||||||
lda (pp),y
|
lda (pp),y
|
||||||
sta (p3),y
|
sta (p3),y
|
||||||
|
|
@ -701,7 +701,7 @@ Le3e5: bmi Le3ea
|
||||||
Le3ea: jmp Leb9a
|
Le3ea: jmp Leb9a
|
||||||
|
|
||||||
Le3ed: rol
|
Le3ed: rol
|
||||||
adc #$a0 ; 160
|
adc #$a0
|
||||||
cmp buffer,x
|
cmp buffer,x
|
||||||
bne Le448
|
bne Le448
|
||||||
lda (synpag),y
|
lda (synpag),y
|
||||||
|
|
@ -714,13 +714,13 @@ Le3ed: rol
|
||||||
Le400: stx text_index
|
Le400: stx text_index
|
||||||
tya
|
tya
|
||||||
pha
|
pha
|
||||||
ldx #$00 ; 0 .
|
ldx #$00
|
||||||
lda (synpag,x)
|
lda (synpag,x)
|
||||||
tax
|
tax
|
||||||
Le409: lsr
|
Le409: lsr
|
||||||
eor #$48 ; 72 H
|
eor #$48
|
||||||
ora (synpag),y
|
ora (synpag),y
|
||||||
cmp #$c0 ; 192 @
|
cmp #$c0
|
||||||
bcc Le413
|
bcc Le413
|
||||||
inx
|
inx
|
||||||
Le413: iny
|
Le413: iny
|
||||||
|
|
@ -737,27 +737,27 @@ put_token: inc token_index
|
||||||
Le425: rts
|
Le425: rts
|
||||||
|
|
||||||
Le426: ldx text_index
|
Le426: ldx text_index
|
||||||
Le428: lda #$a0 ; 160
|
Le428: lda #$a0
|
||||||
Le42a: inx
|
Le42a: inx
|
||||||
cmp buffer,x
|
cmp buffer,x
|
||||||
bcs Le42a
|
bcs Le42a
|
||||||
lda (synpag),y
|
lda (synpag),y
|
||||||
and #$3f ; 63 ?
|
and #$3f
|
||||||
lsr
|
lsr
|
||||||
bne Le3ed
|
bne Le3ed
|
||||||
lda buffer,x
|
lda buffer,x
|
||||||
bcs Le442
|
bcs Le442
|
||||||
adc #$3f ; 63 ?
|
adc #$3f
|
||||||
cmp #$1a ; 26 .
|
cmp #$1a
|
||||||
bcc Le4b1
|
bcc Le4b1
|
||||||
Le442: adc #$4f ; 79 O
|
Le442: adc #$4f
|
||||||
cmp #$0a ; 10 .
|
cmp #$0a
|
||||||
bcc Le4b1
|
bcc Le4b1
|
||||||
Le448: ldx synstkdx
|
Le448: ldx synstkdx
|
||||||
Le44a: iny
|
Le44a: iny
|
||||||
lda (synpag),y
|
lda (synpag),y
|
||||||
and #$e0 ; 224 `
|
and #$e0
|
||||||
cmp #$20 ; 32
|
cmp #$20
|
||||||
beq Le4cd
|
beq Le4cd
|
||||||
lda txtndxstk,x
|
lda txtndxstk,x
|
||||||
sta text_index
|
sta text_index
|
||||||
|
|
@ -777,12 +777,13 @@ Le45b: dey
|
||||||
inx
|
inx
|
||||||
bpl Le44a
|
bpl Le44a
|
||||||
Le470: beq Le425
|
Le470: beq Le425
|
||||||
cmp #$7e ; 126 ~
|
cmp #$7e
|
||||||
bcs Le498
|
bcs Le498
|
||||||
dex
|
dex
|
||||||
bpl Le47d
|
bpl Le47d
|
||||||
ldy #$06
|
ldy #$06
|
||||||
bpl go_errmess_2
|
bpl go_errmess_2 ; always taken
|
||||||
|
|
||||||
|
|
||||||
Le47d: sty syn_stk_l,x
|
Le47d: sty syn_stk_l,x
|
||||||
ldy synpag+1
|
ldy synpag+1
|
||||||
|
|
@ -817,7 +818,7 @@ Le4a9: cmp #$03
|
||||||
inx
|
inx
|
||||||
Le4b1: lda buffer,x
|
Le4b1: lda buffer,x
|
||||||
bcc Le4ba
|
bcc Le4ba
|
||||||
cmp #$a2 ; 162 "
|
cmp #'"'+$80
|
||||||
beq Le4c4
|
beq Le4c4
|
||||||
Le4ba: cmp #'_'+$80
|
Le4ba: cmp #'_'+$80
|
||||||
beq Le4c4
|
beq Le4c4
|
||||||
|
|
@ -835,7 +836,7 @@ Le4cd: ldy syn_stk_h,x
|
||||||
ldy syn_stk_l,x
|
ldy syn_stk_l,x
|
||||||
inx
|
inx
|
||||||
lda (synpag),y
|
lda (synpag),y
|
||||||
and #$9f ; 159 .
|
and #$9f
|
||||||
bne Le4c7
|
bne Le4c7
|
||||||
sta pcon
|
sta pcon
|
||||||
sta pcon+1
|
sta pcon+1
|
||||||
|
|
@ -845,12 +846,12 @@ Le4cd: ldy syn_stk_h,x
|
||||||
ldy srch,x
|
ldy srch,x
|
||||||
sty leadbl
|
sty leadbl
|
||||||
clc
|
clc
|
||||||
Le4e7: lda #$0a ; 10 .
|
Le4e7: lda #$0a
|
||||||
sta char
|
sta char
|
||||||
ldx #$00 ; 0 .
|
ldx #$00
|
||||||
iny
|
iny
|
||||||
lda buffer,y
|
lda buffer,y
|
||||||
and #$0f ; 15 .
|
and #$0f
|
||||||
Le4f3: adc pcon
|
Le4f3: adc pcon
|
||||||
pha
|
pha
|
||||||
txa
|
txa
|
||||||
|
|
@ -872,12 +873,12 @@ Le4f3: adc pcon
|
||||||
tay
|
tay
|
||||||
lda pcon+1
|
lda pcon+1
|
||||||
bcs Le4c0
|
bcs Le4c0
|
||||||
Le517: ldy #$00 ; 0 .
|
Le517: ldy #$00
|
||||||
bpl go_errmess_2
|
bpl go_errmess_2
|
||||||
|
|
||||||
prdec: sta pcon+1
|
prdec: sta pcon+1
|
||||||
stx pcon
|
stx pcon
|
||||||
ldx #$04 ; 4 .
|
ldx #$04
|
||||||
stx leadbl
|
stx leadbl
|
||||||
Le523: lda #'0'+$80
|
Le523: lda #'0'+$80
|
||||||
sta char
|
sta char
|
||||||
|
|
@ -963,7 +964,7 @@ dectabh: fcb $00,$00,$00,$03,$27
|
||||||
sta pv
|
sta pv
|
||||||
lda lomem+1
|
lda lomem+1
|
||||||
sta pv+1
|
sta pv+1
|
||||||
lda #$00 ; 0 .
|
lda #$00
|
||||||
sta for_nest_count
|
sta for_nest_count
|
||||||
sta gosub_nest_count
|
sta gosub_nest_count
|
||||||
sta synpag
|
sta synpag
|
||||||
|
|
@ -1081,7 +1082,7 @@ Le696: bit if_flag
|
||||||
dex
|
dex
|
||||||
Le69b: jsr get_next_prog_byte
|
Le69b: jsr get_next_prog_byte
|
||||||
bcs Le686
|
bcs Le686
|
||||||
execute_token: cmp #$28 ; 40 (
|
execute_token: cmp #$28
|
||||||
bne execute_verb
|
bne execute_verb
|
||||||
lda pverb
|
lda pverb
|
||||||
jsr push_a_noun_stk
|
jsr push_a_noun_stk
|
||||||
|
|
@ -1105,13 +1106,13 @@ execute_verb: bit if_flag
|
||||||
Le6cd: tay
|
Le6cd: tay
|
||||||
sta current_verb
|
sta current_verb
|
||||||
lda verb_prec_tbl,y
|
lda verb_prec_tbl,y
|
||||||
and #$55 ; 85 U
|
and #$55
|
||||||
asl
|
asl
|
||||||
sta precedence
|
sta precedence
|
||||||
Le6d8: pla
|
Le6d8: pla
|
||||||
tay
|
tay
|
||||||
lda verb_prec_tbl,y
|
lda verb_prec_tbl,y
|
||||||
and #$aa ; 170 *
|
and #$aa
|
||||||
cmp precedence
|
cmp precedence
|
||||||
bcs do_verb
|
bcs do_verb
|
||||||
tya
|
tya
|
||||||
|
|
@ -1147,7 +1148,7 @@ push_a_noun_stk:
|
||||||
Le710: ldy #erri_stopped_at+3 ; The "+3" is a bug!
|
Le710: ldy #erri_stopped_at+3 ; The "+3" is a bug!
|
||||||
go_errmess_3: jmp do_error
|
go_errmess_3: jmp do_error
|
||||||
|
|
||||||
get16bit: ldy #$00 ; 0 .
|
get16bit: ldy #$00
|
||||||
lda noun_stk_l,x
|
lda noun_stk_l,x
|
||||||
sta acc
|
sta acc
|
||||||
lda noun_stk_h_int,x
|
lda noun_stk_h_int,x
|
||||||
|
|
@ -1193,7 +1194,7 @@ sgn_fn: jsr get16bit
|
||||||
bne Le764
|
bne Le764
|
||||||
lda acc
|
lda acc
|
||||||
beq Le757
|
beq Le757
|
||||||
Le764: lda #$ff ; 255 .
|
Le764: lda #$ff
|
||||||
jsr push_ya_noun_stk
|
jsr push_ya_noun_stk
|
||||||
sta noun_stk_h_int,x
|
sta noun_stk_h_int,x
|
||||||
bit acc+1
|
bit acc+1
|
||||||
|
|
@ -1208,7 +1209,7 @@ Se772: tya
|
||||||
tya
|
tya
|
||||||
sbc acc+1
|
sbc acc+1
|
||||||
bvc Le7a1
|
bvc Le7a1
|
||||||
Le77e: ldy #$00 ; 0 .
|
Le77e: ldy #$00
|
||||||
bpl go_errmess_3
|
bpl go_errmess_3
|
||||||
|
|
||||||
subtract: jsr negate
|
subtract: jsr negate
|
||||||
|
|
@ -1274,7 +1275,7 @@ auto_cmd: jsr get16bit
|
||||||
dey
|
dey
|
||||||
sty auto_flag
|
sty auto_flag
|
||||||
iny
|
iny
|
||||||
lda #$0a ; 10 .
|
lda #$0a
|
||||||
Le7f3: sta auto_inc
|
Le7f3: sta auto_inc
|
||||||
sty auto_inc+1
|
sty auto_inc+1
|
||||||
rts
|
rts
|
||||||
|
|
@ -1309,14 +1310,14 @@ print_cr: jsr crout
|
||||||
print_semi: lsr cr_flag
|
print_semi: lsr cr_flag
|
||||||
Le822: rts
|
Le822: rts
|
||||||
|
|
||||||
left_paren: ldy #$ff ; 255 .
|
left_paren: ldy #$ff
|
||||||
sty precedence
|
sty precedence
|
||||||
|
|
||||||
right_paren: rts
|
right_paren: rts
|
||||||
|
|
||||||
if_stmt: jsr Sefcd
|
if_stmt: jsr Sefcd
|
||||||
beq Le834
|
beq Le834
|
||||||
lda #$25 ; 37 %
|
lda #$25
|
||||||
sta current_verb
|
sta current_verb
|
||||||
dey
|
dey
|
||||||
sty if_flag
|
sty if_flag
|
||||||
|
|
@ -1327,7 +1328,7 @@ run_warm: lda pp
|
||||||
ldy pp+1
|
ldy pp+1
|
||||||
bne Le896
|
bne Le896
|
||||||
|
|
||||||
gosub_stmt: ldy #$41 ; 65 A
|
gosub_stmt: ldy #$41
|
||||||
lda gosub_nest_count
|
lda gosub_nest_count
|
||||||
cmp #8
|
cmp #8
|
||||||
bcs go_errmess_4
|
bcs go_errmess_4
|
||||||
|
|
@ -1345,7 +1346,7 @@ gosub_stmt: ldy #$41 ; 65 A
|
||||||
goto_stmt: jsr get16bit
|
goto_stmt: jsr get16bit
|
||||||
jsr find_line
|
jsr find_line
|
||||||
bcc Le867
|
bcc Le867
|
||||||
ldy #$37 ; 55 7
|
ldy #$37
|
||||||
bne go_errmess_4
|
bne go_errmess_4
|
||||||
Le867: lda p2
|
Le867: lda p2
|
||||||
ldy p2+1
|
ldy p2+1
|
||||||
|
|
@ -1357,7 +1358,7 @@ run_loop: sta pline
|
||||||
adc #$03
|
adc #$03
|
||||||
bcc Le87a
|
bcc Le87a
|
||||||
iny
|
iny
|
||||||
Le87a: ldx #$ff ; 255 .
|
Le87a: ldx #$ff
|
||||||
stx run_flag
|
stx run_flag
|
||||||
txs
|
txs
|
||||||
sta pverb
|
sta pverb
|
||||||
|
|
@ -1366,7 +1367,7 @@ Le883: jsr execute_stmt
|
||||||
bit run_flag
|
bit run_flag
|
||||||
bpl end_stmt
|
bpl end_stmt
|
||||||
clc
|
clc
|
||||||
ldy #$00 ; 0 .
|
ldy #$00
|
||||||
lda pline
|
lda pline
|
||||||
adc (pline),y
|
adc (pline),y
|
||||||
ldy pline+1
|
ldy pline+1
|
||||||
|
|
@ -1380,7 +1381,7 @@ Le896: cmp himem
|
||||||
lsr run_flag
|
lsr run_flag
|
||||||
go_errmess_4: jmp do_error
|
go_errmess_4: jmp do_error
|
||||||
|
|
||||||
return_stmt: ldy #$4a ; 74 J
|
return_stmt: ldy #$4a
|
||||||
lda gosub_nest_count
|
lda gosub_nest_count
|
||||||
beq go_errmess_4
|
beq go_errmess_4
|
||||||
dec gosub_nest_count
|
dec gosub_nest_count
|
||||||
|
|
@ -1398,7 +1399,7 @@ Le8be: tay
|
||||||
txa
|
txa
|
||||||
jmp Le87a
|
jmp Le87a
|
||||||
|
|
||||||
Le8c3: ldy #$63 ; 99 c
|
Le8c3: ldy #$63
|
||||||
jsr Se3c4
|
jsr Se3c4
|
||||||
ldy #$01
|
ldy #$01
|
||||||
lda (pline),y
|
lda (pline),y
|
||||||
|
|
@ -1433,7 +1434,7 @@ Le8dc: beq go_errmess_4
|
||||||
lda fstk_toh-1,y
|
lda fstk_toh-1,y
|
||||||
sta syn_stk_l+31,x
|
sta syn_stk_l+31,x
|
||||||
lda fstk_tol-1,y
|
lda fstk_tol-1,y
|
||||||
ldy #$00 ; 0 .
|
ldy #$00
|
||||||
jsr push_ya_noun_stk
|
jsr push_ya_noun_stk
|
||||||
jsr subtract
|
jsr subtract
|
||||||
jsr sgn_fn
|
jsr sgn_fn
|
||||||
|
|
@ -1455,7 +1456,7 @@ Le937: dec for_nest_count
|
||||||
|
|
||||||
for_stmt: ldy #erri_too_many_fors
|
for_stmt: ldy #erri_too_many_fors
|
||||||
lda for_nest_count
|
lda for_nest_count
|
||||||
cmp #$08 ; 8 .
|
cmp #$08
|
||||||
beq Le8dc
|
beq Le8dc
|
||||||
inc for_nest_count
|
inc for_nest_count
|
||||||
tay
|
tay
|
||||||
|
|
@ -1697,22 +1698,22 @@ Leb9a: lsr run_flag
|
||||||
Leba1: ldx acc+1
|
Leba1: ldx acc+1
|
||||||
txs
|
txs
|
||||||
ldx acc
|
ldx acc
|
||||||
ldy #$8d ; 141 .
|
ldy #$8d
|
||||||
bne Lebac
|
bne Lebac
|
||||||
|
|
||||||
input_num_stmt: ldy #$99 ; 153 .
|
input_num_stmt: ldy #$99
|
||||||
Lebac: jsr Se3c4
|
Lebac: jsr Se3c4
|
||||||
stx acc
|
stx acc
|
||||||
tsx
|
tsx
|
||||||
stx acc+1
|
stx acc+1
|
||||||
ldy #$fe ; 254 ~
|
ldy #$fe
|
||||||
sty run_flag
|
sty run_flag
|
||||||
iny
|
iny
|
||||||
sty text_index
|
sty text_index
|
||||||
jsr Se299
|
jsr Se299
|
||||||
sty token_index
|
sty token_index
|
||||||
ldx #$20 ; 32
|
ldx #$20
|
||||||
lda #$30 ; 48 0
|
lda #$30
|
||||||
jsr Se491
|
jsr Se491
|
||||||
inc run_flag
|
inc run_flag
|
||||||
ldx acc
|
ldx acc
|
||||||
|
|
@ -1722,10 +1723,10 @@ input_num_comma: ldy text_index
|
||||||
Lebce: sta acc
|
Lebce: sta acc
|
||||||
iny
|
iny
|
||||||
lda buffer,y
|
lda buffer,y
|
||||||
cmp #$74 ; 116 t
|
cmp #$74
|
||||||
beq input_num_stmt
|
beq input_num_stmt
|
||||||
eor #$b0 ; 176 0
|
eor #$b0
|
||||||
cmp #$0a ; 10 .
|
cmp #$0a
|
||||||
bcs Lebce
|
bcs Lebce
|
||||||
iny
|
iny
|
||||||
iny
|
iny
|
||||||
|
|
@ -1738,7 +1739,7 @@ Lebce: sta acc
|
||||||
pla
|
pla
|
||||||
sta noun_stk_h_int,x
|
sta noun_stk_h_int,x
|
||||||
lda acc
|
lda acc
|
||||||
cmp #$c7 ; 199 G
|
cmp #$c7
|
||||||
bne Lebfa
|
bne Lebfa
|
||||||
jsr negate
|
jsr negate
|
||||||
Lebfa: jmp var_assign
|
Lebfa: jmp var_assign
|
||||||
|
|
@ -2231,7 +2232,7 @@ Lee1d: lda #$ff
|
||||||
rts
|
rts
|
||||||
|
|
||||||
len_fn: inx
|
len_fn: inx
|
||||||
lda #$00 ; 0 .
|
lda #$00
|
||||||
sta noun_stk_h_str,x
|
sta noun_stk_h_str,x
|
||||||
sta noun_stk_h_int,x
|
sta noun_stk_h_int,x
|
||||||
lda syn_stk_h+31,x
|
lda syn_stk_h+31,x
|
||||||
|
|
@ -2250,9 +2251,9 @@ getbyte: jsr get16bit
|
||||||
|
|
||||||
plot_comma: jsr getbyte
|
plot_comma: jsr getbyte
|
||||||
ldy text_index
|
ldy text_index
|
||||||
cmp #$30 ; 48 0
|
cmp #$30
|
||||||
bcs range_err
|
bcs range_err
|
||||||
cpy #$28 ; 40 (
|
cpy #$28
|
||||||
bcs range_err
|
bcs range_err
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
@ -2269,7 +2270,7 @@ man_cmd: lsr auto_flag
|
||||||
rts
|
rts
|
||||||
|
|
||||||
vtab_stmt: jsr getbyte
|
vtab_stmt: jsr getbyte
|
||||||
cmp #$18 ; 24 .
|
cmp #$18
|
||||||
bcs range_err
|
bcs range_err
|
||||||
sta cv
|
sta cv
|
||||||
rts
|
rts
|
||||||
|
|
@ -2332,7 +2333,7 @@ Teebc: pha
|
||||||
fcb $a5,$85,$2d,$60
|
fcb $a5,$85,$2d,$60
|
||||||
|
|
||||||
Teec6: jsr getbyte
|
Teec6: jsr getbyte
|
||||||
cmp #$28 ; 40 (
|
cmp #$28
|
||||||
Leecb: bcs range_err
|
Leecb: bcs range_err
|
||||||
tay
|
tay
|
||||||
lda text_index
|
lda text_index
|
||||||
|
|
@ -2343,12 +2344,12 @@ Leecb: bcs range_err
|
||||||
|
|
||||||
print_err_msg: tya
|
print_err_msg: tya
|
||||||
tax
|
tax
|
||||||
ldy #$6e ; 110 n
|
ldy #$6e
|
||||||
jsr Se3c4
|
jsr Se3c4
|
||||||
txa
|
txa
|
||||||
tay
|
tay
|
||||||
jsr Se3c4
|
jsr Se3c4
|
||||||
ldy #$72 ; 114 r
|
ldy #$72
|
||||||
jmp Se3c4
|
jmp Se3c4
|
||||||
|
|
||||||
Seee4: jsr get16bit
|
Seee4: jsr get16bit
|
||||||
|
|
@ -2390,7 +2391,7 @@ dim_num: jsr Seee4
|
||||||
num_array_subs: jsr Seee4
|
num_array_subs: jsr Seee4
|
||||||
ldy noun_stk_h_str,x
|
ldy noun_stk_h_str,x
|
||||||
lda noun_stk_l,x
|
lda noun_stk_l,x
|
||||||
adc #$fe ; 254 ~
|
adc #$fe
|
||||||
bcs Lef30
|
bcs Lef30
|
||||||
dey
|
dey
|
||||||
Lef30: sta aux
|
Lef30: sta aux
|
||||||
|
|
@ -2401,7 +2402,7 @@ Lef30: sta aux
|
||||||
tya
|
tya
|
||||||
adc acc+1
|
adc acc+1
|
||||||
sta noun_stk_h_str,x
|
sta noun_stk_h_str,x
|
||||||
ldy #$00 ; 0 .
|
ldy #$00
|
||||||
lda noun_stk_l,x
|
lda noun_stk_l,x
|
||||||
cmp (aux),y
|
cmp (aux),y
|
||||||
iny
|
iny
|
||||||
|
|
@ -2420,11 +2421,11 @@ rnd_fn: jsr get16bit
|
||||||
Lef5e: and #$7f
|
Lef5e: and #$7f
|
||||||
sta rnd+1
|
sta rnd+1
|
||||||
sta noun_stk_h_int,x
|
sta noun_stk_h_int,x
|
||||||
ldy #$11 ; 17 .
|
ldy #$11
|
||||||
Lef66: lda rnd+1
|
Lef66: lda rnd+1
|
||||||
asl
|
asl
|
||||||
clc
|
clc
|
||||||
adc #$40 ; 64 @
|
adc #$40
|
||||||
asl
|
asl
|
||||||
rol rnd
|
rol rnd
|
||||||
rol rnd+1
|
rol rnd+1
|
||||||
|
|
@ -2467,9 +2468,9 @@ string_input: jsr input_str
|
||||||
jmp Lefbf
|
jmp Lefbf
|
||||||
|
|
||||||
input_prompt: jsr print_str
|
input_prompt: jsr print_str
|
||||||
Lefbf: lda #$ff ; 255 .
|
Lefbf: lda #$ff
|
||||||
sta text_index
|
sta text_index
|
||||||
lda #$74 ; 116 t
|
lda #$74
|
||||||
sta buffer
|
sta buffer
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
@ -2483,7 +2484,7 @@ Sefcd: jsr not_op
|
||||||
mem_init_4k: lda #$00
|
mem_init_4k: lda #$00
|
||||||
sta lomem
|
sta lomem
|
||||||
sta himem
|
sta himem
|
||||||
lda #$08 ; 8 .
|
lda #$08
|
||||||
sta lomem+1
|
sta lomem+1
|
||||||
lda #$10
|
lda #$10
|
||||||
sta himem+1
|
sta himem+1
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue