Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0078/libsim/lineco.mac
There is 1 other file named lineco.mac in the archive. Click here to see a list.
COMMENT! SIMULA specification;
OPTIONS(/E:QUICK,linecount);
INTEGER PROCEDURE linecount(p);
REF(Printfile)p;
!;! MACRO-10 code !;!
search simrpa,simmcr,simmac
sall
macinit
TITLE linecount
SUBTTL SIMULA utility, Lars Enderin Sept 1975
;!*** Copyright 1975 by the Swedish Defence Research Institute. ***
;!*** Copying is allowed. ***
ENTRY linecount
;! Calling sequence:
;! [Printfile ref to Xtop]
;! MOVEI XTAC,Xtop
;! PUSHJ XPDP,linecount
linecount:
L XSAC,(XTAC)
SETZ ;! Result = 0 if p==NONE
CAIE XSAC,NONE
LF ,ZPFLP(XSAC) ;! Result = Linesperpage otherwise
ST (XTAC)
RETURN
END;