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