C64 Software  <  SCA: The C64 Software Collection / SWISS

  Run
; Load: 700 ($02BC), len: 72 ($0048) bytes

02BC  A0 00       LDY #$00
02BE  84 9D       STY $9D
02C0  8C 20 D0    STY $D020
02C3  8C 21 D0    STY $D021
02C6  A9 0B       LDA #$0B
02C8  8D 11 D0    STA $D011
02CB  A2 08       LDX #$08
02CD  C8          INY
02CE  20 BA FF    JSR $FFBA
02D1  A9 0D       LDA #$0D
02D3  A2 F0       LDX #$F0
02D5  A0 02       LDY #$02
02D7  20 BD FF    JSR $FFBD
02DA  A9 00       LDA #$00
02DC  20 D5 FF    JSR $FFD5
02DF  86 2D       STX $2D
02E1  84 2E       STY $2E
02E3  A9 83       LDA #$83
02E5  8D 02 03    STA $0302
02E8  A9 A4       LDA #$A4
02EA  8D 03 03    STA $0303
02ED  4C 28 08    JMP $0828
02F0  20 20 43    JSR $4320
02F3  52          ??
02F4  41 43       EOR ($43,X)
02F6  4B          ??
02F7  49 4E       EOR #$4E
02F9  47          ??
02FA  20 20 20    JSR $2020
02FD  2E 2E 2E    ROL $2E2E
0300  8B          ??
0301  E3          ??
0302  BC 02 00    LDY $0002,X
READY.