Trailing-Edge
-
PDP-10 Archives
-
decus_20tap2_198111
-
decus/20-0043/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,375] created: 1900 03-Feb-1972
File 2) DSK:PAL10.MAC[4,375] created: 1014 26-Jun-1980
1)1 EXTERNAL JOBREL, JOBFF, JOBDDT, JOBSYM
1) INTERNAL JOBVER,JOBCOR
****
2)1 ; EXTERNAL JOBREL, JOBFF, JOBDDT, JOBSYM
2) SEARCH JOBDAT
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 ; MOVEI %10,4
2) MOVEI %10,3 ;TAKE PS OUT OF LOGICAL ASSIGNMENT TEST
2) MOVE %01,[SIXBIT /TTY/ ;(PS IS DEC-20'S DISK NAME)
2) SIXBIT /P3/ ;THIS EDIT BROUGHT TO YOU BY PAUL
2) SIXBIT /P8/ ;ROBINSON, WESLEYAN UNIV., LIBRARY
2) SIXBIT /PD/ ;CONVERSION PROGRAMMER, 26 JUN 80
2) SIXBIT /PS/](%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,375] created: 1900 03-Feb-1972
File 2) DSK:PAL10.MAC[4,375] created: 1014 26-Jun-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
**************