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

⟦cd1763d5e⟧ 

    Length: 10952 (0x2ac8)
    Notes: pts_type(UF)
    Names: »TIME.UF«

Derivation

└─⟦2a21e4bb5⟧ Bits:30009691 Philips computer tape "600408"
    └─⟦this⟧ »BDKAPP/TIME.UF« 
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
    └─⟦this⟧ »BDKAPP/TIME.UF«

PTS(SC)

MES *** UPDATES OF CONCENTRATOR PACKAGE REL 1.1 - 78.03.03 ***
MES *** UPDATED 78.03.17 ***
MES ****************************** C:BPL
LED C:BPL,/S,## 
##CH $$K:BPD$$K:BPDK$$
##CH $$K:BPCT$$K:BPTC$$ 
##CH $$K : B P C T$$K : B P T C$$ 
##CH $$BPBCT$$BPBTC$$ 
##DL 1
			UPDATE #0 78.03.15 JES 
##DL 31 
* - K:BPMT IS THE OCCUPATION BUFFER FOR THE MAGNETIC TAPE 
##IL 52 
	ENTRY	K:BPMT 
##JN 54,C:BPL,58
* 
##DL 58 
##DL 71,72
##RE 836,$$12$$12+K:BLDK+K:BLDK$$ 
##DL 838
	DATA	/FF,BPBDK1,K:BLDK+K:BLDL,0,0,0
BPBDK1	EQU	*
	RES	K:BLDK 
##IL 839
	EJECT		IDENT C:BPL 
******************************************************* 
* 
*   K : B P M T 
* 
*	OCCUPATION BUFFER FOR THE MAGNETIC TAPE 
* 
* 
******************************************************* 
* 
K:BPMT	DATA	BPM01,12+K:BLMT+K:BLMT
BPM01	DATA	BPM02
	DATA	/70,BPBMT1,K:BLMT+K:BLMT,0,0,0
BPBMT1	EQU	*
	RES	K:BLMT 
BPM02	DATA	0
##EN
BEA /S
KPF /O
SCR /S
SCR /O
MES ****************************** C:CCH
LED C:CCH,/S,## 
##DL 400,408
##EN
BEA /S
SCR /S
MES ****************************** C:DBS
MES ****************************** C:DCC
LED C:DCC,/S,## 
##DL 400,406
##EN
BEA /S
SCR /S
MES ****************************** C:EQU
LED C:EQU,/S,## 
##DL 1
			UPDATE #5 78.03.16 JES 
##RE 211,$$2048$$0$$
##IL 216
*** PARAMETERS FOR STANDARD APPLICATION 
* 
* FILE CODES OF LOG DEVICES, DEFINED IN SYSTEM
TK1	EQU	/12	FILE CODE OF LOG DEV TK1
TK2	EQU	/13	                     TK2
MT1	EQU	/70	                     MT1
MT2	EQU	0	                     MT2
MT3	EQU	0	                     MT3
MT4	EQU	0	                     MT4
* 
NOREPL	EQU	5	NBR OF NO REPLIES TO SWITCH OFF-LINE 
SUPSTA	EQU	/50	SUPERVISORY TERMINAL ADDRESS OF ALL TC:S 
##DL 287,298
##EN
KPF /S,XEQU 
BEA /S
SCR /S
SCR /O
MES ****************************** C:FIC
LED C:FIC,/S,## 
##DL 1
			UPDATE #1
##CH $$K:BPCT$$K:BPTC$$ 
##DL 400,408
##EN
BEA /S
KPF /O
SCR /S
SCR /O
MES ****************************** C:FIG
MES ****************************** C:FUA
LED C:FUA,/S,## 
##DL 1
			UPDATE #4 78.03.07 JES 
##DL 34 
*	K:PRTT	78.03.07 
##IL 93 
	EXTRN	K:ID	C:SET 
##DL 100
##DL 400,405
##IL 406
DATINC	EQU	1	IF 1 AUTOMATIC INCREMENTATION OF DATE
			ONLY FOR TOSS RELEASE 8.1 OR GREATER 
##IL 762
*		K:ID IN C:SET
##IL 788
	IFT	DATINC=1 
	LDR	A7,A7	MIDNIGTH CARRY?
	RF(Z)	PRT01	NO 
	CF	A14,K:ID	INCREMENT DATE 
PRT01	EQU	* 
	XIF
##EN
BEA /S
KPF /O
SCR /O
SCR /S
MES ****************************** C:FUB
MES ****************************** C:FUC
LED C:FUC,/S,## 
##DL 400,406
##EN
BEA /S
SCR /S
MES ****************************** C:INI
LED C:INI,/S,## 
##DL 400,411
##EN
BEA /S
SCR /S
MES ****************************** C:LAY
MES ****************************** C:NSU
LED C:NSU,/S,## 
##DL 400,406
##EN
BEA /S
SCR /S
MES ****************************** C:ONW
LED C:ONW,/S,## 
##DL 400,408
##EN
BEA /S
SCR /S
MES ****************************** C:OPC
LED C:OPC,/S,## 
##DL 400,405
##EN
BEA /S
SCR /S
MES ****************************** C:SET
LED C:SET,/S,## 
##DL 1
			UPDATE #2 77.03.08 JES 
##IL 26 
*	K:ID	78.03.07 
##IL 43 
	ENTRY	K:ID	INCREMENT DATE
##DL 96,97
##DL 400,410
##DL 502
	RF	SDRET	RETURN
##DL 510
SDRET	EQU	* 
##IL 516
	EJECT		IDENT C:SET 
