home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_c / elib.lzh / ELIB / LIBFACE.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-08-16  |  968 b   |  91 lines
  1.  
  2.     include    'exec/types.i'
  3.  
  4. setup    macro
  5.     movem.l    d2/d3/d4-d7/a2-a6,-(sp)
  6.     jsr    _geta4                            ;set up a4 for small model
  7.     endm
  8.  
  9. push    macro
  10.     move.l    \1,-(sp)
  11.     endm
  12.  
  13. fix    macro
  14.     ifc    '\1',''
  15.         mexit
  16.     endc
  17.     ifle    \1-8
  18.         addq.l    #\1,sp
  19.     endc
  20.     ifgt    \1-8
  21.         lea    \1(sp),sp
  22.     endc
  23.     endm
  24.  
  25. restore    macro
  26.     fix    \1
  27.     movem.l    (sp)+,d2/d3/d4-d7/a2-a6    
  28.     rts
  29.     endm
  30.  
  31.     dseg
  32.  
  33.     public    _libfunctab
  34. _libfunctab:
  35.     dc.l    myopen
  36.     dc.l    myclose
  37.     dc.l    myexpunge
  38.     dc.l    $0000
  39.     dc.l    getdown
  40.     dc.l    double
  41.     dc.l    $ffffffff
  42.  
  43.     cseg
  44.  
  45.     ;--- library functions
  46.     public    _myOpen
  47.     public    _myClose
  48.     public    _myExpunge
  49.     public    _GetDown
  50.     public    _Double
  51.  
  52.     ;--- interface routines
  53.     ;public    myopen
  54.     ;public    myclose
  55.     ;public    myexpunge
  56.     ;public    getdown
  57.     ;public    double
  58.  
  59.     public    _geta4
  60.  
  61. myopen:
  62.     setup
  63.     push a6
  64.     jsr    _myOpen
  65.     restore    4
  66.  
  67. myclose:
  68.     setup
  69.     push a6
  70.     jsr    _myClose
  71.     restore 4
  72.  
  73. myexpunge:
  74.     setup
  75.     push a6
  76.     jsr    _myExpunge
  77.     restore 4
  78.  
  79. getdown:
  80.     setup
  81.     jsr    _GetDown
  82.     restore
  83.  
  84. double:
  85.     setup
  86.     push d0
  87.     jsr _Double
  88.     restore 4
  89.  
  90.     end
  91.