home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 446.lha / AztecArp / Sources.LZH / aztecglue.asm < prev    next >
Encoding:
Assembly Source File  |  1990-08-01  |  10.0 KB  |  694 lines
  1. ; General arp.library glue code, built using the MapFD program
  2. ; supplied with Aztec 5.0 and some small hacks to get Printf and its
  3. ; cousins work right though this doesn't imply any guarantee.
  4. ;
  5. ; This code could - as usual - be a lot shorter since I've put all
  6. ; glue routines into one single file instead of creating small single
  7. ; modules to be linked into a big linker lib. I could easily say
  8. ; that this was done for debugging purposes, but the truth is: I'm
  9. ; too lazy. Change anything you want, might as well work with Lattice.
  10. ;
  11. ; Note:    1) Tracked functions are commented out.
  12. ;    2) To enable words for Toupper define INT16 (longs are default)
  13. ;
  14. ; 10-Mar-90:    Olsen did the recreation (yes he did).
  15. ; 31-Jul-90:    Fixed wrong library offsets
  16.  
  17.     xref    _ArpBase
  18.  
  19.     section    text,code    ; Make the asm happy
  20.  
  21. ;    xdef    _ArpAllocMem
  22. ;_ArpAllocMem:
  23. ;    move.l    a6,-(sp)
  24. ;    move.l    _ArpBase,a6
  25. ;    movem.l    8(sp),d0/d1
  26. ;    jsr    -390(a6)
  27. ;    move.l    (sp)+,a6
  28. ;    rts
  29.  
  30. ;    xdef    _ArpAllocFreq
  31. ;_ArpAllocFreq:
  32. ;    move.l    a6,-(sp)
  33. ;    move.l    _ArpBase,a6
  34. ;    jsr    -660(a6)
  35. ;    move.l    (sp)+,a6
  36. ;    rts
  37.  
  38. ;    xdef    _ArpAlloc
  39. ;_ArpAlloc:
  40. ;    move.l    a6,-(sp)
  41. ;    move.l    _ArpBase,a6
  42. ;    move.l    8(sp),d0
  43. ;    jsr    -384(a6)
  44. ;    move.l    (sp)+,a6
  45. ;    rts
  46.  
  47. ;    xdef    _ArpDupLock
  48. ;_ArpDupLock:
  49. ;    move.l    a6,-(sp)
  50. ;    move.l    _ArpBase,a6
  51. ;    move.l    8(sp),d1
  52. ;    jsr    -402(a6)
  53. ;    move.l    (sp)+,a6
  54. ;    rts
  55.  
  56. ;    xdef    _ArpLock
  57. ;_ArpLock:
  58. ;    movem.l    a6/d2,-(sp)
  59. ;    move.l    _ArpBase,a6
  60. ;    movem.l    12(sp),d1/d2
  61. ;    jsr    -408(a6)
  62. ;    movem.l    (sp)+,a6/d2
  63. ;    rts
  64.  
  65. ;    xdef    _ArpOpen
  66. ;_ArpOpen:
  67. ;    movem.l    a6/d2,-(sp)
  68. ;    move.l    _ArpBase,a6
  69. ;    movem.l    12(sp),d1/d2
  70. ;    jsr    -396(a6)
  71. ;    movem.l    (sp)+,a6/d2
  72. ;    rts
  73.  
  74. ;    xdef    _ArpOpenLibrary
  75. ;_ArpOpenLibrary:
  76. ;    move.l    a6,-(sp)
  77. ;    move.l    _ArpBase,a6
  78. ;    move.l    8(sp),a1
  79. ;    move.l    12(sp),d0
  80. ;    jsr    -654(a6)
  81. ;    move.l    (sp)+,a6
  82. ;    rts
  83.  
  84. ;    xdef    _GetTracker
  85. ;_GetTracker:
  86. ;    move.l    a6,-(sp)
  87. ;    move.l    _ArpBase,a6
  88. ;    jsr    -486(a6)
  89. ;    move.l    (sp)+,a6
  90. ;    rts
  91.  
  92. ;    xdef    _RListAlloc
  93. ;_RListAlloc:
  94. ;    move.l    a6,-(sp)
  95. ;    move.l    _ArpBase,a6
  96. ;    move.l    8(sp),a0
  97. ;    move.l    12(sp),d0
  98. ;    jsr    -414(a6)
  99. ;    move.l    (sp)+,a6
  100. ;    rts
  101.  
  102.     xdef    _AddDADevs
  103. _AddDADevs:
  104.     move.l    a6,-(sp)
  105.     move.l    _ArpBase,a6
  106.     move.l    8(sp),a0
  107.     move.l    12(sp),d0
  108.     jsr    -516(a6)
  109.     move.l    (sp)+,a6
  110.     rts
  111.  
  112.     xdef    _AddDANode
  113. _AddDANode:
  114.     move.l    a6,-(sp)
  115.     move.l    _ArpBase,a6
  116.     movem.l    8(sp),a0/a1
  117.     movem.l    16(sp),d0/d1
  118.     jsr    -510(a6)
  119.     move.l    (sp)+,a6
  120.     rts
  121.  
  122.     xdef    _AddResidentPrg
  123. _AddResidentPrg:
  124.     move.l    a6,-(sp)
  125.     move.l    _ArpBase,a6
  126.     movem.l    8(sp),d1/a0
  127.     jsr    -582(a6)
  128.     move.l    (sp)+,a6
  129.     rts
  130.  
  131.     xdef    _ArpExit
  132. _ArpExit:
  133.     movem.l    a6/d2,-(sp)
  134.     move.l    _ArpBase,a6
  135.     movem.l    12(sp),d0/d2
  136.     jsr    -378(a6)
  137.     movem.l    (sp)+,a6/d2
  138.     rts
  139.  
  140.     xdef    _Assign
  141. _Assign:
  142.     move.l    a6,-(sp)
  143.     move.l    _ArpBase,a6
  144.     movem.l    8(sp),a0/a1
  145.     jsr    -336(a6)
  146.     move.l    (sp)+,a6
  147.     rts
  148.  
  149.     xdef    _ASyncRun
  150. _ASyncRun:
  151.     movem.l    a6/a2,-(sp)
  152.     move.l    _ArpBase,a6
  153.     movem.l    12(sp),a0/a1/a2
  154.     jsr    -546(a6)
  155.     movem.l    (sp)+,a6/a2
  156.     rts
  157.  
  158.     xdef    _Atol
  159. _Atol:
  160.     move.l    a6,-(sp)
  161.     move.l    _ArpBase,a6
  162.     move.l    8(sp),a0
  163.     jsr    -258(a6)
  164.     move.l    (sp)+,a6
  165.     rts
  166.  
  167.     xdef    _BaseName
  168. _BaseName:
  169.     move.l    a6,-(sp)
  170.     move.l    _ArpBase,a6
  171.     move.l    8(sp),a0
  172.     jsr    -630(a6)
  173.     move.l    (sp)+,a6
  174.     rts
  175.  
  176.     xdef    _BtoCStr
  177. _BtoCStr:
  178.     move.l    a6,-(sp)
  179.     move.l    _ArpBase,a6
  180.     move.l    8(sp),a0
  181.     movem.l    12(sp),d0/d1
  182.     jsr    -354(a6)
  183.     move.l    (sp)+,a6
  184.     rts
  185.  
  186.     xdef    _CheckAbort
  187. _CheckAbort:
  188.     move.l    a6,-(sp)
  189.     move.l    _ArpBase,a6
  190.     move.l    8(sp),a1
  191.     jsr    -270(a6)
  192.     move.l    (sp)+,a6
  193.     rts
  194.  
  195.     xdef    _CheckBreak
  196. _CheckBreak:
  197.     move.l    a6,-(sp)
  198.     move.l    _ArpBase,a6
  199.     movem.l    8(sp),d1/a1
  200.     jsr    -276(a6)
  201.     move.l    (sp)+,a6
  202.     rts
  203.  
  204.     xdef    _CheckSumPrg
  205. _CheckSumPrg:
  206.     move.l    a6,-(sp)
  207.     move.l    _ArpBase,a6
  208.     move.l    8(sp),d0
  209.     jsr    -618(a6)
  210.     move.l    (sp)+,a6
  211.     rts
  212.  
  213.     xdef    _CloseWindowSafely
  214. _CloseWindowSafely:
  215.     move.l    a6,-(sp)
  216.     move.l    _ArpBase,a6
  217.     movem.l    8(sp),a0/a1
  218.     jsr    -300(a6)
  219.     move.l    (sp)+,a6
  220.     rts
  221.  
  222.     xdef    _CompareLock
  223. _CompareLock:
  224.     move.l    a6,-(sp)
  225.     move.l    _ArpBase,a6
  226.     movem.l    8(sp),d0/d1
  227.     jsr    -456(a6)
  228.     move.l    (sp)+,a6
  229.     rts
  230.  
  231.     xdef    _CreatePort
  232. _CreatePort:
  233.     move.l    a6,-(sp)
  234.     move.l    _ArpBase,a6
  235.     move.l    8(sp),a0
  236.     move.l    12(sp),d0
  237.     jsr    -306(a6)
  238.     move.l    (sp)+,a6
  239.     rts
  240.  
  241.     xdef    _CreateTaskResList
  242. _CreateTaskResList:
  243.     move.l    a6,-(sp)
  244.     move.l    _ArpBase,a6
  245.     jsr    -468(a6)
  246.     move.l    (sp)+,a6
  247.     rts
  248.  
  249.     xdef    _CtoBStr
  250. _CtoBStr:
  251.     move.l    a6,-(sp)
  252.     move.l    _ArpBase,a6
  253.     move.l    8(sp),a0
  254.     movem.l    12(sp),d0/d1
  255.     jsr    -360(a6)
  256.     move.l    (sp)+,a6
  257.     rts
  258.  
  259.     xdef    _DeletePort
  260. _DeletePort:
  261.     move.l    a6,-(sp)
  262.     move.l    _ArpBase,a6
  263.     move.l    8(sp),a1
  264.     jsr    -312(a6)
  265.     move.l    (sp)+,a6
  266.     rts
  267.  
  268.     xdef    _DosAllocMem
  269. _DosAllocMem:
  270.     move.l    a6,-(sp)
  271.     move.l    _ArpBase,a6
  272.     move.l    8(sp),d0
  273.     jsr    -342(a6)
  274.     move.l    (sp)+,a6
  275.     rts
  276.  
  277.     xdef    _DosFreeMem
  278. _DosFreeMem:
  279.     move.l    a6,-(sp)
  280.     move.l    _ArpBase,a6
  281.     move.l    8(sp),a1
  282.     jsr    -348(a6)
  283.     move.l    (sp)+,a6
  284.     rts
  285.  
  286.     xdef    _EscapeString
  287. _EscapeString:
  288.     move.l    a6,-(sp)
  289.     move.l    _ArpBase,a6
  290.     move.l    8(sp),a0
  291.     jsr    -264(a6)
  292.     move.l    (sp)+,a6
  293.     rts
  294.  
  295.     xdef    _FileRequest
  296. _FileRequest:
  297.     move.l    a6,-(sp)
  298.     move.l    _ArpBase,a6
  299.     move.l    8(sp),a0
  300.     jsr    -294(a6)
  301.     move.l    (sp)+,a6
  302.     rts
  303.  
  304.     xdef    _FindCLI
  305. _FindCLI:
  306.     move.l    a6,-(sp)
  307.     move.l    _ArpBase,a6
  308.     move.l    8(sp),d0
  309.     jsr    -420(a6)
  310.     move.l    (sp)+,a6
  311.     rts
  312.  
  313.     xdef    _FindFirst
  314. _FindFirst:
  315.     move.l    a6,-(sp)
  316.     move.l    _ArpBase,a6
  317.     movem.l    8(sp),d0/a0
  318.     jsr    -438(a6)
  319.     move.l    (sp)+,a6
  320.     rts
  321.  
  322.     xdef    _FindNext
  323. _FindNext:
  324.     move.l    a6,-(sp)
  325.     move.l    _ArpBase,a6
  326.     move.l    8(sp),a0
  327.     jsr    -444(a6)
  328.     move.l    (sp)+,a6
  329.     rts
  330.  
  331.     xdef    _FindTaskResList
  332. _FindTaskResList:
  333.     move.l    a6,-(sp)
  334.     move.l    _ArpBase,a6
  335.     jsr    -462(a6)
  336.     move.l    (sp)+,a6
  337.     rts
  338.  
  339.     xdef    _FPrintf
  340. _FPrintf:
  341.     move.l    a6,-(sp)
  342.     move.l    _ArpBase,a6
  343.     movem.l    8(sp),d0/a0
  344.     lea.l    16(sp),a1
  345.     jsr    -234(a6)
  346.     move.l    (sp)+,a6
  347.     rts
  348.  
  349.     xdef    _FreeAccess
  350. _FreeAccess:
  351.     move.l    a6,-(sp)
  352.     move.l    _ArpBase,a6
  353.     move.l    8(sp),a1
  354.     jsr    -498(a6)
  355.     move.l    (sp)+,a6
  356.     rts
  357.  
  358.     xdef    _FreeAnchorChain
  359. _FreeAnchorChain:
  360.     move.l    a6,-(sp)
  361.     move.l    _ArpBase,a6
  362.     move.l    8(sp),a0
  363.     jsr    -450(a6)
  364.     move.l    (sp)+,a6
  365.     rts
  366.  
  367.     xdef    _FreeDAList
  368. _FreeDAList:
  369.     move.l    a6,-(sp)
  370.     move.l    _ArpBase,a6
  371.     move.l    8(sp),a1
  372.     jsr    -504(a6)
  373.     move.l    (sp)+,a6
  374.     rts
  375.  
  376.     xdef    _FreeResList
  377. _FreeResList:
  378.     move.l    a6,-(sp)
  379.     move.l    _ArpBase,a6
  380.     move.l    8(sp),a1
  381.     jsr    -474(a6)
  382.     move.l    (sp)+,a6
  383.     rts
  384.  
  385.     xdef    _FreeTaskResList
  386. _FreeTaskResList:
  387.     move.l    a6,-(sp)
  388.     move.l    _ArpBase,a6
  389.     jsr    -372(a6)
  390.     move.l    (sp)+,a6
  391.     rts
  392.  
  393.     xdef    _FreeTrackedItem
  394. _FreeTrackedItem:
  395.     move.l    a6,-(sp)
  396.     move.l    _ArpBase,a6
  397.     move.l    8(sp),a1
  398.     jsr    -480(a6)
  399.     move.l    (sp)+,a6
  400.     rts
  401.  
  402.     xdef    _GADS
  403. _GADS:
  404.     movem.l    a6/a2/a3,-(sp)
  405.     move.l    _ArpBase,a6
  406.     move.l    16(sp),a0
  407.     movem.l    20(sp),d0/a1/a2/a3
  408.     jsr    -252(a6)
  409.     movem.l    (sp)+,a6/a2/a3
  410.     rts
  411.  
  412.     xdef    _GetAccess
  413. _GetAccess:
  414.     move.l    a6,-(sp)
  415.     move.l    _ArpBase,a6
  416.     move.l    8(sp),a1
  417.     jsr    -492(a6)
  418.     move.l    (sp)+,a6
  419.     rts
  420.  
  421.     xdef    _GetDevInfo
  422. _GetDevInfo:
  423.     movem.l    a6/a2,-(sp)
  424.     move.l    _ArpBase,a6
  425.     move.l    12(sp),a2
  426.     jsr    -366(a6)
  427.     movem.l    (sp)+,a6/a2
  428.     rts
  429.  
  430.     xdef    _Getenv
  431. _Getenv:
  432.     move.l    a6,-(sp)
  433.     move.l    _ArpBase,a6
  434.     movem.l    8(sp),a0/a1
  435.     move.l    16(sp),d0
  436.     jsr    -282(a6)
  437.     move.l    (sp)+,a6
  438.     rts
  439.  
  440.     xdef    _GetKeywordIndex
  441. _GetKeywordIndex:
  442.     move.l    a6,-(sp)
  443.     move.l    _ArpBase,a6
  444.     movem.l    8(sp),a0/a1
  445.     jsr    -648(a6)
  446.     move.l    (sp)+,a6
  447.     rts
  448.  
  449.     xdef    _InitStdPacket
  450. _InitStdPacket:
  451.     movem.l    a6/a2,-(sp)
  452.     move.l    _ArpBase,a6
  453.     movem.l    12(sp),d0/a0/a1/a2
  454.     jsr    -324(a6)
  455.     movem.l    (sp)+,a6/a2
  456.     rts
  457.  
  458.     xdef    _LDiv
  459. _LDiv:
  460.     move.l    a6,-(sp)
  461.     move.l    _ArpBase,a6
  462.     movem.l    8(sp),d0/d1
  463.     jsr    -606(a6)
  464.     move.l    (sp)+,a6
  465.     rts
  466.  
  467.     xdef    _LMod
  468. _LMod:
  469.     move.l    a6,-(sp)
  470.     move.l    _ArpBase,a6
  471.     movem.l    8(sp),d0/d1
  472.     jsr    -612(a6)
  473.     move.l    (sp)+,a6
  474.     rts
  475.  
  476.     xdef    _LMult
  477. _LMult:
  478.     move.l    a6,-(sp)
  479.     move.l    _ArpBase,a6
  480.     movem.l    8(sp),d0/d1
  481.     jsr    -600(a6)
  482.     move.l    (sp)+,a6
  483.     rts
  484.  
  485.     xdef    _LoadPrg
  486. _LoadPrg:
  487.     move.l    a6,-(sp)
  488.     move.l    _ArpBase,a6
  489.     move.l    8(sp),d1
  490.     jsr    -552(a6)
  491.     move.l    (sp)+,a6
  492.     rts
  493.  
  494.     xdef    _ObtainResidentPrg
  495. _ObtainResidentPrg:
  496.     move.l    a6,-(sp)
  497.     move.l    _ArpBase,a6
  498.     move.l    8(sp),a0
  499.     jsr    -576(a6)
  500.     move.l    (sp)+,a6
  501.     rts
  502.  
  503.     xdef    _PathName
  504. _PathName:
  505.     move.l    a6,-(sp)
  506.     move.l    _ArpBase,a6
  507.     movem.l    8(sp),d0/a0
  508.     move.l    16(sp),d1
  509.     jsr    -330(a6)
  510.     move.l    (sp)+,a6
  511.     rts
  512.  
  513.     xdef    _PatternMatch
  514. _PatternMatch:
  515.     move.l    a6,-(sp)
  516.     move.l    _ArpBase,a6
  517.     movem.l    8(sp),a0/a1
  518.     jsr    -432(a6)
  519.     move.l    (sp)+,a6
  520.     rts
  521.  
  522.     xdef    _PreParse
  523. _PreParse:
  524.     move.l    a6,-(sp)
  525.     move.l    _ArpBase,a6
  526.     movem.l    8(sp),a0/a1
  527.     jsr    -558(a6)
  528.     move.l    (sp)+,a6
  529.     rts
  530.  
  531.     xdef    _Printf
  532. _Printf:
  533.     move.l    a6,-(sp)
  534.     move.l    _ArpBase,a6
  535.     movem.l    8(sp),a0
  536.     lea.l    12(sp),a1
  537.     jsr    -228(a6)
  538.     move.l    (sp)+,a6
  539.     rts
  540.  
  541.     xdef    _Puts
  542. _Puts:
  543.     move.l    a6,-(sp)
  544.     move.l    _ArpBase,a6
  545.     move.l    8(sp),a1
  546.     jsr    -240(a6)
  547.     move.l    (sp)+,a6
  548.     rts
  549.  
  550.     xdef    _QSort
  551. _QSort:
  552.     move.l    a6,-(sp)
  553.     move.l    _ArpBase,a6
  554.     move.l    8(sp),a0
  555.     movem.l    12(sp),d0/d1/a1
  556.     jsr    -426(a6)
  557.     move.l    (sp)+,a6
  558.     rts
  559.  
  560.     xdef    _ReadLine
  561. _ReadLine:
  562.     move.l    a6,-(sp)
  563.     move.l    _ArpBase,a6
  564.     move.l    8(sp),a0
  565.     jsr    -246(a6)
  566.     move.l    (sp)+,a6
  567.     rts
  568.  
  569.     xdef    _ReleaseResidentPrg
  570. _ReleaseResidentPrg:
  571.     move.l    a6,-(sp)
  572.     move.l    _ArpBase,a6
  573.     move.l    8(sp),d1
  574.     jsr    -636(a6)
  575.     move.l    (sp)+,a6
  576.     rts
  577.  
  578.     xdef    _RemResidentPrg
  579. _RemResidentPrg:
  580.     move.l    a6,-(sp)
  581.     move.l    _ArpBase,a6
  582.     move.l    8(sp),a0
  583.     jsr    -588(a6)
  584.     move.l    (sp)+,a6
  585.     rts
  586.  
  587.     xdef    _SendPacket
  588. _SendPacket:
  589.     move.l    a6,-(sp)
  590.     move.l    _ArpBase,a6
  591.     movem.l    8(sp),d0/a0/a1
  592.     jsr    -318(a6)
  593.     move.l    (sp)+,a6
  594.     rts
  595.  
  596.     xdef    _Setenv
  597. _Setenv:
  598.     move.l    a6,-(sp)
  599.     move.l    _ArpBase,a6
  600.     movem.l    8(sp),a0/a1
  601.     jsr    -288(a6)
  602.     move.l    (sp)+,a6
  603.     rts
  604.  
  605.     xdef    _SPrintf
  606. _SPrintf:
  607.     move.l    a6,-(sp)
  608.     move.l    _ArpBase,a6
  609.     movem.l    8(sp),d0/a0
  610.     lea.l    16(sp),a1
  611.     jsr    -642(a6)
  612.     move.l    (sp)+,a6
  613.     rts
  614.  
  615.     xdef    _StamptoStr
  616. _StamptoStr:
  617.     move.l    a6,-(sp)
  618.     move.l    _ArpBase,a6
  619.     move.l    8(sp),a0
  620.     jsr    -564(a6)
  621.     move.l    (sp)+,a6
  622.     rts
  623.  
  624.     xdef    _Strcmp
  625. _Strcmp:
  626.     move.l    a6,-(sp)
  627.     move.l    _ArpBase,a6
  628.     movem.l    8(sp),a0/a1
  629.     jsr    -522(a6)
  630.     move.l    (sp)+,a6
  631.     rts
  632.  
  633.     xdef    _Strncmp
  634. _Strncmp:
  635.     move.l    a6,-(sp)
  636.     move.l    _ArpBase,a6
  637.     movem.l    8(sp),a0/a1
  638.     move.l    16(sp),d0
  639.     jsr    -528(a6)
  640.     move.l    (sp)+,a6
  641.     rts
  642.  
  643.     xdef    _StrtoStamp
  644. _StrtoStamp:
  645.     move.l    a6,-(sp)
  646.     move.l    _ArpBase,a6
  647.     move.l    8(sp),a0
  648.     jsr    -570(a6)
  649.     move.l    (sp)+,a6
  650.     rts
  651.  
  652.     xdef    _SyncRun
  653. _SyncRun:
  654.     move.l    a6,-(sp)
  655.     move.l    _ArpBase,a6
  656.     movem.l    8(sp),a0/a1
  657.     movem.l    16(sp),d0/d1
  658.     jsr    -540(a6)
  659.     move.l    (sp)+,a6
  660.     rts
  661.  
  662.     xdef    _TackOn
  663. _TackOn:
  664.     move.l    a6,-(sp)
  665.     move.l    _ArpBase,a6
  666.     movem.l    8(sp),a0/a1
  667.     jsr    -624(a6)
  668.     move.l    (sp)+,a6
  669.     rts
  670.  
  671.     xdef    _Toupper
  672. _Toupper:
  673.     move.l    a6,-(sp)
  674.     move.l    _ArpBase,a6
  675.     IF    INT16
  676.     move.w    8(sp),d0
  677.     ELSE
  678.     move.l    8(sp),d0
  679.     ENDC
  680.     jsr    -534(a6)
  681.     move.l    (sp)+,a6
  682.     rts
  683.  
  684.     xdef    _UnLoadPrg
  685. _UnLoadPrg:
  686.     move.l    a6,-(sp)
  687.     move.l    _ArpBase,a6
  688.     move.l    8(sp),d1
  689.     jsr    -594(a6)
  690.     move.l    (sp)+,a6
  691.     rts
  692.  
  693.     end            ; Make the asm even happier
  694.