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

⟦3a6e35623⟧ 

    Length: 7790 (0x1e6e)
    Notes: pts_type(SC)
    Names: »SYS2DC.SC«

Derivation

└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
    └─⟦this⟧ »PTMON/SYS2DC.SC«

PTS(SC)

	IDENT SYS2DC 	REL 11.0 DK 82-04-14 870105041100
** SYSTEM WITH TWO MAIN-FRAMES

* 
* 
*************************************************** 
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL
*            TABLE,SYSTEM STACK AND IDLE LOOP 
* 
* 
* 
* 
* 
*************************************************** 
* 
* 
	EJECT			SYSTAB 
* 
* 
*********** 
* ENTRIES * 
*********** 
* 
* 
	ENTRY	SCTMSZ,SCTSFA,SCTEFA,SCTIPL
	ENTRY	SCTANO,SCTTCT,SCTCDT,SCTPAG
	ENTRY	SCTNOP,SCTPSZ,SCTSTB,SCTOPT
	ENTRY	SCTBUG,SCTDMT,SCTDMI,SCTFWT
	ENTRY	SCTNOF,SCTNFT,SCTFWL,SCTBLK
	ENTRY	SCTDCT,SCTNOS,SCTMXS,SCTMOX
	ENTRY	SEG:FC,SEG:NS
	ENTRY	SEG:ST,SEG:DS,SEG:EL,SEG:PB
	ENTRY	PAG:QF,PAG:QB,PAG:PA,PAG:SB
	ENTRY	SWB:NC,SWB:DS,SWB:EL,SWB:NS
	ENTRY	STKEND,STKCOM,STKMOV 
	ENTRY	ACBIOE,ACBSWB,ACBSEG,ACBNPE
	ENTRY	ACBMMP,ACBMMC,ACBLAP,ACBLAC
	ENTRY	ACBSTA,ACBREL,ACBADA 
	EJECT			SYSTAB 
* 
* 
************* 
* EXTERNALS * 
************* 
* 
* 
	EXTRN	TDISP
	EXTRN	IHPFAR	POWER FAIL / AUTO RESTART 
	EXTRN	IHLKM	LKM INTERRUPT
	EXTRN	IHRTC	REAL TIME CLOCK
	EXTRN	IHTW	TYPEWRITER
	EXTRN	IHTC	CASSETTE TAPE 
	EXTRN	IHSOP	SYSTEM OPERATORS PANEL 
	EXTRN	CHRT1	REMOTE CHANNEL UNIT NO. 1
         EXTRN    IH1501
         EXTRN    IH1502
	EXTRN	IH2501	
	EXTRN	IH2502	
	EXTRN	CHRT2	REMOTE CHANNEL UNIT NO. 2
	EXTRN	CHRT3
	EXTRN	CHRT4
	EXTRN	IHCC1	CASSETTE CHANGER NO. 1 
	EXTRN	IHCC2	                     2 
	EXTRN	IHCC3	                     3 
	EXTRN	CHLT1,IHSVU1,IHSVU2,IHSVU3,IHSVU4,IHSVU5	LOCAL CHANNEL UNIT NO. 1
	EXTRN	CHLT2,IHSVU6,IHSVU7,IHSVU8	LOCAL CHANNEL UNIT NO. 2
	EXTRN	IHPL01,IHPVU1,IHPVU2,IHPVU3,IHPVU4,IHPVU5
	EXTRN	IHPL02,IHPVU6,IHPVU7,IHPVU8
	EXTRN	IHFD,IHCD	FLOPPY DISC,CDC (80 M) DISC
	EXTRN	IHLP,IHPL03,IHPL04	LINE PRINTER
	EXTRN	IHCR,CHLT3,CHLT4	CARD-READER 
	EXTRN	IHDU1,IHDU2	DISC UNIT NO. 1/2
	EXTRN	IHMD,IASCUZ,ISLCI,ISLCO	MINI FIX DISC
	EXTRN	IHMT	MAG. TAPE 
	EXTRN	ILLINT	ILLEGAL INTERRUPT 
	EXTRN	HALT	HALT ROUTINE
	EXTRN	BUG	DEBUGGER 
	EXTRN	IHPR01	RWSI CARD	
	EJECT			SYSTAB 
* 
*	DISPLACEMENTS IN SEGTAB, PAGTAB , SWBTAB AND APPL. CONTROL BLOCK
* 
SEG:FC	EQU	-4	FILE CODE 
SEG:NS	EQU	-2	NUMBER OF SEGMENTS
SEG:ST	EQU	0	STATUS 
SEG:DS	EQU	2	DISC SECTOR ADDRESS
SEG:EL	EQU	4	EFFECTIVE LENGTH 
SEG:PB	EQU	6	PAGE BLOCK ADDRESS 
PAG:QF	EQU	0	QUEUE POINTER FORWARD
PAG:QB	EQU	2	QUEUE POINTER BACKWARD 
PAG:PA	EQU	4	PAGE ADDRESS 
PAG:SB	EQU	6	SEGMENT BLOCK ADDRESS
* 
SWB:NC	EQU	0	NUMBER OF COPIES WITHIN SWB TYPE 
SWB:DS	EQU	2	DISC SECTOR ADDRESS OF FIRST COPY
SWB:EL	EQU	4	SWB LENGTH (BYTES) 
SWB:NS	EQU	6	SWB LENGTH (SECTORS) 
* 
ACBIOE	EQU	0	APPLICATION RESTART ADDRESS
ACBSWB	EQU	2	SWBTAB ADDRESS 
ACBSEG	EQU	4	SEGMENT TABLE POOL 
ACBNPE	EQU	6	NUMBER OF PAGE ENTRIES 
ACBMMP	EQU	8	MMU TABLE PAGE ENTRY 
ACBMMC	EQU	10	MMU TABLE COMMON PART ENTRY 
ACBLAP	EQU	12	LOGICAL ADDRESS TO PAGE 
ACBLAC	EQU	14	LOGICAL ADDRESS TO COMMON PART
ACBSTA	EQU	16	APPLICATION PROGRAM START ADDRESS 
ACBREL	EQU	18	APPLICATION RELOCATION BASE 
ACBADA	EQU	20	APPLICATION DISC FILE ADDRESS 



