Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0005/pal10.scm
There are 3 other files named pal10.scm in the archive. Click here to see a list.
File 1)	DSK:PAL10.OLD[4,354]	created: 1900 25-Aug-1969
File 2)	DSK:PAL10.141[4,354]	created: 2022 20-Sep-1980

1)1		EXTERNAL	JOBREL,	JOBFF,	JOBDDT,	JOBSYM
1)		INTERNAL	JOBVER,JOBCOR
****
2)1	;	THIS MODIFICATION MADE TO KEEP DEC-10/20 COMPATIBILITY
2)	;	AS OF 19 JUNE 80 FOR DECUS BY PAUL ROBINSON, WESLEYAN UNIV.
2)	;	EXTERNAL	JOBREL,	JOBFF,	JOBDDT,	JOBSYM
2)		EXTERNAL	.JBREL, .JBFF, .JBDDT, .JBSYM
2)		INTERNAL	JOBVER,JOBCOR
**************
1)6		MOVEM	%00,JOBFF
1)		MOVEI	%00,3777	;SET FOR 2K
****
2)6		MOVEM	%00,.JBFF
2)		MOVEI	%00,3777	;SET FOR 2K
**************
1)6		SKIPN	JOBDDT		;UNLESS DDT IS LOADED
1)		CAMN	%00,JOBREL
1)		CAIA
****
2)6		SKIPN	.JBDDT		;UNLESS DDT IS LOADED
2)		CAMN	%00,.JBREL
2)		CAIA
**************
1)6		MOVEI	%10,4
1)		MOVE	%01,[SIXBIT /TTY   P3    P8    PD    PS    /](%10)
1)		PUSHJ	%17,%00		;TEST
****
2)6	;[decus]remove ps from list
2)	;	MOVEI	%10,4
2)	;	MOVE	%01,[SIXBIT /TTY   P3    P8    PD    PS    /](%10)
2)		MOVEI	%10,3
2)		MOVE	%01,[SIXBIT /TTY   P3    P8    PD    /](%10)
2)		PUSHJ	%17,%00		;TEST
**************
1)7		MOVE	%05,JOBFF
1)		MOVEM	%05,JOBFFI	;SAVE START OF SRC BUFFER
****
2)7		MOVE	%05,.JBFF
2)		MOVEM	%05,JOBFFI	;SAVE START OF SRC BUFFER
**************
1)7		MOVEM	%05,JOBFF	;  YES, SAVE LARGEST BUFFER SIZE
1)		MOVE	%05,JOBFF
1)		ADDI	%05,1
1)		HRRZM	%05,CORBOT	;CORE BOTTOM
1)		MOVE	%05,JOBREL
1)		SKIPE	JOBDDT		;DDT LOADED?
1)		MOVE	%05,JOBSYM	;  YES, DON'T CLOBBER SYMBOLS
1)		SUBI	%05,1
****
2)7		MOVEM	%05,.JBFF	;  YES, SAVE LARGEST BUFFER SIZE
2)		MOVE	%05,.JBFF
2)		ADDI	%05,1
2)		HRRZM	%05,CORBOT	;CORE BOTTOM
2)		MOVE	%05,.JBREL
2)		SKIPE	.JBDDT		;DDT LOADED?
2)		MOVE	%05,.JBSYM	;  YES, DON'T CLOBBER SYMBOLS
File 1)	DSK:PAL10.OLD[4,354]	created: 1900 25-Aug-1969
File 2)	DSK:PAL10.141[4,354]	created: 2022 20-Sep-1980

2)		SUBI	%05,1
**************
1)8		HRRZ	%11,JOBREL	;GET TOP OF COR
1)		ASH	%11,-^D10	;CONVERT TO "K"
****
2)8		HRRZ	%11,.JBREL	;GET TOP OF COR
2)		ASH	%11,-^D10	;CONVERT TO "K"
**************
1)11		MOVEM	%05,JOBFF	;SET TO TOP OF INPUT BUFFER
1)		INBUF	SRC,@INBCNT
****
2)11		MOVEM	%05,.JBFF	;SET TO TOP OF INPUT BUFFER
2)		INBUF	SRC,@INBCNT
**************
1)27	; THE HIGHEST DESIRED RELATIVE ADDRESS,I.E.;%13(JOBREL)+2000,AND
1)	; THEN EXECUTING A CALL %10,CORE. IF UNCUCCESSFUL, THE ROUTINE
1)	; EXITS TO RETURN 1 ABOVE.
1)	;IF SUCCESSFUL, THE MONITOR WILL UPDATE JOBREL IN THE JOB
1)	;DATA AREA. THE EXEC THEN UPDATES THE LEFT HALT OF ROLMEM
1)	;SO THAT THE COMPILER CAN MOVE ITS TABLES HIGHER IN CORE.
1)	PANIC:	HRRZ	%00,JOBREL	;GET PRESENT ROLMEM
1)		ADDI	%00,CORINC	;ADD 1K OF CORE TO IT
****
2)27	; THE HIGHEST DESIRED RELATIVE ADDRESS,I.E.;%13(.JBREL)+2000,AND
2)	; THEN EXECUTING A CALL %10,CORE. IF UNCUCCESSFUL, THE ROUTINE
2)	; EXITS TO RETURN 1 ABOVE.
2)	;IF SUCCESSFUL, THE MONITOR WILL UPDATE .JBREL IN THE JOB
2)	;DATA AREA. THE EXEC THEN UPDATES THE LEFT HALT OF ROLMEM
2)	;SO THAT THE COMPILER CAN MOVE ITS TABLES HIGHER IN CORE.
2)	PANIC:	HRRZ	%00,.JBREL	;GET PRESENT ROLMEM
2)		ADDI	%00,CORINC	;ADD 1K OF CORE TO IT
**************
1)72		HRRO	%01,JOBREL	;GET CURRENT TOP
1)		PUSHJ	%17,PANIC	;ASK EXEC FOR MORE CORE
****
2)72		HRRO	%01,.JBREL	;GET CURRENT TOP
2)		PUSHJ	%17,PANIC	;ASK EXEC FOR MORE CORE
**************
1)72		ADDM	%01,JOBSYM
1)		ADDM	%01,SYTTOP
****
2)72		ADDM	%01,.JBSYM
2)		ADDM	%01,SYTTOP
**************
1)97	XX JOBFFI,1,JOBFF SAVE
1)	XX TTISAV,1,TTI POINTER SAVE
****
2)97	XX JOBFFI,1,.JBFF SAVE
2)	XX TTISAV,1,TTI POINTER SAVE
**************