{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPSFILE)}}
====== COMPSFILE ======
(George Source)
**Macros used:** [[george:macro:BITDEFS|BITDEFS]], [[george:macro:XY|XY]]
22FL #DEF AZEROLEN=0
22^= [ROOM D7
23DW [ POST MARK 7
23YG #OPT B128=0 [128 WORD BUFFER BLOX
24XQ #OPT IFS=0 [SKIP FOR IMPROVED FCB SEARCHES.
26BL #OPT AHEADER=0
27TG #OPT CLOSE70=1
285# ...#DEF B7535=1
28*6 #DEF BRH=1 [BITS IN RECORD HEADERS
29#B #DEF ACCMG65=1 [SKIP FOR NEW BLK. NO. COUNT IN FCB.
29S2 #DEF CLOSEFREE=#110
2=?L #DEF CLOSEWAIT=#111
2=R= #DEF COPY=#121 [WAITING FOR FILE TO BE MOVED TO OTHE
2?=W #OPT CLSTATS=0
2?QG #OPT I516A=0 [ACCESS MACROS STATISTICS PACKAGE
2#=6 #DEF INSA=1 [MK6 INSERT & REPLACE
2#PQ #OPT INSB=0 [MARK7 INSERT
2*P2 #DEF ISTACWT=#26 [WAITING FOR FILE/FSTACK BLOCK TO
2B8L [BE LENGTHENED
2BN= #DEF IWTDEST=#40 [APPEND WAITING FOR BLOCK TO BE FREED
2C7W [BY READ (DESTRUCTIVE COMMUNICATION
2CMG [FILES)
2D76 #DEF FOPENWT=#103 [USEROPEN WAITING FOR FILE TO BE OPEN
2DLQ [FOR READING (DESTRUCTIVE COMMUNIC-
2F6B [ATION FILES)
2FL2 #SKI I516A
2G5L #INC STEPSTAT
2GK= #OPT K0FILE=K0FILESTORE
2H4W #DEF BLOMK7=1 [ALLOCATION OF BS BLOCKS IN OPENREL
38JB #
3942 # DEFINES FOR FI/FINDEXF BLOCK
39HL #
3=3= #OPT INDEXID=A1+1 [IDENTIFYING WORD,CONTAINS IDENTITEX
3=GW #OPT IDENTITEX=#20000000 [IDENTIFIES INDEX RECORD
3?2G #OPT INDEXNO=INDEXID+1 [CONTAINS INDEX NUMBER.
3?G6 #OPT INDEXREC=INDEXNO+1 [FIRST INDEX WORD.
3?^Q XY INDEXID
3#FB #
3#^2 # INDEX NUMBERS
3*DL #
3*Y= #OPT INDEXDIR=1 [DIRECTORIES.
3BCW #OPT INDEXDICT=2 [DICTIONARY.
3BXG #OPT INDEXSER=3 [SERIAL.
3CC6 #OPT INDEXINC=4 [INCINDEX.
3CWQ #OPT INDEXOUT=5 [SYSOUT
3DBB #OPT INDEXJOB=6 [SYSTEM JOBLIST
3DW2 #OPT INDEXUSERJ=7 [USER JOBLIST
3F*L #
3GSG # THESE ARE FOR THE TRAP COMMANDS [DAVE BURKITT]
3K=L #DEF CEXECUTE=#01
3KQ= #DEF CREAD=#02
3L9W #DEF CAPPEND=#04
3LPG #DEF CWRITE=#10
3M96 #DEF CERASET=#20
3MNQ #DEF CALL=CREAD^CEXECUTE^CAPPEND^CWRITE^CERASET
3MYJ ...#DEF CGROUP=#40000000
3N8B #DEF C=0
3NN2 #
3P7L # FNORM
3PM= #OPT EXPEDIENT=AWORK1
3Q6W #OPT K0NORMALUS=0
3QLG #OPT K6NORMALUS=K6ALLGEO>K6GREATGEO>K6FILESTORE
3R66 #OPT K0DECODE=0
3RKQ #OPT K6DECODE=K6ALLGEO>K6GREATGEO>K6FILESTORE
3S5B #OPT K0ADJUNCTS=0
3SK2 #OPT K60ADJUNCTS=K6ALLGEO>K6NORMALUS>K6GREATGEO>K6FILESTORE
3T4L #OPT K0ADJCHECK=0
3TJ= #OPT K6ADJCHECK=K6NORMALUS>K6ALLGEO>K6GREATGEO>K6FILESTORE
3W3W # GENDRAL FILESTORE
3WHG #OPT K0FILESTORE=K0ALLGEO
3X36 #OPT K0CLOSE=0
3XGQ #OPT K0ACCESS=0
3Y2B #OPT K0WORK=0
3^YW #OPT K6CLOSE=K6FILESTORE>K6ALLGEO
42DG #OPT K6ACCESS=K6FILESTORE>K6ALLGEO
42Y6 #OPT K6FILELOG=K6ALLGEO>K6GREATGEO>K6FILESTORE
43CQ #OPT K6WORK=0
46*G #
46T6 ...# FILE/ADJUNCTS IDENTIFIERS
47#Q #DEF ADPAIR=A1+5 [RED TAPE IN ADJUNCTS BLOCK
47JJ ... BITDEFS A1+1,22,BAFROZEN,BAOWNACC
47SB #
48#2 # FOR SAVEFILE AND RESTFILE
48RL #
49?= #OPT ASAVEFILE=1
49QW #INC SAVEFILE6
4==G #DEF FABSAVENO=9
4=Q6 #DEF FABSAVE=A1+1
4?9Q #DEF FCASAVENO=4
4?PB #DEF FCASAVE=A1
^^^^ ...07632245000800000000