UNIX 6th Ed. - /usr/source/fort/rt/r0.s

   1: /
   2: /
   3: 
   4: .globl  main
   5: .globl  temp
   6: .globl  rerr
   7: .globl  fptrap
   8: 
   9: .comm   erret,2
  10: .comm   argp,2
  11: 
  12: ldfps   = 170100^tst
  13: 
  14:         sys     signal; 4; fptrap
  15:         ldfps   $5400
  16:         mov     sp,argp
  17:         mov     $main,r4
  18:         jmp     *(r4)+
  19: 
  20: rerr:
  21:         mov     (r5)+,r1
  22:         tst     erret
  23:         beq     1f
  24:         jsr     pc,erret
  25: 1:
  26:         mov     $temp,r2
  27:         jsr     r5,1f
  28:         movb    $'\n,(r2)+
  29:         sub     $mesg,r2
  30:         mov     r2,0f
  31:         mov     $2,r0
  32:         sys     write; mesg; 0:..
  33:         sys     exit
  34: 1:
  35:         clr     r0
  36:         div     $10.,r0
  37:         mov     r1,-(sp)
  38:         mov     r0,r1
  39:         beq     1f
  40:         jsr     r5,1b
  41: 1:
  42:         mov     (sp)+,r0
  43:         add     $'0,r0
  44:         movb    r0,(r2)+
  45:         rts     r5
  46: 
  47: mesg:
  48:         <Runtime error >
  49: temp:   .=.+16.

Defined functions

Defined variables