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