|
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: 1084 (0x43c)
Notes: pts_type(UF)
Names: »C976A.UF«
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
└─⟦this⟧ »NJREMIT/C976A.UF«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/C976A.UF«
T; 01; TID=TC; TCL=TC; LEV=60; 02; TDC=T03; LC=01L; TDC=T07; LC=01L; 01; SCL=S04; C; 00; 01; SCL=S01; U; 001; TB2; 002;
0x000…00a (0, 0, 270) 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=0x0007, text=»TID=TC; «, t00=0x0000, t01=0x001a}
0x026…036 Head {h00=0x000c, h01=0x0007, text=»TCL=TC; «, t00=0x0000, t01=0x002a}
0x036…046 Head {h00=0x000c, h01=0x0007, text=»LEV=60; «, t00=0x0000, t01=0x003a}
0x046…052 Head {h00=0x0008, h01=0x0050, text=»02; «, t00=0x0000, t01=0x004a}
0x052…062 Head {h00=0x000c, h01=0x0050, text=»TDC=T03;«, t00=0x0000, t01=0x0056}
0x062…072 Head {h00=0x000c, h01=0x0050, text=»LC=01L; «, t00=0x0000, t01=0x0066}
0x072…082 Head {h00=0x000c, h01=0x0050, text=»TDC=T07;«, t00=0x0000, t01=0x0076}
0x082…092 Head {h00=0x000c, h01=0x0050, text=»LC=01L; «, t00=0x0000, t01=0x0086}
0x092…09e Head {h00=0x0008, h01=0x0050, text=»01; «, t00=0x0000, t01=0x0096}
0x09e…0ae Head {h00=0x000c, h01=0x0050, text=»SCL=S04;«, t00=0x0000, t01=0x00a2}
0x0ae…0b8 Head {h00=0x0006, h01=0x0050, text=»C;«, t00=0x0000, t01=0x00b2}
0x0b8…0c4 Head {h00=0x0008, h01=0x0050, text=»00; «, t00=0x0000, t01=0x00bc}
0x0c4…0d0 Head {h00=0x0008, h01=0x0050, text=»01; «, t00=0x0000, t01=0x00c8}
0x0d0…0e0 Head {h00=0x000c, h01=0x0050, text=»SCL=S01;«, t00=0x0000, t01=0x00d4}
0x0e0…0ea Head {h00=0x0006, h01=0x0002, text=»U;«, t00=0x0000, t01=0x00e4}
0x0ea…0f6 Head {h00=0x0008, h01=0x0004, text=»001;«, t00=0x0000, t01=0x00ee}
0x0f6…102 Head {h00=0x0008, h01=0x0004, text=»TB2;«, t00=0x0000, t01=0x00fa}
0x102…10e Head {h00=0x0008, h01=0x0050, text=»002;«, t00=0x0000, t01=0x0106}
0x10e…112 (1, 1, 8) Head {h00=0x2004, h01=0x0000}
0x112…116 00 01 00 04 ┆ ┆
0x116…11e (2, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0x11e…16e (3, 0, 400) 20 53 50 41 50 50 4c 20 55 53 45 52 20 52 4f 55 54 49 4e 45 20 54 4f 20 48 41 4e 44 4c 45 00 02 01 8c 00 12 00 50 5c 5c 5c 41 50 50 4c 20 56 41 4c 55 45 53 00 03 00 26 00 28 00 50 20 45 58 54 20 53 50 54 43 48 4b 20 55 53 45 52 20 52 4f 55 ┆ SPAPPL USER ROUTINE TO HANDLE P APPL VALUES & ( P EXT SPTCHK USER ROU┆
0x16e…1be 54 49 4e 45 20 54 4f 20 45 56 41 4c 55 41 54 45 00 03 00 3c 00 1e 00 50 5c 5c 5c 43 4f 4e 44 49 54 49 4f 4e 41 4c 20 54 41 42 55 4c 41 54 49 4f 4e 20 00 03 00 68 00 06 00 50 2a 20 00 03 00 8a 00 2e 00 50 5c 45 58 54 5c 45 4d 50 54 59 54 5c ┆TINE TO EVALUATE < P CONDITIONAL TABULATION h P* . P EXT EMPTYT ┆
0x1be…20e 41 53 53 45 4d 42 4c 59 20 53 55 42 52 4f 55 54 49 4e 45 20 45 4d 50 54 59 54 20 20 2d 20 00 03 00 94 00 22 00 50 5c 5c 5c 54 45 53 54 20 49 46 20 44 41 54 41 20 49 54 45 4d 20 49 53 20 45 4d 50 54 59 20 00 03 00 c6 00 06 00 50 2a 20 00 03 ┆ASSEMBLY SUBROUTINE EMPTYT - " P TEST IF DATA ITEM IS EMPTY P* ┆
0x20e…25e 00 ec 00 18 00 50 5c 49 4e 43 4c 55 44 45 5c 4b 45 59 35 33 39 2c 4c 49 53 54 00 03 00 f6 00 24 00 50 2a 20 20 20 20 20 46 49 52 53 54 20 49 4e 43 4c 55 44 45 20 4b 45 59 20 56 41 4c 55 45 53 2c 20 00 03 01 12 00 2e 00 50 2a 20 20 20 20 20 ┆ P INCLUDE KEY539,LIST $ P* FIRST INCLUDE KEY VALUES, . P* ┆
0x25e…2ae 54 48 45 4e 20 49 4e 43 4c 55 44 45 20 53 50 45 43 49 41 4c 20 53 43 52 45 45 4e 20 46 4f 52 4d 41 54 53 20 00 03 01 3a 00 18 00 50 5c 49 4e 43 4c 55 44 45 5c 53 4c 43 4f 50 2c 4c 49 53 54 20 00 03 01 6c 00 04 00 50 00 03 01 88 00 10 00 50 ┆THEN INCLUDE SPECIAL SCREEN FORMATS : P INCLUDE SLCOP,LIST l P P┆
0x2ae…2fe (4, 0, 398) 53 50 43 4c 52 41 20 50 52 4f 43 20 00 03 01 90 00 06 00 50 2a 20 00 04 00 14 00 44 00 50 2a 20 53 50 43 4c 52 41 20 2d 20 43 4c 45 41 52 20 41 4c 4c 20 56 41 52 41 42 4c 45 20 46 49 45 4c 44 53 20 42 45 46 4f 52 45 20 48 41 4e 44 4c 49 4e ┆SPCLRA PROC P* D P* SPCLRA - CLEAR ALL VARABLE FIELDS BEFORE HANDLIN┆
0x2fe…34e 47 20 54 48 45 20 50 49 43 54 55 52 45 20 00 04 00 1e 00 06 00 50 2a 20 00 04 00 66 00 18 00 50 5c 4d 4f 56 45 5c 53 50 45 52 41 53 45 2c 3d 57 27 30 27 20 00 04 00 70 00 16 00 50 5c 50 45 52 46 5c 53 43 52 45 45 4e 2c 3d 57 27 31 27 00 04 ┆G THE PICTURE P* f P MOVE SPERASE,=W'0' p P PERF SCREEN,=W'1' ┆
0x34e…39e 00 8c 00 08 00 50 5c 52 45 54 00 04 00 a6 00 0a 00 50 20 50 45 4e 44 20 00 04 00 b2 00 10 00 50 53 50 43 4c 52 53 20 50 52 4f 43 20 00 04 00 c0 00 06 00 50 2a 20 00 04 00 d4 00 46 00 50 2a 20 53 50 43 4c 52 53 20 2d 20 43 4c 45 41 52 20 53 ┆ P RET P PEND PSPCLRS PROC P* F P* SPCLRS - CLEAR S┆
0x39e…3ee 4f 4d 45 20 56 41 52 49 41 42 4c 45 20 46 49 45 4c 44 53 20 42 45 46 4f 52 45 20 48 41 4e 44 4c 49 4e 47 20 54 48 45 20 50 49 43 54 55 52 45 20 00 04 00 de 00 06 00 50 2a 20 00 04 01 28 00 18 00 50 5c 4d 4f 56 45 5c 53 50 45 52 41 53 45 2c ┆OME VARIABLE FIELDS BEFORE HANDLING THE PICTURE P* ( P MOVE SPERASE,┆
0x3ee…43c 3d 57 27 30 27 20 00 04 01 32 00 16 00 50 5c 50 45 52 46 5c 53 43 52 45 45 4e 2c 3d 57 27 32 27 00 04 01 4e 00 08 00 50 5c 52 45 54 00 04 01 68 00 0a 00 50 20 50 45 4e 44 20 00 04 01 74 00 10 00 50 53 50 43 4c 52 4e 20 50 52 4f 43 20 ┆=W'0' 2 P PERF SCREEN,=W'2' N P RET h P PEND t PSPCLRN PROC ┆