L 1 ; 2 ; 3 START JSR INIT 4 JSR LK/FF 5 LDA Z$$\F 6 BEQ LOOP 7 JMP ZMODE 8 ABSXXX JMP ABSFIN 9 LOOP JSR ABORT 10 LDY #$00 11 LDX LIN\PT 12 LDA (Z1C),Y 13 CMP #$FF 14 BEQ CH/$FF 15 CMP #$0D 16 BEQ CH 17 CMP #$0C 18 BEQ CH 19 CMP #$14 20 BEQ CH/$14 21 CMP #$1F 22 BEQ CH/$1F 23 CMP '$ 24 BEQ CH<$>> 25 CMP #$1C 26 BEQ LK/14 27 CMP #$1E 28 BEQ CH/$1E 29 CMP #$20 30 BNE CH 31 JMP CH<_> 32 CH/$FF JMP FIN 33 CH<$>> JMP CH<$> 34 CH LDX LIN\PT 35 LDY #$00 36 STY VP$P\T 37 DEY 38 STY SPAC\F 39 JSR DO 40 JMP LOOP 41 CH<$l> JSR INC/2 42 CH JSR INC/PT 43 JSR SMART 44 LDA #$00 45 STA PTHY\F 46 JSR DO 47 JMP LOOP 48 CH<$f> JSR INC/2 49 CH JSR INC/PT 50 JSR SMART 51 JSR DO 52 LDA #$00 53 STA PTHY\F 54 JMP LOOP 55 CH<$p> JSR INC/2 56 JSR INC/PT 57 JSR DO<$p> 58 JMP LOOP 59 CH/$14 LDY STCY\F 60 BEQ CH 61 LDA #$00 62 STA SPAC\F 63 BEQ LK/14 64 CH/$1F LDY #$80 65 CH/$1E STY PTHY\F 66 LDY DHYP\F 67 BEQ CH 68 LK/14 JSR INC/PT 69 JMP LOOP 70 CH<$> LDY SPAC\F 71 BNE CH 72 INY 73 LDA (Z1C),Y 74 CMP '$ 75 BEQ CH<$$> 76 TAX 77 INY 78 LDA (Z1C),Y 79 CMP #$20 80 BNE CH 81 CPX 'p 82 BEQ CH<$p> 83 CPX 'f 84 BEQ CH<$f> 85 CPX 'l 86 BEQ CH<$l> 87 CPX 's 88 BEQ CH<$s> 89 JMP CH 90 CH<$s> JSR X$$VM 91 LDX LCNT\\ 92 LDA VT\BUF+2,X 93 BPL CH$S/S 94 JSR DO 95 CH$S/S LDA #$13 96 STA P1\BUF 97 STA STCY\F 98 LDA #$00 99 STA VP$P\T 100 JMP CH<$p> 101 CH<$$> LDY #$02 102 CH/$$1 LDA (Z1C),Y 103 STA DD\BUF-2,Y 104 INY 105 CPY #$22 106 BNE CH/$$1 107 LDX #$00 108 LDA DD\BUF 109 BMI CHJ 110 CMP #$20 111 BEQ CH/$$2 112 SEC 113 SBC #$60 114 TAX 115 BCC CHJ 116 CH/$$2 JSR INC/2 117 JSR EX/$$ 118 JSR ADJUST 119 JMP LOOP 120 CHJ LDX LIN\PT 121 JMP CH 122 DO INY 123 CPY EWID\\ 124 BEQ DO1 125 LDA (Z1C),Y 126 JSR DIV&CT 127 BNE DO 128 DO1 CLC 129 TYA 130 BNE NOT/ZR 131 LDA #$01 132 NOT/ZR STA WORD\T 133 ADC LIN\PT 134 CMP EWID\\ 135 BEQ PUT/EQ 136 BCC PUT/IN 137 PUT/NT SEC 138 LDA EWID\\ 139 SBC LIN\PT 140 STA WORD\T 141 JSR CALC/L 142 BCC PUT/IN 143 LDA CENT\F 144 STA SCEN\F 145 JSR DO 146 X$$J CLC 147 LDA LMAR\\ 148 ADC SMAR\\ 149 STA LIN\PT 150 RTS 151 PUT/EQ LDA (Z1C),Y 152 CMP #$1F 153 BEQ PUT/NT 154 PUT/IN LDX LIN\PT 155 LDY #$00 156 PUT/LP LDA (Z1C),Y 157 ORA UNDL\F 158 STA P1\BUF,X 159 INX 160 INY 161 STX LIN\PT 162 CPY WORD\T 163 BNE PUT/LP 164 JMP YAD/PT 165 ; 166 DO LDA #$00 167 STA SPAC\F 168 STA CR\F 169 LDA LNSK\\ 170 BEQ L/ZERO 171 LK<$p> SEC 172 SBC VP$P\T 173 BEQ DOCR0 174 L/ZERO STA CR#\T 175 DO/CRL LDA VIFC\F 176 BNE DO 177 LDA CR\F 178 BEQ DOPR 179 JSR CALC/P 180 BCC DOCR0 181 DOPR JSR PRINT 182 DEC CR#\T 183 BMI DOCR0 184 BNE DO/CRL 185 DOCR0 LDA LMAR\\ 186 STA LIN\PT 187 RTS 188 CH<_> ORA UNDL\F 189 STA P1\BUF,X 190 LDA #$00 191 STA SPAC\F 192 STA PTHY\F 193 JSR INC/PT 194 INC LIN\PT 195 BNE SPC0 196 LDA EWID\\ 197 STA LIN\PT 198 SPC0 JMP LOOP 199 ; 200 DO<$p> LDA #$00 201 STA SPAC\F 202 STA UNDL\F 203 JSR SMART 204 LDA PASK\\ 205 STA CR\F 206 JSR LK<$p> 207 CLC 208 LDA LMAR\\ 209 ADC INDT\\ 210 STA LIN\PT 211 RTS 212 DO JSR OK 213 JMP LK/FF 214 OK JSR BOT/PG 215 JSR FXPURG 216 LDA #$00 217 STA VIFC\F 218 STA SPAC\F 219 JSR WAIT/1 220 JSR SND/FF 221 JSR WAIT/2 222 JSR INC/PN 223 LDX #$00 224 STX LCNT\\ 225 INX 226 STX CR#\T 227 JSR Z/AA52 228 FF0 RTS 229 PRINT/ LDA #$01 230 STA CR#\T 231 PRINT JSR VT/0F 232 LDA PURG\F 233 STA SVPURG 234 JSR PR/LIN 235 JSR CR?FF? 236 LK/FF JSR VT/F0 237 BCS PRINT 238 RTS 239 PR/LIN JSR SHIFT 240 LDA HEAD\F 241 BNE S/HEAD 242 LDA PURG\F 243 BEQ PR/REG 244 JMP SECOND 245 PR/REG BCC PRFIN 246 LDX #$00 247 PRLP LDA PR?WRT 248 BEQ PRLP1 249 JSR SPSEQ 250 PRLP1 LDA P1\BUF,X 251 PHA 252 PHA 253 JSR INVERS 254 PLA 255 JSR STICKY 256 JSR PRMON 257 PLA 258 JSR UNDERB 259 CPX END\PT 260 BEQ PRFIN 261 INX 262 BNE PRLP 263 PRFIN LDX LMAR\\ 264 STX LIN\PT 265 LDA SCEN\F 266 STA CENT\F 267 JSR PR/INT 268 JSR SS/INT 269 JSR S/EWID 270 LDA #$FF 271 STA $32 272 RTS 273 S/HEAD JSR S/HDPT 274 LDA #$01 275 STA CR#\T 276 LDY #$FF 277 SHED/L INY 278 LDA P1\BUF,Y 279 STA (Z1A),Y 280 CPY END\PT 281 BNE SHED/L 282 INY 283 LDA #$00 284 STA (Z1A),Y 285 STA HEAD\F 286 JSR VT/F0 287 BCS PRL/BK 288 PLA 289 PLA 290 BCC PRFIN 291 PRL/BK JMP PR/LIN 292 SECOND BPL SEC/MV 293 SEC/L0 LDX #$00 294 SEC/L1 LDA P2\BUF,X 295 JSR STICKY 296 JSR PRMON 297 CPX END2PT 298 BEQ SEC/MV 299 INX 300 BNE SEC/L1 301 SEC/MV JSR SHIFT 302 LDX #$00 303 SEC/L2 LDA P1\BUF,X 304 STA P2\BUF,X 305 CPX END\PT 306 BEQ SEC/0 307 INX 308 BNE SEC/L2 309 SEC/0 STX END2PT 310 LDA #$80 311 STA PURG\F 312 JMP PRFIN 313 FXPURG LDA PURG\F 314 BPL FX/REG 315 LDA #$8D 316 JSR PRMON 317 JSR SEC/L0 318 LDA #$00 319 STA PURG\F 320 FXP0 RTS 321 FX/REG JMP PR/LIN 322 CALC/P JSR CALC/L 323 BCS NT/EMP 324 LDX FORM\\ 325 BEQ NT/EMP 326 LDX LCNT\\ 327 BEQ IS/EMP 328 CP/L LDA VT\BUF,X 329 CMP #$40 330 BCC NT/EMP 331 DEX 332 BNE CP/L 333 IS/EMP CLC 334 RTS 335 CALC/L LDX CWID\\ 336 INX 337 INX 338 INX 339 CALC1 DEX 340 CPX #$FF 341 BEQ NUL/LN 342 JSR CHAR?? 343 BEQ CALC1 344 CALC2 STX END\PT 345 LDX #$FF 346 CALC3 INX 347 JSR CHAR?? 348 BEQ CALC3 349 ; ***************** 350 ; **************** 351 JMP $1AB4 352 ;****************** 353 ;****************** 354 ; 355 NUL/LN LDX #$00 356 STX END\PT 357 CLC 358 RTS 359 NT/EMP SEC 360 RTS 361 CHAR?? LDA P1\BUF,X 362 AND #$5F 363 BNE CHAR/0 364 LDA PR?WRT 365 BEQ CHAR/0 366 LDA SQ\BUF,X 367 CHAR/0 RTS 368 SHIFT JSR CALC/L 369 LDA CENT\F 370 STA $1EDF 371 BCC NUL/LN 372 TXA 373 BMI SH0 374 CLC 375 ADC CWID\\ 376 TAX 377 LDY CWID\\ 378 SHIFTL LDA P1\BUF,Y 379 STA P1\BUF,X 380 LDA PR?WRT 381 BEQ SHSKP 382 LDA SQ\BUF,Y 383 STA SQ\BUF,X 384 SHSKP DEX 385 DEY 386 BPL SHIFTL 387 INX 388 SH_ DEX 389 BMI SH0 390 LDA PR?WRT 391 BEQ SHIT 392 LDA #$00 393 STA SQ\BUF,X 394 SHIT LDA #$20 395 STA P1\BUF,X 396 BNE SH_ 397 SH0 LDA #$00 398 STA CENT\F 399 JSR CALC/L 400 LDA PTHY\F 401 BEQ SH/0 402 INC END\PT 403 LDX END\PT 404 LDA '- 405 STA P1\BUF,X 406 LDA #$00 407 STA PTHY\F 408 SH/0 RTS 409 INVERS CLC 410 AND #$80 411 BEQ INV1 412 SEC 413 INV1 ROR 414 XOR #$C0 415 ORA #$3F 416 STA $32 417 RTS 418 STICKY AND #$7F 419 CMP #$13 420 BNE STK0 421 LDY STCY\F 422 BEQ STK0 423 LDA #$20 424 STK0 RTS 425 UNDERB BPL UNB0 426 LDA PR?BRL 427 BMI UNB0 428 LDA SCR/FG 429 BEQ UNB/DO 430 LDA SCR/TY 431 CMP #$06 432 BCC UNB0 433 UNB/DO LDA #$08 434 JSR PRMON 435 LDA '_ 436 JSR PRMON 437 UNB0 RTS 438 SPSEQ TXA 439 PHA 440 LDA PR?WRT 441 BEQ SPSEQ0 442 LDA SQ\BUF,X 443 BEQ SPSEQ0 444 TAX 445 STX SSQ\PT 446 SPSEQ1 LDX SSQ\PT 447 LDA SL\BUF,X 448 BMI SPSEQ0 449 TAX 450 LDA SEQUEN+$60,X 451 TAX 452 SPSEQ2 LDA SEQUEN,X 453 CMP #$7F 454 BEQ SPSEQ3 455 JSR PRMON 456 INX 457 BNE SPSEQ2 458 SPSEQ3 INC SSQ\PT 459 BNE SPSEQ1 460 SPSEQ0 PLA 461 TAX 462 RTS 463 VT/0F LDY FORM\\ 464 BEQ VT0F0 465 LDY LCNT\\ 466 LDA VT\BUF+1,Y 467 AND #$0F 468 BEQ VT0F0 469 CMP #$01 470 BEQ VT/01 471 CMP #$02 472 BEQ VT/02 473 CMP #$03 474 BEQ VT/03 475 VT0F0 RTS 476 VT/01 JSR SHIFT 477 JSR SET/PN 478 SEC 479 LDA CWID\\ 480 SBC PN/LEN 481 JSR OUT/PN 482 JMP S/EWID 483 VT/02 LDA CENT\F 484 BEQ VT2/2 485 JSR SHIFT 486 VT2/2 JSR PP/>P1 487 LDA #$20 488 STA PURG\F 489 INC PREPPI 490 LDX PPPS\T 491 DEX 492 LDA PREPPI 493 STA P1\BUF,X 494 CMP #$20 495 BNE VT2/3 496 LDA '` 497 STA PREPPI 498 VT2/3 JMP S/EWID 499 VT/03 LDA LMAR\\ 500 JSR OUT/PN 501 LDA #$80 502 STA CENT\F 503 RTS 504 CR?FF? LDY CR#\T 505 BEQ SND/SP 506 JSR LNK/CV 507 LDY FORM\\ 508 BEQ SND/CR 509 INC LCNT\\ 510 LDY SVPURG 511 BMI CR2 512 BNE CR/ZIP 513 CR2 LDY LCNT\\ 514 CPY FORM\\ 515 BNE SND/CR 516 LDA BOT?\F 517 BNE BOTPOP 518 JMP OK 519 SND/CR LDA #$8D 520 JMP PRMON 521 SND/SP LDA #$20 522 JMP PRMON 523 BOTPOP LDA #$00 524 STA BOT?\F 525 PLA 526 PLA 527 CR/ZIP RTS 528 LNK/CV INC CONV/C 529 LDA CONV\F 530 BEQ CONV0 531 BPL CONV/I 532 LDA CONV/C 533 BMI CONV0 534 LDA #$80 535 STA ABOR\F 536 CONV0 RTS 537 CONV/I LDA Z1C 538 CMP ZFC 539 LDA Z1C+1 540 SBC ZFC+1 541 BCC CV0 542 LDA #$F6 543 STA CONV/C 544 STA CONV\F 545 CV0 RTS 546 VT/F0 LDY FORM\\ 547 BEQ VTF00 548 LDY LCNT\\ 549 LDA VT\BUF+1,Y 550 AND #$F0 551 BEQ VTF00 552 CMP #$40 553 BEQ VT/40 554 CMP #$30 555 BEQ VT/30 556 CMP #$20 557 BEQ VT/20 558 CMP #$10 559 BEQ VT/10 560 VT/X0 JSR S/HDPT 561 LDY #$00 562 LDX #$00 563 VTX0/L LDA (Z1A),Y 564 BEQ VTX00 565 CMP ' 566 BNE VT/PUT 567 STA Page\F 568 TYA 569 PHA 570 JSR OUT/PN 571 PLA 572 TAY 573 INY 574 BNE VTX0/L 575 VT/PUT STA P1\BUF,X 576 INX 577 INY 578 BNE VTX0/L 579 VTX00 SEC 580 RTS 581 VT/10 JSR SET/PN 582 SEC 583 LDA CWID\\ 584 SBC #$03 585 SBC PN/LEN 586 STA EWID\\ 587 VTF00 CLC 588 RTS 589 VT/20 SEC 590 LDA PPPS\T 591 BNE VT//2 592 LDA CWID\\ 593 SBC #$02 594 VT//2 SBC #$04 595 STA EWID\\ 596 CLC 597 RTS 598 VT/30 LDA '3 599 LDX #$00 600 JSR REPL 601 VT/40 SEC 602 RTS 603 TB/$$ ADR X$$-1 604 ADR X$$A-1 605 ADR X$$B-1 606 ADR X$$C-1 607 ADR X$$D-1 608 ADR X$$E-1 609 ADR X$$F-1 610 ADR X$$Y-1 611 ADR X$$H-1 612 ADR X$$I-1 613 ADR X$$J-1 614 ADR X$$Y-1 615 ADR X$$L-1 616 ADR X$$M-1 617 ADR X$$N-1 618 ADR X$$Y-1 619 ADR X$$P-1 620 ADR X$$Y-1 621 ADR X$$R-1 622 ADR X$$S-1 623 ADR X$$T-1 624 ADR X$$U-1 625 ADR X$$V-1 626 ADR X$$W-1 627 ADR X$$Y-1 628 ADR X$$Y-1 629 ADR X$$Z-1 630 X$$ LDX LIN\PT 631 DEY 632 X$$/1 INX 633 BEQ X$$/2 634 TBV1 LDA TB\BUF,X 635 BPL X$$/1 636 TXA 637 STA LIN\PT 638 X$$/2 RTS 639 X$$A LDX #$00 640 STX CR\F 641 LDX LCNT\\ 642 JSR GT/POM 643 LDA VT\BUF,X 644 BMI X$$A/0 645 TXA 646 CLC 647 SBC LCNT\\ 648 BMI X$$A/0 649 JSR LK<$p> 650 X$$A/0 LDY SV|Y\T 651 RTS 652 X$$B JSR $FBDD 653 JSR DWT2 654 LDY #$01 655 RTS 656 X$$C CLC 657 LDA PASK\\ 658 ADC #$01 659 JSR LK/$$c 660 BEQ X$$C/0 661 JSR DO 662 X$$C/0 LDY #$01 663 X$$VE LDA CENT\F 664 BMI VE0 665 LDA #$80 666 STA CENT\F 667 LDA LMAR\\ 668 STA SVLMAR 669 LDA RMAR\\ 670 STA SVRMAR 671 LDA CWID\\ 672 LSR 673 LSR 674 LSR 675 SEC 676 SBC #$02 677 BMI VE0 678 STA $1F 679 CLC 680 ADC LMAR\\ 681 STA LMAR\\ 682 CLC 683 LDA $1F 684 ADC RMAR\\ 685 STA RMAR\\ 686 SEC 687 LDA EWID\\ 688 SBC $1F 689 SBC $1F 690 BMI VE0 691 STA EWID\\ 692 VE0 RTS 693 X$$D LDY #Z$$\F-RMAR\\ 694 LDA #$00 695 XDL STA RMAR\\,Y 696 DEY 697 BPL XDL 698 JSR ZER/PN 699 JSR S/FORM 700 JSR S/EWID 701 JSR VT/INT 702 JSR TB/INT 703 JSR SS/INT 704 LDA ACAP\F 705 STA ALLCAP 706 LDY #$01 707 RTS 708 X$$E LDX PR?BRL 709 CPX #$0A 710 BNE X$$E/0 711 LDX #$0D 712 X$$E/1 CMP SSQ/CH,X 713 BEQ X$$E/2 714 DEX 715 BPL X$$E/1 716 X$$E/0 INY 717 RTS 718 X$$E/2 TXA 719 PHA 720 LDX LIN\PT 721 LDA SQ\BUF,X 722 BNE X$$E/3 723 INC SSQ\PT 724 LDA SSQ\PT 725 STA SQ\BUF,X 726 X$$E/3 INC SSQ\PT 727 LDY SSQ\PT 728 PLA 729 STA SL\BUF-1,Y 730 LDA #$FF 731 STA SL\BUF,Y 732 LDY #$02 733 RTS 734 X$$F LDX S/LEN 735 JSR CM/F/W 736 STA FORM\\ 737 STA STRT\\ 738 JSR VT/INT 739 LDY SV|Y\T 740 X$$Y RTS 741 CM/F/W STX $1F 742 JSR GT/NUM 743 LDX SCR/FG 744 BEQ CM0 745 LDX PR?WRT 746 BEQ CM0 747 LDX SCR/TY 748 CPX #$06 749 BCC CM0 750 CMP $1F 751 BCC CM0 752 LDA $1F 753 CM0 RTS 754 X$$H LDA #$80 755 STA UNDL\F 756 JMP X$$C 757 X$$I LDX #$00 758 JSR GT/POM 759 STX INDT\\ 760 RTS 761 X$$L JSR GT/NUM 762 STA LNSK\\ 763 RTS 764 X$$M INY 765 CMP 'l 766 BEQ MAR/LF 767 CMP 'r 768 BEQ MAR/RT 769 CMP 's 770 BEQ MAR/SF 771 CMP 't 772 BEQ MAR/TP 773 CMP 'c 774 BEQ LAUNCH 775 CMP 'q 776 BEQ LAUNCH 777 FIZZ RTS 778 MAR/LF LDX LMAR\\ 779 JSR GT/POM 780 STX LMAR\\ 781 STX SVLMAR 782 RTS 783 MAR/RT LDX RMAR\\ 784 JSR GT/POM 785 STX RMAR\\ 786 STX SVRMAR 787 JMP S/EWID 788 MAR/SF LDX SMAR\\ 789 JSR GT/POM 790 STX SMAR\\ 791 RTS 792 MAR/TP JSR GT/NUM 793 STA FFSK\\ 794 JMP TOPMAR 795 ; 796 LAUNCH LDX $1E68 797 BPL FIZZ 798 SEC 799 LDA Z1C 800 SBC #$02 801 STA Z1C 802 BCS *+4 803 DEC Z1C+1 804 LDY #LAUX-LAU0 805 LAU/LP LDA LAU0,Y 806 STA $340,Y 807 DEY 808 BPL LAU/LP 809 JMP $340 810 LAU0 LDX #$12 811 JSR AUXDO 812 PLA 813 PLA 814 JMP LOOP 815 LAUX NOP 816 ; 817 X$$N CMP 'p 818 BEQ X$$N/P 819 CMP 'b 820 BEQ X$$N/B 821 LDY #$01 822 JSR GT/NUM 823 STA PGNL\\ 824 LDA NUM\\+1 825 STA PGNH\\ 826 JSR SET/PN 827 LDY SV|Y\T 828 RTS 829 X$$N/P JSR ZER/PN 830 LDA PR?BRL 831 BMI XX$$VB 832 LDX #$00 833 STX B?P#\F 834 LDA #$43 835 LDY FORM\\ 836 STA VT\BUF,Y 837 DEY 838 LDA #$40 839 NLK STA VT\BUF,Y 840 JSR SET/PN 841 LDY #$02 842 RTS 843 X$$N/B LDY FORM\\ 844 LDA #$41 845 NLK/X STA B?P#\F 846 BNE NLK 847 XX$$VB LDA LCNT\\ 848 BNE VB/NSH 849 JSR VT/10 850 VB/NSH LDY #$01 851 LDA #$11 852 BNE NLK/X 853 ; 854 X$$P LDX LIN\PT 855 JSR GT/POM 856 STX LIN\PT 857 RTS 858 X$$R LDA #$40 859 STA CENT\F 860 RTS 861 X$$S LDX #$03 862 XSLP CMP XSTB,X 863 BEQ XSAV 864 DEX 865 BPL XSLP 866 JSR GT/NUM 867 STA PASK\\ 868 RTS 869 XSTB ASC 'supd' 870 XSAV STA STCY\F,X 871 INY 872 RTS 873 X$$T CMP 'c 874 BEQ TAB/CL 875 LDX LIN\PT 876 JSR GT/POM 877 LDA #$80 878 TBV2 STA TB\BUF,X 879 RTS 880 TAB/CL JMP TB/INT 881 X$$U INY 882 CMP 'f 883 BEQ UN/FIN 884 CMP 'b 885 BNE UN/ZAP 886 UN/BEG LDA #$80 887 STA UNDL\F 888 UN/ZAP RTS 889 UN/FIN LDA #$00 890 STA UNDL\F 891 LDX LIN\PT 892 LDA P1\BUF-1,X 893 AND #$7F 894 CMP #$20 895 BNE UN/0 896 STA P1\BUF-1,X 897 LDA UNPC\F 898 BEQ UN/0 899 LDA P1\BUF-2,X 900 AND #$7F 901 CMP ', 902 BEQ UN/FIX 903 CMP '. 904 BEQ UN/FIX 905 CMP ': 906 BEQ UN/FIX 907 CMP '; 908 BNE UN/0 909 UN/FIX STA P1\BUF-2,X 910 UN/0 RTS 911 X$$V SEC 912 SBC #$61 913 BCC X$$V/0 914 ASL 915 TAX 916 LDA TB/$$V+1,X 917 PHA 918 LDA TB/$$V,X 919 PHA 920 LDY #$02 921 LDA DD\BUF+2 922 X$$V/0 RTS 923 X$$W LDX S/WID 924 JSR CM/F/W 925 STA CWID\\ 926 MAR/Z LDA #$00 927 STA SVRMAR 928 STA SVLMAR 929 JSR SMART 930 JMP S/EWID 931 X$$Z PLA 932 PLA 933 JSR INC/PT 934 JMP ZMODE 935 EX/$$ TXA 936 ASL 937 TAX 938 LDA TB/$$+1,X 939 PHA 940 LDA TB/$$,X 941 PHA 942 LDY #$01 943 LDA DD\BUF+1 944 RTS 945 TB/$$V ADR X$$VA-1 946 ADR X$$VB-1 947 ADR PP/>PP-1 948 ADR X$$VD-1 949 ADR X$$VE-1 950 ADR X$$VF-1 951 ADR X$$VG-1 952 ADR X$$VH-1 953 ADR X$$VI-1 954 ADR X$$VJ-1 955 ADR X$$VK-1 956 ADR X$$VL-1 957 ADR X$$VM-1 958 ADR X$$VN-1 959 ADR X$$VO-1 960 ADR X$$VP-1 961 ADR X$$VQ-1 962 ADR X$$VR-1 963 ADR X$$VS-1 964 ADR X$$VT-1 965 ADR X$$VU-1 966 ADR X$$VV-1 967 ADR X$$VW-1 968 ADR X$$VX-1 969 ADR X$$VY-1 970 ADR X$$VZ-1 971 X$$VA JSR VT/VB 972 LDX FORM\\ 973 LDA #$11 974 STA VT\BUF,X 975 LDY #$02 976 RTS 977 X$$VB JSR VT/VB 978 JMP XX$$VB 979 X$$VD LDA #$30 980 JMP VO/LK 981 X$$VF LDX FORM\\ 982 LDA #$A0 983 BNE LK/VF 984 X$$VG LDA #$80 985 STA ROMN\F 986 RTS 987 X$$VH JSR GT/POM 988 SK/VH TXA 989 CMP #$02 990 BCC VH/2 991 LDA VT\BUF,X 992 CMP #$70 993 BCS LK/VF 994 INC WHED\\ 995 LDY WHED\\ 996 INY 997 TYA 998 VH/2 CLC 999 ADC #$05 1000 ASL 1001 ASL 1002 ASL 1003 ASL 1004 LDY SV|Y\T 1005 LK/VF STA $1F 1006 STA HEAD\F 1007 LDA VT\BUF,X 1008 AND #$0F 1009 ORA $1F 1010 STA VT\BUF,X 1011 RTS 1012 X$$VI JSR VL/SUB 1013 STX VIFC\F 1014 LDY SV|Y\T 1015 RTS 1016 X$$VJ JSR VK/CAL 1017 JSR VK/>P1 1018 LDX VKPS\T 1019 RTS 1020 X$$VK JSR X$$VJ 1021 LDA #$20 1022 STA P1\BUF-1,X 1023 LDA P1\BUF-2,X 1024 CMP '" 1025 BNE VK0 1026 CMP P1\BUF-3,X 1027 BEQ VK0 1028 LDA #$20 1029 STA P1\BUF-2,X 1030 VK0 LDA BWID\\ 1031 STA LIN\PT 1032 RTS 1033 X$$VL CMP 't 1034 BEQ VLT 1035 CMP 'n 1036 BEQ VLN 1037 JSR VL/SUB 1038 BEQ VL/NL 1039 JSR DO 1040 VL/NL LDY SV|Y\T 1041 RTS 1042 VLT LDX #$01 1043 JSR VLT/DO 1044 LDX FORM\\ 1045 JSR VLT/DO 1046 VLN0 STX VLT\T 1047 LDY #$03 1048 RTS 1049 VLN LDX VLT\T 1050 BEQ VLN0 1051 LDA $320,X 1052 STA VT\BUF,X 1053 LDA $321 1054 STA VT\BUF+1 1055 LDX #$00 1056 BEQ VLN0 1057 X$$VM JSR CALC/L 1058 BCC VM0 1059 JSR PRINT/ 1060 VM0 LDY #$02 1061 RTS 1062 X$$VN JSR CALC/P 1063 BCC VN0 1064 JSR DO 1065 VN0 LDY #$02 1066 RTS 1067 X$$VO LDA #$00 1068 VO/LK PHA 1069 LDX FORM\\ 1070 JSR GT/POM 1071 PLA 1072 STA VT\BUF,X 1073 RTS 1074 X$$VP LDX LCNT\\ 1075 LDA VT\BUF+3,X 1076 BPL VP/NFF 1077 JSR DO 1078 VP/NFF JSR CALC/P 1079 BCS VP/LIN 1080 JSR PP/>PP 1081 LDA #$1F 1082 LDX LCNT\\ 1083 BEQ VP/OUT 1084 LDA #$80 1085 JSR PP/>PX 1086 LDA '` 1087 VP/OUT STA PREPPI 1088 LDY SV|Y\T 1089 RTS 1090 VP/LIN JSR X$$VM 1091 LDA LNSK\\ 1092 CMP #$01 1093 BEQ VP/SS 1094 JSR PRINT/ 1095 VP/SS JSR PP/>PP 1096 LDA '- 1097 LDX #$00 1098 JSR REPL 1099 JSR VK/>P1 1100 JSR DO 1101 JSR X$$J 1102 LDA PASK\\ 1103 STA VP$P\T 1104 LDA '` 1105 BNE VP/OUT 1106 X$$VQ JSR X$$VJ 1107 LDA P1\BUF,X 1108 CMP '# 1109 BNE VQ0 1110 LDA #$20 1111 STA P1\BUF,X 1112 VQ0 RTS 1113 X$$VR LDA DD\BUF,Y 1114 JSR REPEAT 1115 LDY #$03 1116 RTS 1117 X$$VS LDA #$40 1118 BNE VO/LK 1119 X$$VT JSR VT/VB 1120 LDA #$22 1121 STA VT\BUF+1 1122 STA B?P#\F 1123 LDX FORM\\ 1124 LDA #$11 1125 STA VT\BUF,X 1126 SEC 1127 LDA CWID\\ 1128 SBC #$07 1129 STA EWID\\ 1130 LDY #$02 1131 RTS 1132 X$$VU LDX #$02 1133 LDA VT\BUF+1 1134 CMP #$60 1135 BCC VUX 1136 INX 1137 VUX JSR SK/VH 1138 LDY #$02 1139 RTS 1140 X$$VV STY KPPN\F 1141 RTS 1142 X$$VW LDA VT\BUF+1 1143 CMP #$60 1144 BCC ZAP 1145 LDA #$40 1146 STA VT\BUF+2 1147 ZAP RTS 1148 X$$VX AND #$01 1149 STA MAIN\T 1150 INY 1151 RTS 1152 X$$VY INY 1153 CMP '= 1154 BNE VYX 1155 LDA #$00 1156 VYX STA PRE/PN 1157 RTS 1158 X$$VZ JSR CALC/P 1159 BCS VZ0 1160 LDA LCNT\\ 1161 BEQ VZ0 1162 JSR PRINT/ 1163 VZ0 LDY #$02 1164 RTS 1165 INIT LDA #PG\BUF 1166 STA Z1C 1167 LDA /PG\BUF 1168 STA Z1C+1 1169 STA JAMS\F 1170 LDA #$00 1171 STA SPAC\F 1172 STA ABOR\F 1173 LDA PR?WRT 1174 BNE INITXX 1175 LDA #$02 1176 STA TBINL+2 1177 STA TBV1+2 1178 STA TBV2+2 1179 INITXX LDA FORM\\ 1180 CMP STRT\\ 1181 BEQ INIT0 1182 STA STRT\\ 1183 JSR PR/INT 1184 JSR X$$D 1185 LDA PR?BRL 1186 AND #$04 1187 STA Z$$\F 1188 INIT0 RTS 1189 SMART LDA #$00 1190 STA SCEN\F 1191 LDA LMAR\\ 1192 BNE SMRT1 1193 LDA RMAR\\ 1194 BEQ SMRT0 1195 SMRT1 LDA SVLMAR 1196 STA LMAR\\ 1197 LDA SVRMAR 1198 STA RMAR\\ 1199 S/EWID SEC 1200 LDA CWID\\ 1201 SBC RMAR\\ 1202 STA EWID\\ 1203 LDX PR?BRL 1204 BPL S/BW 1205 LDX MAIN\T 1206 BNE S/BW 1207 LDA CWID\\ 1208 S/BW STA BWID\\ 1209 SMRT0 RTS 1210 S/FORM LDA #$05 1211 STA INDT\\ 1212 LDA #$02 1213 STA PASK\\ 1214 LDA PR?WRT 1215 STA LNSK\\ 1216 LDA PR?BRL 1217 AND #$80 1218 ORA SCR/FG 1219 STA DHYP\F 1220 BPL SFORM0 1221 STA B?P#\F 1222 STA STCY\F 1223 LDA #$02 1224 STA INDT\\ 1225 LDA #$01 1226 STA PASK\\ 1227 STA LNSK\\ 1228 SFORM0 RTS 1229 TB/INT LDY #$00 1230 TYA 1231 TBINL STA TB\BUF,Y 1232 DEY 1233 BNE TBINL 1234 LDY #$02 1235 RTS 1236 ABORT LDA ABOR\F 1237 BNE AB4 1238 LDA $C000 1239 BMI AB2 1240 AB3 RTS 1241 AB2 CMP #$9B 1242 BNE AB3 1243 STA ABOR\F 1244 STA STRT\\ 1245 LDX $C010 1246 AB4 LDA #$00 1247 STA LCNT\\ 1248 PLA 1249 PLA 1250 RTS 1251 VL/SUB JSR GT/NUM 1252 LK/$$c LDX FORM\\ 1253 BEQ VL/0 1254 CLC 1255 ADC LCNT\\ 1256 TAX 1257 VL? LDA VT\BUF,X 1258 CMP #$30 1259 BCC VL/0 1260 CMP #$FF 1261 BEQ VL/FF 1262 INX 1263 BNE VL? 1264 VL/FF LDX #$80 1265 RTS 1266 VL/0 LDX #$00 1267 RTS 1268 VLT/DO LDA VLT\T 1269 BNE VLT/OK 1270 LDA VT\BUF,X 1271 STA $320,X 1272 BEQ VLT/OK 1273 ASL 1274 BMI VLT/OK 1275 LSR 1276 AND #$0F 1277 ORA #$40 1278 STA VT\BUF,X 1279 VLT/OK RTS 1280 VT/VB LDA #$00 1281 STA VT\BUF+1 1282 JSR X$$VN 1283 LDA #$80 1284 STA PR?BRL 1285 JMP X$$D 1286 BOT/PG LDA FORM\\ 1287 BEQ BOT/0 1288 LDY LCNT\\ 1289 BOT/2 INY 1290 LDA VT\BUF,Y 1291 BEQ BOT/2 1292 CMP #$FF 1293 BEQ BOT/0 1294 STA BOT?\F 1295 BOT/LP JSR PRINT/ 1296 LDA BOT?\F 1297 BNE BOT/LP 1298 BOT/0 RTS 1299 SND/FF LDA CONV\F 1300 BNE ROW/// 1301 LDA PR?BRL 1302 BMI SKP/CR 1303 LDA P/SLOT 1304 BEQ SKP/CR 1305 LDA #$8D 1306 JSR PRMON 1307 SKP/CR LDA #$8C 1308 JSR PRMON 1309 TOPMAR LDX FFSK\\ 1310 BEQ FFSK0 1311 JSR REVIEW 1312 BCS FFSK0 1313 S/FFSK LDA #$8D 1314 JSR PRMON 1315 DEX 1316 BNE S/FFSK 1317 FFSK0 RTS 1318 ROW/// LDA #$8D 1319 JSR PRMON 1320 LDA '/ 1321 JSR REPEAT 1322 LDA #$00 1323 STA LCNT\\ 1324 JSR PR/LIN 1325 LDA #$8D 1326 JMP PRMON 1327 WAIT/1 LDA PR?WRT 1328 BEQ WT1/0 1329 LDA P/SLOT 1330 BNE WT1/0 1331 LDA CONV\F 1332 BNE WT1/0 1333 JSR D/WAIT 1334 WT1/0 RTS 1335 D/WAIT LDA #$17 1336 JSR $FBC1 1337 LDY #$10 1338 DWT1 LDA #$30 1339 JSR $FCA8 1340 LDA $C030 1341 DEY 1342 BPL DWT1 1343 DWT2 JSR $FD18 1344 CMP #$9B 1345 BEQ DWT/ES 1346 CMP #$A0 1347 BEQ DWT/0 1348 JSR PRMON 1349 JMP DWT2 1350 DWT/ES STA ABOR\F 1351 DWT/0 RTS 1352 WAIT/2 LDA PRT/FG 1353 BNE WT2/2 1354 LDA RSPG\\ 1355 BNE *+7 1356 LDA RPGH\\ 1357 BEQ WT2/2 1358 LDA RSPG\\ 1359 CMP PGNL\\ 1360 BNE *+15 1361 LDA RPGH\\ 1362 CMP PGNH\\ 1363 BNE *+7 1364 LDA #$01 1365 STA PRT/FG 1366 RTS 1367 WT2/2 LDA FF/WAT 1368 BEQ *-4 1369 JMP D/WAIT 1370 ZER/PN LDX KPPN\F 1371 BNE KEEPN 1372 STX PGNL\\ 1373 STX PGNH\\ 1374 INC/PN INC PGNL\\ 1375 BNE IPN0 1376 INC PGNH\\ 1377 IPN0 JMP SET/PN 1378 KEEPN LDX #$00 1379 STX KPPN\F 1380 RTS 1381 REVIEW LDA PR/TYP 1382 AND #$0F 1383 CMP #$08 1384 RTS 1385 ABSFIN JSR X$$VM 1386 LDA PR/TYP 1387 CMP #$12 1388 BEQ DO/FFJ 1389 LDA PR?WRT 1390 BEQ AA52/0 1391 LDA CONV\F 1392 BNE CONV/| 1393 LDA P/SLOT 1394 BEQ DO/FFJ 1395 JSR REVIEW 1396 BCS DO/FFJ 1397 LDA FORM\\ 1398 BEQ AA52/0 1399 LDA COP/ML 1400 BNE DO/FFJ 1401 LDY LCNT\\ 1402 AFL INY 1403 LDA VT\BUF,Y 1404 BEQ AFL 1405 BMI AA52/0 1406 DO/FFJ JMP OK 1407 AA52/0 LDA #$00 1408 STA $AA52 1409 RTS 1410 CONV/| LDA CONV/C 1411 BPL CONV|0 1412 LDA #$8D 1413 JSR PRMON 1414 INC CONV/C 1415 BMI CONV/| 1416 CONV|0 RTS 1417 FIN LDA #$00 1418 STA $AA52 1419 RTS 1420 S/HDPT SEC 1421 SBC #$50 1422 LSR 1423 LSR 1424 LSR 1425 LSR 1426 TAY 1427 LDA HEDT/L,Y 1428 STA Z1A 1429 LDA HEDT/H,Y 1430 STA Z1A+1 1431 RTS 1432 REPEAT LDX LIN\PT 1433 REPL STA P1\BUF,X 1434 INX 1435 CPX BWID\\ 1436 BCC REPL 1437 RTS 1438 VK/CAL LDY #$03 1439 LDX BWID\\ 1440 VK/CA2 LDA DD\BUF,Y 1441 JSR DIVIDE 1442 BEQ VKCA0 1443 DEX 1444 INY 1445 BNE VK/CA2 1446 VKCA0 STX VKPS\T 1447 STY SV|Y\T 1448 RTS 1449 VK/>P1 LDX VKPS\T 1450 LDY #$03 1451 VKP1/1 LDA DD\BUF,Y 1452 JSR DIVIDE 1453 BEQ VKP1/0 1454 STA P1\BUF,X 1455 INX 1456 INY 1457 BNE VKP1/1 1458 VKP1/0 LDY SV|Y\T 1459 RTS 1460 PP/>PP JSR VK/CAL 1461 LDX #$00 1462 LDY #$03 1463 VKPP/1 LDA DD\BUF,Y 1464 STA PP\BUF,X 1465 JSR DIVIDE 1466 BEQ VKPP/0 1467 INX 1468 INY 1469 BNE VKPP/1 1470 VKPP/0 LDA VKPS\T 1471 STA PPPS\T 1472 RTS 1473 PP/>P1 LDA #$00 1474 PP/>PX CLC 1475 ADC PPPS\T 1476 PHA 1477 TAX 1478 VKRT DEX 1479 LDA P1\BUF,X 1480 CMP #$20 1481 BEQ VKR0 1482 LDA #$20 1483 STA P1\BUF,X 1484 BNE VKRT 1485 VKR0 PLA 1486 TAX 1487 LDY #$00 1488 VKP2/1 LDA PP\BUF,Y 1489 JSR DIVIDE 1490 BEQ VKP2/0 1491 STA P1\BUF,X 1492 INX 1493 INY 1494 BNE VKP2/1 1495 VKP2/0 RTS 1496 OUT/PN PHA 1497 JSR SET/PN 1498 PLA 1499 TAX 1500 LDY #$00 1501 OUTP1 LDA PN\BUF,Y 1502 STA P1\BUF,X 1503 INX 1504 INY 1505 CPY PN/LEN 1506 BNE OUTP1 1507 RTS 1508 SET/PN LDA PGNL\\ 1509 STA PGNL\T 1510 LDA PGNH\\ 1511 STA PGNH\T 1512 LDX #$00 1513 LDY #$06 1514 SPN/OL LDA #$00 1515 STA DC\BUF,X 1516 SPN/IL LDA PGNL\T 1517 CMP DEC/TB,Y 1518 LDA PGNH\T 1519 SBC DEC/TB+1,Y 1520 BCC SPN/NX 1521 LDA PGNL\T 1522 SBC DEC/TB,Y 1523 STA PGNL\T 1524 LDA PGNH\T 1525 SBC DEC/TB+1,Y 1526 STA PGNH\T 1527 INC DC\BUF,X 1528 BNE SPN/IL 1529 SPN/NX INX 1530 DEY 1531 DEY 1532 BPL SPN/OL 1533 LDX #$FF 1534 SPN/1 INX 1535 CPX #$03 1536 BEQ SPN/2 1537 LDA DC\BUF,X 1538 BEQ SPN/1 1539 SPN/2 LDA ROMN\F 1540 BNE ROMAN 1541 LDA B?P#\F 1542 BNE BRL/PN 1543 PRT/PN LDY #$00 1544 LDA Page\F 1545 BNE PRPN2 1546 PRPN1 LDA PageLT,Y 1547 STA PN\BUF,Y 1548 INY 1549 CPY #$05 1550 BNE PRPN1 1551 PRPN2 LDA DC\BUF,X 1552 ORA #$30 1553 STA PN\BUF,Y 1554 INY 1555 INX 1556 CPX #$04 1557 BNE PRPN2 1558 STY PN/LEN 1559 RTS 1560 BRL/PN LDY #$00 1561 LDA PRE/PN 1562 BEQ BPNN 1563 BPNSP STA PN\BUF,Y 1564 INY 1565 BPNN LDA '# 1566 STA PN\BUF,Y 1567 INY 1568 BRPN1 LDA DC\BUF,X 1569 BNE BRPN2 1570 LDA #$0A 1571 BRPN2 ORA #$60 1572 STA PN\BUF,Y 1573 INY 1574 INX 1575 CPX #$04 1576 BNE BRPN1 1577 STY PN/LEN 1578 RTS 1579 ROMAN LDA #$00 1580 STA PN/LEN 1581 LDA B?P#\F 1582 BEQ ROMPN1 1583 LDA '; 1584 STA PN\BUF 1585 INC PN/LEN 1586 LDA PGNL\\ 1587 CMP #$01 1588 BNE ROMPN1 1589 LDA #$20 1590 STA PN\BUF 1591 RTS 1592 ROMPN1 LDX $C083 1593 JSR RROMAN 1594 LDX $C082 1595 RTS 1596 RROMAN LDY DC\BUF+2 1597 LDX ROM/10,Y 1598 JSR ROM/PT 1599 LDY DC\BUF+3 1600 LDX ROM/1,Y 1601 ROM/PT LDY PN/LEN 1602 RMPTL LDA ROM/VL,X 1603 BEQ RMPL0 1604 STA PN\BUF,Y 1605 INX 1606 INY 1607 BNE RMPTL 1608 RMPL0 STY PN/LEN 1609 RTS 1610 INC/2 JSR INC/PT 1611 INC/PT INC Z1C 1612 BNE INC0 1613 INC Z1C+1 1614 INC0 RTS 1615 DIV&CT JSR DIVIDE 1616 BNE D/BNE 1617 CMP #$14 1618 BEQ D/CT 1619 D/BEQ LDA #$00 1620 D/BNE RTS 1621 D/CT CLC 1622 TYA 1623 ADC #$03 1624 ADC LIN\PT 1625 CMP EWID\\ 1626 BCC D/BEQ 1627 PLA 1628 PLA 1629 JMP PUT/NT 1630 DIVIDE CMP #$FF 1631 BEQ DIV0 1632 CMP #$0D 1633 BEQ DIV0 1634 CMP #$20 1635 BEQ DIV0 1636 CMP #$14 1637 BEQ DIV0 1638 CMP #$1F 1639 BEQ DIV0 1640 CMP #$1E 1641 BEQ DIV0 1642 CMP #$1C 1643 DIV0 RTS 1644 ADJUST JSR YAD/PT 1645 LDY #$00 1646 LDA (Z1C),Y 1647 CMP #$20 1648 BEQ INC/PT 1649 RTS 1650 YAD/PT CLC 1651 TYA 1652 ADC Z1C 1653 STA Z1C 1654 BCC YAD0 1655 INC Z1C+1 1656 YAD0 RTS 1657 PRMON STX SV|X\T 1658 AND #$7F 1659 CMP #$61 1660 BCC PRM1 1661 CMP #$7B 1662 BCS PRM1 1663 LDX ALLCAP 1664 BEQ PRM1 1665 SEC 1666 SBC #$20 1667 PRM1 LDX SV|X\T 1668 ORA #$80 1669 JMP $FDED 1670 Z/AA52 LDA PR?WRT 1671 BEQ ZAA0 1672 LDA #$00 1673 STA $AA52 1674 ZAA0 RTS 1675 PR/INT LDA #$20 1676 LDY PURG\F 1677 BEQ PR/INL 1678 LDY #$7F 1679 STA P1\BUF 1680 PR/INL STA P1\BUF,Y 1681 DEY 1682 BNE PR/INL 1683 RTS 1684 SS/INT LDA PR?WRT 1685 BEQ SSS0 1686 LDY #$00 1687 STY SSQ\PT 1688 TYA 1689 SSLP STA SQ\BUF,Y 1690 DEY 1691 BNE SSLP 1692 SSS0 RTS 1693 VT/INT LDA #$00 1694 LDY #$7F 1695 VTL1 STA VT\BUF,Y 1696 DEY 1697 BPL VTL1 1698 LDA #$FF 1699 LDY FORM\\ 1700 BEQ VT0 1701 VTL2 INY 1702 STA VT\BUF,Y 1703 CPY #$7F 1704 BNE VTL2 1705 VT0 LDY #$02 1706 RTS 1707 GT/POM STX NUM\T 1708 LDA DD\BUF,Y 1709 INY 1710 STY SV|Y\T 1711 CMP '- 1712 BEQ MINUS 1713 CMP '+ 1714 BEQ PLUS 1715 CMP '* 1716 BEQ STAR 1717 CMP '@ 1718 BEQ ATSIGN 1719 CMP '= 1720 BEQ EQUAL 1721 DEY 1722 JSR GT/NUM 1723 TAX 1724 RTS 1725 MINUS JSR GT/NUM 1726 SEC 1727 LDA NUM\T 1728 SBC NUM\\ 1729 TAX 1730 RTS 1731 PLUS JSR GT/NUM 1732 CLC 1733 LDA NUM\T 1734 ADC NUM\\ 1735 TAX 1736 RTS 1737 STAR LDX LIN\PT 1738 RTS 1739 ATSIGN LDX CWID\\ 1740 RTS 1741 EQUAL SEC 1742 LDA CWID\\ 1743 SBC LIN\PT 1744 TAX 1745 RTS 1746 GT/NUM LDX #$00 1747 STX NUM\\ 1748 STX NUM\\+1 1749 GT/1 LDA DD\BUF,Y 1750 CMP #$3A 1751 BCS GT/2 1752 CMP #$30 1753 BCC GT/2 1754 AND #$0F 1755 LDX #$09 1756 GT/3 CLC 1757 ADC NUM\\ 1758 BCC GT/4 1759 INC NUM\\+1 1760 GT/4 DEX 1761 BPL GT/3 1762 STA NUM\\ 1763 INY 1764 BNE GT/1 1765 GT/2 LDA NUM\\ 1766 STY SV|Y\T 1767 RTS 1768 ZMODE LDX SPAC\F 1769 BNE Z/DO 1770 LDY #$02 1771 STY Z$$\F 1772 ZCHL LDA (Z1C),Y 1773 CMP LIT$$D,Y 1774 BNE Z/DO 1775 DEY 1776 BPL ZCHL 1777 LDA #$00 1778 STA Z$$\F 1779 JMP LOOP 1780 Z/DO LDY #$00 1781 LDA (Z1C),Y 1782 CMP #$FF 1783 BEQ FIN/Z 1784 XOR #$20 1785 STA SPAC\F 1786 LDA (Z1C),Y 1787 JSR PRMON 1788 JSR INC/PT 1789 JMP ZMODE 1790 FIN/Z JMP FIN 1791 XX HEX 00 1792 ; 1793 END !