* Assembler-Modul zur Ueberfuehrung einer ASCII-Datei *
* Datei ab $A0000, Ende wenn 00, Assembler-Modul zu ASCIRTOS *
       DC.L   0,0
       DC     $10
       DC.B   'INN1  '
>ASIN: V0
       MOVEM.L A1/A2,-(A7)
       LEA    >BUF+$6,A1
* an die Adresse A0000 muss das ASCII-File zuvor geladen werden;
* falls der Ausbau kleiner als 1 MB ist, muss die Adresse in
* Zeile 12 entsprechend geaendert werden.
       LEA    $A0000,A2
AN1:   MOVE.B (A2)+,(A1)
       ADDQ   =1,>J
       TST.B  (A1)+
       BNE    AN1
       MOVE.B =04,-(A1)
       MOVEM.L (A7)+,A1/A2
       JMP    2(A0)
       END