CURSOR POSITION

FILE INFORMATION

FILENAME(S): CURSOR POSITION

FILE TYPE(S): PRG

FILE SIZE: 812b

FIRST SEEN: 2025-11-30 21:12:21

APPEARS ON: 2 disk(s)

FILE HASH

0c9348b80942cfeb47f8b67f23ae14e67699ae5e2fe7b355b9f8947547b9b6e2

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
RANS ISK1	CURSOR POSITION	PRG	DuncanTwain	24	12	DOWNLOAD FILE
RANS ISK2	CURSOR POSITION	PRG	DuncanTwain	24	17	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 29 08 00 00 8F 20  43 55 52 53 4F 52 20 50  |..).... CURSOR P|
00000010: 4F 53 49 54 49 4F 4E 20  28 53 45 50 54 20 34 2F  |OSITION (SEPT 4/|
00000020: 38 34 29 20 20 20 20 20  3A 00 2F 08 01 00 3A 00  |84)     :./...:.|
00000030: 4F 08 02 00 8F 20 20 31  20 53 54 41 54 45 4D 45  |O....  1 STATEME|
00000040: 4E 54 2C 20 20 31 20 46  55 4E 43 54 49 4F 4E 00  |NT,  1 FUNCTION.|
00000050: 55 08 03 00 3A 00 72 08  04 00 8F 20 4B 45 59 57  |U...:.r.... KEYW|
00000060: 4F 52 44 20 43 48 41 52  41 43 54 45 52 53 3A 20  |ORD CHARACTERS: |
00000070: 31 30 00 78 08 05 00 3A  00 A0 08 06 00 8F 20 4B  |10.x...:...... K|
00000080: 45 59 57 4F 52 44 20 20  20 20 20 52 4F 55 54 49  |EYWORD     ROUTI|
00000090: 4E 45 20 20 4C 49 4E 45  20 20 20 53 45 52 20 23  |NE  LINE   SER #|
000000A0: 00 C7 08 07 00 8F 20 53  2F 43 55 52 53 4F 52 20  |...... S/CURSOR |
000000B0: 20 20 20 43 53 52 20 20  20 20 20 20 32 35 37 34  |   CSR      2574|
000000C0: 20 20 20 20 30 30 34 00  EE 08 08 00 8F 20 46 2F  |    004...... F/|
000000D0: 43 4C 4F 43 20 20 20 20  20 20 43 53 52 4C 4F 43  |CLOC      CSRLOC|
000000E0: 20 20 20 32 36 30 36 20  20 20 20 30 30 35 00 F4  |   2606    005..|
000000F0: 08 09 00 3A 00 0C 09 0A  00 8F 20 55 2F 55 53 46  |...:...... U/USF|
00000100: 50 20 28 32 36 32 30 2F  30 30 36 29 00 12 09 0B  |P (2620/006)....|
00000110: 00 3A 00 39 09 0C 00 8F  20 3D 3D 3D 3D 3D 3D 3D  |.:.9.... =======|
00000120: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000130: 3D 3D 3D 3D 3D 3D 3D 3D  3D 00 3F 09 0D 00 3A 00  |=========.?...:.|
00000140: 4F 09 65 00 2E C6 20 22  43 55 52 53 4F D2 22 00  |O.e... "CURSO.".|
00000150: 5D 09 58 02 2E C6 20 22  43 4C 4F C3 22 00 6C 09  |].X... "CLO.".l.|
00000160: 4D 04 2E 57 B0 44 20 43  53 52 AB 31 00 7E 09 40  |M..W.D CSR.1.~.@|
00000170: 06 2E 57 B0 44 20 43 53  52 4C 4F 43 AB 31 00 90  |..W.D CSRLOC.1..|
00000180: 09 0E 0A 43 53 52 20 4A  53 52 20 24 42 37 39 45  |...CSR JSR $B79E|
00000190: 00 9D 09 10 0A 43 50 58  20 23 24 31 39 00 A9 09  |.....CPX #$19...|
000001A0: 12 0A 42 43 53 20 43 53  32 00 B1 09 14 0A 54 58  |..BCS CS2.....TX|
000001B0: 41 00 B9 09 16 0A 50 48  41 00 C4 09 17 0A 4C 44  |A.....PHA.....LD|
000001C0: 59 20 23 30 00 D0 09 18  0A 4A 53 52 20 24 37 39  |Y #0.....JSR $79|
000001D0: 00 DC 09 19 0A 42 45 51  20 43 53 31 00 E9 09 1A  |.....BEQ CS1....|
000001E0: 0A 43 4D 50 20 23 22 2C  22 00 F5 09 1B 0A 42 4E  |.CMP #",".....BN|
000001F0: 45 20 43 53 33 00 03 0A  1C 0A 4A 53 52 20 24 42  |E CS3.....JSR $B|
00000200: 37 39 42 00 10 0A 1D 0A  43 50 58 20 23 24 32 38  |79B.....CPX #$28|
00000210: 00 1C 0A 1E 0A 42 43 53  20 43 53 32 00 24 0A 20  |.....BCS CS2.$. |
00000220: 0A 54 58 41 00 2C 0A 22  0A 54 41 59 00 38 0A 24  |.TXA.,.".TAY.8.$|
00000230: 0A 43 53 31 20 50 4C 41  00 40 0A 26 0A 54 41 58  |.CS1 PLA.@.&.TAX|
00000240: 00 48 0A 27 0A 43 4C 43  00 56 0A 28 0A 4A 4D 50  |.H.'.CLC.V.(.JMP|
00000250: 20 24 46 46 46 30 00 68  0A 2A 0A 43 53 32 20 4A  | $FFF0.h.*.CS2 J|
00000260: 4D 50 20 24 42 32 34 38  00 7A 0A 2B 0A 43 53 33  |MP $B248.z.+.CS3|
00000270: 20 4A 4D 50 20 24 41 46  30 38 00 80 0A 2C 0A 3B  | JMP $AF08...,.;|
00000280: 00 93 0A 2E 0A 43 53 52  4C 4F 43 20 4C 44 41 20  |.....CSRLOC LDA |
00000290: 24 44 31 00 9B 0A 30 0A  43 4C 43 00 A7 0A 32 0A  |$D1...0.CLC...2.|
000002A0: 41 44 43 20 24 44 33 00  AF 0A 34 0A 54 41 59 00  |ADC $D3...4.TAY.|
000002B0: BB 0A 36 0A 4C 44 41 20  24 44 32 00 C6 0A 38 0A  |..6.LDA $D2...8.|
000002C0: 41 44 43 20 23 30 00 CC  0A 3A 0A 3B 00 DC 0A 3C  |ADC #0...:.;...<|
000002D0: 0A 55 53 46 50 20 4C 44  58 20 23 30 00 E8 0A 3E  |.USFP LDX #0...>|
000002E0: 0A 53 54 58 20 24 30 44  00 F4 0A 40 0A 53 54 41  |.STX $0D...@.STA|
000002F0: 20 24 36 32 00 00 0B 42  0A 53 54 59 20 24 36 33  | $62...B.STY $63|
00000300: 00 0D 0B 44 0A 4C 44 58  20 23 24 39 30 00 15 0B  |...D.LDX #$90...|
00000310: 46 0A 53 45 43 00 23 0B  48 0A 4A 4D 50 20 24 42  |F.SEC.#.H.JMP $B|
00000320: 43 34 39 00 29 0B 4A 0A  3B 00 00 00              |C49.).J.;...    |

