Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0018/pal12.scm
There is 1 other file named pal12.scm in the archive. Click here to see a list.
File 1)	DSK:PAL12.OLD[4,356]	created: 1900 07-Feb-1970
File 2)	DSK:PAL12.MAC[4,356]	created: 2047 11-Oct-1980

1)1		EXTERNAL	JOBREL,	JOBFF,	JOBDDT,	JOBSYM
1)		INTERNAL	JOBVER,JOBCOR
****
2)1	;	EXTERNAL	JOBREL,	JOBFF,	JOBDDT,	JOBSYM
2)		external	.jbrel, .jbff, .jbddt, .jbsym
2)		jobrel=.jbrel	;Modification made to update MACRO version,
2)		jobff=.jbff	;redefining JOBDAT symbols. For DECUS by
2)		jobddt=.jbddt	;Paul T. Robinson, Wesleyan Univ. 21 Jun 80
2)		jobsym=.jbsym
2)		INTERNAL	JOBVER,JOBCOR
**************
1)1		MOVEI	%10,5
1)		MOVE	%01,[SIXBIT /TTY   P3    P8    PD    PS    P10   /](%10)
1)		PUSHJ	%17,%00		;TEST
****
2)1	;[decus] eliminate ps from logical name search
2)	;	MOVEI	%10,5
2)	;	MOVE	%01,[SIXBIT /TTY   P3    P8    PD    PS    P10   /](%10)
2)		MOVEI	%10,4
2)		MOVE	%01,[SIXBIT /TTY   P3    P8    PD    P10   /](%10)
2)		PUSHJ	%17,%00		;TEST
**************