| loadfilename 2@ last-loadfilename 2@ d<> |
loadfilename 2@ last-loadfilename 2@ d<> |
| IF |
IF |
| tag-bof count tag-file-id write-line throw |
tag-bof count tag-file-id write-line throw |
| loadfilename 2@ 2dup |
sourcefilename 2dup |
| tag-file-id write-file throw |
tag-file-id write-file throw |
| last-loadfilename 2! |
last-loadfilename 2! |
| s" ,0" tag-file-id write-line throw |
s" ,0" tag-file-id write-line throw |
| tag-beg count tag-file-id write-file throw |
tag-beg count tag-file-id write-file throw |
| tlast @ >image count $1F and tag-file-id write-file throw |
tlast @ >image count $1F and tag-file-id write-file throw |
| tag-end count tag-file-id write-file throw |
tag-end count tag-file-id write-file throw |
| base @ decimal loadline @ 0 <# #s #> tag-file-id write-file throw |
base @ decimal sourceline# 0 <# #s #> tag-file-id write-file throw |
| \ >in @ 0 <# #s [char] , hold #> tag-file-id write-line throw |
\ >in @ 0 <# #s [char] , hold #> tag-file-id write-line throw |
| s" ,0" tag-file-id write-line throw |
s" ,0" tag-file-id write-line throw |
| base ! |
base ! |
