C64 Software  <  SCA: The C64 Software Collection / ZORRO

  Run
; Load: 258 ($0102), len: 252 bytes

0102  A9 7F       LDA #$7F
0104  8D 0D DC    STA $DC0D
0107  20 8A FF    JSR $FF8A
010A  A9 D1       LDA #$D1
010C  8D 18 03    STA $0318
010F  A9 01       LDA #$01
0111  8D 19 03    STA $0319
0114  A2 00       LDX #$00
0116  86 90       STX $90
0118  86 FF       STX $FF
011A  A9 00       LDA #$00
011C  9D 00 D0    STA $D000,X
011F  A9 0E       LDA #$0E
0121  9D 00 D8    STA $D800,X
0124  9D 00 D9    STA $D900,X
0127  9D 00 DA    STA $DA00,X
012A  9D 00 DB    STA $DB00,X
012D  E8          INX
012E  D0 EA       BNE $011A
0130  8D 20 D0    STA $D020
0133  8D 21 D0    STA $D021
0136  A9 06       LDA #$06
0138  8D 18 D0    STA $D018
013B  A4 B7       LDY $B7
013D  88          DEY
013E  30 06       BMI $0146
0140  B1 BB       LDA ($BB),Y
0142  C9 3A       CMP #$3A
0144  D0 F7       BNE $013D
0146  98          TYA
0147  49 FF       EOR #$FF
0149  38          SEC
014A  65 B7       ADC $B7
014C  48          PHA
014D  98          TYA
014E  10 03       BPL $0153
0150  CE 58 01    DEC $0158
0153  18          CLC
0154  65 BB       ADC $BB
0156  48          PHA
0157  A9 00       LDA #$00
0159  65 BC       ADC $BC
015B  48          PHA
015C  A5 BA       LDA $BA
015E  20 B1 FF    JSR $FFB1
0161  A9 FF       LDA #$FF
0163  20 93 FF    JSR $FF93
0166  A2 05       LDX #$05
0168  BD D2 01    LDA $01D2,X
016B  20 A8 FF    JSR $FFA8
016E  CA          DEX
016F  10 F7       BPL $0168
0171  20 AE FF    JSR $FFAE
0174  A5 BA       LDA $BA
0176  20 B4 FF    JSR $FFB4
0179  A9 6F       LDA #$6F
017B  20 96 FF    JSR $FF96
017E  A2 03       LDX #$03
0180  20 A5 FF    JSR $FFA5
0183  E0 FF       CPX #$FF
0185  F0 08       BEQ $018F
0187  DD D8 01    CMP $01D8,X
018A  F0 02       BEQ $018E
018C  E6 FF       INC $FF
018E  CA          DEX
018F  A5 90       LDA $90
0191  F0 ED       BEQ $0180
0193  20 AB FF    JSR $FFAB
0196  68          PLA
0197  A8          TAY
0198  68          PLA
0199  AA          TAX
019A  68          PLA
019B  20 BD FF    JSR $FFBD
019E  A0 00       LDY #$00
01A0  A9 2D       LDA #$2D
01A2  91 BB       STA ($BB),Y
01A4  A9 01       LDA #$01
01A6  A6 BA       LDX $BA
01A8  20 BA FF    JSR $FFBA
01AB  20 C0 FF    JSR $FFC0
01AE  A2 01       LDX #$01
01B0  20 C6 FF    JSR $FFC6
01B3  A9 9C       LDA #$9C
01B5  85 AE       STA $AE
01B7  A9 03       LDA #$03
01B9  85 AF       STA $AF
01BB  20 CF FF    JSR $FFCF
01BE  A0 00       LDY #$00
01C0  91 AE       STA ($AE),Y
01C2  E6 AE       INC $AE
01C4  D0 F5       BNE $01BB
01C6  E6 AF       INC $AF
01C8  A5 AF       LDA $AF
01CA  C9 07       CMP #$07
01CC  D0 ED       BNE $01BB
01CE  4C 9C 03    JMP $039C
01D1  40          RTI
01D2  04          ??
01D3  E5 CA       SBC $CA
01D5  52          ??
01D6  2D 4D 45    AND $454D
01D9  56 49       LSR $49,X
01DB  52          ??
01DC  01 01       ORA ($01,X)
01DE  01 01       ORA ($01,X)
01E0  01 01       ORA ($01,X)
01E2  01 01       ORA ($01,X)
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)
READY.