$E168/57704:   Perform [load]

E168: A9 00     LDA #$00
E16A: 85 0A     STA $0A       ; Load/Verify-Flag
E16C: 20 D4 E1  JSR $E1D4     ; Get Parameters For LOAD/SAVE
E16F: A5 0A     LDA $0A       ; Load/Verify-Flag
E171: A6 2B     LDX $2B       ; Pointer: Start of BASIC Text Area
E173: A4 2C     LDY $2C       ; Pointer: Start of BASIC Text Area
E175: 20 D5 FF  JSR $FFD5     ; Load RAM From Device
E178: B0 57     BCS $E1D1     ; Perform [close]
E17A: A5 0A     LDA $0A       ; Load/Verify-Flag
E17C: F0 17     BEQ $E195
E17E: A2 1C     LDX #$1C
E180: 20 B7 FF  JSR $FFB7     ; Read I/O Status Word
E183: 29 10     AND #$10
E185: D0 17     BNE $E19E
E187: A5 7A     LDA $7A       ; Pointer: Current Byte of BASIC Text
E189: C9 02     CMP #$02
E18B: F0 07     BEQ $E194
E18D: A9 64     LDA #$64
E18F: A0 A3     LDY #$A3
E191: 4C 1E AB  JMP $AB1E     ; Output String

Jump from $E18B, $E1CF:

E194: 60        RTS

Jump from $E17C:

E195: 20 B7 FF  JSR $FFB7     ; Read I/O Status Word
E198: 29 BF     AND #$BF
E19A: F0 05     BEQ $E1A1
E19C: A2 1D     LDX #$1D

Jump from $E185:

E19E: 4C 37 A4  JMP $A437     ; Error Routine

Jump from $E19A:

E1A1: A5 7B     LDA $7B       ; Pointer: Current Byte of BASIC Text
E1A3: C9 02     CMP #$02
E1A5: D0 0E     BNE $E1B5
E1A7: 86 2D     STX $2D       ; Pointer: Start of BASIC Variables
E1A9: 84 2E     STY $2E       ; Pointer: Start of BASIC Variables
E1AB: A9 76     LDA #$76
E1AD: A0 A3     LDY #$A3
E1AF: 20 1E AB  JSR $AB1E     ; Output String
E1B2: 4C 2A A5  JMP $A52A     ; Insert BASIC Text

Jump from $E1A5:

E1B5: 20 8E A6  JSR $A68E     ; Reset TXTPTR
E1B8: 20 33 A5  JSR $A533     ; Rechain Lines
E1BB: 4C 77 A6  JMP $A677     ; Perform [clr]

    Previous Page / Next Page