9 22FL ... SEG WHATPERX,,,,G203 17 22_= ...# FOR UGUG MEND M203 (ALLOW WHATPER FOR REMOTE DEVICES) 11 23DW ... SEGENTRY K1WHATPERX,POINT1 5 23YG ...MONOUT 8 24D6 ... MONOUTX 0(1) 10 24XQ ... MHUNTW 1,CPAR,JSCE 15 25CB ... LDN 0 1 [ STEP TO NEXT IDENT 9 25X2 ... SBS 0 JSCEK(1) 9 26BL ... ADS 0 AWORK2(2) 9 26W= ... ADS 0 JSCEA(1) 9 27*W ... LDX 3 AWORK3(2) 17 27TG ... BZE 3 XEND [ MOP OFF OR INOP - NO LOOP 9 28*6 ... NGX 0 JSCEK(1) 8 28SQ ... BNG 0 NEXT 18 29#B ...XEND ACROSS WHATPER,7 [ FOR NEXT PARAMETER 5 29S2 ...POINT1 10 2=?L ... MHUNTW 3,CPAR,JSCE 9 2=R= ... LDX 7 JSCEA(3) 8 2?=W ... ANDN 7 #7777 9 2?QG ... LDEX 4 JSCEB(3) 16 2#=6 ... STO 7 AWORK2(2) [ IDENTIFIER 15 2#PQ ... STO 4 AWORK1(2) [ GEOG NO 18 2*9B ... LDX 3 JSCEP(3) [ DEVICE LIST POINTER 10 2*P2 ... JONL 3,TISONLINE 9 2B8L ... JFREE 3,TISFREE 15 2BN= ...# MOPPED ON THEREFORE FIND THE ADEVS BLOCK 8 2C7W ... LAMOP 3,3 9 2CMG ... STO 3 AWORK3(2) 4 2D76 ...NEXT 14 2DLQ ... HUNT2J 3,AMXOR,ADEVS,,NOTMOPPEDON 12 2F6B ...# X3 POINTS TO THE ADEVS BLOCK 16 2FL2 ... LDX 0 ALOGLEN(3) [LOGLEN OF BLOCK 7 2G5L ... SRL 0 2 11 2GK= ... SBX 0 A1+FOURTHWD(3) 15 2H4W ... SBN 0 1 [HIGHEST ID # 9 2HJG ... SBX 0 AWORK2(2) 16 2J46 ... BNG 0 XEND [ ABOVE HIGHEST 15 2JHQ ... LDX 2 AWORK2(2) [IDENTIFIER 15 2K3B ... SBX 2 A1+FOURTHWD(3) [ID OFFSET 7 2KH2 ... SBN 2 1 7 2L2L ... SLL 2 2 7 2LG= ... SMO 2 15 2L_W ... LDX 7 A1+FOURTHWD+4(3) [THE GOODIES 7 2MFG ... SMO 2 11 2M_6 ... LDX 3 A1+FOURTHWD+2(3) 20 2NDQ ... BNZ 3 NIDLE [ J IF ACTIVITY - CANT BE IDLE 8 2NYB ... LDCT 0 #002 7 2PD2 ... ANDX 0 7 9 2PXL ... BNZ 0 TISWRONG 9 2QC= ... CALL 7 OUTPARAM 9 2QWW ... CALL 1 MONOUT 9 2RBG ... +FIDLE 5 2RW6 ...TISWRONG 7 2S*Q ...# WRONGED 9 2STB ... CALL 7 OUTPARAM 9 2T*2 ... CALL 1 MONOUT 9 2TSL ... +FWRONG 5 2W#= ...NIDLE 8 2WRW ... LDCT 0 #10 7 2X?G ... ANDX 0 7 18 2XR6 ... BNZ 0 TOLCONC [ ONLINE TO CONCEPTUAL 19 2Y=Q ... BPZ 7 YESENG [ J IF AVAILABLE (ENGAGED) 9 2YQB ... CALL 7 OUTPARAM 18 2_=2 ... CALL 1 MONOUT [ IN USE BUT NOT ENGAGED 9 2_PL ... +FRESUNEN 5 329= ...YESENG 9 32NW ... CALL 7 OUTPARAM 9 338G ... CALL 1 MONOUT 9 33N6 ... +FUSSY 6 347Q ...NOTMOPPEDON 9 34MB ... CALL 7 OUTNUM 9 3572 ... CALL 7 OUTMESS 9 35LL ... +G203INOP 9 366= ... BRN MOPSTATE 5 36KW ...TISFREE 9 375G ... CALL 7 OUTNUM 9 37K6 ... CALL 7 OUTMESS 8 384Q ... +JOFF 5 38JB ...MOPSTATE 9 3942 ... CALL 1 MONOUT 9 39HL ... +AWPMOP 5 3=3= ...OUTNUM 21 3=GW ... STOZ AWORK3(2) [ SUPPRESS IDENTIFIER LOOP (CLEAR IPBIN PT 9 3?2G ... LDX 0 AWORK1(2) 5 3?G6 ...OUTNUM2 8 3?_Q ... SBX 7 FX1 8 3#FB ... OUTNUM 0,0 8 3#_2 ... ADX 7 FX1 7 3*DL ... EXIT 7 0 5 3*Y= ...OUTMESS 7 3BCW ... LDX 1 7 8 3BXG ... SBX 7 FX1 8 3CC6 ... OUTMESSX 0(1) 8 3CWQ ... ADX 7 FX1 7 3DBB ... EXIT 7 0 19 3DW2 ...TOLCONC [ UNIT %A ONLINE TO JOBNO %B 19 3F*L ... ADX 3 BSTART(3) [ GET PTR TO START OF CONDCB 16 3FT= ... LDX 3 A1(3) [ RING TO CSTATE 21 3G#W ... SBN 3 A1 [ START OF CSTATE, NOW MOVE BACK TO AOL 8 3GSG ... LDX 0 CACT 9 3H#6 ...TOL1 LDX 3 BPTR(3) 19 3HRQ ... BXGE 0 ATYPE(3),TOL1 [ FIND ACTIVITY BLOCK (AOLPT) 17 3J?B ... LDCH 7 ATYPE(3) [ SHOULD POINT TO AOLPT 9 3JR2 ... SBN 7 AOLPT/64 15 3K=L ... BNZ 7 (GEOERR) [ ERROR IF NOT 9 3KQ= ... LDX 4 JOBNO(3) 9 3L9W ... CALL 7 OUTPARAM 8 3LPG ... BRN TOL2 6 3M96 ...TISONLINE 8 3MNQ ... LJOBNO 3,4 9 3N8B ... CALL 7 OUTNUM 4 3NN2 ...TOL2 7 3P7L ... LDX 0 4 9 3PM= ... CALL 7 OUTNUM2 9 3Q6W ... CALL 1 MONOUT 9 3QLG ... +FONLINE 4 3R66 ...# 5 3RKQ ...OUTPARAM 8 3S5B ... SBX 7 FX1 10 3SK2 ... MHUNT 1,CPAR,JSCE 10 3T4L ... GEOPACK 6,JSCEA(1) 10 3TJ= ... OUTPACK 6,1,GEOPER 8 3W3W ... ADX 7 FX1 7 3WHG ... EXIT 7 0 4 3X36 ...#END 2 #### 3 ##RY ... 6 ____ ...263060250012