====== MERGE ======
<code>
Header for : Merge
Module size: $68  #104
Module CRC : $E0D2E4 (Good)
Hdr parity : $40
Exec. off  : $0013  #19
Data size  : $09C7  #2503
Edition    : $03  #3
Ty/La At/Rv: $11 $81
Prog mod, 6809 Obj, re-ent, R/O

</code>
===== CODE =====
<code>
* Disassembly by Os9disasm of merge

 mod L0068,L000d,$11,$81,L0013,D09c7

* OS-9 system function equates

F$Exit equ $06
I$Open equ $84
I$Read equ $89
I$Write equ $8a
I$Close equ $8f

* OS9 data area definitions

D0000 rmb 1
D0001 rmb 2
D0003 rmb 2
D0005 rmb 47
D0034 rmb 2451
D09c7 equ .

L000d tsta  
 fcb $65
 fcb $72
 asr   b,s
 com   D0034
L0013 equ *-1
 nega  
 stx   D0001
 tfr   x,d
 subd  #$0107
 subd  ,s++
 std   D0005
 leau  7,u
 stu   D0003
L0024 ldx   D0001
 bsr   L005c
 clrb  
 cmpa  #$0d
 beq   L0059
 lda   #1
 os9 I$Open
 bcs   L0059
 sta   D0000
 stx   D0001
L0038 lda   D0000
 ldy   D0005
 ldx   D0003
 os9 I$Read
 bcs   L004d
 lda   #1
 os9 I$Write
 bcc   L0038
 bra   L0059
L004d cmpb  #$d3
 bne   L0058
 lda   D0000
 os9 I$Close
 bcc   L0024
L0058 coma  
L0059 os9 F$Exit
L005c lda   ,x+
 cmpa  #$20
 beq   L005c
 leax  -1,x
 rts   

 emod 

L0068 equ *

 end
</code>
===== RTS =====
Return to [[:OS-9:]] or [[:Top:]]