[unix-history] / usr / src / cmd / as / as13.s

/
/

/ a3 -- pdp-11 assembler pass 1

assem:
	jsr	pc,readop
	jsr	pc,checkeos
		br ealoop
	tst	ifflg
	beq	3f
	cmp	r4,$200
	blos	assem
	cmpb	(r4),$21	/if
	bne	2f
	inc	ifflg
2:
	cmpb	(r4),$22   /endif
	bne	assem
	dec	ifflg
	br	assem
3:
	mov	r4,-(sp)
	jsr	pc,readop
	cmp	r4,$'=
	beq	4f
	cmp	r4,$':
	beq	1f
	mov	r4,savop
	mov	(sp)+,r4
	jsr	pc,opline
	br	ealoop
1:
	mov	(sp)+,r4
	cmp	r4,$200
	bhis	1f
	cmp	r4,$1		/ digit
	beq	3f
	jsr	r5,error; 'x
	br	assem
1:
	bitb	$37,(r4)
	beq	1f
	jsr	r5,error; 'm
1:
	bisb	dot-2,(r4)
	mov	dot,2(r4)
	br	assem
3:
	mov	numval,r0
	jsr	pc,fbcheck
	movb	dotrel,curfbr(r0)
	asl	r0
	movb	dotrel,nxtfb
	mov	dot,nxtfb+2
	movb	r0,nxtfb+1
	mov	dot,curfb(r0)
	movb	fbfil,r0
	sys	write; nxtfb; 4
	jes	wrterr
	br	assem
4:
	jsr	pc,readop
	jsr	pc,expres
	mov	(sp)+,r1
	cmp	r1,$200
	bhis	1f
	jsr	r5,error; 'x
	br	ealoop
1:
	cmp	r1,$dotrel
	bne	2f
	bic	$40,r3
	cmp	r3,dotrel
	bne	1f
2:
	bicb	$37,(r1)
	bic	$!37,r3
	bne	2f
	clr	r2
2:
	bisb	r3,(r1)
	mov	r2,2(r1)
	br	ealoop
1:
	jsr	r5,error; '.
	movb	$2,dotrel
ealoop:
	cmp	r4,$';
	beq	assem1
	cmp	r4,$'\n
	bne	1f
	inc	line
	br	assem1
1:
	cmp	r4,$'\e
	bne	2f
	tst	ifflg
	beq	1f
	jsr	r5,error; 'x
1:
	rts	pc
2:
	jsr	r5,error; 'x
2:
	jsr	pc,checkeos
		br assem1
	jsr	pc,readop
	br	2b
assem1:
	jmp	assem

fbcheck:
	cmp	r0,$9.
	bhi	1f
	rts	pc
1:
	jsr	r5,error; 'f
	clr	r0
	rts	pc

checkeos:
	cmp	r4,$'\n
	beq	1f
	cmp	r4,$';
	beq	1f
	cmp	r4,$'\e
	beq	1f
	add	$2,(sp)
1:
	rts	pc
Commit	Line	Data
8d8c20ed DR	1	/
	2	/
	3
	4	/ a3 -- pdp-11 assembler pass 1
	5
	6	assem:
	7	jsr pc,readop
	8	jsr pc,checkeos
	9	br ealoop
	10	tst ifflg
	11	beq 3f
	12	cmp r4,$200
	13	blos assem
	14	cmpb (r4),$21 /if
	15	bne 2f
	16	inc ifflg
	17	2:
	18	cmpb (r4),$22 /endif
	19	bne assem
	20	dec ifflg
	21	br assem
	22	3:
	23	mov r4,-(sp)
	24	jsr pc,readop
	25	cmp r4,$'=
	26	beq 4f
	27	cmp r4,$':
	28	beq 1f
	29	mov r4,savop
	30	mov (sp)+,r4
	31	jsr pc,opline
	32	br ealoop
	33	1:
	34	mov (sp)+,r4
	35	cmp r4,$200
	36	bhis 1f
	37	cmp r4,$1 / digit
	38	beq 3f
	39	jsr r5,error; 'x
	40	br assem
	41	1:
	42	bitb $37,(r4)
	43	beq 1f
	44	jsr r5,error; 'm
	45	1:
	46	bisb dot-2,(r4)
	47	mov dot,2(r4)
	48	br assem
	49	3:
	50	mov numval,r0
	51	jsr pc,fbcheck
	52	movb dotrel,curfbr(r0)
	53	asl r0
	54	movb dotrel,nxtfb
	55	mov dot,nxtfb+2
	56	movb r0,nxtfb+1
	57	mov dot,curfb(r0)
	58	movb fbfil,r0
	59	sys write; nxtfb; 4
	60	jes wrterr
	61	br assem
	62	4:
	63	jsr pc,readop
	64	jsr pc,expres
65	mov (sp)+,r1
66	cmp r1,$200
67	bhis 1f
68	jsr r5,error; 'x
69	br ealoop
70	1:
71	cmp r1,$dotrel
72	bne 2f
73	bic $40,r3
74	cmp r3,dotrel
75	bne 1f
76	2:
77	bicb $37,(r1)
78	bic $!37,r3
79	bne 2f
80	clr r2
81	2:
82	bisb r3,(r1)
83	mov r2,2(r1)
84	br ealoop
85	1:
86	jsr r5,error; '.
87	movb $2,dotrel
88	ealoop:
89	cmp r4,$';
90	beq assem1
91	cmp r4,$'\n
92	bne 1f
93	inc line
94	br assem1
95	1:
96	cmp r4,$'\e
97	bne 2f
98	tst ifflg
99	beq 1f
100	jsr r5,error; 'x
101	1:
102	rts pc
103	2:
104	jsr r5,error; 'x
105	2:
106	jsr pc,checkeos
107	br assem1
108	jsr pc,readop
109	br 2b
110	assem1:
111	jmp assem
112
113	fbcheck:
114	cmp r0,$9.
115	bhi 1f
116	rts pc
117	1:
118	jsr r5,error; 'f
119	clr r0
120	rts pc
121
122	checkeos:
123	cmp r4,$'\n
124	beq 1f
125	cmp r4,$';
126	beq 1f
127	cmp r4,$'\e
128	beq 1f
129	add $2,(sp)
130	1:
131	rts pc
132