Return to crt.s CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry

Power 6/32 Unix version 1.2b

	.set 	ISP,15
	.set 	NBPG,1024
	.set	HIGH,0x1f	/*mask for disabling all interrupts	*/
	.set	MCKVEC,4	/*scb offset for machinecheck vector	*/
	.set	NISP,2		/*no. of interrupt stack pages		*/
	.set	DONE,255	/*user process done code		*/


	.data
	.set	NLWU,31		/*no. of longwords already used		*/

	.globl	_savvec0	/*save vectors area			*/
_savvec0:
	.space	4
	.globl	_savvec1	/*save vectors area			*/
_savvec1:
	.space	4
	.globl	_savvec2	/*save vectors area			*/
_savvec2:
	.space	4
	.globl	_savvec3	/*save vectors area			*/
_savvec3:
	.space	4
	.globl	_savvec4	/*save vectors area			*/
_savvec4:
	.space	4
	.globl	_savvec5	/*save vectors area			*/
_savvec5:
	.space	4
	.globl	_savvec6	/*save vectors area			*/
_savvec6:
	.space	4
	.globl	_savvec7	/*save vectors area			*/
_savvec7:
	.space	4

	.globl	badrtn
badrtn:
	.long	tfail

	.globl	return
return:
	.long	goodrtn

	.globl	_dbuf		/*dump buffer left out of 1K		*/
_dbuf:
	.space	NBPG - (NLWU *4)
edbuf:
	.globl	_intstack	/*interrupt stack			*/
_intstack:			/*physical pages 4 & 5			*/
	.space	NISP*NBPG	/*2pages = 2048 bytes			*/
eintstack:

	.text
	.globl	_start
_start:
	movl	$_intstack+NISP*NBPG,sp	/* Initialize SP	*/
	movab	(sp),fp			/* Initialize FP  	*/
	jmp	dotst + 2		/* Jump to test		*/
#	callf	$4,_main
goodrtn:
	pushab	M1
	callf	$8,_writes
	movl	$0xcafebabe,r0
	jmp	*return			/* Good :   R0 == CAFE BABE */
tfail:
	movl	$0xffffffff,r0
	jmp	*badrtn

	.data 	1
M1:	.ascii	"** congratulation , test passed **\n\0"

	.text
	.globl	dotst
dotst:				/* test start from here */

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.