DataMuseum.dk

top - metrics - download

    Length: 7784 (0x1e68)
    Notes: pts_type(SC)
    Names: »CTAB01.SC«

└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
    └─⟦this⟧ »DEMO/CTAB01.SC« 
    └─⟦this⟧ »MONGEN/CTAB01.SC« 
    └─⟦this⟧ »PTSDEMO/CTAB01.SC« 

PTS(SC)

	IDENT	CTAB01	CONVERSION TABLE DEMO 6800 REL 11.0 



	ENTRY	CTAB01 
	ENTRY	CTAB02 
	ENTRY	CTAB03 
	ENTRY	CTAB04 



* 
* THIS IS THE KEY-CODE CONVERSION TABLE FOR THE PTS 6800
* DEMONSTRATION PACKAGE.
* 
* THE WAY THE TABLE IS BUILT IS LIKE THIS : 
*    P.E. THE KEY X'30' UNSHIFT IS DEPRESSED. 
*    THEN IN THE "UNSHIFT" TABLE, THE FIRST DIGIT OF THE KEY-CODE,
*    SO "3" IS TAKEN AS A DISPLACEMENT. WITH DISPLACEMENT 3 WE FIND 
*    A POINTER, CALLED "UNSH3". THIS POINTS TO ANOTHER TABLE, CALLED
*    "UNSH3". THEN WE TAKE THE SECOND DIGIT OF OUR KEY-CODE '30', SO
*    "0", AND TAKE THIS AS A DISPLACEMENT IN THE TABLE "UNSH3". THERE WE
*    FIND THE HEXADECIMAL VALUE GENERATED BY THE KEY-CODE '30'. THIS
*    APPEARS TO BE '30'.
* 
	EJECT
CTAB01	EQU	*
CTAB02	EQU	*
CTAB03	EQU	*
CTAB04	EQU	*
	DATA	UNSHFT
	DATA	SHIFT 
	DATA	CTRL
	DATA	CTRLSH
	DATA	SPECI 
	EJECT
* 
* COLUMN TABLE FOR UNSHIFTED AND CONTROL KEYS 
* 
CTRL	EQU	*
UNSHFT	EQU	*
	DATA	FUNCT0	FUNCTION CLUSTER,KEYS STARTING WITH 0
	DATA	FUNCT1	  "        "      "     "       "   1
	DATA	UNSH2	ALPHANUMERIC PART,"     "       "   2 
	DATA	UNSH3	  "           "   "     "       "   3 
	DATA	UNSH4	  "           "   "     "       "   4 
	DATA	UNSH5	  "           "   "     "       "   5 
	DATA	FUNCT6	FUNCTION CLUSTER, "     "       "   6
* 
* COLUMN TABLE FOR SHIFTED KEYS, AND FOR CONTROL-SHIFTED KEYS 
* 
CTRLSH	EQU	*
SHIFT	EQU	* 
	DATA	FUNCT0
	DATA	FUNCT1
	DATA	SHIFT2
	DATA	SHIFT3
	DATA	SHIFT4
	DATA	SHIFT5
	DATA	FUNCT6
* 
* COLUMN TABLE FOR SPECIAL KEYS (ONLY USED FOR 6234 KEYBOARDS)
* 
SPECI	EQU	* 
	DATA	0,0,0,0,0,0,0	NOT USED
	EJECT
* 
* CHARACTER TABLE FOR FUNCTION KEYS STARTING WITH 0 
* 
FUNCT0	EQU	*
	DATA	/AB83 
	DATA	/878B 
	DATA	/8188 
	DATA	/8A84 
	DATA	/8289 
	DATA	/8586 
	DATA	/9297 
	DATA	/98A3 
* 
* CHARACTER TABLE FOR FUNCTION KEYS STARTING WITH 1 
* 
FUNCT1	EQU	*
	DATA	/3031 
	DATA	/3233 
	DATA	/3435 
	DATA	/3637 
	DATA	/3839 
	DATA	/1A1B 
	DATA	/9096 
	DATA	/91A2 
* 
* CHARACTER TABLE FOR UNSHIFTED CHARACTERS STARTING WITH 2
* 
UNSH2	EQU	* 
	DATA	/20FF 
	DATA	/FFFF 
	DATA	/FFFF 
	DATA	/FF60 
	DATA	/3D3D 
	DATA	/FF40 
	DATA	/2C2D 
	DATA	/2EFF 
* 
* CHARACTER TABLE FOR SHIFTED CHARACTERS STARTING WITH 2
* 
SHIFT2	EQU	*
	DATA	/20FF 
	DATA	/FFFF 
	DATA	/FFFF 
	DATA	/FF7E 
	DATA	/3D3D 
	DATA	/FF3F 
	DATA	/3B5F 
	DATA	/3AFF 
* 
* CHARACTER TABLE FOR UNSHIFTED CHARACTERS STARTING WITH 3
* 
UNSH3	EQU	* 
	DATA	/3031 
	DATA	/3233 
	DATA	/3435 
	DATA	/3637 
	DATA	/3839 
	DATA	/903B 
	DATA	/3C3D 
	DATA	/3E3F 
* 
* CHARACTER TABLE FOR SHIFTED CHARACTERS STARTING WITH 3
SHIFT3	EQU	*
	DATA	/3D21 
	DATA	/2223 
	DATA	/2425 
	DATA	/262F 
	DATA	/2829 
	DATA	/903B 
	DATA	/3C3D 
	DATA	/3E3F 
* 
* CHARACTERS TABLE FOR UNSHIFTED CHARACTERS STARTING WITH 4 
* 
UNSH4	EQU	* 
	DATA	/2741 
	DATA	/4243 
	DATA	/4445 
	DATA	/4647 
	DATA	/4849 
	DATA	/4A4B 
	DATA	/4C4D 
	DATA	/4E4F 
* 
* CHARACTER TABLE FOR SHIFTED CHARACTERS STARTING WITH 4
* 
SHIFT4	EQU	*
	DATA	/5E41 
	DATA	/4243 
	DATA	/4445 
	DATA	/4647 
	DATA	/4849 
	DATA	/4A4B 
	DATA	/4C4D 
	DATA	/4E4F 
* 
* CHARACTER TABLE FOR UNSHIFTED CHARACTERS STARTING WITH 5
* 
UNSH5	EQU	* 
	DATA	/5051 
	DATA	/5253 
	DATA	/5455 
	DATA	/5657 
	DATA	/5859 
	DATA	/5A5B 
	DATA	/5C5D 
	DATA	/2BFF 
* 
* CHARACTER TABLE FOR SHIFTED CHARACTERS STARTING WITH 5
* 
SHIFT5	EQU	*
	DATA	/5051 
	DATA	/5253 
	DATA	/5455 
	DATA	/5657 
	DATA	/5859 
	DATA	/5A7B 
	DATA	/7C7D 
	DATA	/2AFF 
* 
* 
* CHARACTER TABLE FOR FUNCTION KEYS STARTING WITH 6 
* 
FUNCT6	EQU	*
	DATA	/A1A0 
	DATA	/9980 
	DATA	/9394 
	DATA	/959A 
	DATA	0 
	DATA	0 
	DATA	0 
	DATA	0 
	END