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