GET

FILE INFORMATION

FILENAME(S): GET

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-12-01 01:08:51

APPEARS ON: 1 disk(s)

FILE HASH

cb32a369a66ca325848e66380d69ae4c90dc92360095efb7ede0a1fd57781677

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
ASSEMBLER FILER	GET	PRG	hedning, loot	19	5	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 11 08 64 00 3B 43  48 41 52 2E 53 45 54 20  |....d.;CHAR.SET |
00000010: 99 00 17 08 6E 00 3B 00  31 08 78 00 4A 53 52 20  |....n.;.1.x.JSR |
00000020: 24 45 35 31 38 3B 20 8C  20 4B 45 59 42 4F 41 52  |$E518; . KEYBOAR|
00000030: 44 00 3E 08 82 00 4C 44  59 20 23 32 35 35 00 4C  |D.>...LDY #255.L|
00000040: 08 8C 00 4C 4F 4F 50 31  20 49 4E 59 00 5D 08 96  |...LOOP1 INY.]..|
00000050: 00 4C 44 41 20 53 43 52  45 45 4E 2C 59 00 67 08  |.LDA SCREEN,Y.g.|
00000060: A0 00 4A 53 52 20 99 00  75 08 AA 00 42 4E 45 20  |..JSR ..u...BNE |
00000070: 4C 4F 4F 50 31 00 90 08  B4 00 53 54 41 20 32 30  |LOOP1.....STA 20|
00000080: 34 3B 20 42 4C 49 4E 4B  AF 45 20 43 55 52 53 B0  |4; BLINK.E CURS.|
00000090: 00 B5 08 BE 00 4C 44 41  20 23 B3 55 50 50 45 52  |.....LDA #.UPPER|
000000A0: 3B 20 55 50 50 45 52 20  43 41 53 45 20 41 53 20  |; UPPER CASE AS |
000000B0: 96 41 55 4C 54 00 C4 08  C8 00 53 54 41 20 43 4F  |.AULT.....STA CO|
000000C0: 4D 50 41 52 00 D4 08 D2  00 4C 44 41 20 23 B1 55  |MPAR.....LDA #.U|
000000D0: 50 50 45 52 00 E5 08 DC  00 53 54 41 20 43 4F 4D  |PPER.....STA COM|
000000E0: 50 41 52 AA 31 00 07 09  E6 00 A1 43 4F 20 4A 53  |PAR.1......CO JS|
000000F0: 52 20 A1 49 4E 3B 20 A1  20 43 4F 4D 50 41 52 20  |R .IN; . COMPAR |
00000100: 41 44 44 52 45 53 53 00  13 09 F0 00 42 45 51 20  |ADDRESS.....BEQ |
00000110: A1 43 4F 00 1F 09 FA 00  43 4D 50 20 23 37 36 00  |.CO.....CMP #76.|
00000120: 2C 09 04 01 42 4E 45 20  4F 56 45 52 00 3C 09 0E  |,...BNE OVER.<..|
00000130: 01 4C 44 59 20 23 B3 4C  4F 57 45 52 00 4B 09 18  |.LDY #.LOWER.K..|
00000140: 01 53 54 59 20 43 4F 4D  50 41 52 00 5B 09 22 01  |.STY COMPAR.[.".|
00000150: 4C 44 59 20 23 B1 4C 4F  57 45 52 00 6C 09 2C 01  |LDY #.LOWER.l.,.|
00000160: 53 54 59 20 43 4F 4D 50  41 52 AA 31 00 7B 09 36  |STY COMPAR.1.{.6|
00000170: 01 4A 4D 50 20 56 49 44  41 52 45 00 8C 09 40 01  |.JMP VIDARE...@.|
00000180: 4F 56 45 52 20 43 4D 50  20 23 38 35 00 98 09 4A  |OVER CMP #85...J|
00000190: 01 42 4E 45 20 A1 43 4F  00 A9 09 68 01 56 49 44  |.BNE .CO...h.VID|
000001A0: 41 52 45 20 4A 53 52 20  99 00 C5 09 72 01 4C 44  |ARE JSR ....r.LD|
000001B0: 59 20 23 32 35 35 3B 20  41 53 4B 20 81 20 41 44  |Y #255; ASK . AD|
000001C0: 44 52 45 53 53 00 D3 09  7C 01 4C 4F 4F 50 32 20  |DRESS...|.LOOP2 |
000001D0: 49 4E 59 00 E3 09 86 01  4C 44 41 20 51 55 45 53  |INY.....LDA QUES|
000001E0: 54 2C 59 00 ED 09 90 01  4A 53 52 20 99 00 FB 09  |T,Y.....JSR ....|
000001F0: 9A 01 42 4E 45 20 4C 4F  4F 50 32 00 19 0A A4 01  |..BNE LOOP2.....|
00000200: 4C 44 59 20 23 30 3B 20  A1 20 41 44 44 52 45 53  |LDY #0; . ADDRES|
00000210: 53 20 81 20 53 54 41 52  54 00 23 0A AE 01 53 54  |S . START.#...ST|
00000220: 59 20 59 00 2F 0A B3 01  53 54 59 20 32 30 34 00  |Y Y./...STY 204.|
00000230: 40 0A B8 01 A1 41 44 44  20 4A 53 52 20 A1 91 45  |@....ADD JSR ..E|
00000240: 00 4C 0A C2 01 43 4D 50  20 23 31 33 00 5C 0A CC  |.L...CMP #13.\..|
00000250: 01 42 45 51 20 56 49 44  41 52 45 32 00 66 0A D6  |.BEQ VIDARE2.f..|
00000260: 01 4C 44 59 20 59 00 78  0A E0 01 53 54 41 20 41  |.LDY Y.x...STA A|
00000270: 44 44 52 45 53 53 2C 59  00 80 0A EA 01 49 4E 59  |DDRESS,Y.....INY|
00000280: 00 8A 0A F4 01 53 54 59  20 59 00 97 0A 08 02 4A  |.....STY Y.....J|
00000290: 4D 50 20 A1 41 44 44 00  A9 0A 12 02 56 49 44 41  |MP .ADD.....VIDA|
000002A0: 52 45 32 20 4C 44 59 20  59 00 B4 0A 17 02 4C 44  |RE2 LDY Y.....LD|
000002B0: 41 20 23 30 00 CD 0A 1C  02 53 54 41 20 41 44 44  |A #0.....STA ADD|
000002C0: 52 45 53 53 2C 59 3B 20  20 20 20 20 25 00 D9 0A  |RESS,Y;     %...|
000002D0: 20 02 4C 44 41 20 23 31  33 00 E3 0A 22 02 4A 53  | .LDA #13...".JS|
000002E0: 52 20 99 00 E9 0A 26 02  3B 00 2B 0B 30 02 4A 53  |R ....&.;.+.0.JS|
000002F0: 52 20 C5 44 45 43 3B 20  4F 4D 56 2E 20 53 54 52  |R .DEC; OMV. STR|
00000300: 5B 4E 47 20 54 49 4C 4C  20 54 56 5D 20 42 59 54  |[NG TILL TV] BYT|
00000310: 45 20 48 45 58 20 54 41  4C 2C 4C 41 47 52 41 20  |E HEX TAL,LAGRA |
00000320: 49 20 53 54 41 52 54 41  44 44 2E 00 31 0B 3A 02  |I STARTADD..1.:.|
00000330: 3B 00 57 0B 44 02 3B 20  5C 50 50 4E 41 20 46 49  |;.W.D.; \PPNA FI|
00000340: 4C 20 54 49 4C 4C 20 99  45 52 20 46 5C 52 20 55  |L TILL .ER F\R U|
00000350: 54 53 4B 52 8B 54 2E 00  5D 0B 4E 02 3B 00 68 0B  |TSKR.T..].N.;.h.|
00000360: 58 02 4C 44 41 20 23 34  00 73 0B 62 02 4C 44 58  |X.LDA #4.s.b.LDX|
00000370: 20 23 34 00 7E 0B 6C 02  4C 44 59 20 23 30 00 8D  | #4.~.l.LDY #0..|
00000380: 0B 76 02 4A 53 52 20 53  45 54 4C 46 53 00 98 0B  |.v.JSR SETLFS...|
00000390: 80 02 4C 44 41 20 23 30  00 A7 0B 8A 02 4A 53 52  |..LDA #0.....JSR|
000003A0: 20 53 45 54 4E 41 4D 00  B1 0B 94 02 4A 53 52 20  | SETNAM.....JSR |
000003B0: 9F 00 BC 0B 9E 02 4C 44  58 20 23 34 00 CB 0B A8  |......LDX #4....|
000003C0: 02 4A 53 52 20 43 48 4B  4F 55 54 00 EF 0B B2 02  |.JSR CHKOUT.....|
000003D0: 4C 44 59 20 23 32 35 35  3B 20 53 4B 52 49 56 20  |LDY #255; SKRIV |
000003E0: 48 45 41 44 45 52 20 54  49 4C 4C 20 99 45 52 00  |HEADER TILL .ER.|
000003F0: FA 0B BC 02 A4 99 20 49  4E 59 00 0B 0C C6 02 4C  |...... INY.....L|
00000400: 44 41 20 48 45 41 44 45  52 2C 59 00 15 0C D0 02  |DA HEADER,Y.....|
00000410: 4A 53 52 20 99 00 20 0C  DA 02 42 4E 45 20 A4 99  |JSR .. ...BNE ..|
00000420: 00 26 0C E4 02 3B 00 3E  0C EE 02 3B 20 49 4E 49  |.&...;.>...; INI|
00000430: 54 49 45 52 49 4E 47 20  4B 4C 41 52 20 21 00 44  |TIERING KLAR !.D|
00000440: 0C F8 02 3B 00 53 0C 02  03 2E 46 49 4C 45 20 4D  |...;.S....FILE M|
00000450: 41 49 4E 00 00 00                                 |AIN...          |

....D.;CHAR.SET ....N.;.1.X.JSR $E518; .
 KEYBOARD.>...LDY #255.L...LOOP1 INY.]..
.LDA SCREEN,Y.G. .JSR ..U...BNE LOOP1...
..STA 204; BLINK.E CURS......LDA #.UPPER
; UPPER CASE AS .AULT.D.H.STA COMPAR.T.R
.LDA #.UPPER.....STA COMPAR.1......CO JS
R .IN; . COMPAR ADDRESS.....BEQ .CO.....
CMP #76.,...BNE OVER.<...LDY #.LOWER.K..
.STY COMPAR.[.".LDY #.LOWER.L.,.STY COMP
AR.1.{.6.JMP VIDARE...@.OVER CMP #85...J
.BNE .CO...H.VIDARE JSR ..E.R.LDY #255; 
ASK . ADDRESS.S.|.LOOP2 INY.....LDA QUES
T,Y.....JSR ......BNE LOOP2.....LDY #0; 
. ADDRESS . START.#...STY Y./...STY 204.
@....ADD JSR ..E.L.B.CMP #13.\.L.BEQ VID
ARE2.F.V.LDY Y.X...STA ADDRESS,Y.....INY
.....STY Y.....JMP .ADD.....VIDARE2 LDY 
Y.....LDA #0.M...STA ADDRESS,Y;     %.Y.
 .LDA #13...".JSR ....&.;.+.0.JSR EDEC; 
OMV. STR[NG TILL TV] BYTE HEX TAL,LAGRA 
I STARTADD..1.:.;.W.D.; \PPNA FIL TILL .
ER F\R UTSKR.T..].N.;.H.X.LDA #4.S.B.LDX
 #4.~.L.LDY #0...V.JSR SETLFS.....LDA #0
.....JSR SETNAM.....JSR ......LDX #4.K..
.JSR CHKOUT.....LDY #255; SKRIV HEADER T
ILL .ER....... INY...F.LDA HEADER,Y...P.
JSR .. .Z.BNE ...&...;.>...; INITIERING 
KLAR !.D...;.S....FILE MAIN...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL