{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS RME10)}}
====== MACROS RME10 ======
(George Source)
22FL ...[??? QUICKUNL SECT FILE FGN 4 DOC
24D6 #
24XQ #MAC QUICKUNL
25CB DOWN CLOSEMT,3
25X2 #NOR
26BL ...[??? CONSERNO SECT FILE FGN 4 DOC
26W= ...#MAC CONSERNO
27*W ...#STR %A,0
27TG ... LDX 0 %A
28*6 ... LDX 2 FX2
28SQ ... STO 0 ACOMMUNE1(2)
29#B ...#STR %B
29S2 ...#SKI
2=?L ... LDN 0 0
2=R= ...#STR %B
2?=W ...(
2?QG ...#STR %C
2#=6 ...(
2#PQ ... LDN 0 %C+%D
2*9B ... STO 0 ACOMMUNE3(2)
2*P2 ...)
2B8L ...#STR %C
2BN= ...#SKI
2C7W ... STOZ ACOMMUNE3(2)
2CMG ... LDN 0 %B
2D76 ...)
2DLQ ... STO 0 ACOMMUNE2(2)
2F6B ... DOWN CONSERNO,1
2FL2 ...#NOR
2G5L ...[??? GET SECT FILE FGN 4 DOC
2TSL [ JUDITH SAWER LIBRARIAN MACROS
2W#= [THIS MACRO GETS A POOL TAPE OPTIONALLY. INPUT IS A FILE/FABSNB HOLDING
2WRW [DIRECTORY NAME AND THE LOCAL NAME TO BE GIVEN TO THE TAPE. THIS BLOCK W
2X?G [EXTENDED ON EXIT TO CONTAIN THE TSN.
2XR6 [IF THERE ARE NO POOL TAPES AVAILABLE, THE REPLY NOTAV IS GIVEN
2Y=Q #MAC GET
2YQB DOWN GET,2
2^=2 #NOR
2^FS ...[??? RETURNA SECT FILE FGN 4 DOC
2^PL [THIS MACRO RETURNS A TAPE TO THE POOL WHEN THE DIRECTORY IS CLOSED. THE
329= [DIRECTIRY ENTRY FOR THE TAPE IS ERASED AND :SYSTEM.SERIAL IS UPDATED.
32NW [%A = THE ADRESS OF A WORD CONTAINING THE TSN OF THE TAPE TO BE RETURNED
338G #MAC RETURNA
33N6 LDX 0 %A
347Q SMO FX2
34MB STO 0 EXEC1
3572 DOWN RETURN,3
35LL #NOR
35WD ...[??? RETURNB SECT FILE FGN 4 DOC
366= #MAC RETURNB
36KW DOWN RETURN,2
375G #NOR
37*# ...[??? CLOSETAP SECT FILE FGN 4 DOC
37K6 #MAC CLOSETAPE
384Q DOWN CLOSEMT,4
38JB #NOR
38S8 ...[??? UNLOAD SECT FILE FGN 4 DOC
3942 #MAC UNLOAD
39HL #STR %A
3=3= (
3=GW #STR %A,0
3?2G LDX 0 %A
3?G6 )
3?^Q #STR %A
3#FB #SKI
3#^2 LDN 0 0
3*DL LDX 1 FX1
3*Y= LDX 2 FX2
3BCW STO 0 ACOMMUNE1(2)
3BXG #STR %B
3CC6 (
3CWQ LDX 0 %B
3DBB STO 0 ACOMMUNE3(2)
3DW2 )
3F*L #STR %B
3FT= #SKIP
3G#W (
3GSG LDN 0 1
3H#6 STO 0 ACOMMUNE3(2)
3HRQ )
3J?B #STR %C
3JR2 (
3K=L LDX 0 %C
3KQ= STO 0 ACOMMUNE4(2)
3L9W )
3LPG #STR %C
3M96 #SKIP
3MNQ STOZ ACOMMUNE4(2)
3N8B BRN MUNLOAD1
3NN2 MUNLOAD2 +AMT%D+AMT%E+AMT%F+AMT%G
3P7L MUNLOAD1
3PM= LDX 0 MUNLOAD2(1)
3Q6W STO 0 ACOMMUNE2(2)
3QLG DOWN UNLOADMT,1
3R66 #NOR
3R*Y ...[??? TAPEOPEN SECT FILE FGN 4 DOC
3RKQ #MAC TAPEOPEN
3S5B #STR %B,0
3SK2 LDX 0 %B
3T4L LDX 2 FX2
3TJ= STO 0 ACOMMUNE3(2)
3W3W #STR %C
3WHG (
3X36 #STR %C,READ
3XGQ (
3Y2B #STR %C,WRITE
3YG2 ! %C SHOULD BE 'READ', 'WRITE' OR OMITTED
3Y^L )
3^F= )
3^YW #STR %C,READ
42DG #STR
42Y6 (
43CQ STOZ ACOMMUNE4(2)
43XB LDN 0 1
44C2 STO 0 ACOMMUNE5(2)
44WL )
45B= #STR %C,WRITE
45TW #STR
46*G (
46T6 LDN 0 1
47#Q STO 0 ACOMMUNE4(2)
47SB STO 0 ACOMMUNE5(2)
48#2 )
48RL #STR %C
49?= #STR
49QW (
4==G STOZ ACOMMUNE4(2)
4=Q6 STOZ ACOMMUNE5(2)
4?9Q )
4?PB BRN M2TAPEOP
4#92 ...M0TAPEOP +A%C+A%D+A%E+A%F+A%G+A%H+A%I+A%J+A%K
4#NL ...M1TAPEOP +E%C+E%D+E%E+E%F+E%G+E%H+E%I+E%J+A%K
4*8= M2TAPEOP
4*MW LDX 1 FX1
4B7G ADN 1 M0TAPEOP
4BM6 ADN 2 ACOMMUNE1
4C6Q MOVE 1 2
4CLB DOWN LIBSEC,4
4D62 BRN %A
4DKL #NOR
4DTD ...[??? MOCHAS SECT FILE FGN 4 DOC
4F5= #MAC MOCHAS
4FJW #STR %A
4G4G (
4GJ6 #STR %A,0
4H3Q LDX 0 %A
4HHB LDX 2 FX2
4J32 )
4JGL #STR %A
4K2= #SKI
4KFW (
4K^G LDX 2 FX2
4LF6 LDX 0 CPPTR(2)
4LYQ )
4MDB STO 0 ACOMMUNE1(2)
4MY2 LDN 0 1
4NCL STO 0 ACOMMUNE2(2)
4NX= DOWN MODE,2
4PBW #NOR
4PLN ...[??? MOCH SECT FILE FGN 4 DOC
4PWG #MAC MOCH
4QB6 #STR %A
4QTQ (
4R*B #STR %A,0
4RT2 LDX 0 %A
4S#L LDX 2 FX2
4SS= )
4T?W #STR %A
4TRG #SKI
4W?6 (
4WQQ LDX 2 FX2
4X=B LDX 0 CPPTR(2)
4XQ2 )
4Y9L STO 0 ACOMMUNE1(2)
4YP= STOZ ACOMMUNE2(2)
4^8W DOWN MODE,2
4^NG #NOR
4^Y# ...[??? MONICA SECT FILE FGN 4 DOC
5286 #MAC MONICA
52MQ DOWN MODE,3
537B #NOR
53C8 ...[??? FREEMT SECT FILE FGN 4 DOC
53M2 #MAC FREEMT
546L DOWN MODE,4
54L= #NOR
54W4 ...[??? TAPEWRON SECT FILE FGN 4 DOC
555W # THIS MACRO MARKS A TAPE AS TAPEWRONGED. AN AONBS/GLIST BLOCK IS
55KG # SET UP AND A1=0 IF THE TAPE HAS BEEN SUCCESSFULLY DEALT WITH.
5656 #MAC TAPEWRONG
56JQ #STR %A,0
574B LDX 0 %A
57J2 SMO FX2
583L STO 0 ACOMMUNE1
58H= DOWN TAPERING,3
592W #NOR
59=N ...[??? DEFMODE SECT FILE FGN 4 DOC
59GG # THIS MACRO ALTERS THE INITIAL MODE SETTING
5=26 # ON MAGNETIC TAPE DECKS
5=FQ #MAC DEFMODE
5=LY ...#STR %A,OFF
5=S6 ...(
5?YL #MEN SETUPA
5#D= ...#TRA K50SETUPA
5#XW LPROP 3,0
5*CG ANDN 0 #200
5*X6 ... BNZ 0 K51SETUPA
5BBQ #STR 800,%B
5BWB #SKI
5CB2 (
5CF6 ... JNOTMT21S 3,MSP4
5CJ= ... LDN 0 +ADMSS+ADMS%B
5CMB ... BRN MSP2
5CQG ...MSP4
5CTL LCAP 3,0
5D*= ANDN 0 #4
5DSW ... BNZ 0 MSP3
5F#G LDN 0 +ADMS+ADMS%A
5FS6 BRN MSP2
5F^# ...MSP3
5G6G ... LDN 0 +ADMSL+ADMS%B
5G?Q )
5G*# ...#STR 800,%B
5GBW ...(
5GDD ...#STR L,%A
5GG2 ...#SKI
5GHJ ...(
5GK6 ... JNOTMT21S 3,MSP1
5GLN ... LDN 0 +ADMSS+ADMS%B
5GN= ... BRN MSP2
5GPS ...)
5GRB MSP1 LDN 0 +ADMS%B+ADMS%A
5H38 ...)
5H?2 MSP2 STO 0 GEN0
5HQL SETMODEQ 3,GEN0
5J== LDX 0 GEN0
5JPW DFSET 3,SMODE,0
5K9G ... BRN K51SETUPA
5KP6 #END
5MP8 ...)
5MQQ ...#STR %A,OFF
5MS# ...#SKI
5MTW ...(
5MXD ...#MEN SETUPA
5NC4 ...#TRA K50SETUPA
5NWN ... LMODEQ 3,0
6H^W DFSET 3,SMODE,0
6JFG ... BRN K51SETUPA
6J^6 #GAP 50
6J^P ... SEGENTRY K51SETUPA
6K2# ...#END
6K2X ...)
6K3G ...#NOR
6K45 ...[??? RR71 SECT FILE FGN 4 DOC
6K4N ...#MAC RR71
6K5? ...#MEN TAPEWAIT
6K5W ...#TRA AMRR71
6K6F ... BRN ANRR71
6K74 ...#END
6K7M ...#STR %A,R
6K8= ...#SKI
6K8T ...(
6K9D ...#MEN REDONMT
6K=3 ...#TRA APRR71
6K=L ... +3
6K?9 ...#END
6K?S ...)
6K#C ...#NOR
6K*2 ...[??? MTINFORM SECT FILE FGN 4 DOC
6K*K ...#MAC MTINFORM
6KB8 ... INFORM 1,%A,1
6KBR ...#NOR
6KCB ...[??? MTREQUES SECT FILE FGN 4 DOC
6KC^ ...#MAC MTREQUEST
6KDJ ... INFORM 1,%A,0
6KF7 ...#NOR
6KFQ ...[??? JMTONL SECT FILE FGN 4 DOC
6KG* ...#MAC JMTONL
6KGY ... FINDPERE 1,APTSER,%A
6KHH ... LDX 2 FX2
6KJ6 ... BNG 1 M0JMTONL
6KJP ... JONL 1,M1
6KK# ... BRN M0JMTONL
6KKX ...M1 LJOBNO 1,0
6KLG ... LDX 1 FX1
6KM5 ...#STR %B
6KMN ...(
6KN? ... SBX 0 %B
6KNW ... BZE 0 %C
6KPF ...)
6KQ4 ...#STR %B
6KQM ...#SKI
6KR= ...(
6KRT ... SBX 0 JOBNO(2)
6KSD ... BZE 0 %C
6KT3 ...)
6KTL ...M0JMTONL
6KW9 ... LDX 1 FX1
6KWS ...#NOR
6KXC ...[??? CHANGEPE SECT FILE FGN 4 DOC
6KY2 ...#MAC CHANGEPER
6KYK ... LDN 1 CPPTR(%A)
6K^8 ... LDX 2 FX2
6K^R ... LDN 0 CPPTR(2)
6L2B ... MOVE 0 4
6L2^ ... STOZ CPPTR(2)
6L3J ... STOZ CPRW1(2)
6L47 ... STOZ CPRW2(2)
6L4Q ... STOZ CPRSW(2)
6L5* ... LDX 1 FX1
6L5Y ...#NOR
6L88 ...[??? MTPTR SECT FILE FGN 4 DOC
6LD2 #MAC MTPTR
6LXL #STR %A,%B
6MC= (
6MWW SMO %A
6NBG LDX %B CPPTR
6NW6 BNZ %B M0MTPTR
6P*Q SMO %A
6PTB LDX %B AWORK4
6Q*2 M0MTPTR
6QSL )
6R#= #STR %A,%B
6RRW #SKI
6S?G (
6SR6 SMO %A
6T=Q LDX 0 CPPTR
6TQB BNZ 0 M0MTPTR
6W=2 SMO %A
6WPL LDX 0 AWORK4
6X9= M0MTPTR
6XNW #SKI %B
6Y8G LDX %B 0
6YN6 )
6^7Q #NOR
6^CJ ...[??? SETMTONL SECT FILE FGN 4 DOC
6^MB #MAC SETMTONL
7272 MTPTR %A,%C
72LL DFJUMPN %C,REW,M0SET
736= STEPBAC1 ,FX2
73KW CAPCA
745G M1SET DFJUMPN %C,REW,M2SET
74K6 LGEOG %C,1
754Q LONGSET AREWT,M3SET,1
75JB LONGSTOP %D
7642 BRN M1SET
76HL M3SET GEOERR 1,WTSTYLE
773= M2SET RUNPROG
77GW M0SET MOD STO %C 1,%B
782G #SKI %A>2-2
78G6 (
78^Q LOCK %A
79FB MURDER %A
79^2 )
7=DL #SKI %A<3-3
7=Y= (
7?CW LDX %C %A
7?XG LOCK %C
7#C6 MURDER %C
7#WQ )
7*BB #NOR
7*L8 ...[??? SDSEARCH SECT FILE FGN 4 DOC
7*W2 # MACRO TO FIND AN ENTRY IN :SYSTEM.DOCUMENT
7B*L #MAC SDSEARCH
7BT= MAC1 STEP %D
7C#W #STR %A
7CSG #STR
7D#6 (
7DRQ BNZ 3 MAC5
7F?B GEOERR 1,NOSYSDOC
7FR2 MAC5
7G=L )
7GQ= #STR %A
7H9W BZE 3 %A
7H=^ ...#STR BOTH,%E
7H#4 ...(
7H*7 ... FSHCODE A,M1SDSEARCH
7HB= ...(
7HC* ... JBS MAC1,3,BNFSHMCB
7HDD ...M1SDSEARCH
7HFH ...)
7HGL ... FSHCODE B,M2SDSEARCH
7HHP ...(
7HJS ... JBC MAC1,3,BNFSHMCB
7HKX ...M2SDSEARCH
7HM2 ...)
7HN5 ...)
7HPG LDN 0 27
7J96 TXU 0 FRH(3)
7JNQ BCS MAC1
7K8B #STR NONS,%B
7KN2 (
7L7L BRN MAC2
7LM= MHDDR 4HHDDR
7M6W MAC2 SMO FX1
7MLG LDX 0 MHDDR
7N66 TXU 0 1(3)
7NKQ BCC MAC3
7P5B )
7PK2 #STR NAME,%B
7Q4L (
7QJ= LDX 0 1(3)
7R3W BNZ 0 MAC1
7RHG )
7S36 #STR NAME,%B
7SGQ #SKI
7T2B BRN MAC1
7TG2 MAC3
7T^L #STR N,%B
7WF= (
7WYW LDX 0 AMT%B(3)
7XDG #STR GEOG,%B
7XY6 #SKI
7YCQ ANDN 0 #777
7YXB TXU 0 %C
7^C2 BCS MAC1
7^WL )
82B= #STR N,%B
82TW #SKI
83*G (
83T6 MHUNT 2,FILE,FABSNB
84#Q ADX 2 HDREC(2)
84SB LDX 0 A1-6(2)
85#2 TXU 0 3(3)
85RL BCS MAC1
86?= LDX 0 A1-5(2)
86QW TXU 0 4(3)
87=G BCS MAC1
87Q6 LDX 0 A1-4(2)
889Q TXU 0 5(3)
88PB BCS MAC1
8992 LDX 0 A1-3(2)
89NL ANDN 0 #777
8=8= TXU 0 6(3)
8=MW BCS MAC1
8?7G LDX 0 A1-2(2)
8?M6 BZE 0 MAC4
8#6Q ANDN 0 #7777
8#LB ERX 0 7(3)
8*62 ANDN 0 #7777
8*KL BNZ 0 MAC1
8B5= MAC4
8BJW )
8C4G #NOR
8C## ...[??? SSEARCH SECT FILE FGN 4 DOC
8CJ6 # MACRO TO FIND AN ENTRY IN :SYSTEM.SERIAL
8D3Q #MAC SSEARCH
8DHB #ACC %B
8F32 (
8FGL LDX 0 %B
8G2= LDX 2 FX2
8GFW STO 0 ACOMMUNE7(2)
8G^G )
8HF6 #ACC %B
8HYQ #SKI
8JDB (
8JY2 SMO FX2
8KCL STO %B ACOMMUNE7
8KX= LDX 2 FX2
8LBW )
8LWG #STR %C
8MB6 (
8MTQ #SKI %C>511-511
8N*B (
8NT2 LDCT 0 %C
8P#L SRA 0 15
8PS= )
8Q?W #SKI %C<512$512
8QRG LDN 0 %C
8R?6 STO 0 ACOMMUNE9(2)
8RQQ )
8S=B #STR %C
8SQ2 #SKI
8T9L STOZ ACOMMUNE9(2)
8TP= DOWN LOCATE,3
8W8W #STR %A
8WNG TESTREP2 NOFILE,%A
8X86 #STR %A
8XMQ #SKI
8Y7B (
8YM2 TESTREP2 OK,M1SS
8^6L GEOERR 1,NOSYSER
8^L= M1SS
925W )
92KG STEPAGAIN %C
9356 #NOR
93#Y ...[??? SWITRACE SECT FILE FGN 4 DOC
93JQ #MAC SWITRACE
944B TRACE %A,%B
94J2 #SKI GSWITRAC
953L (
95H= STO 1 GEN0
962W CALL 1 M6SWI
96GG #OPT M0SWITRAC=1
9726 #SKI M0SWITRAC
97FQ (
97^B BRN M1SWITRAC
98F2 SUBSWIT
98YL STO 0 GEN1
99D= STO 1 GEN2
99XW BSOFF GSWITBIT,M3SWI
9=CG SBN 1 3
9=X6 LDX 0 0(1)
9?BQ SMO FX1
9?WB ANDX 0 M4SWI
9#B2 SMO FX1
9#TL ORX 0 M5SWI
9**= SMO FX1
9*SW STO 0 M2SWI
9B#G LDX 0 1
9BS6 SBN 0 2
9C?Q SMO FX1
9CRB LDN 1 M2SWI+1
9D?2 MOVE 0 2
9DQL LDX 0 GEN1
9F== LDX 1 GEN0
9FPW M2SWI +0
9G9G +0
9GP6 +0
9H8Q BRN (GEN2)
9HNB M3SWI LDX 0 GEN1
9J82 LDX 1 GEN0
9JML BRN (GEN2)
9K7= M4SWI #37777
9KLW M5SWI #77740000
9L6G M1SWITRAC
9LL6 #DEF M6SWI=SUBSWIT
9M5Q )
9MKB #FREE M0SWITRAC
9N52 #DEF M0SWITRAC=0
9NJL )
9P4= #NOR
9P#4 ...[??? SSCOR SECT FILE FGN 4 DOC
9PHW # MACRO TO DECREASE THE COUNT OF REQUESTERS
9Q3G # %B USED IN CASE OF FUTURE ENHANCEMENTS
9QH6 #MAC SSCOR
9R2Q LDX 0 5+%A
9RGB ANDN 0 #7777
9S22 BNZ 0 M0SSC
9SFL GEOERR 1,SERCOR
9S^= M0SSC SBN 0 1
9TDW DSA 0 5+%A
9TYG #NOR
9W8# ...[??? MTMERGPR SECT FILE FGN 4 DOC
9WD6 #MAC MTMERGPROP
9WXQ LDX 0 %B
9XCB ANDX 0 %C
9XX2 BNZ 0 %G
9YBL LDX 0 %D
9YW= ANDX 0 %A
9^*W BNZ 0 %G
9^TG LDX 0 %A
=2*6 ORX 0 %C
=2SQ STO 0 %E
=3#B LDX 0 %B
=3S2 ORX 0 %D
=4?L STO 0 %F
=4R= #NOR
=534 ...[??? ENTPROP SECT FILE FGN 4 DOC
=5=W #MAC ENTPROP
=5QG DOWN LIBPROPS,1
=6=6 #NOR
=6FY ...[??? MTEXPROP SECT FILE FGN 4 DOC
=6PQ #MAC MTEXPROP
=79B #STR %A,TAPE
=7P2 (
=88L #STR %A,DECK
=8N= ! %A INVALID
=97W LDN 0 2
=9MG )
==76 #STR %A,TAPE
==LQ #SKI
=?6B LDN 0 1
=?L2 SMO FX2
=#5L STO 0 ACOMMUNE1
=#K= DOWN LIBPROPS,2
=*4W #NOR
=*#N ...[??? MTCHAR SECT FILE FGN 4 DOC
=*JG #MAC MTCHAR
=B46 #STR %A,0
=BHQ LDX 0 %A
=C3B SMO FX2
=CH2 STO 0 ACOMMUNE1
=D2L DOWN LIBPROPS,3
=DG= #NOR
=DQ4 ...[??? STAPE SECT FILE FGN 4 DOC
=D^W #MAC STAPE
=FFG #STR %A
=F^6 (
=GDQ #STR %A,TRACK7
=GYB (
=HD2 #STR %A,TRACK9
=HXL (
=JC= #STR %A,PE
=JWW (
=KBG #STR %A,NRZI
=KHN ...(
=KNW ...#STR %A,GCR
=KW6 ! INCORRECT STANDARD SPECIFIED
=L*Q )
=LTB )
=M*2 )
=MSL )
=MXQ ...)
=N2W ...#STR %A,TRACK7
=N62 ...#STR
=N96 ...(
=N#= #MEND LIBPROPS
=NRW #TRA K9LIBPROPS
=P?G +HWP%A
=PR6 #END
=PRH ...)
=PRY ...#STR %A
=PS* ...(
=PSQ ...#STR %A,TRACK9
=PT7 ...#STR
=PTJ ...(
=PT^ ...#MEND LIBPROPS
=PWB ...#TRA K9LIBPROPS
=PWR ... +HWP%A
=PX8 ...#END
=PXK ...)
=PY2 ...#STR %A,PE
=PYC ...#STR
=PYS ...(
=P^9 ...#MEND LIBPROPS
=P^L ...#TRA K9LIBPROPS
=Q23 ... +HWP%A
=Q2D ...#END
=Q2T ...)
=Q3= ...#STR %A,NRZI
=Q3M ...#STR
=Q44 ...(
=Q4F ...#MEND LIBPROPS
=Q4W ...#TRA K9LIBPROPS
=Q5? ... +HWP%A
=Q5N ...#END
=Q65 ...)
=Q6G ...#STR %A,GCR
=Q6X ...#STR
=Q7# ...(
=Q7P ...#MEND LIBPROPS
=Q86 ...#TRA K9LIBPROPS
=Q8H ... +HWP%A
=Q8Y ...#END
=Q9* ...)
=Q9Q ...)
=Q=Q #NOR
??5S ...[??? ERASECOU SECT FILE FGN 4 DOC
??*L ...#MAC ERASECOUNT
??T= ...#STR %A
?##W ...(
?#SG ...#SKI %A>#7777$#7777
?*#6 ...#SKI
?*RQ ...(
?B?B ...#SKI %A<#100$#100
?BR2 ...#SKI
?C=L ...(
?CQ= ...#MEN OLMTD
?D9W ...#TRA K8OLMTD
?DPG ... LDN 0 %A
?F96 ...#END
?FNQ ...#MEN OLMTE
?G8B ...#TRA K8OLMTE
?GN2 ... LDN 0 %A
?H7L ...#END
?HM= ...)
?J6W ...)
?JLG ...#SKI %A>#7777$#7777
?K66 ...! ERASE COUNT TOO LARGE (>#7777)
?KKQ ...#SKI %A<#100$#100
?L5B ...! ERASE COUNT TOO SMALL (<#100)
?LK2 ...)
?M4L ...#STR %A
?MJ= ...#STR
?N3W ...! NO PARAMETER
?NHG ...#NOR
?P36 ...[??? JNOTMT21S SECT FILE
?PGQ ...#MAC JNOTMT21S
?Q2B ... MODD LDX 0 JK52B,%A,CPPTR(2)
?QG2 ... SLL 0 1
?Q^L ... BPZ 0 %B
?RF= ...#NOR
?RYW ...[??? MT21SMES SECT FILE
?SDG ...#MAC MT21SMES
?SY6 ... JNOTMT21S %A,MNOT
?TCQ ... HUNT 2,CPAR,GPERCON
?TXB ... BNG 2 MNOT
?WC2 ... LDX 0 A1+2(2)
?WWL ... ANDX 0 A1+1(2)
?XB= ... ANDN 0 #10
?XTW ... LDX 2 FX2
?Y*G ... BNZ 0 MNOT
?YT6 ... LGEOG %A,1
?^#Q ... OUTNUM 1,0
?^SB ... MONICA
#2#2 ... MHUNT 1,AONBS,GROT
#2RL ... OUTPARAM A1(1),A1+1,AONBS,GROT
#3?= ... MTINFORM HMT21S
#3QW ...MNOT
#4=G ...#NOR
#4Q6 ...[??? OUTMTPROP SECT FILE FGN 12
#59Q ...#MAC OUTMTPROP
#5PB ...#ACC %A
#692 ...(
#6NL ... LDX 0 %A
#78= ... SMO FX2
#7MW ... STO 0 ACOMMUNE1
#87G ...)
#8M6 ...#ACC %A
#96Q ...#SKI
#9LB ...(
#=62 ... SMO FX2
#=KL ... STO %A ACOMMUNE1
#?5= ...)
#?JW ... DOWN LIBPROPS,4
##4G ...#NOR
##J6 ...[??? MTSERSPD SECT FILE FGN 12
#*3Q ...#MAC MTSERSPD
#*HB ...#ACC %A
#B32 ...(
#BGL ... LDX 0 %A
#C2= ... SMO FX2
#CFW ... STO 0 ACOMMUNE1
#C^G ...)
#DF6 ...#ACC %A
#DYQ ...#SKI
#FDB ...(
#FY2 ... SMO FX2
#GCL ... STO %A ACOMMUNE1
#GX= ...)
#HBW ... DOWN LIBPROPS,5
#HWG ...#NOR
#JB6 ...[??? MTHWSER SECT FILE FGN 12
#JTQ ...#MAC MTHWSER
#K*B ... LDX %B %A
#KT2 ... ANDN %B HWPTRACK9
#L#L ... BZE %B M1MTHWSER [7-TRACK
#LS= ... LDX %B %A
#M?W ... ANDN %B 3
#MRG ... BZE %B M2MTHWSER [NOT PE,NRZI,GCR
#N?6 ... SBN %B 1
#NQQ ... BZE %B M3MTHWSER [NRZI
#P=B ... SBN %B 1
#PQ2 ... BZE %B M4MTHWSER [PE
#Q9L ... BSXD %B,GSERBGCR [GCR
#QP= ... BRN M2MTHWSER
#R8W ...M1MTHWSER
#RNG ... BSXD %B,GSERBTRA7
#S86 ... BRN M2MTHWSER
#SMQ ...M3MTHWSER
#T7B ... BSXD %B,GSERBNRZI
#TM2 ... BRN M2MTHWSER
#W6L ...M4MTHWSER
#WL= ... BSXD %B,GSERBPE
#X5W ...M2MTHWSER
#XKG ...#NOR
#Y56 ...[??? MTHWSPD SECT FILE FGN 12
#YJQ ...#MAC MTHWSPD
#^4B ... LDN 0 #400
#^J2 ... ANDX 0 %A
*23L ... BZE 0 M1MTHWSPD
*2H= ... LDN 0 HWPTRACK9
*32W ... ANDX 0 %A
*3GG ... LDN %B GLIBTRA7
*426 ... BNZ 0 M2MTHWSPD
*4FQ ... LDN %B GLIBTRA9
*4^B ... BRN M2MTHWSPD
*5F2 ...M1MTHWSPD
*5YL ... LDN 0 HWPTRACK9
*6D= ... ANDX 0 %A
*6XW ... LDN %B GLIBTRA7
*7CG ... BZE 0 M4MTHWSPD
*7X6 ... LDN 0 3
*8BQ ... ANDX 0 %A
*8WB ... LDN %B GLIBTRA9
*9B2 ... BZE 0 M4MTHWSPD
*9TL ... SBN 0 1
*=*= ... LDN %B GLIBNRZI
*=SW ... BZE 0 M4MTHWSPD
*?#G ... SBN 0 1
*?S6 ... LDN %B GLIBPE
*#?Q ... BZE 0 M4MTHWSPD
*#RB ... LDN %B GLIBGCR
**?2 ...M4MTHWSPD
**QL ... LDN 0 #140
*B== ... ANDX 0 %A
*BPW ... BZE 0 M2MTHWSPD
*C9G ... ANDN 0 #100
*CP6 ... BZE 0 M5MTHWSPD
*D8Q ... ORN %B GLIBFAST
*DNB ... BRN M2MTHWSPD
*F82 ...M5MTHWSPD
*FML ... LDN 0 GLIBTRA7
*G7= ... ANDX 0 %B
*GLW ... BZE 0 M2MTHWSPD
*H6G ... ORN %B GLIBSLOW
*HL6 ...M2MTHWSPD
*J5Q ...#NOR
*JKB ...#MAC MTINITIAL
*K52 ...#UNS JMODGCR
*KJL ...(
*L4= ...#STR %A
*LHW ...(
*M3G ...#STR %A,PE
*MH6 ...(
*N2Q ...#STR %A,NRZI
*NGB ...(
*P22 ...#STR %A,GCR
*PFL ...! INCORRECT MODE SPECIFIED
*P^= ...)
*QDW ...)
*QYG ...#STR %A,PE
*RD6 ...#STR
*RXQ ...(
*SCB ...#MEND SETUPA
*SX2 ...#TRA K40SETUPA
*TBL ... LDN 5 HWP%A
*TW= ...#END
*W*W ...)
*WTG ...#STR %A,NRZI
*X*6 ...#STR
*XSQ ...(
*Y#B ...#MEND SETUPA
*YS2 ...#TRA K40SETUPA
*^?L ... LDN 5 HWP%A
*^R= ...#END
B2=W ...)
B2QG ...#STR %A,GCR
B3=6 ...#STR
B3PQ ...(
B49B ...#MEND SETUPA
B4P2 ...#TRA K40SETUPA
B58L ... LDN 5 HWP%A
B5N= ...#END
B67W ...)
B6MG ...)
B776 ...)
B7LQ ...#NOR
B86B ...[??? TWDUMP SECT FILE FGN 13
B8L2 ...#MAC TWDUMP
B95L ...#UNS JDUMPTW
B9K= ...(
B=4W ...#STR %A
B=JG ...(
B?46 ...#STR %A,ON
B?HQ ...#STR
B#3B ...(
B#H2 ...#MEND LIBCOM
B*2L ...#TRA K40LIBCOM
B*G= ... NULL
B*^W ...#END
BBFG ...)
BB^6 ...#STR %A,OFF
BCDQ ...#STR
BCYB ...(
BDD2 ...#MEND LIBCOM
BDXL ...#TRA K40LIBCOM
BFC= ... BRN K41LIBCOM
BFWW ...#END
BGBG ...)
BGW6 ...)
BH*Q ...)
BHTB ...#NOR
^^^^ ...172143170015