annotate level1/cmds/tuneport.asm @ 2898:28ed72477814 lwtools-port

Dummy merge of default branch into lwtools hg -y merge --tool=internal:fail default hg revert --all --no-backup --rev . hg resolve -a -m This dummy merge discards any changes from the default branch so that the result is the same as what lwtools already had. When merging back to default branch later, the discarded changes will be discarded there also, so the result will be that the default branch will contain what the lwtools branch had before these merges. Only scripts/burst was "rescued" from default branch.
author Tormod Volden <debian.tormod@gmail.com>
date Sat, 11 Jan 2014 18:40:44 +0100
parents a783d16e58d5
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
97
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
1 ********************************************************************
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
2 * TunePort - Tune Printer Port
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
3 *
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
4 * $Id$
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
5 *
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 927
diff changeset
6 * Edt/Rev YYYY/MM/DD Modified by
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 927
diff changeset
7 * Comment
97
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
8 * ------------------------------------------------------------------
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 927
diff changeset
9 * 3 ????/??/??
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 927
diff changeset
10 * From Tandy OS-9 Level One VR 02.00.00.
1895
a783d16e58d5 Calc of baud table location changed. Handles both Level1&2
robert
parents: 1531
diff changeset
11 *
a783d16e58d5 Calc of baud table location changed. Handles both Level1&2
robert
parents: 1531
diff changeset
12 * 3 2005/10/22 Robert Gault
a783d16e58d5 Calc of baud table location changed. Handles both Level1&2
robert
parents: 1531
diff changeset
13 * Patched the calculation for the beginning of the baud table to
a783d16e58d5 Calc of baud table location changed. Handles both Level1&2
robert
parents: 1531
diff changeset
14 * accommodate both Level1 and Level2
97
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
15
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
16 nam TunePort
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
17 ttl Tune Printer Port
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
18
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
19 ifp1
1531
20841f236e32 'use rbfdefs' moved to upper defsfile
boisy
parents: 1325
diff changeset
20 use defsfile
97
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
21 endc
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
22
927
207aaa792076 Added DOHELP conditional
boisy
parents: 924
diff changeset
23 DOHELP set 0
207aaa792076 Added DOHELP conditional
boisy
parents: 924
diff changeset
24
97
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
25 tylg set Prgrm+Objct
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
26 atrv set ReEnt+rev
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 927
diff changeset
27 rev set $00
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 163
diff changeset
28 edition set 3
97
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
29
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
30 mod eom,name,tylg,atrv,start,size
924
c155aac72190 Made cosmetic changes
boisy
parents: 200
diff changeset
31
c155aac72190 Made cosmetic changes
boisy
parents: 200
diff changeset
32 org 0
97
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
33 u0000 rmb 1
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
34 u0001 rmb 1
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
35 u0002 rmb 1
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
36 u0003 rmb 2
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
37 u0005 rmb 2
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
38 u0007 rmb 2
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
39 u0009 rmb 1
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
40 u000A rmb 1
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
41 u000B rmb 2
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
42 u000D rmb 2
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
43 u000F rmb 2
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
44 u0011 rmb 1
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
45 u0012 rmb 1
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
46 u0013 rmb 3
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
47 size equ .
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
48
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
49 name fcs /TunePort/
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 163
diff changeset
50 fcb edition
97
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
51
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
52 AdjPmpt fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
53 fcb C$LF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
54 fcc " TO ADJUST YOUR PORT ENTER A"
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
55 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
56 fcb C$LF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
57 fcc "NEW VALUE FOR THE LOOP DELAY"
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
58 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
59 fcb C$LF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
60 fcc "AFTER THE PROMPT AND CURRENT"
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
61 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
62 fcb C$LF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
63 fcc "VALUE ARE GIVEN. HIT [ENTER]"
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
64 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
65 fcb C$LF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
66 fcc "TO END."
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
67 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
68 fcb C$LF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
69 PmptLen equ *-AdjPmpt
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
70
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
71 DoneMsg fcb C$LF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
72 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
73 fcb $20
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
74 fcc "YOUR PORT IS NOW ADJUSTED FOR"
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
75 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
76 fcb C$LF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
77 fcc "THE CURRENT BAUD RATE AND THE"
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
78 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
79 fcb C$LF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
80 fcc "CRC OF THE MODULE HAS BEEN UP-"
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
81 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
82 fcb C$LF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
83 fcc "DATED. TO MAKE THE CHANGE"
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
84 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
85 fcb C$LF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
86 fcc "PERMANENT IN THE BOOT USE THE"
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
87 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
88 fcb C$LF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
89 fcc "COBBLER OR OS9GEN UTILITIES"
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
90 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
91 fcb C$LF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
92 fcc "OR THE -S OPTION OF TUNEPORT"
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
93 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
94 fcc "AT SYSTEM STARTUP"
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
95 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
96 DoneLen equ *-DoneMsg
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
97
927
207aaa792076 Added DOHELP conditional
boisy
parents: 924
diff changeset
98 IFNE DOHELP
97
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
99 HelpMsg fcc "USE:TUNEPORT </P OR /T1> [-OPT]"
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
100 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
101 fcb C$LF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
102 fcc " ADJUST BAUD RATE DELAY ON"
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
103 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
104 fcb C$LF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
105 fcc " SERIAL PORTS."
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
106 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
107 fcb C$LF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
108 fcc "Opt: -S=VALUE TO SET LOOP DELAY"
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
109 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
110 fcb C$LF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
111 fcc " FOR CURRENT BAUD VALUE"
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
112 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
113 HelpLen equ *-HelpMsg
927
207aaa792076 Added DOHELP conditional
boisy
parents: 924
diff changeset
114 ENDC
97
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
115
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
116 ErrMsg fcc "TUNEPORT: CURRENT BAUD RATE"
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
117 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
118 fcb C$LF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
119 fcc "IS OUT OF RANGE"
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
120 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
121 ErrLen equ *-ErrMsg
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
122 L0241 fcb C$BELL
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
123
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
124 TestNow fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
125 fcc "NOW TESTING ....."
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
126 TestLen equ *-TestNow
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
127
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
128 NewVMsg fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
129 fcc "NEW VALUE = "
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
130 NewVLen equ *-NewVMsg
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
131
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
132 CurVMsg fcb C$LF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
133 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
134 fcb C$LF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
135 fcc "CURRENT VALUE = "
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
136 CurVLen equ *-CurVMsg
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
137
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
138 TestMsg fcc " This is a test line for the TunePort utility"
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
139 fcb C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
140 TMsgLen equ *-TestMsg
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
141
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
142 start stu <u0003
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
143 clr <u0002
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
144 lbsr L0455
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
145 stx <u0009
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
146 cmpb #C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
147 lbeq L03FB
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
148 cmpb #'/
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
149 lbne L03FB
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
150 lda #Devic+Objct
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
151 leax $01,x
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
152 os9 F$Link
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
153 lbcs L03E6
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
154 stu <u000B
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
155 lda <u0012,u
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
156 ldu <u0003
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
157 cmpa #$00
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
158 lbne L03FB
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
159 ldy <u000B
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
160 leax <IT.BAU,y
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
161 lda ,x
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
162 anda #$0F
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
163 cmpa #$06
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
164 lbgt L03E9
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
165 sta <u0000
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
166 leax M$PDev,y
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
167 ldd ,x
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
168 leax d,y
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
169 leay <$19,u
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
170 L02EA lda ,x+
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
171 bmi L02F2
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
172 sta ,y+
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
173 bra L02EA
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
174 L02F2 anda #$7F
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
175 sta ,y+
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
176 lda #C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
177 sta ,y+
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
178 ldu <u000B
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
179 os9 F$UnLink
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
180 lbcs L03E6
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
181 ldu <u0003
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
182 ldx <u0009
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
183 lda #WRITE.
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
184 os9 I$Open
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
185 lbcs L03E6
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
186 sta <u0001
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
187 lbsr L0455
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
188 cmpb #C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
189 beq L031D
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
190 inc <u0002
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
191 stx <u0009
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
192 L031D lda #Drivr+Objct
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
193 leax <$19,u
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
194 os9 F$Link
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
195 lbcs L03DE
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
196 stu <u000B
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
197 sty <u000D
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
198 ldu <u0003
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
199 tst <u0002
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
200 bne L0345
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
201 lda #$01
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
202 leax >AdjPmpt,pcr
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
203 ldy #PmptLen
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
204 os9 I$Write
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
205 lbcs L03D7
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
206 L0345 ldd <u000D
1895
a783d16e58d5 Calc of baud table location changed. Handles both Level1&2
robert
parents: 1531
diff changeset
207 * Patched calc RG
a783d16e58d5 Calc of baud table location changed. Handles both Level1&2
robert
parents: 1531
diff changeset
208 IFGT Level-1
a783d16e58d5 Calc of baud table location changed. Handles both Level1&2
robert
parents: 1531
diff changeset
209 subd #$0010 Level2 has 8 constants RG
a783d16e58d5 Calc of baud table location changed. Handles both Level1&2
robert
parents: 1531
diff changeset
210 ELSE
a783d16e58d5 Calc of baud table location changed. Handles both Level1&2
robert
parents: 1531
diff changeset
211 subd #$000E Level2 has 7 constants RG
a783d16e58d5 Calc of baud table location changed. Handles both Level1&2
robert
parents: 1531
diff changeset
212 ENDIF
97
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
213 tfr d,x
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
214 lda <u0000
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
215 lsla
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
216 leax a,x
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
217 stx <u000F
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
218 tst <u0002
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
219 bne L035D
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
220 lbsr L045E
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
221 lbsr L040D
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
222 L035D tst <u0002
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
223 beq L038E
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
224 ldx <u0009
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
225 ldb ,x
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
226 cmpb #'-
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
227 lbne L03FB
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
228 leax $01,x
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
229 ldb ,x+
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
230 cmpb #'S
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
231 beq L037A
163
03bb361a6a42 Minor changes
boisy
parents: 97
diff changeset
232 cmpb #'s
97
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
233 beq L037A
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
234 lbra L03FB
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
235 L037A ldb ,x+
163
03bb361a6a42 Minor changes
boisy
parents: 97
diff changeset
236 cmpb #'=
97
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
237 bne L03FB
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
238 stx <u0009
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
239 lbsr L04F1
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
240 ldd <u0005
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
241 ldx <u000F
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
242 std ,x
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
243 clrb
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
244 bra L03D7
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
245 L038E lbsr L0432
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
246 lbsr L04DC
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
247 bcc L039D
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
248 lbsr L0444
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
249 andcc #^Carry
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
250 bra L038E
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
251 L039D ldd <u0005
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
252 beq L03A9
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
253 ldx <u000F
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
254 std ,x
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
255 bsr L040D
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
256 bra L038E
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
257 L03A9 ldx <u000B
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
258 ldd $02,x
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
259 subd #$0003
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
260 tfr d,y
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
261 leau d,x
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
262 ldd #$FFFF
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
263 std u0001,u
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
264 sta ,u
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
265 os9 F$CRC
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
266 com ,u
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
267 com u0001,u
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
268 com u0002,u
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
269 ldu <u0003
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
270 clra
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
271 leax >DoneMsg,pcr
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
272 ldy #DoneLen
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
273 os9 I$Write
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
274 bcs L03E6
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
275 lbsr L045E
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
276 L03D7 ldu <u000B
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
277 os9 F$UnLink
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
278 bcs L03E6
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
279 L03DE lda <u0001
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
280 os9 I$Close
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
281 bcs L03E6
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
282 clrb
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
283 L03E6 os9 F$Exit
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
284 L03E9 lda #$02
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
285 leax >ErrMsg,pcr
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
286 ldy #ErrLen
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
287 os9 I$Write
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
288 bcs L03E6
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
289 clrb
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
290 bra L03E6
927
207aaa792076 Added DOHELP conditional
boisy
parents: 924
diff changeset
291 L03FB equ *
207aaa792076 Added DOHELP conditional
boisy
parents: 924
diff changeset
292 IFNE DOHELP
207aaa792076 Added DOHELP conditional
boisy
parents: 924
diff changeset
293 lda #$02
97
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
294 leax >HelpMsg,pcr
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
295 ldy #HelpLen
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
296 os9 I$Write
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
297 bcs L03E6
927
207aaa792076 Added DOHELP conditional
boisy
parents: 924
diff changeset
298 ENDC
97
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
299 clrb
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
300 bra L03E6
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
301 L040D lda #$01
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
302 leax >TestNow,pcr
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
303 ldy #TestLen
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
304 os9 I$Write
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
305 bcs L03E6
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
306 lda <u0001
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
307 leax >TestMsg,pcr
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
308 ldy #TMsgLen
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
309 os9 I$WritLn
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
310 bcs L03E6
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
311 ldx #$000A
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
312 os9 F$Sleep
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
313 rts
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
314 L0432 bsr L045E
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
315 lda #$01
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
316 leax >NewVMsg,pcr
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
317 ldy #NewVLen
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
318 os9 I$Write
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
319 bcs L03E6
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
320 rts
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
321 L0444 pshs y,x,b,a
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
322 lda #$02
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
323 leax >L0241,pcr
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
324 ldy #$0001
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
325 os9 I$Write
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
326 puls pc,y,x,b,a
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
327 L0455 ldb ,x+
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
328 cmpb #C$SPAC
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
329 beq L0455
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
330 leax -$01,x
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
331 rts
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
332 L045E pshs y,x,b,a
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
333 lda #$01
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
334 leax >CurVMsg,pcr
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
335 ldy #CurVLen
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
336 os9 I$Write
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
337 lbcs L03E6
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
338 ldx <u000F
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
339 ldd ,x
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
340 std <u0005
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
341 leay >L04D0,pcr
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
342 leax <u0013,u
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
343 stx <u0011
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
344 L0480 ldd ,y
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
345 beq L04BC
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
346 ldd <u0005
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
347 pshs b,a
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
348 ldd ,y++
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
349 lbsr L053F
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
350 cmpb #$00
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
351 bne L0498
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
352 leax <u0013,u
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
353 cmpx <u0011
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
354 beq L0480
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
355 L0498 std <u0007
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
356 addb #$30
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
357 ldx <u0011
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
358 stb ,x+
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
359 stx <u0011
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
360 ldx <u0007
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
361 leax -$01,x
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
362 leay -$02,y
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
363 ldd ,y++
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
364 std <u0007
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
365 L04AC addd <u0007
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
366 leax -$01,x
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
367 bne L04AC
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
368 std <u0007
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
369 ldd <u0005
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
370 subd <u0007
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
371 std <u0005
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
372 bra L0480
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
373 L04BC ldx <u0011
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
374 lda #$0D
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
375 sta ,x
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
376 leax <u0013,u
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
377 lda #$01
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
378 ldy #$0006
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
379 os9 I$WritLn
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
380 puls pc,y,x,b,a
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
381 L04D0 fcb $27,$10,$03,$e8,$00,$64,$00,$0a,$00,$01,$00,$00
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
382 L04DC pshs y,x,b,a
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
383 clra
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
384 leax <u0013,u
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
385 L04E2 ldy #$0006
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
386 os9 I$ReadLn
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
387 lbcs L03E6
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
388 bsr L0504
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
389 puls pc,y,x,b,a
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
390 L04F1 pshs y,x,b,a
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
391 ldx <u0009
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
392 leay <u0013,u
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
393 L04F8 lda ,x+
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
394 sta ,y+
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
395 cmpa #C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
396 bne L04F8
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
397 bsr L0504
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
398 puls pc,y,x,b,a
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
399 L0504 pshs y,x,b,a
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
400 clra
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
401 clrb
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
402 std <u0005
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
403 leay <u0013,u
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
404 L050D ldb ,y+
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
405 cmpb #'0
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
406 blt L0537
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
407 cmpb #'9
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
408 bgt L0537
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
409 pshs b
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
410 ldx #$0009
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
411 ldd <u0005
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
412 std <u0007
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
413 L0520 addd <u0007
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
414 leax -$01,x
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
415 bne L0520
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
416 std <u0005
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
417 puls b
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
418 subb #'0
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
419 clra
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
420 std <u0007
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
421 ldd <u0005
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
422 addd <u0007
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
423 std <u0005
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
424 bra L050D
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
425 L0537 cmpb #C$CR
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
426 beq L053D
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
427 orcc #Carry
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
428 L053D puls pc,y,x,b,a
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
429 L053F pshs b,a
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
430 leas -$02,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
431 clr ,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
432 clr $01,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
433 lda #$01
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
434 L0549 inca
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
435 lsl $03,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
436 rol $02,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
437 bpl L0549
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
438 sta ,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
439 ldd $06,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
440 clr $06,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
441 clr $07,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
442 L0558 subd $02,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
443 bcc L0562
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
444 addd $02,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
445 andcc #^Carry
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
446 bra L0564
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
447 L0562 orcc #Carry
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
448 L0564 rol $07,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
449 rol $06,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
450 lsr $02,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
451 ror $03,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
452 dec ,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
453 bne L0558
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
454 std $02,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
455 tst $01,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
456 beq L057E
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
457 ldd $06,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
458 nega
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
459 negb
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
460 sbca #$00
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
461 std $06,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
462 L057E ldx $04,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
463 ldd $06,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
464 std $04,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
465 stx $06,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
466 ldx $02,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
467 ldd $04,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
468 leas $06,s
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
469 rts
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
470
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
471 emod
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
472 eom equ *
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
473 end
e42a6ba46d18 Initial import of tuneport.asm
boisy
parents:
diff changeset
474