{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: WHATPERX867)}}
====== WHATPERX867 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:BXGE|BXGE]], [[george:macro:GEOPACK|GEOPACK]], [[george:macro:HUNT2J|HUNT2J]], [[george:macro:JFREE|JFREE]], [[george:macro:JONL|JONL]], [[george:macro:LAMOP|LAMOP]], [[george:macro:LJOBNO|LJOBNO]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:MONOUT|MONOUT]], [[george:macro:MONOUTX|MONOUTX]], [[george:macro:MOPSTATE|MOPSTATE]], [[george:macro:OUTMESS|OUTMESS]], [[george:macro:OUTMESSX|OUTMESSX]], [[george:macro:OUTNUM|OUTNUM]], [[george:macro:OUTPACK|OUTPACK]], [[george:macro:OUTPARAM|OUTPARAM]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|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