Apple-2-HW/Brain-Board-II
1
0
Fork 0
mirror of https://github.com/Alex-Kw/Brain-Board-II.git synced 2024-06-12 07:29:31 +00:00
Code Issues Packages Projects Releases Wiki Activity
961f8d7abd
Brain-Board-II/Source and Serial Driver/a2a1emulv5_1/a1basic-universal.asm
Alex Kwiecinski 961f8d7abd initial file upload
2023-02-08 17:47:18 -05:00

2250 lines
45 KiB
NASM
Executable File
Raw Blame History

PROCESSOR 6502
LIST ON
;
;------------------------------------------------------------------------
; Apple 1 Basic by Steve Wozniak
;
; This source was derived from BASIC disassembly done by Eric Smith.
; This derivation is reproduced and distributed with permission of
; Eric Smith
;
; Eric Smith's disassembly can be found at
; http://www.brouhaha.com/~eric/retrocomputing/apple/apple1/basic/
;
; Do not reproduce or distribute without permission
;
; copyright 2010, Mike Willegal
; copyright 2003, Eric Smith
;
;------------------------------------------------------------------------
; Disassembly of Apple 1 BASIC
; 17-Sep-2003
; Apple 1 BASIC was written by Steve Wozniak
; This disassembly is copyright 2003 Eric Smith <eric@brouhaha.com>
; http://www.brouhaha.com/~eric/retrocomputing/apple/apple1/basic/
;------------------------------------------------------------------------
;------------------------------------------------------------------------
; build with 6502 assembler called DASM using the following command line
;
; Huston's version of Basic (may be latest version available)
; http://www.apple1notes.com/Home/Programs.html
;./dasm a1basic.asm -DHUSTNBASIC=0 -oa1hbas.o -la1hbas.lst
;
; Sander's version of Basic (same as Eric Smith's original disassembly)
; http://www.apple1notes.com/Home/Programs.html
;./dasm a1basic.asm -DSNDERBASIC=0 -oa1sbas.o -la1sbas.lst
;
; Vince Briel's version of Basic
; (can't find the link right now)
;./dasm a1basic.asm -DBRIELBASIC=0 -oa1bbas.o -la1bbas.lst
;
; Pagetable version of Basic (only PIA address different from Briel's version)
; http://www.pagetable.com/?p=32
;./dasm a1basic.asm -DPAGETBASIC=0 -oa1pbas.o -la1pbas.lst
;
;------------------------------------------------------------------------
;-------------------------------------------------------------------------
; Defines - this code can be built one of four ways
; 1. clone/real Apple 1 HW
; 2. runs in ram of real or virtual Apple 2
; 3. runs in virtual apple 2 as ROM
; 4. runs in plug in board of real Apple 2
;
; select one of these three options
;-------------------------------------------------------------------------
;BLD4APPLE1 EQU 0 ;ACTUAL APPLE 1 or CLONE
;BLD4RAM EQU 0 ;RAM of virtual or real A2
;BLD4EMULROM EQU 0 ;ROM of virtual A2
;BLD4ROMBD EQU 0 ;ROM board in Real A2
;------------------------------------------------------------------------
; BASIC source taken from http://www.brouhaha.com
; IFCONST added to allow building Apple 1 basic version found
; on Vince Briels site
;------------------------------------------------------------------------
; up to four versions of Apple 1 Basic Known
; use defines to control which one we build
;SNDERBASIC EQU 0 ;from Wendell Sander's site (DEFAULT)
;SMITHBASIC EQU 0 ;original source from brouhaha.com
;BRIELBASIC EQU 0 ;version used in Replica 1
;HUSTNBASIC EQU 0 ;huston version from Wendell's site
;------------------------------------------------------------------------
; Disassembly of Apple 1 BASIC
; 17-Sep-2003
; Apple 1 BASIC was written by Steve Wozniak
; This disassembly is copyright 2003 Eric Smith <eric@brouhaha.com>
; http://www.brouhaha.com/~eric/retrocomputing/apple/apple1/basic/
;------------------------------------------------------------------------
LOCZERO EQU $00
Z1d EQU $1d
ch EQU $24
cv EQU $25
zp48 EQU $48
zp49 EQU $49
lomem EQU $4a
zp4b EQU $4b
himem EQU $4c
zp4d EQU $4d
rnd EQU $4e
noun_stk_l EQU $50
syn_stk_h EQU $58
zp60 EQU $60
noun_stk_h_str EQU $78
syn_stk_l EQU $80
zp85 EQU $85
noun_stk_h_int EQU $a0
txtndxstk EQU $a8
text_index EQU $c8
leadbl EQU $c9
pp EQU $ca
zpcb EQU $cb
pv EQU $cc
acc EQU $ce
zpcf EQU $cf
srch EQU $d0
tokndxstk EQU $d1
srch2 EQU $d2
if_flag EQU $d4
cr_flag EQU $d5
current_verb EQU $d6
precedence EQU $d7
x_save EQU $d8
run_flag EQU $d9
aux EQU $da
pline EQU $dc
pverb EQU $e0
p1 EQU $e2
p2 EQU $e4
p3 EQU $e6
token_index EQU $f1
pcon EQU $f2
auto_inc EQU $f4
auto_ln EQU $f6
auto_flag EQU $f8
char EQU $f9
leadzr EQU $fa
for_nest_count EQU $fb
gosub_nest_count EQU $fc
synstkdx EQU $fd
synpag EQU $fe
gstk_pverbl EQU $0100
gstk_pverbh EQU $0108
gstk_plinel EQU $0110
gstk_plineh EQU $0118
fstk_varl EQU $0120
fstk_varh EQU $0128
fstk_stepl EQU $0130
fstk_steph EQU $0138
fstk_plinel EQU $0140
fstk_plineh EQU $0148
fstk_pverbl EQU $0150
fstk_pverbh EQU $0158
fstk_tol EQU $0160
fstk_toh EQU $0168
buffer EQU $0200
IFCONST BLD4APPLE1
IFCONST SMITHBASIC
DSP EQU $D0F2 ;DISPLAY port in PIA
KBDCR EQU $D0F1 ;Keyboard control port
KBD EQU $D0F0 ;KEYBOARD data port
ENDIF
IFCONST BRIELBASIC
DSP EQU $D012 ;DISPLAY port in PIA
KBDCR EQU $D011 ;Keyboard control port (WS BASIC)
KBD EQU $D010 ;KEYBOARD data port
ENDIF
IFCONST SNDERBASIC
DSP EQU $D0F2 ;DISPLAY port in PIA
KBDCR EQU $D011 ;Keyboard control port (WS BASIC)
KBD EQU $D010 ;KEYBOARD data port
ENDIF
IFCONST HUSTNBASIC
DSP EQU $D0F2 ;DISPLAY port in PIA
KBDCR EQU $D011 ;Keyboard control port (WS BASIC)
KBD EQU $D010 ;KEYBOARD data port
ENDIF
ENDIF
IFCONST BLD4RAM
ORG $7000
ELSE
ORG $E000
ENDIF
Pe000: JMP cold
rdkey:
IFCONST BLD4APPLE1
LDA KBDCR ;Wait for key press
BPL rdkey ;No key yet!
LDA KBD ;Clear strobe
ELSE
JSR A2GETCHAR
NOP
NOP
NOP
NOP
NOP
ENDIF
RTS
Se00c: TXA
AND #$20 ; 32
BEQ Le034
Se011: LDA #$a0 ; 160
STA p2
JMP cout
Se018: LDA #$20 ; 32
Se01a: CMP ch
BCS nextbyte
LDA #$8d ; 141 .
LDY #$07 ; 7 .
Le022: JSR cout
LDA #$a0 ; 160
DEY
BNE Le022
nextbyte: LDY #$00 ; 0 .
LDA (p1),Y
INC p1
BNE Le034
INC p1+1
Le034: RTS
list_comman: JSR get16bit
JSR find_line2
Le03b: LDA p1
CMP p3
LDA p1+1
SBC p3+1
BCS Le034
JSR list_line
JMP Le03b
list_all: LDA pp
STA p1
LDA pp+1
STA p1+1
LDA himem
STA p3
LDA himem+1
STA p3+1
BNE Le03b
list_cmd: JSR get16bit
JSR find_line
LDA p2
STA p1
LDA p2+1
STA p1+1
BCS Le034
list_line: STX x_save
LDA #$a0 ; 160
STA leadzr
JSR nextbyte
TYA
list_int: STA p2
JSR nextbyte
TAX
JSR nextbyte
JSR prdec
Le083: JSR Se018
STY leadzr
TAX
BPL list_token
ASL
BPL list_int
LDA p2
BNE Le095
JSR Se011
Le095: TXA
Le096: JSR cout
Le099: LDA #$25 ; 37 %
JSR Se01a
TAX
BMI Le096
STA p2
list_token: CMP #$01 ; 1 .
BNE Le0ac
LDX x_save
JMP crout
Le0ac: PHA
STY acc
LDX #[syntabl2>>8] ; $ED, when from ROM, $AD from RAM
STX acc+1
CMP #$51 ; 81 Q
BCC Le0bb
DEC acc+1
SBC #$50 ; 80 P
Le0bb: PHA
LDA (acc),Y
Le0be: TAX
DEY
LDA (acc),Y
BPL Le0be
CPX #$c0 ; 192 @
BCS Le0cc
CPX #$00 ; 0 .
BMI Le0be
Le0cc: TAX
PLA
SBC #$01 ; 1 .
BNE Le0bb
BIT p2
BMI Le0d9
JSR Seff8
Le0d9: LDA (acc),Y
BPL Le0ed
TAX
AND #$3f ; 63 ?
STA p2
CLC
ADC #$a0 ; 160
JSR cout
DEY
CPX #$c0 ; 192 @
BCC Le0d9
Le0ed: JSR Se00c
PLA
CMP #$5d ; 93 ]
BEQ Le099
CMP #$28 ; 40 (
BNE Le083
BEQ Le099
paren_substr: JSR Se118
STA noun_stk_l,X
CMP noun_stk_h_str,X
Le102: BCC Le115
string_err: LDY #$2b ; 43 +
go_errmess_1: JMP print_err_msg
comma_substr: JSR getbyte
CMP noun_stk_l,X
BCC string_err
JSR Sefe4
STA noun_stk_h_str,X
Le115: JMP left_paren
Se118: JSR getbyte
BEQ string_err
SEC
SBC #$01 ; 1 .
RTS
str_arr_dest: JSR Se118
STA noun_stk_l,X
CLC
SBC noun_stk_h_str,X
JMP Le102
Le12c: LDY #$14 ; 20 .
BNE go_errmess_1
dim_str: JSR Se118
INX
Le134: LDA noun_stk_l,X
STA aux
ADC acc
PHA
TAY
LDA noun_stk_h_str,X
STA aux+1
ADC acc+1
PHA
CPY pp
SBC pp+1
BCS Le12c
LDA aux
ADC #$fe ; 254 ~
STA aux
LDA #$ff ; 255 .
TAY
ADC aux+1
STA aux+1
Le156: INY
LDA (aux),Y
CMP pv,Y
BNE Le16d
TYA
BEQ Le156
Le161: PLA
STA (aux),Y
STA pv,Y
DEY
BPL Le161
INX
RTS
NOP ; "j"
Le16d: LDY #$80 ; 128 .
Le16f: BNE go_errmess_1
input_str: LDA #$00 ; 0 .
JSR push_a_noun_stk
LDY #$02 ; 2 .
STY noun_stk_h_str,X
JSR push_a_noun_stk
LDA #$bf ; 191 ?
JSR cout
LDY #$00 ; 0 .
JSR read_line
STY noun_stk_h_str,X
NOP
NOP
NOP
string_lit: LDA noun_stk_l+1,X
STA acc
LDA noun_stk_h_str+1,X
STA acc+1
INX
INX
JSR Se1bc
Le199: LDA rnd,X
CMP syn_stk_h+30,X
BCS Le1b4
INC rnd,X
TAY
LDA (acc),Y
LDY noun_stk_l,X
CPY p2
BCC Le1ae
LDY #$83 ; 131 .
BNE Le16f
Le1ae: STA (aux),Y
INC noun_stk_l,X
BCC Le199
Le1b4: LDY noun_stk_l,X
TXA
STA (aux),Y
INX
INX
RTS
Se1bc: LDA noun_stk_l+1,X
STA aux
SEC
SBC #$02 ; 2 .
STA p2
LDA noun_stk_h_str+1,X
STA aux+1
SBC #$00 ; 0 .
STA p2+1
LDY #$00 ; 0 .
LDA (p2),Y
CLC
SBC aux
STA p2
RTS
string_eq: LDA noun_stk_l+3,X
STA acc
LDA noun_stk_h_str+3,X
STA acc+1
LDA noun_stk_l+1,X
STA aux
LDA noun_stk_h_str+1,X
STA aux+1
INX
INX
INX
LDY #$00 ; 0 .
STY noun_stk_h_str,X
STY noun_stk_h_int,X
INY
STY noun_stk_l,X
Le1f3: LDA himem+1,X
CMP syn_stk_h+29,X
PHP
PHA
LDA rnd+1,X
CMP syn_stk_h+31,X
BCC Le206
PLA
PLP
BCS Le205
Le203: LSR noun_stk_l,X
Le205: RTS
Le206: TAY
LDA (acc),Y
STA p2
PLA
TAY
PLP
BCS Le203
LDA (aux),Y
CMP p2
BNE Le203
INC rnd+1,X
INC himem+1,X
BCS Le1f3
string_neq: JSR string_eq
JMP not_op
mult_op: JSR Se254
Le225: ASL acc
ROL acc+1
BCC Le238
CLC
LDA p3
ADC aux
STA p3
LDA p3+1
ADC aux+1
STA p3+1
Le238: DEY
BEQ Le244
ASL p3
ROL p3+1
BPL Le225
JMP Le77e
Le244: LDA p3
JSR push_ya_noun_stk
LDA p3+1
STA noun_stk_h_int,X
ASL p2+1
BCC Le279
JMP negate
Se254: LDA #$55 ; 85 U
STA p2+1
JSR Se25b
Se25b: LDA acc
STA aux
LDA acc+1
STA aux+1
JSR get16bit
STY p3
STY p3+1
LDA acc+1
BPL Le277
DEX
ASL p2+1
JSR negate
JSR get16bit
Le277: LDY #$10 ; 16 .
Le279: RTS
mod_op: JSR See6c
BEQ Le244
DC.B $ff ; "."
Le280: CMP #$84 ; 132 .
BNE Le286
LSR auto_flag
Le286: CMP #$df ; 223 _
BEQ Le29b
CMP #$9b ; 155 .
BEQ Le294
STA buffer,Y
INY
BPL read_line
Le294: LDY #$8b ; 139 .
JSR Se3c4
Se299: LDY #$01 ; 1 .
Le29b: DEY
BMI Le294
read_line: JSR rdkey
NOP
NOP
JSR cout
CMP #$8d ; 141 .
BNE Le280
LDA #$df ; 223 _
STA buffer,Y
RTS
cold: JSR mem_init_4k
warm: JSR crout
Le2b6: LSR run_flag
LDA #$be ; 190 >
JSR cout
LDY #$00 ; 0 .
STY leadzr
BIT auto_flag
BPL Le2d1
LDX auto_ln
LDA auto_ln+1
JSR prdec
LDA #$a0 ; 160
JSR cout
Le2d1: LDX #$ff ; 255 .
TXS
JSR read_line
STY token_index
TXA
STA text_index
LDX #$20 ; 32
JSR Se491
LDA text_index
ADC #$00 ; 0 .
STA pverb
LDA #$00 ; 0 .
TAX
ADC #$02 ; 2 .
STA pverb+1
LDA (pverb,X)
AND #$f0 ; 240 p
CMP #$b0 ; 176 0
BEQ Le2f9
JMP Le883
Le2f9: LDY #$02 ; 2 .
Le2fb: LDA (pverb),Y
STA pv+1,Y
DEY
BNE Le2fb
JSR Se38a
LDA token_index
SBC text_index
CMP #$04 ; 4 .
BEQ Le2b6
STA (pverb),Y
LDA pp
SBC (pverb),Y
STA p2
LDA pp+1
SBC #$00 ; 0 .
STA p2+1
LDA p2
CMP pv
LDA p2+1
SBC pv+1
BCC Le36b
Le326: LDA pp
SBC (pverb),Y
STA p3
LDA pp+1
SBC #$00 ; 0 .
STA p3+1
LDA (pp),Y
STA (p3),Y
INC pp
BNE Le33c
INC pp+1
Le33c: LDA p1
CMP pp
LDA p1+1
SBC pp+1
BCS Le326
Le346: LDA p2,X
STA pp,X
DEX
BPL Le346
LDA (pverb),Y
TAY
Le350: DEY
LDA (pverb),Y
STA (p3),Y
TYA
BNE Le350
BIT auto_flag
BPL Le365
Le35c: LDA auto_ln+1,X
ADC auto_inc+1,X
STA auto_ln+1,X
INX
BEQ Le35c
Le365: BPL Le3e5
BRK
BRK
BRK
BRK ; "..."
Le36b: LDY #$14 ; 20 .
BNE print_err_msg
del_comma: JSR get16bit
LDA p1
STA p3
LDA p1+1
STA p3+1
JSR find_line1
LDA p1
STA p2
LDA p1+1
STA p2+1
BNE Le395
del_cmd: JSR get16bit
Se38a: JSR find_line
LDA p3
STA p1
LDA p3+1
STA p1+1
Le395: LDY #$00 ; 0 .
Le397: LDA pp
CMP p2
LDA pp+1
SBC p2+1
BCS Le3b7
LDA p2
BNE Le3a7
DEC p2+1
Le3a7: DEC p2
LDA p3
BNE Le3af
DEC p3+1
Le3af: DEC p3
LDA (p2),Y
STA (p3),Y
BCC Le397
Le3b7: LDA p3
STA pp
LDA p3+1
STA pp+1
RTS
Le3c0: JSR cout
INY
Se3c4: LDA error_msg_tbl,Y
BMI Le3c0
cout: CMP #$8d ; 141 .
BNE Le3d3
crout: LDA #$00 ; 0 .
STA ch
LDA #$8d ; 141 .
Le3d3: INC ch
Le3d5:
IFCONST BLD4APPLE1
BIT DSP
BMI Le3d5
STA DSP
ELSE
JSR ECHO ; use monitor function to output
nop
nop
nop
nop
nop
ENDIF
RTS
too_long_err: LDY #$06 ; 6
print_err_msg: JSR print_err_msg2
BIT run_flag
Le3e5: BMI Le3ea
JMP Le2b6
Le3ea: JMP Leb9a
Le3ed: ROL
ADC #$a0 ; 160
CMP buffer,X
BNE Le448
LDA (synpag),Y
ASL
BMI Le400
DEY
LDA (synpag),Y
BMI Le428
INY
Le400: STX text_index
TYA
PHA
LDX #$00 ; 0 .
LDA (synpag,X)
TAX
Le409: LSR
EOR #$48 ; 72 H
ORA (synpag),Y
CMP #$c0 ; 192 @
BCC Le413
INX
Le413: INY
BNE Le409
PLA
TAY
TXA
JMP Le4c0
put_token: INC token_index
LDX token_index
BEQ too_long_err
STA buffer,X
Le425: RTS
Le426: LDX text_index
Le428: LDA #$a0 ; 160
Le42a: INX
CMP buffer,X
BCS Le42a
LDA (synpag),Y
AND #$3f ; 63 ?
LSR
BNE Le3ed
LDA buffer,X
BCS Le442
ADC #$3f ; 63 ?
CMP #$1a ; 26 .
BCC Le4b1
Le442: ADC #$4f ; 79 O
CMP #$0a ; 10 .
BCC Le4b1
Le448: LDX synstkdx
Le44a: INY
LDA (synpag),Y
AND #$e0 ; 224 `
CMP #$20 ; 32
BEQ Le4cd
LDA txtndxstk,X
STA text_index
LDA tokndxstk,X
STA token_index
Le45b: DEY
LDA (synpag),Y
ASL
BPL Le45b
DEY
BCS Le49c
ASL
BMI Le49c
LDY syn_stk_h,X
STY synpag+1
LDY syn_stk_l,X
INX
BPL Le44a
Le470: BEQ Le425
CMP #$7e ; 126 ~
BCS Le498
DEX
BPL Le47d
LDY #$06 ; 6 .
BPL go_errmess_2
Le47d: STY syn_stk_l,X
LDY synpag+1
STY syn_stk_h,X
LDY text_index
STY txtndxstk,X
LDY token_index
STY tokndxstk,X
AND #$1f ; 31 .
TAY
LDA syntabl_index,Y
Se491: ASL
TAY
; when running from a000, shifts to AC or AD
; when running from e000 shifts to EC or ED
LDA #[syntabl_index>>9]
ROL
STA synpag+1
Le498: BNE Le49b
INY
Le49b: INY
Le49c: STX synstkdx
LDA (synpag),Y
BMI Le426
BNE Le4a9
LDY #$0e ; 14 .
go_errmess_2: JMP print_err_msg
Le4a9: CMP #$03 ; 3 .
BCS Le470
LSR
LDX text_index
INX
Le4b1: LDA buffer,X
BCC Le4ba
CMP #$a2 ; 162 "
BEQ Le4c4
Le4ba: CMP #$df ; 223 _
BEQ Le4c4
STX text_index
Le4c0: JSR put_token
INY
Le4c4: DEY
LDX synstkdx
Le4c7: LDA (synpag),Y
DEY
ASL
BPL Le49c
Le4cd: LDY syn_stk_h,X
STY synpag+1
LDY syn_stk_l,X
INX
LDA (synpag),Y
AND #$9f ; 159 .
BNE Le4c7
STA pcon
STA pcon+1
TYA
PHA
STX synstkdx
LDY srch,X
STY leadbl
CLC
Le4e7: LDA #$0a ; 10 .
STA char
LDX #$00 ; 0 .
INY
LDA buffer,Y
AND #$0f ; 15 .
Le4f3: ADC pcon
PHA
TXA
ADC pcon+1
BMI Le517
TAX
PLA
DEC char
BNE Le4f3
STA pcon
STX pcon+1
CPY token_index
BNE Le4e7
LDY leadbl
INY
STY token_index
JSR put_token
PLA
TAY
LDA pcon+1
BCS Le4c0
Le517: LDY #$00 ; 0 .
BPL go_errmess_2
prdec: STA pcon+1
STX pcon
LDX #$04 ; 4 .
STX leadbl
Le523: LDA #$b0 ; 176 0
STA char
Le527: LDA pcon
CMP dectabl,X
LDA pcon+1
SBC dectabh,X
BCC Le540
STA pcon+1
LDA pcon
SBC dectabl,X
STA pcon
INC char
BNE Le527
Le540: LDA char
INX
DEX
BEQ Le554
CMP #$b0 ; 176 0
BEQ Le54c
STA leadbl
Le54c: BIT leadbl
BMI Le554
LDA leadzr
BEQ Le55f
Le554: JSR cout
BIT auto_flag
BPL Le55f
STA buffer,Y
INY
Le55f: DEX
BPL Le523
RTS
dectabl: DC.B $01,$0a,$64,$e8,$10 ; "..dh."
dectabh: DC.B $00,$00,$00,$03,$27 ; "....'"
find_line: LDA pp
STA p3
LDA pp+1
STA p3+1
find_line1: INX
find_line2: LDA p3+1
STA p2+1
LDA p3
STA p2
CMP himem
LDA p2+1
SBC himem+1
BCS Le5ac
LDY #$01 ; 1 .
LDA (p2),Y
SBC acc
INY
LDA (p2),Y
SBC acc+1
BCS Le5ac
LDY #$00 ; 0 .
LDA p3
ADC (p2),Y
STA p3
BCC Le5a0
INC p3+1
CLC
Le5a0: INY
LDA acc
SBC (p2),Y
INY
LDA acc+1
SBC (p2),Y
BCS find_line2
Le5ac: RTS
new_cmd: LSR auto_flag
LDA himem
STA pp
LDA himem+1
STA pp+1
clr: LDA lomem
STA pv
LDA lomem+1
STA pv+1
LDA #$00 ; 0 .
STA for_nest_count
STA gosub_nest_count
STA synpag
LDA #$00 ; 0 .
STA Z1d
RTS
Le5cc: LDA srch
ADC #$05 ; 5 .
STA srch2
LDA tokndxstk
ADC #$00 ; 0 .
STA srch2+1
LDA srch2
CMP pp
LDA srch2+1
SBC pp+1
BCC Le5e5
JMP Le36b
Le5e5: LDA acc
STA (srch),Y
LDA acc+1
INY
STA (srch),Y
LDA srch2
INY
STA (srch),Y
LDA srch2+1
INY
STA (srch),Y
LDA #$00 ; 0 .
INY
STA (srch),Y
INY
STA (srch),Y
LDA srch2
STA pv
LDA srch2+1
STA pv+1
LDA srch
BCC Le64f
execute_var: STA acc
STY acc+1
JSR get_next_prog_byte
BMI Le623
CMP #$40 ; 64 @
BEQ Le623
JMP Le628
DC.B $06,$c9,$49,$d0,$07,$a9,$49 ; ".IIP.)I"
Le623: STA acc+1
JSR get_next_prog_byte
Le628: LDA lomem+1
STA tokndxstk
LDA lomem
Le62e: STA srch
CMP pv
LDA tokndxstk
SBC pv+1
BCS Le5cc
LDA (srch),Y
INY
CMP acc
BNE Le645
LDA (srch),Y
CMP acc+1
BEQ Le653
Le645: INY
LDA (srch),Y
PHA
INY
LDA (srch),Y
STA tokndxstk
PLA
Le64f: LDY #$00 ; 0 .
BEQ Le62e
Le653: LDA srch
ADC #$03 ; 3 .
JSR push_a_noun_stk
LDA tokndxstk
ADC #$00 ; 0 .
STA noun_stk_h_str,X
LDA acc+1
CMP #$40 ; 64 @
BNE fetch_prog_byte
DEY
TYA
JSR push_a_noun_stk
DEY
STY noun_stk_h_str,X
LDY #$03 ; 3 .
Le670: INC noun_stk_h_str,X
INY
LDA (srch),Y
BMI Le670
BPL fetch_prog_byte
execute_stmt: LDA #$00 ; 0 .
STA if_flag
STA cr_flag
LDX #$20 ; 32
push_old_verb: PHA
fetch_prog_byte: LDY #$00 ; 0 .
LDA (pverb),Y
Le686: BPL execute_token
ASL
BMI execute_var
JSR get_next_prog_byte
JSR push_ya_noun_stk
JSR get_next_prog_byte
STA noun_stk_h_int,X
Le696: BIT if_flag
BPL Le69b
DEX
Le69b: JSR get_next_prog_byte
BCS Le686
execute_token: CMP #$28 ; 40 (
BNE execute_verb
LDA pverb
JSR push_a_noun_stk
LDA pverb+1
STA noun_stk_h_str,X
BIT if_flag
BMI Le6bc
LDA #$01 ; 1 .
JSR push_a_noun_stk
LDA #$00 ; 0 .
STA noun_stk_h_str,X
Le6ba: INC noun_stk_h_str,X
Le6bc: JSR get_next_prog_byte
BMI Le6ba
BCS Le696
execute_verb: BIT if_flag
BPL Le6cd
CMP #$04 ; 4 .
BCS Le69b
LSR if_flag
Le6cd: TAY
STA current_verb
LDA verb_prec_tbl,Y
AND #$55 ; 85 U
ASL
STA precedence
Le6d8: PLA
TAY
LDA verb_prec_tbl,Y
AND #$aa ; 170 *
CMP precedence
BCS do_verb
TYA
PHA
JSR get_next_prog_byte
LDA current_verb
BCC push_old_verb
do_verb: LDA verb_adr_l,Y
STA acc
LDA verb_adr_h,Y
STA acc+1
JSR Se6fc
JMP Le6d8
Se6fc: JMP (acc)
get_next_prog_byte: INC pverb
BNE Le705
INC pverb+1
Le705: LDA (pverb),Y
RTS
push_ya_noun_stk: STY syn_stk_h+31,X
push_a_noun_stk: DEX
BMI Le710
STA noun_stk_l,X
RTS
Le710: LDY #$66 ; 102 f
go_errmess_3: JMP print_err_msg
get16bit: LDY #$00 ; 0 .
LDA noun_stk_l,X
STA acc
LDA noun_stk_h_int,X
STA acc+1
LDA noun_stk_h_str,X
BEQ Le731
STA acc+1
LDA (acc),Y
PHA
INY
LDA (acc),Y
STA acc+1
PLA
STA acc
DEY
Le731: INX
RTS
eq_op: JSR neq_op
not_op: JSR get16bit
TYA
JSR push_ya_noun_stk
STA noun_stk_h_int,X
CMP acc
BNE Le749
CMP acc+1
BNE Le749
INC noun_stk_l,X
Le749: RTS
neq_op: JSR subtract
JSR sgn_fn
abs_fn: JSR get16bit
BIT acc+1
BMI Se772
Le757: DEX
Le758: RTS
sgn_fn: JSR get16bit
LDA acc+1
BNE Le764
LDA acc
BEQ Le757
Le764: LDA #$ff ; 255 .
JSR push_ya_noun_stk
STA noun_stk_h_int,X
BIT acc+1
BMI Le758
negate: JSR get16bit
Se772: TYA
SEC
SBC acc
JSR push_ya_noun_stk
TYA
SBC acc+1
BVC Le7a1
Le77e: LDY #$00 ; 0 .
BPL go_errmess_3
subtract: JSR negate
add: JSR get16bit
LDA acc
STA aux
LDA acc+1
STA aux+1
JSR get16bit
Se793: CLC
LDA acc
ADC aux
JSR push_ya_noun_stk
LDA acc+1
ADC aux+1
BVS Le77e
Le7a1: STA noun_stk_h_int,X
unary_pos: RTS
tab_fn: JSR get16bit
LDY acc
BEQ Le7b0
DEY
LDA acc+1
BEQ Le7bc
Le7b0: RTS
tabout: LDA ch
ORA #$07 ; 7 .
TAY
INY
Le7b7: LDA #$a0 ; 160
JSR cout
Le7bc: CPY ch
BCS Le7b7
RTS
print_com_num: JSR tabout
print_num: JSR get16bit
LDA acc+1
BPL Le7d5
LDA #$ad ; 173 -
JSR cout
JSR Se772
BVC print_num
Le7d5: DEY
STY cr_flag
STX acc+1
LDX acc
JSR prdec
LDX acc+1
RTS
auto_cmd: JSR get16bit
LDA acc
STA auto_ln
LDA acc+1
STA auto_ln+1
DEY
STY auto_flag
INY
LDA #$0a ; 10 .
Le7f3: STA auto_inc
STY auto_inc+1
RTS
auto_com: JSR get16bit
LDA acc
LDY acc+1
BPL Le7f3
var_assign: JSR get16bit
LDA noun_stk_l,X
STA aux
LDA noun_stk_h_str,X
STA aux+1
LDA acc
STA (aux),Y
INY
LDA acc+1
STA (aux),Y
INX
Te816: RTS
begin_line: PLA
PLA
colon: BIT cr_flag
BPL Le822
print_cr: JSR crout
print_semi: LSR cr_flag
Le822: RTS
left_paren: LDY #$ff ; 255 .
STY precedence
right_paren: RTS
if_stmt: JSR Sefcd
BEQ Le834
LDA #$25 ; 37 %
STA current_verb
DEY
STY if_flag
Le834: INX
RTS
run_warm: LDA pp
LDY pp+1
BNE Le896
gosub_stmt: LDY #$41 ; 65 A
LDA gosub_nest_count
CMP #$08 ; 8 .
BCS go_errmess_4
TAY
INC gosub_nest_count
LDA pverb
STA gstk_pverbl,Y
LDA pverb+1
STA gstk_pverbh,Y
LDA pline
STA gstk_plinel,Y
LDA pline+1
STA gstk_plineh,Y
goto_stmt: JSR get16bit
JSR find_line
BCC Le867
LDY #$37 ; 55 7
BNE go_errmess_4
Le867: LDA p2
LDY p2+1
run_loop: STA pline
STY pline+1
IFCONST BLD4APPLE1
BIT KBDCR
ELSE
BIT KBD
ENDIF
BMI Le8c3
CLC
ADC #$03 ; 3 .
BCC Le87a
INY
Le87a: LDX #$ff ; 255 .
STX run_flag
TXS
STA pverb
STY pverb+1
Le883: JSR execute_stmt
BIT run_flag
BPL end_stmt
CLC
LDY #$00 ; 0 .
LDA pline
ADC (pline),Y
LDY pline+1
BCC Le896
INY
Le896: CMP himem
BNE run_loop
CPY himem+1
BNE run_loop
LDY #$34 ; 52 4
LSR run_flag
go_errmess_4: JMP print_err_msg
return_stmt: LDY #$4a ; 74 J
LDA gosub_nest_count
BEQ go_errmess_4
DEC gosub_nest_count
TAY
LDA gstk_plinel-1,Y
STA pline
LDA gstk_plineh-1,Y
STA pline+1
DC.B $be,$ff,$00
; LDX synpag+1,Y
LDA gstk_pverbh-1,Y
Le8be: TAY
TXA
JMP Le87a
Le8c3: LDY #$63 ; 99 c
JSR Se3c4
LDY #$01 ; 1 .
LDA (pline),Y
TAX
INY
LDA (pline),Y
JSR prdec
end_stmt: JMP warm
Le8d6: DEC for_nest_count
next_stmt: LDY #$5b ; 91 [
LDA for_nest_count
Le8dc: BEQ go_errmess_4
TAY
LDA noun_stk_l,X
CMP fstk_varl-1,Y
BNE Le8d6
LDA noun_stk_h_str,X
CMP fstk_varh-1,Y
BNE Le8d6
LDA fstk_stepl-1,Y
STA aux
LDA fstk_steph-1,Y
STA aux+1
JSR get16bit
DEX
JSR Se793
JSR var_assign
DEX
LDY for_nest_count
LDA fstk_toh-1,Y
STA syn_stk_l+31,X
LDA fstk_tol-1,Y
LDY #$00 ; 0 .
JSR push_ya_noun_stk
JSR subtract
JSR sgn_fn
JSR get16bit
LDY for_nest_count
LDA acc
BEQ Le925
EOR fstk_steph-1,Y
BPL Le937
Le925: LDA fstk_plinel-1,Y
STA pline
LDA fstk_plineh-1,Y
STA pline+1
LDX fstk_pverbl-1,Y
LDA fstk_pverbh-1,Y
BNE Le8be
Le937: DEC for_nest_count
RTS
for_stmt: LDY #$54 ; 84 T
LDA for_nest_count
CMP #$08 ; 8 .
BEQ Le8dc
INC for_nest_count
TAY
LDA noun_stk_l,X
STA fstk_varl,Y
LDA noun_stk_h_str,X
STA fstk_varh,Y
RTS
to_clause: JSR get16bit
LDY for_nest_count
LDA acc
STA fstk_tol-1,Y
LDA acc+1
STA fstk_toh-1,Y
LDA #$01 ; 1 .
STA fstk_stepl-1,Y
LDA #$00 ; 0 .
Le966: STA fstk_steph-1,Y
LDA pline
STA fstk_plinel-1,Y
LDA pline+1
STA fstk_plineh-1,Y
LDA pverb
STA fstk_pverbl-1,Y
LDA pverb+1
STA fstk_pverbh-1,Y
RTS
Te97e: JSR get16bit
LDY for_nest_count
LDA acc
STA fstk_stepl-1,Y
LDA acc+1
JMP Le966
DC.B $00,$00,$00,$00,$00,$00,$00,$00 ; "........"
DC.B $00,$00,$00 ; "..."
verb_prec_tbl: DC.B $00,$00,$00,$ab,$03,$03,$03,$03 ; "...+...."
DC.B $03,$03,$03,$03,$03,$03,$03,$03 ; "........"
DC.B $03,$03,$3f,$3f,$c0,$c0,$3c,$3c ; "..??@@<<"
DC.B $3c,$3c,$3c,$3c,$3c,$30,$0f,$c0 ; "<<<<<0.@"
IFCONST HUSTNBASIC
DC.B $c3,$ff,$55,$00,$ab,$ab,$03,$03 ; "L.U.++.."
ELSE
DC.B $cc,$ff,$55,$00,$ab,$ab,$03,$03 ; "L.U.++.."
ENDIF
DC.B $ff,$ff,$55,$ff,$ff,$55,$cf,$cf ; "..U..UOO"
DC.B $cf,$cf,$cf,$ff,$55,$c3,$c3,$c3 ; "OOO.UCCC"
DC.B $55,$f0,$f0,$cf,$56,$56,$56,$55 ; "UppOVVVU"
DC.B $ff,$ff,$55,$03,$03,$03,$03,$03 ; "..U....."
DC.B $03,$03,$ff,$ff,$ff,$03,$03,$03 ; "........"
DC.B $03,$03,$03,$03,$03,$03,$03,$03 ; "........"
DC.B $03,$03,$03,$03,$03,$00,$ab,$03 ; "......+."
DC.B $57,$03,$03,$03,$03,$07,$03,$03 ; "W......."
DC.B $03,$03,$03,$03,$03,$03,$03,$03 ; "........"
DC.B $03,$03,$aa,$ff,$ff,$ff,$ff,$ff ; "..*....."
verb_adr_l:
DC.B <begin_line,$ff,$ff,<colon,<list_cmd,<list_comman,<list_all,<Teff2
DC.B <Tefec,<del_cmd,<del_comma,<new_cmd,<clr,<auto_cmd,<auto_com,<man_cmd
DC.B <Tef80,<Tef96,<add,< subtract,<mult_op,<divide,<eq_op,<neq_op
DC.B <Tec13,< Tec06,< Tec0b,<neq_op,<Tec01,< Tec40,< Tec47,<mod_op
IFCONST HUSTNBASIC
DC.B <bogus_eea6,$ff,<left_paren,<comma_substr,<goto_stmt,<Te816,<string_input,<input_num_comma
ELSE
DC.B $00,$ff,<left_paren,<comma_substr,<goto_stmt,<Te816,<string_input,<input_num_comma
ENDIF
DC.B $ff,$ff,<paren_substr,$ff,$ff,<num_array_subs,<peek_fn,<rnd_fn
DC.B <sgn_fn,<abs_fn,$00,$ff,<left_paren,<unary_pos,<negate,<not_op
DC.B <left_paren,<string_eq,<string_neq,<len_fn,<bogus_eec2,<Teeae,<Teeba,<left_paren
DC.B $ff,$ff,<str_arr_dest,<dim_str,<dim_num,<print_str,<print_num,<print_semi
DC.B <print_str_comma,<print_com_num,$ff,$ff,$ff,<call_stmt,<dim_str,<dim_num
DC.B <tab_fn,<end_stmt,<string_input,<input_prompt,<input_num_stmt,<for_stmt,<var_assign,<to_clause
DC.B <Te97e,<next_stmt,<next_stmt,<return_stmt,<gosub_stmt,$ff,<Te816,<goto_stmt
DC.B <if_stmt,<print_str,<print_num,<print_cr,<poke_stmt,<Tef0c,<Tee4e,<poke_stmt
DC.B <plot_comma,<poke_stmt,<bogus_eea6,<Teeb0,<poke_stmt,<Teebc,<Teec6,<vtab_stmt
DC.B <string_lit,<var_assign,<right_paren,$ff,$ff,$ff,$ff,$ff
verb_adr_h:
DC.B >begin_line,$ff,$ff,>colon,>list_cmd,>list_comman,>list_all,>Teff2
DC.B >Tefec,>del_cmd,>del_comma,>new_cmd,>clr,>auto_cmd,>auto_com,>man_cmd
DC.B >Tef80,>Tef96,>add,> subtract,>mult_op,>divide,>eq_op,>neq_op
DC.B >Tec13,> Tec06,> Tec0b,>neq_op,>Tec01,> Tec40,> Tec47,>mod_op
IFCONST HUSTNBASIC
DC.B >bogus_eea6,$ff,>left_paren,>comma_substr,>goto_stmt,>Te816,>string_input,>input_num_comma
ELSE
DC.B $0,$ff,>left_paren,>comma_substr,>goto_stmt,>Te816,>string_input,>input_num_comma
ENDIF
DC.B $ff,$ff,>paren_substr,$ff,$ff,>num_array_subs,>peek_fn,>rnd_fn
DC.B >sgn_fn,>abs_fn,$00,$ff,>left_paren,>unary_pos,>negate,>not_op
DC.B >left_paren,>string_eq,>string_neq,>len_fn,>bogus_eec2,>Teeae,>Teeba,>left_paren
DC.B $ff,$ff,>str_arr_dest,>dim_str,>dim_num,>print_str,>print_num,>print_semi
DC.B >print_str_comma,>print_com_num,$ff,$ff,$ff,>call_stmt,>dim_str,>dim_num
DC.B >tab_fn,>end_stmt,>string_input,>input_prompt,>input_num_stmt,>for_stmt,>var_assign,>to_clause
DC.B >Te97e,>next_stmt,>next_stmt,>return_stmt,>gosub_stmt,$ff,>Te816,>goto_stmt
DC.B >if_stmt,>print_str,>print_num,>print_cr,>poke_stmt,>Tef0c,>Tee4e,>poke_stmt
DC.B >plot_comma,>poke_stmt,>bogus_eea6,>Teeb0,>poke_stmt,>Teebc,>Teec6,>vtab_stmt
DC.B >string_lit,>var_assign,>right_paren,$ff,$ff,$ff,$ff,$ff
error_msg_tbl: DC.B $be,$b3,$b2,$b7,$b6,$37,$d4,$cf ; ">32767TO"
DC.B $cf,$a0,$cc,$cf,$ce,$47,$d3,$d9 ; "O LONGSY"
DC.B $ce,$d4,$c1,$58,$cd,$c5,$cd,$a0 ; "NTAXMEM "
DC.B $c6,$d5,$cc,$4c,$d4,$cf,$cf,$a0 ; "FULLTOO "
DC.B $cd,$c1,$ce,$d9,$a0,$d0,$c1,$d2 ; "MANY PAR"
DC.B $c5,$ce,$53,$d3,$d4,$d2,$c9,$ce ; "ENSSTRIN"
DC.B $47,$ce,$cf,$a0,$c5,$ce,$44,$c2 ; "GNO ENDB"
DC.B $c1,$c4,$a0,$c2,$d2,$c1,$ce,$c3 ; "AD BRANC"
DC.B $48,$be,$b8,$a0,$c7,$cf,$d3,$d5 ; "H>8 GOSU"
DC.B $c2,$53,$c2,$c1,$c4,$a0,$d2,$c5 ; "BSBAD RE"
DC.B $d4,$d5,$d2,$4e,$be,$b8,$a0,$c6 ; "TURN>8 F"
DC.B $cf,$d2,$53,$c2,$c1,$c4,$a0,$ce ; "ORSBAD N"
DC.B $c5,$d8,$54,$d3,$d4,$cf,$d0,$d0 ; "EXTSTOPP"
DC.B $c5,$c4,$a0,$c1,$d4,$20,$aa,$aa ; "ED AT **"
DC.B $aa,$20,$a0,$c5,$d2,$d2,$0d,$be ; "* ERR.>"
DC.B $b2,$b5,$35,$d2,$c1,$ce,$c7,$45 ; "255RANGE"
DC.B $c4,$c9,$4d,$d3,$d4,$d2,$a0,$cf ; "DIMSTR O"
DC.B $d6,$c6,$4c,$dc,$0d,$d2,$c5,$d4 ; "VFL\.RET"
DC.B $d9,$d0,$c5,$a0,$cc,$c9,$ce,$c5 ; "YPE LINE"
DC.B $8d,$3f ; ".?"
Leb9a: LSR run_flag
BCC Leba1
JMP Le8c3
Leba1: LDX acc+1
TXS
LDX acc
LDY #$8d ; 141 .
BNE Lebac
input_num_stmt: LDY #$99 ; 153 .
Lebac: JSR Se3c4
STX acc
TSX
STX acc+1
LDY #$fe ; 254 ~
STY run_flag
INY
STY text_index
JSR Se299
STY token_index
LDX #$20 ; 32
LDA #$30 ; 48 0
JSR Se491
INC run_flag
LDX acc
input_num_comma: LDY text_index
ASL
Lebce: STA acc
INY
LDA buffer,Y
CMP #$74 ; 116 t
BEQ input_num_stmt
EOR #$b0 ; 176 0
CMP #$0a ; 10 .
BCS Lebce
INY
INY
STY text_index
LDA buffer,Y
PHA
LDA buffer-1,Y
LDY #$00 ; 0 .
JSR push_ya_noun_stk
PLA
STA noun_stk_h_int,X
LDA acc
CMP #$c7 ; 199 G
BNE Lebfa
JSR negate
Lebfa: JMP var_assign
DC.B $ff,$ff,$ff,$50 ; "...P"
Tec01: JSR Tec13
BNE Lec1b
Tec06: JSR Tec0b
BNE Lec1b
Tec0b: JSR subtract
JSR negate
BVC Lec16
Tec13: JSR subtract
Lec16: JSR sgn_fn
LSR noun_stk_l,X
Lec1b: JMP not_op
DC.B $ff,$ff ; ".."
syntabl_index: DC.B $c1,$ff,$7f,$d1,$cc,$c7,$cf,$ce ; "A..QLGON"
DC.B $c5,$9a,$98,$8b,$96,$95,$93,$bf ; "E......?"
DC.B $b2,$32,$2d,$2b,$bc,$b0,$ac,$be ; "22-+<0,>"
DC.B $35,$8e,$61,$ff,$ff,$ff,$dd,$fb ; "5.a...]{"
Tec40: JSR Sefc9
ORA rnd+1,X
BPL Lec4c
Tec47: JSR Sefc9
AND rnd+1,X
Lec4c: STA noun_stk_l,X
BPL Lec1b
JMP Sefc9
DC.B $40,$60,$8d,$60,$8b,$00,$7e,$8c ; "@`.`..~."
DC.B $33,$00,$00,$60,$03,$bf,$12,$00 ; "3..`.?.."
DC.B $40,$89,$c9,$47,$9d,$17,$68,$9d ; "@.IG..h."
DC.B $0a,$00,$40,$60,$8d,$60,$8b,$00 ; "..@`.`.."
DC.B $7e,$8c,$3c,$00,$00,$60,$03,$bf ; "~.<..`.?"
DC.B $1b,$4b,$67,$b4,$a1,$07,$8c,$07 ; ".Kg4!..."
DC.B $ae,$a9,$ac,$a8,$67,$8c,$07,$b4 ; ".),(g..4"
DC.B $af,$ac,$b0,$67,$9d,$b2,$af,$ac ; "/,0g.2/,"
DC.B $af,$a3,$67,$8c,$07,$a5,$ab,$af ; "/#g..%+/"
DC.B $b0,$f4,$ae,$a9,$b2,$b0,$7f,$0e ; "0t.)20.."
DC.B $27,$b4,$ae,$a9,$b2,$b0,$7f,$0e ; "'4.)20.."
DC.B $28,$b4,$ae,$a9,$b2,$b0,$64,$07 ; "(4.)20d."
DC.B $a6,$a9,$67,$af,$b4,$af,$a7,$78 ; "&)g/4/'x"
DC.B $b4,$a5,$ac,$78,$7f,$02,$ad,$a5 ; "4%,x..-%"
DC.B $b2,$67,$a2,$b5,$b3,$af,$a7,$ee ; "2g"53/'n"
DC.B $b2,$b5,$b4,$a5,$b2,$7e,$8c,$39 ; "254%2~.9"
DC.B $b4,$b8,$a5,$ae,$67,$b0,$a5,$b4 ; "48%.g0%4"
DC.B $b3,$27,$af,$b4,$07,$9d,$19,$b2 ; "3'/4...2"
DC.B $af,$a6,$7f,$05,$37,$b4,$b5,$b0 ; "/&..7450"
DC.B $ae,$a9,$7f,$05,$28,$b4,$b5,$b0 ; ".)..(450"
DC.B $ae,$a9,$7f,$05,$2a,$b4,$b5,$b0 ; ".)..*450"
DC.B $ae,$a9,$e4,$ae,$a5,$00,$ff,$ff ; ".)d.%..."
syntabl2: DC.B $47,$a2,$a1,$b4,$7f,$0d,$30,$ad ; "G"!4..0-"
DC.B $a9,$a4,$7f,$0d,$23,$ad,$a9,$a4 ; ")$..#-)$"
DC.B $67,$ac,$ac,$a1,$a3,$00,$40,$80 ; "g,,!#.@."
DC.B $c0,$c1,$80,$00,$47,$8c,$68,$8c ; "@A..G.h."
DC.B $db,$67,$9b,$68,$9b,$50,$8c,$63 ; "[g.h.P.c"
DC.B $8c,$7f,$01,$51,$07,$88,$29,$84 ; "...Q..)."
DC.B $80,$c4,$80,$57,$71,$07,$88,$14 ; ".D.Wq..."
DC.B $ed,$a5,$ad,$af,$ac,$ed,$a5,$ad ; "m%-/,m%-"
DC.B $a9,$a8,$f2,$af,$ac,$af,$a3,$71 ; ")(r/,/#q"
DC.B $08,$88,$ae,$a5,$ac,$68,$83,$08 ; "...%,h.."
DC.B $68,$9d,$08,$71,$07,$88,$60,$76 ; "h..q..`v"
DC.B $b4,$af,$ae,$76,$8d,$76,$8b,$51 ; "4/.v.v.Q"
DC.B $07,$88,$19,$b8,$a4,$ae,$b2,$f2 ; "...8$.2r"
DC.B $b3,$b5,$f3,$a2,$a1,$ee,$a7,$b3 ; "35s"!n'3"
DC.B $e4,$ae,$b2,$eb,$a5,$a5,$b0,$51 ; "d.2k%%0Q"
DC.B $07,$88,$39,$81,$c1,$4f,$7f,$0f ; "..9.AO.."
DC.B $2f,$00,$51,$06,$88,$29,$c2,$0c ; "/.Q..)B."
DC.B $82,$57,$8c,$6a,$8c,$42,$ae,$a5 ; ".W.j.B.%"
DC.B $a8,$b4,$60,$ae,$a5,$a8,$b4,$4f ; "(4`.%(4O"
DC.B $7e,$1e,$35,$8c,$27,$51,$07,$88 ; "~.5.'Q.."
DC.B $09,$8b,$fe,$e4,$af,$ad,$f2,$af ; "..~d/-r/"
DC.B $e4,$ae,$a1,$dc,$de,$9c,$dd,$9c ; "d.!\^.]."
DC.B $de,$dd,$9e,$c3,$dd,$cf,$ca,$cd ; "^].C]OJM"
DC.B $cb,$00,$47,$9d,$ad,$a5,$ad,$af ; "K.G.-%-/"
DC.B $ac,$76,$9d,$ad,$a5,$ad,$a9,$a8 ; ",v.-%-)("
DC.B $e6,$a6,$af,$60,$8c,$20,$af,$b4 ; "f&/`. /4"
DC.B $b5,$a1,$f2,$ac,$a3,$f2,$a3,$b3 ; "5!r,#r#3"
DC.B $60,$8c,$20,$ac,$a5,$a4,$ee,$b5 ; "`. ,%$n5"
DC.B $b2,$60,$ae,$b5,$b2,$f4,$b3,$a9 ; "2`.52t3)"
DC.B $ac,$60,$8c,$20,$b4,$b3,$a9,$ac ; ",`. 43),"
DC.B $7a,$7e,$9a,$22,$20,$00,$60,$03 ; "z~." .`."
DC.B $bf,$60,$03,$bf,$1f ; "?`.?."
print_str_comma: JSR tabout
print_str: INX
INX
LDA rnd+1,X
STA aux
LDA syn_stk_h+31,X
STA aux+1
LDY rnd,X
Lee0f: TYA
CMP syn_stk_h+30,X
BCS Lee1d
LDA (aux),Y
JSR cout
INY
JMP Lee0f
Lee1d: LDA #$ff ; 255 .
STA cr_flag
RTS
len_fn: INX
LDA #$00 ; 0 .
STA noun_stk_h_str,X
STA noun_stk_h_int,X
LDA syn_stk_h+31,X
SEC
SBC rnd+1,X
STA noun_stk_l,X
JMP left_paren
DC.B $ff ; "."
getbyte: JSR get16bit
LDA acc+1
BNE gr_255_err
LDA acc
Tee3d
RTS
plot_comma:
IFCONST HUSTNBASIC
JSR push_ya_noun_stk
STY $a0,X
Tee43
LDA $D0
BNE Tee4b
DEC $D1
BMI Tee3d
Tee4b
DEC $D0
; LDA $D2
DC.b $a5
Tee4e: ;MJW wrong address, so we have to break this instruction
DC.b $d2
LDY #$00
JSR push_ya_noun_stk
man_cmd
LDA $D3
; STA $A0,X
DC.b $95
vtab_stmt:
DC.b $a0
JSR mult_op
JMP Tee43
ELSE
JSR getbyte
LDY text_index
CMP #$30 ; 48 0
BCS range_err
CPY #$28 ; 40 (
BCS range_err
RTS
NOP
NOP
Tee4e: JSR getbyte
RTS
ENDIF
;
IFCONST SNDERBASIC ;WSANDER BASIC HERE
NOP
NOP
man_cmd: LSR auto_flag
RTS
vtab_stmt: JSR getbyte
CMP #$18 ; 24 .
BCS range_err
STA cv
RTS
NOP
NOP
ELSE ;OTHER BASIC
IFNCONST HUSTNBASIC ; omit next 12 bytes if Hustn basic
nop
Lee53
txa
man_cmd:
ldx #$1
Lee56
; ldy acc,x
DC.b $B4
vtab_stmt: ;wrong address MJW
DC.b acc
sty himem,x
ldy zp48,x
sty pp,x
dex
IFCONST BRIELBASIC ;BRIEL BASIC HERE
beq Lee56
ELSE
beq man_cmd
ENDIF
tax
rts
ELSE ;HUSTNBASIC
STA cv
RTS
NOP
NOP
ENDIF
ENDIF
gr_255_err: LDY #$77 ; 119 w
go_errmess_5: JMP print_err_msg
range_err: LDY #$7b ; 123 {
BNE go_errmess_5
See6c: JSR Se254
LDA aux
BNE Lee7a
LDA aux+1
BNE Lee7a
JMP Le77e
Lee7a: ASL acc
ROL acc+1
ROL p3
ROL p3+1
LDA p3
CMP aux
LDA p3+1
SBC aux+1
BCC Lee96
STA p3+1
LDA p3
SBC aux
STA p3
INC acc
Lee96: DEY
BNE Lee7a
RTS
DC.B $ff,$ff,$ff,$ff,$ff,$ff ; "......"
call_stmt: JSR get16bit
JMP (acc)
IFCONST BRIELBASIC ;BRIEL BASIC
bogus_eea6:
LDA himem
BNE Leeac
dec zp4d
Leeac:
dec himem
Teeae:
lda zp48
Teeb0:
bne Leeb4
dec zp49
Leeb4:
dec zp48
Leeb6:
ldy #$00
lda (himem),y
Teeba:
sta (zp48),y
Teebc:
lda pp
cmp himem
lda zpcb
bogus_eec2:
sbc zp4d
bcc bogus_eea6
Teec6: jmp Lee53
ELSE ;SANDER/HUSTON (NOT BREIL) BASIC HERE
bogus_eea6: ;DC.B $20,$34,$ee,$c5,$c8,$90,$bb,$85 ; " 4nEH.;."
IFCONST SNDERBASIC ;WSANDER BASIC HERE
JSR getbyte
CMP text_index
BCC range_err
; sta LOCZERO
DC.b $85
Teeae: LDA himem+1
Teeb0: PHA
LDA himem
JSR push_ya_noun_stk
Leeb6
PLA
STA noun_stk_h_int,X
RTS
Teeba: LDA lomem+1
Teebc: PHA
LDA lomem
JMP Lefb3
bogus_eec2:
LDA zp85
DC.b $2D,$60
Teec6: JSR getbyte
ELSE ;HUSTON BASIC HERE
JSR get16bit
LDA zpcf
BPL Leeb5
TYA
Teeae
DEX
; JSR push_ya_noun_stk
DC.b $20
Teeb0
DC.b $08,$e7
STY noun_stk_h_int,x
rts
Leeb5
; STA tokndxstk
DC.b $85
Leeb6
DC.b $d1
LDA acc
; STA srch
DC.b $85
Teeba
DC.b $d0
; JSR get16bit
DC.b $20
Teebc
DC.b $15, $e7
LDA acc
STA srch2
bogus_eec2:
LDA zpcf
STA $d3
Teec6
LDA #$01
JMP plot_comma
ENDIF
ENDIF
IFNCONST HUSTNBASIC ; omit next 2 bytes if Hustn basic
CMP #$28 ; 40 (
ENDIF
Leecb: BCS range_err
TAY
LDA text_index
RTS
NOP
NOP
print_err_msg2: TYA
TAX
LDY #$6e ; 110 n
JSR Se3c4
TXA
TAY
JSR Se3c4
LDY #$72 ; 114 r
JMP Se3c4
Seee4: JSR get16bit
Leee7: ASL acc
ROL acc+1
BMI Leee7
BCS Leecb
BNE Leef5
CMP acc
BCS Leecb
Leef5: RTS
peek_fn:
IFCONST BLD4APPLE1
JSR get16bit
ELSE
JMP A2PEEK
ENDIF
LDA (acc),Y
STY syn_stk_l+31,X
JMP push_ya_noun_stk
poke_stmt:
IFCONST BLD4APPLE1
JSR getbyte
ELSE
JMP A2POKE
ENDIF
LDA acc
PHA
JSR get16bit
PLA
STA (acc),Y
Tef0c: RTS
DC.B $ff,$ff,$ff ; "..."
divide: JSR See6c
LDA acc
STA p3
LDA acc+1
STA p3+1
JMP Le244
dim_num: JSR Seee4
JMP Le134
num_array_subs: JSR Seee4
LDY noun_stk_h_str,X
LDA noun_stk_l,X
ADC #$fe ; 254 ~
BCS Lef30
DEY
Lef30: STA aux
STY aux+1
CLC
ADC acc
STA noun_stk_l,X
TYA
ADC acc+1
STA noun_stk_h_str,X
LDY #$00 ; 0 .
LDA noun_stk_l,X
CMP (aux),Y
INY
LDA noun_stk_h_str,X
SBC (aux),Y
BCS Leecb
JMP left_paren
rnd_fn: JSR get16bit
LDA rnd
JSR push_ya_noun_stk
LDA rnd+1
BNE Lef5e
CMP rnd
ADC #$00 ; 0 .
Lef5e: AND #$7f ; 127 .
STA rnd+1
STA noun_stk_h_int,X
LDY #$11 ; 17 .
Lef66: LDA rnd+1
ASL
CLC
ADC #$40 ; 64 @
ASL
ROL rnd
ROL rnd+1
DEY
BNE Lef66
LDA acc
JSR push_ya_noun_stk
LDA acc+1
STA noun_stk_h_int,X
JMP mod_op
Tef80: JSR get16bit
LDY acc
IFCONST SNDERBASIC ;SANDER BASIC HERE
CPY lomem
LDA acc+1
SBC lomem+1
BCC Lefab_efad
STY himem
LDA acc+1
STA himem+1
Lef93: JMP new_cmd
Tef96: JSR get16bit
LDY acc
CPY himem
LDA acc+1
SBC himem+1
BCS Lefab_efad
STY lomem
LDA acc+1
STA lomem+1
BCC Lef93
Lefab_efad: JMP Leecb
;DC.B ;$a5,$4d,$48,$a5,$4c ; "%MH%L"
lda zp4d
pha
lda himem
ELSE
IFCONST HUSTNBASIC
CPY lomem
LDA zpcf
SBC zp4b
BCC Lefab
STY himem
LDA zpcf
STA zp4d
Lef93
JMP new_cmd
Tef96
JSR get16bit
LDY acc
CPY himem
LDA zpcf
SBC zp4d
BCS Lefab
STY lomem
LDA zpcf
sta zp4b
bcc Lef93
Lefab
JMP Leecb
LDA zp4d
PHA
LDA himem
ELSE
cpy himem
lda zpcf
sbc zp4d
bcc Lefac
sty zp48
lda zpcf
sta zp49
jmp Leeb6
Tef96:
jsr get16bit
ldy acc
cpy pp
lda zpcf
sbc zpcb
bcs Lefac
sty lomem
lda zpcf
sta zp4b
jmp clr
Lefac
jmp Leecb
Lefab_efad:
nop
nop
nop
nop
ENDIF
ENDIF
Lefb3: JSR Sefc9
string_input: JSR input_str
JMP Lefbf
input_prompt: JSR print_str
Lefbf: LDA #$ff ; 255 .
STA text_index
LDA #$74 ; 116 t
STA buffer
RTS
Sefc9: JSR not_op
INX
Sefcd: JSR not_op
LDA noun_stk_l,X
RTS
mem_init_4k: LDA #$00 ; 0 .
STA lomem
STA himem
LDA #$08 ; 8 .
STA lomem+1
LDA #$10 ; 16 .
STA himem+1
JMP new_cmd
Sefe4: CMP noun_stk_h_str,X
BNE Lefe9
CLC
Lefe9: JMP Le102
Tefec: JSR clr
JMP run_warm
Teff2: JSR clr
JMP goto_stmt
Seff8: CPX #$80 ; 128 .
BNE Leffd
DEY
Leffd: JMP Se00c
Reference in New Issue View Git Blame Copy Permalink