Trailing-Edge
-
PDP-10 Archives
-
decus_20tap2_198111
-
decus/20-0042/change.scm
There are no other files named change.scm in the archive.
File 1) DSK:CHANGE.OLD[4,374] created: 1900 23-Sep-1973
File 2) DSK:CHANGE.MAC[4,374] created: 1710 25-Jun-1980
1)2 EXTERNAL JOBFF,JOBREL,JOBREN,JOBINT,JOBUUO,JOBSA
1) EXTERNAL JOB41,JOBDDT,.JBTPC,JOBAPR,JOBCNI
1) ; ACCUMULATORS.
****
2)2 ;EXTERNAL JOBFF,JOBREL,JOBREN,JOBINT,JOBUUO,JOBSA
2) ;EXTERNAL JOB41,JOBDDT,.JBTPC,JOBAPR,JOBCNI
2) ;UPDATE MACRO VERSION- JOBXXX BECOMES .JBXXX, DEFINED IN JOBDAT.UNV
2) ;DONE FOR DECUS BY PAUL ROBINSON, WESLEYAN UNIV, 25 JUN 80
2) SEARCH JOBDAT
2) ; ACCUMULATORS.
**************
1)14 BSS IJOBFF,ONE ;SAVE LOCATION FOR JOBFF.
1) BSS OJOBFF,ONE ;SAVE LOCATION FOR JOBFF.
1) BSS TRPBLK,TWO ;TRAP BLOCK FOR HUNG DEVICE.
****
2)14 BSS IJOBFF,ONE ;SAVE LOCATION FOR .JBFF.
2) BSS OJOBFF,ONE ;SAVE LOCATION FOR .JBFF.
2) BSS TRPBLK,TWO ;TRAP BLOCK FOR HUNG DEVICE.
**************
1)14 BSS CCLCOR,ONE ;COPY OF JOBFF WHEN CCL FILE OPEN.
1) BSS DIAFLG,ONE ;RETURN ADDRESS FOR ERRORS IN DIALOG MODE.
****
2)14 BSS CCLCOR,ONE ;COPY OF .JBFF WHEN CCL FILE OPEN.
2) BSS DIAFLG,ONE ;RETURN ADDRESS FOR ERRORS IN DIALOG MODE.
**************
1)15 MOVEM T1,JOBREN ;STORE IT IN PLACE.
1) SETZM RETWRD ;CLEAR RETAIN WORD.
****
2)15 MOVEM T1,.JBREN ;STORE IT IN PLACE.
2) SETZM RETWRD ;CLEAR RETAIN WORD.
**************
1)15 MOVEM T1,JOB41 ;SAVE IT.
1) SETZM CCLFLG ;NOT USING CCL FILE NOW.
****
2)15 MOVEM T1,.JB41 ;SAVE IT.
2) SETZM CCLFLG ;NOT USING CCL FILE NOW.
**************
1)16 MOVE T1,CCLCOR ;COPY OF JOBFF FOR CCL COMMAND.
1) SKIPL CCLFLG ;SKIP IF IN CCL COMMAND.
1) HLRZ T1,JOBSA ;COPY SAVED JOBFF.
1) MOVEM T1,JOBFF ;RESTORE IT.
1) MME T1,.CORE ;BACK TO START SIZE.
****
2)16 MOVE T1,CCLCOR ;COPY OF .JBFF FOR CCL COMMAND.
2) SKIPL CCLFLG ;SKIP IF IN CCL COMMAND.
2) HLRZ T1,.JBSA ;COPY SAVED .JBFF.
2) MOVEM T1,.JBFF ;RESTORE IT.
2) MME T1,.CORE ;BACK TO START SIZE.
**************
1)18 DEBUG: SKIPN T1,JOBDDT ;SKIP IF DDT IS HERE.
1) GOTO DDTERR ;TELL HIM WHAT IS WRONG.
1) CALDDT: SAVE [NTHERE] ;RETURN TO THE STACK.
1) SETZM JOBAPR ;DON'T ALLOW APR TRAPS.
1) SETZM JOBINT ;DON'T ALLOW DEVICE TRAPS.
1) DDTCAL: ENABLE TTY ;CLEAR CONTROL O.
****
File 1) DSK:CHANGE.OLD[4,374] created: 1900 23-Sep-1973
File 2) DSK:CHANGE.MAC[4,374] created: 1710 25-Jun-1980
2)18 DEBUG: SKIPN T1,.JBDDT ;SKIP IF DDT IS HERE.
2) GOTO DDTERR ;TELL HIM WHAT IS WRONG.
2) CALDDT: SAVE [NTHERE] ;RETURN TO THE STACK.
2) SETZM .JBAPR ;DON'T ALLOW APR TRAPS.
2) SETZM .JBINT ;DON'T ALLOW DEVICE TRAPS.
2) DDTCAL: ENABLE TTY ;CLEAR CONTROL O.
**************
1)21 HRRZ T1,JOBFF ;GET THE FIRST FREE.
1) MOVEM T1,CCLCOR ;SAVE FOR CORE MME.
****
2)21 HRRZ T1,.JBFF ;GET THE FIRST FREE.
2) MOVEM T1,CCLCOR ;SAVE FOR CORE MME.
**************
1)31 SIXBIT "SAV"
1) BSS 3
****
2)31 ; SIXBIT "SAV" ;CHANGE FROM .SAV TO .EXE FOR DEC-20
2) SIXBIT "EXE"
2) BSS 3
**************
1)36 SETINP: MOVE T1,JOBFF ;PICK UP THE CURRENT JOBFF.
1) MOVEM T1,IJOBFF ;SAVE FOR LATER.
****
2)36 SETINP: MOVE T1,.JBFF ;PICK UP THE CURRENT .JBFF.
2) MOVEM T1,IJOBFF ;SAVE FOR LATER.
**************
1)36 SETOUT: MOVE T1,JOBFF ;COPY JOB FIRST FREE.
1) MOVEM T1,OJOBFF ;STORE FOR LATER.
****
2)36 SETOUT: MOVE T1,.JBFF ;COPY JOB FIRST FREE.
2) MOVEM T1,OJOBFF ;STORE FOR LATER.
**************
1)74 HRRM P2,JOBFF ;SET IT AS FIRST FREE.
1) CAMG P2,JOBREL ;DO WE NEED MORE CORE.
1) GOTO .+3 ;NO IT IS ALRIGHT.
****
2)74 HRRM P2,.JBFF ;SET IT AS FIRST FREE.
2) CAMG P2,.JBREL ;DO WE NEED MORE CORE.
2) GOTO .+3 ;NO IT IS ALRIGHT.
**************
1)74 HRRZ P2,JOBFF ;GET THE LAST LOCATION.
1) SETZM -1(P1) ;CLEAR FIRST WORD.
****
2)74 HRRZ P2,.JBFF ;GET THE LAST LOCATION.
2) SETZM -1(P1) ;CLEAR FIRST WORD.
**************
1)75 MOVE T3,JOBFF ;FIRST LOCATION FREE.
1) MOVEI P4,ONE(T3) ;START OF THE BUFFER.
****
2)75 MOVE T3,.JBFF ;FIRST LOCATION FREE.
2) MOVEI P4,ONE(T3) ;START OF THE BUFFER.
**************
1)75 HRRM T3,JOBFF ;UPDATE TOP OF CORE.
1) IORI T3,1777 ;ROUND UP TO K.
1) CAMG T3,JOBREL ;DO WE HAVE ENOUGH.
1) GOTO .+3 ;DON'T ASK FOR MORE.
File 1) DSK:CHANGE.OLD[4,374] created: 1900 23-Sep-1973
File 2) DSK:CHANGE.MAC[4,374] created: 1710 25-Jun-1980
****
2)75 HRRM T3,.JBFF ;UPDATE TOP OF CORE.
2) IORI T3,1777 ;ROUND UP TO K.
2) CAMG T3,.JBREL ;DO WE HAVE ENOUGH.
2) GOTO .+3 ;DON'T ASK FOR MORE.
**************
1)75 MOVE T3,JOBFF ;GET POINTER TO END OF CORE.
1) BLT T2,-1(T3) ;CLEAR THE BUFFERS.
****
2)75 MOVE T3,.JBFF ;GET POINTER TO END OF CORE.
2) BLT T2,-1(T3) ;CLEAR THE BUFFERS.
**************
1)77 ADD T3,JOBFF ;COMPUTE LAST WORD NEEDED.
1) IORI T3,1777 ;CONVERT TO A K BOUNDARY.
1) CAMG T3,JOBREL ;SEE IF ENOUGH ROOM.
1) GOTO .+3 ;WE HAVE ENOUGH.
****
2)77 ADD T3,.JBFF ;COMPUTE LAST WORD NEEDED.
2) IORI T3,1777 ;CONVERT TO A K BOUNDARY.
2) CAMG T3,.JBREL ;SEE IF ENOUGH ROOM.
2) GOTO .+3 ;WE HAVE ENOUGH.
**************
1)81 EXCH T1,JOBFF ;PUT IN PLACE FOR EXEC.
1) SAVE T1 ;SAVE CURRENT VALUE.
****
2)81 EXCH T1,.JBFF ;PUT IN PLACE FOR EXEC.
2) SAVE T1 ;SAVE CURRENT VALUE.
**************
1)81 UNSAVE JOBFF ;PUT BACK TOP OF CORE.
1) SAVE [TAINP-1] ;PLACE A RETURN ON THE STACK.
****
2)81 UNSAVE .JBFF ;PUT BACK TOP OF CORE.
2) SAVE [TAINP-1] ;PLACE A RETURN ON THE STACK.
**************
1)82 EXCH T1,JOBFF ;RESET IT.
1) SAVE T1 ;SAVE IT ON STACK.
****
2)82 EXCH T1,.JBFF ;RESET IT.
2) SAVE T1 ;SAVE IT ON STACK.
**************
1)82 UNSAVE JOBFF ;RESTORE TOP OF CORE.
1) GOSUB OUTLAB ;WRITE NEW LABEL.
****
2)82 UNSAVE .JBFF ;RESTORE TOP OF CORE.
2) GOSUB OUTLAB ;WRITE NEW LABEL.
**************
1)94 HRRZ T1,JOBREL ;GET LAST LOCATION LOADED.
1) SUBI T1,137 ;JUST OUR STUFF.
****
2)94 HRRZ T1,.JBREL ;GET LAST LOCATION LOADED.
2) SUBI T1,137 ;JUST OUR STUFF.
**************
1)94 SKIPE T1,JOBDDT ;SKIP IF NO DDT.
1) GOTO CALDDT ;ELSE GET IT HERE.
****
2)94 SKIPE T1,.JBDDT ;SKIP IF NO DDT.
File 1) DSK:CHANGE.OLD[4,374] created: 1900 23-Sep-1973
File 2) DSK:CHANGE.MAC[4,374] created: 1710 25-Jun-1980
2) GOTO CALDDT ;ELSE GET IT HERE.
**************
1)95 MOVE P1,JOBUUO ;PICK UP THE UME.
1) LDB T1,[POINT 4,P1,12] ;GET THE AC FIELD.
****
2)95 MOVE P1,.JBUUO ;PICK UP THE UME.
2) LDB T1,[POINT 4,P1,12] ;GET THE AC FIELD.
**************
1)103 EXCH T1,JOBFF ;SET IT AS CURRENT.
1) SAVE T1 ;SAVE FIRST FREE.
1) GOSUB MONIBF ;GET SOME BUFFERS.
1) UNSAVE JOBFF ;RESTORE FIRST FREE.
1) MOVE T1,UFDNAM ;GET THE PPN WE FOUND THIS IN.
****
2)103 EXCH T1,.JBFF ;SET IT AS CURRENT.
2) SAVE T1 ;SAVE FIRST FREE.
2) GOSUB MONIBF ;GET SOME BUFFERS.
2) UNSAVE .JBFF ;RESTORE FIRST FREE.
2) MOVE T1,UFDNAM ;GET THE PPN WE FOUND THIS IN.
**************
1)111 HRRZ P1,JOBREL ;OCTAL LOCATIONS USED.
1) GOSUB PUTOCT ;PRINT THEM.
****
2)111 HRRZ P1,.JBREL ;OCTAL LOCATIONS USED.
2) GOSUB PUTOCT ;PRINT THEM.
**************
1)119 MOVEM T1,JOBAPR ;PLACE TO TRAP TO.
1) MOVEI T1,REP!PDL!MPV!NXM ;THINGS TO TRAP ON.
****
2)119 MOVEM T1,.JBAPR ;PLACE TO TRAP TO.
2) MOVEI T1,REP!PDL!MPV!NXM ;THINGS TO TRAP ON.
**************
1)119 MOVEM T1,JOBINT ;SAVE SO EXEC WILL KNOW.
1) MOVE T1,[XWD 4,TRAP] ;BLOCK LENGTH AND TRAP LOC.
****
2)119 MOVEM T1,.JBINT ;SAVE SO EXEC WILL KNOW.
2) MOVE T1,[XWD 4,TRAP] ;BLOCK LENGTH AND TRAP LOC.
**************
1)120 MOVE T1,JOBCNI ;GET THE APR FLAGS.
1) IF.OFF T1,PDL ;SKIP IF NOT PDL OVERFLOW.
****
2)120 MOVE T1,.JBCNI ;GET THE APR FLAGS.
2) IF.OFF T1,PDL ;SKIP IF NOT PDL OVERFLOW.
**************
1)120 SKIPE T1,JOBDDT ;SKIP IF NO DDT.
1) GOTO CALDDT ;ELSE GET IT HERE.
****
2)120 SKIPE T1,.JBDDT ;SKIP IF NO DDT.
2) GOTO CALDDT ;ELSE GET IT HERE.
**************
1)121 RUNDDT: SKIPN T1,JOBDDT ;IS DDT LOADED.
1) GOTO BADRUN ;NO...
****
2)121 RUNDDT: SKIPN T1,.JBDDT ;IS DDT LOADED.
2) GOTO BADRUN ;NO...
**************
File 1) DSK:CHANGE.OLD[4,374] created: 1900 23-Sep-1973
File 2) DSK:CHANGE.MAC[4,374] created: 1710 25-Jun-1980
1)126 MOVE T1,JOBFF ;GET FIRST FREE.
1) SUBI T1,ONE ;TO SET UP IOWD.
****
2)126 MOVE T1,.JBFF ;GET FIRST FREE.
2) SUBI T1,ONE ;TO SET UP IOWD.
**************
1)126 CAMG T1,JOBREL ;SKIP IF NEED MORE CORE.
1) GOTO .+3 ;O.K. LIKE IT IS.
****
2)126 CAMG T1,.JBREL ;SKIP IF NEED MORE CORE.
2) GOTO .+3 ;O.K. LIKE IT IS.
**************