$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 |