WAITSTOP [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: WAITSTOP)}}
====== WAITSTOP ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_CBK|MACROS CBK]]

**Used in:** [[george:source:MOPCOM867|MOPCOM867]], [[george:source:PCTCON8|PCTCON8]], [[george:source:TERM867|TERM867]]

<code - WAITSTOP.mac.txt>
 2HS# ...[??? WAITSTOP SECT CENT FGN 2 DOC   
 2J46    # THIS MACROS CHECKS IF ACTY IS IN LONGWAIT - IF SO AND IN 'DEMAND' 
 2JHQ    # IT SETS THE CANTDO MARKER AND WAKES THE ACTY  
 2K3B    # ELSE IT SENDS THE ACTY DOWN THE BREAKIN PATH  
 2KH2    #   
 2L2L    # IF THE ACTY IS NOT WAITING EXIT TO %A X0 DESTROYED ONLY   
 2LG=    # ELSE ACTY WOKEN X1,X2 = FX1,FX2   
 2L^W    # ENTRY - X2 -> ACTY
 2MFG    #MAC  WAITSTOP  
 2M^6          LDX   0  ATYPE(2) 
 2NDQ          ANDN  0  #2000
 2NYB          BZE   0  %A   
 2PD2          LDX   1  2
 2PXL    MWAITSTOP1  
 2QC=          HUNT2J   1,GMON,AOUT,,MWAITSTOP3 [!!CHANGE MK8
 2QWW          SMO      FX1  
 2RBG          LDX   0  MWAITSTOP2   
 2RW6          ANDX  0  ARECB+1(1)   
 2S*Q          LDCT  0  #400 
 2STB          ORS   0  ARECB(1) 
 2T*2          BRN      MWAITSTOP4   
 2TSL    MWAITSTOP2  
 2W#=          CATMASK  SYSREQ   
 2WRW    MWAITSTOP3  
 2X?G          LDN   0  1
 2XR6          ADJUSTLK 2
 2Y=Q          LDN   0  0
 2YQB          DSA   0  CLONG1(2)
 2^=2    MWAITSTOP4  
 2^PL          UNQUEUE   
 329=          FPUT  
 32NW    #NOR
</code>