Google
 

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
**************