antoine-source/graforth/graforth.s
Antoine Vignau 0498bcc0c9 Mass upload
of a couple of (working) disassemblies
2020-11-10 11:31:13 +01:00

4453 lines
43 KiB
ArmAsm

*
* GraForth
*
* (c) 1981, Paul Lutus
* (s) 2020, LoGo
*
xc
xc
mx %11
typ bin
org $6000
lst off
*----------------------------
WNDLFT = $20
WNDWDTH = $21
WNDTOP = $22
WNDBTM = $23
CH = $24
CV = $25
INVFLG = $32
CSWL = $36
CSWH = $37
KSWL = $38
KSWH = $39
SOFTEV EQU $03F2
PWREDUP EQU $03F4
AMPERV EQU $03F5
IRQLOC EQU $03FE
KBD EQU $C000
KBDSTROBE EQU $C010
SPKR EQU $C030
TXTCLR EQU $C050
TXTSET EQU $C051
MIXCLR EQU $C052
TXTPAGE1 EQU $C054
HIRES EQU $C057
BUTN2 EQU $C063
LCBANK2 EQU $C083
INIT EQU $FB2F
VTABZ EQU $FC24
HOME EQU $FC58
RDKEY EQU $FD0C
RDCHAR EQU $FD35
PRBYTE EQU $FDDA
COUT EQU $FDED
SETKBD EQU $FE89
SETVID EQU $FE93
MON EQU $FF65
*----------------------------
L0800 = $0800
L2000 = $2000 ; This is HGR1
L9000 = $9000 ; EDITOR 1 LOAD ADDRESS
LB600 = $B600 ; EDITOR 2 LOAD ADDRESS
L9A00 = $9A00 ; HIMEM 48K
LC000 = $C000 ; HIMEM 64K
*----------------------------
L6000 JMP L609C
JMP L6421
JMP L6A9B
L6009 STA $B7
LDX $CA
BMI L602A
BNE L601A
LSR
L6012 STA $B8
STA $B9
L6016 LDY #$00
BEQ L6036
L601A DEX
BNE L6022
LSR $92
JMP L6012
L6022 STA $B9
LSR
STA $B8
JMP L6016
L602A STA $B8
LSR $92
L602E LSR
INX
BNE L602E
STA $B9
LDY #$02
L6036 LDA L6082,Y
STA L606C
LDA L6082+1,Y
STA L606D
LDX #$FF
TYA
BEQ L6048
INX
L6048 STX $BB
LDY $B7
L604C LDX $92
L604E CPY $B9
BNE L6057
BVS L6057
LDA SPKR
L6057 DEY
BNE L605F
LDA SPKR
LDY $B7
L605F SEC
DEX
BNE L607A
LDA $BA
SBC $B7
STA $BA
CLV
BCS L604C
L606C NOP
L606D NOP
BIT KBD
BMI L6079
BIT $BB
DEC $B8
BNE L604C
L6079 RTS
L607A LDA #$03
L607C SBC #$01
BNE L607C
BEQ L604E
L6082 DEC $B9
NOP
NOP
L6086 LDA $03D2
CMP #>LC000
BCC L6097
LDA LCBANK2
LDA LCBANK2
LDA #>LC000
BNE L6099
L6097 LDA #>L9A00
L6099 STA $AD
RTS
L609C LDX $03EA
LDA $03D2
CLC
ADC #$09
STA L60F9+2
ADC #$03
STA L6105+2
STA L617F+2
ADC #$01
STA L617C+2
STA L610D+2
LDY #$00
STY $D8
LDA #$4C
STA AMPERV
JSR L60F4
LDA #<L6000
STA SOFTEV
STA AMPERV+1
STA $03F0
STA IRQLOC
LDA #>L6000
STA SOFTEV+1
STA AMPERV+2
STA $03F1
STA IRQLOC+1
EOR #$A5
STA PWREDUP
LDA #$0B
INY
JSR L60F4
LDA #$61
INY
JSR L60F4
JMP L6248
L60F4 CPX #$60
BNE L60F9
RTS
L60F9 STA $DEE1,Y ; LOGO
RTS
L60FD LDX $03EA
CPX #$60
BNE L6105
RTS
L6105 STA $E123
RTS
L6109 DB $10
L610A DB $05
L610B LDY #$10
L610D LDA $E25C
L6110 STA L610A
STY L6109
JSR L6086
LDA #$23
JSR L60FD
LDA $A6
PHA
JSR L6421
LDA #$00
STA $C7
PLA
BPL L613C
LDA L6109
CMP #$10
BNE L613C
LDA L610A
CMP #$05
BNE L613C
JMP L62AE
L613C LDA #$87
STA $A8
JSR COUT
LDY #$00
BIT $A3
BPL L614B
LDY #$04
L614B LDA L6195,Y
BEQ L615B
BMI L6155
TAY
BNE L614B
L6155 JSR COUT
INY
BNE L614B
L615B INY
LDA L6195,Y
BEQ L6172
CMP L6109
BNE L615B
L6166 INY
LDA L6195,Y
BPL L6172
JSR COUT
JMP L6166
L6172 LDA L6109
CMP #$10
BNE L618C
LDX L610A
L617C LDY $E23F,X
L617F LDA $E171,Y
INY
PHA
ORA #$80
JSR COUT
PLA
BPL L617F
L618C JSR L7F2C
JSR L6A9B
JMP L6248
L6195 ASC 8D
ASC "Run"
HEX 0D
ASC 8D
ASC "Compile Error: "
DB $00
DB $10
ASC "DOS: "
DB $11
ASC "Program Too Long"
DB $12
ASC "If-Then, While-Repeat"
DB $13
ASC ""A2":"A2" Not Equal To "A2";"A2""
DB $00
L61EE LDY #$00
L61F0 LDA L61FC,Y
BEQ L61FB
JSR COUT
INY
BNE L61F0
L61FB RTS
L61FC ASC "GraFORTH ][ (C) P. Lutus 1981"8D00
L621B BIT L6247
BMI L6230
DEC L6247
LDY #$00
L6225 LDA L6231,Y
BEQ L6230
JSR COUT
INY
BNE L6225
L6230 RTS
L6231 ASC 8D
ASC 84
ASC "BLOADCHR.SYS,A$800"8D00
L6247 DB $00
L6248 JSR L6086
JSR L7ADF
JSR L621B
LDA #$FF
JSR L7785
LDA #$00
JSR L788F
LDA #$00
STA $AC
STA L754D
STA $CA
STA L7C50
STA $C7
STA L7705
STA $C0
STA $A6
STA $9C
STA $9D
STA L6B77
STA CH
STA L7FBC
STA $A4
TAX
JSR L7F53
JSR L79BB
JSR L7FB0
LDA #$23
JSR L60FD
LDA #$03
JSR L76BC
JSR L7348
JSR L7867
JSR L7ACE
JSR L61EE
JSR L6F81
LDX #$FF
TXS
LDA #$FF
STA $33
LDA #$80
STA $D9
STA $76
L62AE BIT $A6
BMI L62B5
JSR L6510
L62B5 JSR L6303
LDA $A2
BEQ L62C4
LDY #$13
JSR L610D
JMP L62AE
L62C4 BIT $A8
BMI L62AE
JSR L634C
JMP L62AE
L62CE LDA L7C50
BEQ L6302
LDY #$00
STY $A5
L62D7 LDY $A5
CPY $9C
BEQ L6302
LDA #$8D
JSR COUT
LDA #$DB ; [
JSR COUT
JSR L7F2C
LDA $1E00,Y
INY
LDX $1E00,Y
INY
STY $A5
JSR L7BF3
JSR L7F2C
LDA #$DD ; ]
JSR COUT
JMP L62D7
L6302 RTS
L6303 LDA #$00
STA $A2
STA $A1
STA $A8
JSR L636F
JSR L62CE
L6311 JSR L6545
LDY #$FF
L6316 INY
LDA $0200,Y
CMP #$A0
BEQ L6316
CMP #$8D
BEQ L6311
STY $A7
LDA #$00
STA $A0
JSR L6334
BIT $A8
BMI L6333
LDA $A2
BNE L6311
L6333 RTS
L6334 BIT $A0
BMI L6342
BIT $A8
BMI L6342
JSR L63CB
JMP L6334
L6342 LDA $A2
BEQ L6347
RTS
L6347 LDA #$60
JMP L6A8B
L634C LDA #$00
STA $A3
JSR L6356
JMP ($008E)
L6356 LDA L6FC9
CLC
ADC #$02
STA $8E
LDA L6FC9+1
ADC #$00
STA $8F
L6365 CMP $AD
BCC L636E
LDY #$11
JMP L610D
L636E RTS
L636F JSR L6356
LDY #$00
TYA
STA ($8E),Y
RTS
L6378 LDY $A7
LDA $0200,Y
CMP #$8D
BEQ L6385
CMP #$A0
BNE L6388
L6385 JSR L63FB
L6388 LDA L6FC9
STA $9A
LDA L6FC9+1
STA $9B
BNE L63A5
L6394 LDY #$00
LDA ($9A),Y
TAX
INY
LDA ($9A),Y
INY
CMP #$00
BEQ L63CA
STA $9B
STX $9A
L63A5 LDY #$02
LDX $A7
L63A9 LDA ($9A),Y
BPL L63B6
CMP $0200,X
BNE L6394
INX
INY
BNE L63A9
L63B6 CPY #$02
BEQ L6394
LDA $0200,X
CMP #$8D
BEQ L63C7
CMP #$A0
BNE L6394
BEQ L63C9
L63C7 DEC $A0
L63C9 CLC
L63CA RTS
L63CB JSR L6378
LDA ($9A),Y
PHA
TYA
CLC
ADC $9A
STA $9A
BCC L63DB
INC $9B
L63DB PLA
CMP #$0A
BNE L63F4
JSR L63E6
JMP L63FB
L63E6 LDA #$FF
STA $A3
JMP ($009A)
L63ED LDA $9A
LDX $9B
JMP L6A80
L63F4 LDA #$00
STA $A3
JSR L63ED
L63FB LDY $A7
BIT $A0
BMI L641E
DEY
L6402 INY
LDA $0200,Y
CMP #$8D
BEQ L641C
CMP #$A0
BNE L6402
L640E INY
LDA $0200,Y
CMP #$8D
BEQ L641C
CMP #$A0
BEQ L640E
BNE L641E
L641C DEC $A0
L641E STY $A7
RTS
*----------------------------
L6421 JSR L6427
JMP L6560
L6427 LDA #<L6C0C
STA CSWL
LDA #>L6C0C
STA CSWH
LDA #<L6AD5
STA KSWL
LDA #>L6AD5
STA KSWH
JMP $03EA
L643A JSR L636F
JSR L6A8F
JSR L6A8F
JSR L7233
LDY #$00
STY $94
STY L7224
L644D LDA L64C6,Y
JSR COUT
INY
CMP #$BA ; :
BNE L644D
JSR L7065
LDY #$00
L645D LDA L64D7,Y
JSR COUT
INY
CMP #$BA ; :
BNE L645D
JSR L6A9B
LDA #$00
STA L6247
LDA $0200
CMP #$D9 ; Y
BNE L647A
DEC L7224
L647A LDY #$FF
L647C INY
LDA L64E7,Y
CMP #$BF ; ?
BNE L648A
JSR L64F7
JMP L647C
L648A CMP #$BE ; >
BEQ L64A5
CMP #$BC ; <
BNE L649F
LDA #$60
JSR PRBYTE
LDA #$00
JSR PRBYTE
JMP L647C
L649F JSR COUT
JMP L647C
L64A5 SEC
LDA $8E
SBC #$00
TAY
LDA $8F
SBC #$60
JSR PRBYTE
TYA
JSR PRBYTE
LDA #$8D
JSR COUT
LDA #$00
STA L7224
DEC L6247
JMP L636F
L64C6 ASC 8D
ASC "Save File Name :"
L64D7 ASC 8D
ASC "Autorun (Y/N) :"
L64E7 ASC 8D84
ASC "BSAVE?,A$<,L$>"
L64F7 TYA
PHA
LDY #$00
L64FB LDA ($8C),Y
BEQ L650D
CMP #$8D
BEQ L650D
CMP $94
BEQ L650D
JSR COUT
INY
BNE L64FB
L650D PLA
TAY
RTS
L6510 LDA L7224
BNE L6516
RTS
L6516 LDA L6FC9
STA $8C
LDA L6FC9+1
STA $8D
LDY #$00
STY $A3
LDA ($8C),Y
PHA
INY
LDA ($8C),Y
STA $8D
PLA
STA $8C
L652F INY
LDA ($8C),Y
BMI L652F
TYA
CLC
ADC $8C
STA $8C
BCC L653E
INC $8D
L653E LDA #$00
STA $AC
JMP ($008C)
L6545 BIT $A6
BMI L6556
LDY #$00
L654B LDA L6559,Y
JSR COUT
INY
CMP #$A0
BNE L654B
L6556 JMP L6A9B
L6559 ASC 8D
ASC "Ready "
L6560 LDA $03EA
CMP #$60
BNE L6568
RTS
L6568 LDY #$00
STY $A6
LDA CV
PHA
L656F LDA L6580,Y
BEQ L657A
JSR COUT
INY
BNE L656F
L657A PLA
STA CV
JMP L6CC3
L6580 ASC 8D
ASC 84
ASC "CLOSE"8D00
L6589 LDA $8E
SEC
SBC #$05
STA $8C
LDA $8F
SBC #$00
STA $8D
LDA $8C
SEC
SBC L6FC9
LDA $8D
SBC L6FC9+1
BCC L65BC
LDY #$02
LDA ($8C),Y
CMP #$72
BNE L65BC
LDA $8C
STA $8E
LDA $8D
STA $8F
INY
INY
LDA ($8C),Y
TAX
DEY
LDA ($8C),Y
RTS
L65BC LDA #$00
LDX #$00
RTS
L65C1 LDX #$FF
BNE L65C7
L65C5 LDX #$00
L65C7 LDA #$8D
JSR COUT
LDY $A7
L65CE LDA $0200,Y
CMP #$8D
BEQ L65DF
CMP #$A0
BEQ L65DF
JSR COUT
INY
BNE L65CE
L65DF LDY #$00
L65E1 LDA L661C,Y
CPX #$00
BEQ L65EB
LDA L6629,Y
L65EB JSR COUT
INY
CMP #$A8
BNE L65E1
LDY #$00
L65F5 LDA L6635,Y
JSR COUT
INY
CMP #$A0
BNE L65F5
BIT $C7
BMI L6608
BIT $A6
BPL L6619
L6608 DEC $A8
LDY #$00
STY $A6
STY $C7
LDA CH
PHA
JSR L6560
PLA
STA CH
L6619 JMP L6A9B
L661C ASC " Not Unique ("
L6629 ASC " Not Found ("
L6635 ASC "Return) "
L663D INC $8C ; not called?
BNE L6643
INC $8D
L6643 RTS
L6644 LDA $F1
LSR
TAX
LDA L68C8,X
STA $0314
LDA L6908,X
STA $0311
LDA L68E8,X
STA $0310
STA $0315
LDA $F2
LSR
TAX
LDA L68C8,X
STA $031E
LDA L6908,X
STA $0318
LDA L68E8,X
STA $0316
STA $0320
LDA $F3
LSR
TAX
LDA L68C8,X
STA $0325
LDA L6908,X
STA $0322
LDA L68E8,X
STA $0321
STA $0326
RTS
L6690 LDA $C6
BIT L77A6
BPL L6699
EOR #$01
L6699 JSR L789A
LDA #$00
L669E STA $B4
TAY
L66A1 LDA $1700,Y
CMP #$01
BEQ L66AD
LDA $1900,Y
BEQ L66E6
L66AD LDA #$FF
JSR L66F6
LDY $B4
LDA $1900,Y
CMP #$01
BEQ L66CB
LDX #$F0
L66BD LDA $1900,Y
STA $00,X
INY
INX
BNE L66BD
LDA #$00
JSR L6714
L66CB LDY $B4
LDX #$10
L66CF LDA $1800,Y
STA $1700,Y
LDA $1900,Y
STA $1800,Y
INY
DEX
BNE L66CF
LDY $B4
LDA #$00
STA $1900,Y
L66E6 LDA $B4
CLC
ADC #$10
BCS L66F0
JMP L669E
L66F0 LDX $C6
LDA $C054,X
RTS
L66F6 LDX $1700,Y
BNE L66FC
RTS
L66FC PHA
LDA #$00
L66FF STA $1700,Y
LDX #$F0
L6704 LDA $1700,Y
STA $00,X
INY
INX
BNE L6704
PLA
BIT L754D
BPL L6714
RTS
L6714 LDX $BF
CPX #$51
BEQ L6744
EOR INVFLG
BPL L6744
JSR L672B
JSR L6744
LDA $BF
LDX $C3
JMP L79BF
L672B LDA #$49
STA L7A7C
STA L7843
LDA #$FF
STA L7A7D
STA L7844
LDA #$31
STA L7A7E
STA L7845
RTS
L6744 JSR L6644
LDX #$0A
LDA #$00
L674B STA $DA,X
DEX
BPL L674B
LDA $F9
ASL
ASL
STA $DA
LDA $FA
ASL
ASL
STA $DF
LDA $FB
ASL
ASL
STA $E4
LDA #$0B ; All are low buffer pointer
STA L686D+1
JSR L6822
LDA #$16
STA L686D+1
JSR L681F
LDA #$21
STA L686D+1
JSR L681F
JSR L6813
LDA $FC
JSR L76BC
LDA #$00
STA L686D+1
LDY $B4
LDA $FD
STA $B5
LDA $FE
BNE L6792
L6791 RTS
L6792 STA $B6
L6794 LDY #$00
LDA ($B5),Y
CMP #$FF
BEQ L6791
STA $9F
AND #$07
BEQ L67A5
JSR L76BC
L67A5 LDY #$03
L67A7 LDA ($B5),Y
CLC
ADC |$00F3,Y
STA $02FF,Y
DEY
BNE L67A7
LDA #$00
STA $BC
LDY #$02
LDA $FB
BNE L67BE
DEY
L67BE STY $BB
JSR L682A
LDA $E5
LDY $E7
BEQ L67CC
JSR L68AC
L67CC CLC
ADC $F7
STA $80
LDA $E6
LDY $E7
BEQ L67DA
JSR L68AC
L67DA CLC
ADC $F8
STA $82
BIT L754D
BPL L67F4
BIT $9F
BPL L67EE
JSR L7492
JMP L6806
L67EE JSR L748F
JMP L6806
L67F4 BIT $9F
BPL L67FE
JSR L78FD
JMP L6806
L67FE LDA $80
STA $84
LDA $82
STA $86
L6806 LDA $B5
CLC
ADC #$04
STA $B5
BCC L6794
INC $B6
BNE L6794
L6813 LDY #$0A
L6815 LDA |$00E5,Y
STA |$00DA,Y
DEY
BPL L6815
RTS
L681F JSR L6813
L6822 LDA #$08
STA $BC
L6826 LDA #$02
STA $BB
L682A LDA #$02
STA $BE
LDA #$00
STA $B9
L6832 JSR L6850
DEC $BE
BPL L6832
LDA $BC
ORA $BB
TAX
LDA $B9
STA $E5,X
DEC $BB
BPL L682A
LDA $BC
SEC
SBC #$04
STA $BC
BPL L6826
L684F RTS
L6850 LDX #$00
LDA $BE
ASL
ASL
ORA $BB
TAY
LDA |$00DA,Y
BEQ L684F
BPL L6866
EOR #$FF
CLC
ADC #$01
INX
L6866 STA $B7
LDA $BC
ORA $BE
TAY
L686D LDA $0300,Y
BEQ L684F
BPL L687A
EOR #$FF
CLC
ADC #$01
INX
L687A STA $B8
CMP #$7F
BNE L6884
LDA $B7
BNE L689E
L6884 LDA $B7
CMP #$7F
BNE L688E
LDA $B8
BNE L689E
L688E DEC $B8
LDY #$07
LDA #$00
L6894 LSR $B7
BCC L689A
ADC $B8
L689A LSR
DEY
BNE L6894
L689E DEX
BNE L68A6
EOR #$FF
CLC
ADC #$01
L68A6 CLC
ADC $B9
STA $B9
RTS
L68AC LDX #$00
STA $B9
JSR L68BE
STA $B7
TYA
JSR L68BE
STA $B8
JMP L688E
L68BE CMP #$80
BCC L68C7
INX
EOR #$FF
ADC #$00
L68C7 RTS
L68C8 HEX 00060C13191F252B31363C41474C5155
HEX 5A5E62666A6D707375787A7B7D7E7E7F
L68E8 HEX 7F7F7E7E7D7B7A787573706D6A66625E
HEX 5A55514C47413C36312B251F19130C06
L6908 HEX 00FAF4EDE7E1DBD5CFCAC4BFB9B4AFAB
HEX A6A29E9A9693908D8B88868583828281
HEX 81818282838586888B8D9093969A9EA2
HEX A6ABAFB4B9BFC4CACFD5DBE1E7EDF4FA
HEX FF060C12181F252B30363C41474C5155
HEX 5A5E62666A6D707376787A7C7D7E7F7F
HEX 7F7F7F7E7D7C7A787673706D6A66625E
HEX 5A55514C47413C36302B251F18120C06
L6988 LDY #$02
LDX #$00
L698C LDA |$0095,Y
BPL L69A3
INX
SEC
LDA #$00
SBC |$0094,Y
STA |$0094,Y
LDA #$00
SBC |$0095,Y
STA |$0095,Y
L69A3 DEY
DEY
BPL L698C
STX $9E
RTS
L69AA DEC $9E
BNE L69BB
SEC
LDA #$00
SBC $96
STA $96
LDA #$00
SBC $97
STA $97
L69BB RTS
L69BC LDY #$10
LDA #$00
STA $98
STA $99
L69C4 ASL $98
ROL $99
ASL $94
ROL $95
BCC L69DB
CLC
LDA $98
ADC $96
STA $98
LDA $99
ADC $97
STA $99
L69DB DEY
BNE L69C4
LDA $98
STA $96
LDA $99
STA $97
RTS
L69E7 LDY #$10
LDA #$00
STA $98
STA $99
L69EF ASL $96
ROL $97
ROL $98
ROL $99
SEC
LDA $98
SBC $94
TAX
LDA $99
SBC $95
BCC L6A09
STA $99
STX $98
INC $96
L6A09 DEY
BNE L69EF
RTS
L6A0D LDY $A4
STA $032C,Y
TXA
INY
STA $032C,Y
INY
STY $A4
RTS
L6A1B LDY $A4
DEY
LDX $032C,Y
STX $8D
DEY
LDA $032C,Y
STA $8C
STY $A4
RTS
L6A2C LDY $9C
BNE L6A32
INY
INY
L6A32 DEY
LDX $1E00,Y
DEY
LDA $1E00,Y
STY $9C
RTS
L6A3D LDY $9C
STA $1E00,Y
INY
TXA
STA $1E00,Y
INY
BNE L6A4C
DEY
DEY
L6A4C STY $9C
RTS
L6A4F LDY $9D
BNE L6A55
INY
INY
L6A55 DEY
LDX $1F00,Y
DEY
LDA $1F00,Y
STY $9D
RTS
L6A60 LDY $9D
STA $1F00,Y
INY
TXA
STA $1F00,Y
INY
BNE L6A6F
DEY
DEY
L6A6F STY $9D
RTS
L6A72 PHA
LDA #$4C
JSR L6A8B
PLA
JSR L6A8B
TXA
JMP L6A8B
L6A80 PHA
LDA #$20
JSR L6A8B
PLA
JSR L6A8B
TXA
L6A8B LDY #$00
STA ($8E),Y
L6A8F INC $8E
BNE L6A9A
INC $8F
LDA $8F
JMP L6365
L6A9A RTS
*----------------------------
L6A9B LDX #$01
L6A9D TXA
BEQ L6AA1
DEX
L6AA1 JSR RDCHAR
CMP #$95
BNE L6AAC
LDA ($28),Y
ORA #$80
L6AAC STA $0200,X
CMP #$8D
BNE L6AC3
BIT $A6
BMI L6AC0
BIT $C7
BMI L6AC0
PHA
JSR L6D6E
PLA
L6AC0 JMP L6ACD
L6AC3 JSR L6ACD
CMP #$88
BEQ L6A9D
INX
BNE L6AA1
L6ACD BIT $C7
BMI L6AD4
JMP COUT
L6AD4 RTS
*----------------------------
L6AD5 STY $5B
STX $5A
STA $C4
STA ($28),Y
LDA INVFLG
STA $B2
JSR L6CC3
JSR L6AF9
STA $A9
LDA $B2
STA INVFLG
LDA $C4
JSR L6D8A
LDA $A9
LDX $5A
LDY $5B
RTS
L6AF9 JSR L6BDD
CMP #$89
BNE L6B06
JSR L6BB5
JMP L6AF9
L6B06 CMP #$8F
BNE L6B23
JSR L6BDD
JSR L6B79
LDX #$04
L6B12 CMP L6B6D,X
BEQ L6B1A
DEX
BNE L6B12
L6B1A LDA L6B72,X
STA L6B77
JMP L6AF9
L6B23 LDX L6B77
CPX #$80
BNE L6B39
CMP #$9B
BNE L6B39
BIT L6B78
BMI L6B3C
DEC L6B78
JMP L6AF9
L6B39 JSR L6B42
L6B3C LDY #$00
STY L6B78
RTS
L6B42 CPX #$00
BPL L6B49
JSR L6BA0
L6B49 JSR L6B8B
CPX #$20
BNE L6B53
JMP L6B79
L6B53 CPX #$40
BNE L6B5A
JMP L6B80
L6B5A CPX #$C0
BNE L6B63
BIT BUTN2
BMI L6B80
L6B63 CPX #$80
BNE L6B6C
BIT L6B78
BPL L6B80
L6B6C RTS
L6B6D ASC 00
ASC "ULSE"
L6B72 HEX 002040C080
L6B77 DB $00
L6B78 DB $00
L6B79 CMP #$E0
BCC L6B7F
SBC #$20
L6B7F RTS
L6B80 CMP #$C0
BCC L6B8A
CMP #$E0
BCS L6B8A
ADC #$20
L6B8A RTS
L6B8B LDY #$02
L6B8D CMP L6B9A,Y
BEQ L6B96
DEY
BPL L6B8D
RTS
L6B96 LDA L6B9D,Y
RTS
L6B9A HEX 9E9D80
L6B9D ASC "[_\"
L6BA0 LDY #$02
L6BA2 CMP L6BAF,Y
BEQ L6BAB
DEY
BPL L6BA2
RTS
L6BAB LDA L6BB2,Y
RTS
L6BAF ASC "^]@"
L6BB2 ASC "NMP"
L6BB5 LDA $B2
STA INVFLG
LDA CH
PHA
LDA WNDWDTH
STA CH
DEC CH
L6BC2 DEC CH
JSR L6DFB
INC CH
JSR L6D8A
DEC CH
PLA
CMP CH
BEQ L6BD6
PHA
BNE L6BC2
L6BD6 LDA #$A0
STA $C4
JMP L6D8A
L6BDD BIT $C7
BPL L6BF2
JMP L718A
L6BE4 LDA #$40
L6BE6 BIT KBD
BMI L6BF9
SBC #$01
BCS L6BE6
DEY
BNE L6BE4
L6BF2 JSR L6C00
LDY #$00
BEQ L6BE4
L6BF9 LDA KBD
BIT KBDSTROBE
RTS
L6C00 LDA INVFLG
EOR #$FF
STA INVFLG
JSR L6DFB
JMP L6D8A
L6C0C PHA
STY $5B
STX $5A
BIT L7AC8
BMI L6C19
JSR L6B79
L6C19 JSR L6C22
LDX $5A
LDY $5B
PLA
RTS
L6C22 CMP #$A0
BCS L6C5D
CMP #$80
BCC L6C5D
CMP #$8C
BNE L6C31
JMP L6D41
L6C31 CMP #$8D
BNE L6C4B
LDA KBD
BPL L6C80
CMP #$93
BNE L6C80
BIT KBDSTROBE
L6C41 LDA KBD
BPL L6C41
STA KBDSTROBE
BMI L6C80
L6C4B CMP #$88
BEQ L6C69
CMP #$87
BNE L6C56
JMP L73F2
L6C56 CMP #$8B
BNE L6C68
JMP L6CE9
L6C5D JSR L6D8A
INC CH
LDA CH
CMP WNDWDTH
BCS L6C80
L6C68 RTS
L6C69 DEC CH
BMI L6C6E
RTS
L6C6E LDA WNDWDTH
STA CH
DEC CH
LDA WNDTOP
CMP CV
BCS L6C7F
DEC CV
JMP L6CC3
L6C7F RTS
L6C80 LDA #$00
STA CH
INC CV
LDA CV
CMP WNDBTM
BCC L6CC5
LDA WNDTOP
PHA
L6C8F PLA
PHA
CLC
ADC #$01
JSR L6CC5
LDA $28
STA $26
LDA $29
STA $27
PLA
PHA
STA CV
JSR L6CC5
PLA
CLC
ADC #$01
CMP WNDBTM
BCS L6CBC
PHA
LDY WNDWDTH
DEY
L6CB2 LDA ($26),Y
JSR L6D8C
DEY
BPL L6CB2
BMI L6C8F
L6CBC LDA #$00
STA CH
JMP L6D6E
L6CC3 LDA CV
L6CC5 PHA
JSR VTABZ
PLA
BIT L7AC8
BPL L6CE8
ASL
ASL
ASL
TAY
CLC
LDA $1A00,Y
ADC $20
STA $50
STA $52
LDA $1B00,Y
ORA #$20
STA $51
EOR #$60
STA $53
L6CE8 RTS
L6CE9 DEC CV
LDA CV
BMI L6CF4
CMP WNDTOP
BCC L6CF4
RTS
L6CF4 LDY WNDBTM
DEY
TYA
PHA
L6CF9 PLA
PHA
SEC
SBC #$01
JSR L6CC5
LDA $28
STA $26
LDA $29
STA $27
PLA
PHA
STA CV
JSR L6CC5
PLA
CMP WNDTOP
BEQ L6D26
SEC
SBC #$01
PHA
LDY WNDWDTH
DEY
L6D1C LDA ($26),Y
JSR L6D8C
DEY
BPL L6D1C
BMI L6CF9
L6D26 LDA #$00
STA CH
JMP L6D6E
L6D2D LDX #$0F
L6D2F TXA
ASL
ASL
ASL
ASL
TAY
LDA #$00
STA $1700,Y
STA $1800,Y
DEX
BPL L6D2F
RTS
L6D41 JSR L6D2D
LDA WNDTOP
STA CV
LDA #$00
STA CH
L6D4C LDA CH
PHA
LDA CV
PHA
L6D52 JSR L6CC5
JSR L6D78
LDA #$00
STA CH
INC CV
LDA CV
CMP WNDBTM
BCC L6D52
PLA
STA CV
JSR L6CC5
PLA
STA CH
RTS
L6D6E LDA CH
PHA
JSR L6D78
PLA
STA CH
RTS
L6D78 LDA CH
CMP WNDWDTH
BCS L6D89
LDA #$A0
LDY CH
JSR L6D9B
INC CH
BNE L6D78
L6D89 RTS
L6D8A LDY CH
L6D8C BIT INVFLG
BMI L6D94
ORA #$80
BMI L6D96
L6D94 AND #$7F
L6D96 CMP ($28),Y
BNE L6D9B
RTS
L6D9B STA ($28),Y
BIT L7AC8
BMI L6DA3
L6DA2 RTS
L6DA3 AND #$7F
SEC
SBC #$20
BCC L6DA2
STA $58
LDA #$00
ASL $58
ROL
ASL $58
ROL
ASL $58
ROL
TAX
LDA $C1
CLC
ADC $58
STA L6DDA+1
STA L6E48+1
TXA
ADC $C2
STA L6DDA+2
STA L6E48+2
LDA L7FBC
BNE L6E00
LDA $51
PHA
LDA $53
PHA
LDX #$00
CLC
L6DDA LDA L0800,X
EOR INVFLG
STA ($50),Y
STA ($52),Y
LDA $51
ADC #$04
STA $51
LDA $53
ADC #$04
STA $53
INX
CPX #$08
BCC L6DDA
PLA
STA $53
PLA
STA $51
RTS
L6DFB LDY CH
LDA ($28),Y
RTS
L6E00 TYA
PHA
LDA $84
PHA
LDA $86
PHA
LDA $80
PHA
LDA $82
PHA
TYA
JSR L6E20
LDA $96
STA $BB
LDA CV
JSR L6E20
LDA $96
JMP L6E30
L6E20 STA $96
LDA L7FBC
STA $94
LDA #$00
STA $97
STA $95
JMP L69BC
L6E30 ASL
ASL
ASL
STA $BC
LDA $BB
ASL
STA $58
ASL
CLC
ADC $58
ADC $BB
STA $BB
STA $58
LDX #$00
L6E46 STX $B7
L6E48 LDA L0800,X
EOR INVFLG
STA $B9
LDA #$07
STA $B8
L6E53 LDA #$C0
LSR $B9
BCS L6E5B
LDA #$40
L6E5B STA $C0
LDA $BC
STA $86
CLC
ADC L7FBC
STA $82
LDA $58
STA $84
CLC
ADC L7FBC
STA $80
LDA $BF
CMP #$11
BEQ L6E7B
BIT $C0
BPL L6E7E
L6E7B JSR L77D8
L6E7E CLC
LDA $58
ADC L7FBC
STA $58
DEC $B8
BNE L6E53
LDA $BB
STA $58
CLC
LDA $BC
ADC L7FBC
STA $BC
LDX $B7
INX
CPX #$08
BNE L6E46
LDA #$00
STA $C0
PLA
STA $82
PLA
STA $80
PLA
STA $86
PLA
STA $84
PLA
TAY
RTS
L6EB0 DA $0000 ; END OF FORTH CMDS
ASL
JMP L6F22
L6EB6 LDY #$00
STY $96
STY $97
STY $9E
STY L6FD5
DEY
L6EC2 INY
LDA ($8C),Y
CMP #$AD ; -
BNE L6ECD
DEC $9E
BNE L6EC2
L6ECD CMP #$A4 ; $
BEQ L6EC2
CMP #$B0
BCC L6F08
CMP #$BA
BCC L6EDF
SBC #$07
CMP #$BA
BCC L6F08
L6EDF SEC
SBC #$B0
CMP L6F6B
BCS L6F08
DEC L6FD5
PHA
LDA L6F6B
STA $94
LDA #$00
STA $95
TYA
PHA
JSR L69BC
PLA
TAY
PLA
CLC
ADC $96
STA $96
BCC L6F05
INC $97
L6F05 JMP L6EC2
L6F08 BIT $9E
BPL L6F19
SEC
LDA #$00
SBC $96
STA $96
LDA #$00
SBC $97
STA $97
L6F19 LDA $96
STA $94
LDA $97
STA $95
RTS
L6F22 LDA #$00
CLC
ADC $A7
STA $8C
LDA #$02
ADC #$00
STA $8D
JSR L6EB6
BIT L6FD5
BMI L6F3A
JMP L65C1
L6F3A LDA #$02
STA $92
LDA #$00
STA $93
LDA #$02
STA $A1
JMP L725F
L6F49 DA L6EB0
ASC "GETNUM"
JSR L6A2C
STX $8D
STA $8C
JSR L6EB6
LDA $94
LDX $95
JMP L6A3D
L6F62 DA L6F49
ASC "BASE"
JSR L7289
L6F6B DA $000A
L6F6D DA L6F62
ASC "DECIMAL"
ASL
JSR L6F81
LDA #<L6F81
LDX #>L6F81
JMP L6A80
L6F81 LDA #$0A
L6F83 STA L6F6B
RTS
L6F87 DA L6F6D
ASC "BINARY"
ASL
JSR L6F9A
LDA #<L6F9A
LDX #>L6F9A
JMP L6A80
L6F9A LDA #$02
BNE L6F83
L6F9E DA L6F87
ASC "HEX"
ASL
JSR L6FAE
LDA #<L6FAE
LDX #>L6FAE
JMP L6A80
L6FAE LDA #$10
BNE L6F83
L6FB2 DA L6F9E
ASC "SAVEPRG"
L6FBB JMP L643A
L6FBE DA L6FB2
ASC "PRGTOP"
JSR L7289
L6FC9 DA L832F
L6FCB DA L6FBE
ASC "VALID"
JSR L7289
L6FD5 DA $00FD
L6FD7 DA L6FCB
ASC "EDIT"
CLC
LDA $AD
LDY #"1"
LDX #>L9000
CMP #$C0
BCC L6FEC
LDY #"2" ; EDITOR 2
LDX #>LB600 ; AT $B600
L6FEC STX $89
STY L7025+$10
LDA #<LB600
STA $88
TAY
LDA ($88),Y ; MARKER IS A9 4C
CMP #$A9 ; )
BNE L7003
INY
LDA ($88),Y
CMP #$4C
BEQ L7021
L7003 LDY #$FF
L7005 INY
LDA L7024,Y
BEQ L7021
CMP #$BF ; ?
BNE L701B
TXA
JSR PRBYTE
LDA #$00
JSR PRBYTE
JMP L7005
L701B JSR COUT
JMP L7005
L7021 JMP ($0088)
L7024 ASC 8D
L7025 ASC 84
ASC "BLOADOBJ.EDITOR1,A$?"8D00
L703C DA L6FD7
ASC "WRITELN"
JSR L6A2C
STA $8C
STX $8D
LDY #$00
L704E LDA ($8C),Y
BEQ L705C
CMP #$8D
BEQ L705C
JSR COUT
INY
BNE L704E
L705C RTS
L705D DA L703C
ASC "READLN"
L7065 JSR L6A9B
JSR L6A2C
STA $8C
STX $8D
LDY #$00
L7071 LDA $0200,Y
STA ($8C),Y
INY
CMP #$8D
BNE L7071
RTS
L707C DA L705D
ASC "CLOSE"
JMP L6560
L7086 DA L707C
ASC "MOVMEM"
JSR L6A2C
STA $98
STX $99
JSR L6A2C
STA $96
STX $97
JSR L6A2C
STA $94
STX $95
LDX $98
LDY #$00
L70A7 TXA
BNE L70B0
LDA $99
BEQ L70BE
DEC $99
L70B0 DEX
LDA ($94),Y
STA ($96),Y
INY
BNE L70A7
INC $95
INC $97
BNE L70A7
L70BE RTS
L70BF DA L7086
ASC "("
ASL
LDX $A7
L70C5 INX
LDA $0200,X
CMP #$8D
BEQ L70D9
CMP #$A0
BNE L70C5
LDA $0201,X
CMP #$A9 ; )
BNE L70C5
INX
L70D9 STX $A7
RTS
L70DC DA L70BF
ASC "CASE:"
ASL
LDA #$FA
LDX #$70
JSR L6A80
LDA #$4C
JSR L6A8B
LDA $8E
LDX $8F
JSR L6A0D
JMP L7D6F
L70FA TSX
PLA
STA $8C
PLA
STA $8D
TXS
JSR L6A2C
STA $94
ASL
CLC
ADC $94
ADC #$06
TAY
LDA ($8C),Y
TAX
DEY
LDA ($8C),Y
STA $8C
STX $8D
JMP ($008C)
L711B DA L70DC
ASC ":"
ASL
LDA $A2
BEQ L713C
LDA #$4C
JSR L6A8B
LDA $8E
LDX $8F
JSR L6A0D
LDA #$70
JSR L6A8B
LDA #$71
JSR L6A8B
JSR L73CE
L713C JSR L63FB
BIT $A0
BMI L714B
JSR L636F
JSR L73B0
INC $A2
L714B RTS
L714C DA L711B
ASC ";"
ASL
LDA #$60
JSR L6A8B
DEC $A2
BPL L715C
JMP L7170
L715C BEQ L716D
JSR L6A1B
LDY #$00
LDA $8E
STA ($8C),Y
INY
LDA $8F
STA ($8C),Y
RTS
L716D JMP L73CE
L7170 LDY #$13
JMP L610D
L7175 DA L714C
ASC "MEMRD"
L717C JSR L6A2C
STA $C8
STX $C9
LDA #$FF
STA $C7
STA $A6
RTS
L718A LDY #$00
LDA ($C8),Y
BEQ L7197
INC $C8
BNE L7196
INC $C9
L7196 RTS
L7197 STA $C7
STA $A6
LDA #$8D
RTS
L719E DA L7175
ASC "READ"
L71A4 PLA
STA $8C
PLA
STA $8D
DEC $A6
LDA #$22
JSR L60FD
LDA #$8D
STA $A9
LDX #$00
L71B7 LDA L71F4,X
BEQ L71DB
JSR COUT
INX
CMP #$A0
BNE L71B7
LDY #$01
L71C6 LDA ($8C),Y
BEQ L71D4
CMP $A9
BEQ L71D4
JSR COUT
INY
BNE L71C6
L71D4 LDA #$AC
STA $A9
BNE L71B7
L71DA INY
L71DB LDA ($8C),Y
BNE L71DA
TYA
CLC
ADC $8C
STA $8C
TAX
BCC L71EA
INC $8D
L71EA LDA $8D
PHA
TXA
PHA
LDA #$23
JMP L60FD
L71F4 ASC 8D84
ASC "OPEN "
ASC 8D
ASC 84
ASC "READ "8D00
L7204 DA L719E
ASC "ABORT"
JMP L6248
L720E DA L7204
ASC "AUTORUN"
L7217 JSR L6A2C
LDX #$00
TAY
BEQ L7220
DEX
L7220 STX L7224
RTS
L7224 DB $FF
L7225 DA L720E
ASC "RUN"
JMP L6516
L722D DA L7225
ASC "PAD"
L7232 CLC
L7233 LDA #$2C
LDX #$03
JMP L6A3D
L723A DA L722D
ASC "STRING"
ASL
JSR L63FB
BIT $A0
BPL L724B
RTS
L724B LDA #$04
STA $A1
JSR L6589
STX $93
STA $92
L7256 JSR L73B0
JSR L725F
JMP L73CE
L725F LDY $A1
LDX L7283+1,Y
LDA L7283,Y
JSR L6A80
LDY #$00
LDA $94
STA ($8E),Y
INY
LDA $95
STA ($8E),Y
LDA $8E
CLC
ADC $92
STA $8E
LDA $8F
ADC $93
STA $8F
RTS
L7283 DA L7289
DA L72CD
DA L72B2
L7289 PLA
TAY
PLA
TAX
INY
BNE L7291
INX
L7291 STY $8C
STX $8D
BIT $AC
BMI L72A4
LDY #$01
LDA ($8C),Y
TAX
DEY
LDA ($8C),Y
JMP L6A3D
L72A4 JSR L6A2C
LDY #$00
STY $AC
STA ($8C),Y
INY
TXA
STA ($8C),Y
RTS
L72B2 PLA
TAY
PLA
TAX
INY
BNE L72BA
INX
L72BA STY $8C
STX $8D
JSR L6A2C
CLC
ADC $8C
PHA
TXA
ADC $8D
TAX
PLA
JMP L6A3D
L72CD PLA
STA $8C
CLC
ADC #$02
TAY
PLA
STA $8D
ADC #$00
PHA
TYA
PHA
LDY #$02
LDA ($8C),Y
TAX
DEY
LDA ($8C),Y
JMP L6A3D
L72E7 DA L723A
ASC ""A2""
ASL
LDX $A7
INX
L72EE INX
LDA $0200,X
CMP #$8D
BEQ L7313
CMP #$A0
BNE L730C
LDY $0201,X
CPY #$A2 ; "
BNE L730C
LDY $0202,X
CPY #$A0
BEQ L7312
CPY #$8D
BEQ L7312
L730C JSR L6A8B
JMP L72EE
L7312 INX
L7313 STX $A7
LDA #$00
JMP L6A8B
L731A DA L72E7
ASC "ASSIGN"
L7322 PLA
CLC
ADC #$01
STA $8C
PLA
ADC #$00
STA $8D
JSR L6A2C
STA $94
STX $95
LDY #$FF
L7336 INY
LDA ($8C),Y
STA ($94),Y
BNE L7336
BEQ L7375
L733F DA L731A
ASC "NORMAL"
CLC
L7348 LDA #$00
STA INVFLG
RTS
L734D DA L733F
ASC "INVERSE"
CLC
LDA #$FF
STA INVFLG
RTS
L735C DA L734D
ASC "PRINT"
L7363 PLA
STA $8C
PLA
STA $8D
LDY #$01
L736B LDA ($8C),Y
BEQ L7375
JSR COUT
INY
BNE L736B
L7375 INY
TYA
CLC
ADC $8C
STA $8C
BCC L7380
INC $8D
L7380 JMP ($008C)
L7383 DA L735C
ASC "VARIABLE"
ASL
LDA #$00
STA $9F
JSR L63FB
BIT $A0
BMI L73AF
JSR L6589
STA $96
STX $97
LDA #$02
STA $92
LDA #$00
STA $93
LDA $9F
STA $A1
JMP L7256
L73AF RTS
L73B0 JSR L6378
BCS L73B8
JSR L65C5
L73B8 LDX $A7
L73BA LDA $0200,X
BEQ L73CD
CMP #$A0
BEQ L73CD
CMP #$8D
BEQ L73CD
JSR L6A8B
INX
BNE L73BA
L73CD RTS
L73CE LDY #$00
LDA $8E
PHA
LDA $8F
PHA
LDA L6FC9
JSR L6A8B
LDA L6FC9+1
JSR L6A8B
PLA
STA L6FC9+1
PLA
STA L6FC9
RTS
L73EB DA L7383
ASC "BELL"
CLC
L73F2 LDA $CA
PHA
LDA #$FF
STA $CA
LDA #$40
JSR L7407
LDA #$50
JSR L7407
PLA
STA $CA
RTS
L7407 PHA
LDA #$10
STA $92
PLA
JMP L6009
L7410 DA L73EB
ASC "VOICE"
JSR L6A2C
STA $CA
RTS
L741D DA L7410
ASC "NOTE"
JSR L6A2C
STA $92
JSR L6A2C
BEQ L7434
LDX $92
BEQ L7434
JMP L6009
L7434 RTS
L7435 DA L741D
ASC "PLOTTER"
JSR L6A2C
STA L754E
JSR L6A2C
STA L754A
STX L754B
JSR L6A2C
STA L7548
STX L7549
JSR L6A2C
STA L754C
LDA L754E
BNE L7465
STA L754D
RTS
L7465 LDA #$FF
STA L754D
JSR L753C
JSR L7529
LDA #$C4
JSR COUT
LDA #$C6
JSR COUT
JSR L751F
LDA #$00
STA $80
STA $82
BEQ L748F
L7485 JSR L6A2C
STA $82
JSR L6A2C
STA $80
L748F LDA #$00
DB $2C
L7492 LDA #$FF
STA L754F
LDA L6F6B
PHA
LDA #$0A
STA L6F6B
JSR L753C
JSR L750B
JSR L7529
LDA #$D0 ; P
JSR COUT
LDA #$C1 ; A
JSR COUT
LDX #$00
JSR L74E6
JSR L7BF3
LDA #$AC ; ,
JSR COUT
LDX #$02
JSR L74E6
LDA #$CC
SEC
SBC $96
PHA
LDA #$1F
SBC $97
TAX
PLA
JSR L7BF3
JSR L751F
PLA
STA L6F6B
LDA $80
STA $84
LDA $82
STA $86
JMP L6427
L74E6 LDA $80,X
STA $96
LDA L754E
STA $94
LDY #$00
STY $97
STY $95
JSR L69BC
LDA $96
CLC
ADC L7548,X
STA $96
PHA
LDA $97
ADC L7549,X
STA $97
TAX
PLA
RTS
L750B JSR L7529
LDA #$D0 ; P
JSR COUT
LDA #$C4 ; D
BIT L754F
BMI L751C
LDA #$D5 ; U
L751C JSR COUT
L751F LDA #$BB ; ;
JSR COUT
LDA #$8D
JMP COUT
L7529 LDY #$00
L752B LDA L7537,Y
BEQ L7536
JSR COUT
INY
BNE L752B
L7536 RTS
L7537 ASC "WT%"9A00
L753C LDA L754C
ORA #>LC000
STA CSWH
LDA #<LC000
STA CSWL
RTS
L7548 DB $00
L7549 DB $00
L754A DB $00
L754B DB $00
L754C DB $00
L754D DB $00
L754E DB $00
L754F DB $00
L7550 DA L7435
ASC "OFF"
CLC
LDY $B3
LDA #$01
STA $1900,Y
RTS
L755E DA L7550
ASC "XROT"
CLC
LDA #$01
JMP L760D
L756A DA L755E
ASC "YROT"
CLC
LDA #$02
JMP L760D
L7576 DA L756A
ASC "ZROT"
CLC
LDA #$03
JMP L760D
L7582 DA L7576
ASC "XTRAN"
CLC
LDA #$04
JMP L760D
L758F DA L7582
ASC "YTRAN"
CLC
LDA #$05
BNE L760D
L759B DA L758F
ASC "ZTRAN"
CLC
LDA #$06
BNE L760D
L75A7 DA L759B
ASC "XPOS"
CLC
LDA #$07
BNE L760D
L75B2 DA L75A7
ASC "YPOS"
CLC
LDA #$08
BNE L760D
L75BD DA L75B2
ASC "SCALX"
CLC
LDA #$09
BNE L760D
L75C9 DA L75BD
ASC "SCALY"
CLC
LDA #$0A
BNE L760D
L75D5 DA L75C9
ASC "SCALZ"
CLC
LDA #$0B
BNE L760D
L75E1 DA L75D5
ASC "SCALE"
CLC
LDA #$09
ADC $B3
STA $58
JSR L6A2C
LDY $58
LDX #$02
L75F6 STA $1900,Y
INY
DEX
BNE L75F6
JMP L7619
L7600 DA L75E1
ASC "OBJCOLOR"
CLC
LDA #$0C
L760D ADC $B3
STA $58
JSR L6A2C
LDY $58
STA $1900,Y
L7619 LDX $B3
LDA #$FF
STA $1900,X
LDA L7705
BEQ L7628
JMP L6690
L7628 RTS
L7629 DA L7600
ASC "OBJERASE"
CLC
LDY #$00
STY $B3
L7638 TYA
AND #$0F
TAX
LDA L765F,X
STA $1700,Y
STA $1800,Y
STA $1900,Y
INY
BNE L7638
LDY #$2B
L764D STA $0300,Y
DEY
BPL L764D
LDA #$7F
STA $030B
STA $031B
STA $032B
RTS
L765F DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $80
DB $60
DB $10
DB $10
DB $00
DB $03
DB $00
DB $00
DB $00
L766F DA L7629
ASC "OBJADR"
JSR L6A2C
LDY $B3
STA $190D,Y
TXA
STA $190E,Y
JMP L7619
L7686 DA L766F
ASC "OBJECT"
JSR L6A2C
ASL
ASL
ASL
ASL
STA $B3
JMP L7619
L769A DA L7686
ASC "SIN"
JSR L6A2C
AND #$7F
TAY
LDA L68C8,Y
LDX #$00
CPY #$41
BCC L76AF
DEX
L76AF JMP L6A3D
L76B2 DA L769A
ASC "COLOR"
JSR L6A2C
L76BC AND #$07
TAY
LDA L76E4,Y
STA $B1
LDA L76DC,Y
STA $AE
LDA L76EC,Y
LDX #$27
JSR L76D4
LSR
LDX #$26
L76D4 STA $03A8,X
DEX
DEX
BPL L76D4
RTS
L76DC HEX FFFFFF00FFFFFF00
L76E4 HEX 0000000080808080
L76EC HEX 0055AAFF0055AAFF
L76F4 DA L76B2
ASC "AUTODRAW"
JSR L6A2C
STA L7705
RTS
L7705 DB $00
L7706 DA L76F4
ASC "UNDRAW"
CLC
LDY $B3
L7711 LDA $1700,Y
BNE L7717
RTS
L7717 LDA #$00
L7719 STA $1700,Y
JSR L7896
JSR L7735
JMP L7896
L7725 DA L7706
ASC "UNBLK"
JSR L7896
JSR L7735
JSR L7896
L7735 LDA L7F77
STA $58
LDA L7F76
STA $59
LDA CV
STA $B7
L7743 LDA $B7
ASL
ASL
ASL
TAY
LDA $1A00,Y
ADC CH
STA L775F+1
LDA $1B00,Y
ADC $C5
STA L775F+2
LDX #$08
L775B LDY $59
LDA INVFLG
L775F STA $2000,Y
DEY
BPL L775F
LDA L775F+2
CLC
ADC #$04
STA L775F+2
DEX
BNE L775B
INC $B7
DEC $58
BNE L7743
RTS
L7778 DA L7725
ASC "SEQUENCE"
JSR L6A2C
L7785 LDX #$00
LDY #$18
CMP #$00
BEQ L7790
DEX
LDY #$17
L7790 STX L77A6
STY L66FF+2
STY L66A1+2
STY L7711+2
STY L7719+2
STY L6704+2
STY L66F6+2
RTS
L77A6 DB $FF
L77A7 DA L7778
ASC "DRAW"
JMP L6690
L77B0 DA L77A7
ASC "EMPTY"
JSR L672B
JSR L77CA
LDA $BF
LDX $C3
JMP L79BF
L77C4 DA L77B0
ASC "FILL"
L77CA JSR L6A2C
STA $82
JSR L6A2C
STA $80
LDA #$FF
STA $C0
L77D8 LDX #$E6 ; INC ZP
LDA $84
STA $92
CMP $80
BCC L77E4
LDX #$C6 ; DEC ZP
L77E4 STX L781A
LDX #$E6 ; INC ZP
LDA $86
CMP $82
BCC L77F1
LDX #$C6 ; DEC ZP
L77F1 STX L7822
L77F4 LDA $92
STA $84
LDX $86
LDA $1A00,X
STA $54
STA $56
LDA $1B00,X
ORA #$20
STA $55
EOR #$60
STA $57
L780C LDA $C3
AND $AE
BPL L7817
LDA $84
LSR
BCS L781A
L7817 JSR L782B
L781A INC $84
LDA $84
CMP $80
BNE L780C
L7822 INC $86
LDA $86
CMP $82
BNE L77F4
RTS
L782B CLC
LDX $84
LDY $1C00,X
LDA $1D00,X
BIT $AE
BPL L783C
ASL
ORA $1D00,X
L783C AND $03A8,Y
BIT $C0
BPL L784A
L7843 NOP
L7844 NOP
L7845 ORA ($54),Y
JMP L784E
L784A EOR #$FF
AND ($54),Y
L784E AND #$7F
ORA $B1
STA ($54),Y
STA ($56),Y
BCC L785E
CLC
INY
LDA #$01
BNE L783C
L785E RTS
L785F DA L77C4
ASC "ERASE"
CLC
L7867 LDA #>L2000
STA L7872+2
LDX #$40
LDA INVFLG
LDY #$00
L7872 STA L6000,Y
INY
BNE L7872
INC L7872+2
DEX
BNE L7872
JSR HOME
JMP L6D2D
L7884 DA L785F
ASC "SCREEN"
JSR L6A2C
L788F JSR L789A
LDA $C054,X
RTS
L7896 LDA $C6
EOR #$01
L789A AND #$01
STA $C6
TAX
LDA L78A5,X
STA $C5
RTS
L78A5 HEX 2040
L78A7 DA L7884
ASC "UNLINE"
CLC
LDA #$FF
BNE L78BD
L78B4 DA L78A7
ASC "LINE"
CLC
LDA #$00
L78BD PHA
JSR L6A2C
STA $82
JSR L6A2C
STA $80
PLA
BIT L754D
BPL L78D1
JMP L7492
L78D1 LDX $BF
CPX #$51
BEQ L78E8
EOR INVFLG
BPL L78E8
JSR L672B
JSR L78E8
LDA $BF
LDX $C3
JMP L79BF
L78E8 JSR L7896
LDA $86
PHA
LDA $84
PHA
JSR L78FD
PLA
STA $84
PLA
STA $86
JSR L7896
L78FD LDY #$E6 ; INC ZP
SEC
LDA $82
SBC $86
BCS L790C
EOR #$FF
ADC #$01
LDY #$C6 ; DEC ZP
L790C STA $8A
LDX #$E8 ; INX
SEC
LDA $80
SBC $84
BCS L791D
EOR #$FF
ADC #$01
LDX #$CA ; DEX
L791D STA $88
CMP $8A
BCC L796E
CMP #$00
BNE L7928
RTS
L7928 STY L7943
STX L7955
JSR L7A56
LDX $84
STX $AA
LDA $88
LSR
L7938 SEC
SBC $8A
STA $A9
BCS L7955
ADC $88
STA $A9
L7943 INC $86
LDY $86
LDA $1A00,Y
STA $54
LDA $1B00,Y
ORA $C5
STA $55
STX $AA
L7955 INX
LDA $AE
AND $C3
BPL L7962
TXA
EOR $AA
ROR
BCC L7965
L7962 JSR L7A6A
L7965 LDA $A9
CPX $80
BNE L7938
STX $84
RTS
L796E STY L7985
STX L7984
LDX $84
LDA $8A
LSR
L7979 SEC
SBC $88
STA $A9
BCS L7985
ADC $8A
STA $A9
L7984 DEX
L7985 INC $86
LDY $86
LDA $1A00,Y
STA $54
LDA $1B00,Y
ORA $C5
STA $55
JSR L7A6A
LDA $A9
LDY $82
CPY $86
BNE L7979
STX $84
RTS
L79A3 DA L78B4
ASC "EXMODE"
CLC
LDA #$51
LDX #$FF
BNE L79BF
L79B2 DA L79A3
ASC "ORMODE"
CLC
L79BB LDA #$11
LDX #$00
L79BF STX $C3
STA $BF
STA L7A7E
STA L7845
LDA #$EA ; NOP
STA L7A7C
STA L7A7D
STA L7843
STA L7844
RTS
L79D8 DA L79B2
ASC "GPEEK"
JSR L7A48
LDX $84
LDY $1C00,X
LDA $1D00,X
AND ($54),Y
LDX #$00
JMP L6A3D
L79F1 DA L79D8
ASC "UNPLOT"
CLC
LDA #$FF
BNE L7A07
L79FE DA L79F1
ASC "PLOT"
CLC
LDA #$00
L7A07 BIT L754D
L7A0A BPL L7A0F
JMP L7485
L7A0F PHA
JSR L6A2C
STA $86
STA $82
JSR L6A2C
STA $84
STA $80
PLA
LDX $BF
CPX #$51
BEQ L7A36
EOR INVFLG
BPL L7A36
JSR L672B
JSR L7A36
LDA $BF
LDX $C3
JMP L79BF
L7A36 JSR L7896
JSR L7A65
JSR L7896
JMP L7A65
L7A42 DA L79FE
ASC "POSN"
L7A48 JSR L6A2C
STA $82
STA $86
JSR L6A2C
STA $80
STA $84
L7A56 LDX $86
LDA $1A00,X
STA $54
LDA $1B00,X
ORA $C5
STA $55
RTS
L7A65 JSR L7A56
LDX $84
L7A6A CLC
LDY $1C00,X
LDA $1D00,X
BIT $AE
BPL L7A79
ASL
ORA $1D00,X
L7A79 AND $03A8,Y
L7A7C NOP
L7A7D NOP
L7A7E ORA ($54),Y
AND #$7F
ORA $B1
STA ($54),Y
BCC L7A8E
CLC
INY
LDA #$01
BNE L7A79
L7A8E RTS
L7A8F DA L7A42
ASC "WINDOW"
JSR L6A2C
STA WNDBTM
JSR L6A2C
STA WNDTOP
STA CV
JSR L6A2C
STA WNDWDTH
JSR L6A2C
STA WNDLFT
JMP L6CC3
L7AB0 DA L7A8F
ASC "TEXT"
CLC
LDA TXTSET
LDA TXTPAGE1
LDA #$00
STA L7AC8
JSR L6421
JMP L7FB0
L7AC8 DB $FF
L7AC9 DA L7AB0
ASC "GR"
CLC
L7ACE LDA HIRES
LDA MIXCLR
LDA TXTCLR
LDA #$FF
STA L7AC8
JMP L6421
L7ADF CLC
LDX #$00
L7AE2 JSR L7B0A
JSR L7AEC
INX
BNE L7AE2
RTS
L7AEC LDY #$FF
TXA
SEC
L7AF0 INY
SBC #$07
BCS L7AF0
PHA
TYA
STA $1C00,X
PLA
TAY
LDA L7B03-$F9,Y ; or $7A0A+$F9 because 7 above
STA $1D00,X
RTS
L7B03 HEX 010204081020C0
L7B0A TXA
CMP #$C0
BCC L7B11
SBC #$C0
L7B11 TAY
AND #$C0
STA $1A00,X
LSR
LSR
ORA $1A00,X
STA $1A00,X
TYA
LSR
LSR
LSR
LSR
AND #$03
STA $1B00,X
ROR $1A00,X
TYA
AND #$07
ASL
ASL
ORA $1B00,X
STA $1B00,X
RTS
L7B38 DA L7AC9
ASC "FORGET"
ASL
JSR L63FB
BIT $A0
BMI L7B64
JSR L6378
BCS L7B64
LDA $9A
STA L7B65+1
LDA $9B
STA L7B67+1
LDX #$00
L7B59 LDA L7B65,X
JSR L6A8B
INX
CPX #$0D
BNE L7B59
L7B64 RTS
L7B65 LDA #<L82CB
L7B67 LDX #>L82CB
STA L6FC9
STX L6FC9+1
JSR L636F
L7B72 DA L7B38
ASC "LIST"
CLC
LDA #$00
BEQ L7B87
L7B7D DA L7B72
ASC "$LIST"
CLC
LDA #$FF
L7B87 STA $9F
LDA L6FC9
STA $8C
LDA L6FC9+1
STA $8D
L7B93 LDA #$14
STA $BA
L7B97 LDY #$00
LDA ($8C),Y
TAX
INY
LDA ($8C),Y
BEQ L7BDC
STA $8D
TXA
STA $8C
LDY #$02
LDA #$8D
JSR COUT
BIT $9F
BPL L7BC3
LDA #$A4 ; $
JSR COUT
LDA $8D
JSR PRBYTE
LDA $8C
JSR PRBYTE
JSR L7F2C
L7BC3 LDA ($8C),Y
BPL L7BCD
JSR COUT
INY
BNE L7BC3
L7BCD DEC $BA
BNE L7B97
LDY CH
LDA ($28),Y
JSR L6AD5
CMP #$83
BNE L7B93
L7BDC RTS
L7BDD DA L7B7D
ASC "ABS."
JSR L6A2C
STX $95
STA $94
JMP L7C06
L7BED DA L7BDD
ASC "."
JSR L6A2C
L7BF3 PHA
TXA
PHA
BPL L7BFD
LDA #$AD ; -
JSR COUT
L7BFD PLA
STA $95
PLA
STA $94
JSR L6988
L7C06 LDX #$00
L7C08 JSR L7C28
CLC
ADC #$B0
CMP #$BA
BCC L7C14
ADC #$06
L7C14 STA $02F0,X
INX
LDA $94
ORA $95
BNE L7C08
L7C1E LDA $02EF,X
JSR COUT
DEX
BNE L7C1E
RTS
L7C28 LDY #$10
LDA #$00
L7C2C ASL $94
ROL $95
ROL
CMP L6F6B
BCC L7C3B
SBC L6F6B
INC $94
L7C3B DEY
BNE L7C2C
RTS
L7C3F DA L7BED
ASC "STACK"
CLC
LDA L7C50
EOR #$FF
STA L7C50
RTS
L7C50 DB $00
L7C51 DA L7C3F
ASC "+"
JSR L7EFA
LDY $9C
CLC
LDA $1DFE,Y
ADC $1E00,Y
STA $1DFE,Y
LDA $1DFF,Y
ADC $1E01,Y
STA $1DFF,Y
RTS
L7C6D DA L7C51
ASC "-"
JSR L7EFA
LDY $9C
SEC
LDA $1DFE,Y
SBC $1E00,Y
STA $1DFE,Y
LDA $1DFF,Y
SBC $1E01,Y
STA $1DFF,Y
RTS
L7C89 DA L7C6D
ASC "*"
JSR L7C9F
JSR L6988
JSR L69BC
JSR L69AA
LDX $97
LDA $96
JMP L6A3D
L7C9F LDA $9C
SEC
SBC #$04
STA $9C
TAY
LDA $1E00,Y
STA $96
LDA $1E01,Y
STA $97
LDA $1E02,Y
STA $94
LDA $1E03,Y
STA $95
RTS
L7CBC DA L7C89
ASC "/"
JSR L7CC5
JMP L6A3D
L7CC5 JSR L7C9F
JSR L6988
JSR L69E7
JSR L69AA
LDX $97
LDA $96
RTS
L7CD6 DA L7CBC
ASC "MOD"
JSR L7CC5
LDX $99
LDA $98
JMP L6A3D
L7CE5 DA L7CD6
ASC "BYE"
JSR INIT
JSR SETVID
JSR SETKBD
JSR $03EA
LDA #<MON
STA SOFTEV
LDA #>MON
STA SOFTEV+1
STA INVFLG
EOR #$A5
STA PWREDUP
JMP MON
L7D0A DA L7CE5
ASC "PICK"
JSR L6A2C
SEC
SBC #$01
ASL
STA $94
LDA $9C
STA $96
SEC
SBC $94
STA $9C
JSR L6A2C
LDY $96
STY $9C
JMP L6A3D
L7D2C DA L7D0A
ASC "OVER"
CLC
LDY $9C
LDA $1DFC,Y
LDX $1DFD,Y
JMP L6A3D
L7D3E DA L7D2C
ASC "DUP"
CLC
LDY $9C
LDA $1DFE,Y
STA $1E00,Y
LDA $1DFF,Y
STA $1E01,Y
INY
INY
STY $9C
RTS
L7D57 DA L7D3E
ASC "IF"
ASL
L7D5C LDA #<L7DE1
LDX #>L7DE1
JSR L6A80
LDA #$4C
JSR L6A8B
LDA $8E
LDX $8F
JSR L6A0D
L7D6F LDA #$79
JSR L6A8B
LDA #$7D
JMP L6A8B
LDY #$12
JMP L610D
L7D7E DA L7D57
ASC "ELSE"
ASL
LDA #$4C
JSR L6A8B
LDA $8E
PHA
LDA $8F
PHA
JSR L7D6F
JSR L6A1B
LDY #$00
LDA $8E
STA ($8C),Y
INY
LDA $8F
STA ($8C),Y
PLA
TAX
PLA
JMP L6A0D
L7DA7 DA L7D7E
ASC "THEN"
ASL
JSR L6A1B
LDY #$00
LDA $8E
STA ($8C),Y
INY
LDA $8F
STA ($8C),Y
RTS
L7DBD DA L7DA7
ASC "BEGIN"
ASL
L7DC5 LDA $8E
LDX $8F
JMP L6A0D
L7DCC DA L7DBD
ASC "UNTIL"
ASL
LDA #<L7DE1
LDX #>L7DE1
JSR L6A80
L7DDB JSR L6A1B
JMP L6A72
L7DE1 JSR L7EFA
LDA $1E01,Y
ORA $1E00,Y
BEQ L7DFB
L7DEC TSX
LDA $0101,X
CLC
ADC #$03
STA $0101,X
BCC L7DFB
INC $0102,X
L7DFB RTS
L7DFC DA L7DCC
ASC "WHILE"
ASL
JMP L7D5C
L7E07 DA L7DFC
ASC "REPEAT"
ASL
JSR L6A1B
LDY #$00
LDA $8E
CLC
ADC #$03
STA ($8C),Y
INY
LDA $8F
ADC #$00
STA ($8C),Y
JSR L6A1B
JMP L6A72
L7E29 DA L7E07
ASC "DO"
ASL
LDA #<L7E38
LDX #>L7E38
JSR L6A80
JMP L7DC5
L7E38 JSR L7F08
JSR L7EAE
JMP L7EAE
L7E41 DA L7E29
ASC "LOOP"
ASL
LDA #<L7E52
LDX #>L7E52
JSR L6A80
JMP L7DDB
L7E52 LDA #$01
LDX #$00
BEQ L7E5B
L7E58 JSR L6A2C
L7E5B STX $92
LDY $9D
CLC
ADC $1EFE,Y
STA $1EFE,Y
TXA
ADC $1EFF,Y
STA $1EFF,Y
SEC
LDA $1EFE,Y
SBC $1EFC,Y
STA $88
LDA $1EFF,Y
SBC $1EFD,Y
ORA $88
BEQ L7E8C
ROR
EOR $1EFF,Y
EOR $1EFD,Y
EOR $92
BMI L7E8C
RTS
L7E8C LDA $9D
SEC
SBC #$04
STA $9D
JMP L7DEC
L7E96 DA L7E41
ASC "+LOOP"
ASL
LDA #<L7E58
LDX #>L7E58
JSR L6A80
JMP L7DDB
L7EA8 DA L7E96
ASC "PUSH"
L7EAE JSR L6A2C
JMP L6A60
L7EB4 DA L7EA8
ASC "PULL"
JSR L6A4F
JMP L6A3D
L7EC0 DA L7EB4
ASC "K"
CLC
LDA $9D
SBC #$07
JMP L7EDC
L7ECB DA L7EC0
ASC "J"
CLC
LDA $9D
SBC #$03
JMP L7EDC
L7ED6 DA L7ECB
ASC "I"
CLC
LDA $9D
L7EDC TAY
LDX $1EFF,Y
LDA $1EFE,Y
JMP L6A3D
L7EE6 DA L7ED6
ASC "POP"
CLC
LDY $9D
DEY
DEY
STY $9D
RTS
L7EF3 DA L7EE6
ASC "DROP"
CLC
L7EFA LDY $9C
DEY
DEY
STY $9C
RTS
L7F01 DA L7EF3
ASC "SWAP"
CLC
L7F08 LDY $9C
LDX $1DFD,Y
LDA $1DFF,Y
STA $1DFD,Y
TXA
STA $1DFF,Y
LDX $1DFC,Y
LDA $1DFE,Y
STA $1DFC,Y
TXA
STA $1DFE,Y
RTS
L7F25 DA L7F01
ASC "SPCE"
CLC
L7F2C LDA #$A0
JMP COUT
L7F31 DA L7F25
ASC "CR"
L7F35 CLC
LDA #$8D
JMP COUT
L7F3B DA L7F31
ASC "CHRSET"
JSR L7289
DA L0800
L7F48 DA L7F3B
ASC "CHRADR"
JSR L6A2C
L7F53 CPX #$00
BNE L7F5B
LDA #<L0800
LDX #>L0800
L7F5B STA $C1
STX $C2
RTS
L7F60 DA L7F48
ASC "BLKSIZE"
JSR L6A2C
STA L7F77
JSR L6A2C
STA L7F76
RTS
L7F76 DB $01
L7F77 DB $01
L7F78 DA L7F60
ASC "CHRSIZE"
JSR L6A2C
PHA
STA L7FBC
JSR L7FB0
PLA
BEQ L7FAF
LDA #$24
JSR L7F9D
STA WNDWDTH
LDA #$18
JSR L7F9D
STA WNDBTM
RTS
L7F9D STA $96
LDA L7FBC
STA $94
LDA #$00
STA $97
STA $95
JSR L69E7
LDA $96
L7FAF RTS
L7FB0 JSR $FB3C
LDA #$00
STA CV
STA CH
JMP L6CC3
L7FBC DB $00
L7FBD DA L7F78
ASC "PUTBLK"
JSR L6A2C
CLC
ADC #$A0
STA L8004
LDA CV
PHA
LDA CH
STA L8005
PHA
LDA L7F77
STA L8006
L7FDD LDX L7F76
LDA L8005
STA CH
L7FE5 LDA L8004
JSR L6C0C
INC L8004
DEX
BNE L7FE5
INC CV
JSR L6CC3
DEC L8006
BNE L7FDD
PLA
STA CH
PLA
STA CV
JMP L6CC3
L8004 DB $00
L8005 DB $00
L8006 DB $00
L8007 DA L7FBD
ASC "PUTC"
JSR L6A2C
JMP COUT
L8013 DA L8007
ASC "CLRKEY"
CLC
STA KBDSTROBE
RTS
L8020 DA L8013
ASC "GETKEY"
CLC
LDA KBD
LDX #$00
JMP L6A3D
L8031 DA L8020
ASC "GETC"
L8037 JSR RDKEY
LDX #$00
JMP L6A3D
L803F DA L8031
ASC "HTAB"
JSR L6A2C
STA CH
RTS
L804B DA L803F
ASC "VTAB"
JSR L6A2C
STA CV
JMP L6CC3
L8059 DA L804B
ASC "PEEK"
JSR L6A2C
STA L8068+1
STX L8068+2
L8068 LDA L8068
LDX #$00
JMP L6A3D
L8070 DA L8059
ASC "'"
PLA
CLC
ADC #$03
TAY
PLA
ADC #$00
TAX
PHA
TYA
PHA
BNE L8082
DEX
L8082 DEY
STY $8C
STX $8D
LDY #$01
LDA ($8C),Y
TAX
DEY
LDA ($8C),Y
JMP L6A3D
L8092 DA L8070
ASC ","
ASL
JSR L6589
JMP L6A8B
L809C DA L8092
ASC "PEEKW"
JSR L6A2C
STA $8C
STX $8D
LDY #$01
LDA ($8C),Y
TAX
DEY
LDA ($8C),Y
JMP L6A3D
L80B5 DA L809C
ASC "AND"
CLC
LDX #$02
LDY $9C
L80BF LDA $1DFD,Y
AND $1DFF,Y
STA $1DFD,Y
DEY
DEX
BNE L80BF
STY $9C
RTS
L80CF DA L80B5
ASC "OR"
CLC
LDX #$02
LDY $9C
L80D8 LDA $1DFD,Y
ORA $1DFF,Y
STA $1DFD,Y
DEY
DEX
BNE L80D8
STY $9C
RTS
L80E8 DA L80CF
ASC "CLEOL"
JMP L6D6E
L80F2 DA L80E8
ASC "CLEOP"
JMP L6D4C
L80FC DA L80F2
ASC "HOME"
CLC
LDA #$8C
JMP COUT
L8108 DA L80FC
ASC "<="
JSR L811E
BCC L8119
ORA $9E
BEQ L8119
L8115 TXA
JMP L6A3D
L8119 LDA #$01
JMP L6A3D
L811E JSR L6A2C
JSR L6A2C
LDY $9C
LDA $1E01,Y
EOR $1E03,Y
AND #$80
STA $88
SEC
LDA $1E00,Y
SBC $1E02,Y
STA $9E
LDA $1E01,Y
SBC $1E03,Y
ROR
EOR $88
ROL
LDX #$00
RTS
L8146 DA L8108
ASC ">="
JSR L811E
BCS L8152
JMP L8115
L8152 JMP L8119
L8155 DA L8146
ASC "<"
JSR L811E
BCC L8160
JMP L8115
L8160 JMP L8119
L8163 DA L8155
ASC ">"
JSR L811E
ORA $9E
BEQ L816F
BCS L8172
L816F JMP L8115
L8172 JMP L8119
L8175 DA L8163
ASC "="
L8178 JSR L811E
ORA $9E
BNE L8182
JMP L8119
L8182 JMP L8115
L8185 DA L8175
ASC "<>"
JSR L811E
ORA $9E
BEQ L8193
JMP L8119
L8193 JMP L8115
L8196 DA L8185
ASC "POKE"
CLC
JSR L6A2C
STA L81A9+1
STX L81A9+2
JSR L6A2C
L81A9 STA L6908+$3F
RTS
L81AD DA L8196
ASC "->"
CLC
DEC $AC
RTS
L81B5 DA L81AD
ASC "POKEW"
CLC
JSR L6A2C
STA $8C
STX $8D
JSR L6A2C
LDY #$00
STA ($8C),Y
INY
TXA
STA ($8C),Y
RTS
L81D0 DA L81B5
ASC "MAX"
JSR L811E
ROR
EOR #$80
ROL
JMP L81E7
L81DF DA L81D0
ASC "MIN"
JSR L811E
L81E7 BCC L81EB
INY
INY
L81EB LDA $1E00,Y
LDX $1E01,Y
JMP L6A3D
L81F4 DA L81DF
ASC "RNDB"
JSR L820E
LDX #$00
JMP L6A3D
L8202 DA L81F4
ASC "RND"
CLC
JSR L820E
JMP L6A3D
L820E LDA L8223
PHA
CLC
ADC L8224
STA L8223
TAX
PLA
ADC L8222
STA L8222
RTS
L8222 DB $E9
L8223 DB $0F
L8224 DB $DB
L8225 DA L8202
ASC "AREG"
JSR L7289
L822E DA $0000
L8230 DA L8225
ASC "XREG"
JSR L7289
L8239 DA $0000
L823B DA L8230
ASC "YREG"
JSR L7289
L8244 DA $0000
L8246 DA L823B
ASC "PREG"
JSR L7289
L824F DA $0000
L8251 DA L8246
ASC "CALL"
JSR L6A2C
STA $8C
STX $8D
LDA L824F
PHA
LDA L822E
LDX L8239
LDY L8244
PLP
JSR L827E
PHP
STA L822E
STX L8239
STY L8244
PLA
STA L824F
RTS
L827E JMP ($008C)
L8281 DA L8251
ASC "SGN"
JSR L6A2C
CPX #$00
BMI L829D
STX $94
ORA $94
BNE L8296
JMP L6A3D
L8296 LDA #$01
LDX #$00
JMP L6A3D
L829D LDA #$FF
TAX
JMP L6A3D
L82A3 DA L8281
ASC "ABS"
CLC
LDY $9C
LDA $1DFF,Y
BMI L82B7
RTS
L82B1 DA L82A3
ASC "CHS"
CLC
L82B7 LDY $9C
LDA #$00
SEC
SBC $1DFE,Y
STA $1DFE,Y
LDA #$00
SBC $1DFF,Y
STA $1DFF,Y
RTS
L82CB DA L82B1
ASC "IT"
JSR L7232
JSR L7322
ASC "FORGET IT ABORT"00
JSR L72CD
DA $0000
JSR L7217
JSR L7F35
JSR L7363
ASC "Demonstration (Y/N) : "00
JSR L8037
JSR L72CD
DA $00D9
JSR L8178
JSR L7DE1
JMP L8328
L831B JSR L71A4
ASC "HEADER"00
JMP L832E
L8328 JSR L7232
JSR L717C
L832E RTS
L832F DA L82CB
DB $00
DA L6FBB
DB $00
DS \
*----------------------------