DSP_Util IDNT ; title Rev 2-NOV-1993 SECTION Sect_DSP_Utils,4,C ; Declare a noncommon code ; section. Align to Longwords. INCLUDE 135Bug_Equates.Include ; Get the 135Bug "Sytem Calls". * The code below is a collection of utilities to display DSP registers * and Shared Memory areas * *********************************************************************** * * * The following is the Sub-Routine to display the registers * * * *********************************************************************** RegOut JSR SpOut ; Display space + JSR BC1Out ; Display DSP 1 Boot Control JSR BC2Out ; Display DSP 2 Boot Control JSR BC3Out ; Display DSP 3 Boot Control JSR BC4Out ; Display DSP 4 Boot Control JSR SpOut ; Display space + JSR IC1Out ; Display DSP 1 Interrupt Control JSR IC2Out ; Display DSP 2 Interrupt Control JSR IC3Out ; Display DSP 3 Interrupt Control JSR IC4Out ; Display DSP 4 Interrupt Control JSR SpOut ; Display space + JSR SpOut ; Display space + RTS * Following are the individual register display routines ; DSP #1 Boot Control Register BC1Out PEA.L AncDSP1Boot ; Push the announce message address JSR ChrWrtOut ; on the stack and send it out. Move.L DSP1BootCR,D0 ; Get the value in the Boot Cntrl Reg. ROR.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the MSNibble ROL.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the LSNibble PEA.L CharSpace ; Push space and carage return message JSR ChrStrgOut ; on the stack and send it out. RTS ; DSP #2 Boot Control Register BC2Out PEA.L AncDSP2Boot ; Push the announce message address JSR ChrWrtOut ; on the stack and send it out. Move.L DSP2BootCR,D0 ; Get the value in the Boot Cntrl Reg. ROR.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the MSNibble ROL.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the LSNibble PEA.L CharSpace ; Push space and carage return message JSR ChrStrgOut ; on the stack and send it out. RTS ; DSP #3 Boot Control Register BC3Out PEA.L AncDSP3Boot ; Push the announce message address JSR ChrWrtOut ; on the stack and send it out. Move.L DSP3BootCR,D0 ; Get the value in the Boot Cntrl Reg. ROR.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the MSNibble ROL.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the LSNibble PEA.L CharSpace ; Push space and carage return message JSR ChrStrgOut ; on the stack and send it out. RTS ; DSP #4 Boot Control Register BC4Out PEA.L AncDSP4Boot ; Push the announce message address JSR ChrWrtOut ; on the stack and send it out. Move.L DSP4BootCR,D0 ; Get the value in the Boot Cntrl Reg. ROR.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the MSNibble ROL.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the LSNibble PEA.L CharSpace ; Push space and carage return message JSR ChrStrgOut ; on the stack and send it out. RTS SpOut PEA.L CharSpace ; Push space and carage return message JSR ChrStrgOut ; on the stack and send it out. RTS ; DSP #1 Interrupt Control Register IC1Out PEA.L AncDSP1Intr ; Push the announce message address JSR ChrWrtOut ; on the stack and send it out. Move.L DSP1IntrCR,D0 ; Get the value in the Intr Cntrl Reg. ROR.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the MSNibble ROL.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the LSNibble PEA.L CharSpace ; Push space and carage return message JSR ChrStrgOut ; on the stack and send it out. RTS ; DSP #2 Interrupt Control Register IC2Out PEA.L AncDSP2Intr ; Push the announce message address JSR ChrWrtOut ; on the stack and send it out. Move.L DSP2IntrCR,D0 ; Get the value in the Intr Cntrl Reg. ROR.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the MSNibble ROL.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the LSNibble PEA.L CharSpace ; Push space and carage return message JSR ChrStrgOut ; on the stack and send it out. RTS ; DSP #3 Interrupt Control Register IC3Out PEA.L AncDSP3Intr ; Push the announce message address JSR ChrWrtOut ; on the stack and send it out. Move.L DSP3IntrCR,D0 ; Get the value in the Intr Cntrl Reg. ROR.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the MSNibble ROL.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the LSNibble PEA.L CharSpace ; Push space and carage return message JSR ChrStrgOut ; on the stack and send it out. RTS ; DSP #4 Interrupt Control Register IC4Out PEA.L AncDSP4Intr ; Push the announce message address JSR ChrWrtOut ; on the stack and send it out. Move.L DSP4IntrCR,D0 ; Get the value in the Intr Cntrl Reg. ROR.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the MSNibble ROL.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the LSNibble PEA.L CharSpace ; Push space and carage return message JSR ChrStrgOut ; on the stack and send it out. RTS AncDSP1Boot DC.B 34,' DSP #1 Boot Control Register: $' AncDSP2Boot DC.B 34,' DSP #2 Boot Control Register: $' AncDSP3Boot DC.B 34,' DSP #3 Boot Control Register: $' AncDSP4Boot DC.B 34,' DSP #4 Boot Control Register: $' AncDSP1Intr DC.B 34,' DSP #1 Interrupt Control Reg: $' AncDSP2Intr DC.B 34,' DSP #2 Interrupt Control Reg: $' AncDSP3Intr DC.B 34,' DSP #3 Interrupt Control Reg: $' AncDSP4Intr DC.B 34,' DSP #4 Interrupt Control Reg: $' DSP1BootCR EQU $00A10800 : Address of DSP #1 Boot Control Reg. DSP2BootCR EQU $00A10804 : Address of DSP #2 Boot Control Reg. DSP3BootCR EQU $00A10808 : Address of DSP #3 Boot Control Reg. DSP4BootCR EQU $00A1080C : Address of DSP #4 Boot Control Reg. DSP1IntrCR EQU $00A10810 : Address of DSP #1 Interrupt Control Reg. DSP2IntrCR EQU $00A10814 : Address of DSP #2 Interrupt Control Reg. DSP3IntrCR EQU $00A10818 : Address of DSP #3 Interrupt Control Reg. DSP4IntrCR EQU $00A1081C : Address of DSP #4 Interrupt Control Reg. XDEF RegOut,BC1Out,BC2Out,BC3Out,BC4Out,IC1Out,IC2Out,IC3Out,IC4Out XDEF SpOut XDEF DSP1IntrCR,DSP2IntrCR,DSP3IntrCR,DSP4IntrCR XDEF DSP1BootCR,DSP2BootCR,DSP3BootCR,DSP4BootCR XREF CharSpace,ChrStrgOut,ChrWrtOut,BinASCII *********************************************************************** * * * The following is the Sub-Routine to display the 16 words of * * DSP #1 Hydra Mon Control Area. * * * *********************************************************************** Disp_CA_1 PEA.L CharSpace ; Push space and carage return message JSR ChrStrgOut ; on the stack and send it out. PEA.L CharSpace ; Push space and carage return message JSR ChrStrgOut ; on the stack and send it out. PEA.L AncDSP1HyMonCA00 ; Push announce message address for JSR ChrWrtOut ; CA00 on the stack and send it out. Move.L DSP1HyMonCA00,D0 ; Get the value in Cntrl Area Word 00. JSR PrintLW PEA.L AncDSP1HyMonCA01 ; Push announce message address for JSR ChrWrtOut ; CA01 on the stack and send it out. Move.L DSP1HyMonCA01,D0 ; Get the value in Cntrl Area Word 01. JSR PrintLW PEA.L AncDSP1HyMonCA02 ; Push announce message address for JSR ChrWrtOut ; CA02 on the stack and send it out. Move.L DSP1HyMonCA02,D0 ; Get the value in Cntrl Area Word 02. JSR PrintLW PEA.L AncDSP1HyMonCA03 ; Push announce message address for JSR ChrWrtOut ; CA03 on the stack and send it out. Move.L DSP1HyMonCA03,D0 ; Get the value in Cntrl Area Word 03. JSR PrintLW PEA.L AncDSP1HyMonCA04 ; Push announce message address for JSR ChrWrtOut ; CA04 on the stack and send it out. Move.L DSP1HyMonCA04,D0 ; Get the value in Cntrl Area Word 04. JSR PrintLW PEA.L AncDSP1HyMonCA05 ; Push announce message address for JSR ChrWrtOut ; CA05 on the stack and send it out. Move.L DSP1HyMonCA05,D0 ; Get the value in Cntrl Area Word 05. JSR PrintLW PEA.L AncDSP1HyMonCA06 ; Push announce message address for JSR ChrWrtOut ; CA06 on the stack and send it out. Move.L DSP1HyMonCA06,D0 ; Get the value in Cntrl Area Word 06. JSR PrintLW PEA.L AncDSP1HyMonCA07 ; Push announce message address for JSR ChrWrtOut ; CA07 on the stack and send it out. Move.L DSP1HyMonCA07,D0 ; Get the value in Cntrl Area Word 07. JSR PrintLW PEA.L AncDSP1HyMonCA08 ; Push announce message address for JSR ChrWrtOut ; CA08 on the stack and send it out. Move.L DSP1HyMonCA08,D0 ; Get the value in Cntrl Area Word 08. JSR PrintLW PEA.L AncDSP1HyMonCA09 ; Push announce message address for JSR ChrWrtOut ; CA09 on the stack and send it out. Move.L DSP1HyMonCA09,D0 ; Get the value in Cntrl Area Word 09. JSR PrintLW PEA.L AncDSP1HyMonCA10 ; Push announce message address for JSR ChrWrtOut ; CA10 on the stack and send it out. Move.L DSP1HyMonCA10,D0 ; Get the value in Cntrl Area Word 10. JSR PrintLW PEA.L AncDSP1HyMonCA11 ; Push announce message address for JSR ChrWrtOut ; CA11 on the stack and send it out. Move.L DSP1HyMonCA11,D0 ; Get the value in Cntrl Area Word 11. JSR PrintLW PEA.L AncDSP1HyMonCA12 ; Push announce message address for JSR ChrWrtOut ; CA12 on the stack and send it out. Move.L DSP1HyMonCA12,D0 ; Get the value in Cntrl Area Word 12. JSR PrintLW PEA.L AncDSP1HyMonCA13 ; Push announce message address for JSR ChrWrtOut ; CA13 on the stack and send it out. Move.L DSP1HyMonCA13,D0 ; Get the value in Cntrl Area Word 13. JSR PrintLW PEA.L AncDSP1HyMonCA14 ; Push announce message address for JSR ChrWrtOut ; CA14 on the stack and send it out. Move.L DSP1HyMonCA14,D0 ; Get the value in Cntrl Area Word 14. JSR PrintLW PEA.L AncDSP1HyMonCA15 ; Push announce message address for JSR ChrWrtOut ; CA15 on the stack and send it out. Move.L DSP1HyMonCA15,D0 ; Get the value in Cntrl Area Word 15. JSR PrintLW PEA.L CharSpace ; Push space and carage return message JSR ChrStrgOut ; on the stack and send it out. RTS AncDSP1HyMonCA00 DC.B 38,' DSP #1 Hy Mon Cntrl Area Word 00: $' AncDSP1HyMonCA01 DC.B 38,' DSP #1 Hy Mon Cntrl Area Word 01: $' AncDSP1HyMonCA02 DC.B 38,' DSP #1 Hy Mon Cntrl Area Word 02: $' AncDSP1HyMonCA03 DC.B 38,' DSP #1 Hy Mon Cntrl Area Word 03: $' AncDSP1HyMonCA04 DC.B 38,' DSP #1 Hy Mon Cntrl Area Word 04: $' AncDSP1HyMonCA05 DC.B 38,' DSP #1 Hy Mon Cntrl Area Word 05: $' AncDSP1HyMonCA06 DC.B 38,' DSP #1 Hy Mon Cntrl Area Word 06: $' AncDSP1HyMonCA07 DC.B 38,' DSP #1 Hy Mon Cntrl Area Word 07: $' AncDSP1HyMonCA08 DC.B 38,' DSP #1 Hy Mon Cntrl Area Word 08: $' AncDSP1HyMonCA09 DC.B 38,' DSP #1 Hy Mon Cntrl Area Word 09: $' AncDSP1HyMonCA10 DC.B 38,' DSP #1 Hy Mon Cntrl Area Word 10: $' AncDSP1HyMonCA11 DC.B 38,' DSP #1 Hy Mon Cntrl Area Word 11: $' AncDSP1HyMonCA12 DC.B 38,' DSP #1 Hy Mon Cntrl Area Word 12: $' AncDSP1HyMonCA13 DC.B 38,' DSP #1 Hy Mon Cntrl Area Word 13: $' AncDSP1HyMonCA14 DC.B 38,' DSP #1 Hy Mon Cntrl Area Word 14: $' AncDSP1HyMonCA15 DC.B 38,' DSP #1 Hy Mon Cntrl Area Word 15: $' DSP1HyMonCA00 EQU $00A07FC0 ; Adrs of DSP1 HydraMon Ctrl Area word 0. DSP1HyMonCA01 EQU $00A07FC4 ; Adrs of DSP1 HydraMon Ctrl Area word 1. DSP1HyMonCA02 EQU $00A07FC8 ; Adrs of DSP1 HydraMon Ctrl Area word 2. DSP1HyMonCA03 EQU $00A07FCC ; Adrs of DSP1 HydraMon Ctrl Area word 3. DSP1HyMonCA04 EQU $00A07FD0 ; Adrs of DSP1 HydraMon Ctrl Area word 4. DSP1HyMonCA05 EQU $00A07FD4 ; Adrs of DSP1 HydraMon Ctrl Area word 5. DSP1HyMonCA06 EQU $00A07FD8 ; Adrs of DSP1 HydraMon Ctrl Area word 6. DSP1HyMonCA07 EQU $00A07FDC ; Adrs of DSP1 HydraMon Ctrl Area word 7. DSP1HyMonCA08 EQU $00A07FE0 ; Adrs of DSP1 HydraMon Ctrl Area word 8. DSP1HyMonCA09 EQU $00A07FE4 ; Adrs of DSP1 HydraMon Ctrl Area word 9. DSP1HyMonCA10 EQU $00A07FE8 ; Adrs of DSP1 HydraMon Ctrl Area word 10. DSP1HyMonCA11 EQU $00A07FEC ; Adrs of DSP1 HydraMon Ctrl Area word 11. DSP1HyMonCA12 EQU $00A07FF0 ; Adrs of DSP1 HydraMon Ctrl Area word 12. DSP1HyMonCA13 EQU $00A07FF4 ; Adrs of DSP1 HydraMon Ctrl Area word 13. DSP1HyMonCA14 EQU $00A07FF8 ; Adrs of DSP1 HydraMon Ctrl Area word 14. DSP1HyMonCA15 EQU $00A07FFC ; Adrs of DSP1 HydraMon Ctrl Area word 15. XDEF Disp_CA_1 XDEF DSP1HyMonCA00,DSP1HyMonCA01,DSP1HyMonCA02,DSP1HyMonCA03 XDEF DSP1HyMonCA04,DSP1HyMonCA05,DSP1HyMonCA06,DSP1HyMonCA07 XDEF DSP1HyMonCA08,DSP1HyMonCA09,DSP1HyMonCA10,DSP1HyMonCA11 XDEF DSP1HyMonCA12,DSP1HyMonCA13,DSP1HyMonCA14,DSP1HyMonCA15 *********************************************************************** * * * The following is the Sub-Routine to display the 16 words of * * DSP #3 Hydra Mon Control Area. * * * *********************************************************************** Disp_CA_3 PEA.L CharSpace ; Push space and carage return message JSR ChrStrgOut ; on the stack and send it out. PEA.L CharSpace ; Push space and carage return message JSR ChrStrgOut ; on the stack and send it out. PEA.L AncDSP3HyMonCA00 ; Push announce message address for JSR ChrWrtOut ; CA00 on the stack and send it out. Move.L DSP3HyMonCA00,D0 ; Get the value in Cntrl Area Word 00. JSR PrintLW PEA.L AncDSP3HyMonCA01 ; Push announce message address for JSR ChrWrtOut ; CA01 on the stack and send it out. Move.L DSP3HyMonCA01,D0 ; Get the value in Cntrl Area Word 01. JSR PrintLW PEA.L AncDSP3HyMonCA02 ; Push announce message address for JSR ChrWrtOut ; CA02 on the stack and send it out. Move.L DSP3HyMonCA02,D0 ; Get the value in Cntrl Area Word 02. JSR PrintLW PEA.L AncDSP3HyMonCA03 ; Push announce message address for JSR ChrWrtOut ; CA03 on the stack and send it out. Move.L DSP3HyMonCA03,D0 ; Get the value in Cntrl Area Word 03. JSR PrintLW PEA.L AncDSP3HyMonCA04 ; Push announce message address for JSR ChrWrtOut ; CA04 on the stack and send it out. Move.L DSP3HyMonCA04,D0 ; Get the value in Cntrl Area Word 04. JSR PrintLW PEA.L AncDSP3HyMonCA05 ; Push announce message address for JSR ChrWrtOut ; CA05 on the stack and send it out. Move.L DSP3HyMonCA05,D0 ; Get the value in Cntrl Area Word 05. JSR PrintLW PEA.L AncDSP3HyMonCA06 ; Push announce message address for JSR ChrWrtOut ; CA06 on the stack and send it out. Move.L DSP3HyMonCA06,D0 ; Get the value in Cntrl Area Word 06. JSR PrintLW PEA.L AncDSP3HyMonCA07 ; Push announce message address for JSR ChrWrtOut ; CA07 on the stack and send it out. Move.L DSP3HyMonCA07,D0 ; Get the value in Cntrl Area Word 07. JSR PrintLW PEA.L AncDSP3HyMonCA08 ; Push announce message address for JSR ChrWrtOut ; CA08 on the stack and send it out. Move.L DSP3HyMonCA08,D0 ; Get the value in Cntrl Area Word 08. JSR PrintLW PEA.L AncDSP3HyMonCA09 ; Push announce message address for JSR ChrWrtOut ; CA09 on the stack and send it out. Move.L DSP3HyMonCA09,D0 ; Get the value in Cntrl Area Word 09. JSR PrintLW PEA.L AncDSP3HyMonCA10 ; Push announce message address for JSR ChrWrtOut ; CA10 on the stack and send it out. Move.L DSP3HyMonCA10,D0 ; Get the value in Cntrl Area Word 10. JSR PrintLW PEA.L AncDSP3HyMonCA11 ; Push announce message address for JSR ChrWrtOut ; CA11 on the stack and send it out. Move.L DSP3HyMonCA11,D0 ; Get the value in Cntrl Area Word 11. JSR PrintLW PEA.L AncDSP3HyMonCA12 ; Push announce message address for JSR ChrWrtOut ; CA12 on the stack and send it out. Move.L DSP3HyMonCA12,D0 ; Get the value in Cntrl Area Word 12. JSR PrintLW PEA.L AncDSP3HyMonCA13 ; Push announce message address for JSR ChrWrtOut ; CA13 on the stack and send it out. Move.L DSP3HyMonCA13,D0 ; Get the value in Cntrl Area Word 13. JSR PrintLW PEA.L AncDSP3HyMonCA14 ; Push announce message address for JSR ChrWrtOut ; CA14 on the stack and send it out. Move.L DSP3HyMonCA14,D0 ; Get the value in Cntrl Area Word 14. JSR PrintLW PEA.L AncDSP3HyMonCA15 ; Push announce message address for JSR ChrWrtOut ; CA15 on the stack and send it out. Move.L DSP3HyMonCA15,D0 ; Get the value in Cntrl Area Word 15. JSR PrintLW PEA.L CharSpace ; Push space and carage return message JSR ChrStrgOut ; on the stack and send it out. RTS AncDSP3HyMonCA00 DC.B 38,' DSP #3 Hy Mon Cntrl Area Word 00: $' AncDSP3HyMonCA01 DC.B 38,' DSP #3 Hy Mon Cntrl Area Word 01: $' AncDSP3HyMonCA02 DC.B 38,' DSP #3 Hy Mon Cntrl Area Word 02: $' AncDSP3HyMonCA03 DC.B 38,' DSP #3 Hy Mon Cntrl Area Word 03: $' AncDSP3HyMonCA04 DC.B 38,' DSP #3 Hy Mon Cntrl Area Word 04: $' AncDSP3HyMonCA05 DC.B 38,' DSP #3 Hy Mon Cntrl Area Word 05: $' AncDSP3HyMonCA06 DC.B 38,' DSP #3 Hy Mon Cntrl Area Word 06: $' AncDSP3HyMonCA07 DC.B 38,' DSP #3 Hy Mon Cntrl Area Word 07: $' AncDSP3HyMonCA08 DC.B 38,' DSP #3 Hy Mon Cntrl Area Word 08: $' AncDSP3HyMonCA09 DC.B 38,' DSP #3 Hy Mon Cntrl Area Word 09: $' AncDSP3HyMonCA10 DC.B 38,' DSP #3 Hy Mon Cntrl Area Word 10: $' AncDSP3HyMonCA11 DC.B 38,' DSP #3 Hy Mon Cntrl Area Word 11: $' AncDSP3HyMonCA12 DC.B 38,' DSP #3 Hy Mon Cntrl Area Word 12: $' AncDSP3HyMonCA13 DC.B 38,' DSP #3 Hy Mon Cntrl Area Word 13: $' AncDSP3HyMonCA14 DC.B 38,' DSP #3 Hy Mon Cntrl Area Word 14: $' AncDSP3HyMonCA15 DC.B 38,' DSP #3 Hy Mon Cntrl Area Word 15: $' DSP3HyMonCA00 EQU $00A07F40 ; Adrs of DSP3 HydraMon Ctrl Area word 0. DSP3HyMonCA01 EQU $00A07F44 ; Adrs of DSP3 HydraMon Ctrl Area word 1. DSP3HyMonCA02 EQU $00A07F48 ; Adrs of DSP3 HydraMon Ctrl Area word 2. DSP3HyMonCA03 EQU $00A07F4C ; Adrs of DSP3 HydraMon Ctrl Area word 3. DSP3HyMonCA04 EQU $00A07F50 ; Adrs of DSP3 HydraMon Ctrl Area word 4. DSP3HyMonCA05 EQU $00A07F54 ; Adrs of DSP3 HydraMon Ctrl Area word 5. DSP3HyMonCA06 EQU $00A07F58 ; Adrs of DSP3 HydraMon Ctrl Area word 6. DSP3HyMonCA07 EQU $00A07F5C ; Adrs of DSP3 HydraMon Ctrl Area word 7. DSP3HyMonCA08 EQU $00A07F60 ; Adrs of DSP3 HydraMon Ctrl Area word 8. DSP3HyMonCA09 EQU $00A07F64 ; Adrs of DSP3 HydraMon Ctrl Area word 9. DSP3HyMonCA10 EQU $00A07F68 ; Adrs of DSP3 HydraMon Ctrl Area word 10. DSP3HyMonCA11 EQU $00A07F6C ; Adrs of DSP3 HydraMon Ctrl Area word 11. DSP3HyMonCA12 EQU $00A07F70 ; Adrs of DSP3 HydraMon Ctrl Area word 12. DSP3HyMonCA13 EQU $00A07F74 ; Adrs of DSP3 HydraMon Ctrl Area word 13. DSP3HyMonCA14 EQU $00A07F78 ; Adrs of DSP3 HydraMon Ctrl Area word 14. DSP3HyMonCA15 EQU $00A07F7C ; Adrs of DSP3 HydraMon Ctrl Area word 15. XDEF Disp_CA_3 XDEF DSP3HyMonCA00,DSP3HyMonCA01,DSP3HyMonCA02,DSP3HyMonCA03 XDEF DSP3HyMonCA04,DSP3HyMonCA05,DSP3HyMonCA06,DSP3HyMonCA07 XDEF DSP3HyMonCA08,DSP3HyMonCA09,DSP3HyMonCA10,DSP3HyMonCA11 XDEF DSP3HyMonCA12,DSP3HyMonCA13,DSP3HyMonCA14,DSP3HyMonCA15 *********************************************************************** * * * The following is the Sub-Routine to display a Long Word. * * * *********************************************************************** PrintLW ROL.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the MSByte. ROL.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the Next to MSByte. ROL.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the NT Next to MSByte. ROL.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the NT NT Next to MSByte. ROL.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the NT NT Next to LSByte. ROL.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the NT Next to LSByte. ROL.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the Next to LSByte. ROL.L #4,D0 Move.L D0,-(A7) JSR BinASCII ; Print the LSByte. PEA.L CharSpace ; Push space and carage return message JSR ChrStrgOut ; on the stack and send it out. RTS END