;org	$6000c
;load	$6000c
beg:

;---------------------------------------------------------------------
;--------------------                         ------------------------
;-------------------- HQC-BOOTBLOCKINTRO V3.1 ------------------------
;--------------------                         ------------------------
;-------------------- (C) by ACG and          ------------------------
;--------------------                         ------------------------
;--------------------     Sir-Prise of HQC    ------------------------
;--------------------                         ------------------------
;--------------------              in 1987    ------------------------
;--------------------                         ------------------------
;--------------------     (who else ???)      ------------------------
;--------------------                         ------------------------
;---------------------------------------------------------------------




; ----- graphics.library -----
text= 		-60
setfont= 	-66
closefont=	-78
move= 		-240
initbitmap= 	-390
initrastport= 	-198
clearscreen=	-48
scrollraster=	-396
setapen=	-342
; ----- exec.library     -----
allocabs=	-204
freemem=	-210
openlibrary= 	-408
closelibrary= 	-414
forbid= 	-132
permit= 	-138
; ----- diskfont.library -----
openfont= 	-30
; ----- dos.library   	 -----
open=		-30
close=		-36
read=		-42
examine=	-102
; ----- absolute address -----
execbase= 	$04

movem.l 	d0-d7/a0-a6,-(a7)
move.l		execbase,a6
;jsr		forbid(a6)
lea		gfxname(pc),a1
jsr		openlibrary(a6)
move.l		d0,a6
lea 		$dff000,a0
move.w	#$8100,$096(a0)
MOVE.W	#$0006,$108(a0)
MOVE.W	#$0006,$10a(a0)
move.w	#$2c81,$08e(a0)
move.w	#$f4c1,$090(a0)
lea	$7a000,a0
move.l	#$00e00005,(a0)+
move.l  #$00e29000,(a0)+
move.l  #$01001200,(a0)+
move.l	#$01800000,(a0)+
move.l	#$01820000,(a0)+

lea		$7a000,a0
move.l		a0,50(a6)
lea		$70200,a0
move.w		#$01,d0
move.w		#368,d1
move.w		#220,d2
jsr		initbitmap(a6)
move.l		#$59000-414,$70208
lea		$70000,a1
jsr		initrastport(a6)
move.l		#$70200,$70004
jsr		clearscreen(a6)
lea		$7a014,a0
move.w		#175,d7
move.l		#$2c09fffe,d5
loop1:
move.l		d5,d0
move.w		#15,d6
loop2:
move.l		d0,(a0)+
move.l		#$01800000,(a0)+
add.l		#$0e0000,d0
dbra		d6,loop2
add.l		#$01000000,d5
dbra		d7,loop1
move.l		#$a,d7
lea		taba(pc),a4
tabaloop:
move.l		(a4)+,(a0)+
dbra		d7,tabaloop
lea		data(pc),a5
move.w		#35,d7
drawloop:
lea		$70000,a1
clr.l		d0
clr.l		d1
clr.l		d2
clr.l		d3
move.b		(a5)+,d0
add.w		#12,d0
move.b		(a5)+,d1
move.b		(a5)+,d2
add.w		#12,d2
move.b		(a5)+,d3
jsr		-306(a6)
dbra		d7,drawloop
lea		coltab(pc),a0
lea		coltab+80(pc),a1
move.w		#20,d7
loopacg:
move.w		(a0)+,-(a1)
dbra		d7,loopacg
lea		oldirq(pc),a0
move.l		$6c,2(a0)
lea		newirq(pc),a0
move.l		a0,$6c

; ---- the new irq follows right on ----
wait:
; ---- rolling thunder ----
move.w		#21,d7
lea		$7a01a,a0
lea		coltab(pc),a5
move.w		(a5),-8(a0)
loop9:
move.w		#$07,d4
loop5:
move.l		a5,a1
move.w		#15,d6
loop6:
move.w		(a1)+,(a0)
addq.l		#$08,a0
dbra		d6,loop6
dbra		d4,loop5
addq.l		#$02,a5
dbra		d7,loop9
lea		coltab(pc),a0
lea		coltab+2(pc),a1
move.w		#38,d0
move.w		(a0),d1
loop3:
move.w		(a1)+,(a0)+
dbra		d0,loop3
move.w		d1,-(a1)
continue1:
; ---- mouse button, my master ???? ----
notok:
cmp.b		#$40,$dff006
bls.s		notok
btst		#6,$bfe001
bne.s		wait
; ---- stop this great one ----
lea		oldirq+2(pc),a0
move.l		(a0),$6c
;jsr		permit(a6)
lea		gfxname+4(pc),a1
move.l		#" dos",(a1)
movem.l		(a7)+,d0-d7/a0-a6
lea		gfxname+5(pc),a1
jsr		-96(a6)
move.l		d0,a0
move.l		22(a0),a0
clr.l		d0
rts

newirq:
movem.l		d0-d7/a0-a6,-(sp)
lea		$70000,a1
move.w		#$01,d0
clr.w		d1
clr.w		d2
move.w		#180+18,d3
move.w		#351,d4
move.w		#188+18,d5
jsr		scrollraster(a6)
lea		rows(pc),a0
sub.b		#$01,(a0)
bne.s		contiue1
move.b		#9,(a0)
lea		label(pc),a0
eor.b		#$01,(a0)
lea		$70000,a1
move.w		#320,36(a1)
move.w		#187+18,38(a1)
lea		ptr(pc),a2
addq.b		#$01,(a2)
cmp.b		#184,(a2)
bne.s		nogoon
clr.b  		(a2)
nogoon:
lea		scrollmsg(pc),a0
add.w		-1(a2),a0
move.l		#1,d0
jsr		text(a6)
contiue1:
lea	$7a006,a1
lea	label(pc),a0
tst.b (a0)
beq.s	isit
add.w	#46,(a1)
bra.s	notit
isit:
sub.w	#46,(a1)
notit:
movem.l		(sp)+,d0-d7/a0-a6
oldirq:
jmp	$ffffffff

gfxname:
dc.b	"graphics.library",0
ptr:
dc.b	$ff

coltab:
dc.w	 $005,$006,$007,$008,$009,$00a,$00b,$00c,$00d,$00e,$00f
dc.w	 $50f,$60f,$70f,$80f,$90f,$a0f,$b0f,$c0f,$d0f,$e0f,$f0f
taba:
dc.l $dc09fffe,$00e2b058,$01800aaf,$de09fffe,$01820fff,$0180086f
dc.l $f609fffe,$0180042f,$f809fffe,$01800000,

data:
blk.b	144,0
rows:
dc.b	1
label:
dc.b	0
scrollmsg:
dc.b	"HQC-of HQC inc present the Game called -- Typhoon -- Special"
dc.b	" Greetings to High Quality Crackings inc. 1987, HQC inc. 198"
dc.b	"7, H.Q.C. 1987, HQC Germany HQC international inc. 87 and HQ"
dc.b    "C   "
b: