$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