" > MkSrc - Make a source file # > MkSrcCore v0.10 16-Aug-2007  (C)2007 J.G.Harston (: 29 ctrl% 63,name% 127:X%=ctrl%:Y%=X%256:X%!0=0:cpu%=0 <@A$=Dis_Name(cpu%):wth%=(X%?33)*2+4:mask%=("&"+wth%,"F")) F: P :Close_All:: Z"Input object file: "in$ d0file(in$,5)<>1:"File '"in$"' not found": n:len%=X%!10: -P-2000"":out%=(out$) : ' "Scanning for labels....";~load%; 1addr%=load%:lbmax%=0::ĩ~addr%,8);~addr%; cL$=line:A%=L$,"&"):A%:L%=L$,A%):L%>=(load%mask%) L%<(load%mask%)+len%:lbmax%=lbmax%+4 6addr%=addr%+num%:addr%>load%+len%: label% lbmax% : ''"Creating labels........";~load%; 3addr%=load%:lb%=label%::ĩ~addr%,8);~addr%; eL$=line:A%=L$,"&"):A%:L%=L$,A%):L%>=(load%mask%) L%<(load%mask%)+len%:!lb%=L%:lb%=lb%+4 &addr%=addr%+num%:addr%>load%+len% ": ,''"Outputting source......";~load%; 6out(&F4+" > "+out$) @!out(&F4+" Source for "+in$) J out(" ") T?out("OS_CLI=&FFF7:OSBYTE=&FFF4:OSWORD=&FFF1:OSWRCH=&FFEE") ^?out("OSWRCR=&FFEC:OSNEWL=&FFE7:OSASCI=&FFE3:OSRDCH=&FFE0") h out(" ") rout("load%=&"+~load%) |&out(&DE+" mcode% &"+~(len%+20))  out(&E3+" P=0 "+&B8+" 1") out("P%=load%:O%=mcode%") out("[OPT P*3+4") : 1addr%=load%::ĩ~addr%,8);~addr%;:L$=line addr%=exec%:out(".exec%") ylb%=label%-4:lb%=lb%+4:lb%>label%+lbmax% !lb%=(addr%mask%): !lb%=(addr%mask%):out(".L"+h0(addr%mask%,wth%)) eA%=L$,"&"):A%:L%=L$,A%):L%>=(load%mask%) L%<(load%mask%)+len%:L$=L$,A%-1)+"L"+L$,A%+1) 2L$=L$+15-L$," ")+" :\ "+h0(addr%,wth%)+"= " = A%=0 num%-1:L$=L$+h0(?(addr%-load%+mem%+A%),2)+" ": L$=L$+37-L$," ") 7 A%=0 num%-1:L$=L$+ch(?(addr%-load%+mem%+A%)): !out(L$):(flg%64):out(" ") &addr%=addr%+num%:addr%>load%+len% out("]"+&ED) Oout(&F1+" ""*SAVE "";~mcode%;"" "";~O%;"" "";~exec%;"" "";~load%") &out%:#out%,13:#out%,255 07out%:#out%:out%=0:X%!2=&FFFFFB00:A%=file(out$,2) :: D: NAݤline:num%=Dis_Code(cpu%,addr%,addr%-load%+mem%):L$=$(X%+4) X/num%=X%?3:flg%=X%?2:A%=L$,"&FF"):A%=0:=L$ b+L%=(L$,A%,5))-&FFCE:L%<0 L%>43:=L$ lG((L%3-(L%>27))3-3*(L%=24)+(L%>24 L%<28)-3*(L%=27)-(L%=28)):=L$ vg=L$,A%-1)+"OS"+"FINDGBPBBPUTBGETARGSFILERDCHASCINEWLWRCRWRCHWORDBYTE_CLI",(L%3)*4+1,4)+A$,A%+5) : out(A$):out%=0: ;line%=line%+1:?name%=13:name%?1=line%256:name%?2=line% =name%?3=A$+4:$(name%+4)=A$:gbpb(2,out%,name%,A$+4,0): : 3Close_All:out%=out%:out%:A%=out%:out%=0:#A%  : 2ݤch(A%):A%=A%127:A%<32 A%=127:="." =A% #ݤh0(A%,N%)="0000000"+~A%,N%) Bݤfile(A$,A%):$name%=A$:?X%=name%:X%?1=name%256:=(&FFDD)&FF 3gbpb(A%,ch%,X%!1,X%!5,X%!9):?X%=ch%: &FFD1: : G > DisOSW 1.00 - 06-Nov-1989 - OSWORD-calling disassembly routines  : FݤDis_Code(c%,a%,d%):!X%=&200C:X%?2=c%:X%!4=a%:X%!8=!d%:X%!12=d%!4  =A%=190:&FFF1:X%?3=0:$(X%+4)="EQUB &"+h0(X%?8,2):X%?3=1 * =X%?3 4: >9ݤDis_Name(c%):!X%=&2008:X%?2=c%:X%!4=0:A%=190:&FFF1 HX%!4:=$(X%+4) =""