====== DEL ======
<code>
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

</code>
===== CODE =====
<code>
* 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
</code>
===== RTS =====
Return to [[:OS-9:]] or [[:Top:]]