section "CODE",code
    cnop    0,4
    xdef    _BeginIO
_BeginIO
    move.l  a6,-(a7)
    move.l  8(a7),a1
    move.l  20(a1),a6
    jsr     -30(a6)
    move.l  (a7)+,a6
    rts