UNIX 6th Ed. - /usr/source/fort/rt1/ierr.s

   1: /
   2: /
   3: 
   4: / catch runtime errors:
   5: / if (ierror(errno)) goto place
   6: / on call, returns 0
   7: / on occurrence of error, returns non-zero
   8: 
   9: .globl  ierror.
  10: .globl  erret
  11: 
  12: .globl  rerr
  13: .globl  retrn
  14: 
  15: ierror.:zero
  16:         .+2
  17:         mov     2(r3),r0
  18:         mov     2(r0),r1
  19:         mov     $errbuf,r0
  20: 1:
  21:         cmp     r0,cerrp
  22:         blo     2f
  23:         cmp     cerrp,$eerbuf
  24:         blo     3f
  25:         jsr     r5,rerr; 120.
  26: 3:
  27:         add     $8,cerrp
  28:         br      1f
  29: 2:
  30:         cmp     r1,(r0)
  31:         beq     1f
  32:         add     $8,r0
  33:         br      1b
  34: 1:
  35:         mov     r1,(r0)+
  36:         mov     r3,(r0)+
  37:         mov     2(sp),(r0)+
  38:         mov     4(sp),(r0)+
  39:         jmp     retrn
  40: 
  41: .data
  42: erret:
  43:         jmp     9f
  44: .text
  45: 9:
  46:         mov     $errbuf,r0
  47:         cmp     (r0),r1
  48:         beq     1f
  49:         add     $8,r0
  50:         cmp     r0,cerrp
  51:         blo     1b
  52:         rts     pc
  53: 1:
  54:         add     $8,r0
  55:         mov     -(r0),-(sp)
  56:         mov     -(r0),-(sp)
  57:         mov     $one,-(sp)
  58:         mov     -(r0),r3
  59:         jmp     retrn
  60: 
  61: .data
  62: one:    77777; 177777
  63: zero:   0; 0
  64: 
  65: cerrp:  errbuf
  66: 
  67: .bss
  68: errbuf: .=.+50
  69: eerbuf:

Defined functions

Defined variables