MACROS RME10
(George Source)
- MACROS RME10.txt
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