> SSDMerge & Merge two SSDs to create one DSD trksz%=10*256 (/ ctrl% 31,mem% trksz%-1:X%=ctrl%:Y%=X%256 2 "Side 1: "in1$ < "Side 2: "in2$ F "Output: "out$ P! :Close_All::exit(): Z@in1%=(in1$):in1%=0:"File '"in1$"' not found":exit(214): dGin2%=(in2$):in2%=0:"File '"in2$"' not found":#in1%:exit(214): nJout%=(out$):out%=0:"Can't open '"out$"'":#in2%:#in1%:exit(192): x:13;~#out%; - A%=0 trksz%-1 4:mem%!A%=&E5E5E5E5: (#in1%:gbpb(4,in1%,mem%,trksz%,0) gbpb(2,out%,mem%,trksz%,0) - A%=0 trksz%-1 4:mem%!A%=&E5E5E5E5: (#in2%:gbpb(4,in2%,mem%,trksz%,0) gbpb(2,out%,mem%,trksz%,0) #in1% #in2% #out%:out%=0 #in2%:in2%=0 #in1%:in1%=0 13;"Done"5:exit(0): : Ugbpb(A%,chn%,addr%,num%,ptr%):?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%: &FFD1: : Close_All 'in1%=in1%:in1%:A%=in1%:in1%=0:#A% "'in2%=in2%:in2%:A%=in2%:in2%=0:#A% ,'out%=out%:out%:A%=out%:out%=0:#A% 6 @: Jexit(A%):