"Т > TextToCmd 1.01 01-Nov-2010 8Т Build a *runnable command to display embedded text Т v1.01 Some more debugging (: 2Eч ctrl% 31,name% 31 :Т Control block for OSFILE call <>X%=ctrl%:Y%=X%│256 :Т Point to control block F:Х "File to display: "file$ :Т Ask for file to load P9Х "*command to save: "save$ :Т Filename to save as Z7Х "Load address (RETURN for top of memory): &"load$ d: nFA%=єfile(file$,5) :Т Read file info to block at X% x;Г A%=0:Я "File '"file$"' not found":Ю :Т No file found ┌Dmax%=X%!10 :Т Get file length from X%!10 ▄8Г load$<>"":load%=═("&"+load$) ▀ load%=&8000-max%-42 √@load%=load%└&FFFF0000 :Т Ensure in I/O processor ═:Т NB: This assumes you will be in a shadow screen mode ╙FТ *** Change &8000 to a relevant HIMEM value for non-shadow screen Є5Т *** Or specify an address when prompted earlier Ў: х Т Now build the machine code рEч mcode% max%+42 :Т DIM a block for code and data эKaddr=&A8:end=&AA:OSWRCH=&FFEE :Т Workspace locations for *commands Ф Ц P=0 ╦ 1:P%=load%:O%=mcode% П[OPT P*2+4 З.display %LDA #data_start% ─ 255:STA addr+0 GLDA #data_start% │ 256:STA addr+1 :\ addr=>start of stored О data "LDA #data_end% ─ 255:STA end+0 "DLDA #data_end% │ 256:STA end+1 :\ end=>end of stored О data , LDY #0 6 .loop @JLDA (addr),Y:JSR OSWRCH :\ Fetch a byte and send it to О J>INC addr+0:BNE P%+4:INC addr+1 :\ Increment address T!LDA addr+0:CMP end+0:BNE loop ^@LDA addr+1:CMP end+1:BNE loop :\ Loop until addr=end hRTS r:.data_start% :\ Start of data |=]P%=P%+max%:O%=O%+max%:[OPT P*2+4 :\ Space for О data ├8.data_end% :\ End of data ░]М CЪ "Load "+file$+" "+ц~(mcode%+data_start%-display) :Т Load file єBA$="SAVE "+save$+" "+ц~mcode%+" "+ц~O%+" "+ц~load%+" "+ц~load% ўЯ "Saving ";save$;:Ъ A$:Я ╦Ю бBщєfile(A$,A%):$name%=A$:?X%=name%:X%?1=name%│256:=(╨&FFDD)─&FF Ъ