Т > 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: %PН ┘ Ж:РClose_All:Я" at line ";·:Ю NZA$=єOS_GetEnv:ver$="0.13":debug%=0:РInit:A%=є_DEBUG(цdebug%):quiet%=A$<>"" │dГ A$="":Я"6502 Emulator v"ver$" (C)2006 J.G.Harston"'"Memory start: &"єh0(mem%,8)" MemSz: &"єh0(mz%,6)" MemMsk: &"єh0(mm%,6) WnГ A$="":Я"Program space: &"єh0(mbot%,6)"-&"єh0(mtop%,6)" ";(mtop%-mbot%);" bytes"' xН ┘ РError:A$="" ┌Г A$<>"":A%=є_RUN(A$) ▄Г run%:РGo √Г quiet%:A%=є_QUIT("") !═У Х ├"65Em* "A$:Рcmd(A$,0):Щ0 ╙Ю Є: ЎщРInit 5хd$=".":s$="/":Гos%>6:d$="/":s$=".":Гos%=32:d$="\" Hрrunpath$=run$:Г юrunpath$,1)="""":runpath$=аrunpath$,2,╘ runpath$-2) 1эУ runpath$=юrunpath$):Щ їd$+":",бrunpath$,1)) RФГos%=32:mx%=@vdu%!208:my%=@vdu%!212:mw%=@vdu%!216:mh%=@vdu%!220:mc%=@vdu%?73+1 3Пmz%=єmemsize:mm%=mz%-1:mtop%=mz%:mbot%=0:run%=ё QЗч ctrl% 31,name% 79,zp% 7,mem% mz%:trace0%=0:trace1%=&FFFF:X%=ctrl%:Y%=X%│256 +ra%=0:rx%=0:ry%=0:rp%=0:rs%=&1FF:rpc%=0 -osw0%=ё:err%=&100:escflg%=&FF:prog%=&F800 Т Initial state: ="Ъ"Load """+єf_name(runpath$+"TOS64")+""" "+ц~(mem%+&F800) D,A%=mem%!&FFB7 ─ &FFFF:Ц B%=0 ╦ &35:mem%?(B%+&200)=mem%?(A%+B%):М /6mem%!&F0=&800:mem%!&F4=&8000:mem%?escflg%=0 @РEscInit:А J: >Tщєmemsize:A%=2^╗(╙(⌠-▓-1024)/╙2):Г A%<&10000:=A% ▀ =&10000 ^: +hщРError:X%=ctrl%:Y%=X%│256:Г і-1:run%=ё MrГ ╛run%:Ж:РClose_All:Яю" ("+ц~B%+") at "+ц·,÷<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%=ё:А P░Г run%:mem%!err%=÷*256:$(mem%+err%+2)=Ж$+Ґ0:rpc%=err%:Г÷=17:mem%?escflg%=&FF А є: CўщРcmd(A$,link%):Г A$<>"":Г юA$,1)=" ":У A$=аA$,2):Щ юA$,1)<>" " ╦Г A$=""└юA$,1)="|":А бГ юA$,1)="*":Ъ аA$,2):А лГ юA$,1)=".":Ъ "."+аA$,2):А !жГ юA$,1)="/":A$="RUN "+аA$,2) 7ЮГ єuc(юA$,2))="FX":Г ╩аA$,3) └ (аA$,3,1)="0"):ЪA$:А 2ЙA%=їA$+" "," "):C$=єuc(юA$,A%-1)):A$=аA$,A%+1) OТA%=ї" BASIC CORE DEBUG GO HELP LOAD MDUMP MDIS MEDIT QUIT RUN "," "+C$+" ") ЧГ A%:A%=═("FN_"+C$+"(A$)"):А A%=є_run(C$+" "+A$,╧):А : <щє_HELP(A$):Я'"6502 Emulator ";ver$:Г єuc(A$)<>"6502":=0 b&Я" BASIC"'" CORE "'" DEBUG [ [ ]]"'" GO ()"'" HELP" T0Я" LOAD "'" MDUMP "'" MDIS "'" QUIT"'" RUN " :=0 D: !Nщє_MDIS(A$):Й N%,P%,C%:РEscOn 5XP%=═("&"+A$):У:C%=16:УЯєh0(P%,4);" ";:A$=єdis(P%) -bЦ A%=0 ╦ N%-1:Яєh0(mem%?(P%+A%),2);" ";:М ?lЯ┴(17-3*N%);:Ц A%=0 ╦ N%-1:Яєc(mem%?(P%+A%));:М:Я┴(7-N%);A$ %vP%=P%+N%:C%=C%-1:ЩC%=0:C%=╔:Щ0:=0 ─: "┼щє_MDUMP(A$):Й N%,P%,C%:РEscOn /■P%=═("&"+A$):N%=16:У:C%=16:УЯєh0(P%,4);" "; -·Ц A%=0 ╦ N%-1:Яєh0(mem%?(P%+A%),2);" ";:М (╗Ц A%=0 ╦ N%-1:Яєc(mem%?(P%+A%));:М:Я %╡P%=P%+N%:C%=C%-1:ЩC%=0:C%=╔:Щ0:=0 ╪: 0фщє_BASIC(A$):Т =FN_RUN("<65Tube$Basic> "+A$) :пЯ"BASIC"':=є_RUN(""""+runpath$+єf_name("Basic*")+"""") з: !Дщє_QUIT(A$):Г ╩ A$:halt%=╧:=0 =НРClose_All:Т IF os%=32:PRINT"Press SPACE to exit";:A%=GET ЬЪ"QUIT":=0 : щє_RUN(A$):=є_run(A$,ё) *щє_run(A$,osc%):г бA$,1)=" ":A$=юA$):н ] Т osc%=0 - called from *RUN, */, must attempt to load file; osc%=TRUE - called from *name 3*ГюA$,1)="""":A%=їA$,"""",2)+1 ▀ A%=їA$+" "," ") 4Г A$="":=0 >C$=A$:F$=єf_name(юA$,A%-1)) URX%!2=0:A%=єfile(F$,5):Г A%:A%=X%!2 ▀ A%=-1 :Т A%=load or 0=dos or -1=not found @\Г(A%─&FFFFFF00)=&FFFBBC00:A%=&8000 :Т ROM image SfГ(A%─&FFF00000)=&FFF00000:A%=-1 :Т Attempt to run in I/O memory [pГA%=-1:Ъ ю"/",╛osc%)+C$:=0 :Т If not found or I/O, pass to OSCLI and return zГ A%=0 ▄ B└in%=▌(F$):Рgbpb(4,in%,name%,80,0):ы#in%:in%=0 :Т Read header $▌A%=name%?7:Гname%!A%=&29432800 ▄ (≤УA%=A%+1:Щname%?A%=0:A%=name%!(A%+1) 0╒Г (name%?6 ─ 64)=0:┘ 247,"Not a language":=0 /╛Г (name%?6 ─ 15)>3:┘ 247,"Not 6502 code":=0 ІГ (name%?6 ─ 32)=0:A%=&8000 ю▀ ;й┘ 254,"No file header":=0 :Т No header тм чм ХЪ"Load "+F$+" "+ц~(mem%+A%) CРrpc%=A%:=є_go :Т Enter code Э: щє_LOAD(A$):A%=їA$," ") EГ A%=0:F$=єf_name(A$) ▀ F$=єf_name(юA$,A%-1)):A%=═("&"+аA$,A%+1)) ZГ A%=0:X%!2=0:Г єfile(F$,5):A%=X%!2 ▀ Г A%=0:A%=-1 :Т A%=load or 0=dos or -1=not found @$Г(A%─&FFFFFF00)=&FFFBBC00:A%=&8000 :Т ROM image .Г A%=0 ▄ B8in%=▌(F$):Рgbpb(4,in%,name%,80,0):ы#in%:in%=0 :Т Read header $BA%=name%?7:Гname%!A%=&29432800 ▄ (LУA%=A%+1:Щname%?A%=0:A%=name%!(A%+1) 0VГ (name%?6 ─ 64)=0:┘ 247,"Not a language":=0 /`Г (name%?6 ─ 15)>3:┘ 247,"Not 6502 code":=0 jГ (name%?6 ─ 32)=0:A%=&8000 t▀ ;~┘ 254,"No file header":=0 :Т No header ┬м ▓м K°Ъ"Load "+F$+" "+ц~(mem%+A%):=A% :Т Return address loaded to і: 6╟щє_GO(A$):Г A$="":rpc%=mem%!&FFFC ▀ rpc%=═("&"+A$) Y╨щє_go:ra%=0:rx%=0:ry%=0:rp%=0 :Т Initialise registers to enter code *дГmem%!(rpc%+mem%?(rpc%+7))=&29432800 ▄ ?нprog%=rpc%:A%=rpc%+8:УA%=A%+1 :Т Code header: IьЩmem%?A%=0:mem%?&FD=A%:mem%?&FE=A%│256 :Т Point to version string SБrs%=&1FF:ra%=1 :Т Clear stack, enter with A=1 Лм ZЖ$(mem%+&236)=A$:mem%?&F2=&36:mem%?&F3=2 :Т Store command string and pointer FРGo:=0 :Т Start execution : щє_CORE(A$):Т Dump core 'A$=єf_name(єs(юA$,їA$+" "," ")-1))) $(Ъ"Save "+A$+" "+ц~mem%+"+"+ц~mz% 2РSetType(A$,&FFD) <=0 F: =Pщє_DEBUG(A$):ГA$="":Я"1=Register Dump"'"3=Single Step":=0 7Zdebug%=0:trace0%=0:trace1%=&FFFF:Г єuc(A$)="OFF":=0 ,ddebug%=═(A$):Г(debug%─1):Г ╪<9:У Я:Щ ╪>8 6nA%=їA$," "):Г A%:trace0%=═(аA$,A%+1)):A$=аA$,A%+1) )xA%=їA$," "):Г A%:trace1%=═(аA$,A%+1)) ┌=0 ▄: √щРSetType(A$,A%):Г os%>8:А ═Ъ"SetType "+A$+" "+ц~A% ╙А Є: 3Ўщєc(A%):A%=A%─255:Г A%<32 └ A%>126:="." ▀ =Ґ A% 1хщєstr0(A%):A$="":У Г?A%>31:A$=A$+Ґ?A%:A%=A%+1 рЩ?A%<32 └ ╘ A$>254:=A$ э: 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 96Т PRINT "39=&";:PROCDumpLine(mem%!&39 AND&FFFF):PRINT 9@Т PRINT "19=&";:PROCDumpLine(mem%!&19 AND&FFFF):PRINT #JТ PRINT "15=&";FNh0(mem%?&15,2) TА ^: "hщРDumpLine(m%):Я єh0(m%,4)" "; 'rЦ B%=m% ╦ m%+7:Я єc(mem%?B%);:М:О32 3|Ц B%=m% ╦ m%+7:Я єh0(mem%?(B%─mm%)─&FF,2)" ";:М ├А ░: 8 щєdis(A%):N%=єDis_Code(65,A%,mem%+(A%─mm%)):=$(X%+4) є: 3ўщєc(A%):A%=A%─255:Г A%<32 └ A%>126:="." ▀ =Ґ A% 1╦щєstr0(A%):A$="":У Г?A%>31:A$=A$+Ґ?A%:A%=A%+1 бЩ?A%<32 └ ╘ A$>254:=A$ л: "жщРEscInit:esch%=esch%:Гesch%:А ЮГos%=32 ▄ CЙч P% 36, L% -1:[OPT 8:.escyes:mov byte [edi-1],0:mov eax,-1:ret 8Т.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%:А K0Гos%<>32: "OS_ChangeEnvironment",9,esch%,0,0 ╦ ,escho%,escRo%,escbo%:А ::Ъ"ESC OFF":escho%=╧:Н ▒ Г╨esch%:mem%?escflg%=&FF:Ь ▀ Ь DА %NщРEscOn:escho%=escho%:Гescho%=0:А GXГos%<>32: "OS_ChangeEnvironment",9,escho%,escRo%,escbo%:escho%=0:А bН ▒ ┤:escho%=0:Ъ"ESC ON":А l: vТ > 6502 ─: (┼щРGo:abort%=ё:halt%=0:run%=╧:РEscOff b■У:Г(debug%─1):Г rpc%>=trace0% ─ rpc%<=trace1%:x%=╠:y%=╪:О30:РRegDump:О31,x%,y%:Г(debug%─2):Г ╔ |·B%=mem%?rpc%:rpc%=rpc%+1:Щ ═("FNm"+ц~(B%─&1C)+"+FN_"+ц~(B%─(((B%─1)<>1)└&E3))):РEscOn:run%=ё:Г ╛quiet% └ abort%:РRegDump ╗А ╡: ╪: !фщєbr(A%):rpc%=rpc%+1:ГA%=0:=0 9пГmem%?(rpc%-1)<128:rpc%=(rpc%+mem%?(rpc%-1))─&FFFF:=0 *зrpc%=(rpc%+mem%?(rpc%-1)-256)─&FFFF:=0 Д: Н: @Ьщєm0 :A%=(mem%!((mem%?rpc%+rx%)─&FF))─&FFFF:=0 :Т (zp,X) @щєm4 :A%=mem%?rpc%:=0 :Т zp @щєm8 :A%=rpc%:=0 :Т #n ?щєmC :A%=(mem%!rpc%)─&FFFF:rpc%=rpc%+1:=0 :Т abs B щєm10:A%=(mem%!(mem%?rpc%)+ry%)─&FFFF:=0 :Т (zp),Y @*щєm12:A%=(mem%!(mem%?rpc%))─&FFFF:=0 :Т (zp) @4щєm14:A%=(mem%?rpc%+rx%)─&FF:=0 :Т zp,X ?>щєm18:A%=(mem%!rpc%+ry%)─&FFFF:rpc%=rpc%+(B%─1):=0 :Т abs,Y AHщєm1C:A%=(mem%!rpc%+rx%)─&FFFF:rpc%=rpc%+1:=0 :Т abs,X R: \: Sfщє_1 :ra%=ra%└mem%?A%:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):rpc%=rpc%+1:=0 :Т ORA Rpщє_21:ra%=ra%─mem%?A%:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):rpc%=rpc%+1:=0:Т AND Rzщє_41:ra%=ra%┌mem%?A%:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):rpc%=rpc%+1:=0:Т EOR ╟└щє_61:ra%=ra%+mem%?A%+(rp%─1):rp%=(rp%─254)+(ra%│256):ra%=ra%─255:rp%=(rp%─&3D)└(ra%─128)└(((ra%─128)│2)┌(ra%─64))└((ra%=0)─2):rpc%=rpc%+1:=0 :Т ADC W▌щє_81:ГA%=rpc%:=є_8A ▀ mem%?A%=ra%:rpc%=rpc%+1:=0 :Т STA T≤щє_A1:ra%=mem%?A%:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):rpc%=rpc%+1:=0 :Т LDA Ї╒щє_C1:A%=ra%-mem%?A%:rp%=(rp%─254)+(((A%┌256)─256)│256):A%=A%─255:rp%=(rp%─&3D)└(A%─128)└((A%=0)─2):rpc%=rpc%+1:=0 :Т CMP ╛╛щє_E1:ra%=ra%-mem%?A%-(1-(rp%─1)):rp%=(rp%─254)+(((ra%┌256)─256)│256):ra%=ra%─255:rp%=(rp%─&3D)└(ra%─128)└(((ra%─128)│2)┌(ra%─64))└((ra%=0)─2):rpc%=rpc%+1:=0 :Т SBC І: @ющє_12:=єm12+є_1 :Т ORA (zp) @йщє_32:=єm12+є_21 :Т AND (zp) @тщє_52:=єm12+є_41 :Т EOR (zp) @чщє_72:=єm12+є_61 :Т ADC (zp) @Хщє_92:=єm12+є_81 :Т STA (zp) @Рщє_B2:=єm12+є_A1 :Т LDA (zp) @Эщє_D2:=єm12+є_C1 :Т CMP (zp) @ щє_F2:=єm12+є_E1 :Т SBC (zp) : : V$ щє_8 :mem%?rs%=rp%:rs%=rs%-1:=0 :Т PHP V. щє_28:rs%=rs%+1:rp%=mem%?rs%:=0 :Т PLP V8 щє_48:mem%?rs%=ra%:rs%=rs%-1:=0 :Т PHA VB щє_5A:mem%?rs%=ry%:rs%=rs%-1:=0 :Т PHY NL щє_68:rs%=rs%+1:ra%=mem%?rs%:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):=0 :Т PLA NV щє_7A:rs%=rs%+1:ry%=mem%?rs%:rp%=(rp%─&7D)└(ry%─128)└((ry%=0)─2):=0 :Т PLY V` щє_DA:mem%?rs%=rx%:rs%=rs%-1:=0 :Т PHX Nj щє_FA:rs%=rs%+1:rx%=mem%?rs%:rp%=(rp%─&7D)└(rx%─128)└((rx%=0)─2):=0 :Т PLX t : ~ : 8┬ щє_10:=єbr((rp%─128)┌128) :Т BPL :▓ щє_30:=єbr(rp%─128) :Т BMI 8° щє_50:=єbr((rp%─64)┌64) :Т BVC :і щє_70:=єbr(rp%─64) :Т BVS <╟ щє_80:=єbr(1) :Т BRA 8╨ щє_90:=єbr((rp%┌1)─1) :Т BCC :д щє_B0:=єbr(rp%─1) :Т BCS 8н щє_D0:=єbr((rp%─2)┌2) :Т BNE :ь щє_F0:=єbr(rp%─2) :Т BEQ Б : Л : ;Ж щє_18:rp%=rp%─&FE:=0 :Т CLC < щє_38:rp%=rp%└1:=0 :Т SEC ; щє_58:rp%=rp%─&FB:=0 :Т CLI < щє_78:rp%=rp%└4:=0 :Т SEI ; щє_B8:rp%=rp%─&BF:=0 :Т CLV ;( щє_D8:rp%=rp%─&F7:=0 :Т CLD 82 щє_F8:rp%=rp%└8:Я"**BCD not supported***":=0 :Т SED < : F : ╛P щє_0:rpc%=rpc%+1:rs%=rs%-3:mem%?(rs%+1)=rp%└&10:mem%?(rs%+2)=rpc%:mem%?(rs%+3)=rpc%│256:rpc%=(mem%!&FFFE)─&FFFF:rp%=rp%└4:=0 :Т BRK eZ щє_20:a%=mem%!rpc%:rpc%=rpc%+1:rs%=rs%-2:mem%?(rs%+1)=rpc%:mem%?(rs%+2)=rpc%│256:rpc%=a%─&FFFF:=0 d :Т JSR Tn щє_40:rp%=mem%?(rs%+1):rpc%=(mem%!(rs%+2))─&FFFF:rs%=rs%+3:rpc%=rpc%+1:=0 :Т RTI Ix щє_4C:rpc%=A%:=0 :Т JMP abs C┌ щє_60:rpc%=(mem%!(rs%+1))─&FFFF:rs%=rs%+2:rpc%=rpc%+1:=0 :Т RTS I▄ щє_6C:rpc%=(mem%!A%)─&FFFF:=0 :Т JMP (abs) K√ щє_7C:rpc%=(mem%!A%)─&FFFF:=0 :Т JMP (abs,X) E═ щє_EA:=0 :Т NOP ╙ : Є : KЎ щє_8A:ra%=rx%:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):=0 :Т TXA Kх щє_98:ra%=ry%:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):=0 :Т TYA Sр щє_9A:rs%=rx%+&100:=0 :Т TXS Kэ щє_A8:ry%=ra%:rp%=(rp%─&7D)└(ry%─128)└((ry%=0)─2):=0 :Т TAY KФ щє_AA:rx%=ra%:rp%=(rp%─&7D)└(rx%─128)└((rx%=0)─2):=0 :Т TAX IП щє_BA:rx%=rs%─&FF:rp%=(rp%─&7D)└(rx%─128)└((rx%=0)─2):=0 :Т TSX З : : Iщє_1A:ra%=(ra%+1)─&FF:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):=0 :Т INC A Iщє_3A:ra%=(ra%-1)─&FF:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):=0 :Т DEC A G"щє_88:ry%=(ry%-1)─&FF:rp%=(rp%─&7D)└(ry%─128)└((ry%=0)─2):=0 :Т DEY G,щє_C8:ry%=(ry%+1)─&FF:rp%=(rp%─&7D)└(ry%─128)└((ry%=0)─2):=0 :Т INY G6щє_CA:rx%=(rx%-1)─&FF:rp%=(rp%─&7D)└(rx%─128)└((rx%=0)─2):=0 :Т DEX G@щє_E8:rx%=(rx%+1)─&FF:rp%=(rp%─&7D)└(rx%─128)└((rx%=0)─2):=0 :Т INX J: Tщє_C6: :Т DEC zp ^щє_CE: :Т DEC abs hщє_D6: :Т DEC zp,X rщє_DE: :Т DEC abs,X X|mem%?A%=(mem%?A%-1)─&FF:rp%=(rp%─&7D)└((mem%?A%)─128)└((mem%?A%=0)─2):rpc%=rpc%+1:=0 ├: ░щє_E6: :Т INC zp щє_EE: :Т INC abs єщє_F6: :Т INC zp,X ўщє_FE: :Т INC abs,X X╦mem%?A%=(mem%?A%+1)─&FF:rp%=(rp%─&7D)└((mem%?A%)─128)└((mem%?A%=0)─2):rpc%=rpc%+1:=0 б: л: жщє_A2:A%=rpc% :Т LDX #n Ющє_A6: :Т LDX zp Йщє_AE: :Т LDX abs 3Тщє_B6:A%=(mem%?rpc%+ry%)─&FF :Т zp,X 4Чщє_BE:A%=(A%-rx%+ry%)─&FFFF:rpc%=rpc%+1 :Т abs,Y Brx%=mem%?A%:rp%=(rp%─&7D)└(rx%─128)└((rx%=0)─2):rpc%=rpc%+1:=0 : щє_A0:A%=rpc% :Т LDY #n &щє_A4: :Т LDY zp 0щє_AC: :Т LDY abs :щє_B4: :Т LDY zp,X Dщє_BC: :Т LDY abs,X BNry%=mem%?A%:rp%=(rp%─&7D)└(ry%─128)└((ry%=0)─2):rpc%=rpc%+1:=0 X: b: lщє_86: :Т STX zp vщє_8E: :Т STX abs +─щє_96:A%=(A%-rx%+ry%)─&FFFF :Т STX zp,Y ┼mem%?A%=rx%:rpc%=rpc%+1:=0 ■: ·щє_84: :Т STY zp ╗щє_8C: :Т STY abs ╡щє_94: :Т STY zp,X ╪mem%?A%=ry%:rpc%=rpc%+1:=0 ф: п: 'зщє_64: :Т CLR zp )Дщє_74: :Т CLR zp,X &Нщє_9C:A%=(A%-rx%)─&FFFF :Т CLR abs *Ьщє_9E: :Т CLR abs,X mem%?A%=0:rpc%=rpc%+1:=0 : : z щє_A :ra%=ra%*2:rp%=(rp%─&FE)+ra%│256:ra%=ra%─&FF:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):=0: :Т ASL A * щє_6 : :Т ASL zp 4 щє_E : :Т ASL abs > щє_16: :Т ASL zp,X H щє_1E: :Т ASL abs,X kR a%=mem%?A%*2:rp%=(rp%─&FE)+a%│256:mem%?A%=a%:rp%=(rp%─&7D)└(mem%?A%─128)└((mem%?A%=0)─2):rpc%=rpc%+1:=0 \ : xf щє_2A:ra%=ra%*2+(rp%─1):rp%=(rp%─&FE)+ra%│256:ra%=ra%─&FF:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):=0 :Т ROL A p щє_26: :Т ROL zp z щє_2E: :Т ROL abs └ щє_36: :Т ROL zp,X ▌ щє_3E: :Т ROL abs,X s≤ a%=mem%?A%*2+(rp%─1):rp%=(rp%─&FE)+a%│256:mem%?A%=a%:rp%=(rp%─&7D)└(mem%?A%─128)└((mem%?A%=0)─2):rpc%=rpc%+1:=0 ╒ : s╛ щє_4A:rp%=(rp%─&FE)└(ra%─1):ra%=ra%│2:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):=0 :Т LSR A І щє_46: :Т LSR zp ю щє_4E: :Т LSR abs й щє_56: :Т LSR zp,X т щє_5E: :Т LSR abs,X jч rp%=(rp%─&FE)└(mem%?A%─1):mem%?A%=mem%?A%│2:rp%=(rp%─&7D)└(mem%?A%─128)└((mem%?A%=0)─2):rpc%=rpc%+1:=0 Х : xР щє_6A:ra%=ra%+256*(rp%─1):rp%=(rp%─&FE)+(ra%─1):ra%=ra%│2:rp%=(rp%─&7D)└(ra%─128)└((ra%=0)─2):=0 :Т ROR A Э щє_66: :Т ROR zp щє_6E: :Т ROR abs щє_76: :Т ROR zp,X щє_7E: :Т ROR abs,X w$a%=mem%?A%+256*(rp%─1):rp%=(rp%─&FE)+(a%─1):mem%?A%=a%│2:rp%=(rp%─&7D)└(mem%?A%─128)└((mem%?A%=0)─2):rpc%=rpc%+1:=0 .: 8: Bщє_89:A%=rpc% :Т BIT #n Lщє_24: :Т BIT zp Vщє_2C: :Т BIT abs `щє_34: :Т BIT zp,X jщє_3C: :Т BIT abs,X Dtrp%=(rp%─&3D)└(mem%?A%─&C0)└(((mem%?A%─ra%)=0)─2):rpc%=rpc%+1:=0 ~: ┬: ▓щє_C0:A%=rpc% :Т CPY #n °щє_C4: :Т CPY zp іщє_CC: :Т CPY abs p╟A%=ry%-mem%?A%:rp%=(rp%─254)+(((A%┌256)─256)│256):A%=A%─255:rp%=(rp%─&3D)└(A%─128)└((A%=0)─2):rpc%=rpc%+1:=0 ╨: дщє_E0:A%=rpc% :Т CPX #n нщє_E4: :Т CPX zp ьщє_EC: :Т CPX abs pБA%=rx%-mem%?A%:rp%=(rp%─254)+(((A%┌256)─256)│256):A%=A%─255:rp%=(rp%─&3D)└(A%─128)└((A%=0)─2):rpc%=rpc%+1:=0 Л: Жщє_4 :Z%=єm4 :Т TSB zp щє_C :Z%=єmC :Т TSB abs N rp%=(rp%─253)+(((mem%?A% ─ ra%)=0)─2):mem%?A%=mem%?A% └ ra%:rpc%=rpc%+1:=0 : щє_14:Z%=єm4 :Т TRB zp (щє_1C:Z%=єmC :Т TRB abs P2rp%=(rp%─253)+(((mem%?A% ─ ra%)=0)─2):mem%?A%=mem%?A% ─ ╛ ra%:rpc%=rpc%+1:=0 <: F: PТ MOS Interface #Zщє_3 : :Т OSCLI /OSBYTE #dщє_23: :Т OSWORD/OSWRCH #nщє_43: :Т OSRDCH/OSFILE #xщє_63: :Т OSARGS/OSBGET #┌щє_83: :Т OSBPUT/OSGBPB #▄щє_A3: :Т OSFIND/OSQUIT √щє_C3: :Т OSLANG/ - ═щє_E3: :Т - / - ╙=єmos(mem%?(rpc%-1)) Є: Ў: хщє_2 : :Т --- рщє_22: :Т --- эщє_42: :Т --- Фщє_44: :Т --- Пщє_54: :Т --- Зщє_5C: :Т --- щє_62: :Т --- щє_82: :Т --- щє_C2: :Т --- "щє_D4: :Т --- ,щє_DC: :Т --- 6щє_E2: :Т --- @щє_F4: :Т --- Jщє_FC: :Т --- T=0 ^Т > MOS hщєmos(m%):Й X%,Y% -rA%=ra%:X%=rx%+256*ry%:Y%=ry%:C%=rp%:rp%=0 |х m% й ├и &13,&FFF4:=єmos_byte ░и &33,&FFEE:О A%:=0 и &FFEC:О 13:=0 єи &FFE7:ж &FFE7:=0 ўи &FFE3:ж &FFE3:=0 '╦и &43,&FFE0:ra%=╔:rp%=(ra%=27)─1:=0 би &73,&FFD7:=єmos_bget ли &83,&FFD4:=єmos_bput жи &A3,&FFCE:=єmos_find Юи &63,&FFDA:=єmos_args Йи &B3:=єmos_quit Ти &C3:=єmos_lang Чк X%=X%+mem%:Y%=X%│256 х m% й и &03,&FFF7:=єmos_cli &и &23,&FFF1:=єmos_word 0и &53,&FFDD:=єmos_file :и &93,&FFD1:=єmos_gbpb Dк N=0 X: bщєmos_cli:Рcmd($X%,╧):=0 l: vщєmos_byte ─Г A%=&82:rx%=0:ry%=&00:=0 ┼Г A%=&83:rx%=0:ry%=&08:=0 +■Г A%=&84:rx%=prog%─255:ry%=prog%│256:=0 L·Г A%>123:ГA%<127:mem%?escflg%=128*(A%─1):Ъ"FX15" :Т Clear/Set/Ack Escape i╗Г os%<>32:X%=X%─255:A%=╨&FFF4:rx%=(A%─&FF00)│256:ry%=(A%─&FF0000)│65536:rp%=(A%─&1000000)│&1000000:=0 ?╡Г A%=128:Гrx%=7: rx%,A%,A%:ry%=(rx%>>8)─255:rx%=rx%─255:=0 ?╪Г A%=128:Гrx%=8: A%,rx%,A%:ry%=(rx%>>8)─255:rx%=rx%─255:=0 фх A% й пи 0:rx%=32:=0 зи 127:rx%=е#rx%:=0 0Ди 128:A%=√(rx%+256*ry%):rx%=A%:ry%=A%│256:=0 >Ни 129:A%=і(rx%+256*ry%):rx%=A%:ry%=A%│256:Рcarry(A%=-1):=0 Ьи 134:rx%=╠:ry%=╪:=0 и 135:rx%=╔(╠,╪):ry%=К:=0 и 160:rx%=@vdu%!(rx%*4):=0 к =0 *: 4щєmos_word Q>ГA%=0:A%=!X%─&FFFF:mem%?255=0:osw0%=╧:Х├""A$:$(mem%+A%)=A$:osw0%=ё:ry%=╘A$:=0 HГos%<>32 └ A%=10:ж &FFF1:=0 Rх A% й \и 1:!X%=▒:=0 fи 2:я=!X%:=0 pи 7:т !X%,X%!2,X%!4,X%!6:=0 Uzи 8:Б ?X%,X%?1,X%?2,X%?3,X%?4,X%?5,X%?6,X%?7,X%?8,X%?9,X%?10,X%?11,X%?12,X%?13:=0 └и 14:$X%=▒$:=0 ▌и 15:я$=$X%:=0 ≤к ╒=0 ╛: Іщєmos_file 7юГA%=254:ГX%?5 =&FF:X%?5=0 ▀ Г A%=254:X%!2=X%!2+mem% 7йГA%=255:ГX%?5 =&FF:X%?5=0 ▀ Г A%=255:X%!2=X%!2+mem% QтГA%=0 :ГX%?13=&FF:X%?13=0:X%?17=0 ▀ Г A%=0:X%!10=X%!10+mem%:X%!14=X%!14+mem% чfn%=mem%+(!X% ─ &FFFF) gХГ os%<32: "OS_File",A%,fn%,X%!2,X%!6,X%!10,X%!14 ╦ ra%,,X%!2,X%!6,X%!10,X%!14 ▀ ra%=єfile($fn%,A%) _РТ SYS "OS_File",A%,mem%+(!X% AND &FFFF),X%!2,X%!6,X%!10,X%!14 TO ra%,,X%!2,X%!6,X%!10,X%!14 Э=0 5Т DEFPROCaddr(A%):IFX%!A%<&10000:X%!A%=mem%+A%!X% Т ENDPROC : 6$щєmos_bget:ra%=(╨&FFD7):rp%=ra%│256:ra%=ra%─255:=0 .: 8щєmos_bput:ж &FFD7:=0 B: Lщєmos_find:ГA%=0:ы#Y%:=0 -VГ (A%─&C0)=&40:ra%=єopenin($(mem%+X%)):=0 .`Г (A%─&C0)=&80:ra%=єopenout($(mem%+X%)):=0 -jГ (A%─&C0)=&C0:ra%=єopenup($(mem%+X%)):=0 t: ~щєmos_gbpb 2┬ra%=X%?5 :Гra%=&FF:X%?5=0 ▀ X%!1=X%!1+mem% 0▓A%=╨&FFD1:Гra%=&FF:X%?5=&FF ▀ X%!1=X%!1-mem% °ra%=A%─255:rp%=A%│256:=0 і: ╟щєmos_args ╨ГY%=0:ГA%=0:ra%=єfs:=0 *дГY%=0:mem%!X%=єargs(ra%,Y%,mem%!X%):=0 нГA%=0:mem%!X%=▐#Y%:ra%=0:=0 ьГA%=1:о#Y%=mem%!X%:ra%=0:=0 БГA%=2:mem%!X%=╒#Y%:ra%=0:=0 ЛГA%=3:╒#Y%=mem%!X%:ra%=0:=0 ЖГA%=4:mem%!X%=╒#Y%:ra%=0:=0 mem%!X%=єargs(A%,Y%,mem%!X%) =0 : щєmos_quit:=╧ (щєmos_lang:=0 2Т > Dis65 <щєDis_Name(cpu%)="65x02" 6FщєDis_Code(cpu%,Ptr%,Data%):Йop%,ins%,md%,b0%,num% 4)─1))+" A" 9ЗГ(op%─&E7)=4:="T"+а"SR",1+(md%│4),1)+"B "+єmde(md%─3) 6Г(op%─&D3)=&C0:=єbxy(ins%)+" "+єmde(((md%┌3)-1)─3) $Г(op%─&E7)=&24:="BIT "+єmde(md%) ,Г(op%─&C7)=&84:=єbxy(ins%)+" "+єmde(md%) ;"Г(op%─&FD)=&A0:="LD"+а"YX",1+((op%─2)│2),1)+" "+єmde(2) R,Г(op%─&CF)=&4C:Гop%<>&5C:X%?2=64:="JMP "+ю"(",op%>&5F)+єmde(md%)+ю")",op%>&5F) 06Гop%=&80:num%=2:X%?2=64:="BRA "+єjr(Data%?1) !@X%?2=128:="EQUB &"+єh0(op%,2) 3Jщєalu(A%)=а"ORAANDEORADCSTALDACMPSBC",A%*3+1,3) 3Tщєrot(A%)=а"ASLROLLSRRORSTXLDXDECINC",A%*3+1,3) 3^щєbxy(A%)=а"***BIT***STZSTYLDYCPYCPX",A%*3+1,3) /hщєmde(A%):num%=2:ГA%=2:="#&"+єh0(Data%?1,2) >rГ(A%─2):num%=3:="&"+єh0(Data%!1,4)+ю",X",A%=7)+ю",Y",A%=6) +|Г(A%─1):="&"+єh0(Data%?1,2)+ю",X",A%=5) 4├="(&"+єh0(Data%!1,2)+ю",X",A%=0)+")"+ю",Y",A%=4) D░щєjr(A%):ГA%<128:="&"+єh0(Ptr%+A%+2,4)▀="&"+єh0(Ptr%+A%+2-256,4) ! Т > BLib.Close 1.00 09Aug1998 є: ўТ Close Handling ╦Т ~~~~~~~~~~~~~~ б: лщРClose_All:*EXEC "жin%=in%:Гin%:A%=in%:in%=0:ы#A% 'Юout%=out%:Гout%:A%=out%:out%=0:ы#A% ЙА "ТТ > BLib.String 1.00 09Aug1998 Ч: #Т String Manipulation Functions #Т ============================= : 7&Т FNs() - strip spaces from start and end of string 70Т ------------------------------------------------- /:щєs(A$):ГюA$,1)=" ":УA$=аA$,2):ЩюA$,1)<>" " +DГбA$,1)=" ":УA$=юA$,╘A$-1):ЩбA$,1)<>" " N=A$ X: +bТ FNuc() - convert string to upper case +lТ ------------------------------------- vщєuc(A$):Й B$:ГA$="":="" 5─УB$=B$+Ґ(≈A$─((A$<"@")└&DF)):A$=аA$,2):ЩA$="":=B$ ┼: +■Т FNlc() - convert string to lower case +·Т ------------------------------------- ╗щєlc(A$):Й B$:ГA$="":="" 5╡УB$=B$+Ґ(≈A$└((A$<"_")─&20)):A$=аA$,2):ЩA$="":=B$ ╪: "фТ > BLib.Number 1.01 09Aug1988 (пТ v1.00 09Aug1988 JGH: First version 1зТ v1.01 xxxxxxxxx JGH: Added Octal and Binary 4ДТ Bug: Octal and Binary don't work for &8xxxxxxx Н: ЬТ Number Output Routines Т ~~~~~~~~~~~~~~~~~~~~~~ #Т Hexadecimal padded with zeros # щєh0(A%,N%)=б"0000000"+ц~A%,N%) *: $4Т Hexadecimal padded with spaces ">щєh(A%,N%)=б" "+ц~A%,N%) H: RТ Decimal padded with zeros #\щєd0(A%,N%)=б"00000000"+цA%,N%) f: pТ Decimal padded with spaces #zщєd(A%,N%)=б" "+цA%,N%) └: ▌Т Octal padded with zeros ?≤щєo0(A%,N%):Й A$,B$:ГA%<0:B$="7":A%=A% ─ &7FFFFFFF ▀ B$="0" 7╒У A$=ц(A% ─ 7)+A$:A%=A% │ 8:Щ A%=0:=бдN%,B$)+A$,N%) ╛: ІТ Octal padded with spaces >ющєo(A%,N%):Й A$,B$:ГA%<0:B$="7":A%=A% ─ &7FFFFFFF ▀ B$=" " 7йУ A$=ц(A% ─ 7)+A$:A%=A% │ 8:Щ A%=0:=бдN%,B$)+A$,N%) т: чТ Binary padded with zeros ?Хщєb0(A%,N%):Й A$,B$:ГA%<0:B$="1":A%=A% ─ &7FFFFFFF ▀ B$="0" 6РУ A$=ц(A% ─ 1)+A$:A%=A% │ 2:ЩA%=0:=бдN%,B$)+A$,N%) Э: Т Binary padded with spaces >щєb(A%,N%):Й A$,B$:ГA%<0:B$="1":A%=A% ─ &7FFFFFFF ▀ B$=" " 6У A$=ц(A% ─ 1)+A$:A%=A% │ 2:ЩA%=0:=бдN%,B$)+A$,N%) $: ).Т Drive character for supplied number 8щєdrv(A%)=Ґ(48+A%-7*(A%>9)) B: )LТ Drive number for supplied character "VщєDrv(A$)=≈A$-48+7*(A$>"9")─31 #`Т > BLib.ProgEnv 1.04 09Jan2007 j: #tТ Program Environment Functions #~Т ============================= ┬: ?▓Т Return command line tail, sets run$ to execution filename ;°Т Works with BASIC on I/O,T6502,Arc,TZ80BBC,PC,Win,TARM ;іТ Needs: 270 free bytes above end of heap for temp. w/s ?╟Т --------------------------------------------------------- :╨щєOS_GetEnv:ЙA$,A%:X%=1:os%=((╨&FFF4)─&FF00)│256:чX%-1 IдГos%=32:Г░>&FFFF: "GetModuleFileName",0,X%,255:A$=$$X%:run$=A$:=@cmd$ нГos%=32:A$=$&100 yьГ╘A$=0:Г░>&7FFF:run$=$&8100: "OS_GetEnv"╦A$,,A%: "OS_WriteEnv","",A%:A$=аA$,1+їA$+" "," ",1+їA$," "))):Г╘A$=0:A$=run$ 2БГ╘A$=0:Г?(╦P-3):A$=$&600 ▀ Г╘A$=0:A$=$(░-&300) 7ЛA%=їA$+" "," "):run$=юA$,A%-1):Гrun$<>"":=аA$,A%+1) bЖY%=X%│256:A%=9:?X%=0:X%!1=X%+16:X%!16=0:ж&FFD1:A%=X%+16:Г!A%─?A%+A%?2<>8:A%?(A%+1)=13:=$(A%+1) ="" : .Т Run a program, passing it a command line =Т If program is *Command, called with OSCLI, else CHAINed =(Т ------------------------------------------------------- &2щРos(A$):Г≈A$=42:ЪA$ ▀ ГA$<>"":вA$ <А F: (PТ Exit program, setting return value (ZТ ---------------------------------- @dщРexit(A%):Ъ"FX1,"+цA%:quit$=quit$:A$=quit$:quit$="":Рos(A$) nГos%=32: A% xГos%<6:Ю ▀ *Quit ┌А ▄: *√Т > BLib.Generic.FileIO 1.02 28Apr2007 P═Т v1.02 28Apr2007 JGH: Added functions to FNfile on DOS, PROCcdir, FNopenout <╙Т v1.01 07Sep2006 JGH: FNargs avoid zero page on RISC OS *ЄТ v1.00 09Aug1988 JGH: Initial version Ў: %хТ General File Interface Routines %рТ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ э: 8ФТ FNfile(), PROCgbpb(), FNfs are callable on Windows 8ПТ -------------------------------------------------- З: ,Т Returns file type, file info in X%!... ,Т -------------------------------------- Jщєfile(A$,A%):Гos%<32:$name%=A$:?X%=name%:X%?1=name%│256:=(╨&FFDD)─&FF "ГїA$,".")=0:A$=A$+"." ;,ГA%=255 └ A%=5:X%!14=▌(A$):ГX%!14:X%!10=╒#X%!14:ы#X%!14 16ГA%=255:ГX%?6=0:Ъ"LOAD """+A$+""" "+ц~X%!2:=1 @ГA%=5:ГX%!14:=1 ▀ Г A%=5:=0 FJГA%=0:Ъ"SAVE """+A$+""" "+ц~X%!10+" "+ц~X%!14:X%!10=X%!14-X%!10:=1 BTГA%=7:Ъ"SAVE """+A$+""" "+ц~░+"+"+ц~X%!10:X%!10=X%!14-X%!10:=1 ^ГA%=8 ▄ hЙ ┘:Н ┘ Й:=2 rЪ"MKDIR "+A$:=2 |м ├=0 ░: Т General OSGBPB call єТ ------------------- #ўщРgbpb(A%,chn%,addr%,num%,ptr%) =╦?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:Гos%<32:ж &FFD1:А бГA%=1└A%=3:о#?X%=X%!9 5лУ:ГA%=1└A%=2:у#?X%,?X%!1 ▀ ГA%=3└A%=4:?X%!1= #?X% 5жX%!1=X%!1+1:X%!5=X%!5-1:Щ(е#?X% ─ A%>2)└ X%!5<1:А Ю: @ЙТ Return current disk (5), directory (6) or library (7) name @ТТ ---------------------------------------------------------- BЧщєgbpb(A%):X%!1=data%:ж&FFD1:A%=data%+((1+?data%)─((A%─-2)=6)) A%?(1+?A%)=13:=$(A%+1) : BТ Returns entry in current directory, or null string if at end B&Т ------------------------------------------------------------ E0щєgbpb8(ptr%):X%!1=data%:X%!5=1:X%!9=ptr%:A%=8:ж&FFD1:ГX%!5=1:="" #:A%=data%:A%?(1+?A%)=13:=$(A%+1) D: 7NТ OSARGS call with data. Returns any returned data 7XТ ------------------------------------------------- 4bщєargs(A%,Y%,ptr%):Й X%,E%:Г?(╦P-3)=0:E%=Y%:Y%=0 /lГ░<&8000:Й !&70:X%=&70:!X%=ptr%:ж&FFDA:=!X% (v "OS_Args",A%,Y%,ptr% ╦ ,,ptr%:=ptr% ─: '┼Т OSARGS call ignoring X, returns A '■Т --------------------------------- =·щєargsA(A%):Г░<&8000:Й X%,Y%,E%,!&70:X%=&70:=(╨&FFDA)─&FF ╗ "OS_Args",A% ╦ A%:=A% ╡: &╪Т Get current filing system number &фТ -------------------------------- )пщєfs:Гos%<32:Й A%,Y%,E%:=(╨&FFDA)─&FF з=29 Д: 1НТ Create a directory only if it doesn't exist 1ЬТ ------------------------------------------- 'щРcdir(A$):Гos%=32:A%=єfile(8,A$):А Гєfile(5,A$)=0:Ъ"CDIR "+A$ А : .*Т Open an input file ensuring no extension .4Т ---------------------------------------- >щєopenin(A$)=▌(єf_name(A$)) H: /RТ Open an output file ensuring no extension /\Т ----------------------------------------- fщєopenout(A$)=▌(єf_name(A$)) p: /zТ Open an update file ensuring no extension /└Т ----------------------------------------- ▌щєopenup(A$)=▌(єf_name(A$)) ≤: V╒щєf_name(A$):Гos%=32:ЙA%,B%:УB%=A%:A%=їA$,"\",A%+1):ЩA%=0:ГїA$,".",B%)=0:A$=A$+"." ╛=A$ ЪЪ