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

⟦2b3a1b5a3⟧ 

    Length: 4678 (0x1246)
    Notes: pts_type(SC)
    Names: »TABORT.SC«

Derivation

└─⟦18bf30ff4⟧ Bits:30009692 Philips computer tape "600409"
    └─⟦this⟧ »BDKMON/TABORT.SC« 
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
    └─⟦this⟧ »BDKMON/TABORT.SC«

PTS(SC)

	IDENT  TABORT 	REL=7.2  DATE=77-09-09
			UPDATE   #0   77-09-09 
* 
************************************************* 
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   TABORT = ABORT I/O REQUEST
* 
* 
*   LEVEL     #2  77-09-09
* 
*   RELEASE   #7  77-09-09
* 
************************************************* 
* 
* 
*   THIS MODULE IS CALLED BY THE LKM HANDLER WITH THE FOLLOWING 
*   PARAMETERS:-
* 
*   A5 = TTAB-ADDRESS OF CALLING PROGRAM
* 
*   A8 = ECB-ADDRESS OF I/O REQUEST TO BE ABORTED 
* 
*   A PENDING I/O REQUEST IS ABORTED. 
*   THE ABORT REQUEST MUST BE DONE FROM THE SAME TASK 
*   THAT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN 
*   NOT BE ABORTED. 
	EJECT


	ENTRY	TABORT 


	EXTRN	FNDDWT	FIND DWT-ADDRESS
	EXTRN	DWTST	DWT STATUS 
	EXTRN	DWTTAB	TTAB-ADDRESS IN DWT 
	EXTRN	DWTWAT	WAIT ACTIVATE INDICATOR IN DWT
	EXTRN	TENDIO	END I/O 
	EXTRN	LKMQDI	QUEUE JOB AND DISPATCH
	EXTRN	LKMRQE	LKM REQUEST ERROR 
	EXTRN	FREBLK	FREE ONE BLOCK


DWTECH	EQU	/22	ECHO DEVICE DWT
	EJECT

* 
*	ABORT I/O REQUEST 
* 

TABORT	LDR*	A3,A8 
	RF(N)	TABOER	REQUEST ALREADY COMPLETED 

	CF	A15,FNDDWT	LOOK FOR DWT ADDRESS 
	LDR	A8,A6
	RF(Z)	TABOER	DWT UNKNOWN 

	CW	A5,DWTTAB,A6
	RF(NE)	TABOER	ILLEGAL TASK 

	LD	A7,DWTST,A6 
	RF(N)	TABOER	DEVICE NOT BUSY 

	LD	A4,DWTWAT,A6
	RF(Z)	TABO10	I/O NOT WAIT

	CF	A15,FREBLK	I/O AND ACTIVATION FREE DISP BLOCK 
	CM	DWTWAT,A6	SET NOT WAIT

TABO10	SLC	A7,2 
	RF(NN)	TABO20	NOT ECHO REQUEST 

	LD	A6,DWTECH,A6	GET ECHO DWT 
	CF	A15,TENDIO	ABORT ECHO DEVICE
	LDR	A6,A8	RESTORE DWT

TABO20	LDKL	A1,/C000	SET STATUS 
	CF	A15,TENDIO	AND ABORT
	ABL	LKMQDI	QUEUE TASK AND GO TO DISPATCHER 

TABOER	ABL	LKMRQE	GO AND INDICATE LKM ERROR 


	END

Full view