move.w #0,-(sp) move.l #fname,-(sp) move.w #$3c,-(sp) trap #1 addq.l #8,sp move.w d0,handle move.l #mem,-(sp) move.l #1000000,-(sp) move.w handle,-(sp) move.w #$40,-(sp) trap #1 add.l #12,sp move.w handle,-(sp) move.w #$3e,-(sp) trap #1 addq.l #4,sp clr.w -(sp) trap #1