{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: MTMAC)}}
====== MTMAC ======
(GIN Macro)

**Defined in:** [[george:source:DUMP-MACROS|DUMP-MACROS]]

**Used in:** 

<code - MTMAC.mac.txt>
 456D ...[??? MTMAC SECT FILE FGN 65 DOC 
 45B=    #   
 45TW    [                      MAGNETIC TAPE ACCESS MACROS FOR MARK 3   
 46T6    #MAC MTMAC  
 47#Q    #FRE MTPERI 
 47SB    #DEF MTACCDUMP=0?   
 48#2          STO   3  ACOMMUNE1(2) 
 48RL          STO   4  ACOMMUNE2(2) 
 49?=          STO   5  ACOMMUNE3(2) 
 49QW          STO   6  ACOMMUNE4(2) 
 4==G          STO   7  ACOMMUNE5(2) 
 4=Q6          EXIT  0  0
 4?9Q    #DEF MTACCUND=0?
 4?PB          LDX   3  ACOMMUNE1(2) 
 4#92          LDX   4  ACOMMUNE2(2) 
 4#NL          LDX   5  ACOMMUNE3(2) 
 4*8=          LDX   6  ACOMMUNE4(2) 
 4*MW          LDX   7  ACOMMUNE5(2) 
 4B7G          EXIT  0  0
 4BM6    #DEF MTPERI=0?  
 4C6Q          SBX   6  FX1  
 4CLB          LDX   5  AWORK1(2)           [UNIT NO 
 4D62          LOCK     2
 4DKL          LDX   1  CPPTR(2) 
 4F5=          GPERI    1,2  
 4FJW          COOR1 
 4G4G          UNLOCK   2
 4GJ6          ADX   6  FX1  
 4H3Q          EXIT  6  0
 4HHB    #DEF  MTREPLY=0?
 4J32          LDN   0  0
 4JGL          LDX   6  CPRW1(2)            [PICK UP REPLY WORD  
 4K2=          BNG   6  M5MTREPLY
 4KFW          SRL   6  18   
 4K^G          ANDN  6  #66  
 4LF6          BZE   6  M1MTREPLY           [OK IF ONLY B2,B5 OR NONE SET
 4LYQ          ANDN  6  4
 4MDB          BNZ   6  M4MTREPLY           [CHECKS B3 -FAILURE  
 4MY2          LDN   0  ANSSENT  
 4NCL    M1MTREPLY   
 4NX=          LDX   6  EXEC3(2) 
 4PBW          BNZ   6  M3MTREPLY
 4PWG    M2MTREPLY   
 4QB6          STO   0  EXEC3(2) 
 4QTQ    M3MTREPLY   
 4R*B          EXIT  1  0
 4RT2    M4MTREPLY   
 4S#L          LDN   0  ANSFAIL  
 4SS=          BRN      M2MTREPLY
 4T?W    M5MTREPLY   
 4TRG          GEOERR   1,MTREPLY
 4W?6    #NOR
</code>