home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / io / io1.s next >
Encoding:
Text File  |  1975-07-17  |  692 b   |  79 lines
  1. /
  2. /
  3.  
  4. / io1 --  I/O operators
  5.  
  6.  
  7. .globl    rerr
  8. .globl    endio
  9. .globl    rio4
  10. .globl    rio8
  11. .globl    iio2
  12. .globl    iio4
  13. .globl    lio2
  14. .globl    lio1
  15. .globl    cio8
  16. .globl    cio16
  17. .globl    ecvt
  18. .globl    fcvt
  19. .globl    _ndigit
  20.  
  21. endio:
  22.     mov    (sp)+,r5
  23.     rts    r5
  24.  
  25. cio8:
  26.     tst    slcnt
  27.     bne    2f
  28.     inc    slcnt
  29.     tst    -(r4)
  30.     br    rio4
  31. 2:
  32.     clr    slcnt
  33.     mov    ilval,-(sp)
  34.     add    $4,(sp)
  35.     br    rio4
  36.  
  37. cio16:
  38.     tst    slcnt
  39.     bne    2f
  40.     inc    slcnt
  41.     tst    -(r4)
  42.     br    rio8
  43. 2:
  44.     clr    slcnt
  45.     mov    ilval,-(sp)
  46.     add    $8,(sp)
  47.     br    rio8
  48.  
  49. rio8:
  50.     mov    $8.\<8+'r,r0
  51.     br    1f
  52.  
  53. rio4:
  54.     mov    $4\<8+'r,r0
  55.     br    1f
  56.  
  57. iio4:
  58.     mov    $4\<8+'i,r0
  59.     br    1f
  60.  
  61. iio2:
  62.     mov    $2\<8+'i,r0
  63.     br    1f
  64.  
  65. lio2:
  66.     mov    $2\<8+'l,r0
  67.     br    1f
  68.  
  69. lio1:
  70.     mov    $1\<8+'l,r0
  71.  
  72. 1:
  73.     mov    r0,itype
  74.     mov    (sp)+,ilval
  75.     mov    (sp)+,r5
  76.     tst    (r5)+
  77.     rts    r5
  78.  
  79.