Google
 

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

;MODIFY DEVICE CODE CODE TABLE
$MDLST:				;NO I/O BUS DEVICES ON SM-10
$MDEND=.-$MDLST			;COMPUTES LENGTH OF TABLE

;PROGRAM LITERALS
	LIT
ENDSLD:	0

;END OF PROGRAM VARIABLES

%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

	0
$OUTBF:	BLOCK	^D30
CINBF:	BLOCK	^D30
COUTBF:	BLOCK	^D30

IFDEF	PGMEND,<
END:	0
	END	START
>