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

⟦6d6263adb⟧ 

    Length: 4388 (0x1124)
    Notes: pts_type(SC)
    Names: »ADDMOD.SC«

Derivation

└─⟦245262b9f⟧ Bits:30009679 Philips computer tape "600220"
    └─⟦this⟧ »M:92NA/ADDMOD.SC« 
    └─⟦this⟧ »M:92SP/ADDMOD.SC« 
└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
    └─⟦this⟧ »M:92OD/ADDMOD.SC« 
└─⟦3a2bec7de⟧ Bits:30009687 Philips computer tape "600313"
    └─⟦this⟧ »M:821/ADDMOD.SC« 
└─⟦470bcbfc6⟧ Bits:30009709 Philips computer tape "M_92LP"
    └─⟦this⟧ »M:92LP/ADDMOD.SC« 
└─⟦6349b94c6⟧ Bits:30009684 Philips computer tape "600308"
    └─⟦this⟧ »M:92D1/ADDMOD.SC« 
└─⟦726a6c4ca⟧ Bits:30009685 Philips computer tape "600309"
    └─⟦this⟧ »M:92D2/ADDMOD.SC« 
└─⟦9ad21746d⟧ Bits:30009682 Philips computer tape "600304"
    └─⟦this⟧ »M:92NA/ADDMOD.SC« 
└─⟦9af60a727⟧ Bits:30009707 Philips computer tape "M_173"
    └─⟦this⟧ »M:173/ADDMOD.SC« 
    └─⟦this⟧ »M:173/ADDMOD.SC« 
└─⟦a25d6defe⟧ Bits:30009676 Philips computer tape "600210"
    └─⟦this⟧ »M:92NA/ADDMOD.SC« 
    └─⟦this⟧ »M:92SP/ADDMOD.SC« 
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
    └─⟦this⟧ »M:261/ADDMOD.SC«

PTS(SC)

	IDENT ADDMOD 	REL 9.2 79-11-16  870105040920 

*			=1 RETURN CONDITION 
* 
****************************************************
* 
*   PHILIPS TERMINAL SYSTEM  PTS
* 
*   TOSS DATA MANAGEMENT
* 
* 
* 
****************************************************
* THIS ROUTINE EXECUTES THE DOUBLE ADDITION INSTRUCTION ON THE ALPHA
* COMPUTER
*CALLING SEQUENCE:
*                  A1-A2 = ARG1 
*                  AG-A7 = ARG2 
*        CF       A14,ADDMOD
*RETURN :         RESULT IN A1-A2 
* CAUTION  REGISTERS  A3,A4,A6,A7  ARE  CRUSHED.
         ENTRY    ADDMOD
* 
* 
***************************************** 
* 
*	CONDITIONAL ASSEMBLY
* 
***************************************** 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	0
* 
	EJECT
ADDMOD	EQU	*
	LDK	A3,0		=1 
	IFF	CPU852=1 
	DAR	A6 
	XIF
	IFT	CPU852=1 
*				=1 
         ANK.L    A7,/7FFF
         ANK.L    A2,/7FFF
         ADR      A2,A7 
         RF(3)    OVER1 
NOVER    ADR      A1,A6       * NO OVERFLOW 
         RF(1)    END1
         RF(2)    END2
         RF(3)    END3
NOVER1   ADK      A2,0
         RF(0)    END0
         RF(7)    END1
OVER1    ANK.L    A2,/7FFF
         ADK      A1,1
         RF(3)    OVER3 
         RB(7)    NOVER 
OVER3    ADR      A1,A6 
         RF(2)    END3
         ADK      A1,0
         RF(1)    END1
         RB(7)    NOVER1
	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