JAMQUERY [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: JAMQUERY)}}
====== JAMQUERY ======
(GIN Macro)

**Defined in:** [[george:source:MACROSBRBS|MACROSBRBS]]

**Used in:** [[george:source:BSALFAIL|BSALFAIL]], [[george:source:GETBACK865|GETBACK865]], [[george:source:GETBAX865|GETBAX865]]

<code - JAMQUERY.mac.txt>
 93#Y ...[??? JAMQUERY SECT FILE FGN 14 DOC  
 93JQ    #   
 944B    #   
 94J2    #   
 953L    #   
 95H=    #MAC  JAMQUERY  
 962W    #STR     %A                        [SKIP IF A PARAMETER SPECIFIED   
 96GG    #SKI
 9726          LDX   1  A1+1(2)             [NUMBER OF BLOCKS LEFT IN BSLIST 
 97FQ ...      BSON      EMSBIT,M1JM 
 97^B          BNG   1  M3JM                [NO BLOCKS LEFT  
 98F2          BXGE  1  A1+2(2),M1JM        [OK IF MORE LEFT THAN JAM PERCENTAGE 
 98YL    M3JM
 99D=          LDN   0  #4000
 99XW          ANDX  0  A1+4(2)             [CHECK IF UNJAM MARKER IN BSLIST BLOC
 9=CG          BNZ   0  M1JM                [J IF MARKER PRESENT 
 9=X6          LDN   0  #4000
 9?BQ          ORS   0  A1+4(2)             [IF NOT PUT UNJAM MARKER IN BSLIST BL
 9?WB          LDX   5  2                   [KEEP POINTER TO BSLIST  
 9#B2          FON      9,0                 [AND SET THE BSUNJAMMER GOING
 9#TL          LDX   2  5                   [RESTORE POINTER 
 9**=    M1JM
 9*SW    #NOR
</code>