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

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

417A  A2 50       LDX #$50
417C  A0 43       LDY #$43
417E  20 31 15    JSR $1531
4181  20 4C 15    JSR $154C
4184  A9 38       LDA #$38
4186  8D 77 03    STA $0377
4189  20 C1 42    JSR $42C1
418C  C9 01       CMP #$01
418E  D0 02       BNE $4192
4190  38          SEC
4191  60          RTS
4192  38          SEC
4193  E9 02       SBC #$02
4195  8D FD 3B    STA $3BFD
4198  A0 00       LDY #$00
419A  B1 4E       LDA ($4E),Y
419C  99 00 3C    STA $3C00,Y
419F  F0 03       BEQ $41A4
41A1  C8          INY
41A2  D0 F6       BNE $419A
41A4  A2 5C       LDX #$5C
41A6  A0 43       LDY #$43
41A8  20 31 15    JSR $1531
41AB  20 4C 15    JSR $154C
41AE  AE FD 3B    LDX $3BFD
41B1  BD 00 A0    LDA $A000,X
41B4  8D FD 3B    STA $3BFD
41B7  A2 76       LDX #$76
41B9  A0 3F       LDY #$3F
41BB  20 31 15    JSR $1531
41BE  20 4C 15    JSR $154C
41C1  A9 00       LDA #$00
41C3  85 4E       STA $4E
41C5  A9 A0       LDA #$A0
41C7  85 4F       STA $4F
41C9  A0 00       LDY #$00
41CB  AD FD 3B    LDA $3BFD
41CE  F0 12       BEQ $41E2
41D0  0A          ASL A
41D1  0A          ASL A
41D2  AA          TAX
41D3  B1 4E       LDA ($4E),Y
41D5  E6 4E       INC $4E
41D7  D0 02       BNE $41DB
41D9  E6 4F       INC $4F
41DB  C9 FF       CMP #$FF
41DD  D0 F4       BNE $41D3
41DF  CA          DEX
41E0  D0 F1       BNE $41D3
41E2  B1 4E       LDA ($4E),Y
41E4  99 47 3C    STA $3C47,Y
41E7  C8          INY
41E8  C0 20       CPY #$20
41EA  90 F6       BCC $41E2
41EC  AD 47 3C    LDA $3C47
41EF  8D 3F 42    STA $423F
41F2  A2 FF       LDX #$FF
41F4  8E FE 3B    STX $3BFE
41F7  E8          INX
41F8  8E 28 3C    STX $3C28
41FB  8E 46 3C    STX $3C46
41FE  AA          TAX
41FF  30 3D       BMI $423E
4201  A2 56       LDX #$56
4203  A0 43       LDY #$43
4205  20 31 15    JSR $1531
4208  20 4C 15    JSR $154C
420B  A9 37       LDA #$37
420D  8D 77 03    STA $0377
4210  20 C1 42    JSR $42C1
4213  C9 01       CMP #$01
4215  D0 02       BNE $4219
4217  38          SEC
4218  60          RTS
4219  38          SEC
421A  E9 02       SBC #$02
421C  8D FE 3B    STA $3BFE
421F  A0 00       LDY #$00
4221  B1 4E       LDA ($4E),Y
4223  99 28 3C    STA $3C28,Y
4226  F0 03       BEQ $422B
4228  C8          INY
4229  D0 F6       BNE $4221
422B  A2 7F       LDX #$7F
422D  A0 3F       LDY #$3F
422F  20 31 15    JSR $1531
4232  20 4C 15    JSR $154C
4235  AE FE 3B    LDX $3BFE
4238  BD 00 A0    LDA $A000,X
423B  8D 46 3C    STA $3C46
423E  A9 FF       LDA #$FF
4240  48          PHA
4241  29 0F       AND #$0F
4243  8D FF 3B    STA $3BFF
4246  68          PLA
4247  29 10       AND #$10
4249  D0 0D       BNE $4258
424B  AD 3F 42    LDA $423F
424E  29 0F       AND #$0F
4250  20 A3 42    JSR $42A3
4253  B0 C2       BCS $4217
4255  8D FF 3B    STA $3BFF
4258  A2 88       LDX #$88
425A  A0 3F       LDY #$3F
425C  20 31 15    JSR $1531
425F  A9 03       LDA #$03
4261  20 62 15    JSR $1562
4264  A9 FD       LDA #$FD
4266  8D D4 03    STA $03D4
4269  A9 3B       LDA #$3B
426B  8D D5 03    STA $03D5
426E  A9 6A       LDA #$6A
4270  8D D6 03    STA $03D6
4273  A9 00       LDA #$00
4275  8D D7 03    STA $03D7
4278  A2 88       LDX #$88
427A  A0 3F       LDY #$3F
427C  20 31 15    JSR $1531
427F  A9 03       LDA #$03
4281  8D 85 42    STA $4285
4284  A9 FF       LDA #$FF
4286  F0 15       BEQ $429D
4288  CE 85 42    DEC $4285
428B  A9 01       LDA #$01
428D  20 62 15    JSR $1562
4290  AD D3 03    LDA $03D3
4293  F0 06       BEQ $429B
4295  20 A8 17    JSR $17A8
4298  4C 84 42    JMP $4284
429B  18          CLC
429C  60          RTS
429D  20 FD 42    JSR $42FD
42A0  4C 49 33    JMP $3349
42A3  48          PHA
42A4  20 0D 0F    JSR $0F0D
42A7  20 64 43    JSR $4364
42AA  20 49 33    JSR $3349
42AD  AA          TAX
42AE  68          PLA
42AF  E0 00       CPX #$00
42B1  F0 0C       BEQ $42BF
42B3  E0 03       CPX #$03
42B5  F0 09       BEQ $42C0
42B7  A9 00       LDA #$00
42B9  E0 02       CPX #$02
42BB  F0 02       BEQ $42BF
42BD  A9 0A       LDA #$0A
42BF  18          CLC
42C0  60          RTS
42C1  A9 A0       LDA #$A0
42C3  8D 7E 03    STA $037E
42C6  A9 00       LDA #$00
42C8  8D 7D 03    STA $037D
42CB  8D 78 03    STA $0378
42CE  20 95 1C    JSR $1C95
42D1  A9 FF       LDA #$FF
42D3  8D 56 03    STA $0356
42D6  20 0D 0F    JSR $0F0D
42D9  20 D0 2F    JSR $2FD0
42DC  A9 01       LDA #$01
42DE  85 54       STA $54
42E0  A2 09       LDX #$09
42E2  86 56       STX $56
42E4  CA          DEX
42E5  8E D1 03    STX $03D1
42E8  A9 18       LDA #$18
42EA  85 55       STA $55
42EC  A2 1D       LDX #$1D
42EE  86 57       STX $57
42F0  E8          INX
42F1  8E D2 03    STX $03D2
42F4  A9 00       LDA #$00
42F6  18          CLC
42F7  20 52 30    JSR $3052
42FA  4C 95 30    JMP $3095
42FD  A2 C2       LDX #$C2
42FF  A0 25       LDY #$25
4301  20 39 35    JSR $3539
4304  20 C3 34    JSR $34C3
4307  10 28       BPL $4331
4309  55 6E       EOR $6E,X
430B  61 62       ADC ($62,X)
430D  6C 65 20    JMP ($2065)
4310  74          ??
4311  6F          ??
4312  20 73 61    JSR $6173
4315  76 65       ROR $65,X
4317  00          BRK
4318  20 C3 34    JSR $34C3
431B  0E 34 70    ASL $7034
431E  72          ??
431F  69 6E       ADC #$6E
4321  74          ??
4322  65 72       ADC $72
4324  20 63 6F    JSR $6F63
4327  6E 66 69    ROR $6966,X
432A  67          ??
432B  75 72       ADC $72,X
432D  61 74       ADC ($74,X)
432F  69 6F       ADC #$6F
4331  6E 00 20    ROR $2000,X
4334  C3          ??
4335  34          ??
4336  0E 40 74    ASL $7440
4339  6F          ??
433A  20 74 68    JSR $6874
433D  65 20       ADC $20
433F  70 72       BVS $43B3
4341  6F          ??
4342  67          ??
4343  72          ??
4344  61 6D       ADC ($6D,X)
4346  20 64 69    JSR $6964
4349  73          ??
434A  6B          ??
434B  2E 00 4C    ROL $4C00
434E  FF          ??
434F  24 50       BIT $50
4351  52          ??
4352  53          ??
4353  2E 4F 00    ROL $004F
4356  44          ??
4357  52          ??
4358  53          ??
4359  2E 4F 00    ROL $004F
435C  50 52       BVC $43B0
435E  49 44       EOR #$44
4360  58          CLI
4361  2E 4F 00    ROL $004F
4364  A2 68       LDX #$68
4366  A0 3F       LDY #$3F
4368  20 39 35    JSR $3539
436B  20 D0 25    JSR $25D0
436E  20 DA 25    JSR $25DA
4371  20 E4 25    JSR $25E4
4374  20 EE 25    JSR $25EE
4377  20 C3 34    JSR $34C3
437A  05 14       ORA $14
437C  4C 69 6E    JMP $6E69
437F  65 20       ADC $20
4381  66 65       ROR $65
4383  65 64       ADC $64
4385  3F          ??
4386  20 20 49    JSR $4920
4389  66 20       ROR $20
438B  69 6E       ADC #$6E
438D  20 64 6F    JSR $6F64
4390  75 62       ADC $62,X
4392  74          ??
4393  2C 20 73    BIT $7320
4396  65 6C       ADC $6C
4398  65 63       ADC $63
439A  74          ??
439B  20 64 65    JSR $6564
439E  66 61       ROR $61
43A0  75 6C       ADC $6C,X
43A2  74          ??
43A3  2E 00 20    ROL $2000
43A6  C3          ??
43A7  34          ??
43A8  12          ??
43A9  4F          ??
43AA  44          ??
43AB  65 66       ADC $66
43AD  61 75       ADC ($75,X)
43AF  6C 74 00    JMP ($0074)
43B2  20 C3 34    JSR $34C3
43B5  12          ??
43B6  67          ??
43B7  59 65 73    EOR $7365,Y
43BA  00          BRK
43BB  20 C3 34    JSR $34C3
43BE  12          ??
43BF  7F          ??
43C0  4E 6F 00    LSR $006F
43C3  20 C3 34    JSR $34C3
43C6  12          ??
43C7  97          ??
43C8  43          ??
43C9  61 6E       ADC ($6E,X)
43CB  63          ??
43CC  65 6C       ADC $6C
43CE  00          BRK
43CF  A2 01       LDX #$01
43D1  A0 04       LDY #$04
43D3  20 DE 33    JSR $33DE
43D6  60          RTS
READY.