Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0078/libsim/inputc.mac
There is 1 other file named inputc.mac in the archive. Click here to see a list.
00100 COMMENT * SIMULA specification;
00200 OPTIONS(/E:QUICK,inputcheck);
00300 BOOLEAN PROCEDURE inputcheck(inputfile); REF(Infile)inputfile;
00400 COMMENT Returns TRUE if INIMAGE can be done on inputfile without delay,
00500 otherwise FALSE. Performs no input.
00600 ;
00700
00800 !*;! MACRO-10 code !*;!
00900
01000 TITLE inputcheck
01100 ENTRY inputcheck
01200 SUBTTL SIMULA utility, Lars Enderin Dec 1975
01300
01400 ;! Copyright 1975 by the Swedish Defence Research Institute.
01500 ;! Copying is allowed.
01600
01700 sall
01800 search simmac,simmcr,simrpa
01900 macinit
02000
02100 ;! Local definitions ;!
02200
02300 inputfile==XWAC1
02400 GL.LIN==1B11
02500 OPDEF IONDX. [CALLI 127]
02600
02700 inputcheck:
02800 PROC
02900 EXCH XWAC1,(XTAC) ;! Get file ref
03000 CAIE XWAC1,NONE
03200 SKIPE OFFSET(ZIFEND)(XWAC1)
03300 GOTO L7 ;! End of file
03400 edit(267) ;![267]
03500 LF X1,ZFICHN(XWAC1)
03600 L X1
03700 DEVTYP
03800 GOTO L7 ;! Error
04100 ANDI TY.DEV
04200 IF ;! TTY
04300 CAIE .TYTTY
04400 GOTO FALSE
04500 THEN ;! Use GETLCH
04600 LF X1,ZFIDVN(XWAC1)
04700 IONDX. X1,
04800 GOTO L7
04900 JUMPE X1,L7
05000 GETLCH X1
05100 TLNE X1,(GL.LIN)
05200 GOTO L8 ;! There is an input line available
05300 ELSE ;! May be PTY
05400 CAIE .TYPTY
05500 GOTO L8
05600 L X1
05700 JOBSTS
05800 GOTO L7
05900 TLNE (JB.UOA)
06000 GOTO L8
06100 FI
06200 L7():! TDZA XWAC1,XWAC1
06300 L8():! SETO XWAC1,
06400 L9():! EXCH XWAC1,(XTAC)
06500 RETURN
06600 EPROC
06700 LIT
06800 END;