15 22FL #SEG IDFCONS8 [A C PUTMAN 8 22_= #OPT K0IDFCONS=0 16 23DW #LIS K0IDFCONS>K0ALLGEO>K0GREATGEO>K0COMMAND>K0IDF 7 23YG 8HIDFCONS 11 24D6 SEGENTRY K1IDFCONS,XIDF1 4 24XQ # 21 25CB # THIS SEGMENT DEALS WITH THE MACRO WHICH CREATES A BLOCK TO LOOK 18 25X2 # LIKE A CONFIGURATION REPORT OF A PARTICULAR CONCEPTUAL 4 26BL # 9 26W= TERM #40100000 9 27*W XSPEC #01540000 9 27TG XCONT #10000 15 28*6 YREC [HUNT ROUTINE 17 28SQ BPZ 3 SAME [J. IF IN SAME BLK. 5 29#B YREC1 8 29S2 SBX 6 FX1 15 2=?L LDX 0 3 [GET REC.NO. 7 2=R= SRL 0 9 8 2?=W ANDN 0 #7777 8 2?QG LDX 2 FX2 15 2#=6 STO 0 ACOMMUNE3(2) [ST. REC.NO. 17 2#PQ MXB 2 [HUNT FOR THE RECORD. 8 2*9B ADX 6 FX1 4 2*P2 SAME 8 2B8L ANDN 3 #777 7 2BN= EXIT 6 0 5 2C7W RECFIND 8 2CMG LDX 2 FX2 10 2D76 REC HUNT2 2,FILE,FRRB 10 2DLQ TXU 4 BRECNO+A1(2) 8 2F6B BCS REC 8 2FL2 ADN 2 A1 7 2G5L EXIT 6 0 8 2GK= XLEN SBX 4 FX1 17 2H4W LDX 0 ALOGLEN(2) [LD. LOGICAL LENGTH 9 2HJG ... SBX 0 A1+3(2) 7 2J46 ... SBN 0 6 8 2JHQ BPZ 0 XLEN1 10 2K3B ... LDX 3 ALOGLEN(2) 7 2KH2 ... ADN 3 4 11 2L2L ... ALTLEN 2,3,AMXOR,ICONIN 11 2LG= MHUNTW 2,AMXOR,ICONIN 10 2LQ4 ... MHUNTW 3,IDF,IWORK 8 2L_W XLEN1 ADX 4 FX1 7 2MFG EXIT 4 0 5 2M_6 XCLOSE 8 2NDQ SBX 6 FX1 9 2NYB MFREEALL FILE,FRRB 6 2PD2 CLOSE 8 2PXL ADX 6 FX1 7 2QC= EXIT 6 0 5 2QWW XIDF1 14 2RBG IDFOPEN [OPEN IDF 10 2RW6 SETNCORE 5,1,CPB,CUNI 8 2S*Q IPBCONREQ 2 8 2STB LDN 5 0(2) 9 2T*2 LDN 6 APARA(1) 7 2TSL MOVE 5 3 8 2W#= LDN 0 12 9 2WRW STO 0 ANUM(1) 17 2X?G LDN 3 #30 [HUNT IPB CONCEPTUAL. 8 2XR6 SMO FX2 19 2Y=Q STOZ ACOMMUNE1 [CONCEP NAME IN 1ST CPB/CUNI. 19 2YQB MNAME 2,3 [HUNT FOR CONCEPTUAL NAME. 8 2_=2 SMO FX2 9 2_PL LDX 0 ACOMMUNE1 17 329= BZE 0 S8 [J. CONCEPT FOUND OK 7 32NW SA1 SMO 2 19 338G LDX 0 5(3) [LD. NO. OF ATTACHED LINES. 18 33N6 BZE 0 S7 [ERROR NO ATTACHMENTS. 8 347Q SMO FX2 19 34MB STO 0 AWORK1 [PRESERVE NO. OF ATTACHMENTS. 7 3572 LDX 4 0 7 35LL SLL 4 2 7 366= ADX 4 0 19 36KW ADN 4 1 [X4= LENGTH OF BLK REQUIRED. 9 375G LDX 0 BRECNO(2) 8 37K6 SMO FX2 15 384Q STO 0 AWORK2 [ST. REC.NO. 17 38JB SETUPCORE 4,1,IDF,IWORK [SET UP A WORK BLK. 9 3942 LDX 7 AWORK1(2) 9 39HL LDX 4 AWORK2(2) 18 3=3= CALL 6 REC [RE-HUNT BECAUSE OF COOR. 7 3=GW LDN 0 1 8 3?2G STO 0 A1(1) 7 3?G6 SMO 2 8 3?_Q LDX 6 6(3) 8 3#FB ANDN 6 #7777 8 3#_2 SLL 6 12 8 3*DL SMO FX2 9 3*Y= STO 6 AWORK4 7 3BCW SMO 2 17 3BXG LDX 3 7(3) [HUNT USER NAME CELL. 8 3CC6 CALL 6 YREC 7 3CWQ SMO 2 8 3DBB LDX 3 7(3) 16 3DW2 CALL 6 YREC [HUNT LINE CELL. 7 3F*L LDN 6 0 9 3FT= SA4 LDX 4 BRECNO(2) 8 3G#W SMO FX2 17 3GSG STO 4 AWORK2 [REC.NO. OF LINE CELL 8 3H#6 SMO FX2 18 3HRQ STO 3 AWORK3 [LINE PTR. OF LINE CELL. 7 3J?B ADX 2 3 4 3JR2 SA2 7 3K=L SMO 6 17 3KQ= LDX 3 0(2) [LD. ATTACHMENT PTR. 19 3L9W BZE 3 SA3 [J. NO IDENTIFIER ATTACHED. 18 3LPG CALL 6 YREC1 [HUNT FOR THE IDENTIFTER 16 3M96 MHUNTW 1,IDF,IWORK [HUNT WORK BLK. 7 3MNQ SMO 2 9 3N8B LDX 4 BNUMB(3) 8 3NN2 ANDN 4 #7777 8 3P7L LDCT 0 #400 7 3PM= ORX 4 0 8 3Q6W LDX 5 A1(1) 7 3QLG SMO 5 15 3R66 STO 4 A1(1) [ST. LINE NO. 7 3RKQ SMO 2 16 3S5B LDX 4 BNUMB(3) [LD. TERMINAL NO. 8 3SK2 SRL 4 12 19 3T4L ANDN 4 #77 [MASK OUT ONLY TERMINAL NO. 8 3TJ= SMO FX1 21 3W3W ORX 4 TERM [ADD IN BITS TO INDICATE TERMINAL NO. 7 3WHG ADN 5 1 7 3X36 SMO 5 16 3XGQ STO 4 A1(1) [ST TERMINAL NO. 7 3Y2B SMO 2 16 3YG2 LDCH 4 BTYPE(3) [LD. DEVICE TYPE 6 3YHJ ...#UNS ISUMBI 4 3YK6 ...( 7 3YLN ... LDX 0 4 8 3YN= ... ANDN 4 #17 15 3YPS ...[ MASK LAST 4 BITS 20 3YRB ... ANDN 0 #20 [B1 OF DEV TYPE MEANS PSEUDO DEVICE 14 3YSY ... SRC 0 7 [IF SET... 17 3YWG ... ORX 4 0 [...EVENTUALLY SET B11 4 3YY4 ...) 7 3Y_L SRC 4 9 8 3_F= LDCT 0 #2 7 3_YW SMO 2 9 42DG ANDX 0 BTYPE(3) 7 42Y6 SRL 0 2 7 43CQ ORX 4 0 8 43XB SMO FX2 9 44C2 LDX 0 AWORK4 8 44WL SRL 0 12 7 45B= ORX 4 0 7 45TW ADN 5 1 7 46*G SMO 5 19 46T6 STO 4 A1(1) [ST. DEVICE TYPE/IDENTIFIER 7 47#Q ADN 5 1 21 47SB STO 5 A1(1) [ST. NEW VALUE IN A1 OF IDF/IWORK. 7 48#2 LDN 5 1 8 48RL SMO FX2 20 49?= SBS 5 AWORK1 [DECREASE CT. OF ATTACHMENTS BY 1 8 49QW SMO FX2 9 4==G LDX 5 AWORK1 18 4=Q6 BZE 5 SA5 [J. NO MORE ATTACHMENTS. 8 4?9Q SMO FX2 9 4?PB LDX 4 AWORK2 21 4#92 CALL 6 RECFIND [HUNT FOR REC.CONTAINING CONCEPTUAL. 8 4#NL SMO FX2 16 4*8= ADX 2 AWORK3 [LD. CELL PTR. 8 4*MW SMO FX2 18 4B7G LDX 6 AWORK4 [LD. POSITION DOWN CELL 8 4BM6 SA3 LDX 0 BIT11 8 4C6Q SMO FX2 9 4CLB ADS 0 AWORK4 8 4D62 ANDN 6 #7777 18 4DKL ADN 6 1 [INCREASE POSITION BY 1 7 4F5= LDN 0 7 21 4FJW SBX 0 6 [TEST IF REACHED THE END OF A CELL. 18 4G4G BNZ 0 SA2A [J. NOT THE END OF A CELL 7 4GJ6 SMO 6 8 4H3Q LDX 3 0(2) 18 4HHB CALL 6 YREC1 [HUNT FOR THE NEXT CELL. 7 4J32 LDN 6 0 9 4JGL LDX 0 HALFTOP 8 4K2= SMO FX2 9 4KFW ANDS 0 AWORK4 8 4K_G BRN SA4 4 4LF6 SA2A 7 4LYQ LDN 0 1 8 4MDB SMO FX2 9 4MY2 ADS 0 AWORK4 8 4NCL BRN SA2 19 4NX= SA5 [THE SORTING INTO IDF/IREPORT 7 4PBW LDN 0 1 8 4PWG SBS 0 A1(1) 20 4QB6 SETNCORE 13,2,AMXOR,ICONIN [SET BLOCK TO HOLD PROPER INFO. 18 4QTQ STOZ A1(2) [ST. VALUES FOR CHARLES 8 4R*B LDX 0 GSIGN 9 4RT2 STO 0 A1+1(2) 9 4S#L LDX 0 XSPEC(1) 9 4SS= STO 0 A1+2(2) 7 4T?W LDN 0 1 21 4TRG STO 0 A1+3(2) [STO. IN A1+3 NO. OF ENTRIES IN BLK. 17 4W?6 LDCT 7 #400 [X7= LOWEST LINE NO. 20 4WQQ MHUNTW 3,IDF,IWORK [HUNT BLOCK WITH COPY FROM IDF. 8 4X=B LDX 5 A1(3) 8 4XQ2 SMO FX2 9 4Y9L STO 5 AWORK2 19 4YP= S3 LDN 6 0 [X6 = POSITION DOWN WORK BLK 8 4_8W LDX 5 A1(3) 8 4_NG SMO FX2 21 5286 STO 5 AWORK1 [AWORK1 = NO. OF ENTRIES IN WORK BLK. 7 52MQ S5 SMO 6 9 537B TXU 7 A1+1(3) 19 53M2 BCS S4 [J. IF IF LINE NO. NOT EQUAL. 21 546L CALL 4 XLEN [TEST AND IF NECESSARY ALTER PROP/BLK 8 54L= ADN 3 A1+1 7 555W ADX 3 6 8 55KG LDX 0 2(3) 9 5656 ANDX 0 HALFTOP 8 56JQ BNZ 0 S5A 9 574B LDX 4 A1+3(2) 8 57J2 LDX 0 0(3) 7 583L SMO 4 9 58H= STO 0 A1+3(2) 8 592W LDX 0 2(3) 7 59GG SMO 4 9 5=26 STO 0 A1+4(2) 7 5=FQ LDN 0 2 9 5=_B ADS 0 A1+3(2) 7 5?F2 LDN 0 3 8 5?YL BRN S5B 9 5#D= S5A LDN 4 A1+3(2) 9 5#XW ADX 4 A1+3(2) 21 5*CG MOVE 3 3 [MOVE 3WDS. OF INFO. FROM WORK TO PRO 7 5*X6 LDN 0 3 19 5BBQ ADS 0 A1+3(2) [INCREASE LENGTH IN PROP.BLK. 8 5BWB S5B SMO FX2 9 5CB2 SBS 0 AWORK2 8 5CTL SMO FX2 9 5D*= LDX 0 AWORK2 8 5DSW BZE 0 S6 17 5F#G MHUNTW 3,IDF,IWORK [RE-HUNT FOR BLOCK. 7 5FS6 SMO 6 16 5G?Q LDX 5 A1+2(3) [X5= TERMINAL NO. 21 5GRB S1 ADN 6 3 [INCREASE X6 BY 3 TO STEP DOWN BLK. 7 5H?2 LDN 0 3 8 5HQL SMO FX2 21 5J== SBS 0 AWORK1 [DECREASE NO. OF ENTRIES AS STEP BLK. 8 5JPW SMO FX2 9 5K9G LDX 0 AWORK1 20 5KP6 BZE 0 S2 [J. COME TO THE END OF WORK BLK. 7 5L8Q SMO 6 9 5LNB TXU 7 A1+1(3) 19 5M82 BCS S1 [J. IF LINE NO. NOT EQUAL. 7 5MML SMO 6 9 5N7= TXU 5 A1+2(3) 20 5NLW BCS S1 [J. IF TERMINAL NO. NOT EQUAL. 21 5P6G CALL 4 XLEN [TEST AND IF NECESSARY ALTER THE LEN. 7 5PL6 SMO 6 18 5Q5Q LDX 0 A1+3(3) [LD. DEVICE/IDENTIFIER NO 9 5QKB LDX 4 A1+3(2) 7 5R52 SMO 4 20 5RJL STO 0 A1+3(2) [ST.DEVICE/IDENT. IN PROPER BLK. 7 5S4= LDN 0 1 21 5SHW ADS 0 A1+3(2) [INCREASE NO. OF ENTRIES IN PROP. BY 7 5T3G LDN 0 3 8 5TH6 SMO FX2 9 5W2Q SBS 0 AWORK2 8 5WGB SMO FX2 9 5X22 LDX 0 AWORK2 8 5XFL BZE 0 S6 20 5X_= BRN S1 [J. BACK TO CONTINUE DOWN BLK. 4 5YDW S2 8 5YYG ANDN 7 #7777 20 5_D6 ADN 7 1 [INCREASE X7 BY 1.LOWEST LINE NO. 8 5_XQ LDCT 0 #400 7 62CB ORX 7 0 8 62X2 BRN S3 7 63BL S4 ADN 6 3 7 63W= LDN 0 3 8 64*W SMO FX2 21 64TG SBS 0 AWORK1 [DECREASE NO. OF ENTRIES IN STEP BLK. 8 65*6 SMO FX2 9 65SQ LDX 0 AWORK1 8 66#B BZE 0 S2 8 66S2 BRN S5 9 67?L S6 MFREEW IDF,IWORK 11 67R= MHUNTW 2,AMXOR,ICONIN 10 68=W LDX 7 IPBIDE+1(2) 7 68QG ADN 7 3 11 69=6 ALTLEN 2,7,AMXOR,ICONIN 9 69PQ CALL 6 XCLOSE 5 6=9B UP 20 6=P2 S7 SETNCORE 4,2,AMXOR,ICONIN [SET BLOCK TO HOLD PROPER INFO. 18 6?8L STOZ A1(2) [ST. VALUES FOR CHARLES 8 6?N= LDX 0 GSIGN 9 6#7W STO 0 A1+1(2) 9 6#MG LDX 0 XSPEC(1) 9 6*76 STO 0 A1+2(2) 7 6*LQ LDN 0 1 9 6B6B STO 0 A1+3(2) 9 6BL2 CALL 6 XCLOSE 5 6C5L UP 10 6CK= S8 GEOERR 1,NOCONCEP 10 6D4W MENDAREA 30,K99IDFCONS 4 6DJG #END 8 ____ ...21164532000800000000