home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / io / io6.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  2.2 KB  |  249 lines
  1. /
  2. /
  3.  
  4. / io6 --  input conversions
  5.  
  6. /.globl    aicv
  7. /.globl    gicv
  8. /
  9. /.globl    ilval
  10. /.globl    width
  11. /.globl    ilen
  12. /.globl    fgetc
  13. /.globl    itype
  14. /.globl    nlflg
  15. /.globl    gcflg
  16.  
  17. aicv:
  18.     mov    ilval,r1
  19.     movb    width,r2
  20.     movb    ilen,r0
  21.     mov    r0,-(sp)
  22. 1:
  23.     cmp    r2,(sp)
  24.     ble    1f
  25.     jsr    r5,fgetc
  26.     dec    r2
  27.     br    1b
  28. 1:
  29.     tst    r2
  30.     ble    1f
  31.     jsr    r5,fgetc
  32.     movb    r0,(r1)+
  33.     dec    r2
  34.     dec    (sp)
  35.     br    1b
  36. 1:
  37.     tst    (sp)
  38.     ble    1f
  39.     movb    $' ,(r1)+
  40.     dec    (sp)
  41.     br    1b
  42. 1:
  43.     tst    (sp)+
  44.     rts    r5
  45.  
  46. licv:
  47.     mov    width,twidth
  48.     setd
  49.     seti
  50.     clrf    fr0
  51. 1:
  52.     jsr    r5,fgetcn
  53.     cmp    r0,$'t
  54.     beq    2f
  55.     cmp    r0,$'T
  56.     beq    2f
  57.     cmp    r0,$'1
  58.     beq    2f
  59.     cmp    r0,$',
  60.     beq    1f
  61.     br    1b
  62. 2:
  63.     movif    $1,fr0
  64.     br    1b
  65. 1:
  66.     br    storin
  67.  
  68. iicv:
  69.     clr    ndig
  70.  
  71. ficv:
  72. eicv:
  73. dicv:
  74.     mov    width,twidth
  75.     br    1f
  76.  
  77. gicv:
  78.     mov    $16383.,twidth
  79.     clr    ndig
  80.     mov    pc,gcflg
  81.     br    2f
  82. 1:
  83.     clr    gcflg
  84. 2:
  85.     jsr    r5,gatof
  86. storin:
  87.     cmpb    itype,$'r
  88.     beq    1f
  89.     cmpb    ilen,$1
  90.     beq    3f
  91.     cmpb    ilen,$4
  92.     bne    2f
  93.     setl
  94. 2:
  95.     movfi    fr0,*ilval
  96.     rts    r5
  97. 3:
  98.     movfi    fr0,r0
  99.     movb    r0,*ilval
  100.     rts    r5
  101. 1:
  102.     cmpb    ilen,$8.
  103.     beq    2f
  104.     setf
  105. 2:
  106.     movf    fr0,*ilval
  107.     rts    r5
  108.  
  109. gatof:
  110.     setd
  111.     seti
  112.     movif    $10.,fr3
  113.     clr    r2
  114.     clrf    fr0
  115.     clr    -(sp)
  116. 1:
  117.     jsr    r5,fgetcn
  118.     cmp    $' ,r0
  119.     bne    1f
  120.     tst    nlflg
  121.     beq    1b
  122.     tst    (sp)+
  123.     rts    r5
  124. 1:
  125.     cmp    r0,$'+
  126.     beq    1f
  127.     cmp    r0,$'-
  128.     bne    2f
  129.     inc    (sp)
  130. 1:
  131.     jsr    r5,fgetcn
  132. 2:
  133.     cmp    $' ,r0
  134.     bne    3f
  135.     tst    gcflg
  136.     bne    3f
  137.     mov    $'0,r0
  138. 3:
  139.     sub    $'0,r0
  140.     cmp    r0,$9.
  141.     bhi    2f
  142.     mulf    fr3,fr0
  143.     movif    r0,fr1
  144.     addf    fr1,fr0
  145.     dec    r1
  146.     br    1b
  147. 2:
  148.     add    $'0,r0
  149.     cmp    r0,$'.
  150.     bne    1f
  151.     inc    r2
  152.     clr    r1
  153.     br    1b
  154. 1:
  155.     mov    r3,-(sp)
  156.     clr    r3
  157.     cmp    r0,$'d
  158.     beq    3f
  159.     cmp    r0,$'+
  160.     beq    3f
  161.     cmp    r0,$'-
  162.     beq    3f
  163.     cmp    r0,$'e
  164.     bne    2f
  165. 3:
  166.     jsr    r5,atoi
  167. 2:
  168.     tst    r2
  169.     bne    1f
  170.     mov    ndig,r1
  171.     neg    r1
  172. 1:
  173.     movf    fr3,fr2
  174.     add    r3,r1
  175.     mov    (sp)+,r3
  176.     tst    r1
  177.     beq    1f
  178.     bpl    3f
  179.     neg    r1
  180.     mov    pc,-(sp)
  181.     br    2f
  182. 3:
  183.     clr    -(sp)
  184. 2:
  185.     dec    r1
  186.     ble    2f
  187.     mulf    fr3,fr2
  188.     br    2b
  189. 2:
  190.     tst    (sp)+
  191.     bne    2f
  192.     mulf    fr2,fr0
  193.     br    1f
  194. 2:
  195.     divf    fr2,fr0
  196. 1:
  197.     tst    (sp)+
  198.     beq    1f
  199.     negf    r0
  200. 1:
  201.     cmp    r0,$',
  202.     beq    1f
  203.     cmp    $' ,r0
  204.     beq    1f
  205.     jsr    r5,rerr; 110.
  206. 1:
  207.     rts    r5
  208.  
  209. atoi:
  210.     clr    -(sp)
  211.     cmp    r0,$'+
  212.     beq    1f
  213.     cmp    r0,$'-
  214.     beq    3f
  215.     jsr    r5,fgetcn
  216.     cmp    r0,$'+
  217.     beq    1f
  218.     cmp    r0,$'-
  219.     bne    2f
  220. 3:
  221.     inc    (sp)
  222. 1:
  223.     jsr    r5,fgetcn
  224. 2:
  225.     sub    $'0,r0
  226.     cmp    r0,$'9.
  227.     bhi    2f
  228.     mpy    $10.,r3
  229.     add    r0,r3
  230.     br    1b
  231. 2:
  232.     add    $'0,r0
  233.     tst    (sp)+
  234.     beq    1f
  235.     neg    r3
  236. 1:
  237.     rts    r5
  238.  
  239. fgetcn:
  240.     tst    twidth
  241.     bgt    1f
  242.     mov    $',,r0
  243.     rts    r5
  244. 1:
  245.     jsr    r5,fgetc
  246.     dec    twidth
  247.     rts    r5
  248.  
  249.