MTSKIP
(GIN Macro)
Defined in: DUMP-MACROS
Used in: DTREST860, DTSCAN860, PMDUMPMT85
- 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