|
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: 1446 (0x5a6)
Notes: pts_type(SC)
Names: »INTRT1.SC«
└─⟦18bf30ff4⟧ Bits:30009692 Philips computer tape "600409"
└─⟦this⟧ »BDKMON/INTRT1.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKMON/INTRT1.SC«
IDENT INTRT1 REL=7.2 DATE=77-09-09 * * INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1 * FOR REMOTE TERMINALS * THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED * WITH DEVICES CONNECTED TO A SPECIFIC LINE ON CHRT1. A MAXIMUM * OF SIX DEVICES CAN BE CONNECTED TO EACH OF EIGHT LINES * ENTRY INTRT1 TABLE ENTRY * * TERMINAL PARAMETERS * * * RIGHT BYTE = 2 * NUMBER OF DEVICES * * * * INTRT1 EQU * TABLE ENTRY * * * END
0x000…02e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT INTRT1 REL=7.2 DATE=77-09-09«, t00=0x0000, t01=0x0004}
0x02e…038 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0032}
0x038…07c Head {h00=0x0040, h01=0x0050, text=»* INTERRUPT TABLE FOR DEVICES CONNECTED TO CHANNEL UNIT NO.1«, t00=0x0000, t01=0x003c}
0x07c…09a Head {h00=0x001a, h01=0x0050, text=»* FOR REMOTE TERMINALS«, t00=0x0000, t01=0x0080}
0x09a…0e2 Head {h00=0x0044, h01=0x0050, text=»* THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED «, t00=0x0000, t01=0x009e}
0x0e2…12a Head {h00=0x0044, h01=0x0050, text=»* WITH DEVICES CONNECTED TO A SPECIFIC LINE ON CHRT1. A MAXIMUM «, t00=0x0000, t01=0x00e6}
0x12a…16a Head {h00=0x003c, h01=0x0050, text=»* OF SIX DEVICES CAN BE CONNECTED TO EACH OF EIGHT LINES«, t00=0x0000, t01=0x012e}
0x16a…174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016e}
0x174…196 Head {h00=0x001e, h01=0x0050, text=» ENTRY INTRT1 TABLE ENTRY «, t00=0x0000, t01=0x0178}
0x196…1a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000a}
0x1a0…1c0 Head {h00=0x001c, h01=0x0050, text=»* TERMINAL PARAMETERS«, t00=0x0001, t01=0x0014}
0x1c0…1ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0034}
0x1ca…1d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x003e}
0x1d4…204 Head {h00=0x002c, h01=0x0050, text=»* RIGHT BYTE = 2 * NUMBER OF DEVICES «, t00=0x0001, t01=0x0048}
0x204…20e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0078}
0x20e…218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0082}
0x218…222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x008c}
0x222…22c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0096}
0x22c…24c Head {h00=0x001c, h01=0x0050, text=»INTRT1 EQU * TABLE ENTRY«, t00=0x0001, t01=0x00a0}
0x24c…256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c0}
0x256…260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ca}
0x260…26a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d4}
0x26a…276 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0001, t01=0x00de}
0x276…27a Head {h00=0x4004, h01=0x0000}
0x27a…27e 00 01 00 ea ┆ ┆
0x27e…286 (2, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0x286…2d6 (3, 0, 400) 4a 55 4d 50 20 49 46 20 4f 50 31 20 4c 54 20 4f 50 32 00 22 01 82 00 0e 00 50 5c 53 55 4b 5c 41 35 2c 2f 42 00 23 00 1a 00 24 00 50 5c 52 46 28 5a 29 5c 43 4d 50 31 30 30 5c 4a 55 4d 50 20 49 46 20 50 4c 55 53 20 53 49 47 4e 53 00 23 00 2c ┆JUMP IF OP1 LT OP2 " P SUK A5,/B # $ P RF(Z) CMP100 JUMP IF PLUS SIGNS # ,┆
0x2d6…326 00 20 00 50 5c 4c 44 4b 4c 5c 41 38 2c 2f 45 41 31 30 5c 41 38 3d 43 57 52 20 41 32 2c 41 34 20 00 23 00 54 00 16 00 50 43 4d 50 31 30 30 5c 53 55 4b 5c 41 34 2c 2f 46 46 20 00 23 00 78 00 22 00 50 5c 52 46 28 5a 29 5c 43 4d 50 31 31 30 5c ┆ P LDKL A8,/EA10 A8=CWR A2,A4 # T PCMP100 SUK A4,/FF # x " P RF(Z) CMP110 ┆
0x326…376 4a 55 4d 50 20 49 46 20 32 20 42 4c 41 4e 4b 53 00 23 00 92 00 0e 00 50 5c 41 44 4b 5c 41 34 2c 2f 46 00 23 00 b8 00 2e 00 50 5c 52 46 28 4e 4e 29 5c 43 4d 50 31 31 30 5c 4a 55 4d 50 20 49 46 20 31 20 42 4c 41 4e 4b 20 28 4c 45 46 54 4d 4f ┆JUMP IF 2 BLANKS # P ADK A4,/F # . P RF(NN) CMP110 JUMP IF 1 BLANK (LEFTMO┆
0x376…3c6 53 54 29 20 00 23 00 ca 00 1e 00 50 5c 41 44 4b 5c 41 34 2c 2f 46 30 5c 52 45 53 54 4f 52 45 20 44 49 47 49 54 53 00 23 00 fc 00 16 00 50 43 4d 50 31 31 30 5c 53 55 4b 5c 41 32 2c 2f 46 46 20 00 23 01 1e 00 22 00 50 5c 52 46 28 5a 29 5c 43 ┆ST) # P ADK A4,/F0 RESTORE DIGITS # PCMP110 SUK A2,/FF # " P RF(Z) C┆
0x3c6…416 4d 50 31 32 30 5c 4a 55 4d 50 20 49 46 20 32 20 42 4c 41 4e 4b 53 00 23 01 38 00 0e 00 50 5c 41 44 4b 5c 41 32 2c 2f 46 00 23 01 5e 00 2e 00 50 5c 52 46 28 4e 4e 29 5c 43 4d 50 31 32 30 5c 4a 55 4d 50 20 49 46 20 31 20 42 4c 41 4e 4b 20 28 ┆MP120 JUMP IF 2 BLANKS # 8 P ADK A2,/F # ^ . P RF(NN) CMP120 JUMP IF 1 BLANK (┆
0x416…466 (4, 0, 400) 4c 45 46 54 4d 4f 53 54 29 20 00 23 01 70 00 1e 00 50 5c 41 44 4b 5c 41 32 2c 2f 46 30 5c 52 45 53 54 4f 52 45 20 44 49 47 49 54 53 00 24 00 12 00 1a 00 50 43 4d 50 31 32 30 5c 45 58 52 5c 41 38 5c 43 4f 4d 50 41 52 45 20 00 24 00 34 00 22 ┆LEFTMOST) # p P ADK A2,/F0 RESTORE DIGITS $ PCMP120 EXR A8 COMPARE $ 4 "┆
0x466…4b6 00 50 5c 52 46 28 47 29 5c 43 4d 50 31 34 30 5c 4a 55 4d 50 20 49 46 20 47 52 45 41 54 45 52 20 00 24 00 52 00 20 00 50 5c 52 46 28 45 29 5c 43 4d 50 31 33 30 5c 4a 55 4d 50 20 49 46 20 45 51 55 41 4c 20 00 24 00 78 00 1c 00 50 5c 4c 44 4b ┆ P RF(G) CMP140 JUMP IF GREATER $ R P RF(E) CMP130 JUMP IF EQUAL $ x P LDK┆
0x4b6…506 5c 41 37 2c 32 5c 49 4e 44 49 43 41 54 45 20 4c 45 53 53 20 00 24 00 9c 00 26 00 50 43 4d 50 31 33 30 5c 53 55 4b 5c 41 36 2c 31 5c 44 45 43 52 45 4d 45 4e 54 20 50 4f 49 4e 54 45 52 20 00 24 00 bc 00 22 00 50 5c 53 55 4b 4c 5c 41 31 30 2c ┆ A7,2 INDICATE LESS $ & PCMP130 SUK A6,1 DECREMENT POINTER $ " P SUKL A10,┆
0x506…556 31 5c 44 45 43 52 45 4d 45 4e 54 20 50 4f 49 4e 54 45 52 20 00 24 00 e6 00 1e 00 50 5c 41 44 4b 5c 41 31 2c 31 5c 49 4e 43 52 45 4d 45 4e 54 20 49 4e 44 45 58 20 00 24 01 0c 00 12 00 50 5c 52 46 28 4e 4e 29 5c 43 4d 50 31 37 30 00 24 01 2e ┆1 DECREMENT POINTER $ P ADK A1,1 INCREMENT INDEX $ P RF(NN) CMP170 $ .┆
0x556…5a6 00 22 00 50 5c 4c 43 52 5c 41 34 2c 41 36 5c 47 45 54 20 42 59 54 45 20 46 52 4f 4d 20 4f 50 20 31 20 00 24 01 44 00 0e 00 50 5c 4c 44 4b 5c 41 32 2c 30 20 00 24 01 6a 00 1e 00 50 5c 49 4d 5c 54 3a 4f 50 32 5c 49 4e 43 52 45 4d 45 4e 54 20 ┆ " P LCR A4,A6 GET BYTE FROM OP 1 $ D P LDK A2,0 $ j P IM T:OP2 INCREMENT ┆