Commit | Line | Data |
---|---|---|
8d8c20ed DR |
1 | / |
2 | / | |
3 | ||
4 | / a2 -- pdp-11 assembler pass 1 | |
5 | ||
6 | error: | |
7 | incb errflg | |
8 | mov r0,-(sp) | |
9 | mov r1,-(sp) | |
10 | mov (r5)+,r0 | |
11 | tst *curarg | |
12 | beq 1f | |
13 | mov r0,-(sp) | |
14 | mov *curarg,r0 | |
15 | clr *curarg | |
16 | jsr r5,filerr; '\n | |
17 | mov (sp)+,r0 | |
18 | 1: | |
19 | mov r2,-(sp) | |
20 | mov r3,-(sp) | |
21 | mov line,r3 | |
22 | movb r0,1f | |
23 | mov $1f+6,r0 | |
24 | mov $4,r1 | |
25 | 2: | |
26 | clr r2 | |
27 | dvd $10.,r2 | |
28 | add $'0,r3 | |
29 | movb r3,-(r0) | |
30 | mov r2,r3 | |
31 | sob r1,2b | |
32 | mov $1,r0 | |
33 | sys write; 1f; 7 | |
34 | mov (sp)+,r3 | |
35 | mov (sp)+,r2 | |
36 | mov (sp)+,r1 | |
37 | mov (sp)+,r0 | |
38 | rts r5 | |
39 | ||
40 | .data | |
41 | 1: <f xxxx\n> | |
42 | .even | |
43 | .text | |
44 | ||
45 | betwen: | |
46 | cmp r0,(r5)+ | |
47 | blt 1f | |
48 | cmp (r5)+,r0 | |
49 | blt 2f | |
50 | 1: | |
51 | tst (r5)+ | |
52 | 2: | |
53 | rts r5 | |
54 | ||
55 | putw: | |
56 | tst ifflg | |
57 | beq 1f | |
58 | cmp r4,$'\n | |
59 | bne 2f | |
60 | 1: | |
61 | mov r4,*obufp | |
62 | add $2,obufp | |
63 | cmp obufp,$outbuf+512. | |
64 | blo 2f | |
65 | mov $outbuf,obufp | |
66 | movb pof,r0 | |
67 | sys write; outbuf; 512. | |
68 | jes wrterr | |
69 | 2: | |
70 | rts pc | |
71 |