home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 573a.lha / AT_copy_v2.22 / Janus / Janus.asm < prev    next >
Encoding:
Assembly Source File  |  1991-06-29  |  4.9 KB  |  301 lines
  1. *******************************************
  2. *
  3. * Link Library für Janus.library aus
  4. *
  5. * Amiga INTERN (DB)
  6. *
  7. *******************************************
  8.  
  9.     XREF    _JanusBase
  10.     XDEF    _AddService
  11.     XDEF    _CallService
  12.     XDEF    _DeleteService
  13.     XDEF    _GetService
  14.     XDEF    _ReleaseService
  15.     XDEF    _UnlockServiceData
  16.     XDEF    _LockServiceData
  17.     XDEF    _AllocJanusMem
  18.     XDEF    _AllocJRemember
  19.     XDEF    _AllocServiceMem
  20.     XDEF    _AttachJRemember
  21.     XDEF    _FreeJanusMem
  22.     XDEF    _FreeJRemember
  23.     XDEF    _FreeServiceMem
  24.     XDEF    _GetJanusStart
  25.     XDEF    _JanusMemBase
  26.     XDEF    _JanusMemToOffset
  27.     XDEF    _JanusMemType
  28.     XDEF    _JanusOffsetToMem
  29.     XDEF    _JBCopy
  30.     XDEF    _JanusLock
  31.     XDEF    _JanusLockAttempt
  32.     XDEF    _JanusUnlock
  33.     XDEF    _MakeBytePtr
  34.     XDEF    _MakeWordPtr
  35.     XDEF    _TranslateJanusPtr
  36.     XDEF    _CheckJanusInt
  37.     XDEF    _CleanupJanusSig
  38.     XDEF    _GetParamOffset
  39.     XDEF    _SendJanusInt
  40.     XDEF    _SetJanusEnable
  41.     XDEF    _SetJanusHandler
  42.     XDEF    _SetJanusRequest
  43.     XDEF    _SetParamOffset
  44.     XDEF    _SetupJanusSig
  45.     CSEG
  46. _AddService:
  47.     move.l    a6,-(a7)
  48.     movea.l    _JanusBase,a6
  49.     move.l    8(a7),a0
  50.     movem.l    12(a7),d0-d5
  51.     jsr    -138(a6)
  52.     movea.l    (a7)+,a6
  53.     rts
  54. _CallService:
  55.     move.l    a6,-(a7)
  56.     movea.l    _JanusBase,a6
  57.     move.l    8(a7),a0
  58.     jsr    -150(a6)
  59.     movea.l    (a7)+,a6
  60.     rts
  61. _DeleteService:
  62.     move.l    a6,-(a7)
  63.     movea.l    _JanusBase,a6
  64.     move.l    8(a7),a0
  65.     jsr    -162(a6)
  66.     movea.l    (a7)+,a6
  67.     rts
  68. _GetService:
  69.     move.l    a6,-(a7)
  70.     movea.l    _JanusBase,a6
  71.     move.l    8(a7),a0
  72.     movem.l    12(a7),d0-d3
  73.     jsr    -144(a6)
  74.     movea.l    (a7)+,a6
  75.     rts
  76. _ReleaseService:
  77.     move.l    a6,-(a7)
  78.     movea.l    _JanusBase,a6
  79.     move.l    8(a7),a0
  80.     jsr    -156(a6)
  81.     movea.l    (a7)+,a6
  82.     rts
  83. _UnlockServiceData:
  84.     move.l    a6,-(a7)
  85.     movea.l    _JanusBase,a6
  86.     move.l    8(a7),a0
  87.     jsr    -234(a6)
  88.     movea.l    (a7)+,a6
  89.     rts
  90. _LockServiceData:
  91.     move.l    a6,-(a7)
  92.     movea.l    _JanusBase,a6
  93.     move.l    8(a7),a0
  94.     jsr    -228(a6)
  95.     movea.l    (a7)+,a6
  96.     rts
  97. _AllocJanusMem:
  98.     move.l    a6,-(a7)
  99.     movea.l    _JanusBase,a6
  100.     movem.l    8(a7),d0-d1
  101.     jsr    -60(a6)
  102.     movea.l    (a7)+,a6
  103.     rts
  104. _AllocJRemember:
  105.     move.l    a6,-(a7)
  106.     movea.l    _JanusBase,a6
  107.     move.l    8(a7),a0
  108.     movem.l    12(a7),d0-d1
  109.     jsr    -192(a6)
  110.     movea.l    (a7)+,a6
  111.     rts
  112. _AllocServiceMem:
  113.     move.l    a6,-(a7)
  114.     movea.l    _JanusBase,a6
  115.     move.l    8(a7),a0
  116.     movem.l    12(a7),d0-d1
  117.     jsr    -210(a6)
  118.     movea.l    (a7)+,a6
  119.     rts
  120. _AttachJRemember:
  121.     move.l    a6,-(a7)
  122.     movea.l    _JanusBase,a6
  123.     movem.l    8(a7),a0-a1
  124.     jsr    -204(a6)
  125.     movea.l    (a7)+,a6
  126.     rts
  127. _FreeJanusMem:
  128.     move.l    a6,-(a7)
  129.     movea.l    _JanusBase,a6
  130.     move.l    8(a7),a1
  131.     move.l    12(a7),d0
  132.     jsr    -66(a6)
  133.     movea.l    (a7)+,a6
  134.     rts
  135. _FreeJRemember:
  136.     move.l    a6,-(a7)
  137.     movea.l    _JanusBase,a6
  138.     move.l    8(a7),a0
  139.     move.l    12(a7),d0
  140.     jsr    -198(a6)
  141.     movea.l    (a7)+,a6
  142.     rts
  143. _FreeServiceMem:
  144.     move.l    a6,-(a7)
  145.     movea.l    _JanusBase,a6
  146.     movem.l    8(a7),a0-a1
  147.     jsr    -216(a6)
  148.     movea.l    (a7)+,a6
  149.     rts
  150. _GetJanusStart:
  151.     move.l    a6,-(a7)
  152.     movea.l    _JanusBase,a6
  153.     jsr    -102(a6)
  154.     movea.l    (a7)+,a6
  155.     rts
  156. _JanusMemBase:
  157.     move.l    a6,-(a7)
  158.     movea.l    _JanusBase,a6
  159.     move.l    8(a7),d0
  160.     jsr    -72(a6)
  161.     movea.l    (a7)+,a6
  162.     rts
  163. _JanusMemToOffset:
  164.     move.l    a6,-(a7)
  165.     movea.l    _JanusBase,a6
  166.     move.l    8(a7),d0
  167.     jsr    -84(a6)
  168.     movea.l    (a7)+,a6
  169.     rts
  170. _JanusMemType:
  171.     move.l    a6,-(a7)
  172.     movea.l    _JanusBase,a6
  173.     move.l    8(a7),d0
  174.     jsr    -78(a6)
  175.     movea.l    (a7)+,a6
  176.     rts
  177. _JanusOffsetToMem:
  178.     move.l    a6,-(a7)
  179.     movea.l    _JanusBase,a6
  180.     movem.l    8(a7),d0-d1
  181.     jsr    -168(a6)
  182.     movea.l    (a7)+,a6
  183.     rts
  184. _JBCopy:
  185.     move.l    a6,-(a7)
  186.     movea.l    _JanusBase,a6
  187.     movem.l    8(a7),a0-a1
  188.     move.l    16(a7),d0
  189.     jsr    -132(a6)
  190.     movea.l    (a7)+,a6
  191.     rts
  192. _JanusLock:
  193.     move.l    a6,-(a7)
  194.     movea.l    _JanusBase,a6
  195.     move.l    8(a7),a0
  196.     jsr    -120(a6)
  197.     movea.l    (a7)+,a6
  198.     rts
  199. _JanusLockAttempt:
  200.     move.l    a6,-(a7)
  201.     movea.l    _JanusBase,a6
  202.     move.l    8(a7),a0
  203.     jsr    -222(a6)
  204.     movea.l    (a7)+,a6
  205.     rts
  206. _JanusUnlock:
  207.     move.l    a6,-(a7)
  208.     movea.l    _JanusBase,a6
  209.     move.l    8(a7),a0
  210.     jsr    -126(a6)
  211.     movea.l    (a7)+,a6
  212.     rts
  213. _MakeBytePtr:
  214.     move.l    a6,-(a7)
  215.     movea.l    _JanusBase,a6
  216.     move.l    8(a7),a0
  217.     jsr    -180(a6)
  218.     movea.l    (a7)+,a6
  219.     rts
  220. _MakeWordPtr:
  221.     move.l    a6,-(a7)
  222.     movea.l    _JanusBase,a6
  223.     move.l    8(a7),a0
  224.     jsr    -186(a6)
  225.     movea.l    (a7)+,a6
  226.     rts
  227. _TranslateJanusPtr:
  228.     move.l    a6,-(a7)
  229.     movea.l    _JanusBase,a6
  230.     move.l    8(a7),a0
  231.     move.l    12(a7),d0
  232.     jsr    -174(a6)
  233.     movea.l    (a7)+,a6
  234.     rts
  235. _CheckJanusInt:
  236.     move.l    a6,-(a7)
  237.     movea.l    _JanusBase,a6
  238.     move.l    8(a7),d0
  239.     jsr    -54(a6)
  240.     movea.l    (a7)+,a6
  241.     rts
  242. _CleanupJanusSig:
  243.     move.l    a6,-(a7)
  244.     movea.l    _JanusBase,a6
  245.     move.l    8(a7),a0
  246.     jsr    -114(a6)
  247.     movea.l    (a7)+,a6
  248.     rts
  249. _GetParamOffset:
  250.     move.l    a6,-(a7)
  251.     movea.l    _JanusBase,a6
  252.     move.l    8(a7),d0
  253.     jsr    -90(a6)
  254.     movea.l    (a7)+,a6
  255.     rts
  256. _SendJanusInt:
  257.     move.l    a6,-(a7)
  258.     movea.l    _JanusBase,a6
  259.     move.l    8(a7),d0
  260.     jsr    -48(a6)
  261.     movea.l    (a7)+,a6
  262.     rts
  263. _SetJanusEnable:
  264.     move.l    a6,-(a7)
  265.     movea.l    _JanusBase,a6
  266.     movem.l    8(a7),d0-d1
  267.     jsr    -36(a6)
  268.     movea.l    (a7)+,a6
  269.     rts
  270. _SetJanusHandler:
  271.     move.l    a6,-(a7)
  272.     movea.l    _JanusBase,a6
  273.     move.l    8(a7),d0
  274.     move.l    12(a7),a1
  275.     jsr    -30(a6)
  276.     movea.l    (a7)+,a6
  277.     rts
  278. _SetJanusRequest:
  279.     move.l    a6,-(a7)
  280.     movea.l    _JanusBase,a6
  281.     movem.l    8(a7),d0-d1
  282.     jsr    -42(a6)
  283.     movea.l    (a7)+,a6
  284.     rts
  285. _SetParamOffset:
  286.     move.l    a6,-(a7)
  287.     movea.l    _JanusBase,a6
  288.     movem.l    8(a7),d0-d1
  289.     jsr    -96(a6)
  290.     movea.l    (a7)+,a6
  291.     rts
  292. _SetupJanusSig:
  293.     move.l    a6,-(a7)
  294.     movea.l    _JanusBase,a6
  295.     move.l    8(a7),a0
  296.     movem.l    12(a7),d0-d3
  297.     jsr    -108(a6)
  298.     movea.l    (a7)+,a6
  299.     rts
  300.     end
  301.