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

⟦996b6795f⟧ 

    Length: 4750 (0x128e)
    Notes: pts_type(SC)
    Names: »EBCDIC.SC«

Derivation

└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
    └─⟦this⟧ »TOSSWORK/EBCDIC.SC« 
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
    └─⟦this⟧ »TOSSWORK/EBCDIC.SC«

PTS(SC)

	IDENT EBCDIC 	REL 11.0 81-01-26 870105041100 

* 
************************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   EBCDIC = EBCDIC/ASCII TABLE 
* 
* 
* 
* 
* 
* 
************************************************* 
* 
	ENTRY	TASCII 
	ENTRY	TEBCDIC
* 
* 
*  CONDITIONAL ASSEMBLY  (SEE ALSO DRDC15)
* 
X:A	EQU	1	CODE , 0=ASCII , 1=EBCDIC   (DRDC15)
CODE	EQU	X:A
X:B	EQU	1	READ COMMAND HANDLING IF = 1  (DRDC15)
RCOM	EQU	X:B
	EJECT
* 
* 
*	TABLE FOR CONVERSION OF EBCDIC CODE TO ASCII
* 
* 
TASCII	EQU	*
	IFT	CODE=1 
	DATA	/0001,/0203,/0009,/0000	00-07 
	DATA	/0000,/0000,/0C00,/0000	08-0F 
	DATA	/1011,/1213,/000A,/0000	10-17 
	DATA	/0019,/0000,/1C1D,/1E1F	18-1F 
	DATA	/0000,/0000,/0000,/171B	20-27 
	DATA	/0000,/0000,/0005,/0000	28-2F 
	DATA	/0000,/1600,/0000,/0004	30-37 
	DATA	/0000,/0000,/1415,/001A	38-3F 
	DATA	/2041,/4243,/4445,/4647	40-47 
	DATA	/4849,/5B2E,/3C28,/2B21	48-4F 
	DATA	/264A,/4B4C,/4D4E,/4F50	50-57 
	DATA	/5152,/5D24,/2A29,/3B5E	58-5F 
	DATA	/2D2F,/5354,/5556,/5758	60-67 
	DATA	/595A,/7C2C,/255F,/3E3F	68-6F 
	DATA	/1831,/3233,/3435,/3637	70-77 
	DATA	/3839,/3A23,/4027,/3D22	78-7F 
	DATA	/2061,/6263,/6465,/6667	80-87 
	DATA	/6869,/5B2E,/3C28,/2B21	88-8F 
	DATA	/266A,/6B6C,/6D6E,/6F70	90-97 
	DATA	/7172,/5D24,/2A29,/3B5E	98-9F 
	DATA	/2D2F,/7374,/7576,/7778	A0-A7 
	DATA	/797A,/7C2C,/255F,/3E3F	A8-AF 
	DATA	/3031,/3233,/3435,/3637	B0-B7 
	DATA	/3839,/3A23,/4027,/3D22	B8-BF 
	DATA	/2041,/4243,/4445,/4647	C0-C7 
	DATA	/4849,/5B2E,/3C28,/2B21	C8-CF 
	DATA	/264A,/4B4C,/4D4E,/4F50	D0-D7 
	DATA	/5152,/5D24,/2A29,/3B5E	D8-DF 
	DATA	/2D2F,/5354,/5556,/5758	E0-E7 
	DATA	/595A,/7C2C,/255F,/3E3F	E8-EF 
	DATA	/3031,/3233,/3435,/3637	F0-F7 
	DATA	/3839,/3A23,/4027,/3DFF	F8-FF 
	XIF
	EJECT
* 
* 
*	TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC
* 
* 
TEBCDIC	EQU	* 
	IFF	CODE+RCOM=0
	DATA	/0001,/0203,/372D,/0000	00-07 
	DATA	/0005,/1500,/0C00,/0000	08-0F 
	DATA	/1011,/1213,/3C3D,/3226	10-17 
	DATA	/7019,/3F27,/1C1D,/1E1F	18-1F 
	DATA	/404F,/7F7B,/5B6C,/507D	20-27 
	DATA	/4D5D,/5C4E,/6B60,/4B61	28-2F 
	DATA	/F0F1,/F2F3,/F4F5,/F6F7	30-37 
	DATA	/F8F9,/7A5E,/4C7E,/6E6F	38-3F 
	DATA	/7CC1,/C2C3,/C4C5,/C6C7	40-47 
	DATA	/C8C9,/D1D2,/D3D4,/D5D6	48-4F 
	DATA	/D7D8,/D9E2,/E3E4,/E5E6	50-57 
	DATA	/E7E8,/E94A,/005A,/5F6D	58-5F 
	DATA	/0081,/8283,/8485,/8687	60-67 
	DATA	/8889,/9192,/9394,/9596	68-6F 
	DATA	/9798,/99A2,/A3A4,/A5A6	70-77 
	DATA	/A7A8,/A91C,/6A00,/0000	78-7F 
	DATA	/544F,/5353	SPEC. FLEX CHAR. 'TOSS'  80-84
	XIF
	END

Full view