gfxb=$7ff00
count=$7ff04
baba=$7ff08
charp=$7ff0c
oldcop=$7ff10
intrpt=$7ff14
count2=$7ff18

rastport=$7fe00
bitmap=$7fea0

;org $40000
;load $40000

beg:
movem.l a6/a5/a4/a3/a2/a1/a0/d7/d6/d5/d4/d3/d2/d1/d0,-(A7)
move.l #scrolly,charp			; Where scrolly resides
move.l $000004,a6
lea    glib,a1
jsr    -408(a6)
move.l d0,a6
move.l a6,gfxbase

lea	bitmap,a0
moveq	#1,d0
moveq	#8,d1
moveq	#8,d2
jsr	-390(a6)			; InitBitmap

lea	bitmap,a0
move.l	#work,8(a0)

lea	rastport,a1
jsr	-198(a6)			; InitRastPort

lea	bitmap,a0
move.l	a0,rastport+4			; struct BitMap *bitmap

move.b #1,count2
move.b #$08,count
lea    $48000,a0
moveq  #$7f,d0
clrmem:
clr.l  (a0)+
dbf    d0,clrmem
move.w #$8380,$dff096
move.w #$0020,$dff096
move.w #$4000,$dff09a
chkbtn:
btst   #6,$bfe001
beq    pressed
cmpi.b #228,$dff006
bne.s  chkbtn
move.l #copl,$dff080
lea    $dff000,a0
clr.l  $120(a0)
clr.w  $102(a0)
move.l #$c9f00000,$40(a0)
move.l #$ffffffff,$44(a0)
move.l #$00048000,$50(a0)
move.l #$00047ffe,$54(a0)
clr.l  $64(a0)
move.w #$1018,$58(a0)
wtbl:
btst   #$e,$dff002
bne.s  wtbl
move.l #$c9f00000,$40(a0)
move.l #$ffffffff,$44(a0)
move.l #$00049000,$50(a0)
move.l #$00048ffe,$54(a0)
clr.l  $64(a0)
move.w #$1018,$58(a0)
wtbl2:
btst   #$e,$dff002
bne.s  wtbl2
subq.b #$04,count
bne.L  endint
move.b #$08,count
scroll:
subq.b #$01,count2
bne.s  nonewchar
lea	rastport,a1
moveq	#8,d0
moveq	#6,d1
jsr	-240(a6)			; Move (0,0)
move.l charp,a0
moveq  #1,d0
lea    rastport,a1
move.l gfxbase,a6
jsr	-60(a6)				; Fix char into workarea
addq.l	#1,charp
move.l	charp,a0
tst.b	(a0)
bne.s	noend
move.l	#scrolly,charp
noend:
move.b #8,count2
move.b #8,count
nonewchar:
lea	work,a0
lea	$48000+47,a1
lea	$49000+47,a2
moveq	#7,d5
loop1:
roxl.b	#1,(a0)
bcc.s	clearit

lea	char,a3				; A Set point
lea	char+8,a4
moveq	#7,d4
clp:
move.b	(a3)+,(a1)
move.b	(a4)+,(a2)
add.l	#48,a1
add.l	#48,a2
dbf	d4,clp
bra.s	skipit

clearit:

moveq	#7,d4
cllp:
clr.b	(a1)
clr.b	(a2)
add.l	#48,a1
add.l	#48,a2
dbf	d4,cllp

skipit:
addq.l	#2,a0
dbf	d5,loop1

endint:
cmp.w	#2,z1
bne	wei1
lea	wave+2,a2
lea	wave+10,a4
move.w	(a2),d6
moveq	#54,d5
tlp:
move.w	(a4),(a2)
addq.l	#8,a2
addq.l	#8,a4
dbf	d5,tlp
move.w	d6,(a2)
clr.w	z1
wei1:
add.w	#1,z1

