CURSOR.F.A
FILE INFORMATION
FILENAME(S): CURSOR.F.A
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-12-01 01:08:54
APPEARS ON: 1 disk(s)
FILE HASH
9501850c747e69585815b4efade0e93260448407c47740cb78da9a730700f877
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK | CURSOR.F.A | PRG | hedning, loot | 14 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 1C 12 44 12 64 00 3B 20 43 55 52 53 4F 52 2E 46 |..D.d.; CURSOR.F| 00000010: 2E 41 20 20 20 20 20 AC 20 43 55 52 53 4F 52 20 |.A . CURSOR | 00000020: 52 55 54 49 4E 45 52 20 AC 00 4A 12 6E 00 3B 00 |RUTINER ..J.n.;.| 00000030: 50 12 78 00 3B 00 56 12 82 00 3B 00 7E 12 8C 00 |P.x.;.V...;.~...| 00000040: 43 4C 52 53 43 52 20 20 20 20 B2 20 24 45 35 45 |CLRSCR . $E5E| 00000050: 45 3B 20 43 4C 45 41 52 20 54 48 45 20 53 43 52 |E; CLEAR THE SCR| 00000060: 45 45 4E 00 AE 12 91 00 43 4F 4C 41 44 52 20 20 |EEN.....COLADR | 00000070: 20 20 B2 20 24 45 41 32 34 3B 20 43 41 4C 43 55 | . $EA24; CALCU| 00000080: 4C 41 54 45 20 43 4F 4C 4F 55 52 20 41 44 44 52 |LATE COLOUR ADDR| 00000090: 45 53 53 00 F2 12 96 00 48 4F 4D 45 20 20 20 20 |ESS.....HOME | 000000A0: 20 20 B2 20 24 45 35 36 36 3B 20 50 4F 53 49 54 | . $E566; POSIT| 000000B0: 49 4F 4E 20 54 48 45 20 43 55 52 53 4F 52 20 49 |ION THE CURSOR I| 000000C0: 4E 20 54 48 45 20 55 50 50 45 52 20 4C 45 46 54 |N THE UPPER LEFT| 000000D0: 20 43 4F 52 4E 45 52 00 24 13 9B 00 53 43 4C 53 | CORNER.$...SCLS| 000000E0: 43 52 20 20 20 20 B2 20 24 45 38 45 41 3B 20 53 |CR . $E8EA; S| 000000F0: 43 52 4F 4C 4C 53 20 53 43 52 45 45 4E 20 55 50 |CROLLS SCREEN UP| 00000100: 20 4F 4E 45 20 4C 49 4E 45 00 72 13 A0 00 50 55 | ONE LINE.r...PU| 00000110: 54 43 48 41 52 20 20 20 B2 20 24 45 41 31 43 3B |TCHAR . $EA1C;| 00000120: 20 50 55 54 20 41 20 43 48 41 52 2E 20 41 54 20 | PUT A CHAR. AT | 00000130: 43 55 52 2E 50 4F 2C 43 4F 4C 4F 52 20 49 4E 20 |CUR.PO,COLOR IN | 00000140: 58 AB 20 AF 20 53 43 52 45 45 4E 20 43 4F 44 45 |X. . SCREEN CODE| 00000150: 20 49 4E 20 41 43 43 00 B0 13 A5 00 43 4C 52 4C | IN ACC.....CLRL| 00000160: 49 4E 45 20 20 20 B2 20 24 45 39 46 46 3B 20 43 |INE . $E9FF; C| 00000170: 4C 45 41 52 20 4F 4E 45 20 4C 49 4E 45 20 44 45 |LEAR ONE LINE DE| 00000180: 53 49 47 4E 45 44 20 42 59 20 2E 58 20 52 45 47 |SIGNED BY .X REG| 00000190: 49 53 54 45 52 00 D6 13 A7 00 4B 45 59 57 41 49 |ISTER.....KEYWAI| 000001A0: 54 20 20 20 B2 20 24 45 35 43 41 3B 20 92 20 81 |T . $E5CA; . .| 000001B0: 20 4B 45 59 42 4F 41 52 44 20 85 00 DC 13 AA 00 | KEYBOARD ......| 000001C0: 3B 00 E2 13 B4 00 3B 00 FB 13 BE 00 3B 20 43 55 |;.....;.....; CU| 000001D0: 52 53 4F 52 20 46 55 4E 4B 54 49 4F 4E 45 52 2E |RSOR FUNKTIONER.| 000001E0: 00 01 14 C8 00 3B 00 07 14 D2 00 3B 00 2F 14 DC |.....;.....;./..| 000001F0: 00 3B 20 22 43 55 52 41 44 52 22 20 43 41 4C 43 |.; "CURADR" CALC| 00000200: 55 4C 41 54 45 20 43 55 52 53 4F 52 20 41 44 44 |ULATE CURSOR ADD| 00000210: 52 45 53 53 00 35 14 E6 00 3B 00 5B 14 F0 00 43 |RESS.5...;.[...C| 00000220: 55 52 41 44 52 3A 20 20 90 A4 20 24 45 35 36 43 |URADR: .. $E56C| 00000230: 3B 20 A1 20 42 41 53 45 20 41 44 44 52 45 53 53 |; . BASE ADDRESS| 00000240: 00 81 14 FA 00 20 20 20 20 20 20 20 20 20 90 A4 |..... ..| 00000250: 20 43 4F 4C 41 44 52 3B 20 43 4F 4C 4F 52 20 41 | COLADR; COLOR A| 00000260: 44 44 52 45 53 53 00 91 14 04 01 20 20 20 20 20 |DDRESS..... | 00000270: 20 20 20 20 90 B6 00 97 14 4A 01 3B 00 9D 14 54 | .....J.;...T| 00000280: 01 3B 00 C1 14 5E 01 3B 20 22 53 45 54 43 55 52 |.;...^.; "SETCUR| 00000290: 22 20 53 45 54 20 43 55 52 53 4F 52 20 A4 20 52 |" SET CURSOR . R| 000002A0: 41 44 2C 4B 4F 4C 00 C7 14 68 01 3B 00 DB 14 72 |AD,KOL...h.;...r| 000002B0: 01 53 45 54 43 55 52 3A 20 20 90 A1 20 52 41 44 |.SETCUR: .. RAD| 000002C0: 00 EF 14 7C 01 20 20 20 20 20 20 20 20 20 90 A2 |...|. ..| 000002D0: 20 4B 4F 4C 00 FF 14 81 01 20 20 20 20 20 20 20 | KOL..... | 000002E0: 20 20 90 A8 00 27 15 86 01 20 20 20 20 20 20 20 | ...'... | 000002F0: 20 20 90 A4 20 24 45 35 30 41 3B 20 52 4F 4D 20 | .. $E50A; ROM | 00000300: 52 55 54 49 4E 20 22 50 4C 4F 54 22 00 37 15 90 |RUTIN "PLOT".7..| 00000310: 01 20 20 20 20 20 20 20 20 20 90 B6 00 3D 15 9A |. ...=..| 00000320: 01 3B 00 43 15 A4 01 3B 00 65 15 AE 01 3B 20 22 |.;.C...;.e...; "| 00000330: 43 55 52 4F 4E 22 20 53 45 54 20 46 4C 41 53 48 |CURON" SET FLASH| 00000340: 49 4E 47 20 43 55 52 53 4F 52 00 6B 15 B8 01 3B |ING CURSOR.k...;| 00000350: 00 82 15 C2 01 43 55 52 4F 4E 3A 20 20 20 90 A4 |.....CURON: ..| 00000360: 20 43 55 52 41 44 52 00 97 15 C4 01 20 20 20 20 | CURADR..... | 00000370: 20 20 20 20 20 90 A2 20 50 4E 54 52 00 BC 15 C6 | .. PNTR....| 00000380: 01 20 20 20 20 20 20 20 20 20 90 94 20 28 50 4E |. .. (PN| 00000390: 54 29 2C 59 3B 20 53 54 4F 52 45 20 43 48 41 52 |T),Y; STORE CHAR| 000003A0: 2E 00 D2 15 C8 01 20 20 20 20 20 20 20 20 20 90 |...... .| 000003B0: 97 20 47 44 42 4C 4E 00 F8 15 CA 01 20 20 20 20 |. GDBLN..... | 000003C0: 20 20 20 20 20 90 94 20 28 55 53 45 52 29 2C 59 | .. (USER),Y| 000003D0: 3B 20 53 54 4F 52 45 20 43 4F 4C 4F 52 00 0E 16 |; STORE COLOR...| 000003E0: CC 01 20 20 20 20 20 20 20 20 20 90 97 20 47 44 |.. .. GD| 000003F0: 43 4F 4C 00 23 16 CE 01 20 20 20 20 20 20 20 20 |COL.#... | 00000400: 20 90 94 20 23 24 30 30 00 39 16 D0 01 20 20 20 | .. #$00.9... | 00000410: 20 20 20 20 20 20 90 97 20 42 4C 4E 53 57 00 49 | .. BLNSW.I| 00000420: 16 D2 01 20 20 20 20 20 20 20 20 20 90 B6 00 4F |... ...O| 00000430: 16 E0 01 3B 00 55 16 EA 01 3B 00 7C 16 F4 01 3B |...;.U...;.|...;| 00000440: 20 22 43 55 52 4F 46 46 22 20 44 49 53 41 42 4C | "CUROFF" DISABL| 00000450: 45 20 46 4C 41 53 48 49 4E 47 20 43 55 52 53 4F |E FLASHING CURSO| 00000460: 52 00 82 16 FE 01 3B 00 97 16 08 02 43 55 52 4F |R.....;.....CURO| 00000470: 46 46 3A 20 20 90 94 20 23 24 30 31 00 BC 16 12 |FF: .. #$01....| 00000480: 02 20 20 20 20 20 20 20 20 20 90 97 20 42 4C 4E |. .. BLN| 00000490: 53 57 3B 20 44 49 53 41 42 4C 45 20 42 4C 49 4E |SW; DISABLE BLIN| 000004A0: 4B 00 E5 16 1C 02 20 20 20 20 20 20 20 20 20 90 |K..... .| 000004B0: 94 20 47 44 42 4C 4E 3B 20 43 48 41 52 20 55 4E |. GDBLN; CHAR UN| 000004C0: 44 45 52 20 43 55 52 53 4F 52 00 0F 17 26 02 20 |DER CURSOR...&. | 000004D0: 20 20 20 20 20 20 20 20 90 A1 20 47 44 43 4F 4C | .. GDCOL| 000004E0: 3B 20 43 4F 4C 4F 52 20 55 4E 44 45 52 20 43 55 |; COLOR UNDER CU| 000004F0: 52 53 4F 52 00 27 17 30 02 20 20 20 20 20 20 20 |RSOR.'.0. | 00000500: 20 20 90 A4 20 50 55 54 43 48 41 52 00 37 17 3A | .. PUTCHAR.7.:| 00000510: 02 20 20 20 20 20 20 20 20 20 90 B6 00 3D 17 44 |. ...=.D| 00000520: 02 3B 00 43 17 4E 02 3B 00 6A 17 58 02 3B 20 22 |.;.C.N.;.j.X.; "| 00000530: 47 45 54 43 55 52 22 20 A1 20 52 4F 57 20 AF 20 |GETCUR" . ROW . | 00000540: 43 4F 4C 55 4D 4E 20 81 20 43 55 52 53 4F 52 00 |COLUMN . CURSOR.| 00000550: 70 17 62 02 3B 00 9B 17 6C 02 47 45 54 43 55 52 |p.b.;...l.GETCUR| 00000560: 3A 20 20 90 A4 20 24 45 35 31 33 3B 20 87 20 43 |: .. $E513; . C| 00000570: 55 52 53 4F 52 20 50 41 52 41 4D 45 54 45 52 53 |URSOR PARAMETERS| 00000580: 00 AF 17 76 02 20 20 20 20 20 20 20 20 20 90 9E |...v. ..| 00000590: 20 52 41 44 00 C3 17 80 02 20 20 20 20 20 20 20 | RAD..... | 000005A0: 20 20 90 A3 20 4B 4F 4C 00 D3 17 8A 02 20 20 20 | .. KOL..... | 000005B0: 20 20 20 20 20 20 90 B6 00 D9 17 94 02 3B 00 DF | .......;..| 000005C0: 17 9E 02 3B 00 F0 17 E8 03 52 41 44 3A 20 20 20 |...;.....RAD: | 000005D0: 20 90 80 20 30 00 01 18 F2 03 4B 4F 4C 3A 20 20 | .. 0.....KOL: | 000005E0: 20 20 90 80 20 30 00 00 00 00 8F 14 F0 00 49 4F | .. 0........IO| 000005F0: 49 4E 49 54 20 20 B2 20 24 46 46 38 34 3B 20 49 |INIT . $FF84; I| 00000600: 4E 49 54 49 41 |NITIA |
..D.D.; CURSOR.F.A . CURSOR RUTINER
..J.N.;.P.X.;.V...;.~...CLRSCR . $E5E
E; CLEAR THE SCREEN.....COLADR . $EA2
4; CALCULATE COLOUR ADDRESS.....HOME
. $E566; POSITION THE CURSOR IN THE UP
PER LEFT CORNER.$...SCLSCR . $E8EA; S
CROLLS SCREEN UP ONE LINE.R. .PUTCHAR
. $EA1C; PUT A CHAR. AT CUR.PO,COLOR IN
X. . SCREEN CODE IN ACC.....CLRLINE .
$E9FF; CLEAR ONE LINE DESIGNED BY .X REG
ISTER.V...KEYWAIT . $E5CA; . . KEYBOAR
D ......;.....;.....; CURSOR FUNKTIONER.
...H.;...R.;./...; "CURADR" CALCULATE CU
RSOR ADDRESS.5...;.[...CURADR: .. $E56C
; . BASE ADDRESS..... .. COLADR;
COLOR ADDRESS..... .....J.;...T
.;.A.^.; "SETCUR" SET CURSOR . RAD,KOL.G
.H.;...R.SETCUR: .. RAD...|. ..
KOL..... ...'... .. $E5
0A; ROM RUTIN "PLOT".7... ...=..
.;.C...;.E...; "CURON" SET FLASHING CURS
OR.K...;...B.CURON: .. CURADR...D.
.. PNTR...F. .. (PNT),Y; ST
ORE CHAR..R.H. .. GDBLN...J.
.. (USER),Y; STORE COLOR...L.
.. GDCOL.#.N. .. #$00.9.P.
.. BLNSW.I.R. ...O...;.U..
.;.|...; "CUROFF" DISABLE FLASHING CURSO
R.....;.....CUROFF: .. #$01.....
.. BLNSW; DISABLE BLINK..... .
. GDBLN; CHAR UNDER CURSOR...&.
.. GDCOL; COLOR UNDER CURSOR.'.0.
.. PUTCHAR.7.:. ...=.D.;.C.N.;
.J.X.; "GETCUR" . ROW . COLUMN . CURSOR.
P.B.;...L.GETCUR: .. $E513; . CURSOR PA
RAMETERS...V. .. RAD.C...
.. KOL.S... ...Y...;.....;....
.RAD: .. 0.....KOL: .. 0........IO
INIT . $FF84; INITIA
> CLICK IMAGE PREVIEW FOR FULL MODAL