Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/edit.asm @ 2695:c321d41cd8d3 lwtools-port
Conditionalized VTIO to turn off caps-lock for coco2b port
| author | Boisy Pitre <boisy.pitre@nuance.com> |
|---|---|
| date | Thu, 19 Jul 2012 14:36:52 -0500 |
| parents | f1ec894ef120 |
| children | db58cdca8a7f |
| rev | line source |
|---|---|
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
1 ******************************************************************** |
|
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
2 * Edit - Line editor |
|
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
3 * |
|
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
4 * $Id$ |
|
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
5 * |
|
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
925
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:
925
diff
changeset
|
7 * Comment |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
8 * ------------------------------------------------------------------ |
|
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
925
diff
changeset
|
9 * 3 ????/??/?? |
|
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
925
diff
changeset
|
10 * From Tandy OS-9 Level One VR 02.00.00. |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
11 |
| 195 | 12 nam Edit |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
13 ttl Line editor |
| 195 | 14 |
| 15 * Disassembled 02/07/05 22:33:05 by Disasm v1.6 (C) 1988 by RML | |
| 16 | |
| 17 ifp1 | |
| 18 use defsfile | |
| 19 endc | |
| 20 | |
| 21 tylg set Prgrm+Objct | |
| 22 atrv set ReEnt+rev | |
|
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
925
diff
changeset
|
23 rev set $00 |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
24 edition set 3 |
| 195 | 25 |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
26 L0000 mod eom,name,tylg,atrv,start,size |
| 195 | 27 |
| 924 | 28 org 0 |
| 195 | 29 u0000 rmb 1 |
| 30 u0001 rmb 1 | |
| 31 u0002 rmb 1 | |
| 32 u0003 rmb 1 | |
| 33 u0004 rmb 1 | |
| 34 u0005 rmb 1 | |
| 35 u0006 rmb 1 | |
| 36 u0007 rmb 1 | |
| 37 u0008 rmb 1 | |
| 38 u0009 rmb 1 | |
| 39 u000A rmb 1 | |
| 40 u000B rmb 1 | |
| 41 u000C rmb 1 | |
| 42 u000D rmb 1 | |
| 43 u000E rmb 1 | |
| 44 u000F rmb 1 | |
| 45 u0010 rmb 1 | |
| 46 u0011 rmb 1 | |
| 47 u0012 rmb 2 | |
| 48 u0014 rmb 2 | |
| 49 u0016 rmb 2 | |
| 50 u0018 rmb 2 | |
| 51 u001A rmb 2 | |
| 52 u001C rmb 2 | |
| 53 u001E rmb 2 | |
| 54 u0020 rmb 1 | |
| 55 u0021 rmb 2 | |
| 56 u0023 rmb 1 | |
| 57 u0024 rmb 1 | |
| 58 u0025 rmb 1 | |
| 59 u0026 rmb 1 | |
| 60 u0027 rmb 2 | |
| 61 u0029 rmb 1 | |
| 62 u002A rmb 1 | |
| 63 u002B rmb 2 | |
| 64 u002D rmb 2 | |
| 65 u002F rmb 1 | |
| 66 u0030 rmb 2 | |
| 67 u0032 rmb 4 | |
| 68 u0036 rmb 1 | |
| 69 u0037 rmb 1 | |
| 70 u0038 rmb 1 | |
| 71 u0039 rmb 1 | |
| 72 u003A rmb 1 | |
| 73 u003B rmb 1 | |
| 74 u003C rmb 1 | |
| 75 u003D rmb 1 | |
| 76 u003E rmb 1 | |
| 77 u003F rmb 1 | |
| 78 u0040 rmb 1 | |
| 79 u0041 rmb 1 | |
| 80 u0042 rmb 1 | |
| 81 u0043 rmb 1 | |
| 82 u0044 rmb 1 | |
| 83 u0045 rmb 2 | |
| 84 u0047 rmb 1 | |
| 85 u0048 rmb 1 | |
| 86 u0049 rmb 2 | |
| 87 u004B rmb 2 | |
| 88 u004D rmb 1 | |
| 89 u004E rmb 1 | |
| 90 u004F rmb 2 | |
| 91 u0051 rmb 4 | |
| 92 u0055 rmb 2 | |
| 93 u0057 rmb 13 | |
| 94 u0064 rmb 7 | |
| 95 u006B rmb 2 | |
| 96 u006D rmb 2 | |
| 97 u006F rmb 5 | |
| 98 u0074 rmb 7 | |
| 99 u007B rmb 14 | |
| 100 u0089 rmb 1 | |
| 101 u008A rmb 4 | |
| 102 u008E rmb 16 | |
| 103 u009E rmb 7 | |
| 104 u00A5 rmb 1 | |
| 105 u00A6 rmb 11 | |
| 106 u00B1 rmb 3 | |
| 107 u00B4 rmb 2 | |
| 108 u00B6 rmb 15 | |
| 109 u00C5 rmb 8 | |
| 110 u00CD rmb 2 | |
| 111 u00CF rmb 2 | |
| 112 u00D1 rmb 2 | |
| 113 u00D3 rmb 2 | |
| 114 u00D5 rmb 1 | |
| 115 u00D6 rmb 18 | |
| 116 u00E8 rmb 4 | |
| 117 u00EC rmb 1 | |
| 118 u00ED rmb 10 | |
| 119 u00F7 rmb 4 | |
| 120 u00FB rmb 3 | |
| 121 u00FE rmb 121 | |
| 122 u0177 rmb 255 | |
| 123 u0276 rmb 40 | |
| 124 u029E rmb 384 | |
| 125 u041E rmb 2049 | |
| 126 size equ . | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
127 |
|
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
128 name fcs /Edit/ |
|
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
129 fcb edition |
|
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
130 |
| 925 | 131 fcc "(C)1981Microware" |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
195
diff
changeset
|
132 |
| 195 | 133 L0022 fcb $01 |
| 134 lbra L0292 | |
| 135 lbra L0C38 | |
| 136 lbra L0BEC | |
| 137 lbra L0BE3 | |
| 138 lbra L100F | |
| 139 lbra L0770 | |
| 140 lbra L06EA | |
| 141 lbra L0716 | |
| 142 lbra L073F | |
| 143 lbra L04A1 | |
| 144 lbra L046B | |
| 145 lbra L05D6 | |
| 146 lbra L0626 | |
| 147 lbra L0094 | |
| 148 lbra L0B96 | |
| 149 lbra L0B01 | |
| 150 L0053 lda #$00 | |
| 151 sta <u0023,u | |
| 152 rti | |
| 153 L0059 ldx <u000E | |
| 154 jmp ,x | |
| 155 L005D lda <u0026 | |
| 156 lbsr L0107 | |
| 157 lda #$3A | |
| 158 lbsr L0107 | |
| 159 ldx <u0012 | |
| 160 leax >$0177,x | |
| 161 lda <u000A | |
| 162 ldy #$0080 | |
| 163 os9 I$ReadLn | |
| 164 bcc L0081 | |
| 165 cmpb #$D3 | |
| 166 lbeq L114D | |
| 167 lbra L12AA | |
| 168 L0081 rts | |
| 169 L0082 pshs x,b,a | |
| 170 lbsr L06D7 | |
| 171 bsr L008B | |
| 172 puls pc,x,b,a | |
| 173 L008B pshs b,a | |
| 174 lbsr L0130 | |
| 175 bsr L0094 | |
| 176 puls pc,b,a | |
| 177 L0094 pshs y,x,b,a | |
| 178 cmpd #$0000 | |
| 179 beq L00C6 | |
| 180 leay d,x | |
| 181 pshs y | |
| 182 L00A0 tst <u0037 | |
| 183 beq L00AC | |
| 184 lda #$20 | |
| 185 bsr L0107 | |
| 186 bsr L0107 | |
| 187 bsr L0107 | |
| 188 L00AC tst <u0023 | |
| 189 beq L00C4 | |
| 190 lda ,x+ | |
| 191 bsr L0107 | |
| 192 cmpx ,s | |
| 193 beq L00BE | |
| 194 cmpa #$0D | |
| 195 bne L00AC | |
| 196 bra L00A0 | |
| 197 L00BE cmpa #$0D | |
| 198 beq L00C4 | |
| 199 bsr L00FF | |
| 200 L00C4 puls y | |
| 201 L00C6 puls pc,y,x,b,a | |
| 202 L00C8 pshs y,b,a | |
| 203 ldd <u0002 | |
| 204 tstb | |
| 205 beq L00E0 | |
| 206 cmpa ,s | |
| 207 bne L00E0 | |
| 208 ldd <u0021 | |
| 209 addd #$0001 | |
| 210 std <u0021 | |
| 211 ldb <u0020 | |
| 212 adcb #$00 | |
| 213 stb <u0020 | |
| 214 L00E0 bsr L0130 | |
| 215 tfr d,y | |
| 216 lda ,s | |
| 217 os9 I$Write | |
| 218 lbcs L12AA | |
| 219 puls pc,y,b,a | |
| 220 L00EF pshs a | |
| 221 bsr L00FF | |
| 222 lda <u0037 | |
| 223 clr <u0037 | |
| 224 bsr L008B | |
| 225 sta <u0037 | |
| 226 puls pc,a | |
| 227 L00FD bsr L00FF | |
| 228 L00FF pshs a | |
| 229 lda #$0D | |
| 230 bsr L0107 | |
| 231 puls pc,a | |
| 232 L0107 pshs y,x,a | |
| 233 lda <u000B | |
| 234 ldy #$0001 | |
| 235 tfr s,x | |
| 236 tst <u0041 | |
| 237 bmi L0119 | |
| 238 tst <u003E | |
| 239 beq L0120 | |
| 240 L0119 os9 I$WritLn | |
| 241 lbcs L12AA | |
| 242 L0120 puls pc,y,x,a | |
| 243 L0122 pshs x | |
| 244 lda ,x+ | |
| 245 cmpa #$0D | |
| 246 lbeq L1272 | |
| 247 bsr L0132 | |
| 248 puls pc,x | |
| 249 L0130 lda #$0D | |
| 250 L0132 pshs y,x | |
| 251 ldb #$0D | |
| 252 ldy #$0000 | |
| 253 L013A cmpx <u001C | |
| 254 beq L014C | |
| 255 leay $01,y | |
| 256 cmpb ,x | |
| 257 beq L014C | |
| 258 cmpa ,x+ | |
| 259 bne L013A | |
| 260 leay -$01,y | |
| 261 bra L0152 | |
| 262 L014C cmpa #$0D | |
| 263 lbne L1272 | |
| 264 L0152 tfr y,d | |
| 265 cmpd #$0000 | |
| 266 puls pc,y,x | |
| 267 L015A pshs u,x,b,a | |
| 268 os9 F$PrsNam | |
| 269 puls pc,u,x,b,a | |
| 270 start equ * | |
| 271 tfr u,d | |
| 272 std <u0012 | |
| 273 sts <u001E | |
| 274 leas >u041E,u | |
| 275 addd #$041F | |
| 276 std <u0014 | |
| 277 std <u0016 | |
| 278 std <u001C | |
| 279 std <u001A | |
| 280 pshs u,y,x,b,a | |
| 281 leax >L0022,pcr | |
| 282 stx <u000C | |
| 283 leax >L005D,pcr | |
| 284 stx <u000E | |
| 285 leax >L09DD,pcr | |
| 286 stx <u0010 | |
| 287 ldd #$0000 | |
| 288 std <u0051 | |
| 289 std <u006F | |
| 290 std <u0089 | |
| 291 leax >L1482,pcr | |
| 292 stx <u004D | |
| 293 leax >L13CF,pcr | |
| 294 stx <u006B | |
| 295 leax >L0000,pcr | |
| 296 stx <u004F | |
| 297 stx <u006D | |
| 298 leax >L13B0,pcr | |
| 299 lda #$01 | |
| 300 os9 F$Link | |
| 301 bcs L01B5 | |
| 302 jsr ,y | |
| 303 L01B5 leax >L13B6,pcr | |
| 304 lda #$01 | |
| 305 os9 F$Link | |
| 306 bcs L01C2 | |
| 307 jsr ,y | |
| 308 L01C2 puls u,y,x,b,a | |
| 309 lda #$FF | |
| 310 sta <u0041 | |
| 311 inca | |
| 312 sta <u0001 | |
| 313 sta <u0003 | |
| 314 sta <u0005 | |
| 315 sta <u0007 | |
| 316 sta <u000A | |
| 317 sta <u003D | |
| 318 inca | |
| 319 sta <u000B | |
| 320 sta <u003E | |
| 321 sta <u0040 | |
| 322 lda #$45 | |
| 323 sta <u0026 | |
| 324 clr <u0036 | |
| 325 lbsr L0691 | |
| 326 cmpa #$0D | |
| 327 beq L0260 | |
| 328 lbsr L015A | |
| 329 bcs L0259 | |
| 330 lda #$01 | |
| 331 stx <u0032 | |
| 332 os9 I$Open | |
| 333 bcs L024B | |
| 334 ldb #$01 | |
| 335 std <u0000 | |
| 336 pshs x | |
| 337 leay >u00F7,u | |
| 338 leax >L139F,pcr | |
| 339 ldd #$0007 | |
| 340 lbsr L0B96 | |
| 341 pshs y | |
| 342 ldx <u0032 | |
| 343 L020F cmpx $02,s | |
| 344 beq L0220 | |
| 345 lda ,x+ | |
| 346 sta ,y+ | |
| 347 cmpa #$2F | |
| 348 bne L020F | |
| 349 sty ,s | |
| 350 bra L020F | |
| 351 L0220 puls y | |
| 352 leax >L13A7,pcr | |
| 353 ldd #$0008 | |
| 354 lbsr L0B96 | |
| 355 ldx <u0032 | |
| 356 ldd ,s | |
| 357 subd <u0032 | |
| 358 sty <u0032 | |
| 359 lbsr L0B96 | |
| 360 lda #$0D | |
| 361 sta ,y | |
| 362 puls x | |
| 363 lbsr L0691 | |
| 364 cmpa #$0D | |
| 365 bne L024B | |
| 366 leax >u00FE,u | |
| 367 inc <u0036 | |
| 368 L024B ldd #$020B | |
| 369 os9 I$Create | |
| 370 bcs L025B | |
| 371 ldb #$02 | |
| 372 std <u0002 | |
| 373 bra L0260 | |
| 374 L0259 ldb #$D8 | |
| 203 | 375 L025B orcc #Carry |
| 195 | 376 os9 F$Exit |
| 377 L0260 ldy #$0000 | |
| 378 sty <u0024 | |
| 379 lda #$42 | |
| 380 lbsr L06EA | |
| 381 lbsr L073F | |
| 382 lda #$42 | |
| 383 ldy #$0001 | |
| 384 lbsr L06EA | |
| 385 leax >L0053,pcr | |
| 386 ldu <u0012 | |
| 387 os9 F$Icpt | |
| 388 tst <u0001 | |
| 389 beq L028F | |
| 390 ldd <u001E | |
| 391 subd <u001C | |
| 392 subd #$0400 | |
| 393 lbsr L0F43 | |
| 394 L028F lbsr L00FD | |
| 395 L0292 ldu <u0012 | |
| 396 leas >u041E,u | |
| 397 leax >u029E,u | |
| 398 stx <u0045 | |
| 399 stx <u0047 | |
| 400 leax <-$28,x | |
| 401 stx <u0049 | |
| 402 lda #$FF | |
| 403 sta <u0041 | |
| 404 sta <u0023 | |
| 405 lda <u0040 | |
| 406 sta <u003E | |
| 407 clr <u003B | |
| 408 clr <u003A | |
| 409 clr <u003C | |
| 410 lda #$01 | |
| 411 sta <u0037 | |
| 412 tst <u003D | |
| 413 beq L02CB | |
| 414 tst <u0039 | |
| 415 bne L02CB | |
| 416 leax >L1398,pcr | |
| 417 lbsr L00EF | |
| 418 lbsr L00FF | |
| 419 L02CB clr <u003D | |
| 420 clr <u0039 | |
| 421 lbsr L0059 | |
| 422 leax >u0177,u | |
| 423 lbsr L0130 | |
| 424 leay d,x | |
| 425 sty <u002B | |
| 426 ldy #$0000 | |
| 427 sty <u0029 | |
| 428 leau >u0276,u | |
| 429 stu <u0027 | |
| 430 lda ,x | |
| 431 cmpa #$20 | |
| 432 bne L02F8 | |
| 433 leax $01,x | |
| 434 lbsr L0BDE | |
| 435 bra L0292 | |
| 436 L02F8 cmpa #$0D | |
| 437 bne L0308 | |
| 438 ldx <u001A | |
| 439 lbsr L06B2 | |
| 440 stx <u001A | |
| 441 lbsr L008B | |
| 442 bra L0292 | |
| 443 L0308 bsr L0310 | |
| 444 lbsr L00FF | |
| 445 lbra L0292 | |
| 446 L0310 ldd <u0043 | |
| 447 pshs b,a | |
| 448 ldd <u0045 | |
| 449 std <u0043 | |
| 450 pshs b,a | |
| 451 lda <u003E | |
| 452 pshs a | |
| 453 clr <u002F | |
| 454 inc <u0041 | |
| 455 L0322 cmpx <u002B | |
| 456 lbcc L03B8 | |
| 457 lbsr L0691 | |
| 458 cmpa #$0D | |
| 459 bne L0335 | |
| 460 leax $01,x | |
| 461 clr <u002F | |
| 462 bra L0322 | |
| 463 L0335 ldd <u0027 | |
| 464 pshs b,a | |
| 465 stu <u0027 | |
| 466 ldd <u0029 | |
| 467 pshs b,a | |
| 468 ldd <u002B | |
| 469 pshs b,a | |
| 470 pshs u | |
| 471 lbsr L0691 | |
| 472 sta <u0038 | |
| 473 lbsr L03D3 | |
| 474 pshs x | |
| 475 pshs u | |
| 476 leax <L039D,pcr | |
| 477 pshu x | |
| 478 pshu u | |
| 479 tfr d,x | |
| 480 lda <u0038 | |
| 481 tst <u003B | |
| 482 bne L0372 | |
| 483 tst <u003C | |
| 484 bne L0372 | |
| 485 tst <u003D | |
| 486 beq L0397 | |
| 487 tst <u003A | |
| 488 bne L0372 | |
| 489 cmpa #$3A | |
| 490 bne L0372 | |
| 491 stb <u003D | |
| 492 L0372 cmpa #$5B | |
| 493 bne L0378 | |
| 494 inc <u003A | |
| 495 L0378 cmpa #$5D | |
| 496 bne L039D | |
| 497 dec <u003A | |
| 498 bpl L039D | |
| 499 tst <u003C | |
| 500 bne L0395 | |
| 501 lbsr L0964 | |
| 502 tst <u003B | |
| 503 bne L038F | |
| 504 clr <u003D | |
| 505 bra L039D | |
| 506 L038F clr <u003B | |
| 507 bra L039D | |
| 508 bra L039D | |
| 509 L0395 clr <u003C | |
| 510 L0397 lda <u0041 | |
| 511 clr <u0039 | |
| 512 jsr ,y | |
| 513 L039D puls u | |
| 514 puls x | |
| 515 puls u | |
| 516 puls b,a | |
| 517 std <u002B | |
| 518 puls b,a | |
| 519 std <u0029 | |
| 520 puls b,a | |
| 521 std <u0027 | |
| 522 tst <u0023 | |
| 523 lbeq L127B | |
| 524 lbra L0322 | |
| 525 L03B8 dec <u0041 | |
| 526 puls a | |
| 527 sta <u003E | |
| 528 puls b,a | |
| 529 std <u0045 | |
| 530 puls b,a | |
| 531 std <u0043 | |
| 532 tst <u003D | |
| 533 beq L03D2 | |
| 534 lda #$01 | |
| 535 sta <u003D | |
| 536 clr <u003C | |
| 537 clr <u003B | |
| 538 L03D2 rts | |
| 539 L03D3 lbsr L0691 | |
| 540 bsr L040E | |
| 541 beq L0400 | |
| 542 leax $01,x | |
| 543 lbsr L04A1 | |
| 544 lbeq L1269 | |
| 545 pshs y | |
| 546 tfr d,y | |
| 547 ldd ,y | |
| 548 leay d,y | |
| 549 sty <u002B | |
| 550 ldy ,s | |
| 551 lbsr L04F4 | |
| 552 tfr y,d | |
| 553 puls y | |
| 554 sty <u0029 | |
| 555 leay >L0310,pcr | |
| 556 rts | |
| 557 L0400 pshs b,a | |
| 558 lbsr L04F4 | |
| 559 ldd #$0000 | |
| 560 std <u0029 | |
| 561 std <u002B | |
| 562 puls pc,y | |
| 563 L040E ldb ,x+ | |
| 564 lbsr L04D0 | |
| 565 tfr a,b | |
| 566 L0415 ldy <u0012 | |
| 567 leay <$4D,y | |
| 568 cmpb #$2E | |
| 569 bne L0425 | |
| 570 ldy <u0012 | |
| 571 leay <$6B,y | |
| 572 L0425 sty <u004B | |
| 573 ldy ,y | |
| 574 L042B lda ,y | |
| 575 bne L043C | |
| 576 ldy <u004B | |
| 577 leay $04,y | |
| 578 sty <u004B | |
| 579 ldy ,y | |
| 580 beq L045D | |
| 581 L043C cmpb #$2E | |
| 582 beq L0446 | |
| 583 cmpb ,y+ | |
| 584 bne L044A | |
| 585 bra L044E | |
| 586 L0446 bsr L046B | |
| 587 beq L044E | |
| 588 L044A bsr L0462 | |
| 589 bra L042B | |
| 590 L044E pshs y | |
| 591 bsr L0462 | |
| 592 ldd -$02,y | |
| 593 ldy <u004B | |
| 594 addd $02,y | |
| 203 | 595 orcc #Zero |
| 195 | 596 puls pc,y |
| 597 L045D leax -$01,x | |
| 203 | 598 andcc #^Zero |
| 195 | 599 rts |
| 600 L0462 lda ,y+ | |
| 601 cmpa #$0D | |
| 602 bne L0462 | |
| 603 leay $02,y | |
| 604 rts | |
| 605 L046B pshs y,x,b,a | |
| 606 lda ,y | |
| 607 bsr L04DA | |
| 608 bne L049D | |
| 609 L0473 sty $04,s | |
| 610 lda ,y+ | |
| 611 bsr L04D0 | |
| 612 bne L0491 | |
| 613 pshs a | |
| 614 lda ,x+ | |
| 615 bsr L04D0 | |
| 616 cmpa ,s+ | |
| 617 beq L0473 | |
| 618 L0486 sty $04,s | |
| 619 lda ,y+ | |
| 620 bsr L04DA | |
| 621 beq L0486 | |
| 622 bra L049D | |
| 623 L0491 lda ,x | |
| 624 bsr L04DA | |
| 625 beq L049D | |
| 626 stx $02,s | |
| 203 | 627 orcc #Zero |
| 195 | 628 bra L049F |
| 203 | 629 L049D andcc #^Zero |
| 195 | 630 L049F puls pc,y,x,b,a |
| 631 L04A1 pshs u | |
| 632 ldu <u0014 | |
| 633 lbsr L0691 | |
| 634 L04A8 lda u0004,u | |
| 635 cmpa #$4D | |
| 636 bne L04C0 | |
| 637 leay u000B,u | |
| 638 lbsr L069A | |
| 639 bsr L046B | |
| 640 beq L04C4 | |
| 641 ldd ,u | |
| 642 leau d,u | |
| 643 cmpu <u001C | |
| 644 bcs L04A8 | |
| 203 | 645 L04C0 orcc #Zero |
| 195 | 646 puls pc,u |
| 647 L04C4 lbsr L069A | |
| 648 lbsr L0691 | |
| 649 tfr u,d | |
| 203 | 650 andcc #^Zero |
| 195 | 651 puls pc,u |
| 652 L04D0 cmpa #$61 | |
| 653 bcs L04DA | |
| 654 cmpa #$7A | |
| 655 bhi L04DA | |
| 656 suba #$20 | |
| 657 L04DA cmpa #$5F | |
| 658 beq L04EE | |
| 659 cmpa #$41 | |
| 660 bcs L04F1 | |
| 661 cmpa #$5A | |
| 662 bls L04EE | |
| 663 cmpa #$61 | |
| 664 bcs L04F1 | |
| 665 cmpa #$7A | |
| 666 bhi L04F1 | |
| 203 | 667 L04EE orcc #Zero |
| 195 | 668 rts |
| 203 | 669 L04F1 andcc #^Zero |
| 195 | 670 rts |
| 671 L04F4 clr <u0042 | |
| 672 pshs b,a | |
| 673 L04F8 lbsr L069A | |
| 674 lbsr L0691 | |
| 675 bsr L052B | |
| 676 L0500 cmpa #$0D | |
| 677 beq L0525 | |
| 678 cmpa #$4C | |
| 679 bne L050F | |
| 680 pshu x | |
| 681 lbsr L06C2 | |
| 682 bra L0525 | |
| 683 L050F cmpa #$23 | |
| 684 bne L0517 | |
| 685 bsr L0540 | |
| 686 bra L04F8 | |
| 687 L0517 cmpa #$24 | |
| 688 lbne L1287 | |
| 689 L051D bsr L0553 | |
| 690 cmpa #$24 | |
| 691 beq L051D | |
| 692 bra L0500 | |
| 693 L0525 ldb <u0042 | |
| 694 pshu b | |
| 695 puls pc,b,a | |
| 696 L052B lbsr L069A | |
| 697 pshs a | |
| 698 cmpa #$0D | |
| 699 beq L053E | |
| 700 inc <u0042 | |
| 701 L0536 leay $01,y | |
| 702 lda ,y | |
| 703 bsr L04DA | |
| 704 beq L0536 | |
| 705 L053E puls pc,a | |
| 706 L0540 pshs b,a | |
| 707 lda ,x | |
| 708 cmpa #$23 | |
| 709 bne L054C | |
| 710 bsr L05B3 | |
| 711 bra L0551 | |
| 712 L054C lbsr L05D6 | |
| 713 pshu b,a | |
| 714 L0551 puls pc,b,a | |
| 715 L0553 pshs b | |
| 716 lbsr L0691 | |
| 717 cmpa #$24 | |
| 718 bne L0562 | |
| 719 bsr L05B3 | |
| 720 bsr L052B | |
| 721 bra L057E | |
| 722 L0562 pshu x | |
| 723 lbsr L0122 | |
| 724 leax d,x | |
| 725 leax $02,x | |
| 726 bsr L052B | |
| 727 cmpa #$24 | |
| 728 bne L057E | |
| 729 pshs x,a | |
| 730 lbsr L0691 | |
| 731 cmpa #$24 | |
| 732 puls x,a | |
| 733 beq L057E | |
| 734 leax -$01,x | |
| 735 L057E puls pc,b | |
| 736 L0580 pshs y,x,a | |
| 737 ldy <u0029 | |
| 738 ldb #$00 | |
| 739 L0587 lbsr L069A | |
| 740 cmpa #$0D | |
| 741 beq L05AB | |
| 742 lbsr L0691 | |
| 743 addb #$01 | |
| 744 lda ,x+ | |
| 745 cmpa ,y+ | |
| 746 bne L059E | |
| 747 lbsr L046B | |
| 748 beq L05AD | |
| 749 L059E ldx $01,s | |
| 750 L05A0 lda ,y+ | |
| 751 lbsr L04DA | |
| 752 beq L05A0 | |
| 753 leay -$01,y | |
| 754 bra L0587 | |
| 755 L05AB ldb #$00 | |
| 756 L05AD stx $01,s | |
| 757 cmpb #$00 | |
| 758 puls pc,y,x,a | |
| 759 L05B3 pshs y | |
| 760 lda ,x | |
| 761 cmpa #$24 | |
| 762 beq L05C1 | |
| 763 cmpa #$23 | |
| 764 lbne L1287 | |
| 765 L05C1 bsr L0580 | |
| 766 lbeq L1290 | |
| 767 ldy <u0027 | |
| 768 negb | |
| 769 addb $04,y | |
| 770 lslb | |
| 771 leay $05,y | |
| 772 ldd b,y | |
| 773 pshu b,a | |
| 774 puls pc,y | |
| 775 L05D6 lda ,x | |
| 776 cmpa #$2A | |
| 777 bne L05E3 | |
| 778 leax $01,x | |
| 779 ldd #$FFFF | |
| 780 bra L05F3 | |
| 781 L05E3 ldd #$0000 | |
| 782 bsr L0600 | |
| 783 bne L05EF | |
| 784 ldd #$0001 | |
| 785 bra L05F3 | |
| 786 L05EF bsr L0600 | |
| 787 bne L05EF | |
| 788 L05F3 rts | |
| 789 L05F4 beq L0606 | |
| 790 com <u00E8 | |
| 791 neg <u0064 | |
| 792 neg <u000A | |
| 793 neg <u0001 | |
| 794 neg <u0000 | |
| 795 L0600 pshs y,b,a | |
| 796 ldb ,x | |
| 797 subb #$30 | |
| 798 L0606 cmpb #$0A | |
| 799 bcc L0622 | |
| 800 leax $01,x | |
| 801 lda #$00 | |
| 802 ldy #$000A | |
| 803 L0612 addd ,s | |
| 804 lbcs L1266 | |
| 805 leay -$01,y | |
| 806 bne L0612 | |
| 807 std ,s | |
| 203 | 808 andcc #^Zero |
| 195 | 809 puls pc,y,b,a |
| 203 | 810 L0622 orcc #Zero |
| 195 | 811 puls pc,y,b,a |
| 812 L0626 pshs y,x,b,a | |
| 813 leax >L05F4,pcr | |
| 814 ldy #$2F20 | |
| 815 L0630 leay >$0100,y | |
| 816 subd ,x | |
| 817 bcc L0630 | |
| 818 addd ,x++ | |
| 819 pshs b,a | |
| 820 ldd ,x | |
| 821 tfr y,d | |
| 822 beq L0659 | |
| 823 ldy #$2F30 | |
| 824 cmpd #$3020 | |
| 825 bne L0652 | |
| 826 ldy #$2F20 | |
| 827 tfr b,a | |
| 828 L0652 lbsr L0107 | |
| 829 puls b,a | |
| 830 bra L0630 | |
| 831 L0659 lbsr L0107 | |
| 832 leas $02,s | |
| 833 puls pc,y,x,b,a | |
| 834 L0660 pshs x,b,a | |
| 835 ldx <u0027 | |
| 836 ldd -$02,x | |
| 837 puls pc,x,b,a | |
| 838 L0668 pshs x,b,a | |
| 839 tst <u0023 | |
| 840 beq L0683 | |
| 841 ldx <u0027 | |
| 842 ldd -$02,x | |
| 843 beq L0683 | |
| 844 cmpd #$FFFF | |
| 845 bne L067E | |
| 203 | 846 andcc #^Zero |
| 195 | 847 bra L0683 |
| 848 L067E subd #$0001 | |
| 849 std -$02,x | |
| 850 L0683 puls pc,x,b,a | |
| 851 L0685 pshs x,b,a | |
| 852 ldx <u0027 | |
| 853 ldd -$02,x | |
| 854 cmpd #$FFFF | |
| 855 puls pc,x,b,a | |
| 856 L0691 lda ,x+ | |
| 857 cmpa #$20 | |
| 858 beq L0691 | |
| 859 leax -$01,x | |
| 860 rts | |
| 861 L069A lda ,y+ | |
| 862 cmpa #$20 | |
| 863 beq L069A | |
| 864 leay -$01,y | |
| 865 rts | |
| 866 L06A3 pshs b,a | |
| 867 ldd <u001C | |
| 868 sty <u001C | |
| 869 bsr L06B2 | |
| 870 pshs cc | |
| 871 std <u001C | |
| 872 puls pc,b,a,cc | |
| 873 L06B2 pshs a | |
| 874 L06B4 cmpx <u001C | |
| 875 beq L06C0 | |
| 876 lda ,x+ | |
| 877 cmpa #$0D | |
| 878 bne L06B4 | |
| 203 | 879 andcc #^Zero |
| 195 | 880 L06C0 puls pc,a |
| 881 L06C2 cmpx <u001C | |
| 882 beq L06CE | |
| 883 bsr L06B2 | |
| 884 cmpx <u0018 | |
| 885 beq L06CE | |
| 886 leax -$01,x | |
| 203 | 887 L06CE andcc #^Zero |
| 195 | 888 rts |
| 889 L06D1 bsr L06D7 | |
| 890 beq L06E9 | |
| 891 leax -$01,x | |
| 892 L06D7 pshs a | |
| 893 L06D9 cmpx <u0018 | |
| 894 beq L06E7 | |
| 895 lda ,-x | |
| 896 cmpa #$0D | |
| 897 bne L06D9 | |
| 898 leax $01,x | |
| 203 | 899 andcc #^Zero |
| 195 | 900 L06E7 puls a |
| 901 L06E9 rts | |
| 902 L06EA pshs y,x,b,a | |
| 903 ldd #$000B | |
| 904 ldy <u001C | |
| 905 lbsr L0BC0 | |
| 906 leax d,y | |
| 907 sty <u0016 | |
| 908 stx <u001C | |
| 909 stx <u0018 | |
| 910 stx <u001A | |
| 911 std ,y | |
| 912 std $02,y | |
| 913 lda ,s | |
| 914 sta $04,y | |
| 915 ldd $04,s | |
| 916 std $05,y | |
| 917 ldd <u0000 | |
| 918 std <u0004 | |
| 919 ldd <u0002 | |
| 920 std <u0006 | |
| 921 puls pc,y,x,b,a | |
| 922 L0716 pshs y,x,b,a | |
| 923 stx <u001A | |
| 924 ldd ,x | |
| 925 lbsr L0BEC | |
| 926 nega | |
| 927 negb | |
| 928 sbca #$00 | |
| 929 ldx <u001C | |
| 930 leax d,x | |
| 931 stx <u0016 | |
| 932 leay $0B,x | |
| 933 sty <u0018 | |
| 934 ldd $02,x | |
| 935 leay d,x | |
| 936 sty <u001A | |
| 937 ldd $07,x | |
| 938 std <u0004 | |
| 939 ldd $09,x | |
| 940 std <u0006 | |
| 941 puls pc,y,x,b,a | |
| 942 L073F pshs y,x,b,a | |
| 943 ldx <u0016 | |
| 944 ldd <u001C | |
| 945 subd <u0016 | |
| 946 std ,x | |
| 947 ldd <u001A | |
| 948 subd <u0016 | |
| 949 std $02,x | |
| 950 ldd <u0004 | |
| 951 std $07,x | |
| 952 ldd <u0006 | |
| 953 std $09,x | |
| 954 lda $04,x | |
| 955 cmpa #$42 | |
| 956 bne L0763 | |
| 957 ldd $05,x | |
| 958 std <u0024 | |
| 959 bra L076E | |
| 960 L0763 ldy <u0014 | |
| 961 sty <u001A | |
| 962 ldd ,x | |
| 963 lbsr L0C38 | |
| 964 L076E puls pc,y,x,b,a | |
| 965 L0770 pshs b,a | |
| 966 ldx <u0014 | |
| 967 L0774 lda $04,x | |
| 968 cmpa #$42 | |
| 969 bne L0781 | |
| 970 ldd ,s | |
| 971 cmpd $05,x | |
| 972 beq L0788 | |
| 973 L0781 lbsr L089B | |
| 974 bcs L0774 | |
| 203 | 975 andcc #^Zero |
| 195 | 976 L0788 puls pc,b,a |
| 977 ldx <u0012 | |
| 978 ldd u0005,u | |
| 979 addd #$041F | |
| 980 leax d,x | |
| 981 cmpx <u001C | |
| 982 bls L07A1 | |
| 983 os9 F$Mem | |
| 984 lbcs L12AA | |
| 985 sty <u001E | |
| 986 L07A1 pulu pc,u | |
| 987 lbsr L0922 | |
| 988 lbsr L00FF | |
| 989 ldd <u001C | |
| 990 subd <u0014 | |
| 991 lbsr L0626 | |
| 992 lda #$20 | |
| 993 lbsr L0107 | |
| 994 lbsr L0107 | |
| 995 ldd <u001E | |
| 996 subd <u0014 | |
| 997 lbsr L0626 | |
| 998 lbsr L00FF | |
| 999 lbra L0929 | |
| 1000 ldx <u0016 | |
| 1001 lda $04,x | |
| 1002 cmpa #$42 | |
| 1003 lbne L127E | |
| 1004 ldd <u001C | |
| 1005 subd <u0016 | |
| 1006 std ,x | |
| 1007 ldd u0005,u | |
| 1008 cmpd $05,x | |
| 1009 beq L07F9 | |
| 1010 bsr L0770 | |
| 1011 beq L07F3 | |
| 1012 ldd #$000B | |
| 1013 lbsr L0BC0 | |
| 1014 lbsr L073F | |
| 1015 lda #$42 | |
| 1016 ldy u0005,u | |
| 1017 lbsr L06EA | |
| 1018 pulu pc,u | |
| 1019 L07F3 lbsr L073F | |
| 1020 lbsr L0716 | |
| 1021 L07F9 pulu pc,u | |
| 1022 tst <u0041 | |
| 1023 lbne L127E | |
| 1024 ldx <u0016 | |
| 1025 lda $04,x | |
| 1026 cmpa #$42 | |
| 1027 lbne L127E | |
| 1028 ldx $05,x | |
| 1029 ldy <u0024 | |
| 1030 pshs y,x | |
| 1031 ldx u0005,u | |
| 1032 lbsr L0691 | |
| 1033 cmpa $01,x | |
| 1034 bne L0825 | |
| 1035 lbsr L073F | |
| 1036 lda #$4D | |
| 1037 lbsr L06EA | |
| 1038 bra L0836 | |
| 1039 L0825 leax $01,x | |
| 1040 lbsr L04A1 | |
| 1041 lbeq L1278 | |
| 1042 lbsr L073F | |
| 1043 tfr d,x | |
| 1044 lbsr L0716 | |
| 1045 L0836 puls y,x | |
| 1046 stx <u0024 | |
| 1047 sty <u002D | |
| 1048 lda #$4D | |
| 1049 sta <u0026 | |
| 1050 pulu pc,u | |
| 1051 lbsr L0922 | |
| 1052 leax >L13C6,pcr | |
| 1053 lbsr L00EF | |
| 1054 ldx <u0014 | |
| 1055 L084F ldb $04,x | |
| 1056 cmpb #$42 | |
| 1057 bne L0873 | |
| 1058 ldd $05,x | |
| 1059 cmpx <u0016 | |
| 1060 beq L0863 | |
| 1061 cmpd <u0024 | |
| 1062 beq L0866 | |
| 1063 lda #$20 | |
| 1064 fcb $8C | |
| 1065 L0863 fdb $862A | |
| 1066 fcb $8C | |
| 1067 L0866 fdb $8624 | |
| 1068 lbsr L0107 | |
| 1069 ldd $05,x | |
| 1070 lbsr L0626 | |
| 1071 lbsr L00FF | |
| 1072 L0873 bsr L089B | |
| 1073 bcs L084F | |
| 1074 leax >L13BE,pcr | |
| 1075 lbsr L00EF | |
| 1076 ldx <u0014 | |
| 1077 L0880 pshs x | |
| 1078 lda $04,x | |
| 1079 cmpa #$4D | |
| 1080 bne L0893 | |
| 1081 leax $0B,x | |
| 1082 lbsr L008B | |
| 1083 puls x | |
| 1084 bsr L089B | |
| 1085 bcs L0880 | |
| 1086 L0893 lbsr L00FF | |
| 1087 lbsr L0929 | |
| 1088 pulu pc,u | |
| 1089 L089B pshs b,a | |
| 1090 ldd ,x | |
| 1091 leax d,x | |
| 1092 cmpx <u001C | |
| 1093 puls pc,b,a | |
| 1094 tst <u0041 | |
| 1095 lbne L127E | |
| 1096 ldx u0005,u | |
| 1097 lda ,x+ | |
| 1098 pshs a | |
| 1099 lbsr L0691 | |
| 1100 lbsr L04A1 | |
| 1101 lbeq L1278 | |
| 1102 tfr d,y | |
| 1103 ldd ,y | |
| 1104 ldx <u001A | |
| 1105 pshs x,b,a | |
| 1106 sty <u001A | |
| 1107 lbsr L0BEC | |
| 1108 ldd <u0016 | |
| 1109 subd ,s | |
| 1110 std <u0016 | |
| 1111 ldd <u0018 | |
| 1112 subd ,s | |
| 1113 std <u0018 | |
| 1114 ldd <u001C | |
| 1115 subd ,s | |
| 1116 std <u001C | |
| 1117 puls x | |
| 1118 puls b,a | |
| 1119 pshs x | |
| 1120 subd ,s++ | |
| 1121 std <u001A | |
| 1122 pulu pc,u | |
| 1123 pshs u | |
| 1124 ldx u0005,u | |
| 1125 lbsr L0130 | |
| 1126 tfr d,y | |
| 1127 tfr x,u | |
| 1128 leax <L090C,pcr | |
| 1129 lda #$01 | |
| 1130 ldb #$00 | |
| 1131 os9 F$Fork | |
| 1132 lbcs L12AA | |
| 1133 os9 F$Wait | |
| 1134 tstb | |
| 1135 lbne L12AA | |
| 1136 puls u | |
| 1137 pulu pc,u | |
| 1138 L090C fcc "SHELL" | |
| 1139 fcb C$CR | |
| 1140 L0912 fcb $ec,$45 | |
| 1141 beq L0918 | |
| 1142 lda #$01 | |
| 1143 L0918 sta <u003E | |
| 1144 tst <u0041 | |
| 1145 bne L0920 | |
| 1146 sta <u0040 | |
| 1147 L0920 pulu pc,u | |
| 1148 L0922 lda <u003E | |
| 1149 sta <u003F | |
| 1150 inc <u003E | |
| 1151 rts | |
| 1152 L0929 lda <u003F | |
| 1153 sta <u003E | |
| 1154 rts | |
| 1155 ldx ,u | |
| 1156 ldx $02,x | |
| 1157 ldy <u0045 | |
| 1158 cmpy <u0049 | |
| 1159 lbls L128D | |
| 1160 stx ,--y | |
| 1161 ldx #$0000 | |
| 1162 stx ,--y | |
| 1163 sty <u0045 | |
| 1164 pulu pc,u | |
| 1165 ldx <u0045 | |
| 1166 ldd ,x | |
| 1167 addd #$0001 | |
| 1168 std ,x | |
| 1169 cmpd u0005,u | |
| 1170 bcs L095A | |
| 1171 bsr L0964 | |
| 1172 pulu pc,u | |
| 1173 L095A ldy $02,x | |
| 1174 ldx ,u | |
| 1175 sty $02,x | |
| 1176 pulu pc,u | |
| 1177 L0964 pshs x | |
| 1178 ldx <u0045 | |
| 1179 leax $04,x | |
| 1180 cmpx <u0043 | |
| 1181 lbhi L128A | |
| 1182 stx <u0045 | |
| 1183 puls pc,x | |
| 1184 bsr L0922 | |
| 1185 ldx <u001A | |
| 1186 lbsr L0660 | |
| 1187 beq L098A | |
| 1188 L097D lbsr L008B | |
| 1189 lbsr L06B2 | |
| 1190 beq L098A | |
| 1191 lbsr L0668 | |
| 1192 bne L097D | |
| 1193 L098A bsr L0929 | |
| 1194 pulu pc,u | |
| 1195 bsr L0922 | |
| 1196 lbsr L0660 | |
| 1197 beq L09AF | |
| 1198 ldx <u001A | |
| 1199 lbsr L06D7 | |
| 1200 bra L09A1 | |
| 1201 L099C lbsr L06D1 | |
| 1202 beq L09A6 | |
| 1203 L09A1 lbsr L0668 | |
| 1204 bne L099C | |
| 1205 L09A6 pshs x | |
| 1206 ldd <u001A | |
| 1207 subd ,s++ | |
| 1208 lbsr L0094 | |
| 1209 L09AF lbsr L0929 | |
| 1210 pulu pc,u | |
| 1211 inc <u002F | |
| 1212 ldd u0005,u | |
| 1213 std <u0030 | |
| 1214 bne L09BE | |
| 1215 clr <u002F | |
| 1216 L09BE pulu pc,u | |
| 1217 L09C0 lbsr L06B2 | |
| 1218 beq L09D4 | |
| 1219 L09C5 pshs b,a | |
| 1220 ldd <u0030 | |
| 1221 lbsr L0B01 | |
| 1222 puls b,a | |
| 1223 bne L09C0 | |
| 1224 cmpx <u001A | |
| 1225 bcs L09C0 | |
| 1226 L09D4 rts | |
| 1227 L09D5 pshs y,x | |
| 1228 ldx <u0010 | |
| 1229 stx $02,s | |
| 1230 puls pc,x | |
| 1231 L09DD pshs y,b,a | |
| 1232 ldx <u001A | |
| 1233 lda ,y+ | |
| 1234 tst <u002F | |
| 1235 beq L09E9 | |
| 1236 bsr L09C5 | |
| 1237 L09E9 pshs y,x | |
| 1238 L09EB cmpa ,y | |
| 1239 beq L0A0B | |
| 1240 ldb ,y+ | |
| 1241 cmpx <u001C | |
| 1242 bcc L0A05 | |
| 1243 cmpb ,x+ | |
| 1244 beq L09EB | |
| 1245 puls y,x | |
| 1246 leax $01,x | |
| 1247 tst <u002F | |
| 1248 beq L09E9 | |
| 1249 bsr L09C0 | |
| 1250 bra L09E9 | |
| 203 | 1251 L0A05 orcc #Carry |
| 195 | 1252 bra L0A0B |
| 203 | 1253 andcc #^Carry |
| 195 | 1254 L0A0B puls y,x |
| 1255 puls pc,y,b,a | |
| 1256 L0A0F lbsr L1126 | |
| 1257 tst <u0041 | |
| 1258 bne L0A29 | |
| 1259 tst <u003D | |
| 1260 beq L0A29 | |
| 1261 inc <u0039 | |
| 1262 lbsr L0922 | |
| 1263 leax >L1318,pcr | |
| 1264 lbsr L00EF | |
| 1265 lbsr L0929 | |
| 1266 L0A29 pulu pc,u | |
| 1267 L0A2B pshs y,x,b,a | |
| 1268 lbsr L0660 | |
| 203 | 1269 andcc #^Carry |
| 195 | 1270 beq L0A4E |
| 1271 ldx u0005,u | |
| 1272 lbsr L0122 | |
| 1273 L0A39 ldy u0005,u | |
| 1274 bsr L09D5 | |
| 1275 bcs L0A4E | |
| 1276 lbsr L0082 | |
| 1277 leax d,x | |
| 1278 stx <u001A | |
| 1279 lbsr L0668 | |
| 1280 bne L0A39 | |
| 203 | 1281 andcc #^Carry |
| 195 | 1282 L0A4E puls pc,y,x,b,a |
| 1283 L0A50 pshs y,x,b,a | |
| 1284 lbsr L0660 | |
| 203 | 1285 andcc #^Carry |
| 195 | 1286 beq L0A94 |
| 1287 ldx u0005,u | |
| 1288 lbsr L0122 | |
| 1289 pshs b,a | |
| 1290 ldx u0007,u | |
| 1291 lbsr L0122 | |
| 1292 pshs b,a | |
| 1293 L0A67 ldd $02,s | |
| 1294 subd ,s | |
| 1295 lbsr L0BC0 | |
| 1296 ldy u0007,u | |
| 1297 lbsr L09D5 | |
| 1298 bcs L0A92 | |
| 1299 stx <u001A | |
| 1300 ldd ,s | |
| 1301 lbsr L100F | |
| 1302 ldx u0005,u | |
| 1303 leax $01,x | |
| 1304 ldd $02,s | |
| 1305 lbsr L0BE3 | |
| 1306 ldx <u001A | |
| 1307 lbsr L0082 | |
| 1308 lbsr L0668 | |
| 1309 bne L0A67 | |
| 203 | 1310 andcc #^Carry |
| 195 | 1311 L0A92 leas $04,s |
| 1312 L0A94 puls pc,y,x,b,a | |
| 1313 lbsr L0A2B | |
| 1314 lbcs L0A0F | |
| 1315 rts | |
| 1316 lbsr L0A50 | |
| 1317 lbcs L0A0F | |
| 1318 rts | |
| 1319 ldx <u001A | |
| 1320 lbsr L0A50 | |
| 1321 bra L0AB2 | |
| 1322 ldx <u001A | |
| 1323 lbsr L0A2B | |
| 1324 L0AB2 pshs cc | |
| 1325 cmpx <u001A | |
| 1326 beq L0ABF | |
| 1327 ldx <u001A | |
| 1328 lbsr L06D7 | |
| 1329 stx <u001A | |
| 1330 L0ABF puls cc | |
| 1331 lbcs L0A0F | |
| 1332 rts | |
| 1333 lbsr L0660 | |
| 1334 beq L0AFF | |
| 1335 ldx u0005,u | |
| 1336 lbsr L0122 | |
| 1337 leax $01,x | |
| 1338 L0AD2 pshs x,b,a | |
| 1339 ldx <u001A | |
| 1340 cmpx <u001C | |
| 1341 bcs L0ADF | |
| 1342 lbsr L1126 | |
| 1343 bra L0AFF | |
| 1344 L0ADF lbsr L06C2 | |
| 1345 ldd ,s | |
| 1346 lbsr L0BC0 | |
| 1347 stx <u001A | |
| 1348 ldx $02,s | |
| 1349 lbsr L0BE3 | |
| 1350 ldx <u001A | |
| 1351 lbsr L0082 | |
| 1352 lbsr L06B2 | |
| 1353 stx <u001A | |
| 1354 puls x,b,a | |
| 1355 lbsr L0668 | |
| 1356 bne L0AD2 | |
| 1357 L0AFF pulu pc,u | |
| 1358 L0B01 pshs y | |
| 1359 cmpd #$0000 | |
| 1360 beq L0B26 | |
| 1361 tfr d,y | |
| 1362 lbsr L06D7 | |
| 1363 L0B0E lda ,x | |
| 1364 cmpa #$0D | |
| 1365 beq L0B20 | |
| 1366 cmpx <u001C | |
| 1367 bcc L0B20 | |
| 1368 leax $01,x | |
| 1369 leay -$01,y | |
| 1370 bne L0B0E | |
| 1371 leax -$01,x | |
| 1372 L0B20 tfr y,d | |
| 1373 cmpd #$0000 | |
| 1374 L0B26 puls pc,y | |
| 1375 lbsr L0660 | |
| 1376 beq L0B5C | |
| 1377 ldx <u001A | |
| 1378 ldd u0005,u | |
| 1379 bsr L0B01 | |
| 1380 stx <u001A | |
| 1381 std u0005,u | |
| 1382 beq L0B5C | |
| 1383 tfr d,y | |
| 1384 lbsr L0668 | |
| 1385 beq L0B5C | |
| 1386 leay -$01,y | |
| 1387 lda #$20 | |
| 1388 ldx <u001C | |
| 1389 pshs x | |
| 1390 L0B48 cmpx <u001E | |
| 1391 lbcc L126F | |
| 1392 sta ,x+ | |
| 1393 lbsr L0668 | |
| 1394 bne L0B48 | |
| 1395 tfr y,d | |
| 1396 puls x | |
| 1397 lbsr L0BE3 | |
| 1398 L0B5C pulu pc,u | |
| 1399 lbsr L0660 | |
| 1400 beq L0B94 | |
| 1401 ldx <u001A | |
| 1402 lbsr L06D7 | |
| 1403 pshs x | |
| 1404 ldx u0005,u | |
| 1405 lbsr L0122 | |
| 1406 leax $01,x | |
| 1407 ldy <u001C | |
| 1408 L0B74 bsr L0B96 | |
| 1409 lbeq L126F | |
| 1410 lbsr L0668 | |
| 1411 bne L0B74 | |
| 1412 ldx <u001C | |
| 1413 tfr y,d | |
| 1414 subd <u001C | |
| 1415 bsr L0BE3 | |
| 1416 lda #$0D | |
| 1417 bsr L0BB5 | |
| 1418 ldx ,s | |
| 1419 ldd <u001A | |
| 1420 subd ,s++ | |
| 1421 lbsr L0094 | |
| 1422 L0B94 pulu pc,u | |
| 1423 L0B96 pshs u,x,b,a | |
| 1424 tfr d,u | |
| 1425 L0B9A cmpy <u001E | |
| 1426 bcc L0BB1 | |
| 1427 cmpu #$0000 | |
| 1428 beq L0BAD | |
| 1429 lda ,x+ | |
| 1430 sta ,y+ | |
| 1431 leau -u0001,u | |
| 1432 bra L0B9A | |
| 203 | 1433 L0BAD andcc #^Zero |
| 195 | 1434 puls pc,u,x,b,a |
| 203 | 1435 L0BB1 orcc #Zero |
| 195 | 1436 puls pc,u,x,b,a |
| 1437 L0BB5 pshs x,b,a | |
| 1438 tfr s,x | |
| 1439 ldd #$0001 | |
| 1440 bsr L0BE3 | |
| 1441 puls pc,x,b,a | |
| 1442 L0BC0 pshs x | |
| 1443 ldx <u001C | |
| 1444 leax d,x | |
| 1445 cmpx <u001E | |
| 1446 lbcc L126F | |
| 1447 puls pc,x | |
| 1448 L0BCE pshs y | |
| 1449 ldy <u001C | |
| 1450 bsr L0B96 | |
| 1451 lbeq L126F | |
| 1452 sty <u001C | |
| 1453 puls pc,y | |
| 1454 L0BDE lda #$0D | |
| 1455 lbsr L0132 | |
| 1456 L0BE3 bsr L0BCE | |
| 1457 bsr L0C38 | |
| 1458 addd <u001A | |
| 1459 std <u001A | |
| 1460 rts | |
| 1461 L0BEC pshs u,y,x,b,a | |
| 1462 cmpd #$0000 | |
| 1463 beq L0C36 | |
| 1464 std <u00CF | |
| 1465 ldd <u001A | |
| 1466 subd <u001C | |
| 1467 tfr d,y | |
| 1468 addd ,s | |
| 1469 std <u00D1 | |
| 1470 ldd <u001C | |
| 1471 subd <u00CF | |
| 1472 std <u00D3 | |
| 1473 ldx <u001C | |
| 1474 lda ,-x | |
| 1475 stx <u00D5 | |
| 1476 sta <u00CD | |
| 1477 bra L0C22 | |
| 1478 L0C10 cmpx <u00D5 | |
| 1479 bne L0C1E | |
| 1480 lda <u00CD | |
| 1481 sta ,u | |
| 1482 lda ,-x | |
| 1483 stx <u00D5 | |
| 1484 sta <u00CD | |
| 1485 L0C1E leay $01,y | |
| 1486 beq L0C36 | |
| 1487 L0C22 ldd <u00D1 | |
| 1488 L0C24 tfr x,u | |
| 1489 leax d,x | |
| 1490 lda ,x | |
| 1491 sta ,u | |
| 1492 cmpx <u00D3 | |
| 1493 bcc L0C10 | |
| 1494 ldd <u00CF | |
| 1495 leay $01,y | |
| 1496 bne L0C24 | |
| 1497 L0C36 puls pc,u,y,x,b,a | |
| 1498 L0C38 pshs b,a | |
| 1499 ldd <u001C | |
| 1500 subd <u001A | |
| 1501 subd ,s | |
| 1502 bsr L0BEC | |
| 1503 puls pc,b,a | |
| 1504 lbsr L0660 | |
| 1505 beq L0CAF | |
| 1506 ldd <u0024 | |
| 1507 lbsr L0770 | |
| 1508 pshs x | |
| 1509 ldd ,x | |
| 1510 leay d,x | |
| 1511 leax $0B,x | |
| 1512 pshs x | |
| 1513 L0C58 pshs y | |
| 1514 cmpx ,s++ | |
| 1515 bne L0C63 | |
| 1516 lbsr L1126 | |
| 1517 bra L0C6D | |
| 1518 L0C63 lbsr L06A3 | |
| 1519 beq L0C6D | |
| 1520 lbsr L0668 | |
| 1521 bne L0C58 | |
| 1522 L0C6D tfr x,d | |
| 1523 subd ,s | |
| 1524 puls y,x | |
| 1525 pshs b,a | |
| 1526 lbsr L0094 | |
| 1527 ldd $02,y | |
| 1528 subd #$000B | |
| 1529 subd ,s | |
| 1530 bcc L0C84 | |
| 1531 ldd #$0000 | |
| 1532 L0C84 addd #$000B | |
| 1533 std $02,y | |
| 1534 ldd ,y | |
| 1535 subd ,s | |
| 1536 std ,y | |
| 1537 ldd <u0016 | |
| 1538 subd ,s | |
| 1539 std <u0016 | |
| 1540 ldd <u0018 | |
| 1541 subd ,s | |
| 1542 std <u0018 | |
| 1543 puls b,a | |
| 1544 ldy <u001A | |
| 1545 stx <u001A | |
| 1546 ldx <u001C | |
| 1547 sty <u001C | |
| 1548 lbsr L0BEC | |
| 1549 stx <u001C | |
| 1550 sty <u001A | |
| 1551 L0CAF pulu pc,u | |
| 1552 lbsr L0660 | |
| 1553 beq L0D0D | |
| 1554 ldx <u001C | |
| 1555 pshs x | |
| 1556 ldd <u0024 | |
| 1557 lbsr L0770 | |
| 1558 pshs x | |
| 1559 ldx <u001A | |
| 1560 pshs x | |
| 1561 L0CC5 cmpx <u001C | |
| 1562 bcs L0CCE | |
| 1563 lbsr L1126 | |
| 1564 bra L0CD8 | |
| 1565 L0CCE lbsr L06B2 | |
| 1566 beq L0CD8 | |
| 1567 lbsr L0668 | |
| 1568 bne L0CC5 | |
| 1569 L0CD8 tfr x,d | |
| 1570 subd ,s | |
| 1571 puls y,x | |
| 1572 lbsr L0094 | |
| 1573 leax d,x | |
| 1574 pshs x,b,a | |
| 1575 stx <u001C | |
| 1576 ldd ,y | |
| 1577 addd ,s | |
| 1578 std ,y | |
| 1579 ldd $02,y | |
| 1580 leax d,y | |
| 1581 stx <u001A | |
| 1582 addd ,s | |
| 1583 std $02,y | |
| 1584 ldd <u0016 | |
| 1585 addd ,s | |
| 1586 std <u0016 | |
| 1587 ldd <u0018 | |
| 1588 addd ,s | |
| 1589 std <u0018 | |
| 1590 puls y,x,b,a | |
| 1591 lbsr L0C38 | |
| 1592 stx <u001A | |
| 1593 sty <u001C | |
| 1594 L0D0D pulu pc,u | |
| 1595 tst <u0005 | |
| 1596 beq L0D4D | |
| 1597 lbsr L0660 | |
| 1598 beq L0D7A | |
| 1599 ldx <u001C | |
| 1600 L0D1A leay >$0080,x | |
| 1601 cmpy <u001E | |
| 1602 bls L0D28 | |
| 1603 bsr L0D68 | |
| 1604 lbra L126F | |
| 1605 L0D28 lda <u0004 | |
| 1606 ldy #$0080 | |
| 1607 os9 I$ReadLn | |
| 1608 bcc L0D5F | |
| 1609 pshs b | |
| 1610 bsr L0D68 | |
| 1611 puls b | |
| 1612 cmpb #$D3 | |
| 1613 lbne L12AA | |
| 1614 ldd <u0004 | |
| 1615 cmpd <u0000 | |
| 1616 beq L0D4D | |
| 1617 os9 I$Close | |
| 1618 lbcs L12AA | |
| 1619 L0D4D clr <u0005 | |
| 1620 lbsr L1126 | |
| 1621 tst <u0041 | |
| 1622 bne L0D5D | |
| 1623 leax >L138A,pcr | |
| 1624 lbsr L00EF | |
| 1625 L0D5D bra L0D7A | |
| 1626 L0D5F tfr y,d | |
| 1627 leax d,x | |
| 1628 lbsr L0668 | |
| 1629 bne L0D1A | |
| 1630 L0D68 tfr x,d | |
| 1631 subd <u001C | |
| 1632 ldx <u001A | |
| 1633 pshs x,b,a | |
| 1634 ldx <u001C | |
| 1635 lbsr L0BE3 | |
| 1636 puls x,b,a | |
| 1637 lbsr L0094 | |
| 1638 L0D7A rts | |
| 1639 tst <u0007 | |
| 1640 lbeq L1275 | |
| 1641 lbsr L0660 | |
| 1642 beq L0DB5 | |
| 1643 ldy <u001A | |
| 1644 L0D89 tfr y,x | |
| 1645 lbsr L0130 | |
| 1646 bne L0D9D | |
| 1647 bsr L0DA9 | |
| 1648 lbsr L1126 | |
| 1649 leax >L137C,pcr | |
| 1650 lbsr L00EF | |
| 1651 rts | |
| 1652 L0D9D leay d,x | |
| 1653 lda <u0006 | |
| 1654 lbsr L00C8 | |
| 1655 lbsr L0668 | |
| 1656 bne L0D89 | |
| 1657 L0DA9 ldx <u001A | |
| 1658 tfr y,d | |
| 1659 subd <u001A | |
| 1660 lbsr L0094 | |
| 1661 lbsr L100F | |
| 1662 L0DB5 rts | |
| 1663 ldd <u0004 | |
| 1664 cmpd <u0000 | |
| 1665 beq L0DC9 | |
| 1666 tstb | |
| 1667 beq L0DC9 | |
| 1668 os9 I$Close | |
| 1669 lbcs L12AA | |
| 1670 clr <u0005 | |
| 1671 L0DC9 ldx u0005,u | |
| 1672 ldb ,x+ | |
| 1673 cmpb ,x | |
| 1674 bne L0DD7 | |
| 1675 ldd <u0000 | |
| 1676 std <u0004 | |
| 1677 pulu pc,u | |
| 1678 L0DD7 lbsr L0EC6 | |
| 1679 lbne L12A8 | |
| 1680 lda #$01 | |
| 1681 os9 I$Open | |
| 1682 lbcs L12AA | |
| 1683 ldb #$01 | |
| 1684 std <u0004 | |
| 1685 pulu pc,u | |
| 1686 ldd <u0006 | |
| 1687 cmpd <u0002 | |
| 1688 beq L0E00 | |
| 1689 tstb | |
| 1690 beq L0E00 | |
| 1691 os9 I$Close | |
| 1692 lbcs L12AA | |
| 1693 clr <u0007 | |
| 1694 L0E00 ldx u0005,u | |
| 1695 ldb ,x+ | |
| 1696 cmpb ,x | |
| 1697 bne L0E0E | |
| 1698 ldd <u0002 | |
| 1699 std <u0006 | |
| 1700 pulu pc,u | |
| 1701 L0E0E lbsr L0EC6 | |
| 1702 lbne L12A8 | |
| 1703 ldd #$021B | |
| 1704 os9 I$Create | |
| 1705 lbcs L12AA | |
| 1706 ldb #$01 | |
| 1707 std <u0006 | |
| 1708 pulu pc,u | |
| 1709 ldx u0005,u | |
| 1710 ldb ,x+ | |
| 1711 lbsr L0EC6 | |
| 1712 lbne L12A8 | |
| 1713 lda #$01 | |
| 1714 os9 I$Open | |
| 1715 lbcs L12AA | |
| 1716 sta <u0008 | |
| 1717 L0E3B ldx <u001C | |
| 1718 ldy #$000B | |
| 1719 bsr L0EB7 | |
| 1720 lda <u0008 | |
| 1721 os9 I$Read | |
| 1722 bcs L0E6E | |
| 1723 lda $04,x | |
| 1724 cmpa #$4D | |
| 1725 beq L0E58 | |
| 1726 ldd $05,x | |
| 1727 beq L0E58 | |
| 1728 ldb #$D3 | |
| 1729 bra L0E6E | |
| 1730 L0E58 clr $08,x | |
| 1731 clr $0A,x | |
| 1732 ldd ,x | |
| 1733 subd #$000B | |
| 1734 tfr d,y | |
| 1735 leax $0B,x | |
| 1736 bsr L0EB7 | |
| 1737 lda <u0008 | |
| 1738 os9 I$Read | |
| 1739 bcc L0E7F | |
| 1740 L0E6E pshs b | |
| 1741 lda <u0008 | |
| 1742 os9 I$Close | |
| 1743 puls b | |
| 1744 cmpb #$D3 | |
| 1745 lbne L12AA | |
| 1746 pulu pc,u | |
| 1747 L0E7F lbsr L0691 | |
| 1748 pshs x | |
| 1749 lbsr L04A1 | |
| 1750 puls x | |
| 1751 bne L0E3B | |
| 1752 lbsr L008B | |
| 1753 ldx <u001C | |
| 1754 ldd ,x | |
| 1755 ldy <u001A | |
| 1756 leax d,x | |
| 1757 stx <u001C | |
| 1758 pshs y,b,a | |
| 1759 ldx <u0014 | |
| 1760 stx <u001A | |
| 1761 lbsr L0C38 | |
| 1762 ldd <u0016 | |
| 1763 addd ,s | |
| 1764 std <u0016 | |
| 1765 ldd <u0018 | |
| 1766 addd ,s | |
| 1767 std <u0018 | |
| 1768 puls y,b,a | |
| 1769 leay d,y | |
| 1770 sty <u001A | |
| 1771 bra L0E3B | |
| 1772 L0EB7 pshs y,b,a | |
| 1773 tfr y,d | |
| 1774 leay d,x | |
| 1775 cmpy <u001E | |
| 1776 lbcc L126F | |
| 1777 puls pc,y,b,a | |
| 1778 L0EC6 lbsr L0691 | |
| 1779 pshs y,x | |
| 1780 leay ,x | |
| 1781 L0ECD cmpb ,y+ | |
| 1782 bne L0ECD | |
| 1783 pshs y | |
| 1784 lbsr L015A | |
| 1785 bcs L0EE1 | |
| 1786 cmpy ,s++ | |
| 1787 bcc L0EE1 | |
| 203 | 1788 orcc #Zero |
| 195 | 1789 puls pc,y,x |
| 203 | 1790 L0EE1 andcc #^Zero |
| 195 | 1791 puls pc,y,x |
| 1792 ldx #$FFFF | |
| 1793 pshs x | |
| 1794 ldx u0007,u | |
| 1795 leax $01,x | |
| 1796 lbsr L0691 | |
| 1797 L0EF1 lbsr L04A1 | |
| 1798 lbeq L1278 | |
| 1799 pshs b,a | |
| 1800 lbsr L0691 | |
| 1801 ldy u0007,u | |
| 1802 cmpa ,y | |
| 1803 bne L0EF1 | |
| 1804 ldx u0005,u | |
| 1805 ldb ,x+ | |
| 1806 bsr L0EC6 | |
| 1807 lbne L12A8 | |
| 1808 ldd #$021B | |
| 1809 os9 I$Create | |
| 1810 lbcs L12AA | |
| 1811 sta <u0008 | |
| 1812 L0F1A puls x | |
| 1813 cmpx #$FFFF | |
| 1814 beq L0F3C | |
| 1815 ldd #$0000 | |
| 1816 std $05,x | |
| 1817 ldy ,x | |
| 1818 lda <u0008 | |
| 1819 os9 I$Write | |
| 1820 bcc L0F1A | |
| 1821 pshs b | |
| 1822 lda <u0008 | |
| 1823 os9 I$Close | |
| 1824 puls b | |
| 1825 lbra L12AA | |
| 1826 L0F3C lda <u0008 | |
| 1827 os9 I$Close | |
| 1828 pulu pc,u | |
| 1829 L0F43 tst <u0001 | |
| 1830 beq L0F8E | |
| 1831 ldx <u001C | |
| 1832 leay d,x | |
| 1833 leay >$0080,y | |
| 1834 cmpy <u001E | |
| 1835 bcs L0F5D | |
| 1836 cmpd #$0080 | |
| 1837 bcs L0F8E | |
| 1838 subd #$0080 | |
| 1839 L0F5D tfr d,y | |
| 1840 lda <u0000 | |
| 1841 os9 I$Read | |
| 1842 bcs L0F77 | |
| 1843 tfr y,d | |
| 1844 leax d,x | |
| 1845 stx <u001C | |
| 1846 ldy #$0080 | |
| 1847 lda <u0000 | |
| 1848 os9 I$ReadLn | |
| 1849 bcc L0F88 | |
| 1850 L0F77 cmpb #$D3 | |
| 1851 lbne L12AA | |
| 1852 leax >L138A,pcr | |
| 1853 lbsr L00EF | |
| 1854 clr <u0005 | |
| 1855 bra L0F8E | |
| 1856 L0F88 tfr y,d | |
| 1857 leax d,x | |
| 1858 stx <u001C | |
| 1859 L0F8E rts | |
| 1860 tst <u0003 | |
| 1861 beq L0FA8 | |
| 1862 ldx <u0018 | |
| 1863 ldd <u001A | |
| 1864 subd <u0018 | |
| 1865 tfr d,y | |
| 1866 lda <u0002 | |
| 1867 os9 I$Write | |
| 1868 stx <u001A | |
| 1869 tfr y,d | |
| 1870 bsr L100F | |
| 1871 bsr L0F43 | |
| 1872 L0FA8 pulu pc,u | |
| 1873 lbsr L0660 | |
| 1874 beq L0FD4 | |
| 1875 ldx <u001A | |
| 1876 lbsr L06D7 | |
| 1877 stx <u001A | |
| 1878 pshs x | |
| 1879 L0FB8 cmpx <u001C | |
| 1880 bne L0FC1 | |
| 1881 lbsr L1126 | |
| 1882 bra L0FCE | |
| 1883 L0FC1 lbsr L008B | |
| 1884 lbsr L06B2 | |
| 1885 beq L0FCE | |
| 1886 lbsr L0668 | |
| 1887 bne L0FB8 | |
| 1888 L0FCE tfr x,d | |
| 1889 subd ,s++ | |
| 1890 bsr L100F | |
| 1891 L0FD4 pulu pc,u | |
| 1892 lbsr L0660 | |
| 1893 beq L0FFA | |
| 1894 ldx <u001A | |
| 1895 pshs x | |
| 1896 L0FDF cmpx <u001C | |
| 1897 bne L0FE8 | |
| 1898 lbsr L1126 | |
| 1899 bra L0FEF | |
| 1900 L0FE8 leax $01,x | |
| 1901 lbsr L0668 | |
| 1902 bne L0FDF | |
| 1903 L0FEF tfr x,d | |
| 1904 subd ,s | |
| 1905 puls x | |
| 1906 lbsr L0094 | |
| 1907 bsr L100F | |
| 1908 L0FFA pulu pc,u | |
| 1909 ldx <u001A | |
| 1910 lbsr L0130 | |
| 1911 beq L100D | |
| 1912 subd #$0001 | |
| 1913 beq L100D | |
| 1914 bsr L100F | |
| 1915 lbsr L0082 | |
| 1916 L100D pulu pc,u | |
| 1917 L100F pshs b,a | |
| 1918 lbsr L0BEC | |
| 1919 ldd <u001C | |
| 1920 subd ,s | |
| 1921 std <u001C | |
| 1922 puls pc,b,a | |
| 1923 lbsr L0660 | |
| 1924 beq L1035 | |
| 1925 ldx <u001A | |
| 1926 L1023 cmpx <u0018 | |
| 1927 bne L102C | |
| 1928 lbsr L1126 | |
| 1929 bra L1033 | |
| 1930 L102C leax -$01,x | |
| 1931 lbsr L0668 | |
| 1932 bne L1023 | |
| 1933 L1033 stx <u001A | |
| 1934 L1035 pulu pc,u | |
| 1935 lbsr L0660 | |
| 1936 beq L1035 | |
| 1937 ldx <u001A | |
| 1938 L103E cmpx <u001C | |
| 1939 bne L1047 | |
| 1940 lbsr L1126 | |
| 1941 bra L1033 | |
| 1942 L1047 leax $01,x | |
| 1943 lbsr L0668 | |
| 1944 bne L103E | |
| 1945 bra L1033 | |
| 1946 ldx <u001A | |
| 1947 lbsr L0660 | |
| 1948 bne L105C | |
| 1949 lbsr L06C2 | |
| 1950 bra L106F | |
| 1951 L105C cmpx <u001C | |
| 1952 bne L1065 | |
| 1953 lbsr L1126 | |
| 1954 bra L106F | |
| 1955 L1065 lbsr L06B2 | |
| 1956 beq L106F | |
| 1957 lbsr L0668 | |
| 1958 bne L105C | |
| 1959 L106F stx <u001A | |
| 1960 lbsr L008B | |
| 1961 pulu pc,u | |
| 1962 ldx <u001A | |
| 1963 lbsr L0660 | |
| 1964 bne L1082 | |
| 1965 lbsr L06D7 | |
| 1966 bra L106F | |
| 1967 L1082 cmpx <u0018 | |
| 1968 bne L108B | |
| 1969 lbsr L1126 | |
| 1970 bra L106F | |
| 1971 L108B lbsr L06D1 | |
| 1972 beq L106F | |
| 1973 lbsr L0668 | |
| 1974 bne L1082 | |
| 1975 bra L106F | |
| 1976 ldx <u0018 | |
| 1977 stx <u001A | |
| 1978 pulu pc,u | |
| 1979 ldx <u001C | |
| 1980 stx <u001A | |
| 1981 pulu pc,u | |
| 1982 lda #$01 | |
| 1983 sta <u003C | |
| 1984 clr <u003A | |
| 1985 pulu pc,u | |
| 1986 L10AB lda #$01 | |
| 1987 sta <u003D | |
| 1988 clr <u003A | |
| 1989 pulu pc,u | |
| 1990 L10B3 clra | |
| 1991 sta <u003D | |
| 1992 sta <u003A | |
| 1993 pulu pc,u | |
| 1994 ldx <u001A | |
| 1995 cmpx <u001C | |
| 1996 beq L10AB | |
| 1997 lda ,x | |
| 1998 cmpa #$0D | |
| 1999 beq L10AB | |
| 2000 bra L10B3 | |
| 2001 ldx <u001A | |
| 2002 cmpx <u001C | |
| 2003 beq L10B3 | |
| 2004 lda ,x | |
| 2005 cmpa #$0D | |
| 2006 beq L10B3 | |
| 2007 bra L10AB | |
| 2008 ldx <u001A | |
| 2009 cmpx <u001C | |
| 2010 bne L10B3 | |
| 2011 bra L10AB | |
| 2012 ldx <u001A | |
| 2013 cmpx <u001C | |
| 2014 beq L10B3 | |
| 2015 bra L10AB | |
| 2016 bsr L10F2 | |
| 2017 bne L10AB | |
| 2018 bra L10B3 | |
| 2019 bsr L10F2 | |
| 2020 beq L10AB | |
| 2021 bra L10B3 | |
| 2022 L10F2 ldx u0005,u | |
| 2023 ldy <u001A | |
| 2024 ldb ,x+ | |
| 2025 L10F9 cmpb ,x | |
| 2026 beq L110A | |
| 2027 cmpy <u001C | |
| 2028 beq L1108 | |
| 2029 lda ,x+ | |
| 2030 cmpa ,y+ | |
| 2031 beq L10F9 | |
| 203 | 2032 L1108 andcc #^Zero |
| 195 | 2033 L110A rts |
| 2034 tst <u0005 | |
| 2035 bne L10B3 | |
| 2036 bra L10AB | |
| 2037 lda <u0005 | |
| 2038 beq L10B3 | |
| 2039 bra L10AB | |
| 2040 ldd u0005,u | |
| 2041 beq L10B3 | |
| 2042 bra L10AB | |
| 2043 lda #$00 | |
| 2044 lbsr L0685 | |
| 2045 beq L10B3 | |
| 2046 bra L10AB | |
| 2047 L1126 pshs a | |
| 2048 lbsr L0685 | |
| 2049 beq L1133 | |
| 2050 lda #$01 | |
| 2051 sta <u003D | |
| 2052 clr <u003A | |
| 2053 L1133 puls pc,a | |
| 2054 lda #$00 | |
| 2055 sta <u003D | |
| 2056 sta <u003A | |
| 2057 inca | |
| 2058 sta <u003B | |
| 2059 pulu pc,u | |
| 2060 | |
| 2061 lda #$00 | |
| 2062 sta <u003A | |
| 2063 inca | |
| 2064 sta <u003D | |
| 2065 sta <u003B | |
| 2066 pulu pc,u | |
| 2067 pulu pc,u | |
| 2068 L114D tst <u0041 | |
| 2069 lbne L127E | |
| 2070 ldx <u0016 | |
| 2071 lda $04,x | |
| 2072 cmpa #$42 | |
| 2073 beq L11C5 | |
| 2074 ldx <u001C | |
| 2075 cmpx <u0018 | |
| 2076 lbeq L1281 | |
| 2077 lda #$0D | |
| 2078 cmpa -$01,x | |
| 2079 beq L1175 | |
| 2080 leax $01,x | |
| 2081 cmpx <u001E | |
| 2082 lbcc L126F | |
| 2083 sta -$01,x | |
| 2084 stx <u001C | |
| 2085 L1175 ldx <u0018 | |
| 2086 lbsr L0691 | |
| 2087 lbsr L04DA | |
| 2088 lbne L1281 | |
| 2089 pshs x | |
| 2090 L1183 lda ,x+ | |
| 2091 lbsr L04DA | |
| 2092 beq L1183 | |
| 2093 cmpa #$20 | |
| 2094 beq L119C | |
| 2095 cmpa #$0D | |
| 2096 beq L119C | |
| 2097 cmpa #$24 | |
| 2098 beq L119C | |
| 2099 cmpa #$23 | |
| 2100 lbne L1281 | |
| 2101 L119C ldx ,s | |
| 2102 lbsr L04A1 | |
| 2103 lbne L1284 | |
| 2104 ldb #$2E | |
| 2105 puls x | |
| 2106 lbsr L0415 | |
| 2107 lbeq L1284 | |
| 2108 lbsr L073F | |
| 2109 ldd <u0024 | |
| 2110 lbsr L0770 | |
| 2111 lbsr L0716 | |
| 2112 ldd <u002D | |
| 2113 std <u0024 | |
| 2114 lda #$45 | |
| 2115 sta <u0026 | |
| 2116 pulu pc,u | |
| 2117 L11C5 ldd #$0001 | |
| 2118 lbsr L0770 | |
| 2119 cmpx <u0016 | |
| 2120 beq L11D2 | |
| 2121 lbra L126C | |
| 2122 L11D2 ldy <u0012 | |
| 2123 leay >$0089,y | |
| 2124 L11D9 ldx ,y++ | |
| 2125 beq L11E4 | |
| 2126 jsr ,x | |
| 2127 os9 F$UnLink | |
| 2128 bra L11D9 | |
| 2129 L11E4 ldx <u0018 | |
| 2130 ldd <u001C | |
| 2131 subd <u0018 | |
| 2132 tfr d,y | |
| 2133 L11EC ldd <u0002 | |
| 2134 cmpb #$00 | |
| 2135 beq L1261 | |
| 2136 os9 I$Write | |
| 2137 bcs L1263 | |
| 2138 ldx <u0014 | |
| 2139 ldd <u001E | |
| 2140 subd <u0014 | |
| 2141 tfr d,y | |
| 2142 ldd <u0000 | |
| 2143 cmpb #$00 | |
| 2144 beq L1261 | |
| 2145 os9 I$Read | |
| 2146 bcc L11EC | |
| 2147 cmpb #$D3 | |
| 2148 bne L1263 | |
| 2149 tst <u0036 | |
| 2150 beq L1261 | |
| 2151 ldd <u001E | |
| 2152 subd <u0014 | |
| 2153 os9 F$Mem | |
| 2154 bcs L1263 | |
| 2155 lda <u0000 | |
| 2156 os9 I$Close | |
| 2157 bcs L1263 | |
| 2158 lda <u0002 | |
| 2159 os9 I$Close | |
| 2160 bcs L1263 | |
| 2161 ldx <u0032 | |
| 2162 os9 I$Delete | |
| 2163 bcs L1261 | |
| 2164 ldy <u0032 | |
| 2165 L1233 ldx <u0032 | |
| 2166 L1235 lda ,y+ | |
| 2167 sta ,x+ | |
| 2168 cmpa #$2F | |
| 2169 beq L1233 | |
| 2170 cmpa #$0D | |
| 2171 bne L1235 | |
| 2172 ldy <u0012 | |
| 2173 leax >$00FE,y | |
| 2174 tfr x,u | |
| 2175 lbsr L0130 | |
| 2176 leax >$00F7,y | |
| 2177 tfr d,y | |
| 2178 ldd #$0100 | |
| 2179 os9 F$Fork | |
| 2180 bcs L1263 | |
| 2181 os9 F$Wait | |
| 2182 tstb | |
| 2183 bne L1263 | |
| 2184 L1261 ldb #$00 | |
| 2185 L1263 os9 F$Exit | |
| 2186 L1266 ldb #$00 | |
| 2187 L1268 fcb $8C | |
| 2188 L1269 fdb $C60B | |
| 2189 fcb $8C | |
| 2190 L126C fdb $C613 | |
| 2191 fcb $8C | |
| 2192 L126F fdb $C622 | |
| 2193 L1271 fcb $8C | |
| 2194 L1272 fdb $C633 | |
| 2195 fcb $8C | |
| 2196 L1275 fdb $C641 | |
| 2197 fcb $8C | |
| 2198 L1278 fdb $C64F | |
| 2199 fcb $8C | |
| 2200 L127B fdb $C659 | |
| 2201 fcb $8C | |
| 2202 L127E fdb $C65F | |
| 2203 fcb $8C | |
| 2204 L1281 fdb $C66D | |
| 2205 fcb $8C | |
| 2206 L1284 fdb $C67C | |
| 2207 fcb $8C | |
| 2208 L1287 fdb $C687 | |
| 2209 fcb $8C | |
| 2210 L128A fdb $C694 | |
| 2211 fcb $8C | |
| 2212 L128D fdb $C694 | |
| 2213 fcb $8C | |
| 2214 L1290 fdb $C6A5 | |
| 2215 lda #$FF | |
| 2216 sta <u0023 | |
| 2217 inc <u003E | |
| 2218 leax >L12C9,pcr | |
| 2219 clra | |
| 2220 leax d,x | |
| 2221 lbsr L00EF | |
| 2222 lbsr L00FF | |
| 2223 lbra L0292 | |
| 2224 L12A8 ldb #$D7 | |
| 2225 L12AA inc <u003E | |
| 2226 pshs b | |
| 2227 leax <L12C5,pcr | |
| 2228 ldy #$0004 | |
| 2229 lda <u000B | |
| 2230 os9 I$Write | |
| 2231 puls b | |
| 2232 os9 F$PErr | |
| 2233 lbsr L00FF | |
| 2234 lbra L0292 | |
| 2235 L12C5 fcc "OS9 " | |
| 2236 L12C9 fcc "BAD NUMBER" | |
| 2237 fcb C$CR | |
| 2238 fcc "WHAT ??" | |
| 2239 fcb C$CR | |
| 2240 fcc "* NOT BUF #1 *" | |
| 2241 fcb C$CR | |
| 2242 fcc "*WORKSPACE FULL*" | |
| 2243 fcb C$CR | |
| 2244 fcc "MISSING DELIM" | |
| 2245 fcb C$CR | |
| 2246 fcc "*FILE CLOSED*" | |
| 2247 fcb C$CR | |
| 2248 L1318 fcc "NOT FOUND" | |
| 2249 fcb C$CR | |
| 2250 fcc "BREAK" | |
| 2251 fcb C$CR | |
| 2252 fcc "MACRO IS OPEN" | |
| 2253 fcb C$CR | |
| 2254 fcc "BAD MACRO NAME" | |
| 2255 fcb C$CR | |
| 2256 fcc "DUPL MACRO" | |
| 2257 fcb C$CR | |
| 2258 fcc "BAD VAR LIST" | |
| 2259 fcb C$CR | |
| 2260 fcc "BRACKET MISMATCH" | |
| 2261 fcb C$CR | |
| 2262 fcc "UNDEFINED VAR" | |
| 2263 fcb C$CR | |
| 2264 L137C fcc "*END OF TEXT*" | |
| 2265 fcb C$CR | |
| 2266 L138A fcc "*END OF FILE*" | |
| 2267 fcb C$CR | |
| 2268 L1398 fcc "*FAIL*" | |
| 2269 fcb C$CR | |
| 2270 L139F fcc "RENAME " | |
| 2271 fcb C$CR | |
| 2272 L13A7 fcc "SCRATCH " | |
| 2273 fcb C$CR | |
| 2274 L13B0 fcc "EDTP2" | |
| 2275 fcb C$CR | |
| 2276 L13B6 fcc "EDTLIB1" | |
| 2277 fcb C$CR | |
| 2278 L13BE fcc "MACROS:" | |
| 2279 fcb C$CR | |
| 2280 L13C6 fcc "BUFFERS:" | |
| 2281 fcb C$CR | |
| 2282 L13CF fcc "MAC$" | |
| 2283 fcb C$CR | |
| 2284 fdb $07FB | |
| 2285 fcc "EOF" | |
| 2286 fcb C$CR | |
| 2287 fdb $1111 | |
| 2288 fcc "NEOF" | |
| 2289 fcb C$CR | |
| 2290 fdb $110B | |
| 2291 fcc "EOB" | |
| 2292 fcb C$CR | |
|
2676
f1ec894ef120
Remove extra junk after operand
William Astle <lost@l-w.ca>
parents:
1325
diff
changeset
|
2293 fdb $10DE |
| 195 | 2294 fcc "NEOB" |
| 2295 fcb C$CR | |
| 2296 fdb $10d6 | |
| 2297 fcc "EOL" | |
| 2298 fcb C$CR | |
| 2299 fdb $10c8 | |
| 2300 fcc "NEOL" | |
| 2301 fcb C$CR | |
| 2302 fdb $10ba | |
| 2303 fcc "ZERO#" | |
| 2304 fcb C$CR | |
| 2305 fdb $1117 | |
| 2306 fcc "STAR#" | |
| 2307 fcb C$CR | |
| 2308 fdb $111d | |
| 2309 fcc "STR$" | |
| 2310 fcb C$CR | |
| 2311 fdb $10e6 | |
| 2312 fcc "NSTR$" | |
| 2313 fcb C$CR | |
| 2314 fdb $10ec | |
| 2315 fcc "DIR" | |
| 2316 fcb C$CR | |
| 2317 fdb $0843 | |
| 2318 fcc "S" | |
| 2319 fcb C$CR | |
| 2320 fdb $1135 | |
| 2321 fcc "F" | |
| 2322 fcb C$CR | |
| 2323 fdb $1140 | |
| 2324 fcc "SEARCH#$" | |
| 2325 fcb C$CR | |
| 2326 fdb $0a96 | |
| 2327 fcc "CHANGE#$$" | |
| 2328 fcb C$CR | |
| 2329 fdb $0a9e | |
| 2330 fcc "LOAD$" | |
| 2331 fcb C$CR | |
| 2332 fdb $0e25 | |
| 2333 fcc "SAVE$$" | |
| 2334 fcb C$CR | |
| 2335 fdb $0ee5 | |
| 2336 fcc "SIZE" | |
| 2337 fcb C$CR | |
| 2338 fdb $07a3 | |
| 2339 fcc "DEL$" | |
| 2340 fcb C$CR | |
| 2341 fdb $08a5 | |
| 2342 fcc "READ$" | |
| 2343 fcb C$CR | |
| 2344 fdb $0db6 | |
| 2345 fcc "WRITE$" | |
| 2346 fcb C$CR | |
| 2347 fdb $0ded | |
| 2348 fcc "SHELL L" | |
| 2349 fcb C$CR | |
| 2350 fdb $08e7 | |
| 2351 fcc "NEW" | |
| 2352 fcb C$CR | |
| 2353 fdb $0f8f | |
| 2354 | |
| 2355 fcb $00 | |
| 2356 L1482 fdb $4123,$0d09,$b44c,$230d,$0974,$5823,$0d09 | |
| 2357 fdb $8e2b,$230d,$1050,$2d23,$0d10,$7644,$230d,$0faa | |
| 2358 fdb $4523,$240d,$0ac6,$3c23,$0d10,$1c3e,$230d,$1037 | |
| 2359 fdb $4923,$240d,$0b5e,$4b23,$0d0f,$d653,$2324,$0d0a | |
| 2360 fdb $ad43,$2324,$240d,$0aa6,$550d,$0ffc,$5423,$0d0b | |
| 2361 fdb $2842,$230d,$07c5,$5e0d,$1097,$2f0d,$109d,$4d23 | |
| 2362 fdb $0d07,$8a56,$230d,$0912,$4723,$0d0c,$4450,$230d | |
| 2363 fdb $0cb1,$5b0d,$092e,$5d23,$0d09,$483a,$0d10,$a352 | |
| 2364 fdb $230d,$0d0f,$5723,$0d0d,$7b21,$4c0d,$114b,$510d | |
| 2365 fdb $114d | |
| 2366 fcb $00 | |
| 2367 | |
| 2368 emod | |
| 2369 eom equ * | |
| 2370 end | |
| 2371 |