DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦6f31fa202⟧ 

    Length: 4576 (0x11e0)
    Notes: pts_type(SC)
    Names: »DSUMOD.SC«

Derivation

└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
    └─⟦this⟧ »TOSSWORK/DSUMOD.SC« 
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
    └─⟦this⟧ »M:92T1/DSUMOD.SC«

PTS(SC)

	IDENT DSUMOD 	REL 9.2 79-11-16  870105040920 

*			=1 RETURN CONDITION 
* 
****************************************************
* 
*   PHILIPS TERMINAL SYSTEM  PTS
* 
*   TOSS DATA MANAGEMENT
* 
* 
* 
****************************************************
* THIS ROUTINE EXECUTES THE DOUBLE SUBSTRACTION INSTRUCTION ON THE ALPHA
*COMPUTER 
*CALLING SEQUENCE 
*                 A1-A2  = ARG1 
*                 A6-A7  = ARG2 
*        CF       A14,DSUMOD
*RETURN:          RESULT IN A1-A2 
* CAUTION  REGISTERS  A3,A4,A6,A7  ARE  CRUSHED.
         ENTRY    DSUMOD
* 
* 
***************************************** 
* 
*	CONDITIONAL ASSEMBLY
* 
***************************************** 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	1
* 
	EJECT
DSUMOD	EQU	*
	LDK	A3,0		=1 
	IFF	CPU852=1 
	DSR	A6 
	XIF
	IFT	CPU852=1 
*				=1 
         C1R      A6,A6 
         C1R      A7,A7 
         ANK.L    A7,X'7FFF'
         ANK.L    A2,/7FFF
         ADK      A7,1
         RF(1)    NOVER1
         ADK      A6,1
         RF(3)    OVER4 
         RF(7)    NOVER 
NOVER1   ADR      A2,A7 
         RF(3)    OVER1 
NOVER    ADR      A1,A6 
NOVER2   RF(1)    END1
         RF(2)    END2
         RF(3)    END3
         ADK      A2,0
         RF(0)    END0
         RF(7)    END1
OVER1    ANK.L    A2,X'7FFF'
         ADK      A1,1
         RF(3)    OVER4 
         RB(7)    NOVER 
OVER4    ADR      A1,A6 
         RF(2)    END3
         ADK      A1,0
         RB(7)    NOVER2
	XIF			=1 
	IFT	CPU852=0	6813	=1 
	RF(0)	END0		=1 
	RF(1)	END1		=1 
	RF(2)	END2		=1 
	XIF			=1 
END3     ADK       A3,/80 
END2      ADK      A3,/80 
END1      ADK      A3,/80 
END0     SLL      A3,1      ************************************* 
         ANK.L    A3,/0300
         LDK.L    A4,/FCFF
         AN.S     A4,2,A14
         OR.S     A3,2,A14    UPDATE CR IN PSW CALLING PROGRAM
*				=1 
         RTN      A14 
         END

Full view