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

⟦e7c51f641⟧ 

    Length: 4422 (0x1146)
    Notes: pts_type(SC)
    Names: »TB3270.SC«

Derivation

└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
    └─⟦this⟧ »IBM3270/TB3270.SC« 
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
    └─⟦this⟧ »IBM3270/TB3270.SC«

PTS(SC)

	IDENT TB3270 	REL 10.0 80-03-14 870150541000 

******************************************************************
* 
*    CONVERSION TABLES FOR IBM 3270 EMULATION PACKKAGE
* 
******************************************************************* 
* 
* 
*    ENTRIES
* 
	ENTRY	TASCII 
	ENTRY	TEBCDI 
	ENTRY	KEYCNV 
* 

*   CONDITIONAL ASSEMBLIES
* 
KB6272	EQU	1
* 
	EJECT
* 
* 
*	TABLE FOR CONVERSION OF EBCDIC 6 BIT INTERNAL 
* 
*	CODE TO ASCII 
* 
TASCII	EQU	*
	DATA	/2041,/4243,/4445,/4647	/00-/07 
	DATA	/4849,/5B2E,/3C28,/2B21	/08-/0F 
	DATA	/264A,/4B4C,/4D4E,/4F50	/10-/17 
	DATA	/5152,/5D24,/2A29,/3B5E	/18-/1F 
	DATA	/2D2F,/5354,/5556,/5758	/20-/27 
	DATA	/595A,/7C2C,/255F,/3E3F	/28-/2F 
	DATA	/3031,/3233,/3435,/3637	/30-37
	DATA	/3839,/3A23,/4027,/3D22	/38-3F
	EJECT
* 
* 
*	TABLE FOR CODE CONVERSION FROM ASCII TO EBCDIC
* 
*	USED TO GET BINARY VALUES FROM THE EBCDIC CODE
* 
*	INVALID CODES ARE CONVERTED TO ZEROS
* 
* 
TEBCDIC	EQU	* 
	DATA	0,0,0,0	/00-/07 
	DATA	0,0,0,0	/08-/0F 
	DATA	0,0,0,0	/10-/17 
	DATA	0,0,0,0	/18-1F
	DATA	/404F,/7F7B,/5B6C,/507D	/20-/27 
	DATA	/4D5D,/5C4E,/6B60,/4B61	/28-/2F 
	DATA	/F0F1,/F2F3,/F4F5,/F6F7	/30-/38 
	DATA	/F8F9,/7A5E,/4C7E,/6E6F	/39-/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,/8282,/8485,/8687	/60-/67 
	DATA	/8889,/9192,/9394,/9596	/68-/6F 
	DATA	/9798,/99A2,/A3A4,/A5A6	/70-/77 
	DATA	/A7A8,/A900,/6A00,/0000	/78-/7F 
	EJECT
* 
*	TRANSLATION OF FUNCTON KEYS & LOWER CASE P - W
* 
KEYCNV	EQU	*
	IFF	KB6272=1 
	CWK	A2,/70 
	RF(L)	KEYC99 
	CWK	A2,/77 
	RF(G)	KEYC10 
	ADK	A2,/50	LOWER CASE P - W
	RF	KEYC99
KEYC10	EQU	*
	CWK	A2,/80 
	RF(L)	KEYC99 
	SUK	A2,/80 
	LC	A2,KBCVTB,A2
	XIF
KEYC99	RTN	A14
* 
	IFF	KB6272=1 
KBCVTB	EQU	*
* 
	DATA	/93A6,/A8AA,/A7AC,/83AB	/80-/87 
	DATA	/A98D,/8E8F,/7F7F,/7F7F	/88-/8F 
	DATA	/8BAE,/A594,/9596,/AF82	/90-/97 
	DATA	/8192,/7F7F,/7F7F,/7F7F	/98-/9F 
	DATA	/9190,/B5B3,/7F7F,/7F7F	/A0-/A7 
	DATA	/7F7F,/7F7F,/7F7F,/7F7F	/A8-/AF 
	DATA	/3031,/3233,/3435,/3637	/B0-/B7 
	DATA	/3839,/B27F,/7F7F,/7F7F	/B8-/BF 
	XIF
	END

Full view