Research V5 development

Work on file usr/source/s1/as16.s

Synthesized-from: v5

diff --git a/usr/source/s1/as16.s b/usr/source/s1/as16.s
new file mode 100644 (file)
index 0000000..0a26ae8
--- /dev/null
+++ b/usr/source/s1/as16.s
@@ -0,0 +1,293 @@
+/
+/ copyright 1972 bell telephone laboratories inc.
+/
+
+/ a6 -- pdp-11 assembler pass 1
+
+opline:
+       mov     r4,r0
+       jsr     r5,betwen; 0; 200
+               br      1f
+       cmp     r0,$'<
+       bne     xpr
+       jmp     opl17
+xpr:
+       jsr     pc,expres
+       add     $2,dot
+       rts     pc
+1:
+       movb    (r4),r0
+       cmp     r0,$24
+       beq     xpr
+       jsr     r5,betwen; 5; 36
+               br xpr
+       mov     r0,-(sp)
+       jsr     pc,readop
+       mov     (sp)+,r0
+       asl     r0
+       jmp     *1f-12(r0)
+
+1:
+       opl13   / map fop freg,fdst to double
+       opl6
+       opl7
+       opl10
+       opl11
+       opl13   / map fld/fst to double
+       opl13
+       opl13   / map fop fsrc,freg to double
+       opl15
+       opl16
+       opl17
+       opl20
+       opl21
+       opl22
+       opl23
+       xpr
+       opl25
+       opl26
+       opl27
+       opl13  / map mul s,r to double
+       opl31
+       opl32
+       xpr
+       xpr
+       opl35
+       opl36
+
+/ jbr
+opl35:
+       mov     $4,-(sp)
+       br      1f
+
+/ jeq, etc
+opl36:
+       mov     $6,-(sp)
+1:
+       jsr     pc,expres
+       cmp     r3,dotrel
+       bne     1f
+       sub     dot,r2
+       bge     1f
+       cmp     r2,$-376
+       blt     1f
+       mov     $2,(sp)
+1:
+       add     (sp)+,dot
+       rts     pc
+
+/double
+opl13:
+opl7:
+       jsr     pc,addres
+op2:
+       cmp     r4,$',
+       beq     1f
+       jsr     pc,errora
+       rts     pc
+1:
+       jsr     pc,readop
+opl15:   / single operand
+       jsr     pc,addres
+       add     $2,dot
+       rts     pc
+
+opl31: / sob
+       jsr     pc,expres
+       cmp     r4,$',
+       beq     1f
+       jsr     pc,errora
+1:
+       jsr     pc,readop
+
+/branch
+opl6:
+opl10:
+opl11:
+       jsr     pc,expres
+       add     $2,dot
+       rts     pc
+
+/ .byte
+opl16:
+       jsr     pc,expres
+       inc     dot
+       cmp     r4,$',
+       bne     1f
+       jsr     pc,readop
+       br      opl16
+1:
+       rts     pc
+
+/ < (.ascii)
+opl17:
+       add     numval,dot
+       jsr     pc,readop
+       rts     pc
+
+/.even
+opl20:
+       inc     dot
+       bic     $1,dot
+       rts     pc
+
+/.if
+opl21:
+       jsr     pc,expres
+       tst     r3
+       bne     1f
+       jsr     r5,error; 'U
+1:
+       tst     r2
+       bne     opl22
+       inc     ifflg
+opl22: /endif
+       rts     pc
+
+/.globl
+opl23:
+       cmp     r4,$200
+       blo     1f
+       bisb    $40,(r4)
+       jsr     pc,readop
+       cmp     r4,$',
+       bne     1f
+       jsr     pc,readop
+       br      opl23
+1:
+       rts     pc
+
+opl25:
+opl26:
+opl27:
+       mov     dotrel,r1
+       asl     r1
+       mov     dot,savdot-4(r1)
+       mov     savdot-[2*25](r0),dot
+       asr     r0
+       sub     $25-2,r0
+       mov     r0,dotrel
+       rts     pc
+
+/ .common
+opl32:
+       cmp     r4,$200
+       blo     1f
+       bis     $40,(r4)
+       jsr     pc,readop
+       cmp     r4,$',
+       bne     1f
+       jsr     pc,readop
+       jsr     pc,expres
+       rts     pc
+1:
+       jsr     r5,error; 'x
+       rts     pc
+
+addres:
+       cmp     r4,$'(
+       beq     alp
+       cmp     r4,$'-
+       beq     amin
+       cmp     r4,$'$
+       beq     adoll
+       cmp     r4,$'*
+       beq     astar
+getx:
+       jsr     pc,expres
+       cmp     r4,$'(
+       bne     2f
+       jsr     pc,readop
+       jsr     pc,expres
+       jsr     pc,checkreg
+       jsr     pc,checkrp
+       add     $2,dot
+       clr     r0
+       rts     pc
+2:
+       cmp     r3,$24          / register type
+       bne     1f
+       jsr     pc,checkreg
+       clr     r0
+       rts     pc
+1:
+       add     $2,dot
+       clr     r0
+       rts     pc
+
+alp:
+       jsr     pc,readop
+       jsr     pc,expres
+       jsr     pc,checkrp
+       jsr     pc,checkreg
+       cmp     r4,$'+
+       bne     1f
+       jsr     pc,readop
+       clr     r0
+       rts     pc
+1:
+       mov     $2,r0
+       rts     pc
+
+amin:
+       jsr     pc,readop
+       cmp     r4,$'(
+       beq     1f
+       mov     r4,savop
+       mov     $'-,r4
+       br      getx
+1:
+       jsr     pc,readop
+       jsr     pc,expres
+       jsr     pc,checkrp
+       jsr     pc,checkreg
+       clr     r0
+       rts     pc
+
+adoll:
+       jsr     pc,readop
+       jsr     pc,expres
+       add     $2,dot
+       clr     r0
+       rts     pc
+
+astar:
+       jsr     pc,readop
+       cmp     r0,$'*
+       beq     1f
+       jsr     pc,addres
+       add     r0,dot
+       rts     pc
+2:
+       jsr     r5,error; '*
+       rts     pc
+
+errora:
+       jsr     r5,error; 'a
+       rts     pc
+
+checkreg:
+       cmp     r2,$7
+       bhi     1f
+       cmp     r3,$1
+       beq     2f
+       cmp     r3,$4
+       bhi     2f
+1:
+       jsr     pc,errora
+2:
+       rts     pc
+
+errore:
+       jsr     r5,error; 'e
+       rts     pc
+
+checkrp:
+       cmp     r4,$')
+       beq     1f
+       jsr     r5,error; ')
+       rts     pc
+1:
+       jsr     pc,readop
+       rts     pc
+