$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