NAM TRACE
*      REV 1.1 BY MOTOROLA MICROSYSTEMS APRIL 1977
       ORG $100
       SPC 2
TRACE  STA A LABEL3 *SAV AR
       STA B LABEL4 *SAV BR
       TPA
       STA A LABEL5 *SAV CCR
       STX LABEL6 *SAV XR
       TSX
       LDX 0,X *GET PC
       STX LABEL1 *TEMP PC
       LDX #LABEL1 *PC TO XR
       JSR $E0C8 *PRINT PC
       JSR $E0CA *PRINT AR
       JSR $E0CA *PRINT BR
       LDA A #$0D *CR
       JSR $E1D1
       LDA A #$A *LF
       JSR $E1D1
       LDA A LABEL5 *RESTORE CCR TAP
       LDA B LABEL4 *RESTORE BR
       LDX LABEL6 *RESTORE XR
       LDA A LABEL3 *RESTORE AR
       PSHA *SAVE AR ON STACK
       LDAA LABEL5 
       TAP *RESTORE CCR
       PULA *RESTORE AR
       RTS
LABEL1 RMB 1
LABEL2 RMB 1
LABEL3 RMB 1
LABEL4 RMB 1
LABEL5 RMB 1
LABEL6 RMB 1
LABEL7 RMB 1
       SPC 5
       ORG $200
*
*TEST  PROGRAM FOR TRACE
*
       LDX #$ABCD *LOAD XR WITH ABCD
       LDA A #$FF *LOAD AR WITH FF
       LDA B #00 *LOAD BR WITH 00
       JSR TRACE *JMP TO TRACE
       LDA A #00 *LOAD AR WITH 00
       LDA B #$FF *LOAD BR WITH FF
       JSR TRACE *JMP TO TRACE
       SWI *DISPLAY REGISTERS AFTER TRACE
       END