UNIX 6th Ed. - /usr/source/fort/fx/fx3.s

   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

Defined functions