UNPACK

(GIN Macro)
Defined in: MACS PW
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