.global start
                
      .bss radii,1
      .bss area,1
      .def radii,area    
      
      .data
times .word      3fffffh
stack .word      radii+1000h  

PI    .set   3.1415926  


      .text
start:
      ldp    radii
      ldi    @stack,sp
      call   circle
      b      $-1
circle
      ldf    @radii,r0
      ldf    PI,r1
      mpyf   r0,r1,r2
      mpyf   r0,r2
      stf    r2,@area
      rets
      .end