File ERRORM.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

C	PROGRAM ERRORMESSAGE
C  PASCAL-S PARSER  VERSION VOM 20.12.80
	COMMON NERR,IERRS,LC,ICC,DIN,FIN,ICH,LL,LINE
	COMMON ISYM,LEN,IWORD,IPOINT,ID,IAL
	COMMON NAME,IRZEIG,LZEIG,MAX,IL,ISTAB
	COMMON MAXE,MINE,KMAX,NMAX,ISX,LLENG,ISLENG,ISMAX
	DIMENSION LINE(80),LZEIG(200),IRZEIG(200),NAME(200,10)
	DIMENSION IWORD(29,10),IPOINT(26,2),ID(10),LEN(29)
	DIMENSION IERRS(61,3),ISTAB(600),IZEIL(40)
	IBLANK=-2016
	IPOS=1
	NR=1
	CALL IOPEN(DIN,FIN)
10	DO 1000 LNR=1,LC
	READ (4,20) (LINE(I),I=1,80)
20	FORMAT (80A1)
	LL=80
350	IF(LINE(LL)+2016)370,360,370
360	IF(LL-1)370,370,365
365	LL=LL-1
	GOTO 350
370	IF (IPOS-1)23,28,23
23	WRITE (1,25)
25	FORMAT(' ')
28	WRITE (1,30) (LINE(I),I=1,LL)
30	FORMAT ('      ',80A1)
	IPOS=1
100	IF (NR-NERR)110,110,1000
110	IF (IERRS(NR,2)-LNR)1000,120,1000
120	IF (IPOS-1)140,130,140
130	WRITE (1,131)IBLANK,
131	FORMAT ('#####',A1)
140	IF (IPOS-IERRS(NR,3)) 150,160,170
150	WRITE (1,151)IBLANK,
151	FORMAT (A1)
	IPOS=IPOS+1
	GOTO 140
160	WRITE (1,161)IERRS(NR,1),
161	FORMAT ('#',I3)
	GOTO 200
170	WRITE (1,171)IERRS(NR,1),
171	FORMAT (';',I3)
200	IPOS=IPOS+4
	NR=NR+1
	GOTO 100
1000	CONTINUE
	CALL EXIT
	END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search