.TITLE	MPONE
	.IDENT	/02N/
; MODIFICATIONS:
;	NAPC - CORRECT BUG IN COMPUTING TOTAL MEMORY
	.PSECT	
ST=.
.=ST+640
	ADD	#15.,R0		;ROUND UP
	ASH	#-5,R0		;CONVERT WORDS TO BLOCKS
	BIC	#174000,R0	;REMOVE ANY SIGN EXTENSION
.=ST
	.END