home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Outlet 81
/
outlet-81.mgt
/
TOR-INC4SO
< prev
next >
Wrap
Text File
|
2021-04-18
|
2KB
|
171 lines
** TORNADO **
; TORNADO INCLUDE source -- 106
namebuf áfindtable +10
; ORG 25651,len 314
includs èev1 ;get drivenr
àÇ
▓σ,icl ;err if 0
î3
icl ▒║,err2 ;err if >2
┤(ufia),Ç
èskip+1 ;get char
îë;=34, quote
▓╛,fout0
⌐ö;1st of filename
┤Ñ,namebuf+10 ;cl namebuf
┤»,nstr2+10 ;IX points to filename in UFIA
┤(Ñ),255 ;set endmark for printmsge
┤å,10 ;10 spaces in namebuf
movnam òÑ
ò»
┤(Ñ),32
┤(»),32
¢movnam
┤å,11 ;11th char must be a quote
mn ┤Ç,(ö);get char from file
⌐ö
îë;second quote
▓σ,setfl ;jp if end of name found
┤(Ñ),Ç;store char in namebuf
┤(»),Ç;store char in UFIA
⌐Ñ
⌐»
¢mn ;next char
fout0 ▒err0 ;nonsens, filenaam to long
setfl ɥ;drop A4 (ret to main)
ʔ;store mempntr
┤Ñ,inclflag
┤Ç,1
î(Ñ);test if already including
▒σ,inclex2 ;err if so
┤(Ñ),Ç;signal 'including'
┤Ñ,22528 ;cls menu
┤ö,22529
┤ç,639
┤(Ñ),0
╕
┤Ñ,includmsge ;at 11,4;"including:"
èprintmsge
┤Ñ,namebuf
èprintmsge ;name
openfile ┤»,ufia
┌8
û#3B;open the file
▓║,filefound
disk_error ┤(error_num),Ç
┌8 ;DISCiPLE or +D on
û71
┌32 ;use DISCiPLE error routine
error_num û0
filefound ┤ö,hd00
┤ç,9
┌8
û#3D
▓ë,disk_error
┤Ç,(hd00)
î3
▓σ,ftype_ok
┤Ç,13
▓disk_error
ftype_ok ┤Ñ,(hd0d)
┤ö,32768
█Ñ,ö
▓σ,start_ok
┤Ç,15
▓disk_error
start_ok ┤ö,20480
inclloop èfillbuf
èdoass ;do assemble
┤Ç,(noroomflg)
î2
▓ë,inclexit ;jp with error and eof (1/0)
▓╛,inclmore ;3 = end of buffer, need more
;no-room error now, = 2
ɔ;balance stack
═;cont. in main-noroom
inclmore ΣÇ
┤(noroomflg),Ç;reset 'more-flag'
▓inclloop ;cont. assemble
inclexit èprmenu ;restore screen
èpra ;flash A
┤Ç,(noroomflg);get flag again
inclex2 ┤Ñ,0 ;
┤(inclflag),Ñ;res 2 flags
ɔ;retr mempntr, stack balanced!
┤(storevar),▀;restore main-errsp!
àÇ;test 'error during include'
▒σ,a4 ;cont. in main-ass if not
┤Ñ,mesge6
▒err5 +3 ;insert errline + jp a4
ù"In file"
û13
mesge6 û8
includmsge û22,17,4
ù"Including : "
û255
fillbuf ┤Ñ,20480
àÇ
█Ñ,ö
┤å,ú
┤ë,│
┤Ñ,16384
íö,Ñ
┤Ç,å
┐ë
▓σ,no_move
ʇ
╕
ɇ
no_move ┤Ñ,4096
àÇ
█Ñ,ç
ʔ
íö,Ñ
┤Ñ,(hd0b)
█Ñ,ö
▓║,plenty
┤ç,(hd0b)
▓do_loading
plenty ┤(hd0b),Ñ
┤å,Æ
┤ë,¥
do_loading ɔ
┌8
û#3D
▒ë,disk_error
┤ö,16384
═
ufia û0
û0
û0
û"d"
û4
nstr2 ÿ10
hd00 û3
hd0b Ö0
hd0d Ö0
Ö0
Ö0
ERRMARK èINSLINE
èCURSDOWN
┤Ç,127
▒CHAR