home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / MIDICOM.LZH / MC_UTILS / MC_LIB / TRAP111.S < prev   
Text File  |  1993-10-07  |  522b  |  15 lines
  1. *function trap111(var msg:msg_typ):integer;
  2.                 export  trap111
  3. trap111:        movea.l 4(SP),A0
  4.                 move.w  14(A0),-(SP)    ;fill
  5.                 move.w  12(A0),-(SP)    ;an
  6.                 move.l  8(A0),-(SP)     ;name
  7.                 move.l  4(A0),-(SP)     ;ptr
  8.                 move.w  2(A0),-(SP)     ;size
  9.                 move.w  (A0),-(SP)      ;what
  10.                 move.w  #111,-(SP)      ;nummer 111
  11.                 trap    #1
  12.                 adda.l  #18,SP
  13.                 rts
  14.                 END
  15.