DISK'GET.L

FILE INFORMATION

FILENAME(S): DISK'GET.L

FILE TYPE(S): SEQ

FILE SIZE: 794b

FIRST SEEN: 2025-12-01 01:48:21

APPEARS ON: 3 disk(s)

FILE HASH

f8f73efc0d48b08145dc01c1d813edda6993e4e0c8754fae11787899871e966d

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	ACTIONS
CCS COMAL	DISK'GET.L	SEQ	hedning, Mattias H00r	24	DOWNLOAD FILE
CCS COMAL	DISK'GET.L	SEQ	hedning, Mattias H00r	24	DOWNLOAD FILE
COMAL A	DISK'GET.L	SEQ	hedning, Helsinborg	24	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 46 55 4E  43 20 44 49 53 4B 27 47  |9000 FUNC DISK'G|
00000010: 45 54 28 46 49 4C 45 27  4E 55 4D 2C 52 45 46 20  |ET(FILE'NUM,REF |
00000020: 46 49 4C 45 27 45 4E 44  29 20 43 4C 4F 53 45 44  |FILE'END) CLOSED|
00000030: 0D 39 30 31 30 20 50 4F  4B 45 20 32 30 32 38 2C  |.9010 POKE 2028,|
00000040: 46 49 4C 45 27 4E 55 4D  0D 39 30 32 30 20 50 4F  |FILE'NUM.9020 PO|
00000050: 4B 45 20 32 30 32 36 2C  31 0D 39 30 33 30 20 53  |KE 2026,1.9030 S|
00000060: 59 53 20 32 30 32 35 0D  39 30 34 30 20 46 49 4C  |YS 2025.9040 FIL|
00000070: 45 27 45 4E 44 3A 3D 50  45 45 4B 28 31 34 34 29  |E'END:=PEEK(144)|
00000080: 0D 39 30 35 30 20 52 45  54 55 52 4E 20 50 45 45  |.9050 RETURN PEE|
00000090: 4B 28 32 30 32 34 29 0D  39 30 36 30 20 45 4E 44  |K(2024).9060 END|
000000A0: 46 55 4E 43 20 44 49 53  4B 27 47 45 54 0D 39 30  |FUNC DISK'GET.90|
000000B0: 37 30 20 2F 2F 0D 39 30  38 30 20 50 52 4F 43 20  |70 //.9080 PROC |
000000C0: 44 49 53 4B 27 47 45 54  27 49 4E 49 54 20 43 4C  |DISK'GET'INIT CL|
000000D0: 4F 53 45 44 0D 39 30 39  30 20 46 4F 52 20 4C 4F  |OSED.9090 FOR LO|
000000E0: 43 23 3A 3D 32 30 32 34  20 54 4F 20 32 30 34 34  |C#:=2024 TO 2044|
000000F0: 20 44 4F 0D 39 31 30 30  20 52 45 41 44 20 56 0D  | DO.9100 READ V.|
00000100: 39 31 31 30 20 50 4F 4B  45 20 4C 4F 43 23 2C 56  |9110 POKE LOC#,V|
00000110: 0D 39 31 32 30 20 45 4E  44 46 4F 52 20 4C 4F 43  |.9120 ENDFOR LOC|
00000120: 23 0D 39 31 33 30 20 44  41 54 41 20 30 2C 31 36  |#.9130 DATA 0,16|
00000130: 30 2C 30 2C 31 36 32 2C  30 2C 33 32 2C 31 39 38  |0,0,162,0,32,198|
00000140: 0D 39 31 34 30 20 44 41  54 41 20 32 35 35 2C 33  |.9140 DATA 255,3|
00000150: 32 2C 32 30 37 2C 32 35  35 2C 31 33 36 2C 32 30  |2,207,255,136,20|
00000160: 38 2C 32 35 30 0D 39 31  35 30 20 44 41 54 41 20  |8,250.9150 DATA |
00000170: 31 34 31 2C 32 33 32 2C  37 2C 33 32 2C 32 30 34  |141,232,7,32,204|
00000180: 2C 32 35 35 2C 39 36 0D  39 31 36 30 20 45 4E 44  |,255,96.9160 END|
00000190: 50 52 4F 43 20 44 49 53  4B 27 47 45 54 27 49 4E  |PROC DISK'GET'IN|
000001A0: 49 54 0D 39 31 37 30 20  2F 2F 0D 39 31 38 30 20  |IT.9170 //.9180 |
000001B0: 50 52 4F 43 20 44 49 53  4B 27 47 45 54 27 53 4B  |PROC DISK'GET'SK|
000001C0: 49 50 28 43 4F 55 4E 54  2C 46 49 4C 45 27 4E 55  |IP(COUNT,FILE'NU|
000001D0: 4D 2C 52 45 46 20 46 49  4C 45 27 45 4E 44 29 20  |M,REF FILE'END) |
000001E0: 43 4C 4F 53 45 44 0D 39  31 39 30 20 50 4F 4B 45  |CLOSED.9190 POKE|
000001F0: 20 32 30 32 36 2C 43 4F  55 4E 54 0D 39 32 30 30  | 2026,COUNT.9200|
00000200: 20 50 4F 4B 45 20 32 30  32 38 2C 46 49 4C 45 27  | POKE 2028,FILE'|
00000210: 4E 55 4D 0D 39 32 31 30  20 53 59 53 20 32 30 32  |NUM.9210 SYS 202|
00000220: 35 0D 39 32 32 30 20 46  49 4C 45 27 45 4E 44 3A  |5.9220 FILE'END:|
00000230: 3D 50 45 45 4B 28 31 34  34 29 0D 39 32 33 30 20  |=PEEK(144).9230 |
00000240: 45 4E 44 50 52 4F 43 20  44 49 53 4B 27 47 45 54  |ENDPROC DISK'GET|
00000250: 27 53 4B 49 50 0D 39 32  34 30 20 2F 2F 0D 39 32  |'SKIP.9240 //.92|
00000260: 35 30 20 50 52 4F 43 20  44 49 53 4B 27 47 45 54  |50 PROC DISK'GET|
00000270: 27 53 54 52 49 4E 47 28  52 45 46 20 49 54 45 4D  |'STRING(REF ITEM|
00000280: 24 2C 43 4F 55 4E 54 2C  46 49 4C 45 27 4E 55 4D  |$,COUNT,FILE'NUM|
00000290: 2C 52 45 46 20 46 49 4C  45 27 45 4E 44 29 20 43  |,REF FILE'END) C|
000002A0: 4C 4F 53 45 44 0D 39 32  36 30 20 49 54 45 4D 24  |LOSED.9260 ITEM$|
000002B0: 3A 3D 22 22 0D 39 32 37  30 20 46 4F 52 20 58 23  |:="".9270 FOR X#|
000002C0: 3A 3D 31 20 54 4F 20 43  4F 55 4E 54 20 44 4F 20  |:=1 TO COUNT DO |
000002D0: 49 54 45 4D 24 28 58 23  29 3A 3D 43 48 52 24 28  |ITEM$(X#):=CHR$(|
000002E0: 44 49 53 4B 27 47 45 54  28 46 49 4C 45 27 4E 55  |DISK'GET(FILE'NU|
000002F0: 4D 2C 46 49 4C 45 27 45  4E 44 29 29 0D 39 32 38  |M,FILE'END)).928|
00000300: 30 20 45 4E 44 50 52 4F  43 20 44 49 53 4B 27 47  |0 ENDPROC DISK'G|
00000310: 45 54 27 53 54 52 49 4E  47 0D                    |ET'STRING.      |

9000 FUNC DISK'GET(FILE'NUM,REF FILE'END
) CLOSED.9010 POKE 2028,FILE'NUM.9020 PO
KE 2026,1.9030 SYS 2025.9040 FILE'END:=P
EEK(144).9050 RETURN PEEK(2024).9060 END
FUNC DISK'GET.9070 //.9080 PROC DISK'GET
'INIT CLOSED.9090 FOR LOC#:=2024 TO 2044
 DO.9100 READ V.9110 POKE LOC#,V.9120 EN
DFOR LOC#.9130 DATA 0,160,0,162,0,32,198
.9140 DATA 255,32,207,255,136,208,250.91
50 DATA 141,232,7,32,204,255,96.9160 END
PROC DISK'GET'INIT.9170 //.9180 PROC DIS
K'GET'SKIP(COUNT,FILE'NUM,REF FILE'END) 
CLOSED.9190 POKE 2026,COUNT.9200 POKE 20
28,FILE'NUM.9210 SYS 2025.9220 FILE'END:
=PEEK(144).9230 ENDPROC DISK'GET'SKIP.92
40 //.9250 PROC DISK'GET'STRING(REF ITEM
$,COUNT,FILE'NUM,REF FILE'END) CLOSED.92
60 ITEM$:="".9270 FOR X#:=1 TO COUNT DO 
ITEM$(X#):=CHR$(DISK'GET(FILE'NUM,FILE'E
ND)).9280 ENDPROC DISK'GET'STRING.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL