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

⟦f7349a705⟧

    Length: 1506 (0x5e2)
    Notes: pts_type(SC)
    Names: »DW1501.SC«

Derivation

└─⟦726a6c4ca⟧ Bits:30009685 Philips computer tape "600309"
    └─⟦this⟧ »M:PTB/DW1501.SC« 

PTS(SC)

	IDENT DW1501 	REL 9.2 79-11-16  870105040920 

* 
*   DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 
* 
	ENTRY	DW1501	TABLE ENTRY 
	EXTRN	DC15AD	POINTER TO ADDRESS-BLOCK
* 
MMUPAG	EQU	0
* 
DW1501	EQU	*	TABLE ENTRY
	DATA	0	CHANNEL PARAMETER 
	DATA	/8000	STATUS./8000 MEANS DEVICE READY 
	DATA	0	ECB-ADDRESS 
	DATA	DWTEND-DW1501 
			RIGHT BYTE=ORDER 
	DATA	DC15AD	POINTER TO ADDRESS-BLOCK 
	DATA	'DC'	TTAB-ADDRESS 
	DATA	0	WAIT/ACTIVATE INDICATOR 
	DATA	0	TERMINAL QUEUE
* 
	IFT	MMUPAG=1 
	DATA	0	USER ECB ADDRESS
	DATA	DC:ECB	MMU ECB ADDRESS
	XIF
* 
	DATA	0	TIMER POINTER 
	DATA	0	WRITE QUEUE 
	DATA	0	STATUS QUEUE
	DATA	0	RECEIVE QUEUE 
	DATA	0	BUFFER ADDRESS
	DATA	0	CURSOR ADDRESS
	DATA	0	REQUEST TIMEOUT VALUE 
* 
	IFT	MMUPAG=1 
DC:ECB	EQU	*	MMU ECB
	DATA	0,0,0,0,0,0 
	XIF
* 
DWTEND	EQU	*
	END

HexDump

