10 REM > MkSrc816 - Make a 65816 source file
   20 A%=0:X%=1:os%=((USR&FFF4)AND&FF00)DIV256
   30 DIMctrl% 79,name% 127:X%=ctrl%:Y%=X%DIV256:cpu%=0
   40 eol$=CHR$(10-3*(os%<6)):IFos%AND32:eol$=CHR$13+CHR$10
   50 ONERRORREPORT:PROCClose_All:PRINT:END
   60 INPUT"Input object file:       "in$
   70 IFFNfile(in$,5)<>1:PRINT"File '"in$"' not found":END
   80 len%=X%!10:IFHIMEM-TOP-2000<len%:PRINT"File '"in$"' too long":END
   90 load%=X%!2:exec%=X%!6:DIMmem% len%:OSCLI"LOAD """+in$+""" "+STR$~mem%
  100 INPUT"Output source file:      "out$:out%=0:IFout$<>"":out%=OPENOUT(out$)
  110 A%=load%AND&FFFFFF00
  120 IFA%=&FFF70000:load%=&0000:exec%=&0000
  130 IFA%=&FFFBBC00:load%=&8000:exec%=&8000:IFmem%!0=0:IFmem%!4=0:load%=&C000:exec%=&C000
  140 IFA%=&FFFFF800:load%=&8000:exec%=&8000
  150 IFA%=&FFFFFA00:load%=&0000:exec%=&0000
  160 IFA%=&FFFFFC00:load%=&0000:exec%=&0000
  170 PRINT"Disassembly address:     (&";~load%;:INPUT") &"A$:IFA$<>"":load%=EVAL("&"+A$):exec%=load%
  180 REPEAT:X%!0=0:A$=FNDis_Name(cpu%):IFA$="":INPUT"CPU number:"SPC11;""cpu%
  190 UNTILA$<>"":dat%=X%?3AND12:wth%=(X%?3AND3)*2+4:mask%=EVAL("&"+STRING$(wth%,"F"))
  200 IFdat%=0:dat%=wth%+12ELSEIFdat%=12:dat%=21ELSEdat%=9
  210 INPUT"(B)asic or (T)ext output?        "A$:text%=(LEFT$(A$,1)="T"ORLEFT$(A$,1)="t")
  220 INPUT"Output byte dump in comments?    "A$:cmmt%=(LEFT$(A$,1)="Y"ORLEFT$(A$,1)="y")
  230 INPUT"Output byte dump in disassembly? "A$:dump%=(LEFT$(A$,1)="Y"ORLEFT$(A$,1)="y")
  240 cmmt%=cmmt%ORdump%
  250 FORB%=0TO1:addr%=load%:lbmax%=0
  260   IFB%:PRINT"Creating labels";STRING$(7+wth%,".");ELSEPRINT"Scanning for labels";STRING$(3+wth%,".");
  270   REPEAT:PRINTSTRING$(wth%,CHR$8);FNh0(addr%,wth%);:L$=FNline:A%=INSTR(L$,"&")
  280     IFA%:IFMID$(L$,A%+1,1)>="0":L%=EVALMID$(L$,A%):IFL%>&FF:IFL%>=(load%ANDmask%)ANDL%<(load%ANDmask%)+len%:lbmax%=lbmax%+4:IFB%:!lb%=L%:lb%=lb%+4
  290   addr%=addr%+num%:UNTILaddr%>load%+len%:IFB%=0:DIMlabel% lbmax%:lb%=label%
  300 PRINT:NEXTB%
  310 PRINT"Outputting source.....";FNh0(load%,wth%);
  320 PROCout("REM",CHR$&F4+" > "+out$)
  330 PROCout("REM",CHR$&F4+" Source for "+in$)
  340 PROCout(""," ")
  350 PROCout("","OS_CLI=&FFF7:OSBYTE=&FFF4:OSWORD=&FFF1:OSWRCH=&FFEE")
  360 PROCout("","OSWRCR=&FFEC:OSNEWL=&FFE7:OSASCI=&FFE3:OSRDCH=&FFE0")
  370 PROCout("","OSFILE=&FFDD:OSARGS=&FFDA:OSBGET=&FFD7:OSBPUT=&FFD4")
  380 PROCout("","OSGBPB=&FFD1:OSFIND=&FFCE")
  390 PROCout(""," ")
  400 PROCout("","load%=&"+STR$~load%)
  410 PROCout("DIM",CHR$&DE+" mcode% &"+STR$~(len%+20))
  420 IFtext%:PROCout("","FOR P=0 TO 1")ELSEPROCout("",CHR$&E3+" P=0 "+CHR$&B8+" 1")
  430 PROCout("","P%=load%:O%=mcode%")
  440 PROCout("","[OPT P*3+4")
  450 addr%=load%:REPEAT:PRINTSTRING$(wth%,CHR$8);FNh0(addr%,wth%);:L$=FNline:IFaddr%=exec%:PROCout("",".exec%")
  460   lb%=label%-4:REPEATlb%=lb%+4:UNTILlb%>label%+lbmax%OR!lb%=(addr%ANDmask%):IF!lb%=(addr%ANDmask%):PROCout("",".L"+FNh0(addr%ANDmask%,wth%))
  470   A$="":A%=INSTR(L$,"&"):IFA%:IFMID$(L$,A%+1,1)>="0":L%=EVALMID$(L$,A%):IFL%>=(load%ANDmask%)ANDL%<(load%ANDmask%)+len%:L$=LEFT$(L$,A%-1)+"L"+MID$(L$,A%+1)
  480   IFcmmt%:A$=FNh0(addr%,wth%):B$="":FORA%=0TOnum%-1:B%=?(addr%-load%+mem%+A%):A$=A$+" "+FNh0(B%,2):B$=B$+FNch(B%):NEXT:A$=A$+STRING$((dat%-LENA$)AND(LENA$<dat%)," ")+" "+B$
  490   IFdump%:IFLENA$<dat%+5:A$=A$+STRING$(dat%+5-LENA$," ")
  500   IFcmmt%:IFdump%=0:PROCout("",L$+STRING$((20-LENL$)AND(LENL$<20)," ")+" :\ "+A$)
  510   IFcmmt%:IFdump%:PROCout("",A$+" : "+L$)
  520   IFcmmt%=0:PROCout("",L$)
  530   IF(flg%AND64):PROCout(""," ")
  540 addr%=addr%+num%:UNTILaddr%>load%+len%
  550 IFtext%:PROCout("","]NEXT")ELSEPROCout("","]"+CHR$&ED)
  560 PROCout("PRINT",CHR$&F1+" ""*SAVE <file> "";~mcode%;"" "";~O%;"" "";~exec%;"" "";~load%")
  570 IFout%:IFNOTtext%:BPUT#out%,13:BPUT#out%,255
  580 IFout%:CLOSE#out%:out%=0:X%!2=&FFFFFB00-1024*text%:A%=FNfile(out$,2)
  590 PRINT:END
  600 DEFFNline:num%=FNDis_Code(cpu%,addr%,addr%-load%+mem%):L$=$(X%+4)
  610 num%=X%?3:flg%=X%?2:A%=INSTR(L$,"&FF"):IFA%=0:=L$
  620 L%=EVAL(MID$(L$,A%,5))-&FFCE:IFL%<0ORL%>43:=L$
  630 IF((L%MOD3-(L%>27))MOD3-3*(L%=24)+(L%>24ANDL%<28)-3*(L%=27)-(L%=28)):=L$
  640 =LEFT$(L$,A%-1)+"OS"+MID$("FINDGBPBBPUTBGETARGSFILERDCHASCINEWLWRCRWRCHWORDBYTE_CLI",(L%DIV3)*4+1,4)+MID$(L$,A%+5)
  650 DEFPROCout(T$,A$):IFout%=0:ENDPROC
  660 IFtext%:A$=T$+MID$(A$,(T$="")+2)+eol$:$name%=A$:PROCgbpb(2,out%,name%,LENA$,0):ENDPROC
  670 line%=line%+1:?name%=13:name%?1=line%DIV256:name%?2=line%
  680 name%?3=LENA$+4:$(name%+4)=A$:PROCgbpb(2,out%,name%,LENA$+4,0):ENDPROC
  690 DEFPROCClose_All:out%=out%:IFout%:A%=out%:out%=0:CLOSE#A%
  700 ENDPROC
  710 DEFFNch(A%):A%=A%AND127:IFA%<32ORA%=127:="."ELSE=CHR$A%
  720 DEFFNh0(A%,N%)=RIGHT$("0000000"+STR$~A%,N%)
  730 DEFPROCgbpb(A%,chn%,addr%,num%,ptr%)
  740 ?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:IF(os%AND32)=0:CALL&FFD1:ENDPROC
  750 IFA%=1ORA%=3:PTR#?X%=X%!9
  760 REPEAT:IFA%=1ORA%=2:BPUT#?X%,?X%!1ELSEIFA%=3ORA%=4:?X%!1=BGET#?X%
  770 X%!1=X%!1+1:X%!5=X%!5-1:UNTIL(EOF#?X%ANDA%>2)ORX%!5<1:ENDPROC
  780 DEFFNfile(A$,A%):IF(os%AND32)=0:$name%=A$:?X%=name%:X%?1=name%DIV256:=(USR&FFDD)AND&FF
  790 IFA%=5:X%!14=OPENIN(A$):IFX%!14:X%!10=EXT#X%!14:CLOSE#X%!14:X%!2=0:X%!6=0:X%!14=&33:=1
  800 =0
  810 DEFFNDis_Name(cpu%):IFcpu%=65:="65x02"ELSE="65816"
  820 DEFFNDis_Code(cpu%,Ptr%,Data%):LOCALop%,ins%,md%,b0%,num%,sz%
  830 num%=1:op%=?Data%:ins%=op%DIV32:md%=(op%AND31)DIV4:b0%=(op%AND3):sz%=2:IFcpu%=65:sz%=1
  840 X%!0=0:$(X%+4)=FN_diss:X%?3=num%:=num%
  850 DEFFN_diss
  860 IF(op%AND&F)=8:=MID$("PHPCLCPLPSECPHACLIPLASEIDEYTYATAYCLVINYCLDINXSED",1+3*(op%DIV16),3)
  870 IF(op%AND&8F)=&8A:=MID$("TXATXSTAXTSXDEXPHXNOPPLX",3*(op%DIV16)-23,3)
  880 IFop%=&20:="JSR "+FNmde(3)
  890 IF(op%AND&9F)=0:X%?2=(op%AND64):=MID$("BRK***RTIRTS",ins%*3+1,3)
  900 IF(op%AND&DF)=&5A:=MID$("PHYPLY",ins%*3-5,3)
  910 IFop%=&89:="BIT "+FNmde(2)
  920 IFb0%=1:=FNalu(ins%)+" "+FNmde(md%)
  930 IF(op%AND31)=&12:=FNalu(ins%)+" "+FNmde(16)
  940 IF(op%AND&EF)=&64:="STZ "+FNmde(md%)
  950 IF(op%AND&FD)=&9C:="STZ "+FNmde(b0%*2+3)
  960 IF(op%AND&D7)=&96:=FNrot(ins%)+" "+FNmde(md%AND3)+",Y"
  970 IF(op%AND7)=6:=FNrot(ins%)+" "+FNmde(md%)
  980 IF(op%AND&1F)=16:num%=2:="B"+MID$("PLMIVCVSCCCSNEEQ",1+2*ins%,2)+" "+FNjr(Data%?1,1)
  990 IF(op%AND&8F)=10:=FNrot((ins%+(md%AND4)*1.5)EOR((md%>4)AND1))+" A"
 1000 IF(op%AND&E7)=4:="T"+MID$("SR",1+(md%DIV4),1)+"B "+FNmde(md%AND3)
 1010 IF(op%AND&D3)=&C0:=FNbxy(ins%)+" "+FNmde(((md%EOR3)-1)AND3)
 1020 IF(op%AND&E7)=&24:="BIT "+FNmde(md%)
 1030 IF(op%AND&C7)=&84:=FNbxy(ins%)+" "+FNmde(md%)
 1040 IF(op%AND&FD)=&A0:="LD"+MID$("YX",1+((op%AND2)DIV2),1)+" "+FNmde(2)
 1050 IF(op%AND&CF)=&4C:IFop%<>&5C:X%?2=64:="JMP "+LEFT$("(",op%>&5F)+FNmde(md%)+LEFT$(")",op%>&5F)
 1060 IFop%=&80:num%=2:X%?2=64:="BRA "+FNjr(Data%?1,1)
 1070 IFb0%=3:IF(md%AND3)<>2:=FNalu(ins%)+" "+FNmde(md%+8)
 1080 IF(op%AND&0F)=&0B:X%?2=((op%=&6B)AND64):=MID$("PHDTCSPLDTSCPHKTCDRTLTDCPHBTXYPLBTYXWAISTPXBAXCE",(op%DIV16)*3+1,3)
 1090 IF((op%-&20)AND&DF)=&42:X%?2=((op%=&82)AND64):num%=3:=MID$("PERBRL",(op%DIV128)*3+1,3)+" "+FNjr(Data%!1AND&FFFF,2)
 1100 IF(op%AND&DF)=&C2ORop%=2:num%=2:=MID$("REPSEPCOP",(ins%AND1)*3+1-6*(op%=2),3)+" #&"+FNh0(Data%?1,2)
 1110 IFop%=&22:="JSL "+FNmde(11)
 1120 IFop%=&5C:="JMP "+FNmde(11)
 1130 IFop%=&FC:num%=3:="JSR (&"+FNh0(Data%!1,4)+",X)"
 1140 IFop%=&DC:X%?2=64:num%=3:="JMP [&"+FNh0(Data%!1,4)+"]"
 1150 IF(op%AND&EF)=&44:num%=3:=MID$("MVPMVN",(op%DIV16)*3-11,3)+" &"+FNh0(Data%?1,2)+",&"+FNh0(Data%?2,2)
 1160 IF(op%AND&DF)=&D4:=MID$("PEIPEA",ins%*3-17,3)+" "+FNmde((ins%AND1)*2+1)
 1170 IFop%=&42:="WDM"
 1180 X%?2=128:="EQUB &"+FNh0(op%,2)
 1190 DEFFNalu(A%)=MID$("ORAANDEORADCSTALDACMPSBC",A%*3+1,3)
 1200 DEFFNrot(A%)=MID$("ASLROLLSRRORSTXLDXDECINC",A%*3+1,3)
 1210 DEFFNbxy(A%)=MID$("***BIT***STZSTYLDYCPYCPX",A%*3+1,3)
 1220 DEFFNmde(A%)
 1230 IFA%=0ORA%=4ORA%=16:num%=2:="(&"+FNh0(Data%?1,2)+LEFT$(",X",A%=0)+")"+LEFT$(",Y",A%=4)
 1240 IFA%=1ORA%=5:num%=2:="&"+FNh0(Data%!1,2)+LEFT$(",X",A%=5)
 1250 IFA%=2:num%=1+sz%:="#&"+FNh0(Data%!1,sz%*2)
 1260 IFA%=3ORA%=6ORA%=7:num%=3:="&"+FNh0(Data%!1,4)+LEFT$(",Y",A%=6)+LEFT$(",X",A%=7)
 1270 IFA%=8ORA%=12:num%=2:=LEFT$("(",A%=12)+"&"+FNh0(Data%?1,2)+",S"+LEFT$("),Y",A%=12)
 1280 IFA%=9ORA%=13:num%=2:="[&"+FNh0(Data%?1,2)+"]"+LEFT$(",Y",A%=13)
 1290 IFA%=11ORA%=15:num%=4:="&"+FNh0(Data%!1,6)+LEFT$(",X",A%=15)
 1300 ="?"
 1310 DEFFNjr(A%,sz%):IFsz%=1:IFA%<128:="&"+FNh0(Ptr%+A%+2,4)ELSEIFsz%=1:="&"+FNh0(Ptr%+A%+2-256,4)
 1320 IFA%<32768:="&"+FNh0(Ptr%+A%+3,4)ELSE="&"+FNh0(Ptr%+A%+2-32768,4)