;------------------------------------------------
; Loader "Wykrzyknik" - Encrypted
;------------------------------------------------
         OPT h-F+
;------------------------------------------------
         ORG $0700

         ;
         ; HEADER
         ;
HEADER   dta $20,$05,$00,$07,$20,$07
;------------------------------------------------
         ORG $0706

         ;
         ; RUN
         ;
RUN      JSR $08F4
         JMP $F2ED
;------------------------------------------------
         ORG $070C

         ;
         ; MAIN
         ;
MAIN     dta $56,$FF,$55,$57,$52,$03,$40,$2F
         dta $EF,$17,$2F,$07,$37,$2F,$0A,$56
         dta $FE,$72,$03,$40
;------------------------------------------------
         ORG $0720

         ;
         ; RESTART
         ;
RESTART  dta $52,$03,$40,$0F,$F9,$E7,$97,$97
         dta $B3,$AF,$F8,$56,$FE,$72,$0F,$FD
         dta $56,$F8,$72,$AD,$FF,$56,$F5,$72
         dta $AA,$FF,$72,$AB,$FF,$5D,$01,$5F
         dta $F7,$DF,$7A,$0C,$DF,$1D,$09,$36
         dta $E4,$2F,$06,$97,$97,$B3,$A4,$F8
;------------------------------------------------
         ORG $0750

         ;
         ; PROC6
         ;
PROC6    dta $56,$A4,$72,$F5,$FF,$56,$F8,$72
         dta $F4,$FF,$15
;------------------------------------------------
         ORG $075B

         ;
         ; PROC2
         ;
PROC2    dta $56,$FD,$72,$AD,$FF,$56,$FF,$72
         dta $0F,$FD,$56,$82,$DF,$5B,$09,$DF
         dta $1A,$F7,$5D,$EF,$56,$FC,$62,$BD
         dta $FC,$56,$04,$62,$BB,$FC,$56,$F7
         dta $62,$BA,$FC,$56,$FB,$62,$B5,$FC
         dta $56,$7F,$62,$B4,$FC,$56,$F3,$72
         dta $03,$FD,$DF,$A9,$1B,$56,$FF,$72
         dta $C9,$F6,$5D,$EF,$56,$CB,$62,$BB
         dta $FC,$56,$F6,$62,$BA,$FC,$56,$FD
         dta $62,$B7,$FC,$56,$FF,$62,$B6,$FC
         dta $56,$F8,$62,$BD,$FC,$DF,$A9,$1B
         dta $CF,$DA
;------------------------------------------------
         ORG $07B5

         ;
         ; PROC9
         ;
PROC9    dta $5D,$EF,$56,$CF,$62,$BB,$FC,$56
         dta $F6,$62,$BA,$FC,$56,$FB
;------------------------------------------------
         ORG $07C3

         ;
         ; PROC10
         ;
PROC10   dta $62,$B7,$FC,$56,$FF,$62,$B6,$FC
         dta $DF,$A9,$1B,$EF,$E6,$3F,$77,$2F
         dta $F9,$DF,$1A,$F7,$B3,$82,$F7
;------------------------------------------------
         ORG $07DA

         ;
         ; PROC8
         ;
PROC8    dta $67,$B7,$DF,$1A,$F7,$97,$57,$0F
         dta $F9,$DF,$7E,$0C,$B3,$82,$F7,$52
         dta $C9,$F6,$2F,$F0,$52,$CF,$F6,$72
         dta $1F,$FD,$52,$CE,$F6,$72,$1E,$FD
         dta $31,$C9,$F6,$5D,$EF,$52,$CF,$F6
         dta $62,$BB,$FC,$B7,$52,$CE,$F6,$62
         dta $BA,$FC,$57,$97,$37,$2F,$E0,$57
         dta $37,$2F,$E4,$52,$CD,$F6,$72,$CF
         dta $F6,$52,$CC,$F6,$72,$CE,$F6,$56
         dta $CD,$62,$BB,$FC,$56,$F6,$62,$BA
         dta $FC,$56,$FD,$B3,$3C,$F8,$52,$CD
         dta $F6,$C7,$12,$CF,$F6,$62,$B7,$FC
         dta $52,$CC,$F6,$12,$CE,$F6,$62,$B6
         dta $FC,$52,$CE,$F6,$01,$B7,$FC,$2F
         dta $FC,$01,$B6,$FC,$5D,$EF,$56,$0C
         dta $72,$1D,$FD,$56,$F7,$72,$1C,$FD
         dta $DF,$A9,$1B,$EF,$FC,$B3,$25,$F8
         dta $56,$FF,$72,$BB,$FD,$56,$FE,$7A
         dta $F6,$15,$15,$15,$DF,$6D,$F7,$DF
         dta $85,$F7,$DF,$30,$F7,$B3,$4A,$F8
