UNDERLINE CURSOR

FILE INFORMATION

FILENAME(S): UNDERLINE CURSOR

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-11-30 21:24:08

APPEARS ON: 1 disk(s)

FILE HASH

eb542e6f78a5d97a898e0f863786eb6c519749c348419317e3e0a2e9c8bdf70e

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
BEST OF TORPET	UNDERLINE CURSOR	PRG	DuncanTwain	28	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 28 08 0A 00 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |..(.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A  00 30 08 14 00 8F 20 2A  |********.0.... *|
00000030: 00 48 08 1E 00 8F 20 2A  20 43 48 41 52 41 43 54  |.H.... * CHARACT|
00000040: 45 52 2D 53 45 54 55 50  00 50 08 28 00 8F 20 2A  |ER-SETUP.P.(.. *|
00000050: 00 5B 08 32 00 8F 20 2A  20 42 59 00 63 08 3C 00  |.[.2.. * BY.c.<.|
00000060: 8F 20 2A 00 7C 08 46 00  8F 20 2A 20 50 45 54 45  |. *.|.F.. * PETE|
00000070: 52 20 54 41 54 54 45 52  53 41 4C 4C 00 84 08 50  |R TATTERSALL...P|
00000080: 00 8F 20 2A 00 AB 08 5A  00 8F 20 2A 2A 2A 2A 2A  |.. *...Z.. *****|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 00 B1 08 64 00  |***********...d.|
000000B0: 3A 00 DA 08 65 00 97 20  35 32 2C 31 30 34 3A 97  |:...e.. 52,104:.|
000000C0: 20 35 36 2C 31 30 34 3A  9C 3A 8F 20 52 45 53 45  | 56,104:.:. RESE|
000000D0: 52 56 45 20 4D 45 4D 4F  52 59 00 E0 08 66 00 3A  |RVE MEMORY...f.:|
000000E0: 00 F9 08 67 00 8F 20 54  55 52 4E 20 4F 4E 20 43  |...g.. TURN ON C|
000000F0: 48 41 52 41 43 54 45 52  53 00 FF 08 68 00 3A 00  |HARACTERS...h.:.|
00000100: 1E 09 69 00 97 20 35 33  32 37 32 2C 28 C2 28 35  |..i.. 53272,(.(5|
00000110: 33 32 37 32 29 AF 20 32  34 30 29 AA 31 34 00 24  |3272). 240).14.$|
00000120: 09 6A 00 3A 00 45 09 6E  00 8F 20 57 45 27 4C 4C  |.j.:.E.n.. WE'LL|
00000130: 20 44 4F 20 41 4C 4C 20  54 48 49 53 20 49 4E 20  | DO ALL THIS IN |
00000140: 42 41 53 49 43 00 6B 09  78 00 8F 20 53 4F 20 59  |BASIC.k.x.. SO Y|
00000150: 4F 55 20 43 41 4E 20 53  45 45 20 57 48 41 54 20  |OU CAN SEE WHAT |
00000160: 57 45 27 52 45 20 44 4F  49 4E 47 00 71 09 82 00  |WE'RE DOING.q...|
00000170: 3A 00 95 09 8C 00 8F 20  46 49 52 53 54 20 54 55  |:...... FIRST TU|
00000180: 52 4E 20 4F 46 46 20 54  48 45 20 49 4E 54 45 52  |RN OFF THE INTER|
00000190: 52 55 50 54 53 00 BA 09  91 00 8F 20 57 48 49 43  |RUPTS...... WHIC|
000001A0: 48 20 49 53 20 4F 4B 20  46 52 4F 4D 20 42 41 53  |H IS OK FROM BAS|
000001B0: 49 43 20 41 53 20 4C 4F  4E 47 00 DD 09 92 00 8F  |IC AS LONG......|
000001C0: 20 41 53 20 59 4F 55 20  44 4F 4E 27 54 20 48 41  | AS YOU DON'T HA|
000001D0: 56 45 20 42 55 53 20 43  41 52 44 53 2C 00 FE 09  |VE BUS CARDS,...|
000001E0: 93 00 8F 20 4F 52 20 28  53 4F 4D 45 29 20 42 41  |... OR (SOME) BA|
000001F0: 53 49 43 20 45 58 54 45  4E 53 49 4F 4E 53 00 04  |SIC EXTENSIONS..|
00000200: 0A 94 00 3A 00 1E 0A 96  00 97 20 35 36 33 33 34  |...:...... 56334|
00000210: 2C C2 28 35 36 33 33 34  29 AF 20 32 35 34 00 24  |,.(56334). 254.$|
00000220: 0A 97 00 3A 00 3F 0A 98  00 8F 20 52 45 53 45 54  |...:.?.... RESET|
00000230: 20 54 48 45 20 42 4C 4F  43 4B 20 54 4F 20 31 00  | THE BLOCK TO 1.|
00000240: 45 0A 99 00 3A 00 76 0A  9A 00 97 20 35 36 35 37  |E...:.v.... 5657|
00000250: 38 2C C2 28 35 36 35 37  38 29 B0 33 3A 97 20 35  |8,.(56578).3:. 5|
00000260: 36 35 37 36 2C 28 C2 28  35 36 35 37 36 29 AF 20  |6576,(.(56576). |
00000270: 32 35 32 29 B0 32 00 7C  0A 9B 00 3A 00 99 0A 9C  |252).2.|...:....|
00000280: 00 8F 20 52 45 53 45 54  20 54 48 45 20 50 41 47  |.. RESET THE PAG|
00000290: 45 20 50 4F 49 4E 54 45  52 00 9F 0A 9D 00 3A 00  |E POINTER.....:.|
000002A0: CA 0A 9E 00 97 20 36 34  38 2C 31 30 34 3A 97 20  |..... 648,104:. |
000002B0: 35 33 32 37 32 2C 28 C2  28 35 33 32 37 32 29 AF  |53272,(.(53272).|
000002C0: 20 31 35 29 20 B0 20 31  36 30 00 D0 0A 9F 00 3A  | 15) . 160.....:|
000002D0: 00 D6 0A A0 00 3A 00 F9  0A AA 00 8F 20 53 57 49  |.....:...... SWI|
000002E0: 54 43 48 20 4F 55 54 20  49 2F 4F 20 41 4E 44 20  |TCH OUT I/O AND |
000002F0: 53 57 49 54 43 48 20 49  4E 00 0D 0B B4 00 8F 20  |SWITCH IN...... |
00000300: 43 48 41 52 41 43 54 45  52 20 52 4F 4D 00 20 0B  |CHARACTER ROM. .|
00000310: BE 00 97 20 31 2C C2 28  31 29 20 AF 20 32 35 31  |... 1,.(1) . 251|
00000320: 00 26 0B C8 00 3A 00 45  0B D2 00 8F 20 4D 4F 56  |.&...:.E.... MOV|
00000330: 45 20 43 48 41 52 41 43  54 45 52 53 20 54 4F 20  |E CHARACTERS TO |
00000340: 24 33 30 30 30 00 4B 0B  DC 00 3A 00 5C 0B E6 00  |$3000.K...:.\...|
00000350: 81 20 49 B2 30 20 A4 20  34 30 39 35 00 75 0B F0  |. I.0 . 4095.u..|
00000360: 00 97 20 49 AA 32 38 36  37 32 2C C2 28 49 AA 35  |.. I.28672,.(I.5|
00000370: 33 32 34 38 29 00 7B 0B  FA 00 82 00 81 0B 04 01  |3248).{.........|
00000380: 3A 00 93 0B 0E 01 8F 20  52 45 53 54 4F 52 45 20  |:...... RESTORE |
00000390: 49 2F 4F 00 99 0B 18 01  3A 00 AA 0B 22 01 97 20  |I/O.....:...".. |
000003A0: 31 2C C2 28 31 29 20 B0  20 34 00 B0 0B 2C 01 3A  |1,.(1) . 4...,.:|
000003B0: 00 C8 0B 36 01 8F 20 52  45 53 54 4F 52 45 20 49  |...6.. RESTORE I|
000003C0: 4E 54 45 52 55 50 54 53  00 CE 0B 40 01 3A 00 E7  |NTERUPTS...@.:..|
000003D0: 0B 4A 01 97 20 35 36 33  33 34 2C C2 28 35 36 33  |.J.. 56334,.(563|
000003E0: 33 34 29 20 B0 20 31 00  ED 0B 54 01 3A 00 03 0C  |34) . 1...T.:...|
000003F0: 5E 01 8F 20 4D 4F 44 49  46 59 20 22 42 4C 4F 43  |^.. MODIFY "BLOC|
00000400: 4B 53 22 00 09 0C 68 01  3A 00 1D 0C 72 01 81 20  |KS"...h.:...r.. |
00000410: 49 B2 31 30 32 34 20 A4  20 32 30 34 37 00 36 0C  |I.1024 . 2047.6.|
00000420: 7C 01 97 20 32 38 36 37  32 AA 49 2C C2 28 32 37  ||.. 28672.I,.(27|
00000430: 36 34 38 AA 49 29 00 3C  0C 86 01 82 00 42 0C 90  |648.I).<.....B..|
00000440: 01 3A 00 5A 0C 9A 01 81  20 49 B2 31 30 33 31 20  |.:.Z.... I.1031 |
00000450: A4 20 32 30 34 37 20 A9  20 38 00 6C 0C A4 01 97  |. 2047 . 8.l....|
00000460: 20 32 38 36 37 32 AA 49  2C 32 35 35 00 72 0C AE  | 28672.I,255.r..|
00000470: 01 82 00 78 0C B8 01 3A  00 8C 0C C2 01 81 20 49  |...x...:...... I|
00000480: B2 33 30 37 32 20 A4 20  34 30 39 35 00 A5 0C CC  |.3072 . 4095....|
00000490: 01 97 20 32 38 36 37 32  AA 49 2C C2 28 32 37 36  |.. 28672.I,.(276|
000004A0: 34 38 AA 49 29 00 AB 0C  D6 01 82 00 B1 0C E0 01  |48.I)...........|
000004B0: 3A 00 C8 0C EA 01 81 20  49 B2 33 30 37 39 20 A4  |:...... I.3079 .|
000004C0: 34 30 39 35 20 A9 20 38  00 E4 0C F4 01 42 B2 32  |4095 . 8.....B.2|
000004D0: 35 35 20 AF 20 28 A8 28  C2 28 32 38 36 37 32 AA  |55 . (.(.(28672.|
000004E0: 49 29 29 29 00 F4 0C FE  01 97 20 32 38 36 37 32  |I)))...... 28672|
000004F0: AA 49 2C 42 00 FA 0C 08  02 82 00 00 0D 12 02 3A  |.I,B...........:|
00000500: 00 24 0D 1C 02 8F 20 41  4C 4C 20 44 4F 4E 45 20  |.$.... ALL DONE |
00000510: 2D 20 42 55 54 20 4E 4F  57 20 57 45 20 48 41 56  |- BUT NOW WE HAV|
00000520: 45 20 4E 4F 00 47 0D 26  02 8F 20 52 45 56 45 52  |E NO.G.&.. REVER|
00000530: 53 45 20 43 48 41 52 41  43 54 45 52 53 2C 20 41  |SE CHARACTERS, A|
00000540: 4E 44 20 53 4F 4D 45 00  65 0D 30 02 8F 20 4D 45  |ND SOME.e.0.. ME|
00000550: 4D 4F 52 59 20 53 50 41  43 45 20 49 53 20 57 41  |MORY SPACE IS WA|
00000560: 53 54 45 44 2E 00 6B 0D  3A 02 3A 00 A1 0D 44 02  |STED..k.:.:...D.|
00000570: 8F 20 4F 46 20 43 4F 55  52 53 45 2C 20 4D 41 43  |. OF COURSE, MAC|
00000580: 48 49 4E 45 20 43 4F 44  45 20 57 4F 55 4C 44 20  |HINE CODE WOULD |
00000590: 44 4F 20 54 48 49 53 20  46 41 53 54 45 52 2E 2E  |DO THIS FASTER..|
000005A0: 2E 00 A7 0D 4E 02 3A 00  C9 0D 58 02 8F 20 53 45  |....N.:...X.. SE|
000005B0: 54 20 55 50 20 41 20 4E  45 57 20 49 4E 54 45 52  |T UP A NEW INTER|
000005C0: 55 50 54 20 45 4E 54 52  59 00 DD 0D 62 02 8F 20  |UPT ENTRY...b.. |
000005D0: 41 4E 44 20 45 4E 41 42  4C 45 20 49 54 00 F3 0D  |AND ENABLE IT...|
000005E0: 6C 02 81 20 49 B2 33 32  37 36 38 20 A4 20 33 32  |l.. I.32768 . 32|
000005F0: 38 30 39 00 FB 0D 76 02  87 20 41 00 05 0E 80 02  |809...v.. A.....|
00000600: 97 20 49 2C 41 00 0B 0E  8A 02 82 00 11 0E 94 02  |. I,A...........|
00000610: 3A 00 1D 0E 9E 02 9E 20  33 32 37 39 37 00 23 0E  |:...... 32797.#.|
00000620: A8 02 3A 00 29 0E B2 02  80 00 2F 0E B7 02 3A 00  |..:.)...../...:.|
00000630: 5A 0E B8 02 8F 20 46 49  52 53 54 20 54 57 4F 20  |Z.... FIRST TWO |
00000640: 44 41 54 41 20 4C 49 4E  45 53 20 41 52 45 20 46  |DATA LINES ARE F|
00000650: 4C 41 53 48 4B 49 4C 4C  45 52 00 60 0E B9 02 3A  |LASHKILLER.`...:|
00000660: 00 A1 0E BC 02 83 20 33  32 2C 32 33 34 2C 32 35  |...... 32,234,25|
00000670: 35 2C 31 36 35 2C 32 30  34 2C 32 30 38 2C 31 39  |5,165,204,208,19|
00000680: 2C 31 36 34 2C 32 31 31  2C 31 37 37 2C 32 30 39  |,164,211,177,209|
00000690: 2C 34 31 2C 31 32 37 2C  31 33 33 2C 32 30 36 2C  |,41,127,133,206,|
000006A0: 39 00 D5 0E C6 02 83 20  31 32 38 2C 31 34 35 2C  |9...... 128,145,|
000006B0: 32 30 39 2C 31 36 39 2C  31 2C 31 33 33 2C 32 30  |209,169,1,133,20|
000006C0: 37 2C 37 36 2C 37 39 2C  32 33 34 2C 37 36 2C 39  |7,76,79,234,76,9|
000006D0: 37 2C 32 33 34 00 DB 0E  CB 02 3A 00 F6 0E CC 02  |7,234.....:.....|
000006E0: 8F 20 4E 45 58 54 20 4C  49 4E 45 20 49 53 20 45  |. NEXT LINE IS E|
000006F0: 4E 41 42 4C 45 52 00 FC  0E D0 02 3A 00 2C 0F DA  |NABLER.....:.,..|
00000700: 02 83 20 31 32 30 2C 31  36 39 2C 30 2C 31 34 31  |.. 120,169,0,141|
00000710: 2C 32 30 2C 33 2C 31 36  39 2C 31 32 38 2C 31 34  |,20,3,169,128,14|
00000720: 31 2C 32 31 2C 33 2C 38  38 2C 39 36 00 00 00     |1,21,3,88,96... |

..(.... ********************************
.0.... *.H.... * CHARACTER-SETUP.P.(.. *
.[.2.. * BY.C.<.. *.|.F.. * PETER TATTER
SALL...P.. *...Z.. *********************
***********...D.:.Z.E.. 52,104:. 56,104:
.:. RESERVE MEMORY...F.:...G.. TURN ON C
HARACTERS...H.:...I.. 53272,(B(53272). 2
40).14.$.J.:.E.N.. WE'LL DO ALL THIS IN 
BASIC.K.X.. SO YOU CAN SEE WHAT WE'RE DO
ING.Q...:...... FIRST TURN OFF THE INTER
RUPTS...... WHICH IS OK FROM BASIC AS LO
NG...... AS YOU DON'T HAVE BUS CARDS,...
... OR (SOME) BASIC EXTENSIONS.....:....
.. 56334,B(56334). 254.$...:.?.... RESET
 THE BLOCK TO 1.E...:.V.... 56578,B(5657
8).3:. 56576,(B(56576). 252).2.|...:....
.. RESET THE PAGE POINTER.....:.J.... 64
8,104:. 53272,(B(53272). 15) . 160.P...:
.V. .:...... SWITCH OUT I/O AND SWITCH I
N...... CHARACTER ROM. .... 1,B(1) . 251
.&.H.:.E.R.. MOVE CHARACTERS TO $3000.K.
..:.\.... I.0 . 4095.U.... I.28672,B(I.5
3248).{.........:...... RESTORE I/O.....
:...".. 1,B(1) . 4...,.:.H.6.. RESTORE I
NTERUPTS.N.@.:...J.. 56334,B(56334) . 1.
..T.:...^.. MODIFY "BLOCKS"...H.:...R.. 
I.1024 . 2047.6.|.. 28672.I,B(27648.I).<
.....B...:.Z.... I.1031 . 2047 . 8.L....
 28672.I,255.R.....X...:...B.. I.3072 . 
4095...L.. 28672.I,B(27648.I)...V.......
:.H.... I.3079 .4095 . 8.....B.255 . (.(
B(28672.I)))...... 28672.I,B...........:
.$.... ALL DONE - BUT NOW WE HAVE NO.G.&
.. REVERSE CHARACTERS, AND SOME.E.0.. ME
MORY SPACE IS WASTED..K.:.:...D.. OF COU
RSE, MACHINE CODE WOULD DO THIS FASTER..
....N.:.I.X.. SET UP A NEW INTERUPT ENTR
Y...B.. AND ENABLE IT...L.. I.32768 . 32
809...V.. A...... I,A...........:...... 
32797.#...:.)...../...:.Z.... FIRST TWO 
DATA LINES ARE FLASHKILLER.`...:...... 3
2,234,255,165,204,208,19,164,211,177,209
,41,127,133,206,9.U.F.. 128,145,209,169,
1,133,207,76,79,234,76,97,234...K.:...L.
. NEXT LINE IS ENABLER...P.:.,.Z.. 120,1
69,0,141,20,3,169,128,141,21,3,88,96...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL