C64 Software  <  SCA: The C64 Software Collection / BASIS

  Run
; Load: 16384 ($4000), len: 715 bytes

4000  4C 05 40    JMP $4005
4003  00          BRK
4004  00          BRK
4005  A9 00       LDA #$00
4007  20 BD FF    JSR $FFBD
400A  A9 01       LDA #$01
400C  A2 08       LDX #$08
400E  A0 0F       LDY #$0F
4010  20 BA FF    JSR $FFBA
4013  20 C0 FF    JSR $FFC0
4016  A9 02       LDA #$02
4018  A2 CE       LDX #$CE
401A  A0 41       LDY #$41
401C  20 BD FF    JSR $FFBD
401F  A9 02       LDA #$02
4021  A2 08       LDX #$08
4023  A0 02       LDY #$02
4025  20 BA FF    JSR $FFBA
4028  20 C0 FF    JSR $FFC0
402B  A2 01       LDX #$01
402D  20 C9 FF    JSR $FFC9
4030  A0 00       LDY #$00
4032  B9 D0 41    LDA $41D0,Y
4035  C9 FF       CMP #$FF
4037  F0 06       BEQ $403F
4039  20 D2 FF    JSR $FFD2
403C  C8          INY
403D  D0 F3       BNE $4032
403F  20 CC FF    JSR $FFCC
4042  A9 02       LDA #$02
4044  20 C3 FF    JSR $FFC3
4047  A9 01       LDA #$01
4049  20 C3 FF    JSR $FFC3
404C  A9 00       LDA #$00
404E  20 BD FF    JSR $FFBD
4051  A9 01       LDA #$01
4053  A2 08       LDX #$08
4055  A0 0F       LDY #$0F
4057  20 BA FF    JSR $FFBA
405A  20 C0 FF    JSR $FFC0
405D  A2 01       LDX #$01
405F  20 C9 FF    JSR $FFC9
4062  A0 00       LDY #$00
4064  B9 DF 41    LDA $41DF,Y
4067  C9 FE       CMP #$FE
4069  F0 06       BEQ $4071
406B  20 D2 FF    JSR $FFD2
406E  C8          INY
406F  D0 F3       BNE $4064
4071  20 CC FF    JSR $FFCC
4074  A2 01       LDX #$01
4076  20 C6 FF    JSR $FFC6
4079  20 CF FF    JSR $FFCF
407C  48          PHA
407D  20 CC FF    JSR $FFCC
4080  A9 01       LDA #$01
4082  20 C3 FF    JSR $FFC3
4085  68          PLA
4086  C9 FF       CMP #$FF
4088  F0 08       BEQ $4092
408A  EA          NOP
408B  EA          NOP
408C  EA          NOP
408D  EA          NOP
408E  EA          NOP
408F  EA          NOP
4090  EA          NOP
4091  EA          NOP
4092  A9 00       LDA #$00
4094  20 24 41    JSR $4124
4097  20 B5 40    JSR $40B5
409A  20 00 50    JSR $5000
409D  20 E1 40    JSR $40E1
40A0  A9 01       LDA #$01
40A2  20 24 41    JSR $4124
40A5  20 C0 40    JSR $40C0
40A8  A9 02       LDA #$02
40AA  20 24 41    JSR $4124
40AD  A9 0F       LDA #$0F
40AF  8D 18 D4    STA $D418
40B2  4C 20 0F    JMP $0F20
40B5  A2 02       LDX #$02
40B7  B5 00       LDA $00,X
40B9  9D 00 C1    STA $C100,X
40BC  E8          INX
40BD  D0 F8       BNE $40B7
40BF  60          RTS
40C0  78          SEI
40C1  A9 34       LDA #$34
40C3  85 01       STA $01
40C5  A9 00       LDA #$00
40C7  85 FB       STA $FB
40C9  85 14       STA $14
40CB  A9 60       LDA #$60
40CD  85 FC       STA $FC
40CF  A9 C7       LDA #$C7
40D1  85 15       STA $15
40D3  18          CLC
40D4  69 14       ADC #$14
40D6  85 80       STA $80
40D8  20 10 41    JSR $4110
40DB  A9 36       LDA #$36
40DD  85 01       STA $01
40DF  58          CLI
40E0  60          RTS
40E1  78          SEI
40E2  A9 34       LDA #$34
40E4  85 01       STA $01
40E6  A9 00       LDA #$00
40E8  85 FB       STA $FB
40EA  85 14       STA $14
40EC  A9 50       LDA #$50
40EE  85 FC       STA $FC
40F0  A9 DC       LDA #$DC
40F2  85 15       STA $15
40F4  A9 DE       LDA #$DE
40F6  85 80       STA $80
40F8  20 10 41    JSR $4110
40FB  A9 52       LDA #$52
40FD  85 FC       STA $FC
40FF  A9 FD       LDA #$FD
4101  85 15       STA $15
4103  A9 FF       LDA #$FF
4105  85 80       STA $80
4107  20 10 41    JSR $4110
410A  A9 36       LDA #$36
410C  85 01       STA $01
410E  58          CLI
410F  60          RTS
4110  A0 00       LDY #$00
4112  B1 FB       LDA ($FB),Y
4114  91 14       STA ($14),Y
4116  C8          INY
4117  D0 F9       BNE $4112
4119  E6 FC       INC $FC
411B  E6 15       INC $15
411D  A5 15       LDA $15
411F  C5 80       CMP $80
4121  D0 EF       BNE $4112
4123  60          RTS
4124  8D 03 40    STA $4003
4127  78          SEI
4128  A9 36       LDA #$36
412A  85 01       STA $01
412C  20 84 FF    JSR $FF84
412F  20 8A FF    JSR $FF8A
4132  A9 FC       LDA #$FC
4134  8D 18 03    STA $0318
4137  A9 03       LDA #$03
4139  8D 19 03    STA $0319
413C  78          SEI
413D  AE 03 40    LDX $4003
4140  BD 9E 41    LDA $419E,X
4143  85 FB       STA $FB
4145  BD A1 41    LDA $41A1,X
4148  85 FC       STA $FC
414A  A0 00       LDY #$00
414C  B1 FB       LDA ($FB),Y
414E  85 FD       STA $FD
4150  C9 FF       CMP #$FF
4152  F0 49       BEQ $419D
4154  AE 04 40    LDX $4004
4157  BD C5 41    LDA $41C5,X
415A  8D 20 D0    STA $D020
415D  C8          INY
415E  98          TYA
415F  48          PHA
4160  A2 08       LDX #$08
4162  A9 01       LDA #$01
4164  A0 01       LDY #$01
4166  20 BA FF    JSR $FFBA
4169  68          PLA
416A  48          PHA
416B  18          CLC
416C  65 FB       ADC $FB
416E  AA          TAX
416F  A5 FC       LDA $FC
4171  69 00       ADC #$00
4173  A8          TAY
4174  A5 FD       LDA $FD
4176  20 BD FF    JSR $FFBD
4179  AD 03 40    LDA $4003
417C  F0 0A       BEQ $4188
417E  A9 94       LDA #$94
4180  8D 30 03    STA $0330
4183  A9 50       LDA #$50
4185  8D 31 03    STA $0331
4188  A9 00       LDA #$00
418A  20 D5 FF    JSR $FFD5
418D  90 03       BCC $4192
418F  4C E6 41    JMP $41E6
4192  EE 04 40    INC $4004
4195  68          PLA
4196  18          CLC
4197  65 FD       ADC $FD
4199  A8          TAY
419A  4C 4C 41    JMP $414C
419D  60          RTS
419E  A4 A8       LDY $A8
41A0  AF          ??
41A1  41 41       EOR ($41,X)
41A3  41 02       EOR ($02,X)
41A5  51 44       EOR ($44),Y
41A7  FF          ??
41A8  03          ??
41A9  4D 55 53    EOR $5355
41AC  01 58       ORA ($58,X)
41AE  FF          ??
41AF  01 5A       ORA ($5A,X)
41B1  02          ??
41B2  4B          ??
41B3  43          ??
41B4  01 49       ORA ($49,X)
41B6  06 4C       ASL $4C
41B8  4F          ??
41B9  41 44       EOR ($44,X)
41BB  45 52       EOR $52
41BD  03          ??
41BE  4B          ??
41BF  53          ??
41C0  30 02       BMI $41C4
41C2  4A          LSR A
41C3  30 FF       BMI $41C4
41C5  0B          ??
41C6  02          ??
41C7  08          PHP
41C8  07          ??
41C9  05 0E       ORA $0E
41CB  06 04       ASL $04
41CD  00          BRK
41CE  23          ??
41CF  31 42       AND ($42),Y
41D1  2D 52 20    AND $2052
41D4  32          ??
41D5  20 30 20    JSR $2030
41D8  31 37       AND ($37),Y
41DA  20 30 34    JSR $3430
41DD  0D FF 4D    ORA $4DFF
41E0  2D 52 FF    AND $FF52
41E3  01 0D       ORA ($0D,X)
41E5  FE 20 CC    INC $CC20,X
41E8  FF          ??
41E9  20 00 42    JSR $4200
41EC  20 18 42    JSR $4218
41EF  A9 02       LDA #$02
41F1  8D 20 D0    STA $D020
41F4  AD 11 D0    LDA $D011
41F7  29 EF       AND #$EF
41F9  8D 11 D0    STA $D011
41FC  68          PLA
41FD  4C 5F 41    JMP $415F
4200  A9 0E       LDA #$0E
4202  8D 86 02    STA $0286
4205  A0 00       LDY #$00
4207  B9 63 42    LDA $4263,Y
420A  C9 FF       CMP #$FF
420C  F0 07       BEQ $4215
420E  20 D2 FF    JSR $FFD2
4211  C8          INY
4212  4C 07 42    JMP $4207
4215  4C 1F 42    JMP $421F
4218  A5 C5       LDA $C5
421A  C9 01       CMP #$01
421C  D0 FA       BNE $4218
421E  60          RTS
421F  AD 02 DD    LDA $DD02
4222  09 03       ORA #$03
4224  8D 02 DD    STA $DD02
4227  AD 00 DD    LDA $DD00
422A  29 FC       AND #$FC
422C  09 03       ORA #$03
422E  8D 00 DD    STA $DD00
4231  AD 18 D0    LDA $D018
4234  29 0F       AND #$0F
4236  09 10       ORA #$10
4238  8D 18 D0    STA $D018
423B  AD 16 D0    LDA $D016
423E  29 EF       AND #$EF
4240  8D 16 D0    STA $D016
4243  AD 11 D0    LDA $D011
4246  29 DF       AND #$DF
4248  8D 11 D0    STA $D011
424B  AD 18 D0    LDA $D018
424E  29 F1       AND #$F1
4250  09 04       ORA #$04
4252  8D 18 D0    STA $D018
4255  A9 00       LDA #$00
4257  8D 20 D0    STA $D020
425A  AD 11 D0    LDA $D011
425D  09 10       ORA #$10
425F  8D 11 D0    STA $D011
4262  60          RTS
4263  93          ??
4264  0D 0D 0D    ORA $0D0D
4267  0D 0D 0D    ORA $0D0D
426A  0D 20 20    ORA $2020
426D  20 41 20    JSR $2041
4270  44          ??
4271  49 53       EOR #$53
4273  4B          ??
4274  20 45 52    JSR $5245
4277  52          ??
4278  4F          ??
4279  52          ??
427A  20 48 41    JSR $4148
427D  53          ??
427E  20 4F 43    JSR $434F
4281  43          ??
4282  55 52       EOR $52,X
4284  52          ??
4285  45 44       EOR $44
4287  2E 0D 0D    ROL $0D0D
428A  0D 20 20    ORA $2020
428D  20 43 48    JSR $4843
4290  45 43       EOR $43
4292  4B          ??
4293  20 54 48    JSR $4854
4296  45 20       EOR $20
4298  44          ??
4299  49 53       EOR #$53
429B  4B          ??
429C  45 54       EOR $54
429E  54          ??
429F  45 20       EOR $20
42A1  41 4E       EOR ($4E,X)
42A3  44          ??
42A4  20 44 52    JSR $5244
42A7  49 56       EOR #$56
42A9  45 2C       EOR $2C
42AB  0D 20 20    ORA $2020
42AE  20 41 4E    JSR $4E41
42B1  44          ??
42B2  20 50 52    JSR $5250
42B5  45 53       EOR $53
42B7  53          ??
42B8  20 54 48    JSR $4854
42BB  45 20       EOR $20
42BD  3C          ??
42BE  52          ??
42BF  45 54       EOR $54
42C1  55 52       EOR $52,X
42C3  4E 3E 20    LSR $203E
42C6  4B          ??
42C7  45 59       EOR $59
42C9  2E FF 00    ROL $00FF
READY.