$E3BF/58303: Initialize BASIC RAM
Jump from $E397:
E3BF: A9 4C LDA #$4C
E3C1: 85 54 STA $54 ; Jump Vector used in Function Evaluation
E3C3: 8D 10 03 STA $0310 ; USR Function JMP Instruction
E3C6: A9 48 LDA #$48
E3C8: A0 B2 LDY #$B2
E3CA: 8D 11 03 STA $0311 ; USR Address
E3CD: 8C 12 03 STY $0312 ; USR Address
E3D0: A9 91 LDA #$91
E3D2: A0 B3 LDY #$B3
E3D4: 85 05 STA $05 ; Jump Vector: Convert Integer to Floating point
E3D6: 84 06 STY $06 ; Jump Vector: Convert Integer to Floating point
E3D8: A9 AA LDA #$AA
E3DA: A0 B1 LDY #$B1
E3DC: 85 03 STA $03 ; Jump Vector: Convert FAC to Integer
E3DE: 84 04 STY $04 ; Jump Vector: Convert FAC to Integer
E3E0: A2 1C LDX #$1C
Jump from $E3E8:
E3E2: BD A2 E3 LDA $E3A2,X ; CHRGET For Zero-page
E3E5: 95 73 STA $73,X ; CHRGET: Get next Byte of BASIC Text
E3E7: CA DEX
E3E8: 10 F8 BPL $E3E2
E3EA: A9 03 LDA #$03
E3EC: 85 53 STA $53 ; Length of String during Garbage collection
E3EE: A9 00 LDA #$00
E3F0: 85 68 STA $68 ; Bit Overflow Area during normalisation Routine
E3F2: 85 13 STA $13 ; File number of current Input Device
E3F4: 85 18 STA $18 ; Last temporary String Address
E3F6: A2 01 LDX #$01
E3F8: 8E FD 01 STX $01FD ; BASIC Stack Area
E3FB: 8E FC 01 STX $01FC ; BASIC Stack Area
E3FE: A2 19 LDX #$19
E400: 86 16 STX $16 ; Pointer: Temporary String Stack
E402: 38 SEC
E403: 20 9C FF JSR $FF9C ; Set/Read System RAM Bottom
E406: 86 2B STX $2B ; Pointer: Start of BASIC Text Area
E408: 84 2C STY $2C ; Pointer: Start of BASIC Text Area
E40A: 38 SEC
E40B: 20 99 FF JSR $FF99 ; Set/Read System RAM Top
E40E: 86 37 STX $37 ; Pointer: Highest Address available to BASIC
E410: 84 38 STY $38 ; Pointer: Highest Address available to BASIC
E412: 86 33 STX $33 ; Pointer: Bottom of String space
E414: 84 34 STY $34 ; Pointer: Bottom of String space
E416: A0 00 LDY #$00
E418: 98 TYA
E419: 91 2B STA ($2B),Y ; Pointer: Start of BASIC Text Area
E41B: E6 2B INC $2B ; Pointer: Start of BASIC Text Area
E41D: D0 02 BNE $E421
E41F: E6 2C INC $2C ; Pointer: Start of BASIC Text Area
Jump from $E41D:
E421: 60 RTS
Previous Page / Next Page