/ machine language assist/ for 11/45 or 11/70 CPUs.fpp = 1/ non-UNIX instructionsmfpi	= 6500^tstmtpi	= 6600^tstmfpd	= 106500^tstmtpd	= 106600^tstspl	= 230ldfps	= 170100^tststfps	= 170200^tstwait	= 1rtt	= 6reset	= 5HIPRI	= 300HIGH	= 6/ Mag tape dump/ save registers in low core and/ write all core onto mag tape./ entry is thru 44 abs.data.globl	dumpdump:	bit	$1,SSR0	bne	dump/ save regs r0,r1,r2,r3,r4,r5,r6,KIA6/ starting at abs location 4	mov	r0,4	mov	$6,r0	mov	r1,(r0)+	mov	r2,(r0)+	mov	r3,(r0)+	mov	r4,(r0)+	mov	r5,(r0)+	mov	sp,(r0)+	mov	KDSA6,(r0)+/ dump all of core (ie to first mt error)/ onto mag tape. (9 track or 7 track 'binary')	mov	$MTC,r0	mov	$60004,(r0)+	clr	2(r0)1:	mov	$-512.,(r0)	inc	-(r0)2:	tstb	(r0)	bge	2b	tst	(r0)+	bge	1b	reset/ end of file and loop	mov	$60007,-(r0)	br	..globl	start, _end, _edata, _etext, _main/ 11/45 and 11/70 startup./ entry is thru 0 abs./ since core is shuffled,/ this code can be executed but oncestart:	inc	$-1	bne	.	reset	clr	PS/ set KI0 to physical 0	mov	$77406,r3	mov	$KISA0,r0	mov	$KISD0,r1	clr	(r0)+	mov	r3,(r1)+/ set KI1-6 to eventual text resting place	mov	$_end+63.,r2	ash	$-6,r2	bic	$!1777,r21:	mov	r2,(r0)+	mov	r3,(r1)+	add	$200,r2	cmp	r0,$KISA7	blos	1b/ set KI7 to IO seg for escape	mov	$IO,-(r0)/ set KD0-7 to physical	mov	$KDSA0,r0	mov	$KDSD0,r1	clr	r21:	mov	r2,(r0)+	mov	r3,(r1)+	add	$200,r2	cmp	r0,$KDSA7	blos	1b/ initialization/ get a temp (1-word) stack/ turn on segmentation/ copy text to I space/ clear bss in D space	mov	$stk+2,sp	mov	$65,SSR3		/ 22-bit, map, K+U sep	bit	$20,SSR3	beq	1f	mov	$70.,_cputype1:	inc	SSR0	mov	$_etext,r0	mov	$_edata,r1	add	$_etext-8192.,r11:	mov	-(r1),-(sp)	mtpi	-(r0)	cmp	r1,$_edata	bhi	1b1:	clr	(r1)+	cmp	r1,$_end	blo	1b/ use KI escape to set KD7 to IO seg/ set KD6 to first available core	mov	$IO,-(sp)	mtpi	*$KDSA7	mov	$_etext-8192.+63.,r2	ash	$-6,r2	bic	$!1777,r2	add	KISA1,r2	mov	r2,KDSA6/ set up supervisor D registers	mov	$6,SISD0	mov	$6,SISD1/ set up real sp/ clear user block	mov	$_u+[usize*64.],sp	mov	$_u,r01:	clr	(r0)+	cmp	r0,sp	blo	1b/	jsr	pc,_isprof/ set up previous mode and call main/ on return, enter user mode at 0R	mov	$30000,PS	jsr	pc,_main	mov	$170000,-(sp)	clr	-(sp)	rtt.globl	trap, call.globl	_trap/ all traps and interrupts are/ vectored thru this routine.trap:	mov	PS,saveps	tst	nofault	bne	1f	mov	SSR0,ssr	mov	SSR1,ssr+2	mov	SSR2,ssr+4	mov	$1,SSR0	jsr	r0,call1; _trap	/ no return1:	mov	$1,SSR0	mov	nofault,(sp)	rtt.text.globl	_runrun, _swtchcall1:	mov	saveps,-(sp)	spl	0	br	1fcall:	mov	PS,-(sp)1:	mov	r1,-(sp)	mfpd	sp	mov	4(sp),-(sp)	bic	$!37,(sp)	bit	$30000,PS	beq	1f.if .fpp	mov	$20,_u+4		/ FP maint mode.endif	jsr	pc,*(r0)+2:	spl	HIGH	tstb	_runrun	beq	2f	spl	0	jsr	pc,_savfp	jsr	pc,_swtch	br	2b2:.if .fpp	mov	$_u+4,r1	bit	$20,(r1)	bne	2f	mov	(r1)+,r0	ldfps	r0	movf	(r1)+,fr0	movf	(r1)+,fr1	movf	fr1,fr4	movf	(r1)+,fr1	movf	fr1,fr5	movf	(r1)+,fr1	movf	(r1)+,fr2	movf	(r1)+,fr3	ldfps	r02:.endif	tst	(sp)+	mtpd	sp	br	2f1:	bis	$30000,PS	jsr	pc,*(r0)+	cmp	(sp)+,(sp)+2:	mov	(sp)+,r1	tst	(sp)+	mov	(sp)+,r0	rtt.globl	_savfp_savfp:.if .fpp	mov	$_u+4,r1	bit	$20,(r1)	beq	1f	stfps	(r1)+	movf	fr0,(r1)+	movf	fr4,fr0	movf	fr0,(r1)+	movf	fr5,fr0	movf	fr0,(r1)+	movf	fr1,(r1)+	movf	fr2,(r1)+	movf	fr3,(r1)+1:.endif	rts	pc.globl	_incupc_incupc:	mov	r2,-(sp)	mov	6(sp),r2	/ base of prof with base,leng,off,scale	mov	4(sp),r0	/ pc	sub	4(r2),r0	/ offset	clc	ror	r0	mul	6(r2),r0	/ scale	ashc	$-14.,r0	inc	r1	bic	$1,r1	cmp	r1,2(r2)	/ length	bhis	1f	add	(r2),r1		/ base	mov	nofault,-(sp)	mov	$2f,nofault	mfpd	(r1)	inc	(sp)	mtpd	(r1)	br	3f2:	clr	6(r2)3:	mov	(sp)+,nofault1:	mov	(sp)+,r2	rts	pc.globl	_display_display:	dec	dispdly	bge	2f	clr	dispdly	mov	PS,-(sp)	mov	$HIPRI,PS	mov	CSW,r1	bit	$1,r1	beq	1f	bis	$30000,PS	dec	r11:	jsr	pc,fuword	mov	r0,CSW	mov	(sp)+,PS	cmp	r0,$-1	bne	2f	mov	$120.,dispdly		/ 2 sec delay after CSW fault2:	rts	pc/ Character list get/put.globl	_getc, _putc.globl	_cfreelist_getc:	mov	2(sp),r1	mov	PS,-(sp)	mov	r2,-(sp)	spl	5	mov	2(r1),r2	/ first ptr	beq	9f		/ empty	movb	(r2)+,r0	/ character	bic	$!377,r0	mov	r2,2(r1)	dec	(r1)+		/ count	bne	1f	clr	(r1)+	clr	(r1)+		/ last block	br	2f1:	bit	$7,r2	bne	3f	mov	-10(r2),(r1)	/ next block	add	$2,(r1)2:	dec	r2	bic	$7,r2	mov	_cfreelist,(r2)	mov	r2,_cfreelist3:	mov	(sp)+,r2	mov	(sp)+,PS	rts	pc9:	clr	4(r1)	mov	$-1,r0	mov	(sp)+,r2	mov	(sp)+,PS	rts	pc_putc:	mov	2(sp),r0	mov	4(sp),r1	mov	PS,-(sp)	mov	r2,-(sp)	mov	r3,-(sp)	spl	5	mov	4(r1),r2	/ last ptr	bne	1f	mov	_cfreelist,r2	beq	9f	mov	(r2),_cfreelist	clr	(r2)+	mov	r2,2(r1)	/ first ptr	br	2f1:	bit	$7,r2	bne	2f	mov	_cfreelist,r3	beq	9f	mov	(r3),_cfreelist	mov	r3,-10(r2)	mov	r3,r2	clr	(r2)+2:	movb	r0,(r2)+	mov	r2,4(r1)	inc	(r1)		/ count	clr	r0	mov	(sp)+,r3	mov	(sp)+,r2	mov	(sp)+,PS	rts	pc9:	mov	pc,r0	mov	(sp)+,r3	mov	(sp)+,r2	mov	(sp)+,PS	rts	pc.globl	_backup.globl	_regloc_backup:	mov	2(sp),r0	movb	ssr+2,r1	jsr	pc,1f	movb	ssr+3,r1	jsr	pc,1f	movb	_regloc+7,r1	asl	r1	add	r0,r1	mov	ssr+4,(r1)	clr	r02:	rts	pc1:	mov	r1,-(sp)	asr	(sp)	asr	(sp)	asr	(sp)	bic	$!7,r1	movb	_regloc(r1),r1	asl	r1	add	r0,r1	sub	(sp)+,(r1)	rts	pc.globl	_fubyte, _subyte.globl	_fuword, _suword.globl	_fuibyte, _suibyte.globl	_fuiword, _suiword_fuibyte:	mov	2(sp),r1	bic	$1,r1	jsr	pc,giword	br	2f_fubyte:	mov	2(sp),r1	bic	$1,r1	jsr	pc,gword2:	cmp	r1,2(sp)	beq	1f	swab	r01:	bic	$!377,r0	rts	pc_suibyte:	mov	2(sp),r1	bic	$1,r1	jsr	pc,giword	mov	r0,-(sp)	cmp	r1,4(sp)	beq	1f	movb	6(sp),1(sp)	br	2f1:	movb	6(sp),(sp)2:	mov	(sp)+,r0	jsr	pc,piword	clr	r0	rts	pc_subyte:	mov	2(sp),r1	bic	$1,r1	jsr	pc,gword	mov	r0,-(sp)	cmp	r1,4(sp)	beq	1f	movb	6(sp),1(sp)	br	2f1:	movb	6(sp),(sp)2:	mov	(sp)+,r0	jsr	pc,pword	clr	r0	rts	pc_fuiword:	mov	2(sp),r1fuiword:	jsr	pc,giword	rts	pc_fuword:	mov	2(sp),r1fuword:	jsr	pc,gword	rts	pcgiword:	mov	PS,-(sp)	spl	HIGH	mov	nofault,-(sp)	mov	$err,nofault	mfpi	(r1)	mov	(sp)+,r0	br	1fgword:	mov	PS,-(sp)	spl	HIGH	mov	nofault,-(sp)	mov	$err,nofault	mfpd	(r1)	mov	(sp)+,r0	br	1f_suiword:	mov	2(sp),r1	mov	4(sp),r0suiword:	jsr	pc,piword	rts	pc_suword:	mov	2(sp),r1	mov	4(sp),r0suword:	jsr	pc,pword	rts	pcpiword:	mov	PS,-(sp)	spl	HIGH	mov	nofault,-(sp)	mov	$err,nofault	mov	r0,-(sp)	mtpi	(r1)	br	1fpword:	mov	PS,-(sp)	spl	HIGH	mov	nofault,-(sp)	mov	$err,nofault	mov	r0,-(sp)	mtpd	(r1)1:	mov	(sp)+,nofault	mov	(sp)+,PS	rts	pcerr:	mov	(sp)+,nofault	mov	(sp)+,PS	tst	(sp)+	mov	$-1,r0	rts	pc.globl	_copyin, _copyout.globl	_copyiin, _copyiout_copyiin:	jsr	pc,copsu1:	mfpi	(r0)+	mov	(sp)+,(r1)+	sob	r2,1b	br	2f_copyin:	jsr	pc,copsu1:	mfpd	(r0)+	mov	(sp)+,(r1)+	sob	r2,1b	br	2f_copyiout:	jsr	pc,copsu1:	mov	(r0)+,-(sp)	mtpi	(r1)+	sob	r2,1b	br	2f_copyout:	jsr	pc,copsu1:	mov	(r0)+,-(sp)	mtpd	(r1)+	sob	r2,1b2:	mov	(sp)+,nofault	mov	(sp)+,r2	clr	r0	rts	pccopsu:	mov	(sp)+,r0	mov	r2,-(sp)	mov	nofault,-(sp)	mov	r0,-(sp)	mov	10(sp),r0	mov	12(sp),r1	mov	14(sp),r2	asr	r2	mov	$1f,nofault	rts	pc1:	mov	(sp)+,nofault	mov	(sp)+,r2	mov	$-1,r0	rts	pc.globl	_idle_idle:	mov	PS,-(sp)	spl	0	wait	mov	(sp)+,PS	rts	pc.globl	_savu, _retu, _aretu_savu:	spl	HIGH	mov	(sp)+,r1	mov	(sp),r0	mov	sp,(r0)+	mov	r5,(r0)+	spl	0	jmp	(r1)_aretu:	spl	7	mov	(sp)+,r1	mov	(sp),r0	br	1f_retu:	spl	7	mov	(sp)+,r1	mov	(sp),KDSA6	mov	$_u,r01:	mov	(r0)+,sp	mov	(r0)+,r5	spl	0	jmp	(r1).globl	_spl0, _spl1, _spl4, _spl5, _spl6, _spl7_spl0:	spl	0	rts	pc_spl1:	spl	1	rts	pc_spl4:	spl	4	rts	pc_spl5:	spl	5	rts	pc_spl6:	spl	6	rts	pc_spl7:	spl	HIGH	rts	pc.globl	_copyseg_copyseg:	mov	PS,-(sp)	mov	4(sp),SISA0	mov	6(sp),SISA1	mov	$10000+HIPRI,PS	mov	r2,-(sp)	clr	r0	mov	$8192.,r1	mov	$32.,r21:	mfpd	(r0)+	mtpd	(r1)+	sob	r2,1b	mov	(sp)+,r2	mov	(sp)+,PS	rts	pc.globl	_clearseg_clearseg:	mov	PS,-(sp)	mov	4(sp),SISA0	mov	$10000+HIPRI,PS	clr	r0	mov	$32.,r11:	clr	-(sp)	mtpd	(r0)+	sob	r1,1b	mov	(sp)+,PS	rts	pc.globl	_dpadd_dpadd:	mov	2(sp),r0	add	4(sp),2(r0)	adc	(r0)	rts	pc.globl	_dpcmp_dpcmp:	mov	2(sp),r0	mov	4(sp),r1	sub	6(sp),r0	sub	8(sp),r1	sbc	r0	bge	1f	cmp	r0,$-1	bne	2f	cmp	r1,$-512.	bhi	3f2:	mov	$-512.,r0	rts	pc1:	bne	2f	cmp	r1,$512.	blo	3f2:	mov	$512.,r13:	mov	r1,r0	rts	pc.globl	_ldiv_ldiv:	clr	r0	mov	2(sp),r1	div	4(sp),r0	rts	pc.globl	_lrem_lrem:	clr	r0	mov	2(sp),r1	div	4(sp),r0	mov	r1,r0	rts	pc.globl	_lshift_lshift:	mov	2(sp),r1	mov	(r1)+,r0	mov	(r1),r1	ashc	4(sp),r0	mov	r1,r0	rts	pc.globl	csvcsv:	mov	r5,r0	mov	sp,r5	mov	r4,-(sp)	mov	r3,-(sp)	mov	r2,-(sp)	jsr	pc,(r0).globl cretcret:	mov	r5,r1	mov	-(r1),r4	mov	-(r1),r3	mov	-(r1),r2	mov	r5,sp	mov	(sp)+,r5	rts	pc.globl	_u_u	= 140000usize	= 16.CSW	= 177570PS	= 177776SSR0	= 177572SSR1	= 177574SSR2	= 177576SSR3	= 172516KISA0	= 172340KISA1	= 172342KISA7	= 172356KISD0	= 172300KDSA0	= 172360KDSA6	= 172374KDSA7	= 172376KDSD0	= 172320MTC	= 172522SISA0	= 172240SISA1	= 172242SISD0	= 172200SISD1	= 172202IO	= 177600.data.globl	_ka6.globl	_cputype_ka6:	KDSA6_cputype:45.stk:	0.bss.globl	nofault, ssrnofault:.=.+2ssr:	.=.+6dispdly:.=.+2saveps:	.=.+2.text/ system profiler//rtt	= 6/CCSB	= 172542/CCSR	= 172540/PS	= 177776//.globl	_sprof, _xprobuf, _probuf, _probsiz, _mode/_probsiz = 7500.+2048.//_isprof:/	mov	$_sprof,104	/ interrupt/	mov	$340,106	/ pri/	mov	$100.,CCSB	/ count set = 100/	mov	$113,CCSR	/ count down, 10kHz, repeat/	rts	pc//_sprof:/	mov	r0,-(sp)/	mov	PS,r0/	ash	$-11.,r0/	bic	$!14,r0/	add	$1,_mode+2(r0)/	adc	_mode(r0)/	cmp	r0,$14		/ user/	beq	done/	mov	2(sp),r0	/ pc/	asr	r0/	asr	r0/	bic	$140001,r0/	cmp	r0,$_probsiz/	blo	1f/	inc	_outside/	br	done/1:/	inc	_probuf(r0)/	bne	done/	mov	r1,-(sp)/	mov	$_xprobuf,r1/2:/	cmp	(r1)+,r0/	bne	3f/	inc	(r1)/	br	4f/3:/	tst	(r1)+/	bne	2b/	sub	$4,r1/	mov	r0,(r1)+/	mov	$1,(r1)+/4:/	mov	(sp)+,r1/done:/	mov	(sp)+,r0/	mov	$113,CCSR/	rtt//.bss/_xprobuf:	.=.+512./_probuf:.=.+_probsiz/_mode:	.=.+16./_outside: .=.+2