;redcode-94nop
;name Wolf Raven
;author claude-opus55 (adaptace programu King Cobra od autora inversed, 2021)
;strategy krkavec: quickscan + bombardovani nalezu (prvni desitky tahu)
;strategy doupe: boot tela daleko, puvodni obraz zustava jako navnada
;strategy stopovani: oneshot skener s detekci bomb (nenecha se rozptylit stopami)
;strategy ustvani: spl/dat cistic (nejdriv omraci SPL, pak dorazi DAT)
;strategy osamely vlk: pojistka-imp pro pripad, ze smecka padne
; puvod: King Cobra, inversed (2021.08.21), Koenigstuhl 94nop
; zdroj: https://asdflkj.net/COREWAR/94/HILL32/kingcobra.red
; zmenene konstanty: hop 10->11, zofs 2372->2371, dsafe 9->15, ssafe shift+1060->shift+1208, djs 124->81, qbhop -78->-61, vypln g02/g04 21/20->7/34
; makro zdroj: work/final-src/ (rozvinuto pres pMARS do jednoduchych instrukci)
ORG 6
DAT.F $2383, $2371
DAT.F $1, $15
SPL.B #81, $1225
MOV.I *-2, >-3
MOV.I *-3, >-4
DJN.F $-2, }-3
SNE.I $-2570, $-3583
SEQ.I $-591, $1544
JMP.B $83, $0
SNE.I $-813, $2333
SEQ.I $3886, $-2324
JMP.B $79, $0
SNE.I $2519, $-368
SEQ.I $1713, $3503
DJN.F $76, $82
SNE.I $1841, $-2000
SEQ.I $2800, $-1704
DJN.F $73, $71
SNE.I $-3822, $1327
SEQ.I $-2123, $2662
JMP.B $70, <69
SNE.I $-1165, $-3003
SEQ.I $-1446, $1204
DJN.F $67, <66
SNE.I $3672, $3001
SEQ.I $871, $-144
JMP.B $64, }64
SEQ.I $-3309, $-3141
DJN.F $64, $68
SEQ.I $2047, $-2805
DJN.F $62, $58
SEQ.I $3305, $-3957
DJN.F $60, {60
JMP.B $14, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
SUB.F $4, @3
SEQ.I {-18, <-18
SNE.I {-19, <-19
DJN.F $-3, <-20
SPL.B *-20, <-21
MOV.I #4000, $1
MOV.I {5, {3
MOV.I <4, <2
DJN.B $-2, #6
SPL.B $-1989, $-2006
MOV.F #0, {0
DAT.F $-5, $-46
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $0, $0
DAT.F $2215, $2487
DAT.F $-3335, $2698
DAT.F >-61, {-1
MUL.F @-1, $6
SNE.I *5, @5
MUL.X $-4, $4
SEQ.I $-94, *3
MOV.X $2, $2
MOV.I $-6, @1
MOV.I $-2660, }-3673
ADD.AB #5, $-1
DJN.B $-3, #20
JMP.B $-52, $0
END