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

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

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

<code - MTSKIP.mac.txt>
 6*WJ ...[??? MTSKIP SECT FILE FGN 65 DOC
 6B6B    #MAC MTSKIP                        [SKIP TO TAPE MARK AND READ A BLOCK  
 6BL2    #OPT MTSKIP=0   
 6C5L          MHUNT    3,%A,%B  
 6CK=    #SKI MTSKIP 
 6D4W    #SKI
 6DJG    (   
 6F46          BRN      M1MTSKIP 
 6FHQ    #OPT MTPERI=0   
 6G3B    #SKI MTPERI 
 6GH2    #SKI
 6H2L          MTMAC 
 6HG=    #OPT MTCENTREAD=0   
 6H^W    #SKI MTCENTREAD 
 6JFG    #SKI
 6J^6          MTCENTREAD
 6KDQ    #FRE MTSKIP 
 6KYB    #DEF MTSKIP=0?  
 6LD2          SBX   0  FX1  
 6LXL          LDX   2  FX2  
 6MC=          STO   0  ACOMMUNE6(2) 
 6MWW ...      LOCK     3
 6NBG          CALL  0  MTACCDUMP
 6NW6    M5MTSKIP
 6N^J ...#SKIP          JAUTSKIP 
 6P3? ...(   
 6P52 ...      JENVNOT  M9MTSKIP,DME 
 6P6P ...      LDX   1  CPPTR(2) 
 6P8D ...      JBS      M8MTSKIP,1,AUTSKIPTM 
 6P=7 ...M9MTSKIP
 6P?W ...)   
 6P*Q          LDX   1  CPPTR(2) 
 6PTB          DFJUMPS  1,DUMP,M3MTSKIP     [USE READS NOT SKIP IF DUMP BIT SET I
 6Q2J ...#SKIP           JAUTSKIP
 6Q7Q ...M8MTSKIP
 6Q*2          LDN   0  4
 6QSL          BRN      M4MTSKIP 
 6R#=    M3MTSKIP
 6RRW          LDN   0  1
 6S?G          DCA   1,STO,0,COUNT   
 6SR6          LDN   0  ACOMMUNE9(2) 
 6T=Q          DCA   1,STO,0,CTSA
 6TQB          LDN   0  0
 6W=2    M4MTSKIP
 6WPL          DCA   1,DLA,0,MODE
 6X9=          CALL  6  MTPERI              [SKIP TO TAPE MARK   
 6XNW          ANSOK2
 6Y8G          CALL  1  MTREPLY             [CHECK REPLY FROM PERI   
 6YN6 ...      TESTREP2 FAIL,M7MTSKIP       [READ QUAL BLOCK UNLESS  
 6^7Q                                       [FAIL REPORTED   
 6^MB          DCA   ,LDEX,0,MODE
 7272          SBN   0  4
 72LL          BZE   0  M6MTSKIP 
 736=          LDCT  0  #020                [CHECKT/M BIT IF USING READS 
 73KW          ANDX  0  CPRW1(2) 
 745G          BZE   0  M5MTSKIP 
 74K6    M6MTSKIP
 754Q          LDN   0  20                  [BLOCK SIZE  
 75JB          CALL  4  MTCENTREAD          [READ QUALIFIER BLOCK
 7642    M2MTSKIP
 76HL ...      UNLOCK   3
 773=          CALL  0  MTACCUND 
 77GW          LDX   0  ACOMMUNE6(2) 
 782G          ADX   0  FX1  
 78G6          EXIT  0  0
 78J* ...M7MTSKIP                           [TRY MODE 4 IF MODE 0 FAILS  
 78KS ...      LDX   1  CPPTR(2)            [X1 -> DEVICE LIST   
 78M? ...      DCA     1,LDEX,0,MODE        [X0 => MODE OF PERI  
 78NR ...      SBN   0  4                   [
 78R2 ...      BZE   0  M2MTSKIP            [J IF LAST PERI WAS MODE 4   
 78T9 ...      LDN   0  4                   [SET MODE
 78XD ...      BRN      M4MTSKIP            [J TO ISSUE PERI 
 78^Q    M1MTSKIP
 79FB    )   
 79^2          CALL  0  MTSKIP   
 7=DL    #NOR
</code>