Apple II User Manual
FB59: A9 17 519 LDA #$17
FB5B: 85 25 520 TABV STA CV ;VTABS TO ROW IN A-REG
FB5D: 4C 22 FC 521 JMP VTAB
FB5D: 4C 22 FC 521 JMP VTAB
FB60: 20 A4 FB 522 MULPM JSR MD1 ;ABS VAL OF AC AUX
FB63: A0 10 523 MUL LDY #$10 ;INDEX FOR 16 BITS
FB63: A0 10 523 MUL LDY #$10 ;INDEX FOR 16 BITS
FB65: A5 50 524 MUL2 LDA ACL ;ACX * AUX + XTND
FB67: 4A 525 LSR ; TO AC, XTND
FB67: 4A 525 LSR ; TO AC, XTND
FB68: 90 0C 526 BCC MUL4 ;IF NO CARRY,
FB6A: 18 527 CLC ; NO PARTIAL PROD.
FB6A: 18 527 CLC ; NO PARTIAL PROD.
FB6B: A2 FE 528 LDX #$FE
FB6D: B5 54 529 MUL3 LDA XTNDL+2,X ;ADD MPLCND (AUX)
FB6D: B5 54 529 MUL3 LDA XTNDL+2,X ;ADD MPLCND (AUX)
FB6F: 75 56 530 ADC AUXL+2,X ; TO PARTIAL PROD
FB71: 95 54 531 STA XTNDL+2,X ; (XTND)
FB71: 95 54 531 STA XTNDL+2,X ; (XTND)
FB73: E8 532 INX
FB74: D0 F7 533 BNE MUL3
FB74: D0 F7 533 BNE MUL3
FB76: A2 03 534 MUL4 LDX #$03
FB78: 76 535 MUL5 DFB $76
FB78: 76 535 MUL5 DFB $76
FB79: 50 536 DFB $50
FB7A: CA 537 DEX
FB7A: CA 537 DEX
FB7B: 10 FB 538 BPL MUL5
FB7D: 88 539 DEY
FB7D: 88 539 DEY
FB7E: D0 E5 540 BNE MUL2
FB80: 60 541 RTS
FB80: 60 541 RTS
FB81: 20 A4 FB 542 DIVPM JSR MD1 ;ABS VAL OF AC, AUX.
FB84: A0 10 543 DIV LDY #$10 ;INDEX FOR 16 BITS
FB84: A0 10 543 DIV LDY #$10 ;INDEX FOR 16 BITS
FB86: 06 50 544 DIV2 ASL ACL
FB88: 26 51 545 ROL ACH
FB88: 26 51 545 ROL ACH
FB8A: 26 52 546 ROL XTNDL ;XTND/AUX
FB8C: 26 53 547 ROL XTNDH ; TO AC.
FB8C: 26 53 547 ROL XTNDH ; TO AC.
FB8E: 38 548 SEC
FB8F: A5 52 549 LDA XTNDL
FB8F: A5 52 549 LDA XTNDL
FB91: E5 54 550 SBC AUXL ;MOD TO XTND.
FB93: AA 551 TAX
FB93: AA 551 TAX
FB94: A5 53 552 LDA XTNDH
FB96: E5 55 553 SBC AUXH
FB96: E5 55 553 SBC AUXH
FB98: 90 06 554 BCC DIV3
FB9A: 86 52 555 STX XTNDL
FB9A: 86 52 555 STX XTNDL
FB9C: 85 53 556 STA XTNDH
FB9E: E6 50 557 INC ACL
FB9E: E6 50 557 INC ACL
FBA0: 88 558 DIV3 DEY
FBA1: D0 E3 559 BNE DIV2
FBA1: D0 E3 559 BNE DIV2
FBA3: 60 560 RTS
FBA4: A0 00 561 MD1 LDY #$00 ;ABS VAL OF AC, AUX
FBA4: A0 00 561 MD1 LDY #$00 ;ABS VAL OF AC, AUX
FBA6: 84 2F 562 STY SIGN ; WITH RESULT SIGN
FBA8: A2 54 563 LDX #AUXL ; IN LSB OF SIGN.
FBA8: A2 54 563 LDX #AUXL ; IN LSB OF SIGN.
FBAA: 20 AF FB 564 JSR MD3
FBAD: A2 50 565 LDX #ACL
FBAD: A2 50 565 LDX #ACL
FBAF: B5 01 566 MD3 LDA LOC1,X ;X SPECIFIES AC OR AUX
FBB1: 10 0D 567 BPL MDRTS
FBB1: 10 0D 567 BPL MDRTS
FBB3: 38 568 SEC
FBB4: 98 569 TYA
FBB4: 98 569 TYA
FBB5: F5 00 570 SBC LOC0,X ;COMPL SPECIFIED REG
FBB7: 95 00 571 STA LOC0,X ; IF NEG.
FBB7: 95 00 571 STA LOC0,X ; IF NEG.
FBB9: 98 572 TYA
FBBA: F5 01 573 SBC LOC1,X
FBBA: F5 01 573 SBC LOC1,X
FBBC: 95 01 574 STA LOC1,X
FBBE: E6 2F 575 INC SIGN
FBBE: E6 2F 575 INC SIGN
FBC0: 60 576 MDRTS RTS
FBC1: 48 577 BASCALC PHA ;CALC BASE ADR IN BASL,H
FBC1: 48 577 BASCALC PHA ;CALC BASE ADR IN BASL,H
FBC2: 4A 578 LSR ; FOR GIVEN LINE NO
FBC3: 29 03 579 AND #$03 ; 0<=LINE NO.<=$17
FBC3: 29 03 579 AND #$03 ; 0<=LINE NO.<=$17
FBC5: 09 04 580 ORA #$04 ;ARG=000ABCDE, GENERATE