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

⟦9631438eb⟧ 

    Length: 4538 (0x11ba)
    Notes: pts_type(SC)
    Names: »LOGARE.SC«

Derivation

└─⟦fce1dcf99⟧ Bits:30009704 Philips computer tape "KMD15"
    └─⟦this⟧ »LINSPY/LOGARE.SC«

PTS(SC)

	IDENT LOGARE	REL 1.1 78-04-21  870150140110
* 
* 
*	LINE LOG TOOL 
* 
*	COMMON WORK AREAS 
* 
* 
* 
*	ENTRY POINTS
* 
* 
	ENTRY	MOL	OWN LINE MESSAGES
	ENTRY	MBL	BEGIN OF LINE MESSAGES 
	ENTRY	TAB1	CHAR TABLE 1
	ENTRY	TAB2	CHAR TABLE 2
	ENTRY	TEXT1
	ENTRY	TEXT2
	ENTRY	TEXT3
	ENTRY	TEXT4
	ENTRY	TEXT5
	ENTRY	TEXT6
	ENTRY	PATT1
	ENTRY	PATT2
	ENTRY	PRPOOL	PRINTER OCCUPIED BUFFER POOL
	EJECT
* 
* 
*	TABLE 1 
* 
*	TABLE OF VALID CHAR TO BE TRANSLATED TO TEXTS 
* 
* 
* 
TAB1	DATA	TAB1E-*	LENGTH
	DATA	/25,TLF 
	DATA	/0D,TCR 
	DATA	/01,TSOH
	DATA	/02,TSTX
	DATA	/03,TETX
	DATA	/37,TEOT
	DATA	/2D,TENQ
	DATA	/2E,TACK
	DATA	/10,TDLE
	DATA	/3D,TNAK
	DATA	/32,TSYN
	DATA	/26,TETB
TAB1E	EQU	* 
	EJECT
* 
* 
*	TABLE 2 
* 
*	TABLE OF VALID CHARACTERS TO BE TRANSLATED BY TEXTS 
* 
* 
TAB2	DATA	TAB2E-*	LENGTH
	DATA	/8A,TLF 
	DATA	/0D,TCR 
	DATA	/01,TSOH
	DATA	/02,TSTX
	DATA	/83,TETX
	DATA	/04,TEOT
	DATA	/85,TENQ
	DATA	/86,TACK
	DATA	/10,TDLE
	DATA	/15,TNAK
	DATA	/16,TSYN
	DATA	/97,TETB
TAB2E	EQU	* 
	EJECT
* 
* 
*	BUFFER POOL FOR OCCUPATION OF PRINTER 
* 
* 
PRPOOL	DATA	*+4,2 
	DATA	*+4,/B,0,/B,0 
	EJECT
* 
* 
*	TEXTS CORRESPONDING TO TABLE 2
* 
* 
TLF	DATA	2,'LF' 
TCR	DATA	2,'CR' 
TSOH	DATA	3,'SOH' 
TSTX	DATA	3,'STX' 
TETX	DATA	3,'ETX' 
TEOT	DATA	3,'EOT' 
TENQ	DATA	3,'ENQ' 
TACK	DATA	3,'ACK' 
TDLE	DATA	3,'DLE' 
TNAK	DATA	3,'NAK' 
TSYN	DATA	3,'SYN' 
TETB	DATA	3,'ETB' 
	EJECT
* 
* 
*	MESSAGES TO BE PRINTED ON OWN LINE
* 
* 
MOL	DATA	MOL0,MOL1,MOL2,MOL3,MOL4 
MOL0	DATA	19,'*** BUFFER FULL ***'
MOL1	DATA	20,'*** BUFFER RESET ***' 
MOL2	DATA	26,'*** LOGFUNCTION OPENED ***' 
MOL3	DATA	26,'*** RESTART RECEIVER 1 ***' 
MOL4	DATA	26,'*** RESTART RECEIVER 2 ***' 
	EJECT
* 
* 
*	MESSAGES TO BE IN BEGINNING OF LINE 
* 
* 
MBL	DATA	MBL0,MBL1,MBL2,MBL3
MBL0	DATA	3,'C1:' 
MBL1	DATA	3,'C2:' 
MBL2	DATA	3,'*S*' 
MBL3	DATA	3,'*P*' 
	EJECT
* 
* 
*	MESSAGES FOR LOG CONTROL FUNCTION 
* 
* 
TEXT1	DATA	33,'ENTER A FOR ASCII OR'
	DATA	' E FOR EBCDIC' 
TEXT2	DATA	26,'*** LOGFUNCTION CLOSED ***'
TEXT3	DATA	36,'ENTER POLL-PATTERN,MAX 10' 
	DATA	'CHARACTERS'
TEXT4	DATA	41,'ENTER RESPONSE-PATTERN,' 
	DATA	'MAX 10 CHARACTERS' 
TEXT5	DATA	26,'*** LOGFUNCTION OPENED ***'
TEXT6	DATA	40,'ENTER B FOR BSC OR O'
	DATA	' FOR OTHER PROCEDURE'
	EJECT
* 
* 
*	PATTERN AREAS 
* 
* 
PATT1	DATA	0
	RES	5
PATT2	DATA	0
	RES	5
	END

Full view