home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / ac4_disk / hbasic / libs / library.h < prev    next >
Encoding:
Text File  |  1988-09-11  |  1.5 KB  |  110 lines
  1.     IFD    __G2
  2.     opt    p+,c16+
  3.     ENDC
  4.  
  5. *
  6. *    LIBRARY.H include file for HiSoft BASIC © HiSoft 1987,1988
  7. *
  8. * 30 Mar 88    changed for GENST2 compatibility
  9.  
  10. global    equr    a5
  11. local    equr    a4
  12. tos    equr    d7
  13. tos2    equr    d6
  14.  
  15. library    macro
  16.     module    !\1
  17.     section    CODE
  18.     endm
  19.  
  20. subdef    macro
  21.     dc.b    48,NARG+1
  22.     params    \1,\2,\3,\4,\5,\6,\7,\8,\9
  23.     endm
  24.  
  25. fn_int    macro
  26.     dc.b    95,'%',NARG+1
  27.     params    \1,\2,\3,\4,\5,\6,\7,\8,\9
  28.     endm
  29.  
  30. fn_lng    macro
  31.     dc.b    95,'&',NARG+1
  32.     params    \1,\2,\3,\4,\5,\6,\7,\8,\9
  33.     endm
  34.  
  35. fn_sng    macro
  36.     dc.b    95,'!',NARG+1
  37.     params    \1,\2,\3,\4,\5,\6,\7,\8,\9
  38.     endm
  39.  
  40. fn_dbl    macro
  41.     dc.b    95,'#',NARG+1
  42.     params    \1,\2,\3,\4,\5,\6,\7,\8,\9
  43.     endm
  44.  
  45. params    macro
  46.     ifnc    '\1',''
  47.     dc.b    l_\1
  48.     endc
  49.     ifnc    '\2',''
  50.     dc.b    l_\2
  51.     endc
  52.     ifnc    '\3',''
  53.     dc.b    l_\3
  54.     endc
  55.     ifnc    '\4',''
  56.     dc.b    l_\4
  57.     endc
  58.     ifnc    '\5',''
  59.     dc.b    l_\5
  60.     endc
  61.     ifnc    '\6',''
  62.     dc.b    l_\6
  63.     endc
  64.     ifnc    '\7',''
  65.     dc.b    l_\7
  66.     endc
  67.     ifnc    '\8',''
  68.     dc.b    l_\8
  69.     endc
  70.     ifnc    '\9',''
  71.     dc.b    l_\9
  72.     endc
  73.     endm
  74.  
  75. array_mask    equ    8
  76. var_para_mask    equ    16
  77.  
  78. l_int    equ    1
  79. l_lng    equ    2
  80. l_sng    equ    3
  81. l_dbl    equ    4
  82. l_str    equ    5
  83.  
  84. l_aint    equ    l_int+array_mask
  85. l_alng    equ    l_lng+array_mask
  86. l_asng    equ    l_sng+array_mask
  87. l_adbl    equ    l_dbl+array_mask
  88. l_astr    equ    l_str+array_mask
  89.  
  90. l_vint    equ    l_int+var_para_mask
  91. l_vlng    equ    l_lng+var_para_mask
  92. l_vsng    equ    l_sng+var_para_mask
  93. l_vdbl    equ    l_dbl+var_para_mask
  94. l_vstr    equ    l_str+var_para_mask
  95.  
  96. libstart    macro
  97.     dc.b    0
  98.     even
  99.     endm
  100.  
  101. option    macro    string
  102.     ifc    \1,''
  103.     fail    Bad param to Option
  104.     mexit
  105.     endc
  106.     dc.b    *-z\@+1
  107.     dc.b    \1
  108. z\@
  109.     endm
  110.