org	$60000
load	$60000

DC.B    "DOS",0
dc.l	$00000000
dc.l	$00000370

move.w  #$0737,$dff180
move.w  #$0737,$dff182

btst    #$6,$bfe001
beq     ask2
bra     boot

ask2:     
btst    #$2,$dff016
beq     kick

boot:
 lea	dosname(pc),a1
 jsr	-96(a6)	
 move.l	d0,a0
 move.l	22(a0),a0
 moveq	#$00,d0
 rts

dosname:dc.b "dos.library",0

KICK:
move.l	$000004,A6
jsr	-150(a6)         ; umschalten in supervisormod. 
move.w  #$2700,sr        ; bits 13,10,9,8 im statusregister setzen
move.w  #$2700,sr        
move.w  #$7fff,$dff096   ; 0-14 in dmacon aus
move.w  #$7fff,$dff09a   ; 0-14 in intena aus
move.w  #$00ff,$dff180   
move.w  #$00ff,$dff180
lea     $3f000,a2 
lea     $7fff0,a3
gone:                    ; 
clr.l   (a2)+
cmpa.l  a3,a2
bne.s   gone
moveq   #$00,d0
reset
move.w  #$7fff,$dff096
move.w  #$7fff,$dff09a
jmp     (a1)
dc.b  "       Written by  M.T.C. of The PANTIES      ",0,0