UNIX 6th Ed. - /usr/source/fort/rt/rg.s

   1: /
   2: /
   3: 
   4: / rg -- assignments
   5: 
   6: .globl  gmv1
   7: .globl  gmv2
   8: .globl  gmv4
   9: .globl  gmv8
  10: .globl  gmv16
  11: .globl  stst
  12: 
  13: gmv1:
  14:         movb    (sp)+,*(r4)+
  15:         jmp     *(r4)+
  16: 
  17: gmv2:
  18: stst:
  19:         mov     (sp)+,*(r4)+
  20:         jmp     *(r4)+
  21: 
  22: gmv4:
  23:         mov     (r4)+,r0
  24:         mov     (sp)+,(r0)+
  25:         mov     (sp)+,(r0)+
  26:         jmp     *(r4)+
  27: 
  28: gmv8:
  29:         setd
  30:         movf    (sp)+,fr0
  31:         movf    fr0,*(r4)+
  32:         jmp     *(r4)+
  33: 
  34: gmv16:
  35:         setd
  36:         mov     (r4)+,r0
  37:         movf    (sp)+,fr0
  38:         movf    fr0,(r0)+
  39:         movf    (sp)+,fr0
  40:         movf    fr0,(r0)+
  41:         jmp     *(r4)+
  42: 
  43: .globl  gmv1p
  44: .globl  gmv2p
  45: .globl  gmv4p
  46: .globl  gmv8p
  47: .globl  gmv16p
  48: 
  49: gmv1p:
  50:         mov     (r4)+,r0
  51:         add     r3,r0
  52:         movb    (sp)+,*(r0)+
  53:         jmp     *(r4)+
  54: 
  55: gmv2p:
  56:         mov     (r4)+,r0
  57:         add     r3,r0
  58:         mov     (sp)+,*(r0)+
  59:         jmp     *(r4)+
  60: 
  61: gmv4p:
  62:         mov     (r4)+,r0
  63:         add     r3,r0
  64:         mov     (r0),r0
  65:         mov     (sp)+,(r0)+
  66:         mov     (sp)+,(r0)+
  67:         jmp     *(r4)+
  68: 
  69: gmv8p:
  70:         setd
  71:         mov     (r4)+,r0
  72:         add     r3,r0
  73:         movf    (sp)+,fr0
  74:         movf    fr0,*(r0)+
  75:         jmp     *(r4)+
  76: 
  77: gmv16p:
  78:         setd
  79:         mov     (r4)+,r0
  80:         add     r3,r0
  81:         mov     (r0),r0
  82:         movf    (sp)+,fr0
  83:         movf    fr0,(r0)+
  84:         movf    (sp)+,fr0
  85:         movf    fr0,(r0)+
  86:         jmp     *(r4)+

Defined functions