|
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: 1170 (0x492)
Notes: pts_type(UF)
Names: »C976.UF«
└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
└─⟦this⟧ »OD-KOM/C976.UF«
└─⟦d2cdd233a⟧ Bits:30009674 Philips computer tape "600204"
└─⟦this⟧ »OD-KOM/C976.UF«
T; 01; TID=TC; TCL=TC; LEV=60; 01; TDC=T01; LC=01L; 01; SCL=S04; T; 01; TID=D0; TCL=D0; LEV=60; 00; 00; C; 00; 01; SCL=S01; U; 001; TB2; 012; S; 000;
0x000…00a (0, 0, 354) Head {h00=0x0006, h01=0x0050, text=»T;«, t00=0x0000, t01=0x0004}
0x00a…016 Head {h00=0x0008, h01=0x0050, text=»01; «, t00=0x0000, t01=0x000e}
0x016…026 Head {h00=0x000c, h01=0x0050, text=»TID=TC; «, t00=0x0000, t01=0x001a}
0x026…036 Head {h00=0x000c, h01=0x0050, text=»TCL=TC; «, t00=0x0000, t01=0x002a}
0x036…046 Head {h00=0x000c, h01=0x0050, text=»LEV=60; «, t00=0x0000, t01=0x003a}
0x046…052 Head {h00=0x0008, h01=0x0050, text=»01; «, t00=0x0000, t01=0x004a}
0x052…062 Head {h00=0x000c, h01=0x0050, text=»TDC=T01;«, t00=0x0000, t01=0x0056}
0x062…072 Head {h00=0x000c, h01=0x0050, text=»LC=01L; «, t00=0x0000, t01=0x0066}
0x072…07e Head {h00=0x0008, h01=0x0050, text=»01; «, t00=0x0000, t01=0x0076}
0x07e…08e Head {h00=0x000c, h01=0x0050, text=»SCL=S04;«, t00=0x0000, t01=0x0082}
0x08e…098 Head {h00=0x0006, h01=0x0050, text=»T;«, t00=0x0000, t01=0x0092}
0x098…0a4 Head {h00=0x0008, h01=0x0050, text=»01; «, t00=0x0000, t01=0x009c}
0x0a4…0b4 Head {h00=0x000c, h01=0x0050, text=»TID=D0; «, t00=0x0000, t01=0x00a8}
0x0b4…0c4 Head {h00=0x000c, h01=0x0050, text=»TCL=D0; «, t00=0x0000, t01=0x00b8}
0x0c4…0d4 Head {h00=0x000c, h01=0x0050, text=»LEV=60; «, t00=0x0000, t01=0x00c8}
0x0d4…0e0 Head {h00=0x0008, h01=0x0050, text=»00; «, t00=0x0000, t01=0x00d8}
0x0e0…0ec Head {h00=0x0008, h01=0x0050, text=»00; «, t00=0x0000, t01=0x00e4}
0x0ec…0f6 Head {h00=0x0006, h01=0x0050, text=»C;«, t00=0x0000, t01=0x00f0}
0x0f6…102 Head {h00=0x0008, h01=0x0050, text=»00; «, t00=0x0000, t01=0x00fa}
0x102…10e Head {h00=0x0008, h01=0x0050, text=»01; «, t00=0x0000, t01=0x0106}
0x10e…11e Head {h00=0x000c, h01=0x0050, text=»SCL=S01;«, t00=0x0000, t01=0x0112}
0x11e…128 Head {h00=0x0006, h01=0x0050, text=»U;«, t00=0x0000, t01=0x0122}
0x128…134 Head {h00=0x0008, h01=0x0050, text=»001;«, t00=0x0000, t01=0x012c}
0x134…140 Head {h00=0x0008, h01=0x0050, text=»TB2;«, t00=0x0000, t01=0x0138}
0x140…14c Head {h00=0x0008, h01=0x0050, text=»012;«, t00=0x0000, t01=0x0144}
0x14c…156 Head {h00=0x0006, h01=0x0050, text=»S;«, t00=0x0000, t01=0x0150}
0x156…162 Head {h00=0x0008, h01=0x0004, text=»000;«, t00=0x0000, t01=0x015a}
0x162…166 (1, 1, 8) Head {h00=0x2004, h01=0x0000}
0x166…16a 00 01 00 04 ┆ ┆
0x16a…172 (2, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0x172…1c2 (3, 0, 400) 35 2c 43 42 49 4e 31 2c 47 53 57 42 43 44 36 2c 47 53 57 42 49 4e 32 5c 47 45 54 20 4e 45 58 54 20 44 49 47 49 54 00 02 01 7e 00 36 00 50 5c 4d 55 4c 5c 47 53 57 42 43 44 33 2c 57 45 49 47 54 48 31 28 47 53 57 42 49 4e 32 29 5c 4d 55 4c 54 ┆5,CBIN1,GSWBCD6,GSWBIN2 GET NEXT DIGIT ~ 6 P MUL GSWBCD3,WEIGTH1(GSWBIN2) MULT┆
0x1c2…212 49 50 4c 59 20 57 49 54 48 20 57 45 49 47 54 48 00 03 00 2e 00 28 00 50 5c 41 44 44 5c 47 53 57 42 43 44 35 2c 47 53 57 42 43 44 33 5c 41 44 44 20 54 4f 20 4f 4c 44 20 53 55 4d 20 00 03 00 68 00 2a 00 50 5c 53 55 42 5c 47 53 57 42 49 4e 32 ┆IPLY WITH WEIGTH . ( P ADD GSWBCD5,GSWBCD3 ADD TO OLD SUM h * P SUB GSWBIN2┆
0x212…262 2c 3d 57 27 31 27 5c 41 44 4a 55 53 54 20 57 45 49 47 48 54 20 49 4e 44 45 58 00 03 00 94 00 2c 00 50 5c 53 55 42 5c 47 53 57 42 49 4e 31 2c 3d 57 27 31 27 5c 41 44 4a 55 53 54 20 4c 45 4e 47 54 48 20 4f 46 20 49 54 45 4d 00 03 00 c2 00 30 ┆,=W'1' ADJUST WEIGHT INDEX , P SUB GSWBIN1,=W'1' ADJUST LENGTH OF ITEM 0┆
0x262…2b2 00 50 5c 43 42 4e 45 5c 47 53 57 42 49 4e 31 2c 3d 57 27 30 27 2c 43 48 4b 31 31 5c 42 41 43 4b 20 54 4f 20 4e 45 58 54 20 44 49 47 49 54 00 03 00 f2 00 1a 00 50 5c 4d 4f 56 45 5c 47 53 57 42 43 44 34 2c 47 53 57 42 43 44 35 20 00 03 01 26 ┆ P CBNE GSWBIN1,=W'0',CHK11 BACK TO NEXT DIGIT P MOVE GSWBCD4,GSWBCD5 &┆
0x2b2…302 00 24 00 50 5c 44 49 56 5c 47 53 57 42 43 44 35 2c 3d 44 27 31 31 27 5c 44 49 56 49 44 45 20 42 59 20 31 31 00 03 01 44 00 28 00 50 5c 4d 55 4c 5c 47 53 57 42 43 44 35 2c 3d 44 27 31 31 27 5c 4d 55 4c 54 49 50 4c 59 20 57 49 54 48 20 31 31 ┆ $ P DIV GSWBCD5,=D'11' DIVIDE BY 11 D ( P MUL GSWBCD5,=D'11' MULTIPLY WITH 11┆
0x302…352 (4, 0, 400) 00 03 01 6c 00 2e 00 50 5c 53 55 42 5c 47 53 57 42 43 44 34 2c 47 53 57 42 43 44 35 5c 47 45 54 20 52 45 4d 41 49 4e 44 45 52 20 4d 4f 44 20 31 31 20 00 04 00 08 00 3a 00 50 5c 43 42 45 5c 47 53 57 42 43 44 34 2c 3d 44 27 30 27 2c 43 48 4b ┆ l . P SUB GSWBCD4,GSWBCD5 GET REMAINDER MOD 11 : P CBE GSWBCD4,=D'0',CHK┆
0x352…3a2 31 52 45 54 5c 49 46 20 52 45 4d 41 49 4e 44 45 52 20 30 2c 20 54 48 45 4e 20 52 45 54 55 52 4e 00 04 00 3a 00 06 00 50 2a 20 00 04 00 78 00 0a 00 50 43 48 4b 31 45 52 00 04 00 82 00 18 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 34 2c 3d 57 ┆1RET IF REMAINDER 0, THEN RETURN : P* x PCHK1ER P MOVE SPBINW4,=W┆
0x3a2…3f2 27 36 27 20 00 04 00 90 00 28 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 33 2c 43 42 49 4e 33 5c 53 45 54 20 45 52 52 4f 52 20 56 41 4c 55 45 20 00 04 00 ac 00 06 00 50 2a 20 00 04 00 d8 00 0c 00 50 43 48 4b 31 52 45 54 20 00 04 00 e2 00 08 ┆'6' ( P MOVE SPBINW3,CBIN3 SET ERROR VALUE P* PCHK1RET ┆
0x3f2…442 00 50 5c 52 45 54 00 04 00 f2 00 0a 00 50 5c 50 45 4e 44 20 00 04 00 fe 00 0a 00 50 5c 45 4a 45 43 54 00 04 01 0c 00 10 00 50 53 50 43 48 4b 32 5c 50 52 4f 43 20 00 04 01 1a 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P RET P PEND P EJECT PSPCHK2 PROC P******************┆
0x442…492 2a 2a 00 04 01 2e 00 06 00 50 2a 20 00 04 01 4a 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 53 50 43 48 4b 32 20 2d 20 43 48 45 43 4b 20 44 41 54 45 00 04 01 54 00 06 00 50 2a 20 00 04 01 7a 00 30 00 50 2a 20 20 20 20 20 20 20 20 20 20 43 ┆** . P* J " P* SPCHK2 - CHECK DATE T P* z 0 P* C┆