home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / formula / !formula08 / debug < prev    next >
Encoding:
Text File  |  1992-12-13  |  1.7 KB  |  128 lines
  1. ;Macro to convert integer %2 to hexstring %1 destroy R0,R1,R2,R3,R4
  2.  
  3.  .MACRO int2hexstringmacro2
  4.   GO \hupf
  5. \buffer .BLOCK 9.
  6.  .ALIGN
  7. \hupf
  8.   ADR R4,\buffer
  9.   MOV R2,#8. 
  10.   MOV R0,R1
  11.   MOV R1,R4
  12.   mySWI XOS_ConvertHex8
  13.   MOV %1,R4
  14.  .ENDM
  15.  
  16.  .MACRO regprint1
  17.   MOV R1,%1
  18.   B \jump
  19. \string
  20.   .STRING "  %1 = "
  21.   .ALIGN
  22. \jump
  23.   ADR R0,\string
  24.   mySWI XOS_Write0
  25.   int2hexstringmacro2 R0,R1
  26.   mySWI XOS_Write0
  27.  .ENDM 
  28.  
  29.  .MACRO regprint2
  30.   MOV R1,%1
  31.   B \jump
  32. \string
  33.   .STRING " %1 = "
  34.   .ALIGN
  35. \jump
  36.   ADR R0,\string
  37.   mySWI XOS_Write0
  38.   int2hexstringmacro2 R0,R1
  39.   mySWI XOS_Write0
  40.  .ENDM 
  41.  
  42.  .MACRO reg
  43.   STR R0,\temp0
  44.   STR R13,\temp1
  45.   STR R14,\temp2
  46.   B \jump
  47. \string
  48.   .STRING %2
  49.   .ALIGN
  50. \jump
  51.   ADR R0,\string
  52.   mySWI XOS_Write0
  53.   cr
  54.   B \hupf
  55. \temp0
  56.  .WORD 0
  57.  .BLOCK 20.,0
  58. \temp1
  59.  .WORD 0
  60. \temp2 
  61.  .WORD 0
  62. \hupf
  63.   ADR R0,\temp1
  64.   STMFD R0,{R1-R5}
  65.   regprint1 %1
  66.   cr
  67.   ADDR R0,\temp0
  68.   LDMFD R0,{R0-R5,R13,R14}
  69.  .ENDM
  70.  
  71.  .MACRO regs
  72.   STR R0,\temp0
  73.   STR R13,\temp1
  74.   STR R14,\temp2
  75.   B \jump
  76. \string
  77.   .STRING %1
  78.   .ALIGN
  79. \jump
  80.   ADR R0,\string
  81.   mySWI XOS_Write0
  82.   cr
  83.   B \hupf
  84. \temp0
  85.  .WORD 0
  86.  .BLOCK 20.,0
  87. \temp1
  88.  .WORD 0
  89. \temp2
  90.  .WORD 0
  91. \hupf
  92.   ADR R0,\temp1
  93.   STMFD R0,{R1-R5}
  94.   ADR R5,\temp0 
  95.   LDR R0,[R5,#0.]
  96.   regprint1 R0
  97.   LDR R1,[R5,#4.]
  98.   regprint1 R1
  99.   LDR R2,[R5,#8.]
  100.   regprint1 R2
  101.   LDR R3,[R5,#12.]
  102.   regprint1 R3
  103.   cr
  104.   LDR R4,[R5,#16.]
  105.   regprint1 R4
  106.   LDR R5,[R5,#20.]
  107.   regprint1 R5
  108.   ADR R5,\temp0 
  109.   regprint1 R6
  110.   regprint1 R7
  111.   cr
  112.   regprint1 R8
  113.   regprint1 R9
  114.   regprint2 R10
  115.   regprint2 R11
  116.   cr
  117.   regprint2 R12
  118.   LDR R13,[R5,#24.]
  119.   regprint2 R13
  120.   LDR R14,[R5,#28.]
  121.   regprint2 R14
  122.   regprint2 R15
  123.   cr
  124.   ADDR R0,\temp0
  125.   LDMFD R0,{R0-R5,R13,R14}
  126.  .ENDM
  127.  
  128.