$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