Start development on BSD 1

[unix-history] / .ref-Research-V6 / usr / source / fort / f3 / f37.s

/
/

/ f37 -- goto statements of all kinds

.globl  sgoto
.globl  intexp

.globl  e2
.globl  code
.globl  getsym
.globl  error
.globl  getlab
.globl  rvalue
.globl  convrt
.globl  chrtab

sgoto:
       movb    (r1),r0
       cmpb    chrtab(r0),$4           / test digit
       bne     1f                      / not constant
       jsr     r5,getlab
               br 8f
       jsr     r5,code
               <       goto; .%d\n\0>; .even
               r0
       br      9f
1:
       cmpb    (r1),$'(
       beq     1f
       jsr     r5,intexp
       cmp     r0,$36.                 / ,
       beq     2f
       jsr     r5,code
               <       agoto\n\0>; .even
       br      9f
2:
       jsr     r5,code
               <       cagoto\n\0>; .even
       cmpb    (r1)+,$'(
       bne     8f                      / syntax
       jsr     pc,stmlist
       br      9f
1:
       mov     r1,r4
1:
       movb    (r1)+,r0
       beq     8f
       cmp     r0,$')
       bne     1b
       cmpb    (r1)+,$',
       bne     8f
       jsr     r5,intexp
       mov     r1,-(sp)
       jsr     r5,code
               <       cgoto\n\0>; .even
       mov     r4,r1
       tstb    (r1)+
       jsr     pc,stmlist
       mov     (sp)+,r1
9:
       tstb    (r1)
       beq     1f
8:
       jsr     r5,error; 35.
1:
       rts     r5

stmlist:
       jsr     r5,getlab
               br 9f
       jsr     r5,code
               <       .%d\n\0>; .even
               r0
       movb    (r1)+,r0
       cmp     r0,$',
       beq     stmlist
       cmp     r0,$')
       bne     8f
       jsr     r5,code
               <       0\n\0>; .even
       rts     pc
8:
       jsr     r5,error; 35.
9:
       rts     pc

intexp:
       jsr     r5,e2
       mov     r0,-(sp)
       jsr     r5,rvalue
       mov     $intcon,r2
       jsr     r5,convrt
       mov     (sp)+,r0
       rts     r5