comparison level2/modules/krnp4_regdump.asm @ 2111:6ccd6e25a441

Fixed issues with pshs and puls of 6309 registers -- a nono!
author boisy
date Thu, 26 Jul 2007 16:41:45 +0000 (2007-07-26)
parents 949d4df97cca
children ebf319736e9c
comparison
equal deleted inserted replaced
2110:8b36468b2edb 2111:6ccd6e25a441
55 55
56 nextname fcc /krnp5/ next module name to link to 56 nextname fcc /krnp5/ next module name to link to
57 fcb C$CR 57 fcb C$CR
58 58
59 regdmp equ * 59 regdmp equ *
60 pshs cc,a,b,dp,x,y,u save all registers
60 IFNE H6309 61 IFNE H6309
61 pshs cc,a,b,e,f,dp,x,y,u save all registers 62 pshsw
62 ELSE
63 pshs cc,a,b,dp,x,y,u save all registers
64 ENDC 63 ENDC
65 tfr u,y transfer addresses 64 tfr u,y transfer addresses
66 leas -60,s back up for some variable storage 65 leas -60,s back up for some variable storage
67 leau 4,s buffer starts here 66 leau 4,s buffer starts here
68 clr ,u+ set flag to print ascii char 67 clr ,u+ set flag to print ascii char
104 addd #R$Size add on for registers which were saved 103 addd #R$Size add on for registers which were saved
105 bsr reg000 dump register S 104 bsr reg000 dump register S
106 lbsr reg060 send a <CR> 105 lbsr reg060 send a <CR>
107 leas 60,s restore stack pointer 106 leas 60,s restore stack pointer
108 IFNE H6309 107 IFNE H6309
109 puls cc,a,b,e,f,dp,x,y,u,pc restore all registers and return 108 pulsw
110 ELSE 109 ENDC
111 puls cc,a,b,dp,x,y,u,pc restore all registers and return 110 puls cc,a,b,dp,x,y,u,pc restore all registers and return
112 ENDC
113 111
114 * Dump a register in "D" 112 * Dump a register in "D"
115 * X = Control Table Location 113 * X = Control Table Location
116 * U = Output buffer Location 114 * U = Output buffer Location
117 115