DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦418bd7d0a⟧ 

    Length: 1600 (0x640)
    Notes: pts_type(SC)
    Names: »DWDC10.SC«

Derivation

└─⟦18bf30ff4⟧ Bits:30009692 Philips computer tape "600409"
    └─⟦this⟧ »BDKMON/DWDC10.SC«

PTS(SC)

	IDENT DWDC10 	REL 8.3 79-06-25  870105040830 
* 
*   DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 
* 
	ENTRY	DWDC10	TABLE ENTRY 
	EXTRN	DC15AD	POINTER TO ADDRESS-BLOCK
* 
DWDC10	EQU	*	TABLE ENTRY
	DATA	0	CHANNEL PARAMETER 
	DATA	/8000	STATUS./8000 MEANS DEVICE READY 
	DATA	0	ECB-ADDRESS 
	DATA	DWTEND-DWDC10 
			RIGHT BYTE=ORDER 
	DATA	DC15AD	POINTER TO ADDRESS-BLOCK 
	DATA	'DC'	TTAB-ADDRESS 
	DATA	0	WAIT/ACTIVATE INDICATOR 
	DATA	0	TERMINAL QUEUE
	DATA	0	TIMER POINTER 
	DATA	0	WRITE QUEUE 
	DATA	0	STATUS QUEUE
	DATA	0	RECEIVE QUEUE 
	DATA	0	BUFFER ADDRESS
	DATA	0	CURSOR ADDRESS
DWTEND	EQU	*
	END

HexDump

0x000…036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DWDC10  REL 8.3 79-06-25  870105040830 «, t00=0x0000, t01=0x0004}
0x036…040             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x003a}
0x040…07e             Head {h00=0x003a, h01=0x0050, text=»*   DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 «, t00=0x0000, t01=0x0044}
0x07e…088             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0082}
0x088…0aa             Head {h00=0x001e, h01=0x0050, text=» ENTRY DWDC10 TABLE ENTRY «, t00=0x0000, t01=0x008c}
0x0aa…0d8             Head {h00=0x002a, h01=0x0050, text=» EXTRN DC15AD POINTER TO ADDRESS-BLOCK«, t00=0x0000, t01=0x00ae}
0x0d8…0e2             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00dc}
0x0e2…102             Head {h00=0x001c, h01=0x0050, text=»DWDC10 EQU * TABLE ENTRY«, t00=0x0000, t01=0x00e6}
0x102…124             Head {h00=0x001e, h01=0x0050, text=» DATA 0 CHANNEL PARAMETER «, t00=0x0000, t01=0x0106}
0x124…158             Head {h00=0x0030, h01=0x0050, text=» DATA /8000 STATUS./8000 MEANS DEVICE READY «, t00=0x0000, t01=0x0128}
0x158…174             Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB-ADDRESS «, t00=0x0000, t01=0x015c}
0x174…190             Head {h00=0x0018, h01=0x0050, text=» DATA DWTEND-DWDC10 «, t00=0x0000, t01=0x0178}
0x190…1ac (1, 2, 392) Head {h00=0x0018, h01=0x0050, text=»   RIGHT BYTE=ORDER «, t00=0x0001, t01=0x0004}
0x1ac…1da             Head {h00=0x002a, h01=0x0050, text=» DATA DC15AD POINTER TO ADDRESS-BLOCK «, t00=0x0001, t01=0x0020}
0x1da…1fa             Head {h00=0x001c, h01=0x0050, text=» DATA 'DC' TTAB-ADDRESS «, t00=0x0001, t01=0x004e}
0x1fa…222             Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0001, t01=0x006e}
0x222…240             Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0001, t01=0x0096}
0x240…25e             Head {h00=0x001a, h01=0x0050, text=» DATA 0 TIMER POINTER «, t00=0x0001, t01=0x00b4}
0x25e…27a             Head {h00=0x0018, h01=0x0050, text=» DATA 0 WRITE QUEUE «, t00=0x0001, t01=0x00d2}
0x27a…296             Head {h00=0x0018, h01=0x0050, text=» DATA 0 STATUS QUEUE«, t00=0x0001, t01=0x00ee}
0x296…2b4             Head {h00=0x001a, h01=0x0050, text=» DATA 0 RECEIVE QUEUE «, t00=0x0001, t01=0x010a}
0x2b4…2d2             Head {h00=0x001a, h01=0x0050, text=» DATA 0 BUFFER ADDRESS«, t00=0x0001, t01=0x0128}
0x2d2…2f0             Head {h00=0x001a, h01=0x0050, text=» DATA 0 CURSOR ADDRESS«, t00=0x0001, t01=0x0146}
0x2f0…304             Head {h00=0x0010, h01=0x0050, text=»DWTEND EQU *«, t00=0x0001, t01=0x0164}
0x304…310             Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0001, t01=0x0178}
0x310…314             Head {h00=0x4004, h01=0x0000}
0x314…318             00 01 01 84                                                                                                                                                                                                                                       ┆    ┆
0x318…320 (2, 1, 8)   20 04 00 00 00 02 00 04                                                                                                                                                                                                                           ┆        ┆
0x320…370 (3, 0, 400) 4c 41 54 45 20 54 4f 20 41 53 43 49 49 20 00 12 01 7a 00 08 00 50 5c 58 49 46 00 13 00 16 00 28 00 50 5c 53 54 52 5c 41 32 2c 41 36 5c 53 41 56 45 20 49 4e 20 46 49 52 53 54 20 57 4f 52 44 20 4f 46 20 44 57 54 00 13 00 22 00 04 00 50 00 13   ┆LATE TO ASCII    z   P XIF     ( P STR A2,A6 SAVE IN FIRST WORD OF DWT   "   P  ┆
0x370…3c0             00 4e 00 10 00 50 5c 49 46 54 5c 52 43 4f 4d 3d 31 20 00 13 00 56 00 2a 00 50 5c 4c 44 5c 41 33 2c 45 43 42 42 41 2c 41 38 5c 44 45 56 49 43 45 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 00 13 00 6a 00 14 00 50 5c 53 54 5c 41 33 2c 44   ┆ N   P IFT RCOM=1    V * P LD A3,ECBBA,A8 DEVICE BUFFER ADDRESS    j   P ST A3,D┆
0x3c0…410             57 54 42 55 46 2c 41 36 00 13 00 98 00 28 00 50 5c 4c 44 5c 41 33 2c 45 43 42 52 4c 2c 41 38 5c 43 55 52 53 4f 52 20 41 44 44 52 45 53 53 20 57 4f 52 44 20 00 13 00 b0 00 14 00 50 5c 53 54 5c 41 33 2c 44 57 54 43 55 52 2c 41 36 00 13 00 dc   ┆WTBUF,A6     ( P LD A3,ECBRL,A8 CURSOR ADDRESS WORD        P ST A3,DWTCUR,A6    ┆
0x410…460             00 08 00 50 5c 58 49 46 00 13 00 f4 00 22 00 50 5c 43 57 4b 5c 41 36 2c 44 57 31 35 30 30 5c 44 43 54 41 53 4b 20 44 57 54 20 3f 3f 3f 20 00 13 01 00 00 32 00 50 5c 52 46 28 45 29 5c 44 43 54 50 33 30 5c 59 45 53 21 21 21 20 20 53 48 4f 55   ┆   P XIF     " P CWK A6,DW1500 DCTASK DWT ???      2 P RF(E) DCTP30 YES!!!  SHOU┆
0x460…4b0             4c 44 20 4e 4f 54 20 42 45 20 49 4e 20 44 43 3a 54 41 42 20 00 13 01 26 00 2a 00 50 5c 4c 44 5c 41 31 2c 44 43 3a 49 4e 5c 47 45 54 20 44 43 3a 54 41 42 20 49 4e 50 55 54 20 50 4f 49 4e 54 45 52 20 00 13 01 5c 00 2a 00 50 5c 43 57 4b 5c 41   ┆LD NOT BE IN DC:TAB    & * P LD A1,DC:IN GET DC:TAB INPUT POINTER      * P CWK A┆
0x4b0…500 (4, 0, 400) 31 2c 44 43 3a 45 4e 44 5c 54 41 42 4c 45 20 41 4c 52 45 41 44 59 20 46 55 4c 4c 20 3f 3f 3f 3f 00 13 01 8a 00 26 00 50 5c 41 42 4c 28 45 29 5c 44 49 53 49 4f 45 5c 59 45 53 21 21 20 52 45 51 55 45 53 54 20 45 52 52 4f 52 00 14 00 28 00 0a   ┆1,DC:END TABLE ALREADY FULL ????     & P ABL(E) DISIOE YES!! REQUEST ERROR   (  ┆
0x500…550             00 50 5c 45 4a 45 43 54 00 14 00 52 00 04 00 50 00 14 00 60 00 04 00 50 00 14 00 68 00 10 00 50 44 43 54 50 32 30 5c 45 51 55 5c 2a 00 14 00 70 00 12 00 50 5c 49 46 54 5c 45 4d 33 32 37 30 3d 30 20 00 14 00 84 00 22 00 50 5c 4c 44 4b 4c 5c   ┆ P EJECT   R   P   `   P   h   PDCTP20 EQU *   p   P IFT EM3270=0      " P LDKL ┆
0x550…5a0             41 35 2c 53 54 42 32 5c 4c 4f 41 44 20 53 54 41 43 4b 20 42 41 53 45 20 00 14 00 9a 00 2c 00 50 5c 43 46 5c 41 35 2c 46 49 4e 54 45 52 5c 44 57 54 20 41 4c 52 45 41 44 59 20 49 4e 20 44 43 3a 54 41 42 20 3f 3f 3f 20 00 14 00 c0 00 0e 00 50   ┆A5,STB2 LOAD STACK BASE      , P CF A5,FINTER DWT ALREADY IN DC:TAB ???        P┆
0x5a0…5f0             5c 4c 44 52 5c 41 33 2c 41 33 00 14 00 f0 00 1a 00 50 5c 52 46 28 4e 5a 29 5c 44 43 54 50 33 30 5c 59 45 53 21 21 21 20 00 14 01 02 00 08 00 50 5c 58 49 46 00 14 01 20 00 24 00 50 5c 53 54 52 5c 41 36 2c 41 31 5c 49 4e 53 45 52 54 20 44 57   ┆ LDR A3,A3       P RF(NZ) DCTP30 YES!!!        P XIF     $ P STR A6,A1 INSERT DW┆
0x5f0…640             54 20 49 4e 20 44 43 3a 54 41 42 20 00 14 01 2c 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 32 20 00 14 01 54 00 2a 00 50 5c 41 44 53 5c 41 31 2c 44 43 3a 49 4e 5c 55 50 44 41 54 45 20 44 43 3a 54 41 42 20 49 4e 20 50 4f 49 4e 54 45 52 00 14 01 66   ┆T IN DC:TAB    ,   P LDK A1,2    T * P ADS A1,DC:IN UPDATE DC:TAB IN POINTER   f┆

Reduced view