..).... CURSOR POSITION (SEPT 4/84)     
:./...:.O....  1 STATEMENT,  1 FUNCTION.
U...:.R.... KEYWORD CHARACTERS: 10.X...:
. .... KEYWORD     ROUTINE  LINE   SER #
.G.... S/CURSOR    CSR      2574    004.
..... F/CLOC      CSRLOC   2606    005..
...:...... U/USFP (2620/006).....:.9....
 ================================.?...:.
O.E..F "CURSOR".].X..F "CLOC".L.M..W.D C
SR.1.~.@..W.D CSRLOC.1.....CSR JSR $B79E
.....CPX #$19.....BCS CS2.....TXA.....PH
A.D...LDY #0.P...JSR $79.....BEQ CS1....
.CMP #",".....BNE CS3.....JSR $B79B.....
CPX #$28.....BCS CS2.$. .TXA.,.".TAY.8.$
.CS1 PLA.@.&.TAX.H.'.CLC.V.(.JMP $FFF0.H
.*.CS2 JMP $B248.Z.+.CS3 JMP $AF08...,.;
.....CSRLOC LDA $D1...0.CLC...2.ADC $D3.
..4.TAY...6.LDA $D2.F.8.ADC #0.L.:.;...<
.USFP LDX #0...>.STX $0D...@.STA $62...B
.STY $63...D.LDX #$90...F.SEC.#.H.JMP $B
C49.).J.;...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL