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