custom   =      $dff000
cop1lch  =      $80
copjmp1  =      $88
diwstrt  =      $8e
diwstop  =      $90
ddfstrt  =      $92
ddfstop  =      $94
dmacon   =      $96
intena   =      $9a
bplcon0  =      $100
bplcon1  =      $102
bpl1mod  =      $108
color0   =      $180
color1   =      $182
Move     = 	-$f0
DoIO     = 	-$1c8
Text     =	-$3c
OpenLibrary = 	-$228
InitRastPort=	-$c6
start:
         movem.l  d0-d7/a2-a6,-(sp)	;Registers saven
         move.w   #9,$1c(a1)
         clr.l    $24(a1)
         move.l   4,a6
         jsr      DoIO(a6) 	;Drive uitzetten
         bsr.l    bootprog
	 move.w	  #$00f0,color0(a5)
         movem.l  (a7)+,d0-d7/a2-a6	;registers terug geven
         move.l   4,a6
         lea      DosName(pc),a1
         jsr      -$60(a6)
         move.l   d0,a0
         move.l   $16(a0),a0
         moveq    #0,d0
         rts			;terug naar amiga dos
DosName:
	 dc.b	'dos.library',0
bootprog:

;POWER led aan/uit
lea	custom,a5
move.w	#$000f,color0(a5)
knipper:
bchg	#1,$bfe001
move.l	#15,d0
bsr.s	wacht
bra	knipper
rts

einde:
	 rts

wacht:
         add.w    d0,d0
loop1:   cmpi.b   #0,6(a5)
         bne.s    loop1
loop2:   cmpi.b   #0,6(a5)
         beq.s    loop2
  	 btst	  #6,$bfe001	;Rechter muis knop ingedrukt ?
	 beq	  break   	;Ja, stop
         dbf      d0,loop1
         rts
break:
	 move.l	  (sp)+,d0	;terugkeeradres van stack afhalen
	 rts
Copperl:
         dc.w     $00E0,$0001   ; Move $0007 naar BL1PTH
         dc.w     $00E2,$C900   ; Move $C900 naar BL1PTL

         dc.w     $7107,$fffe,$0180,$0d51
         dc.w     $7507,$fffe,$0180,$0800
         dc.w     $8607,$fffe,$0180,$0d51
         dc.w     $8a07,$fffe,$0180,$0000
         dc.w     $ffff,$fffe

GraphicsName:
         dc.b     'graphics.library',0,0

;  x pos, length,  string, wacht tijdens, wacht na;
Tekst:
         dc.b     $00,$20,'Something wonderful has happened',$d2,$aa
  	 dc.b     $10,$1d,'half of the amiga owners.....',$d2,$aa
	 dc.b	  $58,$0e,'just died !!!!',$d2,$aa  
         dc.b     $1d,$1a,'SCA is no longer alive !!!',$BE,$a0
         dc.b     $32,$16,'Another masterpiece of',$82,$32
         dc.b     $62,$0a,'A.Nonymous',$dc,$6e,0,0

         END