0x000…036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DW1501  REL 9.2 79-11-16  870105040920 «, t00=0x0000, t01=0x0004}
0x036…03e             Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x03e…048             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x048…086             Head {h00=0x003a, h01=0x0050, text=»*   DEVICE WORK TABLE FOR DATA-COMMUNICATION DEVICE 1 «, t00=0x0000, t01=0x004c}
0x086…090             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008a}
0x090…0b2             Head {h00=0x001e, h01=0x0050, text=» ENTRY DW1501 TABLE ENTRY «, t00=0x0000, t01=0x0094}
0x0b2…0e0             Head {h00=0x002a, h01=0x0050, text=» EXTRN DC15AD POINTER TO ADDRESS-BLOCK«, t00=0x0000, t01=0x00b6}
0x0e0…0ea             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e4}
0x0ea…0fe             Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0000, t01=0x00ee}
0x0fe…108             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0102}
0x108…128             Head {h00=0x001c, h01=0x0050, text=»DW1501 EQU * TABLE ENTRY«, t00=0x0000, t01=0x010c}
0x128…14a             Head {h00=0x001e, h01=0x0050, text=» DATA 0 CHANNEL PARAMETER «, t00=0x0000, t01=0x012c}
0x14a…17e             Head {h00=0x0030, h01=0x0050, text=» DATA /8000 STATUS./8000 MEANS DEVICE READY «, t00=0x0000, t01=0x014e}
0x17e…19a             Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB-ADDRESS «, t00=0x0000, t01=0x0182}
0x19a…1b6             Head {h00=0x0018, h01=0x0050, text=» DATA DWTEND-DW1501 «, t00=0x0001, t01=0x000e}
0x1b6…1d2             Head {h00=0x0018, h01=0x0050, text=»   RIGHT BYTE=ORDER «, t00=0x0001, t01=0x002a}
0x1d2…200             Head {h00=0x002a, h01=0x0050, text=» DATA DC15AD POINTER TO ADDRESS-BLOCK «, t00=0x0001, t01=0x0046}
0x200…220             Head {h00=0x001c, h01=0x0050, text=» DATA 'DC' TTAB-ADDRESS «, t00=0x0001, t01=0x0074}
0x220…248             Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0001, t01=0x0094}
0x248…266             Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0001, t01=0x00bc}
0x266…270             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00da}
0x270…286             Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0001, t01=0x00e4}
0x286…2a6             Head {h00=0x001c, h01=0x0050, text=» DATA 0 USER ECB ADDRESS«, t00=0x0001, t01=0x00fa}
0x2a6…2ca             Head {h00=0x0020, h01=0x0050, text=» DATA DC:ECB MMU ECB ADDRESS«, t00=0x0001, t01=0x011a}
0x2ca…2d6             Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0001, t01=0x013e}
0x2d6…2e0             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014a}
0x2e0…2fe             Head {h00=0x001a, h01=0x0050, text=» DATA 0 TIMER POINTER «, t00=0x0001, t01=0x0154}
0x2fe…31a             Head {h00=0x0018, h01=0x0050, text=» DATA 0 WRITE QUEUE «, t00=0x0001, t01=0x0172}
0x31a…336             Head {h00=0x0018, h01=0x0050, text=» DATA 0 STATUS QUEUE«, t00=0x0001, t01=0x018e}
0x336…354             Head {h00=0x001a, h01=0x0050, text=» DATA 0 RECEIVE QUEUE «, t00=0x0002, t01=0x001a}
0x354…372             Head {h00=0x001a, h01=0x0050, text=» DATA 0 BUFFER ADDRESS«, t00=0x0002, t01=0x0038}
0x372…390             Head {h00=0x001a, h01=0x0050, text=» DATA 0 CURSOR ADDRESS«, t00=0x0002, t01=0x0056}
0x390…3b6             Head {h00=0x0022, h01=0x0050, text=» DATA 0 REQUEST TIMEOUT VALUE «, t00=0x0002, t01=0x0074}
0x3b6…3c0             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x009a}
0x3c0…3d6             Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0002, t01=0x00a4}
0x3d6…3f2             Head {h00=0x0018, h01=0x0050, text=»DC:ECB EQU * MMU ECB«, t00=0x0002, t01=0x00ba}
0x3f2…40c             Head {h00=0x0016, h01=0x0050, text=» DATA 0,0,0,0,0,0 «, t00=0x0002, t01=0x00d6}
0x40c…418             Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0002, t01=0x00f0}
0x418…422             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fc}
0x422…436             Head {h00=0x0010, h01=0x0050, text=»DWTEND EQU *«, t00=0x0002, t01=0x0106}
0x436…442             Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0002, t01=0x011a}
0x442…446             Head {h00=0x4004, h01=0x0000}
0x446…44a             00 02 01 26                                                                                                                                                                                                                                       ┆   &┆
0x44a…452 (3, 1, 8)   20 04 00 00 00 03 00 04                                                                                                                                                                                                                           ┆        ┆
0x452…4a2 (4, 0, 400) 50 42 4c 4b 3d 32 00 63 01 82 00 10 00 50 5c 43 41 4c 4c 5c 53 48 49 46 54 20 00 64 00 0e 00 20 00 50 54 57 53 57 33 30 5c 52 46 28 5a 29 5c 54 41 52 5a 41 4e 5c 41 4c 4c 20 44 4f 4e 45 00 64 00 22 00 10 00 50 5c 43 41 4c 4c 5c 47 45 54 57   ┆PBLK=2 c     P CALL SHIFT  d     PTWSW30 RF(Z) TARZAN ALL DONE d "   P CALL GETW┆
0x4a2…4f2             42 20 00 64 00 46 00 1e 00 50 5c 43 41 4c 4c 5c 4d 4f 56 57 42 5c 52 45 53 45 52 56 45 20 53 50 41 43 45 20 00 64 00 5a 00 28 00 50 5c 53 54 5c 41 32 2c 4e 45 57 41 44 32 2c 41 31 33 5c 53 41 56 45 20 57 2e 42 2e 2d 41 44 44 52 45 53 53 20   ┆B  d F   P CALL MOVWB RESERVE SPACE  d Z ( P ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS ┆
0x4f2…542             00 64 00 7c 00 26 00 50 5c 43 41 4c 4c 5c 4d 4f 56 44 57 42 5c 43 48 41 4e 47 45 20 44 57 42 2d 20 41 44 44 52 45 53 53 45 53 00 64 00 a8 00 10 00 50 5c 43 41 4c 4c 5c 53 4b 49 46 54 41 00 64 00 d2 00 0e 00 50 5c 52 42 5c 54 57 53 57 33 30   ┆ d | & P CALL MOVDWB CHANGE DWB- ADDRESSES d     P CALL SKIFTA d     P RB TWSW30┆
0x542…592             00 64 00 e6 00 10 00 50 54 41 52 5a 41 4e 5c 45 51 55 5c 2a 00 64 00 f8 00 08 00 50 5c 58 49 46 00 64 01 0c 00 12 00 50 5c 49 46 54 5c 43 52 45 44 49 54 3d 31 20 00 64 01 18 00 20 00 50 5c 4c 44 5c 41 37 2c 53 41 56 45 30 34 2c 41 31 33 5c   ┆ d     PTARZAN EQU * d     P XIF d     P IFT CREDIT=1  d     P LD A7,SAVE04,A13 ┆
0x592…5e2             52 45 53 54 4f 52 45 20 41 37 00 64 01 2e 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 64 01 52 00 0a 00 50 5c 45 4a 45 43 54 00 64 01 62 00 04 00 50 00 64 01 70 00 04 00 50 00 64 01 78 00 34 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆RESTORE A7 d .   P RTN A14 d R   P EJECT d b   P d p   P d x 4 P**              ┆

Reduced view