PROC.GEMINI'DUMP

FILE INFORMATION

FILENAME(S): PROC.GEMINI'DUMP

FILE TYPE(S): SEQ

FILE SIZE: 716b

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

APPEARS ON: 3 disk(s)

FILE HASH

ababd0beba8cfc40bce806f17586e159de5955c3fa4c941187a03dac6394a5fe

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
COMAL 2	PROC.GEMINI'DUMP	SEQ	hedning, Mattias H00r	22	3	DOWNLOAD FILE
CCS COMAL 2	PROC.GEMINI'DUMP	SEQ	hedning, Mattias H00r	22	1	DOWNLOAD FILE
COMAL B	PROC.GEMINI'DUMP	SEQ	hedning, Helsinborg	22	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 2F 2F 20  44 45 4C 45 54 45 20 22  |0010 // DELETE "|
00000010: 30 3A 50 52 4F 43 2E 47  45 4D 49 4E 49 27 44 55  |0:PROC.GEMINI'DU|
00000020: 4D 50 22 0D 30 30 32 30  20 2F 2F 20 4C 49 53 54  |MP".0020 // LIST|
00000030: 20 20 20 22 30 3A 50 52  4F 43 2E 47 45 4D 49 4E  |   "0:PROC.GEMIN|
00000040: 49 27 44 55 4D 50 22 0D  30 30 33 30 20 0D 30 30  |I'DUMP".0030 .00|
00000050: 34 30 20 D0 D2 CF C3 20  47 45 4D 49 4E 49 27 44  |40 .... GEMINI'D|
00000060: 55 4D 50 20 C3 CC CF D3  C5 C4 0D 30 30 35 30 20  |UMP .......0050 |
00000070: 20 20 5A 3A 3D DA CF CE  C5 0D 30 30 36 30 20 20  |  Z:=.....0060  |
00000080: 20 DA CF CE C5 20 30 0D  30 30 37 30 20 20 20 D5  | .... 0.0070   .|
00000090: D3 C5 20 53 59 53 54 45  4D 0D 30 30 38 30 20 20  |.. SYSTEM.0080  |
000000A0: 20 53 45 54 50 41 47 45  28 30 29 0D 30 30 39 30  | SETPAGE(0).0090|
000000B0: 20 20 20 CF D0 C5 CE 20  C6 C9 CC C5 20 37 38 2C  |   .... .... 78,|
000000C0: 22 55 34 3A 2F 54 2B 2F  53 35 22 2C D7 D2 C9 D4  |"U4:/T+/S5",....|
000000D0: C5 0D 30 31 30 30 20 20  20 D0 D2 C9 CE D4 20 C6  |..0100   ..... .|
000000E0: C9 CC C5 20 37 38 3A 20  22 22 32 37 22 22 2C C3  |... 78: ""27"",.|
000000F0: C8 D2 24 28 36 35 29 2C  22 22 38 22 22 0D 30 31  |..$(65),""8"".01|
00000100: 31 30 20 20 20 42 49 54  4D 41 50 3A 3D 24 45 30  |10   BITMAP:=$E0|
00000110: 30 30 0D 30 31 32 30 20  20 20 C6 CF D2 20 43 4F  |00.0120   ... CO|
00000120: 4C 23 3A 3D 30 20 D4 CF  20 33 39 20 C4 CF 0D 30  |L#:=0 .. 39 ...0|
00000130: 31 33 30 20 20 20 20 20  D0 D2 C9 CE D4 20 C6 C9  |130     ..... ..|
00000140: CC C5 20 37 38 3A 20 22  22 32 37 22 22 2C C3 C8  |.. 78: ""27"",..|
00000150: D2 24 28 37 35 29 2C C3  C8 D2 24 28 32 30 30 29  |.$(75),...$(200)|
00000160: 2C 22 22 30 22 22 2C 0D  30 31 34 30 20 20 20 20  |,""0"",.0140    |
00000170: 20 C6 CF D2 20 52 4F 57  23 3A 3D 32 34 20 D4 CF  | ... ROW#:=24 ..|
00000180: 20 30 20 D3 D4 C5 D0 20  2D 31 20 C4 CF 0D 30 31  | 0 .... -1 ...01|
00000190: 35 30 20 20 20 20 20 20  20 C6 CF D2 20 42 49 54  |50       ... BIT|
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 36  30 20 20 20 20 20 20 20  |1 ...0160       |
000001C0: 20 20 42 23 3A 3D D0 C5  C5 CB 28 42 49 54 4D 41  |  B#:=....(BITMA|
000001D0: 50 2B 43 4F 4C 23 2A 38  2B 52 4F 57 23 2A 33 32  |P+COL#*8+ROW#*32|
000001E0: 30 2B 42 49 54 23 29 0D  30 31 37 30 20 20 20 20  |0+BIT#).0170    |
000001F0: 20 20 20 20 20 D0 D2 C9  CE D4 20 C6 C9 CC C5 20  |     ..... .... |
00000200: 37 38 3A 20 C3 C8 D2 24  28 42 23 29 2C 0D 30 31  |78: ...$(B#),.01|
00000210: 38 30 20 20 20 20 20 20  20 C5 CE C4 C6 CF D2 20  |80       ...... |
00000220: 42 49 54 23 0D 30 31 39  30 20 20 20 20 20 C5 CE  |BIT#.0190     ..|
00000230: C4 C6 CF D2 20 52 4F 57  23 0D 30 32 30 30 20 20  |.... ROW#.0200  |
00000240: 20 20 20 D0 D2 C9 CE D4  20 C6 C9 CC C5 20 37 38  |   ..... .... 78|
00000250: 3A 20 22 22 31 30 22 22  0D 30 32 31 30 20 20 20  |: ""10"".0210   |
00000260: C5 CE C4 C6 CF D2 20 43  4F 4C 23 0D 30 32 32 30  |...... COL#.0220|
00000270: 20 20 20 D0 D2 C9 CE D4  20 C6 C9 CC C5 20 37 38  |   ..... .... 78|
00000280: 3A 20 22 22 32 37 22 40  22 0D 30 32 33 30 20 20  |: ""27"@".0230  |
00000290: 20 C3 CC CF D3 C5 20 C6  C9 CC C5 20 37 38 0D 30  | ..... .... 78.0|
000002A0: 32 34 30 20 20 20 DA CF  CE C5 20 5A 0D 30 32 35  |240   .... Z.025|
000002B0: 30 20 C5 CE C4 D0 D2 CF  C3 20 47 45 4D 49 4E 49  |0 ....... GEMINI|
000002C0: 27 44 55 4D 50 0D 30 32  36 30 20 0D              |'DUMP.0260 .    |

0010 // DELETE "0:PROC.GEMINI'DUMP".0020
 // LIST   "0:PROC.GEMINI'DUMP".0030 .00
40 PROC GEMINI'DUMP CLOSED.0050   Z:=ZON
E.0060   ZONE 0.0070   USE SYSTEM.0080  
 SETPAGE(0).0090   OPEN FILE 78,"U4:/T+/
S5",WRITE.0100   PRINT FILE 78: ""27"",C
HR$(65),""8"".0110   BITMAP:=$E000.0120 
  FOR COL#:=0 TO 39 DO.0130     PRINT FI
LE 78: ""27"",CHR$(75),CHR$(200),""0"",.
0140     FOR ROW#:=24 TO 0 STEP -1 DO.01
50       FOR BIT#:=7 TO 0 STEP -1 DO.016
0         B#:=PEEK(BITMAP+COL#*8+ROW#*32
0+BIT#).0170         PRINT FILE 78: CHR$
(B#),.0180       ENDFOR BIT#.0190     EN
DFOR ROW#.0200     PRINT FILE 78: ""10""
.0210   ENDFOR COL#.0220   PRINT FILE 78
: ""27"@".0230   CLOSE FILE 78.0240   ZO
NE Z.0250 ENDPROC GEMINI'DUMP.0260 .

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL