jmp copy
start:
 lea grafname(pc),a1
 move.l $4,a6
 jsr -408(a6)
 move.l d0,a0
 move.l d0,gfxbase
 adda.l #$32,a0
 move.l (a0),oldcopper
 move.l $4,a6
 move.l d0,a1
 jsr -414(a6)
 clr.l d0
 clr.l d1
 move.l #$0,a1
 move.l #$0,a6
 lea $63000,a0
 move.b #$1e,d0
loop1:
 move.b d0,120(a0)
 addq.b #1,d0
 move.b d0,48(a0)
 addq.b #2,d0
 move.b d0,96(a0)
 addq.b #1,d0
 move.b d0,24(a0)
 addq.b #2,d0
 move.b d0,72(a0)
 addq.b #1,d0
 move.b d0,(a0)+
 addi.b #$04,d0
 cmpi.b #$f0,d0
 bcs loop1
 lea $60504,a0
 lea $fca000,a1
 lea $64100,a2
 move.l #$13,d5
loop2:
 move.b 64(a1),100(a2)
 move.b -32(a1),80(a2)
 move.b 0(a1,d0.w),60(a2)
 move.b 832(a1),40(a2)
 move.b -512(a1),20(a2)
 move.b (a1)+,(a2)+
 bset #5,2560(a0)
 bset #2,1280(a0)
 bset #5,2(a0)
 bset #4,6400(a0)
 bset #1,5120(a0)
 bset #4,3842(a0)
 addq.l #8,a0
 dbf d5,loop2
 lea copper2(pc),a0
 move.b #$90,d0
 move.b #$a5,d1
 move.w #$00c0,d2
 move.b #$10,d3
 bsr jump1
 move.l #$fffffffe,(a0)+
 lea copper(pc),a0
 move.l a0,$dff080
 move.w $dff088,d0
 move.w #$83e0,$dff096
 move.w #$0018,$dff09a
 move.l $4,a6
 jsr -132(a6)
 lea grafname,a1
 jsr -408(a6)
 move.l d0,a6
 move.l 50(a6),a3
 lea $5f000,a0
 moveq #$01,d0
 move.l #$148,d1
 move.l #$c8,d2
 jsr -390(a6)
 move.b #$05,$5f009
 lea $5e000,a1
 jsr -198(a6)
 move.l #$5f000,$5e004
 lea $5e000,a1
 moveq #$01,d0
 jsr -342(a6)
vposr:
 cmpi.b #$ff,$dff006
 bne vposr 
 bra mouse
cont:
 moveq #$01,d7
 lea $60500,a0
 lea $64100,a1
 lea $63000,a2
 bsr wot
 bsr wot
 addq.l #1,d7
 bsr wot
 bsr wot
 addq.l #1,d7
 bsr wot
 bsr wot
 addi.b #$01,d6
 cmpi.b #$05,d6
 bcs scroll
 clr.b d6
 adda.l #$01,a4
 cmpi.b #$00,(a4)
 bne skip
 lea sctext,a4
skip: lea $5e000,a1
 move.l #$13f,d0
 move.l #$6b,d1
 moveq #$01,d3
 move.l a4,a0
 bsr move
scroll:
 lea $5e000,a1
 moveq #$02,d0
 clr.l d1
 clr.l d2
 move.l #$64,d3
 move.l #$148,d4
 move.l #$78,d5
 jsr -396(a6)
 bra vposr
move: 
 lea $5e000,a1
 jsr -240(a6)
 lea $5e000,a1
 move.l d3,d0
 jsr -60(a6)
 rts
jump1: 
 bsr wot1
 move.w #$ffd8,(a0)+
 move.w #$0182,(a0)+
 move.w d2,(a0)+
 sub.b d3,d2
 bsr wot1
 move.w #$0002,(a0)+
 cmp d1,d0
 bcs jump1
 move.l #$01080002,(a0)+
 rts
wot1:  move.b d0,(a0)+
 addi.b #$01,d0
 move.b #$01,(a0)+
 move.l #$ff000108,(a0)+
 rts
wot:  move.l #$13,d5
loop3:
 add.b d7,(a1)
 cmpi.b #$dc,(a1)
 bls skip1
 move.b #$2d,(a1)
