Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0064/mafia.scm
There is 1 other file named mafia.scm in the archive. Click here to see a list.
File 1) DSK:MAFIA.OLD[4,411] created: 1900 12-Oct-1972
File 2) DSK:MAFIA.MAC[4,411] created: 1321 07-Jul-1980
1)1 EXTERN JOBFF,JOBSA,JOBREN
1) IFNDEF ICMAX,<ICMAX=^D16> ;MAXIMUM NUMBER OF INPUT-FILES
****
2)1 ; EXTERN JOBFF,JOBSA,JOBREN
2) SEARCH JOBDAT ;JOBXXX BECOMES .JBXXX
2) IFNDEF ICMAX,<ICMAX=^D16> ;MAXIMUM NUMBER OF INPUT-FILES
**************
1)1 HRRM AC0,JOBSA
1) HRRM AC0,JOBREN ;ALSO FOR REENTER
1) SETZ AC8,
****
2)1 HRRM AC0,.JBSA
2) HRRM AC0,.JBREN ;ALSO FOR REENTER
2) SETZ AC8,
**************
1)1 INIO3: MOVE 0,JOBFF ;SAVE JOBFF
1) MOVEM 0,SVJFO
****
2)1 INIO3: MOVE 0,.JBFF ;SAVE .JBFF
2) MOVEM 0,SVJFO
**************
1)1 MOVE 0,JOBFF ;SAVE JOBFF
1) MOVEM 0,SVJFOD
****
2)1 MOVE 0,.JBFF ;SAVE .JBFF
2) MOVEM 0,SVJFOD
**************
1)1 INII3: MOVE 0,JOBFF ;SAVE JOBFF
1) MOVEM 0,SVJFI
****
2)1 INII3: MOVE 0,.JBFF ;SAVE .JBFF
2) MOVEM 0,SVJFI
**************
1)1 MOVE 0,JOBFF ;SAVE JOBFF
1) MOVEM 0,SVJFID
****
2)1 MOVE 0,.JBFF ;SAVE .JBFF
2) MOVEM 0,SVJFID
**************
1)1 MOVE 0,SVJFO ;RESTORE JOBFF
1) MOVEM 0,JOBFF
1) POPJ PDP, ;RETURN
1) RELOD: RELEAS OCHD, ;RELEASE OUTPUT-DIRECTORY-CHANNEL
1) MOVE 0,SVJFOD ;RESTORE JOBFF
1) MOVEM 0,JOBFF
1) POPJ PDP, ;RETURN
1) RELI: RELEAS ICH, ;RELEASE INPUT-CHANNEL
1) MOVE 0,SVJFI ;RESTORE JOBFF
1) MOVEM 0,JOBFF
1) POPJ PDP, ;RETURN
1) RELID: RELEAS ICHD, ;RELEASE INPUT-DIRECTORY-CHANNEL
1) MOVE 0,SVJFID ;RESTORE JOBFF
1) MOVEM 0,JOBFF
1) POPJ PDP, ;RETURN
1) RESYS: CALLI 0 ;RESET SYSTEM WITHOUT CLOSE
1) MOVE AC0,SVJFO ;RESET JOBFF
File 1) DSK:MAFIA.OLD[4,411] created: 1900 12-Oct-1972
File 2) DSK:MAFIA.MAC[4,411] created: 1321 07-Jul-1980
1) MOVEM AC0,JOBFF
1) POPJ PDP, ;RETURN
****
2)1 MOVE 0,SVJFO ;RESTORE .JBFF
2) MOVEM 0,.JBFF
2) POPJ PDP, ;RETURN
2) RELOD: RELEAS OCHD, ;RELEASE OUTPUT-DIRECTORY-CHANNEL
2) MOVE 0,SVJFOD ;RESTORE .JBFF
2) MOVEM 0,.JBFF
2) POPJ PDP, ;RETURN
2) RELI: RELEAS ICH, ;RELEASE INPUT-CHANNEL
2) MOVE 0,SVJFI ;RESTORE .JBFF
2) MOVEM 0,.JBFF
2) POPJ PDP, ;RETURN
2) RELID: RELEAS ICHD, ;RELEASE INPUT-DIRECTORY-CHANNEL
2) MOVE 0,SVJFID ;RESTORE .JBFF
2) MOVEM 0,.JBFF
2) POPJ PDP, ;RETURN
2) RESYS: CALLI 0 ;RESET SYSTEM WITHOUT CLOSE
2) MOVE AC0,SVJFO ;RESET .JBFF
2) MOVEM AC0,.JBFF
2) POPJ PDP, ;RETURN
**************
1)1 SVJFO: 0 ;SAVED JOBFFS
1) SVJFOD: 0
****
2)1 SVJFO: 0 ;SAVED .JBFFS
2) SVJFOD: 0
**************