{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: IDFCONS8)}}
====== IDFCONS8 ======
(George Source)
**Macros used:** [[george:macro:ALTLEN|ALTLEN]], [[george:macro:CLOSE|CLOSE]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HUNT2|HUNT2]], [[george:macro:IDFOPEN|IDFOPEN]], [[george:macro:IPBCONREQ|IPBCONREQ]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREEALL|MFREEALL]], [[george:macro:MFREEW|MFREEW]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:MNAME|MNAME]], [[george:macro:MXB|MXB]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SETUPCORE|SETUPCORE]], [[george:macro:UP|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