I started working on a BASIC program last night to convert a list of opcodes and create the opcode for a whole library. It currently uses the Alternate Template method and is based on my old program Biblio (I made it a few years ago using Celtic 3 and it created hexcode libraries). It is not complete, but the code I so far have:
:Ans→Str2 :Menu("Bibliothecaire","SIMPLE",1,"TECH",2,"PRO",3,"EXIT",θ :Lbl 1 :"EFD74AEFEF4A :Goto 4 :Lbl 3 :Lbl 2 :":"+Str2+":→Str2 :For(B,0,2 :"D7 :If B=1 :"DA :If B=2 :"E0 :"EF"+Ans+"4AEFEF4A→Str1 :Repeat not(A :inString(Str2,Str1→A :If A :sub(Str2,1,A-1)+"CD979D"+sub(Str2,A+12,length(Str2)-13→Str2 :End :"1818ED5BAF847AB3C81BED53AF842AB184E722B184EFEF4A37C9EF524BD7EBB7200501010018063DC04E234623ED43AF8422B184CDCE9D18FBCD979D3802E1C9 :Lbl 4 :"AsmPrgm"+Ans+"4704→Str1 :1→B :length(Str2→C :Repeat A≥C :1+inString(Str2,":",B :If Ans=1 :C+2 :Ans→A :If A-B≠1 :Then :sub(Str2,B,A-B-1→Str3 :.5(A-B-1→D :If fPart(Ans :Goto 5 :If Ans>127 :Goto 6 :If A≤C :Then :"0123456789ABCDEF :"10"+sub(Ans,1+iPart(D/16),1)+sub(Ans,1+16fPart(D/16),1 :Else :"05C0 :End :Str1+Ans+Str3→Str1 :End :A→B :End :Str1 :Goto θ :Lbl 6 :Pause "CODE TOO BIG :Str3 :Goto θ :Lbl 5 :Pause "BAD HEX :Str3 :Lbl θ :Ans
Ans is a string with your hexcodes separated by colons. For example, "3E02D310C9:3E03D310C9:EF7045C9" That will make an assembly library with 3 commands. It properly replaces the necessary code, too.
47%? Take a look and try to imagine how cool 100% will be. This has won zContest 2011 and made news on TICalc. This compromise between Assembly and BASIC parses like BASIC and is fast like assembly. Grammer 2