|
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: 3318 (0xcf6)
Notes: pts_type(SC)
Names: »ADDMOD.SC«
└─⟦c47f25c27⟧ Bits:30009688 Philips computer tape "600318"
└─⟦this⟧ »M:KMDV/ADDMOD.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/ADDMOD.SC«
└─⟦fcfed1ed9⟧ Bits:30009706 Philips computer tape "M_167"
└─⟦this⟧ »M:167D/ADDMOD.SC«
IDENT ADDMOD 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 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
ADDMOD LDK A3,0
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
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 8.2 78-09-15 870105040820 «, t00=0x0000, t01=0x0004}
0x036…050 Head {h00=0x0016, h01=0x0050, text=»* LREK 78-02-20 «, t00=0x0000, t01=0x003a}
0x050…05a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0054}
0x05a…096 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x005e}
0x096…0a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x009a}
0x0a0…0c8 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00a4}
0x0c8…0d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00cc}
0x0d2…0f2 Head {h00=0x001c, h01=0x0050, text=»* TOSS DATA MANAGEMENT«, t00=0x0000, t01=0x00d6}
0x0f2…0fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f6}
0x0fc…106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0100}
0x106…120 Head {h00=0x0016, h01=0x0050, text=»* LEVEL #1 «, t00=0x0000, t01=0x010a}
0x120…12a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0124}
0x12a…144 Head {h00=0x0016, h01=0x0050, text=»* RELEASE #8 «, t00=0x0000, t01=0x012e}
0x144…14e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0148}
0x14e…18a Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0152}
0x18a…1d6 Head {h00=0x0048, h01=0x0050, text=»* THIS ROUTINE EXECUTES THE DOUBLE ADDITION INSTRUCTION ON THE ALPHA«, t00=0x0000, t01=0x018e}
0x1d6…1e8 Head {h00=0x000e, h01=0x0050, text=»* COMPUTER«, t00=0x0001, t01=0x004a}
0x1e8…202 Head {h00=0x0016, h01=0x0050, text=»*CALLING SEQUENCE:«, t00=0x0001, t01=0x005c}
0x202…22a Head {h00=0x0024, h01=0x0050, text=»* A1-A2 = ARG1 «, t00=0x0001, t01=0x0076}
0x22a…252 Head {h00=0x0024, h01=0x0050, text=»* AG-A7 = ARG2 «, t00=0x0001, t01=0x009e}
0x252…276 Head {h00=0x0020, h01=0x0050, text=»* CF A14,ADDMOD«, t00=0x0001, t01=0x00c6}
0x276…2a0 Head {h00=0x0026, h01=0x0050, text=»*RETURN : RESULT IN A1-A2 «, t00=0x0001, t01=0x00ea}
0x2a0…2d8 Head {h00=0x0034, h01=0x0050, text=»* CAUTION REGISTERS A3,A4,A6,A7 ARE CRUSHED.«, t00=0x0001, t01=0x0114}
0x2d8…2f8 Head {h00=0x001c, h01=0x0050, text=» ENTRY ADDMOD«, t00=0x0001, t01=0x014c}
0x2f8…316 Head {h00=0x001a, h01=0x0050, text=»ADDMOD LDK A3,0«, t00=0x0001, t01=0x016c}
0x316…338 Head {h00=0x001e, h01=0x0050, text=» ANK.L A7,/7FFF«, t00=0x0001, t01=0x018a}
0x338…35a Head {h00=0x001e, h01=0x0050, text=» ANK.L A2,/7FFF«, t00=0x0002, t01=0x001c}
0x35a…37a Head {h00=0x001c, h01=0x0050, text=» ADR A2,A7 «, t00=0x0002, t01=0x003e}
0x37a…39a Head {h00=0x001c, h01=0x0050, text=» RF(3) OVER1 «, t00=0x0002, t01=0x005e}
0x39a…3ce Head {h00=0x0030, h01=0x0050, text=»NOVER ADR A1,A6 * NO OVERFLOW «, t00=0x0002, t01=0x007e}
0x3ce…3ec Head {h00=0x001a, h01=0x0050, text=» RF(1) END1«, t00=0x0002, t01=0x00b2}
0x3ec…40a Head {h00=0x001a, h01=0x0050, text=» RF(2) END2«, t00=0x0002, t01=0x00d0}
0x40a…428 Head {h00=0x001a, h01=0x0050, text=» RF(3) END3«, t00=0x0002, t01=0x00ee}
0x428…446 Head {h00=0x001a, h01=0x0050, text=»NOVER1 ADK A2,0«, t00=0x0002, t01=0x010c}
0x446…464 Head {h00=0x001a, h01=0x0050, text=» RF(0) END0«, t00=0x0002, t01=0x012a}
0x464…482 Head {h00=0x001a, h01=0x0050, text=» RF(7) END1«, t00=0x0002, t01=0x0148}
0x482…4a4 Head {h00=0x001e, h01=0x0050, text=»OVER1 ANK.L A2,/7FFF«, t00=0x0002, t01=0x0166}
0x4a4…4c2 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1«, t00=0x0002, t01=0x0188}
0x4c2…4e2 Head {h00=0x001c, h01=0x0050, text=» RF(3) OVER3 «, t00=0x0003, t01=0x0016}
0x4e2…502 Head {h00=0x001c, h01=0x0050, text=» RB(7) NOVER «, t00=0x0003, t01=0x0036}
0x502…522 Head {h00=0x001c, h01=0x0050, text=»OVER3 ADR A1,A6 «, t00=0x0003, t01=0x0056}
0x522…540 Head {h00=0x001a, h01=0x0050, text=» RF(2) END3«, t00=0x0003, t01=0x0076}
0x540…55e Head {h00=0x001a, h01=0x0050, text=» ADK A1,0«, t00=0x0003, t01=0x0094}
0x55e…57c Head {h00=0x001a, h01=0x0050, text=» RF(1) END1«, t00=0x0003, t01=0x00b2}
0x57c…59c Head {h00=0x001c, h01=0x0050, text=» RB(7) NOVER1«, t00=0x0003, t01=0x00d0}
0x59c…5be Head {h00=0x001e, h01=0x0050, text=»END3 ADK A3,/80 «, t00=0x0003, t01=0x00f0}
0x5be…5e0 Head {h00=0x001e, h01=0x0050, text=»END2 ADK A3,/80 «, t00=0x0003, t01=0x0112}
0x5e0…602 Head {h00=0x001e, h01=0x0050, text=»END1 ADK A3,/80 «, t00=0x0003, t01=0x0134}
0x602…648 Head {h00=0x0042, h01=0x0050, text=»END0 SLL A3,1 **********************************«, t00=0x0003, t01=0x0156}
0x648…66a Head {h00=0x001e, h01=0x0050, text=» ANK.L A3,/0300«, t00=0x0004, t01=0x000c}
0x66a…68c Head {h00=0x001e, h01=0x0050, text=» LDK.L A4,/FCFF«, t00=0x0004, t01=0x002e}
0x68c…6ae Head {h00=0x001e, h01=0x0050, text=» AN.S A4,2,A14«, t00=0x0004, t01=0x0050}
0x6ae…6f4 Head {h00=0x0042, h01=0x0050, text=» OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM«, t00=0x0004, t01=0x0072}
0x6f4…712 Head {h00=0x001a, h01=0x0050, text=» RTN A14 «, t00=0x0004, t01=0x00b8}
0x712…726 Head {h00=0x0010, h01=0x0050, text=» END«, t00=0x0004, t01=0x00d6}
0x726…72a Head {h00=0x4004, h01=0x0000}
0x72a…72e 00 04 00 ea ┆ ┆
0x72e…736 (5, 1, 8) 20 04 00 00 00 05 00 04 ┆ ┆
0x736…786 (6, 0, 400) 20 20 20 20 4c 41 42 45 4c 20 3d 20 52 4c 20 38 2e 31 3a 31 20 20 20 20 20 20 20 20 20 20 44 41 54 45 20 3d 20 20 37 38 2d 30 33 2d 30 33 20 20 20 20 20 20 20 20 50 41 43 4b 20 4e 42 52 20 3d 20 20 30 30 31 20 20 20 20 20 20 20 20 20 20 20 ┆ LABEL = RL 8.1:1 DATE = 78-03-03 PACK NBR = 001 ┆
0x786…7d6 00 66 ff ff ff ff ff ff ff ff ff ff 84 b4 94 8c 15 02 84 34 16 13 85 0e 82 26 3a e1 91 a0 00 02 85 a0 00 10 81 34 3a c1 56 00 19 08 81 2d 15 02 13 02 98 a0 00 01 50 00 9d a0 00 01 59 1a 5f 28 1c 01 59 a2 8f 12 1f d4 4d c0 5c 04 a5 20 00 1f ┆ f 4 &: 4: V - P Y _( Y M ┆
0x7d6…826 f0 3a 85 5c 00 00 15 08 85 5d 00 00 85 1e 3d 49 52 00 05 0e 45 c0 5c 04 00 10 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ : ] =IR E ┆
0x826…876 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x8c6…8c8 (7, 0, 2) 12 e8 ┆ ┆
0x8c8…918 (8, 0, 400) 00 30 00 50 5c 49 44 45 4e 54 20 44 46 54 41 42 20 5c 52 45 4c 20 38 2e 31 20 37 38 2d 30 34 2d 32 31 20 20 38 37 30 31 30 35 30 34 30 38 31 30 00 00 00 04 00 1a 00 50 5c 5c 5c 55 50 44 41 54 45 20 20 23 30 20 37 36 2e 31 30 2e 30 37 00 00 ┆ 0 P IDENT DFTAB REL 8.1 78-04-21 870105040810 P UPDATE #0 76.10.07 ┆
0x918…968 00 38 00 06 00 50 2a 20 00 00 00 56 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 00 60 00 06 00 50 2a 20 00 00 ┆ 8 P* V 8 P**************************************************** ` P* ┆
0x968…9b8 00 9c 00 24 00 50 2a 20 20 20 50 48 49 4c 49 50 53 20 54 45 52 4d 49 4e 41 4c 20 53 59 53 54 45 4d 20 20 50 54 53 00 00 00 a6 00 06 00 50 2a 20 00 00 00 ce 00 26 00 50 2a 20 20 20 44 46 54 41 42 20 20 3d 20 44 49 53 43 20 46 49 4c 45 20 43 ┆ $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE C┆
0x9b8…a08 4f 44 45 20 54 41 42 4c 45 20 00 00 00 d8 00 06 00 50 2a 20 00 00 01 02 00 06 00 50 2a 20 00 00 01 0c 00 1e 00 50 2a 20 20 20 4c 45 56 45 4c 20 20 20 20 20 23 32 20 20 37 36 2e 31 30 2e 30 37 00 00 01 16 00 06 00 50 2a 20 00 00 01 38 00 24 ┆ODE TABLE P* P* P* LEVEL #2 76.10.07 P* 8 $┆
0xa08…a58 00 50 2a 20 20 20 52 45 4c 45 41 53 45 20 20 20 23 31 20 20 37 36 2e 30 34 2e 32 33 20 20 2f 52 4b 20 00 00 01 42 00 06 00 50 2a 20 00 00 01 6a 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P* RELEASE #1 76.04.23 /RK B P* j 8 P****************************┆
0xa58…aa8 (9, 2, 254) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 01 74 00 06 00 50 2a 20 00 01 00 20 00 1c 00 50 2a 20 20 20 44 49 53 43 20 46 49 4c 45 20 43 4f 44 45 20 54 41 42 4c 45 00 01 00 2a 00 06 00 50 2a 20 00 01 00 4a ┆************************ t P* P* DISC FILE CODE TABLE * P* J┆
0xaa8…af8 00 10 00 50 5c 45 4e 54 52 59 5c 44 46 54 41 42 00 01 00 54 00 12 00 50 5c 45 4e 54 52 59 5c 44 46 54 41 42 45 20 00 01 00 68 00 06 00 50 2a 20 00 01 00 7e 00 06 00 50 2a 20 00 01 00 88 00 10 00 50 44 46 54 41 42 5c 45 51 55 5c 2a 20 00 01 ┆ P ENTRY DFTAB T P ENTRY DFTABE h P* ~ P* PDFTAB EQU * ┆
0xaf8…b48 00 92 00 16 00 50 5c 44 41 54 41 5c 2f 46 30 46 31 2c 2f 46 32 46 33 20 00 01 00 a6 00 16 00 50 5c 44 41 54 41 5c 2f 46 38 46 39 2c 2f 46 41 46 42 20 00 01 00 c0 00 10 00 50 44 46 54 41 42 45 5c 45 51 55 5c 2a 00 01 00 da 00 08 00 50 5c 45 ┆ P DATA /F0F1,/F2F3 P DATA /F8F9,/FAFB PDFTABE EQU * P E┆
0xb48…b56 4e 44 00 01 00 ee 40 04 00 00 00 01 00 fa ┆ND @ ┆
0xb56…b5e (10, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0xb5e…b66 (11, 1, 8) 20 04 00 00 00 03 00 04 ┆ ┆
0xb66…bb6 (12, 0, 400) 00 1b 01 8e 00 22 00 50 2a 20 4d 4f 56 45 20 43 48 41 52 41 43 54 45 52 20 42 59 20 43 48 41 52 41 43 54 45 52 20 00 1c 00 08 00 22 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 1c 00 2e ┆ " P* MOVE CHARACTER BY CHARACTER " P***************************** .┆
0xbb6…c06 00 06 00 50 2a 20 00 1c 00 54 00 0e 00 50 4d 56 43 5c 45 51 55 5c 2a 20 00 1c 00 5e 00 1c 00 50 5c 4c 44 4b 5c 41 33 2c 30 5c 4c 4f 41 44 20 48 45 58 20 5a 45 52 4f 20 00 1c 00 70 00 10 00 50 4d 56 43 30 32 30 5c 45 51 55 5c 2a 00 1c 00 90 ┆ P* T PMVC EQU * ^ P LDK A3,0 LOAD HEX ZERO p PMVC020 EQU * ┆
0xc06…c56 00 20 00 50 5c 4c 44 52 2a 5c 41 35 2c 41 35 5c 47 45 54 20 50 41 43 4b 49 4e 47 20 46 4f 52 4d 00 1c 00 a4 00 20 00 50 5c 52 46 28 4e 29 5c 4d 56 43 30 35 30 5c 4a 55 4d 50 20 49 46 20 41 53 43 49 49 20 00 1c 00 c8 00 1c 00 50 5c 4c 44 4b ┆ P LDR* A5,A5 GET PACKING FORM P RF(N) MVC050 JUMP IF ASCII P LDK┆
0xc56…ca6 5c 41 33 2c 2f 46 46 5c 4c 4f 41 44 20 42 4c 41 4e 4b 53 20 00 1c 00 ec 00 26 00 50 4d 56 43 30 35 30 5c 4c 44 52 5c 41 31 2c 41 33 5c 47 45 54 20 46 49 4c 4c 45 52 20 54 4f 20 41 31 20 00 1c 01 0c 00 26 00 50 5c 41 44 4b 5c 41 32 2c 31 5c ┆ A3,/FF LOAD BLANKS & PMVC050 LDR A1,A3 GET FILLER TO A1 & P ADK A2,1 ┆
0xca6…cf6 49 4e 43 52 45 4d 45 4e 54 20 49 4e 44 45 58 20 46 4f 52 20 4f 50 32 20 00 1c 01 36 00 28 00 50 5c 52 46 28 50 29 5c 4d 56 43 31 30 30 5c 4a 55 4d 50 20 49 46 20 45 4e 44 20 4f 46 20 45 4c 45 4d 45 4e 54 00 1c 01 60 00 20 00 50 5c 4c 43 52 ┆INCREMENT INDEX FOR OP2 6 ( P RF(P) MVC100 JUMP IF END OF ELEMENT ` P LCR┆