A better option, I think, would be to use the Basic launcher source code we had, to make a simple command.
I mean, to use the functionality on EPs where there is not possible to install the EPDOS Rom.
BASROM: LD IX,(0BF9CH) ;CY=1 HA MEGVAN + A'=BASIC ROM
BASROM10: LD DE,-4
ADD IX,DE
LD A,(IX)
OR A
RET Z
OUT (0B1H),A
EX AF,AF'
LD BC,6
LD DE,7AB5H
LD HL,_BASIC
BASROM20: LD A,(DE)
INC DE
CPI
JR NZ,BASROM10
BASROM30: JP PE,BASROM20
SCF
RET
_BASLOAD: PUSH DE
CALL BASROM
LD A,40H
LD C,0
POP DE
RET NC
DI
PUSH DE
LD HL,200H
PUSH HL
POP IX
LD DE,201H
LD BC,47H
LD (HL),0
LDIR
POP HL
LD C,(HL)
LDIR
LD H,D
LD L,E
DEC HL
LD (HL),0
LD BC,1000H
LDIR
LD C,60H
EXOS 0
LD SP,0DBBH
LD DE,0BEB8H+6
CALL _STRWR
DB "I"+128,"S"+128,"-"+128,"B"+128
DB "A"+128,"S"+128,"I"+128,"C"+128
DB " program 0",0
LD HL,1054
LD (246H),HL
LD HL,0101H
LD (20FH),HL
LD A,H
LD (200H),A
LD L,4
LD (0BFF8H),HL
LD DE,446H
PUSH DE
LD HL,BASRUN40
LD BC,BASRUN50-BASRUN40
LDIR
EX AF,AF'
RET
BASRUN40: OUT (0B3H),A
CALL 0C0C6H
CALL 0ED63H
LD (IX+0CH),L
ADD HL,HL
LD DE,0E54H
ADD HL,DE
CALL 0F579H
LD (21CH),HL
LD (21EH),HL
LD (220H),HL
LD DE,0FA0AH
EXOS 26
CALL 0ED90H
CALL 0CCC7H
RST 010H
DB 092H,7,096H,019H,0EH,0
CALL 0F1D8H
CALL 0D85BH
CALL 0C0C6H
CALL 0C3D1H
CALL 0C3DBH
JP 0C37CH
BASRUN50:
