C64 Software  <  SCA: The C64 Software Collection / ISEMONANLEITUNG

  Run
; Load: 258 ($0102), len: 760 ($02f8) bytes

0102  20 84 FF    JSR $FF84
0105  A9 7F       LDA #$7F
0107  8D 0D DC    STA $DC0D
010A  20 8A FF    JSR $FF8A
010D  A9 40       LDA #$40
010F  8D 34 03    STA $0334
0112  A9 34       LDA #$34
0114  8D 18 03    STA $0318
0117  8D FA FF    STA $FFFA
011A  A9 03       LDA #$03
011C  8D 19 03    STA $0319
011F  8D FB FF    STA $FFFB
0122  A2 00       LDX #$00
0124  A9 00       LDA #$00
0126  9D 00 D0    STA $D000,X
0129  9D 00 D4    STA $D400,X
012C  A9 0E       LDA #$0E
012E  9D 00 D8    STA $D800,X
0131  9D 00 D9    STA $D900,X
0134  9D 00 DA    STA $DA00,X
0137  9D 00 DB    STA $DB00,X
013A  E8          INX
013B  D0 E7       BNE $0124
013D  8D 20 D0    STA $D020
0140  8D 21 D0    STA $D021
0143  A9 06       LDA #$06
0145  8D 18 D0    STA $D018
0148  A4 B7       LDY $B7
014A  88          DEY
014B  30 06       BMI $0153
014D  B1 BB       LDA ($BB),Y
014F  C9 3A       CMP #$3A
0151  D0 F7       BNE $014A
0153  98          TYA
0154  49 FF       EOR #$FF
0156  38          SEC
0157  65 B7       ADC $B7
0159  48          PHA
015A  98          TYA
015B  10 03       BPL $0160
015D  CE 65 01    DEC $0165
0160  18          CLC
0161  65 BB       ADC $BB
0163  48          PHA
0164  A9 00       LDA #$00
0166  65 BC       ADC $BC
0168  48          PHA
0169  A9 06       LDA #$06
016B  A2 D9       LDX #$D9
016D  A0 01       LDY #$01
016F  20 BD FF    JSR $FFBD
0172  A9 01       LDA #$01
0174  A6 BA       LDX $BA
0176  A0 0F       LDY #$0F
0178  20 BA FF    JSR $FFBA
017B  20 C0 FF    JSR $FFC0
017E  A2 01       LDX #$01
0180  20 C6 FF    JSR $FFC6
0183  A2 00       LDX #$00
0185  86 FF       STX $FF
0187  20 CF FF    JSR $FFCF
018A  DD DF 01    CMP $01DF,X
018D  F0 02       BEQ $0191
018F  E6 FF       INC $FF
0191  E8          INX
0192  E0 04       CPX #$04
0194  D0 F1       BNE $0187
0196  20 CC FF    JSR $FFCC
0199  A9 01       LDA #$01
019B  20 C3 FF    JSR $FFC3
019E  68          PLA
019F  A8          TAY
01A0  68          PLA
01A1  AA          TAX
01A2  68          PLA
01A3  20 BD FF    JSR $FFBD
01A6  A0 00       LDY #$00
01A8  A9 2D       LDA #$2D
01AA  91 BB       STA ($BB),Y
01AC  A9 01       LDA #$01
01AE  A6 BA       LDX $BA
01B0  20 BA FF    JSR $FFBA
01B3  20 C0 FF    JSR $FFC0
01B6  A2 01       LDX #$01
01B8  20 C6 FF    JSR $FFC6
01BB  A9 9C       LDA #$9C
01BD  85 AE       STA $AE
01BF  A9 03       LDA #$03
01C1  85 AF       STA $AF
01C3  20 CF FF    JSR $FFCF
01C6  A0 00       LDY #$00
01C8  91 AE       STA ($AE),Y
01CA  E6 AE       INC $AE
01CC  D0 F5       BNE $01C3
01CE  E6 AF       INC $AF
01D0  A5 AF       LDA $AF
01D2  C9 07       CMP #$07
01D4  D0 ED       BNE $01C3
01D6  4C 9C 03    JMP $039C
01D9  4D 2D 52    EOR $522D
01DC  CA          DEX
01DD  E5 04       SBC $04
01DF  52          ??
01E0  49 56       EOR #$56
01E2  45 01       EOR $01
01E4  01 01       ORA ($01,X)
01E6  01 01       ORA ($01,X)
01E8  01 01       ORA ($01,X)
01EA  01 01       ORA ($01,X)
01EC  01 01       ORA ($01,X)
01EE  01 01       ORA ($01,X)
01F0  01 01       ORA ($01,X)
01F2  01 01       ORA ($01,X)
01F4  01 01       ORA ($01,X)
01F6  01 01       ORA ($01,X)
01F8  01 01       ORA ($01,X)
01FA  01 01       ORA ($01,X)
01FC  01 01       ORA ($01,X)
01FE  A2 FF       LDX #$FF
0200  9A          TXS
0201  A0 13       LDY #$13
0203  B9 80 06    LDA $0680,Y
0206  99 19 01    STA $0119,Y
0209  B9 94 06    LDA $0694,Y
020C  99 41 01    STA $0141,Y
020F  B9 A8 06    LDA $06A8,Y
0212  99 69 01    STA $0169,Y
0215  B9 BC 06    LDA $06BC,Y
0218  99 91 01    STA $0191,Y
021B  A9 20       LDA #$20
021D  C0 10       CPY #$10
021F  B0 06       BCS $0227
0221  C4 B7       CPY $B7
0223  B0 02       BCS $0227
0225  B1 BB       LDA ($BB),Y
0227  99 56 01    STA $0156,Y
022A  98          TYA
022B  4A          LSR A
022C  AA          TAX
022D  A9 03       LDA #$03
022F  99 19 D9    STA $D919,Y
0232  BD D0 06    LDA $06D0,X
0235  B0 04       BCS $023B
0237  4A          LSR A
0238  4A          LSR A
0239  4A          LSR A
023A  4A          LSR A
023B  99 41 D9    STA $D941,Y
023E  BD DA 06    LDA $06DA,X
0241  B0 04       BCS $0247
0243  4A          LSR A
0244  4A          LSR A
0245  4A          LSR A
0246  4A          LSR A
0247  99 69 D9    STA $D969,Y
024A  A9 01       LDA #$01
024C  99 57 D9    STA $D957,Y
024F  A9 06       LDA #$06
0251  99 91 D9    STA $D991,Y
0254  88          DEY
0255  10 AC       BPL $0203
0257  A5 FF       LDA $FF
0259  F0 29       BEQ $0284
025B  A9 1B       LDA #$1B
025D  8D 11 D0    STA $D011
0260  20 CF FF    JSR $FFCF
0263  A0 34       LDY #$34
0265  84 01       STY $01
0267  A0 00       LDY #$00
0269  91 AE       STA ($AE),Y
026B  A0 36       LDY #$36
026D  84 01       STY $01
026F  E6 AE       INC $AE
0271  D0 02       BNE $0275
0273  E6 AF       INC $AF
0275  24 90       BIT $90
0277  50 E7       BVC $0260
0279  20 CC FF    JSR $FFCC
027C  A9 01       LDA #$01
027E  20 C3 FF    JSR $FFC3
0281  4C AB 05    JMP $05AB
0284  20 CC FF    JSR $FFCC
0287  A9 01       LDA #$01
0289  20 C3 FF    JSR $FFC3
028C  20 C0 FF    JSR $FFC0
028F  20 CC FF    JSR $FFCC
0292  A9 01       LDA #$01
0294  20 C3 FF    JSR $FFC3
0297  A5 BA       LDA $BA
0299  20 B1 FF    JSR $FFB1
029C  A9 6F       LDA #$6F
029E  20 93 FF    JSR $FF93
02A1  A0 00       LDY #$00
02A3  B9 0C 05    LDA $050C,Y
02A6  20 A8 FF    JSR $FFA8
02A9  C8          INY
02AA  C0 06       CPY #$06
02AC  D0 F5       BNE $02A3
02AE  A0 20       LDY #$20
02B0  AD 19 05    LDA $0519
02B3  EE 4F 04    INC $044F
02B6  D0 03       BNE $02BB
02B8  EE 50 04    INC $0450
02BB  EE 0F 05    INC $050F
02BE  20 A8 FF    JSR $FFA8
02C1  88          DEY
02C2  D0 EC       BNE $02B0
02C4  20 AE FF    JSR $FFAE
02C7  AD 0F 05    LDA $050F
02CA  D0 CB       BNE $0297
02CC  A5 BA       LDA $BA
02CE  20 B1 FF    JSR $FFB1
02D1  A9 6F       LDA #$6F
02D3  20 93 FF    JSR $FF93
02D6  A0 00       LDY #$00
02D8  B9 12 05    LDA $0512,Y
02DB  20 A8 FF    JSR $FFA8
02DE  C8          INY
02DF  C0 07       CPY #$07
02E1  D0 F5       BNE $02D8
02E3  20 AE FF    JSR $FFAE
02E6  A9 11       LDA #$11
02E8  8D 11 D0    STA $D011
02EB  A9 9C       LDA #$9C
02ED  85 AE       STA $AE
02EF  A9 03       LDA #$03
02F1  85 AF       STA $AF
02F3  A0 00       LDY #$00
02F5  C8          INY
02F6  D0 FD       BNE $02F5
02F8  A2 17       LDX #$17
02FA  2C 00 A2    BIT $A200
02FD  FF          ??
02FE  9A          TXS
02FF  A0 13       LDY #$13
0301  B9 80 06    LDA $0680,Y
0304  99 19 01    STA $0119,Y
0307  B9 94 06    LDA $0694,Y
030A  99 41 01    STA $0141,Y
030D  B9 A8 06    LDA $06A8,Y
0310  99 69 01    STA $0169,Y
0313  B9 BC 06    LDA $06BC,Y
0316  99 91 01    STA $0191,Y
0319  A9 20       LDA #$20
031B  C0 10       CPY #$10
031D  B0 06       BCS $0325
031F  C4 B7       CPY $B7
0321  B0 02       BCS $0325
0323  B1 BB       LDA ($BB),Y
0325  99 56 01    STA $0156,Y
0328  98          TYA
0329  4A          LSR A
032A  AA          TAX
032B  A9 03       LDA #$03
032D  99 19 D9    STA $D919,Y
0330  BD D0 06    LDA $06D0,X
0333  B0 04       BCS $0339
0335  4A          LSR A
0336  4A          LSR A
0337  4A          LSR A
0338  4A          LSR A
0339  99 41 D9    STA $D941,Y
033C  BD DA 06    LDA $06DA,X
033F  B0 04       BCS $0345
0341  4A          LSR A
0342  4A          LSR A
0343  4A          LSR A
0344  4A          LSR A
0345  99 69 D9    STA $D969,Y
0348  A9 01       LDA #$01
034A  99 57 D9    STA $D957,Y
034D  A9 06       LDA #$06
034F  99 91 D9    STA $D991,Y
0352  88          DEY
0353  10 AC       BPL $0301
0355  A5 FF       LDA $FF
0357  F0 29       BEQ $0382
0359  A9 1B       LDA #$1B
035B  8D 11 D0    STA $D011
035E  20 CF FF    JSR $FFCF
0361  A0 34       LDY #$34
0363  84 01       STY $01
0365  A0 00       LDY #$00
0367  91 AE       STA ($AE),Y
0369  A0 36       LDY #$36
036B  84 01       STY $01
036D  E6 AE       INC $AE
036F  D0 02       BNE $0373
0371  E6 AF       INC $AF
0373  24 90       BIT $90
0375  50 E7       BVC $035E
0377  20 CC FF    JSR $FFCC
037A  A9 01       LDA #$01
037C  20 C3 FF    JSR $FFC3
037F  4C AB 05    JMP $05AB
0382  20 CC FF    JSR $FFCC
0385  A9 01       LDA #$01
0387  20 C3 FF    JSR $FFC3
038A  20 C0 FF    JSR $FFC0
038D  20 CC FF    JSR $FFCC
0390  A9 01       LDA #$01
0392  20 C3 FF    JSR $FFC3
0395  A5 BA       LDA $BA
0397  20 B1 FF    JSR $FFB1
039A  A9 6F       LDA #$6F
039C  20 93 FF    JSR $FF93
039F  A0 00       LDY #$00
03A1  B9 0C 05    LDA $050C,Y
03A4  20 A8 FF    JSR $FFA8
03A7  C8          INY
03A8  C0 06       CPY #$06
03AA  D0 F5       BNE $03A1
03AC  A0 20       LDY #$20
03AE  AD 19 05    LDA $0519
03B1  EE 4F 04    INC $044F
03B4  D0 03       BNE $03B9
03B6  EE 50 04    INC $0450
03B9  EE 0F 05    INC $050F
03BC  20 A8 FF    JSR $FFA8
03BF  88          DEY
03C0  D0 EC       BNE $03AE
03C2  20 AE FF    JSR $FFAE
03C5  AD 0F 05    LDA $050F
03C8  D0 CB       BNE $0395
03CA  A5 BA       LDA $BA
03CC  20 B1 FF    JSR $FFB1
03CF  A9 6F       LDA #$6F
03D1  20 93 FF    JSR $FF93
03D4  A0 00       LDY #$00
03D6  B9 12 05    LDA $0512,Y
03D9  20 A8 FF    JSR $FFA8
03DC  C8          INY
03DD  C0 07       CPY #$07
03DF  D0 F5       BNE $03D6
03E1  20 AE FF    JSR $FFAE
03E4  A9 11       LDA #$11
03E6  8D 11 D0    STA $D011
03E9  A9 9C       LDA #$9C
03EB  85 AE       STA $AE
03ED  A9 03       LDA #$03
03EF  85 AF       STA $AF
03F1  A0 00       LDY #$00
03F3  C8          INY
03F4  D0 FD       BNE $03F3
03F6  A2 17       LDX #$17
03F8  2C 00 00    BIT $0000
READY.