Output:         equ     $42
Write:          equ     $fa

  move.b #Output,d0   ; Vektor-Nummer für die Funktion Output()
  ext.w  d0           ; vorzeichenbehaftete Nummer auf
  ext.l  d0           ; Longword erweitern
  lsl    #2,d0        ; umwandeln in Offset
  move.l (a2,d0),a4   ; Sprungadresse besorgen
  moveq  #$c,d0       ; Standardwert
  jsr (a5)            ; Funktion Output() aufrufen
  move.l d0,d1        ; Parameter für Write(): Filehandle nach d1,
  move.l #Text,d2         ; Adresse des Textes nach d2 und
  move.l #TextLength,d3   ; Länge nach d3
  move.b #Write,d0        ; Vektor-Nummer für Write()
  ext.w  d0
  ext.l  d0
  lsl    #2,d0
  move.l (a2,d0),a4
  moveq  #$c,d0
  jsr (a5)            ; Funktion Write() aufrufen
  rts

Text:  dc.b    "Die Ausgabe dieses Textes erfolgte ohne "
       dc.b    "das Öffnen der Dos-Library.",10,13
TextLength:     equ     *-Text