Página Principal Explorar Ajuda
Registe-se Iniciar Sessão
akucxy
/
binutils-gdb
1
0
Fork 0
Ficheiros Problemas 0 Pull Requests 0 Wiki
Ramo: master
Ramos Etiquetas
binutils-gdb
/
sim
/
testsuite
/
cr16
/
tbitw.cgs

tbitw.cgs 370 B
Link permanente Histórico Em bruto

123456789101112131415161718192021222324252627282930313233 
  1. # cr16 testcase for tbitw
    2. 

  2. # mach:	 cr16
    3. 

  3. 

  4. 	.include "testutils.inc"
    5. 

  5. 

  6. 	start
    7. 

  7. 

  8. 	.global tbitw
    9. 

  9. tbitw:
    10. 

  10. 	movw $0, r1
    11. 

  11. 	lpr     r1, psr
    12. 

  12. 	tbitw	$0,_y
    13. 

  13. 	spr  psr, r1
    14. 

  14. 	cmpb    $0x20, r1
    15. 

  15. 	beq ok1
    16. 

  16. not_ok:
    17. 

  17. 	fail
    18. 

  18. 

  19. ok1:
    20. 

  20. 	movw $0, r1
    21. 

  21. 	lpr     r1, psr
    22. 

  22. 	movd   $_y, (r1,r0)
    23. 

  23. 	tbitw	$1,0(r1,r0)
    24. 

  24. 	loadw   _y, r1
    25. 

  25. 	spr  psr, r1
    26. 

  26. 	cmpb    $0x20, r1
    27. 

  27. 	beq ok2
    28. 

  28. 	br not_ok
    29. 

  29. ok2:
    30. 

  30. 

  31. 	pass
    32. 

  32. 

  33. _y:	.word	0xf7
    34.