ML-S0GER
FILE INFORMATION
FILENAME(S): ML-S0GER
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 19:47:33
APPEARS ON: 1 disk(s)
FILE HASH
a2fce543a1c6eeb1779b2bd6d595381695283d0ad591ecd795f77ebbfaab0390
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEDISK 07 2 | ML-S0GER | PRG | Curtcool, Frank | 33 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 05 00 8F 20 4D 41 53 4B 49 4E 4B 4F |....... MASKINKO|
00000010: 44 45 20 4D 4F 4E 49 54 4F 52 00 24 08 0A 00 89 |DE MONITOR.$....|
00000020: 20 39 30 30 00 40 08 14 00 8F 20 44 45 43 20 54 | 900.@.... DEC T|
00000030: 4F 20 48 45 58 20 43 4F 4E 56 45 52 53 49 4F 4E |O HEX CONVERSION|
00000040: 00 4A 08 1E 00 48 24 B2 22 22 00 5F 08 28 00 56 |.J...H$.""._.(.V|
00000050: B2 4E 52 AB B5 28 4E 52 AD 31 36 29 AC 31 36 00 |.NR..(NR.16).16.|
00000060: 6F 08 32 00 48 24 B2 48 24 28 56 29 AA 48 24 00 |o.2.H$.H$(V).H$.|
00000070: 7F 08 3C 00 4E 52 B2 B5 28 4E 52 AD 31 36 29 00 |..<.NR..(NR.16).|
00000080: 8E 08 46 00 8B 20 4E 52 B3 B1 30 A7 34 30 00 94 |..F.. NR..0.40..|
00000090: 08 50 00 8E 00 B0 08 5A 00 8F 20 48 45 58 20 54 |.P.....Z.. HEX T|
000000A0: 4F 20 44 45 43 20 43 4F 4E 56 45 52 53 49 4F 4E |O DEC CONVERSION|
000000B0: 00 B9 08 64 00 4E 52 B2 30 00 C9 08 6E 00 81 4A |...d.NR.0...n..J|
000000C0: B2 31 A4 C3 28 4E 52 24 29 00 F0 08 78 00 4E 52 |.1..(NR$)...x.NR|
000000D0: B2 44 28 C6 28 CA 28 4E 52 24 2C 4A 2C 31 29 29 |.D(.(.(NR$,J,1))|
000000E0: AB 34 38 29 AA 28 4E 52 AC 31 36 29 3A 82 3A 8E |.48).(NR.16):.:.|
000000F0: 00 0B 09 A0 00 8F 20 43 52 53 52 20 4D 4F 56 45 |...... CRSR MOVE|
00000100: 20 4C 45 46 54 2F 52 49 47 48 54 00 1A 09 AA 00 | LEFT/RIGHT.....|
00000110: 43 41 B2 43 41 AA 4D 4F 56 45 00 3F 09 B4 00 8F |CA.CA.MOVE.?....|
00000120: 20 44 49 53 41 42 4C 45 20 43 52 53 52 2C 50 52 | DISABLE CRSR,PR|
00000130: 49 4E 54 2C 45 4E 41 42 4C 45 20 43 52 53 52 00 |INT,ENABLE CRSR.|
00000140: 6C 09 BE 00 92 32 30 37 2C 32 35 35 2C 31 3A 97 |l....207,255,1:.|
00000150: 32 30 34 2C 32 35 35 3A 97 32 30 35 2C 31 3A 99 |204,255:.205,1:.|
00000160: 4B 24 3B 3A 97 32 30 34 2C 30 3A 8E 00 7F 09 C3 |K$;:.204,0:.....|
00000170: 00 8F 20 43 52 53 52 20 4D 4F 56 45 20 55 50 00 |.. CRSR MOVE UP.|
00000180: 91 09 C8 00 8B 20 43 41 B3 53 41 AA 38 20 A7 20 |..... CA.SA.8 . |
00000190: 8E 00 AE 09 D2 00 43 41 B2 43 41 AB 38 3A 53 4D |......CA.CA.8:SM|
000001A0: B2 53 4D AB 34 30 3A 8D 20 31 38 30 3A 8E 00 C1 |.SM.40:. 180:...|
000001B0: 09 2C 01 8B 20 43 41 B1 53 41 AA 31 39 31 A7 20 |.,.. CA.SA.191. |
000001C0: 8E 00 DD 09 36 01 43 41 B2 43 41 AA 38 3A 53 4D |....6.CA.CA.8:SM|
000001D0: B2 53 4D AA 34 30 3A 8D 31 38 30 3A 8E 00 EF 09 |.SM.40:.180:....|
000001E0: 90 01 8B 20 53 4D B2 32 30 32 30 20 A7 20 8E 00 |... SM.2020 . ..|
000001F0: FD 09 9A 01 54 B2 53 4D AB 31 30 36 30 00 3A 0A |....T.SM.1060.:.|
00000200: A4 01 8B 20 54 AD 34 30 B2 B5 28 54 AD 34 30 29 |... T.40..(T.40)|
00000210: A7 20 43 41 B2 43 41 AA 31 3A 53 4D B2 53 4D AA |. CA.CA.1:SM.SM.|
00000220: 31 31 3A 4B 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |11:K$.".........|
00000230: 1D 1D 22 3A 8D 31 38 30 3A 8E 00 53 0A AE 01 4D |..":.180:..S...M|
00000240: 4F 56 45 B2 B6 28 B5 28 53 4D AD 32 29 B2 53 4D |OVE..(.(SM.2).SM|
00000250: AD 32 29 00 68 0A B8 01 53 4D B2 53 4D AA 28 32 |.2).h...SM.SM.(2|
00000260: AC 4D 4F 56 45 29 AA 31 00 8C 0A C2 01 54 B2 4D |.MOVE).1.....T.M|
00000270: 4F 56 45 AC 32 AA 31 3A 4B 24 B2 C9 28 22 1D 1D |OVE.2.1:K$..("..|
00000280: 1D 22 2C 54 29 3A 8D 31 36 30 3A 8E 00 A1 0A F4 |.",T):.160:.....|
00000290: 01 8F 20 43 52 53 52 20 4D 4F 56 45 20 4C 45 46 |.. CRSR MOVE LEF|
000002A0: 54 00 B3 0A FE 01 8B 20 53 4D B2 31 30 33 31 20 |T...... SM.1031 |
000002B0: A7 20 8E 00 C1 0A 08 02 54 B2 53 4D AB 31 30 33 |. ......T.SM.103|
000002C0: 31 00 FE 0A 12 02 8B 20 54 AD 34 30 B2 B5 28 54 |1...... T.40..(T|
000002D0: AD 34 30 29 A7 43 41 B2 43 41 AB 31 3A 53 4D B2 |.40).CA.CA.1:SM.|
000002E0: 53 4D AB 31 32 3A 4B 24 B2 22 9D 9D 9D 9D 9D 9D |SM.12:K$."......|
000002F0: 9D 9D 9D 9D 9D 9D 22 3A 8D 31 38 30 3A 8E 00 17 |......":.180:...|
00000300: 0B 1C 02 4D 4F 56 45 B2 28 B5 28 53 4D AD 32 29 |...MOVE.(.(SM.2)|
00000310: B3 B1 53 4D AD 32 29 00 2C 0B 26 02 53 4D B2 53 |..SM.2).,.&.SM.S|
00000320: 4D AA 28 33 AC 4D 4F 56 45 29 AB 31 00 54 0B 30 |M.(3.MOVE).1.T.0|
00000330: 02 54 B2 B6 28 4D 4F 56 45 29 AC 33 AA 31 3A 4B |.T..(MOVE).3.1:K|
00000340: 24 B2 C9 28 22 9D 9D 9D 9D 22 2C 54 29 3A 8D 31 |$..("....",T):.1|
00000350: 36 30 3A 8E 00 70 0B 58 02 8F 20 47 45 54 20 56 |60:..p.X.. GET V|
00000360: 41 4C 55 45 20 46 52 4F 4D 20 53 43 52 45 45 4E |ALUE FROM SCREEN|
00000370: 00 98 0B 62 02 97 32 30 34 2C 32 35 35 3A 48 42 |...b..204,255:HB|
00000380: B2 C2 28 53 4D AB 31 29 3A 4C 42 B2 C2 28 53 4D |..(SM.1):LB..(SM|
00000390: 29 3A 97 32 30 34 2C 30 00 AE 0B 65 02 8B 48 42 |):.204,0...e..HB|
000003A0: B1 31 32 37 A7 48 42 B2 48 42 AB 31 32 38 00 C4 |.127.HB.HB.128..|
000003B0: 0B 69 02 8B 4C 42 B1 31 32 37 A7 4C 42 B2 4C 42 |.i..LB.127.LB.LB|
000003C0: AB 31 32 38 00 E1 0B 6C 02 8B 48 42 B3 34 38 A7 |.128...l..HB.48.|
000003D0: 4E 52 24 B2 C7 28 36 34 AA 48 42 29 3A 89 36 34 |NR$..(64.HB):.64|
000003E0: 30 00 EF 0B 76 02 4E 52 24 B2 C7 28 48 42 29 00 |0...v.NR$..(HB).|
000003F0: 10 0C 80 02 8B 4C 42 B3 34 38 A7 4E 52 24 B2 4E |.....LB.48.NR$.N|
00000400: 52 24 AA C7 28 36 34 AA 4C 42 29 3A 89 36 36 30 |R$..(64.LB):.660|
00000410: 00 22 0C 8A 02 4E 52 24 B2 4E 52 24 AA C7 28 4C |."...NR$.NR$..(L|
00000420: 42 29 00 28 0C 94 02 8E 00 4B 0C BC 02 8F 20 50 |B).(.....K.... P|
00000430: 4F 4B 45 20 56 41 4C 55 45 2D 32 4E 44 20 44 49 |OKE VALUE-2ND DI|
00000440: 47 49 54 20 43 48 41 4E 47 45 44 00 58 0C C6 02 |GIT CHANGED.X...|
00000450: 8D 36 30 30 3A 8D 39 30 00 63 0C D0 02 97 43 41 |.600:.90.c....CA|
00000460: 2C 4E 52 00 79 0C DA 02 8B 43 41 B2 53 41 AA 34 |,NR.y....CA.SA.4|
00000470: 30 30 A7 99 22 9D 22 3A 8E 00 9D 0C E4 02 54 B2 |00..".":......T.|
00000480: 28 28 43 41 AB 53 41 AA 31 29 AD 38 B3 B1 B5 28 |((CA.SA.1).8...(|
00000490: 28 43 41 AB 53 41 AA 31 29 AD 38 29 29 00 C3 0C |(CA.SA.1).8))...|
000004A0: EE 02 8B 54 A7 4B 24 B2 22 1D 1D 22 3A 8D 31 38 |...T.K$."..":.18|
000004B0: 30 3A 53 4D B2 53 4D AA 33 3A 43 41 B2 43 41 AA |0:SM.SM.3:CA.CA.|
000004C0: 31 3A 8E 00 F2 0C F8 02 53 4D B2 53 4D AA 31 31 |1:......SM.SM.11|
000004D0: 3A 43 41 B2 43 41 AA 31 3A 4B 24 B2 C7 28 31 33 |:CA.CA.1:K$..(13|
000004E0: 29 AA 22 1D 1D 1D 1D 1D 1D 1D 22 3A 8D 31 38 30 |).".......":.180|
000004F0: 3A 8E 00 0E 0D 20 03 8F 20 43 4F 4E 56 45 52 54 |:.... .. CONVERT|
00000500: 20 53 54 41 52 54 20 41 44 44 52 45 53 53 00 2E | START ADDRESS..|
00000510: 0D 2A 03 8B 20 C8 28 53 41 24 2C 31 29 B3 B1 22 |.*.. .(SA$,1).."|
00000520: 24 22 A7 53 41 B2 C5 28 53 41 24 29 3A 8E 00 4B |$".SA..(SA$):..K|
00000530: 0D 34 03 4E 52 24 B2 CA 28 53 41 24 2C 32 29 3A |.4.NR$..(SA$,2):|
00000540: 8D 39 30 3A 53 41 B2 4E 52 3A 8E 00 6A 0D 84 03 |.90:SA.NR:..j...|
00000550: 8F 20 53 45 54 20 55 50 20 43 4F 4E 56 45 52 53 |. SET UP CONVERS|
00000560: 49 4F 4E 20 41 52 52 41 59 53 00 75 0D 8E 03 86 |ION ARRAYS.u....|
00000570: 44 28 32 32 29 00 89 0D 98 03 81 4A B2 30 A4 39 |D(22)......J.0.9|
00000580: 3A 44 28 4A 29 B2 4A 3A 82 00 A1 0D A2 03 81 4A |:D(J).J:.......J|
00000590: B2 31 37 A4 32 32 3A 44 28 4A 29 B2 4A AB 37 3A |.17.22:D(J).J.7:|
000005A0: 82 00 AD 0D 56 04 86 48 24 28 31 35 29 00 C8 0D |....V..H$(15)...|
000005B0: 60 04 81 4A B2 30 A4 39 3A 48 24 28 4A 29 B2 C7 |`..J.0.9:H$(J)..|
000005C0: 28 34 38 AA 4A 29 3A 82 00 E5 0D 6A 04 81 4A B2 |(48.J):....j..J.|
000005D0: 31 30 A4 31 35 3A 48 24 28 4A 29 B2 C7 28 35 35 |10.15:H$(J)..(55|
000005E0: AA 4A 29 3A 82 00 FA 0D 74 04 8F 20 49 4E 49 54 |.J):....t.. INIT|
000005F0: 49 41 4C 49 5A 41 54 49 4F 4E 00 1E 0E 7E 04 99 |IALIZATION...~..|
00000600: 22 93 22 3A 85 20 22 53 54 41 52 54 20 41 44 44 |".":. "START ADD|
00000610: 52 45 53 53 22 3B 53 41 24 3A 8D 38 30 30 00 30 |RESS";SA$:.800.0|
00000620: 0E 88 04 43 41 B2 53 41 3A 53 4D B2 31 30 33 31 |...CA.SA:SM.1031|
00000630: 00 3E 0E 92 04 81 4A B2 30 A4 32 34 3A 99 00 50 |.>....J.0.24:..P|
00000640: 0E 9C 04 4E 52 B2 53 41 AA 4A AC 38 3A 8D 32 30 |...NR.SA.J.8:.20|
00000650: 00 6B 0E A6 04 99 C9 28 22 30 30 30 30 22 AA 48 |.k.....("0000".H|
00000660: 24 AA 22 20 20 20 22 2C 37 29 3B 00 77 0E B0 04 |$." ",7);.w...|
00000670: 81 4B B2 30 A4 37 3A 00 A0 0E BA 04 4E 52 B2 C2 |.K.0.7:.....NR..|
00000680: 28 53 41 AA 4A AA 4B 29 3A 8D 32 30 3A 99 C9 28 |(SA.J.K):.20:..(|
00000690: 22 30 30 22 AA 48 24 AA 22 20 20 22 2C 34 29 3B |"00".H$." ",4);|
000006A0: 00 A9 0E C4 04 82 4B 2C 4A 00 B9 0E CE 04 8F 20 |......K,J...... |
000006B0: 4D 41 49 4E 20 4C 4F 4F 50 00 CA 0E D8 04 99 22 |MAIN LOOP......"|
000006C0: 13 1D 1D 1D 1D 1D 1D 1D 22 3B 00 D5 0E E2 04 97 |........";......|
000006D0: 32 30 34 2C 30 00 E9 0E EC 04 A1 4B 24 3A 8B 4B |204,0......K$:.K|
000006E0: 24 B2 22 22 A7 31 32 36 30 00 01 0F F6 04 8B 4B |$."".1260......K|
000006F0: 24 B2 22 91 22 A7 20 8D 32 30 30 3A 89 31 32 36 |$.".". .200:.126|
00000700: 30 00 19 0F 00 05 8B 4B 24 B2 22 11 22 A7 20 8D |0......K$.".". .|
00000710: 33 30 30 3A 89 31 32 36 30 00 31 0F 0A 05 8B 4B |300:.1260.1....K|
00000720: 24 B2 22 1D 22 A7 20 8D 34 30 30 3A 89 31 32 36 |$.".". .400:.126|
00000730: 30 00 49 0F 14 05 8B 4B 24 B2 22 9D 22 A7 20 8D |0.I....K$.".". .|
00000740: 35 30 30 3A 89 31 32 36 30 00 5D 0F 1E 05 8B 4B |500:.1260.]....K|
00000750: 24 B2 C7 28 31 33 29 A7 89 31 31 35 30 00 7C 0F |$..(13)..1150.|.|
00000760: 28 05 8F 20 43 48 45 43 4B 20 49 46 20 4C 45 47 |(.. CHECK IF LEG|
00000770: 41 4C 20 48 45 58 20 44 49 47 49 54 00 88 0F 32 |AL HEX DIGIT...2|
00000780: 05 4B B2 C6 28 4B 24 29 00 9C 0F 3C 05 8B 4B B3 |.K..(K$)...<..K.|
00000790: 34 36 B0 4B B1 37 30 A7 31 32 36 30 00 B0 0F 46 |46.K.70.1260...F|
000007A0: 05 8B 4B B1 35 37 AF 4B B3 36 35 A7 31 32 36 30 |..K.57.K.65.1260|
000007B0: 00 B9 0F 50 05 8D 31 38 30 00 EA 0F 5A 05 8B 53 |...P..180...Z..S|
000007C0: 4D AD 32 B3 B1 B5 28 53 4D AD 32 29 A7 53 4D B2 |M.2...(SM.2).SM.|
000007D0: 53 4D AA 31 3A 8D 36 30 30 3A 8D 39 30 3A 97 43 |SM.1:.600:.90:.C|
000007E0: 41 2C 4E 52 3A 89 31 32 36 30 00 1B 10 64 05 8B |A,NR:.1260...d..|
000007F0: 43 41 B2 53 41 AA 31 39 39 A7 4B 24 B2 22 9D 22 |CA.SA.199.K$."."|
00000800: 3A 8D 31 38 30 3A 8D 36 30 30 3A 8D 39 30 3A 97 |:.180:.600:.90:.|
00000810: 43 41 2C 4E 52 3A 89 31 32 36 30 00 2A 10 6E 05 |CA,NR:.1260.*.n.|
00000820: 8D 37 30 30 3A 89 31 32 36 30 00 3A 10 D0 07 99 |.700:.1260.:....|
00000830: 22 93 22 3A 97 32 30 34 2C 30 00 58 10 DA 07 99 |".":.204,0.X....|
00000840: 22 13 22 3B C2 28 36 35 31 29 3B C2 28 36 35 32 |".";.(651);.(652|
00000850: 29 3B 3A 89 32 30 31 30 00 00 FF |);:.2010... |
....... MASKINKODE MONITOR.$.... 900.@..
.. DEC TO HEX CONVERSION.J...H$.""._.(.V
.NR..(NR.16).16.O.2.H$.H$(V).H$..<.NR..
(NR.16)...F.. NR..0.40...P.....Z.. HEX T
O DEC CONVERSION...D.NR.0.I.N..J.1.C(NR$
)...X.NR.D(F(J(NR$,J,1)).48).(NR.16):.:.
... .. CRSR MOVE LEFT/RIGHT.....CA.CA.MO
VE.?.... DISABLE CRSR,PRINT,ENABLE CRSR.
L....207,255,1:.204,255:.205,1:.K$;:.204
,0:...C.. CRSR MOVE UP...H.. CA.SA.8 .
....R.CA.CA.8:SM.SM.40:. 180:..A.,.. CA.
SA.191. ....6.CA.CA.8:SM.SM.40:.180:....
... SM.2020 . ......T.SM.1060.:.... T.40
..(T.40). CA.CA.1:SM.SM.11:K$.".........
..":.180:..S...MOVE..(.(SM.2).SM.2).H...
SM.SM.(2.MOVE).1...B.T.MOVE.2.1:K$.I("..
.",T):.160:....... CRSR MOVE LEFT......
SM.1031 . ..A...T.SM.1031...... T.40..(T
.40).CA.CA.1:SM.SM.12:K$."............":
.180:......MOVE.(.(SM.2)..SM.2).,.&.SM.S
M.(3.MOVE).1.T.0.T..(MOVE).3.1:K$.I("...
.",T):.160:..P.X.. GET VALUE FROM SCREEN
...B..204,255:HB.B(SM.1):LB.B(SM):.204,0
...E..HB.127.HB.HB.128.D.I..LB.127.LB.LB
.128...L..HB.48.NR$.G(64.HB):.640...V.NR
$.G(HB)......LB.48.NR$.NR$.G(64.LB):.660
."...NR$.NR$.G(LB).(.....K.... POKE VALU
E-2ND DIGIT CHANGED.X.F..600:.90.C.P..CA
,NR.Y.Z..CA.SA.400..".":......T.((CA.SA.
1).8...((CA.SA.1).8)).C....T.K$."..":.18
0:SM.SM.3:CA.CA.1:......SM.SM.11:CA.CA.1
:K$.G(13).".......":.180:.... .. CONVERT
START ADDRESS...*.. H(SA$,1).."$".SA.E(
SA$):..K.4.NR$.J(SA$,2):.90:SA.NR:..J...
. SET UP CONVERSION ARRAYS.U....D(22)...
...J.0.9:D(J).J:.......J.17.22:D(J).J.7:
....V..H$(15).H.`..J.0.9:H$(J).G(48.J):.
...J..J.10.15:H$(J).G(55.J):....T.. INIT
IALIZATION...~..".":. "START ADDRESS";SA
$:.800.0...CA.SA:SM.1031.>....J.0.24:..P
...NR.SA.J.8:.20.K....I("0000".H$." ",
7);.W....K.0.7:. ...NR.B(SA.J.K):.20:.I(
"00".H$." ",4);...D..K,J...N.. MAIN LOO
P.J.X.."........";.U....204,0......K$:.K
$."".1260......K$.".". .200:.1260......K
$.".". .300:.1260.1....K$.".". .400:.126
0.I....K$.".". .500:.1260.]....K$.G(13).
.1150.|.(.. CHECK IF LEGAL HEX DIGIT...2
.K.F(K$)...<..K.46.K.70.1260...F..K.57.K
.65.1260...P..180...Z..SM.2...(SM.2).SM.
SM.1:.600:.90:.CA,NR:.1260...D..CA.SA.19
9.K$.".":.180:.600:.90:.CA,NR:.1260.*.N.
.700:.1260.:.P..".":.204,0.X.Z..".";B(65
1);B(652);:.2010...
> CLICK IMAGE PREVIEW FOR FULL MODAL