home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / Geneve / 9640news / CAT17 / CART4TH.ARK < prev    next >
Text File  |  2006-10-19  |  4KB  |  113 lines
  1. ?
  2.  
  3. NOTE: The following info comes from the NETWORK-99 NEWSLETTER. Each issue
  4. contains 4-6 pages loaded with Forth related articles and code. I recommend
  5. it to anyone interrested in the Forth language.
  6. A 12 issue subscription to the newsletter is $10, back issues are available
  7. for $1 each. Send check or money order to:
  8.  
  9. BRIAND SANDERSON
  10. C/O LTC MICHAEL C. SANDERSON
  11. HEADQUARTERS 2ND/33RD ARMOR
  12. P.O. BOX 4356
  13. APO NY 09045
  14.  
  15. -----------------------------------------------------------------------------
  16.  
  17.     HOW TO READ A CARTRIDGE!!!!
  18.  
  19.      First, make sure the cartridge you want to read does not contain any
  20. GROM chips. Since many of the TI licensed carts contain GROM and GPL code, it
  21. is best to stick with 3rd party carts such as the Atarisoft carts. These are
  22. written entirely in TMS9900 Assembly Language, and are easily read. Since
  23. there is no automatic reset when one of these carts is inserted, it is very
  24. easy to read from Forth!
  25.      Load -DUMP from Forth's menu. When the cursor returns, gently pull
  26. out the E/A cart and insert a readable one. To read this cart all you have to
  27. do is type: HEX 6000 1FFF DUMP  and watch the cart's contents print to the
  28. screen. To print to a printer, just load the -PRINT commands before you
  29. switch carts and type SWCH before the DUMP and UNSWCH after. It is also
  30. possible to save to disk using the same proceedure, but changing the file
  31. attributes on SCR# 72. Of course, getting it to run from disk without the
  32. cart is another story! Please let us know if you succeed. You should be able
  33. to disassemble the code and check out the source code with one of the
  34. disassemblers floating around, or wait for the Forth disassembler in a future
  35. issue of the NETWORK-99 NEWSLETTER. Good Luck!
  36.  
  37. -----------------------------------------------------------------------------
  38.  
  39. Here is a short routine that allows you to "freeze" a number of rows from the
  40. top of the screen. It assumes you are in Text mode, but can be adapted for
  41. other needs. Just type DEMO for a demonstration.
  42.  
  43. DECIMAL
  44. : FREEZE ( ROWS --- ) 40 * SCRN_START ! ;
  45. : UNFREEZE 0 SCRN_START ! ; : BORDER 22 0 DO 42 EMIT LOOP ;
  46. :DEMO 0 0 GOTOXY BORDER 0 3 GOTOXY ." THIS SECTION IS FROZEN"
  47.  0 6 GOTOXY BORDER 0 23 GOTOXY 8 FREEZE 20 0 DO I SPACES
  48.  ." THIS SECTION IS NOT!" CR LOOP ;
  49.  
  50. -----------------------------------------------------------------------------
  51.  
  52.       ...FORTH BUGS...
  53.  
  54. Screen 72, line 5, change "PAB_ADDR" to "PAB-ADDR"
  55. Then change the printer info on lines 3,4, and 5 to match your printer specs.
  56.  
  57. Screen 58, 11th line down, change 1st exclamation point (!) to a tick (').
  58. Screen 58, swap 11th line down with 10th line down.
  59. Screen 22, 6th line down, words: 3800 ' SATR ! should be moved to Screen 23,
  60. 3rd line from top. Add it to the end.
  61.  
  62. Now you can stop pulling out your hair while trying to get sprites to work
  63. from
  64. Forth.
  65.  
  66. Forth manual, Appendix D, page 30, 4th defination should be, "ENDOF".
  67.  
  68. Forth manual, chap 6, page 3, "SCREEN" must follow 2 color values, foreground
  69. and background colors, or screen writing becomes transparent.
  70.  
  71. Forth manual, chap 10, page 3, definition of DOWN should read:
  72. : DOWN -100 ALLOT DROP ;
  73.  
  74. and on the next page, the "83C4" should read:
  75. HEX 83C4 ! DECIMAL
  76.  
  77. ------------------------------------------------------------------------------
  78.  
  79. Here's a screen to test those sprite routines. It's a simple game. You control
  80. the white circle, with the joysticks or arrow keys and try to catch the
  81. blinking circle which the computer moves. Just load the screen and type GAME.
  82.  
  83. ( SPRITE DEMO  NETWORK-99 NEWSLETTER VOL1#6 )
  84. BASE->R HEX GRAPHICS 800 SSDT 0 MAGNIFY
  85.  
  86.  
  87. 3C42 8181 8181 423C 1 SPCHAR 003C 7E7E 7E7E 3C00 2 SPCHAR
  88. 50 50 F 1 1 SPRITE 50 50 6 2 2 SPRITE
  89.  
  90.  
  91. DECIMAL
  92.  
  93. : BLINK 1 2 SPRPAT 15 RND 2 SPRCOL 2 2 SPRPAT ;
  94. : ZIGZAG 100 RND 50 - 100 RND 50 - 2 MOTION BLINK ;
  95. : CATCH? 1 2 1 COINC IF BEEP THEN ;
  96. : JOYSTICK 1 JOYST ROT 18 = IF QUIT THEN
  97.   SWAP 10 * SWAP -10 * 1 MOTION ;
  98. : GAME 3 #MOTION BEGIN ZIGZAG JOYSTICK CATCH? AGAIN ;
  99.  
  100.  
  101. R->BASE
  102.  
  103. ------------------------------------------------------------------------------
  104.  
  105. Keep on FORTHin'!!!
  106.  
  107.  
  108. )3=GUUUUUUUU
  109.  
  110. Download complete.  Turn off Capture File.
  111.  
  112.  
  113.