$AF48/44872: Convert TI to ASCII String
AF48: 20 84 AF JSR $AF84
AF4B: 84 5E STY $5E ; Temporary storage for FLPT value
AF4D: 88 DEY
AF4E: 84 71 STY $71 ; Pointer: Used during CRUNCH/ASCII conversion
AF50: A0 06 LDY #$06
AF52: 84 5D STY $5D ; Temporary storage for FLPT value
AF54: A0 24 LDY #$24
AF56: 20 68 BE JSR $BE68 ; Convert TI to String
AF59: 4C 6F B4 JMP $B46F ; Evaluate <str$>
Jump from $AF3E, $AF42, $AF46:
AF5C: 60 RTS
Jump from $AF35:
AF5D: 24 0E BIT $0E ; Data type Flag
AF5F: 10 0D BPL $AF6E
AF61: A0 00 LDY #$00
AF63: B1 64 LDA ($64),Y ; FAC Mantissa
AF65: AA TAX
AF66: C8 INY
AF67: B1 64 LDA ($64),Y ; FAC Mantissa
AF69: A8 TAY
AF6A: 8A TXA
AF6B: 4C 91 B3 JMP $B391 ; Convert Integer in (AC/YR) to Flpt
Jump from $AF5F:
AF6E: 20 14 AF JSR $AF14 ; Identify Reserved Variable
AF71: 90 2D BCC $AFA0
AF73: E0 54 CPX #$54
AF75: D0 1B BNE $AF92
AF77: C0 49 CPY #$49
AF79: D0 25 BNE $AFA0
AF7B: 20 84 AF JSR $AF84
AF7E: 98 TYA
AF7F: A2 A0 LDX #$A0
AF81: 4C 4F BC JMP $BC4F ; Evaluate <sgn>
Jump from $AF48, $AF7B:
AF84: 20 DE FF JSR $FFDE ; Read Real-Time Clock
AF87: 86 64 STX $64 ; FAC Mantissa
AF89: 84 63 STY $63 ; FAC Mantissa
AF8B: 85 65 STA $65 ; FAC Mantissa
AF8D: A0 00 LDY #$00
AF8F: 84 62 STY $62 ; FAC Mantissa
AF91: 60 RTS
Jump from $AF75:
AF92: E0 53 CPX #$53
AF94: D0 0A BNE $AFA0
AF96: C0 54 CPY #$54
AF98: D0 06 BNE $AFA0
AF9A: 20 B7 FF JSR $FFB7 ; Read I/O Status Word
AF9D: 4C 3C BC JMP $BC3C ; Evaluate <sgn>
Jump from $AF71, $AF79, $AF94, $AF98:
AFA0: A5 64 LDA $64 ; FAC Mantissa
AFA2: A4 65 LDY $65 ; FAC Mantissa
AFA4: 4C A2 BB JMP $BBA2 ; Load FAC#1 From Memory
Previous Page / Next Page