Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: utzoo!mnetor!uunet!husc6!rutgers!ucla-cs!zen!ucbvax!decvax!decwrl!sun!imagen!atari!portal!cup.portal.com!Aron_Fingers_Nelson From: Aron_Fingers_Nelson@cup.portal.com Newsgroups: comp.sys.ibm.pc,comp.lang.pascal,rec.music.synth Subject: mpu -401 Uart mode pascal routines Message-ID: <724@cup.portal.com> Date: Sun, 20-Sep-87 05:45:28 EDT Article-I.D.: cup.724 Posted: Sun Sep 20 05:45:28 1987 Date-Received: Mon, 21-Sep-87 00:36:28 EDT Organization: The Portal System (TM) Lines: 141 Xref: mnetor comp.sys.ibm.pc:8055 comp.lang.pascal:301 rec.music.synth:1477 XPortal-User-Id: 1.1001.2065 This is Turbo Pascal code for the MPU-401 and IBM-pc. This uses the MPU in "dumb" mode. It can be and has been used for a MIDI synth librarian and MIDI filter. Use it for your own MIDI projects.. Correct mistakes and return to me! ( hah hah!!! ) Seriously, this file can be used for a MIDI librarian. This file is UUEncoded. ------------------- CUT HERE --------------------------------------------- begin 644 mpu.arc M&@A-4%4N24Y#`"4E)24EXQ```#0/PQ'K%&DG```,>T@D`1&G3AF#+M*X&=.G M@0*'>T#T@"0!!(@F4*J`&/*&3!D09M[(`4$'S<>,&A),R;.;PO*FBH8*(=^2DH4.G3$^%(*C4D2/F3/4 M85^/9A26(>,B*AK#!`T:W#R&SN'#3]W`J3-73!TS9LJ,O&.R9\G3;^;,Q4U' M3AZ%9UQ;I&-UCE,R(,A81OR&.$FKST',R>.F9&W!'S%JO).&#=)5I1]=MD34V%VIX*33<7`B&\5YWWVVF6AY-@5#>7'F4 M!T(;=4@'PAB1C09"$$PPT9APYE6H8&QR2!>";1_55>-<<(PVG1DDH397>A+& M.%YC>,&QDQCXL>&?&P!^5.%>"AY1!AT5(JE>&SZ"X%1Y9Z!Q'@AK0,E8298Y MJ!X:Y;$!WA@FC;$&2"+]UV&64#VG8&>?A:9B:;L5"!X4Q.&)UQQ!,J6"2%1^9I$@A1U&9$$DQ048046H8T$F%MO&$'=IL9 MR-ME=GPDX!RP5J@9.I84V1S`Y7%'&'FXH*`*S/KTA*DS-6O1%D;4L=!E0UVK:Y579@EG&7)V>ZYN'ZD*(@.9GKNX!3TT"PK.:VW,1\Y<,YTC;;K9D)^B)@<9QQ(&`@H5T_&%&3NU M\0425Z10&R0&_/60`GV591&SS4Y1<&=;!5G@76,JX=A&0/&4!M4@5*R8''F? M44<:XBV4[H"N0<+`$#XJ!\(4<+[!AAZ$*[14&GEO=89(2Z'1!EXJ0!+!3#6] M+;<2H?F7@V9MO:7@1$DH^!-C09!!QN<\S:%#Y!#`=Q5A[7V[$\=D3/618K-Y MZ(:3JGTT!D\/25!((,UN[+9%##PPT)!$N4D<<75V#U!12$$1N]H,0G M,<<72WU1H;+FHZ\^^^Z#'[>\`Q[`,$@,KRK/'/AW$PB`KPA8,)44G,"BEBQO-L[#"VH^MAJG;,9W MT2M?"9.P$#F@``164%%/=/"BIE1L)"G8`0A,0#PBT,R'0!0B"(BH$"-:+HG$ M0X($#8:P=7E'>6]@7@PWXS42P0DD6&G*2-#4DR'V(#$@6`%;B%>%+QHAC5]P MV9%TAJO'-"A+S7O,'.CX13WR3&=55$X8>N.Q^#!N<`(BPPB)1P5NT4$^.J2( M8'"CI##"T&O[*AE>=%:@%0UA":I9Y)S(]H8VK.LB&:'@3220!B`M14M0FDM( M5$8&?]GPEM[Q#2RK\(4RX,$PPO16=78CDLA)P`Q;\0X)SQ>$GA0!#V'PXT?> M`"0VGL+/DN#F6#9+4WJNYQ&Z<-!."D)@&13H(?/P$S&$*5B:0@F' M6($'-6XX0\\FJ"'O*$6$(&"#8Y9BF8&&X':06()#W.:0FBJ`(VZ0CG:($`0J M!`$*3Y`"%20"`A+,8`8PV(%VIN!3*@!5J$0UZ@QBH%3S'8`(4IA"5'&05(M$ M)$L))(-_O!5)L43NJE)`U1M)0(.N@N"K1PKK6#5&LXY]S"@W.4`03AE5(Q1! MB6\=IBE1B=>^C*I4IR*J#&I``\!&Q%N'56%%BS,NO.22+@5J2@%[XBZSPJTO M4BC"%(HPU+X:H:H@J$(0A/J%)CR!"$6(Z@S,4-4@RD$[5'!,&;[P!.+($@3I M6U_[[B=`^?52.Q?,W\L^*Y]B'E,Z>"%B530W43=4U2'P\V3SO$8H.A#A2"AH MPB.%,"X=X*L,2;R)`>367;SPY"/G'9-\:O,$5+K-MA;!@G3'554AE.$,"E%0 M8X#47&,B$R]OA&90Q&E#`],!M7W!PA3?F%0!9W2B=#BKA'7P1BB(A`Y;8&I/ MGTJ%+J`6$@>HY=>PJE5U82$%/8!!Y!3@-/\"^&'FB\"&._SA+?#4IR0V<>0B MH&()\\`'((AL8N/&)'U"$`9T8`3MNR8=!$.*F!AFP<@OKY;P< MU*&ZK2\]:T]]OB9A=6%5"C!V:]S,HK++<.7-LVHDZP3L845Q^<<_+7,7)GR1 M\?+W:V8I:Y;.#((JDZ&J*5O90)\F-E::#6U3W%!3E!B1L(VR;((UBFT%C(7? M6D2\OR-O4\S+7P&/+H-'DFX$4V1=`;O!U%'1+6^)\P6.U#G3B3QB?_\;8`6H MN,#/%6:"H\G@GCBXJA>VC(*R7.'/YGHRNQ:;KY/'81!4NR^YQ79OY])M!7L' MPL#]WW#?%S\"$MK<94`WJM.@ZH]T^]L6B7:&S8=E0O=Y+ET>L:#!;!8QB]BI M99Y;ZVZ"`!6;+`]*&F#TWKC,9H/`QL6^R0C"O=MQ$[KB)QY!<`%(W';GD.)R M,$C(GQTY$3CZRAS/=J_+P^TWSJ$.8Q@#"F+^H2]*8S[NF?\:R3&` M@=+7U9/5W#AR)B`ZK[=-;@J?..JZ]GBW00[U5^LOUBA7.=2_@^XZKQD%4?8H M"%@,8V^GP$,CV7G6S1-V],K;T!WJ]K__W--`"U7(UCXVWC]RY"232K(U)C:. M;Q*"L(VM;%]``V.Z/>]ZG[CQ`/HZS[:>\GA'S@,O=XC9N>+U+-6]JJ%70*09 MV3*H58;5F_9JX:YT&$UO$TA9LK1@ZQ0%G'EVU-8&0:D%7/EQ9?J\PWYZ\(^= M$><>F*CP9KJ7COE@`:LX"DKSS[(7+.#$*_\F"S`D8KH=-DM'@=.S%^9[;0\2 M4+L+KY!80')AO?G31RX!CO82]\V7`(PO/O[B1VB.9VEG&_H%TAMX!]8@2MGX`:3D3SPQP+SIWGCMWWG%H$*&$`F!QZ< M)W;FPP(L9SXJD'K@-W1S-Q<.Z#0AF"7EQFR?!Q1?E(-@1Q*==V+X9V4.D7K8 M]4+;]1'?Q3,H@%_%MVKGE5Z(1FGNI1CLIWOSM6<*@%_ZA7P"-E1$9'D.`8'! M)X8QAFX#-DS.!UW0QVS2]X)H1FUJJ&\WX0%RPP01U%$NT(=CIR$/IR6#Z&Y_R#99MGLH7WI2+Z97MJ M*(9%]%_*D7P9!VZ$AF\6P7S$9&!N2((6)X<1=HYU6`8:M6_J-8F]>'#`&'RA M.(K@\69QIH:4J(^"1FC+V(R/9F'TB&&18P`5$F6?*(F\J"B^"&0#UY":>',Y MAP*>J(;]V`-[M02H&'=#A71*!P-!)XQ*Z#P@L1^54B&U-1K:L6'>6(:*=U;J MV(;*AD8+5HA+<6('P"L-@G8H\&^5&&1OYV:F2%0H&1YO<'_X2)&`]F7J%683 M]8^_F'!NHY+:Q9)2P"U7(A^'"`%R$UJC-53R,2:+1"NV4AD=PH5>N%^;9I/? MMX;(]GSNZ)/5]UGZ1FH3"7`$>8G6!R1IIY1PQI1GY30#269_1V@D8`2GY9=Z MUXM3>9&?M8A8`)*GA'I&J`##^$D?44G2(99S9ANXL4&74CVO1",FTDG$:#U; M$1G@L8TC01%R8U#=8DFC5">EE)9NLV%@:&PZ$&SC2)?EF([RJ)#UV)`J-C@^ M\$9)=Y*)62UF>!,-\&IO@`=Y@`)(Q0))%Y$-D!1+408H,`(WP`(GD);O-!<\ M)!VQ.1M]>`+@B9W:R9TPX)TQ`)[BV10HD)X9D60JPWHYM7:&T22S$0+R>6(- MX!&BL9U(Y8H*>I=NN(,+IJ!R*#DR*#E1"9B,66(GQ@`J5IBD")!,*7V+*7"- MV6UF25H?NJ%\9Y&":3X@VFT:J7-I\(E]@9F:N01J**'"M(*>IP"IMWHLTQ-W M)!UYY'KCAWRR5T*1B,X$\)JN5&:,6(8-@])IQX01)0`5?P"),`&&CNGAH)IJ7E!&' M*`%[T!0FHC/R0:T$X3D/=A,4$!$$BQ?H(K`G6'(2IZJ(&F^!90:B(5*?JCP/ MZUEHYJU?T$`4>FX,UVGBDS?0NDWF(;!&X))HT(1AX%@46R(F@4[@DGN@EI8" M.R''2`8H4`<^\@6MXA'I!0D(\%55&A8\ZV<_>ZS:X:J):!8PX0#7E$V0\1$3 M,0(T]3:N"9HDH9MN62)590P)0T*`7<;<# M<3WML1/V83EF@J`XFF\+*6WF0V-!0VCB=V+&!B1`R#,W6"V)RY%!@YX@<+B= MFX#JAH(/VP,5IY<>J69<,;8=]48/BGZ*$5!T41]<811,B[8W&7PODC^QR6DD M8B(>I!652R#%H7ANP$!`TDEG@#AM(+#^ZAM=.P=5]1W\4Q8S!0D6X!/PI#/A M5",S4:H.H1%04&1,1>3029FLAE581Y+<2-)<`*N1#"P@B8!TDH?<05IH`>C\5&J M9#GT81^J::!CDK@.@1B))`9A`"4H\(\I+SVH:#SB[/(N+,]F[3I MY2W@DI959!6J!55).TT-L,>%,AXH$,@80HI9HDR?8K?]VT!P\&&*/+]A`Y-C M$C8[@QBZM\20^R+?LF7T8SX-(#5S<@8CRQ44&P9G@!>EBQCJTK"%FH*;_$7Q M$Y;_J3.]?!DA]4IIZ2U/K%)2?!&O502[G#-XU,E[5"<3,Z6!!`?@&SF+_$4O M^Y+98A4H,E%K5,G_:4RGP>7_UE`<>=`>P MV1.@C!CD7$YND!S(PS&%\P;8<2,:\;N6L\8OI0`TH0$:"%%5155%+DE.0P`E M)24*!```-`_/$0FA?P<```P-%`1$H0)$&C=SZ,BI,X9.FC<(09AY(P<$'31E M0(Q)(V=,'39A*D:I4X8DB(04PYPIHP,$E3MO0!QA\T9,‑Z9`R)DQCEE MZ+`("**HF8]L6/1T0P9$F39PZ.1Q`<((4H,\TYBQB!'$R)(9T_`TDX8-FS)- M[Z2Y"(),&#IAE(9A2K3HTZAYBHH%<0>C&ZX9OYI$$X:GFYANX;JH"Z+)$R)5 MF!29HH,H)`51#JX%T5).&:!T>%[,".?-03IEY/",0N<-G*5-HXAY0V>Q`A"7 MHQPUR_EDT+%76UM3K/*URAR>-FDI>Q?&`E'3-R MWK2)TML[3X@9Q>1!+3%\&Z\D27*'4\>A&_)%6](/;=Q-^O5A_278=@+=!LD! MPM4!%`C>@2<>>62I1H=&-^'4'%3/S=74&!B-L89!6TW7@W4$XG:`5L.9-$:% M#`:56!@&_055'2X<-(9%,7D61E,.OH?$%4JA.!UR;"AG(()^@:`CC^[!!Y9M MW"6XX'X'0M!9)2!1Z\@P."""[I.6L:PMQ4UX!?%9N1K2'*$D<<6 MF3&E;!?&;57FM+G&5\874)CF!FH5^>K%M53DL2>U=H24+EB]7=ON::E16Y17 MLPG%FFLZ`+R2'#L411"K[L++TZP!!01%>&.@58=G7FE&![5KGG$08P33QIFO M,0@\\,&OZ8"RRD4Y4<8=*`R80L-[J*"S"A6^L2)[;3Q%41X[Z]Q'0'R20:U5 M;C3TD(!?]C;;&V?-!7(9(I-JH`$HLLRL;":W`((,42:Y)6\NIUCB@644&5C4 M:6?G-K5)+UU'TPY!Y-60+4U=M1M79\W8PZ"B4'/!((C-<@H@M/%&;+N6P3C* M15%\9-<%]\!RV7SNC6%>:9/(7=L+7HC7R:&BJT#=`3'MM-X-ND=>WP`&/G*U M`\?^(.H#>@%NP2O$T`7,UB*>]N$FKP!"#(P[#KFT=#-%[<4^:\PQE?>A<"/M MJ-WL<$'8D\=A&1Z.==P9--F$4]0)O:6@K+0J$/+M`X-Z-DZ^BG[DJ(1B33\D M#[C#I5"#@A/LS$DFL0IO#GB"FUGF`YY7(->QA27#"$$``A2?$D`I%D`+\'M@[<+4&#N1* 1VQ@$!@D/2@]I1RQ00#0`&@`` ` end -------------------- END UUE FILE ---------------------------- Good Luck in MIDI programming!!! aron_fingers_nelson@cup.portal.com