;
; Ice.Split - Verwendet die gegnerischen Programmzeiger für
;             eigene Zwecke. Programmiert von Christopher Salomon,
;             Steinacker 11a, 5901 Wilnsdorf 2 (BRD). Schlägt 
;             Killer4, Dampfwalze, Mausefalle, Jumper1, JimBeam ... etc!
;

jumpy2          jmp 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
offset          DAT -1000            ;erst bei -1000 lohnt es sich zu gucken

                dat 0


wohin           dat -9
wieoft          dat 2600
vorne           mov #0,0
vorne1          mov #10,@wohin
                sub #4,wohin
                djn vorne1,wieoft

                add #700,5
                mov 2,@4
                spl @3
                jmp 0

                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0

jumpy1          jmp 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
jump            jmp @0
start        
                sub #50,offset
                djn thrstart1,zaehler
                jmp thirdwave
thrstart1       JMZ start,@offset ;ist irgendwo etwas <>
                JMZ start,<offset ;es sollten schon 2 bytes <> 0 sein
                ADD #6,offset     ;sicherheitsabstand
                SUB offset,erg    ;sprungwert berrechnen ( es geht doch )
                MOV erg,<offset   ;DAT fuer sklavenfalle poken
loop1           ADD #1,falle      ;JMP berrechnen
                mov falle,<offset ;
                djn loop1,zahl    ;schleifenende
hier2
                MOV zahlorg,zahl      ;zaehler fuer nachher init.
                mov jump,falle
                mov #102,erg
                JMP start         ;und von vorne

                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
zahlorg         dat 20
zahl            DAT 20            ;schleifenzaehler
falle           JMP @0            ;wieder mal eine falle, diesmal indirekt
erg             DAT 102            ;sklave-offset +1
zaehler         dat 120

                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                
                
    
                sub #8,-28
hier            mov -1,start
                mov #5,zahlorg
                mov #750,zaehler
                mov #-1000,offset
                mov 2,3
                jmp hier2
                jmp $-5
                                           
thirdwave       
                spl hier
                spl jumpy1
                spl jumpy2
                mov #4000,49
                spl ownmaster              ;spl 0
                spl ganzvorne
                spl ownmaster
                spl ownmaster

                
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0

ownmaster       MOV #0,<bdat1     ;und zum DAT 0 werfen verdammt
                mov #0,<bdat1     ;und zum DAT 0 werfen verdammt
                JMN ownmaster,35  ;wenn bdat = 0 dann selbstmord
                jmp vorne
bdat1           DAT 4000           ;zaehler und moerder von gegner

                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0

slave           SPL 1             ;gegnerische Prg. werden hier gefangen
                MOV #0,<bdat      ;und zum DAT 0 werfen verdammt
                mov #0,<bdat      ;und zum DAT 0 werfen verdammt
jmp             JMN slave,bdat    ;wenn bdat = 0 dann selbstmord
bdat            DAT -115           ;zaehler und moerder von gegner

                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                dat 0
                

gwohin          dat 1005
gwieoft         dat 1700
ganzvorne       mov #0,0
gorne1          mov #10,@gwohin
                add #4,gwohin
                djn gorne1,gwieoft
                jmp 0