Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - cref.c09
There is 1 other file named cref.c09 in the archive. Click here to see a list.
 REP 1/1	;09C1
		TITLE	CREF %53B(71) CROSS REFERENCE PROGRAM
		SUBTTL	BOWERING/RPG/PMH/NGP/TNH/TWE/HPW/ASM/RDH/ILG/JNG/BPK	13-JUL-79


	;COPYRIGHT (C) 1974, 1975, 1976, 1977, 1978, 1979, 1984 BY
 WIT
		TITLE	CREF %53B(75) CROSS REFERENCE PROGRAM
		SUBTTL	BOWERING/RPG/PMH/NGP/TNH/TWE/HPW/ASM/RDH/ILG/JNG/BPK/MS	/JEH 15-SEP-82


	;COPYRIGHT (C) 1974, 1975, 1976, 1977, 1978, 1979, 1980, 1984 BY
 REP 31/1	;09C2
	VEDIT==71	;EDIT NUMBER
 WIT
	VEDIT==76	;EDIT NUMBER
 REP 37/1	;09C3


		SEARCH	UUOSYM

	.REQUEST	REL:HELPER
 WIT
		SEARCH	UUOSYM


	.REQUEST	REL:HELPER
 INS 58/2	;09C4
	;72	-----	ALGOL SHOULD NOT PRINT END BLOCK NAME 'E----1'
	;		AS PROGRAM NAME WHILE PRINTING NESTED-TABLE.	11-AUG-80
 REP 61/2	;09C5
 WIT
	;73	32794	EXTEND EDIT 70 TO WORK FOR LONG SYMBOLS AS WELL.
	;		10-AUG-82
	;
	;74	32942	INCREASE ADDRESS OF HISEG TO 560K TO ALLOW CREF
	;		TO HANDLE LARGER PROGRAMS	14-SEP-82
	;
	;75	DEVEL	MODIFY TO USE LARGE BUFFERS FOR 7.02
	;		03-SEP-82
	;
	;76	33145	FIX /T SWITCH ON INPUT FILE SPECS - CAUSES
	;		?IO TO UNASSIGNED CHANNEL	12-NOV-82
	;

 INS 48/3	;09C6

	HISEG==560000		;[74] HISEG ADDRESS
 REP 14/4	;09C7
	IFN SEGSW,<	TWOSEG
			RELOC	400000	>	;END IFN SEGSW,
 WIT
	IFN SEGSW,<	TWOSEG	HISEG		
			RELOC	HISEG	>	;[74] END IFN SEGSW,
 DEL 20/4	;09C8

 REP 82/13	;09C9
	DOOPN:	MOVEI	ACTMP,0			;INIT DEVICE IN ASCII MODE
 WIT
	DOOPN:	MOVSI	ACTMP,(1B7)		;[75]INIT DEV IN ASCII MODE, BIGBUF
 REP 89/13	;09C10
		OUTBUF	LST,2			;MAKE BUFFERS
 WIT
		OUTBUF	LST,0			;[75] MAKE DEFAULT BUFFERS
 REP 10/15	;09C11
		INBUF	CHAR,2		;[51] NOW - DO THE DELAYED INBUF
 WIT
		INBUF	CHAR,0		;[75] [51] NOW - DO THE DELAYED INBUF
 INS 28/23	;09C12
	;**;[73] INSERT @ LB0+4		JEH	10-AUG-82
		CAIL	C,"A"+40	; [73] IS IT LOWER CASE?
		CAILE	C,"Z"+40	; [73]
		SKIPA			; [73] NO - SKIP
		SUBI	C,40		; [73] YES - CONVERT TO UPPER
 INS 17/28	;09C13
	;**;[72] INSERT @ BLKPRN+2L	MS	11-AUG-80
		CAME	CS,[SIXBIT /E----1/]	;[72] SKIP FOR ALGOL THE BLOCK-END
						;[72] NAME AS 'E----1'
 REP 6/37	;09C14
	IFN SEGSW,<	CAIGE	1,400000	;DON'T EXPAND LOWER ABOVER 128K>
 WIT
	IFN SEGSW,<	CAIGE	1,HISEG		;[74] DON'T EXPAND LOWER ABOVE HISEG>
 REP 53/48	;09C15
		MOVEI	ACDEV-1,0		;INIT DEVICE  SETUP
 WIT
		MOVSI	ACDEV-1,(1B7)		;[75] INIT DEVICE  SETUP W/ BIGBUF
 REP 61/48	;09C16
		MTAPE	LST,10			;ADVANCE TO END OF TAPE
 WIT
	;**;[76] REPLACE @GOTIN+3L	JEH	12-NOV-82
		MTAPE	CHAR,10			;[76] ADVANCE TO END OF TAPE
 REP 74/48	;09C17
		INBUF	CHAR,2
 WIT
		INBUF	CHAR,0			;[75] BUILD DEFAULT BUFFERS
 SUM 132201