; By-Tor
; by Chris King ("PiGuy") ctk314@yahoo.com

#config scanner=4
#config weapon=0
#config armor=1
#config engine=1
#config heatsinks=0
#config shield=3
#config mines=3
        opo 24, 2
        opo P_trotate, 7
        int 3
	mov ax,1
	int 4
	opo 17,8
        ipo 10, bx
        and bx, 25
        ipo 3, dx
        and dx, 25
        set dx, bx
        push dx
        push bx
!twirl
        pop dx
        pop bx
        int 7, bx
        opo 14, bx
        opo 24, 0
        opo 14,bx
!loop
;        opo 14, 12
;        opo 11, -100
        ;opo 23, 1
        do 2
        opo 11,100
	ipo 7,ax
        cmp ax, 1500
	jgr !twirl
        mov bx, @3
        shl bx ,2
        opo 14, bx
        cmp ax, 25
        loop 3
        opo 23, 1
        jae !loop
        opo 11, -5
        ;mov ax, 1
	;int 4
!fireloop
        ipo 9, fx
        cmp fx, 45
        jb !fire
        jmp !shie
!fire
        opo 24, 2
        do 3
        ;opo 15,0
        ;opo 15,@3
        ;opo 15,2
        do 3
        opo 22, 1
        loop 3
        loop 3
        ipo 2, ax
        cmp ax, 120
        ;opo 14, 3
        opo 11, -100
        ja !twirl
        jls !loop
!shie
opo 24, 2
opo 15, 0
jmp !fireloop