home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 72 / 072.d81 / tsg (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  74 lines
  1. 100 poke54,31:poke56,31:poke644,31:clr
  2. 110 sys57812"tsg.o",8,0:poke780,0:poke781,0:poke782,32:sys65493
  3. 120 poke53281,0:poke53280,0:print"[147]":gosub520
  4. 130 print"  [204]oad a mnemonic overlay file? ([158][217]/[158][206])":poke198,0
  5. 140 geta$:ifa$=""then140
  6. 150 ifa$="n"then330
  7. 160 print"  [195]hoose an overlay...               ":poke198,0
  8. 170 print"     [158]1.[159] [211]tandard opcodes"
  9. 180 print"     [158]2.[159] [213]ndocumented opcodes set #1"
  10. 190 print"     [158]3.[159] [213]ndocumented opcodes set #2"
  11. 200 print"     [158]4.[159] [210]6511 opcodes"
  12. 210 print"     [158]5.[159] [210]65[195]02 opcodes"
  13. 220 geta$:ifa$=""then220
  14. 230 ifa$<"1"ora$>"5"then220
  15. 240 onval(a$)goto250,260,270,280,290
  16. 250 o$="standard":goto300
  17. 260 o$="i-comp":goto300
  18. 270 o$="i-tran":goto300
  19. 280 o$="r6500/":goto300
  20. 290 o$="r65cxxx"
  21. 300 printleft$("",4+2*val(a$))"     "a$". "
  22. 310 sys57812o$,8,0:poke780,0:poke781,3:poke782,32:sys65493
  23. 320 :
  24. 330 gosub810:ee=1:ec=0:print"[158][198]ile [212]o [196]isassemble ";:gosub610:in$=a$
  25. 340 print"[153]  [*[159]=[204]oad [193]ddress[153]]"
  26. 350 print"[145][145][158][211]tarting [193]ddress ([210]eal) ? ";:ee=0:gosub620:sa$=a$
  27. 360 if sa$="*" and in$<>"" then390
  28. 370 print"[158][211]topping [193]ddress ([210]eal) ? ";:gosub620:ea$=a$
  29. 380 i$=sa$:print"[158][205]emory [211]tarting [193]ddress ? ";:gosub620:ma$=a$
  30. 390 ee=1:print"[158][196]efinition [198]ile.... ";:gosub610:df$=a$
  31. 400 print"[158][211]ymbol [198]ile........ ";:gosub610:sy$=a$
  32. 410 ec=1:print"[158][207]ptions............ ";:gosub610:op$=a$
  33. 420 print"[147]":sys8192:poke53280,0
  34. 430 print" [153]************** [198][201][206][201][211][200][197][196] [153]**************"
  35. 440 print"  [159][199]enerate another source file? ([217][159]/[206][159])";
  36. 450 geta$:ifa$=""then450
  37. 460 ifa$="y"then120
  38. 470 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  39. 480 ifer<>63thenprint"[147]":end
  40. 490 a$="hello connect":q$=chr$(34)
  41. 500 print"[147][144]load"q$a$q$",8"
  42. 510 print"run":poke631,13:poke632,13:poke198,2:end
  43. 520 print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  44. 530 print"          [212]he [211]ource [199]enerator        "
  45. 540 print"          [194]y [212]homas [195]zarnecki         "
  46. 550 print"           [193]ll [210]ights [210]eserved        "
  47. 560 print"        [208]ublished on [204][207][193][196][211][212][193][210] #72     "
  48. 570 print"      Subscriptions 1-800-831-2694    "
  49. 580 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  50. 590 return
  51. 600 :
  52. 610 ml=16:h=0:goto630
  53. 620 ml=4:h=1
  54. 630 a$="":poke198,0:k=0
  55. 640 print"[159]"mid$("[164][175][185][162][162][185][175][164]",k+1,1)"[157]";:k=(k+1)and7:getd$:ifd$<>""then670
  56. 650 fordc=1to10:nextdc
  57. 660 ifd$=""then640
  58. 670 iflen(a$)=mlthen760
  59. 680 ifhthen740
  60. 690 ifd$=" "ord$="."then800
  61. 700 ifd$>"/"andd$<":"then800
  62. 710 ifd$>"@"andd$<"["then800
  63. 720 ifd$>"[192]"andd$<"[219]"then800
  64. 730 ifd$=" "ord$="."or(d$=","andec)then800
  65. 740 if((d$>"/")and(d$<":"))or((d$>"@")and(d$<"g"))then800
  66. 750 ifd$="*"andlen(a$)=0thenprintd$:a$=d$:return
  67. 760 ifd$=chr$(13)and(len(a$)oree)thenprint" ":return
  68. 770 ifd$<>chr$(20)then640
  69. 780 iflen(a$)=0then640
  70. 790 a$=left$(a$,len(a$)-1):print"[157]  [157][157]";:goto640
  71. 800 printd$;:a$=a$+d$:ifd$<>chr$(20)thengoto640
  72. 810 print"";:forx=1to18:print"                                       ":nextx
  73. 820 return
  74.