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

**Defined in:** [[george:source:MACROS_RME10|MACROS RME10]]

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

<code - SETMTONL.mac.txt>
 6^CJ ...[??? SETMTONL SECT FILE FGN 4 DOC   
 6^MB    #MAC  SETMTONL  
 7272          MTPTR    %A,%C
 72LL          DFJUMPN  %C,REW,M0SET 
 736=          STEPBAC1 ,FX2 
 73KW          CAPCA 
 745G    M1SET DFJUMPN  %C,REW,M2SET 
 74K6          LGEOG    %C,1 
 754Q          LONGSET  AREWT,M3SET,1
 75JB          LONGSTOP %D   
 7642          BRN      M1SET
 76HL    M3SET GEOERR   1,WTSTYLE
 773=    M2SET RUNPROG   
 77GW    M0SET MOD      STO  %C  1,%B
 782G    #SKI        %A>2-2  
 78G6    (   
 78^Q          LOCK     %A   
 79FB          MURDER   %A   
 79^2    )   
 7=DL    #SKI        %A<3-3  
 7=Y=    (   
 7?CW          LDX   %C %A   
 7?XG          LOCK     %C   
 7#C6          MURDER   %C   
 7#WQ    )   
 7*BB    #NOR
</code>