;
; LISTING 2
 
; 'Find Port' fuer Trackdiskdevice 

;BEMERKUNG: Nicht so abtippen,dient nur als Beispiel!

move.l    4,a6             ; execbase,a6
sub.l     a1,a1            ; Zeiger auf eigenen Task
jsr       -294(a6)         ; FindTask
move.l    d0,Replyport+16  ; Port+16

move.l    4,a6
lea       Replyport,a1     ; Mit Addport Port dem System
jsr       -354(a6)         ; 'hinzufuegen'.
    .
    .
    .
    .
lea       IOstruktur,a1     ;Beispiel an einer DoIO-Anweisung
move.l    #replyport,14(a1)
    .
Commando setzen
Buffer   setzen
Laenge   setzen
Offset setzen
    .
DoIO aufrufen     
    .
lea       replyport,a1   ;Port wider entfernen
jsr       -360(a6)       
replyport:  blk.b 10,0