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

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

**Used in:** [[george:source:DTREST860|DTREST860]], [[george:source:MTCHECK860|MTCHECK860]], [[george:source:PMDUMPMT85|PMDUMPMT85]]

<code - MTREAD.mac.txt>
 5PB# ...[??? MTREAD SECT FILE FGN 65 DOC
 5PL6    #MAC MTREAD 
 5Q5Q    #OPT MTREAD=0   
 5QKB    #SKI MTREAD 
 5R52    #SKI
 5RJL    (   
 5S4=          BRN      M1MTREAD 
 5SHW    #OPT MTPERI=0   
 5T3G    #SKI MTPERI 
 5TH6    #SKI
 5W2Q          MTMAC 
 5WGB    #OPT MTCENTREAD=0   
 5X22    #SKI MTCENTREAD 
 5XFL    #SKI
 5X^=          MTCENTREAD                   [READ X0 SIZED BLOCK 
 5YDW    #FRE MTREAD 
 5YYG    #DEF MTREAD=0?  
 5^D6          SBX   0  FX1  
 5^XQ          LDX   2  FX2  
 62CB          STO   0  ACOMMUNE6(2) 
 62X2          LOCKC    3,MNLOK2 
 63BL          CALL  1  MNLOK2   
 63W=          LDX   3  2
 64*W          LDX   2  FX2  
 64TG          CALL  0  MTACCDUMP
 65*6          LDN   0  GSBS                [512-WORD BLOCK  
 65SQ          CALL  4  MTCENTREAD          [READ INTO X3 BUFFER 
 66#B          UNLOCK   3
 66S2          CALL  0  MTACCUND 
 67?L          LDX   0  ACOMMUNE6(2) 
 67R=          ADX  0  FX1   
 68=W          EXIT  0  1
 68QG    MNLOK2  
 69=6          LDX   2  ACOMMUNE6(2) 
 69PQ          ADX   2  FX1  
 6=9B          MHUNTX   2,0(2)   
 6=P2          EXIT  1  0
 6?8L    M1MTREAD
 6?N=    )   
 6#7W          MHUNTW   3,%A,%B  
 6#MG          CALL  0  MTREAD   
 6*76    #HAL  +%B+%A,0  
 6*LQ    #NOR
</code>