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

⟦0e0293958⟧ 

    Length: 4002 (0xfa2)
    Notes: pts_type(SC)
    Names: »DSUMOD.SC«

Derivation

└─⟦c47f25c27⟧ Bits:30009688 Philips computer tape "600318"
    └─⟦this⟧ »M:KMDV/DSUMOD.SC« 
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
    └─⟦this⟧ »TOSSWORK/DSUMOD.SC« 
└─⟦fcfed1ed9⟧ Bits:30009706 Philips computer tape "M_167"
    └─⟦this⟧ »M:167D/DSUMOD.SC«

PTS(SC)

	IDENT DSUMOD 	REL 8.2 78-09-15  870105040820 
*			LREK 78-02-20 
* 
****************************************************
* 
*   PHILIPS TERMINAL SYSTEM  PTS
* 
*   TOSS DATA MANAGEMENT
* 
* 
*   LEVEL      #1 
* 
*   RELEASE    #8 
* 
****************************************************
* 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
DSUMOD   LDK      A3,0
         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
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
         RTN      A14 
         END

Full view