mdw@git.distorted.org.uk Git - ssr/blob - StraySrc/Libraries/DLLLib/s/clib

   1 ;
   2 ; clib.s
   3 ;
   4 ; Finding CLibrary data
   5 ;
   6 ; © 1994 Straylight
   7 ;
   8
   9 ;----- Standard stuff -------------------------------------------------------
  10
  11                 GET     libs:header
  12                 GET     libs:swis
  13
  14 ;----- Main code ------------------------------------------------------------
  15
  16                 AREA    |DLL$$Code|,CODE,READONLY
  17
  18 ; FILE *_dll_iob(void)
  19
  20                 EXPORT  |_dll_iob|
  21 |_dll_iob|      MOV     ip,lr
  22                 SWI     XDLL_FindCLibData
  23                 ADD     a1,a1,#4
  24                 MOVS    pc,ip
  25
  26 ; int *_dll_errno(void)
  27
  28                 EXPORT  |_dll_errno|
  29 |_dll_errno|    MOV     ip,lr
  30                 SWI     XDLL_FindCLibData
  31                 MOVS    pc,ip
  32
  33 ; char *_dll_ctype(void)
  34
  35                 EXPORT  |_dll_ctype|
  36 |_dll_ctype|    MOV     ip,lr
  37                 SWI     XDLL_FindCLibData
  38                 ADD     a1,a1,#&290
  39                 MOVS    pc,ip
  40
  41 ; double *_dll_huge_val(void)
  42
  43                 EXPORT  |_dll_huge_val|
  44 |_dll_huge_val| MOV     ip,lr
  45                 SWI     XDLL_FindCLibData
  46                 ADD     a1,a1,#&390
  47                 MOVS    pc,ip
  48
  49 ;----- That's all, folks ----------------------------------------------------
  50
  51                 END