|
|
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: 1312 (0x520)
Notes: pts_type(UF)
Names: »M:PROC.UF«
└─⟦cd4bbebb4⟧ Bits:30009680 Philips computer tape "600221"
└─⟦this⟧ »ATM/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 $FLXABT MES ERROR:ONLY ONE FE NAME IS ALLOWED! END $NJ ASG /E0,DK,NJ ASG /E0,TY10 END $FLXIN $FLXABT S=@S=,D=@D= ASG /CA,/@FC=E9 $FLXISC S=@S= $FLXIUF D=@D= MES ERROR: A FILE NAME MUST BE SPECIFIED! END $FLXISC ASG /CB,DK RUN FLXIN,0 REF /CB RDS /CB KPF /S,@S END $FLXIUF ASG /CB,DK RUN FLXIN,0 KPF /CB,@D END $DES TRA DESDAT TRA DESSUB TRA DESIN2 TLK 4K INC DESASS LKE S,M KPF /L,DESSIM $PDISC A=DESSIM END
0x000…00e (0, 0, 400) 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=»$FLXABT «, t00=0x0000, t01=0x00dc}
0x0e8…118 Head {h00=0x002c, h01=0x0050, text=»MES ERROR:ONLY ONE FE NAME IS ALLOWED! «, t00=0x0000, t01=0x00ec}
0x118…124 Head {h00=0x0008, h01=0x0050, text=»END «, t00=0x0000, t01=0x011c}
0x124…130 Head {h00=0x0008, h01=0x0050, text=»$NJ «, t00=0x0000, t01=0x0128}
0x130…146 Head {h00=0x0012, h01=0x0050, text=»ASG /E0,DK,NJ «, t00=0x0000, t01=0x0134}
0x146…15a Head {h00=0x0010, h01=0x0050, text=»ASG /E0,TY10«, t00=0x0000, t01=0x014a}
0x15a…166 Head {h00=0x0008, h01=0x0050, text=»END «, t00=0x0000, t01=0x015e}
0x166…174 Head {h00=0x000a, h01=0x0050, text=»$FLXIN«, t00=0x0000, t01=0x016a}
0x174…190 Head {h00=0x0018, h01=0x0050, text=»$FLXABT S=@S=,D=@D= «, t00=0x0000, t01=0x0178}
0x190…1a8 (1, 0, 398) Head {h00=0x0014, h01=0x0050, text=»ASG /CA,/@FC=E9 «, t00=0x0001, t01=0x0004}
0x1a8…1be Head {h00=0x0012, h01=0x0050, text=»$FLXISC S=@S= «, t00=0x0001, t01=0x001c}
0x1be…1d4 Head {h00=0x0012, h01=0x0050, text=»$FLXIUF D=@D= «, t00=0x0001, t01=0x0032}
0x1d4…208 Head {h00=0x0030, h01=0x0050, text=»MES ERROR: A FILE NAME MUST BE SPECIFIED! «, t00=0x0001, t01=0x0048}
0x208…214 Head {h00=0x0008, h01=0x0050, text=»END «, t00=0x0001, t01=0x007c}
0x214…224 Head {h00=0x000c, h01=0x0050, text=»$FLXISC «, t00=0x0001, t01=0x0088}
0x224…236 Head {h00=0x000e, h01=0x0050, text=»ASG /CB,DK«, t00=0x0001, t01=0x0098}
0x236…24a Head {h00=0x0010, h01=0x0050, text=»RUN FLXIN,0 «, t00=0x0001, t01=0x00aa}
0x24a…25a Head {h00=0x000c, h01=0x0050, text=»REF /CB «, t00=0x0001, t01=0x00be}
0x25a…26a Head {h00=0x000c, h01=0x0050, text=»RDS /CB «, t00=0x0001, t01=0x00ce}
0x26a…27c Head {h00=0x000e, h01=0x0050, text=»KPF /S,@S «, t00=0x0001, t01=0x00de}
0x27c…288 Head {h00=0x0008, h01=0x0050, text=»END «, t00=0x0001, t01=0x00f0}
0x288…298 Head {h00=0x000c, h01=0x0050, text=»$FLXIUF «, t00=0x0001, t01=0x00fc}
0x298…2aa Head {h00=0x000e, h01=0x0050, text=»ASG /CB,DK«, t00=0x0001, t01=0x010c}
0x2aa…2be Head {h00=0x0010, h01=0x0050, text=»RUN FLXIN,0 «, t00=0x0001, t01=0x011e}
0x2be…2d0 Head {h00=0x000e, h01=0x0050, text=»KPF /CB,@D«, t00=0x0001, t01=0x0132}
0x2d0…2dc Head {h00=0x0008, h01=0x0050, text=»END «, t00=0x0001, t01=0x0144}
0x2dc…2e8 Head {h00=0x0008, h01=0x0050, text=»$DES«, t00=0x0001, t01=0x0150}
0x2e8…2fa Head {h00=0x000e, h01=0x0050, text=»TRA DESDAT«, t00=0x0001, t01=0x015c}
0x2fa…30c Head {h00=0x000e, h01=0x0050, text=»TRA DESSUB«, t00=0x0001, t01=0x016e}
0x30c…31e Head {h00=0x000e, h01=0x0050, text=»TRA DESIN2«, t00=0x0001, t01=0x0180}
0x31e…32c (2, 0, 106) Head {h00=0x000a, h01=0x0050, text=»TLK 4K«, t00=0x0002, t01=0x0004}
0x32c…33e Head {h00=0x000e, h01=0x0050, text=»INC DESASS«, t00=0x0002, t01=0x0012}
0x33e…34e Head {h00=0x000c, h01=0x0050, text=»LKE S,M «, t00=0x0002, t01=0x0024}
0x34e…364 Head {h00=0x0012, h01=0x0050, text=»KPF /L,DESSIM «, t00=0x0002, t01=0x0034}
0x364…37c Head {h00=0x0014, h01=0x0050, text=»$PDISC A=DESSIM «, t00=0x0002, t01=0x004a}
0x37c…388 Head {h00=0x0008, h01=0x0050, text=»END «, t00=0x0002, t01=0x0062}
0x388…38c (3, 1, 8) Head {h00=0x2004, h01=0x0000}
0x38c…390 00 03 00 04 ┆ ┆
0x390…3e0 (4, 0, 400) 20 20 20 20 20 20 20 20 20 41 44 52 20 20 2d 2d 20 27 30 30 34 31 27 20 20 20 41 54 4d 20 41 44 44 52 45 53 53 20 00 33 01 84 00 06 00 50 2a 20 00 34 00 2e 00 1c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 58 49 54 3a 2d 20 ┆ ADR -- '0041' ATM ADDRESS 3 P* 4 . P* EXIT:- ┆
0x3e0…430 00 34 00 38 00 46 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 20 52 4f 55 54 49 4e 45 20 57 49 4c 4c 20 53 45 54 20 54 48 45 20 49 4e 44 45 58 20 56 41 4c 55 45 20 49 4e 20 42 49 4e 33 20 00 34 00 58 00 2e ┆ 4 8 F P* THE ROUTINE WILL SET THE INDEX VALUE IN BIN3 4 X .┆
0x430…480 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 45 20 56 41 4c 55 45 20 49 53 20 41 53 20 46 4f 4c 4c 4f 57 53 3a 2d 00 34 00 a2 00 38 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 20 20 49 4c 4c 45 ┆ P* THE VALUE IS AS FOLLOWS:- 4 8 P* 0 ILLE┆
0x480…4d0 47 41 4c 2f 55 4e 52 45 43 4f 47 4e 49 53 41 42 4c 45 20 45 52 52 4f 52 00 34 00 d4 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 20 49 2f 4f 20 4f 4b 00 34 01 10 00 2e 00 50 2a 20 20 20 20 20 20 20 20 20 ┆GAL/UNRECOGNISABLE ERROR 4 " P* 1 I/O OK 4 . P* ┆
0x4d0…520 20 20 20 20 20 20 20 20 20 20 20 32 20 20 4d 4f 44 45 4d 20 4e 4f 54 20 4f 50 45 52 41 42 4c 45 00 34 01 36 00 2e 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 20 20 4c 49 4e 45 20 41 4c 52 45 41 44 59 20 4f 50 45 ┆ 2 MODEM NOT OPERABLE 4 6 . P* 3 LINE ALREADY OPE┆