====== LIST ======
<code>
Header for : List
Module size: $4F  #79
Module CRC : $49AC36 (Good)
Hdr parity : $67
Exec. off  : $0012  #18
Data size  : $028D  #653
Edition    : $04  #4
Ty/La At/Rv: $11 $81
Prog mod, 6809 Obj, re-ent, R/O

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

 mod L004f,L000d,$11,$81,L0012,D028d

* OS-9 system function equates

F$Exit equ $06
I$Open equ $84
I$ReadLn equ $8b
I$WritLn equ $8c
I$Close equ $8f

* OS9 data area definitions

D0000 rmb 1
D0001 rmb 652
D028d equ .

L000d inca  
 rol   -13,s
 andb  $049f
L0012 equ *-1
 fcb $01
 lda   #1
 os9 I$Open
 bcs   L0049
 sta   D0000
 stx   D0001
L001f lda   D0000
 leax  3,u
 ldy   #$00c8
 os9 I$ReadLn
 bcs   L0035
 lda   #1
 os9 I$WritLn
 bcc   L001f
 bra   L0049
L0035 cmpb  #$d3
 bne   L0049
 lda   D0000
 os9 I$Close
 bcs   L0049
 ldx   D0001
 lda   ,x
 cmpa  #$0d
 bne   L0012
 clrb  
L0049 os9 F$Exit

 emod 

L004f equ *

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