UNIX 6th Ed. - /usr/source/as/as12.s

   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: 2:
  69:         rts     pc

Defined functions