[net.sources] CP/M emulator for the Nec v20

john@monuxa.UUCP (John Ruschmeyer) (02/04/86)

Since there has been so much interest lately in the NEC v20/v30 chips, I
thought some of you might find this useful. It's a little utility to run
CP/M programs using the v20's 8080 emulation mode.

I found this on a BBS, so the usual caveats apply. Running the program with
no parameters will give instructions.

What follows is not a shar, it is a uuencoded binary. Therefore, you should
uudecode it and download it to your system using some program such as
kermit, umodem, or sb. (NOTE: don't forget to set whatever options are
needed for BINARY transfers.)

Have fun...

----------------------- Cut along dotted lion -------------------------------
begin 755 v2080.com
MZ<@%5V%T8V@@:70@;F]W+"!N;R!P965K:6YG+@T*_P\-"@T*#0H-"@T*#0H-
M"@T*#0H-"@T*#0H-"@T*#0H-"@T*#0H-"@T*#0H-"@T*#0H@(" @(#8T2R @
M5C(P+3@P($-094UU;&%T;W(@(%9E<G-I;VX@,BXP,B!A<R!O9B!/8W1O8F5R
M(#<L(#$Y.#4-"B @(" @(" @(" @0V]P>7)I9VAT("AC*2 Q.3@U("!5+E,N
M($1)1TE404P@0V]R<&]R871I;VX-"@T*5&\@<G5N(&$@<')O9W)A;2P@='EP
M92 B5C(P.# @1DE,14Y!344B(&%T('1H92!-4T1/4R!P<F]M<'0@*$-032!P
M<F]G<F%M<R!A<F4-"F%S<W5M960@=&\@:&%V92!A(&9I;&5N86UE(&5X=&5N
M="!O9B N0U!-*2X@(%5S92!O9B!T:&ES('!R;V=R86T@<F5Q=6ER97,@=&AA
M= T*82!.14,@5C(P(&-H:7 @8F4@:6YS=&%L;&5D(&EN('1H92!C;VUP=71E
M<B!I;B!P;&%C92!O9B!T:&4@.# X."!-4%4N("!4:&ES#0IW:6QL(&%L;&]W
M('EO=2!T;R!R=6X@.# X,"!B87-E9"!#4$TM.# @<')O9W)A;7,@;VX@>6]U
M<B!-4T1/4R!M86-H:6YE("AW:71H:6X-"FAA<F1W87)E(&%N9"!S;V9T=V%R
M92!L:6UI=&%T:6]N<RDN("!$25-#3$%)3452.B!5+E,N($1I9VET86P@;6%K
M97,@;F\-"G=A<G)A;G1I97,@;W(@8VQA:6US(&]F('1H92!F:71N97-S(&]F
M('1H:7,@<')O9'5C="!F;W(@86YY('!A<G1I8W5L87(@<'5R<&]S92X-"BA!
M<R!A;'=A>7,L(&UA:V4@8F%C:W5P<R!B969O<F4@=')Y:6YG(&%N>71H:6YG
M(2D-"@T*3D]424-%.B!5<V5R<R!O9B!T:&ES('!R;V=R86T@87)E(&=R86YT
M960@82!L:6UI=&5D(&QI8V5N<V4@=&\@;6%K92!C;W!I97,-"F]F('1H:7,@
M<')O9W)A;2!F;W(@=')I86P@=7-E(&)Y(&]T:&5R<R!O;B!A('!R:79A=&4@
M;F]N+6-O;6UE<F-I86P@8F%S:7,N#0I4:&ES(&QI;6ET960@;&EC96YS92!D
M;V5S(&YO="!I;F-L=61E("TM#0HQ+B!$:7-T<FEB=71I;F<@=&AI<R!P<F]G
M<F%M(&EN(&-O;FYE8W1I;VX@=VET:"!A;GD@;W1H97(@<')O9'5C= T*,BX@
M36%K:6YG('1H92!P<F]G<F%M(&%V86EL86)L92!F;W(@86YY(&-O;G-I9&5R
M871I;VX@;W(@(F1I<VL@9F5E(@T*,RX@1&ES=')I8G5T:6YG('1H92!P<F]G
M<F%M(&EN(&UO9&EF:65D(&9O<FTN("!4:&%N:R!Y;W4@9F]R('EO=7(@8V]O
M<&5R871I;VXA#0H-"DEF('EO=2!H879E(')E8V5I=F5D('1H:7,@<')O9W)A
M;2!A;F0@9FEN9"!I="!O9B!V86QU92P@>6]U<B D,S4@8V]N=')I8G5T:6]N
M#0IW:6QL(&)E(&%P<')E8VEA=&5D+B!);B!E>&-H86YG92P@=V4@=VEL;"!S
M96YD('EO=2!T:&4@;&%T97-T(')E;&5A<V4L#0IA(&UA;G5A;"P@86YD(&$@
M8V%T86QO9R!O9B!O=7(@;W1H97(@9FEN92!P<F]D=6-T<RX-"B @(" @1F]R
M(&UO<F4@:6YF;W)M871I;VX@<&QE87-E(&-A;&P@*#4P,RD@-C4T+3 V-C@@
M;W(@=W)I=&4-"E4N4RX@1&EG:71A;"!#;W)P;W)A=&EO;BP@-38X-R!3+D4N
M($EN=&5R;F%T:6]N86P@5V%Y+"!-:6QW875K:64L($]2(" Y-S(R,@T*_[R1
M((S(CMCIQ@M3;RP@>6]U<B!L;V]K:6YG(&%R;W5N9"!I;G-I9&4@:&5R92!A
M<F4@>6]U/R!4<VL@='-K('1S:RXN+@T*22!H;W!E('1H870@>6]U(&%R92!N
M;W0@=&AI;FMI;F<@;V8@<W1E86QI;F<@;7D@8V]D92X-"O_-((+Z '01H"G\
M//]T"X+Z/74LQ@8I_/_#H"O\//]T#X+J(/["B!8M_,8&*_S_PX+J((HV+?RT
M K  NP  S1#&!B?\ ,8&*?P Q@8K_ ##@.)_@#XG_/]TJ8+Z '0F@OH;=#&"
M^AIT'8+Z'G0;@OH+=!F"^A=T%X+Z&'05@OH,=1GIYP##Z:4 Z;0 Z<$ Z7H 
MZ5X Q@8G_/_#4K0#L "[  #-$(D6+_Q:M ;-(;0#L "[  #-$(L>+_R"_@!T
M)X+^&'(.@O\8<@F"^@!T!3K3= '#M >P +D  +8 LD\NBCX? <T0P[8!M *P
M +L  ,T0P[0#L "[  #-$+  M 8NBCX? 8O*LD_-$,/HY/^T [  NP  S1"T
M!BZ*/A\!L "+RO[%L0"V&+)/S1##M :P +D  +88LD\NBCX? <T0M *P +8 
ML@#^QKL  ,T0P[0#L "[  #-$/[.@OX =0+^QK0"L "[  #-$,.P +0#NP  
MS1#^PH+Z4'("_LJT K  NP  S1##@CX7_ !U$K0&LO_-(3P =!,D?Z(6_*(=
M_+#_HA?\HA_\Z0( L  *P,."/AG\ '4=M .Z  #-%"0!=.FT KH  ,T4)'^B
M&_RB'?SI  "P_Z(9_*(?_.G._X(^%_P =0;HGO_I\__&!A_\ ,8&%_P H!;\
MPX(^&?P =0;HK/_I\__&!A_\ ,8&&?P H!O\P[0!BL*Z  #-%,.T!<TAPX#B
M?X(^,?P = OHRP \ '4$Z*H P^@$ .BC ,.@ P D W1</ %T6SP"=%KH5 #I
M3@""/C'\ '0&Z , Z?\ H , ) -T-#P!=#,\ G0OZ", "L!U)>DE * # "0#
M=!4\ 704/ )T$.@- (K@4.@$ %@*Q,/I[?[I$__I/__I5__IJ?WI;/_I<_^@
M P D#'3J/ 1TZ3P(=.+IXO^@ P D,'3>/!!TW3P@=-SIUO^@ P DP'3,/$!T
MRSR =,KIQ/]2Z)7_@CX?_ !T#8(^'?P3=0;H7O_H6_]:PX+Z '0@@OH%=!N"
M^AIT%H+Z?W01@OH)=0^R(.@*_Z C_"0'=?2P ,."^@UU%L8&(_P Z2$ @CXC
M_ !T&OX.(_SI$P""^@AT[8+Z('()@OI_= 3^!B/\@#XA_/]U!5+H<_]:L/_#
M/']T'3P(=! \"70,/ IT"#P-= 0\('()4E"*T.BD_EA:PT]H(&1E87(L('EO
M=2!A<F4@;&]O:VEN9R!A<F]U;F0@:6X@:&5R93\@4VEG:"XN+@T*5&AA="!D
M;V5S(&YO="!B;V1E('1O;R!W96QL($D@=V]U;&0@=&AI;FLN($ET(&ES(&)E
M9VEN;FEN9PT*=&\@;&]O:R!T;R!M92!L:6ME('EO=2!A<F4@:6YT96YD:6YG
M('1O('-T96%L(&UY(&-O9&4N#0I3:6=H+BXN($YO=R!)(&%M(&=E='1I;F<@
M9&5P<F5S<V5D+BXN#0K_!AY65U5245/&!C'\ .@:_@K GUM96EU?7A\'Z2P,
M!AY65U5245/&!C'\ .C6_9];65I=7UX?!^D0# 8>5E=54E%3Q@8Q_ "*T>B'
M_9];65I=7UX?!^GR"P8>5E=54E%3BM'&!C'\ .@5_I];65I=7UX?!^G4"P8>
M5E=54E%3BM'&!C'\ .CE_9];65I=7UX?!^FV"P8>5E=54E%3Q@8Q_ #HM_V?
M6UE:75]>'P?IF@L&'E9755)14[0 S1.?6UE:75]>'P?I@@L&'E954E%3BM&(
M%C?\M Y2S2%:.M"[C?QR!_F[  #I @ *P(O[GUM96EU>'P?I4@OI:@#I9P &
M'E9755)14XD.$/R+T;0:S2%;65I=7UX?!^DO"^E' .E$  S_G^DC"XOY1^D=
M"U.W (K8@/L2B_M;<RO1YR[_I=P,  U*!TH'FPNY"]4+\PL1#"\,2PQC#),,
ME@PX'+8,N0R\#,(,/HMV %!2L@VT LTAL@JT LTAL@>T LTA6ECHMPP>4U",
MRX[;NC<-M G-(5A;'^@B"^B%"^D3^B \+2!);G9A;&ED($))3U,@8V%L;" J
M*BH'#0HD06YD('EO=2!R96%L;'D@<VAO=6QD(&YO="!B92!S;F]O<&EN9R!A
M<F]U;F0@:6X@:&5R90T*_SZ+=@!04K(-M +-(;(*M +-(;('M +-(5M84(K$
MZ"D,6!Y34(S+CMNZQ@VT"<TA6%L?Z),*Z/8*Z83Y(#PM($EN=F%L:60@0D1/
M4R!F=6YC=&EO;B!C86QL("HJ*@<-"B1)(&1O(&YO="!S=7!P;W-E(&%S:VEN
M9R!Y;W4@;FEC96QY('1O(&YO="!S=&5A;"!M>2!C;V1E#0IW;W5L9"!M86ME
M(&%N>2!D:69F97)E;F-E('=O=6QD(&ET/PT*).D]_U95!AZ*X<8&.?P L "W
M (K<@/LF<^?1XR[_IY .S2&"/CG\ '004%-14HL6$/RT&LTA6EE;6!^+^PK 
MGP==7NE5"4H',Q ^$$D05!!?$'40ZP_U#Y40SA!J$$8/+@\*$-P.Z Y.#WX/
M:P[N#@8/'@]K#@$0:PXW#R,0/@\^#SX/*Q ^#_X.%@_K#FL.*0]3B]K'1PX 
M %OI@__I@/_I??_&!CG\_\TA/ -U K  Z6__Q@8Y_/_I9?_&!CG\_U.+VL9'
M#0!;Z57_Q@8Y_/_I3?]3B]K&1PX 6^E"_[0-Z3W_QP8E_ $ Z33_B180_.DM
M_[  NP  Z2?_L"*[(@#I'_]65XOROSW\N3  \Z1?7HOZ@GT,/W0+@GT, '0%
ML/_I# !2NCW\'LTA'^@F %KI[_Y2NCW\B_J"?0P_= N"?0P = 6P_^D( ![-
M(1_H! !:Z<W^4E-0BQX0_+0/B]/-(8L>$/S&!P#&1PP BT<2/0  =2:+1Q ]
M_S]S'@/ / !T O[$B&</4X/#$+ 0Q@< 0_[(=?A;6%M:P[2 Z>7_H , BMBW
M .EX_HK$BMBW *(# .EL_HL>)?R*P^EC_HK"NP$ _LAR!='#Z??_"QXE_(D>
M)?SI2/Z[G?R*P^E"_KN-_(K#Z3K^Q@8Q_/_H9/GI+_[&!C'\_^@H^>DD_L8&
M,?S_Z*7YZ1G^Q@8Q_/_HK/GI#O[&!C'\_^BS^>D#_L8&,?S_Z%/YZ?C]Q@8Q
M_ " ^O]T!NCL^.GH_>@]^3P =0/IWOWH#?GIV/W&!C'\_XO:BA>"^B1T"5/H
MQ_A;0^GP_^F^_8 V(?S_Z2@ Z)P!Z;#]Z)8!Q@8S_ #I%P#HQ0#I$0"+VD/&
M!P"@(_RB,_S&!C7\ %)34<8&,?P Z+7X65M:)'\\"G3$/ UTP#Q_=&$\"'3)
M/!5T$SP8="4\$G0V/ 5TKCP0=)SIX@"P(^@+ >@X >A" <8' ,8&-?P Z;/_
MH"/\.@8S_'0&Z'H Z?'_Q@< Z9[_Q@8U_ "P(^C; .@( >@2 8(_ '0#Z'8 
MZ8/_@C\ ="SH7@!0Z+X 6/X// ET$3P@<P6"!C7\ H(&-?P"Z5__H"/\) =U
M K (  8U_.E/_X(_ '0<@CXC_ !T%8(^-?P = GH# #^#C7\=?#H P#^#\.P
M".AO + @Z&H L CH90##45.U (H/ ]F*!UM9PU%3B@]#B@?H30#^R77V6UG#
M48H.(_R X0>P""K!_LA9  8U_+ )Z1  / ETY#P#=0B"/P!U ^E"]?X'45.U
M (H/ ]F(!UOH#@"*#SI/_UES ^F\_NF1_E)345 \#709/ IT%3P)=!$\"'0-
M/"!S"5"P7NCB_U@,0,8&,?S_BM#H'?=865M:PU"P#>C*_[ *Z,7_6,.@(_PZ
M!C/\= BP(.BU_^GO_\-7:&%T(&EF($D@=V5R92!T;R!P=70@82!(15@@;VX@
M>6]U/PT*_[I.#K!AM"7-(;K(#+!BM"7-(;X" (L<4[Y< +^1&KD0 /.D6[H 
M XS9 ]&.PHO"!0 0.\-R.BO#4+ -Z$,$L KH/@2P!^@Y!+!;Z#0$L"WH+P18
M4(K$Z. &6.C<!K PZ!\$C,N.V[I0$[0)S2'I/_3I@0!3=&EL;"!W:71H('5S
M(&%R92!Y;W4_("!3:6=H+"!A;F0@22!H860@<W5C:"!H:6=H(&AO<&5S(&9O
M<B!Y;W4N#0I=("HJ*B!);G-U9F9I8VEE;G0@=7-E<B!M96UO<GD@879A:6QA
M8FQE('1O(')U;B!P<F]G<F%M("HJ*@<-"B2^N!J_  "Y  'SI+ZY&[\&[+D$
M /.DOKT;OP#ZN8  \Z2^\!N_ /NY@ #SI((^FAH@=0_&!IH:0\8&FQI0Q@:<
M&DV^D1J_ /ZY) #SI([:NX$ +J"  #P =$(NB@<\('4+0R[^#H  =#/IYO\N
MB@<\('0+0R[^#H  ="'I[O\NH(  HH  OX$ +HH'B 5#1R[^#H  =?+&!0#I
M!@#'!H    #&!A?\ ,8&&?P Q@8A_ #&!B/\ ,8&)_P Q@8I_ #&!BO\ ,<&
M)?P! +09S2'^P+L! /[(= ;XT=/I]O\)'B7\NYW\L0#&!P!#_LEU^+0PS2$\
M '4ZQP:-_"  Q@:/_ /&!I#\!\8&D?P QP:2_*  QP:4_#\ Q@:6_,#&!I?\
M ,<&F/P0 ,<&FOP" .DW ,<&C?PD ,8&C_P#Q@:0_ ?&!I'\ ,<&DOQG <<&
ME/P_ ,8&EOS Q@:7_ #'!IC\$ #'!IK\ @"AEORCG?RT [  NP  S1""_AAR
M'U*P ;0&N0  MA>R3RZ*/A\!S1!:MA>T K  NP  S1"[ ?Z*!SP@=1N,R([8
MNR !BA> ^O]T"K0"4\TA6T/I[__I_/&T#[H _LTA"L!U ^G3 + -Z+L!L KH
MM@&P!^BQ ;H _NA; 8S+CMNZ?Q6T"<TAZ<OQ(#PM(%1H870@<')O9W)A;2!N
M86UE(&1O97,@;F]T(&5X:7-T("HJ*@T*)%!E<G-I<W1A;G0@;&ET=&QE(&1E
M=FEL(&%R96XG="!Y;W4_#0HDL WH1P&P"NA" ; 'Z#T!N@#^Z.< C,N.V[KS
M%;0)S2'I5_$@/"T@5&AA="!P<F]G<F%M(&ES('1O;R!B:6<@=&\@<G5N("HJ
M*@T*)$%S(&ES('EO=7(@:&5A9"X-"B2+'A+^"]MUF8L>$/Z!^P#L<X^)'@[^
MN@ !B180_(L6$/RT&LTAN@#^M!3-(;M< +DD ,8' $-)=?FY$ "[; "_7  N
MB@>(!4-'277VNX$ B@Z  (H'/"!U T/^R0K)="B*!SP@= ;^R4/I\/]#_LET
M%X(_('3VOVP C-Z.QHOSL "T*<TAZ7( Q@9L  "Q"[MM ,8'($/^R77XZ5T 
M4U)1B]J*!T,\ '4&M!G-(?[ #$#H.0"P.N@T +D) (H'0TET#CP@= ;H) #I
M\/]#277\2[ NZ!< N00 B@=#270*/"!T!N@' .GP_UI;6<-045**T+0"S2%:
M65C#Z9$ 4VEG:"XN+B!9;W4@<F5A;&EZ92!D;VXG="!Y;W4@=&AA="!Y;W4@
M87)E(&-A=7-I;F<@;64@=&\@;&]S90T*9F%I=&@@:6X@>6]U+B!)="!I<R!M
M;W)E('1H96X@<VEM<&QE(&-U<FEO<VET>2!F;W(@>6]U('1O(&AA=F4-"F=O
M='1E;B!T:&ES(&9A<BX-"KJ  (D6$/RT&LTAO;W]QP:]_0#ZQ@84_ "Z  &P
M8+0ES2&^  $/_V#/(#PM($EN=F%L:60@3W!E<F%T:6]N($-O9&4@96YC;W5N
M=&5R960@*BHJ!PT*)$]++"!S;6%R='DL('1H96X@=&5L;"!M92!W:&5N(&1O
M97,@=&AA=%X@;65S<V%G92!E=F5R(&%P<&5A<BX-"E!14E=655,>C,N.V[IO
M&+0)S2$?6UU>7UI96,,-"B!00R @($%&(" @0D,@("!$12 @($A,(" @4U @
M(" H4U I(" H4U M,BD@3U M,B!/4"TQ($]0($]0*S$@3U K,B!/4"LS)%"<
M4U%255=655-245!6L@VT LTAL@JT LTA7HO>Z.@ 6(K\BMCHX !9B]GHV@!:
MB]KHU !;Z-  78O=Z,H LBBT LTA/HM> (K'Z,X BL?HR0"R*;0"S2&R(+0"
MS2&R*+0"S2$^BUX"Z+  BL/HJP"R*;0"S2&R(+0"S2&R*+0"S2&*1/WHDP"R
M*;0"S2&R(+0"S2&R*+0"S2&*1/[H>P"R*;0"S2&R(+0"S2&*1/_H:0"R(+0"
MS2&R*+0"S2&*!.A8 +(IM +-(;(@M +-(;(HM +-(8I$ >A  +(IM +-(;(@
MM +-(;(HM +-(8I$ N@H +(IM +-(;(@M +-(5Y?75I96YU8PU:*Q^@- (K#
MZ @ M *R(,TA7L-04E.*V-#+T,O0R]#+@.,/Z!H BM-0M +-(5B*V(#C#^@*
M (K3M +-(5M:6,."PS""^SIR X+#!\-/;F-E(&UO<F4@;7D@9F%I=&@@:6X@
M:'5M86YI='D@:&%S(&)E96X@<')O=F5N('=R;VYG+@T*16YJ;WD@>6]U<B!T
M<FEP('1H<F]U9V@@=&AE(&-O9&4_#0H-"E1H:7,@<')O9W)A;2!W87,@=W)I
M='1E;B!B>3H@36EK92!$87D-"B0                                 
M                  ## _J4 ,,&[   BS#"  4 ,!  .\/' '*2\B_M ,, 
M*\, ,%  L W+ .B"\B?M  RP"@#HL(+R(NT L ?+ .B"\AWM  RP6P#HL(+R
M&.T L"W+ .B"\A/M #-8   @("#$ .BSM_@,[0!8 "SHM_@([0"P,C  Z(+R
M ^WP  ",R\, CML ++IQ\@   +0P"0#-(<  Z3_T_    .F\8?+R[   4P!T
M:6QL "!W:70 :"!U<P @87)E "!Y;W4 /R @4P!I9V@L "!A;F0 ($D@: !A
M9"!S '5C:"  :&EG:  @:&]P &5S(&8 ;W(@>0!O=2X-/PH     72 J*@ J
M=NWM8<G# /O#!OO##/O#$OO#&/O#'OO#)/O#*OO#,/O#-OO#//O#0OO#2/O#
M3OO#5/O#6OO#8/L^ >WM8LD^ NWM8LD^ ^WM8LD^!.WM8LD^!>WM8LD^!NWM
M8LD^!^WM8LD^".WM8LD^">WM8LD^"NWM8LD^"^WM8LD^#.WM8LD^#>WM8LD^
M#NWM8LD^#^WM8LD^$.WM8LD^$>WM8LE7:71H('5S('1O('1H92!B:71T97(@
M96YD(&AU:#\@66]U(')E86QL>2!D:7-A<'!O:6YT(&UE+@T*) C&!IWR"P!-
M_    +ZPG?(   "_ ##^ +DD,P  \P \I   CC_:     [N!  #, "X H R 
M   \,0  =/CQ%^S, "X BC ' #P@QP!UZ/$0[  S0P N  #^#H  QP!T^/$(
M[  #Z>;_ /,  "X #(H' #PQ( !TV/'^Z\P 0P NP #^#H Q  !T^/'VZ\  
MZ>[__    "[  *"  ,  HH  P "_@0#S   N  R*!P"(,P4 0P S1P N  #^
M#H  PP!U\@ #Q@4  "_IN/'5ZP   ,<&@  /     ,( Q@9$_0  ,   Q@:,
MR_P     QB,&A?H     ",8&P/H                                 
M                                                            
L                                                            
 
end

schuler@gondor.UUCP (David W. Schuler) (02/06/86)

> Since there has been so much interest lately in the NEC v20/v30 chips, I
> thought some of you might find this useful. It's a little utility to run
> CP/M programs using the v20's 8080 emulation mode.
>
> I found this on a BBS, so the usual caveats apply. Running the program with
> no parameters will give instructions.

Could you also post the documentation for this program?  The only instructions
tell how to run the program.  Without documentation, I don't know how much
(or how little) this program will do.

--------------------------------------------------------------------------
David W. Schuler           {akgua,allegra,ihnp4}!psuvax1!gondor!schuler
Penn State University      schuler%gondor@penn-state.csnet
602 Sproul Bldg.           schuler%psuvaxg.bitnet@wiscvm.arpa
University Park, PA        {akgua,allegra,ihnp4}!psuvax1!tvw@psuvma.bitnet
                           schuler@gondor.uucp : schuler@psuvaxg.bitnet
--------------------------------------------------------------------------
Are you a turtle?