;Entry_JITTRACE
;-------------------
;Displays the last instructions before a crash
;
;Entry:
; R0 - Command tail
; R12 - pointer to module private word

.Entry_JITTRACE
 STMFD   R13!, {R0-R12, R14}

 LDR     R12, [R12, #0]
 LDR     R1, [R12, #IT_DA_address - VARS]
 TEQ     R1, #0
 LDMEQFD R13!, {R0-R12, PC}
 MOV     R2, #&100000
 SUB     R2, R2, #1
 ADD     R1, R1, R2
 BIC     R1, R1, R2				;align to 1MB boundary
 MOV     R0, #instruction_trace_ptr
 LDR     R0, [R0, #-4]
 SUB     R0, R0, #&20
 CMP     R0, R1
 MOVLO   R0, R1

 ADR     R1, _memoryi + 8
 MOV     R2, #8
 SWI     XOS_ConvertHex8

 ADR     R0, _memoryi
 SWI     XOS_CLI
LDMFD   R13!, {R0-R12, PC}

 ._memoryi	DCB "MEMORYI 00000000+20",0
		ALIGN