# > MkSrcCore v0.10 16-Aug-2007  (C)2007 J.G.Harston : (G ctrl% 31,name% 127:X%=ctrl%:Y%=X%256:cpu%=65:mask%=&FFFF:wdth%=4 2: < :Close_All:: F"Input object file: "in$ P0file(in$,5)<>1:"File '"in$"' not found": Z: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%; !out(&F4+" Source for "+in$)  out(" ") ?out("OS_CLI=&FFF7:OSBYTE=&FFF4:OSWORD=&FFF1:OSWRCH=&FFEE") "?out("OSWRCR=&FFEC:OSNEWL=&FFE7:OSASCI=&FFE3:OSRDCH=&FFE0") , out(" ") 6out("load%=&"+~load%) @&out(&DE+" mcode% &"+~(len%+20)) J out(&E3+" P=0 "+&B8+" 1") Tout("P%=load%:O%=mcode%") ^out("[OPT P*3+4") h: r1addr%=load%::ĩ~addr%,8);~addr%;:L$=line |addr%=exec%:out(".exec%") zlb%=label%-4:lb%=lb%+4:lb%>label%+lbmax% !lb%=(addr%mask%): !lb%=(addr%mask%):out(".L"+h0(addr%mask%,wdth%)) eA%=L$,"&"):A%:L%=L$,A%):L%>=(load%mask%) L%<(load%mask%)+len%:L$=L$,A%-1)+"L"+L$,A%+1) 3L$=L$+16-L$," ")+" :\ "+h0(addr%,wdth%)+"= " = A%=0 num%-1:L$=L$+h0(?(addr%-load%+mem%+A%),2)+" ": L$=L$+38-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%") line%=&FFFE:out("") 7out%:#out%:out%=0:X%!2=&FFFFFB00:A%=file(out$,2) : : Aݤline:num%=Dis_Code(cpu%,addr%,addr%-load%+mem%):L$=$(X%+4) /num%=X%?3:flg%=X%?2:A%=L$,"&FF"):A%=0:=L$ &+L%=(L$,A%,5))-&FFCE:L%<0 L%>43:=L$ 0G((L%3-(L%>27))3-3*(L%=24)+(L%>24 L%<28)-3*(L%=27)-(L%=28)):=L$ :g=L$,A%-1)+"OS"+"FINDGBPBBPUTBGETARGSFILERDCHASCINEWLWRCRWRCHWORDBYTE_CLI",(L%3)*4+1,4)+A$,A%+5) D: Nout(A$):out%=0: X;line%=line%+1:?name%=13:name%?1=line%256:name%?2=line% b=name%?3=A$+4:$(name%+4)=A$:gbpb(2,out%,name%,A$+4,0): l: v3Close_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: : :