DataMuseum.dk

top - metrics - download

    Length: 4388 (0x1124)
    Notes: pts_type(SC)
    Names: »ULAY.SC«

└─⟦2a21e4bb5⟧ Bits:30009691 Philips computer tape "600408"
    └─⟦this⟧ »BDKAPP/ULAY.SC« 

PTS(SC)

	IDENT ULAY 	CONPAC REL=0.0 DATE= 77.10.12
*************************************************************** 
* 
*	U S E R  MODULE OF CONCENTRATOR APPLICATION  PEAB-T 
* 
*	PROGRAMMER:  JES
* 
* 
*	U L A Y 
* 
* 
*   * 
*   THIS MODULE CONTAINES FORMAT TABLES AND LAYOUTS FOR 
*   INPUTS FROM OPERATORS TERMINAL (AND CC).
*   IF THE INPUT IS RECOGNIZED THE TABLE (K:UFUN) WITH
*   ADDRESSES TO MODULES TO BE CALLED IS ALSO FOUND 
*   IN THIS MODULE
*   * 
*   TRANSACTION FORMAT TABLE, LAYOUTS AND TRANSACTION 
*   HANDLER MODULE TABLE ARE INCLUDED 
*   * 
* 
* 
*	
* 
****************************************************************
	EJECT
* 
* 
*	ENTRY ADDRESSES 
* 
*************************************************************** 
* 
*		ENTRY	DESCRIPTION
* 
	ENTRY	K:FTU	FORTAB FOR USER APPL 
	ENTRY	K:UFUN	MODULE ADDRESS TABLE
	ENTRY	TRTAB	FORTAB FOR TRANS INPUT 
	ENTRY	TRFUN	TRANS HANDLER MODULE TABLE 
	EJECT
* 
* 
*      EXTERNAL REFERENCES
* 
*************************************************************** 
* 
* 
	EXTRN	USAR	UCOM
	EJECT		IDENT ULAY
* 
*	EQUATES 
* 
* 
MAND	EQU	/00	MANDATORY CHARACTERS 
SKIP	EQU	/01	NOT   "
SELECT	EQU	/02	SELECT STRING
OR	EQU	/05	STRING DELIMITER 
END	EQU	/FF	END OF LAYOUT 
DEC	EQU	/10	DECIMAL CHARACTER 
HEX	EQU	/11	HEXADEC     " 
ALPHN	EQU	/12	ALPHANUMERIC CHARACTER
ALPHA	EQU	/13	ALPHABETIC       "
ASCII	EQU	/14	ASCII COLUMN 2-7
* 
A	EQU	'A' 
B	EQU	'B' 
C	EQU	'C' 
D	EQU	'D' 
E	EQU	'E' 
F	EQU	'F' 
G	EQU	'G' 
H	EQU	'H' 
I	EQU	'I' 
J	EQU	'J' 
K	EQU	'K' 
L	EQU	'L' 
M	EQU	'M' 
N	EQU	'N' 
O	EQU	'O' 
Q	EQU	'Q' 
R	EQU	'R' 
S	EQU	'S' 
T	EQU	'T' 
U	EQU	'U' 
V	EQU	'V' 
W	EQU	'W' 
X	EQU	'X' 
Z	EQU	'Z' 
* 
POINT	EQU	'.' 
SPACE	EQU	' ' 
COMMA	EQU	',' 
* 

* 
* 
BYTE	FORM	8,8 
* 
	EJECT
*************************************************************** 
*   FORMAT TABLE FOR USER APPLICATION COMMANDS
*************************************************************** 
* 
K:FTU	DATA	FTUE-* 
	DATA	ULAY01	AR  **FOR TEST ONLY**
FTUE	EQU	*-2
*************************************************************** 
*   FUNCTION ADDRESS TABLE
* 
K:UFUN	DATA	UFUNE-* 
	DATA	USAR	AR  **FOR TEST ONLY**
UFUNE	EQU	*-2 
	EJECT
*************************************************************** 
*   LAYOUTS 
*************************************************************** 
ULAY01	EQU	*
	BYTE	MAND,A	AR  **FOR TEST ONLY**
	BYTE	R,END 
ULAY02	EQU	*
ULAY03	EQU	*
	EJECT
**********************************************************
*   FORMAT TABLE FOR TRANSACTIONS FROM TC'S 
**********************************************************
TRTAB	DATA	TRTABE-* 
TRTABE	EQU	*-2
**********************************************************
*   TRANSACTION HANDLING MODULE TABLE 
**********************************************************
TRFUN	DATA	TRFUNE-* 
TRFUNE	EQU	*-2
	EJECT
**********************************************************
*   TRANSACTION LAYOUTS 
**********************************************************
TR1	EQU	* 
TR2	EQU	* 
TR3	EQU	* 
	END