Header for : Del Module size: $A5 #165 Module CRC : $8F70C4 (Good) Hdr parity : $8D Exec. off : $0035 #53 Data size : $01C3 #451 Edition : $05 #5 Ty/La At/Rv: $11 $81 Prog mod, 6809 Obj, re-ent, R/O
* Disassembly by Os9disasm of del mod L00a5,L000d,$11,$81,L0035,D01c3 * OS-9 system function equates F$Exit equ $06 I$WritLn equ $8c I$DeletX equ $90 * class D external label equates Dfffe equ $fffe * OS9 data area definitions D0000 rmb 39 D0027 rmb 46 D0055 rmb 81 D00a6 rmb 285 D01c3 equ . L000d lsra fcb $65 ldd 5,x L0011 dec D0055 com $653a bra L005c fcb $65 fcb $6c bra L0077 blt L0096 tstb bra L005d neg $6174 asl Dfffe,y bra L00a3 cwai #$70 fcb $61 lsr $683e tst $205b blt L00ab tstb tst D00a6 L0035 equ *-1 anda #$81 tst D0027 lslb lda #1 sta D0000 bsr L0054 leax -1,x L0043 lda D0000 os9 I$DeletX bcs L0051 lda ,x cmpa #$0d bne L0043 clrb L0051 os9 F$Exit L0054 lda ,x+ cmpa #$20 beq L0054 cmpa #$2c L005c beq L0054 L005d equ *-1 cmpa #$2d bne L0067 bsr L0086 leax 1,x rts L0067 pshs x L0069 lda ,x+ cmpa #$20 beq L0069 cmpa #$2c beq L0069 cmpa #$2d beq L007e L0077 cmpa #$0d bne L0069 L007b puls x rts L007e bsr L0086 lda #$0d sta -2,x bra L007b L0086 lda ,x+ eora #$58 anda #$df bne L0093 lda #4 sta D0000 rts L0093 leax L0011,pcr L0096 equ *-1 ldy #$0050 clra os9 I$WritLn clrb bra L0051 emod L00a5 equ * end