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