home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 19 / AACD19.BIN / AACD / Programming / YAEC / startup / yaec.i < prev   
Encoding:
Text File  |  2001-02-23  |  4.3 KB  |  330 lines
  1. ; yaec.i v0.2   (010110)
  2.  
  3.    MACHINE 68020
  4.  
  5.    FPU 1
  6.  
  7.    xref GLOBAL_execbase
  8.    xref GLOBAL_dosbase
  9.    xref GLOBAL_intuitionbase
  10.    xref GLOBAL_graphicsbase
  11.    xref GLOBAL_arg
  12.    xref GLOBAL_stdin
  13.    xref GLOBAL_stdout
  14.    xref GLOBAL_mempool
  15.    xref GLOBAL_exception
  16.    xref GLOBAL_exceptioninfo
  17.    xref GLOBAL_initialstack
  18.    xref GLOBAL_stacksize
  19.    xref GLOBAL_mathieeesingbasbase
  20.    xref GLOBAL_mathieeesingtransbase
  21.    xref GLOBAL_stdrast
  22.    xref GLOBAL_libbase
  23.  
  24.    xref a4storage
  25.  
  26.  xref _Abs
  27.  xref _Bounds
  28.  xref _Char
  29.  xref _CloneList
  30.  xref _CloneStr
  31.  xref _CtrlC
  32.  xref _Dispose
  33.  xref _DisposeLink
  34.  xref _Div
  35.  xref _Eor
  36.  xref _EstrLen
  37.  xref _Even
  38.  xref _FastDispose
  39.  xref _FastDisposeList
  40.  xref _FastDisposeString
  41.  xref _FastNew
  42.  xref _FileLength
  43.  xref _Forward
  44.  xref _FreeStack
  45.  xref _Inp
  46.  xref _InStr
  47.  xref _Int
  48.  xref _Link
  49.  xref _List
  50.  xref _ListAdd
  51.  xref _ListCmp
  52.  xref _ListCopy
  53.  xref _ListItem
  54.  xref _ListLen
  55.  xref _ListMax
  56.  xref _Long
  57.  xref _LowerStr
  58.  xref _Max
  59.  xref _MidStr
  60.  xref _Min
  61.  xref _Mod
  62.  xref _Mul
  63.  xref _New
  64.  xref _Next
  65.  xref _Not
  66.  xref _Odd
  67.  xref _Out
  68.  xref _PrintF
  69.  xref _PutChar
  70.  xref _OutFmt
  71.  xref _PutInt
  72.  xref _PutLong
  73.  xref _ReadStr
  74.  xref _RightStr
  75.  xref _SetList
  76.  xref _SetStdIn
  77.  xref _SetStdOut
  78.  xref _SetStr
  79.  xref _Shl
  80.  xref _Shr
  81.  xref _Sign
  82.  xref _StrAdd
  83.  xref _StrCmp
  84.  xref _StrCopy
  85.  xref _StrFmt
  86.  ;xref _StrFmtS
  87.  xref _String
  88.  xref _StringF
  89.  xref _StrLen
  90.  xref _StrMax
  91.  xref _TrimStr
  92.  xref _UpperStr
  93.  xref _Val
  94.  xref _WriteF
  95.  xref _NewCell
  96.  xref _KickVersion
  97.  xref _InitCells
  98.  
  99.  xref _ForAll
  100.  xref _SelectList
  101.  xref _MapList
  102.  xref _Exists
  103.  
  104.  xref __ClearMemL
  105.  
  106.  xref _DisposeString
  107.  
  108.  xref _Fabs
  109.  xref _Facos
  110.  xref _Fasin
  111.  xref _Fatan
  112.  xref _Fceil
  113.  xref _Fcos
  114.  xref _Fcosh
  115.  xref _Fexp
  116.  xref _Ffieee
  117.  xref _Ffloor
  118.  xref _Flog
  119.  xref _Flog10
  120.  xref _Fpow
  121.  xref _Fsin
  122.  xref _Fsincos
  123.  xref _Fsinh
  124.  xref _Fsqrt
  125.  xref _Ftan
  126.  xref _Ftanh
  127.  xref _Ftieee
  128.  ;xref _RealVal
  129.  
  130.  xref _OpenS
  131.  xref _CloseS
  132.  xref _OpenW
  133.  xref _CloseW
  134.  xref _WaitIMessage
  135.  xref _MsgCode
  136.  xref _MsgQualifier
  137.  xref _MsgIAddr
  138.  
  139.  xref _Plot
  140.  xref _Line
  141.  xref _Box
  142.  xref _Colour
  143.  xref _SetColour
  144.  xref _TextF
  145.  xref _Hbox
  146.  
  147.  xref __CallEndMethod
  148.  
  149.  xref _ObjectName
  150.  xref _ObjectSize
  151.  
  152.  xref _SetStdRast
  153.  
  154.  xref __EndObject
  155.  
  156.  xref __MemCopy
  157.  
  158. NIL = 0
  159. TRUE = -1
  160. FALSE=0
  161. ALL=-1
  162. NEWFILE = $3EE
  163. OLDFILE = $3ED
  164. READWRITE=$3EC
  165. ;PI EQU.S 3.14592654
  166. ;E EQU.S 2.718281828
  167. ;LN2 EQU.S 0.6931471806
  168. ;LN10 EQU.S 2.302585093
  169.  
  170. CALLLIB1 MACRO ; libname, offs
  171.    move.l GLOBAL_\1base(a4), a6
  172.    jsr \2(a6)
  173.    ENDM
  174.  
  175. CALLIB2 MACRO ; libname, offs, arg,...
  176.    move.l GLOBAL_\1base(a4), a6
  177.    REPT NARG
  178.       move.l (a7)+, ..
  179.    ENDR
  180.  
  181.    ENDM
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188. E000 macro
  189.    move.l GLOBAL_\1base(a4), a6
  190.    endm
  191.  
  192. E010 macro
  193.    movem.l (a7)+, \1
  194.    endm
  195.  
  196. E020 macro
  197.    jsr \1(a6)
  198.    endm
  199.  
  200. E030 macro
  201.    add.l #40, a7
  202.    endm
  203.  
  204. E040 macro
  205.    sub.l #\1, a7
  206.    endm
  207.  
  208. E050 macro
  209.    movem.l \1, -(a7)
  210.    endm
  211.  
  212.  
  213. XRX2XRX macro ; xrx, xrx
  214.    move.l \1, \2
  215.    endm
  216.  
  217. XRX2GV macro ; xrx, gv
  218.    move.l \1, GLOBAL_\2(a4)
  219.    endm
  220.  
  221. XRX2PV macro ; xrx, pv, proc
  222.    move.l \1, PROC_\3_PARAM_\2(a5)
  223.    endm
  224.  
  225. XRX2LV macro ; xrx, lv, proc
  226.    move.l \1, PROC_\3_LOCAL_\2(a5)
  227.    endm
  228.  
  229. XRX2ST macro ; xrx
  230.    move.l, \1, -(a7)
  231.    endm
  232.  
  233. XRX2ST2 macro ; xrx
  234.    move.l, \1, (a2)+
  235.    endm
  236.  
  237. XRX2MEMB macro ; xrx, prx, o
  238.    move.b \1, \3(\2)
  239.    endm
  240.  
  241. XRX2MEMW macro ; xrx, prx, o
  242.    move.w \1, \3(\2)
  243.    endm
  244.  
  245. XRX2MEML macro ; xrx, prx, o
  246.    move.l \1, \3(\2)
  247.    endm
  248.  
  249. XRX2FPX macro ; xrx, fpx
  250.    fmove.l \1, \2
  251.    endm
  252.  
  253. XRXF2FPX macro ; xrx, fpx
  254.    fmove.s \1, \2
  255.    endm
  256.  
  257. FPX2FPX macro ; fpx, fpx
  258.    fmove.x \1, \2
  259.    endm
  260.  
  261. FPX2XRX macro ; fpx, xrx
  262.    fmove.l \1, \2
  263.    endm
  264.  
  265. FPX2XRXF macro ; fpx, xrx
  266.    fmove.s \1, \2
  267.    endm
  268.  
  269. FPX2ST macro ; fpx
  270.    fmove.d \1, -(a7)
  271.    endm
  272.  
  273. FPX2ST2 macro ; fpx
  274.    fmove.d \1, (a2)+
  275.    endm
  276.  
  277. FPX2MEM macro ; fpx, prx, o
  278.    fmove.d \1, \3(\2)
  279.    endm
  280.  
  281. ST2XRX macro ; xrx
  282.    move.l (a7)+, \1
  283.    endm
  284.  
  285. ST2RL macro ; rl
  286.    movem.l (a7)+, \1
  287.    endm
  288.  
  289. ST2FPX macro ; fpx
  290.    fmove.d (a7)+, \1
  291.    endm
  292.  
  293. ST22XRX macro ; xrx
  294.    move.l -(a2), \1
  295.    endm
  296.  
  297. ST22FPX macro ; fpx
  298.    fmove.d -(a2), \1
  299.    endm
  300.  
  301. ST22ST macro
  302.    move.l -(a2), -(a7)
  303.    endm
  304.  
  305. GV2GV macro ; gv, gv
  306.    move.l GLOBAL_\1(A4), GLOBAL_\2(a4)
  307.    endm
  308.  
  309. GV2LV macro ; gv, lv, proc
  310.    move.l GLOBAL_\1(a4), PROC_\3_LOCAL_\2(a5)
  311.    endm
  312.  
  313. GV2PV macro ; gv, pv, proc
  314.    move.l GLOBAL_\1(a4), PROC_\3_PARAM_\2(a5)
  315.    endm
  316.  
  317. GV2XRX macro ; gv, xrx
  318.    move.l GLOBAL_\1(a4), \2
  319.    endm
  320.  
  321. GV2ST macro ; gv
  322.    move.l GLOBAL_\1(a4), -(a7)
  323.    endm
  324.  
  325.  
  326.  
  327.  
  328.  
  329.  
  330.