_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

SCREEN MACHINE

FILE INFORMATION

FILENAME(S): SCREEN MACHINE

FILE TYPE(S): PRG

FILE SIZE: 1K

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

APPEARS ON: 2 disk(s)

FILE HASH

3602fd366802566a2e3551c432d960a28c487d730d4b5fdc9853a12f2c073a36

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
FAST ASS SYSTEM SCREEN MACHINE PRG hedning, loot 19 2 DOWNLOAD FILE
ASSEMBLER FILER SCREEN MACHINE PRG hedning, loot 26 2 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 1C 12 31 12 64 00 3B 20  53 43 52 45 45 4E 20 4D  |..1.d.; SCREEN M|
00000010: 41 43 48 49 4E 45 00 37  12 6E 00 3B 00 48 12 78  |ACHINE.7.n.;.H.x|
00000020: 00 3B 20 49 4E 49 54 49  45 52 49 4E 47 00 4E 12  |.; INITIERING.N.|
00000030: 82 00 3B 00 8D 12 8C 00  50 43 20 20 20 20 20 20  |..;.....PC      |
00000040: 20 20 B2 20 34 35 3B 20  50 45 4B 41 52 45 20 50  |  . 45; PEKARE P|
00000050: 5D 20 46 5C 52 53 54 41  20 4C 45 44 49 47 41 20  |] F\RSTA LEDIGA |
00000060: 90 80 20 56 49 44 20 4B  4F 4D 50 49 4C 45 52 49  |.. VID KOMPILERI|
00000070: 4E 47 00 B5 12 96 00 43  50 43 20 20 20 20 20 20  |NG.....CPC      |
00000080: 20 B2 20 34 39 3B 20 50  45 4B 41 52 45 20 46 5B  | . 49; PEKARE F[|
00000090: 52 47 20 4C 41 47 52 49  4E 47 00 DA 12 A0 00 52  |RG LAGRING.....R|
000000A0: 41 44 20 20 20 20 20 20  20 B2 20 32 31 34 3B 20  |AD       . 214; |
000000B0: 4C 5B 47 45 20 46 5C 52  20 4D 41 52 4B 5C 52 00  |L[GE F\R MARK\R.|
000000C0: F9 12 AA 00 4B 4F 4C 20  20 20 20 20 20 20 B2 20  |....KOL       . |
000000D0: 32 31 31 3B 20 20 20 20  20 AB 20 22 20 2D 00 2D  |211;     . " -.-|
000000E0: 13 B4 00 4B 4F 4D 4D 41  4E 44 4F 20 20 B2 20 35  |...KOMMANDO  . 5|
000000F0: 39 3B AB 36 30 20 48 4F  50 50 20 41 44 52 45 53  |9;.60 HOPP ADRES|
00000100: 53 20 46 5C 52 20 C5 20  46 52 5D 4E 20 4D 45 4E  |S F\R . FR]N MEN|
00000110: 59 4E 00 56 13 BE 00 54  55 4D 20 20 20 20 20 20  |YN.V...TUM      |
00000120: 20 B2 20 32 30 36 3B 20  54 45 43 4B 45 4E 20 55  | . 206; TECKEN U|
00000130: 4E 44 45 52 20 4D 41 52  4B 5C 52 00 7D 13 C8 00  |NDER MARK\R.}...|
00000140: 46 55 4D 20 20 20 20 20  20 20 B2 20 36 34 37 3B  |FUM       . 647;|
00000150: 20 46 5B 52 47 20 55 4E  44 45 52 20 4D 41 52 4B  | F[RG UNDER MARK|
00000160: 5C 52 00 9F 13 D2 00 43  4F 4C 20 20 20 20 20 20  |\R.....COL      |
00000170: 20 B2 20 36 34 36 3B 20  41 4B 54 55 45 4C 4C 20  | . 646; AKTUELL |
00000180: 46 5B 52 47 00 A5 13 F4  01 3B 00 C5 13 FE 01 3B  |F[RG.....;.....;|
00000190: 20 44 45 46 49 4E 49 45  52 49 4E 47 20 41 56 20  | DEFINIERING AV |
000001A0: 46 55 4E 4B 54 49 4F 4E  45 52 00 CB 13 08 02 3B  |FUNKTIONER.....;|
000001B0: 00 E4 13 12 02 96 20 A5  20 48 49 47 48 28 58 29  |...... . HIGH(X)|
000001C0: B2 B5 28 58 AD 32 35 36  29 00 03 14 1C 02 96 20  |..(X.256)...... |
000001D0: A5 20 4C 4F 57 28 58 29  B2 58 AB 32 35 36 AC A5  |. LOW(X).X.256..|
000001E0: 20 48 49 47 48 28 58 29  00 09 14 26 02 3B 00 0F  | HIGH(X)...&.;..|
000001F0: 14 30 02 3B 00 15 14 3A  02 3B 00 1B 14 44 02 3B  |.0.;...:.;...D.;|
00000200: 00 3A 14 4E 02 99 20 22  11 49 4E 43 4C 55 44 49  |.:.N.. ".INCLUDI|
00000210: 4E 47 20 53 59 53 2E 20  46 49 4C 45 53 11 22 00  |NG SYS. FILES.".|
00000220: 40 14 58 02 3B 00 57 14  62 02 90 85 20 22 4B 45  |@.X.;.W.b... "KE|
00000230: 52 4E 41 4C 2E 46 2E 41  2E 22 2C 38 00 72 14 6C  |RNAL.F.A.",8.r.l|
00000240: 02 90 85 20 22 53 43 52  45 45 4E 20 52 4F 4D 2E  |... "SCREEN ROM.|
00000250: 46 2E 41 2E 22 2C 38 00  78 14 76 02 3B 00 7E 14  |F.A.",8.x.v.;.~.|
00000260: 80 02 3B 00 84 14 8A 02  3B 00 98 14 94 02 3B 20  |..;.....;.....; |
00000270: 41 53 53 45 4D 42 4C 59  20 4C 4F 4F 50 00 9E 14  |ASSEMBLY LOOP...|
00000280: 9E 02 3B 00 BD 14 A8 02  81 20 50 41 53 53 B2 31  |..;...... PASS.1|
00000290: 20 A4 20 33 3A 99 20 22  50 41 53 53 3A 22 50 41  | . 3:. "PASS:"PA|
000002A0: 53 53 00 CC 14 B2 02 90  82 20 34 39 31 35 32 2C  |SS....... 49152,|
000002B0: 30 00 E6 14 BC 02 8B 20  50 41 53 53 B2 33 20 A7  |0...... PASS.3 .|
000002C0: 20 90 82 20 34 39 31 35  32 2C 31 00 EC 14 C6 02  | .. 49152,1.....|
000002D0: 3B 00 05 15 D0 02 90 85  20 22 49 4E 49 54 49 45  |;....... "INITIE|
000002E0: 52 41 2E 53 2E 4D 2E 22  2C 38 00 1A 15 DA 02 90  |RA.S.M.",8......|
000002F0: 85 20 22 4D 45 4E 59 2E  53 2E 4D 2E 22 2C 38 00  |. "MENY.S.M.",8.|
00000300: 20 15 E4 02 3B 00 35 15  EE 02 90 85 20 22 44 52  | ...;.5..... "DR|
00000310: 41 57 2E 53 2E 4D 2E 22  2C 38 00 4F 15 F8 02 3B  |AW.S.M.",8.O...;|
00000320: 20 90 85 20 22 43 4F 4D  50 49 4C 45 2E 53 2E 4D  | .. "COMPILE.S.M|
00000330: 2E 22 2C 38 00 6A 15 02  03 3B 20 90 85 20 22 4F  |.",8.j...; .. "O|
00000340: 50 54 49 4D 49 5A 45 2E  53 2E 4D 2E 22 2C 38 00  |PTIMIZE.S.M.",8.|
00000350: 81 15 0C 03 3B 20 90 85  20 22 4C 4F 41 44 2E 53  |....; .. "LOAD.S|
00000360: 2E 4D 2E 22 2C 38 00 98  15 16 03 3B 20 90 85 20  |.M.",8.....; .. |
00000370: 22 53 41 56 45 2E 53 2E  4D 2E 22 2C 38 00 B1 15  |"SAVE.S.M.",8...|
00000380: 20 03 3B 20 90 85 20 22  53 54 41 54 55 53 2E 53  | .; .. "STATUS.S|
00000390: 2E 4D 2E 22 2C 38 00 CB  15 2A 03 3B 20 90 85 20  |.M.",8...*.; .. |
000003A0: 22 52 45 53 54 41 52 54  2E 53 2E 4D 2E 22 2C 38  |"RESTART.S.M.",8|
000003B0: 00 E2 15 34 03 3B 20 90  85 20 22 51 55 49 54 2E  |...4.; .. "QUIT.|
000003C0: 53 2E 4D 2E 22 2C 38 00  E8 15 3E 03 3B 00 03 16  |S.M.",8...>.;...|
000003D0: 48 03 90 85 20 22 53 55  42 52 55 54 49 4E 45 52  |H... "SUBRUTINER|
000003E0: 2E 53 2E 4D 2E 22 2C 38  00 09 16 52 03 3B 00 0F  |.S.M.",8...R.;..|
000003F0: 16 5C 03 3B 00 15 16 66  03 3B 00 20 16 70 03 82  |.\.;...f.;. .p..|
00000400: 20 50 41 53 53 00 26 16  7A 03 3B 00 44 16 84 03  | PASS.&.z.;.D...|
00000410: 99 22 53 54 41 52 54 3A  22 53 54 41 52 54 3B 22  |."START:"START;"|
00000420: 20 20 45 4E 44 3A 22 3B  AC 00 00 00              |  END:";....    |
..1.D.; SCREEN MACHINE.7.N.;.H.X.; INITI
ERING.N...;.....PC        . 45; PEKARE P
] F\RSTA LEDIGA .. VID KOMPILERING.....C
PC       . 49; PEKARE F[RG LAGRING.Z. .R
AD       . 214; L[GE F\R MARK\R.....KOL 
      . 211;     . " -.-...KOMMANDO  . 5
9;.60 HOPP ADRESS F\R E FR]N MENYN.V...T
UM       . 206; TECKEN UNDER MARK\R.}.H.
FUM       . 647; F[RG UNDER MARK\R...R.C
OL       . 646; AKTUELL F[RG.....;.E...;
 DEFINIERING AV FUNKTIONER.K...;...... .
 HIGH(X)..(X.256)...... . LOW(X).X.256..
 HIGH(X)...&.;...0.;...:.;...D.;.:.N.. "
.INCLUDING SYS. FILES.".@.X.;.W.B... "KE
RNAL.F.A.",8.R.L... "SCREEN ROM.F.A.",8.
X.V.;.~...;.....;.....; ASSEMBLY LOOP...
..;...... PASS.1 . 3:. "PASS:"PASS.L....
. 49152,0...... PASS.3 . .. 49152,1...F.
;...P... "INITIERA.S.M.",8...Z... "MENY.
S.M.",8. ...;.5..... "DRAW.S.M.",8.O...;
 .. "COMPILE.S.M.",8.J...; .. "OPTIMIZE.
S.M.",8.....; .. "LOAD.S.M.",8.....; .. 
"SAVE.S.M.",8... .; .. "STATUS.S.M.",8.K
.*.; .. "RESTART.S.M.",8...4.; .. "QUIT.
S.M.",8...>.;...H... "SUBRUTINER.S.M.",8
...R.;...\.;...F.;. .P.. PASS.&.Z.;.D...
."START:"START;"  END:";....
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL