home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Caml Light 0.61 / Source / src / appli / ui.a < prev    next >
Encoding:
Text File  |  1992-09-02  |  303 b   |  16 lines  |  [TEXT/MPS ]
  1. AsmClikLoop    PROC        EXPORT
  2.             IMPORT        GETOLDCLIKLOOP
  3.             IMPORT        CLIKLOOP
  4.             MOVEM.L        D1-D2/A1,-(SP)
  5.             CLR.L        -(SP)
  6.             JSR            GETOLDCLIKLOOP
  7.             MOVEA.L        (SP)+,A0
  8.             MOVEM.L        (SP)+,D1-D2/A1
  9.             JSR            (A0)
  10.             MOVEM.L        D1-D2/A1,-(SP)
  11.             JSR            CLIKLOOP
  12.             MOVEM.L        (SP)+,D1-D2/A1
  13.             MOVEQ        #1,D0
  14.             RTS
  15.             END 
  16.