$B3F4/46068: Perform [fn]
Jump from $AEE7:
B3F4: 20 E1 B3 JSR $B3E1 ; Check Syntax of FN
B3F7: A5 4F LDA $4F ; Temporary storage for FLPT value
B3F9: 48 PHA
B3FA: A5 4E LDA $4E ; Temporary storage for FLPT value
B3FC: 48 PHA
B3FD: 20 F1 AE JSR $AEF1 ; Expression in Brackets
B400: 20 8D AD JSR $AD8D ; Confirm Result
B403: 68 PLA
B404: 85 4E STA $4E ; Temporary storage for FLPT value
B406: 68 PLA
B407: 85 4F STA $4F ; Temporary storage for FLPT value
B409: A0 02 LDY #$02
B40B: B1 4E LDA ($4E),Y ; Temporary storage for FLPT value
B40D: 85 47 STA $47 ; Value/Descriptor-Pointer
B40F: AA TAX
B410: C8 INY
B411: B1 4E LDA ($4E),Y ; Temporary storage for FLPT value
B413: F0 99 BEQ $B3AE ; ?UNDEF'D FUNCTION
B415: 85 48 STA $48 ; Value/Descriptor-Pointer
B417: C8 INY
Jump from $B41C:
B418: B1 47 LDA ($47),Y ; Value/Descriptor-Pointer
B41A: 48 PHA
B41B: 88 DEY
B41C: 10 FA BPL $B418
B41E: A4 48 LDY $48 ; Value/Descriptor-Pointer
B420: 20 D4 BB JSR $BBD4 ; Store FAC#1 in Memory
B423: A5 7B LDA $7B ; Pointer: Current Byte of BASIC Text
B425: 48 PHA
B426: A5 7A LDA $7A ; Pointer: Current Byte of BASIC Text
B428: 48 PHA
B429: B1 4E LDA ($4E),Y ; Temporary storage for FLPT value
B42B: 85 7A STA $7A ; Pointer: Current Byte of BASIC Text
B42D: C8 INY
B42E: B1 4E LDA ($4E),Y ; Temporary storage for FLPT value
B430: 85 7B STA $7B ; Pointer: Current Byte of BASIC Text
B432: A5 48 LDA $48 ; Value/Descriptor-Pointer
B434: 48 PHA
B435: A5 47 LDA $47 ; Value/Descriptor-Pointer
B437: 48 PHA
B438: 20 8A AD JSR $AD8A ; Confirm Result
B43B: 68 PLA
B43C: 85 4E STA $4E ; Temporary storage for FLPT value
B43E: 68 PLA
B43F: 85 4F STA $4F ; Temporary storage for FLPT value
B441: 20 79 00 JSR $0079 ; CHRGOT: Get same Byte again
B444: F0 03 BEQ $B449
B446: 4C 08 AF JMP $AF08 ; Output ?SYNTAX Error
Jump from $B444:
B449: 68 PLA
B44A: 85 7A STA $7A ; Pointer: Current Byte of BASIC Text
B44C: 68 PLA
B44D: 85 7B STA $7B ; Pointer: Current Byte of BASIC Text
Jump from $B3DE:
B44F: A0 00 LDY #$00
B451: 68 PLA
B452: 91 4E STA ($4E),Y ; Temporary storage for FLPT value
B454: 68 PLA
B455: C8 INY
B456: 91 4E STA ($4E),Y ; Temporary storage for FLPT value
B458: 68 PLA
B459: C8 INY
B45A: 91 4E STA ($4E),Y ; Temporary storage for FLPT value
B45C: 68 PLA
B45D: C8 INY
B45E: 91 4E STA ($4E),Y ; Temporary storage for FLPT value
B460: 68 PLA
B461: C8 INY
B462: 91 4E STA ($4E),Y ; Temporary storage for FLPT value
B464: 60 RTS
Previous Page / Next Page