{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPS EWDAS)}}
====== COMPS EWDAS ======
(George Source)
**Macros used:** [[george:macro:PATCH|PATCH]]
22FL #OPT EXUDAS=0
22^= #OPT K0EXOFILE=K0ALLGEO
23DW #LIS K0EXOFILE
23YG #
24D6 # THIS SUBFILE CONTAINS COMPILATION PARAMETERS AND UNIVERSAL
24XQ # DEFINITIONS FOR THE UDAS EXOFILE SYSTEM
25CB #
25X2 #
26BL # IT BELONGS TO MARTYN,BOBE,JOHN AND GEORGE
26W= #
27*W #
27TG #OPT K6EXOFILE=K6ALLGEO [GENERAL TRACING LEVEL
28*6 #
28SQ #
29#B #OPT EXOFILE7=1
29S2 #
2=?L #
2=R= # SECTION 1 : INCLUDES
2?=W #
2?QG #
2#=6 #
2#PQ #SKI EXOFILE7
2*9B (
2*P2 #INC FINDRUM70
2B8L #INC EXOPEN70
2BN= #INC FINDFS70
2C7W #INC FSTABLE70
2CMG #INC TRANSFER70
2D76 #INC SOUP70
2DLQ #INC CHINTEG70
2F6B #INC CHINERR70
2FL2 #INC SQOPEN70
2G5L #INC READSPEC70
2GK= #INC CLOSBAC70
2H4W #INC CLOSDEL70
2HJG #INC ANTIC70
2J46 #INC EXMESS70
2JHQ #INC RENAMEX70
2K3B #INC ERASEX70
2KH2 #INC EXTEND70
2L2L #INC SCRATCH70
2LG= #INC SCEX70
2L^W #INC SCEXEND70
2MFG #INC NEXTUNIT70
2M^6 #INC EXINONE70
2NDQ #INC EXINTWO70
2NYB #INC EXINTO70
2PD2 #INC CONTRACT70
2PXL #INC CONTEND70
2QC= #INC FLAWMAP70
2QWW #
2RBG # NEW INTERFARCE INCLUDES
2RW6 #
2S*Q #INC CARTCONT7
2STB #INC KARTCONT7
2T*2 #INC REQCART65
2TSL #SKI ADRMK7^ILL7^AUT7^AUTPAM^ENTWINE
2W#= #INC PERION66
2WRW #SKI ADRMK7^ILL7^AUT7^AUTPAM^ENTWINE$1
2X?G #INC PERION65
2XR6 #INC SETDISC65
2Y=Q #INC SPERION65
2YQB #INC FLAW65
2^=2 #INC TWINSET70
2^PL #INC TWINSETA
329= #INC TWINSETB
32BD ...#UNS IPBD
32HL ...#SKI
32NW #INC TWINSETC
338G #INC TWINSETD
33N6 #INC CDUM
347Q #INC RELIEF
34MB #INC PATCH
34SJ ...#INC INTWIN
34^Q ...#INC FAILTWIN
3572 )
35LL #
366= #
36KW # SECTION 2 :LISTING LEVELS
375G #
37K6 #
384Q #OPT K0AMOS=K0EXOFILE
38JB #OPT K0FINDRUM=K0EXOFILE
3942 #OPT K0EXOPEN=K0EXOFILE
39HL #OPT K0FINDFS=K0EXOFILE
3=3= #OPT K0FSTABLE=K0EXOFILE
3=GW #OPT K0TRANSFER=K0EXOFILE
3?2G #SKI CARTON
3?G6 #OPT K0CARTCONT=K0EXOFILE
3?PY ...#OPT K0KARTCONT=K0EXOFILE
3?^Q #SKI EXCHCART
3#FB #OPT K0MOVCART=K0EXOFILE
3#^2 #OPT K0REQCART=K0EXOFILE
3*DL #OPT K0SOUP=K0EXOFILE
3*Y= #OPT K0CHINTEG=K0EXOFILE
3BCW #OPT K0CHINERR=K0EXOFILE
3BXG #OPT K0SQOPEN=K0EXOFILE
3CC6 #OPT K0READSPEC=K0EXOFILE
3CWQ #OPT K0PERION=K0EXOFILE
3DBB #OPT K0CLOSBAC=K0EXOFILE
3DW2 #OPT K0CLOSDEL=K0EXOFILE
3F*L #OPT K0ANTIC=K0EXOFILE
3FT= #OPT K0EXMESS=K0EXOFILE
3G#W #OPT K0RENAMEX=K0EXOFILE
3GSG #OPT K0FLAW=K0EXOFILE
3H#6 #OPT K0ERASEX=K0EXOFILE
3HRQ #OPT K0SETDISC=K0EXOFILE
3J?B #OPT K0EXTEND=K0EXOFILE
3JR2 #OPT K0SCRATCH=K0EXOFILE
3K=L #OPT K0SPERION=K0EXOFILE
3KQ= #OPT K0SCEX=K0EXOFILE
3L9W #OPT K0SCEXEND=K0EXOFILE
3LPG #OPT K0NEXTUNIT=K0EXOFILE
3M96 #OPT K0EXINONE=K0EXOFILE
3MNQ #OPT K0EXINTWO=K0EXOFILE
3N8B #OPT K0EXINTO=K0EXOFILE
3NN2 #OPT K0CONTRACT=K0EXOFILE
3P7L #OPT K0CONTEND=K0EXOFILE
3PM= #OPT K0FLAWMAP=K0EXOFILE
3Q6W #OPT K0TWINSET=K0EXOFILE
3QLG #OPT K0TWINSETA=K0EXOFILE
3R66 #OPT K0TWINSETB=K0EXOFILE
3RKQ #OPT K0TWINSETC=K0EXOFILE
3S5B #OPT K0TWINSETD=K0EXOFILE
3SK2 #OPT K0CDUM=K0EXOFILE
3T4L #OPT K0RELIEF=K0EXOFILE
3TJ= #OPT K0PATCH=K0EXOFILE
3TPD ...#OPT K0INTWIN=K0EXOFILE
3TWL ...#OPT K0FAILTWIN=K0EXOFILE
3W3W #
3WHG #
3X36 # SECTION 3 :TRACING LEVELS
3XGQ #
3Y2B #
3YG2 #OPT K6FINDRUM=K6EXOFILE
3Y^L #OPT K6EXOPEN=K6EXOFILE
3^F= #OPT K6FINDFS=K6EXOFILE
3^YW #OPT K6FSTABLE=K6EXOFILE
42DG #OPT K6TRANSFER=K6EXOFILE
42Y6 #SKI CARTON
43CQ #OPT K6CARTCONT=K6EXOFILE
43MJ ...#OPT K6KARTCONT=K6EXOFILE
43XB #SKI EXCHCART
44C2 #OPT K6MOVCART=K6EXOFILE
44WL #OPT K6REQCART=K6EXOFILE
45B= #OPT K6SOUP=K6EXOFILE
45TW #OPT K6CHINTEG=K6EXOFILE
46*G #OPT K6CHINERR=K6EXOFILE
46T6 #OPT K6SQOPEN=K6EXOFILE
47#Q #OPT K6READSPEC=K6EXOFILE
47SB #OPT K6PERION=K6EXOFILE
48#2 #OPT K6CLOSBAC=K6EXOFILE
48RL #OPT K6CLOSDEL=K6EXOFILE
49?= #OPT K6ANTIC=K6EXOFILE
49QW #OPT K6EXMESS=K6EXOFILE
4==G #OPT K6RENAMEX=K6EXOFILE
4=Q6 #OPT K6FLAW=K6EXOFILE
4?9Q #OPT K6ERASEX=K6EXOFILE
4?PB #OPT K6SETDISC=K6EXOFILE
4#92 #OPT K6EXTEND=K6EXOFILE
4#NL #OPT K6SCRATCH=K6EXOFILE
4*8= #OPT K6SPERION=K6EXOFILE
4*MW #OPT K6SCEX=K6EXOFILE
4B7G #OPT K6SCEXEND=K6EXOFILE
4BM6 #OPT K6NEXTUNIT=K6EXOFILE
4C6Q #OPT K6EXINONE=K6EXOFILE
4CLB #OPT K6EXINTWO=K6EXOFILE
4D62 #OPT K6EXINTO=K6EXOFILE
4DKL #OPT K6CONTRACT=K6EXOFILE
4F5= #OPT K6CONTEND=K6EXOFILE
4FJW #OPT K6FLAWMAP=K6EXOFILE
4G4G #OPT K6TWINSET=K6EXOFILE
4GJ6 #OPT K6TWINSETA=K6EXOFILE
4H3Q #OPT K6TWINSETB=K6EXOFILE
4HHB #OPT K6TWINSETC=K6EXOFILE
4J32 #OPT K6TWINSETD=K6EXOFILE
4JGL #OPT K6CDUM=K6EXOFILE
4K2= #OPT K6RELIEF=K6EXOFILE
4KFW #OPT K6PATCH=K6EXOFILE
4KM4 ...#OPT K6INTWIN=K6EXOFILE
4KS= ...#OPT K6FAILTWIN=K6EXOFILE
4K^G #
4LF6 #
4LYQ #
4MDB #
4MY2 # SECTION 4 : WORD INDENTIFIERS
4NCL #
4NX= # A) EWDAS/ASTUC BLOCK
4PBW #
4PWG #OPT BPERN=A1 [PERIPHERAL NUMBER (NEW INTERFACE?)
4QB6 #OPT HTYPE=BPERN+1 [DEVICE TYPE,OROPERTIES,SUBTYPE
4QTQ #OPT HUNIT=HTYPE+1 [GEORGE UNIT NUMBER
4R*B #OPT ABSUN=HUNIT+1 [BACKING STORE UNIT NUMBER
4RT2 #OPT GEOGU=ABSUN+1 [GEOGRAPHIC NUMBER
4S#L #OPT ASMARK=GEOGU+1 [MARKERS
4SS= #OPT CEXTEND=ASMARK+1 [COUNT OF EXTENDS
4T?W #OPT ASUNUM=CEXTEND+1 [STORAGE UNIT NUMBER
4TRG #OPT ASUBASE=ASUNUM+1 [START CYLINDER OF STORAGE UNIT
4W?6 #OPT HSTUN=ASUBASE+1 [W0 OF CONTROL HEADER
4WQQ #OPT HFLAW=HSTUN+1 [START OF FLAW INDEX
4X=B #OPT HUNAL=HFLAW+1 [START OF UNALLOCATED CHAIN
4XQ2 #OPT HFOR=HUNAL+1 [START OF FOREIGN CHAIN
4Y9L #OPT HVAC=HFOR+1 [START OF VACANT CHAIN
4YP= #OPT HBLOCK=HVAC+1 [ BLOCKS/CYLINDER
4^8W #OPT HCYL=HBLOCK+1 [NUMBER OF CYLINDERS
4^NG #OPT HPROP=HCYL+1 [ PROPERTY CODES
5286 #OPT CSCRATCH=HPROP+1 [ NUMBER OF SCRATCH AREAS
52MQ #OPT HSCRATCH=CSCRATCH+1 [START OF SCRATCH LIST
537B #
53M2 #
546L #
54L= # B) EWDAS/EXOF BLOCK
555W #
55KG #OPT COPEN=A1 [COUNT OF OPENS
5656 #OPT HOME=COPEN+1 [ BACKING STORE HOME FOR FIP
56JQ #OPT EXMARK=HOME+1 [ MARKERS
574B #OPT ASUSN=EXMARK+1 [ STORAGE UNIT SERIAL NUMBER
57J2 #OPT FIP=ASUSN+1 [ START OF FILE CELL
583L #OPT FBUK=FIP+15 [ FIRST BUCKET IN FILE (=1)
58H= #OPT FDCELLS=FBUK+1 [ START OF FILE AREA CELLS
592W #
59GG #
5=26 #
5=FQ # C) EWDAS/FDRUM
5=^B #
5?F2 #OPT AGTYPE=A1 [ TYPE B0-B5
5?YL #OPT ANAME=AGTYPE+1 [ FILENAME
5#D= #OPT EXBSP=ANAME+3 [ START OF BSTS PARAMETERS
5#XW #OPT AGEOG=EXBSP+4 [ GEOGRAPHIC NUMBER
5*CG #SKI BDMK7<1$1
5*X6 #OPT BBUFF=AGEOG+1 [START OF 128 WORD BUFFER
5BBQ #OPT ADRDLIST=AGEOG+1 [DL PTR FOR DRUM
5BWB #OPT BBUFF=ADRDLIST+1 [START OF P28 WD BUFFER
5CB2 #
5CTL #
5D*= #
5DSW #
5F#G # D) EWDAS/FBUF
5FS6 #
5G?Q #OPT FBUFR=A1+3 [START OF BUFFER
5GRB #
5H?2 #
5HQL #
5J== # E) EWDAS/GEXD
5JPW #
5K9G #
5KP6 # FIRST PART:- WORDS COMMON TO ALL ROUTINES
5L8Q #
5LNB #OPT EMODE=A1 [MODE (READ OR WRITE)OR ERASE
5M82 #OPT EBSUN=EMODE+1 [BACKING STORE UNIT NUMBER )
5MML #OPT ECNT=EBSUN+1 [COUNT ) BSTS
5N7= #OPT ECOR=ECNT+1 [CORE ADDRESS ) PARAMETE
5NLW #OPT EBS=ECOR+1 [BACKING STORE ADDRESS )
5P6G #OPT ETYPE=EBS+1 [TYPE/ SUBTYPE
5PL6 #OPT EBASE=ETYPE+1 [START CYLINDER OF SU
5Q5Q #OPT EDEPF=EBASE+1 [BLOCKS/CYLINDER OF SU
5QKB #OPT ESERL=EDEPF+1 [SERIAL NUMBER
5R52 #OPT EBUF=ESERL+1 [POINTER TO START OF FIRST FBUF BLOCK
5RJL #OPT ECUR=EBUF+1 [POINTER TO CURRENT BUFFER
5S4= #OPT EBLOCK=ECUR+1 [BLOCK ADDRESS OF CURRENT BLOCK
5SHW #OPT ETMARK=EBLOCK+1 [MARKERS FOR TRANSFER SYSTEM
5T3G #OPT ETLINK=ETMARK+1 [LINK FOR TRANSFER S/R
5TH6 #OPT EMARK=ETLINK+1 [MARKERS
5W2Q #OPT GIVEX=EMARK+1 [GIVE AND ONLINE MARKERS
5WGB #OPT EOPMODE=GIVEX+1 [OPENING MODE
5X22 #OPT EXCHNL=EOPMODE+1 [CHANNEL NUMBER
5XFL #OPT CNR=EXCHNL+1 [CONTROL AREA ADDRESS
5X^= #OPT CEFN=CNR+1 [EXOFILE NUMBER
5YDW #OPT EFDC=CEFN+1 [POINTER TO FDCELL )EXOPEN WORKING
5YYG #OPT EHOME=EFDC+1 [BS HOME OF FIP ) SPACE
5^=X ...#OPT EXOTRAP=EHOME+1 [EXOFILE TRAPS RECORD
5^K# ...#OPT EWK=EXOTRAP+1 [4 WORD WORK AREA FOR TRANSFER SYST
5^XQ #
62CB #
62X2 # EXTRA WORDS FOR OTHER ROUTINES (NOT EXTEND/SCRATCH)
63BL #
63W= # RENAME PERI
64*W #
64TG #OPT ARNCON=EWK+4 [THERE MUST BE 2 WORDS BEFORE
65*6 [ARNCON WHICH CAN BE OVERWRITTEN
65SQ [WHEN MOVING OUT C/A
66#B #
66S2 #
67?L # OPEN ROUTINES
67R= #
68=W #OPT ENEWRP=EWK+4 [NEW RETENTION PERIOD) MODE #300
68QG #OPT ENEWG=ENEWRP+1 [NEW GENERATION NO. )
69=6 #OPT FNAMER=ENEWG+1 [NAME/GENERATION FOR OPEN REPLIES
69PQ #
6=9B #
6=P2 # CLOSE PERI
6?8L #
6?N= #OPT CEOF=EWK+4 [END OF FILE UPDATE
6#7W #
6#MG #
6*76 #OPT GEXDLEN=ARNCON+1>FNAMER+3>CEOF+1-A1 [LENGTH IF NOT EXTEND/SCRATCH
6*LQ # THE VALUE OF GEXDLEN IS [(ARNCON+5)>(FNAMER+4)>(CEOF+1)]-A1 !
6B6B #
6BL2 #
6C5L #
6CK= # EXTRA WORDS FOR EXTEND/SCRATCH
6D4W #
6DJG #OPT HMUNIT=EWK+4 [HOME UNIT SUSN
6F46 #OPT ARUNIT=HMUNIT+1 [AREA UNIT SUSN ) THE FIELDS MUST
6FHQ #OPT AREQT=ARUNIT+1 [REQUESTED AREA ) BE CONTIGUOUS
6G3B #OPT CELLP=AREQT+4 [(POINTERS TO CELL )
6GH2 #OPT CELLA=CELLP+1 [(USED IN SEARCH ) THIS AREAS MUST
6H2L #OPT CELLB=CELLA+6 [(FOR AREA ) BE CONTIGUOUS
6HG= #OPT CELLC=CELLB+6 [( )
6H^W #OPT CELLD=CELLC+6 [USED TO SAVE CELLP AND CELLA
6JFG #OPT ARQS=CELLD+7 [START BLOO NO. OF AREA REQUESTED
6J^6 #OPT EOFUNIT=ARQS+1 [EOF UNIT SUSN
6KDQ #OPT BREQ=EOFUNIT+1 [BLOCKS REQUIRED
6KYB #OPT BKSIZE=BREQ+1 [BUCKET SIZE
6LD2 #OPT BAVAIL=BKSIZE+1 [LARGEST AREA FOUND SO FAR
6LXL #OPT CSNCT=BAVAIL+1 [COUNT OF SUSNS
6MC= #OPT CSNP=CSNCT+1 [POINTER TO NEXT SUSN
6MWW #OPT CSNTAB=CSNP+1 [TABLE OF SERIAL NUMBERS
6NBG #OPT EOFCYL=CSNTAB+6 [CYLINDER OF AREA FOLLOWING EOF
6NW6 #OPT EOFBLOCK=EOFCYL+1 [BLOCK OF AREA FOLLOWING EOF
6P*Q #
6PTB #
6Q*2 #
6QSL #OPT GEXDLENX=EOFBLOCK+1-A1 [LENGTH IF EXTEND/SCRATCH
6R#= #
6RRW #
6S?G #
6SR6 #
6T=Q #
6TQB # G) EWDAS/EXFLAW BLOCK
6W=2 #
6WPL #OPT FLTYPE=A1 [TYPE/SUBTYPE AND PROPERTIES
6X9= #OPT FLBASE=FLTYPE+1 [START OF SU RELATIVE TO HARDWARE UNI
6XNW #OPT FLDEP=FLBASE+1 [SEGMENTS/CYLINDER
6Y8G #OPT FLSTART=FLDEP+1 [POINTER TO FIRST FLAW INDEX
6YN6 #OPT FLBS1=FLSTART+1 [MODE )
6^7Q #OPT FLBS2=FLBS1+1 [COUNT )BSTS PARAMETERS FOR
6^MB #OPT FLBS3=FLBS2+1 [CORE ADDRESS ) FLAW AND ERASE
7272 #OPT FLBS4=FLBS3+1 [BS ADDRESS
72LL #OPT FBLCNT=FLBS4+1 [ NUMBER OF BLOCKS LEFT IN TRANSFER
736= #OPT FLCORE=FBLCNT+1 [ CORE ADDRESS FOR CURRENT BLOCK
73KW #OPT FLBLOCK=FLCORE+1 [ BLOCK NUMBER OF CURRENT BLOCK
745G #OPT FLTRANCT=FLBLOCK+1 [COUNT FOR CURRENT BLOCK
74K6 #OPT FLPOINT=FLTRANCT+1 [POINTER TO NEXT CELL
754Q #OPT FLERB=FLPOINT+1 [ GENERAL STORAGE FOR ERASE
75JB #OPT FLERASE=FLERB+1 [BLOCK(OR SECTOR) BEING ERASED
7642 #OPT FLCYL=FLERASE+1 [CYLINDER PART OF ADDRESS
76HL #OPT FLBUFF=FLCYL+1 [START OF 128 WORD BUFFER
773= #OPT FLADDR=FLBUFF+128 [START OF AREA FOR FDS ADDRESSES
77GW #
782G #
78G6 # F) EWDAS/EWMESS
78^Q #
79FB #OPT BMPT=A1 [POINTER TO FIRST AVAILABLE WORD
79^2 #OPT BSER=BMPT+1 [CONVERTED SERIAL NUMBER
7=DL #OPT BMSTART=BSER+2 [START OF RECORDS
7=Y= #
7?CW #
7?XG #
7#C6 #
7#WQ # G) EWDAS/ESEND BLOCK AND EWDAS/EGOT
7*BB #
7*W2 #OPT ENTRGA=A1 [START OF FIRST RING
7B*L #OPT ENMARK=ENTRGA+2 [TRANSFER REQUEST TYPE
7BT= #OPT ENSTART=ENMARK+1 [UNIT NO. IF LOCK,ELSE UNIQUE NUMBER
7C#W #OPT ENHOME=ENSTART+1 [WORD ADDRESS OF AREA OR F/C CELL
7CSG #OPT ENSUSN=ENHOME+1 [STORAGE UNIT SERIAL NO.
7D#6 #OPT ESREP=ENSUSN+1 [REPLY FROM OTHER PROCESSOR
7DB* ...#UNS IPBD
7DDJ ...(
7DGR ...#OPT ENCT=ESREP+1 [NO OF WORDS IN IPB TRANSFER
7DK2 ...#OPT ENCK=ENCT+1 [CHECKSUM ON IPB TRANSFER
7DM9 ...#OPT ENAR=ENCK+1 [START OF FAC LIST FOR SCRATCH FILES
7DPD ...)
7DRQ #
7F?B #
7FR2 # H) EWDAS/ENLINK
7G=L #
7GQ= #OPT ENLA=A1 [START OF RING
7H9W #OPT ENBR=ENLA+2 [UNIQUE NUMBER
7HPG #OPT ENRP=ENBR+1 [REPLY
7J96 #OPT ENRQ=ENRP+1 [REQUEST TYPE
7JNQ #OPT ENWTS=ENRQ+1 [WAITING STYLE
7K8B #OPT ENLINKLEN=6 [LENGTH OF ENLINK
7K?G ...#UNS IPBD
7KBL ...#ALT ESENDLEN=9 [LENGTH OF ESEND
7KFQ ...#UNS IPBD
7KJW ...#SKI
7KN2 #OPT ESENDLEN=7 [LENGTH OF ESEND
7L7L #
7LM= # IDENTIFIERS FOR BSA/ENTWIN
7M6W #
7MLG #OPT ETFRING=JOBRING
7N66 #OPT ETBRING=ETFRING+1
7NKQ #OPT ETBUFS=JOBNO+1 [START OF BUFFER
7P5B #
7PK2 #
7Q4L # I) EWDAS/APFE
7QJ= #
7R3W #OPT APFEGEND=A1 [HARDWARE GFLEND
7RHG #OPT APFEB1=APFEGEND+1 [PFE HEADER
7S36 #OPT APFEB2=APFEB1+128 [PATCH CHANGE RECORD
7SGQ #OPT APFEB3=APFEB2+128 [BUFFER BLOCK
7T2B #OPT APFELEN=APFEB3+128-A1 [LENGTH OF EWDAS/APFE
7T3R ...#
7T58 ...#UNS IPBD
7T6K ...(
7T82 ...# J) EWDAS/ITCH
7T9C ...# AS EWDAS/ESEND
7T=S ...#
7T#9 ...# K) EWDAS/ASCOL
7T*L ...# AS EWDAS/GEXD
7TC3 ...#
7TDD ...)
7TG2 #
7T^L #
7WF= #
7WYW #
7XDG # SECTION 5 :OTHER IDENTIFIERS
7XY6 #
7YCQ #
7YXB # INPUT MARKERS TO OPEN ROUTINE (EXOPEN)
7^C2 #
7^WL #OPT BRITE=1 [REWRITE FIP
82B= #OPT BCREATE=2 [ CREATE FILE
82TW #OPT BOPEN=4 [ OPEN FILE
83*G #OPT BHIGH=8 [ HIGHEST GENERATION NUMBER
83T6 #OPT BANY=16 [ ANY GENERATION NUMBER
84#Q #OPT BSPEC=32 [ SPECIFIED GENERATION NUMBER
84SB #OPT BSERL=64 [UNIT SERIAL NUMBER SPECIFIED
85#2 #OPT BSUPP=128 [ SUPPRESS LOAD MESSAGE
85RL #OPT BLOCK=256 [ UNIT ALREADY LOCKED
85YS ...#
8662 ...#OPT BREPQUAL=512 [OL COMMAND HAS 'REPLY' QUALIFIER
86?= #
86QW #
87=G #
87Q6 # MARKERS OUTPUT BY OPEN ROUTINE
889Q #
88PB #OPT ARITE=1 [WRITE FAIL OR CANTDO
8992 #OPT AFAIL=2 [READ FAIL
89NL #OPT ANOROOM=4 [NO ROOM TO CREATE
8=8= #OPT ANFOUND=8 [ FILE NOT FOUND
8=MW #OPT ANONL=16 [ UNIT NOT ONLINE
8?7G #OPT ABREAK=32 [ BREAKIN
8?M6 #OPT AINUSE=64 [ FILE NAME IN USE
8?S# ...#UNS IPBD
8?^G ...#OPT APLINKF=256 [IPB INOP
8#6Q #OPT ASTRUT=128
8#LB #
8*62 #
8*KL #
8*LS ...#UNS EXSEX
8*N2 ...(
8*P8 ...# IDENTIFIERS FOR EXCHOFE MACRO
8*QB ...#
8*RJ ...#OPT FRBEXOF=0 [EXOFILE TRAP CHECKS REQD
8*SQ ...#OPT FRBDIR=1 [DIRECTORY :DA TRAP CHECKS
8*TY ...#OPT FRBICL=2 [:DA.ICLSCAFILE TRAP CHECKS
8*X6 ...#
8*Y# ...#
8*^G ...#
8B2N ...#
8B3W ...)
8B5= # MARKERS FOR IPB TRANSFER REQUEST TYPES
8BJW #
8C4G #OPT GLK=1 [REQUEST LOCK-OUT
8CJ6 #OPT GLKT=2 [LOCK-OUT TRANSFERRED
8D3Q #OPT GCHA=3 [CHECK AREA NOT IN USE
8DHB #OPT GCHAR=4 [REPLY TO ABOVE
8F32 #OPT GCHF=5 [CHECK FILE IN USE
8FGL #OPT GCHFR=6 [REPLY TO ABOVE
8G2= #OPT GHOLD=7 [READY TO DISENGAGE
8GFW #OPT GHL=8 [INITIAL CONFLAB
8G^G #OPT GHIN=9 [SECONDARY CONFLAB
8HF6 #OPT GHLR=10 [INITIALISE HELLO REPLY
8HYQ #OPT GHINR=11 [HELLO REPLY OTHER THAN ABOVE
8JDB #OPT GRDFIP=12 [RE-READ FIP
8JY2 #OPT GRDFIPR=13 [REPLY TO ABOVE
8KCL #OPT GFCLOSE=14 [FILE BEING CLOSED
8KX= #OPT INIT=15 [INITIALISE
8LBW #OPT CLIP=16 [CLOSE
8LWG #OPT GANYUSER=17
8MB6 #OPT GANYUSERR=18
8MTQ #OPT GSHARE=19
8N*B #OPT GSHARER=20
8NT2 #OPT GBOLE=21
8NTL ...#OPT GDED=22 [DEDICATE
8NW= ...#OPT GDEDR=23 [REPLY TO DEDICATE
8NWW ...#OPT GUNDED=24 [UNDEDICATE
8NXG ...#OPT GUNDEDR=25 [REPLY TO UNDEDICATE
8NY6 ...#UNS IPBD
8P3= ...#ALT ETBUFFLE=ESENDLEN-2 [MINIMUM IPB BUFFER LENGTH
8P6B ...#UNS IPBD
8P9G ...#SKI
8P#L #OPT ETBUFFLE=5
8PS= #
8Q?W # IDENTIFIERS FOR ETWINMK
8QRG #
8R3# ...#OPT JIWT=#2 [WAIT FOR GHINR
8R?6 #OPT JOFR=#4 [LINK NOT OFR MARKER
8RQQ #OPT JROUTS=#10 [READ OUTSTANDING MKR
8S=B #OPT IPBDOWN=#20
8SQ2 #OPT GEODOWN=#40
8T9L #OPT INITCOM=#100 [INITIALISE IN PROGRESS
8TP= #OPT JNOCHAT=#200 [NO DIALOGUE (WRITE LINK NOT OPEN)
8W8W #OPT JIOUTS=#400 [WRITE TRANSFER OUTSTANDING
8WNG #OPT JICLSE=#1000 [LINKS BEING CLOSED
8X86 #OPT INITRQ=#2000 [TWIN INITIALISE ALREADY REQUESTED
8XMQ #OPT ETMFAIL=#4000 [LINK FAILED-DON'T KNOW WHY
8Y7B #
8YM2 #
8^6L #
8^L= #OPT HAMLET=1 [INCLUDE 2B
925W #
92KG #OPT AMOSX=1
9356 #
93JQ #OPT EDFDCLS=#70 [WAITING FOR FILE TO BE CLOSED
944B #
94#8 ...#ALT JSKI20=1 [TWINNING TRACE
94J2 #OPT AFMAP=0 [EXCLUDE FLAWMAP
953L #
95H= #OPT BSURF=111 [BLOCKS/SURFACE ON 2B FDS
962W #
96GG #OPT EXGIVEM=1 [INCLUDE GIVE/MAYBE
9726 #
97FQ #OPT GLDATA=K18-K42 [ADDRESS BASE OR LOADER
97^B #
98F2 ...#OPT FSTABLEN=64 [MAXIMUM NO.OF FILESTORE DESCRIPTIONS
98YL #
99D= #OPT FIRSS=A1 [START OF DESCRIPTIONS IN FSTAB BLOCK
99XW #
9=CG #OPT CP46=1
9=X6 #
9?BQ #OPT AFMAP=0 [EXCLUDE FLAWMAP-WORKS ONLY WITH
9?WB [OLD STANDARDS
9#3J ...#OPT IRANGES=50
9#8Q ...#OPT I3909=1 [INCLUDE SR3909
9#B2 #
9#TL #
9**= # ** NEW INTERFACE **
9*SW #
9B#G #
9BS6 # THE FOLLOWING LOCATIONS CONTAIN INFORMATION SET UP BY
9C?Q # EXEC (GELL) AT K18-K42 FOR LOADER'S BENEFIT.
9CRB #
9D?2 #DEF BLEXEC=0 [EXECUTIVE VINTAGE
9DQL # DISC INFORMATION
9F== #DEF BLDISC=BLEXEC+1 [FIC FOR GEORGE FILE
9FPW #DEF BLADDR=BLDISC+17 [BS WORD ADDRESS OF FIC
9G9G #DEF BLFAC=BLADDR+1 [FAC OF GEORGE FILE
9GP6 #DEF BLSER=BLFAC+5 [SERIAL NO. OF DISC
9H8Q #DEF BLSTART=BLSER+1 [START CYLINDER NO. OF UNIT
9HNB #
9J82 #
9JML # DRUM INFORMATION
9K7= #DEF BLDRUM=BLEXEC+1 [DRUM DIR ENTRY FOR G. FILE
9KLW #
9L6G # TAPE INFORMATION
9LL6 #DEF BLTAPE=BLEXEC+1 [PROGRAM NAME FOR SLOW INPUT
9M5Q #
9MKB #
9N52 #DEF BLCCPTR=GEOBSPTR [POINTER TO DEVICE LIST FOR
9NJL # GEORGE'S BS DEVICE.
9P4= #
9PHW # DEFINES IN THE AUXILIARY PERIPHERAL LIST FOR UDAS DEVICES
9Q3G #
9QH6 #OPT BSUNIT=0
9R2Q #OPT BSUNIT1=BSUNIT+1
9RGB #OPT BSUNIT2=BSUNIT1+1
9S22 #OPT BSUNIT3=BSUNIT2+1
9SFL #OPT BSUNIT4=BSUNIT3+1
9S^= #OPT BSUNIT5=BSUNIT4+1
9TDW #
9TYG #OPT BCGCOM=2
9WD6 #OPT BNOENG=1
9WMY ...#OPT BSWOUT = #20
9WXQ #
9XCB #
9XX2 #
9YBL #
9YW= # DEVICE SUBTYPE IDENTIFIERS
9^*W #
9^TG #OPT EDS=0
=2*6 #OPT EMDS=1
=2SQ #OPT EMCF=2
=3#B #OPT AFDS=3
=3S2 #OPT BFDS=4
=4?L #
=4** ...# SWITCH ON DME FLAW RECOVERY
=4C4 ...#
=4DR ...#OPT ATRACK=1
=4GG ...#
=4J9 ...# SKIP FOR FDS160/640
=4KY ...#
=4MM ...#OPT FDS160=100
=4PB ...#
=4R= #
^^^^ ...40173312001900000000