====== DEBUG ====== Header for : debug Module size: $817 #2071 Module CRC : $37E856 (Good) Hdr parity : $37 Exec. off : $033D #829 Data size : $0200 #512 Edition : $06 #6 Ty/La At/Rv: $11 $81 Prog mod, 6809 Obj, re-ent, R/O ===== CODE ===== * Disassembly by Os9disasm of debug mod L0817,L000d,$11,$81,L033d,D0200 * OS-9 system function equates F$Link equ $00 F$UnLink equ $02 F$Fork equ $03 F$Wait equ $04 F$Exit equ $06 F$Mem equ $07 F$Icpt equ $09 F$SSWI equ $0e F$PErr equ $0f I$ReadLn equ $8b I$WritLn equ $8c * class D external label equates Dfff4 equ $fff4 Dfff8 equ $fff8 Dffff equ $ffff * OS9 data area definitions D0000 rmb 1 D0001 rmb 1 D0002 rmb 1 D0003 rmb 1 D0004 rmb 2 D0006 rmb 2 D0008 rmb 2 D000a rmb 2 D000c rmb 4 D0010 rmb 16 D0020 rmb 1 D0021 rmb 19 D0034 rmb 4 D0038 rmb 9 D0041 rmb 1 D0042 rmb 1 D0043 rmb 1 D0044 rmb 1 D0045 rmb 6 D004b rmb 5 D0050 rmb 1 D0051 rmb 2 D0053 rmb 2 D0055 rmb 3 D0058 rmb 1 D0059 rmb 6 D005f rmb 5 D0064 rmb 29 D0081 rmb 3 D0084 rmb 2 D0086 rmb 2 D0088 rmb 22 D009e rmb 9 D00a7 rmb 18 D00b9 rmb 47 D00e8 rmb 20 D00fc rmb 260 D0200 equ . L000d lsr 5,s fcb $62 fcb $75 stb 6,x L0013 bsr L0021 bra L0019 L0017 bsr L0027 L0019 pshs a lda #$20 sta ,x+ puls a,pc 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 #9 bls L003b addb #7 L003b addb #$30 stb ,x+ rts L0040 pshs b,y,u leau L0322,pcr L02e6 lda ,y ldb D0001,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 1,x L0307 leax 1,x lda D0002,y tfr a,b andb #$0f ldy D0002 leay b,y L0314 andcc #254 puls b,pc L0318 leay D0003,y dec ,s bne L02e6 orcc #1 puls b,pc L0322 coma coma neg D0044 negb com D0050 coma ora #$41 neg D0001 fcb $42 neg D0002 lsra neg D0081 lslb neg D0084 rolb neg D0086 fcb $55 neg D0088 L033d leas 512,u leas -12,s sts D0002 sts D0004 leay L0765,pcr sty 10,s lda #$80 sta ,s tfr s,x leax -325,x stx D0006 leax -80,x stx D0008 leax -36,x stx D000c clr D0000 clr D0001 L036a clr ,x+ cmpx D0006 bcs L036a leax L0652,pcr lda #1 os9 F$SSWI os9 F$Icpt lbsr L07e1 ldx D0006 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 D0003,y lda ,y beq L03b8 cmpa ,x bne L03a2 leax 1,x ldd D0001,y leau L0000,pcr jsr d,u bra L038a L03b8 ldb #9 bsr L03be bra L038a L03be os9 F$PErr rts L03c2 lbra L0190 lda ,x cmpa #$2e bne L03cf ldd D000a bra L03dc L03cf cmpa #$0d bne L03d7 L03d3 ldd D0000 bra L03dc L03d7 lbsr L0195 bcs L03be L03dc ldx D0000 stx D000a std D0000 pshs d bsr L0415 ldd ,s lbsr L0013 puls y ldb ,y lbsr L0027 lbra L07e3 ldd D0000 subd #1 bra L03dc bsr L043f bcs L03be ldx D0000 stb ,x cmpb ,x beq L040e ldb #$0a bsr L03be bra L03d3 L040e ldd D0000 addd #1 bra L03dc L0415 ldx D0006 pshs d leay L0780,pcr bsr L03c2 puls d,pc lbsr L0195 bcs L03be bsr L0415 pshs d lda #$24 sta ,x+ lda ,s lbsr L0013 lda #$23 sta ,x+ puls d lbsr L0040 lbra L07e3 L043f lbsr L0195 bcs L044b tsta beq L044b ldb #8 orcc #1 L044b rts lbsr L0512 beq L04af lbsr L02c3 lblo L03be pshs a,y lbsr L0512 bne L0475 bsr L0415 puls a,y 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 lblo L054e std ,y rts L0485 bsr L043f puls y lblo L054e stb ,y rts L0490 negb coma mul neg D0041 mul neg D0042 mul neg D0043 coma mul neg D0044 negb mul neg D0053 negb mul neg D0058 mul neg D0059 mul neg D0055 mul neg D0034 L04af equ *-1 nega ldx D0006 leay ===== RTS ===== Return to [[:OS-9:]] or [[:Top:]]