home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.7z / ftp.whtech.com / emulators / v9t9 / linux / sources / V9t9 / tools / Forth / 99simple.fs < prev    next >
Encoding:
Text File  |  2006-10-19  |  865 b   |  96 lines
  1. code: :dodoes
  2. \    PUSH
  3.     mov TOS , *SP+
  4.     mov R11 , TOS
  5.     mov *TOS , R0
  6.     inct TOS
  7.     jmp 1 $f
  8. end-code
  9.  
  10. code: :docol 
  11.     dect RP
  12.     mov IP , *RP
  13.     mov TOS , IP
  14. \    inct IP
  15. end-code
  16.  
  17. code: @Next
  18.     mov *IP+ , R0
  19.     b    *R0
  20. end-code
  21.  
  22. code: ExEntry
  23. 1 $:
  24.     mov *IP+ , R0
  25.     b    *R0
  26. end-code
  27.  
  28. Code :dovar
  29.     NEXT
  30. end-code
  31.  
  32. Code :douser
  33.     mov *TOS , TOS
  34.     ai TOS , StartUser #    
  35.     NEXT
  36. End-code
  37.  
  38. Code :docon
  39.     mov *TOS , TOS
  40.     NEXT
  41. end-code
  42.  
  43. Code ;S
  44.     mov *RP+ , IP
  45.     mov *IP+ , R0
  46. \    mov *WA+ , R0
  47.     b    *R0
  48. end-code
  49.  
  50. \ \\\\\\\\\\\\\\\\\\\\
  51.  
  52. 10 constant TEN
  53.  
  54. code ZAA
  55.     mov r1 , r1
  56.     NEXT
  57. end-code
  58.  
  59. : ZBB
  60.     ZAA ZCC TWT
  61. ;
  62.  
  63. : ZCC
  64.     ZBB ZAA TEN
  65. ;
  66.  
  67. 20 constant TWT
  68.  
  69. \ \\\\\\\\\\\\\\\\\
  70.  
  71. Code ((cold))
  72. 1 $:
  73. \    dbg
  74.  
  75.     \ temporary!
  76.     li RP , 2010 #
  77.     li SP , 2020 #
  78.  
  79. \    li rNEXT , ' @Next #
  80.  
  81.     li TOS , ' ZBB  >body #    \ !!
  82.     li DODOES , ' :DoDoes #
  83.  
  84.     \ infinite loop
  85.     limi 1 #
  86.  
  87.     b    ' :docol @>
  88.  
  89. end-code
  90.  
  91. ' ((cold)) $6002 !
  92.  
  93.  
  94.  
  95.  
  96.