12 22FL SEG IPCGEO,,J.R.BAILEY 16 22_= # THIS SEGMENT DEALS WITH OPENING AND CLOSING 9 23DW # GEORGE IPC LINKS 4 23YG # 11 24D6 SEGENTRY K1IPCGEO,X1IPCGEO 11 24XQ ... SEGENTRY K2IPCGEO,X2IPCGEO 11 25CB SEGENTRY K3IPCGEO,X3IPCGEO 11 25X2 SEGENTRY K4IPCGEO,X4IPCGEO 4 26BL # 8 26W= # STORED WORDS 9 27*W ...TBIT1 #21000000 9 27TG VX #63777777 4 28*6 # 11 28SQ # IPCOPEN MACRO ENTRY POINT 5 29#B X1IPCGEO 16 29S2 STOZ AWORK4(2) [MARK ENTRY POINT 10 2=?L LDX 0 ACOMMUNE3(2) 9 2=R= STO 0 AWORK3(2) 17 2?=W LDX 7 ACOMMUNE4(2) [DIRECTION OF LINK 13 2?QG BZE 7 P1 [READ 17 2#=6 MHUNT 3,IPCD,IPCGLW [LOCATE CONTROL BLOCK 8 2#PQ BRN P2 17 2*9B P1 MHUNT 3,IPCD,IPCGLR [LOCATE CONTROL BLOCK 17 2*P2 P2 STOZ IPCGREP(3) [ZEROISE REPLY WORD 10 2B8L LDX 0 ACOMMUNE1(2) 9 2BN= STO 0 IPCGUN(3) 18 2C7W FINDPEREC 2,APGEOG,IPCGUN(3) [FIND DEVICE LIST ENTRY 8 2CMG BPZ 2 P3 10 2D76 P4 GEOERR 1,IPCOPER1 15 2DLQ P3 LTYPE 2,6 [LOAD TYPE 8 2F6B SBN 6 28 16 2FL2 BNZ 6 P4 [NOT IPC DEVICE 10 2G5L DSCA 2,LDX,4,CHADD 9 2GK= ANDX 4 BITS22LS 9 2H4W SBN 4 CHAINADD 16 2HJG GETNOG 6 [GET LINK NUMBER 8 2J46 BZE 6 PA 13 2JHQ FINDACTFB 1,FX2,IPCA,INTERN,,FPTR 11 2K3B HUNT2 1,IPCD,IPSTACK 10 2KH2 LDX 5 ARINGNO(1) 14 2L2L ANDN 5 #7777 [COUNT 13 2LG= BZE 5 P4 [NONE 10 2L_W P6 TXU 6 A1+ALINUM(1) 14 2MFG BCC P5 [FOUND! 9 2M_6 ADN 1 ARECLEN 14 2NDQ BCT 5 P6 [TRY NEXT 15 2NYB BRN P4 [NOT FOUND 8 2PD2 P5 BZE 7 P7 17 2PXL MHUNT 3,IPCD,IPCGLW [LOCATE CONTROL BLOCK 8 2QC= BRN P8 17 2QWW P7 MHUNT 3,IPCD,IPCGLR [LOCATE CONTROL BLOCK 10 2RBG P8 RINGTWO A1(3),A1(1) 8 2RW6 LDX 1 A1(3) 12 2S*Q # SET UP FIELDS IN RING ELEMENT 9 2STB STOZ ATIMCT(1) 9 2T*2 STOZ ASTR(1) 9 2TSL STOZ ALENTR(1) 10 2W#= STOZ AREPPTR(1) 10 2WRW LDX 0 ACOMMUNE4(2) 10 2X?G STO 0 ALTPROG(1) 9 2XR6 STOZ ASTMEL(1) 8 2Y=Q SMO FX1 8 2YQB LDX 0 TBIT1 10 2_=2 STO 0 ASTATUS2(1) 10 2_PL STO 0 ASTATUS1(1) 10 329= STO 4 APTRIPB(1) 4 32NW POP 17 338G SETNCORE 2,3,IPCD,ATASK [SET UP TASK BLOCK 8 33N6 STO 6 A1(3) 7 347Q LDN 0 5 9 34MB STO 0 A1+1(3) 7 3572 SMO 4 8 35LL LDX 1 CPPTR 8 366= JDISENG 1,PCX 9 36KW JIPCM DS,PCX,4 15 375G LDX 5 CPPTR(2) [SAVE CPPTR 9 37K6 STO 1 CPPTR(2) 15 384Q QTASK 3,,4 [ENQUEUE TASK 16 38JB STO 5 CPPTR(2) [RESTORE CPPTR 9 3942 LDX 0 AWORK4(2) 8 39HL BZE 0 PCU 8 3=3= BZE 7 V1 10 3=GW MHUNT 3,IPCD,IPCGLW 8 3?2G BRN V2 10 3?G6 V1 MHUNT 3,IPCD,IPCGLR 9 3?_Q V2 LDX 3 IPCRNG(3) 8 3#FB LDX 0 VX(1) 10 3#_2 ANDS 0 ASTATUS2(3) 8 3*DL BRN V3 13 3*Y= # CLEAR UP FOR OPEN FAILURE OR CLOSE 8 3BCW PCX SMO FX2 9 3BXG LDX 0 AWORK3 8 3CC6 BZE 0 PC 10 3CWQ MFREE IPCD,ATASK 5 3DBB V3 UP 4 3DW2 PCU 7 3F*L UPPLUS 1 18 3FT= PC MFREE IPCD,ATASK [THROW AWAY TASK BLOCK 7 3JR2 FRENO 6 8 3K=L PA BZE 7 PA1 18 3KQ= MFREE IPCD,IPCGLW [THROW AWAY CONTROL BLOCK 8 3L9W BRN PA2 10 3LPG PA1 MFREE IPCD,IPCGLR 5 3M96 PA2 UP 11 3MNQ # IPCLOSE MACRO ENTRY POINT 5 3N8B X2IPCGEO 17 3NN2 SETNCORE 2,3,IPCD,ATASK [SET UP TASK BLOCK 18 3P7L ... STO 3 5 [STORE PTR TO TASK BLOCK 10 3PM= LDX 7 ACOMMUNE4(2) 8 3Q6W BZE 7 Q1 10 3QLG MHUNT 2,IPCD,IPCGLW 8 3R66 BRN Q2 10 3RKQ Q1 MHUNT 2,IPCD,IPCGLR 8 3S5B Q2 LDX 6 A1(2) 14 3S5K ... STO 2 4 [PTR TO IPCGL 16 3S5S ... LDX 2 6 [PTR TO IPSTACK ENTRY 9 3S63 ... LDX 0 ALINUM(2) 17 3S6= ... STO 0 A1(3) [LINK NO TO TASK BLOCK 14 3S6F ... LDN 0 3 [CLOSE TYPE 9 3S6N ... STO 0 A1+1(3) 10 3S6X ... LDX 2 APTRIPB(2) 9 3S76 ... LDX 3 CPPTR(2) 15 3S7* ... JDISENG 3,PIN3 [JUMP IF IPB DOWN 17 3S7J ... JIPCM DS,PIN3,2 [OR DIALOGUE SUSPENDED 7 3S7R ... LDX 2 6 8 3S82 ... LDCT 0 #010 17 3S89 ... ANDX 0 ASTATUS2(2) [LOOK IF OPEN IN PROGRESS 8 3S8D ... BZE 0 PIN3 15 3S8M ... MFREE IPCD,ATASK [IF SO FREE CLOSE 16 3S8W ... COOR3 #41 [AND LET OPEN FINISH 9 3S95 ... BRN X2IPCGEO 18 3S99 ...PIN3 LDX 2 6 [RESTORE PTR TO IPSTACK 8 3S9* ... LDCT 0 #010 17 3S9H ... ERX 0 ASTATUS2(2) [CLEAR OPEN IN PROGRESS 13 3S9Q ... ANDS 0 ASTATUS2(2) [IF SET 9 3S9_ ... LDX 3 ALINUM(2) 15 3S=8 ... LDX 1 APTRIPB(2) [PTR TO IPCBX 18 3S=C ...PIN4 HUNT2J 1,IPCD,ATASK,,PIN5 [LOOK FOR TASK BLOCK 8 3S=L ... LDX 0 A1(1) 16 3S=T ... TXU 0 3 [IS IT FOR THIS LINK 15 3S?4 ... BCS PIN4 [NO, LOOK AGAIN 7 3S?? ... LDN 0 5 15 3S?G ... TXU 0 A1+1(1) [IS IT AN OPEN 15 3S?P ... BCS PIN4 [NO, LOOK AGAIN 16 3S?Y ... FREECORE 1 [FOUND, SO FREE IT 15 3S#7 ...PIN5 LDX 2 4 [POINTER TO IPCGL 8 3S*8 ... LDX 1 A1(2) 9 3SK2 ... EMPTY FPTR(1) 8 3SSS ... EMPTY A1(2) 7 3T4L BZE 7 Y 10 3TJ= MFREE IPCD,IPCGLW 7 3W3W BRN Z 10 3WHG Y MFREE IPCD,IPCGLR 7 3X36 Z LDX 2 6 10 3_F= LDX 0 ASTATUS2(2) 7 3_YW SLL 0 1 8 42Y6 ... BNG 0 PIN2 10 43CQ LDX 2 APTRIPB(2) 9 43MJ ... DECLINK CPPTR(2) 9 43XB LDX 4 CPPTR(2) 16 44C2 JDISENG 4,PIN2 [IPB INOPERABLE 17 44WL JIPCM DS,PIN2,2 [DIALOGUE SUSPENDED 8 456D ... LDX 3 5 15 45B= QTASK 3,,2 [ENQUEUE TASK 16 46*G BRN PA2 [GO TO CLEAR UP 10 46T6 PIN2 MFREE IPCD,ATASK 7 47#Q LDX 2 6 10 47SB YB LDX 0 ASTATUS2(2) 7 48#2 SLL 0 5 8 48RL BNG 0 YBA 9 49?= FRENO ALINUM(2) 8 49QW ... BRN PA2 9 4==G ...YBA STOZ BPTR(2) 8 4=Q6 LDX 2 FX2 8 4?9Q ... BRN PA2 16 4?PB # ENTRY POINTS FOR AUTOMATIC RE-ESTABLISHMENT 5 4#92 X3IPCGEO 10 4#NL MHUNT 3,IPCD,IPCGLR 8 4*8= BRN U1 4 4*MW # 5 4B7G X4IPCGEO 10 4BM6 MHUNT 3,IPCD,IPCGLW 7 4C6Q R1 NGNC 7 1 7 4CLB U1 LDN 7 0 9 4D62 LDX 3 IPCRNG(3) 16 4DKL LDX 6 ALINUM(3) [LINK IDENTIFIER 16 4F5= LDX 4 APTRIPB(3) [GEOG NO OF IPB 7 4FJW LDN 0 1 9 4G4G STO 0 AWORK3(2) 17 4GJ6 STO 0 AWORK4(2) [MARK TYPE OF ENTRY 8 4H3Q LDX 0 GSIGN 9 4HHB SMO FPTR(3) 11 4J32 STO 0 IPCGREP-IPCRNG 8 4JGL BRN POP 9 4K2= MENDAREA 100,K99IPCGEO 4 4KFW #END 8 ____ ...74761427001300000000