15 22FL ...#SEG LISTSTAR [LEN WAGSTAFF 15 22PD ...# COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 8 22_= #OPT K0LISTSTAR=0 16 23DW #LIS K0LISTSTAR>K0ALLGEO>K0GREATGEO>K0COMMAND>K0IDF 7 23YG 8HLISTSTAR 7 24D6 # ENTRY POINTS 12 24XQ SEGENTRY K1LISTSTAR,Z1LISTSTAR 12 25CB SEGENTRY K2LISTSTAR,Z2LISTSTAR 13 25X2 SEGENTRY K30LISTSTAR,Z30LISTSTAR 11 26BL MENDAREA 30,K99LISTSTAR 16 26W= [ THIS SEGMENT BEGINS &ENDSLISTING OF THE IDF. 15 27*W # FIRST THE BEGINNING- JUST ONE ENTRY POINT, 15 27TG # WHICH CREATES & OPENS THE FILES NEEDED AND 11 28*6 # PRINTS THE MAIN HEADING. 19 2DLQ WHEAD 44H CONTENTS OF THE INSTALLATION DESCRIPTION 12 2F6B 28HFILE ON AT 18 2GK= Z1LISTSTAR [ENTRY FROM LI COMMAND 17 2H4W CREATEWF [CREATE A WORKFILE 7 2HJG CREATEB 10 2J46 MHUNTW 1,FILE,CREATE 8 2JBH ... LDN 0 #12 16 2JNY ... ORX 0 GSIGN [ GRAPHIC FILE 9 2K3B STO 0 CETM(1) 16 2KH2 OPENWORK X,APPEND,EMPTY [OPEN A WORKFILE 9 2L2L TESTREP OK,OKL 9 2LG= X GEOERR 1,IDFERR 7 2L_W OKL LOBSFILE 12 2PD2 P IDFANDPROP,XABORT1 12 2PXL ... OPENSYS XABORT1,PROPERTY,READ 11 2QC= SETNCORE 26,1,FILE,FAPB 8 2QWW ... LDX 4 ACES 9 2RW6 STO 4 A1+2(1) 9 2S*Q LDN 4 A1+2(1) 9 2STB LDN 5 A1+3(1) 8 2T*2 MOVE 4 24 8 2TSL LDN 4 26 8 2W#= STO 4 A1(1) 8 2WRW SMO FX1 8 2X?G LDN 4 WHEAD 8 2XR6 LDN 5 #51 14 2Y=Q STO 5 A1+1(1) [ST.PFCC. 9 2YQB LDN 5 A1+5(1) 16 2_=2 MOVE 4 18 [MOVE IN HEADING 17 2_PL DATECON EDATE [CAL. TO-DAYS DATE. 18 329= MHUNTW 2,FILE,FAPB [HUNT FOR APPEND BLOCK 8 32NW SMO FX2 16 338G LDX 0 ACOMMUNE1 [LOAD FIRST PART. 15 33N6 STO 0 A1+18(2) [STO. DATE 8 347Q SMO FX2 16 34MB LDX 0 ACOMMUNE2 [LOAD 2ND HALF. 16 3572 STO 0 A1+19(2) [STO. 2ND DATE 15 35LL TIMECON CLEANCT [CAL. TIME 10 366= MHUNTW 2,FILE,FAPB 8 36KW SMO FX2 9 375G LDX 0 ACOMMUNE1 14 37K6 STO 0 A1+22(2) [ST. TIME 8 384Q SMO FX2 9 38JB LDX 0 ACOMMUNE2 18 3942 STO 0 A1+23(2) [ST. 2ND PART OF TIME. 9 39HL APPEND 1,XABORT2 11 3=3= TESTREP REFUSED,XABORT2 9 3=GW VFREE FILE,FAPB 4 3?2G # 8 3?G6 # MAIN ROUNTINE 4 3?_Q # 9 3J7F ... IDFOPEN XABORT2 5 3J#* ...SIDFOPEN 9 3JF9 ... ACROSS LISTIDF,1 15 3JR2 # THE REST OF THIS SEGMENT TIDIES UP AFTER 15 3K=L # LISTIDF ETC. IT CLOSES FILES AND ISSUES 10 3KQ= # THE LISTFILE COMMAND. 14 3L9W # IT USED TO BE THE SEGMENT ^LISTFIN^. 10 3LPG ...QLF 12HLF !,*LP, 4 3M96 # 12 3MNQ # SUBROUTINE TO CLOSE A FILE. 4 3N8B # 8 3NN2 XCL SBX 4 FX1 7 3P7L PICKREP 6 15 3PM= XC CLOSE [ISSUE CLOSE. 17 3Q6W BCT 5 XC [CLOSED ENOUGH FILES? 9 3QLG ... V IDFANDPROP 13 3R66 ADX 4 FX1 [Y 7 3RKQ EXIT 4 0 6 3S5B Z2LISTSTAR 7 3SK2 LDN 5 3 18 3T4L CALL 4 XCL [CALL CLOSE SUBROUTINE. 4 3T6N ...XPHX 14 3T_G ... SETNCORE CPDATA+6-A1,3,ADATA,CREADL 7 3W3W LDN 0 8 8 3WHG STO 0 A1(3) 9 3X36 LDN 2 QLF(1) 9 3XGQ ADN 3 CPDATA 7 3Y2B MOVE 2 2 5 3Y2H ...Z2FROMA 18 3Y3M ... SPARAPAS [TRY FOR 'PR' PARAMETER 10 3Y4Y ... MHUNT 2,CPB,CUNI 9 3Y69 ... LDX 6 ANUM(2) 13 3Y7G ... BZE 6 NOPR [NOPE 13 3Y8R ... BNG 6 NOPR [NOPE 11 3Y=4 ... MHUNTW 3,ADATA,CREADL 15 3Y?* ... LDX 5 3 [SPARE COPY 14 3Y#L ... ADN 5 CPDATA+2 [FOR MVCH 8 3Y*X ... ADN 2 APARA 9 3YC8 ... LDN 4 QLF+2(1) 15 3YDF ... MVCH 4 1 [MOVE COMMA 16 3YFQ ... LDN 7 1 [UPDATE CHAR CT 8 3YH3 ... ADS 7 A1(3) 8 3YJ# ... ANDN 6 #7777 19 3YKK ... LDN 0 16 [TRUNCATE 'PR' PARAMETER.. 16 3YLW ... TXL 6 0 [..IF TOO LONG 8 3YN7 ... BCS NOTR 8 3YPD ... LDN 6 15 15 3YQP ...NOTR ADS 6 A1(3) [UPDATE COUNT 7 3YS2 ... LDX 4 2 7 3YT? ... SMO 6 17 3YWJ ... MVCH 4 0 [MOVE 'PR' PARAMETER 9 3YXT ...NOPR ISSUCOMB XPHZ,XPHZ 4 3Y_L XPHZ 6 3_F= ENDCOM 19 3_YW XABORT2 [BRK-IN,2 FILES TO CLOSE 8 42DG LDXC 0 GSIGN 17 42Y6 XABORT1 [BRK-IN,1 TO CLOSE 7 43CQ LDN 5 1 8 43XB BRN XZ 6 44C2 Z30LISTSTAR 7 44WL LDN 5 3 8 45B= XZ CALL 4 XCL 9 45TW TESTREPX 6,OK,XPHZ 7 46*G REPALLER 11 46T6 TESTREPX 6,REFUSED,XPHX 8 47#Q BRN XPHZ 4 47SB #END 8 ____ ...32265006000100000000