Т > ModuleList 2Т Examine modules from Communicator ROM images : (path$="Comm100\" 2"base$=path$+"Communicator-rom" <ext$ ="-100.rom" F bas$ ="." Pdest$=path$+"Modules\" Zprog$=path$+"Programs\" d: n list%=╧*0 xч mem% 255 ┌Н ┘ Я:Ж:ы#0:Я:Ю ▄: √base0%=0 ═Ц rom%=0 ╦ 3 ╙in$=base$+цrom%+ext$ Є=in%=▌(in$):Г in%:Рexamine:base0%=base0%+╒#in%:ы#in%:in%=0 Ў М rom% хГ list%=0:Ю рЯ ┴34;"| | | | | |" э)Я ┴34;"| | | | | +---- Reserved" Ф&Я ┴34;"| | | | +---- Reserved" П'Я ┴34;"| | | +---- Module flags" З$Я ┴34;"| | +---- Module flags" 1Я ┴34;"| +---- &01=Task, &02=Printer Driver" GЯ ┴34;"+---- &80=BAS, &40=DEV, &20=FS, &08=CODE, &02=BANK, &01=POS" Ю ": , щРexamine 6base%=0 @У:Рmodule:Щ base%>=╒#in%:А J: TщРmodule ^о#in%=base% h8Ц A%=0 ╦ 255:mem%?A%= #in%:М A%:Т Read module header rsize%=(mem%!3 ─ &FFFFFF)+2 |'version$=ц~mem%?7+"."+єh0(mem%?6,2) ├flag%=mem%?8 ░Ktitle$="":A%=14:Г mem%?A%:У:title$=title$+Ґ(mem%?A%):A%=A%+1:Щmem%?A%=0 Khelp$="" :A%=A%+1:Г mem%?A%:У:help$=help$+Ґ(mem%?A%):A%=A%+1:Щmem%?A%=0 єJcmds$="":A%=їtitle$,"/"):Г A%:cmds$=аtitle$,A%+1):title$=юtitle$,A%-1) ў(code%=A%+1:entry%=(mem%!1 ─ &FFFF)+3 ╦IГ mem%?0<>&82:title$="":help$="":cmds$="":size%=256 бГ list%:Рlist:А л7Я "Address: ";єh0(base0%+base%,6);"+";єh0(size%,4) жЯ "Title: "title$ ЮЯ "Version: "version$ ЙЯ "Commands: "cmds$ ТЯ "Help: "help$ Ч8Я "Flags: ";:Ц A%=8 ╦ 13:Яєh0(mem%?A%,2);" ";:М:Я +Я "D/S/B/ret";:K%=(╔─&DF):ЯҐ13;┴10;Ґ13; Г K%=≈"D":Рdump Г K%=≈"S":Рsave &Г K%=≈"B":Рbasic 0Я :"base%=(base%+size%+255) ─ -256 DА N: X щРlist b&title$=юtitle$,їtitle$+"/","/")-1) l+Я єh0(base0%+base%,6);"+";єh0(size%,4); v<Я " ";title$;┴(15-╘title$);┴(5-╘version$);version$;" "; ─,Ц A%=8 ╦ 13:Яєh0(mem%?A%,2);" ";:М:A$="" ┼0Г mem%?9 ─ &01:A$=A$+" TASK" ▀ A$=A$+" " ■/Г mem%?9 ─ &02:A$=A$+" VPD" ▀ A$=A$+" " ·/Г mem%?8 ─ &80:A$=A$+" BAS" ▀ A$=A$+" " ╗/Г mem%?8 ─ &40:A$=A$+" DEV" ▀ A$=A$+" " ╡.Г mem%?8 ─ &20:A$=A$+" FS" ▀ A$=A$+" " ╪0Г mem%?8 ─ &08:A$=A$+" CODE" ▀ A$=A$+" " ф0Г mem%?8 ─ &02:A$=A$+" BANK" ▀ A$=A$+" " п/Г mem%?8 ─ &01:A$=A$+" POS" ▀ A$=A$+" " зГ mem%?0<>&82:A$="" ДЯ A$ Н"base%=(base%+size%+255) ─ -256 ЬА : щРdump %Ц A%=0 ╦ 255 ┬ 16:Яєh0(A%,4);" "; -Ц B%=A% ╦ A%+15:Яєh0(mem%?B%,2);" ";:М B% *&Ц B%=A% ╦ A%+15:Яєc(mem%?B%);:М B% 4Я >М A% HА R: \ щРsave f,Г mem%?0<>&82:title$=єh0(base0%+base%,6) pЯ"Saving ";title$; zГ dest$<>"":Рcdir(dest$) └о#in%=base% ▌out%=ў(dest$+title$+bas$) ≤$Ц A%=1 ╦ size%:у#out%, #in%:М A% ╒ы#out%:Я ╛А І: ющРbasic й!Г (flag%─&80)=0 └ flag%=&FF:А тIA%=entry%:У:A%=A%+1:Щmem%?A%=&62:A%=A%+1:code%=A%+2+(mem%!A% ─ &FFFF) чЯ"Saving ";title$; ХГ prog$<>"":Рcdir(prog$) Ро#in%=base%+code% Эout%=ў(prog$+title$+bas$) (Ц A%=code% ╦ size%:у#out%, #in%:М A% ы#out%:Я А $: .-щєc(A%):A%=A%─127:ГA%<32└A%=127:="."▀=ҐA% 8#щєh0(A%,N%)=б"0000000"+ц~A%,N%) BщРcdir(A$) LЙ ┘:Н ┘ Й А VЪ "MKDIR "+A$ `А Ъ