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

**Defined in:** [[george:source:MACROS_SJ|MACROS SJ]]

**Used in:** 

<code - JMBCI.mac.txt>
 9DD8 ...[   
 9DKB ...[   
 9DQL ...[??? JMBCI SECT FILE FGN 24 DOC 
 9FPW    #MAC  JMBCI 
 9G9G ...[ JMBC-%C NULL,JMBAS-%C LABAL   
 9H8Q    #SKI  (19?+6]-1)^(19?+7]@L-19)<1-1  
 9HNB    (                                   [SINGLE BIT CASE
 9J82    #STR  %C
 9JML    #SKI  19?+5]
 9K7=    (                                  [ALL BUT LAST WORD OF JMBAS  
 9KLW          JBC      %A,%B,19?+7] 
 9L6G    #EXI
 9LL6    )   
 9M5Q          JBS   %C,%B,19?+7]
 9MKB    #EXI
 9N52    )   
 9NJL          LAS      0
 9P4=    #SKI      19?+9]&#77770000  
 9PHW          STO   0  GEN0                 [IF CANT DO ERN STO FOR ERX 
 9Q3G      MOD ANDX  0  19?+8],%B
 9QH6    #SKI      19?+9]&#77770000  
 9R2Q          ERX   0  GEN0 
 9RGB    #SKI  19?+9]&#77770000<1-1  
 9S22          ERN   0  19?+9]   
 9SFL    #STR  %C
 9S^=    #SKI  19?+5]
 9TDW    (                                  [ALL BUT LAST WORD OF JMBAS  
 9TYG          BNZ   0  %A   
 9WD6    #EXI
 9WXQ    )   
 9XCB          BZE   0  %C   
 9XX2    #NOR
</code>