Т > Startup )Т 6502 Tube Emulator written in BASIC ,Т v0.10 Initial program based on PDP11Em (+Т v0.11 &x3 opcodes interface with host 2&Т v0.12 Uses runpath for resources <2Т v0.13 Updated with same base code as PDPTube F+Т v0.14 Added more updates from PDPTube P-Т v0.15 Added command: PORT Z: d"bugfix%=ё:Т Error in OS_GetEnv n)Н ┘ Рpr:Ж:РClose_All:Я" at line ";·:Ю x@A$=єOS_GetEnv:ver$="0.15":debug%=0:РInit:A%=є_DEBUG(цdebug%) ┌SГbugfix%:Г░>&FFFFF:х≥ "GetCommandLine" ╦ name%:Гї$$name%,"bbcwin.exe")=0:A$="-" ▄Г A$="-":A$="" √quiet%=A$<>"" ═kГ A$="":Я"6502 Emulator v"ver$" (C)2006 J.G.Harston"'"Memory start: &"єh0(mem%,8)" MemSz: &"єh0(mz%,6) ╙WГ A$="":Я"Program space: &"єh0(mbot%,6)"-&"єh0(mtop%,6)" ";(mtop%-mbot%);" bytes"' ЄН ┘ РError:A$="" ЎГ A$<>"":A%=є_RUN(A$) хГ run%:РGo рГ quiet%:A%=є_QUIT("") эН ┘ РError:A$="" Ф*quiet%=╧:У Х ├"65Em> "A$:Рcmd(A$,╧):Щ0 ПЮ З: щРInit 5d$=".":s$="/":Гos%>6:d$="/":s$=".":Гos%=32:d$="\" %Гbugfix%:Г░>&FFFFF:run$=@dir$+"*" "Hrunpath$=run$:Г юrunpath$,1)="""":runpath$=аrunpath$,2,╘ runpath$-2) ,1У runpath$=юrunpath$):Щ їd$+":",бrunpath$,1)) 6RГos%=32:mx%=@vdu%!208:my%=@vdu%!212:mw%=@vdu%!216:mh%=@vdu%!220:mc%=@vdu%?73+1 @Kmz%=єmemsize:mm%=mz%-1:mtop%=mz%:mbot%=0:run%=ё:trace0%=0:trace1%=&FFFF J>ч ctrl% 31,name% 255,mem% mz%:zp%=name%:X%=ctrl%:Y%=X%│256 T+ra%=0:rx%=0:ry%=0:rp%=0:rs%=&1FF:rpc%=0 ^Fosw0%=ё:err%=&100:escflg%=&FF:prog%=&F800:iobase%=-1:memmax%=&F800 h;ч port%(7,1),port$(3):Ц A%=0 ╦ 1:С port$(A%):М:ports%=0 rэ 6850,6551 |Т Initial state: ├=Ъ"Load """+єf_name(runpath$+"TOS64")+""" "+ц~(mem%+&F800) ░DA%=mem%!&FFB7 ─ &FFFF:Ц B%=0 ╦ &35:mem%?(B%+&200)=mem%?(A%+B%):М /mem%!&F0=&800:mem%!&F4=&8000:mem%?escflg%=0 єРEscInit:А ў: ╦>щєmemsize:A%=2^╗(╙(⌠-▓-1024)/╙2):Г A%<&10000:=A% ▀ =&10000 б: л+щРError:X%=ctrl%:Y%=X%│256:Г і-1:run%=ё жKГ ╛run%:Рpr:Ж:РClose_All:Яю" at line "+ц·,÷<128 ─ ÷<>17):Г і-1:РRegDump ЮIГ ÷=25:Гrun%:Г os%=32:run%=ё:О 23,22,mx%;my%;mw%,mh%,mc%,128:run%=╧:А Й3Г ÷=17:mem%?255=255:rp%=rp%└(osw0%─1):osw0%=ё:А Т┼Г run%:mem%!err%=÷*256:A%=÷<128 ─ ÷<>17:$(mem%+err%+7)=ю"PDPEm: ",A%)+Ж$+ю" at line "+ц·,A%─(·>0))+Ґ0:rpc%=err%:Г÷=17:mem%?escflg%=&FF ЧА щРpr:Г?(╦P-3):А ▀ Я:А : 5щРcmd(A$,link%):У:A$=єs(A$):ГюA$,1)="*":A$=аA$,2) &(Щ юA$,1)<>"*" ─ юA$,1)<>" ":reset%=0 0Г A$=""└юA$,1)="|":А :1Т IF LEFT$(A$,1)="*":OSCLI MID$(A$,2):ENDPROC D:Г юA$,1)=".":Ъ "."+аA$,2)+юю"\",╘A$>2)+"*.*",os%=32):А N!Г юA$,1)="/":A$="RUN "+аA$,2) X7Г єuc(юA$,2))="FX":Г ╩аA$,3) └ (аA$,3,1)="0"):ЪA$:А b2A%=їA$+" "," "):C$=єuc(юA$,A%-1)):T$=аA$,A%+1) l_A%=ї" BASIC CORE DEBUG GO HELP LOAD MDUMP MDIS MEDIT QUIT RUN RESET SAVE PORT "," "+C$+" ") v Г A%:A%=═("FN_"+C$+"(T$)"):А ─A%=є_run(C$+" "+T$,link%):А ┼: ■<щє_HELP(A$):Я'"6502 Emulator ";ver$:Г єuc(A$)<>"6502":=0 ·iЯ" BASIC"'" CORE "'" DEBUG ( ( ))";Ґ8'" GO ()"'" HELP" ╗[Я" LOAD "'" MDUMP "'" MDIS "'" PORT ( )(?)" ╡1Я" QUIT"'" RESET ()"'" RUN " ╪>Я" SAVE |+ ( ())" ф=0 п: зщє_PORT(A$):Й B% Д.Г A$="?":Я"Types: "port$(0)", "port$(1):=0 Н Г A$="" ▄ ЬFЦ A%=0 ╦ 7:B%=port%(A%,0):Г B%:Я єh0(B%,4);": ";port$(port%(A%,1)) М:=0 м ":=0 B%=═("&"+єuc(юA$,A%))) *A$=єuc(єs(аA$,A%+1))) 4*A%=-1:У A%=A%+1:Щ A%=7 └ port%(A%,0)=0 >+Г port%(A%,0):┘ 220,"All ports used":=0 Hports%=ports%+1 R1Г A$=port$(0):port%(A%,0)=B%:port%(A%,1)=0:=0 \1Г A$=port$(1):port%(A%,0)=B%:port%(A%,1)=1:=0 f4Т IF A$=port$(2):port%(A%,0)=B%:port%(A%,1)=2:=0 p4Т IF A$=port$(3):port%(A%,0)=B%:port%(A%,1)=3:=0 z0ports%=ports%-1:┘ 220,"Unknown port type":=0 └: ▌щє_MDIS(A$):Й N%,P%,C% ≤-Рaddrs:P%=start%:N%=16:Г num%<2:size%=256 ╒(У:C%=16:УЯєh0(P%,4);" ";:A$=єdis(P%) ╛3Ц A%=0 ╦ N%-1:Яєh0(mem%!(P%+A%)─&FFFF,2);" ";:М І@Я ┴(15-3*N%);:Ц A%=0 ╦ N%-1:Яєc(mem%?(P%+A%));:М:Я┴(7-N%);A$ юRP%=(P%+N%)─&FFFF:C%=C%-1:size%=size%-N%:Щ C%=0 └ size%<0:Г size%>0:A%=╔ ▀ A%=0 йЩ A%=27 └ size%<0:=0 т: чщє_MDUMP(A$):Й N%,P%,C% Х-Рaddrs:P%=start%:N%=16:Г num%<2:size%=256 РУ:C%=16:УЯєh0(P%,4);" "; Э-Ц A%=0 ╦ N%-1:Яєh0(mem%?(P%+A%),2);" ";:М (Ц A%=0 ╦ N%-1:Яєc(mem%?(P%+A%));:М:Я RP%=(P%+N%)─&FFFF:C%=C%-1:size%=size%-N%:Щ C%=0 └ size%<0:Г size%>0:A%=╔ ▀ A%=0 Щ A%=27 └ size%<0:=0 $: .щє_MEDIT(A$):=0 8: Bщє_SAVE(A$) LРfname:Рaddrs V Г num%<2:┘ 252,"Bad address" `(Г start%>=0:start%=mem%+(start%─mm%) jNЪ "SAVE """+єf_name(F$)+""" "+ц~start%+"+"+ц~size%+" "+ц~exec%+" "+ц~load% t=0 ~: ┬щє_LOAD(A$) ▓#Рfname:Рaddrs:Г num%=0:load%=-1 °=є_load(F$,load%,╧) і: ╟!щє_QUIT(A$):Г ╩ A$:halt%=╧:=0 ╨=РClose_All:Т IF os%=32:PRINT"Press SPACE to exit";:A%=GET дЪ"QUIT":=0 н: ь0щє_BASIC(A$):Т =FN_RUN("<65Tube$Basic> "+A$) Б9Я"BASIC"':=є_RUN(""""+runpath$+єf_name("Basic")+"""") Л: Жщє_RESET(A$):ш:A%=-1 jТ IF FNuc(A$)="TUBE":IF client$<>"":OSCLI"Load """+client$+""" "+STR$~(mem%+&F800):memmax%=&F500:A$="" Т IF memmax%<&F800 THEN 1Т PRINT'$(mem%+&F805):A%=mem%!&F5FC AND &FFFF Т ELSE (6Я'"6502 Tube Emulator":Г A$<>"":A%=є_load(A$,-1,╧) 2Т ENDIF <.Т IF FNuc(A$)="NOTUBE":memmax%=&FF00:A$="" F%Я'"Econet Station 128"':Г A%<0:=0 PIhdr%=mem%+A%:Г hdr%!(hdr%?7)=&29432800:B%=hdr%+9:УО?B%:B%=B%+1:Щ?B%=0 ZГ hdr%-mem%=0:О11,11 dЯ':F$="":rp%=0:=є_go n: xщє_load(Ь F$,A%,F%) ┌in%=0:size%=0:Г A%=-1 ▄ ▄=in%=єf_openin(F$):Г in%=0:Г F%:F$=F$+s$:in%=єf_openin(F$) √Г in% ▄ ═'size%=╒#in%:Рgbpb(4,in%,hdr%,256,0) ╙2Г hdr%!(hdr%?7)=&29432800 ─ (hdr%?6 ─ 32)<>0 ▄ Є0A%=hdr%?7:УA%=A%+1:Щhdr%?A%=0:A%=hdr%!(A%+1) Ўл х1Г A%<0:Г ░<&FFFFF:х≥"XOS_File",5,F$,-1 ╦ ,,A% рм эл ФA%=-2:Т Not found Пм Зм 7Т IF A%<0:IF F%:IF in%=0:ERROR 214,"File not found" *Т IF A%<0 OR F%:IF in%:CLOSE#in%:in%=0 +Т IF A%<0:IF F%:ERROR 252,"Bad address" ""Г in%:Г F% └ A%=-1:ы#in%:in%=0 ,'Г A%=-2:Г F%:┘ 214,"File not found" 60Г A%=-1 └ (A%+size%>mm%):┘ 252,"Bad address" @1Г F%:Ъ"Load """+єf_name(F$)+""" "+ц~(mem%+A%) J=A% T: ^%щРsyscmd(cli$):Г os%<>32:Ъ cli$:А h%Й ch%,err$,tmp$:tmp$=@tmp$+ц▒+"." r-Й ┘:Н ┘ Й:В ┘:Г ÷=214:Ъ cli$:А ▀ ┘ ÷,Ж$:А |+Ъ cli$+" 2>"+tmp$:ch%=▌(tmp$):Г ch%=0:А ├@err$=Ў#ch%:ы#ch%:Ъ"Delete "+tmp$:Г бerr$,1)=",":бerr$,1)="." ░┘ 254,err$:А : єщє_RUN(A$) ўLГ ░<&FFFFF:х≥"XOS_File",5,A$ ╦ ,,A%:A%=A%─&FFF00:Г A%=&FFB00=є_BASIC(A$) ╦#Г ░<&FFFFF:Г A%=&BBC00:A%=&8000 б=є_run(A$,ё) л(щє_run(A$,osc%):A$=єs(A$):Г A$="":=0 жIC$=A$:Рfname:hdr%=zp%:A%=є_load(F$,-1,ё):Г A%<0:Г osc%:Рsyscmd(C$):=0 Ю"Г A%=-2:┘ 214,"File not found" Йrp%=1:=є_go Т щє_go Ч)Т A% = entry address as 6502 address /Т hdr%=>Acorn ROM header in mem%+A% address !Т in% =open file being loaded 7Т F$ =file being loaded or "" if already in memory &7Т membot%=base%:err%=memmax%:escflg%=err%+255:B%=A% 0,membot%=&800:err%=&100:escflg%=&FF:B%=A% :Г hdr%!(hdr%?7)=&29432800 ▄ DТ Acorn ROM header N<Г (hdr%?6 ─ 64)=0 :ы#in%:in%=0:┘ 249,"Not a language":=0 X:Г (hdr%?6 ─ 15)>3:ы#in%:in%=0:┘ 249,"Not 6502 code":=0 bFГ (hdr%?6 ─ 32)<>0:B%=hdr%?7:УB%=B%+1:Щhdr%?B%=0:B%=A%+hdr%!(B%+5) lм v:prog%=A%:Г prog%<&8000:memtop%=memmax% ▀ memtop%=prog% ─%load%=A%:rpc%=A%:Гin%:ы#in%:in%=0 ┼ РGo:=0 ■: фщє_GO(A$):Г A$="":=0 пQA%=&FF90:ГA$<>"":Гї"[(",юA$,1)):A%=єhex(аA$,2)) ▀ ГA$<>"":rpc%=єhex(A$):A%=-1 з(ГA%<>-1:rpc%=mem%?A%+256*mem%?(A%+1) Д)A%=їA$,";"):Г A%:A$=аA$,A%+1) ▀ A$="" Н*F$="":A%=rpc%:hdr%=mem%+A%:rp%=1:=є_go Ь: щє_CORE(A$):Т Dump core 8A$=єf_name(єs(юA$,їA$+" "," ")-1))):ГA$="":A$="core" $Ъ"Save "+A$+" "+ц~mem%+"+"+ц~mz% РSetType(A$,&FFD) *=0 4: >=щє_DEBUG(A$):ГA$="":Я"1=Register Dump"'"3=Single Step":=0 H7debug%=0:trace0%=0:trace1%=&FFFF:Г єuc(A$)="OFF":=0 R,debug%=═(A$):Г(debug%─1):Г ╪<9:У Я:Щ ╪>8 \9A%=їA$," "):Г A%:trace0%=єhex(аA$,A%+1)):A$=аA$,A%+1) f,A%=їA$," "):Г A%:trace1%=єhex(аA$,A%+1)) p=0 z: └щРSetType(A$,A%):Г os%>8:А ▌Ъ"SetType "+A$+" "+ц~A% ≤А ╒: ╛ щєhex(A$) ІCГєuc(юA$,2))="&O":=═("&"+єh0(єoct(аA$,3)),8)) ▀ =═("&"+єuc(A$)) ющєoct(A$):Й A%:У й0Г A$>"/" ─ A$<":":A%=A%*8+╩ юA$,1):A$=аA$,2) тЩ ╛(A$>"/" ─ A$<":"):=A% ч: ХщРfname РRГюA$,1)="""":A%=їA$+"""","""",2):F$=аA$,2,A%-2) ▀ A%=їA$+" "," "):F$=юA$,A%-1) ЭA$=єs(аA$,A%+1)):А : щРaddrs +num%=0:start%=0:size%=0:load%=0:exec%=0 $A$=єs(A$):Г A$="":А .,num%=їA$,"+"):Г num%=0:num%=їA$+" "," ") 8Wstart%=єhex(юA$,num%-1)):load%=start%:exec%=load%:A$=єs(аA$,num%)):num%=1:Г A$="":А B5Г юA$,1)="+":size%=0:A$=єs(аA$,2)) ▀ size%=start% LWnum%=їA$+" "," "):size%=єhex(юA$,num%-1))-size%:A$=єs(аA$,num%+1)):num%=2:Г A$="":А VQnum%=їA$+" "," "):exec%=єhex(юA$,num%-1)):A$=єs(аA$,num%+1)):num%=3:Г A$="":А `Gnum%=їA$+" "," "):load%=єhex(юA$,num%-1)):A$=єs(аA$,num%+1)):num%=4 jА t: ~SщРRegDump:Я"A=&"єh0(ra%,2)" X=&"єh0(rx%,2)" Y=&"єh0(ry%,2)" P=&"єh0(rp%,2);" "; ┬JЦ A%=7 ╦ 0 ┬ -1:Яа"-CZIDB5VN",(((rp%─(2^A%))<>0)─(A%+1))+1,1);:М:Я" " ▓&Я "XY=&";:РDumpLine(rx%+256*ry%):Я °Я " S=&";:РDumpLine(rs%):Я іЯ "PC=&";:РDumpLine(rpc%) ╟4A%=єDis_Code(65,rpc%,mem%+rpc%):Я$(X%+4);┴(56-╠) ╨9Т PRINT "2A=&";:PROCDumpLine(mem%!&2A AND&FFFF):PRINT д9Т PRINT "0B=&";:PROCDumpLine(mem%!&0B AND&FFFF):PRINT н9Т PRINT "39=&";:PROCDumpLine(mem%!&39 AND&FFFF):PRINT ь9Т PRINT "19=&";:PROCDumpLine(mem%!&19 AND&FFFF):PRINT Б#Т PRINT "15=&";FNh0(mem%?&15,2) ЛА Ж: "щРDumpLine(m%):Я єh0(m%,4)" "; 'Ц B%=m% ╦ m%+7:Я єc(mem%?B%);:М:О32 3Ц B%=m% ╦ m%+7:Я єh0(mem%?(B%─mm%)─&FF,2)" ";:М А (: 28щєdis(A%):N%=єDis_Code(65,A%,mem%+(A%─mm%)):=$(X%+4) <: F3щєc(A%):A%=A%─255:Г A%<32 └ A%>126:="." ▀ =Ґ A% P: Z"щРEscInit:esch%=esch%:Гesch%:А d Гos%=32 ▄ nCч P% 36, L% -1:[OPT 8:.escyes:mov byte [edi-1],0:mov eax,-1:ret x8.esch%:mov ecx,256:mov edi,[@vdu%-148]:mov al,27:cld ┌>repnz scasb:jz escyes:xor eax,eax:ret:.escb%:dw 0:dw 0:]:А ▄м √=ч esch% 31:Ц P=0 ╦ 1:P%=esch%:[OPT P*2:MOV R11,R11,LSL #1 ═SLDR R12,escb%:STRB R11,[R12]:MOV PC,R14:.escb%:EQUD mem%+escflg%:]:М:escho%=0:А ╙$щРEscOff:escho%=escho%:Гescho%:А ЄLГos%<>32:х≥ "OS_ChangeEnvironment",9,esch%,0,0 ╦ ,escho%,escRo%,escbo%:А Ў:Ъ"ESC OFF":escho%=╧:Н ▒ Г╨esch%:mem%?escflg%=&FF:Ь ▀ Ь хА р%щРEscOn:escho%=escho%:Гescho%=0:А эHГos%<>32:х≥ "OS_ChangeEnvironment",9,escho%,escRo%,escbo%:escho%=0:А ФН ▒ ┤:escho%=0:Ъ"ESC ON":А П: Ъ