home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / Geneve / 9640news / CAT10 / XBSCCRS.ARK < prev    next >
Text File  |  2006-10-19  |  2KB  |  106 lines
  1. ?
  2.    ***********************************
  3.    *                                 *
  4.    *   CHANGING THE CURSOR PATTERN   *
  5.    *        IN EXTENDED BASIC        *
  6.    *                                 *
  7.    *         By Jim Beersman         *
  8.    *     Ozark 99'er Users Group     *
  9.    *                                 *
  10.    ***********************************
  11.  
  12.  
  13.       Below is an Extended Basic
  14.  program that "writes" an assembly
  15.  language program to redefine the the
  16.  cursor character. A brief description
  17.  of what each line is doing is also
  18.  included.  To use this program you
  19.  must have one of the following
  20.  cartridges--Extended Basic,
  21.  Mini-Memory, or Editor-Assembler--and
  22.  memory expansion.
  23.  
  24.  
  25.  100 CALL INIT
  26.  
  27.       Places the value >AA55 at address
  28.  >2006. This allows you to use a CALL
  29.  LOAD statement.
  30.  
  31.  
  32.  110 CALL LOAD(8196,63,248)
  33.  
  34.       Tells the computer that there is
  35.  something in the REF/DEF table and the
  36.  starting address of the REF/DEF
  37.  table(>3FF8).
  38.  
  39.  
  40.  120 CALL LOAD(16376,67,85,82,83,79,82,
  41.      48,8)
  42.  
  43.       Name of the program in low memory
  44.  expansion and the starting address of
  45.  the program (>3008,"CURSOR").
  46.  
  47.  
  48.  130 CALL LOAD(12288,0,0,0,0,0,0,0,255)
  49.  
  50.       Character pattern to be
  51.  used("00000000000000FF") is stored in
  52.  memory location >3000 (12288
  53.  decimal).
  54.  
  55.  
  56.  140 CALL LOAD(12296,2,0,3,240)
  57.  
  58.       Extended Basic for (LI R0,>03F0).
  59.  >03F0 is the beginning of the pattern
  60.  descriptor table in Extended Basic.
  61.  
  62.  
  63.  150 CALL LOAD(12300,2,1,48,0)
  64.  
  65.       Extended Basic for (LI R1,>3000).
  66.  >3000 contains the pattern to be
  67.  loaded into the pattern descriptor
  68.  table.
  69.  
  70.  
  71.  160 CALL LOAD(12304,2,2,0,8)
  72.  
  73.       Extended Basic for (LI R2,>0008).
  74.  >0008 is the number of bytes to be
  75.  loaded.
  76.  
  77.  
  78.  170 CALL LOAD(12308,4,32,32,36)
  79.  
  80.       Extended Basic for (BLWP @ VMBW).
  81.  Loads the new pattern into the table.
  82.  
  83.  
  84.  180 CALL LOAD(12312,4,91)
  85.  
  86.      Extended basic for RT (return).
  87.  
  88.  
  89.  190 CALL LINK("CURSOR")
  90.  
  91.       Finds program called CURSOR in
  92.  low memory expansion and runs it.
  93.  
  94.  
  95.       If you would like to define your
  96.  own cursor character, the numbers
  97.  after the 12288 in line 130 are the
  98.  decimal equivalents of the hexadecimal
  99.  numbers usually used to define a
  100.  character.
  101.  
  102.  
  103. Download complete.  Turn off Capture File.
  104.  
  105.  
  106.