/// a6 -- pdp-11 assembler pass 2opline:	mov	r4,r0	jsr	r5,betwen; 0; 177		br 2f	cmp	r4,$5	beq	opeof	cmp	r4,$'<	bne	xpr	jmp	opl17xxpr:	tst	(sp)+xpr:	jsr	pc,expres	jsr	pc,outw	rts	pc2:	movb	(r4),r0	cmp	r0,$24		/reg	beq	xpr	cmp	r0,$33		/est text	beq	xpr	cmp	r0,$34		/ est data	beq	xpr	jsr	r5,betwen; 5; 36		br xpr	mov	2(r4),-(sp)	mov	r0,-(sp)	jsr	pc,readop	mov	(sp)+,r0	asl	r0	mov	$adrbuf,r5	clr	swapf	mov	$-1,rlimit	jmp	*1f-10.(r0)1:	opl5	opl6	opl7	opl10	opl11	opl12	opl13	opl14	opl15	opl16	opl17	opl20	opl21	opl22	opl23	xxpr	opl25	opl26	opl27	opl30	opl31	opl32	xxpr	xxpr	opl35	opl36opeof:	mov	$1,line	mov	$20,-(sp)	mov	$argb,r11:	jsr	pc,getw	tst	r4	bmi	1f	movb	r4,(r1)+	dec	(sp)	bgt	1b	tstb	-(r1)	br	1b1:	movb	$'\n,(r1)+	clrb	(r1)+	tst	(sp)+	rts	pcopl30:	/ mpy, dvd etc	inc	swapf	mov	$1000,rlimit	br	opl13opl14:		/ flop freg,fsrc	inc	swapfopl5:		/ flop src,freg	mov	$400,rlimit/doubleopl13:	jsr	pc,addresop2a:	mov	r2,-(sp)	jsr	pc,readopop2b:	jsr	pc,addres	tst	swapf	beq	1f	mov	(sp),r0	mov	r2,(sp)	mov	r0,r21:	swab	(sp)	asr	(sp)	asr	(sp)	cmp	(sp),rlimit	blo	1f	jsr	r5,error; 'x1:	bis	(sp)+,r2	bis	(sp)+,r2	clr	r3	jsr	pc,outw	mov	$adrbuf,r11:	cmp	r1,r5	bhis	1f	mov	(r1)+,r2	mov	(r1)+,r3	mov	(r1)+,xsymbol	jsr	pc,outw	br	1b1:	rts	pcopl15:		/ single operand	clr	-(sp)	br	op2bopl12:		/ movf	mov	$400,rlimit	jsr	pc,addres	cmp	r2,$4		/ see if source is fregister	blo	1f	inc	swapf	br	op2a1:	mov	$174000,(sp)	br	op2a/ jbropl35:/ jeq, jne, etcopl36:	jsr	pc,expres	tstb	passno	bne	1f	mov	r2,r0	jsr	pc,setbr	tst	r2	beq	2f	cmp	(sp),$br	beq	2f	add	$2,r22:	add	r2,dot		/ if doesn't fit	add	$2,dot	tst	(sp)+	rts	pc1:	jsr	pc,getbr	bcc	dobranch	mov	(sp)+,r0	mov	r2,-(sp)	mov	r3,-(sp)	cmp	r0,$br	beq	2f	mov	$402,r2	xor	r0,r2		/ flip cond, add ".+6"	mov	$1,r3	jsr	pc,outw2:	mov	$1,r3	mov	$jmp+37,r2	jsr	pc,outw	mov	(sp)+,r3	mov	(sp)+,r2	jsr	pc,outw	rts	pc/sobopl31:	/ sob	jsr	pc,expres	jsr	pc,checkreg	swab	r2	asr	r2	asr	r2	bis	r2,(sp)	jsr	pc,readop	jsr	pc,expres	tstb	passno	beq	3f	sub	dot,r2	neg	r2	mov	r2,r0	jsr	r5,betwen; -2; 175		br 2f	add	$4,r2	br	1f/branchopl6:	jsr	pc,expres	tstb	passno	beq	3fdobranch:	sub	dot,r2	mov	r2,r0	jsr	r5,betwen; -254.; 256.		br 2f1:	bit	$1,r2	bne	2f	cmp	r3,dot-2	/ same relocation as .	bne	2f	asr	r2	dec	r2	bic	$177400,r23:	bis	(sp)+,r2	clr	r3	jsr	pc,outw	rts	pc2:	jsr	r5,error; 'b	clr	r2	br	3b/jsropl7:	jsr	pc,expres	jsr	pc,checkreg	jmp	op2a/ rtsopl10:	jsr	pc,expres	jsr	pc,checkreg	br	1f/ sys, emt etcopl11:	jsr	pc,expres	cmp	r2,$256.	bhis	0f	cmp	r3,$1	ble	1f0:	jsr	pc,errora1:	bis	(sp)+,r2	jsr	pc,outw	rts	pc/ .byteopl16:	jsr	pc,expres	jsr	pc,outb	cmp	r4,$',	bne	1f	jsr	pc,readop	br	opl161:	tst	(sp)+	rts	pc/ < (.ascii)opl17:	jsr	pc,getw	mov	$1,r3	mov	r4,r2	bmi	2f	bic	$!377,r2	jsr	pc,outb	br	opl172:	jsr	pc,getw	rts	pc/.evenopl20:	bit	$1,dot	beq	1f	cmp	dot-2,$4	beq	2f		/ bss mode	clr	r2	clr	r3	jsr	pc,outb	br	1f2:	inc	dot1:	tst	(sp)+	rts	pcopl21:	/if	jsr	pc,expresopl22:oplret:	tst	(sp)+	rts	pc/.globlopl23:	cmp	r4,$200	blo	1f	bisb	$40,(r4)	jsr	pc,readop	cmp	r4,$',	bne	1f	jsr	pc,readop	br	opl231:	tst	(sp)+	rts	pc/ .text, .data, .bssopl25:opl26:opl27:	inc	dot	bic	$1,dot	mov	r0,-(sp)	mov	dot-2,r1	asl	r1	mov	dot,savdot-4(r1)	tstb	passno	beq	1f	jsr	r5,flush; txtp	jsr	r5,flush; relp	mov	(sp),r2	asl	r2	add	$txtseek-[4*25],r2	mov	r2,tseekp	mov	(r2),r0	mov	2(r2),r1	jsr	r5,oset; txtp	add	$trelseek-txtseek,r2	mov	(r2),r0	mov	2(r2),r1	mov	r2,rseekp	jsr	r5,oset; relp1:	mov	(sp)+,r0	mov	savdot-[2*25](r0),dot	asr	r0	sub	$25-2,r0	mov	r0,dot-2	/ new . relocation	tst	(sp)+	rts	pcopl32:	cmp	r4,$200	blo	1f	mov	r4,-(sp)	jsr	pc,readop	jsr	pc,readop	jsr	pc,expres	mov	(sp)+,r0	bit	$37,(r0)	bne	1f	bis	$40,(r0)	mov	r2,2(r0)1:	tst	(sp)+	rts	pcaddres:	clr	-(sp)4:	cmp	r4,$'(	beq	alp	cmp	r4,$'-	beq	amin	cmp	r4,$'$	beq	adoll	cmp	r4,$'*	bne	getx	jmp	astargetx:	jsr	pc,expres	cmp	r4,$'(	bne	2f	jsr	pc,readop	mov	r2,(r5)+	mov	r3,(r5)+	mov	xsymbol,(r5)+	jsr	pc,expres	jsr	pc,checkreg	jsr	pc,checkrp	bis	$60,r2	bis	(sp)+,r2	rts	pc2:	cmp	r3,$24	bne	1f	jsr	pc,checkreg	bis	(sp)+,r2	rts	pc1:	mov	r3,-(sp)	bic	$40,r3	mov	(sp)+,r3	bis	$100000,r3	sub	dot,r2	sub	$4,r2	cmp	r5,$adrbuf	beq	1f	sub	$2,r21:	mov	r2,(r5)+		/ index	mov	r3,(r5)+		/ index reloc.	mov	xsymbol,(r5)+		/ index global	mov	$67,r2			/ address mode	bis	(sp)+,r2	rts	pcalp:	jsr	pc,readop	jsr	pc,expres	jsr	pc,checkrp	jsr	pc,checkreg	cmp	r4,$'+	beq	1f	tst	(sp)+	beq	2f	bis	$70,r2	clr	(r5)+	clr	(r5)+	mov	xsymbol,(r5)+	rts	pc2:	bis	$10,r2	rts	pc1:	jsr	pc,readop	bis	$20,r2	bis	(sp)+,r2	rts	pcamin:	jsr	pc,readop	cmp	r4,$'(	beq	1f	mov	r4,savop	mov	$'-,r4	br	getx1:	jsr	pc,readop	jsr	pc,expres	jsr	pc,checkrp	jsr	pc,checkreg	bis	(sp)+,r2	bis	$40,r2	rts	pcadoll:	jsr	pc,readop	jsr	pc,expres	mov	r2,(r5)+	mov	r3,(r5)+	mov	xsymbol,(r5)+	mov	(sp)+,r2	bis	$27,r2	rts	pcastar:	tst	(sp)	beq	1f	jsr	r5,error; '*1:	mov	$10,(sp)	jsr	pc,readop	jmp	4berrora:	jsr	r5,error; 'a	rts	pccheckreg:	cmp	r2,$7	bhi	1f	cmp	r1,$1	blos	2f	cmp	r3,$5	blo	1f2:	rts	pc1:	jsr	pc,errora	clr	r2	clr	r3	rts	pcerrore:	jsr	r5,error; 'e	rts	pccheckrp:	cmp	r4,$')	beq	1f	jsr	r5,error; ')	rts	pc1:	jsr	pc,readop	rts	pcsetbr:	mov	brtabp,r1	cmp	r1,$brlen	blt	1f	mov	$2,r2	rts	pc1:	inc	brtabp	clr	-(sp)	sub	dot,r0	ble	1f	sub	brdelt,r01:	jsr	r5,betwen; -254.; 256.		br 1f	br	2f1:	mov	r1,-(sp)	bic	$!7,(sp)	mov	$1,r0	ash	(sp)+,r0	ash	$-3,r1	bisb	r0,brtab(r1)	mov	$2,(sp)2:	mov	(sp)+,r2	rts	pcgetbr:	mov	brtabp,r1	cmp	r1,$brlen	blt	1f	sec	rts	pc1:	mov	r1,-(sp)	bic	$!7,(sp)	neg	(sp)	inc	brtabp	ash	$-3,r1	movb	brtab(r1),r1	ash	(sp)+,r1	ror	r1		/ 0-bit into c-bit	rts	pc