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