blob: 8ca1ecf51a99a134a7c1d02518898c1419f839df (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#-h- finit 432 local 12/01/80 15:54:07
# finit - initialize for each input file
include defs
subroutine finit
include COMMON_BLOCKS
outp = 0 # output character pointer
level = 1 # file control
linect (1) = 0
sbp = 1
fnamp = 2
fnames (1) = EOS
bp = PBPOINT
buf (bp) = EOS # to force a read on next call to 'ngetch'
fordep = 0 # for stack
fcname (1) = EOS # current function name
swtop = 0 # switch stack
swlast = 1
swvnum = 0
swvlev = 0
return
end
|
