$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