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

⟦21f075d1c⟧ 

    Length: 7954 (0x1f12)
    Notes: pts_type(UF)
    Names: »CR1505.UF«

Derivation

└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
    └─⟦this⟧ »DRDC15/CR1505.UF«

PTS(SC)

LED XXXX15
!!RE 0,$$01-26$$09-09$$ 
!!IL 1
			=17, RETURN CODE AT CONNECT
			=16, DLOBUF DESTROYED AT CONNECT 
			=15, NO NEED TO RES 1 WORD BEFORE DATA 
			=14, LOSS OF DRIVER RECEIVE BUFFER 
			REL 11.0 81-05-21
			=13, ERRONEOUS DISCARD DWT HANDLING
			=12, SUB-ADDR IN CW2 AT RECEIVE REQ COMPL
			REL 11.0 81-05-12
			=11, PROCEDURE TIMER PROBLEM 
			=10, EOT ON SPECIFIC POLL
			=9, REMAINING TIME IN ECBCW1 
			REL 11.0 81-04-12
			=8, ODD USER BUFFER ADDRESS
			=7, BINARY STORE PROBLEM 
			REL 11.0 81-04-07
			=6, ERROR IN POLL TIMER HANDLING 
			=5, WRONG STATISTIC HANDLING 
			REL 11.0 81-03-27
			=4, ERROR IN POWER UP
			=3, DELETE INSTRUCTIONS NOT USED 
			=2, CHANGES IN STATUS HANLING
			=1, ERROR IN OPEN/CLOSE REQUESTS 
			REL 11.0 81-01-26
!!DL 139
				=2

REMTIM	EQU	0		=9
			IF = 1 THE REMAINING TIME UNTIL TIMEOUT	=9 
			IS DELIVERED IN ECBCW1 AT COMPLETION 	=9 
			OF SEND AND RECEIVE REQUESTS	=9
!!DL 417
TYPRR	EQU	/4343	RESET STATISTICS AFTER READ	=5
!!DL 720
				=1
!!DL 784,785
				=1
!!DL 788
				=1
	RF(Z)	RQCL92	REQUEST ALREADY COMPLETED	=1
	LDK	A1,0	RC=0	=1 
	CF	A15,TENDIO	COMPLETE CLOSE REQUEST	=1
RQCL92	EQU	*		=1
	IFT	P6805=0		=1
	LDKL	A5,STB		=1
	CF	A5,CHALTI	HALT I/P DEVICE	=1
	CF	A5,CHALTO	HALT O/P DEVICE	=1
	LDK	A2,0		=1 
	CIO	A2,1,LCUIN	DISCONNECT MODEM	=1 
	XIF			=1 
	IFT	P6805=1		=1
	LDK	A2,1	DISCONNECT ORDER	=1 
	CIO	A2,0,LCUIN	DISCONNECT MODEM	=1 
	XIF			=1 
	CMR	A7	REMOVE NETWORK ADDRESS	=1 
	CM	DTESTA,A7	CLEAR STATUS	=1 
	LD	A1,DCTPGP	POLL TIMER RUNNING ?	=6 
	RF(Z)	RQCL94	NO	=6 
	CM*	DCTPGP	KILL TIMER	=6 
	CM	DCTPGP	CLEAR POINTER	=6 
RQCL94	EQU	*		=6
	CM	DTEDLS,A7	INDICATE DATA LINK DOWN	=6
	ABL	TDISP		=1
!!RE 799,$$LEFT$$RIGHT$$
!!DL 819
	ABL(Z)	RTOK	ALREADY CONNECTED	=17
	IFT	MESPAS=1		=13
	LDK	A2,/40	OPTION CODE	=13 
	CC	A2,DWTOPT,A6	DISCARD DWT ?	=13
	RF(NE)	RQCN10	NO	=13 
	CM	DWTCHP,A6	INDICATE DISCARD DWT	=13
	LD	A1,DTEDDT,A7	POINTER TO DISCARD DWT	=13 
	RF(NZ)	RQCN50	MORE THAN ONE DISC. DWT ?	=13
	ST	A6,DTEDDT,A7	SAVE POINTER TO TO DISCARD DWT	=13 
	RF	RQCN60		=13 
RQCN10	EQU	*		=13 
	XIF			=13
!!DL 821
	LDKL	A4,SUBBUF	MMU BUFFER ADDRESS	=16
!!DL 843
	LC	A2,1,A4	GET SYMBOLIC ADDRESS	=8 
!!DL 865,873
				=13 
!!DL 891,896
				=13 
!!IL 897
	LD	A1,DWTCHP,A6	DISCARD DWT ?	=13
	RF(Z)	RQCN65	YES, DO NOT SEND DE	=13 
