Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0023/bartee.scm
There is 1 other file named bartee.scm in the archive. Click here to see a list.
File 1)	DSK:BARTEE.OLD[4,357]	created: 1900 17-Jun-1970
File 2)	DSK:BARTEE.MAC[4,357]	created: 2108 11-Oct-1980

1)1		EXTERN JOBFF,JOBREL
1)	; CONDITIONAL ASSEMBLY PARAMETER LC
****
2)1	;	EXTERN JOBFF,JOBREL
2)		extern .jbff, .jbrel
2)	; CONDITIONAL ASSEMBLY PARAMETER LC
**************
1)1		EXTERN JOBUUO
1)		LOC 41
****
2)1	;	EXTERN JOBUUO
2)		extern .jbuuo
2)		LOC 41
**************
1)1	D2:	AOS 5,JOBREL
1)	        IDIVI  5,2000              ;
****
2)1	D2:	AOS 5,.jbrel
2)	        IDIVI  5,2000              ;
**************
1)1	        MOVE   JOBFF               ;
1)	        HRRM   COL                 ;
****
2)1	        MOVE   .jbff               ;
2)	        HRRM   COL                 ;
**************
1)1	TSTLST: MOVE   JOBREL              ;
1)	        CAML   LAST                ;
****
2)1	TSTLST: MOVE   .jbrel              ;
2)	        CAML   LAST                ;
**************
1)1		HRRZ JOBUUO
1)		CAILE 1
****
2)1		HRRZ .jbuuo
2)		CAILE 1
**************
1)1		ADDM JOBUUO
1)		HLRZ JOBUUO
1)		TRZ 777000
****
2)1		ADDM .jbuuo
2)		HLRZ .jbuuo
2)		TRZ 777000
**************
1)1	TTC3.:	HRRZ JOBUUO
1)		HRLI 440700
****
2)1	TTC3.:	HRRZ .jbuuo
2)		HRLI 440700
**************
1)1	TTC1.:	MOVE 1,@JOBUUO
1)		PUSHJ P,OUTY.
****
2)1	TTC1.:	MOVE 1,@.jbuuo
2)		PUSHJ P,OUTY.
File 1)	DSK:BARTEE.OLD[4,357]	created: 1900 17-Jun-1970
File 2)	DSK:BARTEE.MAC[4,357]	created: 2108 11-Oct-1980

**************
1)1		MOVEM 1,@JOBUUO
1)		CAIE 1,15
****
2)1		MOVEM 1,@.jbuuo
2)		CAIE 1,15
**************