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

**Defined in:** [[george:source:MACS_IPB|MACS IPB]]

**Used in:** 

<code - IPBNOPCK.mac.txt>
 7272    #MAC  IPBNOPCK  
 72LL    #STR  %A,ON 
 736=    #SKI
 73KW    (   
 745G    #MEN  IPBLISTB  
 74K6    #TRA  K60IPBLISTB   
 754Q          LDXC  5  AWORK1(1)
 75JB          BCS      K64IPBLISTB         [J. NOT LP   
 7642          ANDX  0  IWORK10(1)          [ISOLATE LAST BIT OF RECORD NUMBER   
 76HL          BZE   0  K63IPBLISTB         [IF NEXT RECORD NUMBER IS EVEN,OUTPUT
 773=    #TRA  K61IPBLISTB   
 77GW          BRN      K62IPBLISTB         [GET SECOND RECORD   
 782G    #END
 78G6    #EXI
 78^Q    )   
 79FB    #STR  OFF,%A
 79^2    #SKI
 7=DL    (   
 7=Y=    #MEN      IPBLISTB  
 7?CW    #TRA  K60IPBLISTB   
 7?XG          NULL  
 7#C6          NULL  
 7#WQ          NULL  
 7*BB          NULL  
 7*W2    #TRA  K61IPBLISTB   
 7B*L          NULL  
 7BT=    #END
 7C#W    #EXI
 7CSG    )   
 7D#6    #NOR
</code>