skip1:
 move.b (a1)+,d0
 move.b (a2)+,d1
 move.l d1,d2
 addq.l #1,d2
 lsl.w #8,d1
 move.b d0,d1
 move.w d1,(a0)
 lsl.w #8,d2
 move.w d2,2(a0)
 addq.l #8,a0
 dbf d5,loop3
 adda.w #$0460,a0
 addq.l #4,a2
 rts

grafname:
 dc.b 'graphics.library',0,0
even
sctext:
 dc.b ' Hi there!!!!  This is the WHIZZY of MATRIX DIVISION'
 dc.b ' presenting you with Super Hang-On, IK+ and Popman on'
 dc.b ' one disk!! This disk was compiled by WHIZZY and this '
 dc.b 'intro was also done by GREML1N!!!!   Members are:-     '
 dc.b '      GREML1N, WHIZZY, MATRIX and U. Kenubi(!?)........  '
 dc.b '    Greetings go to :-                  Barlick Hackers,'
 dc.b ' New Dimension, Fox, Accumulators and any1 else who knows'
 dc.b ' us. Until next time,                     Byyyeeeeeee....'
 dc.b '........',0

copper:
 dc.w $008e,$2c81,$0090,$f4c1
 dc.w $0092,$0038,$0094,$00d0
 dc.w $0100,$1000,$0180,$0000
 dc.w $00e0,$0005,$00e2,$0000
 dc.w $0120,$0006,$0122,$0500
 dc.w $0124,$0006,$0126,$0a00
 dc.w $0128,$0006,$012a,$0f00
 dc.w $012c,$0006,$012e,$1400
 dc.w $0130,$0006,$0132,$1900
 dc.w $0134,$0006,$0136,$1e00
 dc.w $0138,$0005,$013a,$5000
 dc.w $013e,$0005,$013c,$5000
 dc.w $01a2,$0555,$01a4,$0555
 dc.w $01aa,$0888,$01ac,$0888
 dc.w $01b2,$0fff
copper2:
 dc.w $9001,$ff00,$0108,$ffd8,$0182,$00c0,$9101,$ff00,$0108
 dc.w $0002,$9201,$ff00,$0108,$ffd8,$0182,$00b0,$9301
 dc.w $ff00,$0108,$0002,$9401,$ff00,$0108,$ffd8,$0182
 dc.w $00a0,$9501,$ff00,$0108,$0002,$9601,$ff00,$0108
 dc.w $ffd8,$0182,$0090,$9701,$ff00,$0108,$0002,$9801
 dc.w $ff00,$0108,$ffd8,$0182,$0080,$9901,$ff00,$0108
 dc.w $0002,$9a01,$ff00,$0108,$ffd8,$0182,$0070,$9b01
 dc.w $ff00,$0108,$0002,$9c01,$ff00,$0108,$ffd8,$0182
 dc.w $0060,$9d01,$ff00,$0108,$0002,$9e01,$ff00,$0108
 dc.w $ffd8,$0182,$0050,$9f01,$ff00,$0108,$0002,$a001
 dc.w $ff00,$0108,$ffd8,$0182,$0040,$a101,$ff00,$0108
 dc.w $0002,$a201,$ff00,$0108,$ffd8,$0182,$0030,$a301
 dc.w $ff00,$0108,$0002,$a401,$ff00,$0108,$ffd8,$0182
 dc.w $0020,$a501,$ff00,$0108,$0002,$0108,$0002,$ffff,$fffe

copy: move.l #$402af,a4
 move.l #$50000,a0
 move.l #$70000,a1
loop4:
 clr.l (a0)+
 cmpa.l a0,a1
 bne loop4 
 lea start(pc),a0
 move.l #$77000,a1
 move.l #$800,d0
clear:
  move.b (a0)+,(a1)+
 dbf d0,clear
 jmp $77000
mouse: 
 btst #6,$bfe001
 beq fini
 bra cont
fini: 
 move.l gfxbase,a0
 move.l 38(a0),$dff080
 clr.l $dff088
 move.w #$83e0,$dff096
 move.w #$a008,$dff09a
 move.l $4,a6
 move.l gfxbase,a1
 jsr -414(a6)
 move.w #$0020,$dff096
 moveq #$00,d0
 rts

oldcopper: dc.l 0
gfxbase: dc.l 0


Buffer closed
Download successful



     *=*=*=*  MESSAGES *=*=*=*
     *