CURSOR.F.A.
FILE INFORMATION
FILENAME(S): CURSOR.F.A.
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-12-01 01:08:46
APPEARS ON: 1 disk(s)
FILE HASH
4fda1c2650f288e45138b67836a5d5ee2afa67ebcee7f4f89e042523bb238937
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FAST ASS SYSTEM | CURSOR.F.A. | PRG | hedning, loot | 17 | 0 | 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: 67 12 73 00 3B 20 28 20 90 85 20 22 5A 45 52 4F |g.s.; ( .. "ZERO|
00000040: 50 41 47 45 2E 46 2E 41 2E 22 20 29 00 6D 12 78 |PAGE.F.A." ).m.x|
00000050: 00 3B 00 73 12 82 00 3B 00 9B 12 8C 00 43 4C 52 |.;.s...;.....CLR|
00000060: 53 43 52 20 20 20 20 B2 20 24 45 35 45 45 3B 20 |SCR . $E5EE; |
00000070: 43 4C 45 41 52 20 54 48 45 20 53 43 52 45 45 4E |CLEAR THE SCREEN|
00000080: 00 CB 12 91 00 43 4F 4C 41 44 52 20 20 20 20 B2 |.....COLADR .|
00000090: 20 24 45 41 32 34 3B 20 43 41 4C 43 55 4C 41 54 | $EA24; CALCULAT|
000000A0: 45 20 43 4F 4C 4F 55 52 20 41 44 44 52 45 53 53 |E COLOUR ADDRESS|
000000B0: 00 0F 13 96 00 48 4F 4D 45 20 20 20 20 20 20 B2 |.....HOME .|
000000C0: 20 24 45 35 36 36 3B 20 50 4F 53 49 54 49 4F 4E | $E566; POSITION|
000000D0: 20 54 48 45 20 43 55 52 53 4F 52 20 49 4E 20 54 | THE CURSOR IN T|
000000E0: 48 45 20 55 50 50 45 52 20 4C 45 46 54 20 43 4F |HE UPPER LEFT CO|
000000F0: 52 4E 45 52 00 41 13 9B 00 53 43 4C 53 43 52 20 |RNER.A...SCLSCR |
00000100: 20 20 20 B2 20 24 45 38 45 41 3B 20 53 43 52 4F | . $E8EA; SCRO|
00000110: 4C 4C 53 20 53 43 52 45 45 4E 20 55 50 20 4F 4E |LLS SCREEN UP ON|
00000120: 45 20 4C 49 4E 45 00 8F 13 A0 00 50 55 54 43 48 |E LINE.....PUTCH|
00000130: 41 52 20 20 20 B2 20 24 45 41 31 43 3B 20 50 55 |AR . $EA1C; PU|
00000140: 54 20 41 20 43 48 41 52 2E 20 41 54 20 43 55 52 |T A CHAR. AT CUR|
00000150: 2E 50 4F 2C 43 4F 4C 4F 52 20 49 4E 20 58 AB 20 |.PO,COLOR IN X. |
00000160: AF 20 53 43 52 45 45 4E 20 43 4F 44 45 20 49 4E |. SCREEN CODE IN|
00000170: 20 41 43 43 00 CD 13 A5 00 43 4C 52 4C 49 4E 45 | ACC.....CLRLINE|
00000180: 20 20 20 B2 20 24 45 39 46 46 3B 20 43 4C 45 41 | . $E9FF; CLEA|
00000190: 52 20 4F 4E 45 20 4C 49 4E 45 20 44 45 53 49 47 |R ONE LINE DESIG|
000001A0: 4E 45 44 20 42 59 20 2E 58 20 52 45 47 49 53 54 |NED BY .X REGIST|
000001B0: 45 52 00 F3 13 A7 00 4B 45 59 57 41 49 54 20 20 |ER.....KEYWAIT |
000001C0: 20 B2 20 24 45 35 43 41 3B 20 92 20 81 20 4B 45 | . $E5CA; . . KE|
000001D0: 59 42 4F 41 52 44 20 85 00 F9 13 AA 00 3B 00 FF |YBOARD ......;..|
000001E0: 13 B4 00 3B 00 18 14 BE 00 3B 20 43 55 52 53 4F |...;.....; CURSO|
000001F0: 52 20 46 55 4E 4B 54 49 4F 4E 45 52 2E 00 1E 14 |R FUNKTIONER....|
00000200: C8 00 3B 00 24 14 D2 00 3B 00 4C 14 DC 00 3B 20 |..;.$...;.L...; |
00000210: 22 43 55 52 41 44 52 22 20 43 41 4C 43 55 4C 41 |"CURADR" CALCULA|
00000220: 54 45 20 43 55 52 53 4F 52 20 41 44 44 52 45 53 |TE CURSOR ADDRES|
00000230: 53 00 74 14 DE 00 3B 20 20 20 20 20 20 20 20 20 |S.t...; |
00000240: 20 43 55 52 2E 41 44 44 52 2E 20 49 4E 20 24 44 | CUR.ADDR. IN $D|
00000250: 31 AB 24 44 32 AA 24 44 33 00 9C 14 E0 00 3B 20 |1.$D2.$D3.....; |
00000260: 20 20 20 20 20 20 20 20 20 43 4F 4C 2E 41 44 44 | COL.ADD|
00000270: 52 2E 20 49 4E 20 24 46 33 AB 24 46 34 AA 24 44 |R. IN $F3.$F4.$D|
00000280: 33 00 A2 14 E6 00 3B 00 C8 14 F0 00 43 55 52 41 |3.....;.....CURA|
00000290: 44 52 3A 20 20 90 A4 20 24 45 35 36 43 3B 20 A1 |DR: .. $E56C; .|
000002A0: 20 42 41 53 45 20 41 44 44 52 45 53 53 00 EE 14 | BASE ADDRESS...|
000002B0: FA 00 20 20 20 20 20 20 20 20 20 90 A4 20 43 4F |.. .. CO|
000002C0: 4C 41 44 52 3B 20 43 4F 4C 4F 52 20 41 44 44 52 |LADR; COLOR ADDR|
000002D0: 45 53 53 00 FE 14 04 01 20 20 20 20 20 20 20 20 |ESS..... |
000002E0: 20 90 B6 00 04 15 4A 01 3B 00 0A 15 54 01 3B 00 | .....J.;...T.;.|
000002F0: 2E 15 5E 01 3B 20 22 53 45 54 43 55 52 22 20 53 |..^.; "SETCUR" S|
00000300: 45 54 20 43 55 52 53 4F 52 20 A4 20 52 41 44 2C |ET CURSOR . RAD,|
00000310: 4B 4F 4C 00 34 15 68 01 3B 00 48 15 72 01 53 45 |KOL.4.h.;.H.r.SE|
00000320: 54 43 55 52 3A 20 20 90 A1 20 52 41 44 00 5C 15 |TCUR: .. RAD.\.|
00000330: 7C 01 20 20 20 20 20 20 20 20 20 90 A2 20 4B 4F ||. .. KO|
00000340: 4C 00 6C 15 81 01 20 20 20 20 20 20 20 20 20 90 |L.l... .|
00000350: A8 00 94 15 86 01 20 20 20 20 20 20 20 20 20 90 |...... .|
00000360: A4 20 24 45 35 30 41 3B 20 52 4F 4D 20 52 55 54 |. $E50A; ROM RUT|
00000370: 49 4E 20 22 50 4C 4F 54 22 00 A4 15 90 01 20 20 |IN "PLOT"..... |
00000380: 20 20 20 20 20 20 20 90 B6 00 AA 15 9A 01 3B 00 | .......;.|
00000390: B0 15 A4 01 3B 00 D2 15 AE 01 3B 20 22 43 55 52 |....;.....; "CUR|
000003A0: 4F 4E 22 20 53 45 54 20 46 4C 41 53 48 49 4E 47 |ON" SET FLASHING|
000003B0: 20 43 55 52 53 4F 52 00 D8 15 B8 01 3B 00 EF 15 | CURSOR.....;...|
000003C0: C2 01 43 55 52 4F 4E 3A 20 20 20 90 A4 20 43 55 |..CURON: .. CU|
000003D0: 52 41 44 52 00 04 16 C4 01 20 20 20 20 20 20 20 |RADR..... |
000003E0: 20 20 90 A2 20 50 4E 54 52 00 29 16 C6 01 20 20 | .. PNTR.)... |
000003F0: 20 20 20 20 20 20 20 90 94 20 28 50 4E 54 29 2C | .. (PNT),|
00000400: 59 3B 20 53 54 4F 52 45 20 43 48 41 52 2E 00 3F |Y; STORE CHAR..?|
00000410: 16 C8 01 20 20 20 20 20 20 20 20 20 90 97 20 47 |... .. G|
00000420: 44 42 4C 4E 00 65 16 CA 01 20 20 20 20 20 20 20 |DBLN.e... |
00000430: 20 20 90 94 20 28 55 53 45 52 29 2C 59 3B 20 53 | .. (USER),Y; S|
00000440: 54 4F 52 45 20 43 4F 4C 4F 52 00 7B 16 CC 01 20 |TORE COLOR.{... |
00000450: 20 20 20 20 20 20 20 20 90 97 20 47 44 43 4F 4C | .. GDCOL|
00000460: 00 90 16 CE 01 20 20 20 20 20 20 20 20 20 90 94 |..... ..|
00000470: 20 23 24 30 30 00 A6 16 D0 01 20 20 20 20 20 20 | #$00..... |
00000480: 20 20 20 90 97 20 42 4C 4E 53 57 00 B6 16 D2 01 | .. BLNSW.....|
00000490: 20 20 20 20 20 20 20 20 20 90 B6 00 BC 16 E0 01 | .......|
000004A0: 3B 00 C2 16 EA 01 3B 00 E9 16 F4 01 3B 20 22 43 |;.....;.....; "C|
000004B0: 55 52 4F 46 46 22 20 44 49 53 41 42 4C 45 20 46 |UROFF" DISABLE F|
000004C0: 4C 41 53 48 49 4E 47 20 43 55 52 53 4F 52 00 EF |LASHING CURSOR..|
000004D0: 16 FE 01 3B 00 04 17 08 02 43 55 52 4F 46 46 3A |...;.....CUROFF:|
000004E0: 20 20 90 94 20 23 24 30 31 00 29 17 12 02 20 20 | .. #$01.)... |
000004F0: 20 20 20 20 20 20 20 90 97 20 42 4C 4E 53 57 3B | .. BLNSW;|
00000500: 20 44 49 53 41 42 4C 45 20 42 4C 49 4E 4B 00 52 | DISABLE BLINK.R|
00000510: 17 1C 02 20 20 20 20 20 20 20 20 20 90 94 20 47 |... .. G|
00000520: 44 42 4C 4E 3B 20 43 48 41 52 20 55 4E 44 45 52 |DBLN; CHAR UNDER|
00000530: 20 43 55 52 53 4F 52 00 7C 17 26 02 20 20 20 20 | CURSOR.|.&. |
00000540: 20 20 20 20 20 90 A1 20 47 44 43 4F 4C 3B 20 43 | .. GDCOL; C|
00000550: 4F 4C 4F 52 20 55 4E 44 45 52 20 43 55 52 53 4F |OLOR UNDER CURSO|
00000560: 52 00 94 17 30 02 20 20 20 20 20 20 20 20 20 90 |R...0. .|
00000570: A4 20 50 55 54 43 48 41 52 00 A4 17 3A 02 20 20 |. PUTCHAR...:. |
00000580: 20 20 20 20 20 20 20 90 B6 00 AA 17 44 02 3B 00 | .....D.;.|
00000590: B0 17 4E 02 3B 00 D7 17 58 02 3B 20 22 47 45 54 |..N.;...X.; "GET|
000005A0: 43 55 52 22 20 A1 20 52 4F 57 20 AF 20 43 4F 4C |CUR" . ROW . COL|
000005B0: 55 4D 4E 20 81 20 43 55 52 53 4F 52 00 DD 17 62 |UMN . CURSOR...b|
000005C0: 02 3B 00 08 18 6C 02 47 45 54 43 55 52 3A 20 20 |.;...l.GETCUR: |
000005D0: 90 A4 20 24 45 35 31 33 3B 20 87 20 43 55 52 53 |.. $E513; . CURS|
000005E0: 4F 52 20 50 41 52 41 4D 45 54 45 52 53 00 1C 18 |OR PARAMETERS...|
000005F0: 76 02 20 20 20 20 20 20 20 20 20 90 9E 20 52 41 |v. .. RA|
00000600: 44 00 30 18 80 02 20 20 20 20 20 20 20 20 20 90 |D.0... .|
00000610: A3 20 4B 4F 4C 00 40 18 8A 02 20 20 20 20 20 20 |. KOL.@... |
00000620: 20 20 20 90 B6 00 46 18 94 02 3B 00 4C 18 9E 02 | ...F...;.L...|
00000630: 3B 00 69 18 E8 03 52 41 44 3A 20 20 20 20 90 80 |;.i...RAD: ..|
00000640: 20 30 3B 20 52 41 4E 47 45 20 30 AB 32 34 00 86 | 0; RANGE 0.24..|
00000650: 18 F2 03 4B 4F 4C 3A 20 20 20 20 90 80 20 30 3B |...KOL: .. 0;|
00000660: 20 52 41 4E 47 45 20 30 AB 33 39 00 00 00 00 8F | RANGE 0.39.....|
00000670: 14 F0 00 49 4F 49 4E 49 54 20 20 B2 20 24 46 46 |...IOINIT . $FF|
00000680: 38 34 3B 20 49 4E 49 54 49 41 |84; INITIA |
..D.D.; CURSOR.F.A . CURSOR RUTINER
..J.N.;.G.S.; ( .. "ZEROPAGE.F.A." ).M.X
.;.S...;.....CLRSCR . $E5EE; CLEAR TH
E SCREEN.K...COLADR . $EA24; CALCULAT
E COLOUR ADDRESS.....HOME . $E566;
POSITION THE CURSOR IN THE UPPER LEFT CO
RNER.A...SCLSCR . $E8EA; SCROLLS SCRE
EN UP ONE LINE... .PUTCHAR . $EA1C; PU
T A CHAR. AT CUR.PO,COLOR IN X. . SCREEN
CODE IN ACC.M...CLRLINE . $E9FF; CLEA
R ONE LINE DESIGNED BY .X REGISTER.....K
EYWAIT . $E5CA; . . KEYBOARD ......;..
...;.....; CURSOR FUNKTIONER....H.;.$.R.
;.L...; "CURADR" CALCULATE CURSOR ADDRES
S.T...; CUR.ADDR. IN $D1.$D2.$D
3.....; COL.ADDR. IN $F3.$F4.$D
3.....;.H...CURADR: .. $E56C; . BASE AD
DRESS..... .. COLADR; COLOR ADDR
ESS..... .....J.;...T.;...^.; "S
ETCUR" SET CURSOR . RAD,KOL.4.H.;.H.R.SE
TCUR: .. RAD.\.|. .. KOL.L...
....... .. $E50A; ROM RUT
IN "PLOT"..... .......;.....;.R.
..; "CURON" SET FLASHING CURSOR.X...;...
B.CURON: .. CURADR...D. .. PNT
R.).F. .. (PNT),Y; STORE CHAR..?
.H. .. GDBLN.E.J. .. (US
ER),Y; STORE COLOR.{.L. .. GDCOL
...N. .. #$00...P. .. BL
NSW...R. .......;.B...;.....; "C
UROFF" DISABLE FLASHING CURSOR.....;....
.CUROFF: .. #$01.)... .. BLNSW;
DISABLE BLINK.R... .. GDBLN; CH
AR UNDER CURSOR.|.&. .. GDCOL; C
OLOR UNDER CURSOR...0. .. PUTCHA
R...:. .....D.;...N.;.W.X.; "GET
CUR" . ROW . COLUMN . CURSOR...B.;...L.G
ETCUR: .. $E513; . CURSOR PARAMETERS...
V. .. RAD.0... .. KOL.@.
.. ...F...;.L...;.I...RAD: ..
0; RANGE 0.24.....KOL: .. 0; RANGE 0
.39........IOINIT . $FF84; INITIA
> CLICK IMAGE PREVIEW FOR FULL MODAL