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

**Defined in:** [[george:source:MACS_PW|MACS PW]]

**Used in:** [[george:source:IDFENQS867|IDFENQS867]]

<code - UNPACK.mac.txt>
 =N#=    #MAC  UNPACK                       [T FARQUHARSON   
 =NRW          LDX   %F JSOURCE2(2)  
 =P?G          BNG   %F M1                  [J IF 7020 ON 7900 OR 7007   
 =PR6          LDCH  0  JSOURCE1(2)         [LOAD BASIC TYPE TO SEE IF MOP   
 =Q=Q          SBN   0  #12  
 =QQB          BZE   0  M2                  [J.IF UPX MOP LINE   
 =R=2          SBN   0  #1   
 =RPL          BZE   0  M2                  [J.IF MPX MOP LINE   
 =S9=          SBN   0  #15  
 =SNW          BNZ   0  %A                  [J.FOR LOCAL EXIT
 =T8G    M2    LDX   %E JSOURCE2(2)         [JSOURCE WORDS INVERTED FOR MOP! 
 =TN6          LDX   %F JSOURCE1(2)  
 =W7Q          ANDN  %E #7777               [IDENT/LINE NO   
 =WMB          ANDN  %F #777                [GEOG.NO 
 =X72          BRN      %B   
 =XLL    M1    LDX   %E JSOURCE1(2)         [7020
 =Y6=          LDCT  0  #200 
 =YKW          ANDX  0  %F   
 =^5G          ANDN  %F #777 
 =^K6          BZE   0  M3                  [J.IF 7020 ON 7007   
 ?24Q          ANDN  %E #7777
 ?2JB          BRN      %C                  [7020 ON 7900 EXIT   
 ?342    M3    LDCH  0  %E   
 ?3HL          SRC   0  6
 ?43=          ORX   %F 0
 ?4GW          SLL   %E 6
 ?52G          ANDX  %E HALFTOP  
 ?5G6          LDX   0  JSOURCE2(2)  
 ?5^Q          SRL   0  9
 ?6FB          ANDN  0  #77  
 ?6^2          ORX   %E 0
 ?7DL    #STR  %D
 ?7Y=          BRN      %D                  [7020 ON 7007 EXIT   
 ?8CW    #NOR
</code>