$B02E/45102: String Comparison
Jump from $B019:
B02E: A9 00 LDA #$00
B030: 85 0D STA $0D ; Data type Flag
B032: C6 4D DEC $4D ; Mask used during FRMEVL
B034: 20 A6 B6 JSR $B6A6 ; Perform String Housekeeping
B037: 85 61 STA $61 ; FAC Exponent
B039: 86 62 STX $62 ; FAC Mantissa
B03B: 84 63 STY $63 ; FAC Mantissa
B03D: A5 6C LDA $6C ; AFAC Mantissa
B03F: A4 6D LDY $6D ; AFAC Mantissa
B041: 20 AA B6 JSR $B6AA ; Perform String Housekeeping
B044: 86 6C STX $6C ; AFAC Mantissa
B046: 84 6D STY $6D ; AFAC Mantissa
B048: AA TAX
B049: 38 SEC
B04A: E5 61 SBC $61 ; FAC Exponent
B04C: F0 08 BEQ $B056
B04E: A9 01 LDA #$01
B050: 90 04 BCC $B056
B052: A6 61 LDX $61 ; FAC Exponent
B054: A9 FF LDA #$FF
Jump from $B04C, $B050:
B056: 85 66 STA $66 ; FAC Sign
B058: A0 FF LDY #$FF
B05A: E8 INX
Jump from $B06A:
B05B: C8 INY
B05C: CA DEX
B05D: D0 07 BNE $B066
B05F: A6 66 LDX $66 ; FAC Sign
Jump from $B02B:
B061: 30 0F BMI $B072
B063: 18 CLC
B064: 90 0C BCC $B072
Jump from $B05D:
B066: B1 6C LDA ($6C),Y ; AFAC Mantissa
B068: D1 62 CMP ($62),Y ; FAC Mantissa
B06A: F0 EF BEQ $B05B
B06C: A2 FF LDX #$FF
B06E: B0 02 BCS $B072
B070: A2 01 LDX #$01
Jump from $B061, $B064, $B06E:
B072: E8 INX
B073: 8A TXA
B074: 2A ROL
B075: 25 12 AND $12 ; Flag: TAN sign/Comparative result
B077: F0 02 BEQ $B07B
B079: A9 FF LDA #$FF
Jump from $B077:
B07B: 4C 3C BC JMP $BC3C ; Evaluate <sgn>
Previous Page / Next Page