$B1D1/45521:   Get Array Parameters

Jump from $B0E4:

B1D1: A5 0C     LDA $0C       ; Flag: Default Array dimension
B1D3: 05 0E     ORA $0E       ; Data type Flag
B1D5: 48        PHA
B1D6: A5 0D     LDA $0D       ; Data type Flag
B1D8: 48        PHA
B1D9: A0 00     LDY #$00

Jump from $B207:

B1DB: 98        TYA
B1DC: 48        PHA
B1DD: A5 46     LDA $46       ; Name of Variable being sought in Variable Table
B1DF: 48        PHA
B1E0: A5 45     LDA $45       ; Name of Variable being sought in Variable Table
B1E2: 48        PHA
B1E3: 20 B2 B1  JSR $B1B2     ; Evaluate Text for Integer
B1E6: 68        PLA
B1E7: 85 45     STA $45       ; Name of Variable being sought in Variable Table
B1E9: 68        PLA
B1EA: 85 46     STA $46       ; Name of Variable being sought in Variable Table
B1EC: 68        PLA
B1ED: A8        TAY
B1EE: BA        TSX
B1EF: BD 02 01  LDA $0102,X   ; 6510 Hardware Stack Area
B1F2: 48        PHA
B1F3: BD 01 01  LDA $0101,X   ; 6510 Hardware Stack Area
B1F6: 48        PHA
B1F7: A5 64     LDA $64       ; FAC Mantissa
B1F9: 9D 02 01  STA $0102,X   ; 6510 Hardware Stack Area
B1FC: A5 65     LDA $65       ; FAC Mantissa
B1FE: 9D 01 01  STA $0101,X   ; 6510 Hardware Stack Area
B201: C8        INY
B202: 20 79 00  JSR $0079     ; CHRGOT: Get same Byte again
B205: C9 2C     CMP #$2C
B207: F0 D2     BEQ $B1DB
B209: 84 0B     STY $0B       ; Input Buffer Pointer/Number of Subscripts
B20B: 20 F7 AE  JSR $AEF7     ; Test ')'
B20E: 68        PLA
B20F: 85 0D     STA $0D       ; Data type Flag
B211: 68        PLA
B212: 85 0E     STA $0E       ; Data type Flag
B214: 29 7F     AND #$7F
B216: 85 0C     STA $0C       ; Flag: Default Array dimension

    Previous Page / Next Page