; 
; LISTING 4
;          ---------------------     
;          B O O T R O U T I N E     
;          ---------------------     

org	 $4000c               ; Spezifischer Seka OpCODE,fuer
load	 $4000c               ; absolutes Laden nach Adressen
move.w	 #$0002,28(a1)
clr.l	 44(a1)
move.l	 #$40000,40(a1)       ; Absolute Adresse mit 40-Distanz 
                              ; nach A1
move.l	 #10240,36(a1)             
move.l	 4,a6                 ; Execbase(4)nach A6 
jsr	 -456(a6)             ; DOIO Aufruf
jmp	 $40036.L             ; nach $40036 springen hier liegt 
                              ; das Programm.
PRGanfang:
;*****************************; Hier faengt das Bootprogramm an
START:
movem.l  d0-d7/a0-a6,-(sp)    ; Register auf StackPointer rette
nichts:                       ; Als Bootprogrammm dient hier eine
btst  #$6,$bfe001             ; einfache Maustastenabrage:Wartet bis
bne.s nichts                  ; linke M-Taste gedrueckt:ausprobieren.
;******************************
ENDE:
lea      Graphlib+4(pc),a1
move.l	 #" dos",(a1)
movem.l	 (sp)+,d0-d7/a0-a6    ; Register von StackPointer holen
lea	 Graphlib+5(pc),a1
jsr	 -96(a6)              ; FindResident
move.l	 d0,a0                ; Ergebnis nach A0
move.l	 22(a0),a0
clr.l	 d0
rts                           ; Ausstieg aus Programm weiterbooten

GraphLib:   dc.b 	"graphics.library",0 ;Name fuerGraphics-Libr.