Google
 

Trailing-Edge - PDP-10 Archives - klad_sources - klad.sources/subrts.mac
There are no other files named subrts.mac in the archive.
SUBTTL	*STOR* RESERVED STORAGE

;MODIFY DEVICE CODE CODE TABLE
$MDLST:	$MDSXB	CCI,14
	$MDSXB	CCI2,20
	$MDSXB	ADC,24
	$MDSXB	ADC2,30
	$MDSXB	DLB,60
	$MDSXB	DLC,64
	$MDSXB	DLB2,160
	$MDSXB	DLC2,164
	$MDSXB	CLK,70
	$MDSXB	CLK2,74
	$MDSXB	LPT,124
	$MDSXB	LPT2,234
	$MDSXB	CDP,110
	$MDSXB	DIS,130
	$MDSXB	DIS2,134
	$MDSXB	PLT,140
	$MDSXB	PLT2,144
	$MDSXB	CR,150
	$MDSXB	CR2,154
	$MDSXB	DSK,170
	$MDSXB	DSK2,174
	$MDSXB	DLS,240
	$MDSXB	DLS2,244
	$MDSXB	DPC,250
	$MDSXB	DPC2,254
	$MDSXB	DPC3,260
	$MDSXB	DPC4,264
	$MDSXB	RHA,270
	$MDSXB	RHB,274
	$MDSXB	DTC,320
	$MDSXB	DTC2,330
	$MDSXB	DTS,324
	$MDSXB	DTS2,334
	$MDSXB	TMC,340
	$MDSXB	TMC2,350
	$MDSXB	TMS,344
	$MDSXB	TMS2,354
	$MDSXB	DSS,460
	$MDSXB	DSS2,470
	$MDSXB	DSI,464
	$MDSXB	DSI2,474
	$MDSXB	RH0,540
	$MDSXB	RH1,544
	$MDSXB	RH2,550
	$MDSXB	RH3,554
	$MDSXB	RH4,560
	$MDSXB	RH5,564
	$MDSXB	RH6,570
	$MDSXB	RH7,574

$MDEND=.-$MDLST			;COMPUTES LENGTH OF TABLE
;PROGRAM LITERALS
	LIT
ENDSLD:	0

;END OF PROGRAM VARIABLES

$SVERA:	Z			;ERROR ADDRESS REGISTER

$SBRD:	100000,,0		;S-BUS DIAG READ
	Z

$SBRD1:	110000,,0		;S-BUS DIAG ERROR RESET
	Z

$DTRPT:	Z
	JRST	$$DTEI		;DTE20 INTERRUPT JSR

$MTRI:	0			;METER XCT INSTRUCTION
$MTRWC:	0			;METER WAIT COUNT
MTRCNT:	0			;METER COUNT
$MTRAC:	0			;METER SAVED AC

%ERIN1:	Z			;COR/ACT/DESC PRINT JSR
%ERIN2:	Z
	JRST	@%ERIN1		;ERROR HANDLER SPECIAL STORAGE WORDS

POWER:	BLOCK	20		;POWER FAIL AC SAVE

IFDEF	DEBUG,<
PATCH:	BLOCK	DEBUG		;DEBUGGING AREA
>

;PROGRAM VARIABLE WORDS

	VAR

IFDEF	PGMEND,<
END:	0
	END	START
>