TSMON
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
* 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
RTS