====== SAVE ======
<code>
Header for : Save
Module size: $67  #103
Module CRC : $8F769A (Good)
Hdr parity : $4F
Exec. off  : $0012  #18
Data size  : $01C3  #451
Edition    : $03  #3
Ty/La At/Rv: $11 $81
Prog mod, 6809 Obj, re-ent, R/O

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

 mod L0067,L000d,$11,$81,L0012,D01c3

* OS-9 system function equates

F$Link equ $00
F$UnLink equ $02
F$Exit equ $06
I$Create equ $83
I$Write equ $8a
I$Close equ $8f

* class D external label equates

Dffff equ $ffff

* OS9 data area definitions

D0000 rmb 451
D01c3 equ .

L000d comb  
 fcb $61
 ror   $e503
L0012 leay  Dffff,y
 pshs  x,y
 cmpx  2,s
 bcc   L0060
 ldd   #$022f
 os9 I$Create
 bcs   L0061
 sta   D0000
 lda   ,x
 cmpa  #$0d
 bne   L002c
 ldx   ,s
L002c lda   ,x+
 cmpa  #$20
 beq   L002c
 cmpa  #$2c
 beq   L002c
 leax  -1,x
 clra  
 os9 F$Link
 bcs   L0061
 stx   ,s
 leax  ,u
 ldy   2,x
 lda   D0000
 os9 I$Write
 pshs  cc,b
 os9 F$UnLink
 ror   ,s+
 puls  b
 bcs   L0061
 ldx   ,s
 cmpx  2,s
 bcs   L002c
 os9 I$Close
 bcs   L0061
L0060 clrb  
L0061 os9 F$Exit

 emod 

L0067 equ *

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