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

⟦1c2d98a68⟧ 

    Length: 1602 (0x642)
    Notes: pts_type(SC)
    Names: »TIODMX.SC«

Derivation

└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
    └─⟦this⟧ »TOSSWORK/TIODMX.SC«

PTS(SC)

	IDENT TIODMX 	REL 8.2 78-09-15  870105040820 
* 
* 
****************************************************
* 
*   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.2 78-09-15  870105040820 «, 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, 398) 53 20 54 41 4b 45 4e 20 3f 20 00 22 01 7c 00 10 00 50 46 45 45 44 45 52 5c 45 51 55 5c 2a 00 23 00 12 00 12 00 50 5c 52 42 28 4e 45 29 5c 54 48 52 45 52 52 00 23 00 26 00 1c 00 50 5c 4c 44 52 5c 41 33 2c 41 33 5c 50 4f 57 45 52 20 42 52 45   ┆S TAKEN ?  " |   PFEEDER EQU * #     P RB(NE) THRERR # &   P LDR A3,A3 POWER BRE┆
0x374…3c4             41 4b 20 3f 00 23 00 3c 00 16 00 50 5c 52 42 28 4e 29 5c 46 45 45 44 32 30 5c 59 45 53 20 00 23 00 5c 00 0e 00 50 5c 52 42 5c 50 49 43 4b 36 30 00 23 00 76 00 0a 00 50 5c 45 4a 45 43 54 00 23 00 88 00 06 00 50 2a 20 00 23 00 96 00 06 00 50   ┆AK ? # <   P RB(N) FEED20 YES  #     P RB PICK60 # v   P EJECT #     P*  #     P┆
0x3c4…414             2a 20 00 23 00 a0 00 10 00 50 53 43 41 4e 4b 45 5c 45 51 55 5c 2a 00 23 00 aa 00 28 00 50 5c 4c 44 4b 5c 41 32 2c 53 43 41 4e 4b 5c 53 43 41 4e 20 4b 45 59 42 4f 41 52 44 20 43 4f 4d 4d 41 4e 44 20 00 23 00 be 00 0e 00 50 5c 52 42 5c 4d 49   ┆*  #     PSCANKE EQU * #   ( P LDK A2,SCANK SCAN KEYBOARD COMMAND  #     P RB MI┆
0x414…464             43 4f 55 54 00 23 00 ea 00 10 00 50 53 43 41 4e 31 30 5c 45 51 55 5c 2a 00 23 00 fc 00 0e 00 50 5c 53 55 4b 5c 41 31 2c 31 20 00 23 01 10 00 1c 00 50 5c 5c 5c 44 45 56 49 43 45 20 41 44 44 52 45 53 53 20 3d 20 31 20 3f 20 00 23 01 22 00 12   ┆COUT #     PSCAN10 EQU * #     P SUK A1,1  #     P   DEVICE ADDRESS = 1 ?  # "  ┆
0x464…4b2             00 50 5c 52 46 28 45 29 5c 53 43 41 4e 31 32 20 00 23 01 42 00 0e 00 50 5c 53 55 4b 5c 41 31 2c 34 20 00 23 01 58 00 12 00 50 5c 52 42 28 4e 45 29 5c 46 45 45 44 45 52 00 23 01 6a 00 0e 00 50 5c 53 55 4b 5c 41 32 2c 34 20 00 23 01 80         ┆ P RF(E) SCAN12  # B   P SUK A1,4  # X   P RB(NE) FEEDER # j   P SUK A2,4  #  ┆
0x4b2…502 (4, 0, 400) 00 12 00 50 5c 52 42 28 45 29 5c 52 45 43 41 33 30 20 00 24 00 04 00 0e 00 50 5c 53 55 4b 5c 41 32 2c 32 20 00 24 00 1a 00 12 00 50 5c 52 42 28 45 29 5c 45 4e 44 49 30 31 20 00 24 00 2c 00 10 00 50 5c 41 42 4c 5c 54 48 52 45 52 52 20 00 24   ┆   P RB(E) RECA30  $     P SUK A2,2  $     P RB(E) ENDI01  $ ,   P ABL THRERR  $┆
0x502…552             00 42 00 22 00 50 53 43 41 4e 31 32 5c 53 55 4b 5c 41 37 2c 32 5c 50 49 4e 20 52 45 51 55 45 53 54 20 3f 20 00 24 00 56 00 14 00 50 5c 52 46 28 45 29 5c 50 49 4e 31 30 5c 59 45 53 00 24 00 7c 00 22 00 50 5c 43 46 5c 41 31 35 2c 53 54 4f 52   ┆ B " PSCAN12 SUK A7,2 PIN REQUEST ?  $ V   P RF(E) PIN10 YES $ | " P CF A15,STOR┆
0x552…5a2             45 5c 53 54 4f 52 45 20 43 48 41 52 41 43 54 45 52 20 00 24 00 94 00 2c 00 50 53 43 41 4e 31 35 5c 4c 44 5c 41 31 2c 31 30 2c 41 38 5c 47 45 54 20 4b 45 59 2d 54 41 42 4c 45 20 41 44 44 52 45 53 53 00 24 00 ba 00 1e 00 50 5c 52 46 28 45 29   ┆E STORE CHARACTER  $   , PSCAN15 LD A1,10,A8 GET KEY-TABLE ADDRESS $     P RF(E)┆
0x5a2…5f2             5c 53 43 41 31 30 30 5c 4e 4f 20 4b 45 59 54 41 42 4c 45 20 00 24 00 ea 00 1c 00 50 5c 4c 43 52 5c 41 37 2c 41 31 5c 54 41 42 4c 45 20 4c 45 4e 47 54 48 20 00 24 01 0c 00 10 00 50 5c 41 4e 4b 5c 41 37 2c 2f 46 46 20 00 24 01 2c 00 26 00 50   ┆ SCA100 NO KEYTABLE  $     P LCR A7,A1 TABLE LENGTH  $     P ANK A7,/FF  $ , & P┆
0x5f2…642             5c 41 44 52 5c 41 31 2c 41 37 5c 4c 41 53 54 20 50 4c 41 43 45 20 49 4e 20 4b 45 59 2d 54 41 42 4c 45 00 24 01 40 00 0e 00 50 5c 41 44 4b 5c 41 31 2c 31 20 00 24 01 6a 00 14 00 50 53 43 41 4e 32 30 5c 53 55 4b 5c 41 37 2c 31 20 00 24 01 7c   ┆ ADR A1,A7 LAST PLACE IN KEY-TABLE $ @   P ADK A1,1  $ j   PSCAN20 SUK A7,1  $ |┆

Reduced view