 
ô > MkTorch v0.02 -ô v0.01 Filename handling assumes Windows Vô v0.02 Fixed allocation table and overflow, directory overflow, forces upper case (: 24Þ ctrl% 31,data% 512,name% 31:X%=ctrl%:Y%=X%256 <@ñ "MkTorch - Create Torch CPN disk images from source files" F>è "Source directory: "indir$:ç indir$="":indir$="CISCobol" P<è "Output file:      "out$:ç out$="":out$="COBOLCPN.ssd" Z.ç Áout$,©out$-3,1)=".":out$=Àout$,©out$-4) d òmkcpn(indir$,out$+".ssd",£) n òmkcpn(indir$,out$+".dsd",¹) xÈ˜ ‚: ŒÝòmkcpn(indir$,out$,dsd%) –ssd%=(dsd%=0)   ª%ô track_number  = track<<2 + head ´.ô sector_number = track_number<<4 + sector ¾ Èô logical sector number: Òô %ttttttttttthssss Ü+ô  ||||||||||||++++--- sector      0-15 æ*ô  |||||||||||+------- head (side) 0-1 ð-ô  +++++++++++-------- track       0-2047 ú*ô  sector number allows up to 16M diskô Sectorô &0000-&0009 directory"ô &000A-&000F reserved,ô &0010-&0015 directory6Xô &0016-&0017 allocation map, bit n=sector n is not free - space for up to 512K disk@ô &0018       test patternJEô &0019       system information, all zeros except byte 254 = &66Tô &001A-&001F reserved^ô &0020-      datahrô Directory|(ô &00-&01 sector of allocation block†Dô           &0000=end of dir, &0000+n=L3 block, &8000+n=L2 block&ô &02-&03 size in 128-byte recordsšô &04     user number¤ô &05-&0C file name®ô &0D-&0F file extension¸Âô L3 Allocation blockÌYô &00-&01 sector of bytes 0-255, b14 set if 0-127 written, b15 set if 128-255 writtenÖ[ô &02-&03 sector of bytes 256-512, b14 set if 0-127 written, b15 set if 128-255 writtenà
ô etc.êôô L2 Allocation blockþ1ô &00-&01 sector of first L3 allocation block2ô &02-&03 sector of second L3 allocation block
ô etc.&dirend%=00diskend%=&20:out%=®(out$)D
idx%=0NFõ:file$=¤f_scan(indir$,idx%):idx%=X%!9:ç file$<>"":òaddfile(file$)Xý file$=""bbdata%!0=0:data%!4=0:data%!8=0:data%!12=0                          :ô Clear to end of directorylOç dirend%<256:õ:òwrite(data%,16,dirend%*16):dirend%=dirend%+1:ý dirend%>255vPã A%=0 ¸ 511 ˆ 4:data%!A%=&FC00FC00:í A%                 :ô Allocation table€>ã A%=0 ¸ diskend%-1:data%?(A%8)=data%?(A%8) „ 2^(A%€7):íŠòwrite(data%,512,&1600)”Lã A%=0 ¸ 255:data%?A%=A%+&D6:í A%:òwrite(data%,256,&1800):ô Test patternžRã A%=0 ¸ 255 ˆ 4:data%!A%=0:í A%:data%?254=&66           :ô System information¨òwrite(data%,256,&1900)²Ù#out%:out%=0¼áÆ:ÐÝòaddfile(file$)Ú;fname$=file$:ç Âfile$,4)=",fe4":fname$=Àfile$,©file$-4)äñ fname$;‰(14-©fname$);î)ç dirend%>255:ñ " - directory full":áøBin%=Ž(indir$+"\"+file$):ç in%=0:in%=Ž(indir$+"\"+file$+",fe4")ç in%=0:ñ" - can't open":áOA%=§fname$,"."):fname$=ÀÀfname$,A%-1)+"        ",8)+ÀÁfname$,A%+1)+"   ",3)3fsize%=(¢#in%+127)128:ç fsize%:fsize%=fsize%-1 %ñ ¤h0(¢#in%,6);" ";¤h0(fsize%,4);*:4!dir0%=dirend%:disk0%=diskend%>sec%=¤nextsec:ç ¤diskfull:áHMñ " ";¤h0(sec%,4);" T:";¤d0(sec%&20,3);" H:";(sec%&10)€1;" S:";sec%€15;Rl2%=0:a2%=2:l3%=sec%:a3%=0\hç fsize%>256:l2%=l3%:l3%=¤nextsec:!data%=l3%:òwrite(data%,2,l2%*256):sec%=sec% „ &8000:ç ¤diskfull:áf.data%!0=sec%           :ô Allocation blockp;data%!2=fsize%         :ô File size in 128-byte recordsz)data%?4=0              :ô User number„&$(data%+5)=¤uc(fname$):ô File nameŽòwrite(data%,16,dirend%*16)˜dirend%=dirend%+1¢õ¬sec%=¤nextsec:ç ¤diskfull:á¶!data%=sec% „ &C000À)òwrite(data%,2,l3%*256+a3%):a3%=a3%+2ÊQç a3%>255:l3%=¤nextsec:!data%=l3%:òwrite(data%,2,l2%*256+a2%):a2%=a2%+2:a3%=0Ô!ã A%=0 ¸ 255 ˆ 4:data%!A%=0:íÞòf_gbpb(4,in%,data%,256,0)èòwrite(data%,256,sec%*256)òfsize%=fsize%-2üý fsize%<0Ù#in%:in%=0:ñá:$Ý¤nextsec.LA%=diskend%:diskend%=diskend%+1:ç (diskend% € 15)=10:diskend%=diskend%+68=A%B:L+Ý¤diskfull:ç diskend%<=&A00 „ ssd%=0:=£VAñ " - disk full":Ù#in%:in%=0:diskend%=disk0%:dirend%=dir0%:=¹`:j&Ýòwrite(addr%,num%,ptr%):ê hd%,tk%t2ç ssd%:hd%=(ptr%  &1000) € 1:tk%=ptr%  &2000~/ç ssd%:ptr%=(hd%*80+tk%)*&A00+(ptr% € &FFF)ˆ1ç dsd%:ptr%=(ptr%  &1000)*&A00+(ptr% € &FFF)’#òf_gbpb(1,out%,addr%,num%,ptr%)œá¦:°:º%Ýòf_gbpb(A%,chn%,addr%,num%,ptr%)Ä=?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:ç<&FFFF:Ö&FFD1:áÎçA%=1„A%=3:Ï#?X%=X%!9Ø5õ:çA%=1„A%=2:Õ#?X%,?X%!1 ‹ çA%=3„A%=4:?X%!1=š#?X%â5X%!1=X%!1+1:X%!5=X%!5-1:ý(Å#?X% € A%>2)„ X%!5<1:áì:ö3Ý¤f_scan(dir$,ptr%):X%!1=name%:X%!5=1:X%!9=ptr% .ç<&FFFF:çdir$<>"":="":ô Not yet supported
$ç<&FFFF:A%=8:Ö&FFD1:çX%!5=1:=""@ç<&FFFF:A%=name%+1:A%!(A%?-1)=&D20:A%?(§$A%," ")-1)=13:=$A%4ç¦-256<>—"W":="":ô Non-Windows not yet supported(:êdir%,sh%,res%:Þdir%ê319:X%!9=ptr%+1:çdir$="":dir$="."26È™"FindFirstFile",dir$+"\*.*",dir%¸sh%:çsh%=-1:=""<0õ:A$=$$(dir%+44):çA$="."„A$="..":ptr%=ptr%+1F!çptr%=0:È™"FindClose",sh%:=A$P.ptr%=ptr%-1:È™"FindNextFile",sh%,dir%¸res%Z"ýres%=0:È™ "FindClose",sh%:=""d:n#Ý¤h0(A%,N%)=Â"0000000"+Ã~A%,N%)x#Ý¤d0(A%,N%)=Â"00000000"+ÃA%,N%)‚Ý¤uc(A$):çA$="":=""ŒEãA%=1¸©A$:çÁA$,A%,1)>"_":A$=ÀA$,A%-1)+½(—ÁA$,A%,1)€&5F)+ÁA$,A%+1)–	í:=A$ÿ