|
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: 1862 (0x746)
Notes: pts_type(UF)
Names: »UPDDCC.UF«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKAPP/UPDDCC.UF«
LED C:DCC,/S,## ##CH $$K:S0E$$K:SZE$$ ##DL 1 UPDATE #3 77.11.25 ##IL 40 ENTRY K:DCPL ##DL 51 ##DL 55 ##IL 81 * ##IL 426 IFF ONLINE=0 ##IL 463 EJECT IDENT C:DCC * * MASK PARITY BITS IF SLCU2 AND ASCII * ************************* LD A3,K:EBA,A8 GET BUFFER ADDRESS LD A2,K:EEL,A8 GET LENGTH DCC255 LCR A4,A3 GET CHARACTER ANK A4,/7F MASK PARITY SCR A4,A3 STORE ADK A3,1 SUK A2,1 RB(NZ) DCC255 ##IL 500 IFF ONLINE=0 ##IL 514 XIF ##IL 517 IFF ONLINE=0 ##DL 573 ##IL 577 LD A1,K:EBA,A8 GET BUFFER ADDRESS ##DL 583 ##IL 587 LD A1,K:EBA,A8 GET BUFFER ADDRESS ##IL 593 XIF EJECT IDENT C:DCC ******************************************************* * * K : D C P L * DCCC ACTIVATION ENTRY TO HALT/START POLLING * OF TERMINAL LINES * * A1 = 0. HALT POLLING * = 1. START POLLING * ******************************************************** K:DCPL EQU * IFT ONLINE=2 LDKL A13,TCCC TCA ADDRESS LD A14,2,A13 ADR A14,A13 STACK BASE LDR A1,A1 RF(Z) DCP100 CF A14,K:POLL START POLLING RF DCP200 DCP100 EQU * CF A14,K:NPOL HALT POLLING XIF DCP200 EQU * LKM EXIT DATA 3 ##DL 615,616 SC A6,PECB+1 SET LINE FILE CODE LDKL A8,PECB ##DL 622,623 ##IL 624 * ECB FOR POLLING CONTROL PECB DATA 0,0,0,0,0,0 ##EN ASM /S KPF /S SCR /S ASG /E0,DK,UPDFIC
0x000…018 (0, 0, 400) Head {h00=0x0014, h01=0x0050, text=»LED C:DCC,/S,## «, t00=0x0000, t01=0x0004}
0x018…036 Head {h00=0x001a, h01=0x0050, text=»##CH $$K:S0E$$K:SZE$$ «, t00=0x0000, t01=0x001c}
0x036…044 Head {h00=0x000a, h01=0x0050, text=»##DL 1«, t00=0x0000, t01=0x003a}
0x044…062 Head {h00=0x001a, h01=0x0050, text=» UPDATE #3 77.11.25 «, t00=0x0000, t01=0x0048}
0x062…072 Head {h00=0x000c, h01=0x0050, text=»##IL 40 «, t00=0x0000, t01=0x0066}
0x072…088 Head {h00=0x0012, h01=0x0050, text=» ENTRY K:DCPL «, t00=0x0000, t01=0x0076}
0x088…098 Head {h00=0x000c, h01=0x0050, text=»##DL 51 «, t00=0x0000, t01=0x008c}
0x098…0a8 Head {h00=0x000c, h01=0x0050, text=»##DL 55 «, t00=0x0000, t01=0x009c}
0x0a8…0b8 Head {h00=0x000c, h01=0x0050, text=»##IL 81 «, t00=0x0000, t01=0x00ac}
0x0b8…0c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00bc}
0x0c2…0d2 Head {h00=0x000c, h01=0x0050, text=»##IL 426«, t00=0x0000, t01=0x00c6}
0x0d2…0e8 Head {h00=0x0012, h01=0x0050, text=» IFF ONLINE=0 «, t00=0x0000, t01=0x00d6}
0x0e8…0f8 Head {h00=0x000c, h01=0x0050, text=»##IL 463«, t00=0x0000, t01=0x00ec}
0x0f8…114 Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:DCC «, t00=0x0000, t01=0x00fc}
0x114…11e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x11e…14e Head {h00=0x002c, h01=0x0050, text=»* MASK PARITY BITS IF SLCU2 AND ASCII «, t00=0x0000, t01=0x0122}
0x14e…158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0152}
0x158…17a Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0000, t01=0x015c}
0x17a…1a4 Head {h00=0x0026, h01=0x0050, text=» LD A3,K:EBA,A8 GET BUFFER ADDRESS«, t00=0x0000, t01=0x017e}
0x1a4…1c6 Head {h00=0x001e, h01=0x0050, text=» LD A2,K:EEL,A8 GET LENGTH«, t00=0x0001, t01=0x0018}
0x1c6…1ec Head {h00=0x0022, h01=0x0050, text=»DCC255 LCR A4,A3 GET CHARACTER«, t00=0x0001, t01=0x003a}
0x1ec…20c Head {h00=0x001c, h01=0x0050, text=» ANK A4,/7F MASK PARITY «, t00=0x0001, t01=0x0060}
0x20c…224 Head {h00=0x0014, h01=0x0050, text=» SCR A4,A3 STORE«, t00=0x0001, t01=0x0080}
0x224…236 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0001, t01=0x0098}
0x236…248 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0001, t01=0x00aa}
0x248…25e Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DCC255«, t00=0x0001, t01=0x00bc}
0x25e…26e Head {h00=0x000c, h01=0x0050, text=»##IL 500«, t00=0x0001, t01=0x00d2}
0x26e…284 Head {h00=0x0012, h01=0x0050, text=» IFF ONLINE=0 «, t00=0x0001, t01=0x00e2}
0x284…294 Head {h00=0x000c, h01=0x0050, text=»##IL 514«, t00=0x0001, t01=0x00f8}
0x294…2a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0001, t01=0x0108}
0x2a0…2b0 Head {h00=0x000c, h01=0x0050, text=»##IL 517«, t00=0x0001, t01=0x0114}
0x2b0…2c6 Head {h00=0x0012, h01=0x0050, text=» IFF ONLINE=0 «, t00=0x0001, t01=0x0124}
0x2c6…2d6 Head {h00=0x000c, h01=0x0050, text=»##DL 573«, t00=0x0001, t01=0x013a}
0x2d6…2e6 Head {h00=0x000c, h01=0x0050, text=»##IL 577«, t00=0x0001, t01=0x014a}
0x2e6…310 Head {h00=0x0026, h01=0x0050, text=» LD A1,K:EBA,A8 GET BUFFER ADDRESS«, t00=0x0001, t01=0x015a}
0x310…320 Head {h00=0x000c, h01=0x0050, text=»##DL 583«, t00=0x0001, t01=0x0184}
0x320…330 (2, 0, 400) Head {h00=0x000c, h01=0x0050, text=»##IL 587«, t00=0x0002, t01=0x0004}
0x330…35a Head {h00=0x0026, h01=0x0050, text=» LD A1,K:EBA,A8 GET BUFFER ADDRESS«, t00=0x0002, t01=0x0014}
0x35a…36a Head {h00=0x000c, h01=0x0050, text=»##IL 593«, t00=0x0002, t01=0x003e}
0x36a…376 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0002, t01=0x004e}
0x376…392 Head {h00=0x0018, h01=0x0050, text=» EJECT IDENT C:DCC «, t00=0x0002, t01=0x005a}
0x392…3d2 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0002, t01=0x0076}
0x3d2…3dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b6}
0x3dc…3f2 Head {h00=0x0012, h01=0x0050, text=»* K : D C P L «, t00=0x0002, t01=0x00c0}
0x3f2…42a Head {h00=0x0034, h01=0x0050, text=»* DCCC ACTIVATION ENTRY TO HALT/START POLLING «, t00=0x0002, t01=0x00d6}
0x42a…448 Head {h00=0x001a, h01=0x0050, text=»* OF TERMINAL LINES «, t00=0x0002, t01=0x010e}
0x448…452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012c}
0x452…472 Head {h00=0x001c, h01=0x0050, text=»* A1 = 0. HALT POLLING«, t00=0x0002, t01=0x0136}
0x472…494 Head {h00=0x001e, h01=0x0050, text=»* = 1. START POLLING «, t00=0x0002, t01=0x0156}
0x494…49e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0178}
0x49e…4de Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0002, t01=0x0182}
0x4de…4f2 Head {h00=0x0010, h01=0x0050, text=»K:DCPL EQU *«, t00=0x0003, t01=0x0032}
0x4f2…508 Head {h00=0x0012, h01=0x0050, text=» IFT ONLINE=2 «, t00=0x0003, t01=0x0046}
0x508…52a Head {h00=0x001e, h01=0x0050, text=» LDKL A13,TCCC TCA ADDRESS«, t00=0x0003, t01=0x005c}
0x52a…540 Head {h00=0x0012, h01=0x0050, text=» LD A14,2,A13 «, t00=0x0003, t01=0x007e}
0x540…560 Head {h00=0x001c, h01=0x0050, text=» ADR A14,A13 STACK BASE «, t00=0x0003, t01=0x0094}
0x560…572 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0003, t01=0x00b4}
0x572…588 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DCP100 «, t00=0x0003, t01=0x00c6}
0x588…5ac Head {h00=0x0020, h01=0x0050, text=» CF A14,K:POLL START POLLING«, t00=0x0003, t01=0x00dc}
0x5ac…5be Head {h00=0x000e, h01=0x0050, text=» RF DCP200«, t00=0x0003, t01=0x0100}
0x5be…5d2 Head {h00=0x0010, h01=0x0050, text=»DCP100 EQU *«, t00=0x0003, t01=0x0112}
0x5d2…5f6 Head {h00=0x0020, h01=0x0050, text=» CF A14,K:NPOL HALT POLLING «, t00=0x0003, t01=0x0126}
0x5f6…602 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0003, t01=0x014a}
0x602…616 Head {h00=0x0010, h01=0x0050, text=»DCP200 EQU *«, t00=0x0003, t01=0x0156}
0x616…628 Head {h00=0x000e, h01=0x0050, text=» LKM EXIT«, t00=0x0003, t01=0x016a}
0x628…638 Head {h00=0x000c, h01=0x0050, text=» DATA 3 «, t00=0x0003, t01=0x017c}
0x638…64c Head {h00=0x0010, h01=0x0050, text=»##DL 615,616«, t00=0x0003, t01=0x018c}
0x64c…674 Head {h00=0x0024, h01=0x0050, text=» SC A6,PECB+1 SET LINE FILE CODE«, t00=0x0004, t01=0x0010}
0x674…68a Head {h00=0x0012, h01=0x0050, text=» LDKL A8,PECB «, t00=0x0004, t01=0x0038}
0x68a…69e Head {h00=0x0010, h01=0x0050, text=»##DL 622,623«, t00=0x0004, t01=0x004e}
0x69e…6ae Head {h00=0x000c, h01=0x0050, text=»##IL 624«, t00=0x0004, t01=0x0062}
0x6ae…6d0 Head {h00=0x001e, h01=0x0050, text=»* ECB FOR POLLING CONTROL «, t00=0x0004, t01=0x0072}
0x6d0…6ee Head {h00=0x001a, h01=0x0050, text=»PECB DATA 0,0,0,0,0,0 «, t00=0x0004, t01=0x0094}
0x6ee…6fa Head {h00=0x0008, h01=0x0050, text=»##EN«, t00=0x0004, t01=0x00b2}
0x6fa…708 Head {h00=0x000a, h01=0x0050, text=»ASM /S«, t00=0x0004, t01=0x00be}
0x708…716 Head {h00=0x000a, h01=0x0050, text=»KPF /S«, t00=0x0004, t01=0x00cc}
0x716…724 Head {h00=0x000a, h01=0x0050, text=»SCR /S«, t00=0x0004, t01=0x00da}
0x724…73e Head {h00=0x0016, h01=0x0050, text=»ASG /E0,DK,UPDFIC «, t00=0x0004, t01=0x00e8}
0x73e…746 (5, 1, 8) 20 04 00 00 00 05 00 04 ┆ ┆