Mercurial > hg > Members > kono > nitros9-code
annotate 3rdparty/packages/os9l2bbs/cmds/BBS.upload.asm @ 2538:f87ec0b216c8
Enabled automatic string detection in the disassembler.
| author | lothan |
|---|---|
| date | Tue, 11 May 2010 05:45:21 +0000 |
| parents | c491d9c9a4fd |
| children |
| rev | line source |
|---|---|
| 2537 | 1 nam BBS.upload |
| 2 ttl program module | |
| 3 | |
| 4 ifp1 | |
| 5 use defsfile | |
| 6 endc | |
| 7 | |
| 8 tylg set Prgrm+Objct | |
| 9 atrv set ReEnt+rev | |
| 10 rev set $01 | |
| 11 | |
| 12 mod eom,name,tylg,atrv,start,size | |
| 2400 | 13 |
| 2537 | 14 U0000 rmb 1 |
| 15 U0001 rmb 2 | |
| 16 U0003 rmb 13 | |
| 17 U0010 rmb 2 | |
| 18 U0012 rmb 2 | |
| 19 U0014 rmb 2 | |
| 20 U0016 rmb 6 | |
| 21 U001C rmb 2 | |
| 22 U001E rmb 2 | |
| 23 U0020 rmb 2 | |
| 24 U0022 rmb 16 | |
| 25 U0032 rmb 27 | |
| 26 U004D rmb 2 | |
| 27 U004F rmb 2 | |
| 28 U0051 rmb 1 | |
| 29 U0052 rmb 64 | |
| 30 U0092 rmb 31 | |
| 31 U00B1 rmb 1 | |
| 32 U00B2 rmb 8499 | |
| 33 size equ . | |
| 2400 | 34 |
| 2537 | 35 name fcs /BBS.upload/ * 000D 42 42 53 2E 75 70 6C 6F 61 E4 BBS.upload |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
36 fcc "Copyright (C) 1988By Keith AlphonsoLicenced to Alpha Software TechnologiesAll rights reserved" * 0017 43 6F 70 79 72 69 67 68 74 20 28 43 29 20 31 39 38 38 42 79 20 4B 65 69 74 68 20 41 6C 70 68 6F 6E 73 6F 4C 69 63 65 6E 63 65 64 20 74 6F 20 41 6C 70 68 61 20 53 6F 66 74 77 61 72 65 20 54 65 63 68 6E 6F 6C 6F 67 69 65 73 41 6C 6C 20 72 69 67 68 74 73 20 72 65 73 65 72 76 65 64 Copyright (C) 1988By Keith AlphonsoLicenced to Alpha Software TechnologiesAll rights reserved |
| 2537 | 37 fcb $EC * 0074 EC l |
| 38 fcb $E6 * 0075 E6 f | |
| 39 fcb $EA * 0076 EA j | |
| 40 fcb $F5 * 0077 F5 u | |
| 41 fcb $E9 * 0078 E9 i | |
| 42 fcb $A0 * 0079 A0 | |
| 43 fcb $E2 * 007A E2 b | |
| 44 fcb $ED * 007B ED m | |
| 45 fcb $F1 * 007C F1 q | |
| 46 fcb $E9 * 007D E9 i | |
| 47 fcb $F0 * 007E F0 p | |
| 48 fcb $EF * 007F EF o | |
| 49 fcb $F4 * 0080 F4 t | |
| 50 fcb $F0 * 0081 F0 p | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
51 L0082 fcc "Uloadx" * 0082 55 6C 6F 61 64 78 Uloadx |
| 2537 | 52 fcb $0D * 0088 0D . |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
53 L0089 fcc "Uloadxc" * 0089 55 6C 6F 61 64 78 63 Uloadxc |
| 2537 | 54 fcb $0D * 0090 0D . |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
55 L0091 fcc "Uloady" * 0091 55 6C 6F 61 64 79 Uloady |
| 2537 | 56 fcb $0D * 0097 0D . |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
57 fcc "Uloadyb" * 0098 55 6C 6F 61 64 79 62 Uloadyb |
| 2537 | 58 fcb $0D * 009F 0D . |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
59 L00A0 fcc "Uloada" * 00A0 55 6C 6F 61 64 61 Uloada |
| 2537 | 60 fcb $0D * 00A6 0D . |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
61 L00A7 fcc "Enter your upload protocol" * 00A7 45 6E 74 65 72 20 79 6F 75 72 20 75 70 6C 6F 61 64 20 70 72 6F 74 6F 63 6F 6C Enter your upload protocol |
| 2537 | 62 fcb $0D * 00C1 0D . |
| 63 L00C2 fcb $0A * 00C2 0A . | |
| 64 fcb $0D * 00C3 0D . | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
65 fcc "[A] Ascii" * 00C4 5B 41 5D 20 41 73 63 69 69 [A] Ascii |
| 2537 | 66 fcb $0A * 00CD 0A . |
| 67 fcb $0D * 00CE 0D . | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
68 fcc "[X] xmodem" * 00CF 5B 58 5D 20 78 6D 6F 64 65 6D [X] xmodem |
| 2537 | 69 fcb $0A * 00D9 0A . |
| 70 fcb $0D * 00DA 0D . | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
71 fcc "[C] xmodem (CRC)" * 00DB 5B 43 5D 20 78 6D 6F 64 65 6D 20 28 43 52 43 29 [C] xmodem (CRC) |
| 2537 | 72 fcb $0A * 00EB 0A . |
| 73 fcb $0D * 00EC 0D . | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
74 fcc "[Y] ymodem" * 00ED 5B 59 5D 20 79 6D 6F 64 65 6D [Y] ymodem |
| 2537 | 75 fcb $0A * 00F7 0A . |
| 76 fcb $0D * 00F8 0D . | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
77 fcc "[Q] quit" * 00F9 5B 51 5D 20 71 75 69 74 [Q] quit |
| 2537 | 78 fcb $0A * 0101 0A . |
| 79 fcb $0D * 0102 0D . | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
80 fcc "Protocol?" * 0103 50 72 6F 74 6F 63 6F 6C 3F Protocol? |
|
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
81 L010C fcc "Enter filename to upload:" * 010C 45 6E 74 65 72 20 66 69 6C 65 6E 61 6D 65 20 74 6F 20 75 70 6C 6F 61 64 3A Enter filename to upload: |
|
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
82 L0125 fcc "DLD.lst" * 0125 44 4C 44 2E 6C 73 74 DLD.lst |
| 2537 | 83 fcb $0D * 012C 0D . |
| 84 L012D fcb $0D * 012D 0D . | |
| 85 fcb $0A * 012E 0A . | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
86 L012F fcc "Enter a one-line description of this file" * 012F 45 6E 74 65 72 20 61 20 6F 6E 65 2D 6C 69 6E 65 20 64 65 73 63 72 69 70 74 69 6F 6E 20 6F 66 20 74 68 69 73 20 66 69 6C 65 Enter a one-line description of this file |
| 2537 | 87 fcb $0D * 0158 0D . |
| 88 L0159 fcb $3E * 0159 3E > | |
| 89 fcb $0D * 015A 0D . | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
90 L015B fcc "/dd/bbs/BBS.userstats" * 015B 2F 64 64 2F 62 62 73 2F 42 42 53 2E 75 73 65 72 73 74 61 74 73 /dd/bbs/BBS.userstats |
| 2537 | 91 fcb $0D * 0170 0D . |
| 92 start lda 0,X * 0171 A6 84 &. | |
| 93 cmpa #13 * 0173 81 0D .. | |
| 94 beq L0180 * 0175 27 09 '. | |
| 95 lda #1 * 0177 86 01 .. | |
| 96 os9 I$ChgDir * 0179 10 3F 86 .?. | |
| 97 lbcs L04B2 * 017C 10 25 03 32 .%.2 | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
98 L0180 leax >L0125,PC * 0180 30 8D FF A1 0..! |
| 2537 | 99 lda #3 * 0184 86 03 .. |
| 100 os9 I$Open * 0186 10 3F 84 .?. | |
| 101 bcs L018F * 0189 25 04 %. | |
| 102 sta U0001,U * 018B A7 41 'A | |
| 103 bra L01A0 * 018D 20 11 . | |
| 104 L018F cmpb #216 * 018F C1 D8 AX | |
| 105 lbne L04B2 * 0191 10 26 03 1D .&.. | |
| 106 ldb #27 * 0195 C6 1B F. | |
| 107 os9 I$Create * 0197 10 3F 83 .?. | |
| 108 lbcs L04B2 * 019A 10 25 03 14 .%.. | |
| 109 sta U0001,U * 019E A7 41 'A | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
110 L01A0 leax >L00A7,PC * 01A0 30 8D FF 03 0... |
| 2537 | 111 ldy #200 * 01A4 10 8E 00 C8 ...H |
| 112 lda #1 * 01A8 86 01 .. | |
| 113 os9 I$WritLn * 01AA 10 3F 8C .?. | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
114 leax >L00C2,PC * 01AD 30 8D FF 11 0... |
| 2537 | 115 ldy #74 * 01B1 10 8E 00 4A ...J |
| 116 lda #1 * 01B5 86 01 .. | |
| 117 os9 I$Write * 01B7 10 3F 8A .?. | |
| 118 leax U0000,U * 01BA 30 C4 0D | |
| 119 ldy #1 * 01BC 10 8E 00 01 .... | |
| 120 lda #1 * 01C0 86 01 .. | |
| 121 os9 I$Read * 01C2 10 3F 89 .?. | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
122 leax >L012D,PC * 01C5 30 8D FF 64 0..d |
| 2537 | 123 ldy #1 * 01C9 10 8E 00 01 .... |
| 124 lda #1 * 01CD 86 01 .. | |
| 125 os9 I$WritLn * 01CF 10 3F 8C .?. | |
| 126 lda U0000,U * 01D2 A6 C4 &D | |
| 127 anda #223 * 01D4 84 DF ._ | |
| 128 cmpa #65 * 01D6 81 41 .A | |
| 129 lbeq L01F6 * 01D8 10 27 00 1A .'.. | |
| 130 cmpa #88 * 01DC 81 58 .X | |
| 131 lbeq L023A * 01DE 10 27 00 58 .'.X | |
| 132 cmpa #67 * 01E2 81 43 .C | |
| 133 lbeq L027E * 01E4 10 27 00 96 .'.. | |
| 134 cmpa #89 * 01E8 81 59 .Y | |
| 135 lbeq L02C6 * 01EA 10 27 00 D8 .'.X | |
| 136 cmpa #81 * 01EE 81 51 .Q | |
| 137 lbeq L04B1 * 01F0 10 27 02 BD .'.= | |
| 138 bra L0180 * 01F4 20 8A . | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
139 L01F6 leax >L010C,PC * 01F6 30 8D FF 12 0... |
| 2537 | 140 ldy #25 * 01FA 10 8E 00 19 .... |
| 141 lda #1 * 01FE 86 01 .. | |
| 142 os9 I$Write * 0200 10 3F 8A .?. | |
| 143 leax <U0032,U * 0203 30 C8 32 0H2 | |
| 144 ldy #27 * 0206 10 8E 00 1B .... | |
| 145 clra * 020A 4F O | |
| 146 os9 I$ReadLn * 020B 10 3F 8B .?. | |
| 147 bcs L01F6 * 020E 25 E6 %f | |
| 148 cmpy #1 * 0210 10 8C 00 01 .... | |
| 149 lbls L04B1 * 0214 10 23 02 99 .#.. | |
| 150 lda #17 * 0218 86 11 .. | |
| 151 ldb #3 * 021A C6 03 F. | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
152 leax >L00A0,PC * 021C 30 8D FE 80 0.~. |
| 2537 | 153 pshs U * 0220 34 40 4@ |
| 154 leau <U0032,U * 0222 33 C8 32 3H2 | |
| 155 os9 F$Fork * 0225 10 3F 03 .?. | |
| 156 lbcs L04B2 * 0228 10 25 02 86 .%.. | |
| 157 clrb * 022C 5F _ | |
| 158 os9 F$Wait * 022D 10 3F 04 .?. | |
| 159 tstb * 0230 5D ] | |
| 160 lbne L04B2 * 0231 10 26 02 7D .&.} | |
| 161 puls U * 0235 35 40 5@ | |
| 162 lbra L0336 * 0237 16 00 FC ..| | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
163 L023A leax >L010C,PC * 023A 30 8D FE CE 0.~N |
| 2537 | 164 ldy #25 * 023E 10 8E 00 19 .... |
| 165 lda #1 * 0242 86 01 .. | |
| 166 os9 I$Write * 0244 10 3F 8A .?. | |
| 167 leax <U0032,U * 0247 30 C8 32 0H2 | |
| 168 ldy #27 * 024A 10 8E 00 1B .... | |
| 169 clra * 024E 4F O | |
| 170 os9 I$ReadLn * 024F 10 3F 8B .?. | |
| 171 bcs L023A * 0252 25 E6 %f | |
| 172 cmpy #1 * 0254 10 8C 00 01 .... | |
| 173 lbls L04B1 * 0258 10 23 02 55 .#.U | |
| 174 lda #17 * 025C 86 11 .. | |
| 175 ldb #3 * 025E C6 03 F. | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
176 leax >L0082,PC * 0260 30 8D FE 1E 0.~. |
| 2537 | 177 pshs U * 0264 34 40 4@ |
| 178 leau <U0032,U * 0266 33 C8 32 3H2 | |
| 179 os9 F$Fork * 0269 10 3F 03 .?. | |
| 180 lbcs L04B2 * 026C 10 25 02 42 .%.B | |
| 181 clrb * 0270 5F _ | |
| 182 os9 F$Wait * 0271 10 3F 04 .?. | |
| 183 tstb * 0274 5D ] | |
| 184 lbne L04B2 * 0275 10 26 02 39 .&.9 | |
| 185 puls U * 0279 35 40 5@ | |
| 186 lbra L0336 * 027B 16 00 B8 ..8 | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
187 L027E leax >L010C,PC * 027E 30 8D FE 8A 0.~. |
| 2537 | 188 ldy #25 * 0282 10 8E 00 19 .... |
| 189 lda #1 * 0286 86 01 .. | |
| 190 os9 I$Write * 0288 10 3F 8A .?. | |
| 191 leax <U0032,U * 028B 30 C8 32 0H2 | |
| 192 ldy #27 * 028E 10 8E 00 1B .... | |
| 193 clra * 0292 4F O | |
| 194 os9 I$ReadLn * 0293 10 3F 8B .?. | |
| 195 bcs L027E * 0296 25 E6 %f | |
| 196 cmpy #1 * 0298 10 8C 00 01 .... | |
| 197 lbls L04B1 * 029C 10 23 02 11 .#.. | |
| 198 lda #17 * 02A0 86 11 .. | |
| 199 ldb #3 * 02A2 C6 03 F. | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
200 leax >L0089,PC * 02A4 30 8D FD E1 0.}a |
| 2537 | 201 pshs U * 02A8 34 40 4@ |
| 202 leau <U0032,U * 02AA 33 C8 32 3H2 | |
| 203 os9 F$Fork * 02AD 10 3F 03 .?. | |
| 204 lbcs L04B2 * 02B0 10 25 01 FE .%.~ | |
| 205 clrb * 02B4 5F _ | |
| 206 os9 F$Wait * 02B5 10 3F 04 .?. | |
| 207 lbcs L04B2 * 02B8 10 25 01 F6 .%.v | |
| 208 tstb * 02BC 5D ] | |
| 209 lbne L04B2 * 02BD 10 26 01 F1 .&.q | |
| 210 puls U * 02C1 35 40 5@ | |
| 211 lbra L0336 * 02C3 16 00 70 ..p | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
212 L02C6 leax >L010C,PC * 02C6 30 8D FE 42 0.~B |
| 2537 | 213 ldy #25 * 02CA 10 8E 00 19 .... |
| 214 lda #1 * 02CE 86 01 .. | |
| 215 os9 I$Write * 02D0 10 3F 8A .?. | |
| 216 leax <U0032,U * 02D3 30 C8 32 0H2 | |
| 217 ldy #27 * 02D6 10 8E 00 1B .... | |
| 218 clra * 02DA 4F O | |
| 219 os9 I$ReadLn * 02DB 10 3F 8B .?. | |
| 220 bcs L02C6 * 02DE 25 E6 %f | |
| 221 cmpy #1 * 02E0 10 8C 00 01 .... | |
| 222 lbls L04B1 * 02E4 10 23 01 C9 .#.I | |
| 223 lda #17 * 02E8 86 11 .. | |
| 224 ldb #3 * 02EA C6 03 F. | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
225 leax >L0091,PC * 02EC 30 8D FD A1 0.}! |
| 2537 | 226 pshs U * 02F0 34 40 4@ |
| 227 leau <U0032,U * 02F2 33 C8 32 3H2 | |
| 228 os9 F$Fork * 02F5 10 3F 03 .?. | |
| 229 lbcs L04B2 * 02F8 10 25 01 B6 .%.6 | |
| 230 clrb * 02FC 5F _ | |
| 231 os9 F$Wait * 02FD 10 3F 04 .?. | |
| 232 lbcs L04B2 * 0300 10 25 01 AE .%.. | |
| 233 tstb * 0304 5D ] | |
| 234 lbne L04B2 * 0305 10 26 01 A9 .&.) | |
| 235 puls U * 0309 35 40 5@ | |
| 236 lbra L0336 * 030B 16 00 28 ..( | |
| 237 fcb $86 * 030E 86 . | |
| 238 fcb $11 * 030F 11 . | |
| 239 fcb $10 * 0310 10 . | |
| 240 fcb $8E * 0311 8E . | |
| 241 fcb $00 * 0312 00 . | |
| 242 fcb $01 * 0313 01 . | |
| 243 fcb $C6 * 0314 C6 F | |
| 244 fcb $03 * 0315 03 . | |
| 245 fcb $30 * 0316 30 0 | |
| 246 fcb $8D * 0317 8D . | |
| 247 fcb $FD * 0318 FD } | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
248 fcc "~4@3" * 0319 7E 34 40 33 ~4@3 |
| 2537 | 249 fcb $C9 * 031D C9 I |
| 250 fcb $01 * 031E 01 . | |
| 251 fcb $2D * 031F 2D - | |
| 252 fcb $10 * 0320 10 . | |
| 253 fcb $3F * 0321 3F ? | |
| 254 fcb $03 * 0322 03 . | |
| 255 fcb $10 * 0323 10 . | |
| 256 fcb $25 * 0324 25 % | |
| 257 fcb $01 * 0325 01 . | |
| 258 fcb $8B * 0326 8B . | |
| 259 fcb $5F * 0327 5F _ | |
| 260 fcb $10 * 0328 10 . | |
| 261 fcb $3F * 0329 3F ? | |
| 262 fcb $04 * 032A 04 . | |
| 263 fcb $10 * 032B 10 . | |
| 264 fcb $25 * 032C 25 % | |
| 265 fcb $01 * 032D 01 . | |
| 266 fcb $83 * 032E 83 . | |
| 267 fcb $5D * 032F 5D ] | |
| 268 fcb $10 * 0330 10 . | |
| 269 fcb $26 * 0331 26 & | |
| 270 fcb $01 * 0332 01 . | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
271 fcc "~5@" * 0333 7E 35 40 ~5@ |
| 2537 | 272 L0336 lda U0001,U * 0336 A6 41 &A |
| 273 leax >U0092,U * 0338 30 C9 00 92 0I.. | |
| 274 ldy #96 * 033C 10 8E 00 60 ...` | |
| 275 os9 I$Read * 0340 10 3F 89 .?. | |
| 276 bcs L0359 * 0343 25 14 %. | |
| 277 leay <U0032,U * 0345 31 C8 32 1H2 | |
| 278 L0348 lda ,X+ * 0348 A6 80 &. | |
| 279 cmpa ,Y+ * 034A A1 A0 ! | |
| 280 bne L0336 * 034C 26 E8 &h | |
| 281 cmpa #13 * 034E 81 0D .. | |
| 282 beq L0354 * 0350 27 02 '. | |
| 283 bra L0348 * 0352 20 F4 t | |
| 284 L0354 ldb #218 * 0354 C6 DA FZ | |
| 285 lbra L04B2 * 0356 16 01 59 ..Y | |
| 286 L0359 cmpb #211 * 0359 C1 D3 AS | |
| 287 lbne L04B2 * 035B 10 26 01 53 .&.S | |
| 288 lda U0001,U * 035F A6 41 &A | |
| 289 ldb #5 * 0361 C6 05 F. | |
| 290 ldx #0 * 0363 8E 00 00 ... | |
| 291 pshs U * 0366 34 40 4@ | |
| 292 ldu #0 * 0368 CE 00 00 N.. | |
| 293 os9 I$Seek * 036B 10 3F 88 .?. | |
| 294 puls U * 036E 35 40 5@ | |
| 295 L0370 lda U0001,U * 0370 A6 41 &A | |
| 296 leax >U0092,U * 0372 30 C9 00 92 0I.. | |
| 297 ldy #96 * 0376 10 8E 00 60 ...` | |
| 298 os9 I$Read * 037A 10 3F 89 .?. | |
| 299 bcs L03A7 * 037D 25 28 %( | |
| 300 lda >U00B1,U * 037F A6 C9 00 B1 &I.1 | |
| 301 cmpa #1 * 0383 81 01 .. | |
| 302 bne L0370 * 0385 26 E9 &i | |
| 303 lda U0001,U * 0387 A6 41 &A | |
| 304 ldb #5 * 0389 C6 05 F. | |
| 305 pshs U * 038B 34 40 4@ | |
| 306 os9 I$GetStt * 038D 10 3F 8D .?. | |
| 307 tfr U,D * 0390 1F 30 .0 | |
| 308 subd #96 * 0392 83 00 60 ..` | |
| 309 bge L0399 * 0395 2C 02 ,. | |
| 310 leax -$01,X * 0397 30 1F 0. | |
| 311 L0399 ldy 0,S * 0399 10 AE E4 ..d | |
| 312 tfr D,U * 039C 1F 03 .. | |
| 313 lda $01,Y * 039E A6 21 &! | |
| 314 os9 I$Seek * 03A0 10 3F 88 .?. | |
| 315 puls U * 03A3 35 40 5@ | |
| 316 bra L03AD * 03A5 20 06 . | |
| 317 L03A7 cmpb #211 * 03A7 C1 D3 AS | |
| 318 lbne L04B2 * 03A9 10 26 01 05 .&.. | |
| 319 L03AD ldx #0 * 03AD 8E 00 00 ... | |
| 320 ldy #0 * 03B0 10 8E 00 00 .... | |
| 321 stx <U004D,U * 03B4 AF C8 4D /HM | |
| 322 sty <U004F,U * 03B7 10 AF C8 4F ./HO | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
323 leax >L012F,PC * 03BB 30 8D FD 70 0.}p |
| 2537 | 324 ldy #200 * 03BF 10 8E 00 C8 ...H |
| 325 lda #1 * 03C3 86 01 .. | |
| 326 os9 I$WritLn * 03C5 10 3F 8C .?. | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
327 leax >L0159,PC * 03C8 30 8D FD 8D 0.}. |
| 2537 | 328 ldy #1 * 03CC 10 8E 00 01 .... |
| 329 os9 I$Write * 03D0 10 3F 8A .?. | |
| 330 leax <U0052,U * 03D3 30 C8 52 0HR | |
| 331 ldy #64 * 03D6 10 8E 00 40 ...@ | |
| 332 clra * 03DA 4F O | |
| 333 os9 I$ReadLn * 03DB 10 3F 8B .?. | |
| 334 clr <U0051,U * 03DE 6F C8 51 oHQ | |
| 335 leax <U0032,U * 03E1 30 C8 32 0H2 | |
| 336 ldy #-1 * 03E4 10 8E FF FF .... | |
| 337 sty <U004D,U * 03E8 10 AF C8 4D ./HM | |
| 338 sty <U004F,U * 03EC 10 AF C8 4F ./HO | |
| 339 ldy #96 * 03F0 10 8E 00 60 ...` | |
| 340 lda U0001,U * 03F4 A6 41 &A | |
| 341 os9 I$Write * 03F6 10 3F 8A .?. | |
|
2538
f87ec0b216c8
Enabled automatic string detection in the disassembler.
lothan
parents:
2537
diff
changeset
|
342 leax >L015B,PC * 03F9 30 8D FD 5E 0.}^ |
| 2537 | 343 lda #3 * 03FD 86 03 .. |
| 344 os9 I$Open * 03FF 10 3F 84 .?. | |
| 345 bcc L040D * 0402 24 09 $. | |
| 346 ldb #27 * 0404 C6 1B F. | |
| 347 os9 I$Create * 0406 10 3F 83 .?. | |
| 348 lbcs L04B2 * 0409 10 25 00 A5 .%.% | |
| 349 L040D sta U0003,U * 040D A7 43 'C | |
| 350 os9 F$ID * 040F 10 3F 0C .?. | |
| 351 sty <U0010,U * 0412 10 AF C8 10 ./H. | |
| 352 L0416 leax <U0012,U * 0416 30 C8 12 0H. | |
| 353 ldy #32 * 0419 10 8E 00 20 ... | |
| 354 lda U0003,U * 041D A6 43 &C | |
| 355 os9 I$Read * 041F 10 3F 89 .?. | |
| 356 bcs L042F * 0422 25 0B %. | |
| 357 ldd <U0012,U * 0424 EC C8 12 lH. | |
| 358 cmpd <U0010,U * 0427 10 A3 C8 10 .#H. | |
| 359 bne L0416 * 042B 26 E9 &i | |
| 360 bra L0438 * 042D 20 09 . | |
| 361 L042F cmpb #211 * 042F C1 D3 AS | |
| 362 lbne L04B2 * 0431 10 26 00 7D .&.} | |
| 363 lbra L0476 * 0435 16 00 3E ..> | |
| 364 L0438 ldd <U0022,U * 0438 EC C8 22 lH" | |
| 365 addd #1 * 043B C3 00 01 C.. | |
| 366 std <U0022,U * 043E ED C8 22 mH" | |
| 367 lda U0003,U * 0441 A6 43 &C | |
| 368 ldb #5 * 0443 C6 05 F. | |
| 369 pshs U * 0445 34 40 4@ | |
| 370 os9 I$GetStt * 0447 10 3F 8D .?. | |
| 371 tfr U,D * 044A 1F 30 .0 | |
| 372 subd #32 * 044C 83 00 20 .. | |
| 373 bge L0453 * 044F 2C 02 ,. | |
| 374 leax -$01,X * 0451 30 1F 0. | |
| 375 L0453 ldu 0,S * 0453 EE E4 nd | |
| 376 tfr D,Y * 0455 1F 02 .. | |
| 377 lda U0003,U * 0457 A6 43 &C | |
| 378 tfr Y,U * 0459 1F 23 .# | |
| 379 os9 I$Seek * 045B 10 3F 88 .?. | |
| 380 lbcs L04B2 * 045E 10 25 00 50 .%.P | |
| 381 puls U * 0462 35 40 5@ | |
| 382 leax <U0012,U * 0464 30 C8 12 0H. | |
| 383 ldy #32 * 0467 10 8E 00 20 ... | |
| 384 lda U0003,U * 046B A6 43 &C | |
| 385 os9 I$Write * 046D 10 3F 8A .?. | |
| 386 os9 I$Close * 0470 10 3F 8F .?. | |
| 387 lbra L04B1 * 0473 16 00 3B ..; | |
| 388 L0476 leax <U0012,U * 0476 30 C8 12 0H. | |
| 389 ldd #1 * 0479 CC 00 01 L.. | |
| 390 std <U0014,U * 047C ED C8 14 mH. | |
| 391 std <U001E,U * 047F ED C8 1E mH. | |
| 392 ldd #0 * 0482 CC 00 00 L.. | |
| 393 std <U001C,U * 0485 ED C8 1C mH. | |
| 394 std <U0022,U * 0488 ED C8 22 mH" | |
| 395 std <U0020,U * 048B ED C8 20 mH | |
| 396 ldd <U0010,U * 048E EC C8 10 lH. | |
| 397 std <U0012,U * 0491 ED C8 12 mH. | |
| 398 leax <U0016,U * 0494 30 C8 16 0H. | |
| 399 os9 F$Time * 0497 10 3F 15 .?. | |
| 400 lbcs L04B2 * 049A 10 25 00 14 .%.. | |
| 401 leax <U0012,U * 049E 30 C8 12 0H. | |
| 402 ldy #32 * 04A1 10 8E 00 20 ... | |
| 403 lda U0003,U * 04A5 A6 43 &C | |
| 404 os9 I$Write * 04A7 10 3F 8A .?. | |
| 405 os9 I$Close * 04AA 10 3F 8F .?. | |
| 406 lbcs L04B2 * 04AD 10 25 00 01 .%.. | |
| 407 L04B1 clrb * 04B1 5F _ | |
| 408 L04B2 os9 F$Exit * 04B2 10 3F 06 .?. | |
| 409 | |
| 410 emod | |
| 411 eom equ * | |
| 412 end |