workloads/test-interval/test-interval.S

   1 #define IOSPACE $250
   2         .text
   3
   4 /*      LOC     #10000 */
   5
   6 Main:   seth    IOSPACE,1               /* IOSPACE pointer */
   7         setl    $0,interruptvector
   8         put     rTT,$0
   9         setl    $0,#FFFF
  10         put     rK,$0
  11         get     $0,rK
  12
  13         setl    $0,100
  14         put     rI,$0
  15
  16 loop:   addu    $255,$255,1
  17         jmp     loop
  18
  19 #if 0
  20 interruptvector:
  21         setl    $255,0
  22         put     rQ,$255
  23         setl    $255,100
  24         put     rI,$255
  25         nxor    $255,$255,$255
  26         resume  1
  27 #else
  28
  29 interruptvector:
  30         pushj   255,interrupthandler/* To allocate some free variables */
  31         put     rJ,$255         /* Restore rJ */
  32         nxor    $255,$0,$0      /* Set up new interrupt mask (enable all) */
  33         resume  1
  34
  35 /* Must preserve $255 */
  36 interrupthandler:
  37         get     $0,rQ           /* All pending interrupts */
  38         subu    $1,$0,1         /* This and the following ... */
  39         sadd    $2,$1,$0        /* ... calculates the index of the highest priority */
  40         and     $0,$0,$1        /* Clears just the highest priority one */
  41         put     rQ,$0
  42
  43         setl    $0,100
  44         put     rI,$0
  45
  46         addu    $2,$2,'A'
  47         stbu    $2,IOSPACE      /* Do something with the index */
  48         pop     0,0
  49 #endif