$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