2.9BSD - /usr/src/ucb/pascal/px/04as.s

   1: /
   2: / ASSIGNMENT OPERATORS
   3: /
   4: _AS42:
   5:         tst     (sp)+
   6: _AS2:
   7:         mov     (sp)+,*(sp)+
   8:         return
   9: _AS4:
  10:         mov     (sp)+,r0
  11:         mov     (sp)+,r1
  12: 1:
  13:         mov     (sp)+,r2
  14:         mov     r0,(r2)+
  15:         mov     r1,(r2)
  16:         return
  17: _AS24:
  18:         mov     (sp)+,r1
  19:         sxt     r0
  20:         br      1b
  21: _AS41:
  22:         tst     (sp)+
  23: _AS21:
  24:         movb    (sp)+,*(sp)+
  25:         return
  26: _AS28:
  27:         tst     (sp)
  28:         sxt     -(sp)
  29: _AS48:
  30:         movif   (sp)+,fr0
  31:         movf    fr0,*(sp)+
  32:         return
  33: _AS8:
  34:         mov     $8.,r3
  35: _AS:
  36: 
  37:         bne     3f
  38:         mov     (lc)+,r3
  39: 3:
  40:         mov     sp,r2
  41:         add     r3,r2
  42:         inc     r2
  43:         bic     $1,r2
  44:         mov     (r2),r2
  45:         clc
  46:         ror     r3
  47:         beq     2f
  48: 1:
  49:         mov     (sp)+,(r2)+
  50:         sob     r3,1b
  51: 2:
  52:         bcc     1f
  53:         movb    (sp)+,(r2)+
  54: 1:
  55:         tst     (sp)+
  56:         return

Defined functions