79 lines
1.5 KiB
NASM
79 lines
1.5 KiB
NASM
#define prgmloadersize prgmloaderend - prgmloader
|
|
#define prgmunloadersize prgmunloaderend - prgmunloader
|
|
prgmloaderloc equ SafeSScreen
|
|
prgmunloaderloc equ SafeSScreen + prgmloadersize
|
|
|
|
prgmbasic:
|
|
|
|
prgmasm:
|
|
call _clrtxtshdw
|
|
call _homeup
|
|
call _runindicon
|
|
call _apdsetup
|
|
call _enableapd
|
|
jp prgmloaderloc
|
|
|
|
prgmloader:
|
|
call prgm_to_usermem
|
|
ld hl, prgmunloaderloc
|
|
push hl
|
|
set appautoscroll,(iy + appflags)
|
|
jp usermem
|
|
prgmloaderend:
|
|
|
|
prgmunloader:
|
|
ld hl, fsh
|
|
ld de, op1
|
|
call strcpy
|
|
call prgm_to_usermem
|
|
call _runindicoff
|
|
jp Fin
|
|
prgmunloaderend:
|
|
|
|
prgminstallload:
|
|
ld hl, prgmloader
|
|
ld de, prgmloaderloc
|
|
ld bc, prgmloadersize
|
|
ldir
|
|
ld hl, prgmunloader
|
|
ld de, prgmunloaderloc
|
|
ld bc, prgmunloadersize
|
|
ldir
|
|
|
|
ret
|
|
|
|
prgm_to_usermem:
|
|
ld a,$9 ; 'add hl,bc'
|
|
ld (prgm_to_usermem.smc),a
|
|
call _ChkFindSym
|
|
call _ChkInRam
|
|
ex de,hl
|
|
jr z, prgm_to_usermem.in_ram
|
|
xor a,a
|
|
ld (prgm_to_usermem.smc),a
|
|
ld de,9
|
|
add hl,de
|
|
ld e,(hl)
|
|
add hl,de
|
|
inc hl
|
|
prgm_to_usermem.in_ram: ; hl -> size bytes
|
|
call _LoadDEInd_s
|
|
inc hl
|
|
inc hl ; bypass tExtTok, tAsm84CECmp
|
|
push hl
|
|
push de
|
|
ex de,hl
|
|
call _ErrNotEnoughMem ; check and see if we have enough memory
|
|
pop hl
|
|
ld (asm_prgm_size),hl ; store the size of the program
|
|
ld de,userMem
|
|
push de
|
|
call _InsertMem ; insert memory into usermem
|
|
pop de
|
|
pop hl ; hl -> start of program
|
|
ld bc,(asm_prgm_size) ; load size of current program
|
|
prgm_to_usermem.smc equ $
|
|
add hl,bc ; if not in ram smc it so it doesn't execute
|
|
ldir ; copy the program to userMem
|
|
ret ; return
|