|
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: 1286 (0x506)
Notes: pts_type(UF)
Names: »M:PROC.UF«
└─⟦cd4bbebb4⟧ Bits:30009680 Philips computer tape "600221"
└─⟦this⟧ »BEBATM/M:PROC.UF«
$LINK NOD C INC DDIV INC SKELET INC TABSIM INC SUBS INC UDM TLK U,4K LKE M KPF /L,TABSIM ASG 2,NO $PDISC A=TABSIM END $TRAALL MES TRANSLATE WHOLE SYSTEM ASG 2,LP0F TRA DDIV TRA SKELET TRA TABSIM TRA SUBS TRA UDM KPF /O ASG /E0,TY10 END $NJ ASG /E0,DK,NJ ASG /E0,TY10 END
0x000…00e (0, 0, 398) Head {h00=0x000a, h01=0x0050, text=»$LINK «, t00=0x0000, t01=0x0004}
0x00e…01c Head {h00=0x000a, h01=0x0050, text=»NOD C «, t00=0x0000, t01=0x0012}
0x01c…02c Head {h00=0x000c, h01=0x0050, text=»INC DDIV«, t00=0x0000, t01=0x0020}
0x02c…03e Head {h00=0x000e, h01=0x0050, text=»INC SKELET«, t00=0x0000, t01=0x0030}
0x03e…050 Head {h00=0x000e, h01=0x0050, text=»INC TABSIM«, t00=0x0000, t01=0x0042}
0x050…060 Head {h00=0x000c, h01=0x0050, text=»INC SUBS«, t00=0x0000, t01=0x0054}
0x060…070 Head {h00=0x000c, h01=0x0050, text=»INC UDM «, t00=0x0000, t01=0x0064}
0x070…080 Head {h00=0x000c, h01=0x0050, text=»TLK U,4K«, t00=0x0000, t01=0x0074}
0x080…08e Head {h00=0x000a, h01=0x0050, text=»LKE M «, t00=0x0000, t01=0x0084}
0x08e…0a4 Head {h00=0x0012, h01=0x0050, text=»KPF /L,TABSIM «, t00=0x0000, t01=0x0092}
0x0a4…0b4 Head {h00=0x000c, h01=0x0050, text=»ASG 2,NO«, t00=0x0000, t01=0x00a8}
0x0b4…0cc Head {h00=0x0014, h01=0x0050, text=»$PDISC A=TABSIM «, t00=0x0000, t01=0x00b8}
0x0cc…0d8 Head {h00=0x0008, h01=0x0050, text=»END «, t00=0x0000, t01=0x00d0}
0x0d8…0e8 Head {h00=0x000c, h01=0x0050, text=»$TRAALL «, t00=0x0000, t01=0x00dc}
0x0e8…10a Head {h00=0x001e, h01=0x0050, text=»MES TRANSLATE WHOLE SYSTEM«, t00=0x0000, t01=0x00ec}
0x10a…11c Head {h00=0x000e, h01=0x0050, text=»ASG 2,LP0F«, t00=0x0000, t01=0x010e}
0x11c…12c Head {h00=0x000c, h01=0x0050, text=»TRA DDIV«, t00=0x0000, t01=0x0120}
0x12c…13e Head {h00=0x000e, h01=0x0050, text=»TRA SKELET«, t00=0x0000, t01=0x0130}
0x13e…150 Head {h00=0x000e, h01=0x0050, text=»TRA TABSIM«, t00=0x0000, t01=0x0142}
0x150…160 Head {h00=0x000c, h01=0x0050, text=»TRA SUBS«, t00=0x0000, t01=0x0154}
0x160…170 Head {h00=0x000c, h01=0x0050, text=»TRA UDM «, t00=0x0000, t01=0x0164}
0x170…17e Head {h00=0x000a, h01=0x0050, text=»KPF /O«, t00=0x0000, t01=0x0174}
0x17e…192 Head {h00=0x0010, h01=0x0050, text=»ASG /E0,TY10«, t00=0x0000, t01=0x0182}
0x192…19e Head {h00=0x0008, h01=0x0050, text=»END «, t00=0x0001, t01=0x0008}
0x19e…1aa Head {h00=0x0008, h01=0x0050, text=»$NJ «, t00=0x0001, t01=0x0014}
0x1aa…1c0 Head {h00=0x0012, h01=0x0050, text=»ASG /E0,DK,NJ «, t00=0x0001, t01=0x0020}
0x1c0…1d4 Head {h00=0x0010, h01=0x0050, text=»ASG /E0,TY10«, t00=0x0001, t01=0x0036}
0x1d4…1e0 Head {h00=0x0008, h01=0x0050, text=»END «, t00=0x0001, t01=0x004a}
0x1e0…1e4 (2, 1, 8) Head {h00=0x2004, h01=0x0000}
0x1e4…1e8 00 02 00 04 ┆ ┆
0x1e8…238 (3, 0, 398) 00 14 00 50 20 50 45 52 46 20 53 43 52 49 42 45 2c 49 4e 46 00 03 00 04 00 28 00 50 20 43 42 4e 45 20 49 4e 44 45 58 2c 43 4f 42 31 2c 4c 4f 41 30 31 30 20 4e 4f 54 20 3c 45 4e 54 45 52 3e 20 00 03 00 1c 00 2a 00 50 20 53 55 42 20 4c 45 4e ┆ P PERF SCRIBE,INF ( P CBNE INDEX,COB1,LOA010 NOT <ENTER> * P SUB LEN┆
0x238…288 47 54 48 2c 43 4f 42 31 20 54 48 52 4f 57 20 41 57 41 59 20 45 4e 54 45 52 2d 4b 45 59 20 00 03 00 48 00 1c 00 50 20 42 4e 5a 20 4c 4f 41 30 32 35 20 20 4e 4f 54 20 44 45 46 41 55 4c 54 00 03 00 76 00 1c 00 50 20 4d 4f 56 45 20 42 55 46 49 ┆GTH,COB1 THROW AWAY ENTER-KEY H P BNZ LOA025 NOT DEFAULT v P MOVE BUFI┆
0x288…2d8 4e 2c 3d 43 27 4d 41 53 54 45 52 20 27 20 00 03 00 96 00 16 00 50 20 4d 4f 56 45 20 4c 45 4e 47 54 48 2c 43 4f 42 36 20 00 03 00 b6 00 0a 00 50 4c 4f 41 30 32 35 00 03 00 d0 00 2c 00 50 20 43 4f 50 59 20 44 53 46 54 41 42 4c 45 28 43 4f 42 ┆N,=C'MASTER ' P MOVE LENGTH,COB6 PLOA025 , P COPY DSFTABLE(COB┆
0x2d8…328 31 29 2c 43 4f 42 30 2c 43 4f 42 38 2c 49 4e 46 4f 2c 43 4f 42 30 00 03 00 de 00 40 00 50 20 43 4f 50 59 20 44 53 46 54 41 42 4c 45 28 43 4f 42 31 29 2c 43 4f 42 30 2c 4c 45 4e 47 54 48 2c 42 55 46 49 4e 2c 43 4f 42 30 20 43 48 41 4e 47 45 ┆1),COB0,COB8,INFO,COB0 @ P COPY DSFTABLE(COB1),COB0,LENGTH,BUFIN,COB0 CHANGE┆
0x328…376 20 46 49 4c 45 4e 41 4d 45 20 00 03 01 0e 00 2e 00 50 20 43 4f 50 59 20 44 53 46 54 41 42 4c 45 28 43 4f 42 31 29 2c 43 4f 42 38 2c 43 4f 42 36 2c 56 4f 4c 55 4d 45 2c 43 4f 42 30 00 03 01 52 00 0e 00 50 20 43 4c 45 41 52 20 45 4f 46 ┆ FILENAME . P COPY DSFTABLE(COB1),COB8,COB6,VOLUME,COB0 R P CLEAR EOF┆
0x376…3c6 (4, 0, 400) 00 03 01 84 00 28 00 50 20 50 45 52 46 20 4f 50 45 4e 2c 43 4f 42 31 2c 57 4b 42 31 20 4f 50 45 4e 20 53 4f 55 52 43 45 46 49 4c 45 00 04 00 08 00 10 00 50 20 42 4f 4b 20 4c 4f 41 30 33 30 20 00 04 00 34 00 22 00 50 20 4d 4f 56 45 20 56 41 ┆ ( P PERF OPEN,COB1,WKB1 OPEN SOURCEFILE P BOK LOA030 4 " P MOVE VA┆
0x3c6…416 52 49 4f 55 53 2c 3d 43 27 41 53 53 49 47 4e 45 52 52 4f 52 20 27 00 04 00 48 00 18 00 50 20 50 45 52 46 20 53 43 52 49 42 45 2c 56 41 52 49 55 53 20 00 04 00 6e 00 12 00 50 20 42 20 4c 4f 41 39 39 30 20 45 58 49 54 00 04 00 8a 00 06 00 50 ┆RIOUS,=C'ASSIGNERROR ' H P PERF SCRIBE,VARIUS n P B LOA990 EXIT P┆
0x416…466 2a 20 00 04 00 a0 00 20 00 50 4c 4f 41 30 33 30 5c 5c 5c 46 49 4c 45 20 49 53 20 4e 4f 57 20 4f 50 45 4e 45 44 20 00 04 00 aa 00 2e 00 50 20 4d 4f 56 45 20 57 4b 53 54 52 37 2c 3d 43 27 32 27 20 54 41 4b 45 20 41 54 4d 20 4f 55 54 20 4f 46 ┆* PLOA030 FILE IS NOW OPENED . P MOVE WKSTR7,=C'2' TAKE ATM OUT OF┆
0x466…4b6 20 53 45 52 56 49 43 45 00 04 00 ce 00 26 00 50 20 50 45 52 46 20 4f 50 52 43 4d 44 20 53 45 4e 44 2c 20 2b 20 52 43 56 20 53 4f 4c 4c 2e 53 54 41 54 00 04 01 00 00 1a 00 50 20 42 4e 4f 4b 20 4c 4f 41 30 33 30 20 54 52 59 20 41 47 41 49 4e ┆ SERVICE & P PERF OPRCMD SEND, + RCV SOLL.STAT P BNOK LOA030 TRY AGAIN┆
0x4b6…506 00 04 01 2a 00 34 00 50 20 4d 4f 56 45 20 56 41 52 49 4f 55 53 2c 3d 43 27 2a 20 44 4f 57 4e 4c 49 4e 45 4c 4f 41 44 20 49 4e 20 50 52 4f 47 52 45 53 53 20 2a 20 27 20 00 04 01 48 00 18 00 50 20 50 45 52 46 20 53 43 52 49 42 45 2c 56 41 52 ┆ * 4 P MOVE VARIOUS,=C'* DOWNLINELOAD IN PROGRESS * ' H P PERF SCRIBE,VAR┆