C64 Software  <  SCA: The C64 Software Collection / SWISS

  Run
; Load: 699 ($02BB), len: 73 bytes

02BB  A9 1B       LDA #$1B
02BD  8D 11 D0    STA $D011
02C0  A2 00       LDX #$00
02C2  8E 20 D0    STX $D020
02C5  8E 21 D0    STX $D021
02C8  8E 00 D0    STX $D000
02CB  8E 18 D4    STX $D418
02CE  BD DE 02    LDA $02DE,X
02D1  F0 06       BEQ $02D9
02D3  20 D2 FF    JSR $FFD2
02D6  E8          INX
02D7  D0 F5       BNE $02CE
02D9  20 53 E4    JSR $E453
02DC  6C 00 03    JMP ($0300)
02DF  93          ??
02E0  05 54       ORA $54
02E2  55 52       EOR $52,X
02E4  4E 20 54    LSR $5420
02E7  48          PHA
02E8  45 20       EOR $20
02EA  44          ??
02EB  49 53       EOR #$53
02ED  4B          ??
02EE  20 4F 56    JSR $564F
02F1  45 52       EOR $52
02F3  20 41 4E    JSR $4E41
02F6  44          ??
02F7  20 52 45    JSR $4552
02FA  4C 4F 41    JMP $414F
02FD  44          ??
02FE  21 0D       AND ($0D,X)
0300  0D 00 BB    ORA $BB00
0303  02          ??
READY.