!!IL 900
RQCN65	EQU	*		=13 
!!DL 906
	RF(NZ)	RQCN70	TIMER ALREADY STARTED	=6 
!!DL 1040,1041
	ANK	A1,/B	WACK SENT, DB OR IR ?	=2 
	RF(Z)	RQST90	NO	=2 
!!IL 1180 
	IFT	REMTIM=1		=9 
	LD	A1,DWTRTV,A6	GET REQUESTED TIMEOUT VALUE	=9 
	ST	A1,ECBCW1,A8	STORE IN CONTROL WORD 1	=9 
	XIF			=9 
!!DL 1330 
	IFT	REMTIM=1		=9 
	LDR*	A2,A2		=9 
	NGR	A2,A2	GET REMAINING TIME	=9
	XIF			=9 
	CM*	DWTRTP,A6	KILL TIMER	=9
!!DL 1332,1333
				=3
!!DL 1598 
				=1
	LDKL	A5,STB		=1
	CF	A5,CSYNCI	CONNECT MODEM	=1
	CF	A5,CHALTI	NO INTERRUPTS ALLOWED	=1
	ABL	TDISP	=1 
!!DL 1608 
	IM	DTESTA,A7	SET OPEN STATUS	=1
	LDKL	A5,STB		=1
	CF	A5,CSYNCI	PUT CU IN ACTIVE MODE	=1
	CF	A5,CHALTI	HALT I/P DEVICE TO GET MODEM STATUS	=1
	IM	DTEPLS,A7	PRESET PHYSICAL STATUS = OK	=1
	ANK	A2,1	MODEM OK ?	=1 
	RF(Z)	DTE:20	YES	=1
	CM	DTEPLS,A7	INDICATE PHYSICAL ERROR	=1
DTE:20	EQU	*		=1
	LDR	A1,A2	SET RETURN CODE	=1 
	CF	A15,TENDIO	COMPLETE THE REQUEST	=1
	CF	A15,SPOTIM	START POLL TIMER	=6
	ABL	BRM	START I/P	=1 
!!DL 1744,1745
				=10 
!!IL 1755 
	LDR	A6,A3	LOAD DWT ADDRESS IN A6	=10 
	RF(Z)	POL150	REQ. DEV. NOT CONNECTED, SEND EOT	=10 
!!DL 1780 
				=11 
POL100	EQU	*
	CF	A5,HPTIM	KILL PROCEDURE TIMER	=11 
	CF	A5,TRENQ	SEND ENQ 
!!DL 1824 
			.	=15
!!DL 1864,1866
				=2
	IFT	STARVI=1		=2 
	ANK	A3,/A	WACK SENT OR DB ?	=2 
	RF(NZ)	SEL140	YES	=2 
!!DL 1868,1874
				=2
!!DL 1882 
				=2
	IFF	NOWACK=1		=2 
!!IL 2001 
	LD	A2,DWTSTA,A6	.	=14
	RF(Z)	STX280	TERMINAL DISCONNECTED	=14 
!!DL 2022 
				=12 
!!IL 2025 
	LD	A1,DWTLAD,A6	SYMBOLIC DTE ADDRESS	=12 
	LD	A2,-2,A4	NETWORK SUB-ADDRESS	=12
	CF	A15,GETSSA	GET SYMBOLIC SUB ADDRESS	=12 
	ST	A1,ECBCW2,A8	AND SAVE IT IN ECB	=12 
	LDK	A1,0	RESET RETURN CODE	=12 
!!IL 2026 
	IFT	REMTIM=1		=9 
!!IL 2027 
	XIF			=9 
!!DL 2048,2060
				=12 
!!IL 2316 
	IFT	REMTIM=1		=9 
!!IL 2317 
	XIF			=9 
!!DL 2424 
	SCR	A1,A4		=7
!!IL 2426 
	LCR	A1,A4		=7
!!DL 2428 
	ORR	A2,A1		=7
!!DL 2606 
			.	=15
!!DL 2851,2853
				=1
!!IL 2867 
	RF(A)	CHALTR	SST ACCEPTED	=1 
	LDK	A2,1	INSTRUCTION NOT ACCEPTED, SET MODEM ERR.	=1 
CHALTR	EQU	*		=1
!!IL 2904 
	LDK	A2,1	PRESET STATUS = MODEM ERROR	=1
	RF(NA)	CHLT00	INSTRUCTION NOT ACCEPTED	=1
!!IL 2907 
CHLT00	EQU	*
!!DL 3185 
				=4
!!DL 3186,3192
				=13 
!!IL 3304 
SUBBUF	RES	3	MMU BUFFER FOR CONNECT REQUEST	=16 
!!EN

Full view