$E097/57495:   Evaluate <rnd>

E097: 20 2B BC  JSR $BC2B     ; Check Sign of FAC#1
E09A: 30 37     BMI $E0D3
E09C: D0 20     BNE $E0BE
E09E: 20 F3 FF  JSR $FFF3     ; Return I/O Base Address
E0A1: 86 22     STX $22       ; Second Utility Pointer
E0A3: 84 23     STY $23       ; Second Utility Pointer
E0A5: A0 04     LDY #$04
E0A7: B1 22     LDA ($22),Y   ; Second Utility Pointer
E0A9: 85 62     STA $62       ; FAC Mantissa
E0AB: C8        INY
E0AC: B1 22     LDA ($22),Y   ; Second Utility Pointer
E0AE: 85 64     STA $64       ; FAC Mantissa
E0B0: A0 08     LDY #$08
E0B2: B1 22     LDA ($22),Y   ; Second Utility Pointer
E0B4: 85 63     STA $63       ; FAC Mantissa
E0B6: C8        INY
E0B7: B1 22     LDA ($22),Y   ; Second Utility Pointer
E0B9: 85 65     STA $65       ; FAC Mantissa
E0BB: 4C E3 E0  JMP $E0E3

Jump from $E09C:

E0BE: A9 8B     LDA #$8B
E0C0: A0 00     LDY #$00
E0C2: 20 A2 BB  JSR $BBA2     ; Load FAC#1 From Memory
E0C5: A9 8D     LDA #$8D
E0C7: A0 E0     LDY #$E0
E0C9: 20 28 BA  JSR $BA28     ; Perform Multiply
E0CC: A9 92     LDA #$92
E0CE: A0 E0     LDY #$E0
E0D0: 20 67 B8  JSR $B867     ; Perform Addition

Jump from $E09A:

E0D3: A6 65     LDX $65       ; FAC Mantissa
E0D5: A5 62     LDA $62       ; FAC Mantissa
E0D7: 85 65     STA $65       ; FAC Mantissa
E0D9: 86 62     STX $62       ; FAC Mantissa
E0DB: A6 63     LDX $63       ; FAC Mantissa
E0DD: A5 64     LDA $64       ; FAC Mantissa
E0DF: 85 63     STA $63       ; FAC Mantissa
E0E1: 86 64     STX $64       ; FAC Mantissa

Jump from $E0BB:

E0E3: A9 00     LDA #$00
E0E5: 85 66     STA $66       ; FAC Sign
E0E7: A5 61     LDA $61       ; FAC Exponent
E0E9: 85 70     STA $70       ; FAC low-order rounding
E0EB: A9 80     LDA #$80
E0ED: 85 61     STA $61       ; FAC Exponent
E0EF: 20 D7 B8  JSR $B8D7     ; Perform Addition
E0F2: A2 8B     LDX #$8B
E0F4: A0 00     LDY #$00

Jump from $E2C2:

E0F6: 4C D4 BB  JMP $BBD4     ; Store FAC#1 in Memory

    Previous Page / Next Page