UNIX 6th Ed. - /usr/source/fort/io/io5.s

   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

Defined functions