|
0
|
1 ********************************************************************
|
|
|
2 * Tee - Split output to multiple devices
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 2 Original Tandy distribution version
|
|
|
9
|
|
|
10 nam Tee
|
|
|
11 ttl Split output to multiple devices
|
|
|
12
|
|
|
13 * Disassembled 98/09/14 23:50:52 by Disasm v1.6 (C) 1988 by RML
|
|
|
14
|
|
|
15 ifp1
|
|
|
16 use defsfile
|
|
|
17 endc
|
|
|
18
|
|
|
19 tylg set Prgrm+Objct
|
|
|
20 atrv set ReEnt+rev
|
|
|
21 rev set $01
|
|
|
22 edition set 2
|
|
|
23
|
|
|
24 mod eom,name,tylg,atrv,start,size
|
|
|
25
|
|
|
26 u0000 rmb 1
|
|
|
27 u0001 rmb 13
|
|
|
28 u000E rmb 1
|
|
|
29 u000F rmb 706
|
|
|
30 size equ .
|
|
|
31
|
|
|
32 name fcs /Tee/
|
|
|
33 fcb edition
|
|
|
34
|
|
|
35 start clrb
|
|
|
36 clr u000E,u
|
|
|
37 cmpy #$0000
|
|
|
38 lbeq L0076
|
|
|
39 leay u0001,u
|
|
|
40 * Kill any spaces or commas
|
|
|
41 L001E lda ,x+
|
|
|
42 cmpa #C$SPAC
|
|
|
43 beq L001E
|
|
|
44 cmpa #C$COMA
|
|
|
45 beq L001E
|
|
|
46 cmpa #C$CR
|
|
|
47 lbeq L0042
|
|
|
48 leax -$01,x
|
|
|
49 lda #WRITE.
|
|
|
50 ldb #PREAD.+UPDAT.
|
|
|
51 os9 I$Create
|
|
|
52 bcs L0077
|
|
|
53 ldb u000E,u
|
|
|
54 sta b,y
|
|
|
55 incb
|
|
|
56 stb u000E,u
|
|
|
57 bra L001E
|
|
|
58 L0042 stb u000E,u
|
|
|
59 L0044 clra
|
|
|
60 leax u000F,u
|
|
|
61 ldy #256
|
|
|
62 os9 I$ReadLn
|
|
|
63 bcc L0057
|
|
|
64 cmpb #E$EOF
|
|
|
65 beq L0076
|
|
|
66 coma
|
|
|
67 bra L0077
|
|
|
68 L0057 inca
|
|
|
69 os9 I$WritLn
|
|
|
70 tst u000E,u
|
|
|
71 beq L0044
|
|
|
72 clrb
|
|
|
73 L0060 leay u0001,u
|
|
|
74 lda b,y
|
|
|
75 leax u000F,u
|
|
|
76 ldy #256
|
|
|
77 os9 I$WritLn
|
|
|
78 bcs L0077
|
|
|
79 incb
|
|
|
80 cmpb u000E,u
|
|
|
81 bne L0060
|
|
|
82 bra L0044
|
|
|
83 L0076 clrb
|
|
|
84 L0077 os9 F$Exit
|
|
|
85
|
|
|
86 emod
|
|
|
87 eom equ *
|
|
|
88 end
|