;------------------------------------------------
         ORG $087A

         ;
         ; PROC3
         ;
PROC3    dta $93,$1D,$FD
;------------------------------------------------
         ORG $087D

         ;
         ; PROC7
         ;
PROC7    dta $56,$FF,$72,$BB,$FD,$56,$FE,$7A
         dta $F6,$15,$15,$15,$DF,$6D,$F7,$DF
         dta $30,$F7,$93,$1F,$FD
;------------------------------------------------
         ORG $0892

         ;
         ; PROC4
         ;
PROC4    dta $56,$63,$72,$FD,$FF,$56,$0C,$72
         dta $FC,$FF,$60
;------------------------------------------------
         ORG $089D

         ;
         ; DECRYPT
         ;
DECRYPT  LDA #$0C
         STA.W $00D0
         LDA #$07
         STA.W $00D1
         LDY #$00
         LDA ($D0),Y
         EOR #$FF
         STA ($D0),Y
         INC.W $00D0
         BNE *+5
         INC.W $00D1
         LDA.W $00D1
         CMP #$08
         BNE *-21
         LDA.W $00D0
         CMP #$9C
         BNE *-28
         LDA #$00
         STA.W $00D0
         STA.W $00D1
         NOP
         RTS
;------------------------------------------------
         ORG $08CF

         ;
         ; PROC1
         ;
PROC1    LDA #$3C
         STA $D302
         RTS
;------------------------------------------------
         ORG $08D5

         ;
         ; REPLACE
         ;
REPLACE  LDA #$20
         STA $0709
         LDA #$9D
         STA $070A
         LDA #$08
         STA $070B
         RTS
;------------------------------------------------
         ORG $08E5

         ;
         ; PROC5
         ;
PROC5    LDX #$10
         LDA #$0C
         JSR $E456
         LDX #$20
         LDA #$0C
         JSR $E456
         RTS
;------------------------------------------------
         ORG $08F4

         ;
         ; INIT
         ;
INIT     JSR $08CF
         JSR $08D5
         RTS
;------------------------------------------------
         ORG $08FB

         ;
         ; TRASH
         ;
TRASH    dta $43,$3A,$9B,$FD,$E3,$E1,$F2,$F4
         dta $F2,$E9,$E4,$E7,$E5,$A0,$E9,$EE
         dta $F3,$F4,$E1,$EC,$EC,$E5,$E4,$1D
         dta $9C,$F4,$F9,$F0,$E5,$A0,$BC,$C5
         dta $D3,$C3,$BE,$A0,$F4,$EF,$A0,$E3
         dta $EF,$EE,$F4,$E9,$F5,$E5,$A0,$E2
         dta $EF,$EF,$F4,$FD,$9B
;------------------------------------------------
         ORG $0930

         ;
         ; T0930
         ;
T0930    dta $00,$00
;------------------------------------------------
         ORG $0932

         ;
         ; T0932
         ;
T0932    dta $00,$00
;------------------------------------------------
         ORG $0934

         ;
         ; T0934
         ;
T0934    dta $00,$00
;------------------------------------------------
         ORG $0936

         ;
         ; T0936
         ;
T0936    dta $00,$00
;------------------------------------------------
         ORG $0938

         ;
         ; UNUSED
         ;
UNUSED   dta $00,$00,$00,$00,$00,$00,$00,$00
         dta $00,$00,$00,$00,$00,$00,$00,$00
         dta $00,$00,$00,$00,$00,$00,$00,$00
         dta $00,$00,$00,$00,$00,$00,$00,$00
         dta $00,$00,$00,$00,$00,$00,$00,$00
         dta $00,$00,$00,$00,$00,$00,$00,$00
         dta $00,$00,$00,$00,$00,$00,$00,$00
         dta $00,$00,$00,$00,$00,$00,$00,$00
         dta $00,$00,$00,$00,$00,$00,$00,$00