There are two sections: BASIC and KERNAL.


Commodore 64 BASIC ROM Disassembly

Version 1.0 (June 1994)



A000   .WD $E394   ; RESET


A002   .WD $E37B   ; Warm Start



; CBMBASIC

A004   .BY $43,$42,$4D,$42,$41,$53,$49,$43


; address table for commands
; (address minus 1 used)

A00C   .WD $A830   ; end
A00E   .WD $A741   ; for
A010   .WD $AD1D   ; next
A012   .WD $A8F7   ; data
A014   .WD $ABA4   ; input#
A016   .WD $ABBE   ; input
A018   .WD $B080   ; dim
A01A   .WD $AC05   ; read
A01C   .WD $A9A4   ; let
A01E   .WD $A89F   ; goto
A020   .WD $A870   ; run
A022   .WD $A927   ; if
A024   .WD $A81C   ; restore
A026   .WD $A882   ; gosub
A028   .WD $A8D1   ; return
A02A   .WD $A93A   ; rem
A02C   .WD $A82E   ; stop
A02E   .WD $A94A   ; on
A030   .WD $B82C   ; wait
A032   .WD $E167   ; load
A034   .WD $E155   ; save
A036   .WD $E164   ; verify
A038   .WD $B3B2   ; def
A03A   .WD $B823   ; poke
A03C   .WD $AA7F   ; print#
A03E   .WD $AA9F   ; print
A040   .WD $A856   ; cont
A042   .WD $A69B   ; list
A044   .WD $A65D   ; clr
A046   .WD $AA85   ; cmd
A048   .WD $E129   ; sys
A04A   .WD $E1BD   ; open
A04C   .WD $E1C6   ; close
A04E   .WD $AB7A   ; get
A050   .WD $A641   ; new


; address table for functions

A052   .WD $BC39   ; sgn
A054   .WD $BCCC   ; int
A056   .WD $BC58   ; abs
A058   .WD $0310   ; usr
A05A   .WD $B37D   ; fre
A05C   .WD $B39E   ; pos
A05E   .WD $BF71   ; sqr
A060   .WD $E097   ; rnd
A062   .WD $B9EA   ; log
A064   .WD $BFED   ; exp
A066   .WD $E264   ; cos
A068   .WD $E26B   ; sin
A06A   .WD $E2B4   ; tan
A06C   .WD $E30E   ; atn
A06E   .WD $B80D   ; peek
A070   .WD $B77C   ; len
A072   .WD $B465   ; str$
A074   .WD $B7AD   ; val
A076   .WD $B78B   ; asc
A078   .WD $B6EC   ; chr$
A07A   .WD $B700   ; left$
A07C   .WD $B72C   ; right$
A07E   .WD $B737   ; mid$


; priority and address table
; for operators
; (address minus 1 used)

A080   .BY $79
A081   .WD $B869   ; plus
A083   .BY $79
A084   .WD $B852   ; minus
A086   .BY $7B
A087   .WD $BA2A   ; multiply
A089   .BY $7B
A08A   .WD $BB11   ; divide
A08C   .BY $7F
A08D   .WD $BF7A   ; power
A08F   .BY $50
A090   .WD $AFE8   ; AND
A092   .BY $46
A093   .WD $AFE5   ; OR
A095   .BY $7D
A096   .WD $BFB3   ; negative
A098   .BY $5A
A099   .WD $AED3   ; NOT
A09B   .BY $64
A09C   .WD $B015   ; greater / equal / less


; table of commands
; each ended with a +$80

A09E   .BY $45,$4E,$C4   ; end
A0A1   .BY $46,$4F,$D2   ; for
A0A4   .BY $4E,$45,$58,$D4   ; next
A0A8   .BY $44,$41,$54,$C1   ; data
A0AC   .BY $49,$4E,$50,$55,$54,$A3   ; input#
A0B2   .BY $49,$4E,$50,$55,$D4   ; input
A0B7   .BY $44,$49,$CD   ; dim
A0BA   .BY $52,$45,$41,$C4   ; read
A0BE   .BY $4C,$45,$D4   ; let
A0C1   .BY $47,$4F,$54,$CF   ; goto
A0C5   .BY $52,$55,$CE   ; run
A0C8   .BY $49,$C6   ; if
A0CA   .BY $52,$45,$53,$54,$4F,$52,$C5   ; restore
A0D1   .BY $47,$4F,$53,$55,$C2   ; gosub
A0D6   .BY $52,$45,$54,$55,$52,$CE   ; return
A0DC   .BY $52,$45,$CD   ; rem
A0DF   .BY $53,$54,$4F,$D0   ; stop
A0E3   .BY $4F,$CE   ; on
A0E5   .BY $57,$41,$49,$D4   ; wait
A0E9   .BY $4C,$4F,$41,$C4   ; load
A0ED   .BY $53,$41,$56,$C5   ; save
A0F1   .BY $56,$45,$52,$49,$46,$D9   ; verify
A0F7   .BY $44,$45,$C6   ; def
A0FA   .BY $50,$4F,$4B,$C5   ; poke
A0FE   .BY $50,$52,$49,$4E,$54,$A3   ; print#
A104   .BY $50,$52,$49,$4E,$D4   ; print
A109   .BY $43,$4F,$4E,$D4   ; cont
A10D   .BY $4C,$49,$53,$D4   ; list
A111   .BY $43,$4C,$D2   ; clr
A114   .BY $43,$4D,$C4   ; cmd
A117   .BY $53,$59,$D3   ; sys
A11A   .BY $4F,$50,$45,$CE   ; open
A11E   .BY $43,$4C,$4F,$53,$C5   ; close
A123   .BY $47,$45,$D4   ; get
A126   .BY $4E,$45,$D7   ; new


; table of functions
; each ended with a +$80

A129   .BY $54,$41,$42,$A8   ; tab(
A12D   .BY $54,$CF   ; to
A12F   .BY $46,$CE   ; fn
A131   .BY $53,$50,$43,$A8   ; spc(
A135   .BY $54,$48,$45,$CE   ; then
A139   .BY $4E,$4F,$D4   ; not
A13C   .BY $53,$54,$45,$D0   ; step
A140   .BY $AB   ; plus
A141   .BY $AD   ; minus
A142   .BY $AA   ; multiply
A143   .BY $AF   ; divide
A144   .BY $DE   ; power
A145   .BY $41,$4E,$C4   ; and
A148   .BY $4F,$D2   ; on
A14A   .BY $BE   ; greater
A14B   .BY $BD   ; equal
A14C   .BY $BC   ; less
A14D   .BY $53,$47,$CE   ; sgn
A150   .BY $49,$4E,$D4   ; int
A153   .BY $41,$42,$D3   ; abs
A156   .BY $55,$53,$D2   ; usr
A159   .BY $46,$52,$C5   ; fre
A15C   .BY $50,$4F,$D3   ; pos
A15F   .BY $53,$51,$D2   ; sqr
A162   .BY $52,$4E,$C4   ; rnd
A165   .BY $4C,$4F,$C7   ; log
A168   .BY $45,$58,$D0   ; exp
A16B   .BY $43,$4F,$D3   ; cos
A16E   .BY $53,$49,$CE   ; sin
A171   .BY $54,$41,$CE   ; tan
A174   .BY $41,$54,$CE   ; atn
A177   .BY $50,$45,$45,$CB   ; peek
A17B   .BY $4C,$45,$CE   ; len
A17E   .BY $53,$54,$52,$A4   ; str$
A182   .BY $56,$41,$CC   ; val
A185   .BY $41,$53,$C3   ; asc
A188   .BY $43,$48,$52,$A4   ; chr$
A18C   .BY $4C,$45,$46,$54,$A4   ; left$
A191   .BY $52,$49,$47,$48,$54,$A4   ; right$
A197   .BY $4D,$49,$44,$A4   ; mid$


; other commands

A19B   .BY $47,$CF   ; go
A19D   .BY $00

; table of errors messages
; each ended with a +$80

; too many files

A19E   .BY $54,$4F,$4F
A1A1   .BY $20,$4D,$41,$4E,$59
A1A6   .BY $20,$46,$49,$4C,$45,$D3

; file open

A1AC   .BY $46,$49,$4C,$45
A1B0   .BY $20,$4F,$50,$45,$CE

; file not open

A1B5   .BY $46,$49,$4C,$45
A1B9   .BY $20,$4E,$4F,$54
A1BD   .BY $20,$4F,$50,$45,$CE

; file not found

A1C2   .BY $46,$49,$4C,$45
A1C6   .BY $20,$4E,$4F,$54
A1CA   .BY $20,$46,$4F,$55,$4E,$C4

; device not present

A1D0   .BY $44,$45,$56,$49,$43,$45
A1D6   .BY $20,$4E,$4F,$54
A1DA   .BY $20,$50,$52,$45,$53,$45,$4E,$D4


; not input file
A1E2   .BY $4E,$4F,$54
A1E5   .BY $20,$49,$4E,$50,$55,$54
A1EB   .BY $20,$46,$49,$4C,$C5

; not output file

A1F0   .BY $4E,$4F,$54
A1F3   .BY $20,$4F,$55,$54,$50,$55,$54
A1FA   .BY $20,$46,$49,$4C,$C5

; missisng file name

A1FF   .BY $4D,$49,$53,$53,$49,$4E,$47
A206   .BY $20,$46,$49,$4C,$45
A20B   .BY $20,$4E,$41,$4D,$C5

; illegal device number

A210   .BY $49,$4C,$4C,$45,$47,$41,$4C
A217   .BY $20,$44,$45,$56,$49,$43,$45
A21E   .BY $20,$4E,$55,$4D,$42,$45,$D2

; next without for

A225   .BY $4E,$45,$58,$54
A229   .BY $20,$57,$49,$54,$48,$4F,$55,$54
A231   .BY $20,$46,$4F,$D2

; syntax

A235   .BY $53,$59,$4E,$54,$41,$D8

; return without gosub

A23B   .BY $52,$45,$54,$55,$52,$4E
A241   .BY $20,$57,$49,$54,$48,$4F,$55,$54
A249   .BY $20,$47,$4F,$53,$55,$C2

; out of data

A24F   .BY $4F,$55,$54
A252   .BY $20,$4F,$46
A255   .BY $20,$44,$41,$54,$C1

; illegal quantity

A25A   .BY $49,$4C,$4C,$45,$47,$41,$4C
A261   .BY $20,$51,$55,$41,$4E,$54,$49,$54,$D9

; overflow

A26A   .BY $4F,$56,$45,$52,$46,$4C,$4F,$D7

; out of memory

A272   .BY $4F,$55,$54
A275   .BY $20,$4F,$46
A278   .BY $20,$4D,$45,$4D,$4F,$52,$D9

; undef'd statement

A27F   .BY $55,$4E,$44,$45,$46,$27,$44
A286   .BY $20,$53,$54,$41,$54,$45,$4D,$45,$4E,$D4

; bad subscript

A290   .BY $42,$41,$44
A293   .BY $20,$53,$55,$42,$53,$43,$52,$49,$50,$D4

; redim'd array

A29D   .BY $52,$45,$44,$49,$4D,$27,$44
A2A4   .BY $20,$41,$52,$52,$41,$D9

; division by zero

A2AA   .BY $44,$49,$56,$49,$53,$49,$4F,$4E
A2B2   .BY $20,$42,$59
A2B5   .BY $20,$5A,$45,$52,$CF

; illegal direct

A2BA   .BY $49,$4C,$4C,$45,$47,$41,$4C
A2C1   .BY $20,$44,$49,$52,$45,$43,$D4

; type mismatch

A2C8   .BY $54,$59,$50,$45
A2CC   .BY $20,$4D,$49,$53,$4D,$41,$54,$43,$C8

; string to long

A2D5   .BY $53,$54,$52,$49,$4E,$47
A2DB   .BY $20,$54,$4F,$4F
A2DF   .BY $20,$4C,$4F,$4E,$C7

; file data

A2E4   .BY $46,$49,$4C,$45
A2E8   .BY $20,$44,$41,$54,$C1

; formula too complex

A2ED   .BY $46,$4F,$52,$4D,$55,$4C,$41
A2F4   .BY $20,$54,$4F,$4F
A2F8   .BY $20,$43,$4F,$4D,$50,$4C,$45,$D8

; can't continue

A300   .BY $43,$41,$4E,$27,$54
A305   .BY $20,$43,$4F,$4E,$54,$49,$4E,$55,$C5

; undef'd function

A30E   .BY $55,$4E,$44,$45,$46,$27,$44
A315   .BY $20,$46,$55,$4E,$43,$54,$49,$4F,$CE

; verify

A31E   .BY $56,$45,$52,$49,$46,$D9

; load

A324   .BY $4C,$4F,$41,$C4


; error message address locations

A328   .WD $A19E   ; 01 too many files
A32A   .WD $A1AC   ; 02 file open
A32C   .WD $A1B5   ; 03 file not open
A32E   .WD $A1C2   ; 04 file not found
A330   .WD $A1D0   ; 05 device not present
A332   .WD $A1E2   ; 06 not input file
A334   .WD $A1F0   ; 07 not output file
A336   .WD $A1FF   ; 08 missing file name
A338   .WD $A210   ; 09 illegal device number
A33A   .WD $A225   ; 0A next without for
A33C   .WD $A235   ; 0B syntax
A33E   .WD $A23B   ; 0C return without gosub
A340   .WD $A24F   ; 0D out of data
A342   .WD $A25A   ; 0E illegal quantity
A344   .WD $A26A   ; 0F overflow
A346   .WD $A272   ; 10 out of memory
A348   .WD $A27F   ; 11 undef'd statment
A34A   .WD $A290   ; 12 bad subscript
A34C   .WD $A29D   ; 13 redim'd array
A34E   .WD $A2AA   ; 14 devision by zero
A350   .WD $A2BA   ; 15 illegal direct
A352   .WD $A2C8   ; 16 type mismatch
A354   .WD $A2D5   ; 17 string too long
A356   .WD $A2E4   ; 18 file data
A358   .WD $A2ED   ; 19 formula too complex
A35A   .WD $A300   ; 1A can't continue
A35C   .WD $A30E   ; 1B undef'd function
A35E   .WD $A31E   ; 1C verify
A360   .WD $A324   ; 1D load
A362   .WD $A383   ; 1E break

; other messages

; ok

A364   .BY $0D,$4F,$4B,$0D
A368   .BY $00

; error

A369   .BY $20,$20,$45,$52,$52,$4F,$52
A370   .BY $00

; in

A371   .BY $20,$49,$4E,$20
A375   .BY $00

; ready.

A376   .BY $0D,$0A,$52,$45,$41,$44,$59,$2E,$0D,$0A
A380   .BY $00

; break

A381   .BY $0D,$0A

A383   .BY $42,$52,$45,$41,$4B

A388   .BY $00

A389   .BY $A0


; search for "for" blocks on stack

A38A   BA         TSX
A38B   E8         INX
A38C   E8         INX
A38D   E8         INX
A38E   E8         INX
A38F   BD 01 01   LDA $0101,X
A392   C9 81      CMP #$81   ; for block code
A394   D0 21      BNE $A3B7
A396   A5 4A      LDA $4A
A398   D0 0A      BNE $A3A4
A39A   BD 02 01   LDA $0102,X
A39D   85 49      STA $49
A39F   BD 03 01   LDA $0103,X
A3A2   85 4A      STA $4A
A3A4   DD 03 01   CMP $0103,X
A3A7   D0 07      BNE $A3B0
A3A9   A5 49      LDA $49
A3AB   DD 02 01   CMP $0102,X
A3AE   F0 07      BEQ $A3B7
A3B0   8A         TXA
A3B1   18         CLC
A3B2   69 12      ADC #$12
A3B4   AA         TAX
A3B5   D0 D8      BNE $A38F
A3B7   60         RTS


; move bytes after check for space

A3B8   20 08 A4   JSR $A408
A3BB   85 31      STA $31
A3BD   84 32      STY $32


; move bytes routine
;  $5F/$60 source start address
;  $5A/$5B source end address
;  $58/$59 destination end address

A3BF   38         SEC
A3C0   A5 5A      LDA $5A
A3C2   E5 5F      SBC $5F
A3C4   85 22      STA $22
A3C6   A8         TAY
A3C7   A5 5B      LDA $5B
A3C9   E5 60      SBC $60
A3CB   AA         TAX
A3CC   E8         INX
A3CD   98         TYA
A3CE   F0 23      BEQ $A3F3
A3D0   A5 5A      LDA $5A
A3D2   38         SEC
A3D3   E5 22      SBC $22
A3D5   85 5A      STA $5A
A3D7   B0 03      BCS $A3DC
A3D9   C6 5B      DEC $5B
A3DB   38         SEC
A3DC   A5 58      LDA $58
A3DE   E5 22      SBC $22
A3E0   85 58      STA $58
A3E2   B0 08      BCS $A3EC
A3E4   C6 59      DEC $59
A3E6   90 04      BCC $A3EC
A3E8   B1 5A      LDA ($5A),Y
A3EA   91 58      STA ($58),Y
A3EC   88         DEY
A3ED   D0 F9      BNE $A3E8
A3EF   B1 5A      LDA ($5A),Y
A3F1   91 58      STA ($58),Y
A3F3   C6 5B      DEC $5B
A3F5   C6 59      DEC $59
A3F7   CA         DEX
A3F8   D0 F2      BNE $A3EC
A3FA   60         RTS


; test for 2 * A bytes free on stack

A3FB   0A         ASL
A3FC   69 3E      ADC #$3E
A3FE   B0 35      BCS $A435
A400   85 22      STA $22
A402   BA         TSX
A403   E4 22      CPX $22
A405   90 2E      BCC $A435
A407   60         RTS


; array area overflow check

A408   C4 34      CPY $34
A40A   90 28      BCC $A434
A40C   D0 04      BNE $A412
A40E   C5 33      CMP $33
A410   90 22      BCC $A434
A412   48         PHA
A413   A2 09      LDX #$09
A415   98         TYA
A416   48         PHA
A417   B5 57      LDA $57,X
A419   CA         DEX
A41A   10 FA      BPL $A416
A41C   20 26 B5   JSR $B526
A41F   A2 F7      LDX #$F7
A421   68         PLA
A422   95 61      STA $61,X
A424   E8         INX
A425   30 FA      BMI $A421
A427   68         PLA
A428   A8         TAY
A429   68         PLA
A42A   C4 34      CPY $34
A42C   90 06      BCC $A434
A42E   D0 05      BNE $A435
A430   C5 33      CMP $33
A432   B0 01      BCS $A435
A434   60         RTS


; out of memory error

A435   A2 10      LDX #$10   ; error number


; handle error messages

A437   6C 00 03   JMP ($0300)   ; normally A43A


; standard error message handler

A43A   8A         TXA
A43B   0A         ASL
A43C   AA         TAX
A43D   BD 26 A3   LDA $A326,X
A440   85 22      STA $22
A442   BD 27 A3   LDA $A327,X
A445   85 23      STA $23
A447   20 CC FF   JSR $FFCC
A44A   A9 00      LDA #$00
A44C   85 13      STA $13
A44E   20 D7 AA   JSR $AAD7
A451   20 45 AB   JSR $AB45
A454   A0 00      LDY #$00
A456   B1 22      LDA ($22),Y
A458   48         PHA
A459   29 7F      AND #$7F
A45B   20 47 AB   JSR $AB47
A45E   C8         INY
A45F   68         PLA
A460   10 F4      BPL $A456
A462   20 7A A6   JSR $A67A
A465   A9 69      LDA #$69   ; low  A369
A467   A0 A3      LDY #$A3   ; high A369

A469   20 1E AB   JSR $AB1E

A46C   A4 3A      LDY $3A
A46E   C8         INY
A46F   F0 03      BEQ $A474
A471   20 C2 BD   JSR $BDC2

A474   A9 76      LDA #$76   ; low A376

A476   A0 A3      LDY #$A3   ; low A376
A478   20 1E AB   JSR $AB1E
A47B   A9 80      LDA #$80
A47D   20 90 FF   JSR $FF90

A480   6C 02 03   JMP ($0302)   ; normally A483



; standard warm start routine

A483   20 60 A5   JSR $A560
A486   86 7A      STX $7A
A488   84 7B      STY $7B
A48A   20 73 00   JSR $0073
A48D   AA         TAX
A48E   F0 F0      BEQ $A480
A490   A2 FF      LDX #$FF
A492   86 3A      STX $3A
A494   90 06      BCC $A49C
A496   20 79 A5   JSR $A579
A499   4C E1 A7   JMP $A7E1


; handle insert/delete basic lines

A49C   20 6B A9   JSR $A96B
A49F   20 79 A5   JSR $A579
A4A2   84 0B      STY $0B
A4A4   20 13 A6   JSR $A613
A4A7   90 44      BCC $A4ED


; delete old line

A4A9   A0 01      LDY #$01
A4AB   B1 5F      LDA ($5F),Y
A4AD   85 23      STA $23
A4AF   A5 2D      LDA $2D
A4B1   85 22      STA $22
A4B3   A5 60      LDA $60
A4B5   85 25      STA $25
A4B7   A5 5F      LDA $5F
A4B9   88         DEY
A4BA   F1 5F      SBC ($5F),Y
A4BC   18         CLC
A4BD   65 2D      ADC $2D
A4BF   85 2D      STA $2D
A4C1   85 24      STA $24
A4C3   A5 2E      LDA $2E
A4C5   69 FF      ADC #$FF
A4C7   85 2E      STA $2E
A4C9   E5 60      SBC $60
A4CB   AA         TAX
A4CC   38         SEC
A4CD   A5 5F      LDA $5F
A4CF   E5 2D      SBC $2D
A4D1   A8         TAY
A4D2   B0 03      BCS $A4D7
A4D4   E8         INX
A4D5   C6 25      DEC $25
A4D7   18         CLC
A4D8   65 22      ADC $22
A4DA   90 03      BCC $A4DF
A4DC   C6 23      DEC $23
A4DE   18         CLC
A4DF   B1 22      LDA ($22),Y
A4E1   91 24      STA ($24),Y
A4E3   C8         INY
A4E4   D0 F9      BNE $A4DF
A4E6   E6 23      INC $23
A4E8   E6 25      INC $25
A4EA   CA         DEX
A4EB   D0 F2      BNE $A4DF


; insert new line

A4ED   20 59 A6   JSR $A659
A4F0   20 33 A5   JSR $A533
A4F3   AD 00 02   LDA $0200
A4F6   F0 88      BEQ $A480
A4F8   18         CLC
A4F9   A5 2D      LDA $2D
A4FB   85 5A      STA $5A
A4FD   65 0B      ADC $0B
A4FF   85 58      STA $58
A501   A4 2E      LDY $2E
A503   84 5B      STY $5B
A505   90 01      BCC $A508
A507   C8         INY
A508   84 59      STY $59
A50A   20 B8 A3   JSR $A3B8
A50D   A5 14      LDA $14
A50F   A4 15      LDY $15
A511   8D FE 01   STA $01FE
A514   8C FF 01   STY $01FF
A517   A5 31      LDA $31
A519   A4 32      LDY $32
A51B   85 2D      STA $2D
A51D   84 2E      STY $2E
A51F   A4 0B      LDY $0B
A521   88         DEY
A522   B9 FC 01   LDA $01FC,Y
A525   91 5F      STA ($5F),Y
A527   88         DEY
A528   10 F8      BPL $A522

A52A   20 59 A6   JSR $A659

A52D   20 33 A5   JSR $A533
A530   4C 80 A4   JMP $A480


; relink basic program

A533   A5 2B      LDA $2B
A535   A4 2C      LDY $2C
A537   85 22      STA $22
A539   84 23      STY $23
A53B   18         CLC
A53C   A0 01      LDY #$01
A53E   B1 22      LDA ($22),Y
A540   F0 1D      BEQ $A55F
A542   A0 04      LDY #$04
A544   C8         INY
A545   B1 22      LDA ($22),Y
A547   D0 FB      BNE $A544
A549   C8         INY
A54A   98         TYA
A54B   65 22      ADC $22
A54D   AA         TAX
A54E   A0 00      LDY #$00
A550   91 22      STA ($22),Y
A552   A5 23      LDA $23
A554   69 00      ADC #$00
A556   C8         INY
A557   91 22      STA ($22),Y
A559   86 22      STX $22
A55B   85 23      STA $23
A55D   90 DD      BCC $A53C
A55F   60         RTS


; get statement into buffer

A560   A2 00      LDX #$00
A562   20 12 E1   JSR $E112
A565   C9 0D      CMP #$0D
A567   F0 0D      BEQ $A576
A569   9D 00 02   STA $0200,X
A56C   E8         INX
A56D   E0 59      CPX #$59
A56F   90 F1      BCC $A562
A571   A2 17      LDX #$17   ; error number
A573   4C 37 A4   JMP $A437
A576   4C CA AA   JMP $AACA   ; goto end of line


; crunch tokens

A579   6C 04 03   JMP ($0304)   ; normally A57C


; standard token cruncher

A57C   A6 7A      LDX $7A
A57E   A0 04      LDY #$04
A580   84 0F      STY $0F
A582   BD 00 02   LDA $0200,X
A585   10 07      BPL $A58E
A587   C9 FF      CMP #$FF   ; PI
A589   F0 3E      BEQ $A5C9
A58B   E8         INX
A58C   D0 F4      BNE $A582
A58E   C9 20      CMP #$20   ; space
A590   F0 37      BEQ $A5C9
A592   85 08      STA $08
A594   C9 22      CMP #$22    ; quote mark
A596   F0 56      BEQ $A5EE
A598   24 0F      BIT $0F
A59A   70 2D      BVS $A5C9
A59C   C9 3F      CMP #$3F   ; question mark
A59E   D0 04      BNE $A5A4
A5A0   A9 99      LDA #$99   ; PRINT code
A5A2   D0 25      BNE $A5C9
A5A4   C9 30      CMP #$30    ; 0
A5A6   90 04      BCC $A5AC
A5A8   C9 3C      CMP #$3C
A5AA   90 1D      BCC $A5C9
A5AC   84 71      STY $71
A5AE   A0 00      LDY #$00
A5B0   84 0B      STY $0B
A5B2   88         DEY
A5B3   86 7A      STX $7A
A5B5   CA         DEX
A5B6   C8         INY
A5B7   E8         INX
A5B8   BD 00 02   LDA $0200,X
A5BB   38         SEC
A5BC   F9 9E A0   SBC $A09E,Y
A5BF   F0 F5      BEQ $A5B6
A5C1   C9 80      CMP #$80
A5C3   D0 30      BNE $A5F5
A5C5   05 0B      ORA $0B
A5C7   A4 71      LDY $71
A5C9   E8         INX
A5CA   C8         INY
A5CB   99 FB 01   STA $01FB,Y
A5CE   B9 FB 01   LDA $01FB,Y
A5D1   F0 36      BEQ $A609
A5D3   38         SEC
A5D4   E9 3A      SBC #$3A   ; colon
A5D6   F0 04      BEQ $A5DC
A5D8   C9 49      CMP #$49   ; DATA code
A5DA   D0 02      BNE $A5DE
A5DC   85 0F      STA $0F
A5DE   38         SEC
A5DF   E9 55      SBC #$55   ; REM code
A5E1   D0 9F      BNE $A582
A5E3   85 08      STA $08
A5E5   BD 00 02   LDA $0200,X
A5E8   F0 DF      BEQ $A5C9
A5EA   C5 08      CMP $08
A5EC   F0 DB      BEQ $A5C9
A5EE   C8         INY
A5EF   99 FB 01   STA $01FB,Y
A5F2   E8         INX
A5F3   D0 F0      BNE $A5E5
A5F5   A6 7A      LDX $7A
A5F7   E6 0B      INC $0B
A5F9   C8         INY
A5FA   B9 9D A0   LDA $A09D,Y
A5FD   10 FA      BPL $A5F9
A5FF   B9 9E A0   LDA $A09E,Y
A602   D0 B4      BNE $A5B8
A604   BD 00 02   LDA $0200,X
A607   10 BE      BPL $A5C7
A609   99 FD 01   STA $01FD,Y
A60C   C6 7B      DEC $7B
A60E   A9 FF      LDA #$FF
A610   85 7A      STA $7A
A612   60         RTS


; search for a line in a program

A613   A5 2B      LDA $2B
A615   A6 2C      LDX $2C

A617   A0 01      LDY #$01

A619   85 5F      STA $5F
A61B   86 60      STX $60
A61D   B1 5F      LDA ($5F),Y
A61F   F0 1F      BEQ $A640
A621   C8         INY
A622   C8         INY
A623   A5 15      LDA $15
A625   D1 5F      CMP ($5F),Y
A627   90 18      BCC $A641
A629   F0 03      BEQ $A62E
A62B   88         DEY
A62C   D0 09      BNE $A637
A62E   A5 14      LDA $14
A630   88         DEY
A631   D1 5F      CMP ($5F),Y
A633   90 0C      BCC $A641
A635   F0 0A      BEQ $A641
A637   88         DEY
A638   B1 5F      LDA ($5F),Y
A63A   AA         TAX
A63B   88         DEY
A63C   B1 5F      LDA ($5F),Y
A63E   B0 D7      BCS $A617
A640   18         CLC
A641   60         RTS


; NEW command

A642   D0 FD      BNE $A641

A644   A9 00      LDA #$00

A646   A8         TAY
A647   91 2B      STA ($2B),Y
A649   C8         INY
A64A   91 2B      STA ($2B),Y
A64C   A5 2B      LDA $2B
A64E   18         CLC
A64F   69 02      ADC #$02
A651   85 2D      STA $2D
A653   A5 2C      LDA $2C
A655   69 00      ADC #$00
A657   85 2E      STA $2E

A659   20 8E A6   JSR $A68E

A65C   A9 00      LDA #$00


; CLR command

A65E   D0 2D      BNE $A68D

A660   20 E7 FF   JSR $FFE7


A663   A5 37      LDA $37

A665   A4 38      LDY $38
A667   85 33      STA $33
A669   84 34      STY $34
A66B   A5 2D      LDA $2D
A66D   A4 2E      LDY $2E
A66F   85 2F      STA $2F
A671   84 30      STY $30
A673   85 31      STA $31
A675   84 32      STY $32

A677   20 1D A8   JSR $A81D



; reset stack and program pointers

A67A   A2 19      LDX #$19
A67C   86 16      STX $16
A67E   68         PLA
A67F   A8         TAY
A680   68         PLA
A681   A2 FA      LDX #$FA
A683   9A         TXS
A684   48         PHA
A685   98         TYA
A686   48         PHA
A687   A9 00      LDA #$00
A689   85 3E      STA $3E
A68B   85 10      STA $10
A68D   60         RTS


; set current character pointer to start of basic - 1

A68E   18         CLC
A68F   A5 2B      LDA $2B
A691   69 FF      ADC #$FF
A693   85 7A      STA $7A
A695   A5 2C      LDA $2C
A697   69 FF      ADC #$FF
A699   85 7B      STA $7B
A69B   60         RTS


; LIST command

A69C   90 06      BCC $A6A4
A69E   F0 04      BEQ $A6A4
A6A0   C9 AB      CMP #$AB
A6A2   D0 E9      BNE $A68D
A6A4   20 6B A9   JSR $A96B
A6A7   20 13 A6   JSR $A613
A6AA   20 79 00   JSR $0079
A6AD   F0 0C      BEQ $A6BB
A6AF   C9 AB      CMP #$AB
A6B1   D0 8E      BNE $A641
A6B3   20 73 00   JSR $0073
A6B6   20 6B A9   JSR $A96B
A6B9   D0 86      BNE $A641
A6BB   68         PLA
A6BC   68         PLA
A6BD   A5 14      LDA $14
A6BF   05 15      ORA $15
A6C1   D0 06      BNE $A6C9
A6C3   A9 FF      LDA #$FF
A6C5   85 14      STA $14
A6C7   85 15      STA $15


; list lines from $5F/$60 to $14/$15

A6C9   A0 01      LDY #$01
A6CB   84 0F      STY $0F
A6CD   B1 5F      LDA ($5F),Y
A6CF   F0 43      BEQ $A714
A6D1   20 2C A8   JSR $A82C
A6D4   20 D7 AA   JSR $AAD7
A6D7   C8         INY
A6D8   B1 5F      LDA ($5F),Y
A6DA   AA         TAX
A6DB   C8         INY
A6DC   B1 5F      LDA ($5F),Y
A6DE   C5 15      CMP $15
A6E0   D0 04      BNE $A6E6
A6E2   E4 14      CPX $14
A6E4   F0 02      BEQ $A6E8
A6E6   B0 2C      BCS $A714
A6E8   84 49      STY $49
A6EA   20 CD BD   JSR $BDCD
A6ED   A9 20      LDA #$20
A6EF   A4 49      LDY $49
A6F1   29 7F      AND #$7F
A6F3   20 47 AB   JSR $AB47
A6F6   C9 22      CMP #$22
A6F8   D0 06      BNE $A700
A6FA   A5 0F      LDA $0F
A6FC   49 FF      EOR #$FF
A6FE   85 0F      STA $0F
A700   C8         INY
A701   F0 11      BEQ $A714
A703   B1 5F      LDA ($5F),Y
A705   D0 10      BNE $A717
A707   A8         TAY
A708   B1 5F      LDA ($5F),Y
A70A   AA         TAX
A70B   C8         INY
A70C   B1 5F      LDA ($5F),Y
A70E   86 5F      STX $5F
A710   85 60      STA $60
A712   D0 B5      BNE $A6C9
A714   4C 86 E3   JMP $E386


; print tokens routine

A717   6C 06 03   JMP ($0306)   ; normally A71A


; standard token printer

A71A   10 D7      BPL $A6F3
A71C   C9 FF      CMP #$FF
A71E   F0 D3      BEQ $A6F3
A720   24 0F      BIT $0F
A722   30 CF      BMI $A6F3
A724   38         SEC
A725   E9 7F      SBC #$7F
A727   AA         TAX
A728   84 49      STY $49
A72A   A0 FF      LDY #$FF
A72C   CA         DEX
A72D   F0 08      BEQ $A737
A72F   C8         INY
A730   B9 9E A0   LDA $A09E,Y
A733   10 FA      BPL $A72F
A735   30 F5      BMI $A72C


; print keyword

A737   C8         INY
A738   B9 9E A0   LDA $A09E,Y
A73B   30 B2      BMI $A6EF
A73D   20 47 AB   JSR $AB47
A740   D0 F5      BNE $A737


; FOR command

A742   A9 80      LDA #$80
A744   85 10      STA $10
A746   20 A5 A9   JSR $A9A5
A749   20 8A A3   JSR $A38A
A74C   D0 05      BNE $A753
A74E   8A         TXA
A74F   69 0F      ADC #$0F
A751   AA         TAX
A752   9A         TXS
A753   68         PLA
A754   68         PLA
A755   A9 09      LDA #$09
A757   20 FB A3   JSR $A3FB
A75A   20 06 A9   JSR $A906
A75D   18         CLC
A75E   98         TYA
A75F   65 7A      ADC $7A
A761   48         PHA
A762   A5 7B      LDA $7B
A764   69 00      ADC #$00
A766   48         PHA
A767   A5 3A      LDA $3A
A769   48         PHA
A76A   A5 39      LDA $39
A76C   48         PHA
A76D   A9 A4      LDA #$A4
A76F   20 FF AE   JSR $AEFF
A772   20 8D AD   JSR $AD8D
A775   20 8A AD   JSR $AD8A
A778   A5 66      LDA $66
A77A   09 7F      ORA #$7F
A77C   25 62      AND $62
A77E   85 62      STA $62
A780   A9 8B      LDA #$8B   ; low  A78B
A782   A0 A7      LDY #$A7   ; high A78B
A784   85 22      STA $22
A786   84 23      STY $23
A788   4C 43 AE   JMP $AE43


A78B   A9 BC      LDA #$BC   ; low  B9BC

A78D   A0 B9      LDY #$B9   ; high B9BC
A78F   20 A2 BB   JSR $BBA2
A792   20 79 00   JSR $0079
A795   C9 A9      CMP #$A9
A797   D0 06      BNE $A79F
A799   20 73 00   JSR $0073
A79C   20 8A AD   JSR $AD8A
A79F   20 2B BC   JSR $BC2B
A7A2   20 38 AE   JSR $AE38
A7A5   A5 4A      LDA $4A
A7A7   48         PHA
A7A8   A5 49      LDA $49
A7AA   48         PHA
A7AB   A9 81      LDA #$81   ; FOR block code
A7AD   48         PHA


; execute next statement

A7AE   20 2C A8   JSR $A82C
A7B1   A5 7A      LDA $7A
A7B3   A4 7B      LDY $7B
A7B5   C0 02      CPY #$02
A7B7   EA         NOP
A7B8   F0 04      BEQ $A7BE
A7BA   85 3D      STA $3D
A7BC   84 3E      STY $3E
A7BE   A0 00      LDY #$00
A7C0   B1 7A      LDA ($7A),Y
A7C2   D0 43      BNE $A807
A7C4   A0 02      LDY #$02
A7C6   B1 7A      LDA ($7A),Y
A7C8   18         CLC
A7C9   D0 03      BNE $A7CE
A7CB   4C 4B A8   JMP $A84B

A7CE   C8         INY
A7CF   B1 7A      LDA ($7A),Y
A7D1   85 39      STA $39
A7D3   C8         INY
A7D4   B1 7A      LDA ($7A),Y
A7D6   85 3A      STA $3A
A7D8   98         TYA
A7D9   65 7A      ADC $7A
A7DB   85 7A      STA $7A
A7DD   90 02      BCC $A7E1
A7DF   E6 7B      INC $7B

A7E1   6C 08 03   JMP ($0308)   ; normally A7E4



; execute a statement

A7E4   20 73 00   JSR $0073
A7E7   20 ED A7   JSR $A7ED
A7EA   4C AE A7   JMP $A7AE


; execute command in A

A7ED   F0 3C      BEQ $A82B

A7EF   E9 80      SBC #$80

A7F1   90 11      BCC $A804
A7F3   C9 23      CMP #$23
A7F5   B0 17      BCS $A80E
A7F7   0A         ASL
A7F8   A8         TAY
A7F9   B9 0D A0   LDA $A00D,Y
A7FC   48         PHA
A7FD   B9 0C A0   LDA $A00C,Y
A800   48         PHA
A801   4C 73 00   JMP $0073

A804   4C A5 A9   JMP $A9A5

A807   C9 3A      CMP #$3A   ; colon
A809   F0 D6      BEQ $A7E1
A80B   4C 08 AF   JMP $AF08

A80E   C9 4B      CMP #$4B   ; GO code
A810   D0 F9      BNE $A80B
A812   20 73 00   JSR $0073
A815   A9 A4      LDA #$A4   ; TO code
A817   20 FF AE   JSR $AEFF
A81A   4C A0 A8   JMP $A8A0   ; do GOTO


; RESTORE command

A81D   38         SEC
A81E   A5 2B      LDA $2B
A820   E9 01      SBC #$01
A822   A4 2C      LDY $2C
A824   B0 01      BCS $A827
A826   88         DEY

A827   85 41      STA $41

A829   84 42      STY $42
A82B   60         RTS


A82C   20 E1 FF   JSR $FFE1   ; test stop key



; STOP command

A82F   B0 01      BCS $A832


; END command

A831   18         CLC
A832   D0 3C      BNE $A870
A834   A5 7A      LDA $7A
A836   A4 7B      LDY $7B
A838   A6 3A      LDX $3A
A83A   E8         INX
A83B   F0 0C      BEQ $A849
A83D   85 3D      STA $3D
A83F   84 3E      STY $3E
A841   A5 39      LDA $39
A843   A4 3A      LDY $3A
A845   85 3B      STA $3B
A847   84 3C      STY $3C
A849   68         PLA
A84A   68         PLA

A84B   A9 81      LDA #$81   ; low  A381

A84D   A0 A3      LDY #$A3   ; high A381
A84F   90 03      BCC $A854
A851   4C 69 A4   JMP $A469
A854   4C 86 E3   JMP $E386


; CONT command

A857   D0 17      BNE $A870
A859   A2 1A      LDX #$1A   ; error number
A85B   A4 3E      LDY $3E
A85D   D0 03      BNE $A862
A85F   4C 37 A4   JMP $A437

A862   A5 3D      LDA $3D
A864   85 7A      STA $7A
A866   84 7B      STY $7B
A868   A5 3B      LDA $3B
A86A   A4 3C      LDY $3C
A86C   85 39      STA $39
A86E   84 3A      STY $3A
A870   60         RTS


; RUN command

A871   08         PHP
A872   A9 00      LDA #$00
A874   20 90 FF   JSR $FF90
A877   28         PLP
A878   D0 03      BNE $A87D
A87A   4C 59 A6   JMP $A659

A87D   20 60 A6   JSR $A660   ; do CLR
A880   4C 97 A8   JMP $A897   ; do GOTO


; GOSUB command

A883   A9 03      LDA #$03
A885   20 FB A3   JSR $A3FB
A888   A5 7B      LDA $7B
A88A   48         PHA
A88B   A5 7A      LDA $7A
A88D   48         PHA
A88E   A5 3A      LDA $3A
A890   48         PHA
A891   A5 39      LDA $39
A893   48         PHA
A894   A9 8D      LDA #$8D
A896   48         PHA

A897   20 79 00   JSR $0079

A89A   20 A0 A8   JSR $A8A0
A89D   4C AE A7   JMP $A7AE


; GOTO command

A8A0   20 6B A9   JSR $A96B
A8A3   20 09 A9   JSR $A909
A8A6   38         SEC
A8A7   A5 39      LDA $39
A8A9   E5 14      SBC $14
A8AB   A5 3A      LDA $3A
A8AD   E5 15      SBC $15
A8AF   B0 0B      BCS $A8BC
A8B1   98         TYA
A8B2   38         SEC
A8B3   65 7A      ADC $7A
A8B5   A6 7B      LDX $7B
A8B7   90 07      BCC $A8C0
A8B9   E8         INX
A8BA   B0 04      BCS $A8C0
A8BC   A5 2B      LDA $2B
A8BE   A6 2C      LDX $2C
A8C0   20 17 A6   JSR $A617
A8C3   90 1E      BCC $A8E3
A8C5   A5 5F      LDA $5F
A8C7   E9 01      SBC #$01
A8C9   85 7A      STA $7A
A8CB   A5 60      LDA $60
A8CD   E9 00      SBC #$00
A8CF   85 7B      STA $7B
A8D1   60         RTS


; RETURN command

A8D2   D0 FD      BNE $A8D1
A8D4   A9 FF      LDA #$FF
A8D6   85 4A      STA $4A
A8D8   20 8A A3   JSR $A38A
A8DB   9A         TXS
A8DC   C9 8D      CMP #$8D
A8DE   F0 0B      BEQ $A8EB
A8E0   A2 0C      LDX #$0C
A8E2   .BY $2C
A8E3   A2 11      LDX #$11
A8E5   4C 37 A4   JMP $A437

A8E8   4C 08 AF   JMP $AF08


; remove GOSUB block from stack

A8EB   68         PLA
A8EC   68         PLA
A8ED   85 39      STA $39
A8EF   68         PLA
A8F0   85 3A      STA $3A
A8F2   68         PLA
A8F3   85 7A      STA $7A
A8F5   68         PLA
A8F6   85 7B      STA $7B


; DATA command

A8F8   20 06 A9   JSR $A906

A8FB   98         TYA

A8FC   18         CLC
A8FD   65 7A      ADC $7A
A8FF   85 7A      STA $7A
A901   90 02      BCC $A905
A903   E6 7B      INC $7B
A905   60         RTS


; get end of statement

A906   A2 3A      LDX #$3A   ; colon
A908   .BY $2C


; get end of line

A909   A2 00      LDX #$00
A90B   86 07      STX $07
A90D   A0 00      LDY #$00
A90F   84 08      STY $08
A911   A5 08      LDA $08
A913   A6 07      LDX $07
A915   85 07      STA $07
A917   86 08      STX $08
A919   B1 7A      LDA ($7A),Y
A91B   F0 E8      BEQ $A905
A91D   C5 08      CMP $08
A91F   F0 E4      BEQ $A905
A921   C8         INY
A922   C9 22      CMP #$22   ; quote mark
A924   D0 F3      BNE $A919
A926   F0 E9      BEQ $A911


; IF command

A928   20 9E AD   JSR $AD9E
A92B   20 79 00   JSR $0079
A92E   C9 89      CMP #$89
A930   F0 05      BEQ $A937
A932   A9 A7      LDA #$A7
A934   20 FF AE   JSR $AEFF
A937   A5 61      LDA $61
A939   D0 05      BNE $A940


; REM command

A93B   20 09 A9   JSR $A909
A93E   F0 BB      BEQ $A8FB


; THEN part of IF

A940   20 79 00   JSR $0079
A943   B0 03      BCS $A948
A945   4C A0 A8   JMP $A8A0   ; do GOTO
A948   4C ED A7   JMP $A7ED


; ON command

A94B   20 9E B7   JSR $B79E
A94E   48         PHA
A94F   C9 8D      CMP #$8D   ; GOSUB code
A951   F0 04      BEQ $A957
A953   C9 89      CMP #$89   ; GOTO code
A955   D0 91      BNE $A8E8
A957   C6 65      DEC $65
A959   D0 04      BNE $A95F
A95B   68         PLA
A95C   4C EF A7   JMP $A7EF
A95F   20 73 00   JSR $0073
A962   20 6B A9   JSR $A96B
A965   C9 2C      CMP #$2C   ; comma
A967   F0 EE      BEQ $A957
A969   68         PLA
A96A   60         RTS


; get decimal number into $14/$15

A96B   A2 00      LDX #$00
A96D   86 14      STX $14
A96F   86 15      STX $15

A971   B0 F7      BCS $A96A

A973   E9 2F      SBC #$2F
A975   85 07      STA $07
A977   A5 15      LDA $15
A979   85 22      STA $22
A97B   C9 19      CMP #$19
A97D   B0 D4      BCS $A953
A97F   A5 14      LDA $14
A981   0A         ASL   ; times 2
A982   26 22      ROL $22
A984   0A         ASL   ; times 2
A985   26 22      ROL $22
A987   65 14      ADC $14   ; add original
A989   85 14      STA $14
A98B   A5 22      LDA $22
A98D   65 15      ADC $15
A98F   85 15      STA $15
A991   06 14      ASL $14   ; times 2
A993   26 15      ROL $15   ; = times 10 overall
A995   A5 14      LDA $14
A997   65 07      ADC $07
A999   85 14      STA $14
A99B   90 02      BCC $A99F
A99D   E6 15      INC $15
A99F   20 73 00   JSR $0073
A9A2   4C 71 A9   JMP $A971


; LET command

A9A5   20 8B B0   JSR $B08B
A9A8   85 49      STA $49
A9AA   84 4A      STY $4A
A9AC   A9 B2      LDA #$B2    ; equals code
A9AE   20 FF AE   JSR $AEFF
A9B1   A5 0E      LDA $0E
A9B3   48         PHA
A9B4   A5 0D      LDA $0D
A9B6   48         PHA
A9B7   20 9E AD   JSR $AD9E
A9BA   68         PLA
A9BB   2A         ROL
A9BC   20 90 AD   JSR $AD90
A9BF   D0 18      BNE $A9D9
A9C1   68         PLA

A9C2   10 12      BPL $A9D6



; assign to integer

A9C4   20 1B BC   JSR $BC1B
A9C7   20 BF B1   JSR $B1BF
A9CA   A0 00      LDY #$00
A9CC   A5 64      LDA $64
A9CE   91 49      STA ($49),Y
A9D0   C8         INY
A9D1   A5 65      LDA $65
A9D3   91 49      STA ($49),Y
A9D5   60         RTS


; assign to float

A9D6   4C D0 BB   JMP $BBD0


; assign to string

A9D9   68         PLA

A9DA   A4 4A      LDY $4A

A9DC   C0 BF      CPY #$BF
A9DE   D0 4C      BNE $AA2C


; assign to TI$

A9E0   20 A6 B6   JSR $B6A6
A9E3   C9 06      CMP #$06   ; length 6
A9E5   D0 3D      BNE $AA24
A9E7   A0 00      LDY #$00
A9E9   84 61      STY $61
A9EB   84 66      STY $66
A9ED   84 71      STY $71
A9EF   20 1D AA   JSR $AA1D
A9F2   20 E2 BA   JSR $BAE2
A9F5   E6 71      INC $71
A9F7   A4 71      LDY $71
A9F9   20 1D AA   JSR $AA1D
A9FC   20 0C BC   JSR $BC0C
A9FF   AA         TAX
AA00   F0 05      BEQ $AA07
AA02   E8         INX
AA03   8A         TXA
AA04   20 ED BA   JSR $BAED
AA07   A4 71      LDY $71
AA09   C8         INY
AA0A   C0 06      CPY #$06
AA0C   D0 DF      BNE $A9ED
AA0E   20 E2 BA   JSR $BAE2
AA11   20 9B BC   JSR $BC9B
AA14   A6 64      LDX $64
AA16   A4 63      LDY $63
AA18   A5 65      LDA $65
AA1A   4C DB FF   JMP $FFDB


; add next digit to float accum

AA1D   B1 22      LDA ($22),Y
AA1F   20 80 00   JSR $0080
AA22   90 03      BCC $AA27
AA24   4C 48 B2   JMP $B248

AA27   E9 2F      SBC #$2F
AA29   4C 7E BD   JMP $BD7E


; assign to string variable

AA2C   A0 02      LDY #$02
AA2E   B1 64      LDA ($64),Y
AA30   C5 34      CMP $34
AA32   90 17      BCC $AA4B
AA34   D0 07      BNE $AA3D
AA36   88         DEY
AA37   B1 64      LDA ($64),Y
AA39   C5 33      CMP $33
AA3B   90 0E      BCC $AA4B
AA3D   A4 65      LDY $65
AA3F   C4 2E      CPY $2E
AA41   90 08      BCC $AA4B
AA43   D0 0D      BNE $AA52
AA45   A5 64      LDA $64
AA47   C5 2D      CMP $2D
AA49   B0 07      BCS $AA52
AA4B   A5 64      LDA $64
AA4D   A4 65      LDY $65
AA4F   4C 68 AA   JMP $AA68

AA52   A0 00      LDY #$00
AA54   B1 64      LDA ($64),Y
AA56   20 75 B4   JSR $B475
AA59   A5 50      LDA $50
AA5B   A4 51      LDY $51
AA5D   85 6F      STA $6F
AA5F   84 70      STY $70
AA61   20 7A B6   JSR $B67A
AA64   A9 61      LDA #$61   ; low  0061
AA66   A0 00      LDY #$00   ; high 0061


; move descriptor into variable

AA68   85 50      STA $50
AA6A   84 51      STY $51
AA6C   20 DB B6   JSR $B6DB
AA6F   A0 00      LDY #$00
AA71   B1 50      LDA ($50),Y
AA73   91 49      STA ($49),Y
AA75   C8         INY
AA76   B1 50      LDA ($50),Y
AA78   91 49      STA ($49),Y
AA7A   C8         INY
AA7B   B1 50      LDA ($50),Y
AA7D   91 49      STA ($49),Y
AA7F   60         RTS


; PRINT# comand

AA80   20 86 AA   JSR $AA86
AA83   4C B5 AB   JMP $ABB5


; CMD command

AA86   20 9E B7   JSR $B79E
AA89   F0 05      BEQ $AA90
AA8B   A9 2C      LDA #$2C    ; comma
AA8D   20 FF AE   JSR $AEFF
AA90   08         PHP
AA91   86 13      STX $13
AA93   20 18 E1   JSR $E118
AA96   28         PLP
AA97   4C A0 AA   JMP $AAA0   ; do PRINT

AA9A   20 21 AB   JSR $AB21
AA9D   20 79 00   JSR $0079


; PRINT command

AAA0   F0 35      BEQ $AAD7

AAA2   F0 43      BEQ $AAE7

AAA4   C9 A3      CMP #$A3   ; TAB( code
AAA6   F0 50      BEQ $AAF8
AAA8   C9 A6      CMP #$A6   ; SPC( code
AAAA   18         CLC
AAAB   F0 4B      BEQ $AAF8
AAAD   C9 2C      CMP #$2C   ; comma
AAAF   F0 37      BEQ $AAE8
AAB1   C9 3B      CMP #$3B   ; semi-colon
AAB3   F0 5E      BEQ $AB13
AAB5   20 9E AD   JSR $AD9E
AAB8   24 0D      BIT $0D
AABA   30 DE      BMI $AA9A
AABC   20 DD BD   JSR $BDDD
AABF   20 87 B4   JSR $B487
AAC2   20 21 AB   JSR $AB21
AAC5   20 3B AB   JSR $AB3B
AAC8   D0 D3      BNE $AA9D


; end statement in buffer and screen

AACA   A9 00      LDA #$00
AACC   9D 00 02   STA $0200,X
AACF   A2 FF      LDX #$FF
AAD1   A0 01      LDY #$01
AAD3   A5 13      LDA $13
AAD5   D0 10      BNE $AAE7


; end line on CMD output file

AAD7   A9 0D      LDA #$0D
AAD9   20 47 AB   JSR $AB47
AADC   24 13      BIT $13
AADE   10 05      BPL $AAE5
AAE0   A9 0A      LDA #$0A
AAE2   20 47 AB   JSR $AB47

AAE5   49 FF      EOR #$FF

AAE7   60         RTS


; routine for printing TAB( and SPC(

AAE8   38         SEC
AAE9   20 F0 FF   JSR $FFF0
AAEC   98         TYA
AAED   38         SEC
AAEE   E9 0A      SBC #$0A
AAF0   B0 FC      BCS $AAEE
AAF2   49 FF      EOR #$FF
AAF4   69 01      ADC #$01
AAF6   D0 16      BNE $AB0E
AAF8   08         PHP
AAF9   38         SEC
AAFA   20 F0 FF   JSR $FFF0
AAFD   84 09      STY $09
AAFF   20 9B B7   JSR $B79B
AB02   C9 29      CMP #$29   ; )
AB04   D0 59      BNE $AB5F
AB06   28         PLP
AB07   90 06      BCC $AB0F
AB09   8A         TXA
AB0A   E5 09      SBC $09
AB0C   90 05      BCC $AB13
AB0E   AA         TAX
AB0F   E8         INX
AB10   CA         DEX
AB11   D0 06      BNE $AB19
AB13   20 73 00   JSR $0073
AB16   4C A2 AA   JMP $AAA2
AB19   20 3B AB   JSR $AB3B
AB1C   D0 F2      BNE $AB10


; print string form AY

AB1E   20 87 B4   JSR $B487


; print string from $22/$23

AB21   20 A6 B6   JSR $B6A6
AB24   AA         TAX
AB25   A0 00      LDY #$00
AB27   E8         INX

AB28   CA         DEX

AB29   F0 BC      BEQ $AAE7
AB2B   B1 22      LDA ($22),Y
AB2D   20 47 AB   JSR $AB47
AB30   C8         INY
AB31   C9 0D      CMP #$0D
AB33   D0 F3      BNE $AB28
AB35   20 E5 AA   JSR $AAE5
AB38   4C 28 AB   JMP $AB28


; print character on CMD output file

AB3B   A5 13      LDA $13
AB3D   F0 03      BEQ $AB42
AB3F   A9 20      LDA #$20   ; space
AB41   .BY $2C
AB42   A9 1D      LDA #$1D   ; csr right
AB44   .BY $2C

AB45   A9 3F      LDA #$3F   ; question mark


AB47   20 0C E1   JSR $E10C

AB4A   29 FF      AND #$FF
AB4C   60         RTS


; read errors

AB4D   A5 11      LDA $11
AB4F   F0 11      BEQ $AB62
AB51   30 04      BMI $AB57
AB53   A0 FF      LDY #$FF
AB55   D0 04      BNE $AB5B
AB57   A5 3F      LDA $3F
AB59   A4 40      LDY $40
AB5B   85 39      STA $39
AB5D   84 3A      STY $3A
AB5F   4C 08 AF   JMP $AF08
AB62   A5 13      LDA $13
AB64   F0 05      BEQ $AB6B
AB66   A2 18      LDX #$18
AB68   4C 37 A4   JMP $A437

AB6B   A9 0C      LDA #$0C   ; low  AD0C
AB6D   A0 AD      LDY #$AD   ; high AD0C
AB6F   20 1E AB   JSR $AB1E
AB72   A5 3D      LDA $3D
AB74   A4 3E      LDY $3E
AB76   85 7A      STA $7A
AB78   84 7B      STY $7B
AB7A   60         RTS


; GET command

AB7B   20 A6 B3   JSR $B3A6
AB7E   C9 23      CMP #$23   ; #
AB80   D0 10      BNE $AB92
AB82   20 73 00   JSR $0073
AB85   20 9E B7   JSR $B79E
AB88   A9 2C      LDA #$2C   ; comma
AB8A   20 FF AE   JSR $AEFF
AB8D   86 13      STX $13
AB8F   20 1E E1   JSR $E11E
AB92   A2 01      LDX #$01
AB94   A0 02      LDY #$02
AB96   A9 00      LDA #$00
AB98   8D 01 02   STA $0201
AB9B   A9 40      LDA #$40   ; GET code
AB9D   20 0F AC   JSR $AC0F
ABA0   A6 13      LDX $13
ABA2   D0 13      BNE $ABB7
ABA4   60         RTS


; INPUT# command

ABA5   20 9E B7   JSR $B79E
ABA8   A9 2C      LDA #$2C   ; comma
ABAA   20 FF AE   JSR $AEFF
ABAD   86 13      STX $13
ABAF   20 1E E1   JSR $E11E
ABB2   20 CE AB   JSR $ABCE

ABB5   A5 13      LDA $13

ABB7   20 CC FF   JSR $FFCC
ABBA   A2 00      LDX #$00
ABBC   86 13      STX $13
ABBE   60         RTS


; INPUT command

ABBF   C9 22      CMP #$22   ; quote mark
ABC1   D0 0B      BNE $ABCE
ABC3   20 BD AE   JSR $AEBD
ABC6   A9 3B      LDA #$3B   ; semi-colon
ABC8   20 FF AE   JSR $AEFF
ABCB   20 21 AB   JSR $AB21

ABCE   20 A6 B3   JSR $B3A6

ABD1   A9 2C      LDA #$2C   ; comma
ABD3   8D FF 01   STA $01FF
ABD6   20 F9 AB   JSR $ABF9
ABD9   A5 13      LDA $13
ABDB   F0 0D      BEQ $ABEA
ABDD   20 B7 FF   JSR $FFB7
ABE0   29 02      AND #$02
ABE2   F0 06      BEQ $ABEA
ABE4   20 B5 AB   JSR $ABB5
ABE7   4C F8 A8   JMP $A8F8   ; do DATA

ABEA   AD 00 02   LDA $0200
ABED   D0 1E      BNE $AC0D
ABEF   A5 13      LDA $13
ABF1   D0 E3      BNE $ABD6
ABF3   20 06 A9   JSR $A906
ABF6   4C FB A8   JMP $A8FB


; get line into input buffer

ABF9   A5 13      LDA $13
ABFB   D0 06      BNE $AC03
ABFD   20 45 AB   JSR $AB45
AC00   20 3B AB   JSR $AB3B
AC03   4C 60 A5   JMP $A560


; READ command

AC06   A6 41      LDX $41
AC08   A4 42      LDY $42
AC0A   A9 98      LDA #$98   ; READ code
AC0C   .BY $2C
AC0D   A9 00      LDA #$00

AC0F   85 11      STA $11

AC11   86 43      STX $43
AC13   84 44      STY $44

AC15   20 8B B0   JSR $B08B

AC18   85 49      STA $49
AC1A   84 4A      STY $4A
AC1C   A5 7A      LDA $7A
AC1E   A4 7B      LDY $7B
AC20   85 4B      STA $4B
AC22   84 4C      STY $4C
AC24   A6 43      LDX $43
AC26   A4 44      LDY $44
AC28   86 7A      STX $7A
AC2A   84 7B      STY $7B
AC2C   20 79 00   JSR $0079
AC2F   D0 20      BNE $AC51
AC31   24 11      BIT $11
AC33   50 0C      BVC $AC41
AC35   20 24 E1   JSR $E124
AC38   8D 00 02   STA $0200
AC3B   A2 FF      LDX #$FF
AC3D   A0 01      LDY #$01
AC3F   D0 0C      BNE $AC4D
AC41   30 75      BMI $ACB8
AC43   A5 13      LDA $13
AC45   D0 03      BNE $AC4A
AC47   20 45 AB   JSR $AB45
AC4A   20 F9 AB   JSR $ABF9
AC4D   86 7A      STX $7A
AC4F   84 7B      STY $7B

AC51   20 73 00   JSR $0073

AC54   24 0D      BIT $0D
AC56   10 31      BPL $AC89
AC58   24 11      BIT $11
AC5A   50 09      BVC $AC65
AC5C   E8         INX
AC5D   86 7A      STX $7A
AC5F   A9 00      LDA #$00
AC61   85 07      STA $07
AC63   F0 0C      BEQ $AC71
AC65   85 07      STA $07
AC67   C9 22      CMP #$22   ; quote mark
AC69   F0 07      BEQ $AC72
AC6B   A9 3A      LDA #$3A   ; colon
AC6D   85 07      STA $07
AC6F   A9 2C      LDA #$2C   ; comma
AC71   18         CLC
AC72   85 08      STA $08
AC74   A5 7A      LDA $7A
AC76   A4 7B      LDY $7B
AC78   69 00      ADC #$00
AC7A   90 01      BCC $AC7D
AC7C   C8         INY
AC7D   20 8D B4   JSR $B48D
AC80   20 E2 B7   JSR $B7E2
AC83   20 DA A9   JSR $A9DA
AC86   4C 91 AC   JMP $AC91

AC89   20 F3 BC   JSR $BCF3
AC8C   A5 0E      LDA $0E
AC8E   20 C2 A9   JSR $A9C2

AC91   20 79 00   JSR $0079

AC94   F0 07      BEQ $AC9D
AC96   C9 2C      CMP #$2C   ; comma
AC98   F0 03      BEQ $AC9D
AC9A   4C 4D AB   JMP $AB4D

AC9D   A5 7A      LDA $7A
AC9F   A4 7B      LDY $7B
ACA1   85 43      STA $43
ACA3   84 44      STY $44
ACA5   A5 4B      LDA $4B
ACA7   A4 4C      LDY $4C
ACA9   85 7A      STA $7A
ACAB   84 7B      STY $7B
ACAD   20 79 00   JSR $0079
ACB0   F0 2D      BEQ $ACDF
ACB2   20 FD AE   JSR $AEFD
ACB5   4C 15 AC   JMP $AC15

ACB8   20 06 A9   JSR $A906
ACBB   C8         INY
ACBC   AA         TAX
ACBD   D0 12      BNE $ACD1
ACBF   A2 0D      LDX #$0D   ; error number
ACC1   C8         INY
ACC2   B1 7A      LDA ($7A),Y
ACC4   F0 6C      BEQ $AD32
ACC6   C8         INY
ACC7   B1 7A      LDA ($7A),Y
ACC9   85 3F      STA $3F
ACCB   C8         INY
ACCC   B1 7A      LDA ($7A),Y
ACCE   C8         INY
ACCF   85 40      STA $40
ACD1   20 FB A8   JSR $A8FB
ACD4   20 79 00   JSR $0079
ACD7   AA         TAX
ACD8   E0 83      CPX #$83   ; DATA code
ACDA   D0 DC      BNE $ACB8
ACDC   4C 51 AC   JMP $AC51

ACDF   A5 43      LDA $43
ACE1   A4 44      LDY $44
ACE3   A6 11      LDX $11
ACE5   10 03      BPL $ACEA
ACE7   4C 27 A8   JMP $A827

ACEA   A0 00      LDY #$00
ACEC   B1 43      LDA ($43),Y
ACEE   F0 0B      BEQ $ACFB
ACF0   A5 13      LDA $13
ACF2   D0 07      BNE $ACFB
ACF4   A9 FC      LDA #$FC   ; low  ACFC
ACF6   A0 AC      LDY #$AC   ; high ACFC
ACF8   4C 1E AB   JMP $AB1E

ACFB   60         RTS

; messages used dring READ

; ?EXTRA IGNORED

ACFC   .BY $3F,$45,$58,$54,$52,$41
AD02   .BY $20,$49,$47,$4E,$4F,$52,$45,$44
AD0A   .BY $0D,$00

; ?REDO FROM START

AD0C   .BY $3F,$52,$45,$44,$4F
AD11   .BY $20,$46,$52,$4F,$4D
AD16   .BY $20,$53,$54,$41,$52,$54
AD1C   .BY $0D,$00


; NEXT command

AD1E   D0 04      BNE $AD24
AD20   A0 00      LDY #$00
AD22   F0 03      BEQ $AD27

AD24   20 8B B0   JSR $B08B

AD27   85 49      STA $49
AD29   84 4A      STY $4A
AD2B   20 8A A3   JSR $A38A
AD2E   F0 05      BEQ $AD35
AD30   A2 0A      LDX #$0A   ; error number
AD32   4C 37 A4   JMP $A437

AD35   9A         TXS
AD36   8A         TXA
AD37   18         CLC
AD38   69 04      ADC #$04
AD3A   48         PHA
AD3B   69 06      ADC #$06
AD3D   85 24      STA $24
AD3F   68         PLA
AD40   A0 01      LDY #$01
AD42   20 A2 BB   JSR $BBA2
AD45   BA         TSX
AD46   BD 09 01   LDA $0109,X
AD49   85 66      STA $66
AD4B   A5 49      LDA $49
AD4D   A4 4A      LDY $4A
AD4F   20 67 B8   JSR $B867
AD52   20 D0 BB   JSR $BBD0
AD55   A0 01      LDY #$01
AD57   20 5D BC   JSR $BC5D
AD5A   BA         TSX
AD5B   38         SEC
AD5C   FD 09 01   SBC $0109,X
AD5F   F0 17      BEQ $AD78
AD61   BD 0F 01   LDA $010F,X
AD64   85 39      STA $39
AD66   BD 10 01   LDA $0110,X
AD69   85 3A      STA $3A
AD6B   BD 12 01   LDA $0112,X
AD6E   85 7A      STA $7A
AD70   BD 11 01   LDA $0111,X
AD73   85 7B      STA $7B

AD75   4C AE A7   JMP $A7AE
AD78   8A         TXA
AD79   69 11      ADC #$11
AD7B   AA         TAX
AD7C   9A         TXS
AD7D   20 79 00   JSR $0079
AD80   C9 2C      CMP #$2C   ; comma
AD82   D0 F1      BNE $AD75
AD84   20 73 00   JSR $0073
AD87   20 24 AD   JSR $AD24


; get next non-string value

AD8A   20 9E AD   JSR $AD9E


AD8D   18         CLC

AD8E   .BY $24


; check value to be string

AD8F   38         SEC


; check value according to C flag

AD90   24 0D      BIT $0D
AD92   30 03      BMI $AD97
AD94   B0 03      BCS $AD99
AD96   60         RTS

AD97   B0 FD      BCS $AD96
AD99   A2 16      LDX #$16
AD9B   4C 37 A4   JMP $A437


; evaluate expression

AD9E   A6 7A      LDX $7A
ADA0   D0 02      BNE $ADA4
ADA2   C6 7B      DEC $7B
ADA4   C6 7A      DEC $7A
ADA6   A2 00      LDX #$00
ADA8   .BY $24

ADA9   48         PHA

ADAA   8A         TXA
ADAB   48         PHA
ADAC   A9 01      LDA #$01
ADAE   20 FB A3   JSR $A3FB
ADB1   20 83 AE   JSR $AE83
ADB4   A9 00      LDA #$00
ADB6   85 4D      STA $4D

ADB8   20 79 00   JSR $0079


ADBB   38         SEC

ADBC   E9 B1      SBC #$B1   ; code for greater than
ADBE   90 17      BCC $ADD7
ADC0   C9 03      CMP #$03
ADC2   B0 13      BCS $ADD7
ADC4   C9 01      CMP #$01
ADC6   2A         ROL
ADC7   49 01      EOR #$01
ADC9   45 4D      EOR $4D
ADCB   C5 4D      CMP $4D
ADCD   90 61      BCC $AE30
ADCF   85 4D      STA $4D
ADD1   20 73 00   JSR $0073
ADD4   4C BB AD   JMP $ADBB

ADD7   A6 4D      LDX $4D
ADD9   D0 2C      BNE $AE07
ADDB   B0 7B      BCS $AE58
ADDD   69 07      ADC #$07
ADDF   90 77      BCC $AE58
ADE1   65 0D      ADC $0D
ADE3   D0 03      BNE $ADE8
ADE5   4C 3D B6   JMP $B63D

ADE8   69 FF      ADC #$FF
ADEA   85 22      STA $22
ADEC   0A         ASL
ADED   65 22      ADC $22
ADEF   A8         TAY
ADF0   68         PLA
ADF1   D9 80 A0   CMP $A080,Y
ADF4   B0 67      BCS $AE5D
ADF6   20 8D AD   JSR $AD8D
ADF9   48         PHA

ADFA   20 20 AE   JSR $AE20

ADFD   68         PLA
ADFE   A4 4B      LDY $4B
AE00   10 17      BPL $AE19
AE02   AA         TAX
AE03   F0 56      BEQ $AE5B
AE05   D0 5F      BNE $AE66
AE07   46 0D      LSR $0D
AE09   8A         TXA
AE0A   2A         ROL
AE0B   A6 7A      LDX $7A
AE0D   D0 02      BNE $AE11
AE0F   C6 7B      DEC $7B
AE11   C6 7A      DEC $7A
AE13   A0 1B      LDY #$1B
AE15   85 4D      STA $4D
AE17   D0 D7      BNE $ADF0
AE19   D9 80 A0   CMP $A080,Y
AE1C   B0 48      BCS $AE66
AE1E   90 D9      BCC $ADF9


; recursive entry for evaluation of expressions

AE20   B9 82 A0   LDA $A082,Y
AE23   48         PHA
AE24   B9 81 A0   LDA $A081,Y
AE27   48         PHA
AE28   20 33 AE   JSR $AE33
AE2B   A5 4D      LDA $4D
AE2D   4C A9 AD   JMP $ADA9
AE30   4C 08 AF   JMP $AF08


; save rounded value of left operand

AE33   A5 66      LDA $66
AE35   BE 80 A0   LDX $A080,Y

AE38   A8         TAY

AE39   68         PLA   ; pull return address
AE3A   85 22      STA $22
AE3C   E6 22      INC $22
AE3E   68         PLA   ; and store in $22/$23
AE3F   85 23      STA $23
AE41   98         TYA
AE42   48         PHA

AE43   20 1B BC   JSR $BC1B

AE46   A5 65      LDA $65
AE48   48         PHA
AE49   A5 64      LDA $64
AE4B   48         PHA
AE4C   A5 63      LDA $63
AE4E   48         PHA
AE4F   A5 62      LDA $62
AE51   48         PHA
AE52   A5 61      LDA $61
AE54   48         PHA
AE55   6C 22 00   JMP ($0022)   ; return to caller


; apply operator

AE58   A0 FF      LDY #$FF
AE5A   68         PLA
AE5B   F0 23      BEQ $AE80
AE5D   C9 64      CMP #$64
AE5F   F0 03      BEQ $AE64
AE61   20 8D AD   JSR $AD8D
AE64   84 4B      STY $4B
AE66   68         PLA
AE67   4A         LSR
AE68   85 12      STA $12
AE6A   68         PLA
AE6B   85 69      STA $69
AE6D   68         PLA
AE6E   85 6A      STA $6A
AE70   68         PLA
AE71   85 6B      STA $6B
AE73   68         PLA
AE74   85 6C      STA $6C
AE76   68         PLA
AE77   85 6D      STA $6D
AE79   68         PLA
AE7A   85 6E      STA $6E
AE7C   45 66      EOR $66
AE7E   85 6F      STA $6F
AE80   A5 61      LDA $61
AE82   60         RTS


; get arithmetic element routine

AE83   6C 0A 03   JMP ($030A)   ; normally AE86


; standard arithmetic element

AE86   A9 00      LDA #$00
AE88   85 0D      STA $0D
AE8A   20 73 00   JSR $0073
AE8D   B0 03      BCS $AE92
AE8F   4C F3 BC   JMP $BCF3

AE92   20 13 B1   JSR $B113
AE95   90 03      BCC $AE9A
AE97   4C 28 AF   JMP $AF28

AE9A   C9 FF      CMP #$FF   ; PI
AE9C   D0 0F      BNE $AEAD
AE9E   A9 A8      LDA #$A8   ; low  AEA8
AEA0   A0 AE      LDY #$AE   ; high AEA8
AEA2   20 A2 BB   JSR $BBA2
AEA5   4C 73 00   JMP $0073


; float value of PI

AEA8   .BY $82,$49,$0F,$DA,$A1

AEAD   C9 2E      CMP #$2E   ; decimal point
AEAF   F0 DE      BEQ $AE8F
AEB1   C9 AB      CMP #$AB   ; plus code
AEB3   F0 58      BEQ $AF0D
AEB5   C9 AA      CMP #$AA   ; times code
AEB7   F0 D1      BEQ $AE8A
AEB9   C9 22      CMP #$22   ; quote mark
AEBB   D0 0F      BNE $AECC

AEBD   A5 7A      LDA $7A

AEBF   A4 7B      LDY $7B
AEC1   69 00      ADC #$00
AEC3   90 01      BCC $AEC6
AEC5   C8         INY
AEC6   20 87 B4   JSR $B487
AEC9   4C E2 B7   JMP $B7E2

AECC   C9 A8      CMP #$A8   ; NOT code
AECE   D0 13      BNE $AEE3
AED0   A0 18      LDY #$18
AED2   D0 3B      BNE $AF0F


; NOT operator

AED4   20 BF B1   JSR $B1BF
AED7   A5 65      LDA $65
AED9   49 FF      EOR #$FF
AEDB   A8         TAY
AEDC   A5 64      LDA $64
AEDE   49 FF      EOR #$FF
AEE0   4C 91 B3   JMP $B391


; GET operand

AEE3   C9 A5      CMP #$A5
AEE5   D0 03      BNE $AEEA
AEE7   4C F4 B3   JMP $B3F4

AEEA   C9 B4      CMP #$B4    ; SGN code or higher
AEEC   90 03      BCC $AEF1
AEEE   4C A7 AF   JMP $AFA7


AEF1   20 FA AE   JSR $AEFA

AEF4   20 9E AD   JSR $AD9E


; check and skip characters

AEF7   A9 29      LDA #$29   ; )
AEF9   .BY 2C

AEFA   A9 28      LDA #$28   ; (

AEFC   .BY 2C

AEFD   A9 2C      LDA #$2C   ; comma


AEFF   A0 00      LDY #$00

AF01   D1 7A      CMP ($7A),Y
AF03   D0 03      BNE $AF08
AF05   4C 73 00   JMP $0073


AF08   A2 0B      LDX #$0B   ; error number

AF0A   4C 37 A4   JMP $A437


; recursive geet value

AF0D   A0 15      LDY #$15
AF0F   68         PLA
AF10   68         PLA
AF11   4C FA AD   JMP $ADFA


; check variable pointer range

AF14   38         SEC
AF15   A5 64      LDA $64
AF17   E9 00      SBC #$00
AF19   A5 65      LDA $65
AF1B   E9 A0      SBC #$A0
AF1D   90 08      BCC $AF27
AF1F   A9 A2      LDA #$A2
AF21   E5 64      SBC $64
AF23   A9 E3      LDA #$E3
AF25   E5 65      SBC $65
AF27   60         RTS


; get value of variable

AF28   20 8B B0   JSR $B08B
AF2B   85 64      STA $64
AF2D   84 65      STY $65
AF2F   A6 45      LDX $45
AF31   A4 46      LDY $46
AF33   A5 0D      LDA $0D
AF35   F0 26      BEQ $AF5D
AF37   A9 00      LDA #$00
AF39   85 70      STA $70
AF3B   20 14 AF   JSR $AF14
AF3E   90 1C      BCC $AF5C
AF40   E0 54      CPX #$54   ; T
AF42   D0 18      BNE $AF5C
AF44   C0 C9      CPY #$C9   ; I$
AF46   D0 14      BNE $AF5C
AF48   20 84 AF   JSR $AF84
AF4B   84 5E      STY $5E
AF4D   88         DEY
AF4E   84 71      STY $71
AF50   A0 06      LDY #$06
AF52   84 5D      STY $5D
AF54   A0 24      LDY #$24
AF56   20 68 BE   JSR $BE68
AF59   4C 6F B4   JMP $B46F

AF5C   60         RTS

AF5D   24 0E      BIT $0E
AF5F   10 0D      BPL $AF6E
AF61   A0 00      LDY #$00
AF63   B1 64      LDA ($64),Y
AF65   AA         TAX
AF66   C8         INY
AF67   B1 64      LDA ($64),Y
AF69   A8         TAY
AF6A   8A         TXA
AF6B   4C 91 B3   JMP $B391

AF6E   20 14 AF   JSR $AF14
AF71   90 2D      BCC $AFA0
AF73   E0 54      CPX #$54   ; T
AF75   D0 1B      BNE $AF92
AF77   C0 49      CPY #$49   ; I
AF79   D0 25      BNE $AFA0
AF7B   20 84 AF   JSR $AF84
AF7E   98         TYA
AF7F   A2 A0      LDX #$A0
AF81   4C 4F BC   JMP $BC4F


; get time in float accu

AF84   20 DE FF   JSR $FFDE
AF87   86 64      STX $64
AF89   84 63      STY $63
AF8B   85 65      STA $65
AF8D   A0 00      LDY #$00
AF8F   84 62      STY $62
AF91   60         RTS


; continue of get value of variable

AF92   E0 53      CPX #$53   ; S
AF94   D0 0A      BNE $AFA0
AF96   C0 54      CPY #$54   ; T
AF98   D0 06      BNE $AFA0
AF9A   20 B7 FF   JSR $FFB7
AF9D   4C 3C BC   JMP $BC3C

AFA0   A5 64      LDA $64
AFA2   A4 65      LDY $65
AFA4   4C A2 BB   JMP $BBA2


; apply function

AFA7   0A         ASL
AFA8   48         PHA
AFA9   AA         TAX
AFAA   20 73 00   JSR $0073
AFAD   E0 8F      CPX #$8F
AFAF   90 20      BCC $AFD1
AFB1   20 FA AE   JSR $AEFA
AFB4   20 9E AD   JSR $AD9E
AFB7   20 FD AE   JSR $AEFD
AFBA   20 8F AD   JSR $AD8F
AFBD   68         PLA
AFBE   AA         TAX
AFBF   A5 65      LDA $65
AFC1   48         PHA
AFC2   A5 64      LDA $64
AFC4   48         PHA
AFC5   8A         TXA
AFC6   48         PHA
AFC7   20 9E B7   JSR $B79E
AFCA   68         PLA
AFCB   A8         TAY
AFCC   8A         TXA
AFCD   48         PHA
AFCE   4C D6 AF   JMP $AFD6

AFD1   20 F1 AE   JSR $AEF1
AFD4   68         PLA
AFD5   A8         TAY

AFD6   B9 EA 9F   LDA $9FEA,Y

AFD9   85 55      STA $55
AFDB   B9 EB 9F   LDA $9FEB,Y
AFDE   85 56      STA $56
AFE0   20 54 00   JSR $0054
AFE3   4C 8D AD   JMP $AD8D


; OR operator

AFE6   A0 FF      LDY #$FF
AFE8   .BY $2C


; AND operator

AFE9   A0 00      LDY #$00
AFEB   84 0B      STY $0B
AFED   20 BF B1   JSR $B1BF
AFF0   A5 64      LDA $64
AFF2   45 0B      EOR $0B
AFF4   85 07      STA $07
AFF6   A5 65      LDA $65
AFF8   45 0B      EOR $0B
AFFA   85 08      STA $08
AFFC   20 FC BB   JSR $BBFC
AFFF   20 BF B1   JSR $B1BF
B002   A5 65      LDA $65
B004   45 0B      EOR $0B
B006   25 08      AND $08
B008   45 0B      EOR $0B
B00A   A8         TAY
B00B   A5 64      LDA $64
B00D   45 0B      EOR $0B
B00F   25 07      AND $07
B011   45 0B      EOR $0B
B013   4C 91 B3   JMP $B391


; greater/equal/less operator

B016   20 90 AD   JSR $AD90
B019   B0 13      BCS $B02E
B01B   A5 6E      LDA $6E
B01D   09 7F      ORA #$7F
B01F   25 6A      AND $6A
B021   85 6A      STA $6A
B023   A9 69      LDA #$69
B025   A0 00      LDY #$00
B027   20 5B BC   JSR $BC5B
B02A   AA         TAX
B02B   4C 61 B0   JMP $B061

B02E   A9 00      LDA #$00
B030   85 0D      STA $0D
B032   C6 4D      DEC $4D
B034   20 A6 B6   JSR $B6A6
B037   85 61      STA $61
B039   86 62      STX $62
B03B   84 63      STY $63
B03D   A5 6C      LDA $6C
B03F   A4 6D      LDY $6D
B041   20 AA B6   JSR $B6AA
B044   86 6C      STX $6C
B046   84 6D      STY $6D
B048   AA         TAX
B049   38         SEC
B04A   E5 61      SBC $61
B04C   F0 08      BEQ $B056
B04E   A9 01      LDA #$01
B050   90 04      BCC $B056
B052   A6 61      LDX $61
B054   A9 FF      LDA #$FF
B056   85 66      STA $66
B058   A0 FF      LDY #$FF
B05A   E8         INX
B05B   C8         INY
B05C   CA         DEX
B05D   D0 07      BNE $B066
B05F   A6 66      LDX $66

B061   30 0F      BMI $B072

B063   18         CLC
B064   90 0C      BCC $B072
B066   B1 6C      LDA ($6C),Y
B068   D1 62      CMP ($62),Y
B06A   F0 EF      BEQ $B05B
B06C   A2 FF      LDX #$FF
B06E   B0 02      BCS $B072
B070   A2 01      LDX #$01
B072   E8         INX
B073   8A         TXA
B074   2A         ROL
B075   25 12      AND $12
B077   F0 02      BEQ $B07B
B079   A9 FF      LDA #$FF
B07B   4C 3C BC   JMP $BC3C


; DIM command

B07E   20 FD AE   JSR $AEFD

B081   AA         TAX

B082   20 90 B0   JSR $B090
B085   20 79 00   JSR $0079
B088   D0 F4      BNE $B07E
B08A   60         RTS


; get name and pointer to a variable

B08B   A2 00      LDX #$00
B08D   20 79 00   JSR $0079

B090   86 0C      STX $0C


B092   85 45      STA $45

B094   20 79 00   JSR $0079
B097   20 13 B1   JSR $B113
B09A   B0 03      BCS $B09F
B09C   4C 08 AF   JMP $AF08

B09F   A2 00      LDX #$00
B0A1   86 0D      STX $0D
B0A3   86 0E      STX $0E
B0A5   20 73 00   JSR $0073
B0A8   90 05      BCC $B0AF
B0AA   20 13 B1   JSR $B113
B0AD   90 0B      BCC $B0BA
B0AF   AA         TAX
B0B0   20 73 00   JSR $0073
B0B3   90 FB      BCC $B0B0
B0B5   20 13 B1   JSR $B113
B0B8   B0 F6      BCS $B0B0
B0BA   C9 24      CMP #$24   ; $
B0BC   D0 06      BNE $B0C4
B0BE   A9 FF      LDA #$FF
B0C0   85 0D      STA $0D
B0C2   D0 10      BNE $B0D4
B0C4   C9 25      CMP #$25   ; %
B0C6   D0 13      BNE $B0DB
B0C8   A5 10      LDA $10
B0CA   D0 D0      BNE $B09C
B0CC   A9 80      LDA #$80
B0CE   85 0E      STA $0E
B0D0   05 45      ORA $45
B0D2   85 45      STA $45
B0D4   8A         TXA
B0D5   09 80      ORA #$80
B0D7   AA         TAX
B0D8   20 73 00   JSR $0073
B0DB   86 46      STX $46
B0DD   38         SEC
B0DE   05 10      ORA $10
B0E0   E9 28      SBC #$28    ; (
B0E2   D0 03      BNE $B0E7
B0E4   4C D1 B1   JMP $B1D1

B0E7   A0 00      LDY #$00
B0E9   84 10      STY $10
B0EB   A5 2D      LDA $2D
B0ED   A6 2E      LDX $2E
B0EF   86 60      STX $60
B0F1   85 5F      STA $5F
B0F3   E4 30      CPX $30
B0F5   D0 04      BNE $B0FB
B0F7   C5 2F      CMP $2F
B0F9   F0 22      BEQ $B11D
B0FB   A5 45      LDA $45
B0FD   D1 5F      CMP ($5F),Y
B0FF   D0 08      BNE $B109
B101   A5 46      LDA $46
B103   C8         INY
B104   D1 5F      CMP ($5F),Y
B106   F0 7D      BEQ $B185
B108   88         DEY
B109   18         CLC
B10A   A5 5F      LDA $5F
B10C   69 07      ADC #$07
B10E   90 E1      BCC $B0F1
B110   E8         INX
B111   D0 DC      BNE $B0EF


; check character in A
; C=1 if alphabetic, C=0 if not

B113   C9 41      CMP #$41   ; A
B115   90 05      BCC $B11C
B117   E9 5B      SBC #$5B   ; Z
B119   38         SEC
B11A   E9 A5      SBC #$A5
B11C   60         RTS


; variable not found

B11D   68         PLA
B11E   48         PHA
B11F   C9 2A      CMP #$2A
B121   D0 05      BNE $B128
B123   A9 13      LDA #$13
B125   A0 BF      LDY #$BF
B127   60         RTS

B128   A5 45      LDA $45
B12A   A4 46      LDY $46
B12C   C9 54      CMP #$54   ; T
B12E   D0 0B      BNE $B13B
B130   C0 C9      CPY #$C9   ; I$
B132   F0 EF      BEQ $B123
B134   C0 49      CPY #$49   ; I
B136   D0 03      BNE $B13B
B138   4C 08 AF   JMP $AF08

B13B   C9 53      CMP #$53   ; S
B13D   D0 04      BNE $B143
B13F   C0 54      CPY #$54   ; T
B141   F0 F5      BEQ $B138
B143   A5 2F      LDA $2F
B145   A4 30      LDY $30
B147   85 5F      STA $5F
B149   84 60      STY $60
B14B   A5 31      LDA $31
B14D   A4 32      LDY $32
B14F   85 5A      STA $5A
B151   84 5B      STY $5B
B153   18         CLC
B154   69 07      ADC #$07
B156   90 01      BCC $B159
B158   C8         INY
B159   85 58      STA $58
B15B   84 59      STY $59
B15D   20 B8 A3   JSR $A3B8
B160   A5 58      LDA $58
B162   A4 59      LDY $59
B164   C8         INY
B165   85 2F      STA $2F
B167   84 30      STY $30
B169   A0 00      LDY #$00
B16B   A5 45      LDA $45
B16D   91 5F      STA ($5F),Y
B16F   C8         INY
B170   A5 46      LDA $46
B172   91 5F      STA ($5F),Y
B174   A9 00      LDA #$00
B176   C8         INY
B177   91 5F      STA ($5F),Y
B179   C8         INY
B17A   91 5F      STA ($5F),Y
B17C   C8         INY
B17D   91 5F      STA ($5F),Y
B17F   C8         INY
B180   91 5F      STA ($5F),Y
B182   C8         INY
B183   91 5F      STA ($5F),Y


; variable found

B185   A5 5F      LDA $5F
B187   18         CLC
B188   69 02      ADC #$02
B18A   A4 60      LDY $60
B18C   90 01      BCC $B18F
B18E   C8         INY
B18F   85 47      STA $47
B191   84 48      STY $48
B193   60         RTS


; compute pointer to array body

B194   A5 0B      LDA $0B
B196   0A         ASL
B197   69 05      ADC #$05
B199   65 5F      ADC $5F
B19B   A4 60      LDY $60
B19D   90 01      BCC $B1A0
B19F   C8         INY
B1A0   85 58      STA $58
B1A2   84 59      STY $59
B1A4   60         RTS


; float number for conversion to integer

B1A5   .BY $90,$80,$00,$00,$00


; routine to convert float to fixed point

B1AA   20 BF B1   JSR $B1BF
B1AD   A5 64      LDA $64
B1AF   A4 65      LDY $65
B1B1   60         RTS


; convert value from statement to integer

B1B2   20 73 00   JSR $0073
B1B5   20 9E AD   JSR $AD9E

B1B8   20 8D AD   JSR $AD8D

B1BB   A5 66      LDA $66
B1BD   30 0D      BMI $B1CC


; convert float number to integer

B1BF   A5 61      LDA $61
B1C1   C9 90      CMP #$90
B1C3   90 09      BCC $B1CE
B1C5   A9 A5      LDA #$A5   ; low  B1A5
B1C7   A0 B1      LDY #$B1   ; high B1A5
B1C9   20 5B BC   JSR $BC5B
B1CC   D0 7A      BNE $B248
B1CE   4C 9B BC   JMP $BC9B


; get pointer to dimensioned variable

B1D1   A5 0C      LDA $0C
B1D3   05 0E      ORA $0E
B1D5   48         PHA
B1D6   A5 0D      LDA $0D
B1D8   48         PHA
B1D9   A0 00      LDY #$00
B1DB   98         TYA
B1DC   48         PHA
B1DD   A5 46      LDA $46
B1DF   48         PHA
B1E0   A5 45      LDA $45
B1E2   48         PHA
B1E3   20 B2 B1   JSR $B1B2
B1E6   68         PLA
B1E7   85 45      STA $45
B1E9   68         PLA
B1EA   85 46      STA $46
B1EC   68         PLA
B1ED   A8         TAY
B1EE   BA         TSX
B1EF   BD 02 01   LDA $0102,X
B1F2   48         PHA
B1F3   BD 01 01   LDA $0101,X
B1F6   48         PHA
B1F7   A5 64      LDA $64
B1F9   9D 02 01   STA $0102,X
B1FC   A5 65      LDA $65
B1FE   9D 01 01   STA $0101,X
B201   C8         INY
B202   20 79 00   JSR $0079
B205   C9 2C      CMP #$2C   ; comma
B207   F0 D2      BEQ $B1DB
B209   84 0B      STY $0B
B20B   20 F7 AE   JSR $AEF7
B20E   68         PLA
B20F   85 0D      STA $0D
B211   68         PLA
B212   85 0E      STA $0E
B214   29 7F      AND #$7F
B216   85 0C      STA $0C
B218   A6 2F      LDX $2F
B21A   A5 30      LDA $30
B21C   86 5F      STX $5F
B21E   85 60      STA $60
B220   C5 32      CMP $32
B222   D0 04      BNE $B228
B224   E4 31      CPX $31
B226   F0 39      BEQ $B261
B228   A0 00      LDY #$00
B22A   B1 5F      LDA ($5F),Y
B22C   C8         INY
B22D   C5 45      CMP $45
B22F   D0 06      BNE $B237
B231   A5 46      LDA $46
B233   D1 5F      CMP ($5F),Y
B235   F0 16      BEQ $B24D
B237   C8         INY
B238   B1 5F      LDA ($5F),Y
B23A   18         CLC
B23B   65 5F      ADC $5F
B23D   AA         TAX
B23E   C8         INY
B23F   B1 5F      LDA ($5F),Y
B241   65 60      ADC $60
B243   90 D7      BCC $B21C

B245   A2 12      LDX #$12   ; error number

B247   .BY 2C

B248   A2 0E      LDX #$0E   ; error number

B24A   4C 37 A4   JMP $A437

B24D   A2 13      LDX #$13   ; error number
B24F   A5 0C      LDA $0C
B251   D0 F7      BNE $B24A
B253   20 94 B1   JSR $B194
B256   A5 0B      LDA $0B
B258   A0 04      LDY #$04
B25A   D1 5F      CMP ($5F),Y
B25C   D0 E7      BNE $B245
B25E   4C EA B2   JMP $B2EA


; allocate array

B261   20 94 B1   JSR $B194
B264   20 08 A4   JSR $A408
B267   A0 00      LDY #$00
B269   84 72      STY $72
B26B   A2 05      LDX #$05
B26D   A5 45      LDA $45
B26F   91 5F      STA ($5F),Y
B271   10 01      BPL $B274
B273   CA         DEX
B274   C8         INY
B275   A5 46      LDA $46
B277   91 5F      STA ($5F),Y
B279   10 02      BPL $B27D
B27B   CA         DEX
B27C   CA         DEX
B27D   86 71      STX $71
B27F   A5 0B      LDA $0B
B281   C8         INY
B282   C8         INY
B283   C8         INY
B284   91 5F      STA ($5F),Y
B286   A2 0B      LDX #$0B
B288   A9 00      LDA #$00
B28A   24 0C      BIT $0C
B28C   50 08      BVC $B296
B28E   68         PLA
B28F   18         CLC
B290   69 01      ADC #$01
B292   AA         TAX
B293   68         PLA
B294   69 00      ADC #$00
B296   C8         INY
B297   91 5F      STA ($5F),Y
B299   C8         INY
B29A   8A         TXA
B29B   91 5F      STA ($5F),Y
B29D   20 4C B3   JSR $B34C
B2A0   86 71      STX $71
B2A2   85 72      STA $72
B2A4   A4 22      LDY $22
B2A6   C6 0B      DEC $0B
B2A8   D0 DC      BNE $B286
B2AA   65 59      ADC $59
B2AC   B0 5D      BCS $B30B
B2AE   85 59      STA $59
B2B0   A8         TAY
B2B1   8A         TXA
B2B2   65 58      ADC $58
B2B4   90 03      BCC $B2B9
B2B6   C8         INY
B2B7   F0 52      BEQ $B30B
B2B9   20 08 A4   JSR $A408
B2BC   85 31      STA $31
B2BE   84 32      STY $32
B2C0   A9 00      LDA #$00
B2C2   E6 72      INC $72
B2C4   A4 71      LDY $71
B2C6   F0 05      BEQ $B2CD
B2C8   88         DEY
B2C9   91 58      STA ($58),Y
B2CB   D0 FB      BNE $B2C8
B2CD   C6 59      DEC $59
B2CF   C6 72      DEC $72
B2D1   D0 F5      BNE $B2C8
B2D3   E6 59      INC $59
B2D5   38         SEC
B2D6   A5 31      LDA $31
B2D8   E5 5F      SBC $5F
B2DA   A0 02      LDY #$02
B2DC   91 5F      STA ($5F),Y
B2DE   A5 32      LDA $32
B2E0   C8         INY
B2E1   E5 60      SBC $60
B2E3   91 5F      STA ($5F),Y
B2E5   A5 0C      LDA $0C
B2E7   D0 62      BNE $B34B
B2E9   C8         INY


; compute reference to array element

B2EA   B1 5F      LDA ($5F),Y
B2EC   85 0B      STA $0B
B2EE   A9 00      LDA #$00
B2F0   85 71      STA $71
B2F2   85 72      STA $72
B2F4   C8         INY
B2F5   68         PLA
B2F6   AA         TAX
B2F7   85 64      STA $64
B2F9   68         PLA
B2FA   85 65      STA $65
B2FC   D1 5F      CMP ($5F),Y
B2FE   90 0E      BCC $B30E
B300   D0 06      BNE $B308
B302   C8         INY
B303   8A         TXA
B304   D1 5F      CMP ($5F),Y
B306   90 07      BCC $B30F
B308   4C 45 B2   JMP $B245

B30B   4C 35 A4   JMP $A435

B30E   C8         INY
B30F   A5 72      LDA $72
B311   05 71      ORA $71
B313   18         CLC
B314   F0 0A      BEQ $B320
B316   20 4C B3   JSR $B34C
B319   8A         TXA
B31A   65 64      ADC $64
B31C   AA         TAX
B31D   98         TYA
B31E   A4 22      LDY $22
B320   65 65      ADC $65
B322   86 71      STX $71
B324   C6 0B      DEC $0B
B326   D0 CA      BNE $B2F2
B328   85 72      STA $72
B32A   A2 05      LDX #$05
B32C   A5 45      LDA $45
B32E   10 01      BPL $B331
B330   CA         DEX
B331   A5 46      LDA $46
B333   10 02      BPL $B337
B335   CA         DEX
B336   CA         DEX
B337   86 28      STX $28
B339   A9 00      LDA #$00
B33B   20 55 B3   JSR $B355
B33E   8A         TXA
B33F   65 58      ADC $58
B341   85 47      STA $47
B343   98         TYA
B344   65 59      ADC $59
B346   85 48      STA $48
B348   A8         TAY
B349   A5 47      LDA $47
B34B   60         RTS


; XY = XA = length * limit from array data

B34C   84 22      STY $22
B34E   B1 5F      LDA ($5F),Y
B350   85 28      STA $28
B352   88         DEY
B353   B1 5F      LDA ($5F),Y

B355   85 29      STA $29

B357   A9 10      LDA #$10
B359   85 5D      STA $5D
B35B   A2 00      LDX #$00
B35D   A0 00      LDY #$00
B35F   8A         TXA
B360   0A         ASL
B361   AA         TAX
B362   98         TYA
B363   2A         ROL
B364   A8         TAY
B365   B0 A4      BCS $B30B
B367   06 71      ASL $71
B369   26 72      ROL $72
B36B   90 0B      BCC $B378
B36D   18         CLC
B36E   8A         TXA
B36F   65 28      ADC $28
B371   AA         TAX
B372   98         TYA
B373   65 29      ADC $29
B375   A8         TAY
B376   B0 93      BCS $B30B
B378   C6 5D      DEC $5D
B37A   D0 E3      BNE $B35F
B37C   60         RTS


; FRE function

B37D   A5 0D      LDA $0D
B37F   F0 03      BEQ $B384
B381   20 A6 B6   JSR $B6A6
B384   20 26 B5   JSR $B526
B387   38         SEC
B388   A5 33      LDA $33
B38A   E5 31      SBC $31
B38C   A8         TAY
B38D   A5 34      LDA $34
B38F   E5 32      SBC $32


; routine to convert integer to float

B391   A2 00      LDX #$00
B393   86 0D      STX $0D
B395   85 62      STA $62
B397   84 63      STY $63
B399   A2 90      LDX #$90
B39B   4C 44 BC   JMP $BC44


; POS function

B39E   38         SEC
B39F   20 F0 FF   JSR $FFF0

B3A2   A9 00      LDA #$00

B3A4   F0 EB      BEQ $B391


; check for non-direct mode

B3A6   A6 3A      LDX $3A
B3A8   E8         INX
B3A9   D0 A0      BNE $B34B
B3AB   A2 15      LDX #$15   ; error number
B3AD   .BY $2C
B3AE   A2 1B      LDX #$1B   ; error number
B3B0   4C 37 A4   JMP $A437


; DEF command

B3B3   20 E1 B3   JSR $B3E1
B3B6   20 A6 B3   JSR $B3A6
B3B9   20 FA AE   JSR $AEFA
B3BC   A9 80      LDA #$80
B3BE   85 10      STA $10
B3C0   20 8B B0   JSR $B08B
B3C3   20 8D AD   JSR $AD8D
B3C6   20 F7 AE   JSR $AEF7
B3C9   A9 B2      LDA #$B2
B3CB   20 FF AE   JSR $AEFF
B3CE   48         PHA
B3CF   A5 48      LDA $48
B3D1   48         PHA
B3D2   A5 47      LDA $47
B3D4   48         PHA
B3D5   A5 7B      LDA $7B
B3D7   48         PHA
B3D8   A5 7A      LDA $7A
B3DA   48         PHA
B3DB   20 F8 A8   JSR $A8F8
B3DE   4C 4F B4   JMP $B44F


; get function name

B3E1   A9 A5      LDA #$A5
B3E3   20 FF AE   JSR $AEFF
B3E6   09 80      ORA #$80
B3E8   85 10      STA $10
B3EA   20 92 B0   JSR $B092
B3ED   85 4E      STA $4E
B3EF   84 4F      STY $4F
B3F1   4C 8D AD   JMP $AD8D


; expand FN call

B3F4   20 E1 B3   JSR $B3E1
B3F7   A5 4F      LDA $4F
B3F9   48         PHA
B3FA   A5 4E      LDA $4E
B3FC   48         PHA
B3FD   20 F1 AE   JSR $AEF1
B400   20 8D AD   JSR $AD8D
B403   68         PLA
B404   85 4E      STA $4E
B406   68         PLA
B407   85 4F      STA $4F
B409   A0 02      LDY #$02
B40B   B1 4E      LDA ($4E),Y
B40D   85 47      STA $47
B40F   AA         TAX
B410   C8         INY
B411   B1 4E      LDA ($4E),Y
B413   F0 99      BEQ $B3AE
B415   85 48      STA $48
B417   C8         INY
B418   B1 47      LDA ($47),Y
B41A   48         PHA
B41B   88         DEY
B41C   10 FA      BPL $B418
B41E   A4 48      LDY $48
B420   20 D4 BB   JSR $BBD4
B423   A5 7B      LDA $7B
B425   48         PHA
B426   A5 7A      LDA $7A
B428   48         PHA
B429   B1 4E      LDA ($4E),Y
B42B   85 7A      STA $7A
B42D   C8         INY
B42E   B1 4E      LDA ($4E),Y
B430   85 7B      STA $7B
B432   A5 48      LDA $48
B434   48         PHA
B435   A5 47      LDA $47
B437   48         PHA
B438   20 8A AD   JSR $AD8A
B43B   68         PLA
B43C   85 4E      STA $4E
B43E   68         PLA
B43F   85 4F      STA $4F
B441   20 79 00   JSR $0079
B444   F0 03      BEQ $B449
B446   4C 08 AF   JMP $AF08

B449   68         PLA
B44A   85 7A      STA $7A
B44C   68         PLA
B44D   85 7B      STA $7B

B44F   A0 00      LDY #$00

B451   68         PLA
B452   91 4E      STA ($4E),Y
B454   68         PLA
B455   C8         INY
B456   91 4E      STA ($4E),Y
B458   68         PLA
B459   C8         INY
B45A   91 4E      STA ($4E),Y
B45C   68         PLA
B45D   C8         INY
B45E   91 4E      STA ($4E),Y
B460   68         PLA
B461   C8         INY
B462   91 4E      STA ($4E),Y
B464   60         RTS


; STR$ function

B465   20 8D AD   JSR $AD8D
B468   A0 00      LDY #$00
B46A   20 DF BD   JSR $BDDF
B46D   68         PLA
B46E   68         PLA

B46F   A9 FF      LDA #$FF

B471   A0 00      LDY #$00
B473   F0 12      BEQ $B487

B475   A6 64      LDX $64

B477   A4 65      LDY $65
B479   86 50      STX $50
B47B   84 51      STY $51


; allocate area according to A

B47D   20 F4 B4   JSR $B4F4
B480   86 62      STX $62
B482   84 63      STY $63
B484   85 61      STA $61
B486   60         RTS


; get description of string into float accu

B487   A2 22      LDX #$22   ; quote mark
B489   86 07      STX $07
B48B   86 08      STX $08

B48D   85 6F      STA $6F

B48F   84 70      STY $70
B491   85 62      STA $62
B493   84 63      STY $63
B495   A0 FF      LDY #$FF
B497   C8         INY
B498   B1 6F      LDA ($6F),Y
B49A   F0 0C      BEQ $B4A8
B49C   C5 07      CMP $07
B49E   F0 04      BEQ $B4A4
B4A0   C5 08      CMP $08
B4A2   D0 F3      BNE $B497
B4A4   C9 22      CMP #$22   ; quote mark
B4A6   F0 01      BEQ $B4A9
B4A8   18         CLC
B4A9   84 61      STY $61
B4AB   98         TYA
B4AC   65 6F      ADC $6F
B4AE   85 71      STA $71
B4B0   A6 70      LDX $70
B4B2   90 01      BCC $B4B5
B4B4   E8         INX
B4B5   86 72      STX $72
B4B7   A5 70      LDA $70
B4B9   F0 04      BEQ $B4BF
B4BB   C9 02      CMP #$02
B4BD   D0 0B      BNE $B4CA
B4BF   98         TYA
B4C0   20 75 B4   JSR $B475
B4C3   A6 6F      LDX $6F
B4C5   A4 70      LDY $70
B4C7   20 88 B6   JSR $B688


; save descriptor from $61-$63 on stack

B4CA   A6 16      LDX $16
B4CC   E0 22      CPX #$22
B4CE   D0 05      BNE $B4D5
B4D0   A2 19      LDX #$19
B4D2   4C 37 A4   JMP $A437
B4D5   A5 61      LDA $61
B4D7   95 00      STA $00,X
B4D9   A5 62      LDA $62
B4DB   95 01      STA $01,X
B4DD   A5 63      LDA $63
B4DF   95 02      STA $02,X
B4E1   A0 00      LDY #$00
B4E3   86 64      STX $64
B4E5   84 65      STY $65
B4E7   84 70      STY $70
B4E9   88         DEY
B4EA   84 0D      STY $0D
B4EC   86 17      STX $17
B4EE   E8         INX
B4EF   E8         INX
B4F0   E8         INX
B4F1   86 16      STX $16
B4F3   60         RTS


; allocate number of bytes in A

B4F4   46 0F      LSR $0F
B4F6   48         PHA
B4F7   49 FF      EOR #$FF
B4F9   38         SEC
B4FA   65 33      ADC $33
B4FC   A4 34      LDY $34
B4FE   B0 01      BCS $B501
B500   88         DEY
B501   C4 32      CPY $32
B503   90 11      BCC $B516
B505   D0 04      BNE $B50B
B507   C5 31      CMP $31
B509   90 0B      BCC $B516
B50B   85 33      STA $33
B50D   84 34      STY $34
B50F   85 35      STA $35
B511   84 36      STY $36
B513   AA         TAX
B514   68         PLA
B515   60         RTS

B516   A2 10      LDX #$10
B518   A5 0F      LDA $0F
B51A   30 B6      BMI $B4D2
B51C   20 26 B5   JSR $B526
B51F   A9 80      LDA #$80
B521   85 0F      STA $0F
B523   68         PLA
B524   D0 D0      BNE $B4F6


; string garbage clean up

B526   A6 37      LDX $37
B528   A5 38      LDA $38

B52A   86 33      STX $33

B52C   85 34      STA $34
B52E   A0 00      LDY #$00
B530   84 4F      STY $4F
B532   84 4E      STY $4E
B534   A5 31      LDA $31
B536   A6 32      LDX $32
B538   85 5F      STA $5F
B53A   86 60      STX $60
B53C   A9 19      LDA #$19   ; low  0019
B53E   A2 00      LDX #$00   ; high 0019
B540   85 22      STA $22
B542   86 23      STX $23
B544   C5 16      CMP $16
B546   F0 05      BEQ $B54D
B548   20 C7 B5   JSR $B5C7
B54B   F0 F7      BEQ $B544
B54D   A9 07      LDA #$07
B54F   85 53      STA $53
B551   A5 2D      LDA $2D
B553   A6 2E      LDX $2E
B555   85 22      STA $22
B557   86 23      STX $23
B559   E4 30      CPX $30
B55B   D0 04      BNE $B561
B55D   C5 2F      CMP $2F
B55F   F0 05      BEQ $B566
B561   20 BD B5   JSR $B5BD
B564   F0 F3      BEQ $B559
B566   85 58      STA $58
B568   86 59      STX $59
B56A   A9 03      LDA #$03
B56C   85 53      STA $53
B56E   A5 58      LDA $58
B570   A6 59      LDX $59
B572   E4 32      CPX $32
B574   D0 07      BNE $B57D
B576   C5 31      CMP $31
B578   D0 03      BNE $B57D
B57A   4C 06 B6   JMP $B606
B57D   85 22      STA $22
B57F   86 23      STX $23
B581   A0 00      LDY #$00
B583   B1 22      LDA ($22),Y
B585   AA         TAX
B586   C8         INY
B587   B1 22      LDA ($22),Y
B589   08         PHP
B58A   C8         INY
B58B   B1 22      LDA ($22),Y
B58D   65 58      ADC $58
B58F   85 58      STA $58
B591   C8         INY
B592   B1 22      LDA ($22),Y
B594   65 59      ADC $59
B596   85 59      STA $59
B598   28         PLP
B599   10 D3      BPL $B56E
B59B   8A         TXA
B59C   30 D0      BMI $B56E
B59E   C8         INY
B59F   B1 22      LDA ($22),Y
B5A1   A0 00      LDY #$00
B5A3   0A         ASL
B5A4   69 05      ADC #$05
B5A6   65 22      ADC $22
B5A8   85 22      STA $22
B5AA   90 02      BCC $B5AE
B5AC   E6 23      INC $23
B5AE   A6 23      LDX $23
B5B0   E4 59      CPX $59
B5B2   D0 04      BNE $B5B8
B5B4   C5 58      CMP $58
B5B6   F0 BA      BEQ $B572
B5B8   20 C7 B5   JSR $B5C7
B5BB   F0 F3      BEQ $B5B0


; check string area

B5BD   B1 22      LDA ($22),Y
B5BF   30 35      BMI $B5F6
B5C1   C8         INY
B5C2   B1 22      LDA ($22),Y
B5C4   10 30      BPL $B5F6
B5C6   C8         INY


; check string area

B5C7   B1 22      LDA ($22),Y
B5C9   F0 2B      BEQ $B5F6
B5CB   C8         INY
B5CC   B1 22      LDA ($22),Y
B5CE   AA         TAX
B5CF   C8         INY
B5D0   B1 22      LDA ($22),Y
B5D2   C5 34      CMP $34
B5D4   90 06      BCC $B5DC
B5D6   D0 1E      BNE $B5F6
B5D8   E4 33      CPX $33
B5DA   B0 1A      BCS $B5F6
B5DC   C5 60      CMP $60
B5DE   90 16      BCC $B5F6
B5E0   D0 04      BNE $B5E6
B5E2   E4 5F      CPX $5F
B5E4   90 10      BCC $B5F6
B5E6   86 5F      STX $5F
B5E8   85 60      STA $60
B5EA   A5 22      LDA $22
B5EC   A6 23      LDX $23
B5EE   85 4E      STA $4E
B5F0   86 4F      STX $4F
B5F2   A5 53      LDA $53
B5F4   85 55      STA $55
B5F6   A5 53      LDA $53
B5F8   18         CLC
B5F9   65 22      ADC $22
B5FB   85 22      STA $22
B5FD   90 02      BCC $B601
B5FF   E6 23      INC $23
B601   A6 23      LDX $23
B603   A0 00      LDY #$00
B605   60         RTS


; continuation of garbage clean up

B606   A5 4F      LDA $4F
B608   05 4E      ORA $4E
B60A   F0 F5      BEQ $B601
B60C   A5 55      LDA $55
B60E   29 04      AND #$04
B610   4A         LSR
B611   A8         TAY
B612   85 55      STA $55
B614   B1 4E      LDA ($4E),Y
B616   65 5F      ADC $5F
B618   85 5A      STA $5A
B61A   A5 60      LDA $60
B61C   69 00      ADC #$00
B61E   85 5B      STA $5B
B620   A5 33      LDA $33
B622   A6 34      LDX $34
B624   85 58      STA $58
B626   86 59      STX $59
B628   20 BF A3   JSR $A3BF
B62B   A4 55      LDY $55
B62D   C8         INY
B62E   A5 58      LDA $58
B630   91 4E      STA ($4E),Y
B632   AA         TAX
B633   E6 59      INC $59
B635   A5 59      LDA $59
B637   C8         INY
B638   91 4E      STA ($4E),Y
B63A   4C 2A B5   JMP $B52A


; joining strings

B63D   A5 65      LDA $65
B63F   48         PHA
B640   A5 64      LDA $64
B642   48         PHA
B643   20 83 AE   JSR $AE83
B646   20 8F AD   JSR $AD8F
B649   68         PLA
B64A   85 6F      STA $6F
B64C   68         PLA
B64D   85 70      STA $70
B64F   A0 00      LDY #$00
B651   B1 6F      LDA ($6F),Y
B653   18         CLC
B654   71 64      ADC ($64),Y
B656   90 05      BCC $B65D
B658   A2 17      LDX #$17
B65A   4C 37 A4   JMP $A437

B65D   20 75 B4   JSR $B475
B660   20 7A B6   JSR $B67A
B663   A5 50      LDA $50
B665   A4 51      LDY $51
B667   20 AA B6   JSR $B6AA
B66A   20 8C B6   JSR $B68C
B66D   A5 6F      LDA $6F
B66F   A4 70      LDY $70
B671   20 AA B6   JSR $B6AA
B674   20 CA B4   JSR $B4CA
B677   4C B8 AD   JMP $ADB8


; move string

B67A   A0 00      LDY #$00
B67C   B1 6F      LDA ($6F),Y
B67E   48         PHA
B67F   C8         INY
B680   B1 6F      LDA ($6F),Y
B682   AA         TAX
B683   C8         INY
B684   B1 6F      LDA ($6F),Y
B686   A8         TAY
B687   68         PLA


; move string with length A, pointer in XY

B688   86 22      STX $22
B68A   84 23      STY $23

B68C   A8         TAY

B68D   F0 0A      BEQ $B699
B68F   48         PHA
B690   88         DEY
B691   B1 22      LDA ($22),Y
B693   91 35      STA ($35),Y
B695   98         TYA
B696   D0 F8      BNE $B690
B698   68         PLA
B699   18         CLC
B69A   65 35      ADC $35
B69C   85 35      STA $35
B69E   90 02      BCC $B6A2
B6A0   E6 36      INC $36
B6A2   60         RTS


; de-allocate temporary string

B6A3   20 8F AD   JSR $AD8F

B6A6   A5 64      LDA $64

B6A8   A4 65      LDY $65

B6AA   85 22      STA $22

B6AC   84 23      STY $23
B6AE   20 DB B6   JSR $B6DB
B6B1   08         PHP
B6B2   A0 00      LDY #$00
B6B4   B1 22      LDA ($22),Y
B6B6   48         PHA
B6B7   C8         INY
B6B8   B1 22      LDA ($22),Y
B6BA   AA         TAX
B6BB   C8         INY
B6BC   B1 22      LDA ($22),Y
B6BE   A8         TAY
B6BF   68         PLA
B6C0   28         PLP
B6C1   D0 13      BNE $B6D6
B6C3   C4 34      CPY $34
B6C5   D0 0F      BNE $B6D6
B6C7   E4 33      CPX $33
B6C9   D0 0B      BNE $B6D6
B6CB   48         PHA
B6CC   18         CLC
B6CD   65 33      ADC $33
B6CF   85 33      STA $33
B6D1   90 02      BCC $B6D5
B6D3   E6 34      INC $34
B6D5   68         PLA
B6D6   86 22      STX $22
B6D8   84 23      STY $23
B6DA   60         RTS


; check descriptor stack

B6DB   C4 18      CPY $18
B6DD   D0 0C      BNE $B6EB
B6DF   C5 17      CMP $17
B6E1   D0 08      BNE $B6EB
B6E3   85 16      STA $16
B6E5   E9 03      SBC #$03
B6E7   85 17      STA $17
B6E9   A0 00      LDY #$00
B6EB   60         RTS


; CHR$ function

B6EC   20 A1 B7   JSR $B7A1
B6EF   8A         TXA
B6F0   48         PHA
B6F1   A9 01      LDA #$01
B6F3   20 7D B4   JSR $B47D
B6F6   68         PLA
B6F7   A0 00      LDY #$00
B6F9   91 62      STA ($62),Y
B6FB   68         PLA
B6FC   68         PLA
B6FD   4C CA B4   JMP $B4CA


; LEFT$ function

B700   20 61 B7   JSR $B761
B703   D1 50      CMP ($50),Y
B705   98         TYA

B706   90 04      BCC $B70C

B708   B1 50      LDA ($50),Y
B70A   AA         TAX
B70B   98         TYA
B70C   48         PHA
B70D   8A         TXA
B70E   48         PHA
B70F   20 7D B4   JSR $B47D
B712   A5 50      LDA $50
B714   A4 51      LDY $51
B716   20 AA B6   JSR $B6AA
B719   68         PLA
B71A   A8         TAY
B71B   68         PLA
B71C   18         CLC
B71D   65 22      ADC $22
B71F   85 22      STA $22
B721   90 02      BCC $B725
B723   E6 23      INC $23
B725   98         TYA
B726   20 8C B6   JSR $B68C
B729   4C CA B4   JMP $B4CA


; RIGHT$ function

B72C   20 61 B7   JSR $B761
B72F   18         CLC
B730   F1 50      SBC ($50),Y
B732   49 FF      EOR #$FF
B734   4C 06 B7   JMP $B706


; MID$ function

B737   A9 FF      LDA #$FF   ; default 3 parameter
B739   85 65      STA $65
B73B   20 79 00   JSR $0079
B73E   C9 29      CMP #$29   ; )
B740   F0 06      BEQ $B748
B742   20 FD AE   JSR $AEFD
B745   20 9E B7   JSR $B79E
B748   20 61 B7   JSR $B761
B74B   F0 4B      BEQ $B798
B74D   CA         DEX
B74E   8A         TXA
B74F   48         PHA
B750   18         CLC
B751   A2 00      LDX #$00
B753   F1 50      SBC ($50),Y
B755   B0 B6      BCS $B70D
B757   49 FF      EOR #$FF
B759   C5 65      CMP $65
B75B   90 B1      BCC $B70E
B75D   A5 65      LDA $65
B75F   B0 AD      BCS $B70E


; get first 2 parameters for
; LEFT$, RIGHT$ and MID$

B761   20 F7 AE   JSR $AEF7
B764   68         PLA
B765   A8         TAY
B766   68         PLA
B767   85 55      STA $55
B769   68         PLA
B76A   68         PLA
B76B   68         PLA
B76C   AA         TAX
B76D   68         PLA
B76E   85 50      STA $50
B770   68         PLA
B771   85 51      STA $51
B773   A5 55      LDA $55
B775   48         PHA
B776   98         TYA
B777   48         PHA
B778   A0 00      LDY #$00
B77A   8A         TXA
B77B   60         RTS


; LEN function

B77C   20 82 B7   JSR $B782
B77F   4C A2 B3   JMP $B3A2


B782   20 A3 B6   JSR $B6A3

B785   A2 00      LDX #$00
B787   86 0D      STX $0D
B789   A8         TAY
B78A   60         RTS


; ASC function

B78B   20 82 B7   JSR $B782
B78E   F0 08      BEQ $B798
B790   A0 00      LDY #$00
B792   B1 22      LDA ($22),Y
B794   A8         TAY
B795   4C A2 B3   JMP $B3A2

B798   4C 48 B2   JMP $B248


; fetch integer value in X and check range

B79B   20 73 00   JSR $0073

B79E   20 8A AD   JSR $AD8A


B7A1   20 B8 B1   JSR $B1B8

B7A4   A6 64      LDX $64
B7A6   D0 F0      BNE $B798
B7A8   A6 65      LDX $65
B7AA   4C 79 00   JMP $0079


; VAL function

B7AD   20 82 B7   JSR $B782
B7B0   D0 03      BNE $B7B5
B7B2   4C F7 B8   JMP $B8F7
B7B5   A6 7A      LDX $7A
B7B7   A4 7B      LDY $7B
B7B9   86 71      STX $71
B7BB   84 72      STY $72
B7BD   A6 22      LDX $22
B7BF   86 7A      STX $7A
B7C1   18         CLC
B7C2   65 22      ADC $22
B7C4   85 24      STA $24
B7C6   A6 23      LDX $23
B7C8   86 7B      STX $7B
B7CA   90 01      BCC $B7CD
B7CC   E8         INX
B7CD   86 25      STX $25
B7CF   A0 00      LDY #$00
B7D1   B1 24      LDA ($24),Y
B7D3   48         PHA
B7D4   98         TYA
B7D5   91 24      STA ($24),Y
B7D7   20 79 00   JSR $0079
B7DA   20 F3 BC   JSR $BCF3
B7DD   68         PLA
B7DE   A0 00      LDY #$00
B7E0   91 24      STA ($24),Y

B7E2   A6 71      LDX $71

B7E4   A4 72      LDY $72
B7E6   86 7A      STX $7A
B7E8   84 7B      STY $7B
B7EA   60         RTS


; get address into $14/$15 and integer in X

B7EB   20 8A AD   JSR $AD8A
B7EE   20 F7 B7   JSR $B7F7

B7F1   20 FD AE   JSR $AEFD

B7F4   4C 9E B7   JMP $B79E


; convert float ti integer in $14/$15

B7F7   A5 66      LDA $66
B7F9   30 9D      BMI $B798
B7FB   A5 61      LDA $61
B7FD   C9 91      CMP #$91
B7FF   B0 97      BCS $B798
B801   20 9B BC   JSR $BC9B
B804   A5 64      LDA $64
B806   A4 65      LDY $65
B808   84 14      STY $14
B80A   85 15      STA $15
B80C   60         RTS


; PEEK function

B80D   A5 15      LDA $15
B80F   48         PHA
B810   A5 14      LDA $14
B812   48         PHA
B813   20 F7 B7   JSR $B7F7
B816   A0 00      LDY #$00
B818   B1 14      LDA ($14),Y
B81A   A8         TAY
B81B   68         PLA
B81C   85 14      STA $14
B81E   68         PLA
B81F   85 15      STA $15
B821   4C A2 B3   JMP $B3A2


; POKE command

B824   20 EB B7   JSR $B7EB
B827   8A         TXA
B828   A0 00      LDY #$00
B82A   91 14      STA ($14),Y
B82C   60         RTS


; WAIT command

B82D   20 EB B7   JSR $B7EB
B830   86 49      STX $49
B832   A2 00      LDX #$00
B834   20 79 00   JSR $0079
B837   F0 03      BEQ $B83C
B839   20 F1 B7   JSR $B7F1
B83C   86 4A      STX $4A
B83E   A0 00      LDY #$00
B840   B1 14      LDA ($14),Y
B842   45 4A      EOR $4A
B844   25 49      AND $49
B846   F0 F8      BEQ $B840
B848   60         RTS


; add 0.5 to float accu (rounding)

B849   A9 11      LDA #$11   ; low  BF11
B84B   A0 BF      LDY #$BF   ; high BF11
B84D   4C 67 B8   JMP $B867


; minus operator

B850   20 8C BA   JSR $BA8C

B853   A5 66      LDA $66

B855   49 FF      EOR #$FF
B857   85 66      STA $66
B859   45 6E      EOR $6E
B85B   85 6F      STA $6F
B85D   A5 61      LDA $61
B85F   4C 6A B8   JMP $B86A

B862   20 99 B9   JSR $B999
B865   90 3C      BCC $B8A3


; add float indexed by AY to float accu

B867   20 8C BA   JSR $BA8C


; plus operator

B86A   D0 03      BNE $B86F
B86C   4C FC BB   JMP $BBFC

B86F   A6 70      LDX $70
B871   86 56      STX $56
B873   A2 69      LDX #$69
B875   A5 69      LDA $69

B877   A8         TAY

B878   F0 CE      BEQ $B848
B87A   38         SEC
B87B   E5 61      SBC $61
B87D   F0 24      BEQ $B8A3
B87F   90 12      BCC $B893
B881   84 61      STY $61
B883   A4 6E      LDY $6E
B885   84 66      STY $66
B887   49 FF      EOR #$FF
B889   69 00      ADC #$00
B88B   A0 00      LDY #$00
B88D   84 56      STY $56
B88F   A2 61      LDX #$61
B891   D0 04      BNE $B897
B893   A0 00      LDY #$00
B895   84 70      STY $70
B897   C9 F9      CMP #$F9
B899   30 C7      BMI $B862
B89B   A8         TAY
B89C   A5 70      LDA $70
B89E   56 01      LSR $01,X
B8A0   20 B0 B9   JSR $B9B0
B8A3   24 6F      BIT $6F
B8A5   10 57      BPL $B8FE
B8A7   A0 61      LDY #$61
B8A9   E0 69      CPX #$69
B8AB   F0 02      BEQ $B8AF
B8AD   A0 69      LDY #$69
B8AF   38         SEC
B8B0   49 FF      EOR #$FF
B8B2   65 56      ADC $56
B8B4   85 70      STA $70
B8B6   B9 04 00   LDA $0004,Y
B8B9   F5 04      SBC $04,X
B8BB   85 65      STA $65
B8BD   B9 03 00   LDA $0003,Y
B8C0   F5 03      SBC $03,X
B8C2   85 64      STA $64
B8C4   B9 02 00   LDA $0002,Y
B8C7   F5 02      SBC $02,X
B8C9   85 63      STA $63
B8CB   B9 01 00   LDA $0001,Y
B8CE   F5 01      SBC $01,X
B8D0   85 62      STA $62

B8D2   B0 03      BCS $B8D7

B8D4   20 47 B9   JSR $B947

B8D7   A0 00      LDY #$00

B8D9   98         TYA
B8DA   18         CLC
B8DB   A6 62      LDX $62
B8DD   D0 4A      BNE $B929
B8DF   A6 63      LDX $63
B8E1   86 62      STX $62
B8E3   A6 64      LDX $64
B8E5   86 63      STX $63
B8E7   A6 65      LDX $65
B8E9   86 64      STX $64
B8EB   A6 70      LDX $70
B8ED   86 65      STX $65
B8EF   84 70      STY $70
B8F1   69 08      ADC #$08
B8F3   C9 20      CMP #$20
B8F5   D0 E4      BNE $B8DB

B8F7   A9 00      LDA #$00


B8F9   85 61      STA $61


B8FB   85 66      STA $66

B8FD   60         RTS


; add fractions

B8FE   65 56      ADC $56
B900   85 70      STA $70
B902   A5 65      LDA $65
B904   65 6D      ADC $6D
B906   85 65      STA $65
B908   A5 64      LDA $64
B90A   65 6C      ADC $6C
B90C   85 64      STA $64
B90E   A5 63      LDA $63
B910   65 6B      ADC $6B
B912   85 63      STA $63
B914   A5 62      LDA $62
B916   65 6A      ADC $6A
B918   85 62      STA $62
B91A   4C 36 B9   JMP $B936


; postshift

B91D   69 01      ADC #$01
B91F   06 70      ASL $70
B921   26 65      ROL $65
B923   26 64      ROL $64
B925   26 63      ROL $63
B927   26 62      ROL $62
B929   10 F2      BPL $B91D
B92B   38         SEC
B92C   E5 61      SBC $61
B92E   B0 C7      BCS $B8F7
B930   49 FF      EOR #$FF
B932   69 01      ADC #$01
B934   85 61      STA $61

B936   90 0E      BCC $B946


B938   E6 61      INC $61

B93A   F0 42      BEQ $B97E
B93C   66 62      ROR $62
B93E   66 63      ROR $63
B940   66 64      ROR $64
B942   66 65      ROR $65
B944   66 70      ROR $70
B946   60         RTS


; negate float accu

B947   A5 66      LDA $66
B949   49 FF      EOR #$FF
B94B   85 66      STA $66

B94D   A5 62      LDA $62

B94F   49 FF      EOR #$FF
B951   85 62      STA $62
B953   A5 63      LDA $63
B955   49 FF      EOR #$FF
B957   85 63      STA $63
B959   A5 64      LDA $64
B95B   49 FF      EOR #$FF
B95D   85 64      STA $64
B95F   A5 65      LDA $65
B961   49 FF      EOR #$FF
B963   85 65      STA $65
B965   A5 70      LDA $70
B967   49 FF      EOR #$FF
B969   85 70      STA $70
B96B   E6 70      INC $70
B96D   D0 0E      BNE $B97D


; increment fraction

B96F   E6 65      INC $65
B971   D0 0A      BNE $B97D
B973   E6 64      INC $64
B975   D0 06      BNE $B97D
B977   E6 63      INC $63
B979   D0 02      BNE $B97D
B97B   E6 62      INC $62
B97D   60         RTS


B97E   A2 0F      LDX #$0F   ; error number

B980   4C 37 A4   JMP $A437


; preshift

B983   A2 25      LDX #$25
B985   B4 04      LDY $04,X
B987   84 70      STY $70
B989   B4 03      LDY $03,X
B98B   94 04      STY $04,X
B98D   B4 02      LDY $02,X
B98F   94 03      STY $03,X
B991   B4 01      LDY $01,X
B993   94 02      STY $02,X
B995   A4 68      LDY $68
B997   94 01      STY $01,X

B999   69 08      ADC #$08

B99B   30 E8      BMI $B985
B99D   F0 E6      BEQ $B985
B99F   E9 08      SBC #$08
B9A1   A8         TAY
B9A2   A5 70      LDA $70
B9A4   B0 14      BCS $B9BA
B9A6   16 01      ASL $01,X
B9A8   90 02      BCC $B9AC
B9AA   F6 01      INC $01,X
B9AC   76 01      ROR $01,X
B9AE   76 01      ROR $01,X

B9B0   76 02      ROR $02,X

B9B2   76 03      ROR $03,X
B9B4   76 04      ROR $04,X
B9B6   6A         ROR
B9B7   C8         INY
B9B8   D0 EC      BNE $B9A6
B9BA   18         CLC
B9BB   60         RTS


; 1

B9BC   .BY $81,$00,$00,$00,$00


; LOG polynomial table

B9C1   .BY $03   ; degree 4
B9C2   .BY $7F,$5E,$56,$CB,$79
B9C7   .BY $80,$13,$9B,$0B,$64
B9CC   .BY $80,$76,$38,$93,$16
B9D1   .BY $82,$38,$AA,$3B,$20


; 0,5 * SQR(2)

B9D6   .BY $80,$35,$04,$F3,$34

; SQR(2)

B9DB   .BY $81,$35,$04,$F3,$34

; -0.5

B9E0   .BY $80,$80,$00,$00,$00

; LOG(2)

B9E5   .BY $80,$31,$72,$17,$F8


; LOG function

B9EA   20 2B BC   JSR $BC2B
B9ED   F0 02      BEQ $B9F1
B9EF   10 03      BPL $B9F4
B9F1   4C 48 B2   JMP $B248

B9F4   A5 61      LDA $61
B9F6   E9 7F      SBC #$7F
B9F8   48         PHA
B9F9   A9 80      LDA #$80
B9FB   85 61      STA $61
B9FD   A9 D6      LDA #$D6   ; low  B9D6
B9FF   A0 B9      LDY #$B9   ; high B9D6
BA01   20 67 B8   JSR $B867
BA04   A9 DB      LDA #$DB   ; low  B9DB
BA06   A0 B9      LDY #$B9   ; high B9DB
BA08   20 0F BB   JSR $BB0F
BA0B   A9 BC      LDA #$BC   ; low  B9BC
BA0D   A0 B9      LDY #$B9   ; high B9BC
BA0F   20 50 B8   JSR $B850
BA12   A9 C1      LDA #$C1   ; low  B9C1
BA14   A0 B9      LDY #$B9   ; high B9C1
BA16   20 43 E0   JSR $E043
BA19   A9 E0      LDA #$E0   ; low  B9E0
BA1B   A0 B9      LDY #$B9   ; high B9E0
BA1D   20 67 B8   JSR $B867
BA20   68         PLA
BA21   20 7E BD   JSR $BD7E
BA24   A9 E5      LDA #$E5   ; low  B9E5
BA26   A0 B9      LDY #$B9   ; high B9E5

BA28   20 8C BA   JSR $BA8C



; times operator

BA2B   D0 03      BNE $BA30
BA2D   4C 8B BA   JMP $BA8B

BA30   20 B7 BA   JSR $BAB7
BA33   A9 00      LDA #$00
BA35   85 26      STA $26
BA37   85 27      STA $27
BA39   85 28      STA $28
BA3B   85 29      STA $29
BA3D   A5 70      LDA $70
BA3F   20 59 BA   JSR $BA59
BA42   A5 65      LDA $65
BA44   20 59 BA   JSR $BA59
BA47   A5 64      LDA $64
BA49   20 59 BA   JSR $BA59
BA4C   A5 63      LDA $63
BA4E   20 59 BA   JSR $BA59
BA51   A5 62      LDA $62
BA53   20 5E BA   JSR $BA5E
BA56   4C 8F BB   JMP $BB8F


BA59   D0 03      BNE $BA5E

BA5B   4C 83 B9   JMP $B983


BA5E   4A         LSR

BA5F   09 80      ORA #$80
BA61   A8         TAY
BA62   90 19      BCC $BA7D
BA64   18         CLC
BA65   A5 29      LDA $29
BA67   65 6D      ADC $6D
BA69   85 29      STA $29
BA6B   A5 28      LDA $28
BA6D   65 6C      ADC $6C
BA6F   85 28      STA $28
BA71   A5 27      LDA $27
BA73   65 6B      ADC $6B
BA75   85 27      STA $27
BA77   A5 26      LDA $26
BA79   65 6A      ADC $6A
BA7B   85 26      STA $26
BA7D   66 26      ROR $26
BA7F   66 27      ROR $27
BA81   66 28      ROR $28
BA83   66 29      ROR $29
BA85   66 70      ROR $70
BA87   98         TYA
BA88   4A         LSR
BA89   D0 D6      BNE $BA61

BA8B   60         RTS



; move float indexed by AY into second float accu

BA8C   85 22      STA $22
BA8E   84 23      STY $23
BA90   A0 04      LDY #$04
BA92   B1 22      LDA ($22),Y
BA94   85 6D      STA $6D
BA96   88         DEY
BA97   B1 22      LDA ($22),Y
BA99   85 6C      STA $6C
BA9B   88         DEY
BA9C   B1 22      LDA ($22),Y
BA9E   85 6B      STA $6B
BAA0   88         DEY
BAA1   B1 22      LDA ($22),Y
BAA3   85 6E      STA $6E
BAA5   45 66      EOR $66
BAA7   85 6F      STA $6F
BAA9   A5 6E      LDA $6E
BAAB   09 80      ORA #$80
BAAD   85 6A      STA $6A
BAAF   88         DEY
BAB0   B1 22      LDA ($22),Y
BAB2   85 69      STA $69
BAB4   A5 61      LDA $61
BAB6   60         RTS


; add exponents

BAB7   A5 69      LDA $69

BAB9   F0 1F      BEQ $BADA

BABB   18         CLC
BABC   65 61      ADC $61
BABE   90 04      BCC $BAC4
BAC0   30 1D      BMI $BADF
BAC2   18         CLC
BAC3   .BY $2C
BAC4   10 14      BPL $BADA
BAC6   69 80      ADC #$80
BAC8   85 61      STA $61
BACA   D0 03      BNE $BACF
BACC   4C FB B8   JMP $B8FB

BACF   A5 6F      LDA $6F
BAD1   85 66      STA $66
BAD3   60         RTS


BAD4   A5 66      LDA $66

BAD6   49 FF      EOR #$FF
BAD8   30 05      BMI $BADF
BADA   68         PLA
BADB   68         PLA
BADC   4C F7 B8   JMP $B8F7

BADF   4C 7E B9   JMP $B97E


; multiply float accu by 10

BAE2   20 0C BC   JSR $BC0C
BAE5   AA         TAX
BAE6   F0 10      BEQ $BAF8
BAE8   18         CLC
BAE9   69 02      ADC #$02
BAEB   B0 F2      BCS $BADF

BAED   A2 00      LDX #$00

BAEF   86 6F      STX $6F
BAF1   20 77 B8   JSR $B877
BAF4   E6 61      INC $61
BAF6   F0 E7      BEQ $BADF
BAF8   60         RTS


; constant 10 for division

BAF9   .BY $84,$20,$00,$00,$00


; divide float by 10

BAFE   20 0C BC   JSR $BC0C
BB01   A9 F9      LDA #$F9   ; low  BAF9
BB03   A0 BA      LDY #$BA   ; high BAF9
BB05   A2 00      LDX #$00

BB07   86 6F      STX $6F

BB09   20 A2 BB   JSR $BBA2
BB0C   4C 12 BB   JMP $BB12


; divide number indexed by AY by float accu

BB0F   20 8C BA   JSR $BA8C


; divide operator

BB12   F0 76      BEQ $BB8A
BB14   20 1B BC   JSR $BC1B
BB17   A9 00      LDA #$00
BB19   38         SEC
BB1A   E5 61      SBC $61
BB1C   85 61      STA $61
BB1E   20 B7 BA   JSR $BAB7
BB21   E6 61      INC $61
BB23   F0 BA      BEQ $BADF
BB25   A2 FC      LDX #$FC
BB27   A9 01      LDA #$01
BB29   A4 6A      LDY $6A
BB2B   C4 62      CPY $62
BB2D   D0 10      BNE $BB3F
BB2F   A4 6B      LDY $6B
BB31   C4 63      CPY $63
BB33   D0 0A      BNE $BB3F
BB35   A4 6C      LDY $6C
BB37   C4 64      CPY $64
BB39   D0 04      BNE $BB3F
BB3B   A4 6D      LDY $6D
BB3D   C4 65      CPY $65
BB3F   08         PHP
BB40   2A         ROL
BB41   90 09      BCC $BB4C
BB43   E8         INX
BB44   95 29      STA $29,X
BB46   F0 32      BEQ $BB7A
BB48   10 34      BPL $BB7E
BB4A   A9 01      LDA #$01
BB4C   28         PLP
BB4D   B0 0E      BCS $BB5D

BB4F   06 6D      ASL $6D

BB51   26 6C      ROL $6C
BB53   26 6B      ROL $6B
BB55   26 6A      ROL $6A
BB57   B0 E6      BCS $BB3F
BB59   30 CE      BMI $BB29
BB5B   10 E2      BPL $BB3F
BB5D   A8         TAY
BB5E   A5 6D      LDA $6D
BB60   E5 65      SBC $65
BB62   85 6D      STA $6D
BB64   A5 6C      LDA $6C
BB66   E5 64      SBC $64
BB68   85 6C      STA $6C
BB6A   A5 6B      LDA $6B
BB6C   E5 63      SBC $63
BB6E   85 6B      STA $6B
BB70   A5 6A      LDA $6A
BB72   E5 62      SBC $62
BB74   85 6A      STA $6A
BB76   98         TYA
BB77   4C 4F BB   JMP $BB4F

BB7A   A9 40      LDA #$40
BB7C   D0 CE      BNE $BB4C
BB7E   0A         ASL
BB7F   0A         ASL
BB80   0A         ASL
BB81   0A         ASL
BB82   0A         ASL
BB83   0A         ASL
BB84   85 70      STA $70
BB86   28         PLP
BB87   4C 8F BB   JMP $BB8F

BB8A   A2 14      LDX #$14   ; error number
BB8C   4C 37 A4   JMP $A437


BB8F   A5 26      LDA $26

BB91   85 62      STA $62
BB93   A5 27      LDA $27
BB95   85 63      STA $63
BB97   A5 28      LDA $28
BB99   85 64      STA $64
BB9B   A5 29      LDA $29
BB9D   85 65      STA $65
BB9F   4C D7 B8   JMP $B8D7


BBA2   85 22      STA $22

BBA4   84 23      STY $23
BBA6   A0 04      LDY #$04
BBA8   B1 22      LDA ($22),Y
BBAA   85 65      STA $65
BBAC   88         DEY
BBAD   B1 22      LDA ($22),Y
BBAF   85 64      STA $64
BBB1   88         DEY
BBB2   B1 22      LDA ($22),Y
BBB4   85 63      STA $63
BBB6   88         DEY
BBB7   B1 22      LDA ($22),Y
BBB9   85 66      STA $66
BBBB   09 80      ORA #$80
BBBD   85 62      STA $62
BBBF   88         DEY
BBC0   B1 22      LDA ($22),Y
BBC2   85 61      STA $61
BBC4   84 70      STY $70
BBC6   60         RTS


; store float accu at $5C-$60

BBC7   A2 5C      LDX #$5C   ; low  005C
BBC9   .BY $2C


; store float accu at $57-$5B

BBCA   A2 57      LDX #$57   ; low  0057
BBCC   A0 00      LDY #$00   ; high 0057
BBCE   F0 04      BEQ $BBD4


; store float accu in index at $49/$4A

BBD0   A6 49      LDX $49
BBD2   A4 4A      LDY $4A


; store float accu in index XY

BBD4   20 1B BC   JSR $BC1B
BBD7   86 22      STX $22
BBD9   84 23      STY $23
BBDB   A0 04      LDY #$04
BBDD   A5 65      LDA $65
BBDF   91 22      STA ($22),Y
BBE1   88         DEY
BBE2   A5 64      LDA $64
BBE4   91 22      STA ($22),Y
BBE6   88         DEY
BBE7   A5 63      LDA $63
BBE9   91 22      STA ($22),Y
BBEB   88         DEY
BBEC   A5 66      LDA $66
BBEE   09 7F      ORA #$7F
BBF0   25 62      AND $62
BBF2   91 22      STA ($22),Y
BBF4   88         DEY
BBF5   A5 61      LDA $61
BBF7   91 22      STA ($22),Y
BBF9   84 70      STY $70
BBFB   60         RTS


; move second float accu into first

BBFC   A5 6E      LDA $6E

BBFE   85 66      STA $66

BC00   A2 05      LDX #$05
BC02   B5 68      LDA $68,X
BC04   95 60      STA $60,X
BC06   CA         DEX
BC07   D0 F9      BNE $BC02
BC09   86 70      STX $70
BC0B   60         RTS


; move rounded float accu into second

BC0C   20 1B BC   JSR $BC1B

BC0F   A2 06      LDX #$06

BC11   B5 60      LDA $60,X
BC13   95 68      STA $68,X
BC15   CA         DEX
BC16   D0 F9      BNE $BC11
BC18   86 70      STX $70
BC1A   60         RTS


; round float accu according to guard bit

BC1B   A5 61      LDA $61
BC1D   F0 FB      BEQ $BC1A
BC1F   06 70      ASL $70
BC21   90 F7      BCC $BC1A

BC23   20 6F B9   JSR $B96F

BC26   D0 F2      BNE $BC1A
BC28   4C 38 B9   JMP $B938


; get sign of float accu in A

BC2B   A5 61      LDA $61
BC2D   F0 09      BEQ $BC38
BC2F   A5 66      LDA $66

BC31   2A         ROL

BC32   A9 FF      LDA #$FF
BC34   B0 02      BCS $BC38
BC36   A9 01      LDA #$01
BC38   60         RTS


; SGN function

BC39   20 2B BC   JSR $BC2B


; move signed number from A into float accu

BC3C   85 62      STA $62
BC3E   A9 00      LDA #$00
BC40   85 63      STA $63
BC42   A2 88      LDX #$88

BC44   A5 62      LDA $62

BC46   49 FF      EOR #$FF
BC48   2A         ROL

BC49   A9 00      LDA #$00

BC4B   85 65      STA $65
BC4D   85 64      STA $64

BC4F   86 61      STX $61

BC51   85 70      STA $70
BC53   85 66      STA $66
BC55   4C D2 B8   JMP $B8D2


; ABS function

BC58   46 66      LSR $66
BC5A   60         RTS


; compare float accu to float indexed by XY

BC5B   85 24      STA $24

BC5D   84 25      STY $25

BC5F   A0 00      LDY #$00
BC61   B1 24      LDA ($24),Y
BC63   C8         INY
BC64   AA         TAX
BC65   F0 C4      BEQ $BC2B
BC67   B1 24      LDA ($24),Y
BC69   45 66      EOR $66
BC6B   30 C2      BMI $BC2F
BC6D   E4 61      CPX $61
BC6F   D0 21      BNE $BC92
BC71   B1 24      LDA ($24),Y
BC73   09 80      ORA #$80
BC75   C5 62      CMP $62
BC77   D0 19      BNE $BC92
BC79   C8         INY
BC7A   B1 24      LDA ($24),Y
BC7C   C5 63      CMP $63
BC7E   D0 12      BNE $BC92
BC80   C8         INY
BC81   B1 24      LDA ($24),Y
BC83   C5 64      CMP $64
BC85   D0 0B      BNE $BC92
BC87   C8         INY
BC88   A9 7F      LDA #$7F
BC8A   C5 70      CMP $70
BC8C   B1 24      LDA ($24),Y
BC8E   E5 65      SBC $65
BC90   F0 28      BEQ $BCBA
BC92   A5 66      LDA $66
BC94   90 02      BCC $BC98
BC96   49 FF      EOR #$FF
BC98   4C 31 BC   JMP $BC31


; convert float to a 4 byte signed integer

BC9B   A5 61      LDA $61
BC9D   F0 4A      BEQ $BCE9
BC9F   38         SEC
BCA0   E9 A0      SBC #$A0
BCA2   24 66      BIT $66
BCA4   10 09      BPL $BCAF
BCA6   AA         TAX
BCA7   A9 FF      LDA #$FF
BCA9   85 68      STA $68
BCAB   20 4D B9   JSR $B94D
BCAE   8A         TXA
BCAF   A2 61      LDX #$61
BCB1   C9 F9      CMP #$F9
BCB3   10 06      BPL $BCBB
BCB5   20 99 B9   JSR $B999
BCB8   84 68      STY $68
BCBA   60         RTS

BCBB   A8         TAY
BCBC   A5 66      LDA $66
BCBE   29 80      AND #$80
BCC0   46 62      LSR $62
BCC2   05 62      ORA $62
BCC4   85 62      STA $62
BCC6   20 B0 B9   JSR $B9B0
BCC9   84 68      STY $68
BCCB   60         RTS


; INT function

BCCC   A5 61      LDA $61
BCCE   C9 A0      CMP #$A0
BCD0   B0 20      BCS $BCF2
BCD2   20 9B BC   JSR $BC9B
BCD5   84 70      STY $70
BCD7   A5 66      LDA $66
BCD9   84 66      STY $66
BCDB   49 80      EOR #$80
BCDD   2A         ROL
BCDE   A9 A0      LDA #$A0
BCE0   85 61      STA $61
BCE2   A5 65      LDA $65
BCE4   85 07      STA $07
BCE6   4C D2 B8   JMP $B8D2


; clear float accu

BCE9   85 62      STA $62
BCEB   85 63      STA $63
BCED   85 64      STA $64
BCEF   85 65      STA $65
BCF1   A8         TAY
BCF2   60         RTS


; convert string to float in float accu

BCF3   A0 00      LDY #$00
BCF5   A2 0A      LDX #$0A
BCF7   94 5D      STY $5D,X
BCF9   CA         DEX
BCFA   10 FB      BPL $BCF7
BCFC   90 0F      BCC $BD0D
BCFE   C9 2D      CMP #$2D   ; minus
BD00   D0 04      BNE $BD06
BD02   86 67      STX $67
BD04   F0 04      BEQ $BD0A
BD06   C9 2B      CMP #$2B   ; plus
BD08   D0 05      BNE $BD0F

BD0A   20 73 00   JSR $0073

BD0D   90 5B      BCC $BD6A
BD0F   C9 2E      CMP #$2E   ; decimal point
BD11   F0 2E      BEQ $BD41
BD13   C9 45      CMP #$45   ; E
BD15   D0 30      BNE $BD47
BD17   20 73 00   JSR $0073
BD1A   90 17      BCC $BD33
BD1C   C9 AB      CMP #$AB   ; minus code
BD1E   F0 0E      BEQ $BD2E
BD20   C9 2D      CMP #$2D   ; minus
BD22   F0 0A      BEQ $BD2E
BD24   C9 AA      CMP #$AA   ; plus code
BD26   F0 08      BEQ $BD30
BD28   C9 2B      CMP #$2B   ; plus
BD2A   F0 04      BEQ $BD30
BD2C   D0 07      BNE $BD35
BD2E   66 60      ROR $60

BD30   20 73 00   JSR $0073

BD33   90 5C      BCC $BD91
BD35   24 60      BIT $60
BD37   10 0E      BPL $BD47
BD39   A9 00      LDA #$00
BD3B   38         SEC
BD3C   E5 5E      SBC $5E
BD3E   4C 49 BD   JMP $BD49

BD41   66 5F      ROR $5F
BD43   24 5F      BIT $5F
BD45   50 C3      BVC $BD0A
BD47   A5 5E      LDA $5E

BD49   38         SEC

BD4A   E5 5D      SBC $5D
BD4C   85 5E      STA $5E
BD4E   F0 12      BEQ $BD62
BD50   10 09      BPL $BD5B
BD52   20 FE BA   JSR $BAFE
BD55   E6 5E      INC $5E
BD57   D0 F9      BNE $BD52
BD59   F0 07      BEQ $BD62
BD5B   20 E2 BA   JSR $BAE2
BD5E   C6 5E      DEC $5E
BD60   D0 F9      BNE $BD5B
BD62   A5 67      LDA $67
BD64   30 01      BMI $BD67
BD66   60         RTS

BD67   4C B4 BF   JMP $BFB4

BD6A   48         PHA
BD6B   24 5F      BIT $5F
BD6D   10 02      BPL $BD71
BD6F   E6 5D      INC $5D
BD71   20 E2 BA   JSR $BAE2
BD74   68         PLA
BD75   38         SEC
BD76   E9 30      SBC #$30   ; 0
BD78   20 7E BD   JSR $BD7E
BD7B   4C 0A BD   JMP $BD0A


; add signed integer from A to float accu

BD7E   48         PHA
BD7F   20 0C BC   JSR $BC0C
BD82   68         PLA
BD83   20 3C BC   JSR $BC3C
BD86   A5 6E      LDA $6E
BD88   45 66      EOR $66
BD8A   85 6F      STA $6F
BD8C   A6 61      LDX $61
BD8E   4C 6A B8   JMP $B86A


; get exponent of number from string

BD91   A5 5E      LDA $5E
BD93   C9 0A      CMP #$0A
BD95   90 09      BCC $BDA0
BD97   A9 64      LDA #$64
BD99   24 60      BIT $60
BD9B   30 11      BMI $BDAE
BD9D   4C 7E B9   JMP $B97E

BDA0   0A         ASL
BDA1   0A         ASL
BDA2   18         CLC
BDA3   65 5E      ADC $5E
BDA5   0A         ASL
BDA6   18         CLC
BDA7   A0 00      LDY #$00
BDA9   71 7A      ADC ($7A),Y
BDAB   38         SEC
BDAC   E9 30      SBC #$30   ; 0
BDAE   85 5E      STA $5E
BDB0   4C 30 BD   JMP $BD30


; constants for float to string conversion

BDB3   .BY $9B,$3E,$BC,$1F,$FD

BDB8   .BY $9E,$6E,$6B,$27,$FD


BDBD   .BY $9E,$6E,$6B,$28,$00



; print IN followed by line number

BDC2   A9 71      LDA #$71   ; low  A371
BDC4   A0 A3      LDY #$A3   ; high A371
BDC6   20 DA BD   JSR $BDDA
BDC9   A5 3A      LDA $3A
BDCB   A6 39      LDX $39


; print number from AX

BDCD   85 62      STA $62
BDCF   86 63      STX $63
BDD1   A2 90      LDX #$90
BDD3   38         SEC
BDD4   20 49 BC   JSR $BC49
BDD7   20 DF BD   JSR $BDDF

BDDA   4C 1E AB   JMP $AB1E



; convert number in float accu to string

BDDD   A0 01      LDY #$01

BDDF   A9 20      LDA #$20

BDE1   24 66      BIT $66
BDE3   10 02      BPL $BDE7
BDE5   A9 2D      LDA #$2D   ; minus
BDE7   99 FF 00   STA $00FF,Y
BDEA   85 66      STA $66
BDEC   84 71      STY $71
BDEE   C8         INY
BDEF   A9 30      LDA #$30   ; 0
BDF1   A6 61      LDX $61
BDF3   D0 03      BNE $BDF8
BDF5   4C 04 BF   JMP $BF04

BDF8   A9 00      LDA #$00
BDFA   E0 80      CPX #$80
BDFC   F0 02      BEQ $BE00
BDFE   B0 09      BCS $BE09
BE00   A9 BD      LDA #$BD   ; low  BDBD
BE02   A0 BD      LDY #$BD   ; high BDBD
BE04   20 28 BA   JSR $BA28
BE07   A9 F7      LDA #$F7
BE09   85 5D      STA $5D
BE0B   A9 B8      LDA #$B8   ; low  BDB8
BE0D   A0 BD      LDY #$BD   ; high BDB8
BE0F   20 5B BC   JSR $BC5B
BE12   F0 1E      BEQ $BE32
BE14   10 12      BPL $BE28
BE16   A9 B3      LDA #$B3   ; low  BDB3
BE18   A0 BD      LDY #$BD   ; high BDB3
BE1A   20 5B BC   JSR $BC5B
BE1D   F0 02      BEQ $BE21
BE1F   10 0E      BPL $BE2F
BE21   20 E2 BA   JSR $BAE2
BE24   C6 5D      DEC $5D
BE26   D0 EE      BNE $BE16
BE28   20 FE BA   JSR $BAFE
BE2B   E6 5D      INC $5D
BE2D   D0 DC      BNE $BE0B
BE2F   20 49 B8   JSR $B849
BE32   20 9B BC   JSR $BC9B
BE35   A2 01      LDX #$01
BE37   A5 5D      LDA $5D
BE39   18         CLC
BE3A   69 0A      ADC #$0A
BE3C   30 09      BMI $BE47
BE3E   C9 0B      CMP #$0B
BE40   B0 06      BCS $BE48
BE42   69 FF      ADC #$FF
BE44   AA         TAX
BE45   A9 02      LDA #$02
BE47   38         SEC
BE48   E9 02      SBC #$02
BE4A   85 5E      STA $5E
BE4C   86 5D      STX $5D
BE4E   8A         TXA
BE4F   F0 02      BEQ $BE53
BE51   10 13      BPL $BE66
BE53   A4 71      LDY $71
BE55   A9 2E      LDA #$2E   ; decimal point
BE57   C8         INY
BE58   99 FF 00   STA $00FF,Y
BE5B   8A         TXA
BE5C   F0 06      BEQ $BE64
BE5E   A9 30      LDA #$30   ; 0
BE60   C8         INY
BE61   99 FF 00   STA $00FF,Y
BE64   84 71      STY $71
BE66   A0 00      LDY #$00

BE68   A2 80      LDX #$80

BE6A   A5 65      LDA $65
BE6C   18         CLC
BE6D   79 19 BF   ADC $BF19,Y
BE70   85 65      STA $65
BE72   A5 64      LDA $64
BE74   79 18 BF   ADC $BF18,Y
BE77   85 64      STA $64
BE79   A5 63      LDA $63
BE7B   79 17 BF   ADC $BF17,Y
BE7E   85 63      STA $63
BE80   A5 62      LDA $62
BE82   79 16 BF   ADC $BF16,Y
BE85   85 62      STA $62
BE87   E8         INX
BE88   B0 04      BCS $BE8E
BE8A   10 DE      BPL $BE6A
BE8C   30 02      BMI $BE90
BE8E   30 DA      BMI $BE6A
BE90   8A         TXA
BE91   90 04      BCC $BE97
BE93   49 FF      EOR #$FF
BE95   69 0A      ADC #$0A
BE97   69 2F      ADC #$2F
BE99   C8         INY
BE9A   C8         INY
BE9B   C8         INY
BE9C   C8         INY
BE9D   84 47      STY $47
BE9F   A4 71      LDY $71
BEA1   C8         INY
BEA2   AA         TAX
BEA3   29 7F      AND #$7F
BEA5   99 FF 00   STA $00FF,Y
BEA8   C6 5D      DEC $5D
BEAA   D0 06      BNE $BEB2
BEAC   A9 2E      LDA #$2E
BEAE   C8         INY
BEAF   99 FF 00   STA $00FF,Y
BEB2   84 71      STY $71
BEB4   A4 47      LDY $47
BEB6   8A         TXA
BEB7   49 FF      EOR #$FF
BEB9   29 80      AND #$80
BEBB   AA         TAX
BEBC   C0 24      CPY #$24
BEBE   F0 04      BEQ $BEC4
BEC0   C0 3C      CPY #$3C
BEC2   D0 A6      BNE $BE6A
BEC4   A4 71      LDY $71
BEC6   B9 FF 00   LDA $00FF,Y
BEC9   88         DEY
BECA   C9 30      CMP #$30   ; 0
BECC   F0 F8      BEQ $BEC6
BECE   C9 2E      CMP #$2E   ; decimal point
BED0   F0 01      BEQ $BED3
BED2   C8         INY
BED3   A9 2B      LDA #$2B   ; plus
BED5   A6 5E      LDX $5E
BED7   F0 2E      BEQ $BF07
BED9   10 08      BPL $BEE3
BEDB   A9 00      LDA #$00
BEDD   38         SEC
BEDE   E5 5E      SBC $5E
BEE0   AA         TAX
BEE1   A9 2D      LDA #$2D   ; minus
BEE3   99 01 01   STA $0101,Y
BEE6   A9 45      LDA #$45
BEE8   99 00 01   STA $0100,Y
BEEB   8A         TXA
BEEC   A2 2F      LDX #$2F
BEEE   38         SEC
BEEF   E8         INX
BEF0   E9 0A      SBC #$0A
BEF2   B0 FB      BCS $BEEF
BEF4   69 3A      ADC #$3A
BEF6   99 03 01   STA $0103,Y
BEF9   8A         TXA
BEFA   99 02 01   STA $0102,Y
BEFD   A9 00      LDA #$00
BEFF   99 04 01   STA $0104,Y
BF02   F0 08      BEQ $BF0C

BF04   99 FF 00   STA $00FF,Y

BF07   A9 00      LDA #$00
BF09   99 00 01   STA $0100,Y
BF0C   A9 00      LDA #$00   ; low  0100
BF0E   A0 01      LDY #$01   ; high 0100
BF10   60         RTS


; 0.5

BF11   .BY $80,$00,$00,$00,$00


; divisors for decimal conversion

BF16   .BY $FA,$0A,$1F,$00
BF1A   .BY $00,$98,$96,$80
BF1E   .BY $FF,$F0,$BD,$C0
BF22   .BY $00,$01,$86,$A0
BF26   .BY $FF,$FF,$D8,$F0
BF2A   .BY $00,$00,$03,$E8
BF2E   .BY $FF,$FF,$FF,$9C
BF32   .BY $00,$00,$00,$0A
BF36   .BY $FF,$FF,$FF,$FF


; divisors for time conversion

BF3A   .BY $FF,$DF,$0A,$80
BF3E   .BY $00,$03,$4B,$C0
BF42   .BY $FF,$FF,$73,$60
BF46   .BY $00,$00,$0E,$10
BF4A   .BY $FF,$FF,$FD,$A8
BF4E   .BY $00,$00,$00,$3C


; unused
; is this some version id?

BF52   .BY $EC


; unused

BF53   .BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
BF5B   .BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
BF63   .BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
BF6B   .BY $AA,$AA,$AA,$AA,$AA,$AA


; SQR function

BF71   20 0C BC   JSR $BC0C
BF74   A9 11      LDA #$11
BF76   A0 BF      LDY #$BF
BF78   20 A2 BB   JSR $BBA2


; power operator

BF7B   F0 70      BEQ $BFED
BF7D   A5 69      LDA $69
BF7F   D0 03      BNE $BF84
BF81   4C F9 B8   JMP $B8F9

BF84   A2 4E      LDX #$4E   ; low  004E
BF86   A0 00      LDY #$00   ; high 004E
BF88   20 D4 BB   JSR $BBD4
BF8B   A5 6E      LDA $6E
BF8D   10 0F      BPL $BF9E
BF8F   20 CC BC   JSR $BCCC
BF92   A9 4E      LDA #$4E   ; low  004E
BF94   A0 00      LDY #$00   ; high 004E
BF96   20 5B BC   JSR $BC5B
BF99   D0 03      BNE $BF9E
BF9B   98         TYA
BF9C   A4 07      LDY $07
BF9E   20 FE BB   JSR $BBFE
BFA1   98         TYA
BFA2   48         PHA
BFA3   20 EA B9   JSR $B9EA
BFA6   A9 4E      LDA #$4E   ; low  004E
BFA8   A0 00      LDY #$00   ; high 004E
BFAA   20 28 BA   JSR $BA28
BFAD   20 ED BF   JSR $BFED
BFB0   68         PLA
BFB1   4A         LSR
BFB2   90 0A      BCC $BFBE


; minus operator
BFB4   A5 61      LDA $61
BFB6   F0 06      BEQ $BFBE
BFB8   A5 66      LDA $66
BFBA   49 FF      EOR #$FF
BFBC   85 66      STA $66
BFBE   60         RTS

; floating point constands for EXP

; 1/LOG(2)

BFBF   .BY $81,$38,$AA,$3B,$29


; EXP polynomial table

BFC4   .BY $07   ; degree 8
BFC5   .BY $71,$34,$58,$3E,$56
BFCA   .BY $74,$16,$7E,$B3,$1B
BFCF   .BY $77,$2F,$EE,$E3,$85
BFD4   .BY $7A,$1D,$84,$1C,$2A
BFD9   .BY $7C,$63,$59,$58,$0A
BFDE   .BY $7E,$75,$FD,$E7,$C6
BFE3   .BY $80,$31,$72,$18,$10
BFE8   .BY $81,$00,$00,$00,$00


; EXP command

BFED   A9 BF      LDA #$BF
BFEF   A0 BF      LDY #$BF
BFF1   20 28 BA   JSR $BA28
BFF4   A5 70      LDA $70
BFF6   69 50      ADC #$50
BFF8   90 03      BCC $BFFD
BFFA   20 23 BC   JSR $BC23
BFFD   4C 00 E0   JMP $E000

Commodore 64 KERNAL ($03) ROM dissasembly

Version 1.0 (June 1994)



; continuation of EXP function

E000   85 56      STA $56
E002   20 0F BC   JSR $BC0F
E005   A5 61      LDA $61
E007   C9 88      CMP #$88
E009   90 03      BCC $E00E
E00B   20 D4 BA   JSR $BAD4
E00E   20 CC BC   JSR $BCCC
E011   A5 07      LDA $07
E013   18         CLC
E014   69 81      ADC #$81
E016   F0 F3      BEQ $E00B
E018   38         SEC
E019   E9 01      SBC #$01
E01B   48         PHA
E01C   A2 05      LDX #$05
E01E   B5 69      LDA $69,X
E020   B4 61      LDY $61,X
E022   95 61      STA $61,X
E024   94 69      STY $69,X
E026   CA         DEX
E027   10 F5      BPL $E01E
E029   A5 56      LDA $56
E02B   85 70      STA $70
E02D   20 53 B8   JSR $B853
E030   20 B4 BF   JSR $BFB4
E033   A9 C4      LDA #$C4
E035   A0 BF      LDY #$BF
E037   20 59 E0   JSR $E059
E03A   A9 00      LDA #$00
E03C   85 6F      STA $6F
E03E   68         PLA
E03F   20 B9 BA   JSR $BAB9
E042   60         RTS


; compute odd degrees for SIN and ATN

E043   85 71      STA $71
E045   84 72      STY $72
E047   20 CA BB   JSR $BBCA
E04A   A9 57      LDA #$57
E04C   20 28 BA   JSR $BA28
E04F   20 5D E0   JSR $E05D
E052   A9 57      LDA #$57
E054   A0 00      LDY #$00
E056   4C 28 BA   JMP $BA28


; compute polynomials according to table indexed by AY

E059   85 71      STA $71
E05B   84 72      STY $72

E05D   20 C7 BB   JSR $BBC7

E060   B1 71      LDA ($71),Y
E062   85 67      STA $67
E064   A4 71      LDY $71
E066   C8         INY
E067   98         TYA
E068   D0 02      BNE $E06C
E06A   E6 72      INC $72
E06C   85 71      STA $71
E06E   A4 72      LDY $72
E070   20 28 BA   JSR $BA28
E073   A5 71      LDA $71
E075   A4 72      LDY $72
E077   18         CLC
E078   69 05      ADC #$05
E07A   90 01      BCC $E07D
E07C   C8         INY
E07D   85 71      STA $71
E07F   84 72      STY $72
E081   20 67 B8   JSR $B867
E084   A9 5C      LDA #$5C
E086   A0 00      LDY #$00
E088   C6 67      DEC $67
E08A   D0 E4      BNE $E070
E08C   60         RTS


; float numbers for RND

E08D   .BY $98,$35,$44,$7A,$00
E092   .BY $68,$28,$B1,$46,$00


; RND function

E097   20 2B BC   JSR $BC2B
E09A   30 37      BMI $E0D3
E09C   D0 20      BNE $E0BE
E09E   20 F3 FF   JSR $FFF3
E0A1   86 22      STX $22
E0A3   84 23      STY $23
E0A5   A0 04      LDY #$04
E0A7   B1 22      LDA ($22),Y
E0A9   85 62      STA $62
E0AB   C8         INY
E0AC   B1 22      LDA ($22),Y
E0AE   85 64      STA $64
E0B0   A0 08      LDY #$08
E0B2   B1 22      LDA ($22),Y
E0B4   85 63      STA $63
E0B6   C8         INY
E0B7   B1 22      LDA ($22),Y
E0B9   85 65      STA $65
E0BB   4C E3 E0   JMP $E0E3

E0BE   A9 8B      LDA #$8B
E0C0   A0 00      LDY #$00
E0C2   20 A2 BB   JSR $BBA2
E0C5   A9 8D      LDA #$8D
E0C7   A0 E0      LDY #$E0
E0C9   20 28 BA   JSR $BA28
E0CC   A9 92      LDA #$92
E0CE   A0 E0      LDY #$E0
E0D0   20 67 B8   JSR $B867
E0D3   A6 65      LDX $65
E0D5   A5 62      LDA $62
E0D7   85 65      STA $65
E0D9   86 62      STX $62
E0DB   A6 63      LDX $63
E0DD   A5 64      LDA $64
E0DF   85 63      STA $63
E0E1   86 64      STX $64

E0E3   A9 00      LDA #$00

E0E5   85 66      STA $66
E0E7   A5 61      LDA $61
E0E9   85 70      STA $70
E0EB   A9 80      LDA #$80
E0ED   85 61      STA $61
E0EF   20 D7 B8   JSR $B8D7
E0F2   A2 8B      LDX #$8B
E0F4   A0 00      LDY #$00

E0F6   4C D4 BB   JMP $BBD4



; handle errors for direct I/O
; calls from basic

E0F9   C9 F0      CMP #$F0
E0FB   D0 07      BNE $E104
E0FD   84 38      STY $38
E0FF   86 37      STX $37
E101   4C 63 A6   JMP $A663

E104   AA         TAX
E105   D0 02      BNE $E109
E107   A2 1E      LDX #$1E
E109   4C 37 A4   JMP $A437


E10C   20 D2 FF   JSR $FFD2

E10F   B0 E8      BCS $E0F9
E111   60         RTS


E112   20 CF FF   JSR $FFCF

E115   B0 E2      BCS $E0F9
E117   60         RTS


E118   20 AD E4   JSR $E4AD

E11B   B0 DC      BCS $E0F9
E11D   60         RTS


E11E   20 C6 FF   JSR $FFC6

E121   B0 D6      BCS $E0F9
E123   60         RTS


E124   20 E4 FF   JSR $FFE4

E127   B0 D0      BCS $E0F9
E129   60         RTS


; SYS command

E12A   20 8A AD   JSR $AD8A
E12D   20 F7 B7   JSR $B7F7
E130   A9 E1      LDA #$E1   ; low  E146
E132   48         PHA
E133   A9 46      LDA #$46   ; high E146
E135   48         PHA
E136   AD 0F 03   LDA $030F
E139   48         PHA
E13A   AD 0C 03   LDA $030C
E13D   AE 0D 03   LDX $030D
E140   AC 0E 03   LDY $030E
E143   28         PLP
E144   6C 14 00   JMP ($0014)


E147   08         PHP

E148   8D 0C 03   STA $030C
E14B   8E 0D 03   STX $030D
E14E   8C 0E 03   STY $030E
E151   68         PLA
E152   8D 0F 03   STA $030F
E155   60         RTS


; SAVE command

E156   20 D4 E1   JSR $E1D4
E159   A6 2D      LDX $2D
E15B   A4 2E      LDY $2E
E15D   A9 2B      LDA #$2B
E15F   20 D8 FF   JSR $FFD8
E162   B0 95      BCS $E0F9
E164   60         RTS


; VERIFY command

E165   A9 01      LDA #$01
E167   .BY $2C


; LOAD command

E168   A9 00      LDA #$00
E16A   85 0A      STA $0A
E16C   20 D4 E1   JSR $E1D4
E16F   A5 0A      LDA $0A
E171   A6 2B      LDX $2B
E173   A4 2C      LDY $2C
E175   20 D5 FF   JSR $FFD5
E178   B0 57      BCS $E1D1
E17A   A5 0A      LDA $0A
E17C   F0 17      BEQ $E195
E17E   A2 1C      LDX #$1C
E180   20 B7 FF   JSR $FFB7
E183   29 10      AND #$10
E185   D0 17      BNE $E19E
E187   A5 7A      LDA $7A
E189   C9 02      CMP #$02
E18B   F0 07      BEQ $E194
E18D   A9 64      LDA #$64
E18F   A0 A3      LDY #$A3
E191   4C 1E AB   JMP $AB1E
E194   60         RTS

E195   20 B7 FF   JSR $FFB7
E198   29 BF      AND #$BF
E19A   F0 05      BEQ $E1A1
E19C   A2 1D      LDX #$1D
E19E   4C 37 A4   JMP $A437

E1A1   A5 7B      LDA $7B
E1A3   C9 02      CMP #$02
E1A5   D0 0E      BNE $E1B5
E1A7   86 2D      STX $2D
E1A9   84 2E      STY $2E
E1AB   A9 76      LDA #$76
E1AD   A0 A3      LDY #$A3
E1AF   20 1E AB   JSR $AB1E
E1B2   4C 2A A5   JMP $A52A

E1B5   20 8E A6   JSR $A68E
E1B8   20 33 A5   JSR $A533
E1BB   4C 77 A6   JMP $A677


; OPEN command

E1BE   20 19 E2   JSR $E219
E1C1   20 C0 FF   JSR $FFC0
E1C4   B0 0B      BCS $E1D1
E1C6   60         RTS


; CLOSE command

E1C7   20 19 E2   JSR $E219
E1CA   A5 49      LDA $49
E1CC   20 C3 FF   JSR $FFC3
E1CF   90 C3      BCC $E194
E1D1   4C F9 E0   JMP $E0F9


; set parameters for load/verify/save

E1D4   A9 00      LDA #$00
E1D6   20 BD FF   JSR $FFBD
E1D9   A2 01      LDX #$01
E1DB   A0 00      LDY #$00
E1DD   20 BA FF   JSR $FFBA
E1E0   20 06 E2   JSR $E206
E1E3   20 57 E2   JSR $E257
E1E6   20 06 E2   JSR $E206
E1E9   20 00 E2   JSR $E200
E1EC   A0 00      LDY #$00
E1EE   86 49      STX $49
E1F0   20 BA FF   JSR $FFBA
E1F3   20 06 E2   JSR $E206
E1F6   20 00 E2   JSR $E200
E1F9   8A         TXA
E1FA   A8         TAY
E1FB   A6 49      LDX $49
E1FD   4C BA FF   JMP $FFBA


; skip comma and get integer in X

E200   20 0E E2   JSR $E20E
E203   4C 9E B7   JMP $B79E


; get character and check for end of line

E206   20 79 00   JSR $0079
E209   D0 02      BNE $E20D
E20B   68         PLA
E20C   68         PLA
E20D   60         RTS


; check for comma and skip it

E20E   20 FD AE   JSR $AEFD

E211   20 79 00   JSR $0079

E214   D0 F7      BNE $E20D
E216   4C 08 AF   JMP $AF08


; get open/close parameters

E219   A9 00      LDA #$00
E21B   20 BD FF   JSR $FFBD
E21E   20 11 E2   JSR $E211
E221   20 9E B7   JSR $B79E
E224   86 49      STX $49
E226   8A         TXA
E227   A2 01      LDX #$01
E229   A0 00      LDY #$00
E22B   20 BA FF   JSR $FFBA
E22E   20 06 E2   JSR $E206
E231   20 00 E2   JSR $E200
E234   86 4A      STX $4A
E236   A0 00      LDY #$00
E238   A5 49      LDA $49
E23A   E0 03      CPX #$03
E23C   90 01      BCC $E23F
E23E   88         DEY
E23F   20 BA FF   JSR $FFBA
E242   20 06 E2   JSR $E206
E245   20 00 E2   JSR $E200
E248   8A         TXA
E249   A8         TAY
E24A   A6 4A      LDX $4A
E24C   A5 49      LDA $49
E24E   20 BA FF   JSR $FFBA
E251   20 06 E2   JSR $E206
E254   20 0E E2   JSR $E20E

E257   20 9E AD   JSR $AD9E

E25A   20 A3 B6   JSR $B6A3
E25D   A6 22      LDX $22
E25F   A4 23      LDY $23
E261   4C BD FF   JMP $FFBD


; COS function

E264   A9 E0      LDA #$E0   ; low  E2E0
E266   A0 E2      LDY #$E2   ; high E2E0
E268   20 67 B8   JSR $B867


; SIN function

E26B   20 0C BC   JSR $BC0C
E26E   A9 E5      LDA #$E5   ; low  E2E5
E270   A0 E2      LDY #$E2   ; high E2E5
E272   A6 6E      LDX $6E
E274   20 07 BB   JSR $BB07
E277   20 0C BC   JSR $BC0C
E27A   20 CC BC   JSR $BCCC
E27D   A9 00      LDA #$00
E27F   85 6F      STA $6F
E281   20 53 B8   JSR $B853
E284   A9 EA      LDA #$EA   ; low  E2EA
E286   A0 E2      LDY #$E2   ; high E2EA
E288   20 50 B8   JSR $B850
E28B   A5 66      LDA $66
E28D   48         PHA
E28E   10 0D      BPL $E29D
E290   20 49 B8   JSR $B849
E293   A5 66      LDA $66
E295   30 09      BMI $E2A0
E297   A5 12      LDA $12
E299   49 FF      EOR #$FF
E29B   85 12      STA $12

E29D   20 B4 BF   JSR $BFB4

E2A0   A9 EA      LDA #$EA   ; low  E2EA
E2A2   A0 E2      LDY #$E2   ; high E2EA
E2A4   20 67 B8   JSR $B867
E2A7   68         PLA
E2A8   10 03      BPL $E2AD
E2AA   20 B4 BF   JSR $BFB4
E2AD   A9 EF      LDA #$EF
E2AF   A0 E2      LDY #$E2
E2B1   4C 43 E0   JMP $E043


; TAN function

E2B4   20 CA BB   JSR $BBCA
E2B7   A9 00      LDA #$00
E2B9   85 12      STA $12
E2BB   20 6B E2   JSR $E26B
E2BE   A2 4E      LDX #$4E   ; low  004E
E2C0   A0 00      LDY #$00   ; high 004E
E2C2   20 F6 E0   JSR $E0F6
E2C5   A9 57      LDA #$57   ; low  005F
E2C7   A0 00      LDY #$00   ; high 005F
E2C9   20 A2 BB   JSR $BBA2
E2CC   A9 00      LDA #$00
E2CE   85 66      STA $66
E2D0   A5 12      LDA $12
E2D2   20 DC E2   JSR $E2DC
E2D5   A9 4E      LDA #$4E   ; low  004E
E2D7   A0 00      LDY #$00   ; high 004E
E2D9   4C 0F BB   JMP $BB0F


E2DC   48         PHA

E2DD   4C 9D E2   JMP $E29D


; float numbers for SIN, COS and TAN

; 0.5 * PI
E2E0   .BY $81,$49,$0F,$DA,$A2
; 2 * PI
E2E5   .BY $83,$49,$0F,$DA,$A2
; 0,25
E2EA   .BY $7F,$00,$00,$00,$00


; polynomial table

E2EF   .BY $05   ; degree 6
E2F0   .BY $84,$E6,$1A,$2D,$1B
E2F5   .BY $86,$28,$07,$FB,$F8
E2FA   .BY $87,$99,$68,$89,$01
E2FF   .BY $87,$23,$35,$DF,$E1
E304   .BY $86,$A5,$5D,$E7,$28
E309   .BY $83,$49,$0F,$DA,$A2


; ATN function

E30E   A5 66      LDA $66
E310   48         PHA
E311   10 03      BPL $E316
E313   20 B4 BF   JSR $BFB4
E316   A5 61      LDA $61
E318   48         PHA
E319   C9 81      CMP #$81
E31B   90 07      BCC $E324
E31D   A9 BC      LDA #$BC   ; low  B9BC
E31F   A0 B9      LDY #$B9   ; high B9BC
E321   20 0F BB   JSR $BB0F
E324   A9 3E      LDA #$3E   ; low  E33E
E326   A0 E3      LDY #$E3   ; high E33E
E328   20 43 E0   JSR $E043
E32B   68         PLA
E32C   C9 81      CMP #$81
E32E   90 07      BCC $E337
E330   A9 E0      LDA #$E0   ; low  E2E0
E332   A0 E2      LDY #$E2   ; high E2E0
E334   20 50 B8   JSR $B850
E337   68         PLA
E338   10 03      BPL $E33D
E33A   4C B4 BF   JMP $BFB4
E33D   60         RTS


; float numbers for ATN
; polynomial table

E33E   .BY $0B   ; degree 12
E33F   .BY $76,$B3,$83,$BD,$D3
E344   .BY $79,$1E,$F4,$A6,$F5
E349   .BY $7B,$83,$FC,$B0,$10
E34E   .BY $7C,$0C,$1F,$67,$CA
E353   .BY $7C,$DE,$53,$CB,$C1
E358   .BY $7D,$14,$64,$70,$4C
E35D   .BY $7D,$B7,$EA,$51,$7A
E362   .BY $7D,$63,$30,$88,$7E
E367   .BY $7E,$92,$44,$99,$3A
E36C   .BY $7E,$4C,$CC,$91,$C7
E371   .BY $7F,$AA,$AA,$AA,$13
E376   .BY $81,$00,$00,$00,$00


; warm start entry

E37B   20 CC FF   JSR $FFCC
E37E   A9 00      LDA #$00
E380   85 13      STA $13
E382   20 7A A6   JSR $A67A
E385   58         CLI

E386   A2 80      LDX #$80

E388   6C 00 03   JMP ($0300)   ; normally E38B


; handle error messages

E38B   8A         TXA
E38C   30 03      BMI $E391
E38E   4C 3A A4   JMP $A43A

E391   4C 74 A4   JMP $A474


; RESET routine

E394   20 53 E4   JSR $E453
E397   20 BF E3   JSR $E3BF
E39A   20 22 E4   JSR $E422
E39D   A2 FB      LDX #$FB
E39F   9A         TXS
E3A0   D0 E4      BNE $E386


; character fetch code for zero page $0073-$008F

E3A2   E6 7A      INC $7A
E3A4   D0 02      BNE $E3A8
E3A6   E6 7B      INC $7B
E3A8   AD 60 EA   LDA $EA60
E3AB   C9 3A      CMP #$3A   ; colon
E3AD   B0 0A      BCS $E3B9
E3AF   C9 20      CMP #$20   ; space
E3B1   F0 EF      BEQ $E3A2
E3B3   38         SEC
E3B4   E9 30      SBC #$30   ; 0
E3B6   38         SEC
E3B7   E9 D0      SBC #$D0
E3B9   60         RTS


; first RND seed value

E3BA   .BY $80,$4F,$C7,$52,$58


; initialisation of basic

E3BF   A9 4C      LDA #$4C
E3C1   85 54      STA $54
E3C3   8D 10 03   STA $0310
E3C6   A9 48      LDA #$48   ; low  B248
E3C8   A0 B2      LDY #$B2   ; high B248
E3CA   8D 11 03   STA $0311
E3CD   8C 12 03   STY $0312
E3D0   A9 91      LDA #$91   ; lowh B391
E3D2   A0 B3      LDY #$B3   ; high B391
E3D4   85 05      STA $05
E3D6   84 06      STY $06
E3D8   A9 AA      LDA #$AA   ; low  B1AA
E3DA   A0 B1      LDY #$B1   ; high B1AA
E3DC   85 03      STA $03
E3DE   84 04      STY $04
E3E0   A2 1C      LDX #$1C
E3E2   BD A2 E3   LDA $E3A2,X
E3E5   95 73      STA $73,X
E3E7   CA         DEX
E3E8   10 F8      BPL $E3E2
E3EA   A9 03      LDA #$03
E3EC   85 53      STA $53
E3EE   A9 00      LDA #$00
E3F0   85 68      STA $68
E3F2   85 13      STA $13
E3F4   85 18      STA $18
E3F6   A2 01      LDX #$01
E3F8   8E FD 01   STX $01FD
E3FB   8E FC 01   STX $01FC
E3FE   A2 19      LDX #$19
E400   86 16      STX $16
E402   38         SEC
E403   20 9C FF   JSR $FF9C
E406   86 2B      STX $2B
E408   84 2C      STY $2C
E40A   38         SEC
E40B   20 99 FF   JSR $FF99
E40E   86 37      STX $37
E410   84 38      STY $38
E412   86 33      STX $33
E414   84 34      STY $34
E416   A0 00      LDY #$00
E418   98         TYA
E419   91 2B      STA ($2B),Y
E41B   E6 2B      INC $2B
E41D   D0 02      BNE $E421
E41F   E6 2C      INC $2C
E421   60         RTS


; print BASIC start up messages

E422   A5 2B      LDA $2B
E424   A4 2C      LDY $2C
E426   20 08 A4   JSR $A408
E429   A9 73      LDA #$73   ; low  E473
E42B   A0 E4      LDY #$E4   ; high E473
E42D   20 1E AB   JSR $AB1E
E430   A5 37      LDA $37
E432   38         SEC
E433   E5 2B      SBC $2B
E435   AA         TAX
E436   A5 38      LDA $38
E438   E5 2C      SBC $2C
E43A   20 CD BD   JSR $BDCD
E43D   A9 60      LDA #$60   ; low  E460
E43F   A0 E4      LDY #$E4   ; high E460
E441   20 1E AB   JSR $AB1E
E444   4C 44 A6   JMP $A644


; vectors for $0300-$030B

E447   .WD $E38B
E449   .WD $A483
E44B   .WD $A57C
E44D   .WD $A71A
E44F   .WD $A7E4
E451   .WD $AE86


; initialise vectors

E453   A2 0B      LDX #$0B
E455   BD 47 E4   LDA $E447,X
E458   9D 00 03   STA $0300,X
E45B   CA         DEX
E45C   10 F7      BPL $E455
E45E   60         RTS


; startup messages

E45F   .BY $00

; basic bytes free

E460   .BY $20,$42,$41,$53,$49,$43
E466   .BY $20,$42,$59,$54,$45,$53
E46C   .BY $20,$46,$52,$45,$45
E471   .BY $0D
E472   .BY $00

; **** commodore 64 basic v2 ****

E473   .BY $93,$0D,$20,$20,$20
E478   .BY $20,$2A,$2A,$2A,$2A
E47D   .BY $20,$43,$4F,$4D,$4D,$4F,$44,$4F,$52,$45
E487   .BY $20,$36,$34
E48A   .BY $20,$42,$41,$53,$49,$43
E490   .BY $20,$56,$32
E493   .BY $20,$2A,$2A,$2A,$2A
E498   .BY $0D,$0D

; 64k ram system

E49A   .BY $20,$36,$34,$4B
E49E   .BY $20,$52,$41,$4D
E4A2   .BY $20,$53,$59,$53,$54,$45,$4D
E4A9   .BY $20,$20
E4AB   .BY $00

E4AC   .BY $81


; set output device

E4AD   48         PHA
E4AE   20 C9 FF   JSR $FFC9
E4B1   AA         TAX
E4B2   68         PLA
E4B3   90 01      BCC $E4B6
E4B5   8A         TXA
E4B6   60         RTS


; unused

E4B7   .BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
E4BF   .BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
E4C7   .BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
E4CF   .BY $AA,$AA,$AA,$AA


E4D3   85 A9      STA $A9

E4D5   A9 01      LDA #$01
E4D7   85 AB      STA $AB
E4D9   60         RTS


; clear byte in color ram

E4DA   AD 86 02   LDA $0286
E4DD   91 F3      STA ($F3),Y
E4DF   60         RTS


; pause after finding a file on casette

E4E0   69 02      ADC #$02
E4E2   A4 91      LDY $91
E4E4   C8         INY
E4E5   D0 04      BNE $E4EB
E4E7   C5 A1      CMP $A1
E4E9   D0 F7      BNE $E4E2
E4EB   60         RTS


; baud rate factor table

E4EC   .WD $2619   ; 50
E4EE   .WD $1944   ; 75
E4F0   .WD $111A   ; 110
E4F2   .WD $0DE8   ; 134.5
E4F4   .WD $0C70   ; 150
E4F6   .WD $0606   ; 300
E4F8   .WD $02D1   ; 600
E4FA   .WD $0137   ; 1200
E4FC   .WD $00AE   ; 1800
E4FE   .WD $0069   ; 2400


; read base address of I/O device into XY

E500   A2 00      LDX #$00   ; low  DC00
E502   A0 DC      LDY #$DC   ; high DC00
E504   60         RTS


; read screen size

E505   A2 28      LDX #$28   ; 40 columns
E507   A0 19      LDY #$19   ; 25 rows
E509   60         RTS


; read/set XY cursor position

E50A   B0 07      BCS $E513
E50C   86 D6      STX $D6
E50E   84 D3      STY $D3
E510   20 6C E5   JSR $E56C
E513   A6 D6      LDX $D6
E515   A4 D3      LDY $D3
E517   60         RTS


; initialise screen and keyboard

E518   20 A0 E5   JSR $E5A0
E51B   A9 00      LDA #$00
E51D   8D 91 02   STA $0291
E520   85 CF      STA $CF
E522   A9 48      LDA #$48   ; low  EB48
E524   8D 8F 02   STA $028F
E527   A9 EB      LDA #$EB   ; high EB48
E529   8D 90 02   STA $0290
E52C   A9 0A      LDA #$0A
E52E   8D 89 02   STA $0289
E531   8D 8C 02   STA $028C
E534   A9 0E      LDA #$0E
E536   8D 86 02   STA $0286
E539   A9 04      LDA #$04
E53B   8D 8B 02   STA $028B
E53E   A9 0C      LDA #$0C
E540   85 CD      STA $CD
E542   85 CC      STA $CC

E544   AD 88 02   LDA $0288

E547   09 80      ORA #$80
E549   A8         TAY
E54A   A9 00      LDA #$00
E54C   AA         TAX
E54D   94 D9      STY $D9,X
E54F   18         CLC
E550   69 28      ADC #$28
E552   90 01      BCC $E555
E554   C8         INY
E555   E8         INX
E556   E0 1A      CPX #$1A
E558   D0 F3      BNE $E54D
E55A   A9 FF      LDA #$FF
E55C   95 D9      STA $D9,X
E55E   A2 18      LDX #$18
E560   20 FF E9   JSR $E9FF
E563   CA         DEX
E564   10 FA      BPL $E560

E566   A0 00      LDY #$00

E568   84 D3      STY $D3
E56A   84 D6      STY $D6


; set address of curent screen line

E56C   A6 D6      LDX $D6
E56E   A5 D3      LDA $D3
E570   B4 D9      LDY $D9,X
E572   30 08      BMI $E57C
E574   18         CLC
E575   69 28      ADC #$28
E577   85 D3      STA $D3
E579   CA         DEX
E57A   10 F4      BPL $E570
E57C   20 F0 E9   JSR $E9F0
E57F   A9 27      LDA #$27
E581   E8         INX
E582   B4 D9      LDY $D9,X
E584   30 06      BMI $E58C
E586   18         CLC
E587   69 28      ADC #$28
E589   E8         INX
E58A   10 F6      BPL $E582
E58C   85 D5      STA $D5
E58E   4C 24 EA   JMP $EA24

E591   E4 C9      CPX $C9

E593   F0 03      BEQ $E598
E595   4C ED E6   JMP $E6ED
E598   60         RTS

E599   EA         NOP


; this code is unused by kernel
; since no other part of the
; rom jumps to this location!

E59A   20 A0 E5   JSR $E5A0
E59D   4C 66 E5   JMP $E566


; initialise vic chip

E5A0   A9 03      LDA #$03
E5A2   85 9A      STA $9A
E5A4   A9 00      LDA #$00
E5A6   85 99      STA $99
E5A8   A2 2F      LDX #$2F
E5AA   BD B8 EC   LDA $ECB8,X
E5AD   9D FF CF   STA $CFFF,X
E5B0   CA         DEX
E5B1   D0 F7      BNE $E5AA
E5B3   60         RTS


; get character from keyboard buffer

E5B4   AC 77 02   LDY $0277
E5B7   A2 00      LDX #$00
E5B9   BD 78 02   LDA $0278,X
E5BC   9D 77 02   STA $0277,X
E5BF   E8         INX
E5C0   E4 C6      CPX $C6
E5C2   D0 F5      BNE $E5B9
E5C4   C6 C6      DEC $C6
E5C6   98         TYA
E5C7   58         CLI
E5C8   18         CLC
E5C9   60         RTS

; wait for return for keyboard
E5CA   20 16 E7   JSR $E716
E5CD   A5 C6      LDA $C6
E5CF   85 CC      STA $CC
E5D1   8D 92 02   STA $0292
E5D4   F0 F7      BEQ $E5CD
E5D6   78         SEI
E5D7   A5 CF      LDA $CF
E5D9   F0 0C      BEQ $E5E7
E5DB   A5 CE      LDA $CE
E5DD   AE 87 02   LDX $0287
E5E0   A0 00      LDY #$00
E5E2   84 CF      STY $CF
E5E4   20 13 EA   JSR $EA13
E5E7   20 B4 E5   JSR $E5B4
E5EA   C9 83      CMP #$83
E5EC   D0 10      BNE $E5FE
E5EE   A2 09      LDX #$09
E5F0   78         SEI
E5F1   86 C6      STX $C6
E5F3   BD E6 EC   LDA $ECE6,X
E5F6   9D 76 02   STA $0276,X
E5F9   CA         DEX
E5FA   D0 F7      BNE $E5F3
E5FC   F0 CF      BEQ $E5CD
E5FE   C9 0D      CMP #$0D
E600   D0 C8      BNE $E5CA
E602   A4 D5      LDY $D5
E604   84 D0      STY $D0
E606   B1 D1      LDA ($D1),Y
E608   C9 20      CMP #$20
E60A   D0 03      BNE $E60F
E60C   88         DEY
E60D   D0 F7      BNE $E606
E60F   C8         INY
E610   84 C8      STY $C8
E612   A0 00      LDY #$00
E614   8C 92 02   STY $0292
E617   84 D3      STY $D3
E619   84 D4      STY $D4
E61B   A5 C9      LDA $C9
E61D   30 1B      BMI $E63A
E61F   A6 D6      LDX $D6
E621   20 91 E5   JSR $E591
E624   E4 C9      CPX $C9
E626   D0 12      BNE $E63A
E628   A5 CA      LDA $CA
E62A   85 D3      STA $D3
E62C   C5 C8      CMP $C8
E62E   90 0A      BCC $E63A
E630   B0 2B      BCS $E65D


; get character from device 0 or 3

E632   98         TYA
E633   48         PHA
E634   8A         TXA
E635   48         PHA
E636   A5 D0      LDA $D0
E638   F0 93      BEQ $E5CD


; get character from current screen line

E63A   A4 D3      LDY $D3
E63C   B1 D1      LDA ($D1),Y
E63E   85 D7      STA $D7
E640   29 3F      AND #$3F
E642   06 D7      ASL $D7
E644   24 D7      BIT $D7
E646   10 02      BPL $E64A
E648   09 80      ORA #$80
E64A   90 04      BCC $E650
E64C   A6 D4      LDX $D4
E64E   D0 04      BNE $E654
E650   70 02      BVS $E654
E652   09 40      ORA #$40
E654   E6 D3      INC $D3
E656   20 84 E6   JSR $E684
E659   C4 C8      CPY $C8
E65B   D0 17      BNE $E674
E65D   A9 00      LDA #$00
E65F   85 D0      STA $D0
E661   A9 0D      LDA #$0D
E663   A6 99      LDX $99
E665   E0 03      CPX #$03
E667   F0 06      BEQ $E66F
E669   A6 9A      LDX $9A
E66B   E0 03      CPX #$03
E66D   F0 03      BEQ $E672
E66F   20 16 E7   JSR $E716
E672   A9 0D      LDA #$0D
E674   85 D7      STA $D7
E676   68         PLA
E677   AA         TAX
E678   68         PLA
E679   A8         TAY
E67A   A5 D7      LDA $D7
E67C   C9 DE      CMP #$DE   ; screen PI code
E67E   D0 02      BNE $E682
E680   A9 FF      LDA #$FF   ; petscii PI code
E682   18         CLC
E683   60         RTS


; check for quote mark and set flag

E684   C9 22      CMP #$22   ; quote mark
E686   D0 08      BNE $E690
E688   A5 D4      LDA $D4
E68A   49 01      EOR #$01
E68C   85 D4      STA $D4
E68E   A9 22      LDA #$22   ; quote mark
E690   60         RTS


; fill screen at current position

E691   09 40      ORA #$40

E693   A6 C7      LDX $C7

E695   F0 02      BEQ $E699

E697   09 80      ORA #$80

E699   A6 D8      LDX $D8
E69B   F0 02      BEQ $E69F
E69D   C6 D8      DEC $D8
E69F   AE 86 02   LDX $0286
E6A2   20 13 EA   JSR $EA13
E6A5   20 B6 E6   JSR $E6B6


; return from output to the screen

E6A8   68         PLA
E6A9   A8         TAY
E6AA   A5 D8      LDA $D8
E6AC   F0 02      BEQ $E6B0
E6AE   46 D4      LSR $D4
E6B0   68         PLA
E6B1   AA         TAX
E6B2   68         PLA
E6B3   18         CLC
E6B4   58         CLI
E6B5   60         RTS


; get/insert new line

E6B6   20 B3 E8   JSR $E8B3
E6B9   E6 D3      INC $D3
E6BB   A5 D5      LDA $D5
E6BD   C5 D3      CMP $D3
E6BF   B0 3F      BCS $E700
E6C1   C9 4F      CMP #$4F
E6C3   F0 32      BEQ $E6F7
E6C5   AD 92 02   LDA $0292
E6C8   F0 03      BEQ $E6CD
E6CA   4C 67 E9   JMP $E967

E6CD   A6 D6      LDX $D6
E6CF   E0 19      CPX #$19
E6D1   90 07      BCC $E6DA
E6D3   20 EA E8   JSR $E8EA
E6D6   C6 D6      DEC $D6
E6D8   A6 D6      LDX $D6

E6DA   16 D9      ASL $D9,X

E6DC   56 D9      LSR $D9,X
E6DE   E8         INX
E6DF   B5 D9      LDA $D9,X
E6E1   09 80      ORA #$80
E6E3   95 D9      STA $D9,X
E6E5   CA         DEX
E6E6   A5 D5      LDA $D5
E6E8   18         CLC
E6E9   69 28      ADC #$28
E6EB   85 D5      STA $D5

E6ED   B5 D9      LDA $D9,X

E6EF   30 03      BMI $E6F4
E6F1   CA         DEX
E6F2   D0 F9      BNE $E6ED
E6F4   4C F0 E9   JMP $E9F0

E6F7   C6 D6      DEC $D6
E6F9   20 7C E8   JSR $E87C
E6FC   A9 00      LDA #$00
E6FE   85 D3      STA $D3
E700   60         RTS


; move backwards over a line boundary

E701   A6 D6      LDX $D6
E703   D0 06      BNE $E70B
E705   86 D3      STX $D3
E707   68         PLA
E708   68         PLA
E709   D0 9D      BNE $E6A8
E70B   CA         DEX
E70C   86 D6      STX $D6
E70E   20 6C E5   JSR $E56C
E711   A4 D5      LDY $D5
E713   84 D3      STY $D3
E715   60         RTS


; put a character to screen

E716   48         PHA
E717   85 D7      STA $D7
E719   8A         TXA
E71A   48         PHA
E71B   98         TYA
E71C   48         PHA
E71D   A9 00      LDA #$00
E71F   85 D0      STA $D0
E721   A4 D3      LDY $D3
E723   A5 D7      LDA $D7
E725   10 03      BPL $E72A
E727   4C D4 E7   JMP $E7D4

E72A   C9 0D      CMP #$0D   ; return code
E72C   D0 03      BNE $E731
E72E   4C 91 E8   JMP $E891

E731   C9 20      CMP #$20
E733   90 10      BCC $E745
E735   C9 60      CMP #$60
E737   90 04      BCC $E73D
E739   29 DF      AND #$DF
E73B   D0 02      BNE $E73F
E73D   29 3F      AND #$3F
E73F   20 84 E6   JSR $E684
E742   4C 93 E6   JMP $E693

E745   A6 D8      LDX $D8
E747   F0 03      BEQ $E74C
E749   4C 97 E6   JMP $E697

E74C   C9 14      CMP #$14    ; delete code
E74E   D0 2E      BNE $E77E
E750   98         TYA
E751   D0 06      BNE $E759
E753   20 01 E7   JSR $E701
E756   4C 73 E7   JMP $E773

E759   20 A1 E8   JSR $E8A1
E75C   88         DEY
E75D   84 D3      STY $D3
E75F   20 24 EA   JSR $EA24
E762   C8         INY
E763   B1 D1      LDA ($D1),Y
E765   88         DEY
E766   91 D1      STA ($D1),Y
E768   C8         INY
E769   B1 F3      LDA ($F3),Y
E76B   88         DEY
E76C   91 F3      STA ($F3),Y
E76E   C8         INY
E76F   C4 D5      CPY $D5
E771   D0 EF      BNE $E762

E773   A9 20      LDA #$20   ; space

E775   91 D1      STA ($D1),Y
E777   AD 86 02   LDA $0286
E77A   91 F3      STA ($F3),Y
E77C   10 4D      BPL $E7CB
E77E   A6 D4      LDX $D4
E780   F0 03      BEQ $E785
E782   4C 97 E6   JMP $E697

E785   C9 12      CMP #$12   ;  reverse code
E787   D0 02      BNE $E78B
E789   85 C7      STA $C7
E78B   C9 13      CMP #$13   ; home code
E78D   D0 03      BNE $E792
E78F   20 66 E5   JSR $E566
E792   C9 1D      CMP #$1D   ; csr right
E794   D0 17      BNE $E7AD
E796   C8         INY
E797   20 B3 E8   JSR $E8B3
E79A   84 D3      STY $D3
E79C   88         DEY
E79D   C4 D5      CPY $D5
E79F   90 09      BCC $E7AA
E7A1   C6 D6      DEC $D6
E7A3   20 7C E8   JSR $E87C
E7A6   A0 00      LDY #$00
E7A8   84 D3      STY $D3
E7AA   4C A8 E6   JMP $E6A8

E7AD   C9 11      CMP #$11   ; csr down
E7AF   D0 1D      BNE $E7CE
E7B1   18         CLC
E7B2   98         TYA
E7B3   69 28      ADC #$28
E7B5   A8         TAY
E7B6   E6 D6      INC $D6
E7B8   C5 D5      CMP $D5
E7BA   90 EC      BCC $E7A8
E7BC   F0 EA      BEQ $E7A8
E7BE   C6 D6      DEC $D6
E7C0   E9 28      SBC #$28
E7C2   90 04      BCC $E7C8
E7C4   85 D3      STA $D3
E7C6   D0 F8      BNE $E7C0
E7C8   20 7C E8   JSR $E87C
E7CB   4C A8 E6   JMP $E6A8

E7CE   20 CB E8   JSR $E8CB
E7D1   4C 44 EC   JMP $EC44


; put shifted chars to screen

E7D4   29 7F      AND #$7F   ; remove shift bit
E7D6   C9 7F      CMP #$7F   ; code for PI
E7D8   D0 02      BNE $E7DC
E7DA   A9 5E      LDA #$5E   ; screen PI
E7DC   C9 20      CMP #$20
E7DE   90 03      BCC $E7E3
E7E0   4C 91 E6   JMP $E691

E7E3   C9 0D      CMP #$0D   ; shift return
E7E5   D0 03      BNE $E7EA
E7E7   4C 91 E8   JMP $E891
E7EA   A6 D4      LDX $D4
E7EC   D0 3F      BNE $E82D
E7EE   C9 14      CMP #$14   ; insert
E7F0   D0 37      BNE $E829
E7F2   A4 D5      LDY $D5
E7F4   B1 D1      LDA ($D1),Y
E7F6   C9 20      CMP #$20
E7F8   D0 04      BNE $E7FE
E7FA   C4 D3      CPY $D3
E7FC   D0 07      BNE $E805
E7FE   C0 4F      CPY #$4F
E800   F0 24      BEQ $E826
E802   20 65 E9   JSR $E965
E805   A4 D5      LDY $D5
E807   20 24 EA   JSR $EA24
E80A   88         DEY
E80B   B1 D1      LDA ($D1),Y
E80D   C8         INY
E80E   91 D1      STA ($D1),Y
E810   88         DEY
E811   B1 F3      LDA ($F3),Y
E813   C8         INY
E814   91 F3      STA ($F3),Y
E816   88         DEY
E817   C4 D3      CPY $D3
E819   D0 EF      BNE $E80A
E81B   A9 20      LDA #$20
E81D   91 D1      STA ($D1),Y
E81F   AD 86 02   LDA $0286
E822   91 F3      STA ($F3),Y
E824   E6 D8      INC $D8
E826   4C A8 E6   JMP $E6A8

E829   A6 D8      LDX $D8
E82B   F0 05      BEQ $E832
E82D   09 40      ORA #$40
E82F   4C 97 E6   JMP $E697

E832   C9 11      CMP #$11   ; csr up
E834   D0 16      BNE $E84C
E836   A6 D6      LDX $D6
E838   F0 37      BEQ $E871
E83A   C6 D6      DEC $D6
E83C   A5 D3      LDA $D3
E83E   38         SEC
E83F   E9 28      SBC #$28
E841   90 04      BCC $E847
E843   85 D3      STA $D3
E845   10 2A      BPL $E871
E847   20 6C E5   JSR $E56C
E84A   D0 25      BNE $E871
E84C   C9 12      CMP #$12    ; reverse off
E84E   D0 04      BNE $E854
E850   A9 00      LDA #$00
E852   85 C7      STA $C7
E854   C9 1D      CMP #$1D   ; csr left
E856   D0 12      BNE $E86A
E858   98         TYA
E859   F0 09      BEQ $E864
E85B   20 A1 E8   JSR $E8A1
E85E   88         DEY
E85F   84 D3      STY $D3
E861   4C A8 E6   JMP $E6A8

E864   20 01 E7   JSR $E701
E867   4C A8 E6   JMP $E6A8

E86A   C9 13      CMP #$13   ; clr code
E86C   D0 06      BNE $E874
E86E   20 44 E5   JSR $E544
E871   4C A8 E6   JMP $E6A8

E874   09 80      ORA #$80
E876   20 CB E8   JSR $E8CB
E879   4C 4F EC   JMP $EC4F


; set next line number

E87C   46 C9      LSR $C9
E87E   A6 D6      LDX $D6
E880   E8         INX
E881   E0 19      CPX #$19
E883   D0 03      BNE $E888
E885   20 EA E8   JSR $E8EA
E888   B5 D9      LDA $D9,X
E88A   10 F4      BPL $E880
E88C   86 D6      STX $D6
E88E   4C 6C E5   JMP $E56C


; action for return

E891   A2 00      LDX #$00
E893   86 D8      STX $D8
E895   86 C7      STX $C7
E897   86 D4      STX $D4
E899   86 D3      STX $D3
E89B   20 7C E8   JSR $E87C
E89E   4C A8 E6   JMP $E6A8


; move cursor to previous line if
; at start of line

E8A1   A2 02      LDX #$02
E8A3   A9 00      LDA #$00
E8A5   C5 D3      CMP $D3
E8A7   F0 07      BEQ $E8B0
E8A9   18         CLC
E8AA   69 28      ADC #$28
E8AC   CA         DEX
E8AD   D0 F6      BNE $E8A5
E8AF   60         RTS

E8B0   C6 D6      DEC $D6
E8B2   60         RTS


; move cursor to next line if
; at end of line

E8B3   A2 02      LDX #$02
E8B5   A9 27      LDA #$27
E8B7   C5 D3      CMP $D3
E8B9   F0 07      BEQ $E8C2
E8BB   18         CLC
E8BC   69 28      ADC #$28
E8BE   CA         DEX
E8BF   D0 F6      BNE $E8B7
E8C1   60         RTS

E8C2   A6 D6      LDX $D6
E8C4   E0 19      CPX #$19
E8C6   F0 02      BEQ $E8CA
E8C8   E6 D6      INC $D6
E8CA   60         RTS


; check for colour change codes

E8CB   A2 0F      LDX #$0F
E8CD   DD DA E8   CMP $E8DA,X
E8D0   F0 04      BEQ $E8D6
E8D2   CA         DEX
E8D3   10 F8      BPL $E8CD
E8D5   60         RTS

E8D6   8E 86 02   STX $0286
E8D9   60         RTS


; colour key codes

E8DA   .BY $90,$05,$1C,$9F,$9C,$1E,$1F,$9E
E8E2   .BY $81,$95,$96,$97,$98,$99,$9A,$9B


; scroll screen

E8EA   A5 AC      LDA $AC
E8EC   48         PHA
E8ED   A5 AD      LDA $AD
E8EF   48         PHA
E8F0   A5 AE      LDA $AE
E8F2   48         PHA
E8F3   A5 AF      LDA $AF
E8F5   48         PHA
E8F6   A2 FF      LDX #$FF
E8F8   C6 D6      DEC $D6
E8FA   C6 C9      DEC $C9
E8FC   CE A5 02   DEC $02A5
E8FF   E8         INX
E900   20 F0 E9   JSR $E9F0
E903   E0 18      CPX #$18
E905   B0 0C      BCS $E913
E907   BD F1 EC   LDA $ECF1,X
E90A   85 AC      STA $AC
E90C   B5 DA      LDA $DA,X
E90E   20 C8 E9   JSR $E9C8
E911   30 EC      BMI $E8FF
E913   20 FF E9   JSR $E9FF
E916   A2 00      LDX #$00
E918   B5 D9      LDA $D9,X
E91A   29 7F      AND #$7F
E91C   B4 DA      LDY $DA,X
E91E   10 02      BPL $E922
E920   09 80      ORA #$80
E922   95 D9      STA $D9,X
E924   E8         INX
E925   E0 18      CPX #$18
E927   D0 EF      BNE $E918
E929   A5 F1      LDA $F1
E92B   09 80      ORA #$80
E92D   85 F1      STA $F1
E92F   A5 D9      LDA $D9
E931   10 C3      BPL $E8F6
E933   E6 D6      INC $D6
E935   EE A5 02   INC $02A5
E938   A9 7F      LDA #$7F
E93A   8D 00 DC   STA $DC00
E93D   AD 01 DC   LDA $DC01
E940   C9 FB      CMP #$FB
E942   08         PHP
E943   A9 7F      LDA #$7F
E945   8D 00 DC   STA $DC00
E948   28         PLP
E949   D0 0B      BNE $E956
E94B   A0 00      LDY #$00
E94D   EA         NOP
E94E   CA         DEX
E94F   D0 FC      BNE $E94D
E951   88         DEY
E952   D0 F9      BNE $E94D
E954   84 C6      STY $C6
E956   A6 D6      LDX $D6

E958   68         PLA

E959   85 AF      STA $AF
E95B   68         PLA
E95C   85 AE      STA $AE
E95E   68         PLA
E95F   85 AD      STA $AD
E961   68         PLA
E962   85 AC      STA $AC
E964   60         RTS


; insert blank line in screen

E965   A6 D6      LDX $D6

E967   E8         INX

E968   B5 D9      LDA $D9,X
E96A   10 FB      BPL $E967
E96C   8E A5 02   STX $02A5
E96F   E0 18      CPX #$18
E971   F0 0E      BEQ $E981
E973   90 0C      BCC $E981
E975   20 EA E8   JSR $E8EA
E978   AE A5 02   LDX $02A5
E97B   CA         DEX
E97C   C6 D6      DEC $D6
E97E   4C DA E6   JMP $E6DA

E981   A5 AC      LDA $AC
E983   48         PHA
E984   A5 AD      LDA $AD
E986   48         PHA
E987   A5 AE      LDA $AE
E989   48         PHA
E98A   A5 AF      LDA $AF
E98C   48         PHA
E98D   A2 19      LDX #$19
E98F   CA         DEX
E990   20 F0 E9   JSR $E9F0
E993   EC A5 02   CPX $02A5
E996   90 0E      BCC $E9A6
E998   F0 0C      BEQ $E9A6
E99A   BD EF EC   LDA $ECEF,X
E99D   85 AC      STA $AC
E99F   B5 D8      LDA $D8,X
E9A1   20 C8 E9   JSR $E9C8
E9A4   30 E9      BMI $E98F
E9A6   20 FF E9   JSR $E9FF
E9A9   A2 17      LDX #$17
E9AB   EC A5 02   CPX $02A5
E9AE   90 0F      BCC $E9BF
E9B0   B5 DA      LDA $DA,X
E9B2   29 7F      AND #$7F
E9B4   B4 D9      LDY $D9,X
E9B6   10 02      BPL $E9BA
E9B8   09 80      ORA #$80
E9BA   95 DA      STA $DA,X
E9BC   CA         DEX
E9BD   D0 EC      BNE $E9AB
E9BF   AE A5 02   LDX $02A5
E9C2   20 DA E6   JSR $E6DA
E9C5   4C 58 E9   JMP $E958


; move one screen line

E9C8   29 03      AND #$03
E9CA   0D 88 02   ORA $0288
E9CD   85 AD      STA $AD
E9CF   20 E0 E9   JSR $E9E0
E9D2   A0 27      LDY #$27
E9D4   B1 AC      LDA ($AC),Y
E9D6   91 D1      STA ($D1),Y
E9D8   B1 AE      LDA ($AE),Y
E9DA   91 F3      STA ($F3),Y
E9DC   88         DEY
E9DD   10 F5      BPL $E9D4
E9DF   60         RTS


; set colour and screen addresses

E9E0   20 24 EA   JSR $EA24
E9E3   A5 AC      LDA $AC
E9E5   85 AE      STA $AE
E9E7   A5 AD      LDA $AD
E9E9   29 03      AND #$03
E9EB   09 D8      ORA #$D8
E9ED   85 AF      STA $AF
E9EF   60         RTS


; fetch screen addresses

E9F0   BD F0 EC   LDA $ECF0,X
E9F3   85 D1      STA $D1
E9F5   B5 D9      LDA $D9,X
E9F7   29 03      AND #$03
E9F9   0D 88 02   ORA $0288
E9FC   85 D2      STA $D2
E9FE   60         RTS


; clear one screen line

E9FF   A0 27      LDY #$27
EA01   20 F0 E9   JSR $E9F0
EA04   20 24 EA   JSR $EA24
EA07   20 DA E4   JSR $E4DA
EA0A   A9 20      LDA #$20
EA0C   91 D1      STA ($D1),Y
EA0E   88         DEY
EA0F   10 F6      BPL $EA07
EA11   60         RTS

EA12   EA         NOP


; set cursor flash timing and colour memory addresses

EA13   A8         TAY
EA14   A9 02      LDA #$02
EA16   85 CD      STA $CD
EA18   20 24 EA   JSR $EA24
EA1B   98         TYA


; put a char on the screen

EA1C   A4 D3      LDY $D3
EA1E   91 D1      STA ($D1),Y
EA20   8A         TXA
EA21   91 F3      STA ($F3),Y
EA23   60         RTS


; set colour memory adress parallel to screen

EA24   A5 D1      LDA $D1
EA26   85 F3      STA $F3
EA28   A5 D2      LDA $D2
EA2A   29 03      AND #$03
EA2C   09 D8      ORA #$D8
EA2E   85 F4      STA $F4
EA30   60         RTS


; normal IRQ interrupt

EA31   20 EA FF   JSR $FFEA   ; do clock
EA34   A5 CC      LDA $CC   ; flash cursor
EA36   D0 29      BNE $EA61
EA38   C6 CD      DEC $CD
EA3A   D0 25      BNE $EA61
EA3C   A9 14      LDA #$14
EA3E   85 CD      STA $CD
EA40   A4 D3      LDY $D3
EA42   46 CF      LSR $CF
EA44   AE 87 02   LDX $0287
EA47   B1 D1      LDA ($D1),Y
EA49   B0 11      BCS $EA5C
EA4B   E6 CF      INC $CF
EA4D   85 CE      STA $CE
EA4F   20 24 EA   JSR $EA24
EA52   B1 F3      LDA ($F3),Y
EA54   8D 87 02   STA $0287
EA57   AE 86 02   LDX $0286
EA5A   A5 CE      LDA $CE
EA5C   49 80      EOR #$80
EA5E   20 1C EA   JSR $EA1C   ; display cursor
EA61   A5 01      LDA $01   ; checl cassette sense
EA63   29 10      AND #$10
EA65   F0 0A      BEQ $EA71
EA67   A0 00      LDY #$00
EA69   84 C0      STY $C0
EA6B   A5 01      LDA $01
EA6D   09 20      ORA #$20
EA6F   D0 08      BNE $EA79
EA71   A5 C0      LDA $C0
EA73   D0 06      BNE $EA7B
EA75   A5 01      LDA $01
EA77   29 1F      AND #$1F
EA79   85 01      STA $01
EA7B   20 87 EA   JSR $EA87   ; scan keyboard
EA7E   AD 0D DC   LDA $DC0D
EA81   68         PLA
EA82   A8         TAY
EA83   68         PLA
EA84   AA         TAX
EA85   68         PLA
EA86   40         RTI


; scan keyboard

EA87   A9 00      LDA #$00
EA89   8D 8D 02   STA $028D
EA8C   A0 40      LDY #$40
EA8E   84 CB      STY $CB
EA90   8D 00 DC   STA $DC00
EA93   AE 01 DC   LDX $DC01
EA96   E0 FF      CPX #$FF
EA98   F0 61      BEQ $EAFB
EA9A   A8         TAY
EA9B   A9 81      LDA #$81
EA9D   85 F5      STA $F5
EA9F   A9 EB      LDA #$EB
EAA1   85 F6      STA $F6
EAA3   A9 FE      LDA #$FE
EAA5   8D 00 DC   STA $DC00
EAA8   A2 08      LDX #$08
EAAA   48         PHA
EAAB   AD 01 DC   LDA $DC01
EAAE   CD 01 DC   CMP $DC01
EAB1   D0 F8      BNE $EAAB
EAB3   4A         LSR
EAB4   B0 16      BCS $EACC
EAB6   48         PHA
EAB7   B1 F5      LDA ($F5),Y
EAB9   C9 05      CMP #$05
EABB   B0 0C      BCS $EAC9
EABD   C9 03      CMP #$03
EABF   F0 08      BEQ $EAC9
EAC1   0D 8D 02   ORA $028D
EAC4   8D 8D 02   STA $028D
EAC7   10 02      BPL $EACB
EAC9   84 CB      STY $CB
EACB   68         PLA
EACC   C8         INY
EACD   C0 41      CPY #$41
EACF   B0 0B      BCS $EADC
EAD1   CA         DEX
EAD2   D0 DF      BNE $EAB3
EAD4   38         SEC
EAD5   68         PLA
EAD6   2A         ROL
EAD7   8D 00 DC   STA $DC00
EADA   D0 CC      BNE $EAA8
EADC   68         PLA
EADD   6C 8F 02   JMP ($028F)

EAE0   A4 CB      LDY $CB

EAE2   B1 F5      LDA ($F5),Y
EAE4   AA         TAX
EAE5   C4 C5      CPY $C5
EAE7   F0 07      BEQ $EAF0
EAE9   A0 10      LDY #$10
EAEB   8C 8C 02   STY $028C
EAEE   D0 36      BNE $EB26
EAF0   29 7F      AND #$7F
EAF2   2C 8A 02   BIT $028A
EAF5   30 16      BMI $EB0D
EAF7   70 49      BVS $EB42
EAF9   C9 7F      CMP #$7F
EAFB   F0 29      BEQ $EB26
EAFD   C9 14      CMP #$14   ; delete
EAFF   F0 0C      BEQ $EB0D
EB01   C9 20      CMP #$20   ; space
EB03   F0 08      BEQ $EB0D
EB05   C9 1D      CMP #$1D   ; csr right/left
EB07   F0 04      BEQ $EB0D
EB09   C9 11      CMP #$11   ; csr up/down
EB0B   D0 35      BNE $EB42
EB0D   AC 8C 02   LDY $028C
EB10   F0 05      BEQ $EB17
EB12   CE 8C 02   DEC $028C
EB15   D0 2B      BNE $EB42
EB17   CE 8B 02   DEC $028B
EB1A   D0 26      BNE $EB42
EB1C   A0 04      LDY #$04
EB1E   8C 8B 02   STY $028B
EB21   A4 C6      LDY $C6
EB23   88         DEY
EB24   10 1C      BPL $EB42
EB26   A4 CB      LDY $CB
EB28   84 C5      STY $C5
EB2A   AC 8D 02   LDY $028D
EB2D   8C 8E 02   STY $028E
EB30   E0 FF      CPX #$FF
EB32   F0 0E      BEQ $EB42
EB34   8A         TXA
EB35   A6 C6      LDX $C6
EB37   EC 89 02   CPX $0289
EB3A   B0 06      BCS $EB42
EB3C   9D 77 02   STA $0277,X
EB3F   E8         INX
EB40   86 C6      STX $C6
EB42   A9 7F      LDA #$7F
EB44   8D 00 DC   STA $DC00
EB47   60         RTS

EB48   AD 8D 02   LDA $028D
EB4B   C9 03      CMP #$03
EB4D   D0 15      BNE $EB64
EB4F   CD 8E 02   CMP $028E
EB52   F0 EE      BEQ $EB42
EB54   AD 91 02   LDA $0291
EB57   30 1D      BMI $EB76
EB59   AD 18 D0   LDA $D018
EB5C   49 02      EOR #$02
EB5E   8D 18 D0   STA $D018
EB61   4C 76 EB   JMP $EB76


; select keyboard table

EB64   0A         ASL
EB65   C9 08      CMP #$08
EB67   90 02      BCC $EB6B
EB69   A9 06      LDA #$06
EB6B   AA         TAX
EB6C   BD 79 EB   LDA $EB79,X
EB6F   85 F5      STA $F5
EB71   BD 7A EB   LDA $EB7A,X
EB74   85 F6      STA $F6

EB76   4C E0 EA   JMP $EAE0



; table addresses

EB79   .WD $EB81   ; standard
EB7B   .WD $EBC2   ; shift
EB7D   .WD $EC03   ; commodore key
EB7F   .WD $EC78   ; control


; standard keyboard table

EB81   .BY $14,$0D,$1D,$88,$85,$86,$87,$11
EB89   .BY $33,$57,$41,$34,$5A,$53,$45,$01
EB91   .BY $35,$52,$44,$36,$43,$46,$54,$58
EB99   .BY $37,$59,$47,$38,$42,$48,$55,$56
EBA1   .BY $39,$49,$4A,$30,$4D,$4B,$4F,$4E
EBA9   .BY $2B,$50,$4C,$2D,$2E,$3A,$40,$2C
EBB1   .BY $5C,$2A,$3B,$13,$01,$3D,$5E,$2F
EBB9   .BY $31,$5F,$04,$32,$20,$02,$51,$03
EBC1   .BY $FF


; shift keyboard table

EBC2   .BY $94,$8D,$9D,$8C,$89,$8A,$8B,$91
EBCA   .BY $23,$D7,$C1,$24,$DA,$D3,$C5,$01
EBD2   .BY $25,$D2,$C4,$26,$C3,$C6,$D4,$D8
EBDA   .BY $27,$D9,$C7,$28,$C2,$C8,$D5,$D6
EBE2   .BY $29,$C9,$CA,$30,$CD,$CB,$CF,$CE
EBEA   .BY $DB,$D0,$CC,$DD,$3E,$5B,$BA,$3C
EBF2   .BY $A9,$C0,$5D,$93,$01,$3D,$DE,$3F
EBFA   .BY $21,$5F,$04,$22,$A0,$02,$D1,$83
EC02   .BY $FF


; commodore key keyboard table

EC03   .BY $94,$8D,$9D,$8C,$89,$8A,$8B,$91
EC0B   .BY $96,$B3,$B0,$97,$AD,$AE,$B1,$01
EC13   .BY $98,$B2,$AC,$99,$BC,$BB,$A3,$BD
EC1B   .BY $9A,$B7,$A5,$9B,$BF,$B4,$B8,$BE
EC23   .BY $29,$A2,$B5,$30,$A7,$A1,$B9,$AA
EC2B   .BY $A6,$AF,$B6,$DC,$3E,$5B,$A4,$3C
EC33   .BY $A8,$DF,$5D,$93,$01,$3D,$DE,$3F
EC3B   .BY $81,$5F,$04,$95,$A0,$02,$AB,$83
EC43   .BY $FF


; check for special petscii codes

EC44   C9 0E      CMP #$0E
EC46   D0 07      BNE $EC4F
EC48   AD 18 D0   LDA $D018
EC4B   09 02      ORA #$02
EC4D   D0 09      BNE $EC58

EC4F   C9 8E      CMP #$8E

EC51   D0 0B      BNE $EC5E
EC53   AD 18 D0   LDA $D018
EC56   29 FD      AND #$FD
EC58   8D 18 D0   STA $D018
EC5B   4C A8 E6   JMP $E6A8


; shift + commodore key check

EC5E   C9 08      CMP #$08
EC60   D0 07      BNE $EC69
EC62   A9 80      LDA #$80
EC64   0D 91 02   ORA $0291
EC67   30 09      BMI $EC72
EC69   C9 09      CMP #$09
EC6B   D0 EE      BNE $EC5B
EC6D   A9 7F      LDA #$7F
EC6F   2D 91 02   AND $0291
EC72   8D 91 02   STA $0291
EC75   4C A8 E6   JMP $E6A8


; control keyboard table

EC78   .BY $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
EC80   .BY $1C,$17,$01,$9F,$1A,$13,$05,$FF
EC88   .BY $9C,$12,$04,$1E,$03,$06,$14,$18
EC90   .BY $1F,$19,$07,$9E,$02,$08,$15,$16
EC98   .BY $12,$09,$0A,$92,$0D,$0B,$0F,$0E
ECA0   .BY $FF,$10,$0C,$FF,$FF,$1B,$00,$FF
ECA8   .BY $1C,$FF,$1D,$FF,$FF,$1F,$1E,$FF
ECB0   .BY $90,$06,$FF,$05,$FF,$FF,$11,$FF
ECB8   .BY $FF


; default values for VIC chip

ECB9   .BY $00,$00   ; sprite 1 x,y
ECBB   .BY $00,$00   ; sprite 2 x,y
ECBD   .BY $00,$00   ; sprite 3 x,y
ECBF   .BY $00,$00   ; sprite 4 x,y
ECC1   .BY $00,$00   ; sprite 5 x,y
ECC3   .BY $00,$00   ; sprite 6 x,y
ECC5   .BY $00,$00   ; sprite 7 x,y
ECC7   .BY $00,$00   ; sprite 8 x,y
ECC9   .BY $00
ECCA   .BY $9B
ECCB   .BY $37
ECCC   .BY $00
ECCD   .BY $00
ECCE   .BY $00
ECCF   .BY $08
ECD0   .BY $00   ; sprite Y expand
ECD1   .BY $14
ECD2   .BY $0F
ECD3   .BY $00
ECD4   .BY $00
ECD5   .BY $00   ; sprite multi-colour
ECD6   .BY $00   ; sprite X expand
ECD7   .BY $00
ECD8   .BY $00
ECD9   .BY $0E   ; boarder colour
ECDA   .BY $06   ; background colour
ECDB   .BY $01
ECDC   .BY $02
ECDD   .BY $03
ECDE   .BY $04
ECDF   .BY $00   ; sprite colour
ECE0   .BY $01   ; sprite colour
ECE1   .BY $02   ; sprite colour
ECE2   .BY $03   ; sprite colour
ECE3   .BY $04   ; sprite colour
ECE4   .BY $05   ; sprite colour
ECE5   .BY $06   ; sprite colour
ECE6   .BY $07   ; sprite colour


; load

ECE7   .BY $4C,$4F,$41,$44,$0D

; run

ECEC   .BY $52,$55,$4E,$0D


; low bytes of screen line addresses

ECF0   .BY $00,$28,$50,$78,$A0
ECF5   .BY $C8,$F0,$18,$40,$68
ECFA   .BY $90,$B8,$E0,$08,$30
ECFF   .BY $58,$80,$A8,$D0,$F8
ED04   .BY $20,$48,$70,$98,$C0


; send talk on serial bus

ED09   09 40      ORA #$40
ED0B   .BY $2C


; send listen on serial bus

ED0C   09 20      ORA #$20
ED0E   20 A4 F0   JSR $F0A4

ED11   48         PHA

ED12   24 94      BIT $94
ED14   10 0A      BPL $ED20
ED16   38         SEC
ED17   66 A3      ROR $A3
ED19   20 40 ED   JSR $ED40
ED1C   46 94      LSR $94
ED1E   46 A3      LSR $A3
ED20   68         PLA
ED21   85 95      STA $95
ED23   78         SEI
ED24   20 97 EE   JSR $EE97
ED27   C9 3F      CMP #$3F
ED29   D0 03      BNE $ED2E
ED2B   20 85 EE   JSR $EE85
ED2E   AD 00 DD   LDA $DD00
ED31   09 08      ORA #$08
ED33   8D 00 DD   STA $DD00

ED36   78         SEI

ED37   20 8E EE   JSR $EE8E
ED3A   20 97 EE   JSR $EE97
ED3D   20 B3 EE   JSR $EEB3


; send byte from $95 on serial bus

ED40   78         SEI
ED41   20 97 EE   JSR $EE97
ED44   20 A9 EE   JSR $EEA9
ED47   B0 64      BCS $EDAD
ED49   20 85 EE   JSR $EE85
ED4C   24 A3      BIT $A3
ED4E   10 0A      BPL $ED5A
ED50   20 A9 EE   JSR $EEA9
ED53   90 FB      BCC $ED50
ED55   20 A9 EE   JSR $EEA9
ED58   B0 FB      BCS $ED55
ED5A   20 A9 EE   JSR $EEA9
ED5D   90 FB      BCC $ED5A
ED5F   20 8E EE   JSR $EE8E
ED62   A9 08      LDA #$08
ED64   85 A5      STA $A5
ED66   AD 00 DD   LDA $DD00
ED69   CD 00 DD   CMP $DD00
ED6C   D0 F8      BNE $ED66
ED6E   0A         ASL
ED6F   90 3F      BCC $EDB0
ED71   66 95      ROR $95
ED73   B0 05      BCS $ED7A
ED75   20 A0 EE   JSR $EEA0
ED78   D0 03      BNE $ED7D
ED7A   20 97 EE   JSR $EE97
ED7D   20 85 EE   JSR $EE85
ED80   EA         NOP
ED81   EA         NOP
ED82   EA         NOP
ED83   EA         NOP
ED84   AD 00 DD   LDA $DD00
ED87   29 DF      AND #$DF
ED89   09 10      ORA #$10
ED8B   8D 00 DD   STA $DD00
ED8E   C6 A5      DEC $A5
ED90   D0 D4      BNE $ED66
ED92   A9 04      LDA #$04
ED94   8D 07 DC   STA $DC07
ED97   A9 19      LDA #$19
ED99   8D 0F DC   STA $DC0F
ED9C   AD 0D DC   LDA $DC0D
ED9F   AD 0D DC   LDA $DC0D
EDA2   29 02      AND #$02
EDA4   D0 0A      BNE $EDB0
EDA6   20 A9 EE   JSR $EEA9
EDA9   B0 F4      BCS $ED9F
EDAB   58         CLI
EDAC   60         RTS

EDAD   A9 80      LDA #$80
EDAF   .BY $2C
EDB0   A9 03      LDA #$03

EDB2   20 1C FE   JSR $FE1C

EDB5   58         CLI
EDB6   18         CLC
EDB7   90 4A      BCC $EE03


; send secondary address (listen) on serial bus

EDB9   85 95      STA $95
EDBB   20 36 ED   JSR $ED36

EDBE   AD 00 DD   LDA $DD00

EDC1   29 F7      AND #$F7
EDC3   8D 00 DD   STA $DD00
EDC6   60         RTS


; send secondary address (talk) on serial bus

EDC7   85 95      STA $95
EDC9   20 36 ED   JSR $ED36

EDCC   78         SEI

EDCD   20 A0 EE   JSR $EEA0
EDD0   20 BE ED   JSR $EDBE
EDD3   20 85 EE   JSR $EE85
EDD6   20 A9 EE   JSR $EEA9
EDD9   30 FB      BMI $EDD6
EDDB   58         CLI
EDDC   60         RTS


; output byte on serial bus

EDDD   24 94      BIT $94
EDDF   30 05      BMI $EDE6
EDE1   38         SEC
EDE2   66 94      ROR $94
EDE4   D0 05      BNE $EDEB
EDE6   48         PHA
EDE7   20 40 ED   JSR $ED40
EDEA   68         PLA
EDEB   85 95      STA $95
EDED   18         CLC
EDEE   60         RTS


; send talk on serial bus

EDEF   78         SEI
EDF0   20 8E EE   JSR $EE8E
EDF3   AD 00 DD   LDA $DD00
EDF6   09 08      ORA #$08
EDF8   8D 00 DD   STA $DD00
EDFB   A9 5F      LDA #$5F
EDFD   .BY $2C


; send unlisten on serial bus

EDFE   A9 3F      LDA #$3F
EE00   20 11 ED   JSR $ED11
EE03   20 BE ED   JSR $EDBE

EE06   8A         TXA

EE07   A2 0A      LDX #$0A
EE09   CA         DEX
EE0A   D0 FD      BNE $EE09
EE0C   AA         TAX
EE0D   20 85 EE   JSR $EE85
EE10   4C 97 EE   JMP $EE97


; input byte on serial bus

EE13   78         SEI
EE14   A9 00      LDA #$00
EE16   85 A5      STA $A5
EE18   20 85 EE   JSR $EE85
EE1B   20 A9 EE   JSR $EEA9
EE1E   10 FB      BPL $EE1B
EE20   A9 01      LDA #$01
EE22   8D 07 DC   STA $DC07
EE25   A9 19      LDA #$19
EE27   8D 0F DC   STA $DC0F
EE2A   20 97 EE   JSR $EE97
EE2D   AD 0D DC   LDA $DC0D
EE30   AD 0D DC   LDA $DC0D
EE33   29 02      AND #$02
EE35   D0 07      BNE $EE3E
EE37   20 A9 EE   JSR $EEA9
EE3A   30 F4      BMI $EE30
EE3C   10 18      BPL $EE56
EE3E   A5 A5      LDA $A5
EE40   F0 05      BEQ $EE47
EE42   A9 02      LDA #$02
EE44   4C B2 ED   JMP $EDB2

EE47   20 A0 EE   JSR $EEA0
EE4A   20 85 EE   JSR $EE85
EE4D   A9 40      LDA #$40
EE4F   20 1C FE   JSR $FE1C
EE52   E6 A5      INC $A5
EE54   D0 CA      BNE $EE20
EE56   A9 08      LDA #$08
EE58   85 A5      STA $A5
EE5A   AD 00 DD   LDA $DD00
EE5D   CD 00 DD   CMP $DD00
EE60   D0 F8      BNE $EE5A
EE62   0A         ASL
EE63   10 F5      BPL $EE5A
EE65   66 A4      ROR $A4
EE67   AD 00 DD   LDA $DD00
EE6A   CD 00 DD   CMP $DD00
EE6D   D0 F8      BNE $EE67
EE6F   0A         ASL
EE70   30 F5      BMI $EE67
EE72   C6 A5      DEC $A5
EE74   D0 E4      BNE $EE5A
EE76   20 A0 EE   JSR $EEA0
EE79   24 90      BIT $90
EE7B   50 03      BVC $EE80
EE7D   20 06 EE   JSR $EE06
EE80   A5 A4      LDA $A4
EE82   58         CLI
EE83   18         CLC
EE84   60         RTS


; set serial clock line low

EE85   AD 00 DD   LDA $DD00
EE88   29 EF      AND #$EF
EE8A   8D 00 DD   STA $DD00
EE8D   60         RTS


; set serial clock line high

EE8E   AD 00 DD   LDA $DD00
EE91   09 10      ORA #$10
EE93   8D 00 DD   STA $DD00
EE96   60         RTS


; set serial data line low

EE97   AD 00 DD   LDA $DD00
EE9A   29 DF      AND #$DF
EE9C   8D 00 DD   STA $DD00
EE9F   60         RTS


; set serial data line high

EEA0   AD 00 DD   LDA $DD00
EEA3   09 20      ORA #$20
EEA5   8D 00 DD   STA $DD00
EEA8   60         RTS


EEA9   AD 00 DD   LDA $DD00

EEAC   CD 00 DD   CMP $DD00
EEAF   D0 F8      BNE $EEA9
EEB1   0A         ASL
EEB2   60         RTS


; delay 1 millisecond

EEB3   8A         TXA
EEB4   A2 B8      LDX #$B8
EEB6   CA         DEX
EEB7   D0 FD      BNE $EEB6
EEB9   AA         TAX
EEBA   60         RTS


; set next bit to transmit on RS-232

EEBB   A5 B4      LDA $B4
EEBD   F0 47      BEQ $EF06
EEBF   30 3F      BMI $EF00
EEC1   46 B6      LSR $B6
EEC3   A2 00      LDX #$00
EEC5   90 01      BCC $EEC8
EEC7   CA         DEX
EEC8   8A         TXA
EEC9   45 BD      EOR $BD
EECB   85 BD      STA $BD
EECD   C6 B4      DEC $B4
EECF   F0 06      BEQ $EED7
EED1   8A         TXA
EED2   29 04      AND #$04
EED4   85 B5      STA $B5
EED6   60         RTS

EED7   A9 20      LDA #$20
EED9   2C 94 02   BIT $0294
EEDC   F0 14      BEQ $EEF2
EEDE   30 1C      BMI $EEFC
EEE0   70 14      BVS $EEF6
EEE2   A5 BD      LDA $BD
EEE4   D0 01      BNE $EEE7
EEE6   CA         DEX
EEE7   C6 B4      DEC $B4
EEE9   AD 93 02   LDA $0293
EEEC   10 E3      BPL $EED1
EEEE   C6 B4      DEC $B4
EEF0   D0 DF      BNE $EED1
EEF2   E6 B4      INC $B4
EEF4   D0 F0      BNE $EEE6
EEF6   A5 BD      LDA $BD
EEF8   F0 ED      BEQ $EEE7
EEFA   D0 EA      BNE $EEE6
EEFC   70 E9      BVS $EEE7
EEFE   50 E6      BVC $EEE6
EF00   E6 B4      INC $B4
EF02   A2 FF      LDX #$FF
EF04   D0 CB      BNE $EED1

EF06   AD 94 02   LDA $0294

EF09   4A         LSR
EF0A   90 07      BCC $EF13
EF0C   2C 01 DD   BIT $DD01
EF0F   10 1D      BPL $EF2E
EF11   50 1E      BVC $EF31
EF13   A9 00      LDA #$00
EF15   85 BD      STA $BD
EF17   85 B5      STA $B5
EF19   AE 98 02   LDX $0298
EF1C   86 B4      STX $B4
EF1E   AC 9D 02   LDY $029D
EF21   CC 9E 02   CPY $029E
EF24   F0 13      BEQ $EF39
EF26   B1 F9      LDA ($F9),Y
EF28   85 B6      STA $B6
EF2A   EE 9D 02   INC $029D
EF2D   60         RTS


; handle RS-232 errors

EF2E   A9 40      LDA #$40
EF30   .BY $2C
EF31   A9 10      LDA #$10
EF33   0D 97 02   ORA $0297
EF36   8D 97 02   STA $0297
EF39   A9 01      LDA #$01

EF3B   8D 0D DD   STA $DD0D

EF3E   4D A1 02   EOR $02A1
EF41   09 80      ORA #$80
EF43   8D A1 02   STA $02A1
EF46   8D 0D DD   STA $DD0D
EF49   60         RTS


; check control register

EF4A   A2 09      LDX #$09
EF4C   A9 20      LDA #$20
EF4E   2C 93 02   BIT $0293
EF51   F0 01      BEQ $EF54
EF53   CA         DEX
EF54   50 02      BVC $EF58
EF56   CA         DEX
EF57   CA         DEX
EF58   60         RTS


; add bit input on RS-232 bus to word being input

EF59   A6 A9      LDX $A9
EF5B   D0 33      BNE $EF90
EF5D   C6 A8      DEC $A8
EF5F   F0 36      BEQ $EF97
EF61   30 0D      BMI $EF70
EF63   A5 A7      LDA $A7
EF65   45 AB      EOR $AB
EF67   85 AB      STA $AB
EF69   46 A7      LSR $A7
EF6B   66 AA      ROR $AA
EF6D   60         RTS


; handle end of word for RS-232 input

EF6E   C6 A8      DEC $A8
EF70   A5 A7      LDA $A7
EF72   F0 67      BEQ $EFDB
EF74   AD 93 02   LDA $0293
EF77   0A         ASL
EF78   A9 01      LDA #$01
EF7A   65 A8      ADC $A8
EF7C   D0 EF      BNE $EF6D


; enable byte reception

EF7E   A9 90      LDA #$90
EF80   8D 0D DD   STA $DD0D
EF83   0D A1 02   ORA $02A1
EF86   8D A1 02   STA $02A1
EF89   85 A9      STA $A9
EF8B   A9 02      LDA #$02
EF8D   4C 3B EF   JMP $EF3B


; receiver start bit test

EF90   A5 A7      LDA $A7
EF92   D0 EA      BNE $EF7E
EF94   4C D3 E4   JMP $E4D3


; put received data into RS-232 buffer

EF97   AC 9B 02   LDY $029B
EF9A   C8         INY
EF9B   CC 9C 02   CPY $029C
EF9E   F0 2A      BEQ $EFCA
EFA0   8C 9B 02   STY $029B
EFA3   88         DEY
EFA4   A5 AA      LDA $AA
EFA6   AE 98 02   LDX $0298
EFA9   E0 09      CPX #$09
EFAB   F0 04      BEQ $EFB1
EFAD   4A         LSR
EFAE   E8         INX
EFAF   D0 F8      BNE $EFA9
EFB1   91 F7      STA ($F7),Y
EFB3   A9 20      LDA #$20
EFB5   2C 94 02   BIT $0294
EFB8   F0 B4      BEQ $EF6E
EFBA   30 B1      BMI $EF6D
EFBC   A5 A7      LDA $A7
EFBE   45 AB      EOR $AB
EFC0   F0 03      BEQ $EFC5
EFC2   70 A9      BVS $EF6D
EFC4   .BY $2C
EFC5   50 A6      BVC $EF6D
EFC7   A9 01      LDA #$01
EFC9   .BY $2C
EFCA   A9 04      LDA #$04
EFCC   .BY $2C
EFCD   A9 80      LDA #$80
EFCF   .BY $2C
EFD0   A9 02      LDA #$02
EFD2   0D 97 02   ORA $0297
EFD5   8D 97 02   STA $0297
EFD8   4C 7E EF   JMP $EF7E

EFDB   A5 AA      LDA $AA
EFDD   D0 F1      BNE $EFD0
EFDF   F0 EC      BEQ $EFCD


; output of RS-232 device

EFE1   85 9A      STA $9A
EFE3   AD 94 02   LDA $0294
EFE6   4A         LSR
EFE7   90 29      BCC $F012
EFE9   A9 02      LDA #$02
EFEB   2C 01 DD   BIT $DD01
EFEE   10 1D      BPL $F00D
EFF0   D0 20      BNE $F012
EFF2   AD A1 02   LDA $02A1
EFF5   29 02      AND #$02
EFF7   D0 F9      BNE $EFF2
EFF9   2C 01 DD   BIT $DD01
EFFC   70 FB      BVS $EFF9
EFFE   AD 01 DD   LDA $DD01
F001   09 02      ORA #$02
F003   8D 01 DD   STA $DD01
F006   2C 01 DD   BIT $DD01
F009   70 07      BVS $F012
F00B   30 F9      BMI $F006

F00D   A9 40      LDA #$40

F00F   8D 97 02   STA $0297
F012   18         CLC
F013   60         RTS


; buffer char to output on RS-232

F014   20 28 F0   JSR $F028

F017   AC 9E 02   LDY $029E

F01A   C8         INY
F01B   CC 9D 02   CPY $029D
F01E   F0 F4      BEQ $F014
F020   8C 9E 02   STY $029E
F023   88         DEY
F024   A5 9E      LDA $9E
F026   91 F9      STA ($F9),Y

F028   AD A1 02   LDA $02A1

F02B   4A         LSR
F02C   B0 1E      BCS $F04C
F02E   A9 10      LDA #$10
F030   8D 0E DD   STA $DD0E
F033   AD 99 02   LDA $0299
F036   8D 04 DD   STA $DD04
F039   AD 9A 02   LDA $029A
F03C   8D 05 DD   STA $DD05
F03F   A9 81      LDA #$81
F041   20 3B EF   JSR $EF3B
F044   20 06 EF   JSR $EF06
F047   A9 11      LDA #$11
F049   8D 0E DD   STA $DD0E
F04C   60         RTS


; initalise RS-232 input

F04D   85 99      STA $99
F04F   AD 94 02   LDA $0294
F052   4A         LSR
F053   90 28      BCC $F07D
F055   29 08      AND #$08
F057   F0 24      BEQ $F07D
F059   A9 02      LDA #$02
F05B   2C 01 DD   BIT $DD01
F05E   10 AD      BPL $F00D
F060   F0 22      BEQ $F084
F062   AD A1 02   LDA $02A1
F065   4A         LSR
F066   B0 FA      BCS $F062
F068   AD 01 DD   LDA $DD01
F06B   29 FD      AND #$FD
F06D   8D 01 DD   STA $DD01
F070   AD 01 DD   LDA $DD01
F073   29 04      AND #$04
F075   F0 F9      BEQ $F070
F077   A9 90      LDA #$90
F079   18         CLC
F07A   4C 3B EF   JMP $EF3B

F07D   AD A1 02   LDA $02A1
F080   29 12      AND #$12
F082   F0 F3      BEQ $F077
F084   18         CLC
F085   60         RTS


; get next character from RS-232 input buffer

F086   AD 97 02   LDA $0297
F089   AC 9C 02   LDY $029C
F08C   CC 9B 02   CPY $029B
F08F   F0 0B      BEQ $F09C
F091   29 F7      AND #$F7
F093   8D 97 02   STA $0297
F096   B1 F7      LDA ($F7),Y
F098   EE 9C 02   INC $029C
F09B   60         RTS

F09C   09 08      ORA #$08
F09E   8D 97 02   STA $0297
F0A1   A9 00      LDA #$00
F0A3   60         RTS


; protect serial/casette routine from RS-232 NMI's

F0A4   48         PHA
F0A5   AD A1 02   LDA $02A1
F0A8   F0 11      BEQ $F0BB
F0AA   AD A1 02   LDA $02A1
F0AD   29 03      AND #$03
F0AF   D0 F9      BNE $F0AA
F0B1   A9 10      LDA #$10
F0B3   8D 0D DD   STA $DD0D
F0B6   A9 00      LDA #$00
F0B8   8D A1 02   STA $02A1
F0BB   68         PLA
F0BC   60         RTS


; kernal I/O messages
; I/O error

F0BD   .BY $0D
F0BE   .BY $49,$2F,$4F
F0C1   .BY $20,$45,$52,$52,$4F,$52
F0C7   .BY $20,$A3

; searching for

F0C9   .BY $0D
F0CA   .BY $53,$45,$41,$52,$43,$48,$49,$4E,$47,$A0
F0D4   .BY $46,$4F,$52,$A0

; press play on tape

F0D8   .BY $0D
F0D9   .BY $50,$52,$45,$53,$53
F0DE   .BY $20,$50,$4C,$41,$59
F0E3   .BY $20,$4F,$4E
F0E6   .BY $20,$54,$41,$50,$C5

; press record and play on tape

F0EB   .BY $50,$52,$45,$53,$53
F0F0   .BY $20,$52,$45,$43,$4F,$52,$44
F0F7   .BY $20,$26
F0F9   .BY $20,$50,$4C,$41,$59
F0FE   .BY $20,$4F,$4E
F101   .BY $20,$54,$41,$50,$C5

; loading

F106   .BY $0D
F107   .BY $4C,$4F,$41,$44,$49,$4E,$C7

; saving

F10E   .BY $0D
F10F   .BY $53,$41,$56,$49,$4E,$47,$A0

; verifying

F116   .BY $0D
F117   .BY $56,$45,$52,$49,$46,$59,$49,$4E,$C7

; found

F120   .BY $0D
F121   .BY $46,$4F,$55,$4E,$44,$A0

; ok

F127   .BY $0D
F128   .BY $4F,$4B,$8D


; print kernal message indexed by Y

F12B   24 9D      BIT $9D
F12D   10 0D      BPL $F13C

F12F   B9 BD F0   LDA $F0BD,Y

F132   08         PHP
F133   29 7F      AND #$7F
F135   20 D2 FF   JSR $FFD2
F138   C8         INY
F139   28         PLP
F13A   10 F3      BPL $F12F
F13C   18         CLC
F13D   60         RTS


; get a character

F13E   A5 99      LDA $99
F140   D0 08      BNE $F14A
F142   A5 C6      LDA $C6
F144   F0 0F      BEQ $F155
F146   78         SEI
F147   4C B4 E5   JMP $E5B4

F14A   C9 02      CMP #$02
F14C   D0 18      BNE $F166

F14E   84 97      STY $97

F150   20 86 F0   JSR $F086
F153   A4 97      LDY $97
F155   18         CLC
F156   60         RTS


; input a character

F157   A5 99      LDA $99
F159   D0 0B      BNE $F166
F15B   A5 D3      LDA $D3
F15D   85 CA      STA $CA
F15F   A5 D6      LDA $D6
F161   85 C9      STA $C9
F163   4C 32 E6   JMP $E632

F166   C9 03      CMP #$03
F168   D0 09      BNE $F173
F16A   85 D0      STA $D0
F16C   A5 D5      LDA $D5
F16E   85 C8      STA $C8
F170   4C 32 E6   JMP $E632

F173   B0 38      BCS $F1AD
F175   C9 02      CMP #$02
F177   F0 3F      BEQ $F1B8
F179   86 97      STX $97
F17B   20 99 F1   JSR $F199
F17E   B0 16      BCS $F196
F180   48         PHA
F181   20 99 F1   JSR $F199
F184   B0 0D      BCS $F193
F186   D0 05      BNE $F18D
F188   A9 40      LDA #$40
F18A   20 1C FE   JSR $FE1C
F18D   C6 A6      DEC $A6
F18F   A6 97      LDX $97
F191   68         PLA
F192   60         RTS

F193   AA         TAX
F194   68         PLA
F195   8A         TXA
F196   A6 97      LDX $97
F198   60         RTS


; read a byte from cassette buffer

F199   20 0D F8   JSR $F80D
F19C   D0 0B      BNE $F1A9
F19E   20 41 F8   JSR $F841
F1A1   B0 11      BCS $F1B4
F1A3   A9 00      LDA #$00
F1A5   85 A6      STA $A6
F1A7   F0 F0      BEQ $F199
F1A9   B1 B2      LDA ($B2),Y
F1AB   18         CLC
F1AC   60         RTS

F1AD   A5 90      LDA $90
F1AF   F0 04      BEQ $F1B5
F1B1   A9 0D      LDA #$0D
F1B3   18         CLC
F1B4   60         RTS


; read a byte from serial bus

F1B5   4C 13 EE   JMP $EE13


; read a byte from RS-232 bus

F1B8   20 4E F1   JSR $F14E
F1BB   B0 F7      BCS $F1B4
F1BD   C9 00      CMP #$00
F1BF   D0 F2      BNE $F1B3
F1C1   AD 97 02   LDA $0297
F1C4   29 60      AND #$60
F1C6   D0 E9      BNE $F1B1
F1C8   F0 EE      BEQ $F1B8


; output a character

F1CA   48         PHA
F1CB   A5 9A      LDA $9A
F1CD   C9 03      CMP #$03
F1CF   D0 04      BNE $F1D5
F1D1   68         PLA
F1D2   4C 16 E7   JMP $E716

F1D5   90 04      BCC $F1DB
F1D7   68         PLA
F1D8   4C DD ED   JMP $EDDD

F1DB   4A         LSR
F1DC   68         PLA

F1DD   85 9E      STA $9E

F1DF   8A         TXA
F1E0   48         PHA
F1E1   98         TYA
F1E2   48         PHA
F1E3   90 23      BCC $F208
F1E5   20 0D F8   JSR $F80D
F1E8   D0 0E      BNE $F1F8
F1EA   20 64 F8   JSR $F864
F1ED   B0 0E      BCS $F1FD
F1EF   A9 02      LDA #$02
F1F1   A0 00      LDY #$00
F1F3   91 B2      STA ($B2),Y
F1F5   C8         INY
F1F6   84 A6      STY $A6
F1F8   A5 9E      LDA $9E
F1FA   91 B2      STA ($B2),Y

F1FC   18         CLC

F1FD   68         PLA
F1FE   A8         TAY
F1FF   68         PLA
F200   AA         TAX
F201   A5 9E      LDA $9E
F203   90 02      BCC $F207
F205   A9 00      LDA #$00
F207   60         RTS

F208   20 17 F0   JSR $F017
F20B   4C FC F1   JMP $F1FC


; set input device

F20E   20 0F F3   JSR $F30F
F211   F0 03      BEQ $F216
F213   4C 01 F7   JMP $F701

F216   20 1F F3   JSR $F31F
F219   A5 BA      LDA $BA
F21B   F0 16      BEQ $F233
F21D   C9 03      CMP #$03
F21F   F0 12      BEQ $F233
F221   B0 14      BCS $F237
F223   C9 02      CMP #$02
F225   D0 03      BNE $F22A
F227   4C 4D F0   JMP $F04D

F22A   A6 B9      LDX $B9
F22C   E0 60      CPX #$60
F22E   F0 03      BEQ $F233
F230   4C 0A F7   JMP $F70A

F233   85 99      STA $99
F235   18         CLC
F236   60         RTS


; set serial bus input device

F237   AA         TAX
F238   20 09 ED   JSR $ED09
F23B   A5 B9      LDA $B9
F23D   10 06      BPL $F245
F23F   20 CC ED   JSR $EDCC
F242   4C 48 F2   JMP $F248

F245   20 C7 ED   JSR $EDC7

F248   8A         TXA

F249   24 90      BIT $90
F24B   10 E6      BPL $F233
F24D   4C 07 F7   JMP $F707


; set output device

F250   20 0F F3   JSR $F30F
F253   F0 03      BEQ $F258
F255   4C 01 F7   JMP $F701

F258   20 1F F3   JSR $F31F
F25B   A5 BA      LDA $BA
F25D   D0 03      BNE $F262
F25F   4C 0D F7   JMP $F70D

F262   C9 03      CMP #$03
F264   F0 0F      BEQ $F275
F266   B0 11      BCS $F279
F268   C9 02      CMP #$02
F26A   D0 03      BNE $F26F
F26C   4C E1 EF   JMP $EFE1

F26F   A6 B9      LDX $B9
F271   E0 60      CPX #$60
F273   F0 EA      BEQ $F25F
F275   85 9A      STA $9A
F277   18         CLC
F278   60         RTS


; set serial bus output device

F279   AA         TAX
F27A   20 0C ED   JSR $ED0C
F27D   A5 B9      LDA $B9
F27F   10 05      BPL $F286
F281   20 BE ED   JSR $EDBE
F284   D0 03      BNE $F289
F286   20 B9 ED   JSR $EDB9
F289   8A         TXA
F28A   24 90      BIT $90
F28C   10 E7      BPL $F275
F28E   4C 07 F7   JMP $F707


; close a file

F291   20 14 F3   JSR $F314
F294   F0 02      BEQ $F298
F296   18         CLC
F297   60         RTS

F298   20 1F F3   JSR $F31F
F29B   8A         TXA
F29C   48         PHA
F29D   A5 BA      LDA $BA
F29F   F0 50      BEQ $F2F1
F2A1   C9 03      CMP #$03
F2A3   F0 4C      BEQ $F2F1
F2A5   B0 47      BCS $F2EE
F2A7   C9 02      CMP #$02
F2A9   D0 1D      BNE $F2C8
F2AB   68         PLA
F2AC   20 F2 F2   JSR $F2F2
F2AF   20 83 F4   JSR $F483
F2B2   20 27 FE   JSR $FE27
F2B5   A5 F8      LDA $F8
F2B7   F0 01      BEQ $F2BA
F2B9   C8         INY
F2BA   A5 FA      LDA $FA
F2BC   F0 01      BEQ $F2BF
F2BE   C8         INY
F2BF   A9 00      LDA #$00
F2C1   85 F8      STA $F8
F2C3   85 FA      STA $FA
F2C5   4C 7D F4   JMP $F47D


; close cassette device

F2C8   A5 B9      LDA $B9
F2CA   29 0F      AND #$0F
F2CC   F0 23      BEQ $F2F1
F2CE   20 D0 F7   JSR $F7D0
F2D1   A9 00      LDA #$00
F2D3   38         SEC
F2D4   20 DD F1   JSR $F1DD
F2D7   20 64 F8   JSR $F864
F2DA   90 04      BCC $F2E0
F2DC   68         PLA
F2DD   A9 00      LDA #$00
F2DF   60         RTS

F2E0   A5 B9      LDA $B9
F2E2   C9 62      CMP #$62
F2E4   D0 0B      BNE $F2F1
F2E6   A9 05      LDA #$05
F2E8   20 6A F7   JSR $F76A
F2EB   4C F1 F2   JMP $F2F1


; close serial bus device

F2EE   20 42 F6   JSR $F642

F2F1   68         PLA



; reorganise file tables

F2F2   AA         TAX
F2F3   C6 98      DEC $98
F2F5   E4 98      CPX $98
F2F7   F0 14      BEQ $F30D
F2F9   A4 98      LDY $98
F2FB   B9 59 02   LDA $0259,Y
F2FE   9D 59 02   STA $0259,X
F301   B9 63 02   LDA $0263,Y
F304   9D 63 02   STA $0263,X
F307   B9 6D 02   LDA $026D,Y
F30A   9D 6D 02   STA $026D,X
F30D   18         CLC
F30E   60         RTS


; check X against logical file table

F30F   A9 00      LDA #$00
F311   85 90      STA $90
F313   8A         TXA

F314   A6 98      LDX $98

F316   CA         DEX
F317   30 15      BMI $F32E
F319   DD 59 02   CMP $0259,X
F31C   D0 F8      BNE $F316
F31E   60         RTS


; set file parameters depending on X

F31F   BD 59 02   LDA $0259,X
F322   85 B8      STA $B8
F324   BD 63 02   LDA $0263,X
F327   85 BA      STA $BA
F329   BD 6D 02   LDA $026D,X
F32C   85 B9      STA $B9
F32E   60         RTS


; close all files

F32F   A9 00      LDA #$00
F331   85 98      STA $98


; restore I/O to default devices

F333   A2 03      LDX #$03
F335   E4 9A      CPX $9A
F337   B0 03      BCS $F33C
F339   20 FE ED   JSR $EDFE
F33C   E4 99      CPX $99
F33E   B0 03      BCS $F343
F340   20 EF ED   JSR $EDEF
F343   86 9A      STX $9A
F345   A9 00      LDA #$00
F347   85 99      STA $99
F349   60         RTS


; open a file

F34A   A6 B8      LDX $B8
F34C   D0 03      BNE $F351
F34E   4C 0A F7   JMP $F70A

F351   20 0F F3   JSR $F30F
F354   D0 03      BNE $F359
F356   4C FE F6   JMP $F6FE

F359   A6 98      LDX $98
F35B   E0 0A      CPX #$0A
F35D   90 03      BCC $F362
F35F   4C FB F6   JMP $F6FB

F362   E6 98      INC $98
F364   A5 B8      LDA $B8
F366   9D 59 02   STA $0259,X
F369   A5 B9      LDA $B9
F36B   09 60      ORA #$60
F36D   85 B9      STA $B9
F36F   9D 6D 02   STA $026D,X
F372   A5 BA      LDA $BA
F374   9D 63 02   STA $0263,X
F377   F0 5A      BEQ $F3D3
F379   C9 03      CMP #$03
F37B   F0 56      BEQ $F3D3
F37D   90 05      BCC $F384
F37F   20 D5 F3   JSR $F3D5
F382   90 4F      BCC $F3D3
F384   C9 02      CMP #$02
F386   D0 03      BNE $F38B
F388   4C 09 F4   JMP $F409


; open for cassette device

F38B   20 D0 F7   JSR $F7D0
F38E   B0 03      BCS $F393
F390   4C 13 F7   JMP $F713

F393   A5 B9      LDA $B9
F395   29 0F      AND #$0F
F397   D0 1F      BNE $F3B8
F399   20 17 F8   JSR $F817
F39C   B0 36      BCS $F3D4
F39E   20 AF F5   JSR $F5AF
F3A1   A5 B7      LDA $B7
F3A3   F0 0A      BEQ $F3AF
F3A5   20 EA F7   JSR $F7EA
F3A8   90 18      BCC $F3C2
F3AA   F0 28      BEQ $F3D4
F3AC   4C 04 F7   JMP $F704

F3AF   20 2C F7   JSR $F72C
F3B2   F0 20      BEQ $F3D4
F3B4   90 0C      BCC $F3C2
F3B6   B0 F4      BCS $F3AC


; open cassette for input

F3B8   20 38 F8   JSR $F838
F3BB   B0 17      BCS $F3D4
F3BD   A9 04      LDA #$04
F3BF   20 6A F7   JSR $F76A
F3C2   A9 BF      LDA #$BF
F3C4   A4 B9      LDY $B9
F3C6   C0 60      CPY #$60
F3C8   F0 07      BEQ $F3D1
F3CA   A0 00      LDY #$00
F3CC   A9 02      LDA #$02
F3CE   91 B2      STA ($B2),Y
F3D0   98         TYA
F3D1   85 A6      STA $A6
F3D3   18         CLC
F3D4   60         RTS


; open for serial bus devices

F3D5   A5 B9      LDA $B9
F3D7   30 FA      BMI $F3D3
F3D9   A4 B7      LDY $B7
F3DB   F0 F6      BEQ $F3D3
F3DD   A9 00      LDA #$00
F3DF   85 90      STA $90
F3E1   A5 BA      LDA $BA
F3E3   20 0C ED   JSR $ED0C
F3E6   A5 B9      LDA $B9
F3E8   09 F0      ORA #$F0
F3EA   20 B9 ED   JSR $EDB9
F3ED   A5 90      LDA $90
F3EF   10 05      BPL $F3F6
F3F1   68         PLA
F3F2   68         PLA
F3F3   4C 07 F7   JMP $F707

F3F6   A5 B7      LDA $B7
F3F8   F0 0C      BEQ $F406
F3FA   A0 00      LDY #$00
F3FC   B1 BB      LDA ($BB),Y
F3FE   20 DD ED   JSR $EDDD
F401   C8         INY
F402   C4 B7      CPY $B7
F404   D0 F6      BNE $F3FC
F406   4C 54 F6   JMP $F654


; open RS-232 device

F409   20 83 F4   JSR $F483
F40C   8C 97 02   STY $0297
F40F   C4 B7      CPY $B7
F411   F0 0A      BEQ $F41D
F413   B1 BB      LDA ($BB),Y
F415   99 93 02   STA $0293,Y
F418   C8         INY
F419   C0 04      CPY #$04
F41B   D0 F2      BNE $F40F
F41D   20 4A EF   JSR $EF4A
F420   8E 98 02   STX $0298
F423   AD 93 02   LDA $0293
F426   29 0F      AND #$0F
F428   F0 1C      BEQ $F446
F42A   0A         ASL
F42B   AA         TAX
F42C   AD A6 02   LDA $02A6
F42F   D0 09      BNE $F43A
F431   BC C1 FE   LDY $FEC1,X
F434   BD C0 FE   LDA $FEC0,X
F437   4C 40 F4   JMP $F440
F43A   BC EB E4   LDY $E4EB,X
F43D   BD EA E4   LDA $E4EA,X

F440   8C 96 02   STY $0296

F443   8D 95 02   STA $0295
F446   AD 95 02   LDA $0295
F449   0A         ASL
F44A   20 2E FF   JSR $FF2E
F44D   AD 94 02   LDA $0294
F450   4A         LSR
F451   90 09      BCC $F45C
F453   AD 01 DD   LDA $DD01
F456   0A         ASL
F457   B0 03      BCS $F45C
F459   20 0D F0   JSR $F00D
F45C   AD 9B 02   LDA $029B
F45F   8D 9C 02   STA $029C
F462   AD 9E 02   LDA $029E
F465   8D 9D 02   STA $029D
F468   20 27 FE   JSR $FE27
F46B   A5 F8      LDA $F8
F46D   D0 05      BNE $F474
F46F   88         DEY
F470   84 F8      STY $F8
F472   86 F7      STX $F7
F474   A5 FA      LDA $FA
F476   D0 05      BNE $F47D
F478   88         DEY
F479   84 FA      STY $FA
F47B   86 F9      STX $F9

F47D   38         SEC

F47E   A9 F0      LDA #$F0
F480   4C 2D FE   JMP $FE2D


; initialise CIA2

F483   A9 7F      LDA #$7F
F485   8D 0D DD   STA $DD0D
F488   A9 06      LDA #$06
F48A   8D 03 DD   STA $DD03
F48D   8D 01 DD   STA $DD01
F490   A9 04      LDA #$04
F492   0D 00 DD   ORA $DD00
F495   8D 00 DD   STA $DD00
F498   A0 00      LDY #$00
F49A   8C A1 02   STY $02A1
F49D   60         RTS


; load ram from a device

F49E   86 C3      STX $C3
F4A0   84 C4      STY $C4
F4A2   6C 30 03   JMP ($0330)   ; normally F4A5


; standard load ram entry

F4A5   85 93      STA $93
F4A7   A9 00      LDA #$00
F4A9   85 90      STA $90
F4AB   A5 BA      LDA $BA
F4AD   D0 03      BNE $F4B2
F4AF   4C 13 F7   JMP $F713

F4B2   C9 03      CMP #$03
F4B4   F0 F9      BEQ $F4AF
F4B6   90 7B      BCC $F533
F4B8   A4 B7      LDY $B7
F4BA   D0 03      BNE $F4BF
F4BC   4C 10 F7   JMP $F710

F4BF   A6 B9      LDX $B9
F4C1   20 AF F5   JSR $F5AF
F4C4   A9 60      LDA #$60
F4C6   85 B9      STA $B9
F4C8   20 D5 F3   JSR $F3D5
F4CB   A5 BA      LDA $BA
F4CD   20 09 ED   JSR $ED09
F4D0   A5 B9      LDA $B9
F4D2   20 C7 ED   JSR $EDC7
F4D5   20 13 EE   JSR $EE13
F4D8   85 AE      STA $AE
F4DA   A5 90      LDA $90
F4DC   4A         LSR
F4DD   4A         LSR
F4DE   B0 50      BCS $F530
F4E0   20 13 EE   JSR $EE13
F4E3   85 AF      STA $AF
F4E5   8A         TXA
F4E6   D0 08      BNE $F4F0
F4E8   A5 C3      LDA $C3
F4EA   85 AE      STA $AE
F4EC   A5 C4      LDA $C4
F4EE   85 AF      STA $AF
F4F0   20 D2 F5   JSR $F5D2
F4F3   A9 FD      LDA #$FD
F4F5   25 90      AND $90
F4F7   85 90      STA $90
F4F9   20 E1 FF   JSR $FFE1
F4FC   D0 03      BNE $F501
F4FE   4C 33 F6   JMP $F633

F501   20 13 EE   JSR $EE13
F504   AA         TAX
F505   A5 90      LDA $90
F507   4A         LSR
F508   4A         LSR
F509   B0 E8      BCS $F4F3
F50B   8A         TXA
F50C   A4 93      LDY $93
F50E   F0 0C      BEQ $F51C
F510   A0 00      LDY #$00
F512   D1 AE      CMP ($AE),Y
F514   F0 08      BEQ $F51E
F516   A9 10      LDA #$10
F518   20 1C FE   JSR $FE1C
F51B   .BY $2C
F51C   91 AE      STA ($AE),Y
F51E   E6 AE      INC $AE
F520   D0 02      BNE $F524
F522   E6 AF      INC $AF
F524   24 90      BIT $90
F526   50 CB      BVC $F4F3
F528   20 EF ED   JSR $EDEF
F52B   20 42 F6   JSR $F642
F52E   90 79      BCC $F5A9
F530   4C 04 F7   JMP $F704
F533   4A         LSR
F534   B0 03      BCS $F539
F536   4C 13 F7   JMP $F713

F539   20 D0 F7   JSR $F7D0
F53C   B0 03      BCS $F541
F53E   4C 13 F7   JMP $F713
F541   20 17 F8   JSR $F817
F544   B0 68      BCS $F5AE
F546   20 AF F5   JSR $F5AF
F549   A5 B7      LDA $B7
F54B   F0 09      BEQ $F556
F54D   20 EA F7   JSR $F7EA
F550   90 0B      BCC $F55D
F552   F0 5A      BEQ $F5AE
F554   B0 DA      BCS $F530
F556   20 2C F7   JSR $F72C
F559   F0 53      BEQ $F5AE
F55B   B0 D3      BCS $F530
F55D   A5 90      LDA $90
F55F   29 10      AND #$10
F561   38         SEC
F562   D0 4A      BNE $F5AE
F564   E0 01      CPX #$01
F566   F0 11      BEQ $F579
F568   E0 03      CPX #$03
F56A   D0 DD      BNE $F549
F56C   A0 01      LDY #$01
F56E   B1 B2      LDA ($B2),Y
F570   85 C3      STA $C3
F572   C8         INY
F573   B1 B2      LDA ($B2),Y
F575   85 C4      STA $C4
F577   B0 04      BCS $F57D
F579   A5 B9      LDA $B9
F57B   D0 EF      BNE $F56C
F57D   A0 03      LDY #$03
F57F   B1 B2      LDA ($B2),Y
F581   A0 01      LDY #$01
F583   F1 B2      SBC ($B2),Y
F585   AA         TAX
F586   A0 04      LDY #$04
F588   B1 B2      LDA ($B2),Y
F58A   A0 02      LDY #$02
F58C   F1 B2      SBC ($B2),Y
F58E   A8         TAY
F58F   18         CLC
F590   8A         TXA
F591   65 C3      ADC $C3
F593   85 AE      STA $AE
F595   98         TYA
F596   65 C4      ADC $C4
F598   85 AF      STA $AF
F59A   A5 C3      LDA $C3
F59C   85 C1      STA $C1
F59E   A5 C4      LDA $C4
F5A0   85 C2      STA $C2
F5A2   20 D2 F5   JSR $F5D2
F5A5   20 4A F8   JSR $F84A
F5A8   .BY $24
F5A9   18         CLC
F5AA   A6 AE      LDX $AE
F5AC   A4 AF      LDY $AF
F5AE   60         RTS


; handle messages for loading

F5AF   A5 9D      LDA $9D
F5B1   10 1E      BPL $F5D1
F5B3   A0 0C      LDY #$0C
F5B5   20 2F F1   JSR $F12F
F5B8   A5 B7      LDA $B7
F5BA   F0 15      BEQ $F5D1
F5BC   A0 17      LDY #$17
F5BE   20 2F F1   JSR $F12F

F5C1   A4 B7      LDY $B7

F5C3   F0 0C      BEQ $F5D1
F5C5   A0 00      LDY #$00
F5C7   B1 BB      LDA ($BB),Y
F5C9   20 D2 FF   JSR $FFD2
F5CC   C8         INY
F5CD   C4 B7      CPY $B7
F5CF   D0 F6      BNE $F5C7
F5D1   60         RTS


; do load/verify message

F5D2   A0 49      LDY #$49
F5D4   A5 93      LDA $93
F5D6   F0 02      BEQ $F5DA
F5D8   A0 59      LDY #$59
F5DA   4C 2B F1   JMP $F12B


; save ram to a device

F5DD   86 AE      STX $AE
F5DF   84 AF      STY $AF
F5E1   AA         TAX
F5E2   B5 00      LDA $00,X
F5E4   85 C1      STA $C1
F5E6   B5 01      LDA $01,X
F5E8   85 C2      STA $C2
F5EA   6C 32 03   JMP ($0332)   ; normally F5ED


; standard save ram entry

F5ED   A5 BA      LDA $BA
F5EF   D0 03      BNE $F5F4
F5F1   4C 13 F7   JMP $F713

F5F4   C9 03      CMP #$03
F5F6   F0 F9      BEQ $F5F1
F5F8   90 5F      BCC $F659
F5FA   A9 61      LDA #$61
F5FC   85 B9      STA $B9
F5FE   A4 B7      LDY $B7
F600   D0 03      BNE $F605
F602   4C 10 F7   JMP $F710

F605   20 D5 F3   JSR $F3D5
F608   20 8F F6   JSR $F68F
F60B   A5 BA      LDA $BA
F60D   20 0C ED   JSR $ED0C
F610   A5 B9      LDA $B9
F612   20 B9 ED   JSR $EDB9
F615   A0 00      LDY #$00
F617   20 8E FB   JSR $FB8E
F61A   A5 AC      LDA $AC
F61C   20 DD ED   JSR $EDDD
F61F   A5 AD      LDA $AD
F621   20 DD ED   JSR $EDDD
F624   20 D1 FC   JSR $FCD1
F627   B0 16      BCS $F63F
F629   B1 AC      LDA ($AC),Y
F62B   20 DD ED   JSR $EDDD
F62E   20 E1 FF   JSR $FFE1
F631   D0 07      BNE $F63A

F633   20 42 F6   JSR $F642

F636   A9 00      LDA #$00
F638   38         SEC
F639   60         RTS

F63A   20 DB FC   JSR $FCDB
F63D   D0 E5      BNE $F624
F63F   20 FE ED   JSR $EDFE


; close serial bus device

F642   24 B9      BIT $B9
F644   30 11      BMI $F657
F646   A5 BA      LDA $BA
F648   20 0C ED   JSR $ED0C
F64B   A5 B9      LDA $B9
F64D   29 EF      AND #$EF
F64F   09 E0      ORA #$E0
F651   20 B9 ED   JSR $EDB9

F654   20 FE ED   JSR $EDFE

F657   18         CLC
F658   60         RTS

F659   4A         LSR
F65A   B0 03      BCS $F65F
F65C   4C 13 F7   JMP $F713


; save ram to cassette

F65F   20 D0 F7   JSR $F7D0
F662   90 8D      BCC $F5F1
F664   20 38 F8   JSR $F838
F667   B0 25      BCS $F68E
F669   20 8F F6   JSR $F68F
F66C   A2 03      LDX #$03
F66E   A5 B9      LDA $B9
F670   29 01      AND #$01
F672   D0 02      BNE $F676
F674   A2 01      LDX #$01
F676   8A         TXA
F677   20 6A F7   JSR $F76A
F67A   B0 12      BCS $F68E
F67C   20 67 F8   JSR $F867
F67F   B0 0D      BCS $F68E
F681   A5 B9      LDA $B9
F683   29 02      AND #$02
F685   F0 06      BEQ $F68D
F687   A9 05      LDA #$05
F689   20 6A F7   JSR $F76A
F68C   .BY $24
F68D   18         CLC
F68E   60         RTS


; do saving message and filename

F68F   A5 9D      LDA $9D
F691   10 FB      BPL $F68E
F693   A0 51      LDY #$51
F695   20 2F F1   JSR $F12F
F698   4C C1 F5   JMP $F5C1


; increment real time clock

F69B   A2 00      LDX #$00
F69D   E6 A2      INC $A2
F69F   D0 06      BNE $F6A7
F6A1   E6 A1      INC $A1
F6A3   D0 02      BNE $F6A7
F6A5   E6 A0      INC $A0
F6A7   38         SEC
F6A8   A5 A2      LDA $A2
F6AA   E9 01      SBC #$01
F6AC   A5 A1      LDA $A1
F6AE   E9 1A      SBC #$1A
F6B0   A5 A0      LDA $A0
F6B2   E9 4F      SBC #$4F
F6B4   90 06      BCC $F6BC
F6B6   86 A0      STX $A0
F6B8   86 A1      STX $A1
F6BA   86 A2      STX $A2

F6BC   AD 01 DC   LDA $DC01

F6BF   CD 01 DC   CMP $DC01
F6C2   D0 F8      BNE $F6BC
F6C4   AA         TAX
F6C5   30 13      BMI $F6DA
F6C7   A2 BD      LDX #$BD
F6C9   8E 00 DC   STX $DC00
F6CC   AE 01 DC   LDX $DC01
F6CF   EC 01 DC   CPX $DC01
F6D2   D0 F8      BNE $F6CC
F6D4   8D 00 DC   STA $DC00
F6D7   E8         INX
F6D8   D0 02      BNE $F6DC
F6DA   85 91      STA $91
F6DC   60         RTS


; read real time clock

F6DD   78         SEI
F6DE   A5 A2      LDA $A2
F6E0   A6 A1      LDX $A1
F6E2   A4 A0      LDY $A0


; set real time clock

F6E4   78         SEI
F6E5   85 A2      STA $A2
F6E7   86 A1      STX $A1
F6E9   84 A0      STY $A0
F6EB   58         CLI
F6EC   60         RTS


; test STOP key

F6ED   A5 91      LDA $91
F6EF   C9 7F      CMP #$7F
F6F1   D0 07      BNE $F6FA
F6F3   08         PHP
F6F4   20 CC FF   JSR $FFCC
F6F7   85 C6      STA $C6
F6F9   28         PLP
F6FA   60         RTS


; handle I/O errors

F6FB   A9 01      LDA #$01   ; too many files
F6FD   .BY $2C

F6FE   A9 02      LDA #$02   ; file open

F700   .BY $2C

F701   A9 03      LDA #$03   ; file not open

F703   .BY $2C

F704   A9 04      LDA #$04   ; file not found

F706   .BY $2C

F707   A9 05      LDA #$05   ; device not present

F709   .BY $2C

F70A   A9 06      LDA #$06   ; not input file

F70C   .BY $2C

F70D   A9 07      LDA #$07   ; not output file

F70F   .BY $2C

F710   A9 08      LDA #$08   ; file name missing

F712   .BY $2C

F713   A9 09      LDA #$09   ; illegal device no.

F715   48         PHA
F716   20 CC FF   JSR $FFCC
F719   A0 00      LDY #$00
F71B   24 9D      BIT $9D
F71D   50 0A      BVC $F729
F71F   20 2F F1   JSR $F12F
F722   68         PLA
F723   48         PHA
F724   09 30      ORA #$30
F726   20 D2 FF   JSR $FFD2
F729   68         PLA
F72A   38         SEC
F72B   60         RTS


; get next file header from cassette

F72C   A5 93      LDA $93
F72E   48         PHA
F72F   20 41 F8   JSR $F841
F732   68         PLA
F733   85 93      STA $93
F735   B0 32      BCS $F769
F737   A0 00      LDY #$00
F739   B1 B2      LDA ($B2),Y
F73B   C9 05      CMP #$05
F73D   F0 2A      BEQ $F769
F73F   C9 01      CMP #$01
F741   F0 08      BEQ $F74B
F743   C9 03      CMP #$03
F745   F0 04      BEQ $F74B
F747   C9 04      CMP #$04
F749   D0 E1      BNE $F72C
F74B   AA         TAX
F74C   24 9D      BIT $9D
F74E   10 17      BPL $F767
F750   A0 63      LDY #$63
F752   20 2F F1   JSR $F12F
F755   A0 05      LDY #$05
F757   B1 B2      LDA ($B2),Y
F759   20 D2 FF   JSR $FFD2
F75C   C8         INY
F75D   C0 15      CPY #$15
F75F   D0 F6      BNE $F757
F761   A5 A1      LDA $A1
F763   20 E0 E4   JSR $E4E0
F766   EA         NOP
F767   18         CLC
F768   88         DEY
F769   60         RTS


; write a special block to cassette with code in A

F76A   85 9E      STA $9E
F76C   20 D0 F7   JSR $F7D0
F76F   90 5E      BCC $F7CF
F771   A5 C2      LDA $C2
F773   48         PHA
F774   A5 C1      LDA $C1
F776   48         PHA
F777   A5 AF      LDA $AF
F779   48         PHA
F77A   A5 AE      LDA $AE
F77C   48         PHA
F77D   A0 BF      LDY #$BF
F77F   A9 20      LDA #$20
F781   91 B2      STA ($B2),Y
F783   88         DEY
F784   D0 FB      BNE $F781
F786   A5 9E      LDA $9E
F788   91 B2      STA ($B2),Y
F78A   C8         INY
F78B   A5 C1      LDA $C1
F78D   91 B2      STA ($B2),Y
F78F   C8         INY
F790   A5 C2      LDA $C2
F792   91 B2      STA ($B2),Y
F794   C8         INY
F795   A5 AE      LDA $AE
F797   91 B2      STA ($B2),Y
F799   C8         INY
F79A   A5 AF      LDA $AF
F79C   91 B2      STA ($B2),Y
F79E   C8         INY
F79F   84 9F      STY $9F
F7A1   A0 00      LDY #$00
F7A3   84 9E      STY $9E
F7A5   A4 9E      LDY $9E
F7A7   C4 B7      CPY $B7
F7A9   F0 0C      BEQ $F7B7
F7AB   B1 BB      LDA ($BB),Y
F7AD   A4 9F      LDY $9F
F7AF   91 B2      STA ($B2),Y
F7B1   E6 9E      INC $9E
F7B3   E6 9F      INC $9F
F7B5   D0 EE      BNE $F7A5
F7B7   20 D7 F7   JSR $F7D7
F7BA   A9 69      LDA #$69
F7BC   85 AB      STA $AB
F7BE   20 6B F8   JSR $F86B
F7C1   A8         TAY
F7C2   68         PLA
F7C3   85 AE      STA $AE
F7C5   68         PLA
F7C6   85 AF      STA $AF
F7C8   68         PLA
F7C9   85 C1      STA $C1
F7CB   68         PLA
F7CC   85 C2      STA $C2
F7CE   98         TYA
F7CF   60         RTS


; set tape buffer pointer in XY

F7D0   A6 B2      LDX $B2
F7D2   A4 B3      LDY $B3
F7D4   C0 02      CPY #$02
F7D6   60         RTS


; set cassette buffer to I/O area

F7D7   20 D0 F7   JSR $F7D0
F7DA   8A         TXA
F7DB   85 C1      STA $C1
F7DD   18         CLC
F7DE   69 C0      ADC #$C0
F7E0   85 AE      STA $AE
F7E2   98         TYA
F7E3   85 C2      STA $C2
F7E5   69 00      ADC #$00
F7E7   85 AF      STA $AF
F7E9   60         RTS


; search tape for a file name

F7EA   20 2C F7   JSR $F72C
F7ED   B0 1D      BCS $F80C
F7EF   A0 05      LDY #$05
F7F1   84 9F      STY $9F
F7F3   A0 00      LDY #$00
F7F5   84 9E      STY $9E
F7F7   C4 B7      CPY $B7
F7F9   F0 10      BEQ $F80B
F7FB   B1 BB      LDA ($BB),Y
F7FD   A4 9F      LDY $9F
F7FF   D1 B2      CMP ($B2),Y
F801   D0 E7      BNE $F7EA
F803   E6 9E      INC $9E
F805   E6 9F      INC $9F
F807   A4 9E      LDY $9E
F809   D0 EC      BNE $F7F7
F80B   18         CLC
F80C   60         RTS


; add 1 to tape index and test for overflow

F80D   20 D0 F7   JSR $F7D0
F810   E6 A6      INC $A6
F812   A4 A6      LDY $A6
F814   C0 C0      CPY #$C0
F816   60         RTS


; handle messages and
; test cassette buttons for read

F817   20 2E F8   JSR $F82E
F81A   F0 1A      BEQ $F836
F81C   A0 1B      LDY #$1B
F81E   20 2F F1   JSR $F12F
F821   20 D0 F8   JSR $F8D0
F824   20 2E F8   JSR $F82E
F827   D0 F8      BNE $F821
F829   A0 6A      LDY #$6A
F82B   4C 2F F1   JMP $F12F


; test sense line for a button
; depressed on cassette

F82E   A9 10      LDA #$10
F830   24 01      BIT $01
F832   D0 02      BNE $F836
F834   24 01      BIT $01
F836   18         CLC
F837   60         RTS


; set messages and test cassette line
; for input

F838   20 2E F8   JSR $F82E
F83B   F0 F9      BEQ $F836
F83D   A0 2E      LDY #$2E
F83F   D0 DD      BNE $F81E


; read a block from cassette

F841   A9 00      LDA #$00
F843   85 90      STA $90
F845   85 93      STA $93
F847   20 D7 F7   JSR $F7D7

F84A   20 17 F8   JSR $F817

F84D   B0 1F      BCS $F86E
F84F   78         SEI
F850   A9 00      LDA #$00
F852   85 AA      STA $AA
F854   85 B4      STA $B4
F856   85 B0      STA $B0
F858   85 9E      STA $9E
F85A   85 9F      STA $9F
F85C   85 9C      STA $9C
F85E   A9 90      LDA #$90
F860   A2 0E      LDX #$0E
F862   D0 11      BNE $F875


; write a block from cassette

F864   20 D7 F7   JSR $F7D7

F867   A9 14      LDA #$14

F869   85 AB      STA $AB

F86B   20 38 F8   JSR $F838

F86E   B0 6C      BCS $F8DC
F870   78         SEI
F871   A9 82      LDA #$82
F873   A2 08      LDX #$08


; common code for cassette read and write

F875   A0 7F      LDY #$7F
F877   8C 0D DC   STY $DC0D
F87A   8D 0D DC   STA $DC0D
F87D   AD 0E DC   LDA $DC0E
F880   09 19      ORA #$19
F882   8D 0F DC   STA $DC0F
F885   29 91      AND #$91
F887   8D A2 02   STA $02A2
F88A   20 A4 F0   JSR $F0A4
F88D   AD 11 D0   LDA $D011
F890   29 EF      AND #$EF
F892   8D 11 D0   STA $D011
F895   AD 14 03   LDA $0314
F898   8D 9F 02   STA $029F
F89B   AD 15 03   LDA $0315
F89E   8D A0 02   STA $02A0
F8A1   20 BD FC   JSR $FCBD
F8A4   A9 02      LDA #$02
F8A6   85 BE      STA $BE
F8A8   20 97 FB   JSR $FB97
F8AB   A5 01      LDA $01
F8AD   29 1F      AND #$1F
F8AF   85 01      STA $01
F8B1   85 C0      STA $C0
F8B3   A2 FF      LDX #$FF
F8B5   A0 FF      LDY #$FF
F8B7   88         DEY
F8B8   D0 FD      BNE $F8B7
F8BA   CA         DEX
F8BB   D0 F8      BNE $F8B5
F8BD   58         CLI

F8BE   AD A0 02   LDA $02A0

F8C1   CD 15 03   CMP $0315
F8C4   18         CLC
F8C5   F0 15      BEQ $F8DC
F8C7   20 D0 F8   JSR $F8D0
F8CA   20 BC F6   JSR $F6BC
F8CD   4C BE F8   JMP $F8BE


; handle stop key during cassette operations

F8D0   20 E1 FF   JSR $FFE1
F8D3   18         CLC
F8D4   D0 0B      BNE $F8E1
F8D6   20 93 FC   JSR $FC93
F8D9   38         SEC
F8DA   68         PLA
F8DB   68         PLA
F8DC   A9 00      LDA #$00
F8DE   8D A0 02   STA $02A0
F8E1   60         RTS


; schedule CIA1 timer A depending on X

F8E2   86 B1      STX $B1
F8E4   A5 B0      LDA $B0
F8E6   0A         ASL
F8E7   0A         ASL
F8E8   18         CLC
F8E9   65 B0      ADC $B0
F8EB   18         CLC
F8EC   65 B1      ADC $B1
F8EE   85 B1      STA $B1
F8F0   A9 00      LDA #$00
F8F2   24 B0      BIT $B0
F8F4   30 01      BMI $F8F7
F8F6   2A         ROL
F8F7   06 B1      ASL $B1
F8F9   2A         ROL
F8FA   06 B1      ASL $B1
F8FC   2A         ROL
F8FD   AA         TAX
F8FE   AD 06 DC   LDA $DC06
F901   C9 16      CMP #$16
F903   90 F9      BCC $F8FE
F905   65 B1      ADC $B1
F907   8D 04 DC   STA $DC04
F90A   8A         TXA
F90B   6D 07 DC   ADC $DC07
F90E   8D 05 DC   STA $DC05
F911   AD A2 02   LDA $02A2
F914   8D 0E DC   STA $DC0E
F917   8D A4 02   STA $02A4
F91A   AD 0D DC   LDA $DC0D
F91D   29 10      AND #$10
F91F   F0 09      BEQ $F92A
F921   A9 F9      LDA #$F9
F923   48         PHA
F924   A9 2A      LDA #$2A
F926   48         PHA
F927   4C 43 FF   JMP $FF43
F92A   58         CLI
F92B   60         RTS


; cassette read IRQ routine

F92C   AE 07 DC   LDX $DC07
F92F   A0 FF      LDY #$FF
F931   98         TYA
F932   ED 06 DC   SBC $DC06
F935   EC 07 DC   CPX $DC07
F938   D0 F2      BNE $F92C
F93A   86 B1      STX $B1
F93C   AA         TAX
F93D   8C 06 DC   STY $DC06
F940   8C 07 DC   STY $DC07
F943   A9 19      LDA #$19
F945   8D 0F DC   STA $DC0F
F948   AD 0D DC   LDA $DC0D
F94B   8D A3 02   STA $02A3
F94E   98         TYA
F94F   E5 B1      SBC $B1
F951   86 B1      STX $B1
F953   4A         LSR
F954   66 B1      ROR $B1
F956   4A         LSR
F957   66 B1      ROR $B1
F959   A5 B0      LDA $B0
F95B   18         CLC
F95C   69 3C      ADC #$3C
F95E   C5 B1      CMP $B1
F960   B0 4A      BCS $F9AC
F962   A6 9C      LDX $9C
F964   F0 03      BEQ $F969
F966   4C 60 FA   JMP $FA60

F969   A6 A3      LDX $A3
F96B   30 1B      BMI $F988
F96D   A2 00      LDX #$00
F96F   69 30      ADC #$30
F971   65 B0      ADC $B0
F973   C5 B1      CMP $B1
F975   B0 1C      BCS $F993
F977   E8         INX
F978   69 26      ADC #$26
F97A   65 B0      ADC $B0
F97C   C5 B1      CMP $B1
F97E   B0 17      BCS $F997
F980   69 2C      ADC #$2C
F982   65 B0      ADC $B0
F984   C5 B1      CMP $B1
F986   90 03      BCC $F98B
F988   4C 10 FA   JMP $FA10

F98B   A5 B4      LDA $B4
F98D   F0 1D      BEQ $F9AC
F98F   85 A8      STA $A8
F991   D0 19      BNE $F9AC
F993   E6 A9      INC $A9
F995   B0 02      BCS $F999

F997   C6 A9      DEC $A9

F999   38         SEC
F99A   E9 13      SBC #$13
F99C   E5 B1      SBC $B1
F99E   65 92      ADC $92
F9A0   85 92      STA $92
F9A2   A5 A4      LDA $A4
F9A4   49 01      EOR #$01
F9A6   85 A4      STA $A4
F9A8   F0 2B      BEQ $F9D5
F9AA   86 D7      STX $D7
F9AC   A5 B4      LDA $B4
F9AE   F0 22      BEQ $F9D2
F9B0   AD A3 02   LDA $02A3
F9B3   29 01      AND #$01
F9B5   D0 05      BNE $F9BC
F9B7   AD A4 02   LDA $02A4
F9BA   D0 16      BNE $F9D2
F9BC   A9 00      LDA #$00
F9BE   85 A4      STA $A4
F9C0   8D A4 02   STA $02A4
F9C3   A5 A3      LDA $A3
F9C5   10 30      BPL $F9F7
F9C7   30 BF      BMI $F988
F9C9   A2 A6      LDX #$A6
F9CB   20 E2 F8   JSR $F8E2
F9CE   A5 9B      LDA $9B
F9D0   D0 B9      BNE $F98B
F9D2   4C BC FE   JMP $FEBC

F9D5   A5 92      LDA $92
F9D7   F0 07      BEQ $F9E0
F9D9   30 03      BMI $F9DE
F9DB   C6 B0      DEC $B0
F9DD   .BY $2C
F9DE   E6 B0      INC $B0
F9E0   A9 00      LDA #$00
F9E2   85 92      STA $92
F9E4   E4 D7      CPX $D7
F9E6   D0 0F      BNE $F9F7
F9E8   8A         TXA
F9E9   D0 A0      BNE $F98B
F9EB   A5 A9      LDA $A9
F9ED   30 BD      BMI $F9AC
F9EF   C9 10      CMP #$10
F9F1   90 B9      BCC $F9AC
F9F3   85 96      STA $96
F9F5   B0 B5      BCS $F9AC
F9F7   8A         TXA
F9F8   45 9B      EOR $9B
F9FA   85 9B      STA $9B
F9FC   A5 B4      LDA $B4
F9FE   F0 D2      BEQ $F9D2
FA00   C6 A3      DEC $A3
FA02   30 C5      BMI $F9C9
FA04   46 D7      LSR $D7
FA06   66 BF      ROR $BF
FA08   A2 DA      LDX #$DA
FA0A   20 E2 F8   JSR $F8E2
FA0D   4C BC FE   JMP $FEBC


FA10   A5 96      LDA $96

FA12   F0 04      BEQ $FA18
FA14   A5 B4      LDA $B4
FA16   F0 07      BEQ $FA1F
FA18   A5 A3      LDA $A3
FA1A   30 03      BMI $FA1F
FA1C   4C 97 F9   JMP $F997

FA1F   46 B1      LSR $B1
FA21   A9 93      LDA #$93
FA23   38         SEC
FA24   E5 B1      SBC $B1
FA26   65 B0      ADC $B0
FA28   0A         ASL
FA29   AA         TAX
FA2A   20 E2 F8   JSR $F8E2
FA2D   E6 9C      INC $9C
FA2F   A5 B4      LDA $B4
FA31   D0 11      BNE $FA44
FA33   A5 96      LDA $96
FA35   F0 26      BEQ $FA5D
FA37   85 A8      STA $A8
FA39   A9 00      LDA #$00
FA3B   85 96      STA $96
FA3D   A9 81      LDA #$81
FA3F   8D 0D DC   STA $DC0D
FA42   85 B4      STA $B4
FA44   A5 96      LDA $96
FA46   85 B5      STA $B5
FA48   F0 09      BEQ $FA53
FA4A   A9 00      LDA #$00
FA4C   85 B4      STA $B4
FA4E   A9 01      LDA #$01
FA50   8D 0D DC   STA $DC0D
FA53   A5 BF      LDA $BF
FA55   85 BD      STA $BD
FA57   A5 A8      LDA $A8
FA59   05 A9      ORA $A9
FA5B   85 B6      STA $B6
FA5D   4C BC FE   JMP $FEBC


; receive next byte from cassette

FA60   20 97 FB   JSR $FB97
FA63   85 9C      STA $9C
FA65   A2 DA      LDX #$DA
FA67   20 E2 F8   JSR $F8E2
FA6A   A5 BE      LDA $BE
FA6C   F0 02      BEQ $FA70
FA6E   85 A7      STA $A7
FA70   A9 0F      LDA #$0F
FA72   24 AA      BIT $AA
FA74   10 17      BPL $FA8D
FA76   A5 B5      LDA $B5
FA78   D0 0C      BNE $FA86
FA7A   A6 BE      LDX $BE
FA7C   CA         DEX
FA7D   D0 0B      BNE $FA8A
FA7F   A9 08      LDA #$08
FA81   20 1C FE   JSR $FE1C
FA84   D0 04      BNE $FA8A
FA86   A9 00      LDA #$00
FA88   85 AA      STA $AA
FA8A   4C BC FE   JMP $FEBC

FA8D   70 31      BVS $FAC0
FA8F   D0 18      BNE $FAA9
FA91   A5 B5      LDA $B5
FA93   D0 F5      BNE $FA8A
FA95   A5 B6      LDA $B6
FA97   D0 F1      BNE $FA8A
FA99   A5 A7      LDA $A7
FA9B   4A         LSR
FA9C   A5 BD      LDA $BD
FA9E   30 03      BMI $FAA3
FAA0   90 18      BCC $FABA
FAA2   18         CLC
FAA3   B0 15      BCS $FABA
FAA5   29 0F      AND #$0F
FAA7   85 AA      STA $AA
FAA9   C6 AA      DEC $AA
FAAB   D0 DD      BNE $FA8A
FAAD   A9 40      LDA #$40
FAAF   85 AA      STA $AA
FAB1   20 8E FB   JSR $FB8E
FAB4   A9 00      LDA #$00
FAB6   85 AB      STA $AB
FAB8   F0 D0      BEQ $FA8A
FABA   A9 80      LDA #$80
FABC   85 AA      STA $AA
FABE   D0 CA      BNE $FA8A
FAC0   A5 B5      LDA $B5
FAC2   F0 0A      BEQ $FACE
FAC4   A9 04      LDA #$04
FAC6   20 1C FE   JSR $FE1C
FAC9   A9 00      LDA #$00
FACB   4C 4A FB   JMP $FB4A

FACE   20 D1 FC   JSR $FCD1
FAD1   90 03      BCC $FAD6
FAD3   4C 48 FB   JMP $FB48
FAD6   A6 A7      LDX $A7
FAD8   CA         DEX
FAD9   F0 2D      BEQ $FB08
FADB   A5 93      LDA $93
FADD   F0 0C      BEQ $FAEB
FADF   A0 00      LDY #$00
FAE1   A5 BD      LDA $BD
FAE3   D1 AC      CMP ($AC),Y
FAE5   F0 04      BEQ $FAEB
FAE7   A9 01      LDA #$01
FAE9   85 B6      STA $B6
FAEB   A5 B6      LDA $B6
FAED   F0 4B      BEQ $FB3A
FAEF   A2 3D      LDX #$3D
FAF1   E4 9E      CPX $9E
FAF3   90 3E      BCC $FB33
FAF5   A6 9E      LDX $9E
FAF7   A5 AD      LDA $AD
FAF9   9D 01 01   STA $0101,X
FAFC   A5 AC      LDA $AC
FAFE   9D 00 01   STA $0100,X
FB01   E8         INX
FB02   E8         INX
FB03   86 9E      STX $9E
FB05   4C 3A FB   JMP $FB3A

FB08   A6 9F      LDX $9F
FB0A   E4 9E      CPX $9E
FB0C   F0 35      BEQ $FB43
FB0E   A5 AC      LDA $AC
FB10   DD 00 01   CMP $0100,X
FB13   D0 2E      BNE $FB43
FB15   A5 AD      LDA $AD
FB17   DD 01 01   CMP $0101,X
FB1A   D0 27      BNE $FB43
FB1C   E6 9F      INC $9F
FB1E   E6 9F      INC $9F
FB20   A5 93      LDA $93
FB22   F0 0B      BEQ $FB2F
FB24   A5 BD      LDA $BD
FB26   A0 00      LDY #$00
FB28   D1 AC      CMP ($AC),Y
FB2A   F0 17      BEQ $FB43
FB2C   C8         INY
FB2D   84 B6      STY $B6
FB2F   A5 B6      LDA $B6
FB31   F0 07      BEQ $FB3A
FB33   A9 10      LDA #$10
FB35   20 1C FE   JSR $FE1C
FB38   D0 09      BNE $FB43

FB3A   A5 93      LDA $93

FB3C   D0 05      BNE $FB43
FB3E   A8         TAY
FB3F   A5 BD      LDA $BD
FB41   91 AC      STA ($AC),Y
FB43   20 DB FC   JSR $FCDB
FB46   D0 43      BNE $FB8B

FB48   A9 80      LDA #$80


FB4A   85 AA      STA $AA

FB4C   78         SEI
FB4D   A2 01      LDX #$01
FB4F   8E 0D DC   STX $DC0D
FB52   AE 0D DC   LDX $DC0D
FB55   A6 BE      LDX $BE
FB57   CA         DEX
FB58   30 02      BMI $FB5C
FB5A   86 BE      STX $BE
FB5C   C6 A7      DEC $A7
FB5E   F0 08      BEQ $FB68
FB60   A5 9E      LDA $9E
FB62   D0 27      BNE $FB8B
FB64   85 BE      STA $BE
FB66   F0 23      BEQ $FB8B
FB68   20 93 FC   JSR $FC93
FB6B   20 8E FB   JSR $FB8E
FB6E   A0 00      LDY #$00
FB70   84 AB      STY $AB
FB72   B1 AC      LDA ($AC),Y
FB74   45 AB      EOR $AB
FB76   85 AB      STA $AB
FB78   20 DB FC   JSR $FCDB
FB7B   20 D1 FC   JSR $FCD1
FB7E   90 F2      BCC $FB72
FB80   A5 AB      LDA $AB
FB82   45 BD      EOR $BD
FB84   F0 05      BEQ $FB8B
FB86   A9 20      LDA #$20
FB88   20 1C FE   JSR $FE1C
FB8B   4C BC FE   JMP $FEBC


; move save/load address into $AC/$AD

FB8E   A5 C2      LDA $C2
FB90   85 AD      STA $AD
FB92   A5 C1      LDA $C1
FB94   85 AC      STA $AC
FB96   60         RTS


; initalise cassette read/write variables

FB97   A9 08      LDA #$08
FB99   85 A3      STA $A3
FB9B   A9 00      LDA #$00
FB9D   85 A4      STA $A4
FB9F   85 A8      STA $A8
FBA1   85 9B      STA $9B
FBA3   85 A9      STA $A9
FBA5   60         RTS


; schedule CIA1 timer B and
; invert casette write line

FBA6   A5 BD      LDA $BD
FBA8   4A         LSR
FBA9   A9 60      LDA #$60
FBAB   90 02      BCC $FBAF

FBAD   A9 B0      LDA #$B0


FBAF   A2 00      LDX #$00


FBB1   8D 06 DC   STA $DC06

FBB4   8E 07 DC   STX $DC07
FBB7   AD 0D DC   LDA $DC0D
FBBA   A9 19      LDA #$19
FBBC   8D 0F DC   STA $DC0F
FBBF   A5 01      LDA $01
FBC1   49 08      EOR #$08
FBC3   85 01      STA $01
FBC5   29 08      AND #$08
FBC7   60         RTS


; IRQ routine for cassette write B

FBC8   38         SEC
FBC9   66 B6      ROR $B6
FBCB   30 3C      BMI $FC09

FBCD   A5 A8      LDA $A8

FBCF   D0 12      BNE $FBE3
FBD1   A9 10      LDA #$10
FBD3   A2 01      LDX #$01
FBD5   20 B1 FB   JSR $FBB1
FBD8   D0 2F      BNE $FC09
FBDA   E6 A8      INC $A8
FBDC   A5 B6      LDA $B6
FBDE   10 29      BPL $FC09
FBE0   4C 57 FC   JMP $FC57

FBE3   A5 A9      LDA $A9
FBE5   D0 09      BNE $FBF0
FBE7   20 AD FB   JSR $FBAD
FBEA   D0 1D      BNE $FC09
FBEC   E6 A9      INC $A9
FBEE   D0 19      BNE $FC09
FBF0   20 A6 FB   JSR $FBA6
FBF3   D0 14      BNE $FC09
FBF5   A5 A4      LDA $A4
FBF7   49 01      EOR #$01
FBF9   85 A4      STA $A4
FBFB   F0 0F      BEQ $FC0C
FBFD   A5 BD      LDA $BD
FBFF   49 01      EOR #$01
FC01   85 BD      STA $BD
FC03   29 01      AND #$01
FC05   45 9B      EOR $9B
FC07   85 9B      STA $9B
FC09   4C BC FE   JMP $FEBC

FC0C   46 BD      LSR $BD
FC0E   C6 A3      DEC $A3
FC10   A5 A3      LDA $A3
FC12   F0 3A      BEQ $FC4E
FC14   10 F3      BPL $FC09
FC16   20 97 FB   JSR $FB97
FC19   58         CLI
FC1A   A5 A5      LDA $A5
FC1C   F0 12      BEQ $FC30
FC1E   A2 00      LDX #$00
FC20   86 D7      STX $D7
FC22   C6 A5      DEC $A5
FC24   A6 BE      LDX $BE
FC26   E0 02      CPX #$02
FC28   D0 02      BNE $FC2C
FC2A   09 80      ORA #$80
FC2C   85 BD      STA $BD
FC2E   D0 D9      BNE $FC09
FC30   20 D1 FC   JSR $FCD1
FC33   90 0A      BCC $FC3F
FC35   D0 91      BNE $FBC8
FC37   E6 AD      INC $AD
FC39   A5 D7      LDA $D7
FC3B   85 BD      STA $BD
FC3D   B0 CA      BCS $FC09
FC3F   A0 00      LDY #$00
FC41   B1 AC      LDA ($AC),Y
FC43   85 BD      STA $BD
FC45   45 D7      EOR $D7
FC47   85 D7      STA $D7
FC49   20 DB FC   JSR $FCDB
FC4C   D0 BB      BNE $FC09
FC4E   A5 9B      LDA $9B
FC50   49 01      EOR #$01
FC52   85 BD      STA $BD
FC54   4C BC FE   JMP $FEBC


FC57   C6 BE      DEC $BE

FC59   D0 03      BNE $FC5E
FC5B   20 CA FC   JSR $FCCA
FC5E   A9 50      LDA #$50
FC60   85 A7      STA $A7
FC62   A2 08      LDX #$08
FC64   78         SEI
FC65   20 BD FC   JSR $FCBD
FC68   D0 EA      BNE $FC54


; IRQ routine for cassette write A

FC6A   A9 78      LDA #$78
FC6C   20 AF FB   JSR $FBAF
FC6F   D0 E3      BNE $FC54
FC71   C6 A7      DEC $A7
FC73   D0 DF      BNE $FC54
FC75   20 97 FB   JSR $FB97
FC78   C6 AB      DEC $AB
FC7A   10 D8      BPL $FC54
FC7C   A2 0A      LDX #$0A
FC7E   20 BD FC   JSR $FCBD
FC81   58         CLI
FC82   E6 AB      INC $AB
FC84   A5 BE      LDA $BE
FC86   F0 30      BEQ $FCB8
FC88   20 8E FB   JSR $FB8E
FC8B   A2 09      LDX #$09
FC8D   86 A5      STX $A5
FC8F   86 B6      STX $B6
FC91   D0 83      BNE $FC16


; switch from cassette IRQ to default IRQ

FC93   08         PHP
FC94   78         SEI
FC95   AD 11 D0   LDA $D011
FC98   09 10      ORA #$10
FC9A   8D 11 D0   STA $D011
FC9D   20 CA FC   JSR $FCCA
FCA0   A9 7F      LDA #$7F
FCA2   8D 0D DC   STA $DC0D
FCA5   20 DD FD   JSR $FDDD
FCA8   AD A0 02   LDA $02A0
FCAB   F0 09      BEQ $FCB6
FCAD   8D 15 03   STA $0315
FCB0   AD 9F 02   LDA $029F
FCB3   8D 14 03   STA $0314
FCB6   28         PLP
FCB7   60         RTS


; terminate cassette I/O

FCB8   20 93 FC   JSR $FC93
FCBB   F0 97      BEQ $FC54


; set IRQ vector depending on X

FCBD   BD 93 FD   LDA $FD93,X
FCC0   8D 14 03   STA $0314
FCC3   BD 94 FD   LDA $FD94,X
FCC6   8D 15 03   STA $0315
FCC9   60         RTS


; stop cassette motor

FCCA   A5 01      LDA $01
FCCC   09 20      ORA #$20
FCCE   85 01      STA $01
FCD0   60         RTS


; compare $AC/$AD with $AE/$AF

FCD1   38         SEC
FCD2   A5 AC      LDA $AC
FCD4   E5 AE      SBC $AE
FCD6   A5 AD      LDA $AD
FCD8   E5 AF      SBC $AF
FCDA   60         RTS


; increment $AC/$AD

FCDB   E6 AC      INC $AC
FCDD   D0 02      BNE $FCE1
FCDF   E6 AD      INC $AD
FCE1   60         RTS


; RESET routine

FCE2   A2 FF      LDX #$FF
FCE4   78         SEI
FCE5   9A         TXS
FCE6   D8         CLD
FCE7   20 02 FD   JSR $FD02
FCEA   D0 03      BNE $FCEF
FCEC   6C 00 80   JMP ($8000)   ; start cartridge

FCEF   8E 16 D0   STX $D016
FCF2   20 A3 FD   JSR $FDA3
FCF5   20 50 FD   JSR $FD50
FCF8   20 15 FD   JSR $FD15
FCFB   20 5B FF   JSR $FF5B
FCFE   58         CLI
FCFF   6C 00 A0   JMP ($A000)   ; start basic


; check for a cartridge

FD02   A2 05      LDX #$05
FD04   BD 0F FD   LDA $FD0F,X
FD07   DD 03 80   CMP $8003,X
FD0A   D0 03      BNE $FD0F
FD0C   CA         DEX
FD0D   D0 F5      BNE $FD04
FD0F   60         RTS


; CBM80

FD10   .BY $C3,$C2,$CD,$38,$30


; restore I/O vectors

FD15   A2 30      LDX #$30   ; low  FD30
FD17   A0 FD      LDY #$FD   ; high FD30
FD19   18         CLC


; set I/O vectors depending on XY

FD1A   86 C3      STX $C3
FD1C   84 C4      STY $C4
FD1E   A0 1F      LDY #$1F
FD20   B9 14 03   LDA $0314,Y
FD23   B0 02      BCS $FD27
FD25   B1 C3      LDA ($C3),Y
FD27   91 C3      STA ($C3),Y
FD29   99 14 03   STA $0314,Y
FD2C   88         DEY
FD2D   10 F1      BPL $FD20
FD2F   60         RTS


; vectors for OS at $0314-$0333

FD30   .WD $EA31   ; IRQ
FD32   .WD $FE66   ; BRK
FD34   .WD $FE47   ; NMI
FD36   .WD $F34A   ; open
FD38   .WD $F291   ; close
FD3A   .WD $F20E   ; set input dev
FD3C   .WD $F250   ; set output dev
FD3E   .WD $F333   ; restore I/O
FD40   .WD $F157   ; input
FD42   .WD $F1CA   ; output
FD44   .WD $F6ED   ; test stop key
FD46   .WD $F13E   ; get
FD48   .WD $F32F   ; abort I/O
FD4A   .WD $FE66   ; unused (BRK)
FD4C   .WD $F4A5   ; load ram
FD4E   .WD $F5ED   ; save ram


; initalise memory pointers

FD50   A9 00      LDA #$00
FD52   A8         TAY
FD53   99 02 00   STA $0002,Y
FD56   99 00 02   STA $0200,Y
FD59   99 00 03   STA $0300,Y
FD5C   C8         INY
FD5D   D0 F4      BNE $FD53
FD5F   A2 3C      LDX #$3C
FD61   A0 03      LDY #$03
FD63   86 B2      STX $B2
FD65   84 B3      STY $B3
FD67   A8         TAY
FD68   A9 03      LDA #$03
FD6A   85 C2      STA $C2
FD6C   E6 C2      INC $C2
FD6E   B1 C1      LDA ($C1),Y
FD70   AA         TAX
FD71   A9 55      LDA #$55
FD73   91 C1      STA ($C1),Y
FD75   D1 C1      CMP ($C1),Y
FD77   D0 0F      BNE $FD88
FD79   2A         ROL
FD7A   91 C1      STA ($C1),Y
FD7C   D1 C1      CMP ($C1),Y
FD7E   D0 08      BNE $FD88
FD80   8A         TXA
FD81   91 C1      STA ($C1),Y
FD83   C8         INY
FD84   D0 E8      BNE $FD6E
FD86   F0 E4      BEQ $FD6C
FD88   98         TYA
FD89   AA         TAX
FD8A   A4 C2      LDY $C2
FD8C   18         CLC
FD8D   20 2D FE   JSR $FE2D
FD90   A9 08      LDA #$08
FD92   8D 82 02   STA $0282
FD95   A9 04      LDA #$04
FD97   8D 88 02   STA $0288
FD9A   60         RTS


; IRQ vectors

FD9B   .WD $FC6A   ; cassette write A
FD9D   .WD $FBCD   ; cassette write B
FD9F   .WD $EA31   ; standard IRQ
FDA1   .WD $F92C   ; cassette read


; initaliase I/O devices

FDA3   A9 7F      LDA #$7F
FDA5   8D 0D DC   STA $DC0D
FDA8   8D 0D DD   STA $DD0D
FDAB   8D 00 DC   STA $DC00
FDAE   A9 08      LDA #$08
FDB0   8D 0E DC   STA $DC0E
FDB3   8D 0E DD   STA $DD0E
FDB6   8D 0F DC   STA $DC0F
FDB9   8D 0F DD   STA $DD0F
FDBC   A2 00      LDX #$00
FDBE   8E 03 DC   STX $DC03
FDC1   8E 03 DD   STX $DD03
FDC4   8E 18 D4   STX $D418
FDC7   CA         DEX
FDC8   8E 02 DC   STX $DC02
FDCB   A9 07      LDA #$07
FDCD   8D 00 DD   STA $DD00
FDD0   A9 3F      LDA #$3F
FDD2   8D 02 DD   STA $DD02
FDD5   A9 E7      LDA #$E7
FDD7   85 01      STA $01
FDD9   A9 2F      LDA #$2F
FDDB   85 00      STA $00


; initalise TAL1/TAH1 fpr 1/60 of a second

FDDD   AD A6 02   LDA $02A6
FDE0   F0 0A      BEQ $FDEC
FDE2   A9 25      LDA #$25
FDE4   8D 04 DC   STA $DC04
FDE7   A9 40      LDA #$40
FDE9   4C F3 FD   JMP $FDF3

FDEC   A9 95      LDA #$95
FDEE   8D 04 DC   STA $DC04
FDF1   A9 42      LDA #$42

FDF3   8D 05 DC   STA $DC05

FDF6   4C 6E FF   JMP $FF6E


; initalise file name parameters

FDF9   85 B7      STA $B7
FDFB   86 BB      STX $BB
FDFD   84 BC      STY $BC
FDFF   60         RTS


; inatalise file parameters

FE00   85 B8      STA $B8
FE02   86 BA      STX $BA
FE04   84 B9      STY $B9
FE06   60         RTS


; read I/O status word

FE07   A5 BA      LDA $BA
FE09   C9 02      CMP #$02
FE0B   D0 0D      BNE $FE1A
FE0D   AD 97 02   LDA $0297
FE10   48         PHA
FE11   A9 00      LDA #$00
FE13   8D 97 02   STA $0297
FE16   68         PLA
FE17   60         RTS


; control kernel messages

FE18   85 9D      STA $9D


; read ST

FE1A   A5 90      LDA $90


; add A to ST

FE1C   05 90      ORA $90
FE1E   85 90      STA $90
FE20   60         RTS


; set timeout on serail bus

FE21   8D 85 02   STA $0285
FE24   60         RTS


; read/set top of memory

FE25   90 06      BCC $FE2D

FE27   AE 83 02   LDX $0283

FE2A   AC 84 02   LDY $0284

FE2D   8E 83 02   STX $0283

FE30   8C 84 02   STY $0284
FE33   60         RTS


; read/set bottom of memory

FE34   90 06      BCC $FE3C
FE36   AE 81 02   LDX $0281
FE39   AC 82 02   LDY $0282
FE3C   8E 81 02   STX $0281
FE3F   8C 82 02   STY $0282
FE42   60         RTS


; NMI entry

FE43   78         SEI
FE44   6C 18 03   JMP ($0318)   ; normally FE47


; standard NMI routine

FE47   48         PHA
FE48   8A         TXA
FE49   48         PHA
FE4A   98         TYA
FE4B   48         PHA
FE4C   A9 7F      LDA #$7F
FE4E   8D 0D DD   STA $DD0D
FE51   AC 0D DD   LDY $DD0D
FE54   30 1C      BMI $FE72
FE56   20 02 FD   JSR $FD02
FE59   D0 03      BNE $FE5E
FE5B   6C 02 80   JMP ($8002)   ; cartridge warm start

FE5E   20 BC F6   JSR $F6BC
FE61   20 E1 FF   JSR $FFE1
FE64   D0 0C      BNE $FE72


; BRK routine

FE66   20 15 FD   JSR $FD15
FE69   20 A3 FD   JSR $FDA3
FE6C   20 18 E5   JSR $E518
FE6F   6C 02 A0   JMP ($A002)


; internal NMI

FE72   98         TYA
FE73   2D A1 02   AND $02A1
FE76   AA         TAX
FE77   29 01      AND #$01
FE79   F0 28      BEQ $FEA3
FE7B   AD 00 DD   LDA $DD00
FE7E   29 FB      AND #$FB
FE80   05 B5      ORA $B5
FE82   8D 00 DD   STA $DD00
FE85   AD A1 02   LDA $02A1
FE88   8D 0D DD   STA $DD0D
FE8B   8A         TXA
FE8C   29 12      AND #$12
FE8E   F0 0D      BEQ $FE9D
FE90   29 02      AND #$02
FE92   F0 06      BEQ $FE9A
FE94   20 D6 FE   JSR $FED6
FE97   4C 9D FE   JMP $FE9D

FE9A   20 07 FF   JSR $FF07

FE9D   20 BB EE   JSR $EEBB

FEA0   4C B6 FE   JMP $FEB6

FEA3   8A         TXA
FEA4   29 02      AND #$02
FEA6   F0 06      BEQ $FEAE
FEA8   20 D6 FE   JSR $FED6
FEAB   4C B6 FE   JMP $FEB6

FEAE   8A         TXA
FEAF   29 10      AND #$10
FEB1   F0 03      BEQ $FEB6
FEB3   20 07 FF   JSR $FF07

FEB6   AD A1 02   LDA $02A1

FEB9   8D 0D DD   STA $DD0D

FEBC   68         PLA

FEBD   A8         TAY
FEBE   68         PLA
FEBF   AA         TAX
FEC0   68         PLA
FEC1   40         RTI


; baud rate tables

FEC2   .WD $27C1   ; 50
FEC4   .WD $1A3E   ; 75
FEC6   .WD $11C5   ; 110
FEC8   .WD $0E74   ; 134.5
FECA   .WD $0CED   ; 150
FECC   .WD $0645   ; 300
FECE   .WD $02F0   ; 600
FED0   .WD $0146   ; 1200
FED2   .WD $00B8   ; 1800
FED4   .WD $0071   ; 2400


; input next bit on RS-232 and schedule TB2

FED6   AD 01 DD   LDA $DD01
FED9   29 01      AND #$01
FEDB   85 A7      STA $A7
FEDD   AD 06 DD   LDA $DD06
FEE0   E9 1C      SBC #$1C
FEE2   6D 99 02   ADC $0299
FEE5   8D 06 DD   STA $DD06
FEE8   AD 07 DD   LDA $DD07
FEEB   6D 9A 02   ADC $029A
FEEE   8D 07 DD   STA $DD07
FEF1   A9 11      LDA #$11
FEF3   8D 0F DD   STA $DD0F
FEF6   AD A1 02   LDA $02A1
FEF9   8D 0D DD   STA $DD0D
FEFC   A9 FF      LDA #$FF
FEFE   8D 06 DD   STA $DD06
FF01   8D 07 DD   STA $DD07
FF04   4C 59 EF   JMP $EF59


; schedule TB2 using baud rate factor

FF07   AD 95 02   LDA $0295
FF0A   8D 06 DD   STA $DD06
FF0D   AD 96 02   LDA $0296
FF10   8D 07 DD   STA $DD07
FF13   A9 11      LDA #$11
FF15   8D 0F DD   STA $DD0F
FF18   A9 12      LDA #$12
FF1A   4D A1 02   EOR $02A1
FF1D   8D A1 02   STA $02A1
FF20   A9 FF      LDA #$FF
FF22   8D 06 DD   STA $DD06
FF25   8D 07 DD   STA $DD07
FF28   AE 98 02   LDX $0298
FF2B   86 A8      STX $A8
FF2D   60         RTS


; continuation of baud rate calculation

FF2E   AA         TAX
FF2F   AD 96 02   LDA $0296
FF32   2A         ROL
FF33   A8         TAY
FF34   8A         TXA
FF35   69 C8      ADC #$C8
FF37   8D 99 02   STA $0299
FF3A   98         TYA
FF3B   69 00      ADC #$00
FF3D   8D 9A 02   STA $029A
FF40   60         RTS

FF41   EA         NOP
FF42   EA         NOP


FF43   08         PHP

FF44   68         PLA
FF45   29 EF      AND #$EF
FF47   48         PHA


; IRQ entry point

FF48   48         PHA
FF49   8A         TXA
FF4A   48         PHA
FF4B   98         TYA
FF4C   48         PHA
FF4D   BA         TSX
FF4E   BD 04 01   LDA $0104,X
FF51   29 10      AND #$10
FF53   F0 03      BEQ $FF58
FF55   6C 16 03   JMP ($0316)   ; normally FE66

FF58   6C 14 03   JMP ($0314)   ; normally EA31


; addition to I/O device initalisation

FF5B   20 18 E5   JSR $E518
FF5E   AD 12 D0   LDA $D012
FF61   D0 FB      BNE $FF5E
FF63   AD 19 D0   LDA $D019
FF66   29 01      AND #$01
FF68   8D A6 02   STA $02A6
FF6B   4C DD FD   JMP $FDDD


; end of scheduling TA for 1/60 second IRQ's

FF6E   A9 81      LDA #$81
FF70   8D 0D DC   STA $DC0D
FF73   AD 0E DC   LDA $DC0E
FF76   29 80      AND #$80
FF78   09 11      ORA #$11
FF7A   8D 0E DC   STA $DC0E
FF7D   4C 8E EE   JMP $EE8E

FF80   .BY $03   ; kernal version number


; kernal vectors

FF81   4C 5B FF   JMP $FF5B   ; initalise screen and keyboard
FF84   4C A3 FD   JMP $FDA3   ; initalise I/O devices
FF87   4C 50 FD   JMP $FD50   ; initalise memory pointers
FF8A   4C 15 FD   JMP $FD15   ; restore I/O vectors
FF8D   4C 1A FD   JMP $FD1A   ; set I/O vectors from XY

FF90   4C 18 FE   JMP $FE18   ; control kernal messages

FF93   4C B9 ED   JMP $EDB9   ; read secondary address after listen
FF96   4C C7 ED   JMP $EDC7   ; read secondary address after talk

FF99   4C 25 FE   JMP $FE25   ; read/set top of memory


FF9C   4C 34 FE   JMP $FE34   ; read/set bottom of memory

FF9F   4C 87 EA   JMP $EA87   ; scan keyboard
FFA2   4C 21 FE   JMP $FE21   ; set timout for serial bus
FFA5   4C 13 EE   JMP $EE13   ; input on serial bus
FFA8   4C DD ED   JMP $EDDD   ; output byte on serial bus
FFAB   4C EF ED   JMP $EDEF   ; send untalk on serial bus
FFAE   4C FE ED   JMP $EDFE   ; send unlisten on serial bus
FFB1   4C 0C ED   JMP $ED0C   ; send listen on serial bus
FFB4   4C 09 ED   JMP $ED09   ; send talk on serial bus

FFB7   4C 07 FE   JMP $FE07   ; read I/O status word


FFBA   4C 00 FE   JMP $FE00   ; set file parameters


FFBD   4C F9 FD   JMP $FDF9   ; set filename parameters


FFC0   6C 1A 03   JMP ($031A)   ; (F34A) open a file


FFC3   6C 1C 03   JMP ($031C)   ; (F291) close a file


FFC6   6C 1E 03   JMP ($031E)   ; (F20E) set input device


FFC9   6C 20 03   JMP ($0320)   ; (F250) set output device


FFCC   6C 22 03   JMP ($0322)   ; (F333) restore I/O devices to default


FFCF   6C 24 03   JMP ($0324)   ; (F157) input char on current device


FFD2   6C 26 03   JMP ($0326)   ; (F1CA) output char on current device


FFD5   4C 9E F4   JMP $F49E   ; load ram from device


FFD8   4C DD F5   JMP $F5DD   ; save ram to device


FFDB   4C E4 F6   JMP $F6E4   ; set real time clock


FFDE   4C DD F6   JMP $F6DD   ; read real time clock


FFE1   6C 28 03   JMP ($0328)   ; (F6ED) check stop key


FFE4   6C 2A 03   JMP ($032A)   ; (F13E) get a character


FFE7   6C 2C 03   JMP ($032C)   ; (F32F) close all channels and files


FFEA   4C 9B F6   JMP $F69B   ; increment real time clock

FFED   4C 05 E5   JMP $E505   ; read organisation of screen into XY

FFF0   4C 0A E5   JMP $E50A   ; read/set XY cursor position


FFF3   4C 00 E5   JMP $E500   ; read base address of I/O devices



; unused

FFF6   .BY $52,$52,$42,$59

FFFA   .WD $FE43   ; NMI vector
FFFC   .WD $FCE2   ; RESET vector
FFFE   .WD $FF48   ; IRQ/BRK vector