version 1.30, 1995/11/07 18:06:35
|
version 1.31, 1995/11/29 20:20:34
|
Line 418 Create tag-bof 1 c, 0C c,
|
Line 418 Create tag-bof 1 c, 0C c,
|
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 |
Line 432 Create tag-bof 1 c, 0C c,
|
Line 432 Create tag-bof 1 c, 0C c,
|
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 ! |