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

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

**Used in:** 

<code - MTCENTREAD.mac.txt>
 5BLJ ...[??? MTCENTRE SECT FILE FGN 65 DOC  
 5BWB    #MAC MTCENTREAD 
 5CB2    #FRE MTCENTREAD 
 5CTL    #DEF MTCENTREAD=0?  
 5D*=          SBX   4  FX1                 [A CENTRAL SR TO READ A BLOCK WHOSE  
 5DSW          LDX   1  CPPTR(2) 
 5F#G          DCA   1,STO,0,COUNT   
 5FS6          LDN   0  0
 5G?Q          DCA   1,DLA,0,MODE
 5GRB          LDN   0  A1(3)
 5H?2          DCA   1,STO,0,CTSA
 5HQL          ANSOK2
 5J==    M2MTCENT
 5JPW          CALL  6  MTPERI              [READ THE BLOCK  
 5K9G          CALL  1  MTREPLY             [CHECK REPLY FROM PERI   
 5KP6          TESTREPN2 SENT,M3MTCENT      [J IF OK OR FAIL 
 5L8Q          LDCH  6  CPRW1(2)            [FORMAT ERR IF LONG BLOCK
 5LNB          ANDN  6  2
 5M82          BNZ   6  M2MTCENT            [IF NOT - READ QUAL BLOCK
 5MML    M3MTCENT
 5N7=          ADX   4  FX1  
 5NLW          EXIT  4  0
 5P6G    #NOR
</code>