$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