Yes, George is going to be dragged kicking and screaming into the 1980s!
| ICL 7093 communications processor - Front End Processor used for offloading character device input and output from the 1900 CPU. |
The procedure for "correcting" George is detailed in TP4438 "GEORGE 3 and 4 Operations Management" around page 23.
Setup :GEOSOURCE, :GEO, :VDF and :EDITS (already done on system distributed from www.icl1900.co.uk).
Use the MAKEVDF macro to set up the VDF:
MAKEVDF VDF :VDF.VDF,REEL0(4671012,ICLKGCHAP867(375,0)),REEL1(4671013,ICLKGCHAP867(375,1))You need to get the tapes from the ICL 1900 Software and Literature Distribution Centre, Portland Road, Reading, UK.
Note that I'm using the tapes patched up to S/N 375, rather than the original tapes, 4671002,ICLKGEOCHAPS(867/0) and 4671003,ICLKGEOCHAPS(867/1).
On the tapes currently available (24/7/2010) there is a problem with one source file, LISTMOP867(3), which is corrupt. At some point it will be reverted to the correct LISTMOP867(2). In the mean time you can fix this by copying LISTMOP867(2002) to :GEO.
Now we set up the "software notice" to activate the mends we want in :EDITS.G3867OPTS
INPUT :GEOSOURCE,:EDITS.G3867OPTS,T**** !!!! ,G3 # MEND 233 - COMPACT FORMAT FOR LISTDIR HIGH #ALT G233=1 MENDIT :GEO,LISTDIR,867,1 MENDIT :GEO,LISTDIRF,867,2 MENDIT :GEO,SETPARAM,867,6 # MEND 263 - HOWBIG COMMAND !!!! ,G3 #ALT G263 =1 MENDIT :GEO,VERBCLAS,867,3 MENDIT :GEO,SETPARAM,867,6 # MEND 373 - QUESTION INCLUDES JOB NUMBER !!!! ,G3 #ALT G374=1 MENDIT :GEO,QUESCOM,867,3 # MEND 501 - 3 SHIFT INPUT IN MOP !!!! ,G3 #ALT G501=1 MENDIT :GEO,CHANG,867,4 MENDIT :GEO,PREPREAD,867,3 # MEND 502 - SHIFT AND GRAPHICS OUTPUT IN MOP !!!! ,G3 #ALT G502=1 MENDIT :GEO,IPBMOP,867,14 MENDIT :GEO,IPBMOPC,867,3 MENDIT :GEO,LISTFILE,867,3 MENDIT :GEO,LISTMOP,867,2002 MENDIT :GEO,LISTPARS,867,3 # MEND 503 - PAGING AND FRAMING ON MOP TERMINALS !!!! ,G3 #ALT G503=1 MENDIT :GEO,LISTFILE,867,3 MENDIT :GEO,LISTMOP,867,2002 MENDIT :GEO,LISTPARS,867,3 # MEND 505 - 3 SHIFT FOR ONLINE PROGRAMS AND EDITOR !!!! ,G3 #ALT G505 =1 #ALT G501 =1 #ALT G502 =1 MENDIT :GEO,INMOP,867,1 MENDIT :GEO,TPOBJ,867,1 MENDIT :GEO,TROBJ,867,2 MENDIT :GEO,ONLINEC,867,1 MENDIT :GEO,PERCON,867,3 MENDIT :GEO,EDIT,867,4 MENDIT :GEO,CHANG,867,4 MENDIT :GEO,COMPRO,867,3 MENDIT :GEO,PREPREAD,867,3 MENDIT :GEO,IPBMOP,867,14 MENDIT :GEO,IPBMOPC,867,3 MENDIT :GEO,LISTMOP,867,2002 MENDIT :GEO,LISTPARS,867,3 MENDIT :GEO,LISTFILE,867,3 ****(Note that the checksums normaly present after the !!!! have been replaced by spaces so no checking will be done, I don't have the tool to calculate the correct checksums. Hint: look for TIDEGC, included on the tape (4671001,ICLKG3ADDSYS) documented in the file TIDGCDOC on the same tape). And we run:
SETUPRES VDF :VDF.VDF,ED :EDITS.G3867OPTS,RPACK G3867RES,SCDY :GEOThis loads in the sources that need to be recompiled and makes a partial restore pack in G3867RES.
(I'm not bothering to make a tape dump yet)
Now we make a file to hold the beginning of the restore pack
INPUT :GEOSOURCE,RESBEGIN,T**** OFR ICLKG3SYSTEM [ OPEN TAPE FOR READING RES G3MK8D [ RESTORE GIN FROM SUBFILE G3MK8D #LIS 3 [ SET LISTING TO LEVEL 3 #PRO ,6 [ RESTORE GEORGE TO DISK (TYPE 6) #WOR ,6 [ WORKFILE ON DISK #GEO MZ 50K [ UP MAX PROGRAM SIZE TO 50K #COR 50 [ ALLOCATE 50K ****And a file to hold the end, containing the restore time macros and residence declarations. (See the initial restore pack in data/CR04 for the definition of the residences).
INPUT :GEOSOURCE,RESEND,T****
# RESTORE TIME MACROS:
# 12345678901234567890123456789
HELLO 29,ATLANTECH G3 MARK %A.%B ON %C
# DECLARE RESIDENCES:
FSDESC
FSFILE 3,6,G3FSRES3
FSFILE 4,6,G3FSRES4
FSFILE 5,6,G3FSRES5
FSFILE 10,6,G3SWAPRES,,SWAP
ENDESC
# WE COULD DUMP THE FULLY CONFIGURED GEORGE HERE IF WE WANTED
# DUMP 2, G387FINAL, G3FINAL
#LIS 0 [ TURN OFF LISTING
#DEL [ DELETE GIN
[ BLANK LINE FOR DOUBLE BUFFERING
****
Now we run GEORES to compile and load the new version of George:
GEORES *CR RESBEGIN,*CR G3867RES,*CR RESEND,*MT ICLKGSNED867,*DA0 GEORGE3B,*LPWe can write to exofiles GEORGE3A, GEORGE3B, GEORGE3C or GEORGE3D. (See appendix A in the G3EE.pdf doc) Don't write to the one George is running from at the moment of course.
We've read the part-compiled George from 4672012,ICLKGSNED867(10) rather than the original 4671000,ICLKG3SYSTEM(867)to make sure we have all the software notice fixes up to S/N 375.
The MOP output is:
19.29.18 1.20 CORE GIVEN 512 1.20 :HALTED : CR WAITING FOR MT 4672012 19.29.35 USED U32 AS *MT0 , MT (4672012,ICLKGSNED867(10/0)) 19.29.35 1.20 CORE GIVEN 18176 19.29.35 JOB IS NOW FULLY STARTED FILE *CR0 EXHAUSTED 1.20: FAILED ,PROGRAM AT 11161,,, 11161 PERI 1 598 N(M)=598 PERI ON *CR0 : 4 WORD CONTROL AREA #40300000 #721 80 454 19.29.35 FREE *CR0 ,8 TRANSFERS 19.29.35 1.21 CORE GIVEN 32768 DISPLAY : RP DISPLAY : RW 19.29.35 FREE *CR1 ,570 TRANSFERS 19.29.35 FREE *CR1 ,673 TRANSFERS 19.29.36 FREE *CR1 ,794 TRANSFERS 19.29.36 FREE *CR1 ,338 TRANSFERS 19.29.36 FREE *CR1 ,263 TRANSFERS 19.29.36 FREE *CR1 ,621 TRANSFERS 19.29.36 FREE *CR1 ,954 TRANSFERS 19.29.37 FREE *CR1 ,1255 TRANSFERS 19.29.37 FREE *CR1 ,335 TRANSFERS 19.29.37 FREE *CR1 ,592 TRANSFERS 19.29.37 FREE *CR1 ,346 TRANSFERS TIME UP 1.31: FAILED ,PROGRAM AT 4256,,, 4256 BZE 0 4294 N(M)=4294 19.29.38 FREE *CR1 ,711 TRANSFERS 19.29.38 FREE *CR1 ,271 TRANSFERS 19.29.38 FREE *CR1 ,659 TRANSFERS 19.29.38 FREE *CR1 ,555 TRANSFERS 19.29.38 FREE *CR1 ,335 TRANSFERS 19.29.39 FREE *CR1 ,801 TRANSFERS 19.29.39 FREE *CR1 ,514 TRANSFERS 19.29.39 FREE *CR1 ,770 TRANSFERS FILE *CR0 EXHAUSTED 1.37: FAILED ,PROGRAM AT 11161,,, 11161 PERI 1 598 N(M)=598 PERI ON *CR0 : 4 WORD CONTROL AREA #40300000 #707 80 454 19.29.39 FREE *CR0 ,127 TRANSFERS DISPLAY : NO ERRORS IN THIS RUN TIME UP 1.42: FAILED ,PROGRAM AT 3918,,, 3918 LDN 2 1 N(M)=1 1.45 :DELETED : OK 19.29.41 FREE *DA0 ,1456 TRANSFERS 19.29.41 FREE *LP0 ,471 TRANSFERS 19.29.41 FREE U32,8213 TRANSFERS 19.29.41 FREE *DA1 ,24466 TRANSFERS 19.29.41 FREE *CR0 ,19 TRANSFERS 19.29.41 1.45 DELETED,CLOCKED 0.03 DISPLAY: RESTORE FINISHED OK END OF MACROThe output listing looks like:
^**********************************************************************************************************************^
#LISTING OF :WORKFILE.AACN00000016(1/) PRODUCED ON 24JUL10 AT 19.29.41
#OUTPUT BY LISTFILE IN ':GEOSOURCE.JOHN' ON 24JUL10 AT 19.29.41 USING U10
DOCUMENT !
COMPILE 19.29.35 BY GIN 524 24/07/10 26/04/83 ICLKGSNED867 G3MK8D MODSF 0 757
1 #LIS 3 [ SET LISTING TO LEVEL 3 3 00000003
2 #PRO ,6 [ RESTORE GEORGE TO DISK (TYPE 6)
3 #WOR ,6 [ WORKFILE ON DISK
4 #GEO MZ 50K [ UP MAX PROGRAM SIZE TO 50K
5 #COR 50 [ ALLOCATE 50K 32768 00100000
6 #SKIP G3 1 00000001
7 (
8 # MEND 233 - COMPACT FORMAT FOR LISTDIR HIGH
9 #ALT G233=1 1 00000001
10 # #!
11 )
12 #SKIP G3 1 00000001
13 (
14 #ALT G263 =1 1 00000001
15 # #!
16 )
17 #SKIP G3 1 00000001
18 (
19 #ALT G374=1 1 00000001
20 # #!
21 )
22 #SKIP G3 1 00000001
23 (
24 #ALT G501=1 1 00000001
25 # #!
26 )
27 #SKIP G3 1 00000001
28 (
29 #ALT G502=1 1 00000001
30 # #!
31 )
32 #SKIP G3 1 00000001
33 (
34 #ALT G503=1 1 00000001
35 # #!
36 )
37 #SKIP G3 1 00000001
38 (
39 #ALT G505 =1 1 00000001
40 #ALT G501 =1 1 00000001
41 #ALT G502 =1 1 00000001
42 # #!
43 )
44 #SKIP G3 1 00000001
45 MENDIT :GEO,LISTDIR,867,1
#REM LISTDIR 363008 01305000
1 #MEN FIXED 9728 00023000
#END
#SEG LISTDIR 526720 02004600 (867,1)
568 #END 748 00001354
COMPILE 19.29.35 BY GIN 524 24/07/10 26/04/83 G3MK8D 0 758
#COM LISTDIR 363008 01305000
#MEN CHTABLE 10792 00025050
#END
#MEN LOADEREM 4480 00010600
#END
1 #SKIP G3 1 00000001
2 MENDIT :GEO,LISTDIRF,867,2
#REM LISTDIRF 363776 01306400
1 #MEN FIXED 9728 00023000
#END
#SEG LISTDIRF3 GEORGE PORTER 526720 02004600 (867,2)
671 #END 492 00000754
COMPILE 19.29.35 BY GIN 524 24/07/10 26/04/83 G3MK8D 0 759
#COM LISTDIRF 363776 01306400
#MEN CHTABLE 10792 00025050
#END
#MEN LOADEREM 4480 00010600
#END
1 #SKIP G3 1 00000001
2 MENDIT :GEO,SETPARAM,867,6
#REM SETPARAM 425728 01477400
1 #MEN FIXED 9728 00023000
#END
#MEN FIXED 9728 00023000
#END
#MEN FIXED 9728 00023000
#END
#MEN FIXED 9728 00023000
#END
#SEG SETPARAM CENT(COMMAND PROCESSOR) 526720 02004600 (867,6)
792 #END 704 00001300
COMPILE 19.29.36 BY GIN 524 24/07/10 26/04/83 G3MK8D 0 760
#COM SETPARAM 425728 01477400
#MEN CHTABLE 10792 00025050
#END
#MEN LOADEREM 4480 00010600
#END
1 #SKIP G3 1 00000001
2 MENDIT :GEO,VERBCLAS,867,3
#REM VERBCLAS 182912 00545200
1 #MEN FIXED 9728 00023000
#END
#SEG VERBCLAS CENT(COMMAND PROCESSOR) 526720 02004600 (867,3)
336 #END 732 00001334
COMPILE 19.29.36 BY GIN 524 24/07/10 26/04/83 G3MK8D 0 761
#COM VERBCLAS 182912 00545200
#MEN CHTABLE 10792 00025050
#END
#MEN LOADEREM 4480 00010600
#END
1 #SKIP G3 1 00000001
2 MENDIT :GEO,QUESCOM,867,3
#REM QUESCOM 167168 00506400
#MEN FIXED 9728 00023000
#END
#SEG QUESCOM867 SECTION CENT 526720 02004600 (867,3)
261 #END 408 00000630
COMPILE 19.29.36 BY GIN 524 24/07/10 26/04/83 G3MK8D 0 762
#COM QUESCOM 526720 02004600
#MEN CHTABLE 10792 00025050
#END
#MEN LOADEREM 4480 00010600
#END
1 #SKIP G3 1 00000001
2 MENDIT :GEO,CHANG,867,4
#REM CHANG 201088 00610600
1 #MEN FIXED 9728 00023000
#END
#MEN FIXED 9728 00023000
#END
#SEG CHANG8867 MULTIPLX HANDLING 527232 02005600 (867,4)
619 #END 348 00000534
COMPILE 19.29.36 BY GIN 524 24/07/10 26/04/83 G3MK8D 0 763
#COM CHANG 201088 00610600
#MEN CHTABLE 10792 00025050
#END
#MEN LOADEREM 4480 00010600
#END
1 #SKIP G3 1 00000001
2 MENDIT :GEO,PREPREAD,867,3
#REM PREPREAD 154368 00455400
1 #MEN FIXED 9728 00023000
#END
#MEN FIXED 9728 00023000
#END
#MEN FIXED 9728 00023000
#END
#MEN FIXED 9728 00023000
#END
#SEG PREPREAD867 FILE 527232 02005600 (867,3)
952 #END 700 00001274
COMPILE 19.29.36 BY GIN 524 24/07/10 26/04/83 G3MK8D 0 764
#COM PREPREAD 154368 00455400
#MEN CHTABLE 10792 00025050
#END
#MEN LOADEREM 4480 00010600
#END
1 #SKIP G3 1 00000001
2 MENDIT :GEO,IPBMOP,867,14
#REM IPBMOP 112768 00334200
1 #MEN FIXED 9728 00023000
#END
#MEN FIXED 9728 00023000
#END
#SEG IPBMOP 527232 02005600 (867,14)
1253#END 992 00001740
COMPILE 19.29.37 BY GIN 524 24/07/10 26/04/83 G3MK8D 0 765
#COM IPBMOP 112768 00334200
#MEN CHTABLE 10792 00025050
#END
#MEN LOADEREM 4480 00010600
#END
1 #SKIP G3 1 00000001
2 MENDIT :GEO,IPBMOPC,867,3
#REM IPBMOPC 412288 01445200
1 #MEN FIXED 9728 00023000
#END
#SEG IPBMOPC84 COMM - IPB 527232 02005600 (867,3)
333 #END 288 00000440
COMPILE 19.29.37 BY GIN 524 24/07/10 26/04/83 G3MK8D 0 766
#COM IPBMOPC 412288 01445200
#MEN CHTABLE 10792 00025050
#END
#MEN LOADEREM 4480 00010600
#END
1 #SKIP G3 1 00000001
2 MENDIT :GEO,LISTFILE,867,3
#REM LISTFILE 238080 00721000
3 #MEN FIXED 9728 00023000
#END
#MEN FIXED 9728 00023000
#END
#MEN FIXED 9728 00023000
#END
#SEG LISTFILE 527232 02005600 (867,3)
590 #END 572 00001074
COMPILE 19.29.37 BY GIN 524 24/07/10 26/04/83 G3MK8D 0 767
#COM LISTFILE 527232 02005600
#MEN CHTABLE 10792 00025050
#END
#MEN LOADEREM 4480 00010600
#END
1 #SKIP G3 1 00000001
2 MENDIT :GEO,LISTMOP,867,2002
#REM LISTMOP 237696 00720200
3 #MEN FIXED 9728 00023000
#END
#MEN FIXED 9728 00023000
#END
#MEN FIXED 9728 00023000
#END
#SEG LISTMOP 527872 02007000 (867,2002)
343 #END 388 00000604
COMPILE 19.29.37 BY GIN 524 24/07/10 26/04/83 G3MK8D 0 768
#COM LISTMOP 527872 02007000
#MEN CHTABLE 10792 00025050
#END
#MEN LOADEREM 4480 00010600
#END
1 #SKIP G3 1 00000001
2 MENDIT :GEO,LISTPARS,867,3
#REM LISTPARS 238592 00722000
3 #MEN FIXED 9728 00023000
#END
#MEN FIXED 9728 00023000
#END
#MEN FIXED 9728 00023000
#END
#SEG LISTPARS 528384 02010000 (867,3)
709 #END 740 00001344
COMPILE 19.29.38 BY GIN 524 24/07/10 26/04/83 G3MK8D 0 769
#COM LISTPARS 238592 00722000
#MEN CHTABLE 10792 00025050
#END
#MEN LOADEREM 4480 00010600
#END
1 #SKIP G3 1 00000001
2 MENDIT :GEO,INMOP,867,1
#REM INMOP 259200 00772200
1 #MEN FIXED 9728 00023000
#END
#SEG INMOP867 SECT.FILE 528384 02010000 (867,1)
269 #END 436 00000664
COMPILE 19.29.38 BY GIN 524 24/07/10 26/04/83 G3MK8D 0 770
#COM INMOP 259200 00772200
#MEN CHTABLE 10792 00025050
#END
#MEN LOADEREM 4480 00010600
#END
1 #SKIP G3 1 00000001
2 MENDIT :GEO,TPOBJ,867,1
#REM TPOBJ 275968 01033000
1 #MEN FIXED 9728 00023000
#END
#SEG TPOBJ867 SECT.FILE 528384 02010000 (867,1)
657 #END 764 00001374
COMPILE 19.29.38 BY GIN 524 24/07/10 26/04/83 G3MK8D 0 771
#COM TPOBJ 275968 01033000
#MEN CHTABLE 10792 00025050
#END
#MEN LOADEREM 4480 00010600
#END
1 #SKIP G3 1 00000001
2 MENDIT :GEO,TROBJ,867,2
#REM TROBJ 274048 01027200
1 #MEN FIXED 9728 00023000
#END
#SEG TROBJ867 SECT.FILE 528384 02010000 (867,2)
553 #END 596 00001124
COMPILE 19.29.38 BY GIN 524 24/07/10 26/04/83 G3MK8D 0 772
#COM TROBJ 274048 01027200
#MEN CHTABLE 10792 00025050
#END
#MEN LOADEREM 4480 00010600
#END
1 #SKIP G3 1 00000001
2 MENDIT :GEO,ONLINEC,867,1
#REM ONLINEC 257536 00767000
1 #MEN FIXED 9728 00023000
#END
#SEG ONLINEC JOHN BAILEY 528384 02010000 (867,1)
333 #END 560 00001060
COMPILE 19.29.38 BY GIN 524 24/07/10 26/04/83 G3MK8D 0 773
#COM ONLINEC 257536 00767000
#MEN CHTABLE 10792 00025050
#END
#MEN LOADEREM 4480 00010600
#END
1 #SKIP G3 1 00000001
2 MENDIT :GEO,PERCON,867,3
#REM PERCON 252160 00754400
1 #MEN FIXED 9728 00023000
#END
#SEG PERCON867 SECTION CENT 528384 02010000 (867,3)
799 #END 728 00001330
COMPILE 19.29.39 BY GIN 524 24/07/10 26/04/83 G3MK8D 0 774
#COM PERCON 252160 00754400
#MEN CHTABLE 10792 00025050
#END
#MEN LOADEREM 4480 00010600
#END
1 #SKIP G3 1 00000001
2 MENDIT :GEO,EDIT,867,4
#REM EDIT 348032 01247600
#MEN FIXED 9728 00023000
#END
#MEN FIXED 9728 00023000
#END
#SEG EDIT867 COMM 528384 02010000 (867,4)
512 #END 680 00001250
COMPILE 19.29.39 BY GIN 524 24/07/10 26/04/83 G3MK8D 0 775
#COM EDIT 348032 01247600
#MEN CHTABLE 10792 00025050
#END
#MEN LOADEREM 4480 00010600
#END
1 #SKIP G3 1 00000001
2 MENDIT :GEO,COMPRO,867,3
#REM COMPRO 184960 00551200
1 #MEN FIXED 9728 00023000
#END
#MEN FIXED 9728 00023000
#END
#SEG COMPRO CENT(COMMAND PROCESSOR) 528384 02010000 (867,3)
768 #END 772 00001404
COMPILE 19.29.39 BY GIN 524 24/07/10 26/04/83 G3MK8D 0 776
#COM COMPRO 184960 00551200
#MEN CHTABLE 10792 00025050
#END
#MEN LOADEREM 4480 00010600
#END
1 #SKIP G3 1 00000001
2 (
3 # #!
4 # #!
5 # MEND 263 - HOWBIG COMMAND
6 )
7 #SKIP G3 1 00000001
8 (
9 # #!
10 # MEND 373 - QUESTION INCLUDES JOB NUMBER
11 )
12 #SKIP G3 1 00000001
13 (
14 # MEND 501 - 3 SHIFT INPUT IN MOP
15 )
16 #SKIP G3 1 00000001
17 (
18 # #!
19 # MEND 501 - SHIFT AND GRAPHICS OUTPUT IN MOP
20 )
21 #SKIP G3 1 00000001
22 (
23 # #!
24 # #!
25 # #!
26 # #!
27 # MEND 503 - PAGING AND FRAMING ON MOP TERMINALS
28 )
29 #SKIP G3 1 00000001
30 (
31 # #!
32 # #!
33 # MEND 505 - 3 SHIFT FOR ONLINE PROGRAMS AND EDITOR
34 )
35 #SKIP G3 1 00000001
36 (
37 # #!
38 # #!
39 # #!
40 # #!
41 # #!
42 # #!
43 # #!
44 # #!
45 # #!
46 # #!
47 # #!
48 # #!
49 # #!
50 )
COMPILE 19.29.39 BY GIN 524 24/07/10 26/04/83 G3MK8D COMPRO 0 777
52 # RESTORE TIME MACROS:
53 # 12345678901234567890123456789
54 HELLO 29,ATLANTECH G3 MARK %A.%B ON %C
#MEN MESSBA 35712 00105600
#HAL 25?,29 10 *000012 00000035 000 0 29 000-
+0 11 *000013 00000000 000 0 0 0000
#FID +CBFORCETYP +CBFORCETYP 1 11 *000013 00200000 004 0 0 0 00
+24?�^20? 11 *000013 10200000 004 1 0 8 00
29HATLANTECH G3 MARK %A.%B ON %C 12 *000014 41645441 035 4 2849 ATLA
13 *000015 56644543 155 5 2403 NTEC
14 *000016 50204703 004 5 2499 H G3
15 *000017 20554162 013 21 2162 MAR
16 *000020 53202541 064 5 *1377 K %A
17 *000021 36254220 145 31 2192 .%B
18 *000022 57562025 173 52 1045 ON %
19 *000023 43202020 064 4 *1040 C
+20? 11 *000013 00200000 004 0 0 0 00
#END
56 # DECLARE RESIDENCES:
57 FSDESC
#MEND FSTABLE 19456 00046000
58 FSFILE 3,6,G3FSRES3
12HG3FSRES3 3 *000003 47034663 160 43 2483 G3FS
4 *000004 62456303 051 6 R7363 RES3
5 *000005 20202020 004 2 1040
+3 6 *000006 00000003 000 0 3 0003
#FID 0 5 +6 6 *000006 06000003 140 0 3 6003
+0 7 *000007 00000000 000 0 0 0000
59 FSFILE 4,6,G3FSRES4
12HG3FSRES4 8 *000010 47034663 160 43 2483 G3FS
9 *000011 62456304 051 6 R7364 RES4
10 *000012 20202020 004 2 1040
+4 11 *000013 00000004 000 0 4 0004
#FID 0 5 +6 11 *000013 06000004 140 0 4 6004
+0 12 *000014 00000000 000 0 0 0000
60 FSFILE 5,6,G3FSRES5
12HG3FSRES5 13 *000015 47034663 160 43 2483 G3FS
14 *000016 62456305 051 6 R7365 RES5
15 *000017 20202020 004 2 1040
+5 16 *000020 00000005 000 0 5 0005
#FID 0 5 +6 16 *000020 06000005 140 0 5 6005
+0 17 *000021 00000000 000 0 0 0000
61 FSFILE 10,6,G3SWAPRES,,SWAP
12HG3SWAPRES 18 *000022 47036367 160 43 3319 G3SW
19 *000023 41606245 034 4 3237 APRE
20 *000024 63202020 064 6 *1040 S
+10 21 *000025 00000012 000 0 10 000:
#FID 0 5 +6 21 *000025 06000012 140 0 10 600:
#FID 6 6 1 21 *000025 06400012 150 0 10 6@0:
+0 22 *000026 00000000 000 0 0 0000
62 ENDESC
#END -1625077 71632013
MFINDFS1 =23 MFINDFS4 =4 MFINDFS =10
COMPILE 19.29.39 BY GIN 524 24/07/10 26/04/83 G3MK8D FSTABLE 0 778
64 # WE COULD DUMP THE FULLY CONFIGURED GEORGE HERE IF WE WANTED
65 # DUMP 2, G387FINAL, G3FINAL
68 #DEL [ DELETE GIN
COMPILE 19.29.41 BY GIN 524 24/07/10 26/04/83 G3MK8D MODSF 0 779
^**********************************************************************************************************************^