Mercurial > hg > Members > kono > nitros9-code
changeset 115:a32b730f4c71
Added debug.asm
| author | boisy |
|---|---|
| date | Sat, 06 Jul 2002 18:41:03 +0000 |
| parents | 6ed78a2da265 |
| children | 6c363f0afba7 |
| files | level1/cmds/debug.asm level1/cmds/makefile |
| diffstat | 2 files changed, 1011 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level1/cmds/debug.asm Sat Jul 06 18:41:03 2002 +0000 @@ -0,0 +1,1010 @@ +******************************************************************** +* debug - 6809 debugger +* +* $Id$ +* +* Ed. Comments Who YY/MM/DD +* ------------------------------------------------------------------ +* 6 Original Tandy version + + nam debug + ttl 6809 debugger + +* Disassembled 02/07/06 13:05:58 by Disasm v1.6 (C) 1988 by RML + + ifp1 + use defsfile + endc + +tylg set Prgrm+Objct +atrv set ReEnt+rev +rev set $01 + +L0000 mod eom,name,tylg,atrv,start,size + +u0000 rmb 1 +u0001 rmb 1 +u0002 rmb 1 +u0003 rmb 1 +u0004 rmb 2 +u0006 rmb 2 +u0008 rmb 1 +u0009 rmb 1 +u000A rmb 1 +u000B rmb 1 +u000C rmb 4 +u0010 rmb 14 +u001E rmb 2 +u0020 rmb 1 +u0021 rmb 19 +u0034 rmb 4 +u0038 rmb 9 +u0041 rmb 1 +u0042 rmb 1 +u0043 rmb 1 +u0044 rmb 3 +u0047 rmb 4 +u004B rmb 1 +u004C rmb 1 +u004D rmb 4 +u0051 rmb 2 +u0053 rmb 2 +u0055 rmb 3 +u0058 rmb 1 +u0059 rmb 6 +u005F rmb 39 +u0086 rmb 20 +u009A rmb 4 +u009E rmb 9 +u00A7 rmb 18 +u00B9 rmb 67 +u00FC rmb 260 +size equ . + +name fcs /debug/ + fcb $06 + +L0013 bsr L0021 + bra L0019 +L0017 bsr L0027 +L0019 pshs a + lda #$20 + sta ,x+ + puls pc,a +L0021 exg a,b + bsr L0027 + tfr a,b +L0027 pshs b + andb #$F0 + lsrb + lsrb + lsrb + lsrb + bsr L0035 + puls b + andb #$0F +L0035 cmpb #$09 + bls L003B + addb #$07 +L003B addb #$30 + stb ,x+ + rts +L0040 pshs u,y,b + leau <L0065,pcr + ldy #$0005 +L0049 clr ,s +L004B subd ,u + bcs L0053 + inc ,s + bra L004B +L0053 addd ,u++ + pshs b + ldb $01,s + addb #$30 + stb ,x+ + puls b + leay -$01,y + bne L0049 + puls pc,u,y,b + +L0065 fcb $27,$10,$03,$e8,$00,$64,$00,$0a,$00,$01 + +L006F lbsr L0127 + leax $01,x + cmpa #$23 + beq L00BA + cmpa #$25 + beq L00E0 + cmpa #$24 + beq L0082 + leax -$01,x +L0082 leas -$04,s + bsr L00F7 +L0086 bsr L00FE + bcc L00A0 + cmpb #$41 + lbcs L0110 + cmpb #$46 + bls L009E + cmpb #$61 + bcs L0110 + cmpb #$66 + bhi L0110 + subb #$20 +L009E subb #$37 +L00A0 stb ,s + ldd $02,s + bita #$F0 + bne L0123 + lslb + rola + lslb + rola + lslb + rola + lslb + rola + addb ,s + adca #$00 + std $02,s + inc $01,s + bra L0086 +L00BA leas -$04,s + bsr L00F7 +L00BE bsr L00FE + bcs L0110 + stb ,s + ldd $02,s + lslb + rola + std $02,s + lslb + rola + lslb + rola + bcs L0123 + addd $02,s + bcs L0123 + addb ,s + adca #$00 + bcs L0123 + std $02,s + inc $01,s + bra L00BE +L00E0 leas -$04,s + bsr L00F7 +L00E4 ldb ,x+ + subb #$30 + bcs L0110 + lsrb + bne L0110 + rol $03,s + rol $02,s + bcs L0123 + inc $01,s + bra L00E4 +L00F7 clra + clrb + std $02,s + std $04,s + rts +L00FE ldb ,x+ + cmpb #$30 + bcs L0108 + cmpb #$39 + bls L010B +L0108 orcc #$01 + rts +L010B subb #$30 + andcc #$FE + rts +L0110 leax -$01,x + tst $01,s + beq L011C + ldd $02,s + andcc #$FE + bra L0120 +L011C orcc #$04 +L011E orcc #$01 +L0120 leas $04,s + rts +L0123 andcc #$FB + bra L011E +L0127 lda ,x+ + cmpa #$20 + beq L0127 + leax -$01,x + rts +L0130 pshs x,b,a + lda $03,s + mul + pshs b,a + lda $02,s + ldb $04,s + mul + pshs b,a + lda $04,s + ldb $07,s + bsr L0157 + lda $05,s + ldb $06,s + bsr L0157 + andcc #$FE + ldd $02,s + ldx ,s + beq L0154 + orcc #$01 +L0154 leas $08,s + rts +L0157 mul + addd $03,s + std $03,s + bcc L0160 + inc $02,s +L0160 rts +L0161 pshs y,x,b,a + ldd ,s + bne L016B + orcc #$01 + bra L018B +L016B ldd #$0010 + stb $04,s + clrb +L0171 lsl $03,s + rol $02,s + rolb + rola + subd ,s + bmi L017F + inc $03,s + bra L0181 +L017F addd ,s +L0181 dec $04,s + bne L0171 + tfr d,x + ldd $02,s + andcc #$FE +L018B leas $06,s + rts +L018E sta ,x+ +L0190 lda ,y+ + bne L018E + rts +L0195 pshs u,y + tfr s,u + bsr L01A7 + andcc #$FE + puls pc,u,y +L019F tfr u,s + orcc #$01 + puls pc,u,y +L01A5 leax $01,x +L01A7 bsr L01C9 + pshs b,a +L01AB bsr L021D + cmpa #$2D + bne L01B9 + bsr L01C7 + nega + negb + sbca #$00 + bra L01BF +L01B9 cmpa #$2B + bne L01C5 + bsr L01C7 +L01BF addd ,s + std ,s + bra L01AB +L01C5 puls pc,b,a +L01C7 leax $01,x +L01C9 bsr L01FD + pshs b,a +L01CD bsr L021D + cmpa #$2A + bne L01E2 + bsr L01FB + pshs x + ldx $02,s + lbsr L0130 + bcc L01F5 + ldb #$02 + bra L019F +L01E2 cmpa #$2F + bne L01C5 + bsr L01FB + pshs x + ldx $02,s + lbsr L0161 + bcc L01F5 + ldb #$01 + bra L019F +L01F5 puls x + std ,s + bra L01CD +L01FB leax $01,x +L01FD bsr L0222 + pshs b,a +L0201 bsr L021D + cmpa #$26 + bne L020F + bsr L0220 + andb $01,s + anda ,s + bra L0219 +L020F cmpa #$21 + bne L01C5 + bsr L0220 + orb $01,s + ora ,s +L0219 std ,s + bra L0201 +L021D lbra L0127 +L0220 leax $01,x +L0222 bsr L021D + cmpa #$5E + bne L022E + bsr L0239 + comb + coma + bra L0238 +L022E cmpa #$2D + bne L023B + bsr L0239 + nega + negb + sbca #$00 +L0238 rts +L0239 leax $01,x +L023B bsr L021D + cmpa #$28 + bne L0250 + lbsr L01A5 + pshs b,a + bsr L021D + cmpa #$29 + beq L0282 + ldb <u0004 + bra L0265 +L0250 cmpa #$5B + bne L026A + lbsr L01A5 + tfr d,y + ldd ,y + pshs b,a + bsr L021D + cmpa #$5D + beq L0282 + ldb #$05 +L0265 leas $02,s +L0267 lbra L019F +L026A cmpa #$3C + bne L0286 + lbsr L01A5 + tfr d,y + clra + ldb ,y + pshs b,a + bsr L021D + cmpa #$3E + beq L0282 + ldb #$06 + bra L0265 +L0282 leax $01,x + puls pc,b,a +L0286 cmpa #$2E + bne L028F + ldd <u0000 + leax $01,x + rts +L028F cmpa #$27 + bne L0297 + ldd ,x++ + clra + rts +L0297 cmpa #$22 + bne L02A0 + leax $01,x + ldd ,x++ + rts +L02A0 cmpa #$3A + bne L02B4 + leax $01,x + bsr L02C3 + bcs L0267 + tsta + bmi L02B1 + clra + ldb ,y + rts +L02B1 ldd ,y +L02B3 rts +L02B4 lbsr L006F + bcc L02B3 + beq L02BF + ldb #$03 + bra L0267 +L02BF ldb #$00 + bra L0267 +L02C3 ldb #$09 + pshs b + ldd ,x + cmpd #$7370 + beq L02D5 + cmpd #$5350 + bne L02E2 +L02D5 leax $02,x + ldd #$0002 + tfr dp,a + tfr d,y + lda #$80 + bra L0314 +L02E2 leay >L0322,pcr +L02E6 lda ,y + ldb $01,y + bne L02F8 + cmpa ,x + beq L0307 + adda #$20 + cmpa ,x + beq L0307 + bra L0318 +L02F8 cmpd ,x + beq L0305 + addd #$2020 + cmpd ,x + bne L0318 +L0305 leax $01,x +L0307 leax $01,x + lda $02,y + tfr a,b + andb #$0F + ldy <u0002 + leay b,y +L0314 andcc #$FE + puls pc,b +L0318 leay $03,y + dec ,s + bne L02E6 + orcc #$01 + puls pc,b +L0322 fcc "CC" + fcb $00 + fcc "DP" + fcb $03 + fcc "PC" + fcb $8a + fcc "A" + fcb $00,$01 + fcc "B" + fcb $00,$02 + fcc "D" + fcb $00,$81 + fcc "X" + fcb $00,$84 + fcc "Y" + fcb $00,$86 + fcc "U" + fcb $00,$88 + +start leas >size,u + leas -$0C,s + sts <u0002 + sts <u0004 + leay >L0765,pcr + sty $0A,s + lda #$80 + sta ,s + tfr s,x + leax >-$0145,x + stx <u0006 + leax <-$50,x + stx <u0008 + leax <-$24,x + stx <u000C + clr <u0000 + clr <u0001 +L036A clr ,x+ + cmpx <u0006 + bcs L036A + leax >L0652,pcr + lda #$01 + os9 F$SSWi + os9 F$Icpt + lbsr L07E1 + ldx <u0006 + leay >L0766,pcr + bsr L03C2 + lbsr L07E3 +L038A leay >L077B,pcr + lbsr L07EF + lbsr L0807 + leay >L07AD,pcr + lda ,x + cmpa #$61 + bcs L03A2 + suba #$20 + sta ,x +L03A2 leay $03,y + lda ,y + beq L03B8 + cmpa ,x + bne L03A2 + leax $01,x + ldd $01,y + leau >L0000,pcr + jsr d,u + bra L038A +L03B8 ldb #$09 + bsr L03BE + bra L038A +L03BE os9 F$PErr + rts +L03C2 lbra L0190 + lda ,x + cmpa #$2E + bne L03CF + ldd <u000A + bra L03DC +L03CF cmpa #$0D + bne L03D7 +L03D3 ldd <u0000 + bra L03DC +L03D7 lbsr L0195 + bcs L03BE +L03DC ldx <u0000 + stx <u000A + std <u0000 + pshs b,a + bsr L0415 + ldd ,s + lbsr L0013 + puls y + ldb ,y + lbsr L0027 + lbra L07E3 + ldd <u0000 + subd #$0001 + bra L03DC + bsr L043F + bcs L03BE + ldx <u0000 + stb ,x + cmpb ,x + beq L040E + ldb #$0A + bsr L03BE + bra L03D3 +L040E ldd <u0000 + addd #$0001 + bra L03DC +L0415 ldx <u0006 + pshs b,a + leay >L0780,pcr + bsr L03C2 + puls pc,b,a + lbsr L0195 + bcs L03BE + bsr L0415 + pshs b,a + lda #$24 + sta ,x+ + lda ,s + lbsr L0013 + lda #$23 + sta ,x+ + puls b,a + lbsr L0040 + lbra L07E3 +L043F lbsr L0195 + bcs L044B + tsta + beq L044B + ldb #$08 + orcc #$01 +L044B rts + lbsr L0512 + beq L04AF + lbsr L02C3 + lbcs L03BE + pshs y,a + lbsr L0512 + bne L0475 + bsr L0415 + puls y,a + tsta + bpl L046D + ldd ,y + lbsr L0021 + bra L0472 +L046D ldb ,y + lbsr L0027 +L0472 lbra L07E3 +L0475 lda ,s+ + bpl L0485 + lbsr L0195 + puls y + lbcs L054E + std ,y + rts +L0485 bsr L043F + puls y + lbcs L054E + stb ,y + rts +L0490 fcc "PC=" + fcb $00 + fcc "A=" + fcb $00 + fcc "B=" + fcb $00 + fcc "CC=" + fcb $00 + fcc "DP=" + fcb $00 + fcc "SP=" + fcb $00 + fcc "X=" + fcb $00 + fcc "Y=" + fcb $00 + fcc "U=" + fcb $00 + +L04AF fcb $34,$40 + ldx <u0006 + leay <L0490,pcr + ldu <u0002 + lbsr L03C2 + ldd u000A,u + bsr L0505 + lbsr L03C2 + ldb u0001,u + bsr L050F + lbsr L03C2 + ldb u0002,u + bsr L050F + lbsr L03C2 + ldb ,u + bsr L050F + lbsr L03C2 + ldb u0003,u + bsr L050F + pshs y + lbsr L07E3 + puls y + lbsr L03C2 + tfr u,d + bsr L0505 + lbsr L03C2 + ldd u0004,u + bsr L0505 + lbsr L03C2 + ldd u0006,u + bsr L0505 + lbsr L03C2 + ldd u0008,u + bsr L0505 + lbsr L07E3 + puls pc,u + ldd ,y++ +L0505 lbra L0013 +L0508 ldd ,y++ + lbra L0021 + ldb ,y+ +L050F lbra L0017 +L0512 lbsr L0127 + cmpa #$0D + rts + bsr L0512 + bne L0538 + lbsr L0415 + ldy <u000C + ldb #$0C + pshs b +L0526 ldd ,y + beq L052D + lbsr L0013 +L052D leay $03,y + dec ,s + bne L0526 + leas $01,s + lbra L07E3 +L0538 lbsr L0195 + bcs L054E + pshs b,a + bsr L0556 + beq L0551 + ldd #$0000 + bsr L0556 + beq L0551 + ldb #$0B + leas $02,s +L054E lbra L03BE +L0551 puls b,a + std ,y + rts +L0556 pshs u + tfr d,u + ldb #$0C + ldy <u000C +L055F cmpu ,y + beq L056D + leay $03,y + decb + bne L055F + ldb <u000C + andcc #$FB +L056D puls pc,u + bsr L0512 + beq L0581 + lbsr L0195 + bcs L054E + bsr L0556 + bne L054E + clra + clrb + std ,y + rts +L0581 ldy <u000C + ldb #$24 +L0586 clr ,y+ + decb + bne L0586 + rts + bsr L0512 + beq L059A + lbsr L0195 + bcs L054E + ldy <u0002 + std $0A,y +L059A ldy <u000C + ldb #$0C + ldx <u0002 + ldx $0A,x +L05A3 ldu ,y + beq L05B3 + lda ,u + sta $02,y + cmpx ,y + beq L05B3 + lda #$3F + sta ,u +L05B3 leay $03,y + decb + bne L05A3 + lds <u0002 + rti + bsr L0613 + bcs L054E + orb #$07 + exg d,u + andb #$F8 + pshs u,b,a + cmpd $02,s + bcc L05D9 +L05CD ldy ,s + leay -$01,y + cmpy $02,s + leay $01,y + bcs L05DB +L05D9 puls pc,u,b,a +L05DB ldx <u0006 + tfr y,d + lbsr L0013 + ldb #$04 + pshs b +L05E6 lbsr L0508 + dec ,s + bne L05E6 + lbsr L0019 + ldb #$08 + stb ,s + ldy $01,s +L05F7 lda ,y+ + cmpa #$7E + bhi L0601 + cmpa #$20 + bcc L0603 +L0601 lda #$2E +L0603 sta ,x+ + dec ,s + bne L05F7 + leas $01,s + sty ,s + lbsr L07E3 + bra L05CD +L0613 lbsr L0195 + bcs L061D + tfr d,u + lbsr L0195 +L061D rts + bsr L0613 + lbcs L03BE + pshs b,a +L0626 cmpu ,s + bls L062D + puls pc,b,a +L062D ldd #$8008 + sta ,u +L0632 cmpa ,u + bne L063E + lsra + lsr ,u + decb + bne L0632 + bra L064E +L063E lbsr L0415 + ldd #$2D20 + std ,x++ + tfr u,d + lbsr L0021 + lbsr L07E3 +L064E leau u0001,u + bra L0626 +L0652 clra + tfr a,dp + ldx <u004B + lda $07,x + tfr a,dp + sts <u0002 + ldd $0A,s + subd #$0001 + std $0A,s + lds <u0004 + lbsr L0556 + beq L0672 + ldb #$0D + lbsr L03BE +L0672 ldy <u000C + ldb #$0C +L0677 ldx ,y + beq L067F + lda $02,y + sta ,x +L067F leay $03,y + decb + bne L0677 + lbsr L07E1 + lbsr L0415 + leay >L07A9,pcr + lbsr L03C2 + lbsr L07E3 + lbsr L04AF + lbra L038A + bsr L06B0 + lbcs L03BE + ldx <u0006 + tfr u,d + pshs u + lbsr L03DC + lbsr L07E3 + puls u + bra L06CC +L06B0 lbsr L0127 + lda #$00 + os9 F$Link + rts + bsr L06B0 + lbcs L03BE + ldd u000B,u + addd #$0200 + os9 F$Mem + bcc L06D0 + lbsr L03BE +L06CC os9 F$UnLink + rts +L06D0 os9 F$UnLink + pshs u,y,x +L06D5 lda ,x+ + cmpa #$0D + bne L06D5 + clrb +L06DC lda ,-x + sta ,-y + incb + cmpx ,s + bhi L06DC + sty -$08,y + leay -$0C,y + sty <u0002 + clra + std $01,y + puls u,x,b,a + stx $06,y + ldd u0009,u + leax d,u + stx $0A,y + tfr cc,a + ora #$80 + sta ,y + tfr dp,a + adda #$02 + clrb + std $08,y + sta $03,y + lbra L04AF + lbsr L0127 + clra + clrb + tfr x,u + tfr d,y +L0715 leay $01,y + lda ,x+ + cmpa #$0D + bne L0715 + clra + leax <L072E,pcr + os9 F$Fork + bcs L0729 + os9 F$Wait +L0729 lbcs L03BE + rts +L072E com >$6865 + inc $0C,s + neg <u005F + os9 F$Exit + lbsr L0613 + lbcs L03BE + pshs u + ldx <u0000 + tsta + bne L0750 +L0746 cmpb ,x+ + beq L075C + cmpx ,s + bne L0746 + puls pc,u +L0750 cmpd ,x+ + beq L075C + cmps ,s + bne L0750 + puls pc,u +L075C leax -$01,x + tfr x,d + leas $02,s + lbra L03DC +L0765 fcc "?" +L0766 fcc "Interactive Debugger" + fcb $00 +L077B fcc "DB: " + fcb $00 +L0780 fcc " " + fcb $00 + fcc " SP CC A B DP X Y U PC" + fcb $00 +L07A9 fcc "BKPT" +L07AD fcc ": " + fcb $00 + fdb $2e03,$c53d,$03fc,$0d04,$0e20 + fcb $04 + fcb $21 + fdb $2d03,$f53a + fdb $044c,$4b05,$6f4d,$05bc,$4306,$1e42,$0518,$4705 + fdb $8c4c,$069a,$4506,$b924,$070c,$5107,$3453,$0738 + fcb $00 +L07E1 fcb $9e,$06 +L07E3 fcb $86 + fdb $0da7,$809e,$0610,$8e00,$5120 + fcb $10 + +L07EF tfr y,x + tfr y,u + ldy #$0000 +L07F7 ldb ,u+ + beq L07FF + leay $01,y + bra L07F7 +L07FF lda #$01 + os9 I$WritLn + ldx <u0006 + rts +L0807 ldx <u0006 + ldy #$0050 + clra + os9 I$ReadLn + ldx <u0006 + rts + + emod +eom equ * + end
--- a/level1/cmds/makefile Sat Jul 06 18:33:51 2002 +0000 +++ b/level1/cmds/makefile Sat Jul 06 18:41:03 2002 +0000 @@ -4,7 +4,7 @@ # Files not compilable by os9asm: dcheck dsave format tmode CMDS = asm attr backup binex build cobbler copy date \ - del deldir dir display dump \ + debug del deldir dir display dump \ echo exbin free grfo ident iniz link list \ load login makdir mdir merge mfree os9gen \ printerr procs pwd pxd \