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

⟦6519f10fb⟧ 

    Length: 4410 (0x113a)
    Notes: pts_type(SC)
    Names: »CTAB01.SC«

Derivation

└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
    └─⟦this⟧ »UPDATE/CTAB01.SC«

PTS(SC)

	IDENT CTAB01	REL 11.0 DK 81-10-10 870150541100 

******************************************************* 
*                                                     * 
*        CTAB01       KEY-CONVERSION FOR KB6272       * 
*                           AND KB6234
*                                                     * 
******************************************************* 
	EJECT
******************************************************* 
*                                                     * 
*        ENTRY POINT                                  * 
*                                                     * 
******************************************************* 

	ENTRY	CTAB01 
	ENTRY	CTAB02	FOR T02	DK
	EJECT
*********************************************** 
* 
*	CONDITIONAL ASSEMBLY
* 
*********************************************** 
X:J	EQU	1	KB6272 IF:=1
KB6272	EQU	X:J
	EJECT
	IFT	KB6272=1 
CTAB02	EQU	*	FOR T02	DK 
CTAB01	DATA	UNSH,SHIFT,UNSH,SHIFT,0 
UNSH	EQU	*
	DATA	UNSH0,UNSH1,UNSH2,UNSH3,UNSH4,UNSH5,UNSH6,0 
SHIFT	EQU	* 
	DATA	SHIFT0,SHIFT1,SHIFT2,SHIFT3,SHIFT4,SHIFT5,SHIFT6,0

UNSH0	EQU	* 
	DATA	/BAB7,/B8B9,/B4B5,/B6B1,/B2B3,/BBBC,/A088,/898C 
UNSH1	EQU	* 
	DATA	/3031,/3233,/3435,/3637,/3839,/8F90,/A28B,/8A92 
UNSH2	EQU	* 
	DATA	/207F,/7F7F,/7F7F,/7F5D,/C993,/7F2D,/2C2F,/2E7F 
UNSH3	EQU	* 
	DATA	/3031,/3233,/3435,/3637,/3839,/8782,/5C80,/8183 
UNSH4	EQU	* 
	DATA	/5E61,/6263,/6465,/6667,/6869,/6A6B,/6C6D,/6E6F 
UNSH5	EQU	* 
	DATA	/7071,/7273,/7475,/7677,/7879,/7A3A,/3B40,/5B7F 
UNSH6	EQU	* 
	DATA	/8485,/86A6,/A7A8,/9F8D,/7F7F,/7F7F,/7F7F,/7F7F 
SHIFT0	EQU	*
	DATA	/C6C3,/C4C5,/C0C1,/C2BD,/BEBF,/C7C8,/A088,/898C 
SHIFT1	EQU	*
	DATA	/3031,/3233,/3435,/3637,/3839,/8F90,/A28B,/8A92 
SHIFT2	EQU	*
	DATA	/207F,/7F7F,/7F7F,/7F7D,/A1A3,/7F3D,/3C3F,/3E7F 
SHIFT3	EQU	*
	DATA	/5F21,/2223,/2425,/2627,/2829,/8782,/7C80,/8183 
SHIFT4	EQU	*
	DATA	/7E41,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F 
SHIFT5	EQU	*
	DATA	/5051,/5253,/5455,/5657,/5859,/5A2A,/2B60,/7B7F 
SHIFT6	EQU	*
	DATA	/8485,/86A6,/A7A8,/A48E,/7F7F,/7F7F,/7F7F,/7F7F 
	XIF
	EJECT
	IFF	KB6272=1 
CTAB01	DATA	UNSH,0,0,0,SPEC 
UNSH	EQU	*
	DATA	0,0,0,0,0,0,0,UNSH7 
SPEC	EQU	*
	DATA	SPEC0,SPEC1,SPEC2,SPEC3,SPEC4,SPEC5,SPEC6,SPEC7 
UNSH7	EQU	* 
	DATA	/7071,/7273,/7475,/7677 
	DATA	/7879,/7A5B,/5C5D,/7E7F 
SPEC0	EQU	* 
	DATA	/B783,/8184,/8086,/A885 
	DATA	/82B1,/B2B3,/7F7F,/7F7F 
SPEC1	EQU	* 
	DATA	/A289,/A0B8,/B9BA,/88A7 
	DATA	/A6B6,/7F7F,/7F7F,/7F7F 
SPEC2	EQU	* 
	DATA	/B5B4,/9280,/7F75,/7F7F 
	DATA	/7F7F,/7F7F,/7F7F,/7F7F 
SPEC3	EQU	* 
	DATA	/3031,/3233,/3435,/3637 
	DATA	/3839,/8C7F,/7F7F,/7F7F 
SPEC4	EQU	* 
	DATA	/B783,/8184,/8086,/A885 
	DATA	/82B1,/B2B3,/7F7F,/7F7F 
SPEC5	EQU	* 
	DATA	/A289,/A0B8,/B9BA,/88A7 
	DATA	/A6B6,/7F7F,/7F7F,/7F7F 
SPEC6	EQU	* 
	DATA	/B5B4,/928D,/7F7F,/7F7F 
	DATA	/7F7F,/7F7F,/7F7F,/7F7F 
SPEC7	EQU	* 
	DATA	/3031,/3233,/3435,/3637 
	DATA	/3839,/8C7F,/7F7F,/7F7F 
	XIF

	END

Full view