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

⟦2881603f0⟧ 

    Length: 10896 (0x2a90)
    Notes: pts_type(SC)
    Names: »SYSTAB.SC«

Derivation

└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
    └─⟦this⟧ »TOSSWORK/SYSTAB.SC«

PTS(SC)

	IDENT SYSTAB 	REL 11.0 81-02-23 870105041100 

* 
* 
*************************************************** 
* 
*   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	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 
	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	      0
	DATA	IHLKM	      1 
	DATA	IHRTC	      2 
	DATA	ILLINT	      3
	DATA	ILLINT	      4
	DATA	ILLINT	      5
	DATA	ILLINT	      6
	DATA	IHTW	      7
	DATA	IHTC	      8
	DATA	IHSOP	      9 
	DATA	ILLINT	     10
	DATA	ILLINT	     11
	DATA	ILLINT	     12
	DATA	ILLINT	     13
	DATA	CHLT1	     14 
	DATA	IHFD	     15
	DATA	CHRT1	     16 
	DATA	CHRT2	     17 
	DATA	CHRT3	     18 
	DATA	CHRT4	     19 
	DATA	IHCC1	     20 
	DATA	IHCC2	     21 
	DATA	ILLINT	     22
	DATA	IHCC3	     23 
	DATA	CHLT1	     24 
	DATA	CHLT2	     25 
	DATA	IHPL01	     26
	DATA	IHPL02	     27
	DATA	ILLINT	     28
	DATA	ILLINT	     29
	DATA	IHFD	     30
	DATA	ILLINT	     31
	DATA	ILLINT	     32
	DATA	ILLINT	     33
	DATA	IHLP	     34
	DATA	IHCR	     35
	DATA	ILLINT	     36
	DATA	ILLINT	     37
	DATA	ILLINT	     38
	DATA	ILLINT	     39
	DATA	IHDU1	     40 
	DATA	IHDU2	     41 
	DATA	ILLINT	     42
	DATA	ILLINT	     43
	DATA	IHMT	     44
	DATA	ILLINT	     45
	DATA	ILLINT	     46
	DATA	ILLINT	     47
	DATA	IHCD	     48
	DATA	ILLINT	     49
	DATA	ILLINT	     50
	DATA	ILLINT	     51
	DATA	ILLINT	     52
	DATA	ILLINT	     53
	DATA	ILLINT	     54
	DATA	ILLINT	     55
	DATA	ILLINT	     56
	DATA	ILLINT	     57
	DATA	ILLINT	     58
	DATA	ILLINT	     59
	DATA	ILLINT	     60
	DATA	ILLINT	     61
	DATA	ILLINT	     62
	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	X:A	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	X:C	DM INDEX RECORD BUFFER SIZE 
SCTFWT	DATA	0	FWT CHAIN START ADDRESS 
SCTNOF	DATA	X:D	NUMBER OF FILES 
SCTNFT	DATA	X:E	NUMBER OF FILES/TASK
SCTFWL	DATA	X:F	FILE WORK TABLE LENGTH
SCTBLK	DATA	6	NUMBER OF BLOCKS/TASK 
SCTDCT	DATA	X:G	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