Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0076/abacus.com
There are 2 other files named abacus.com in the archive. Click here to see a list.
File 1)	DSK:ABACUS.MAC	created: 0000 10-APR-1974
File 2)	DSK:ABACUS.NEW	created: 1234 22-MAY-1975

1)1		JOBVER=137		;VERSION NUMBER LOCATION
1)		LTLEN=^D128		;MAXIMUM LENGTH OF LABTAB (EACH ENTRY IS 2 WORDS)
****
2)1		.JBVER=137		;VERSION NUMBER LOCATION
2)		LTLEN=^D128		;MAXIMUM LENGTH OF LABTAB (EACH ENTRY IS 2 WORDS)
**************
1)1		EXTERN JOBSA,JOBFF,JOBREL,JOBTPC,JOBAPR,JOBUUO,JOB41,JOBDDT,JOBREN
1)	;UUO OPCODE DEFINITIONS -- SEE ROUTINE UUOH FOR DETAILS
****
2)1		EXTERN .JBSA,.JBFF,.JBREL,.JBTPC,.JBAPR,.JBUUO,.JB41,.JBDDT,.JBREN
2)	;UUO OPCODE DEFINITIONS -- SEE ROUTINE UUOH FOR DETAILS
**************
1)1	LOC	JOBVER			;SET UP VERSION NUMBER
1)	XWD	1,4
****
2)1	LOC	.JBVER			;SET UP VERSION NUMBER
2)	XWD	1,4
**************
1)2		HRR	A,JOBFF
1)		MOVEM	A,FNSTPT
****
2)2		HRR	A,.JBFF
2)		MOVEM	A,FNSTPT
**************
1)2		MOVE	A,JOBREL		;SET UP MAX ADR OF LOW SEG
1)		HRRZM	A,FUNMAX
****
2)2		MOVE	A,.JBREL		;SET UP MAX ADR OF LOW SEG
2)		HRRZM	A,FUNMAX
**************
1)2		MOVEM	A,JOB41
1)		MOVEI	A,TRAPIT		;SET UP PROCESSOR TRAPPING
1)		HRRZM	A,JOBAPR		;FOR REPETATIVE ENABLE
1)		MOVEI	A,600110		;OF PDL OVERFLOW AND
****
2)2		MOVEM	A,.JB41
2)		MOVEI	A,TRAPIT		;SET UP PROCESSOR TRAPPING
2)		HRRZM	A,.JBAPR		;FOR REPETATIVE ENABLE
2)		MOVEI	A,600110		;OF PDL OVERFLOW AND
**************
1)2		MOVEM	A,JOBREN
1)		IFN	FILCAP,<
****
2)2		MOVEM	A,.JBREN
2)		IFN	FILCAP,<
**************
1)2		HLRZ	N,JOBVER		;PUT OUT VERSION NUMBER
1)		PUSHJ	PDP,OCTPNT
1)		PUSHJ	PDP,PERIOD
1)		HRRZ	N,JOBVER
1)		PUSHJ	PDP,OCTPNT
****
2)2		HLRZ	N,.JBVER		;PUT OUT VERSION NUMBER
2)		PUSHJ	PDP,OCTPNT
2)		PUSHJ	PDP,PERIOD
2)		HRRZ	N,.JBVER
File 1)	DSK:ABACUS.MAC	created: 0000 10-APR-1974
File 2)	DSK:ABACUS.NEW	created: 1234 22-MAY-1975

