blob: b568f759b0269bf101153df5ecbf497d13f8f5f6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
include <smw.h>
# SMW_CT -- Get MCWS CT pointer for the specified physical line.
pointer procedure smw_ct (sct, line)
pointer sct #I SMW pointer
int line #I Physical line
begin
if (SMW_NCT(sct) == 1)
return (SMW_CT(sct,0))
if (line < 1 || line > SMW_NSPEC(SMW_SMW(sct)))
call error (1, "smw_ct: aperture not found")
return (SMW_CT(sct,(line-1)/SMW_NSPLIT))
end
|
