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

⟦489b02b16⟧

    Length: 7668 (0x1df4)
    Notes: pts_type(SC)
    Names: »CONVER.SC«

Derivation

└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
    └─⟦this⟧ »PT3272/CONVER.SC« 
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
    └─⟦this⟧ »MODIFY/CONVER.SC« 
    └─⟦this⟧ »PT3272/CONVER.SC« 

PTS(SC)

	IDENT CONVER	REL 11.0 DK82-04-01 870150541100

**************** SCANDINAVIAN ALPHABET******************
			DK CORRECTED CONATT
****************************************************************
*                                                              *
*        CONVER       TABLES TO CONVETE :                      *
*                     EBCDIC-ASCII                             *
*                     ASCII-EBCDIC                             *
*                     ATTRIBUTES,BUFFER ADDRESSES              *
*                     PF-KEYS                                  *
*                     ORDER CODES                              *
*                                                              *
****************************************************************
	EJECT
****************************************************************
*                                                              *
*        ENTRY POINTS                                          *
*                                                              *
****************************************************************

	ENTRY	CONASC 
	ENTRY	CONEBC 
	ENTRY	CONATT 
	ENTRY	CONADR 
	ENTRY	CONPF
	ENTRY	CONORD 
	EJECT
***************************************************************** 
*                                                               * 
*        CONASC       CONVERT  EBCDIC-ASCII                     * 
*                                                               * 
***************************************************************** 
CONASC	EQU	*
	DATA	/0001,/0203,/0009,/0000	00-07 
	DATA	/0000,/000B,/0C0D,/0E0F	08-0F 
	DATA	/1011,/1213,/000A,/0800	10-17 
	DATA	/0019,/0000,/1C1D,/1E1F	18-1F 
	DATA	/0000,/1C00,/000A,/171B	20-27 
	DATA	/0000,/0000,/0005,/0607	28-2F 
	DATA	/0031,/1600,/001E,/0004	30-37 
	DATA	/0000,/0000,/1415,/001A	38-3F 
	DATA	/2041,/4243,/4445,/4647	40-47 
	DATA	/4849,/242E,/3C28,/2B7C	48-4F 
	DATA	/264A,/4B4C,/4D4E,/4F50	50-57 
	DATA	/5152,/215D,/2A29,/3B5E	58-5F 
	DATA	/2D2F,/5354,/5556,/5758	60-67 
	DATA	/595A,/7D2C,/255F,/3E3F	68-6F 
	DATA	/1831,/3233,/3435,/3637	70-77 
	DATA	/3860,/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	/7B41,/4243,/4445,/4647	C0-C7 
	DATA	/4849,/5B2E,/3C28,/2B21	C8-CF 
	DATA	/7D4A,/4B4C,/4D4E,/4F50	D0-D7 
	DATA	/5152,/5D24,/2A29,/3B5E	D8-DF 
	DATA	/5C2F,/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 
	EJECT
******************************************************************* 
*                                                                 * 
*        CONEBC       CONVERT  ASCII-EBCDIC                       * 
*                                                                 * 
******************************************************************* 
CONEBC	EQU	*
	DATA	/0001,/0203,/372D,/2E2F	00-07 
	DATA	/1605,/150B,/0C0D,/0E0F	08-0F 
	DATA	/1011,/124F,/3C3D,/3226	10-17 
	DATA	/7019,/3F27,/1C1D,/1E1F	18-1F 
	DATA	/405A,/7F7B,/4A6C,/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,/E97B,/E05B,/5F6D	58-5F 
	DATA	/7981,/8283,/8485,/8687	60-67 
	DATA	/8889,/9192,/9394,/9596	68-6F 
	DATA	/9798,/99A2,/A3A4,/A5A6	70-77 
	DATA	/A7A8,/A9C0,/4FD0,/5A4A	78-7F 
	EJECT
*************************************************************** 
*                                                             * 
*        CONATT       CONVERT  ATTRIBUTE AND ADDRESSES        * 
*                                                             * 
*************************************************************** 
CONATT	EQU	*
	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,/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,/A91C,/0000,/0000	78-7F 
	EJECT
************************************************************* 
*                                                           * 
*       CONADR       CONVERT  ADDRESSES TO ASCII            * 
*                                                           * 
************************************************************* 
CONADR	EQU	*
	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 
	EJECT
****************************************************************
*                                                              *
*	CONPF       CONVERT PF-KEYS TO AID-CODE IN ASCII
*                                                              *
*************************************************************** 
CONPF	EQU	* 
	DATA	/3132,/3334,/3536,/3738,/393A,/235C	PF1-12
	DATA	/4142,/4344,/4546,/4748,/497F,/2E3C	PF13-24 
	EJECT
******************************************************************
*                                                                *
*        CONORD       CONVERT  ORDER CODES TO INDEX              *
*                                                                *
******************************************************************
CONORD	EQU	*
	DATA	/1000,/0000,/0000,/0000	00-07 
	DATA	/0008,/1200,/1418,/0000	08-0F 
	DATA	/0004,/0C06,/0A00,/0000	10-17 
	DATA	/0016,/000E,/0002,/0000	18-1F 
	END

Full view