|
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: 1594 (0x63a)
Notes: pts_type(SC)
Names: »DVTDI.SC«
└─⟦18bf30ff4⟧ Bits:30009692 Philips computer tape "600409"
└─⟦this⟧ »BDKMON/DVTDI.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKMON/DVTDI.SC«
IDENT DVTDI REL=7.2 DATE=77-09-09 * * * DEVICE WORK TABLE FOR DISPLAY INDICATOR * * ENTRY DVTDI DISPLAY INDICATOR 03 * * EXTRN DIAD POINTER TO ADDRESS-BLOCK * * DVTDI EQU * TABLE ENTRY DATA /1111 CHANNEL PARAMETER DATA /8000 STATUS. /8000 MEANS DEVICE READY DATA 0,DWTEND-DVTDI ECB-ADDRESS AND ORDER DATA DIAD POINTER TO ADDRESS-BLOCK DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS DATA 0 ECB QUEUE ANCHOR ADDRESS DATA 0 OUTPUT QUEUE DATA /2010 DATA /3F4F,/5F6F DATA 0 SAVE AREA FOR FLASHING LIGHTS DATA 0 TIMER POINTER DWTEND EQU * * * END
0x000…02e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT DVTDI REL=7.2 DATE=77-09-09 «, t00=0x0000, t01=0x0004}
0x02e…038 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0032}
0x038…042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x003c}
0x042…074 Head {h00=0x002e, h01=0x0050, text=»* DEVICE WORK TABLE FOR DISPLAY INDICATOR«, t00=0x0000, t01=0x0046}
0x074…07e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0078}
0x07e…088 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0082}
0x088…0b2 Head {h00=0x0026, h01=0x0050, text=» ENTRY DVTDI DISPLAY INDICATOR 03 «, t00=0x0000, t01=0x008c}
0x0b2…0bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b6}
0x0bc…0c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c0}
0x0c6…0f2 Head {h00=0x0028, h01=0x0050, text=» EXTRN DIAD POINTER TO ADDRESS-BLOCK«, t00=0x0000, t01=0x00ca}
0x0f2…0fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f6}
0x0fc…106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0100}
0x106…126 Head {h00=0x001c, h01=0x0050, text=»DVTDI EQU * TABLE ENTRY «, t00=0x0000, t01=0x010a}
0x126…14c Head {h00=0x0022, h01=0x0050, text=» DATA /1111 CHANNEL PARAMETER «, t00=0x0000, t01=0x012a}
0x14c…180 Head {h00=0x0030, h01=0x0050, text=» DATA /8000 STATUS. /8000 MEANS DEVICE READY«, t00=0x0000, t01=0x0150}
0x180…1b2 Head {h00=0x002e, h01=0x0050, text=» DATA 0,DWTEND-DVTDI ECB-ADDRESS AND ORDER«, t00=0x0000, t01=0x0184}
0x1b2…1de Head {h00=0x0028, h01=0x0050, text=» DATA DIAD POINTER TO ADDRESS-BLOCK «, t00=0x0001, t01=0x0026}
0x1de…218 Head {h00=0x0036, h01=0x0050, text=» DATA 'DI',0 TERM.NUMBER AND PROGRAM START ADDRESS«, t00=0x0001, t01=0x0052}
0x218…240 Head {h00=0x0024, h01=0x0050, text=» DATA 0 ECB QUEUE ANCHOR ADDRESS«, t00=0x0001, t01=0x008c}
0x240…25c Head {h00=0x0018, h01=0x0050, text=» DATA 0 OUTPUT QUEUE«, t00=0x0001, t01=0x00b4}
0x25c…270 Head {h00=0x0010, h01=0x0050, text=» DATA /2010 «, t00=0x0001, t01=0x00d0}
0x270…28a Head {h00=0x0016, h01=0x0050, text=» DATA /3F4F,/5F6F «, t00=0x0001, t01=0x00e4}
0x28a…2b8 Head {h00=0x002a, h01=0x0050, text=» DATA 0 SAVE AREA FOR FLASHING LIGHTS «, t00=0x0001, t01=0x00fe}
0x2b8…2d6 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TIMER POINTER «, t00=0x0001, t01=0x012c}
0x2d6…2ea Head {h00=0x0010, h01=0x0050, text=»DWTEND EQU *«, t00=0x0001, t01=0x014a}
0x2ea…2f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015e}
0x2f4…2fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0168}
0x2fe…30a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0001, t01=0x0172}
0x30a…30e Head {h00=0x4004, h01=0x0000}
0x30e…312 00 01 01 7e ┆ ~┆
0x312…31a (2, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0x31a…36a (3, 0, 400) 00 1e 00 50 5c 52 42 28 5a 29 5c 45 44 50 38 32 30 5c 53 54 4f 52 45 20 4d 49 4e 55 53 20 00 23 00 04 00 1a 00 50 5c 52 42 5c 45 44 50 37 38 30 5c 53 54 4f 52 45 20 53 50 41 43 45 00 23 00 26 00 28 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P RB(Z) EDP820 STORE MINUS # P RB EDP780 STORE SPACE # & ( P************┆
0x36a…3ba 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 23 00 44 00 28 00 50 2a 20 53 20 28 4c 45 41 44 49 4e 47 20 5a 45 52 4f 20 52 45 50 4c 41 43 45 44 20 42 59 20 53 49 47 4e 29 2a 00 23 00 70 00 28 00 50 2a 2a 2a 2a ┆************************ # D ( P* S (LEADING ZERO REPLACED BY SIGN)* # p ( P****┆
0x3ba…40a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 23 00 9c 00 12 00 50 4c 53 5c 45 51 55 5c 2a 2d 42 41 53 45 20 00 23 00 c8 00 26 00 50 45 44 50 38 35 30 5c 49 4d 5c 45 44 53 55 50 50 5c 4d ┆******************************** # PLS EQU *-BASE # & PEDP850 IM EDSUPP M┆
0x40a…45a 41 52 4b 20 53 55 50 50 52 45 53 53 49 4f 4e 20 00 23 00 de 00 28 00 50 5c 43 46 5c 41 31 34 2c 45 44 47 45 54 4e 5c 47 45 54 20 43 48 52 20 46 52 4f 4d 20 45 4c 45 4d 45 4e 54 20 00 23 01 08 00 26 00 50 5c 4c 44 5c 41 31 2c 45 44 4e 4f 54 ┆ARK SUPPRESSION # ( P CF A14,EDGETN GET CHR FROM ELEMENT # & P LD A1,EDNOT┆
0x45a…4aa 5a 5c 4c 4f 41 44 20 5a 45 52 4f 20 49 4e 44 49 43 41 54 4f 52 20 00 23 01 34 00 28 00 50 5c 52 42 28 4e 5a 29 5c 45 44 50 36 37 30 5c 53 54 4f 52 45 20 43 48 52 20 49 46 20 4e 4f 54 20 5a 45 52 4f 00 23 01 5e 00 1e 00 50 5c 43 57 4b 5c 41 ┆Z LOAD ZERO INDICATOR # 4 ( P RB(NZ) EDP670 STORE CHR IF NOT ZERO # ^ P CWK A┆
0x4aa…4fa (4, 0, 400) 36 2c 2f 33 30 5c 43 4f 4d 50 20 57 49 54 48 20 5a 45 52 4f 00 23 01 8a 00 20 00 50 5c 52 42 28 45 29 5c 45 44 50 38 31 30 5c 4a 55 4d 50 20 49 46 20 45 51 55 41 4c 20 00 24 00 1c 00 26 00 50 5c 52 42 5c 45 44 50 36 36 30 5c 49 4d 20 45 44 ┆6,/30 COMP WITH ZERO # P RB(E) EDP810 JUMP IF EQUAL $ & P RB EDP660 IM ED┆
0x4fa…54a 4e 4f 54 5a 20 41 4e 44 20 53 54 4f 52 45 20 43 48 52 00 24 00 40 00 0a 00 50 5c 45 4a 45 43 54 00 24 00 6a 00 1e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 24 00 78 00 1e 00 50 2a 20 43 3a 43 4f ┆NOTZ AND STORE CHR $ @ P EJECT $ j P************************* $ x P* C:CO┆
0x54a…59a 4e 44 49 54 49 4f 4e 41 4c 20 50 49 43 54 55 52 45 20 2a 20 00 24 00 9a 00 1e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 24 00 bc 00 12 00 50 4c 43 5c 45 51 55 5c 2a 2d 42 41 53 45 20 00 24 00 de ┆NDITIONAL PICTURE * $ P************************* $ PLC EQU *-BASE $ ┆
0x59a…5ea 00 22 00 50 45 44 50 39 30 30 5c 4c 44 5c 41 34 2c 45 44 53 49 47 4e 5c 4c 4f 41 44 20 53 49 47 4e 20 00 24 00 f4 00 28 00 50 5c 52 42 28 4e 5a 29 5c 45 44 50 37 32 35 5c 4a 55 4d 50 20 42 41 43 4b 20 49 46 20 50 4f 53 49 54 49 56 45 00 24 ┆ " PEDP900 LD A4,EDSIGN LOAD SIGN $ ( P RB(NZ) EDP725 JUMP BACK IF POSITIVE $┆
0x5ea…63a 01 1a 00 26 00 50 5c 4c 44 5c 41 34 2c 45 44 50 50 4f 49 5c 4c 4f 41 44 20 50 49 43 54 55 52 45 20 50 4f 49 4e 54 45 52 00 24 01 46 00 28 00 50 5c 53 55 5c 41 34 2c 45 44 43 4e 54 50 5c 53 55 42 2e 20 57 49 54 48 20 4e 45 47 2e 4e 55 4d 42 ┆ & P LD A4,EDPPOI LOAD PICTURE POINTER $ F ( P SU A4,EDCNTP SUB. WITH NEG.NUMB┆