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

**Defined in:** [[george:source:MACROS_JSR|MACROS JSR]]

**Used in:** [[george:source:DROBJ864|DROBJ864]], [[george:source:EDOBJ864|EDOBJ864]], [[george:source:FHOBJDIR860|FHOBJDIR860]], [[george:source:GETONA867|GETONA867]], [[george:source:MTCODE864|MTCODE864]], [[george:source:MTOBJ864|MTOBJ864]], [[george:source:OLMTC85|OLMTC85]], [[george:source:OLMTE85|OLMTE85]], [[george:source:PROGISH850|PROGISH850]], [[george:source:TPINS861|TPINS861]]

<code - OUTMOVE.mac.txt>
 3DBB    #MAC  OUTMOVE  [MOVE OBJ PROG AREA TO GEORGE AREA   
 3DW2          STO   1  JWSP1
 3F*L          LDX   0  %D   
 3FT=          STO   0  JWSP2
 3G#W          SMO      %A   
 3GSG          LDX   0  ADATUM   
 3H#6          ADX   0  %B   
 3HRQ          LDX   1  %C   
 3J?B          SMO      JWSP2
 3JR2          MOVE  0  0
 3K=L          LDX   1  JWSP1
 3KDW ...#NOR
</code>