(George Source)
Macros used: 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<NO> TRAP CHECKS 8*TY ...#OPT FRBICL=2 [:DA<NO>.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