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