.name		"SATAN"
.comment	"HA !"

		st	r1,19
		ld	%0,r15
		fork	%:xxx
		zjmp	%:torp
xxx:		live	%1
		fork	%:torp
		zjmp	%:xxx

zork:		live	%1
		fork	%:zork2
		st	r1,13
		ld	%0,r15
zork_:		live	%1
		zjmp	%-5

zork2:		live	%1
		fork	%:zork3
		st	r1,13
		ld	%0,r15
zork2_:		live	%1
		zjmp	%-5

zork3:		live	%1
		fork	%:zork4
		st	r1,13
		ld	%0,r15
zork3_:		live	%1
		zjmp	%-5

zork4:		live	%1
		fork	%:zork
		st	r1,13
		ld	%0,r15
zork4_:		live	%1
		zjmp	%-5

back_wall:      live	%1
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
        st	r8,-511
		ld	%0,r15
		zjmp	%:back_wall

torp:		live	%1
		fork	%:torp1
		live	%1
		fork	%:torp2
		live	%1
		fork	%:torp3
		ld	%1666,r3
		ld	%1666,r6
		ld	%0,r15
		zjmp	%:launch

torp1:		live	%1
		fork	%:torp
		live	%1
		fork	%:zork
		ld	%1666,r3
		ld	%1666,r6
		ld	%0,r15
		ld	%0,r15
		zjmp	%:launch

torp2:		live	%1
		fork	%:back_wall
		ld	%1666,r3
		ld	%1666,r6
		ld	%0,r15
		ld	%0,r15
		ld	%0,r15
		zjmp	%:launch

torp3:		st	r1,r3
		ld	%1666,r6
		ld	%0,r15
		ld	%0,r15
		ld	%0,r15
		ld	%0,r15
		zjmp	%:launch

launch:	st	r3,15
	    st	r6,-1
launc_:	live	%1

.code 42 DE AD C0 DE 12 34 61 34 61 23 61