home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.7z / ftp.whtech.com / emulators / v9t9 / linux / sources / V9t9 / tools / Forth / 99equs.inc < prev    next >
Encoding:
Text File  |  2006-10-19  |  1009 b   |  68 lines
  1. \    Registers
  2.  
  3. : R0 0 ;    : R1 1 ;     : R2 2 ;     : R3 3 ;     
  4. : R4 4 ;    : R5 5 ;    : R6 6 ;    : R7 7 ;
  5. : R8 8 ;    : R9 9 ;    : R10 A ;    : R11 B ;
  6. : R12 C ;    : R13 D ;    : R14 E ;     : R15 F ;
  7.  
  8. \    Stack push/pop masks
  9.  
  10. : SR0 1 ;        : SR1 2 ;        : SR2 4 ;        : SR3 8 ;
  11. : SR4 10 ;        : SR5 20 ;        : SR6 40 ;        : SR7 80 ;
  12. : SR8 100 ;        : SR9 200 ;        : SR10 400 ;    : SR11 800 ;
  13. : SR12 1000 ;    : SR13 2000 ;    : SR14 4000 ;    : SR15 8000 ;
  14.  
  15. ;
  16. ;    Masks for stack push/pop
  17. ;
  18.  
  19. SR0    equ    1
  20. SR1    equ    2
  21. SR2    equ    4
  22. SR3    equ    8
  23. SR4    equ    16
  24. SR5    equ    32
  25. SR6    equ    64
  26. SR7    equ    128
  27. SR8    equ    256
  28. SR9    equ    512
  29. SR10    equ    1024
  30. SR11    equ    2048
  31. SR12    equ    4096
  32. SR13    equ    8192
  33. SR14    equ    16384
  34. SR15    equ    32768
  35.  
  36. ;    
  37. ;    Masks in status word.
  38. ;
  39.  
  40. ST_L    equ    1
  41. ST_A    equ    2
  42. ST_E    equ    4
  43. ST_C    equ    8
  44. ST_OV    equ    16
  45. ST_OP    equ    32
  46. ST_X    equ    64
  47.  
  48.  
  49. ;
  50. ;    FORTH GROM offsets
  51. ;
  52.  
  53. grom_kbdlist        equ    >0000
  54. grom_fonts        equ    >0130
  55.  
  56.  
  57. ;
  58. ;    Low RAM setup.
  59. ;
  60.  
  61. @TIB    equ    >2000                ; TIB  = >2000
  62. @S0    equ    >2800                ; stack= >2000 - >2800
  63. @R0    equ    >2FF0                ; rstak= >2800 - >2FF0
  64.  
  65. @First    equ    >2FF0                ; 4 buffers (1k + 4 bytes)
  66. @Limit    equ    >4000
  67.  
  68.