home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / geos / utils / pntr128.lbr / POINTER.SRC.seq (.txt) < prev    next >
GEOS ConVerT  |  2019-04-13  |  4KB  |  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. .if    Pass1        ; Only need to include these files
  14.             ;    during assembler's first pass.
  15. .include    geosSym        ; Get GEOS definitions.
  16. .include    geosMac        ; 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.     jsr    NewDisk    ; 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.     LoadW    r0,PointerData    ; Source address of data to move.
  35.     LoadW    r1,KerPntrData    ; Destination address of data to move.
  36.     LoadW    r2,32    ; Number of bytes to move.  Only 32.
  37.     LoadB    r3L,1    ; Bank to move data FROM.  Bank 1
  38.     LoadB    r3H,0    ; Bank to move data TO.  Bank 0
  39.     jsr    MoveBData
  40.     LoadW    r0,0    ; Set r0 to activate the "new" system
  41.     jsr    SetMsePic            ;   pointer.
  42.     jmp    EnterDeskTop    ; 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.