2)		PUSHJ	PDP,OCTPNT
**************
1)3		HRRZ	A,JOBREL
1)		MOVEM	A,FUNMAX		;NEW MAXIMUM
****
2)3		HRRZ	A,.JBREL
2)		MOVEM	A,FUNMAX		;NEW MAXIMUM
**************
1)3		HRRZ	B,JOBREL
1)		IDIVI	B,^D1024	;CALCULATE NUMBER OF BLOCKS OF CORE
****
2)3		HRRZ	B,.JBREL
2)		IDIVI	B,^D1024	;CALCULATE NUMBER OF BLOCKS OF CORE
**************
1)3	DDTST:	SKIPN	JOBDDT		;IS DDT LOADED?
1)		ERR	[ASCIZ /DDT NOT LOADED/]
1)		TTCALL	11,
1)		HRRZ	BPT,JOBDDT
1)		JRST	(BPT)
****
2)3	DDTST:	SKIPN	.JBDDT		;IS DDT LOADED?
2)		ERR	[ASCIZ /DDT NOT LOADED/]
2)		TTCALL	11,
2)		HRRZ	BPT,.JBDDT
2)		JRST	(BPT)
**************
1)4		HRRZ	B,JOBREL		;UPDATE FUNMAX
1)		MOVEM	B,FUNMAX
****
2)4		HRRZ	B,.JBREL		;UPDATE FUNMAX
2)		MOVEM	B,FUNMAX
**************
1)4		HRRZ	A,JOBREL		;NEW MAXIMUM LOCATION
1)		MOVEM	A,FUNMAX
****
2)4		HRRZ	A,.JBREL		;NEW MAXIMUM LOCATION
2)		MOVEM	A,FUNMAX
**************
1)4		MOVE	C,JOBREL
1)		CAMGE	B,C
****
2)4		MOVE	C,.JBREL
2)		CAMGE	B,C
**************
1)4		MOVE	C,JOBREL
1)		MOVEM	C,FUNMAX
****
2)4		MOVE	C,.JBREL
2)		MOVEM	C,FUNMAX
**************
1)4	MBACK:	HLRZ	A,JOBSA			;SET UP BLT WORD
1)		HRL	A,FNSTPT
1)		HLRZ	B,JOBSA
1)		HRRZ	D,FNSTPT
****
2)4	MBACK:	HLRZ	A,.JBSA			;SET UP BLT WORD
File 1)	DSK:ABACUS.MAC	created: 0000 10-APR-1974
File 2)	DSK:ABACUS.NEW	created: 1234 22-MAY-1975

2)		HRL	A,FNSTPT
2)		HLRZ	B,.JBSA
2)		HRRZ	D,FNSTPT
**************
1)4		HRRZM	A,JOBFF
1)		BLT	A,-1(B)
****
2)4		HRRZM	A,.JBFF
2)		BLT	A,-1(B)
**************
1)4	;AT STARTUP, JOBAPR POINTS TO TRAPIT AND THE APRENB CALL IS ISSUED
1)	;TRAPIT SET THE FLAGS F.OVER AND F.UNDR APPROPRIATELY
****
2)4	;AT STARTUP, .JBAPR POINTS TO TRAPIT AND THE APRENB CALL IS ISSUED
2)	;TRAPIT SET THE FLAGS F.OVER AND F.UNDR APPROPRIATELY
**************
1)4		MOVE	A,JOBTPC		;GET PC FLAGS
1)		TLNE	A,(1B11)		;UNDERFLOW?
****
2)4		MOVE	A,.JBTPC		;GET PC FLAGS
2)		TLNE	A,(1B11)		;UNDERFLOW?
**************
1)4		JRST	@JOBTPC			;CONTINUE PROGRAM
1)	TRAP1:	TROA	FLAGS,F.UNDR		;SET UNDER
1)	TRAP2:	TRO	FLAGS,F.OVER		;OR OVERFLOW FLAGS
1)		HRRZ	A,JOBTPC		;GET TRAP LOCATION
1)		CAIL	A,BCALC			;IS IT IN A USER OPERATION?
****
2)4		JRST	@.JBTPC			;CONTINUE PROGRAM
2)	TRAP1:	TROA	FLAGS,F.UNDR		;SET UNDER
2)	TRAP2:	TRO	FLAGS,F.OVER		;OR OVERFLOW FLAGS
2)		HRRZ	A,.JBTPC		;GET TRAP LOCATION
2)		CAIL	A,BCALC			;IS IT IN A USER OPERATION?
**************
1)4		LDB	A,[POINT 9,JOBUUO,OPFLD]
1)		CAIG	A,3
****
2)4		LDB	A,[POINT 9,.JBUUO,OPFLD]
2)		CAIG	A,3
**************
1)4		HRR	D,JOBUUO
1)		JRST	TALK2			;SKIP OVER PRINT FIRST TIME
****
2)4		HRR	D,.JBUUO
2)		JRST	TALK2			;SKIP OVER PRINT FIRST TIME
**************