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