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