PROC.GEM'BIGDUMP

FILE INFORMATION

FILENAME(S): PROC.GEM'BIGDUMP

FILE TYPE(S): SEQ

FILE SIZE: 1K

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

APPEARS ON: 3 disk(s)

FILE HASH

d289aa701417141c305e49e399404a96fa5af7bb3d7909147a160e2cfcecd397

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	ACTIONS
COMAL 2	PROC.GEM'BIGDUMP	SEQ	hedning, Mattias H00r	22	DOWNLOAD FILE
CCS COMAL 2	PROC.GEM'BIGDUMP	SEQ	hedning, Mattias H00r	22	DOWNLOAD FILE
COMAL B	PROC.GEM'BIGDUMP	SEQ	hedning, Helsinborg	22	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 0D 30 30  32 30 20 D0 D2 CF C3 20  |0010 .0020 .... |
00000010: 47 45 4D 49 4E 49 27 42  49 47 44 55 4D 50 20 C3  |GEMINI'BIGDUMP .|
00000020: CC CF D3 C5 C4 0D 30 30  33 30 20 20 20 5A 3A 3D  |......0030   Z:=|
00000030: DA CF CE C5 0D 30 30 34  30 20 20 20 DA CF CE C5  |.....0040   ....|
00000040: 20 30 0D 30 30 35 30 20  20 20 D5 D3 C5 20 53 59  | 0.0050   ... SY|
00000050: 53 54 45 4D 0D 30 30 36  30 20 20 20 53 45 54 50  |STEM.0060   SETP|
00000060: 41 47 45 28 30 29 0D 30  30 37 30 20 20 20 C4 C9  |AGE(0).0070   ..|
00000070: CD 20 50 43 28 31 36 29  0D 30 30 38 30 20 20 20  |. PC(16).0080   |
00000080: C6 CF D2 20 42 23 3A 3D  31 20 D4 CF 20 31 36 20  |... B#:=1 .. 16 |
00000090: C4 CF 20 D2 C5 C1 C4 20  50 43 28 42 29 0D 30 30  |.. .... PC(B).00|
000000A0: 39 30 20 20 20 CF D0 C5  CE 20 C6 C9 CC C5 20 37  |90   .... .... 7|
000000B0: 38 2C 22 55 34 3A 2F 54  2B 2F 53 35 22 2C D7 D2  |8,"U4:/T+/S5",..|
000000C0: C9 D4 C5 0D 30 31 30 30  20 20 20 D0 D2 C9 CE D4  |....0100   .....|
000000D0: 20 C6 C9 CC C5 20 37 38  3A 20 22 22 32 37 22 22  | .... 78: ""27""|
000000E0: 2C C3 C8 D2 24 28 36 35  29 2C 22 22 38 22 22 0D  |,...$(65),""8"".|
000000F0: 30 31 31 30 20 20 20 42  49 54 4D 41 50 3A 3D 24  |0110   BITMAP:=$|
00000100: 45 30 30 30 0D 30 31 32  30 20 20 20 C6 CF D2 20  |E000.0120   ... |
00000110: 43 23 3A 3D 30 20 D4 CF  20 33 39 20 C4 CF 0D 30  |C#:=0 .. 39 ...0|
00000120: 31 33 30 20 20 20 20 20  C6 CF D2 20 50 41 52 54  |130     ... PART|
00000130: 23 3A 3D 31 20 D4 CF 20  32 20 C4 CF 0D 30 31 34  |#:=1 .. 2 ...014|
00000140: 30 20 20 20 20 20 20 20  D0 D2 C9 CE D4 20 C6 C9  |0       ..... ..|
00000150: CC C5 20 37 38 3A 20 22  22 32 37 22 4B 22 31 34  |.. 78: ""27"K"14|
00000160: 34 22 22 31 22 22 2C 0D  30 31 35 30 20 20 20 20  |4""1"",.0150    |
00000170: 20 20 20 C6 CF D2 20 52  23 3A 3D 32 34 20 D4 CF  |   ... R#:=24 ..|
00000180: 20 30 20 D3 D4 C5 D0 20  2D 31 20 C4 CF 0D 30 31  | 0 .... -1 ...01|
00000190: 36 30 20 20 20 20 20 20  20 20 20 C6 CF D2 20 42  |60         ... B|
000001A0: 23 3A 3D 37 20 D4 CF 20  30 20 D3 D4 C5 D0 20 2D  |#:=7 .. 0 .... -|
000001B0: 31 20 C4 CF 0D 30 31 37  30 20 20 20 20 20 20 20  |1 ...0170       |
000001C0: 20 20 20 20 42 59 54 45  23 3A 3D D0 C5 C5 CB 28  |    BYTE#:=....(|
000001D0: 42 49 54 4D 41 50 2B 43  23 2A 38 2B 52 23 2A 33  |BITMAP+C#*8+R#*3|
000001E0: 32 30 2B 42 23 29 0D 30  31 38 30 20 20 20 20 20  |20+B#).0180     |
000001F0: 20 20 20 20 20 20 C3 C1  D3 C5 20 50 41 52 54 23  |      .... PART#|
00000200: 20 CF C6 0D 30 31 39 30  20 20 20 20 20 20 20 20  | ...0190        |
00000210: 20 20 20 D7 C8 C5 CE 20  31 0D 30 32 30 30 20 20  |   .... 1.0200  |
00000220: 20 20 20 20 20 20 20 20  20 20 20 42 59 54 45 23  |           BYTE#|
00000230: 3A 3D 28 42 59 54 45 23  20 C4 C9 D6 20 31 36 29  |:=(BYTE# ... 16)|
00000240: 2B 31 0D 30 32 31 30 20  20 20 20 20 20 20 20 20  |+1.0210         |
00000250: 20 20 D7 C8 C5 CE 20 32  0D 30 32 32 30 20 20 20  |  .... 2.0220   |
00000260: 20 20 20 20 20 20 20 20  20 20 42 59 54 45 23 3A  |          BYTE#:|
00000270: 3D 28 42 59 54 45 23 20  CD CF C4 20 31 36 29 2B  |=(BYTE# ... 16)+|
00000280: 31 0D 30 32 33 30 20 20  20 20 20 20 20 20 20 20  |1.0230          |
00000290: 20 C5 CE C4 C3 C1 D3 C5  20 0D 30 32 34 30 20 20  | ....... .0240  |
000002A0: 20 20 20 20 20 20 20 20  20 D0 D2 C9 CE D4 20 C6  |         ..... .|
000002B0: C9 CC C5 20 37 38 3A 20  C3 C8 D2 24 28 50 43 28  |... 78: ...$(PC(|
000002C0: 42 59 54 45 23 29 29 2C  0D 30 32 35 30 20 20 20  |BYTE#)),.0250   |
000002D0: 20 20 20 20 20 20 20 20  D0 D2 C9 CE D4 20 C6 C9  |        ..... ..|
000002E0: CC C5 20 37 38 3A 20 C3  C8 D2 24 28 50 43 28 42  |.. 78: ...$(PC(B|
000002F0: 59 54 45 23 29 29 2C 0D  30 32 36 30 20 20 20 20  |YTE#)),.0260    |
00000300: 20 20 20 20 20 C5 CE C4  C6 CF D2 20 42 23 0D 30  |     ...... B#.0|
00000310: 32 37 30 20 20 20 20 20  20 20 C5 CE C4 C6 CF D2  |270       ......|
00000320: 20 52 23 0D 30 32 38 30  20 20 20 20 20 20 20 D0  | R#.0280       .|
00000330: D2 C9 CE D4 20 C6 C9 CC  C5 20 37 38 3A 20 22 22  |.... .... 78: ""|
00000340: 31 30 22 22 0D 30 32 39  30 20 20 20 20 20 C5 CE  |10"".0290     ..|
00000350: C4 C6 CF D2 20 50 41 52  54 23 0D 30 33 30 30 20  |.... PART#.0300 |
00000360: 20 20 C5 CE C4 C6 CF D2  20 43 23 0D 30 33 31 30  |  ...... C#.0310|
00000370: 20 20 20 D0 D2 C9 CE D4  20 C6 C9 CC C5 20 37 38  |   ..... .... 78|
00000380: 3A 20 22 22 32 37 22 40  22 0D 30 33 32 30 20 20  |: ""27"@".0320  |
00000390: 20 C3 CC CF D3 C5 20 C6  C9 CC C5 20 37 38 0D 30  | ..... .... 78.0|
000003A0: 33 33 30 20 20 20 DA CF  CE C5 20 5A 0D 30 33 34  |330   .... Z.034|
000003B0: 30 20 20 20 C4 C1 D4 C1  20 30 2C 33 2C 31 32 2C  |0   .... 0,3,12,|
000003C0: 31 35 2C 34 38 2C 35 31  2C 36 30 2C 36 33 2C 31  |15,48,51,60,63,1|
000003D0: 39 32 0D 30 33 35 30 20  20 20 C4 C1 D4 C1 20 31  |92.0350   .... 1|
000003E0: 39 35 2C 32 30 34 2C 32  30 37 2C 32 34 30 2C 32  |95,204,207,240,2|
000003F0: 34 33 2C 32 35 32 2C 32  35 35 0D 30 33 36 30 20  |43,252,255.0360 |
00000400: C5 CE C4 D0 D2 CF C3 20  47 45 4D 49 4E 49 27 42  |....... GEMINI'B|
00000410: 49 47 44 55 4D 50 0D 30  33 37 30 20 0D           |IGDUMP.0370 .   |

0010 .0020 PROC GEMINI'BIGDUMP CLOSED.00
30   Z:=ZONE.0040   ZONE 0.0050   USE SY
STEM.0060   SETPAGE(0).0070   DIM PC(16)
.0080   FOR B#:=1 TO 16 DO READ PC(B).00
90   OPEN FILE 78,"U4:/T+/S5",WRITE.0100
   PRINT FILE 78: ""27"",CHR$(65),""8"".
0110   BITMAP:=$E000.0120   FOR C#:=0 TO
 39 DO.0130     FOR PART#:=1 TO 2 DO.014
0       PRINT FILE 78: ""27"K"144""1"",.
0150       FOR R#:=24 TO 0 STEP -1 DO.01
60         FOR B#:=7 TO 0 STEP -1 DO.017
0           BYTE#:=PEEK(BITMAP+C#*8+R#*3
20+B#).0180           CASE PART# OF.0190
           WHEN 1.0200             BYTE#
:=(BYTE# DIV 16)+1.0210           WHEN 2
.0220             BYTE#:=(BYTE# MOD 16)+
1.0230           ENDCASE .0240          
 PRINT FILE 78: CHR$(PC(BYTE#)),.0250   
        PRINT FILE 78: CHR$(PC(BYTE#)),.
0260         ENDFOR B#.0270       ENDFOR
 R#.0280       PRINT FILE 78: ""10"".029
0     ENDFOR PART#.0300   ENDFOR C#.0310
   PRINT FILE 78: ""27"@".0320   CLOSE F
ILE 78.0330   ZONE Z.0340   DATA 0,3,12,
15,48,51,60,63,192.0350   DATA 195,204,2
07,240,243,252,255.0360 ENDPROC GEMINI'B
IGDUMP.0370 .

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL