Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0078/libsim/outchr.mac
There are 2 other files named outchr.mac in the archive. Click here to see a list.
00100 COMMENT * SIMULA specification;
00200 OPTIONS(/E:QUICK,outchr);
00300 PROCEDURE outchr(ofile,c,n);
00400 REF(Outfile)ofile; CHARACTER c; INTEGER n;
00500 COMMENT Outputs n ASCII characters on the file, which is normally a terminal.
00600 Ofile.Image is not affected.
00700 If n<=0, no character is output, otherwise the character c is output n times.
00800 The buffer is used directly.
00900 Warning! If ofile is not open, outchr will loop indefinitely!
01000 ;
01100
01200 !*;! MACRO-10 code !*;!
01300
01400 TITLE outchr
01500 ENTRY outchr
01600 SUBTTL SIMULA utility, Lars Enderin Mar 1976
01700
01800 ;!*** Copyright 1976 by the Swedish Defence Research Institute. ***
01900 ;!*** Copying is allowed. ***
02000
02100
02200 sall
02300 search simmac,simmcr,simrpa
02400 macinit
02500
02600 ;! Local definitions ;!
02700
02800 ofile==XWAC1
02900 c==XWAC2
03000 n==XWAC3
03100 bup==OFFSET(ZBHBUP)
03200 cnt==OFFSET(ZBHCNT)
03300
03400
03500 outchr: PROC
03600 JUMPLE n,L9
03700 LF XBH,ZFIOBH(ofile)
03800 SUBI XBH,1
03900 LOOP
04000 SOSGE cnt(XBH)
04100 XEC IONB
04200 IDPB c,bup(XBH)
04300 AS
04400 SOJG n,TRUE
04500 SA
04600 L9():! RET
04700 EPROC
04800 END;