home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / fx / fx3.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  539 b   |  50 lines
  1. /
  2. /
  3.  
  4. / fx3 -- get integer
  5.  
  6. .globl    geti
  7. .globl    ptemp
  8.  
  9. .globl    putc
  10. .globl    putw
  11.  
  12. geti:
  13.     mov    r1,-(sp)
  14.     mov    r3,-(sp)
  15.     clr    r3
  16.     mov    $symbuf,r0
  17. 1:
  18.     movb    (r0)+,r1
  19.     sub    $'0,r1
  20.     cmp    r1,$9
  21.     bhi    1f
  22.     mpy    $10.,r3
  23.     add    r1,r3
  24.     br    1b
  25. 1:
  26.     mov    r3,r0
  27.     mov    (sp)+,r3
  28.     mov    (sp)+,r1
  29.     rts    r5
  30.  
  31. ptemp:
  32.     mov    r0,-(sp)
  33.     mov    r1,-(sp)
  34.     mov    (r5)+,r0        / character
  35.     jsr    r5,putc; tbuf
  36.     mov    *(r5)+,r0        / word
  37.     jsr    r5,putw; tbuf
  38.     mov    ifno,r0
  39.     jsr    r5,putw; tbuf
  40.     mov    (r5)+,r1        / string
  41. 1:
  42.     movb    (r1),r0
  43.     jsr    r5,putc; tbuf
  44.     tstb    (r1)+
  45.     bne    1b
  46.     mov    (sp)+,r1
  47.     mov    (sp)+,r0
  48.     rts    r5
  49.  
  50.