MTMAC
(GIN Macro)
Defined in: DUMP-MACROS
Used in:
- 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