START	EQU	* 
	EJECT			SYSTAB 
* 
*	INTERRUPT VECTORS 
* 
	DATA	IHPFAR
	DATA	 IHLKM
	DATA	 IHRTC
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	IH1501
	DATA	IH1502
	DATA	IH2501
	DATA	IH2502
	DATA	ILLINT
	DATA	ILLINT
	DATA	IHPR01
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	IHPL01
	DATA	IHPL02
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	ILLINT
	DATA	TRAP	TRAP ROUTINE 
	EJECT			SYSTAB 

* 
*	SYSTEM CONTROL TABLE POINTER
* 
	DATA	SCT 


* 
*	SYSTEM TRAP 
* 
TRAP	LDK	A1,/D
	CF	A15,HALT
	RES	4
	HLT

* 
*	DEBUG RESTART ENTRY 
* 
	XRR	A13,A13
	XRR	A14,A14
	LD	A1,SCTBUG 
	ABR(NZ)	A1 
	HLT
* 
	EJECT			SYSTAB 
* 
* 
X:A	EQU	0	MONITOR OPTION
X:B	EQU	0	DATA MAN .TASKS IN SYSTEM 
X:C	EQU	0	DM INDEX RECORD BUFFER SIZE 
X:D	EQU	0	DM/FM NUMBER OF FILES 
X:E	EQU	0	DM/FM NUMBER OF FILES/TASK
X:F	EQU	0	FILE WORK TABLE LENGTH
X:G	EQU	0	DC TASK IN SYSTEM 
X:H	EQU	10	NUMBER OF SEGMENT TABLES (BASIC ONLY)
* 
	EJECT			SYSTAB 
* 
*	SYSTEM CONTROL TABLE
* 
SCT	EQU	* 

SCTMSZ	DATA	0	MEMORY SIZE MOD K BYTES 
SCTSFA	DATA	0,0	START OF FREE AREA
SCTEFA	DATA	0,0	END OF FREE AREA
SCTIPL	DATA	0	IPL DEVICE FILE CODE: 
			TC:C0,C1 DK:F0,F1 MD:F4,F5 FD:F8,F9
SCTANO	DATA	0	APPLICATION NUMBER
SCTTCT	DATA	0	TCTAB ADDRESS 
SCTCDT	DATA	0	CDTAB ADDRESS 
SCTPAG	DATA	0	PAGTAB ADDRESS
SCTNOP	DATA	0	NUMBER OF PAGES 
SCTPSZ	DATA	0	PAGE SIZE 
SCTSTB	DATA	STB	SYSTEM STACK BASE 
SCTOPT	DATA	04097	MONITOR OPTION: 
			BIT 10:MPO,11:EMM,12:SWPBLK
			BIT 13:FM,14:DSKPAG,15:MMUPAG
SCTBUG	DATA	BUG	DEBUGGER
SCTDMT	DATA	X:B	DMTASKS IN SYSTEM 
			BIT 12:#G, 13:#F, 14:#E, 15:#D 
SCTDMI	DATA	00000	DM INDEX RECORD BUFFER SIZE 
SCTFWT	DATA	0	FWT CHAIN START ADDRESS 
SCTNOF	DATA	00000	NUMBER OF FILES 
SCTNFT	DATA	00000	NUMBER OF FILES/TASK
SCTFWL	DATA	00000	FILE WORK TABLE LENGTH
SCTBLK	DATA	6	NUMBER OF BLOCKS/TASK 
SCTDCT	DATA	00001	DC-TASK IN SYSTEM/REMOTE
SCTNOS	DATA	X:H	NUMBER OF SEGMENT TABLES
SCTMXS	DATA	0	ADDRESS TO MXSTAB 
SCTMOX	DATA	0	ADDRESS TO START-ADDRESS TABLE
	EJECT			SYSTAB 

* 
*	SYSTEM STACK
* 
STKEND	EQU	*	END OF SYSTEM STACK
	RES	68 
STKMOV	LDR*	A4,A1 
	STR	A4,A2
	ADK	A1,2 
	ADK	A2,2 
	SUK	A3,2 
	ABR(Z)	A7
	RB	STKMOV
STKCOM	EQU	*
	RES	61 
	RORG	START+/1FC
	DATA	/FCC0	AND PSW 
STB	DATA	LOOP	AND PC FOR IDLE LOOP


* 
*	IDLE LOOP 
* 

LOOP	RB	* 



	END

Full view