16 22FL #SEG SENTINEL8 [G CONSTANTINIDES 15 22_= #LIS K0SENTINEL>K0MULTIPLX>K0ALLGEO>K0GREATGEO 10 23DW 8HSENTINEL 7 23YG # ENTRY POINTS 12 24D6 SEGENTRY K1SENTINEL,Z1SENTINEL 11 24XQ MENDAREA 15,K99SENTINEL 4 25CB [ 18 25X2 ZDATA #75527673 [SENTINEL DATA MESSAGE 9 26BL #57746576 9 26W= #20677623 20 27*W #DEF ZLEN=0?-ZDATA+BUFFER-A1 [LENGTH OF THE LINE CONTROL BLOCK 9 27TG XMASK #42004000 19 28*6 #DEF ZREP=#5 [ERROR AND OPERABLE MARKERS 4 28SQ [ 19 29#B PERY LDX 2 IDENTM(3) [X5 CONTAINS MODE (#1 OR #2) 10 29S2 LDX 7 GUNITNO(3) 8 2=?L FINDLCA ,7 8 2=R= JLBUSY 1,REJ 8 2?=W SLL 7 15 10 2?QG DCA ,STO,7,MODE 10 2#=6 DLCA 1,DLA,5,MODE 8 2#PQ SBN 5 14 7 2*9B NGX 5 5 10 2*P2 DLCA 1,DLA,5,COUNT 8 2B8L SBN 5 13 8 2BN= BNZ 5 READ 9 2C7W LDN 5 GREP1(3) 8 2CMG BRN WRITE 9 2D76 READ LDN 5 GREP2(3) 10 2DLQ WRITE DLCA 1,STO,5,CREP 9 2F6B LDN 5 BUFFER(3) 10 2FL2 DLCA 1,STO,5,CTSA 8 2G5L LDX 0 JTIME 9 2GK= STO 0 GTIM(3) 6 2H4W GLPERI 7 2HJG XIT EXIT 4 0 17 2J46 REJ GEOERR 1,REJECTED [TRANSFER REJECTED 4 2JHQ [ 5 2K3B ZHUNTLCB 10 2KH2 MHUNTW 2,AMXOR,ALCB 7 2L2L EXIT 1 0 4 2LG= [ 6 2L_W Z1SENTINEL 20 2MFG SETNCORE ZLEN,3,AMXOR,ALCB,1,1,2 [OBTAIN LINE CONTROL BLOCK. 15 2M_6 LDN 0 A1+BPTR(3) [ZEROISE IT. 10 2NDQ LDN 1 A1+BPTR+1(3) 10 2NYB STOZ A1+BPTR(3) 10 2PD2 MOVE 0 ZLEN-BPTR-1 14 2PXL STO 7 GUNITNO(3) [LINE NO. 9 2QC= LDX 6 AWORK4(2) 21 2QWW STO 6 IDENTM(3) [PRESERVE THE MPX ACTIVITY ADDRESS 10 2RBG LOCKC 3,ZHUNTLCB 10 2RW6 MHUNTW 3,AMXOR,ALCB 7 2S*Q LDX 2 6 19 2STB HUNT2 2,AMXOR,ALINES [FIND THE LINE ENTRIES BLOCK. 7 2T*2 SLL 7 2 7 2TSL ADX 2 7 20 2W#= RINGTWO A1(2),A1(3) [ENRING LCB WITH ALINES ENTRY. 9 2WRW LDX 0 XMASK(1) 19 2X?G ANDX 0 A1+FOURTHWD(2) [UNSET THE ^SETTING UP^ AND 20 2XR6 ERS 0 A1+FOURTHWD(2) [^ALREADY INTERRUPTED^ MARKERS. 10 2Y=Q LDX 6 ZDATA+2(1) 21 2YQB SLL 0 12 [SET SWITCH IF ALREADY INTERRUPTED. 7 2_=2 ORX 7 0 21 2_PL CALL 4 Z7 [TEST IF BEING ONLINED OR MOPPED OFF 21 329= LDXC 7 7 [UNSET SW. & J. IF NO READ REQST. YET 8 32NW BCC Z3 21 338G Z1 LDX 0 GSIGN [SET ASLEEP MARKER AND INTERRUPT COUN 7 33N6 ADN 0 1 21 347Q BRN Z4 [INITIATE READ (MAY HAVE LOST INPUT). 9 34MB Z2 STOZ GWAIT(3) 10 3572 LOCKC 3,ZHUNTLCB 10 35LL MHUNTW 3,AMXOR,ALCB 20 366= LDX 0 GWAIT(3) [J. IF INTERRUPT SEEN BY AMOP. 8 36KW BNZ 0 Z1 17 375G Z3 LDX 0 GSIGN [MARK AS ^ASLEEP^. 9 37K6 Z4 STO 0 GWAIT(3) 9 384Q STOZ BUFFER(3) 16 38JB LDN 5 2 [INITIATE READ 8 3942 CALL 4 PERY 6 39HL COOR1 8 3=3= CALL 4 Z7 9 3=GW LDX 0 GWAIT(3) 21 3?2G BCT 0 Z6 [INTERRUPT COUNT = 1? (READ REQUEST). 17 3?G6 Z5 LDX 0 GSIGN [GO BACK TO SLEEP. 9 3?_Q ORS 0 GWAIT(3) 6 3#FB COOR1X 19 3#_2 Z6 LDX 1 GREP2(3) [TRANSFER STILL IN PROGRESS? 8 3*DL BNG 1 Z5 20 3*Y= BCT 0 Z1 [INTERRUPT COUNT = 2? (NORMAL). 17 3BCW LDCH 0 GREP2(3) [REPLY CHARACTER OK? 8 3BXG SBN 0 ZREP 8 3CC6 BNZ 0 Z2 8 3CWQ LDX 1 FX1 9 3DBB LDX 4 ZDATA(1) 10 3DW2 LDX 5 ZDATA+1(1) 18 3F*L TXU 4 BUFFER(3) [MESSAGE TRANSFERRED OK? 10 3FT= TXU 5 BUFFER+1(3) 10 3G#W TXU 6 BUFFER+2(3) 8 3GSG BCS Z2 16 3H#6 LDN 5 1 [INITIATE WRITE 8 3HRQ CALL 4 PERY 17 3J?B LDX 0 GSIGN [MARK AS ^ASLEEP^. 9 3JR2 ORS 0 GWAIT(3) 6 3K=L COOR1 8 3KQ= CALL 4 Z7 19 3L9W LDXC 0 GREP1(3) [TRANSFER STILL IN PROGRESS? 8 3LPG BCS Z5 20 3M96 ANDN 0 #76 [REMAINDER COUNT SATISFACTORY? 8 3MNQ BNZ 0 Z1 20 3N8B LDX 0 GWAIT(3) [INTERRUPT COUNT = 3? (NORMAL). 7 3NN2 SBN 0 3 8 3P7L BNZ 0 Z1 8 3PM= BRN Z2 18 3Q6W Z7 LDCT 0 #110 [CHECK IF MOP/ONLINE BITS 19 3QLG LDX 1 A1+FPTR(3) [ARE SET IN THE ALINES ENTRY. 10 3R66 ANDX 0 FOURTHWD(1) 18 3RKQ BZE 0 XIT [J. OUT IF NEITHER IS SET 20 3S5B LDXC 0 GREP1(3) [J. IF WRITE STILL IN PROGRESS. 8 3SK2 BCS Z5 20 3T4L LDXC 0 GREP2(3) [J. IF NO TRANSFERS IN PROGRESS, 8 3TJ= BCC Z8 9 3W3W LDX 2 IDENTM(3) 10 3WHG LDX 0 GUNITNO(3) 8 3X36 SLL 0 15 7 3XGQ ADN 0 4 10 3Y2B DCA ,STO,0,MODE 6 3YG2 GLPERI 8 3Y_L BRN Z5 14 3_F= Z8 STOZ BPTR(1) [WIND UP. 10 3_YW STOZ A1+BPTR(3) 7 42DG SUICIDE 4 42Y6 [ 4 43CQ # 4 43XB # 4 44C2 #END 8 ____ ...07641325000100000000