******************* K : I D **********************************
* 
* 
* 
*SUBROUTINE  K : I D
*INCREMENTS DATE
* 
* 
* 
* CALL SEQUENCE:	CF A14,K:ID
* 
* 
*   ENTRY PARAM:	A7 = NUMBER OF DAYS TO INCREMENT 
* 
*   SUBROUTINES:
* 
*  RETURN PARAM:	NONE 
* 
*  RETURN METOD:	VIA A14
* 
*  CHANGED REGS:	A1-A6
* 
*  STACKER NEED:	6
* 
*   LIMITATIONS:
* 
*  CALLING TASK:	ANY
* 
* 
************************************************************* 
	EJECT		IDENT C:SET 
************************************************************* 
* 
* 
*	K : I D 
* 
* 
K:ID	EQU	*

* 
*   GET DATE FROM WORK BLOCK
*   AND CONVERT TO HEXADECIMAL
* 
	LDKL	A3,K:WBD	GET DATE WB ADDRESS
	SUK	A3,2 
	CF	A14,SUB2	CONVERT YEAR TO HEXADECIMAL
	LDR	A1,A6	SAVE YEAR VALUE
	CF	A14,SUB2	CONVERT MONTH TO HEXADECIMAL 
	LDR	A2,A6	SAVE MONTH VALUE 
	CF	A14,SUB2	CONVERT DAY TO HEXADECIMAL 
	LDR	A3,A6	SAVE DAY VALUE 
* 
*	INCREMENT DATE
* 
	ADR	A3,A7	ADD CARRY VALUE TO DAY 
	CF	A14,DATCHK	CHECK IF VALID DATE
	RF(NN)	ID100	VALID DATE
	ADR	A6,A3	RECALL MAX DAY OF MONTH
	SUR	A3,A6	NEW DAY VALUE
	ADK	A2,1	INCREMENT MONTH 
	CWK	A2,12
	RF(NG)	ID100	NOT NEW YEAR
	LDK	A2,1	SET JANUARY 
	ADK	A1,1	INCREMENT YEAR
* 
*   CONVERT NEW DATE TO ASCII AND 
*   MOVE DATE TO WORK BLOCK 
* 
ID100	EQU	* 
	LDKL	A4,K:WBD	DATE WB ADDRESS
	LDR	A6,A1	GET YEAR 
	CF	A14,SUBA	CONVERT TO ASCII AND STORE 
	LDR	A6,A2	GET MONTH
	CF	A14,SUBA	CONVERT AND STORE
	LDR	A6,A3	GET DAY
	CF	A14,SUBA	CONVERT AND STORE
	RTN	A14
* 

	EJECT		IDENT C:SET 
##IL 520
	RF	SUB9
SUB2	ADK	A3,2 
SUB9	EQU	*
##IL 531
* 
*   CREATE ASCII AND STORE
* 
SUBA	EQU	*
	LDK	A5,0 
SUBA05	SUK	A6,10
	RF(N)	SUBA10 
	ADK	A5,1 
	RB	SUBA05
SUBA10	ADK	A6,10
	SLL	A5,8 
	ADR	A5,A6
	ADKL	A5,/3030
	STR	A5,A4
	ADK	A4,2 
	RTN	A14
* 
##EN
BEA /S
KPF /O
SCR /O
SCR /S
MES ****************************** C:SIC
LED C:SIC,/S,## 
##DL 400,408
##EN
BEA /S
SCR /S
MES ****************************** C:SPY
LED C:SPY,/S,## 
##DL 400,409
##EN
BEA /S
SCR /S
MES ****************************** C:SUB
LED C:SUB,/S,## 
##DL 1
			UPDATE #2 78.03.07 JES 
##RE 25,$$760212$$78.03.07$$
##IL 72 
	EXTRN	K:ID	C:SET 
##DL 77 
##DL 400,414
##IL 415
DATINC	EQU	1	IF 1 AUTOMATIC INCREMENTATION OF DATE
			ONLY FOR TOSS RELEASE 8.1 OR GREATER 
##IL 989
*		K:ST8,K:LD8
*		K:ID IN C:SET
##DL 995
*  CHANGED REGS:	NONE 
##RE 997,$$6$$14$$
##DL 1014,1015
	CF	A14,K:ST8	SAVE A1-A8
##IL 1021 
	IFT	DATINC=1 
	LDR	A7,A7	MIDNIGTH CARRY?
	RF(Z)	TIME10	NO
	CF	A14,K:ID	INCREMENT DATE 
TIME10	EQU	*
	XIF
	CF	A14,K:LD8	RESTORE A1-A8 
	RTN	A14
##DL 1022,1024
##EN
BEA /S
KPF /O
SCR /O
SCR /S
MES ****************************** C:TCA
LED C:TCA,/S,## 
##DL 400,407
##EN
BEA /S
SCR /S
SCR /O
MES ****************************** C:TPL
MES ****************************** C:TRA
MES ****************************** C:TXT
LED C:TXT,/S,## 
##DL 400,415
##IL 416
******************************************************* 
* 
*   PARAMETERS FOR CONDITIONAL ASSEMBLY 
*   SPECIFIED IN MODULE C:EQU 
* 
******************************************************* 
STNDRD	EQU	X:M	IF = 1 STANDARD CONCENTRATOR APPLICATION 





##DL 422,424
##EN
BEA /S
KPF /O
SCR /S
SCR /O
MES ****************************** C:WBS
MES ****************************** C:XNW
LED C:XNW,/S,## 
##DL 400,403
##EN
BEA /S
SCR /S
SCR /O
ASG /E0,TY10

Full view