C64 Software  <  SCA: The C64 Software Collection / NP.O

  Run
; Load: 16762 ($417A), len: 1178 bytes

417A  A9 FF       LDA #$FF
417C  8D C0 03    STA $03C0
417F  A9 6B       LDA #$6B
4181  8D C3 03    STA $03C3
4184  A9 66       LDA #$66
4186  8D C4 03    STA $03C4
4189  A9 00       LDA #$00
418B  8D C5 03    STA $03C5
418E  F0 59       BEQ $41E9
4190  A9 00       LDA #$00
4192  8D C0 03    STA $03C0
4195  8D C5 03    STA $03C5
4198  8D C8 03    STA $03C8
419B  A9 60       LDA #$60
419D  8D C4 03    STA $03C4
41A0  A9 A0       LDA #$A0
41A2  8D C7 03    STA $03C7
41A5  A9 28       LDA #$28
41A7  8D C3 03    STA $03C3
41AA  8D C6 03    STA $03C6
41AD  D0 3A       BNE $41E9
41AF  A9 80       LDA #$80
41B1  8D C0 03    STA $03C0
41B4  38          SEC
41B5  AD 73 03    LDA $0373
41B8  ED 72 03    SBC $0372
41BB  69 00       ADC #$00
41BD  8D C2 03    STA $03C2
41C0  38          SEC
41C1  AD 75 03    LDA $0375
41C4  ED 74 03    SBC $0374
41C7  69 00       ADC #$00
41C9  8D C1 03    STA $03C1
41CC  AD 74 03    LDA $0374
41CF  20 8E 0D    JSR $0D8E
41D2  8D C5 03    STA $03C5
41D5  A9 60       LDA #$60
41D7  85 5B       STA $5B
41D9  AC 72 03    LDY $0372
41DC  20 96 0D    JSR $0D96
41DF  A5 47       LDA $47
41E1  8D C3 03    STA $03C3
41E4  A5 48       LDA $48
41E6  8D C4 03    STA $03C4
41E9  20 C1 1A    JSR $1AC1
41EC  A9 00       LDA #$00
41EE  20 BD FF    JSR $FFBD
41F1  A9 01       LDA #$01
41F3  A2 04       LDX #$04
41F5  AC 46 3C    LDY $3C46
41F8  20 BA FF    JSR $FFBA
41FB  20 C0 FF    JSR $FFC0
41FE  20 B7 FF    JSR $FFB7
4201  AA          TAX
4202  D0 07       BNE $420B
4204  A2 01       LDX #$01
4206  20 C9 FF    JSR $FFC9
4209  90 05       BCC $4210
420B  38          SEC
420C  08          PHP
420D  4C 40 43    JMP $4340
4210  BA          TSX
4211  8E CA 45    STX $45CA
4214  A9 47       LDA #$47
4216  85 A6       STA $A6
4218  A9 3C       LDA #$3C
421A  85 A7       STA $A7
421C  A0 01       LDY #$01
421E  B1 A6       LDA ($A6),Y
4220  8D 09 46    STA $4609
4223  29 0F       AND #$0F
4225  8D 0A 46    STA $460A
4228  C8          INY
4229  B1 A6       LDA ($A6),Y
422B  8D 0B 46    STA $460B
422E  C8          INY
422F  B1 A6       LDA ($A6),Y
4231  8D 0C 46    STA $460C
4234  C8          INY
4235  B1 A6       LDA ($A6),Y
4237  48          PHA
4238  29 F0       AND #$F0
423A  8D 0D 46    STA $460D
423D  68          PLA
423E  29 0F       AND #$0F
4240  8D 0E 46    STA $460E
4243  C8          INY
4244  B1 A6       LDA ($A6),Y
4246  8D 0F 46    STA $460F
4249  C8          INY
424A  20 A4 45    JSR $45A4
424D  8C 10 46    STY $4610
4250  A9 00       LDA #$00
4252  85 AF       STA $AF
4254  2C C0 03    BIT $03C0
4257  30 0A       BMI $4263
4259  A9 E7       LDA #$E7
425B  8D C1 03    STA $03C1
425E  A9 A8       LDA #$A8
4260  8D C2 03    STA $03C2
4263  50 0A       BVC $426F
4265  A9 F0       LDA #$F0
4267  8D C1 03    STA $03C1
426A  A9 50       LDA #$50
426C  8D C2 03    STA $03C2
426F  A9 01       LDA #$01
4271  8D 13 46    STA $4613
4274  A9 E0       LDA #$E0
4276  2C C0 03    BIT $03C0
4279  10 0E       BPL $4289
427B  A9 00       LDA #$00
427D  8D 13 46    STA $4613
4280  AD C1 03    LDA $03C1
4283  50 04       BVC $4289
4285  0A          ASL A
4286  2E 13 46    ROL $4613
4289  48          PHA
428A  85 FB       STA $FB
428C  AD 13 46    LDA $4613
428F  4A          LSR A
4290  66 FB       ROR $FB
4292  46 FB       LSR $FB
4294  AD 0C 46    LDA $460C
4297  38          SEC
4298  E5 FB       SBC $FB
429A  8D 11 46    STA $4611
429D  68          PLA
429E  8D 12 46    STA $4612
42A1  AD 11 46    LDA $4611
42A4  0A          ASL A
42A5  90 04       BCC $42AB
42A7  EE 13 46    INC $4613
42AA  18          CLC
42AB  6D 12 46    ADC $4612
42AE  90 03       BCC $42B3
42B0  EE 13 46    INC $4613
42B3  AE 0F 46    LDX $460F
42B6  CA          DEX
42B7  F0 04       BEQ $42BD
42B9  0A          ASL A
42BA  2E 13 46    ROL $4613
42BD  8D 12 46    STA $4612
42C0  A9 00       LDA #$00
42C2  85 A8       STA $A8
42C4  A9 E0       LDA #$E0
42C6  85 A9       STA $A9
42C8  A5 AF       LDA $AF
42CA  85 AE       STA $AE
42CC  AD C5 03    LDA $03C5
42CF  85 B0       STA $B0
42D1  AD C3 03    LDA $03C3
42D4  85 AC       STA $AC
42D6  AD C4 03    LDA $03C4
42D9  85 AD       STA $AD
42DB  20 4A 43    JSR $434A
42DE  A5 AC       LDA $AC
42E0  8D C3 03    STA $03C3
42E3  A5 AD       LDA $AD
42E5  8D C4 03    STA $03C4
42E8  2C C0 03    BIT $03C0
42EB  30 30       BMI $431D
42ED  A9 00       LDA #$00
42EF  A0 11       LDY #$11
42F1  91 A8       STA ($A8),Y
42F3  88          DEY
42F4  10 FB       BPL $42F1
42F6  A5 A8       LDA $A8
42F8  18          CLC
42F9  69 12       ADC #$12
42FB  85 A8       STA $A8
42FD  90 02       BCC $4301
42FF  E6 A9       INC $A9
4301  AD C8 03    LDA $03C8
4304  85 B0       STA $B0
4306  AD C6 03    LDA $03C6
4309  85 AC       STA $AC
430B  AD C7 03    LDA $03C7
430E  85 AD       STA $AD
4310  20 5F 43    JSR $435F
4313  A5 AC       LDA $AC
4315  8D C6 03    STA $03C6
4318  A5 AD       LDA $AD
431A  8D C7 03    STA $03C7
431D  20 19 44    JSR $4419
4320  20 7B 0A    JSR $0A7B
4323  C9 1B       CMP #$1B
4325  F0 08       BEQ $432F
4327  A5 AF       LDA $AF
4329  CD C2 03    CMP $03C2
432C  D0 92       BNE $42C0
432E  18          CLC
432F  08          PHP
4330  2C C0 03    BIT $03C0
4333  50 05       BVC $433A
4335  A9 0A       LDA #$0A
4337  20 B5 45    JSR $45B5
433A  AC 08 46    LDY $4608
433D  20 A4 45    JSR $45A4
4340  A9 01       LDA #$01
4342  20 C3 FF    JSR $FFC3
4345  20 E7 FF    JSR $FFE7
4348  28          PLP
4349  60          RTS
434A  A9 00       LDA #$00
434C  AE 11 46    LDX $4611
434F  F0 0E       BEQ $435F
4351  20 06 44    JSR $4406
4354  2C C0 03    BIT $03C0
4357  70 03       BVS $435C
4359  20 06 44    JSR $4406
435C  CA          DEX
435D  D0 F2       BNE $4351
435F  A9 00       LDA #$00
4361  85 B3       STA $B3
4363  A5 B0       LDA $B0
4365  85 B2       STA $B2
4367  A5 AC       LDA $AC
4369  8D C9 03    STA $03C9
436C  A5 AD       LDA $AD
436E  8D CA 03    STA $03CA
4371  AD C9 03    LDA $03C9
4374  85 AA       STA $AA
4376  AD CA 03    LDA $03CA
4379  85 AB       STA $AB
437B  A5 AE       LDA $AE
437D  85 AF       STA $AF
437F  A9 00       LDA #$00
4381  A0 07       LDY #$07
4383  99 11 44    STA $4411,Y
4386  88          DEY
4387  10 FA       BPL $4383
4389  A8          TAY
438A  AA          TAX
438B  B1 AA       LDA ($AA),Y
438D  49 FF       EOR #$FF
438F  9D 11 44    STA $4411,X
4392  E6 AA       INC $AA
4394  A5 AA       LDA $AA
4396  29 07       AND #$07
4398  D0 11       BNE $43AB
439A  A5 AA       LDA $AA
439C  D0 02       BNE $43A0
439E  E6 AB       INC $AB
43A0  18          CLC
43A1  69 38       ADC #$38
43A3  85 AA       STA $AA
43A5  A5 AB       LDA $AB
43A7  69 01       ADC #$01
43A9  85 AB       STA $AB
43AB  E6 AF       INC $AF
43AD  A5 AF       LDA $AF
43AF  CD C2 03    CMP $03C2
43B2  F0 12       BEQ $43C6
43B4  E8          INX
43B5  EC 0A 46    CPX $460A
43B8  D0 D1       BNE $438B
43BA  A5 B3       LDA $B3
43BC  D0 08       BNE $43C6
43BE  A5 AA       LDA $AA
43C0  85 AC       STA $AC
43C2  A5 AB       LDA $AB
43C4  85 AD       STA $AD
43C6  A9 08       LDA #$08
43C8  85 B4       STA $B4
43CA  A5 B2       LDA $B2
43CC  29 07       AND #$07
43CE  AA          TAX
43CF  A0 07       LDY #$07
43D1  B9 11 44    LDA $4411,Y
43D4  0A          ASL A
43D5  99 11 44    STA $4411,Y
43D8  26 B5       ROL $B5
43DA  88          DEY
43DB  10 F4       BPL $43D1
43DD  CA          DEX
43DE  10 11       BPL $43F1
43E0  C8          INY
43E1  A5 B5       LDA $B5
43E3  20 06 44    JSR $4406
43E6  E6 B2       INC $B2
43E8  E6 B3       INC $B3
43EA  A5 B3       LDA $B3
43EC  CD C1 03    CMP $03C1
43EF  F0 1F       BEQ $4410
43F1  C6 B4       DEC $B4
43F3  D0 DA       BNE $43CF
43F5  AD C9 03    LDA $03C9
43F8  18          CLC
43F9  69 08       ADC #$08
43FB  8D C9 03    STA $03C9
43FE  90 03       BCC $4403
4400  EE CA 03    INC $03CA
4403  4C 71 43    JMP $4371
4406  A0 00       LDY #$00
4408  91 A8       STA ($A8),Y
440A  E6 A8       INC $A8
440C  D0 02       BNE $4410
440E  E6 A9       INC $A9
4410  60          RTS
4411  00          BRK
4412  00          BRK
4413  00          BRK
4414  00          BRK
4415  00          BRK
4416  00          BRK
4417  00          BRK
4418  00          BRK
4419  2C C0 03    BIT $03C0
441C  50 6B       BVC $4489
441E  A9 00       LDA #$00
4420  85 AC       STA $AC
4422  A9 E0       LDA #$E0
4424  85 AD       STA $AD
4426  20 0C 45    JSR $450C
4429  A0 00       LDY #$00
442B  20 B5 1A    JSR $1AB5
442E  B1 AC       LDA ($AC),Y
4430  20 C1 1A    JSR $1AC1
4433  85 FB       STA $FB
4435  98          TYA
4436  AE 0A 46    LDX $460A
4439  46 FB       LSR $FB
443B  08          PHP
443C  6A          ROR A
443D  CA          DEX
443E  D0 06       BNE $4446
4440  20 6B 44    JSR $446B
4443  4C 53 44    JMP $4453
4446  28          PLP
4447  6A          ROR A
4448  CA          DEX
4449  D0 EE       BNE $4439
444B  20 6B 44    JSR $446B
444E  46 FB       LSR $FB
4450  08          PHP
4451  6A          ROR A
4452  CA          DEX
4453  28          PLP
4454  6A          ROR A
4455  CA          DEX
4456  D0 F6       BNE $444E
4458  20 7D 44    JSR $447D
445B  91 AC       STA ($AC),Y
445D  20 D0 45    JSR $45D0
4460  20 D7 45    JSR $45D7
4463  D0 C4       BNE $4429
4465  20 95 45    JSR $4595
4468  4C 89 44    JMP $4489
446B  20 7D 44    JSR $447D
446E  20 D4 44    JSR $44D4
4471  20 F0 44    JSR $44F0
4474  20 F0 44    JSR $44F0
4477  AE 0A 46    LDX $460A
447A  A9 00       LDA #$00
447C  60          RTS
447D  AE 0A 46    LDX $460A
4480  E0 08       CPX #$08
4482  F0 04       BEQ $4488
4484  4A          LSR A
4485  E8          INX
4486  D0 F8       BNE $4480
4488  60          RTS
4489  A9 00       LDA #$00
448B  85 AC       STA $AC
448D  A9 E0       LDA #$E0
448F  85 AD       STA $AD
4491  AD FD 3B    LDA $3BFD
4494  C9 0A       CMP #$0A
4496  D0 16       BNE $44AE
4498  A0 00       LDY #$00
449A  20 E2 45    JSR $45E2
449D  D0 0F       BNE $44AE
449F  8C 13 46    STY $4613
44A2  C8          INY
44A3  8C 12 46    STY $4612
44A6  A9 01       LDA #$01
44A8  85 A8       STA $A8
44AA  A9 E0       LDA #$E0
44AC  85 A9       STA $A9
44AE  20 0C 45    JSR $450C
44B1  A0 00       LDY #$00
44B3  20 B5 1A    JSR $1AB5
44B6  B1 AC       LDA ($AC),Y
44B8  20 C1 1A    JSR $1AC1
44BB  20 D4 44    JSR $44D4
44BE  20 F0 44    JSR $44F0
44C1  2C C0 03    BIT $03C0
44C4  50 03       BVC $44C9
44C6  20 F0 44    JSR $44F0
44C9  20 D0 45    JSR $45D0
44CC  20 D7 45    JSR $45D7
44CF  D0 E2       BNE $44B3
44D1  4C 95 45    JMP $4595
44D4  85 B6       STA $B6
44D6  AD 09 46    LDA $4609
44D9  10 0D       BPL $44E8
44DB  A9 00       LDA #$00
44DD  AE 0A 46    LDX $460A
44E0  46 B6       LSR $B6
44E2  2A          ROL A
44E3  CA          DEX
44E4  D0 FA       BNE $44E0
44E6  85 B6       STA $B6
44E8  AD 0D 46    LDA $460D
44EB  05 B6       ORA $B6
44ED  85 B6       STA $B6
44EF  60          RTS
44F0  20 00 45    JSR $4500
44F3  AD 0B 46    LDA $460B
44F6  F0 07       BEQ $44FF
44F8  C5 B6       CMP $B6
44FA  D0 03       BNE $44FF
44FC  20 00 45    JSR $4500
44FF  60          RTS
4500  AE 0F 46    LDX $460F
4503  A5 B6       LDA $B6
4505  20 B5 45    JSR $45B5
4508  CA          DEX
4509  D0 FA       BNE $4505
450B  60          RTS
450C  AC 10 46    LDY $4610
450F  20 A4 45    JSR $45A4
4512  AE 0E 46    LDX $460E
4515  F0 0A       BEQ $4521
4517  CA          DEX
4518  F0 1F       BEQ $4539
451A  CA          DEX
451B  F0 30       BEQ $454D
451D  CA          DEX
451E  F0 39       BEQ $4559
4520  60          RTS
4521  A2 04       LDX #$04
4523  20 65 45    JSR $4565
4526  A9 03       LDA #$03
4528  A0 04       LDY #$04
452A  26 B0       ROL $B0
452C  26 B1       ROL $B1
452E  2A          ROL A
452F  88          DEY
4530  D0 F8       BNE $452A
4532  20 B5 45    JSR $45B5
4535  CA          DEX
4536  D0 EE       BNE $4526
4538  60          RTS
4539  20 65 45    JSR $4565
453C  A5 B1       LDA $B1
453E  29 0F       AND #$0F
4540  09 30       ORA #$30
4542  20 B5 45    JSR $45B5
4545  A5 B0       LDA $B0
4547  85 B1       STA $B1
4549  A2 02       LDX #$02
454B  D0 D9       BNE $4526
454D  AD 12 46    LDA $4612
4550  20 B5 45    JSR $45B5
4553  AD 13 46    LDA $4613
4556  4C B5 45    JMP $45B5
4559  AD 13 46    LDA $4613
455C  20 B5 45    JSR $45B5
455F  AD 12 46    LDA $4612
4562  4C B5 45    JMP $45B5
4565  AD 13 46    LDA $4613
4568  48          PHA
4569  AD 12 46    LDA $4612
456C  48          PHA
456D  A0 10       LDY #$10
456F  A9 00       LDA #$00
4571  85 B0       STA $B0
4573  85 B1       STA $B1
4575  F8          SED
4576  2E 12 46    ROL $4612
4579  2E 13 46    ROL $4613
457C  A5 B0       LDA $B0
457E  65 B0       ADC $B0
4580  85 B0       STA $B0
4582  A5 B1       LDA $B1
4584  65 B1       ADC $B1
4586  85 B1       STA $B1
4588  88          DEY
4589  D0 EB       BNE $4576
458B  D8          CLD
458C  68          PLA
458D  8D 12 46    STA $4612
4590  68          PLA
4591  8D 13 46    STA $4613
4594  60          RTS
4595  AC 08 46    LDY $4608
4598  20 A4 45    JSR $45A4
459B  AD FF 3B    LDA $3BFF
459E  F0 03       BEQ $45A3
45A0  20 B5 45    JSR $45B5
45A3  60          RTS
45A4  B1 A6       LDA ($A6),Y
45A6  C8          INY
45A7  C9 FF       CMP #$FF
45A9  F0 06       BEQ $45B1
45AB  20 B5 45    JSR $45B5
45AE  4C A4 45    JMP $45A4
45B1  8C 08 46    STY $4608
45B4  60          RTS
45B5  8E CE 45    STX $45CE
45B8  20 D2 FF    JSR $FFD2
45BB  20 B7 FF    JSR $FFB7
45BE  AA          TAX
45BF  F0 0C       BEQ $45CD
45C1  A9 01       LDA #$01
45C3  20 C3 FF    JSR $FFC3
45C6  20 E7 FF    JSR $FFE7
45C9  A2 FF       LDX #$FF
45CB  9A          TXS
45CC  38          SEC
45CD  A2 FF       LDX #$FF
45CF  60          RTS
45D0  E6 AC       INC $AC
45D2  D0 02       BNE $45D6
45D4  E6 AD       INC $AD
45D6  60          RTS
45D7  A5 AC       LDA $AC
45D9  C5 A8       CMP $A8
45DB  D0 04       BNE $45E1
45DD  A5 AD       LDA $AD
45DF  C5 A9       CMP $A9
45E1  60          RTS
45E2  A5 AC       LDA $AC
45E4  48          PHA
45E5  A5 AD       LDA $AD
45E7  48          PHA
45E8  20 B5 1A    JSR $1AB5
45EB  B1 AC       LDA ($AC),Y
45ED  D0 0A       BNE $45F9
45EF  20 D0 45    JSR $45D0
45F2  20 D7 45    JSR $45D7
45F5  D0 F4       BNE $45EB
45F7  A9 00       LDA #$00
45F9  8D 06 46    STA $4606
45FC  68          PLA
45FD  85 AD       STA $AD
45FF  68          PLA
4600  85 AC       STA $AC
4602  20 C1 1A    JSR $1AC1
4605  A9 FF       LDA #$FF
4607  60          RTS
4608  00          BRK
4609  00          BRK
460A  00          BRK
460B  00          BRK
460C  00          BRK
460D  00          BRK
460E  00          BRK
460F  00          BRK
4610  00          BRK
4611  00          BRK
4612  00          BRK
4613  00          BRK
READY.