15 22FL #SEG IDFLINE8 [A C PUTMAN 13 22PD ...# COPYRIGHT INTERNATIONAL COMPUTERS 1982 8 22_= #OPT K0IDFLINE=0 16 23DW #LIS K0IDFLINE>K0ALLGEO>K0GREATGEO>K0COMMAND>K0IDF 7 23YG 8HIDFLINE 11 24D6 SEGENTRY K1IDFLINE,XIDF1 21 24XQ YREC [X3-CONTAINS FORWARD POINTER:X2 POINTS TO CURRENT RECORD 20 25CB [ON EXIT - X2 IS RECORD POINTER & X3 IS CELL POINTER. 8 25X2 BPZ 3 SAME 5 26BL YREC1 8 26W= SBX 6 FX1 7 27*W LDX 0 3 7 27TG SRL 0 9 8 28*6 ANDN 0 #7777 8 28SQ LDX 2 FX2 10 29#B STO 0 ACOMMUNE3(2) 7 29S2 MXB 2 8 2=?L ADX 6 FX1 8 2=R= SAME ANDN 3 #777 7 2?=W EXIT 6 0 6 2?QG WRITECLOSE 8 2#=6 SBX 6 FX1 7 2#PQ IDFWRITE 6 2CMG CLOSE 8 2D76 ADX 6 FX1 7 2DLQ EXIT 6 0 5 2DQM ...ZHUNT 10 2DWJ ... HUNTW 2,IDF,INLINE 7 2F2F ... EXIT 1 0 5 2F6B XIDF1 15 2FL2 IDFOPEN [OPEN THE IDF 17 2G5L LGEOG 6,4 [LD. INTO X4 GEO.NO. 7 2GK= LDN 6 0 8 2H4W SLL 67 12 8 2HJG SMO FX2 15 2J46 STO 6 AWORK3 [OLD LINE NO. 8 2JHQ SRL 7 12 8 2K3B SMO FX2 15 2KH2 STO 7 AWORK4 [NEW LINE NO. 8 2L2L LDN 3 BIPB 20 2LG= MSEARCH 2,3,4 [HUNT FOR THE IDENTIFIER CHAIN. 7 2L_W SMO 2 9 2MFG LDX 3 BLINE(3) 19 2M_6 ZA CALL 6 YREC [HUNT FOR THE IDENTIFIER CELL 8 2NDQ LDN 5 #7777 7 2NYB SMO 2 16 2PD2 ANDX 5 BNUMB(3) [MASK OUT LINE NO 8 2PXL SMO FX2 18 2QC= TXU 5 AWORK3 [BXU 5 , AWORK2 , J. ZD 8 2QWW BCS ZD 7 2RBG SMO 2 9 2RW6 LDX 5 BNUMB(3) 9 2S*Q ANDX 5 HALFTOP 8 2STB SMO FX2 19 2T*2 ADX 5 AWORK4 [REPLACE OLD LINE NO. BY NEW 7 2TSL SMO 2 16 2W#= STO 5 BNUMB(3) [ST. NEW LINE NO. 7 2WRW SMO 2 18 2X?G LDX 5 5(3) [LD. PTR. TO CONCEPTUAL. 18 2XR6 BZE 5 ZD [J. LINE IS NOT ATTACHED. 9 2Y=Q LDX 4 BRECNO(2) 7 2YQB SLL 4 9 7 2_=2 ADX 4 3 8 2_PL SMO FX2 20 329= STO 4 AWORK2 [PTR. TO IDENTIFIER CELL SAVED. 10 32NW HUNTW 1,IDF,INLINE 8 338G BPZ 1 ZC 19 33N6 ZB SETNCORE 11,1,IDF,INLINE [SET UP BLOCK 11 WORDS LONG. 19 347Q STOZ AWORK1(2) [PTR. DOWN BLOCK SET ZERO. 18 34MB LDX 3 AWORK2(2) [LD. PTR. TO IDENTIFIER. 19 3572 CALL 6 YREC1 [HUNT FOR IDENTIFIER CELL. 21 35LL HUNTW 1,IDF,INLINE [HUNT FOR BLOCK. J. IF DOES NOT EXIST 8 366= BNG 1 ZB 8 36KW ZC SMO FX2 9 375G LDX 7 AWORK1 17 37K6 ANDX 5 BITS22LS [MASK OUT ALL BUT B0 7 384Q SMO 7 18 38JB STO 5 AI+1(1) [ST. PTR. TO CONCEPTUAL. 7 3942 SMO 2 9 39HL LDX 5 BNO(3) 7 3=3= SMO 7 16 3=GW STO 5 AI(1) [ST. IDENTIFIER. 8 3?2G LDCT 5 #400 7 3?G6 SMO 7 20 3?_Q STO 5 AI+2(1) [ST. -VE TO INDICATE LAST ENTRY. 19 3#FB ADN 7 2 [INCREASE POSITION DOWN BLK 8 3#_2 SMO FX2 15 3*DL STO 7 AWORK1 [ST. AWORK1 7 3*Y= ... ADN 7 3 17 3BCW BXL 7 ALOGLEN(1),ZD [STILL ROOM IN BLOCK. 18 3BXG BXE 7 ALOGLEN(1),ZD [STILL JUST ENOUGH ROOM. 16 3C7# ... ADN 7 2 [NOT ENOUGH ROOM. 16 3CC6 ... ALTLENG 1,7,ZHUNT [ALTER THE LENGTH 8 3CLY ... CALL 1 ZHUNT 7 3CWQ ... LDX 1 2 8 3D6J ... LDX 2 FX2 9 3DBB LDX 3 AWORK2(2) 19 3DW2 CALL 6 YREC1 [RE-HUNT FOR IDENTIFIER CELL. 7 3F*L ZD SMO 2 19 3FT= LDX 3 0(3) [LD. PTR. TO NEXT IDENTIFIER. 21 3G#W BNZ 3 ZA [J. NOT ZERO THEREFORE MORE IDENT. 10 3GSG CALL 6 WRITECLOSE 16 3H#6 HUNT2J 1,IDF,INLINE,FX2,ZE [J. IF NO BLOCK 16 3HRQ UP [EXIT BY GOING UP 4 3HXM ...ZE 16 3JM5 ... SUICIDE [NO BLOCK FINISH 11 3JR2 MENDAREA 30,K100IDFLINE 4 3K=L #END 8 ____ ...52434107000100000000