OUTPUT  RAM:Test

PutBSTR EQU     $49*4                   ; GLV-Offset für BSTR ausgeben


MAIN    MOVEA.L PutBSTR(A2),A4          ; Funktionsvector lesen
        MOVEQ   #$0C,D0
        LEA     String(PC),A0           ; Text-Adresse              * s.u.
        MOVE.L  A0,D1                   ; nach D1                   * s.u.
        LSR.L   #2,D1                   ; in BPTR wandeln
        JMP     (A5)                    ; Text ausgeben und Schluß

        CNOP    0,4                     ; unbedingt wichtig !
String  dc.b    12                      ; BSTR, Länge des Textes
        dc.b    'Hello World',10

        END


* Statt

        LEA     String(PC),A0    (4 Bytes)
        MOVE.L  A0,D1            (2 Bytes)

kann man auch

        MOVE.L  #String,D1       (6 Bytes)

schreiben. Beide Methoden belegen die gleiche Anzahl von Bytes. Bei der
zweiten Variante kommt im LoadFile (auf Disk) aber noch ein Reloc32-hunk
hinzu, der das File um 16 Bytes verlängert.