$B487/46215: Set Up String
Jump from $AABF, $AB1E, $AEC6, $B473:
B487: A2 22 LDX #$22
B489: 86 07 STX $07 ; Temporary Integer during OR/AND
B48B: 86 08 STX $08 ; Flag: Scan for Quote at end of String
Jump from $AC7D:
B48D: 85 6F STA $6F ; Sign of result of Arithmetic Evaluation
B48F: 84 70 STY $70 ; FAC low-order rounding
B491: 85 62 STA $62 ; FAC Mantissa
B493: 84 63 STY $63 ; FAC Mantissa
B495: A0 FF LDY #$FF
Jump from $B4A2:
B497: C8 INY
B498: B1 6F LDA ($6F),Y ; Sign of result of Arithmetic Evaluation
B49A: F0 0C BEQ $B4A8
B49C: C5 07 CMP $07 ; Temporary Integer during OR/AND
B49E: F0 04 BEQ $B4A4
B4A0: C5 08 CMP $08 ; Flag: Scan for Quote at end of String
B4A2: D0 F3 BNE $B497
Jump from $B49E:
B4A4: C9 22 CMP #$22
B4A6: F0 01 BEQ $B4A9
Jump from $B49A:
B4A8: 18 CLC
Jump from $B4A6:
B4A9: 84 61 STY $61 ; FAC Exponent
B4AB: 98 TYA
B4AC: 65 6F ADC $6F ; Sign of result of Arithmetic Evaluation
B4AE: 85 71 STA $71 ; Pointer: Used during CRUNCH/ASCII conversion
B4B0: A6 70 LDX $70 ; FAC low-order rounding
B4B2: 90 01 BCC $B4B5
B4B4: E8 INX
Jump from $B4B2:
B4B5: 86 72 STX $72 ; Pointer: Used during CRUNCH/ASCII conversion
B4B7: A5 70 LDA $70 ; FAC low-order rounding
B4B9: F0 04 BEQ $B4BF
B4BB: C9 02 CMP #$02
B4BD: D0 0B BNE $B4CA
Jump from $B4B9:
B4BF: 98 TYA
B4C0: 20 75 B4 JSR $B475 ; Evaluate <str$>
B4C3: A6 6F LDX $6F ; Sign of result of Arithmetic Evaluation
B4C5: A4 70 LDY $70 ; FAC low-order rounding
B4C7: 20 88 B6 JSR $B688 ; Store String in High RAM
Jump from $B4BD, $B674, $B6FD, $B729:
B4CA: A6 16 LDX $16 ; Pointer: Temporary String Stack
B4CC: E0 22 CPX #$22
B4CE: D0 05 BNE $B4D5 ; Save String Descriptor
B4D0: A2 19 LDX #$19
Jump from $B51A:
B4D2: 4C 37 A4 JMP $A437 ; Error Routine
Previous Page / Next Page