{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPS PERI)}}
====== COMPS PERI ======
(George Source)
**Macros used:** [[george:macro:BITDEFS|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