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
This website uses cookies. By using the website, you agree with storing cookies on your computer. Also you acknowledge that you have read and understand our Privacy Policy. If you do not agree leave the website.
OK More information about cookies