home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / utilities / utilss / sasm / SAsmFrEnd / !SAsmFrEnd / !RunImage (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1993-08-03  |  4KB  |  199 lines
  1.  SAsm Friend
  2.  Copyright 
  3.  A. M. Pereira 1993
  4.  Version 1.30 (25th July 1993)
  5. ("RAM::RamDisc0.$."+
  6. 262336,200,&4b534154,"SAsm Friend"
  7. W%,V%:
  8. W%>300
  9. W%=300
  10. 6,161,140
  11. ,,A%:
  12.  1)=0
  13. W%=200
  14. R%1152,L% 2048,N% 
  15. L(3):K%=L%+2048:
  16. 262361,,"<SAsmFriend$Dir>.Templates"+
  17. (W%/100))
  18. 262363,,R%,L%,K%,-1,"sfe_opts",0
  19. ,,L%:
  20. 262337,,R%
  21. 262363,,R%,L%,K%,-1,"sfe_info",0
  22. 262337,,R%
  23. 262363,,R%,L%,K%,-1,"sfe_sources",0
  24. ,,L%:
  25. 262337,,R%
  26. 262362:!R%=-1:R%!4=0:R%!8=0:R%!12=68:R%!16=68:R%!20=&3002:$(R%+24)="!sasmfrend"
  27. 262338,,R%
  28. M(N%,210,"SAsmFriend"):
  29. K("Info","",M%):
  30. K("Options","",Q%)
  31. K("Quit","X",-1):
  32. Q:S%=
  33. 262343,%110000110001,R%
  34. 262341,,R%
  35. 262342,,R%
  36. 262364,R%!24
  37. 17,18:
  38. 262365,V%,&4B534154:
  39. !R%=2
  40. (R%!8
  41.  2)=2
  42. (R%!16=J%)
  43. 262356,,N%,!R%-64,96+(44*3)
  44. (R%!16=J% 
  45.  R%!12<0
  46. (R%!8
  47.  4)=4)
  48. ?R%!128=T%:
  49. 262347,,R%+128:!(R%+128+28)=-1:
  50. 262341,,R%+128
  51. R%!12=Q% 
  52. R%!16=17
  53. R%!16=18
  54. R%!16=21
  55. 262356,,-1
  56. R%!12=T% 
  57. R%!16=1
  58. O(T%,0,"")
  59. R%!16=2
  60. H(T%,0))
  61. R%!16
  62. 0:S%=
  63. D(G%,B$,F%):R%!0=G%:$(R%+4)=B$:
  64. 262367,R%,F%,"SAsm Friend":
  65. 131107,"Wimp$Scrap",R%+128,-1,0,0
  66. ,,,X%:
  67. D(5,"Wimp$Scrap is not defined",%110)
  68. F(E$):G$=
  69. H(T%,0):
  70. G$<>""
  71. E$=","+E$
  72. O(T%,0,G$+E$):R%!128=T%:
  73. 262347,,R%+128:
  74. 262341,,R%+128:
  75. R%!40<>&fff 
  76.  R%!40<>&1000
  77. 5&C$="":D$="":E%=44:
  78. E%<256
  79.  D$<>
  80. 64C$+=D$:D$=
  81. (R%?E%):E%+=1:
  82. R%!40=&1000
  83. C$+=".*"
  84. F(C$):R%!12=R%!8:R%!16=4:R%!20=-2:R%!24=J%:
  85. 262375,17,R%,R%!4:
  86. H(W%,I%):!(R%+128)=W%:!(R%+132)=I%:
  87. 262350,,R%+128
  88. 97x$="":Z%=!(R%+128+28):
  89. ?Z%>31:x$+=
  90. ?Z%:Z%+=1:
  91. I(E$):
  92. H(Q%,5)<>""
  93. 5,"Set SAsm$Lib "+
  94. H(Q%,5)
  95. ;.I$=
  96. H(Q%,2)+"SAsm "+E$+" ":
  97. H(Q%,20)<>""
  98. H(Q%,20)+" "
  99. I$+="~ "
  100. H(Q%,8)<>""
  101. H(Q%,8)+" "
  102. I$+="~ "
  103. N(Q%,14)
  104. I$+="X "
  105. N(Q%,15)
  106. I$+="L "
  107. N(Q%,16)
  108. I$+="V "
  109. H(Q%,9)<>""
  110. I#F%=
  111. E:I$+=" { > <Wimp$Scrap> }"
  112. H(Q%,5)<>""
  113. 131077,"SET SAsm$Lib "+
  114. H(Q%,5)
  115. 262366,I$
  116. H(Q%,8)<>""
  117. 131077,"SetType "+
  118. H(Q%,8)+" Text"
  119. H(Q%,9)<>""
  120. H(Q%,9))
  121. 131077,"SetType "+
  122. H(Q%,9)+" Text"
  123. J(F%,G%):R%!0=G%:$(R%+4)=
  124. $+" (internal error code "+
  125. (F%)+")"
  126. 262367,R%,%011,"SAsm Friend"
  127. K(J$,F$,U%):
  128. A%:A%=0
  129. F$,"!")
  130. A%=A%
  131. F$,".")
  132. A%=A%
  133. F$,">")
  134. A%=A%
  135. %1000
  136. F$,"X")
  137. A%=A%
  138. %10000000
  139. ]9C%!0=A%:C%!4=U%:C%!8=&7000031:$(C%+12)=J$+
  140. 0:C%+=24:
  141. L(F%):=28+(24*F%)
  142. M(O%,W%,K$):C%=O%:$C%=K$+
  143. 0:C%!12=&00070207:C%!16=W%:C%!20=44:C%!24=0
  144. C%+=28:
  145. N(W%,I%):R%!128=W%:R%!132=I%:
  146. 262350,,R%+128:
  147. (!(128+24+R%)
  148.  1<<21)>0
  149. O(W%,I%,t$):!(R%+128)=W%:!(R%+4+128)=I%:
  150. 262350,,R%+128:$(!(R%+28+128))=t$+
  151. d3!(R%+8+128)=0:!(R%+12+128)=0:
  152. 262349,,R%+128:
  153. P(W%,I%,Y%):!R%=W%:R%!4=I%:R%!12=1<<21:
  154. R%!8=1<<21
  155. R%!8=0
  156. 262349,,R%:
  157. Q:F%=
  158. ("SAsmFriend:Options"):
  159. O(Q%,2,
  160. #F%):
  161. O(Q%,5,
  162. O(Q%,8,
  163. #F%):
  164. O(Q%,9,
  165. #F%):
  166. O(Q%,20,
  167. #F%):H$=
  168. H$,"X")
  169. P(Q%,14,-1)
  170. P(Q%,14,0)
  171. H$,"L")
  172. P(Q%,15,-1)
  173. P(Q%,15,0)
  174. H$,"V")
  175. P(Q%,16,-1)
  176. P(Q%,16,0)
  177. R:F%=
  178. ("SAsmFriend:Options"):
  179. H(Q%,2):
  180. H(Q%,5)
  181. H(Q%,8):
  182. H(Q%,9):
  183. H(Q%,20):H$=""
  184. N(Q%,14)
  185. H$+="X"
  186. N(Q%,15)
  187. H$+="L"
  188. N(Q%,16)
  189. H$+="V"
  190. #F%,H$:
  191. S(A$):B%=
  192. ("<Wimp$Scrap>"):D%=
  193. (A$):
  194. F%>31
  195. F%=10
  196. #D%,F%
  197. F%=21
  198. 262366,"Delete <Wimp$Scrap>":
  199.