home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / Geneve / 9640news / CAT19 / CLLLDS.ARK next >
Text File  |  2006-10-19  |  10KB  |  191 lines
  1. ?
  2. Peeks and Pokes  01/19/1987
  3. ------------------------------------------------------------------------------
  4.      24K OF DATA STORAGE
  5.  
  6.      If you need to work with quite a bit of data or would like to change
  7. programs, but save the data after you press CALL QUIT then you can set up the
  8. 24K of High-Memory in the PEB as a single data file called "EXPMEM2", you open
  9. this file just as you would a disk file with one exception - you must PRECEED
  10. th OPEN statement with a CALL LOAD to the location -24574 as follows:
  11.  
  12.      For INT/VAR files - 24
  13.      For DIS/VAR files - 16
  14.      For INIT/FIX files - 8
  15.      For DIS/FIX files - 0
  16.  
  17.      Heres and example:
  18.      If you want to open up the Expansion Memory for Display,Variable 80 files
  19. this is what you'd do:
  20.      100 CALL INIT
  21.      110 CALL LOAD(-24574,16)
  22.      120 OPEN #1:"EXPMEM2",RELATIVE,UPDATE,DISPLAY,VARIABLE 80
  23.  
  24.      Then continue on as you normally would.
  25.  
  26.      If you want to store both data and assembly language routines at the same
  27. time do this:
  28.  
  29.      100 CALL INIT
  30.      110 CALL LOAD(-24574,-16)
  31.      120 OPEN #1:"EXPMEM2"
  32.      130 CALL LOAD ("DSK1.ASSM1")
  33.      140 CALL LOAD ("DSK2.ASSM2")
  34.      150 CALL LINK ("START")
  35.      160 REM CONTINUE REST OF PROGRAM
  36.  
  37.      In the above example the 24 K of high-memory was saved for use as a DATA
  38. file (DIS/VAR 80 format) then the assembly routines were loaded.  The computer
  39. wll look for the best place to put the routines and will adjust the pointer
  40. accordingly.  After the routines are loaded, a LINK statement starts the first
  41. rutine and off we go.
  42.     If that's not enough for you, you can also use the MINI-MEMORY for 4K more
  43. of storage of assembly routines!  Now that's 16K of program space, 12K of
  44. assembly routine space!
  45.  
  46. ******************************************************************************
  47.  
  48. THESE  ARE ALL OF THE PEEKS & POKES I HAVE COME ACROSS FOR USE WITH X-BASIC
  49. AND 32K MEMORY EXPANSION (BE SURE TO DO A "CALL INIT"). THE
  50. P,Q,R,S VARIABLES ARE USED FOR "PEEK" - THE NUMBERS ARE FOR "POKE" OR "LOAD".
  51. IF YOU KNOW OF ANY OTHERS PLEASE LET ME KNOW AND I WILL ADD THEM IN.
  52.  
  53. ******************************************************************************
  54.  
  55. ==================  ==========================================================
  56. ADDRESS , VALUE(S)  MEANING IN EXTENDED BASIC
  57. ==================  ==========================================================
  58.                     CALL VERSION(X)  IF X=100= NEWEST VERSION OF X/B CART
  59.   8192  , P         USE (PEEK,P) IF P<> 70 OR <>121 THEN DO A CALL INIT
  60.   8194  , P,Q,R,S   FIRST FREE ADDRESS IN LOW MEMORY:(R-P))*256+S-Q= FREE SPACE
  61.                     IN LOW MEMORY AFTER CALL INIT OR CALL LOAD("DSK1x.xxxx")
  62.   8196  ,           LAST FREE ADDRESS IN LOW MEMORY
  63.   8198  , P,Q       IF P/Q=2 OR P*256+Q=43605 OR P=170 AND Q=85: CALL INIT=YES
  64.  -27648 , P,Q,R,S   SPEECH CHIP LOCATION
  65.  -28672 , P         P=0 OR P=127 SPEECH NOT ATTACHED ,P=96 OR P=255 SPEECH IS
  66.  -31572 , 0 TO 255  VARY KEYBOARD RESPONSE
  67.  -31740 , P , Q     PUT IN DIFFERENT TO CHANGE BEEPS,WARNINGS, ETC
  68.  -31744 , 0 TO 15   CONTINUATION OF LAST SOUND (0=LOUD AND 15=SOFT)
  69.         , P,Q,R,S   DIFFERENT VALUES TURN ON DIFFERENT SOUNDS
  70.  -31748 , 0 TO 255  CHANGE THE CURSOR FLASHING AND RESPONSE TONE RATES
  71.  -31788 , 160       BLANK OUT THE SCREEN (MUST PUSH A KEY TO ACTIVATE)
  72.         , 192       NO AUTOMATIC SPRITE MOTION OR SOUND
  73.         , 224       NORMAL OPERATION
  74.         , 225       MAGNIFIED SPRITES
  75.         , 226       DOUBLE SIZE SPRITES
  76.         , 227       MAGNIFIED & DOUBLE SIZED SPRITES
  77.         , 232       MULTICOLOR MODE (48 BY 64 SQUARES)
  78.  -31794 , P         TIMER FOR CALL SOUND (COUNTS FROM 255 TO 0)
  79.  -31804 , X , Y     RETURN TO THE TITLE SCREEN (USE "PEEK (2,X,Y)")
  80.         , P         CHANGE THE CURSOR FLASH RATE (0 TO 255)
  81.  -31806 , 0         NORMAL OPERATION
  82.         , 16        DISABLE QUIT KEY (FCTN =)
  83.         , 32        DISABLE SOUND (USE NEG DUR FOR CONTINOUS SOUND)
  84.         , 48        DISABLE SOUND & QUIT KEY
  85.         , 64        DISABLE AUTO SPRITE MOTION
  86.         , 80        DISABLE SPRITES & QUIT KEY
  87.         , 96        DISABLE SPRITES AND SOUND
  88.         , 128       DISABLE ALL THREE
  89.  -31808 , P , Q     DOUBLE RANDOM NUMBERS (0 TO 255) NEED "RANDOMIZE"
  90.  -31860 , 4         GO FROM EX-BASIC TO CONSOLE BASIC (NEED "NEW")
  91.         , 8         AUTO RUN OF DSK1.LOAD
  92.  -31866 , P , Q     P*256+Q-41023)=FREE PROGRAM SPACE IN HI MEM
  93.  -31868 , 0         NO "RUN" OR "LIST" AFTER "BREAK" IS USED
  94.         , 0 , 0     TURNS OFF THE 32K MEMORY EXPANSION
  95.         , 255 , 231 TURNS ON THE 32K MEMORY EXPANSION
  96.  -31873 , 3 TO 30   SCREEN COLUMN TO START AT WITH A "PRINT"
  97.  -31877 , P         P&32 = SPRITE COINCIDENCE  P&64 = 5 SPRITES ON A LINE
  98.  -31878 , P         HIGHEST NUMBER SPRITE IN MOTION (0 STOPS ALL)
  99.  -31879 , P         TIMER FOR VDP INTERRUPTS EVERY 1/60 OF A SEC (0 TOP 255)
  100.  -31880 , P         RANDOM NUMBER (0 TO 99) NEED "RANDOMIZE"
  101.  -31884 , 0 TO 5    CHANGE KEYBOARD MODE (LIKE "CALL KEY(K,...)")
  102.  -31888 , 63 , 255  DISABLE ALL DISK DRIVES (USE "NEW" TO FREE MEMORY)
  103.         , 55 , 215  ENABLE ALL DISK DRIVES (USE "NEW" TO FREE DRIVES)
  104.  -31931 , 0         UNPROTECT X-B PROTECTION
  105.         , 2         SET "ON WARNING NEXT" COMMAND
  106.         , 4         SET "ON WARNING STOP" COMMAND
  107.         , 14        SET "UNTRACE" COMMAND
  108.         , 15        SET "UNTRACE" COMMAND & "NUM" COMMAND
  109.         , 16        SET "TRACE" COMMAND
  110.         , 64        SET "ON BREAK NEXT" COMMAND
  111.         , 128       PROTECT X/B PROGRAM
  112.  -31936 , P,Q       P*256+Q-2487=EXACT AMOUNT OF FREE STACK
  113.                     SPACE WHILE PROGRAM IS RUNNING.
  114.  -31950 , P , Q     A=*256+Q=END OF LINE NUMBER TABLE
  115.  -31952 , P , Q     PEEK  P=55 THEN 32K EXPANSION MEMORY IS OFF
  116.                     P*256+Q=START OF LINE NUMBER TABLE
  117.  -31954 , P , Q     P*256+Q=MEMORY ADDRESS OF POINTER TO CURRENT LINE EXUCUTED
  118.                     CALL PEEK(P*256+Q-65536,R,S):: R*256+S=START ADDRESS OF
  119.                     CURRENT PROGRAM LINE EXECUTED.
  120.                     CALL PEEK(P*256+Q-65538,R,S):: R*256+S=CURRENT LINE NUMBER E
  121.                     LINE NUMBER EXECUTED.
  122.  -31962 , 0,32      RETURN TO THE TITLE SCREEN (LEAVES FILES OPEN)
  123.         , 33,111    GO DIRECTLY TO TI BASIC
  124.         , 99,114    RUN "DSK1.LOAD"
  125.         , 101,190   EXECUTE "LIST" COMMAND MODE ONLY
  126.         , 100,155   EXECUTE "RUN" COMMAND
  127.         , 100,124   EXECUTE "NEW" COMMAND
  128.         , 100,126   EXECUTE "CON" COMMAND MODE ONLY
  129.         , 100,128   EXECUTE "LIST" COMMAND MODE ONLY
  130.         , 100,130   EXECUTE "BYE" COMMAND (CLOSES ALL OPEN FILES)
  131.         , 100,132   EXECUTE "NUM" COMMAND (DEFAULT 100,10)
  132.         , 100,136   EXECUTE "RES" COMMAND (DEFAULT 100,10)
  133.         , 160,000   GENERATES COLORFUL TITLE SCREEN!
  134.         , 160,04    EXECUTE "RUN" W/O "PRE/SCAN"
  135.         , 255       RESTART X/B W/DSK1.LOAD
  136.  -31974 , P , Q     END OF VDP STACK ADDRESS (P*256+Q-2487)
  137.  -32112 , 8         SEARCHES DISK FOR ?
  138.  -32114 , 2         RANDOM GARBAGE
  139.         , 13        SCREEN GOES WILD
  140.         , 119       PRODUCE LINES
  141.  -32116 , 2         RANDOM CHARACTERS ON SCREEN
  142.         , 4         GO FROM X/BASIC TO BASIC
  143.  -32187 , 0         UNPROTECT XB PROGRAM
  144.         , 2         SET "ON WARNING NEXT" COMMAND
  145.         , 4         SET "ON WARNING STOP" COMMAND
  146.         , 9         SET 0 LINE NUMBER
  147.         , 14        SET "UNTRACE" COMMAND
  148.         , 15        SET "UNTRACE" COMMAND & "NUM" COMMAND
  149.         , 16        SET "TRACE" COMMAND
  150.         , 64        SET "ON BREAK NEXT" COMMAND
  151.         , 128       PROTECT XB PROGRAM
  152.  -32188 , 1         CHANGE COLOR AND RECEIVE SYNTAX ERROR
  153.         , 127       CHANGE COLOR AND RECEIVE BREAKPOINT
  154.  -32630 , 128       RESET TO TITLE SCREEN
  155.  -32699 , 0         UNPROTECT XB PROGRAM
  156.         , 2         SET "ON WARNING NEXT" COMMAND
  157.         , 4         SET "ON WARNING STOP" COMMAND
  158.         , 14        SET "UNTRACE" COMMAND
  159.         , 15        SET "UNTRACE" & "NUM" COMMAND
  160.         , 16        SET "TRACE" COMMAND
  161.         , 64        SET "ON BREAK NEXT"
  162.         , 128       PROTECT XB PROGRAM
  163.  -32700 , 0         CLEARS CREEN FOR AN INSTANT
  164.  -32729 , 0         RUN "DSK1.LOAD"
  165.  -32730 , 32        RESET TO TITLE SCREEN
  166.  -32961 , 51        RESET TO TITLE SCREEN
  167.         , 149       SETS "ON BREAK GOTO" LOCKS SYSTEM
  168. =============================================================================
  169. THE FOLLOWING LOADS REQUIRE E/A OR MM
  170. ==============================================================================
  171. ADDRESS , VALUE(S)  MEANING
  172. ==================  ==========================================================
  173.   784   , P         USE POKEV(784,P) (WHERE P IS 16 TO 31) CHANGES BACKGROUND
  174.                     COLOR OF CURSOR
  175.  -24574 , 8        I THINK THIS ALLOWS THE MINI-MEM TO USE THE 24K FOR STORAGE
  176.  -30945 , 0         WHITE EDGES
  177.  -32272 , 0 , "" ,  -30945 , 0 )  WILL PUT YOU IN TEXT MODE
  178.  -32766 , 0         BIT MAP MODE
  179.  -32768 , 0         GRAPHICS (NORMAL MODE)
  180.  -32280 , 0         MULTI-COLOR MODE
  181.  -32352 , 107       WILL BLANK THE SCREEN, ANY KEY PRESS WILL RESTORE
  182. ==============================================================================
  183. * PASCAL LOADS
  184. ==============================================================================
  185.   14586 , 0 , 0     THIS ALLOWS YOU TO DO A "RUN-TIME WARM START" FROM PASCAL
  186.  
  187.  
  188. Download complete.  Turn off Capture File.
  189.  
  190.  
  191.