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

⟦7f4f3ce73⟧ 

    Length: 1604 (0x644)
    Notes: pts_type(SC)
    Names: »TIODMX.SC«

Derivation

└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
    └─⟦this⟧ »BDKMON/TIODMX.SC«

PTS(SC)

	IDENT TIODMX 	REL 8.3 79-06-25  870105040830 
* 
* 
****************************************************
* 
*   PHILIPS TERMINAL SYSTEM  PTS
* 
*   TOSS DATA MANAGEMENT
* 
* 
*   LEVEL      #1     1977-09-07
* 
*   RELEASE    #8     1977-09-07
* 
****************************************************
* 
*   THIS DUMMY MODULE REPLACE TIODM AND DM
* 
	ENTRY	TIODM,CHKIND,REQEND
	ENTRY	FDBADF 
	ENTRY	TCFILE,COFILE
TIODM	EQU	* 
CHKIND	EQU	*
REQEND	EQU	*
FDBADF	EQU	*
	DATA	/6300	SOMETHING BAD, TRAP 
X:B	EQU	0 
TCFILE	EQU	X:B	MONCON 
X:C	EQU	0 
COFILE	EQU	X:C	MONCON 
	END

HexDump

0x000…036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT TIODMX  REL 8.3 79-06-25  870105040830 «, t00=0x0000, t01=0x0004}
0x036…040             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x003a}
0x040…04a             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0044}
0x04a…086             Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x004e}
0x086…090             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008a}
0x090…0b8             Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM  PTS«, t00=0x0000, t01=0x0094}
0x0b8…0c2             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00bc}
0x0c2…0e2             Head {h00=0x001c, h01=0x0050, text=»*   TOSS DATA MANAGEMENT«, t00=0x0000, t01=0x00c6}
0x0e2…0ec             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e6}
0x0ec…0f6             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f0}
0x0f6…11e             Head {h00=0x0024, h01=0x0050, text=»*   LEVEL      #1     1977-09-07«, t00=0x0000, t01=0x00fa}
0x11e…128             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0122}
0x128…150             Head {h00=0x0024, h01=0x0050, text=»*   RELEASE    #8     1977-09-07«, t00=0x0000, t01=0x012c}
0x150…15a             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0154}
0x15a…196             Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x015e}
0x196…1a0             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000a}
0x1a0…1d2             Head {h00=0x002e, h01=0x0050, text=»*   THIS DUMMY MODULE REPLACE TIODM AND DM«, t00=0x0001, t01=0x0014}
0x1d2…1dc             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0046}
0x1dc…1fe             Head {h00=0x001e, h01=0x0050, text=» ENTRY TIODM,CHKIND,REQEND«, t00=0x0001, t01=0x0050}
0x1fe…214             Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBADF «, t00=0x0001, t01=0x0072}
0x214…230             Head {h00=0x0018, h01=0x0050, text=» ENTRY TCFILE,COFILE«, t00=0x0001, t01=0x0088}
0x230…244             Head {h00=0x0010, h01=0x0050, text=»TIODM EQU * «, t00=0x0001, t01=0x00a4}
0x244…258             Head {h00=0x0010, h01=0x0050, text=»CHKIND EQU *«, t00=0x0001, t01=0x00b8}
0x258…26c             Head {h00=0x0010, h01=0x0050, text=»REQEND EQU *«, t00=0x0001, t01=0x00cc}
0x26c…280             Head {h00=0x0010, h01=0x0050, text=»FDBADF EQU *«, t00=0x0001, t01=0x00e0}
0x280…2a8             Head {h00=0x0024, h01=0x0050, text=» DATA /6300 SOMETHING BAD, TRAP «, t00=0x0001, t01=0x00f4}
0x2a8…2ba             Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0001, t01=0x011c}
0x2ba…2d8             Head {h00=0x001a, h01=0x0050, text=»TCFILE EQU X:B MONCON «, t00=0x0001, t01=0x012e}
0x2d8…2ea             Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0001, t01=0x014c}
0x2ea…308             Head {h00=0x001a, h01=0x0050, text=»COFILE EQU X:C MONCON «, t00=0x0001, t01=0x015e}
0x308…314             Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0001, t01=0x017c}
0x314…318             Head {h00=0x4004, h01=0x0000}
0x318…31c             00 01 01 88                                                                                                                                                                                                                                       ┆    ┆
0x31c…324 (2, 1, 8)   20 04 00 00 00 02 00 04                                                                                                                                                                                                                           ┆        ┆
0x324…374 (3, 0, 400) 00 20 00 50 5c 41 42 4c 28 5a 29 5c 42 52 4d 35 30 30 5c 4e 41 4b 20 52 45 43 45 49 56 45 44 20 00 3b 00 04 00 10 00 50 5c 49 46 54 5c 4d 53 56 31 3d 30 20 00 3b 00 28 00 0e 00 50 5c 4c 44 52 5c 41 38 2c 41 32 00 3b 00 3c 00 24 00 50 5c 43   ┆   P ABL(Z) BRM500 NAK RECEIVED  ;     P IFT MSV1=0  ; (   P LDR A8,A2 ; < $ P C┆
0x374…3c4             46 5c 41 35 2c 52 45 41 44 50 5c 52 45 41 44 20 4f 4e 45 20 43 48 41 52 41 43 54 45 52 20 00 3b 00 4e 00 20 00 50 5c 52 46 28 4e 5a 29 5c 42 52 4d 31 35 30 5c 50 41 52 49 54 59 20 45 52 52 4f 52 20 00 3b 00 76 00 0e 00 50 5c 43 57 52 5c 41   ┆F A5,READP READ ONE CHARACTER  ; N   P RF(NZ) BRM150 PARITY ERROR  ; v   P CWR A┆
0x3c4…414             32 2c 41 38 00 3b 00 9a 00 26 00 50 5c 52 46 28 4e 45 29 5c 42 52 4d 31 35 30 5c 49 4e 56 41 4c 49 44 20 41 44 44 52 45 53 53 49 4e 47 20 00 3b 00 ac 00 08 00 50 5c 58 49 46 00 3b 00 d6 00 0e 00 50 5c 4c 44 4b 5c 41 33 2c 30 20 00 3b 00 e2   ┆2,A8 ;   & P RF(NE) BRM150 INVALID ADDRESSING  ;     P XIF ;     P LDK A3,0  ;  ┆
0x414…464             00 14 00 50 5c 43 43 5c 41 32 2c 44 57 31 35 30 30 2b 31 20 00 3b 00 f4 00 1a 00 50 5c 52 46 28 45 29 5c 42 52 4d 31 31 30 5c 50 4f 4c 4c 49 4e 47 20 00 3b 01 0c 00 0e 00 50 5c 4c 44 4b 5c 41 33 2c 32 20 00 3b 01 2a 00 12 00 50 5c 43 43 5c   ┆   P CC A2,DW1500+1  ;     P RF(E) BRM110 POLLING  ;     P LDK A3,2  ; *   P CC ┆
0x464…4b4             41 32 2c 44 57 31 35 30 30 20 00 3b 01 3c 00 20 00 50 5c 52 46 28 4e 45 29 5c 42 52 4d 31 35 30 5c 4e 4f 54 20 54 48 49 53 20 54 43 55 20 00 3b 01 52 00 10 00 50 42 52 4d 31 31 30 5c 45 51 55 5c 2a 00 3b 01 76 00 1e 00 50 5c 43 46 5c 41 35   ┆A2,DW1500  ; <   P RF(NE) BRM150 NOT THIS TCU  ; R   PBRM110 EQU * ; v   P CF A5┆
0x4b4…504 (4, 0, 400) 2c 52 45 41 44 50 5c 52 45 41 44 20 31 3a 53 54 20 53 54 41 00 3b 01 8a 00 20 00 50 5c 52 46 28 4e 5a 29 5c 42 52 4d 31 35 30 5c 50 41 52 49 54 59 20 45 52 52 4f 52 20 00 3c 00 1c 00 0e 00 50 5c 4c 44 52 5c 41 38 2c 41 32 00 3c 00 40 00 10   ┆,READP READ 1:ST STA ;     P RF(NZ) BRM150 PARITY ERROR  <     P LDR A8,A2 < @  ┆
0x504…554             00 50 5c 49 46 54 5c 4d 53 56 31 3d 30 20 00 3c 00 52 00 1e 00 50 5c 43 46 5c 41 35 2c 52 45 41 44 50 5c 52 45 41 44 20 32 3a 4e 44 20 53 54 41 00 3c 00 66 00 20 00 50 5c 52 46 28 4e 5a 29 5c 42 52 4d 31 35 30 5c 50 41 52 49 54 59 20 45 52   ┆ P IFT MSV1=0  < R   P CF A5,READP READ 2:ND STA < f   P RF(NZ) BRM150 PARITY ER┆
0x554…5a4             52 4f 52 20 00 3c 00 88 00 0e 00 50 5c 43 57 52 5c 41 32 2c 41 38 00 3c 00 ac 00 2c 00 50 5c 52 46 28 4e 45 29 5c 42 52 4d 31 35 30 5c 49 4e 56 41 4c 49 44 20 41 44 44 52 45 53 53 20 53 45 51 55 45 4e 43 45 20 00 3c 00 be 00 08 00 50 5c 58   ┆ROR  <     P CWR A2,A8 <   , P RF(NE) BRM150 INVALID ADDRESS SEQUENCE  <     P X┆
0x5a4…5f4             49 46 00 3c 00 ee 00 22 00 50 5c 43 46 5c 41 35 2c 52 45 41 44 5c 52 45 41 44 20 4f 4e 45 20 43 48 41 52 41 43 54 45 52 00 3c 00 fa 00 18 00 50 5c 49 46 54 5c 50 36 38 30 35 3d 30 5c 5c 53 41 4c 43 55 5a 00 3c 01 20 00 14 00 50 5c 53 55 4b   ┆IF <   " P CF A5,READ READ ONE CHARACTER <     P IFT P6805=0  SALCUZ <     P SUK┆
0x5f4…644             5c 41 32 2c 45 4e 51 2b 50 41 52 20 00 3c 01 3c 00 12 00 50 5c 58 49 46 5c 5c 5c 53 41 4c 43 55 5a 20 00 3c 01 54 00 18 00 50 5c 49 46 54 5c 50 36 38 30 35 3d 31 5c 5c 53 41 4c 43 55 5a 00 3c 01 6a 00 18 00 50 5c 53 55 4b 5c 41 32 2c 45 4e   ┆ A2,ENQ+PAR  < <   P XIF   SALCUZ  < T   P IFT P6805=1  SALCUZ < j   P SUK A2,EN┆

Reduced view