LOAD EDIT. 1 1.ASM BLOAD E1.ASM,A$1800 FILE NOT FOUND !L 1 ORG $7200 2 OBJ $800 3 NLS 4 JMP START 5 JMP INIT 6 SAVE HEX 00 7 LOAD HEX 00 8 STATUS HEX 00 9 CP/FLG HEX 00 10 LIM/Z EPZ $1C 11 NUM EPZ $1A 12 POS/Z EPZ $FA 13 CUR/Z EPZ $FC 14 FIN/Z EPZ $FE 15 COM/Z EPZ $18 16 Z3C EPZ $3C 17 Z3E EPZ $3E 18 Z42 EPZ $42 19 KEY/LK EQU $1EE1 20 MAR/LK EQU $1EE2 21 ALL/KS EQU $1EE3 22 LLEN EQU $1EE4 23 JERKY EQU $1EE5 24 MARKER EQU $1EF4 25 ; 26 SFINIT EQU $E00 27 BTINIT EQU $E03 28 KYINIT EQU $E09 29 SCR/CD EQU $E0F 30 KEYSET EQU $E1E 31 CLEAR EQU $E27 32 MEMOVE EQU $E2A 33 CONFIG EQU $1E00 34 IN/ROM EQU $FD18 35 PRMON EQU $FDED 36 AUXMOV EQU $C311 37 BEEP EQU $FBDD 38 BLMOVE EQU $FE2C 39 ST EQU $8200 40 DECBF EQU $9340 41 LOCBUF EQU $9348 42 DIR EQU $9500 43 SCR/FG EQU $1E00 44 SCR/SL EQU $1E01 45 VOC/FG EQU $1E02 46 VOC/SL EQU $1E03 47 BRL/FG EQU $1E04 48 BRL/SL EQU $1E05 49 PRT/FG EQU $1E06 50 PRT/SL EQU $1E07 51 SCR/TY EQU $1E08 52 VOC/TY EQU $1E09 53 SCR/AX EQU $1E0C 54 VOC/AX EQU $1E0D 55 CENTER EQU $1E10 56 SPECOM EQU $1E12 57 ALLCON EQU $1E13 58 MODE^ EQU $1E11 59 SCR/ED EQU $1E14 60 SCR/CZ EQU $1E15 61 KEY/TY EQU $1E19 62 KEYCON EQU $1E39 63 KEY/AX EQU $1E1A 64 LEARN EQU $1E40 65 ROM/PG EQU $1E4C 66 DRIVER EQU $1E50 67 LASTS EQU $1E5B 68 CLIPPT EQU $1E5E 69 COMPUT EQU $1E60 70 MEMOR EQU $1E68 71 COD/LT EQU $1E6D 72 MODULE EQU $1EEC 73 MEM/WH EQU $1EED 74 MEM/NM EQU $1EEE 75 MEM/DR EQU $1EEF 76 PSX EQU $140 77 PSY EQU PSX+1 78 PSL EQU PSX+2 79 XLIM EQU PSX+3 80 LASTCH EQU PSX+4 81 S/WID EQU PSX+8 82 S/LEN EQU PSX+9 83 S/FORM EQU PSX+10 84 S/INC EQU PSX+11 85 S/SZL EQU PSX+12 86 S/SZH EQU PSX+13 87 S/BPSL EQU PSX+14 88 S/BPSY EQU PSX+15 89 PIT/SQ EQU $1FE8 90 TERMCH HEX 8D8D8B8D 91 IS/NC HEX 0000 92 ISV HEX 0000 93 TEMP HEX 00 94 INFLAG HEX 00 95 COMAND HEX 00 96 ADD/Y HEX 00 97 BRK/Y HEX 00 98 CLIPBT HEX 00 99 CLIPTP HEX 00 100 ABSTOP HEX 00 101 SV/PIT HEX 00 102 SAVEX HEX 00 103 SAVEY HEX 00 104 LF/B HEX 00 105 LIT$p ASC ' $p ' 106 LIT$s ASC ' $s ' 107 LIT$l ASC ' $l ' 108 ; 109 ; 110 ICL "EDIT2.ASM" !LOAD EDIT2.ASM BLOAD EDIT2.ASM,A$1800 !L 1 ; 2 ; 3 START JSR EC/LOC 4 LDA CP/FLG 5 BEQ DISB0 6 LDX SAVE 7 INX 8 STX LOAD 9 JSR INFIN 10 LDA COM/Z 11 STA NUM 12 SEC 13 LDA COM/Z+1 14 SBC /ST 15 STA NUM+1 16 JSR COND/7 17 LDA #$00 18 STA CP/FLG 19 DISB0 LDX #$40 20 STX $1E5A 21 STX CENTER 22 JSR PAG/AN 23 JSR CRREAL 24 JSR DISBUF 25 LOOP LDA #$80 26 STA CENTER 27 STA SCR/CZ 28 JSR KEYSET 29 JSR FIXNC 30 JSR STLN 31 JSR CUR/XY 32 JSR CHARIN 33 LDX KEY/LK 34 BEQ NMKY 35 CMP #$0D 36 BEQ LOOP 37 AND #$1F 38 STA LASTCH 39 NMKY CMP #$0D 40 BEQ PUTIN 41 CMP #$1B 42 BCS PUTIN 43 JSR CUR/XY 44 LDX #$8D 45 STX LASTS 46 JSR PRMON 47 LDA LASTCH 48 LDY INFLAG 49 BEQ NOTINS 50 CMP #$08 51 BEQ NOTINS 52 CMP #$03 53 BEQ NOTINS 54 JSR CONIF 55 NOTINS JSR EX 56 JSR GOVER 57 LDA COMAND 58 CMP #$08 59 BEQ LOOP 60 CMP #$15 61 BEQ LOOP 62 JSR SOUND 63 JMP LOOP 64 PUTIN JSR CHR/IN 65 JSR GOVER 66 JMP LOOP 67 ; 68 INIT JSR INFIN 69 JSR BGPSCR 70 INITW LDA #$00 71 STA MODE^ 72 STA KEY/AX 73 LDA CLIPPT+1 74 AND #$0F 75 STA CLIPPT+1 76 LDA #$70 77 STA CLIPBT 78 LDA #$10 79 STA CLIPTP 80 LDA MEMOR 81 BMI ISBIG 82 LDA #$1B 83 STA CLIPBT 84 LDA #$03 85 STA CLIPTP 86 ISBIG LDA SCR/ED 87 STA SCR/TY 88 LDA #$80 89 STA ALLCON 90 STA SPECOM 91 JMP BTINIT 92 PTOY LDA LOAD 93 PTOY1 STA DIR+2 94 CLC 95 ASL 96 ADC DIR+2 97 TAY 98 RTS 99 NEWPAG LDX DIR 100 INX 101 STX LOAD 102 NEW/PG LDA #$00 103 STA TEMP 104 NWP1 INC TEMP 105 LDX DIR 106 NWP2 TXA 107 JSR PTOY1 108 LDA DIR,Y 109 CMP TEMP 110 BEQ NWP1 111 DEX 112 BNE NWP2 113 JSR PTOY 114 LDA TEMP 115 STA DIR,Y 116 LDA #$00 117 STA DIR+1,Y 118 STA DIR+2,Y 119 RTS 120 ; 121 INFIN JSR PTOY 122 LDA DIR+1,Y 123 STA FIN/Z 124 LDA DIR+2,Y 125 CLC 126 ADC /ST 127 STA FIN/Z+1 128 RTS 129 ; 130 OUTFIN JSR PTOY 131 LDA FIN/Z 132 STA DIR+1,Y 133 SEC 134 LDA FIN/Z+1 135 SBC /ST 136 STA DIR+2,Y 137 RTS 138 ; 139 DISBUF JSR CLRALL 140 JSR POSCOM 141 IN/DIS LDA #$80 142 STA CENTER 143 DB/LP LDA PSL 144 CMP S/FORM 145 BEQ DB/FN 146 JSR COM/FN 147 BEQ DB/FN 148 LDX #$8D 149 STX LASTS 150 LDA INFLAG 151 BEQ DIS/R 152 LDA COM/Z 153 CMP CUR/Z 154 LDA COM/Z+1 155 SBC CUR/Z+1 156 BCC DIS/R 157 LDA #$5F 158 BNE DIS/U 159 DIS/R LDY #$00 160 LDA (COM/Z),Y 161 DIS/U JSR PRMON 162 JSR COM/IN 163 JSR KEYSET 164 JMP DB/LP 165 DB/FN RTS 166 CRREAL LDX #$00 167 STX ALLCON 168 LDA #$8D 169 JSR PRMON 170 LDX #$80 171 STX ALLCON 172 RTS 173 CHARIN STX SAVEX 174 STY SAVEY 175 LDY $24 176 LDA ($28),Y 177 JSR IN/ROM 178 CHAR0 AND #$7F 179 PHA 180 LDX ALL/KS 181 BEQ CHAR2 182 JSR LAUER/ 183 CHAR2 LDX SAVEX 184 LDY SAVEY 185 PLA 186 RTS 187 ; 188 CRMNPS SEC 189 LDA CUR/Z 190 SBC POS/Z 191 STA COM/Z 192 LDA CUR/Z+1 193 SBC POS/Z+1 194 STA COM/Z+1 195 RTS 196 CUR/XY JSR CRMNPS 197 LDA COM/Z 198 STA PSX 199 LDA #$00 200 STA PSL 201 STA PSY 202 CUR/LP LDA PSX 203 CMP S/WID 204 LDA COM/Z+1 205 SBC #$00 206 BCC CXY/FN 207 CLC 208 LDA PSY 209 ADC S/INC 210 STA PSY 211 INC PSL 212 SEC 213 LDA PSX 214 SBC S/WID 215 STA PSX 216 BCS CUR/LP 217 DEC COM/Z+1 218 JMP CUR/LP 219 CXY/FN JSR HAT 220 LDY #$00 221 LDA (CUR/Z),Y 222 JSR CUR/FN 223 BNE XY/4 224 LDA #$20 225 LDX #$00 226 XY/4 RTS 227 HAT LDA PSX 228 STA $24 229 STA $57B 230 LDA PSL 231 STA $25 232 JMP $FBC1 233 ; 234 ; 235 CHR/IN JSR FIXNC 236 LDX FIN/Z+1 237 CPX #$92 238 BNE CHR1 239 JSR CONIF 240 JMP BEEP 241 CHR1 JSR CUR/XY 242 LDA LASTCH 243 LDY #$00 244 STA (CUR/Z),Y 245 LDX #$8D 246 STX LASTS 247 JSR PRMON 248 JSR CXY/FN 249 BNE CHR2 250 JSR FIN/IN 251 CHR2 JSR CUR/IN 252 RTS 253 ; 254 WD/NMF JSR CURCOM 255 LDA COMAND 256 CMP #$04 257 BNE WD/NF1 258 LDA LASTCH 259 CMP #$0C 260 BEQ WD/NF1 261 CMP #$10 262 BEQ WD/NF1 263 CMP #$14 264 BEQ WD/NF1 265 JSR WRD/B0 266 JSR COMCUR 267 WD/NF1 JSR WRD/FO 268 BEQ WD/NF2 269 JSR NUM/DN 270 BNE WD/NF1 271 WD/NF2 SEC 272 LDA COM/Z 273 SBC CUR/Z 274 STA NUM 275 LDA COM/Z+1 276 SBC CUR/Z+1 277 STA NUM+1 278 RTS 279 ; 280 WD/NMB JSR CURCOM 281 WD/NB1 JSR WRD/BK 282 BEQ WD/NB2 283 JSR NUM/DN 284 BNE WD/NB1 285 WD/NB2 SEC 286 LDA CUR/Z 287 SBC COM/Z 288 STA NUM 289 LDA CUR/Z+1 290 SBC COM/Z+1 291 STA NUM+1 292 RTS 293 ; 294 NUM/DN LDA NUM 295 BNE NUM/D2 296 DEC NUM+1 297 NUM/D2 DEC NUM 298 LDA NUM 299 BNE NUM/D3 300 LDA NUM+1 301 NUM/D3 RTS 302 ; 303 BGPSCR LDA #$00 304 STA POS/Z 305 STA CUR/Z 306 LDA /ST 307 STA POS/Z+1 308 STA CUR/Z+1 309 RTS 310 ; 311 COMLIM LDA COM/Z 312 STA LIM/Z 313 LDA COM/Z+1 314 STA LIM/Z+1 315 RTS 316 ; 317 POSCOM LDA POS/Z 318 STA COM/Z 319 LDA POS/Z+1 320 STA COM/Z+1 321 RTS 322 ; 323 COMPOS LDA COM/Z 324 STA POS/Z 325 LDA COM/Z+1 326 STA POS/Z+1 327 RTS 328 ; 329 WRD/FO JSR COM/FN 330 BEQ WRD/FN 331 JSR COM/IN 332 LDA COM/Z+1 333 CMP #$93 334 BEQ WRD/FN 335 JSR SBREAK 336 BNE WRD/FO 337 LDX #$FF 338 WRD/FN RTS 339 ; 340 WRD/BK JSR COM/BG 341 BEQ WRD/BF 342 JSR COM/DC 343 WRD/B0 JSR SBREAK 344 BNE WRD/BK 345 LDX #$FF 346 WRD/BF RTS 347 ; 348 CURCOM LDA CUR/Z 349 STA COM/Z 350 LDA CUR/Z+1 351 STA COM/Z+1 352 RTS 353 ; 354 COMCUR LDA COM/Z 355 STA CUR/Z 356 LDA COM/Z+1 357 STA CUR/Z+1 358 RTS 359 ; 360 FINCOM LDA FIN/Z 361 STA COM/Z 362 LDA FIN/Z+1 363 STA COM/Z+1 364 RTS 365 ; 366 CRMRNM SEC 367 LDA CUR/Z 368 SBC MARKER 369 STA NUM 370 LDA CUR/Z+1 371 SBC MARKER+1 372 STA NUM+1 373 RTS 374 ; 375 SBREAK LDA LASTCH 376 CMP #$10 377 BEQ PAR/MT 378 CMP #$0C 379 BEQ LIN/MT 380 CMP #$14 381 BEQ SEN/MT 382 BREAK LDY #$00 383 BREAK\ LDA (COM/Z),Y 384 CMP #$20 385 BEQ BR1 386 CMP #$0D 387 BR1 RTS 388 PAR/MT LDY #$03 389 PAR1 LDA (COM/Z),Y 390 CMP LIT$p,Y 391 BEQ PAR2 392 CMP LIT$s,Y 393 BNE PARX 394 PAR2 DEY 395 BPL PAR1 396 LDY #$00 397 PARX RTS 398 LIN/MT LDY #$03 399 LNX LDA (COM/Z),Y 400 CMP LIT$l,Y 401 BNE LIN/NO 402 DEY 403 BPL LNX 404 LDY #$00 405 RTS 406 LIN/NO LDY #$00 407 LDA (COM/Z),Y 408 CMP #$0D 409 RTS 410 SEN/MT JSR BREAK 411 BNE ZSEN 412 JSR COM/DC 413 JSR COM/DC 414 LDY #$01 415 JSR SEN/T1 416 BEQ SEN/YS 417 DEY 418 JSR SEN/T1 419 BNE SEN/NO 420 INY 421 JSR SEN/T2 422 BEQ SEN/YS 423 SEN/NO JSR COM/IN 424 JSR COM/IN 425 ZSEN LDX #$80 426 RTS 427 SEN/YS JSR SEN/NO 428 LDX #$00 429 RTS 430 SEN/T1 LDA (COM/Z),Y 431 CMP '. 432 BEQ SEN/1X 433 CMP '? 434 BEQ SEN/1X 435 CMP '! 436 SEN/1X RTS 437 SEN/T2 LDA (COM/Z),Y 438 CMP '] 439 BEQ SEN/2X 440 CMP ') 441 BEQ SEN/2X 442 CMP '" 443 SEN/2X RTS 444 ; 445 COM/IN INC COM/Z 446 BNE INF1 447 INC COM/Z+1 448 INF1 RTS 449 ; 450 COM/DC LDA COM/Z 451 BNE DCZ1 452 DEC COM/Z+1 453 DCZ1 DEC COM/Z 454 RTS 455 ; 456 CUR/IN INC CUR/Z 457 BNE CRF1 458 INC CUR/Z+1 459 CRF1 RTS 460 ; 461 CUR/DC LDA CUR/Z 462 BNE DCC1 463 DEC CUR/Z+1 464 DCC1 DEC CUR/Z 465 RTS 466 ; 467 FIN/IN INC FIN/Z 468 BNE FF1 469 INC FIN/Z+1 470 FF1 RTS 471 ; 472 CUR/BG LDX CUR/Z 473 BNE BG1 474 LDX CUR/Z+1 475 CPX /ST 476 BG1 RTS 477 ; 478 COM/BG LDX COM/Z 479 BNE BG2 480 LDX COM/Z+1 481 CPX /ST 482 BG2 RTS 483 ; 484 CUR/FN LDX CUR/Z 485 CPX FIN/Z 486 BNE FN1 487 LDX CUR/Z+1 488 CPX FIN/Z+1 489 FN1 RTS 490 ; 491 COM/FN LDX COM/Z 492 CPX FIN/Z 493 BNE FN2 494 LDX COM/Z+1 495 CPX FIN/Z+1 496 FN2 RTS 497 LIM/FN LDX COM/Z 498 CPX LIM/Z 499 BNE FN3 500 LDX COM/Z+1 501 CPX LIM/Z+1 502 FN3 RTS 503 ; 504 CLRALL LDX #$00 505 STX PSL 506 LDX SCR/TY 507 CPX #$06 508 BCS CLRHRS 509 STA $C001 510 JMP $FC58 511 CLRHRS JMP CLEAR 512 ; 513 GOVER JSR KEYSET 514 LDA CUR/Z+1 515 CMP /ST 516 BCS GV2 517 LDA #$00 518 STA CUR/Z 519 LDA /ST 520 STA CUR/Z+1 521 GV2 LDA FIN/Z 522 CMP CUR/Z 523 LDA FIN/Z+1 524 SBC CUR/Z+1 525 BCS GV3 526 GVF2 LDA FIN/Z 527 STA CUR/Z 528 LDA FIN/Z+1 529 STA CUR/Z+1 530 GV3 JSR CRMNPS 531 LDA COM/Z+1 532 BPL GV4 533 GVF3 JSR ARBIT 534 JSR DISBUF 535 GV4 JSR CRMNPS 536 LDA COM/Z 537 CMP S/SZL 538 LDA COM/Z+1 539 SBC S/SZH 540 BCC GV5 541 GVF4 JSR ARBIT 542 JSR DISBUF 543 GV5 RTS 544 ; 545 ARBIT JSR CURCOM 546 LDA S/FORM 547 LSR 548 TAY 549 ARB/LP SEC 550 LDA COM/Z 551 SBC S/WID 552 STA COM/Z 553 BCS ARB7 554 DEC COM/Z+1 555 ARB7 DEY 556 BNE ARB/LP 557 JSR COMPOS 558 LDA POS/Z+1 559 CMP /ST 560 BCS ARB3 561 LDA #$00 562 STA POS/Z 563 LDA /ST 564 STA POS/Z+1 565 ARB3 RTS 566 ; 567 EX LDA #$00 568 STA PSX 569 LDY S/BPSL 570 SEC 571 LDA S/BPSY 572 LDX SCR/TY 573 CPX #$0A 574 BCS EXY 575 SBC S/INC 576 DEY 577 EXY STA PSY 578 STY PSL 579 JSR V24FIX 580 CLC 581 LDA LASTCH 582 ADC #$40 583 JSR PRMON 584 LDA LASTCH 585 STA COMAND 586 ASL 587 TAY 588 LDA COMT+1,Y 589 PHA 590 LDA COMT,Y 591 PHA 592 RTS 593 ; 594 V24FIX PHA 595 LDA PSX 596 STA $24 597 STA $57B 598 LDA PSL 599 STA $25 600 JSR $FBC1 601 PLA 602 RTS 603 ; 604 COMT ADR BEEP-1 605 ADR CONA-1 606 ADR CONB-1 607 ADR CONC-1 608 ADR COND-1 609 ADR CONE-1 610 ADR BEEP-1 611 ADR CONG-1 612 ADR CONH-1 613 ADR CONI-1 614 ADR CONJ-1 615 ADR CONK-1 616 ADR CONL-1 617 ADR BEEP-1 618 ADR CONN-1 619 ADR CONO-1 620 ADR CONP-1 621 ADR CONQ-1 622 ADR CONR-1 623 ADR CONS-1 624 ADR CONT-1 625 ADR CONU-1 626 ADR CONV-1 627 ADR CONW-1 628 ADR CONX-1 629 ADR CONY-1 630 ADR CONZ-1 631 ; 632 CONA JSR NUM/GF 633 LDA LASTCH 634 AND #$1F 635 CMP #$13 636 BEQ CONAS 637 CLC 638 LDA CUR/Z 639 ADC NUM 640 STA CUR/Z 641 LDA CUR/Z+1 642 ADC NUM+1 643 STA CUR/Z+1 644 RTS 645 ; 646 CONAS CLC 647 LDA POS/Z 648 ADC S/SZL 649 TAX 650 LDA POS/Z+1 651 ADC S/SZH 652 CMP FIN/Z+1 653 BCC CF1 654 BNE CF2 655 CPX FIN/Z 656 BCC CF1 657 CF2 JMP BEEP 658 CF1 STA POS/Z+1 659 STA CUR/Z+1 660 STX POS/Z 661 STX CUR/Z 662 JMP DISBUF 663 ; 664 CONB JSR HYPER 665 JSR CRMRNM 666 CLC 667 LDA CLIPPT+1 668 ADC CLIPBT 669 STA ABSTOP 670 JSR CHARIN 671 AND #$1F 672 CMP #$01 673 BNE CONB2 674 ; 675 CONB1 JSR HYPERL 676 LDA NUM+1 677 BMI CONB1E 678 CLC 679 LDA NUM 680 ADC CLIPPT 681 LDA NUM+1 682 ADC CLIPPT+1 683 CMP CLIPTP 684 BCC CONBOK 685 JMP DBLBEP 686 CONB1E JMP TRPBEP 687 CONBOK LDA MAR/LK 688 BEQ CONB1E 689 LDA MARKER 690 STA $3C 691 LDA MARKER+1 692 STA $3D 693 LDA CUR/Z 694 STA $3E 695 LDA CUR/Z+1 696 STA $3F 697 LDA CLIPPT 698 STA $42 699 LDA ABSTOP 700 STA $43 701 SEC 702 JSR BMOVE 703 CLC 704 LDA NUM 705 ADC CLIPPT 706 STA CLIPPT 707 LDA NUM+1 708 ADC CLIPPT+1 709 STA CLIPPT+1 710 RTS 711 ; 712 CONB2 CMP #$03 713 BNE CONB88 714 JSR HYPERL 715 LDA #$00 716 STA CLIPPT 717 STA CLIPPT+1 718 LDA CLIPBT 719 STA ABSTOP 720 JMP CONB1 721 ; 722 CONB88 CMP #$04 723 BNE CONB3 724 JMP COND/B 725 CONB3 CMP #$18 726 BNE CONB4 727 JSR HYPERM 728 JSR HYPERL 729 LDA #$08 730 STA MEM/WH 731 LDA #$01 732 STA MEM/NM 733 LDA #$00 734 STA MEM/DR 735 JSR MEMOVE 736 INC MEM/DR 737 LDA #$03 738 STA MEM/WH 739 JSR MEMOVE 740 LDA #$00 741 STA MAR/LK 742 STA $3C 743 STA $42 744 LDA #$FF 745 STA $3E 746 LDA #$20 747 STA $3D 748 LDA #$82 749 STA $43 750 LDA #$2F 751 STA $3F 752 JSR MOVEB 753 JSR BGPSCR 754 LDA FIN/Z+1 755 PHA 756 LDA FIN/Z 757 PHA 758 LDA CLIPPT 759 STA FIN/Z 760 LDA CLIPPT+1 761 CLC 762 ADC #$82 763 STA FIN/Z+1 764 PLA 765 STA CLIPPT 766 PLA 767 SEC 768 SBC #$82 769 STA CLIPPT+1 770 JMP DISBUF 771 ; 772 TRPBEP JSR BEEP 773 DBLBEP JSR BEEP 774 CONBEP JMP BEEP 775 CONB4 CMP #$09 776 BNE CONB5 777 JSR HYPERL 778 CLC 779 LDA CLIPPT 780 ADC FIN/Z 781 LDA CLIPPT+1 782 ADC FIN/Z+1 783 CMP #$92 784 BCS DBLBEP 785 JSR CONI/ 786 LDA #$00 787 STA $3C 788 LDA CLIPBT 789 STA $3D 790 LDA CLIPPT 791 STA $3E 792 LDA ABSTOP 793 STA $3F 794 LDA CUR/Z 795 STA $42 796 LDA CUR/Z+1 797 STA $43 798 CLC 799 JSR BMOVE 800 CLC 801 LDA CLIPPT 802 ADC FIN/Z 803 STA FIN/Z 804 LDA CLIPPT+1 805 ADC FIN/Z+1 806 STA FIN/Z+1 807 CLC 808 LDA CLIPPT 809 ADC CUR/Z 810 STA CUR/Z 811 LDA CLIPPT+1 812 ADC CUR/Z+1 813 STA CUR/Z+1 814 JMP CONIF 815 ; 816 CONB5 CMP #$0C 817 BNE CONB6 818 CONB5D LDA MAR/LK 819 BEQ TRPBEP 820 LDA MARKER 821 STA CUR/Z 822 LDA MARKER+1 823 STA CUR/Z+1 824 RTS 825 ; 826 CONB6 CMP #$13 827 BNE CONB7 828 LDA CUR/Z 829 STA MARKER 830 LDA CUR/Z+1 831 STA MARKER+1 832 STA MAR/LK 833 RTS 834 ; 835 CONB7 CMP #$12 836 BEQ CONB7G 837 JMP BEEP 838 CONB7G LDX #$00 839 STX CENTER 840 JSR HYPERL 841 JSR CLRALL 842 LDX #$3C 843 JSR LITER 844 JSR CHARIN 845 AND #$5F 846 CMP #$59 847 BEQ CONB7S 848 JSR BEEP 849 JMP DISBUF 850 CONB7S LDA #$FF 851 STA CLIPPT 852 LDX CLIPTP 853 DEX 854 STX CLIPPT+1 855 JMP DISBUF 856 ; 857 BMOVE LDY MEMOR 858 BMI AUXM 859 LDY #$00 860 STY DRIVER 861 JMP $FE2C 862 AUXM JMP AUXMOV 863 ; 864 CONC JSR HYPER 865 JSR CHARIN 866 CMP #$10 867 BEQ CUTPAG 868 AND #$1F 869 STA LASTCH 870 JMP CHR/IN 871 ; 872 CUTPAG JSR PTOY 873 STY TEMP 874 LDX DIR 875 INX 876 TXA 877 JSR PTOY1 878 CQ1 LDA DIR-1,Y 879 STA DIR+2,Y 880 DEY 881 CPY TEMP 882 BNE CQ1 883 JSR CURCOM 884 INC LOAD 885 INC DIR 886 JSR NEW/PG 887 JSR OUTFIN 888 LDA CUR/Z 889 STA FIN/Z 890 LDA CUR/Z+1 891 STA FIN/Z+1 892 DEC LOAD 893 JSR OUTFIN 894 LDA LOAD 895 STA SAVE 896 LDA #$00 897 STA LOAD 898 LDA #$80 899 STA STATUS 900 STA CP/FLG 901 PLA 902 PLA 903 COND/Q RTS 904 ; 905 COND JSR HYPER 906 JSR NUM/GF 907 LDA LASTCH 908 CMP #$01 909 BEQ COND/A 910 CMP #$1A 911 BEQ COND/Z 912 LDA NUM 913 BNE COND/1 914 LDA NUM+1 915 BEQ COND/Q 916 CMP #$10 917 BNE COND/1 918 LDX #$00 919 STX NUM+1 920 INX 921 STX NUM 922 COND/1 SEC 923 LDA FIN/Z 924 SBC NUM 925 TAX 926 LDA FIN/Z+1 927 SBC NUM+1 928 PHA 929 TXA 930 CMP CUR/Z 931 PLA 932 SBC CUR/Z+1 933 BCS COND/7 934 COND1B JMP BEEP 935 COND/A JSR FINCOM 936 COND\A JSR WD/NF2 937 JMP COND/7 938 COND/Z JSR CURCOM 939 JSR BGPSCR 940 JMP COND\A 941 ; 942 CDYY JMP TRPBEP 943 COND/B LDA MAR/LK 944 BEQ CDYY 945 LDA NUM+1 946 BMI CDYY 947 JSR CONB5D 948 COND/7 LDA CUR/Z 949 STA Z42 950 LDA CUR/Z+1 951 STA Z42+1 952 LDA FIN/Z 953 STA Z3E 954 LDA FIN/Z+1 955 STA Z3E+1 956 CLC 957 LDA CUR/Z 958 ADC NUM 959 STA Z3C 960 LDA CUR/Z+1 961 ADC NUM+1 962 STA Z3C+1 963 SEC 964 LDA FIN/Z 965 SBC NUM 966 STA FIN/Z 967 LDA FIN/Z+1 968 SBC NUM+1 969 STA FIN/Z+1 970 JSR MOVEB 971 LDA #$00 972 STA MAR/LK 973 JMP DISBUF 974 ; 975 CONE LDA $1E02 976 BEQ CONEBP 977 LDA #$40 978 STA CENTER 979 LDA #$85 980 JSR PRMON 981 CONSO LDA #$40 982 STA CENTER 983 JSR CHARIN 984 JSR PRMON 985 AND #$7F 986 CMP #$0D 987 BNE CONSO 988 LOSE RTS 989 CONEBP JMP BEEP 990 ; 991 CONG JSR G/SET 992 JSR VOICE 993 JMP COMCUR 994 ; 995 CONH JSR CUR/DC 996 JMP LAUER 997 ; 998 CONI JSR CONI/ 999 JSR CUR/XY 1000 JSR CURCOM 1001 LDA $1EFF 1002 BNE LOSE 1003 JMP IN/DIS 1004 ; 1005 CONI/ JSR HYPER 1006 LDA FIN/Z 1007 STA Z3C 1008 LDA FIN/Z+1 1009 STA Z3C+1 1010 LDA #$00 1011 STA Z42 1012 LDA #$92 1013 STA Z42+1 1014 LDA CUR/Z 1015 STA Z3E 1016 LDA CUR/Z+1 1017 STA Z3E+1 1018 JSR MOVEF 1019 SEC 1020 LDA FIN/Z 1021 SBC CUR/Z 1022 STA IS/NC 1023 LDA FIN/Z+1 1024 SBC CUR/Z+1 1025 STA IS/NC+1 1026 LDA #$80 1027 STA INFLAG 1028 RTS 1029 ; 1030 CONIF LDA INFLAG 1031 BEQ NOX 1032 SEC 1033 LDA #$00 1034 SBC IS/NC 1035 STA Z3C 1036 LDA #$92 1037 SBC IS/NC+1 1038 STA Z3C+1 1039 LDA CUR/Z 1040 STA Z42 1041 LDA CUR/Z+1 1042 STA Z42+1 1043 LDA #$FF 1044 STA Z3E 1045 LDA #$91 1046 STA Z3E+1 1047 JSR MOVEB 1048 LDA #$00 1049 STA INFLAG 1050 JSR DISBUF 1051 STA MAR/LK 1052 NOX RTS 1053 ; 1054 FIXNC LDA INFLAG 1055 BEQ NIXIN 1056 CLC 1057 LDA CUR/Z 1058 ADC IS/NC 1059 STA FIN/Z 1060 LDA CUR/Z+1 1061 ADC IS/NC+1 1062 STA FIN/Z+1 1063 RTS 1064 NIXIN LDY #$00 1065 LDA #$20 1066 STA (FIN/Z),Y 1067 RTS 1068 ; 1069 CONJ CLC 1070 LDA CUR/Z 1071 ADC S/WID 1072 STA CUR/Z 1073 BCC CONJX 1074 INC CUR/Z+1 1075 CONJX RTS 1076 ; 1077 CONK SEC 1078 LDA CUR/Z 1079 SBC S/WID 1080 STA CUR/Z 1081 BCS CONKX 1082 DEC CUR/Z+1 1083 CONKX RTS 1084 ; 1085 CONL JSR LDLBUF 1086 BMI CONLQQ 1087 JSR CURCOM 1088 JMP CONL2 1089 ; 1090 CONLTP LDY LLEN 1091 DEY 1092 CONLL LDA (COM/Z),Y 1093 CMP LOCBUF,Y 1094 BNE CONL2 1095 DEY 1096 BPL CONLL 1097 ; 1098 JSR COMCUR 1099 LDX #$40 1100 STX CENTER 1101 JSR CUR/AN 1102 JMP CRREAL 1103 ; 1104 CONL2 LDA LF/B 1105 BNE CONL3 1106 JSR COM/FN 1107 BEQ CONLQQ 1108 JSR COM/IN 1109 JSR COM/FN 1110 BNE CONLTP 1111 CONLQQ JMP BEEP 1112 ; 1113 CONL3 JSR COM/BG 1114 BEQ CONLQQ 1115 JSR COM/DC 1116 JMP CONLTP 1117 ; 1118 LDLBUF LDY #$00 1119 LDL1 JSR CHARIN 1120 CMP #$03 1121 BNE LDL9 1122 JSR CHARIN 1123 AND #$1F 1124 ORA #$80 1125 LDL9 CMP #$01 1126 BEQ LDL/F 1127 CMP #$1A 1128 BEQ LDL/B 1129 CMP #$0D 1130 BEQ LDL66 1131 CMP #$08 1132 BNE LDL88 1133 DEY 1134 BMI LDLBUF 1135 DEC PSX 1136 JSR HAT 1137 JMP LDL1 1138 LDL88 CMP #$20 1139 BCC CLBP 1140 LDL66 AND #$7F 1141 STA LOCBUF,Y 1142 JSR PRSCR 1143 INY 1144 CPY #$30 1145 BNE LDL1 1146 LDX #$80 1147 RTS 1148 LDL/F LDX #$00 1149 BEQ LDL4 1150 LDL/B LDX #$80 1151 LDL4 STX LF/B 1152 CPY #$00 1153 BEQ LDL5 1154 STY LLEN 1155 LDL5 LDY LLEN 1156 RTS 1157 CLBP LDX #$80 1158 CONN RTS 1159 ; 1160 ; 1161 CONO LDA #$93 1162 STA LIM/Z+1 1163 JSR CURCOM 1164 JSR VOICE 1165 JMP COMCUR 1166 ; 1167 CONP JSR OUTFIN 1168 LDA LOAD 1169 STA SAVE 1170 JSR GETNUM 1171 BEQ XYZ 1172 LDA NUM 1173 BEQ SAME 1174 XYZ JSR PFISH 1175 CPX SAVE 1176 BEQ CONPQ 1177 TXA 1178 BEQ CONPQ 1179 STA LOAD 1180 SAME LDA DIR 1181 CMP LOAD 1182 BCS CONP0 1183 JSR NEWPAG 1184 INC DIR 1185 CONP0 LDA #$80 1186 STA STATUS 1187 PLA 1188 PLA 1189 CONPQ RTS 1190 PFISH LDX LOAD 1191 LDA LASTCH 1192 CMP #$01 1193 BEQ P> 1194 CMP #$1A 1195 BEQ P< 1196 LDX NUM 1197 RTS 1198 P> INX 1199 RTS 1200 P< DEX 1201 RTS 1202 ; 1203 CONQ JSR OUTFIN 1204 LDA LOAD 1205 STA SAVE 1206 LDA #$00 1207 STA STATUS 1208 JSR EC/UNL 1209 PLA 1210 PLA 1211 RTS 1212 ; 1213 CONR JSR CURCOM 1214 JSR WRD/BK 1215 JSR COMCUR 1216 JSR G/SET 1217 JMP VOICE 1218 ; 1219 CONS JSR CHARIN 1220 AND #$1F 1221 CMP #$13 1222 BNE CONS1 1223 ; 1224 VID JSR CHARIN 1225 AND #$1F 1226 ORA #$40 1227 STA COD/LT 1228 JSR SCR/CD 1229 LDA SCR/TY 1230 STA SCR/ED 1231 STA SCR/ED+$20 1232 JMP DISBUF 1233 ; 1234 CONS1 CMP #$0B 1235 BNE CONS2 1236 JSR HYPERL 1237 JSR CHARIN 1238 AND #$1F 1239 CMP #$0E 1240 BEQ KEY0 1241 LDY #$04 1242 KEY1 CMP KEYL,Y 1243 BEQ KEY2 1244 DEY 1245 BPL KEY1 1246 JMP BEEP 1247 KEY0 LDY KEYCON 1248 KEY2 STY KEY/TY 1249 JSR KYINIT 1250 JMP DISBUF 1251 KEYL HEX 0305100D02 1252 ; 1253 CONS2 CMP #$0C 1254 BNE CONS3 1255 LDA KEY/LK 1256 XOR #$80 1257 STA KEY/LK 1258 RTS 1259 ; 1260 CONS3 CMP #$0A 1261 BNE CONS4 1262 LDA JERKY 1263 XOR #$80 1264 STA JERKY 1265 RTS 1266 ; 1267 CONS4 CMP #$01 1268 BNE CONS5 1269 LDA ALL/KS 1270 XOR #$80 1271 STA ALL/KS 1272 RTS 1273 ; 1274 CONS5 CMP #$02 1275 BNE CONS6 1276 LDA BRL/FG 1277 XOR #$01 1278 AND BRL/FG+$20 1279 STA BRL/FG 1280 RTS 1281 ; 1282 CONS6 CMP #$16 1283 BNE CONS7 1284 LDA VOC/FG 1285 XOR #$01 1286 AND VOC/FG+$20 1287 STA VOC/FG 1288 RTS 1289 ; 1290 CONS7 CMP #$0F 1291 BNE CONS8 1292 JMP CONSO 1293 CONS8 CMP #$04 1294 BNE CONS10 1295 LDA $1EE8 1296 AND #$01 1297 TAX 1298 LDA MANZER,X 1299 STA $1EE8 1300 JMP DISBUF 1301 MANZER HEX 7F40 1302 CONS10 JMP BEEP 1303 ; 1304 CONT JSR CONY 1305 JMP COMCUR 1306 ; 1307 CONU JSR CUR/IN 1308 JMP LAUER 1309 ; 1310 CONV LDY #CONVCX-CONVCD 1311 CONV1 LDA CONVCD,Y 1312 STA $280,Y 1313 DEY 1314 BPL CONV1 1315 JSR HYPERM 1316 JSR EC/UNL 1317 JMP $280 1318 ; 1319 CONW JSR CONW1 1320 CONWRR JSR CONWR 1321 JMP CONWRR 1322 ; 1323 CONW1 JSR LAUERW 1324 LDX #$00 1325 STX CENTER 1326 STX $1E5A 1327 JSR CLRALL 1328 LDA '? 1329 JSR PRMON 1330 CONWR JSR CHARIN 1331 AND #$1F 1332 PHA 1333 JSR CLRALL 1334 PLA 1335 CMP #$01 1336 BNE CONW2 1337 JSR CONW2R 1338 JSR CONW3R 1339 JMP CONW4R 1340 ; 1341 CONW2 CMP #$02 1342 BNE CONW3 1343 CONW2R LDA LEARN 1344 BEQ NOCLIP 1345 LDX #$1D 1346 JSR LITER 1347 LDX CLIPPT 1348 SEC 1349 LDA CLIPPT+1 1350 TAY 1351 JSR PRNUM 1352 NOCLIP LDA MAR/LK 1353 BEQ CONW2N 1354 LDX #$28 1355 JSR LITER 1356 LDX MARKER 1357 LDY MARKER+1 1358 JSR PRNUM 1359 JMP CRREAL 1360 CONW2N LDX #$31 1361 JSR LITER 1362 JMP CRREAL 1363 ; 1364 CONW3 CMP #$03 1365 BNE CONW4 1366 CONW3R JSR CUR/AN 1367 LDX #$00 1368 JSR LITER 1369 LDA #$A0 1370 JSR PRMON 1371 LDX FIN/Z 1372 LDY FIN/Z+1 1373 JSR PRNUM 1374 JMP CRREAL 1375 ; 1376 CONW4 CMP #$10 1377 BNE CONWQ 1378 CONW4R JSR PAG/AN 1379 LDX #$18 1380 JSR LITER 1381 LDX DIR 1382 LDY #$00 1383 JSR PRNUM 1384 JMP CRREAL 1385 ; 1386 CONWQ STA $1E5A 1387 PLA 1388 PLA 1389 JMP DISBUF 1390 PAG/AN LDX #$12 1391 JSR LITER 1392 LDX LOAD 1393 LDY #$00 1394 JMP PRNUM 1395 CUR/AN LDX #$0A 1396 JSR LITER 1397 LDX CUR/Z 1398 LDY CUR/Z+1 1399 JMP PRNUM 1400 ; 1401 CONX LDA COMPUT 1402 BPL DIE 1403 JMP CONC 1404 ; 1405 CONY LDA #$14 1406 JSR T/SET 1407 JMP VOICE 1408 ; 1409 CONZ JSR NUM/GB 1410 LDA LASTCH 1411 AND #$1F 1412 CMP #$13 1413 BEQ CONZS 1414 SEC 1415 LDA CUR/Z 1416 SBC NUM 1417 STA CUR/Z 1418 LDA CUR/Z+1 1419 SBC NUM+1 1420 STA CUR/Z+1 1421 DIE RTS 1422 ; 1423 CONZS JSR CUR/BG 1424 BNE CONZS1 1425 JMP BEEP 1426 CONZS1 SEC 1427 LDA POS/Z 1428 SBC S/SZL 1429 TAX 1430 LDA POS/Z+1 1431 SBC S/SZH 1432 CMP /ST 1433 BCS CONZS2 1434 LDA /ST 1435 LDX #$00 1436 CONZS2 JMP CF1 1437 ; 1438 NUM/GF JSR NUM/GT 1439 JSR MAGIC 1440 BNE MAGICX 1441 JMP WD/NMF 1442 ; 1443 MAGIC LDA LASTCH 1444 CMP #$0C 1445 BEQ MAGICX 1446 CMP #$10 1447 BEQ MAGICX 1448 CMP #$14 1449 BEQ MAGICX 1450 CMP #$17 1451 MAGICX RTS 1452 ; 1453 NUM/GB JSR NUM/GT 1454 JSR MAGIC 1455 BNE NUM/BQ 1456 JSR WD/NMB 1457 NUM/BQ RTS 1458 ; 1459 NUM/GT JSR GETNUM 1460 BNE NUM/OV 1461 JSR MAGIC 1462 BEQ CON/WD 1463 LDA #$10 1464 STA NUM+1 1465 NUM/OV RTS 1466 CON/WD LDA #$01 1467 STA NUM 1468 RTS 1469 ; 1470 GETNUM LDY #$00 1471 STY NUM 1472 STY NUM+1 1473 NUMLP JSR CHARIN 1474 JSR PRSCR 1475 JSR ISNUM 1476 BNE GETXX 1477 INY 1478 LDA NUM+1 1479 PHA 1480 LDA NUM 1481 PHA 1482 JSR NMSHF 1483 JSR NMSHF 1484 PLA 1485 CLC 1486 ADC NUM 1487 STA NUM 1488 PLA 1489 ADC NUM+1 1490 STA NUM+1 1491 JSR NMSHF 1492 CLC 1493 LDA LASTCH 1494 AND #$0F 1495 ADC NUM 1496 STA NUM 1497 BCC NUMCHK 1498 INC NUM+1 1499 NUMCHK LDA NUM+1 1500 CMP #$10 1501 BCC NUMLP 1502 JSR BEEP 1503 LDA #$00 1504 STA NUM 1505 STA NUM+1 1506 GETXX TYA 1507 RTS 1508 ; 1509 NMSHF ASL NUM 1510 ROL NUM+1 1511 RTS 1512 ISNUM LDA LASTCH 1513 CMP #$30 1514 BCC INUMX 1515 CMP #$3A 1516 BCS INUMX 1517 LDX #$00 1518 RTS 1519 INUMX LDX #$FF 1520 RTS 1521 ; 1522 PRSCR LDX SCR/TY 1523 CPX #$0A 1524 BCS PRNULL 1525 JSR PRMON 1526 PRNULL RTS 1527 MOVEB LDY #$00 1528 JMP BLMOVE 1529 ; 1530 MOVEF LDY #$00 1531 LDA (Z3C),Y 1532 STA (Z42),Y 1533 JSR MVFSUB 1534 BCC MOVEF 1535 RTS 1536 ; 1537 MVFSUB LDA Z42 1538 BNE MVF1 1539 DEC Z42+1 1540 MVF1 DEC Z42 1541 LDA Z3E 1542 CMP Z3C 1543 LDA Z3E+1 1544 SBC Z3C+1 1545 LDA Z3C 1546 BNE MVF2 1547 DEC Z3C+1 1548 MVF2 DEC Z3C 1549 RTS 1550 ; 1551 LAUER JSR GOVER 1552 LAUERW JSR CUR/FN 1553 BEQ LAU/X 1554 LDY #$00 1555 LDA (CUR/Z),Y 1556 ; 1557 LAUER/ STA TEMP 1558 LDA CENTER 1559 PHA 1560 LDX #$40 1561 STX CENTER 1562 STX VOC/AX 1563 LDA TEMP 1564 JSR PRMON 1565 LDX #$00 1566 STX VOC/AX 1567 PLA 1568 STA CENTER 1569 RTS 1570 LAU/X JMP BEEP 1571 ; 1572 G/SET LDA #$17 1573 T/SET STA LASTCH 1574 LDX #$01 1575 STX NUM 1576 DEX 1577 STX NUM+1 1578 JSR WD/NMF 1579 JSR COMLIM 1580 JSR CURCOM 1581 JSR BREAK 1582 BEQ G/DON 1583 JSR PITCH 1584 G/DON RTS 1585 ; 1586 PITCH LDA JERKY 1587 BNE NO/PIT 1588 LDX #$40 1589 STX CENTER 1590 LDY #$00 1591 LDX #$00 1592 JSR BREAK\ 1593 BNE PIT/FC 1594 PIT/LP INY 1595 BEQ PIT/FN 1596 PIT/FC JSR BREAK\ 1597 BEQ PIT/FN 1598 CMP #$5B 1599 BCS PIT/LP 1600 CMP #$41 1601 BCC PIT/LP 1602 INX 1603 CPX #$02 1604 BNE PIT/LP 1605 PIT/FN CPX SV/PIT 1606 BEQ NO/PIT 1607 STX SV/PIT 1608 LDA BRL/FG 1609 PHA 1610 LDA #$00 1611 STA BRL/FG 1612 TXA 1613 ASL 1614 ASL 1615 ASL 1616 TAX 1617 PIT/3 LDA PIT/SQ,X 1618 BEQ BRL/ON 1619 JSR PRMON 1620 INX 1621 BNE PIT/3 1622 BRL/ON JSR TERM/O 1623 PLA 1624 STA BRL/FG 1625 NO/PIT RTS 1626 ; 1627 TERM/O LDX VOC/TY 1628 LDA TERMCH,X 1629 JMP PRMON 1630 ; 1631 SP/BOP LDX VOC/FG 1632 BEQ NO/BOP 1633 JSR LIN/NO 1634 BNE NO/BOP 1635 LDA #$22 1636 LDY #$08 1637 JSR SOUND0 1638 LDA #$0D 1639 NO/BOP RTS 1640 ; 1641 VOICE LDX #$40 1642 STX CENTER 1643 VOC/LP JSR COM/FN 1644 BEQ VOC/X 1645 JSR LIM/FN 1646 BEQ VOC/X 1647 JSR BREAK 1648 BNE PHRS 1649 LDX JERKY 1650 BNE VOC?SN 1651 JSR PRMON 1652 JSR PITCH 1653 VOC/CR LDA #$0D 1654 PHRS JSR PRMON 1655 JSR SP/BOP 1656 JSR TESTSP 1657 JSR COM/IN 1658 JMP VOC/LP 1659 VOC/X LDA #$20 1660 JSR PRMON 1661 LDX #$00 1662 JSR PIT/FN 1663 JSR TERM/O 1664 JMP SP/BOP 1665 VOC?SN JSR SEN/MT 1666 BEQ VOC/CR 1667 LDA #$20 1668 BNE PHRS 1669 ; 1670 TESTSP LDA $C000 1671 BPL TSTX 1672 CMP #$A0 1673 BNE TSTY 1674 LDX $C010 1675 DROP PLA 1676 PLA 1677 JSR VOC/X 1678 TSTX LDX #$00 1679 RTS 1680 TSTY JSR KEYSET 1681 LDX #$00 1682 RTS 1683 SOUND LDY #$09 1684 LDA #$18 1685 SOUND0 PHA 1686 SOUND1 PLA 1687 PHA 1688 JSR $FCA8 1689 LDA $C030 1690 DEY 1691 BPL SOUND1 1692 PLA 1693 RTS 1694 ; 1695 DECTB HEX 01000A006400E803 1696 ; 1697 LITER LDA LTVAL,X 1698 BEQ LITERX 1699 JSR PRMON 1700 INX 1701 BNE LITER 1702 LITERX RTS 1703 ; 1704 LTVAL ASC ' Size' 1705 HEX 00 1706 ASC ' P ' 1707 HEX 00 1708 ASC 'Cursor ' 1709 HEX 00 1710 ASC 'Page ' 1711 HEX 00 1712 ASC ' of ' 1713 HEX 00 1714 ASC 'Clipboard ' 1715 HEX 00 1716 ASC ' Marker ' 1717 HEX 00 1718 ASC ' No Marker' 1719 HEX 00 1720 ASC 'Restore entire clipboard?' 1721 HEX 00 1722 ; 1723 PRNUM STX NUM 1724 TYA 1725 CMP #$82 1726 BCC PD0 1727 SBC #$82 1728 PD0 STA NUM+1 1729 JSR BINDEC 1730 LDY #$00 1731 PD1 LDA DECBF,Y 1732 BEQ PD2 1733 JSR PRMON 1734 PD2 INY 1735 CPY #$04 1736 BNE PD1 1737 JSR KEYSET 1738 RTS 1739 ; 1740 STLN LDA SCR/TY 1741 PHA 1742 PHA 1743 AND #$0E 1744 STA SCR/TY 1745 LDA #$00 1746 STA PSX 1747 LDA S/BPSY 1748 STA PSY 1749 LDA S/BPSL 1750 STA PSL 1751 JSR V24FIX 1752 PLA 1753 CMP #$0C 1754 BCS STFIN0 1755 LDX CUR/Z 1756 LDY CUR/Z+1 1757 JSR PRNUM 1758 LDA SCR/TY 1759 CMP #$0A 1760 BCS STLN3 1761 LDX #$00 1762 JSR LITER 1763 STLN3 LDA #$A0 1764 JSR PRMON 1765 LDX FIN/Z 1766 LDY FIN/Z+1 1767 JSR PRNUM 1768 LDA SCR/TY 1769 CMP #$0A 1770 BCS STFIN 1771 LDX #$06 1772 JSR LITER 1773 LDX LOAD 1774 LDY #$00 1775 JSR PRNUM 1776 STFIN LDX PSX 1777 INX 1778 CPX S/WID 1779 BEQ STFIN0 1780 LDA #$20 1781 JSR PRMON 1782 JMP STFIN 1783 STFIN0 PLA 1784 STA SCR/TY 1785 RTS 1786 ; 1787 BINDEC LDX #$00 1788 LDY #$06 1789 BD/DIG LDA #$30 1790 STA DECBF,X 1791 BD/CLK LDA NUM 1792 CMP DECTB,Y 1793 LDA NUM+1 1794 SBC DECTB+1,Y 1795 BCC BD/NXT 1796 LDA NUM 1797 SBC DECTB,Y 1798 STA NUM 1799 LDA NUM+1 1800 SBC DECTB+1,Y 1801 STA NUM+1 1802 INC DECBF,X 1803 BNE BD/CLK 1804 BD/NXT INX 1805 DEY 1806 DEY 1807 BPL BD/DIG 1808 LDX #$00 1809 DB/MSK LDA DECBF,X 1810 CMP #$30 1811 BNE DB/FIN 1812 LDA #$00 1813 STA DECBF,X 1814 INX 1815 CPX #$03 1816 BNE DB/MSK 1817 DB/FIN RTS 1818 ; 1819 CONVCD LDA LOAD 1820 PHA 1821 LDY #$05 1822 STY MEM/WH 1823 LDY #$01 1824 STY MEM/NM 1825 DEY 1826 STY MEM/DR 1827 LDA #$FF 1828 STA (FIN/Z),Y 1829 JSR MEMOVE 1830 LDA #$11 1831 STA $1E4A 1832 LDA #$01 1833 STA $1E4D 1834 STA $1E4E 1835 LDA SCR/TY 1836 PHA 1837 LDA 'W 1838 STA $1E6D 1839 JSR SCR/CD 1840 LDA #$00 1841 STA ALLCON 1842 LDA #$40 1843 STA $720B 1844 LDA #$17 1845 STA $25 1846 JSR $FBC1 1847 JSR $7200 1848 JSR $7205 1849 JSR $FD18 1850 PLA 1851 STA SCR/TY 1852 LDA #$91 1853 STA $1E4A 1854 LDA #$04 1855 STA MEM/WH 1856 JSR MEMOVE 1857 PLA 1858 STA LOAD 1859 LDA #$80 1860 STA ALLCON 1861 JSR BTINIT 1862 PLA 1863 PLA 1864 JSR INITW 1865 JMP START 1866 CONVCX NOP 1867 ; 1868 EC/LOC LDA ROM/PG 1869 STA DIRTY1+2 1870 STA DIRTY2+2 1871 LDA $C08B 1872 LDA $C08B 1873 LDX #$00 1874 STX $1ED8 1875 ECL1 LDA $1E76,X 1876 BEQ ECL2 1877 TAY 1878 LDA #$00 1879 DIRTY1 STA $D001,Y 1880 INX 1881 INX 1882 BNE ECL1 1883 ECL2 LDA $C08A 1884 RTS 1885 ; 1886 EC/UNL LDA $C08B 1887 LDA $C08B 1888 LDX #$00 1889 ECUN1 LDA $1E76,X 1890 BEQ ECL2 1891 TAY 1892 LDA $1E76+1,X 1893 DIRTY2 STA $D001,Y 1894 INX 1895 INX 1896 BNE ECUN1 1897 HYPER LDX KEY/LK 1898 BEQ HY1 1899 HY2 PLA 1900 PLA 1901 JMP BEEP 1902 HYPERM LDX MEMOR 1903 BPL HY2 1904 HY1 RTS 1905 HYPERL LDX LEARN 1906 BEQ HY2 1907 RTS 1908 ; 1909 XX HEX 00 1910 ; 1911 END !