DWB 4 POINTER.HDR S 2103 POINTER.SRC S 4251 POINTER.LNK S 1142 POINTER128 P 661 Pointer.hdrY )SEQ formatted GEOS file V1.0 StarNX-1000COP V2.0 or highernager X   GEOPAINT Y BLASTER'S CONVERTER V2.5Y   GEOASSEMBLERW /GEOLINKER W 1AWrite Image V2.1geoWrite V1.1 K. 9*This is the header file for ReColor. It can be viewed from geoWrite.7 E* H E8Hx@`xxxxx ; * ; *** 128Pointer Header File ; * .if Pass1 ; Only need to include this file ; during assembler's first pass. .include geosSym ; Get GEOS definitions .endif .header ; Set the start of the header section .word 0 ; First two bytes are always zero .byte 3 ; Width in bytes .byte 21 ; and height in scanlines of: @ .byte $80 | USR ; Commodore file type, with bit 7 set. .byte AUTO_EXEC ; GEOS file type. .byte SEQUENTIAL ; GEOS file structure type. .word PRGStart ; Start address of program .word PRGEnd ; End address of program .word PRGStart ; Init address of program (where to JMP to) .byte "Pointer128 V1.0",0,0,0,$C0 ; Permanent filename: 12 characters, ; followed by 4 char version number, ; followed by 3 zeroes, ; followed by 40/80 column flag. .byte "James W. Pyle III",0,0,0 ; Author's name: 20 characters .block 160-117 ; Skip 43 bytes. .byte "This will change the 128's 80" ; Info. on the program. .byte " column pointer picture.",0 .endh @ek=I%==%= UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU=I%==%= Pointer.src Y SEQ formatted GEOS file V1.0g StarNX-1000COP V2.0 or highernager X   GEOPAINT Y BLASTER'S CONVERTER V2.5Y   GEOASSEMBLERW /GEOLINKER W 1AWrite Image V2.1geoWrite V2.1?1ʎ A9 8%Lh92Z?\, A0 8 n5-- 'F & % t %7 Š/ x9@` ; * ; *** Pointer128 Main Program: This program will change the defualt GEOS 128 80 column pointer ; *** to the one in this program. ; * .if Pass1 ; Only need to include these files ; during assembler's first pass. .include geosSym ; Get GEOS definitions. .include geosMac ; Get GEOS macro definitions. .endif SetMsePic == $C2DA ; Set a "new" mouse picture. KerPntrData == $C844 ; Location in kernal of pointer data. MoveBData == $C2E3 ; Move data between banks. .psect ; Program code starts here (GeoLinker will set ; the start address: $0400) ; * ; *** This will be the start of the program main code. ; *  @PRGStart : ; This label will set the start address. jsr NewDisk ; A bug with older versions of GEOS made ; necessary to call  NewDisk to stop the ; the disk motor if the application does ; access the disk. From  Geos P.R.G. ; * ; *** Move data for the new pointer over the old data in the kernal. Note: Old data is destroyed. ; * LoadW r0,PointerData ; Source address of data to move. LoadW r1,KerPntrData ; Destination address of data to move. LoadW r2,32 ; Number of bytes to move. Only 32. LoadB r3L,1 ; Bank to move data FROM. Bank 1 LoadB r3H,0 ; Bank to move data TO. Bank 0 jsr MoveBData LoadW r0,0 ; Set r0 to activate the "new" system jsr SetMsePic ; pointer. jmp EnterDeskTop ; Return to the deskTop. Yt@`0 ; * ; *** This is the data for the "new" pointe@`0 ; * ; *** This is the data for the "new" pointer for the 80 column screen. ; *  @PointerData : .byte %00111111, %11111111 ; Data for the "mask" of the pointer.  .byte %01011111, %11111111  ; 0 bits clear corresponding pixels.  .byte %01101111, %11111111  ; 1 bits do not clear pixels.  .byte %01111011, %11111111  .byte %01111101, %11111111  .byte %01111110, %11111111  .byte %00011101, %11111111  .byte %11100011, %11111111  .byte %00000000, %00000000 ; Data for the pointer. (16 x 8 pixels)  .byte %01000000, %00000000  ; 0 bits do not set pixels.  .byte %01100000, %00000000  ; 1 bits set corresponding pixels.  .byte %01111000, %00000000  .byte %01111100, %00000000  .byte %01111110, %00000000  .byte %00011100, %00000000  .byte %00000000, %00000000  ;  @Credits : .byte " @This program was written by James W. Pyle III " @  .byte " @ - JamesP100 on Q-Link. ",0  @PRGEnd : .end ; End of program. ;  @Note : The binary data above uses the Commdore 10 point font to keep the characters alined. ; I would like to thank the following: ;  @GEOREP JIM for his help with this program @, ;  @Berkeley Softworks for creating  @GEOS 64 and  @GEOS 128, ; QuantumLink for providing  @Commdore user's with the  @GEOS ARENA, ;  and  @Commdore for creating the worlds best 8 bit computer. ; If there are any suggestions on how to inprove this program please send E-MAIL on Q-Link to ;  @JamesP100 . Please fill free to modify this program as you wish, but do not remove my name ; or any of the comments above. If you modify it, upload it to Q-Link with the modified source ; code so that other users may see the changes. ; Thank you, ; James W. Pyle III Pointer.lnkY 6SEQ formatted GEOS file V1.0g StarNX-1000COP V2.0 or highernager X   GEOPAINT Y BLASTER'S CONVERTER V2.5Y   GEOASSEMBLERW /GEOLINKER W 1AWrite Image V2.1geoWrite V2.1  ...This is the linker command file for ReColor. It can be viewed be geoWrite.1ʎsAڢ9 V&x@`xxxxx ; * ; *** Pointer128 Linker Commands File ; * .output Pointer128 ; Name of output file. .header Pointer.hdr.rel ; Name of file containing header block. .seq ; This is a sequential application. .psect $0400 ; Program code will start here. Pointer.src.rel ; Name of file which contains relocatable ; code and data from GeoAssembler. Pointer128Y ,PRG formatted GEOS file V1.0g StarNX-1000COP V2.0 or higher28g GEOPAINT Y BLASTER'S CONVERTER V2.5Y   GEOASSEMBLERW /GEOLINKER W 1=I%==%=Pointer128 V1.0James W. Pyle IIIThis will change the 128's 80 column pointer picture. 4ȅD  © L,?_o{}~@`x|~This program was written by James W. Pyle III - JamesP100 on Q-Link.