232 lines
2.5 KiB
ArmAsm
232 lines
2.5 KiB
ArmAsm
/
|
|
/
|
|
|
|
/ a4 -- pdp-11 assembler pass1
|
|
|
|
rname:
|
|
mov r1,-(sp)
|
|
mov r2,-(sp)
|
|
mov r3,-(sp)
|
|
mov $8,r5
|
|
mov $symbol+8.,r2
|
|
clr -(r2)
|
|
clr -(r2)
|
|
clr -(r2)
|
|
clr -(r2)
|
|
clr -(sp)
|
|
clr -(sp)
|
|
cmp r0,$'~ / symbol not for hash table
|
|
bne 1f
|
|
inc 2(sp)
|
|
clr ch
|
|
1:
|
|
jsr pc,rch
|
|
movb chartab(r0),r3
|
|
ble 1f
|
|
add r3,(sp)
|
|
swab (sp)
|
|
dec r5
|
|
blt 1b
|
|
movb r3,(r2)+
|
|
br 1b
|
|
1:
|
|
mov r0,ch
|
|
mov (sp)+,r1
|
|
clr r0
|
|
tst (sp)+
|
|
beq 1f
|
|
mov symend,r4
|
|
br 4f
|
|
1:
|
|
div $hshsiz,r0
|
|
ashc $1,r0
|
|
add $hshtab,r1
|
|
1:
|
|
sub r0,r1
|
|
cmp r1,$hshtab
|
|
bhi 2f
|
|
add $2*hshsiz,r1
|
|
2:
|
|
mov $symbol,r2
|
|
mov -(r1),r4
|
|
beq 3f
|
|
cmp (r2)+,(r4)+
|
|
bne 1b
|
|
cmp (r2)+,(r4)+
|
|
bne 1b
|
|
cmp (r2)+,(r4)+
|
|
bne 1b
|
|
cmp (r2)+,(r4)+
|
|
bne 1b
|
|
br 1f
|
|
3:
|
|
mov symend,r4
|
|
mov r4,(r1)
|
|
4:
|
|
mov $symbol,r2
|
|
mov r4,-(sp)
|
|
add $20,r4
|
|
cmp r4,0f
|
|
blos 4f
|
|
add $512.,0f
|
|
sys indir; 9f
|
|
.data
|
|
9: sys break; 0:end
|
|
.text
|
|
4:
|
|
mov (sp)+,r4
|
|
mov (r2)+,(r4)+
|
|
mov (r2)+,(r4)+
|
|
mov (r2)+,(r4)+
|
|
mov (r2)+,(r4)+
|
|
clr (r4)+
|
|
clr (r4)+
|
|
mov r4,symend
|
|
sub $4,r4
|
|
1:
|
|
mov r4,-(sp)
|
|
mov r4,r3
|
|
sub $8,r3
|
|
cmp r3,$usymtab
|
|
blo 1f
|
|
sub $usymtab,r3
|
|
clr r2
|
|
div $3,r2
|
|
mov r2,r4
|
|
add $4000,r4 / user symbol
|
|
br 2f
|
|
1:
|
|
sub $symtab,r3
|
|
clr r2
|
|
div $3,r2
|
|
mov r2,r4
|
|
add $1000,r4 / builtin symbol
|
|
2:
|
|
jsr pc,putw
|
|
mov (sp)+,r4
|
|
mov (sp)+,r3
|
|
mov (sp)+,r2
|
|
mov (sp)+,r1
|
|
tst (sp)+
|
|
rts pc
|
|
|
|
number:
|
|
mov r2,-(sp)
|
|
mov r3,-(sp)
|
|
mov r5,-(sp)
|
|
clr r1
|
|
clr r5
|
|
1:
|
|
jsr pc,rch
|
|
jsr r5,betwen; '0; '9
|
|
br 1f
|
|
sub $'0,r0
|
|
mpy $10.,r5
|
|
add r0,r5
|
|
als $3,r1
|
|
add r0,r1
|
|
br 1b
|
|
1:
|
|
cmp r0,$'b
|
|
beq 1f
|
|
cmp r0,$'f
|
|
beq 1f
|
|
cmp r0,$'.
|
|
bne 2f
|
|
mov r5,r1
|
|
clr r0
|
|
2:
|
|
movb r0,ch
|
|
mov r1,r0
|
|
mov (sp)+,r5
|
|
mov (sp)+,r3
|
|
mov (sp)+,r2
|
|
rts pc
|
|
1:
|
|
mov r0,r3
|
|
mov r5,r0
|
|
jsr pc,fbcheck
|
|
add $141,r0
|
|
cmp r3,$'b
|
|
beq 1f
|
|
add $10.,r0
|
|
1:
|
|
mov r0,r4
|
|
mov (sp)+,r5
|
|
mov (sp)+,r3
|
|
mov (sp)+,r2
|
|
add $2,(sp)
|
|
rts pc
|
|
|
|
rch:
|
|
movb ch,r0
|
|
beq 1f
|
|
clrb ch
|
|
rts pc
|
|
1:
|
|
dec inbfcnt
|
|
blt 2f
|
|
movb *inbfp,r0
|
|
inc inbfp
|
|
bic $!177,r0
|
|
beq 1b
|
|
rts pc
|
|
2:
|
|
movb fin,r0
|
|
beq 3f
|
|
sys read; inbuf;512.
|
|
bcs 2f
|
|
tst r0
|
|
beq 2f
|
|
mov r0,inbfcnt
|
|
mov $inbuf,inbfp
|
|
br 1b
|
|
2:
|
|
movb fin,r0
|
|
clrb fin
|
|
sys close
|
|
3:
|
|
decb nargs
|
|
bgt 2f
|
|
mov $'\e,r0
|
|
rts pc
|
|
2:
|
|
tst ifflg
|
|
beq 2f
|
|
jsr r5,error; 'i
|
|
jmp aexit
|
|
2:
|
|
mov curarg,r0
|
|
tst (r0)+
|
|
mov (r0),0f
|
|
mov r0,curarg
|
|
incb fileflg
|
|
sys indir; 9f
|
|
.data
|
|
9: sys open; 0:0; 0
|
|
.text
|
|
bec 2f
|
|
mov 0b,r0
|
|
jsr r5,filerr; <?\n>
|
|
jmp aexit
|
|
2:
|
|
movb r0,fin
|
|
mov $1,line
|
|
mov r4,-(sp)
|
|
mov r1,-(sp)
|
|
mov $5,r4
|
|
jsr pc,putw
|
|
mov *curarg,r1
|
|
2:
|
|
movb (r1)+,r4
|
|
beq 2f
|
|
jsr pc,putw
|
|
br 2b
|
|
2:
|
|
mov $-1,r4
|
|
jsr pc,putw
|
|
mov (sp)+,r1
|
|
mov (sp)+,r4
|
|
br 1b
|
|
|