home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / e / makeefile.lha / MakeEFile_and_src / Examples / PModules / argarray / args.debug < prev    next >
Encoding:
Text File  |  1994-04-19  |  3.0 KB  |  184 lines
  1.  
  2. _ArgArrayInit
  3. L3BA8E0    movem.l    d5-7/a2-3,-(sp)
  4.     move.l    $18(sp),d7
  5.     movea.l    $1C(sp),a3
  6.     suba.l    a2,a2
  7.     tst.l    d7
  8.     beq.s    L3BA940
  9.     moveq    #1,d0
  10.     cmp.l    d0,d7
  11.     bne.s    L3BA8FC
  12.     moveq    #0,d0
  13.     bra.s    L3BA95E
  14. L3BA8FC    move.l    d7,d0
  15.     asl.l    #2,d0
  16.     move.l    d0,_CXLIB_argarray_size
  17.     move.l    #$10000,-(sp)
  18.     move.l    d0,-(sp)
  19.     jsr    L3BAA52(pc)
  20.     addq.w    #8,sp
  21.     move.l    d0,_CXLIB_argarray
  22.     beq.s    L3BA95E
  23.     moveq    #0,d6
  24.     subq.l    #1,d7
  25.     moveq    #0,d5
  26.     bra.s    L3BA934
  27. L3BA924    movea.l    _CXLIB_argarray,a0
  28.     adda.l    d5,a0
  29.     move.l    4(a3,d5.l),(a0)
  30.     addq.l    #1,d6
  31.     addq.l    #4,d5
  32. L3BA934    cmp.l    d7,d6
  33.     bcs.s    L3BA924
  34.     move.l    _CXLIB_argarray,d0
  35.     bra.s    L3BA95E
  36. L3BA940    movea.l    $24(a3),a0
  37.     move.l    4(a0),-(sp)
  38.     jsr    L3BAA58(pc)
  39.     addq.w    #4,sp
  40.     move.l    d0,L312D54
  41.     beq.s    L3BA95C
  42.     movea.l    d0,a0
  43.     movea.l    $36(a0),a2
  44. L3BA95C    move.l    a2,d0
  45. L3BA95E    movem.l    (sp)+,d5-7/a2-3
  46.     rts
  47. _ArgArrayDone
  48. L3BA964    tst.l    _CXLIB_argarray
  49.     beq.s    L3BA978
  50.     move.l    _CXLIB_argarray,-(sp)
  51.     jsr    L3BAA5E(pc)
  52.     addq.w    #4,sp
  53. L3BA978    move.l    L312D54,d0
  54.     beq.s    L3BA988
  55.     move.l    d0,-(sp)
  56.     jsr    L3BAA4C(pc)
  57.     addq.w    #4,sp
  58. L3BA988    rts
  59. _ArgString
  60. L3BA98A    link    a5,#0
  61.     movem.l    a2-3,-(sp)
  62.     movea.l    8(a5),a3
  63.     movea.l    $C(a5),a2
  64.     move.l    a3,d0
  65.     beq.s    L3BA9B2
  66.     move.l    a2,-(sp)
  67.     move.l    a3,-(sp)
  68.     jsr    L3BAA40(pc)
  69.     addq.w    #8,sp
  70.     movea.l    d0,a3
  71.     move.l    a3,d0
  72.     beq.s    L3BA9B2
  73.     move.l    a3,d0
  74.     bra.s    L3BA9B6
  75. L3BA9B2    move.l    $10(a5),d0
  76. L3BA9B6    movem.l    (sp)+,a2-a3
  77.     unlk    a5
  78.     rts
  79. _ArgInt
  80. L3BA9BE    link    a5,#0
  81.     movem.l    a2-3,-(sp)
  82.     movea.l    8(a5),a3
  83.     movea.l    $C(a5),a2
  84.     move.l    a3,d0
  85.     beq.s    L3BA9EE
  86.     move.l    a2,-(sp)
  87.     move.l    a3,-(sp)
  88.     jsr    L3BAA40(pc)
  89.     addq.w    #8,sp
  90.     movea.l    d0,a3
  91.     move.l    a3,d0
  92.     beq.s    L3BA9EE
  93.     pea    $10(a5)
  94.     move.l    a3,-(sp)
  95.     jsr    L3BAA46(pc)
  96.     addq.w    #8,sp
  97. L3BA9EE    move.l    $10(a5),d0
  98.     movem.l    (sp)+,a2-a3
  99.     unlk    a5
  100.     rts
  101. _UserFilter
  102. L3BA9FA    link    a5,#-4
  103.     movem.l    a2-3/a6,-(sp)
  104.     movea.l    8(a5),a3
  105.     suba.l    a2,a2
  106.     move.l    a3,d0
  107.     beq.s    L3BAA1A
  108.     move.l    $C(a5),-(sp)
  109.     move.l    a3,-(sp)
  110.     jsr    L3BAA40(pc)
  111.     addq.w    #8,sp
  112.     movea.l    d0,a2
  113. L3BAA1A    move.l    a2,d0
  114.     beq.s    L3BAA22
  115.     movea.l    a2,a0
  116.     bra.s    L3BAA26
  117. L3BAA22    movea.l    $10(a5),a0
  118. L3BAA26    move.l    a6,-(sp)
  119.     moveq    #1,d0
  120.     suba.l    a1,a1
  121.     movea.l    _CxBase,a6
  122.     jsr    -$1E(a6)
  123.     movea.l    (sp)+,a6
  124.     movem.l    (sp)+,a2-3/a6
  125.     unlk    a5
  126.     rts
  127. L3BAA40    jmp    _FindToolType
  128. L3BAA46    jmp    _StrToLong
  129. L3BAA4C    jmp    _FreeDiskObject
  130. L3BAA52    jmp    _AllocVec
  131. L3BAA58    jmp    _GetDiskObject
  132. L3BAA5E    jmp    _FreeVec
  133.  
  134. _StrToLong
  135. L3B8F50    movem.l    d2/a6,-(sp)
  136.     movea.l    _DOSBase,a6
  137.     movem.l    $C(sp),d1-2
  138.     jsr    -$330(a6)
  139.     movem.l    (sp)+,d2/a6
  140.     rts
  141. _AllocVec
  142. L3B8F78    move.l    a6,-(sp)
  143.     movea.l    4.w,a6
  144.     movem.l    8(sp),d0-1
  145.     jsr    -$2AC(a6)
  146.     movea.l    (sp)+,a6
  147.     rts
  148. _FreeVec
  149. L3B8F90    move.l    a6,-(sp)
  150.     movea.l    4.w,a6
  151.     movea.l    8(sp),a1
  152.     jsr    -$2B2(a6)
  153.     movea.l    (sp)+,a6
  154.     rts
  155. _FindToolType
  156. L3B8FB0    move.l    a6,-(sp)
  157.     movea.l    _IconBase,a6
  158.     movem.l    8(sp),a0-1
  159.     jsr    -$60(a6)
  160.     movea.l    (sp)+,a6
  161.     rts
  162. _FreeDiskObject
  163. L3B8FC8    move.l    a6,-(sp)
  164.     movea.l    _IconBase,a6
  165.     movea.l    8(sp),a0
  166.     jsr    -$5A(a6)
  167.     movea.l    (sp)+,a6
  168.     rts
  169. _GetDiskObject
  170. L3B8FDC    move.l    a6,-(sp)
  171.     movea.l    _IconBase,a6
  172.     movea.l    8(sp),a0
  173.     jsr    -$4E(a6)
  174.     movea.l    (sp)+,a6
  175.     rts
  176.  
  177. _CXLIB_argarray_size
  178. L312E18    dc.l 0
  179.  
  180. _CXLIB_argarray
  181. L312D50    dc.l 0
  182. L312D54    dc.l 0
  183.  
  184.