blob: df8da34469920d46a607597bd6eaf23c16fe0b1d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#-h- swvar 157 local 12/01/80 15:55:08
# swvar - output switch variable SWnnnn, where nnnn = lab
# (modified aug82 dct to permit declaration of switch variable)
include defs
subroutine swvar (lab)
integer lab, i, labnum, ndigits
ifnotdef (UPPERC, call outch (LETS))
ifdef (UPPERC, call outch (BIGS))
ifnotdef (UPPERC, call outch (LETW))
ifdef (UPPERC, call outch (BIGW))
labnum = lab
for (ndigits=0; labnum > 0; labnum=labnum/10)
ndigits = ndigits + 1
for (i=3; i <= 6 - ndigits; i=i+1)
call outch (DIG0)
call outnum (lab)
return
end
|
