home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / tools / swigen / !SWIgen / SWIHeader < prev   
Encoding:
Text File  |  1995-02-18  |  829 b   |  37 lines
  1. ;
  2. ; This header file for GETting from assembler source defines SWI names
  3. ;
  4. ;**************************************************************************
  5. ;
  6. ; SWI names are exported in two forms :
  7. ; 1)  with OS_  'OS_DoThingToOtherThing'  as N
  8. ; 2)  with XOS_ 'XOS_DoThingToOtherThing' as N + Auto_Error_SWI_bit
  9. ;
  10.  
  11. Auto_Error_SWI_bit_number * 17
  12. Auto_Error_SWI_bit * 1 :SHL: Auto_Error_SWI_bit_number
  13.  
  14. ;
  15. ; The following macro defines the SWI names using the '*' directive and the
  16. ; '#' directive to increment the SWI number
  17. ;
  18.  
  19.         GBLS    SWIClass
  20.         MACRO
  21.         AddSWI  $SWIName,$value
  22.   [     "$value" = ""
  23. $SWIClass._$SWIName # 1
  24.   |
  25. $SWIClass._$SWIName * $value
  26.   ]
  27. X$SWIClass._$SWIName * $SWIClass._$SWIName + Auto_Error_SWI_bit
  28.         MEND
  29.  
  30. ;
  31. ; Now the SWIs
  32. ;
  33.  
  34. SWIClass SETS   "OS"
  35.  
  36.         AddSWI  WriteI, &000100
  37.