home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / c128 / pointer128.lzh / pointer.src (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1990-02-12  |  4.2 KB  |  118 lines
  1. pOINTER.SRC
  2. seq FORMATTED geos FILE v1.0
  3. sTARnx-1000c
  4. op v2.0 OR HIGHERNAGER
  5. geopaint
  6. blaster's converter v2.5
  7. geoassembler
  8. geolinker
  9. wRITE iMAGE v2.1
  10. GEOwRITE    v2.1
  11. ; *** pOINTER128 mAIN pROGRAM:  tHIS PROGRAM WILL CHANGE THE DEFUALT geos 128 80 COLUMN POINTER
  12. ; *** TO THE ONE IN THIS PROGRAM.
  13. .IFpASS1; oNLY NEED TO INCLUDE THESE FILES
  14. ;    DURING ASSEMBLER'S FIRST PASS.
  15. .INCLUDEGEOSsYM; gET geos DEFINITIONS.
  16. .INCLUDEGEOSmAC; gET geos MACRO DEFINITIONS.
  17. .ENDIF
  18. sETmSEpIC == $c2da; sET A "NEW" MOUSE PICTURE.
  19. kERpNTRdATA  ==$c844; lOCATION IN KERNAL OF POINTER DATA.
  20. mOVEbdATA == $c2e3; mOVE DATA BETWEEN BANKS.
  21. .PSECT; pROGRAM CODE STARTS HERE (gEOlINKER WILL SET
  22. ;    THE START ADDRESS: $0400)
  23. ; *** tHIS WILL BE THE START OF THE PROGRAM MAIN CODE.
  24.  @prgsTART
  25. :; tHIS LABEL WILL SET THE START ADDRESS.
  26. JSRnEWdISK; a BUG WITH OLDER VERSIONS OF geos MADE
  27. ;   NECESSARY TO CALL 
  28. nEWdISK
  29.  TO STOP THE
  30. ;   THE DISK MOTOR IF THE APPLICATION DOES
  31. ;   ACCESS THE DISK.  fROM 
  32. gEOS p.r.g.
  33. ; *** mOVE DATA FOR THE NEW POINTER OVER THE OLD DATA IN THE KERNAL.  nOTE: oLD DATA IS DESTROYED.
  34. lOADwR0,pOINTERdATA; sOURCE ADDRESS OF DATA TO MOVE.
  35. lOADwR1,kERpNTRdATA; dESTINATION ADDRESS OF DATA TO MOVE.
  36. lOADwR2,32; nUMBER OF BYTES TO MOVE.  oNLY 32.
  37. lOADbR3l,1; bANK TO MOVE DATA from.  bANK 1
  38. lOADbR3h,0; bANK TO MOVE DATA to.  bANK 0
  39. JSRmOVEbdATA
  40. lOADwR0,0; sET R0 TO ACTIVATE THE "NEW" SYSTEM
  41. JSRsETmSEpIC;   POINTER.
  42. JMPeNTERdESKtOP; rETURN TO THE DESKtOP.
  43. ; *** tHIS IS THE DATA FOR THE "NEW" POINTE
  44. ; *** tHIS IS THE DATA FOR THE "NEW" POINTER FOR THE 80 COLUMN SCREEN.
  45.  @pOINTERdATA
  46. .BYTE
  47. %00111111, %11111111
  48. ; dATA FOR THE "MASK" OF THE POINTER.
  49. .BYTE
  50. %01011111, %11111111
  51. ; 0 BITS CLEAR CORRESPONDING PIXELS.
  52. .BYTE
  53. %01101111, %11111111
  54. ; 1 BITS DO NOT CLEAR PIXELS.
  55. .BYTE
  56. %01111011, %11111111
  57. .BYTE
  58. %01111101, %11111111
  59. .BYTE
  60. %01111110, %11111111
  61. .BYTE
  62. %00011101, %11111111
  63. .BYTE
  64. %11100011, %11111111
  65. .BYTE
  66. %00000000, %00000000
  67. ; dATA FOR THE POINTER. (16 X 8 PIXELS)
  68. .BYTE
  69. %01000000, %00000000
  70. ; 0 BITS DO NOT SET PIXELS.
  71. .BYTE
  72. %01100000, %00000000
  73. ; 1 BITS SET CORRESPONDING PIXELS.
  74. .BYTE
  75. %01111000, %00000000
  76. .BYTE
  77. %01111100, %00000000
  78. .BYTE
  79. %01111110, %00000000
  80. .BYTE
  81. %00011100, %00000000
  82. .BYTE
  83. %00000000, %00000000
  84.  @cREDITS
  85. .BYTE"
  86.  @tHIS PROGRAM WAS WRITTEN BY jAMES w. pYLE iii
  87. .BYTE"
  88.  @ - jAMESp100 ON q-lINK.
  89.  @prgeND
  90. :.END; eND OF PROGRAM.
  91.  @nOTE
  92. :  tHE BINARY DATA ABOVE USES THE cOMMDORE 10 POINT FONT TO KEEP THE CHARACTERS ALINED.
  93. ; i WOULD LIKE TO THANK THE FOLLOWING:
  94. ;   
  95.  @georep jim
  96.  FOR HIS HELP WITH THIS PROGRAM
  97. ;   
  98.  @bERKELEY sOFTWORKS
  99.  FOR CREATING 
  100.  @geos 64
  101.  AND 
  102.  @geos 128,
  103. ;  qUANTUMlINK
  104.  FOR PROVIDING 
  105.  @cOMMDORE
  106.  USER'S WITH THE 
  107.  @geos arena,
  108. AND 
  109.  @cOMMDORE
  110.  FOR CREATING THE WORLDS BEST 8 BIT COMPUTER.
  111. ; iF THERE ARE ANY SUGGESTIONS ON HOW TO INPROVE THIS PROGRAM PLEASE SEND e-mail ON q-lINK TO
  112.  @jAMESp100
  113. .  pLEASE FILL FREE TO MODIFY THIS PROGRAM AS YOU WISH, BUT DO NOT REMOVE MY NAME
  114. ; OR ANY OF THE COMMENTS ABOVE.  iF YOU MODIFY IT, UPLOAD IT TO q-lINK WITH THE MODIFIED SOURCE
  115. ; CODE SO THAT OTHER USERS MAY SEE THE CHANGES.
  116. ; tHANK YOU,
  117. ; jAMES w. pYLE iii
  118.