10 22FL SEG IDFONLIN,,JOHN BAILEY 13 22PD ...# COPYRIGHT INTERNATIONAL COMPUTERS 1982 8 22_= #OPT K0IDFONLIN=0 16 23DW #LIS K0IDFONLIN>K0ALLGEO>K0GREATGEO>K0COMMAND>K0IDF 11 23YG SEGENTRY K1IDFONLIN,XIDF1 11 24D6 SEGENTRY K2IDFONLIN,XIDF2 11 24XQ SEGENTRY K3IDFONLIN,XIDF3 7 254Y ...#UNS AV7900S 14 25=6 ...XMASK #01040000 [B5 AND B9 8 25CB OPEN SBX 6 FX1 8 25X2 ... IDFOPEN XBRK 8 26BL ADX 6 FX1 7 26W= EXIT 6 0 5 2764 ...XBRK UP 5 27*W RECFIND 8 27TG LDX 2 FX2 10 28*6 REC HUNT2 2,FILE,FRRB 10 28SQ TXU 3 BRECNO+A1(2) 8 29#B BCS REC 8 29S2 ADN 2 A1 7 2=?L EXIT 6 0 21 2=R= YREC [X3 CONTAINS FORWARD POINTER:X2 POINTS TO CURRENT RECORD 20 2?=W [ON EXIT X2 IS RECORD POINTER & X3 IS CELL POINTER 8 2?QG BPZ 3 SAME 8 2#=6 SBX 6 FX1 7 2#PQ LDX 0 3 7 2*9B SRL 0 9 8 2*P2 ANDN 0 #7777 8 2B8L LDX 2 FX2 10 2BN= STO 0 ACOMMUNE3(2) 7 2C7W MXB 2 8 2CMG ADX 6 FX1 8 2D76 SAME ANDN 3 #777 7 2DLQ EXIT 6 0 6 2F6B WRITECLOSE 8 2FL2 SBX 6 FX1 7 2G5L IDFWRITE 8 2GK= BRN ZCL 5 2H4W ZCLOSE 8 2HJG SBX 6 FX1 9 2J46 MFREEALL FILE,FRRB 4 2JHQ ZCL 6 2K3B CLOSE 8 2KH2 ADX 6 FX1 7 2L2L EXIT 6 0 5 2LG= XIDF2 17 2L_W LDN 3 BIPB [BASE OF UNIT CHAIN 8 2MFG BRN UN 5 2M_6 XIDF1 17 2NDQ LDN 3 BUNIT [BASE OF UNIT CHAIN 19 2NYB UN LDX 4 ACOMMUNE2(2) [PICK UP REQUIRED DEVICE TYPE 14 2PD2 CALL 6 OPEN [OPEN IDF 8 2PXL BRN UN3 8 2QC= UN2 CALL 6 YREC 7 2QWW SMO 2 9 2RBG LDX 6 BTYPE(3) 8 2RW6 SRL 6 18 7 2S*Q TXU 6 4 8 2STB BCC UN1 7 2T*2 UN3 SMO 2 8 2TSL LDX 3 0(3) 8 2W#= BNZ 3 UN2 9 2WRW CALL 6 ZCLOSE 7 2X?G ONE UPPLUS 1 8 2XR6 UN1 LDCT 6 #700 7 2Y=Q SMO 2 20 2YQB ANDX 6 BNUMB(3) [MASK OUT MOP/WRONG/ONLINE BITS 21 2_=2 BNZ 6 UN3 [J.IF MOPPED ON OR WRONGED OR ONLINE 6 2_=P ...#UNS CRAMP 4 2_?D ...( 4 2_#7 ...# 16 2_#W ...# THIS CODE IS NECESSARY AS DURING MOP ON,,NS 16 2_*K ...# THE MOPPED ON MARKER IS UNSET FOR A TIME WHILE 15 2_B# ...# THE 'BEING MOPPED ON' MARKER IS LEFT SET 4 2_C3 ...# 7 2_CQ ... SMO 2 9 2_DF ... LDCH 5 BTYPE(3) 15 2_F8 ... SBN 5 #30 [CHECK IF IPB 18 2_FX ... BNZ 5 UN5 [J IF NOT TO ONLINE UNIT 7 2_GL ... SMO 2 19 2_H* ... LDEX 5 BTYPE(3) [PICK UP GEOGRAPHIC NUMBER 16 2_J4 ... FMOPG 1,5,IPB [FIND AMOP/IPBIN 6 2_J6 ...#UNS AV7900S 4 2_J8 ...( 8 2_J9 ... SMO FX1 21 2_J= ... LDX 7 XMASK [CHECK IF 'BEING MOPPED ON' MARKER OR 21 2_J# ... ['IPB IS A VIRTUAL 7900' MARKER IS 4 2_JB ...) 6 2_JD ...#UNS AV7900S 4 2_JG ...#SKI 21 2_JR ... LDCT 7 #10 [CHECK IF 'BEING MOPPED ON' MARKER 17 2_KG ... ANDX 7 IPBSW(1) [SET.IF IT IS,CANNOT 15 2_L9 ... BNZ 7 UN3 [ONLINE UNIT 4 2_LY ...UN5 4 2_MM ...# 4 2_NB ...) 21 2_PL ADX 3 2 [X3 IS ABSOLUTE POINTER TO UNIT CELL 8 329= LDCT 6 #100 16 32NW ORS 6 BNUMB(3) [SET ONLINE BIT 9 338G LDX 6 BTYPE(3) 8 33N6 ANDN 6 #777 8 347Q SMO FX2 19 34MB STO 6 ACOMMUNE1 [STORE GEOG NO OF UNIT ONLINE 10 3572 CALL 6 WRITECLOSE 13 35LL FINDPEREC 1,APGEOG,ACOMMUNE1(2) 10 366= STO 1 ACOMMUNE1(2) 7 36KW TWO UPPLUS 2 5 375G XIDF3 8 37K6 SMO FX2 9 384Q LDX 3 ACOMMUNE2 14 38JB CALL 6 OPEN [OPEN IDF 8 3942 SMO FX2 19 39HL STOZ ACOMMUNE1 [AS NAME IN CPB/CUNI BLOCK 8 3=3= MNAME 2,3 8 3=GW SMO FX2 9 3?2G LDX 7 ACOMMUNE1 16 3?G6 BNZ 7 P1 [J.IF NAME OKAY 9 3?_Q CALL 6 ZCLOSE 16 3#FB BRN TWO [NAME NOT OKAY 7 3#_2 P1 SMO 2 8 3*DL LDX 5 4(3) 18 3*Y= BPZ 5 P2 [J.IF NOT ALREADY ONLINE 9 3BCW CALL 6 ZCLOSE 16 3BXG BRN ONE [ONLINE ALREADY 8 3CC6 P2 LDX 1 FX2 8 3CWQ LDCT 6 #400 7 3DBB SMO 2 16 3DW2 ORS 6 4(3) [SET ONLINE BIT 15 3F*L LDX 4 3 [CELL POINTER 20 3FT= STO 3 AWORK3(1) [CELL POINTER FOR NOT UPDATING 9 3G#W LDX 3 BRECNO(2) 9 3GSG STO 3 AWORK4(1) 21 3H#6 ANDN 5 #7777 [NO OF LINES ON CONCEPTUAL-NEVER ZERO 7 3HRQ SMO 4 8 3J?B LDX 0 6(2) 14 3JR2 BNG 0 P8 [J. IPB. 11 3K=L SETUPCORE 5,1,IDF,CONCEP 4 3KQ= P9 18 3L9W CALL 6 RECFIND [REC NO IN X3 ON ENTRY 17 3LPG LDX 3 4 [PRESERVED CELL PTR. 7 3M96 ADX 3 2 19 3MNQ LDX 3 7(3) [FORWARD PTR. FROM BASE CELL 8 3N8B CALL 6 YREC 7 3NN2 ADX 3 2 16 3P7L LDX 0 0(3) [LD. USER NAME 16 3PM= BZE 0 XNUSER [J.NO USER NAME 17 3Q6W SETNCORE 10,1,FILE,FABSNB [SETUP A FILE/FABSNB. 9 3QLG LDX 3 AWORK4(2) 20 3R66 CALL 6 RECFIND [HUNT FOR CONCEPTUAL NAME CELL. 8 3RKQ SMO FX2 9 3S5B LDX 3 AWORK3 9 3SK2 STOZ A1+7(1) 9 3T4L STOZ A1+8(1) 9 3TJ= STOZ A1+9(1) 7 3W3W ADX 3 2 8 3WHG LDN 6 1(3) 9 3X36 LDN 7 A1+4(1) 18 3XGQ MOVE 6 3 [MOVE IN CONCEPTUAL NAME. 17 3Y2B LDX 3 7(3) [LD. USER NAME PTR 16 3YG2 CALL 6 YREC [HUNT FOR CELL 7 3Y_L ADX 3 2 17 3_F= MHUNTW 1,FILE,FABSNB [REHUNT FILE FABSNB. 8 3_YW LDN 6 0(3) 9 42DG LDN 7 A1+1(1) 17 42Y6 MOVE 6 3 [MOVE IN USER NAME. 8 43CQ LDN 0 10 16 43XB STO 0 A1(1) [STORE NEW COUNT. 5 44C2 XNUSER 21 44WL LDX 3 7(3) [FORWARD PTR. FROM USER NAME CELL. 8 45B= CALL 6 YREC 15 45TW LDX 0 BRECNO(2) [LD. REC.NO. 8 46*G SMO FX2 16 46T6 STO 0 AWORK1 [PRESERVE REC.NO. 8 47#Q SMO FX2 14 47SB STO 3 AWORK2 [CURRENT 8 48#2 BNG 5 P9A 20 48RL LDN 7 A1 [LD. PTR. TO POSITION IN BLOCK 7 49?= P9B LDN 4 0 18 49QW P7 ADX 3 2 [X3 IS ABSOLUTE POINTER 7 4==G SMO 4 21 4=Q6 LDX 3 0(3) [LINE CELL POINTER FROM CONCEP.CELL 20 4?9Q BNZ 3 P3 [J.IF LINE HAS BEEN ATTACHED TO 17 4?PB BNG 5 P10 [J. IPB CONCEPTUAL 17 4#92 [THIS LINE OF CONCEP. 7 4#NL LDN 6 0 8 4*8= BRN P4 16 4*MW P3 CALL 6 YREC [LOCATE LINE CELL 7 4B7G ADX 3 2 9 4BM6 LDX 6 BNUMB(3) 16 4C6Q BNG 6 P5 [J.IF MOPPED ON 4 4CBJ ...P3A 8 4CLB LDX 1 FX2 9 4D62 LDX 3 AWORK4(1) 14 4DKL CALL 6 RECFIND [TO FIND- 16 4F5= LDX 3 AWORK3(1) [CONCEPTUAL CELL 8 4FJW LDCT 6 #400 7 4G4G SMO 2 19 4GJ6 ERS 6 4(3) [UNSET CONCEPTUAL ONLINE BIT 9 4H3Q CALL 6 ZCLOSE 8 4HHB BRN ONE 17 4J32 P5 BNG 5 P11 [J. IPB CONCEPTUAL 9 4JGL LDX 6 BTYPE(3) 21 4K2= SRC 6 9 [X6 IS B0-B8,UNIT NO:B9-B15,DEV.TYPE 18 4KFW ORX 6 BNO(3) [ADD IN B18-B23,LINE NO 10 4K_G P4 MHUNTW 1,IDF,CONCEP 7 4LF6 SMO 7 8 4LYQ STO 6 0(1) 16 4MDB BCT 5 P6 [J.IF MORE LINES 10 4MY2 P6A CALL 6 WRITECLOSE 7 4NCL UPPLUS 3 17 4NX= P6 ADN 7 1 [UPDATE BLOCK POINTER 8 4PBW LDX 1 FX2 18 4PWG LDX 3 AWORK1(1) [REC NO OF CONCEP.CELL 17 4QB6 CALL 6 RECFIND [BACK TO CONCEP.CELL 9 4QTQ LDX 3 AWORK2(1) 20 4R*B ADN 4 1 [UPDATE POINTER TO LINE WORD IN 20 4RT2 [CONCEP.CELL 7 4S#L LDN 0 7 7 4SS= TXU 4 0 19 4T?W BCS P7 [J.FOR NEXT LINE-IN SAME CELL 7 4TRG SMO 2 8 4W?6 LDX 3 7(3) 18 4WQQ CALL 6 YREC [GET SUB. CONCEPTUAL CELL 8 4X=B LDX 1 FX2 16 4XQ2 STO 3 AWORK2(1) [NEW CELL POINTER 9 4Y9L LDX 6 BRECNO(2) 16 4YP= STO 6 AWORK1(1) [NEW RECORD NO 17 4_8W LDN 4 0 [UPDATE LINE POINTER 16 4_NG BRN P7 [J.FOR NEXT LINE 7 5286 P8 LDX 6 5 7 52MQ SMO 4 8 537B LDX 7 6(2) 7 53M2 SLL 6 1 7 546L ADN 6 2 17 54L= SETUPCORE 6,1,IDF,CONCEP1 [SET UP IPB BLOCK. 8 555W LDCT 0 #400 7 55KG ADX 5 0 8 5656 ANDN 7 #7777 7 56JQ SBN 7 1 9 574B STO 7 A1+1(1) 21 57J2 BRN P9 [J. BACK TO CONTINUE DOWN MAIN PATH. 8 583L P9A LDN 7 A1+2 8 58H= BRN P9B 17 592W P10 LDN 6 0 [LD. DUMMY ENTRIES 7 59GG LDN 2 0 8 5=26 BRN P12 17 5=FQ P11 LDCH 6 BTYPE(3) [LD. DEVICE TYPE 8 5=_B SLL 6 12 18 5?F2 ADX 6 BNO(3) [ADD IN IDENTIFIER NO. 15 5?YL LDX 3 BTYPE(3) [LD. GEO.NO. 8 5#D= ANDN 3 #777 17 5#XW FMOPG 2,3,IPB [HUNT FOR AMOP/IPB 19 5*54 ... BNG 2 P3A [IF NO AMOP, UNIT NOT ON INSTN 18 5*== ... [SO CANNOT ONLINE CONCEPTUAL 15 5*CG P12 MHUNTW 1,IDF,CONCEP1 [HUNT BLOCK. 7 5*X6 SMO 7 8 5BBQ STO 2 0(1) 7 5BWB SMO 7 16 5CB2 STO 6 1(1) [STORE TWO VALUES 7 5CTL ADN 7 1 8 5D*= ANDN 5 #7777 8 5DSW BCT 5 P14 8 5F#G BRN P6A 8 5FS6 P14 ADX 5 GSIGN 8 5G?Q BRN P6 4 5GRB # 10 5H?2 MENDAREA 25,K99IDFONLIN 4 5HQL # 4 5J== #END 8 ____ ...26500522000100000000