Header for : Tee
Module size: $7D  #125
Module CRC : $070490 (Good)
Hdr parity : $55
Exec. off  : $0011  #17
Data size  : $02D1  #721
Edition    : $02  #2
Ty/La At/Rv: $11 $81
Prog mod, 6809 Obj, re-ent, R/O

* Disassembly by Os9disasm of tee

 mod L007d,L000d,$11,$81,L0011,D02d1

* OS-9 system function equates

F$Exit equ $06
I$Create equ $83
I$ReadLn equ $8b
I$WritLn equ $8c

* OS9 data area definitions

 rmb 721
D02d1 equ .

L000d lsrb  
 fcb $65
 bitb  2,x
L0011 clrb  
 clr   14,u
 cmpy  #0
 lbeq  L0076
 leay  1,u
L001e lda   ,x+
 cmpa  #$20
 beq   L001e
 cmpa  #$2c
 beq   L001e
 cmpa  #$0d
 lbeq  L0042
 leax  -1,x
 lda   #2
 ldb   #$0b
 os9 I$Create
 bcs   L0077
 ldb   14,u
 sta   b,y
 incb  
 stb   14,u
 bra   L001e
L0042 stb   14,u
L0044 clra  
 leax  15,u
 ldy   #$0100
 os9 I$ReadLn
 bcc   L0057
 cmpb  #$d3
 beq   L0076
 coma  
 bra   L0077
L0057 inca  
 os9 I$WritLn
 tst   14,u
 beq   L0044
 clrb  
L0060 leay  1,u
 lda   b,y
 leax  15,u
 ldy   #$0100
 os9 I$WritLn
 bcs   L0077
 incb  
 cmpb  14,u
 bne   L0060
 bra   L0044
L0076 clrb  
L0077 os9 F$Exit

 emod 

L007d equ *

 end

Return to OS-9 or Top