$A9E3/43491: Assign TI$
A9E3: C9 06 CMP #$06
A9E5: D0 3D BNE $AA24
A9E7: A0 00 LDY #$00
A9E9: 84 61 STY $61 ; FAC Exponent
A9EB: 84 66 STY $66 ; FAC Sign
Jump from $AA0C:
A9ED: 84 71 STY $71 ; Pointer: Used during CRUNCH/ASCII conversion
A9EF: 20 1D AA JSR $AA1D
A9F2: 20 E2 BA JSR $BAE2 ; Multiply FAC#1 by 10
A9F5: E6 71 INC $71 ; Pointer: Used during CRUNCH/ASCII conversion
A9F7: A4 71 LDY $71 ; Pointer: Used during CRUNCH/ASCII conversion
A9F9: 20 1D AA JSR $AA1D
A9FC: 20 0C BC JSR $BC0C ; Copy FAC#1 into FAC#2
A9FF: AA TAX
AA00: F0 05 BEQ $AA07
AA02: E8 INX
AA03: 8A TXA
AA04: 20 ED BA JSR $BAED ; Multiply FAC#1 by 10
Jump from $AA00:
AA07: A4 71 LDY $71 ; Pointer: Used during CRUNCH/ASCII conversion
AA09: C8 INY
AA0A: C0 06 CPY #$06
AA0C: D0 DF BNE $A9ED
AA0E: 20 E2 BA JSR $BAE2 ; Multiply FAC#1 by 10
AA11: 20 9B BC JSR $BC9B ; Convert FAC#1 to Integer
AA14: A6 64 LDX $64 ; FAC Mantissa
AA16: A4 63 LDY $63 ; FAC Mantissa
AA18: A5 65 LDA $65 ; FAC Mantissa
AA1A: 4C DB FF JMP $FFDB ; Set Real-Time Clock
Jump from $A9EF, $A9F9:
AA1D: B1 22 LDA ($22),Y ; Second Utility Pointer
AA1F: 20 80 00 JSR $0080 ; CHRGOT: Get same Byte again
AA22: 90 03 BCC $AA27
Jump from $A9E5:
AA24: 4C 48 B2 JMP $B248 ; ?ILLEGAL QUANTITY
Jump from $AA22:
AA27: E9 2F SBC #$2F
AA29: 4C 7E BD JMP $BD7E ; Convert ASCII String to a Number in FAC
Previous Page / Next Page