(George Source)
Macros used: BITDEFS
22FL #OPT ARESET=1 22^= #OPT ASSMAX=3 23DW #OPT APIAUDAS=1 23YG # 245N ...#DEF AR1=1 24=W ...#DEF B0028=1 24*G ...#DEF CFMDME=1 24BS ...#DEF JAUTSKIP=1 24D6 # A C PUTMAN 24XQ # 25CB # DEVICE LIST IDENTIFIERS 25X2 # 26BL # CURRENT CONTROL AREA 26W= #DEF JCCA0=K50 27*W #DEF JCCA1=JCCA0+1 27TG #DEF JCCA2=JCCA1+1 28*6 #DEF JCCA3=JCCA2+1 28SQ #DEF JCCA4=JCCA3+1 29#B #DEF JCCA5=JCCA4+1 29S2 #SKI G4 2=?L #DEF JCCA8=JCCA5+3 2=R= # SPOUTED CONTROL AREA 2?=W #DEF JSCA0=K51 2?QG #DEF JSCA1=JSCA0+1 2#=6 #DEF JSCA2=JSCA1+1 2#PQ #DEF JSCA3=JSCA2+1 2*9B #DEF JSCA4=JSCA3+1 2*P2 #DEF JSCA5=JSCA4+1 2B8L # 2BN= #SKI G4 2C7W #DEF JSCA8=JSCA5+3 2CMG # EXECUTIVE DEVICE STATE AREA 2D76 #DEF JK52B=K52+1 2DLQ #DEF JK52C=JK52B+1 2F6B #DEF JK52D=JK52C+1 2FL2 #DEF JK52E=JK52D+1 2G5L #DEF JK52F=JK52E+1 2G78 ... BITDEFS JK52F,16,FLCLP4B 2G8Q ... BITDEFS JK52F,1,FLBLP4B 2G=# ... BITDEFS JK52F,7,FLALP4B 2G=B ...#SKIP JAUTSKIP 2G=D ...( 2G=G ...# AUTONOMOUS SKIP TO TAPEMARK AVAILABLE 2G=J ... BITDEFS JK52E,6,AUTSKIPTM 2G=L ...) 2G=S ...# HALF DONE LP TRANSFERS UNDER DME- FLAG 2G?# ... BITDEFS JK52B,2,HALFDONEBIT 2G?D ...# THE MODE GCR CAPABILITY BIT 2G?N ... BITDEFS JK52B,4,CAPMODGCR 2G?W ...#UNS FLLP4B 2G*D ...#ALT FLP4B=FLALP4B 2GC2 ...#UNS FLLP4BC 2GDJ ...#ALT FLP4B=FLCLP4B 2GG6 ...#UNS FLLP4BB 2GHN ...#ALT FLP4B=FLBLP4B 2GK= #DEF JK52H=JK52F+2 2H4W #DEF JK52I=JK52H+1 2HJG #DEF JK52J=JK52I+1 2J46 #DEF JK52K=JK52J+1 2JHQ # GEORGE DEVICE STATE AREA 2K3B #DEF JADDP=K53 2KH2 #DEF JPSTATE=JADDP+1 2L2L # 2LG= # FLAG ACCUMMULATION WORD (COMM DEV) 2L^W #DEF JFAW=K57 2M5R ...# CORRECTED ERROR COUNT 2M9N ...#DEF JCERR=K57+9 2M*K ...# 2MFG # LINE CONTROL AREAS(COMMUNICATIONS DEVICES) 2M^6 #DEF JLCA=K57X 2NDQ # 2NYB # IDENTIFIERS USED IN DCA MACRO 2PD2 # 2PXL #DEF IMODE=JCCA0 2QC= #DEF ILINO=JCCA0 2QWW #DEF IREP1=JCCA1 2RBG #DEF ICOUNT=JCCA2 2RW6 #DEF ICTSA=JCCA3 2S*Q #DEF IDTSA=JCCA4 2SKJ ...#DEF IEXTRA=JCCA4 2STB #DEF ICHADD=JCCA5 2T*2 # 2TSL #SKI G4 2W#= #DEF ISEGTAB=JCCA8 2WRW # 2X?G # 2XR6 #DEF ILMODE=0 2Y=Q #DEF ILCREP=1 2YQB #DEF ILCOUNT=2 2^=2 #DEF ILCTSA=3 2^PL #DEF ILMODE2=4 329= #DEF ILCREP2=5 32NW #DEF ILCOUNT2=6 338G #DEF ILCTSA2=7 33N6 #DEF ILFLAG=8 347Q #SKI G4 34MB ( 3572 #DEF ILSEGTAB=9 35LL #DEF ILSEGTAB2=10 366= ) 36KW # 375G # 37K6 # 384Q # 38JB # SPOUT AREA DEFINITIONS FOR DSCA MACRO 3942 # 39HL #DEF ISMODE=JSCA0 3=3= #DEF ISLINO=JSCA0 3=GW #DEF ISREP1=JSCA1 3?2G #DEF ISCOUNT=JSCA2 3?G6 #DEF ISCTSA=JSCA3 3?^Q #DEF ISDTSA=JSCA4 3#FB #DEF ISCHADD=JSCA5 3#^2 # 3*DL #SKI G4 3*Y= #DEF ISSEGTAB=JSCA8 3BCW # 3BXG # AUXILIARY PERIPHERAL INFORMATION AREAS (APIA) 3CC6 # 3CWQ # APIA LENGTHS 3DBB # 3DHJ ...#UNS JSKI38 3DNQ ...#SKI 3DW2 #DEF BILEN=2*ASSMAX+1 [LOCAL CLUSTERS(CR,TR) 3F38 ...#UNS JSKI38 [GLASGOW SPECIALS 3F8B ...#DEF BILEN=2*ASSMAX+2 3F*L #DEF BOLEN=1+ATTMAX [TP,LP,CP 3FFH ...#UNSET JSKI24 [FOR VARIABLE WIDTH LPS 3FKD ...#DEF BLLEN=BOLEN+1 3FN3 ...#UNS JSKI38 [GLASGOW SPECIALS 3FQL ...#DEF BTLEN=BOLEN+1 [TP 3G5X ...#DEF BMTLEN=4 [MT 3GF8 ...#DEF BUDASLEN=7 3GSG #DEF BDRLEN=ATTMAX+2 3H#6 #DEF COMLEN=2 [UX,MX,CC 3HRQ #DEF EXOTLEN=1 [EXOTICS 3J?B #DEF CONSLEN=0 [OPERATORS CONSOLE 3JR2 # 3K=L # APIA LOCATIONS 3KQ= # 3L9W #DEF APJOBNO=0 [JOB NUMBER IF DEVICE ONLINE 3LPG #DEF APERPROP=APJOBNO+1 [PROPERTY ATTRIBUTIONS AREA(SIZE=ATTMAX) 3LQ# ...#DEF AREPERT=ATTMAX+APERPROP [REPERTOIRE WD FOR LPS 3LQJ ...#DEF BMTELCT=APJOBNO+3 [ERROR LOG COUNT MAG TAPES 3LQS ...#DEF BUDASELCT=APJOBNO+6 [ERROR LOG COUNT UDAS 3LR6 ...#UNS JSKI34 3LRY ...( 3LSQ ...#DEF ELCPT=0 3LTJ ...#DEF ACSTSN=A1 3LWB ...#DEF ACC=1 3LX8 ...#DEF ASM=ACC+2 3LY2 ...#DEF ACCN=ASM+1 3LYS ...#DEF ASBLN=ACCN+1 3L^L ...#DEF ACR=ASBLN+1 3M2D ...#DEF APCC=ACR+1 3M3= ...#DEF ARW=APCC+1 3M44 ...) 3M47 ...#UNS ELOGDME 3M4= ...( 3M4* ...#DEF ELDMECT=ACSTSN+1 [ALTERNATIVE BSA-ELOG FORMAT ... 3M4D ...#DEF ELDMEINF=ELDMECT+1 [ FOR DME TYPE INCIDENTS 3M4H ...#DEF ELDME=ELDMEINF+1 3M4J ...#DEF ELHEADER=ELDME+9 3M4L ...) 3M4W ...#UNS JSKI38 [GLASGOW SPECIALS 3M5N ...( 3M6G ...#DEF APCODE=2*ASSMAX+APERPROP 3M7# ...#DEF APCODET=ATTMAX+APERPROP 3M86 ...) 3M96 # 3MNQ # THESE IDENTIFIERS GIVE THE POSITION OF THE COMMAND BITS AS USED 3N8B # BY SEGMENT ASSOC 3NN2 #DEF IVLF=256:0 3P7L #DEF IVOL=128:0 3PM= #DEF IVAH=64:0 3Q6W # THESE IDENTIFIERS GIVE THE POSITION OF THE PERIPHERAL BITS(ASSOC) 3QLG #DEF IVTP= #2000 3R66 #DEF IVLP=#1000 3RKQ #DEF IVCP=#200 3S5B #DEF IVGP=0 3SK2 # 3T4L # 3TJ= # 3W3W # 3WHG # DEFINITIONS FOR CPAR/JSCE BLOCK 3X36 # 3XGQ #DEF JSCEP=A1 3Y2B #DEF JSCEA=JSCEP+1 3YG2 #DEF JSCEB=JSCEA+1 3Y^L #DEF JSCEC=JSCEB+1 3^F= #DEF JSCEK=JSCEC+1 3^YW #DEF JSCEQ=JSCEK+1 42DG #DEF JSCER=JSCEQ+1 42Y6 # 43CQ # DEFINITIONS FOR CONBUFF/COUT BLOCK 43XB # 44C2 #DEF AREC=A1 44WL #DEF ATEXT=AREC+1 45B= # 45TW # DEFINITIONS FOR APERI/ATTRIB BLOCK 46*G # 46T6 #DEF HAS=A1 47#Q #DEF HASNT=HAS+6 47SB # 47WK ...#UNS AV7900S 47YS ...( 4833 ...# 485= ...# DEFINITIONS FOR APERI/AV7900 BLOCK (VIRTUAL 7900 DEVICE LIST) 487F ...# 489N ...#DEF AVOLPARING = A1 [AVOLPARING = 2 WORDS 48?X ...#DEF AVCREADS = AVOLPARING+2 48B6 ...#DEF AVCWRITES = AVCREADS+1 48D* ...#DEF AVAPIAENTRY = AVCWRITES+1 [AVAPIRENTRY = 2 WORDS 48GJ ...# THE DEVICE LIST AREA K50 TO K52 IS NOT APPLICABLE TO VIRTUAL 7900S 48JR ...# THE DEVICE LIST AREA JK52B TO JPSTATE IS USED AS DEFINED IN PRM3.2 48M2 ...# AND IS RELATIVE TO THE FPTR OF THIS BLOCK 48P9 ...#SKI AVAPIAENTRY+2 < JK52B $ (AVAPIAENTRY+2) 48RD ...( 48TM ...! THE VIRTUAL 7900 DEVICE LIST IDENTIFIERS OVERLAP AND 48XW ...! MUST BE REDEFINED 4925 ...) 494# ...#DEF AV7900DLGAP = JK52B - (AVAPIAENTRY+2) 496H ...# 498Q ...) 49?= # 49QW # DEFINITIONS FOR APERI/CONSOLE BLOCK 4==G # 4=BC ...#SKI JSKI04<1$1 [PRE-COMMAND ISSUER 4=G# ...#DEF HUIDGENTLEN=2 4=L9 ...#SKI JSKI04 [COMMAND ISSUER 4=Q6 #DEF HUIDGENTLEN=3 4?PB # 4?QJ ...#SKI JSKI17 4?RQ ...( 4?SY ...# 4?W6 ...# DEFINITIONS FOR GOUT,GSPOOL BLOCK 4?X# ...# 4?YG ...#DEF CONSPROPSP=A1 4?^N ...#DEF CHARCTSP=CONSPROPSP+1 4#2W ...#DEF GNAMESP=CHARCTSP+1 4#44 ...# 4#5= ...) 4#6D ...# 4#7L ...# 4#92 # DEFINITIONS FOR OPTIONS FOR PARSORT 4#NL # 4*8= #DEF B=0 4*MW #DEF BALL=1 4B7G #DEF BNOCLUS=2 4BM6 # VALUE 4 IS USED FOR PARSORTB - SO HANDS OFF! 4C6Q # 4CLB #DEF BIDF=8 4CRJ ...#SKI JSKI04 4CYQ ...#DEF BSYSPROP=16 4D24 ...#DEF BINCOUT=32 4D3B ...#DEF BSMLCC=64 4D4N ...#DEF BGROPE=128 4D62 # 4DKL # PERIPHERAL CONTROLLER TRACING AND LISTING IDENTIFIERS 4F5= # 4FJW #OPT K0PERI=0 4G4G #OPT K6PERI=100 4GJ6 # 4H3Q #SKI G3 4HHB ( 4J32 #DEF HLOCK1=0 4JGL #DEF HLOCK2=0 4K2= #DEF HLOCK3=0 4KFW #DEF HLOCK4=0 4K^G #DEF HLOCKLEN=0 4LF6 ) 4LYQ # 4MDB # 4MY2 ...# THESE SKIP IDENTIFIERS ENCLOSE GLASGOW SPECIALS TEST CODE 4NCL ...# 4NX= ...#DEF GLAINBRA=0 4PBW ...#DEF GLESKI=0 4PWG ...#DEF GLSTRA=0 4QB6 ...# 4QTQ ...# ^^^^ ...43163624003600000000