|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3518 (0xdbe)
Notes: pts_type(SC)
Names: »ADDMOD.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »TOSSWORK/ADDMOD.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »M:TU10/ADDMOD.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »M:TU10/ADDMOD.SC«
IDENT ADDMOD REL 10.0 80-03-14 870105041000
*
****************************************************
*
* 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 1
*
EJECT
ADDMOD EQU *
LDK A3,0
IFF CPU852=1
DAR A6
XIF
IFT CPU852=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
IFF CPU852=1
RF(0) END0
RF(1) END1
RF(2) END2
XIF
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
0x000…036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT ADDMOD REL 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x036…03e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x03e…048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x048…084 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x004c}
0x084…08e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0088}
0x08e…0b6 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x0092}
0x0b6…0c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ba}
0x0c0…0e0 Head {h00=0x001c, h01=0x0050, text=»* TOSS DATA MANAGEMENT«, t00=0x0000, t01=0x00c4}
0x0e0…0ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e4}
0x0ea…0f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ee}
0x0f4…0fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x0fe…13a Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0102}
0x13a…186 Head {h00=0x0048, h01=0x0050, text=»* THIS ROUTINE EXECUTES THE DOUBLE ADDITION INSTRUCTION ON THE ALPHA«, t00=0x0000, t01=0x013e}
0x186…198 Head {h00=0x000e, h01=0x0050, text=»* COMPUTER«, t00=0x0000, t01=0x018a}
0x198…1b2 Head {h00=0x0016, h01=0x0050, text=»*CALLING SEQUENCE:«, t00=0x0001, t01=0x000c}
0x1b2…1da Head {h00=0x0024, h01=0x0050, text=»* A1-A2 = ARG1 «, t00=0x0001, t01=0x0026}
0x1da…202 Head {h00=0x0024, h01=0x0050, text=»* AG-A7 = ARG2 «, t00=0x0001, t01=0x004e}
0x202…226 Head {h00=0x0020, h01=0x0050, text=»* CF A14,ADDMOD«, t00=0x0001, t01=0x0076}
0x226…250 Head {h00=0x0026, h01=0x0050, text=»*RETURN : RESULT IN A1-A2 «, t00=0x0001, t01=0x009a}
0x250…288 Head {h00=0x0034, h01=0x0050, text=»* CAUTION REGISTERS A3,A4,A6,A7 ARE CRUSHED.«, t00=0x0001, t01=0x00c4}
0x288…2a8 Head {h00=0x001c, h01=0x0050, text=» ENTRY ADDMOD«, t00=0x0001, t01=0x00fc}
0x2a8…2b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011c}
0x2b2…2bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0126}
0x2bc…2ee Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0001, t01=0x0130}
0x2ee…2f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0162}
0x2f8…316 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0001, t01=0x016c}
0x316…320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018a}
0x320…352 (2, 0, 400) Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0002, t01=0x0004}
0x352…35c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0036}
0x35c…396 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0002, t01=0x0040}
0x396…3c8 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0002, t01=0x007a}
0x3c8…3d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ac}
0x3d2…3e6 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0002, t01=0x00b6}
0x3e6…3f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ca}
0x3f0…3fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00d4}
0x3fe…412 Head {h00=0x0010, h01=0x0050, text=»ADDMOD EQU *«, t00=0x0002, t01=0x00e2}
0x412…424 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0002, t01=0x00f6}
0x424…43a Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0002, t01=0x0108}
0x43a…44a Head {h00=0x000c, h01=0x0050, text=» DAR A6 «, t00=0x0002, t01=0x011e}
0x44a…456 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0002, t01=0x012e}
0x456…46c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0002, t01=0x013a}
0x46c…48e Head {h00=0x001e, h01=0x0050, text=» ANK.L A7,/7FFF«, t00=0x0002, t01=0x0150}
0x48e…4b0 Head {h00=0x001e, h01=0x0050, text=» ANK.L A2,/7FFF«, t00=0x0002, t01=0x0172}
0x4b0…4d0 (3, 0, 400) Head {h00=0x001c, h01=0x0050, text=» ADR A2,A7 «, t00=0x0003, t01=0x0004}
0x4d0…4f0 Head {h00=0x001c, h01=0x0050, text=» RF(3) OVER1 «, t00=0x0003, t01=0x0024}
0x4f0…524 Head {h00=0x0030, h01=0x0050, text=»NOVER ADR A1,A6 * NO OVERFLOW «, t00=0x0003, t01=0x0044}
0x524…542 Head {h00=0x001a, h01=0x0050, text=» RF(1) END1«, t00=0x0003, t01=0x0078}
0x542…560 Head {h00=0x001a, h01=0x0050, text=» RF(2) END2«, t00=0x0003, t01=0x0096}
0x560…57e Head {h00=0x001a, h01=0x0050, text=» RF(3) END3«, t00=0x0003, t01=0x00b4}
0x57e…59c Head {h00=0x001a, h01=0x0050, text=»NOVER1 ADK A2,0«, t00=0x0003, t01=0x00d2}
0x59c…5ba Head {h00=0x001a, h01=0x0050, text=» RF(0) END0«, t00=0x0003, t01=0x00f0}
0x5ba…5d8 Head {h00=0x001a, h01=0x0050, text=» RF(7) END1«, t00=0x0003, t01=0x010e}
0x5d8…5fa Head {h00=0x001e, h01=0x0050, text=»OVER1 ANK.L A2,/7FFF«, t00=0x0003, t01=0x012c}
0x5fa…618 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0003, t01=0x014e}
0x618…638 Head {h00=0x001c, h01=0x0050, text=» RF(3) OVER3 «, t00=0x0003, t01=0x016c}
0x638…658 Head {h00=0x001c, h01=0x0050, text=» RB(7) NOVER «, t00=0x0003, t01=0x018c}
0x658…678 Head {h00=0x001c, h01=0x0050, text=»OVER3 ADR A1,A6 «, t00=0x0004, t01=0x001c}
0x678…696 Head {h00=0x001a, h01=0x0050, text=» RF(2) END3«, t00=0x0004, t01=0x003c}
0x696…6b4 Head {h00=0x001a, h01=0x0050, text=» ADK A1,0«, t00=0x0004, t01=0x005a}
0x6b4…6d2 Head {h00=0x001a, h01=0x0050, text=» RF(1) END1«, t00=0x0004, t01=0x0078}
0x6d2…6f2 Head {h00=0x001c, h01=0x0050, text=» RB(7) NOVER1«, t00=0x0004, t01=0x0096}
0x6f2…6fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0004, t01=0x00b6}
0x6fe…714 Head {h00=0x0012, h01=0x0050, text=» IFF CPU852=1 «, t00=0x0004, t01=0x00c2}
0x714…728 Head {h00=0x0010, h01=0x0050, text=» RF(0) END0 «, t00=0x0004, t01=0x00d8}
0x728…73c Head {h00=0x0010, h01=0x0050, text=» RF(1) END1 «, t00=0x0004, t01=0x00ec}
0x73c…750 Head {h00=0x0010, h01=0x0050, text=» RF(2) END2 «, t00=0x0004, t01=0x0100}
0x750…75c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0004, t01=0x0114}
0x75c…77e Head {h00=0x001e, h01=0x0050, text=»END3 ADK A3,/80 «, t00=0x0004, t01=0x0120}
0x77e…7a0 Head {h00=0x001e, h01=0x0050, text=»END2 ADK A3,/80 «, t00=0x0004, t01=0x0142}
0x7a0…7c2 Head {h00=0x001e, h01=0x0050, text=»END1 ADK A3,/80 «, t00=0x0004, t01=0x0164}
0x7c2…808 Head {h00=0x0042, h01=0x0050, text=»END0 SLL A3,1 **********************************«, t00=0x0004, t01=0x0186}
0x808…82a Head {h00=0x001e, h01=0x0050, text=» ANK.L A3,/0300«, t00=0x0005, t01=0x003c}
0x82a…84c Head {h00=0x001e, h01=0x0050, text=» LDK.L A4,/FCFF«, t00=0x0005, t01=0x005e}
0x84c…86e Head {h00=0x001e, h01=0x0050, text=» AN.S A4,2,A14«, t00=0x0005, t01=0x0080}
0x86e…8b4 Head {h00=0x0042, h01=0x0050, text=» OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM«, t00=0x0005, t01=0x00a2}
0x8b4…8d2 Head {h00=0x001a, h01=0x0050, text=» RTN A14 «, t00=0x0005, t01=0x00e8}
0x8d2…8e6 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0005, t01=0x0106}
0x8e6…8ea Head {h00=0x4004, h01=0x0000}
0x8ea…8ee 00 05 01 1a ┆ ┆
0x8ee…8f6 (6, 1, 8) 20 04 00 00 00 06 00 04 ┆ ┆
0x8f6…8f8 (7, 0, 2) 08 b0 ┆ ┆
0x8f8…948 (8, 0, 398) 00 08 00 50 24 52 45 4c 00 00 00 04 00 0a 00 50 4d 45 53 20 40 50 00 00 00 10 00 14 00 50 4c 45 44 20 40 50 2c 2f 53 2c 2f 45 45 2c 23 23 00 00 00 1e 00 0c 00 50 23 23 44 4c 20 30 2c 31 00 00 00 36 00 30 00 50 5c 49 44 45 4e 54 20 40 50 20 ┆ P$REL PMES @P PLED @P,/S,/EE,## P##DL 0,1 6 0 P IDENT @P ┆
0x948…998 20 20 20 5c 52 45 4c 20 31 30 2e 30 20 38 30 2d 30 33 2d 31 34 20 38 37 30 31 30 35 30 34 31 30 30 30 00 00 00 46 00 04 00 50 00 00 00 7a 00 08 00 50 23 23 45 4e 00 00 00 82 00 0a 00 50 4b 50 46 20 2f 53 00 00 00 8e 00 0e 00 50 41 53 4d 20 ┆ REL 10.0 80-03-14 870105041000 F P z P##EN PKPF /S PASM ┆
0x998…9e8 2f 53 2c 4e 4c 20 00 00 00 9c 00 0a 00 50 4b 50 46 20 2f 4f 00 00 00 ae 00 0a 00 50 53 43 52 20 2f 53 00 00 00 bc 00 0a 00 50 53 43 52 20 2f 4f 00 00 00 ca 00 08 00 50 45 4e 44 20 00 00 00 d8 00 0a 00 50 24 4d 4f 56 44 4d 00 00 00 e4 00 14 ┆/S,NL PKPF /O PSCR /S PSCR /O PEND P$MOVDM ┆
0x9e8…a38 00 50 4d 4f 56 20 40 52 2c 2f 53 2c 53 4c 41 53 4b 20 00 00 00 f2 00 0a 00 50 4b 50 46 20 2f 53 00 00 01 0a 00 0a 00 50 53 43 52 20 2f 4f 00 00 01 18 00 0e 00 50 41 53 4d 20 40 52 2c 4e 4c 20 00 00 01 26 00 0a 00 50 4b 50 46 20 2f 4f 00 00 ┆ PMOV @R,/S,SLASK PKPF /S PSCR /O PASM @R,NL & PKPF /O ┆
0xa38…a86 01 38 00 08 00 50 45 4e 44 20 00 00 01 46 00 0a 00 50 24 4d 4f 56 53 43 00 00 01 52 00 0a 00 50 4d 45 53 20 40 50 00 00 01 60 00 12 00 50 4d 4f 56 20 40 50 2c 2f 53 2c 48 45 4c 50 00 00 01 6e 00 0a 00 50 4b 50 46 20 2f 53 00 00 01 84 ┆ 8 PEND F P$MOVSC R PMES @P ` PMOV @P,/S,HELP n PKPF /S ┆
0xa86…ad6 (9, 0, 400) 00 0a 00 50 53 43 52 20 2f 53 00 01 00 04 00 0a 00 50 53 43 52 20 2f 4f 00 01 00 12 00 08 00 50 45 4e 44 20 00 01 00 20 00 0a 00 50 24 4d 4f 56 4f 42 00 01 00 2c 00 0a 00 50 4d 45 53 20 40 50 00 01 00 3a 00 10 00 50 49 4e 43 20 40 50 2c 48 ┆ PSCR /S PSCR /O PEND P$MOVOB , PMES @P : PINC @P,H┆
0xad6…b26 45 4c 50 20 00 01 00 48 00 0a 00 50 4b 50 46 20 2f 4f 00 01 00 5c 00 0a 00 50 53 43 52 20 2f 53 00 01 00 6a 00 0a 00 50 53 43 52 20 2f 4f 00 01 00 78 00 08 00 50 45 4e 44 20 00 01 00 86 00 0a 00 50 24 4d 4f 56 55 46 00 01 00 92 00 0a 00 50 ┆ELP H PKPF /O PSCR /S j PSCR /O x PEND P$MOVUF P┆
0xb26…b76 4d 45 53 20 40 50 00 01 00 a0 00 12 00 50 4d 4f 56 20 40 50 2c 2f 41 2c 48 45 4c 50 00 01 00 ae 00 0e 00 50 4b 50 46 20 2f 41 2c 40 50 20 00 01 00 c4 00 0a 00 50 53 43 52 20 2f 41 00 01 00 d6 00 08 00 50 45 4e 44 20 00 01 00 e4 00 08 00 50 ┆MES @P PMOV @P,/A,HELP PKPF /A,@P PSCR /A PEND P┆
0xb76…bc6 24 4e 43 20 00 01 00 f0 00 0a 00 50 4d 45 53 20 40 50 00 01 00 fc 00 14 00 50 4c 45 44 20 40 50 2c 2f 53 2c 2f 45 45 2c 23 23 00 01 01 0a 00 1c 00 50 23 23 52 45 20 30 2c 24 24 20 20 38 37 30 31 24 24 20 38 37 30 31 24 24 00 01 01 22 00 08 ┆$NC PMES @P PLED @P,/S,/EE,## P##RE 0,$$ 8701$$ 8701$$ " ┆
0xbc6…c16 00 50 23 23 45 4e 00 01 01 42 00 0a 00 50 4b 50 46 20 2f 53 00 01 01 4e 00 0e 00 50 41 53 4d 20 2f 53 2c 4e 4c 20 00 01 01 5c 00 0a 00 50 4b 50 46 20 2f 4f 00 01 01 6e 00 0a 00 50 53 43 52 20 2f 53 00 01 01 7c 00 0a 00 50 53 43 52 20 2f 4f ┆ P##EN B PKPF /S N PASM /S,NL PKPF /O n PSCR /S | PSCR /O┆
0xc16…c26 (10, 0, 16) 00 01 01 8a 00 08 00 50 45 4e 44 20 00 02 00 08 ┆ PEND ┆
0xc26…c2e (11, 1, 8) 20 04 00 00 00 03 00 04 ┆ ┆
0xc2e…c7e (12, 0, 400) 58 5c 45 51 55 5c 2f 30 33 5c 4c 41 53 54 20 44 55 4d 4d 59 00 0b 01 8e 00 2e 00 50 52 45 54 55 52 4e 5c 45 51 55 5c 2f 31 32 5c 52 45 54 55 52 4e 20 54 4f 20 41 4c 50 48 41 4e 55 4d 45 52 49 43 20 4d 4f 44 45 00 0c 00 1c 00 2a 00 50 45 53 ┆X EQU /03 LAST DUMMY . PRETURN EQU /12 RETURN TO ALPHANUMERIC MODE * PES┆
0xc7e…cce 43 41 50 45 5c 45 51 55 5c 2f 31 31 5c 45 53 43 41 50 45 20 54 4f 20 47 52 41 50 48 49 43 20 4d 4f 44 45 20 00 0c 00 4e 00 22 00 50 50 4f 49 4e 54 5c 45 51 55 5c 2f 32 45 5c 50 4f 49 4e 54 20 43 48 41 52 41 43 54 45 52 20 00 0c 00 7c 00 32 ┆CAPE EQU /11 ESCAPE TO GRAPHIC MODE N " PPOINT EQU /2E POINT CHARACTER | 2┆
0xcce…d1e 00 50 45 51 55 5c 45 51 55 5c 36 5c 54 48 52 45 53 48 4f 4c 44 20 46 4f 52 20 41 55 54 4f 4d 41 54 49 43 20 46 41 53 54 20 4f 55 54 50 55 54 20 00 0c 00 a2 00 20 00 50 53 54 49 4c 4c 5c 45 51 55 5c 2f 31 38 5c 43 55 52 53 4f 52 20 53 54 45 ┆ PEQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT PSTILL EQU /18 CURSOR STE┆
0xd1e…d6e 41 44 59 20 00 0c 00 d8 00 24 00 50 43 54 59 43 4f 44 5c 45 51 55 5c 2f 31 42 5c 53 45 54 20 43 4f 55 4e 54 52 59 20 43 4f 44 45 20 00 0c 00 fc 00 06 00 50 2a 20 00 0c 01 24 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ADY $ PCTYCOD EQU /1B SET COUNTRY CODE P* $ P******************┆
0xd6e…dbe 2a 2a 00 0c 01 2e 00 18 00 50 2a 20 20 20 20 52 45 54 55 52 4e 20 43 4f 44 45 53 20 20 2a 00 0c 01 4a 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0c 01 66 00 06 00 50 2a 20 00 0c 01 82 00 22 00 50 43 43 45 52 ┆** . P* RETURN CODES * J P******************** f P* " PCCER┆