home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / util / time / TolleUhr131.lha / TolleUhr / bin / tuloader.s < prev    next >
Text File  |  1995-11-15  |  606b  |  43 lines
  1.  
  2.         include    lvo30/exec_lib.i
  3.  
  4. RECALL        MACRO
  5.         jsr    _LVO\1(a6)
  6.         ENDM
  7.  
  8. main        move.l    4,a6
  9.         lea    LibName(pc),a1
  10.         moveq    #37,d0
  11.         RECALL    OpenLibrary
  12.         move.l    d0,d2
  13.         beq.s    2$
  14.         exg    d2,a6
  15.         jsr    -30(a6)
  16.         move.l    d0,-(sp)
  17.         exg    d2,a6
  18.         move.l    d2,a1
  19.         RECALL    CloseLibrary
  20.         move.l    (sp)+,d0
  21.         rts
  22.  
  23. 2$        suba.l    a1,a1
  24.         RECALL    FindTask
  25.         move.l    d0,a2
  26.         tst.l    172(a2)
  27.         bne.s    1$
  28.         adda.w    #92,a2
  29.         RECALL    Forbid
  30.         move.l    a2,a0
  31.         RECALL    WaitPort
  32.         move.l    a2,a0
  33.         RECALL    GetMsg
  34.         move.l    d0,a1
  35.         RECALL    ReplyMsg
  36. 1$        moveq    #0,d0
  37.         rts
  38.  
  39. LibName        dc.b    'tolleuhr.library',0
  40.         dc.b    '$VER: TolleUhr-Loader 1.0 (15.11.95)',0
  41.  
  42.         end
  43.