====== TSMON ======
<code>
Header for : Tsmon
Module size: $82  #130
Module CRC : $B8E5E2 (Good)
Hdr parity : $AA
Exec. off  : $001A  #26
Data size  : $01C7  #455
Edition    : $06  #6
Ty/La At/Rv: $11 $81
Prog mod, 6809 Obj, re-ent, R/O

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

 mod L0082,L000d,$11,$81,L001a,D01c7

* OS-9 system function equates

F$Fork equ $03
F$Wait equ $04
F$Exit equ $06
F$Icpt equ $09
I$Dup equ $82
I$Open equ $84
I$ReadLn equ $8b
I$Close equ $8f

* OS9 data area definitions

D0000 rmb 1
D0001 rmb 2
D0003 rmb 56
D003b rmb 396
D01c7 equ .

L000d lsrb  
 com   $6d6f
 ldu   6,x
L0013 inca  
 clra  
 asra  
 rola  
 fcb $4e
L0018 tst   D003b
L0019 equ *-1
L001a stx   D0001
 std   D0003
L001e cmpd  #2
 bcs   L0047
 lda   ,x
 cmpa  #$0d
 beq   L0047
 clra  
 os9 I$Close
 inca  
 os9 I$Close
 inca  
 os9 I$Close
 lda   #3
 os9 I$Open
 bcs   L007c
 os9 I$Dup
 bcs   L007c
 os9 I$Dup
 bcs   L007c
L0047 leax  <L0019,pcr
 os9 F$Icpt
L004d clra  
 leax  ,-s
 ldy   #1
 os9 I$ReadLn
 leas  1,s
 bcs   L004d
 lda   #1
 clrb  
 leax  <L0013,pcr
 leau  <L0018,pcr
 ldy   #0
 os9 F$Fork
 bcs   L004d
 sta   D0000
L006f os9 F$Wait
 cmpa  D0000
 bne   L006f
 ldx   D0001
 ldd   D0003
 bra   L001e
L007c os9 F$Exit

 emod 

L0082 equ *

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