00000000: 1C 12 35 12 64 00 3B 20 42 41 53 49 43 20 52 4F |..5.d.; BASIC RO|
00000010: 4D 20 52 55 54 49 4E 45 52 2E 00 3B 12 6E 00 3B |M RUTINER..;.n.;|
00000020: 00 55 12 78 00 3B 20 53 4B 5B 52 4D 20 4D 41 4E |.U.x.; SK[RM MAN|
00000030: 49 50 55 4C 45 52 49 4E 47 2E 00 5B 12 82 00 3B |IPULERING..[...;|
00000040: 00 85 12 8C 00 52 45 53 43 4B 45 59 20 20 B2 20 |.....RESCKEY . |
00000050: 24 45 35 31 38 3B 20 8C 20 53 43 52 45 45 4E 20 |$E518; . SCREEN |
00000060: AF 20 4B 45 59 42 4F 41 52 44 00 AC 12 96 00 43 |. KEYBOARD.....C|
00000070: 4C 45 41 52 20 20 20 20 B2 20 24 45 35 45 45 3B |LEAR . $E5EE;|
00000080: 20 43 4C 45 41 52 20 54 48 45 20 53 43 52 45 45 | CLEAR THE SCREE|
00000090: 4E 00 EF 12 A0 00 48 4F 4D 45 20 20 20 20 20 B2 |N.....HOME .|
000000A0: 20 24 45 35 36 36 3B 20 50 4F 53 49 54 49 4F 4E | $E566; POSITION|
000000B0: 20 54 48 45 20 43 55 52 53 4F 52 20 49 4E 20 54 | THE CURSOR IN T|
000000C0: 48 45 20 55 50 50 45 52 20 4C 45 46 54 20 43 4F |HE UPPER LEFT CO|
000000D0: 52 4E 45 52 00 31 13 AA 00 43 55 52 53 4F 52 20 |RNER.1...CURSOR |
000000E0: 20 20 B2 20 43 41 4C 43 55 4C 41 54 45 20 54 48 | . CALCULATE TH|
000000F0: 45 20 43 55 52 53 4F 52 20 50 4F 53 49 54 49 4F |E CURSOR POSITIO|
00000100: 4E 2C 8E 20 41 44 44 52 45 53 53 20 49 4E 20 24 |N,. ADDRESS IN $|
00000110: 44 31 AB 24 44 32 00 6F 13 B4 00 52 45 53 56 49 |D1.$D2.o...RESVI|
00000120: 43 20 20 20 B2 20 8C 20 54 48 45 20 56 49 44 45 |C . . THE VIDE|
00000130: 4F 20 43 4F 4E 54 52 4F 4C 45 52 20 57 49 54 48 |O CONTROLER WITH|
00000140: 20 54 48 45 20 53 54 41 4E 44 41 52 44 20 56 41 | THE STANDARD VA|
00000150: 4C 55 45 53 00 99 13 BE 00 53 43 52 4F 4C 4C 20 |LUES.....SCROLL |
00000160: 20 20 B2 20 53 43 52 4F 4C 4C 53 20 53 43 52 45 | . SCROLLS SCRE|
00000170: 45 4E 20 55 50 20 4F 4E 45 20 4C 49 4E 45 00 CD |EN UP ONE LINE..|
00000180: 13 C8 00 43 4C 52 4C 49 4E 45 20 20 B2 20 43 4C |...CLRLINE . CL|
00000190: 45 41 52 20 4F 4E 45 20 4C 49 4E 45 20 44 45 53 |EAR ONE LINE DES|
000001A0: 49 47 4E 45 44 20 42 59 20 54 48 45 20 58 AB 52 |IGNED BY THE X.R|
000001B0: 45 47 00 1B 14 D2 00 50 55 54 43 48 41 52 20 20 |EG.....PUTCHAR |
000001C0: B2 20 50 55 54 20 41 20 43 48 41 52 2E 20 57 49 |. PUT A CHAR. WI|
000001D0: 54 48 20 43 4F 4C 4F 52 20 49 4E 20 58 AB 52 45 |TH COLOR IN X.RE|
000001E0: 47 20 AF 20 53 43 52 45 45 4E 20 43 4F 44 45 20 |G . SCREEN CODE |
000001F0: 49 4E 20 41 43 43 20 41 54 20 43 55 52 2E 50 4F |IN ACC AT CUR.PO|
00000200: 00 68 14 DC 00 53 54 52 4F 55 54 20 20 20 B2 20 |.h...STROUT . |
00000210: 50 52 49 4E 54 53 20 41 20 53 54 52 49 4E 47 20 |PRINTS A STRING |
00000220: A4 20 53 43 52 45 45 4E 20 46 52 4F 4D 20 41 44 |. SCREEN FROM AD|
00000230: 44 52 45 53 53 20 49 4E 20 41 AD 59 2C 80 20 41 |DRESS IN A.Y,. A|
00000240: 54 54 20 46 49 52 53 54 20 5A 45 52 4F 00 9D 14 |TT FIRST ZERO...|
00000250: E6 00 4E 55 4D 4F 55 54 20 20 20 B2 20 4F 55 54 |..NUMOUT . OUT|
00000260: 50 55 54 20 41 20 50 4F 53 49 54 49 56 45 20 49 |PUT A POSITIVE I|
00000270: 4E 54 45 47 45 52 20 48 45 4C 44 20 49 4E 20 41 |NTEGER HELD IN A|
00000280: AD 58 00 A3 14 F0 00 3B 00 A9 14 FA 00 3B 00 00 |.X.....;.....;..|
00000290: 00 00 8F 14 F0 00 49 4F 49 4E 49 54 20 20 B2 20 |......IOINIT . |
000002A0: 24 46 46 38 34 3B 20 49 4E 49 54 49 41 |$FF84; INITIA |
..5.D.; BASIC ROM RUTINER..;.N.;.U.X.; S
K[RM MANIPULERING..[...;.....RESCKEY .
$E518; . SCREEN . KEYBOARD.....CLEAR
. $E5EE; CLEAR THE SCREEN... .HOME .
$E566; POSITION THE CURSOR IN THE UPPER
LEFT CORNER.1...CURSOR . CALCULATE TH
E CURSOR POSITION,. ADDRESS IN $D1.$D2.O
...RESVIC . . THE VIDEO CONTROLER WITH
THE STANDARD VALUES.....SCROLL . SCRO
LLS SCREEN UP ONE LINE.M.H.CLRLINE . CL
EAR ONE LINE DESIGNED BY THE X.REG...R.P
UTCHAR . PUT A CHAR. WITH COLOR IN X.RE
G . SCREEN CODE IN ACC AT CUR.PO.H...STR
OUT . PRINTS A STRING . SCREEN FROM AD
DRESS IN A.Y,. ATT FIRST ZERO.....NUMOUT
. OUTPUT A POSITIVE INTEGER HELD IN A
.X.....;.....;........IOINIT . $FF84; I
NITIA
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL