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

⟦40f6c7987⟧ 

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

Derivation

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

PTS(SC)

	IDENT DWDC12 	REL 8.3 79-06-25  870105040830 
* 
*   DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 
* 
	ENTRY	DWDC12	TABLE ENTRY 
	EXTRN	DC15AD	POINTER TO ADDRESS-BLOCK
* 
DWDC12	EQU	*	TABLE ENTRY
	DATA	0	CHANNEL PARAMETER 
	DATA	/8000	STATUS./8000 MEANS DEVICE READY 
	DATA	0	ECB-ADDRESS 
	DATA	DWTEND-DWDC12 
			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 DWDC12  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 DWDC12 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=»DWDC12 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-DWDC12 «, 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) 54 20 54 52 41 4e 53 4d 49 54 20 42 55 46 46 45 52 20 00 22 01 8c 00 06 00 50 2a 20 00 23 00 1a 00 10 00 50 5c 49 46 46 5c 54 42 55 46 4c 3d 30 00 23 00 24 00 24 00 50 2a 5c 43 41 4c 4c 49 4e 47 20 53 45 51 55 45 4e 43 45 3a 20 43 46 20 41   ┆T TRANSMIT BUFFER  "     P*  #     P IFF TBUFL=0 # $ $ P* CALLING SEQUENCE: CF A┆
0x370…3c0             31 35 2c 47 54 42 55 46 00 23 00 38 00 20 00 50 2a 5c 41 34 3d 30 20 49 46 20 4e 4f 20 42 55 46 46 45 52 20 49 53 20 46 52 45 45 20 00 23 00 60 00 26 00 50 2a 5c 45 4c 53 45 20 41 34 20 43 4f 4e 54 41 49 4e 53 20 42 55 46 46 45 52 20 41 44   ┆15,GTBUF # 8   P* A4=0 IF NO BUFFER IS FREE  # ` & P* ELSE A4 CONTAINS BUFFER AD┆
0x3c0…410             44 52 45 53 53 20 00 23 00 84 00 1e 00 50 2a 5c 41 32 20 41 4e 44 20 41 33 20 41 52 45 20 44 45 53 54 52 4f 59 45 44 20 00 23 00 ae 00 06 00 50 2a 20 00 23 00 d0 00 06 00 50 2a 20 00 23 00 da 00 2a 00 50 47 54 42 55 46 5c 4c 44 4b 4c 5c 41   ┆DRESS  #     P* A2 AND A3 ARE DESTROYED  #     P*  #     P*  #   * PGTBUF LDKL A┆
0x410…460             32 2c 44 43 54 42 55 46 5c 54 52 41 4e 53 4d 49 54 20 42 55 46 46 45 52 53 20 00 23 00 e4 00 0c 00 50 5c 52 42 5c 47 42 55 46 00 23 01 12 00 0a 00 50 5c 45 4a 45 43 54 00 23 01 22 00 06 00 50 2a 20 00 23 01 30 00 06 00 50 2a 20 00 23 01 3a   ┆2,DCTBUF TRANSMIT BUFFERS  #     P RB GBUF #     P EJECT # "   P*  # 0   P*  # :┆
0x460…4b0             00 1c 00 50 2a 5c 43 48 45 43 4b 20 47 45 54 20 42 55 46 46 45 52 20 51 55 45 55 45 00 23 01 44 00 06 00 50 2a 20 00 23 01 64 00 06 00 50 2a 20 00 23 01 6e 00 10 00 50 43 4b 47 42 51 5c 45 51 55 5c 2a 20 00 23 01 78 00 16 00 50 5c 4c 44 52   ┆   P* CHECK GET BUFFER QUEUE # D   P*  # d   P*  # n   PCKGBQ EQU *  # x   P LDR┆
0x4b0…500 (4, 0, 400) 5c 41 37 2c 41 36 5c 53 41 56 45 20 41 36 00 23 01 8c 00 22 00 50 5c 4c 44 5c 41 36 2c 44 43 47 57 51 5c 47 45 54 20 51 55 45 55 45 20 41 4e 43 48 4f 52 20 00 24 00 16 00 22 00 50 5c 52 46 28 5a 29 5c 43 4b 47 31 31 30 5c 4e 4f 20 4f 4e 45   ┆ A7,A6 SAVE A6 #   " P LD A6,DCGWQ GET QUEUE ANCHOR  $   " P RF(Z) CKG110 NO ONE┆
0x500…550             20 4f 4e 20 51 55 45 55 45 20 00 24 00 3c 00 12 00 50 5c 53 55 4b 5c 41 36 2c 44 57 54 57 51 20 00 24 00 62 00 14 00 50 5c 4c 44 5c 41 32 2c 44 57 54 53 54 2c 41 36 20 00 24 00 78 00 1c 00 50 5c 52 46 28 4e 29 5c 43 4b 47 31 30 30 5c 4e 4f   ┆ ON QUEUE  $ <   P SUK A6,DWTWQ  $ b   P LD A2,DWTST,A6  $ x   P RF(N) CKG100 NO┆
0x550…5a0             20 52 45 51 55 45 53 54 00 24 00 90 00 14 00 50 5c 4c 44 5c 41 32 2c 44 57 54 4f 52 2c 41 36 20 00 24 00 b0 00 10 00 50 5c 53 55 4b 5c 41 32 2c 2f 33 31 20 00 24 00 c8 00 28 00 50 5c 52 46 28 4e 5a 29 5c 43 4b 47 31 30 30 5c 4e 4f 20 47 45   ┆ REQUEST $     P LD A2,DWTOR,A6  $     P SUK A2,/31  $   ( P RF(NZ) CKG100 NO GE┆
0x5a0…5f0             54 20 42 55 46 46 45 52 20 52 45 51 55 45 53 54 00 24 00 dc 00 26 00 50 5c 43 46 5c 41 31 35 2c 47 54 42 55 46 5c 47 45 54 20 54 52 41 4e 53 4d 49 54 20 42 55 46 46 45 52 20 00 24 01 08 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 34 00 24 01 32   ┆T BUFFER REQUEST $   & P CF A15,GTBUF GET TRANSMIT BUFFER  $     P LDR A4,A4 $ 2┆
0x5f0…640             00 20 00 50 5c 52 46 28 5a 29 5c 43 4b 47 31 31 30 5c 4e 4f 20 42 55 46 46 45 52 20 46 52 45 45 00 24 01 44 00 14 00 50 5c 4c 44 5c 41 33 2c 44 57 54 45 43 42 2c 41 36 00 24 01 68 00 28 00 50 5c 53 54 5c 41 34 2c 45 43 42 42 41 2c 41 33 5c   ┆   P RF(Z) CKG110 NO BUFFER FREE $ D   P LD A3,DWTECB,A6 $ h ( P ST A4,ECBBA,A3 ┆

Reduced view