home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / io / io5.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  911 b   |  97 lines

  1. /
  2. /
  3.  
  4. / io5 -- more conversions
  5.  
  6. /.globl    hocv
  7. /.globl    qocv
  8. /.globl    xocv
  9. /.globl    aocv
  10. /.globl    locv
  11. /
  12. /.globl    fmtchr
  13. /.globl    fputcc
  14. /.globl    rep
  15. /.globl    formp
  16. /.globl    spaces
  17. /.globl    ilen
  18. /.globl    width
  19. /.globl    ilval
  20. .globl    rerr
  21.  
  22. hocv:
  23.     jsr    r5,fmtchr
  24.     tst    r0
  25.     beq    2f
  26.     jsr    r5,fputcc
  27.     dec    rep
  28.     bgt    hocv
  29.     rts    r5
  30. 2:
  31.     jsr    r5,rerr; 111.
  32.     sys    exit
  33.  
  34. qocv:
  35.     mov    formp,-(sp)
  36. 1:
  37.     jsr    r5,fmtchr
  38.     tst    r0
  39.     beq    2f
  40.     cmp    r0,$'"
  41.     beq    2f
  42.     jsr    r5,fputcc
  43.     br    1b
  44. 2:
  45.     dec    rep
  46.     ble    1f
  47.     mov    (sp),formp
  48.     br    1b
  49. 1:
  50.     tst    (sp)+
  51.     rts    r5
  52.  
  53. xocv:
  54.     mov    $1,r1
  55.     jsr    r5,spaces
  56.     rts    r5
  57.  
  58. aocv:
  59.     movb    ilen,r1
  60.     sub    width,r1
  61.     neg    r1
  62.     bpl    1f
  63.     clr    r1
  64. 1:
  65.     jsr    r5,spaces
  66.     mov    ilval,r2
  67.     mov    width,r1
  68.     cmpb    r1,ilen
  69.     ble    2f
  70.     movb    ilen,r1
  71. 2:
  72.     movb    (r2)+,r0
  73.     jsr    r5,fputcc
  74.     dec    r1
  75.     bgt    2b
  76.     rts    r5
  77.  
  78. locv:
  79.     mov    width,r1
  80.     dec    r1
  81.     jsr    r5,spaces
  82.     mov    $'f,r0
  83.     movb    ilen,r1
  84.     mov    ilval,r2
  85. 2:
  86.     tstb    (r2)+
  87.     bne    1f
  88.     dec    r1
  89.     bgt    2b
  90.     br    2f
  91. 1:
  92.     mov    $'t,r0
  93. 2:
  94.     jsr    r5,fputcc
  95.     rts    r5
  96.  
  97.