home *** CD-ROM | disk | FTP | other *** search
/ Outlet 81 / outlet-81.mgt / TOR-INC4SO < prev    next >
Text File  |  2021-04-18  |  2KB  |  171 lines
  1.  
  2.   ** TORNADO  **
  3.  
  4. ; TORNADO INCLUDE source     -- 106
  5.  
  6.  
  7. namebuf áfindtable +10 
  8.  
  9.  
  10. ;          ORG  25651,len 314
  11.  
  12. includs èev1 ;get drivenr
  13. àÇ
  14. ▓σ,icl ;err if 0
  15. î3 
  16. icl ▒║,err2 ;err if >2
  17. ┤(ufia),Ç
  18. èskip+1 ;get char
  19. îë;=34, quote
  20. ▓╛,fout0 
  21. ⌐ö;1st of filename
  22.  
  23. ┤Ñ,namebuf+10 ;cl namebuf
  24. ┤»,nstr2+10 ;IX points to filename in UFIA
  25. ┤(Ñ),255 ;set endmark for printmsge
  26. ┤å,10 ;10 spaces in namebuf
  27. movnam òÑ
  28. ò»
  29. ┤(Ñ),32 
  30. ┤(»),32 
  31. ¢movnam 
  32. ┤å,11 ;11th char must be a quote
  33. mn ┤Ç,(ö);get char from file
  34. ⌐ö
  35. îë;second quote
  36. ▓σ,setfl ;jp if end of name found
  37. ┤(Ñ),Ç;store char in namebuf
  38. ┤(»),Ç;store char in UFIA
  39. ⌐Ñ
  40. ⌐»
  41. ¢mn ;next char
  42. fout0 ▒err0 ;nonsens, filenaam to long
  43.  
  44. setfl ╔Ñ;drop A4 (ret to main)
  45. ╩ö;store mempntr
  46. ┤Ñ,inclflag 
  47. ┤Ç,1 
  48. î(Ñ);test if already including
  49. ▒σ,inclex2 ;err if so
  50. ┤(Ñ),Ç;signal 'including'
  51. ┤Ñ,22528 ;cls menu
  52. ┤ö,22529 
  53. ┤ç,639 
  54. ┤(Ñ),0 
  55. ╕
  56. ┤Ñ,includmsge ;at 11,4;"including:"
  57. èprintmsge 
  58. ┤Ñ,namebuf 
  59. èprintmsge ;name
  60.  
  61. openfile ┤»,ufia 
  62. ┌8 
  63. û#3B;open the file
  64. ▓║,filefound 
  65. disk_error ┤(error_num),Ç
  66. ┌8 ;DISCiPLE or +D on
  67. û71 
  68. ┌32 ;use DISCiPLE error routine
  69. error_num û0 
  70.  
  71. filefound ┤ö,hd00 
  72. ┤ç,9 
  73. ┌8 
  74. û#3D
  75. ▓ë,disk_error 
  76. ┤Ç,(hd00)
  77. î3 
  78. ▓σ,ftype_ok 
  79. ┤Ç,13 
  80. ▓disk_error 
  81. ftype_ok ┤Ñ,(hd0d)
  82. ┤ö,32768 
  83. █Ñ,ö
  84. ▓σ,start_ok 
  85. ┤Ç,15 
  86. ▓disk_error 
  87. start_ok ┤ö,20480 
  88. inclloop èfillbuf 
  89. èdoass ;do assemble
  90. ┤Ç,(noroomflg)
  91. î2 
  92. ▓ë,inclexit ;jp with error and eof (1/0)
  93. ▓╛,inclmore ;3 = end of buffer, need more
  94.  ;no-room error now, = 2
  95. ╔ö;balance stack
  96. ═;cont. in main-noroom
  97.  
  98. inclmore ΣÇ
  99. ┤(noroomflg),Ç;reset 'more-flag'
  100. ▓inclloop ;cont. assemble
  101.  
  102. inclexit èprmenu ;restore screen
  103. èpra ;flash A
  104. ┤Ç,(noroomflg);get flag again
  105. inclex2 ┤Ñ,0 ;
  106. ┤(inclflag),Ñ;res 2 flags
  107. ╔ö;retr mempntr, stack balanced!
  108. ┤(storevar),▀;restore main-errsp!
  109. àÇ;test 'error during include'
  110. ▒σ,a4 ;cont. in main-ass if not
  111. ┤Ñ,mesge6 
  112. ▒err5 +3 ;insert errline + jp a4
  113.  
  114. ù"In file" 
  115. û13 
  116. mesge6 û8 
  117.  
  118. includmsge û22,17,4 
  119. ù"Including : " 
  120. û255 
  121.  
  122. fillbuf ┤Ñ,20480 
  123. àÇ
  124. █Ñ,ö
  125. ┤å,ú
  126. ┤ë,│
  127. ┤Ñ,16384 
  128. íö,Ñ
  129. ┤Ç,å
  130. ┐ë
  131. ▓σ,no_move 
  132. ʇ
  133. ╕
  134. ɇ
  135. no_move ┤Ñ,4096 
  136. àÇ
  137. █Ñ,ç
  138. ʔ
  139. íö,Ñ
  140. ┤Ñ,(hd0b)
  141. █Ñ,ö
  142. ▓║,plenty 
  143. ┤ç,(hd0b)
  144. ▓do_loading 
  145. plenty ┤(hd0b),Ñ
  146. ┤å,Æ
  147. ┤ë,¥
  148. do_loading ╔ö
  149. ┌8 
  150. û#3D
  151. ▒ë,disk_error 
  152. ┤ö,16384 
  153. ═
  154.  
  155. ufia û0 
  156. û0 
  157. û0 
  158. û"d" 
  159. û4 
  160. nstr2 ÿ10 
  161. hd00 û3 
  162. hd0b Ö0 
  163. hd0d Ö0 
  164. Ö0 
  165. Ö0 
  166.  
  167. ERRMARK èINSLINE 
  168. èCURSDOWN 
  169. ┤Ç,127 
  170. ▒CHAR 
  171.