$BBC7/48071:   Store FAC#1 in Memory

Jump from $E05D:

BBC7: A2 5C     LDX #$5C
BBC9: 2C        .BYTE $2C

Jump from $E047, $E2B4:

BBCA: A2 57     LDX #$57
BBCC: A0 00     LDY #$00
BBCE: F0 04     BEQ $BBD4

Jump from $A9D6, $AD52:

BBD0: A6 49     LDX $49       ; Pointer: Index Variable for FOR/NEXT loop
BBD2: A4 4A     LDY $4A       ; Pointer: Index Variable for FOR/NEXT loop

Jump from $BBCE, $B420, $BF88, $E0F6:

BBD4: 20 1B BC  JSR $BC1B     ; Round FAC#1
BBD7: 86 22     STX $22       ; Second Utility Pointer
BBD9: 84 23     STY $23       ; Second Utility Pointer
BBDB: A0 04     LDY #$04
BBDD: A5 65     LDA $65       ; FAC Mantissa
BBDF: 91 22     STA ($22),Y   ; Second Utility Pointer
BBE1: 88        DEY
BBE2: A5 64     LDA $64       ; FAC Mantissa
BBE4: 91 22     STA ($22),Y   ; Second Utility Pointer
BBE6: 88        DEY
BBE7: A5 63     LDA $63       ; FAC Mantissa
BBE9: 91 22     STA ($22),Y   ; Second Utility Pointer
BBEB: 88        DEY
BBEC: A5 66     LDA $66       ; FAC Sign
BBEE: 09 7F     ORA #$7F
BBF0: 25 62     AND $62       ; FAC Mantissa
BBF2: 91 22     STA ($22),Y   ; Second Utility Pointer
BBF4: 88        DEY
BBF5: A5 61     LDA $61       ; FAC Exponent
BBF7: 91 22     STA ($22),Y   ; Second Utility Pointer
BBF9: 84 70     STY $70       ; FAC low-order rounding
BBFB: 60        RTS

    Previous Page / Next Page