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

⟦103aa399a⟧ 

    Length: 4646 (0x1226)
    Notes: pts_type(SC)
    Names: »DC82.SC«, »DCTSK.SC«

Derivation

└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
    └─⟦this⟧ »NJ-AMT/DCTSK.SC« 
└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
    └─⟦this⟧ »NJREMIT/DC82.SC« 
└─⟦9ad21746d⟧ Bits:30009682 Philips computer tape "600304"
    └─⟦this⟧ »NJ-AMT/DCTSK.SC« 
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
    └─⟦this⟧ »REMIT2/DC82.SC« 
    └─⟦this⟧ »REMIT2/DC82.SC« 
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
    └─⟦this⟧ »NJ-AMT/DCTSK.SC« 
└─⟦f445cacdf⟧ Bits:30009666 Philips computer tape "600111"
    └─⟦this⟧ »NJ-AMT/DCTSK.SC«

PTS(SC)

	IDENT	DCTSK	REL 1.2 78-11-30 KST 
	ENTRY DCTSK
	EJECT


**********************************************************
* 
*   CONDITIONAL ASSEMBLY
* 
********************************* 


KB6234	EQU	1
OFLIN	EQU	0	SHOULD ALWAYS BE SET TO ZERO
MZERO	EQU	0 
RDBUF	EQU	0 
PFX	EQU	0 
PAX	EQU	0 
MGTP	EQU	0
EBCDIC	EQU	1
	EJECT
* 
* 
*     EQUATES 
* 
* 
* 
*	COMMON EQU FOR ECB HANDLING 
* 

ECBBA	EQU	2 
ECBRL	EQU	4 
ECBEL	EQU	6 
ECBRC	EQU	8 
ECBCW	EQU	10
* 
* 
*	CREDIT USED EQU 
* 
* 
*	ECB REL. ADDRESSES
* 
* 
DIS	EQU	20
* 
ECB1	EQU	-DIS-8 
ECB2	EQU	ECB1-DIS 
ECB3	EQU	ECB2-DIS 
ECB4	EQU	ECB3-DIS 
ECB5	EQU	ECB4-DIS 
* 
ECBDC	EQU	ECB1
ECBDCT	EQU	ECB2 
ECBVDU	EQU	ECB3 
ECBKB	EQU	ECB4
ECBSD	EQU	ECB5
ECBPR	EQU	ECB3
* 
* 
*	BASE ADDRESS FOR TCA AND ECB
* 
TCABAS	EQU	A11
CREBAS	EQU	A13	ECB
* 
* 
*	TCA REL. ADDRESSES
* 
TCT01	EQU	0 
PRINTER	EQU	TCT01+2 
BVDU	EQU	PRINTER+2	VDU SCREEN BUFFER
PCURS	EQU	BVDU+1920	CURSOR ADDRESS , BINARY 
ATTRIB	EQU	PCURS+2	LAST ATTRIBUTE CHAR
CURATT	EQU	ATTRIB+2 
WCC	EQU	CURATT+2	WCC/CCC CHARACTER
KBINH	EQU	WCC+2	KEYBOARD INHIBIT INDICATOR
LINCNT	EQU	KBINH+2	LINE COUNTER 
DCLENG	EQU	LINCNT+2	DC READ EFFECTIVE LENGTH
DCADDR	EQU	DCLENG+2	DC SUBTERMINAL ADDRESS
TCTGPL	EQU	DCADDR+2 
INTATT	EQU	TCTGPL+2	INTENSITY ATTRIBUTE 
OFFFLG	EQU	INTATT+2	OFFLINE FLAG
LOCK	EQU	OFFFLG+2	COPY LOCK 
VDUBSY	EQU	LOCK+2	LOCK VDU WHEN HARDCOPY
COPNO	EQU	VDUBSY+2	HARDCOPY TASK IDENTITY 
CRE	EQU	COPNO+2	CREDIT ECB:S BASE ADDRESS 
VDUT.A	EQU	CRE+2	T:A BASE ADDRESS 
CCC	EQU	VDUT.A+2	COPY COMMAND CHARACTER 
	EJECT
* 
* 
LBVDU	EQU	1920	1920 CHAR DISPLAY	6344 
LPAGE	EQU	48	LINES ON ONE PAGE
LLINE	EQU	80	80 CHAR PER DISPLAY LINE 
* 
	IFT	EBCDIC=1 
TCADDR	EQU	/6040	TCS & TCP EBCDIC 
	XIF
	IFF	EBCDIC=1 
TCADDR	EQU	/2D20	TCS & TCP  ASCII 
	XIF
	EJECT
* 
* 
*	DC TASK 
* 
* 
DCTSK	EQU	* 
	LDKL	A1,TCADDR 
	LDKL	A8,ECBDCX	ECB DC FOR DC TASK
	ST	A1,ECBCW,A8 
	LDK	A7,/B7	TRANSFER PARAMETERS 
	LKM
	DATA	1 
DCT100	LDK	A7,/82	READ FROM DC TASK 
	LKM
	DATA	1 
	LD	A1,ECBRC,A8	GET RETURN CODE 
	ANKL	A1,/2000
	RB(NZ)	DCT100	STATUS CHANGE
	LDK	A7,/A2	MESSAGE: RELEASE READ BUFFER
	LKM
	DATA	1 
	RB	DCT100
* 
* 
ECBDCX	DATA	/60,0,0,0,0,0 
	END

Full view