|
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: 1562 (0x61a)
Notes: pts_type(SC)
Names: »DESTAT.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DESTAT.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DESTAT.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DESTAT.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DESTAT.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DESTAT.SC«
IDENT DESTAT REL 10.0 80-04-11 79-05-28/DALI DDUM DEDDIV PDIV ENTRY DESTAT ENTRY DESTAU EXT TESTB EXT UPDBIN INCLUDE DELITT EJECT *********************** * * FIX THE STATUS-LINE * *********************** DESTAT PROC MOVE BCD2A,W1 TBF SOOL1,DESTUT * FIX BATCHSTATUS CALL UPDBIN,BDSTAT PERF DESTAU,BDSTAT,STR15A MOVE BCD13A,BDPOIN(W2) TBF SOOL2,DESTUT * * FIX RECORDSTATUS * CALL UPDBIN,BIN1 PERF DESTAU,BIN1,STRG10A DESTUT MOVE DEBINW4,W19 RET PEND EJECT DESTAU PROC STBIN,STSTRG MOVE STSTRG,HEX00 MOVE DEBINW2,W0 MOVE DEBINW3,W0 MOVE DEBINW4,W0 XCOPY DEBINW3,W0,W1,STBIN,W1 DES100 CALL TESTB,DEBINW3,DEBINW4 BZ DES200 COPY STSTRG,DEBINW2,W1,STATIU,DEBINW4 ADD DEBINW2,W1 DES200 ADD DEBINW4,W1 CBNE DEBINW4,W8,DES100 RET PEND END
0x000…028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT DESTAT REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x028…040 Head {h00=0x0014, h01=0x0050, text=» 79-05-28/DALI«, t00=0x0000, t01=0x002c}
0x040…054 Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0000, t01=0x0044}
0x054…062 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0058}
0x062…078 Head {h00=0x0012, h01=0x0050, text=» ENTRY DESTAT «, t00=0x0000, t01=0x0066}
0x078…08e Head {h00=0x0012, h01=0x000d, text=» ENTRY DESTAU «, t00=0x0000, t01=0x007c}
0x08e…0a0 Head {h00=0x000e, h01=0x000a, text=» EXT TESTB«, t00=0x0000, t01=0x0092}
0x0a0…0b4 Head {h00=0x0010, h01=0x0050, text=» EXT UPDBIN «, t00=0x0000, t01=0x00a4}
0x0b4…0cc Head {h00=0x0014, h01=0x000f, text=» INCLUDE DELITT «, t00=0x0000, t01=0x00b8}
0x0cc…0da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x00d0}
0x0da…0fa Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0000, t01=0x00de}
0x0fa…104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fe}
0x104…122 Head {h00=0x001a, h01=0x0050, text=»* FIX THE STATUS-LINE «, t00=0x0000, t01=0x0108}
0x122…12c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0126}
0x12c…14c Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0000, t01=0x0130}
0x14c…160 Head {h00=0x0010, h01=0x0050, text=»DESTAT PROC «, t00=0x0000, t01=0x0150}
0x160…176 Head {h00=0x0012, h01=0x0050, text=» MOVE BCD2A,W1«, t00=0x0000, t01=0x0164}
0x176…190 Head {h00=0x0016, h01=0x0050, text=» TBF SOOL1,DESTUT «, t00=0x0000, t01=0x017a}
0x190…1aa (1, 0, 400) Head {h00=0x0016, h01=0x0050, text=»* FIX BATCHSTATUS «, t00=0x0001, t01=0x0004}
0x1aa…1c6 Head {h00=0x0018, h01=0x0050, text=» CALL UPDBIN,BDSTAT «, t00=0x0001, t01=0x001e}
0x1c6…1e8 Head {h00=0x001e, h01=0x0050, text=» PERF DESTAU,BDSTAT,STR15A«, t00=0x0001, t01=0x003a}
0x1e8…208 Head {h00=0x001c, h01=0x0050, text=» MOVE BCD13A,BDPOIN(W2) «, t00=0x0001, t01=0x005c}
0x208…222 Head {h00=0x0016, h01=0x0050, text=» TBF SOOL2,DESTUT «, t00=0x0001, t01=0x007c}
0x222…22c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0096}
0x22c…246 Head {h00=0x0016, h01=0x0050, text=»* FIX RECORDSTATUS«, t00=0x0001, t01=0x00a0}
0x246…250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ba}
0x250…26a Head {h00=0x0016, h01=0x0050, text=» CALL UPDBIN,BIN1 «, t00=0x0001, t01=0x00c4}
0x26a…28c Head {h00=0x001e, h01=0x0050, text=» PERF DESTAU,BIN1,STRG10A «, t00=0x0001, t01=0x00de}
0x28c…29a Head {h00=0x000a, h01=0x0050, text=»DESTUT«, t00=0x0001, t01=0x0100}
0x29a…2b4 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W19 «, t00=0x0001, t01=0x010e}
0x2b4…2c0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0001, t01=0x0128}
0x2c0…2ce Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0001, t01=0x0134}
0x2ce…2dc Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0001, t01=0x0142}
0x2dc…2fc Head {h00=0x001c, h01=0x0018, text=»DESTAU PROC STBIN,STSTRG«, t00=0x0001, t01=0x0150}
0x2fc…316 Head {h00=0x0016, h01=0x0012, text=» MOVE STSTRG,HEX00«, t00=0x0001, t01=0x0170}
0x316…32e Head {h00=0x0014, h01=0x0010, text=» MOVE DEBINW2,W0«, t00=0x0001, t01=0x018a}
0x32e…346 Head {h00=0x0014, h01=0x0010, text=» MOVE DEBINW3,W0«, t00=0x0002, t01=0x0012}
0x346…35e Head {h00=0x0014, h01=0x0010, text=» MOVE DEBINW4,W0«, t00=0x0002, t01=0x002a}
0x35e…384 Head {h00=0x0022, h01=0x001d, text=» XCOPY DEBINW3,W0,W1,STBIN,W1 «, t00=0x0002, t01=0x0042}
0x384…392 Head {h00=0x000a, h01=0x0006, text=»DES100«, t00=0x0002, t01=0x0068}
0x392…3b6 Head {h00=0x0020, h01=0x001b, text=» CALL TESTB,DEBINW3,DEBINW4 «, t00=0x0002, t01=0x0076}
0x3b6…3c8 Head {h00=0x000e, h01=0x000a, text=» BZ DES200«, t00=0x0002, t01=0x009a}
0x3c8…3f6 Head {h00=0x002a, h01=0x0026, text=» COPY STSTRG,DEBINW2,W1,STATIU,DEBINW4«, t00=0x0002, t01=0x00ac}
0x3f6…40e Head {h00=0x0014, h01=0x000f, text=» ADD DEBINW2,W1 «, t00=0x0002, t01=0x00da}
0x40e…41c Head {h00=0x000a, h01=0x0006, text=»DES200«, t00=0x0002, t01=0x00f2}
0x41c…434 Head {h00=0x0014, h01=0x000f, text=» ADD DEBINW4,W1 «, t00=0x0002, t01=0x0100}
0x434…454 Head {h00=0x001c, h01=0x0017, text=» CBNE DEBINW4,W8,DES100 «, t00=0x0002, t01=0x0118}
0x454…460 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0002, t01=0x0138}
0x460…46e Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0002, t01=0x0144}
0x46e…47a Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0002, t01=0x0152}
0x47a…47e Head {h00=0x4004, h01=0x0000}
0x47e…482 00 02 01 5e ┆ ^┆
0x482…48a (3, 1, 8) 20 04 00 00 00 03 00 04 ┆ ┆
0x48a…4da (4, 0, 400) 62 a0 20 2a 13 21 29 62 00 35 01 52 00 0c 00 08 00 03 07 06 02 47 00 08 00 36 00 10 00 0c 00 08 00 03 05 06 02 4e 00 02 00 36 00 20 00 0c 00 08 00 03 05 06 02 52 00 14 00 36 00 30 00 0c 00 08 00 03 05 06 02 56 00 02 00 36 00 40 00 0c 00 08 ┆b * !)b 5 R G 6 N 6 R 6 0 V 6 @ ┆
0x4da…52a 00 03 05 06 02 5a 00 14 00 36 00 50 00 0c 00 08 00 03 05 06 02 5e 00 02 00 36 00 60 00 0c 00 08 00 03 05 06 02 62 00 04 00 36 00 70 00 0c 00 08 00 03 07 06 02 6c 00 0a 00 36 00 80 00 0c 00 08 00 03 07 06 02 76 00 08 00 36 00 90 00 0c 00 08 ┆ Z 6 P ^ 6 ` b 6 p l 6 v 6 ┆
0x52a…57a 00 03 07 06 02 7d 00 08 00 36 00 a0 00 4a 00 46 00 22 00 44 02 40 a0 2a 3c 11 21 20 80 52 24 22 a0 52 1b 30 52 10 51 30 58 90 03 30 52 10 52 30 58 90 03 30 52 10 50 30 52 10 b9 41 34 00 00 d6 23 80 52 d6 5f 23 00 d6 31 5f 0a 80 52 23 c4 43 ┆ } 6 J F " D @ *< ! R$" R 0R Q0X 0R R0X 0R P0R A4 # R _# 1_ R# C┆
0x57a…5ca 5a 14 80 52 24 c8 00 36 00 b0 00 0c 00 08 00 03 07 06 02 8e 00 08 00 36 00 fe 00 0c 00 08 00 03 07 06 02 9f 00 0c 00 36 01 0e 00 0c 00 08 00 03 07 06 02 b1 00 08 00 36 01 1e 00 4a 00 46 00 22 00 44 02 80 43 5a 1b 00 c8 20 00 cd 20 20 c5 20 ┆Z R$ 6 6 6 6 J F " D CZ ┆
0x5ca…61a 32 80 52 23 c5 43 5a 2c 6a c5 20 22 43 24 20 c5 20 0c 80 52 c8 21 5a 34 6a 43 24 22 c8 20 6a 43 22 22 cd 20 80 52 24 cf 43 5a 4f 00 cd cf 00 cf c8 5f 36 34 00 36 01 2e 00 0c 00 08 00 03 20 06 00 00 00 09 00 36 01 7c 00 0a 00 05 00 02 26 03 ┆2 R# CZ,j "C$ R !Z4jC$" jC"" R$ CZO _64 6 . 6 | & ┆