C64 Software  <  SCA: The C64 Software Collection / PENETRATOR-7

  Run
; Load: 23040 ($5A00), len: 210 bytes

5A00  A9 00       LDA #$00
5A02  20 90 FF    JSR $FF90
5A05  AD 11 D0    LDA $D011
5A08  29 EF       AND #$EF
5A0A  8D 11 D0    STA $D011
5A0D  20 7B 5A    JSR $5A7B
5A10  A2 00       LDX #$00
5A12  BD 00 9C    LDA $9C00,X
5A15  9D 00 80    STA $8000,X
5A18  BD 00 9D    LDA $9D00,X
5A1B  9D 00 81    STA $8100,X
5A1E  BD 00 9E    LDA $9E00,X
5A21  9D 00 82    STA $8200,X
5A24  BD 00 9F    LDA $9F00,X
5A27  9D 00 83    STA $8300,X
5A2A  E8          INX
5A2B  D0 E5       BNE $5A12
5A2D  A9 01       LDA #$01
5A2F  8D 00 DD    STA $DD00
5A32  A9 08       LDA #$08
5A34  8D 18 D0    STA $D018
5A37  A9 3B       LDA #$3B
5A39  8D 11 D0    STA $D011
5A3C  20 7B 5A    JSR $5A7B
5A3F  78          SEI
5A40  A9 00       LDA #$00
5A42  85 01       STA $01
5A44  A0 00       LDY #$00
5A46  B9 00 10    LDA $1000,Y
5A49  99 00 C0    STA $C000,Y
5A4C  C8          INY
5A4D  D0 F7       BNE $5A46
5A4F  EE 4B 5A    INC $5A4B
5A52  EE 48 5A    INC $5A48
5A55  AD 48 5A    LDA $5A48
5A58  C9 50       CMP #$50
5A5A  D0 E8       BNE $5A44
5A5C  A9 07       LDA #$07
5A5E  85 01       STA $01
5A60  58          CLI
5A61  20 7B 5A    JSR $5A7B
5A64  20 7B 5A    JSR $5A7B
5A67  20 7B 5A    JSR $5A7B
5A6A  A9 0B       LDA #$0B
5A6C  8D 11 D0    STA $D011
5A6F  20 7B 5A    JSR $5A7B
5A72  A9 1B       LDA #$1B
5A74  8D 11 D0    STA $D011
5A77  58          CLI
5A78  4C 00 17    JMP $1700
5A7B  EE 9F 5A    INC $5A9F
5A7E  A9 01       LDA #$01
5A80  A2 08       LDX #$08
5A82  A8          TAY
5A83  20 BA FF    JSR $FFBA
5A86  A2 94       LDX #$94
5A88  A0 5A       LDY #$5A
5A8A  A9 0C       LDA #$0C
5A8C  20 BD FF    JSR $FFBD
5A8F  A9 00       LDA #$00
5A91  4C D5 FF    JMP $FFD5
5A94  50 45       BVC $5ADB
5A96  4E 45 54    LSR $5445
5A99  52          ??
5A9A  41 54       EOR ($54,X)
5A9C  4F          ??
5A9D  52          ??
5A9E  2D 30 20    AND $2030
5AA1  43          ??
5AA2  52          ??
5AA3  41 43       EOR ($43,X)
5AA5  4B          ??
5AA6  45 44       EOR $44
5AA8  20 42 59    JSR $5942
5AAB  20 53 41    JSR $4153
5AAE  54          ??
5AAF  55 52       EOR $52,X
5AB1  4E 55 53    LSR $5355
5AB4  20 54 48    JSR $4854
5AB7  45 20       EOR $20
5AB9  49 4E       EOR #$4E
5ABB  56 49       LSR $49,X
5ABD  4E 43 49    LSR $4943
5AC0  42          ??
5AC1  4C 45 00    JMP $0045
5AC4  00          BRK
5AC5  00          BRK
5AC6  F0 00       BEQ $5AC8
5AC8  00          BRK
5AC9  00          BRK
5ACA  F0 00       BEQ $5ACC
5ACC  00          BRK
5ACD  00          BRK
5ACE  F0 00       BEQ $5AD0
5AD0  00          BRK
5AD1  00          BRK
READY.