bra    chkbtn
pressed:
move.w #$8020,$dff096
move.w #$c000,$dff09a
move.l	gfxbase,a6
move.l $26(a6),$dff080
movem.l (a7)+,a6/a5/a4/a3/a2/a1/a0/d7/d6/d5/d4/d3/d2/d1/d0
rts
even
z1: dc.w 0
gfxbase:dc.l 0
copl:
dc.w $008e,$6080,$0090,$9fe0,$0180,$0000
dc.w $0092,$0028,$00e0,$0004,$00e2,$8000
dc.w $00e4,$0004,$00e6,$9000,$010a,$0002
dc.w $0182,$000a,$0184,$055e,$0186,$0fff
dc.w $0094,$00d8,$0108,$0002
dc.w $0104,$0010,$0100,$2200
wave:
dc.w $0180,$0011,$2201,$ff00
dc.w $0180,$0022,$2401,$ff00
dc.w $0180,$0033,$2601,$ff00
dc.w $0180,$0044,$2801,$ff00
dc.w $0180,$0055,$2a01,$ff00
dc.w $0180,$0066,$2c01,$ff00
dc.w $0180,$0077,$2e01,$ff00
dc.w $0180,$0088,$4001,$ff00
dc.w $0180,$0099,$4201,$ff00
dc.w $0180,$00aa,$4401,$ff00
dc.w $0180,$00bb,$4601,$ff00
dc.w $0180,$00cc,$4801,$ff00
dc.w $0180,$00dd,$4a01,$ff00
dc.w $0180,$00ee,$4c01,$ff00
dc.w $0180,$00ff,$4e01,$ff00
dc.w $0180,$00ff,$6001,$ff00
dc.w $0180,$00ee,$6201,$ff00
dc.w $0180,$00dd,$6401,$ff00
dc.w $0180,$00cc,$6601,$ff00
dc.w $0180,$00bb,$6801,$ff00
dc.w $0180,$00aa,$6a01,$ff00
dc.w $0180,$0099,$6c01,$ff00
dc.w $0180,$0088,$6e01,$ff00
dc.w $0180,$0077,$8001,$ff00
dc.w $0180,$0066,$8201,$ff00
dc.w $0180,$0055,$8401,$ff00
dc.w $0180,$0044,$8601,$ff00
dc.w $0180,$0033,$8801,$ff00
dc.w $0180,$0022,$8a01,$ff00
dc.w $0180,$0011,$8c01,$ff00
dc.w $0180,$0000,$8e01,$ff00
dc.w $0180,$0000,$a001,$ff00
dc.w $0180,$0110,$a201,$ff00
dc.w $0180,$0220,$a401,$ff00
dc.w $0180,$0330,$a601,$ff00
dc.w $0180,$0440,$a801,$ff00
dc.w $0180,$0550,$aa01,$ff00
dc.w $0180,$0660,$ac01,$ff00
dc.w $0180,$0770,$ae01,$ff00
dc.w $0180,$0880,$c001,$ff00
dc.w $0180,$0990,$c201,$ff00
dc.w $0180,$0aa0,$c401,$ff00
dc.w $0180,$0bb0,$c601,$ff00
dc.w $0180,$0cc0,$c801,$ff00
dc.w $0180,$0dd0,$ca01,$ff00
dc.w $0180,$0ee0,$cc01,$ff00
dc.w $0180,$0ff0,$ce01,$ff00
dc.w $0180,$0ff0,$e001,$ff00
dc.w $0180,$0ee0,$e201,$ff00
dc.w $0180,$0cc0,$e401,$ff00
dc.w $0180,$0aa0,$e601,$ff00
dc.w $0180,$0880,$e801,$ff00
dc.w $0180,$0660,$ea01,$ff00
dc.w $0180,$0440,$ec01,$ff00
dc.w $0180,$0220,$ee01,$ff00
dc.w $0180,$0000
dc.w $ffdf,$fffe,$0001,$ff00
dc.w $0180,$0066,$0201,$ff00
dc.w $0180,$0055,$0401,$ff00
dc.w $0180,$0044,$0601,$ff00
dc.w $0180,$0033,$0801,$ff00
dc.w $0180,$0022,$0a01,$ff00
dc.w $0180,$0011,$0c01,$ff00
dc.w $0180,$0000,$0e01,$ff00
dc.w $0180,$0000
dc.w $fffe,$fffe
glib:
dc "graphics.library",0
eo:

scrolly:
dc "THE FOG PRESENTS A SMALL BOOT-INTRO IN 1989 ",0

char:
dc.b %11111111
dc.b %10000001
dc.b %10000001
dc.b %10000001
dc.b %10000001
dc.b %10000001
dc.b %10000001
dc.b %11111111

dc.b %11111111
dc.b %11111110
dc.b %11111110
dc.b %11111110
dc.b %11111110
dc.b %11111110
dc.b %11111110
dc.b %10000000,0
end:
even
work:blk.w	8,0