Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-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