home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / rt / rg.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  909 b   |  88 lines
  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)+
  87.  
  88.