git.gag.com Git - fw/sdcc/blob - src/regression/inline.c

   1 #include "gpsim_assert.h"
   2 #include "picregs.h"
   3
   4 #pragma preproc_asm -
   5
   6 unsigned char failures=0;
   7
   8 unsigned char test_tris=0;
   9
  10 void
  11 done()
  12 {
  13   ASSERT(MANGLE(failures) == 0);
  14   PASSED();
  15 }
  16
  17 void
  18 delay_1ms(void)
  19 {
  20   unsigned char cnt1m = 2;
  21   unsigned char cnt500u = 249;
  22
  23   do {
  24     do {
  25       _asm
  26         nop
  27         nop
  28       _endasm;
  29     } while (--cnt500u > 0);
  30   } while (--cnt1m > 0);
  31 }
  32
  33
  34 void main(void)
  35 {
  36   TRISA = 0x0f;
  37
  38   _asm
  39     BSF   STATUS,RP0
  40     MOVF  TRISA,W
  41     BCF   STATUS,RP0
  42     MOVWF _test_tris
  43   _endasm;
  44
  45   if(test_tris != 0x0f)
  46     failures++;
  47
  48   done();
  49 }