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

⟦6c0ac11ce⟧ 

    Length: 4794 (0x12ba)
    Notes: pts_type(SC)
    Names: »TB3270.SC«

Derivation

└─⟦9ad21746d⟧ Bits:30009682 Philips computer tape "600304"
    └─⟦this⟧ »NJ-AMT/TB3270.SC« 
└─⟦f445cacdf⟧ Bits:30009666 Philips computer tape "600111"
    └─⟦this⟧ »NJ-AMT/TB3270.SC«

PTS(SC)

	IDENT TB3270  	2.1DK 1 79-05-23 870150540210 
*****    SPECIAL SCANDINAVIAN ALPHABET    ******
******************************************************************
* 
*    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 
* 
*     SPECIAL SCANDINAVIAN ALPHABET 
TASCII	EQU	*		DB
	DATA	/2041,/4243,/4445,/4647	/00-/07 
	DATA	/4849,/232E,/3C28,/2B21	/08-/0F 
	DATA	/264A,/4B4C,/4D4E,/4F50	/10-/17 
	DATA	/5152,/245D,/2A29,/3B5E	/18-/1F 
	DATA	/2D2F,/5354,/5556,/5758	/20-/27 
	DATA	/595A,/402C,/255F,/3E3F	/28-/2F 
	DATA	/3031,/3233,/3435,/3637	/30-37
	DATA	/3839,/3A5B,/5C27,/3D22	/38-3F
				DE
	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
*     SPECIAL SCANDINAVIAN ALPHABET                               DB
	DATA	/404F,/7F4A,/5A6C,/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	/6AC1,/C2C3,/C4C5,/C6C7	40-47 
	DATA	/C8C9,/D1D2,/D3D4,/D5D6	48-4F 
	DATA	/D7D8,/D9E2,/E3E4,/E5E6	50-57 
	DATA	/E7E8,/E97B,/7C5B,/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,/A900,/0000,/0000	78-7F 
				DE
	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 
				DB
	CWK	A2,/C0		DK 
	RF(L)	KEYC50		DK 
	LDK	A2,/7F	KEYSWITCH 2 (C0-FF)	DK
	RF	KEYC99		DK
KEYC50	EQU	*		DK
				DE
	SUK	A2,/80 
	LC	A2,KBCVTB,A2
	XIF
KEYC99	RTN	A14
* 
	IFF	KB6272=1 
KBCVTB	EQU	*
* 
				DB
	DATA	/B0A6,/7F80,/7FAC,/B5A7	/80-/87 
	DATA	/A87F,/A98C,/7F7F,/7F7F	/88-/8F 
	DATA	/ABB2,/AAB1,/7F8B,/AEAD	/90-/97 
	DATA	/AFB6,/7F7F,/7F7F,/7F7F	/98-/9F 
	DATA	/7F7F,/B3A5,/7F7F,/7F7F	/A0-/A7 
	DATA	/7F7F,/7F7F,/7F7F,/7F7F	/A8-/AF 
	DATA	/3031,/3233,/3435,/3637	/B0-/B7 
	DATA	/3839,/BA7F,/7F7F,/7F7F	/B8-/BF 
				DE
	XIF
	END

Full view