$B3B3/46003:   Perform [def fn]

B3B3: 20 E1 B3  JSR $B3E1     ; Check Syntax of FN
B3B6: 20 A6 B3  JSR $B3A6     ; Confirm Program Mode
B3B9: 20 FA AE  JSR $AEFA     ; Test '('
B3BC: A9 80     LDA #$80
B3BE: 85 10     STA $10       ; Flag: Subscript reference/User Function call
B3C0: 20 8B B0  JSR $B08B     ; Identify Variable
B3C3: 20 8D AD  JSR $AD8D     ; Confirm Result
B3C6: 20 F7 AE  JSR $AEF7     ; Test ')'
B3C9: A9 B2     LDA #$B2
B3CB: 20 FF AE  JSR $AEFF     ; Test ','
B3CE: 48        PHA
B3CF: A5 48     LDA $48       ; Value/Descriptor-Pointer
B3D1: 48        PHA
B3D2: A5 47     LDA $47       ; Value/Descriptor-Pointer
B3D4: 48        PHA
B3D5: A5 7B     LDA $7B       ; Pointer: Current Byte of BASIC Text
B3D7: 48        PHA
B3D8: A5 7A     LDA $7A       ; Pointer: Current Byte of BASIC Text
B3DA: 48        PHA
B3DB: 20 F8 A8  JSR $A8F8     ; Perform [data]
B3DE: 4C 4F B4  JMP $B44F     ; Perform [fn]

    Previous Page / Next Page