Mercurial > hg > Members > kono > nitros9-code
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 |