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

/
/

/ a5 -- pdp-11 assembler pass 1

readop:
	mov	savop,r4
	beq	1f
	clr	savop
	rts	pc
1:
	jsr	pc,8f
	jsr	pc,putw
	rts	pc

8:
	jsr	pc,rch
_readop:
	mov	r0,r4
	movb	chartab(r0),r1
	bgt	rdname
	jmp	*1f-2(r1)

	fixor
	escp
	8b
	retread
	dquote
	garb
	squote
	rdname
	skip
	rdnum
	retread
	string
1:

escp:
	jsr	pc,rch
	mov	$esctab,r1
1:
	cmpb	r0,(r1)+
	beq	1f
	tstb	(r1)+
	bne	1b
	rts	pc
1:
	movb	(r1),r4
	rts	pc

esctab:
	.byte '/, '/
	.byte '\<, 035
	.byte '>, 036
	.byte '%, 037
	.byte 0, 0

fixor:
	mov	$037,r4
retread:
	rts	pc

rdname:
	movb	r0,ch
	cmp	r1,$'0
	blo	1f
	cmp	r1,$'9
	blos	rdnum
1:
	jmp	rname

rdnum:
	jsr	pc,number
		br 1f
	rts	pc

squote:
	jsr	pc,rsch
	br	1f
dquote:
	jsr	pc,rsch
	mov	r0,-(sp)
	jsr	pc,rsch
	swab	r0
	bis	(sp)+,r0
1:
	mov	r0,numval
	mov	$1,r4
	jsr	pc,putw
	mov	numval,r4
	jsr	pc,putw
	mov	$1,r4
	tst	(sp)+
	rts	pc

skip:
	jsr	pc,rch
	mov	r0,r4
	cmp	r0,$'\e
	beq	1f
	cmp	r0,$'\n
	bne	skip
1:
	rts	pc

garb:
	jsr	r5,error; 'g
	br	8b

string:
	mov	$'<,r4
	jsr	pc,putw
	clr	numval
1:
	jsr	pc,rsch
	tst	r1
	bne	1f
	mov	r0,r4
	bis	$400,r4
	jsr	pc,putw
	inc	 numval
	br	1b
1:
	mov	$-1,r4
	jsr	pc,putw
	mov	$'<,r4
	tst	(sp)+
	rts	pc

rsch:
	jsr	pc,rch
	cmp	r0,$'\e
	beq	4f
	cmp	r0,$'\n
	beq	4f
	clr	r1
	cmp	r0,$'\\
	bne	3f
	jsr	pc,rch
	mov	$schar,r2
1:
	cmpb	(r2)+,r0
	beq	2f
	tstb	(r2)+
	bpl	1b
	rts	pc
2:
	movb	(r2)+,r0
	clr	r1
	rts	pc
3:
	cmp	r0,$'>
	bne	1f
	inc	r1
1:
	rts	pc
4:
	jsr	r5,error; '<
	jmp	aexit

schar:
	.byte 'n, 012
	.byte 's, 040
	.byte 't, 011
	.byte 'e, 004
	.byte '0, 000
	.byte 'r, 015
	.byte 'a, 006
	.byte 'p, 033
	.byte 0,  -1
Commit	Line	Data
8d8c20ed DR	1	/
	2	/
	3
	4	/ a5 -- pdp-11 assembler pass 1
	5
	6	readop:
	7	mov savop,r4
	8	beq 1f
	9	clr savop
	10	rts pc
	11	1:
	12	jsr pc,8f
	13	jsr pc,putw
	14	rts pc
	15
	16	8:
	17	jsr pc,rch
	18	_readop:
	19	mov r0,r4
	20	movb chartab(r0),r1
	21	bgt rdname
	22	jmp *1f-2(r1)
	23
	24	fixor
	25	escp
	26	8b
	27	retread
	28	dquote
	29	garb
	30	squote
	31	rdname
	32	skip
	33	rdnum
	34	retread
	35	string
	36	1:
	37
	38	escp:
	39	jsr pc,rch
	40	mov $esctab,r1
	41	1:
	42	cmpb r0,(r1)+
	43	beq 1f
	44	tstb (r1)+
	45	bne 1b
	46	rts pc
	47	1:
	48	movb (r1),r4
	49	rts pc
	50
	51	esctab:
	52	.byte '/, '/
	53	.byte '\<, 035
	54	.byte '>, 036
	55	.byte '%, 037
	56	.byte 0, 0
	57
	58	fixor:
	59	mov $037,r4
	60	retread:
	61	rts pc
	62
	63	rdname:
	64	movb r0,ch
65	cmp r1,$'0
66	blo 1f
67	cmp r1,$'9
68	blos rdnum
69	1:
70	jmp rname
71
72	rdnum:
73	jsr pc,number
74	br 1f
75	rts pc
76
77	squote:
78	jsr pc,rsch
79	br 1f
80	dquote:
81	jsr pc,rsch
82	mov r0,-(sp)
83	jsr pc,rsch
84	swab r0
85	bis (sp)+,r0
86	1:
87	mov r0,numval
88	mov $1,r4
89	jsr pc,putw
90	mov numval,r4
91	jsr pc,putw
92	mov $1,r4
93	tst (sp)+
94	rts pc
95
96	skip:
97	jsr pc,rch
98	mov r0,r4
99	cmp r0,$'\e
100	beq 1f
101	cmp r0,$'\n
102	bne skip
103	1:
104	rts pc
105
106	garb:
107	jsr r5,error; 'g
108	br 8b
109
110	string:
111	mov $'<,r4
112	jsr pc,putw
113	clr numval
114	1:
115	jsr pc,rsch
116	tst r1
117	bne 1f
118	mov r0,r4
119	bis $400,r4
120	jsr pc,putw
121	inc numval
122	br 1b
123	1:
124	mov $-1,r4
125	jsr pc,putw
126	mov $'<,r4
127	tst (sp)+
128	rts pc
129
130	rsch:
131	jsr pc,rch
132	cmp r0,$'\e
133	beq 4f
134	cmp r0,$'\n
135	beq 4f
136	clr r1
137	cmp r0,$'\\
138	bne 3f
139	jsr pc,rch
140	mov $schar,r2
141	1:
142	cmpb (r2)+,r0
143	beq 2f
144	tstb (r2)+
145	bpl 1b
146	rts pc
147	2:
148	movb (r2)+,r0
149	clr r1
150	rts pc
151	3:
152	cmp r0,$'>
153	bne 1f
154	inc r1
155	1:
156	rts pc
157	4:
158	jsr r5,error; '<
159	jmp aexit
160
161	schar:
162	.byte 'n, 012
163	.byte 's, 040
164	.byte 't, 011
165	.byte 'e, 004
166	.byte '0, 000
167	.byte 'r, 015
168	.byte 'a, 006
169	.byte 'p, 033
170	.byte 0, -1
171