progress
This commit is contained in:
parent
6f11aff3a4
commit
c55af400e4
6
FSHa.asm
6
FSHa.asm
|
|
@ -68,11 +68,11 @@ FshFlags: .DB %00000000
|
|||
; 1: Error Flag
|
||||
; 2: Program Flag
|
||||
|
||||
#include "includes/lib/std/std.inc"
|
||||
#include "includes/lib/fsh/fsh.inc"
|
||||
#include "includes/lib/crypto/crypto.inc"
|
||||
#include "includes/lib/lib.inc"
|
||||
|
||||
#include "includes/man-db.asm"
|
||||
#include "includes/Command.asm"
|
||||
|
||||
.db "ENDFSHA"
|
||||
|
||||
.end
|
||||
|
|
|
|||
BIN
bin/FSHa.8xp
BIN
bin/FSHa.8xp
Binary file not shown.
3295
bin/FSHa.lst
3295
bin/FSHa.lst
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,4 @@
|
|||
#include "includes/lib/std/std.inc"
|
||||
#include "includes/lib/fsh/fsh.inc"
|
||||
#include "includes/lib/prgm/prgm.inc"
|
||||
#include "includes/lib/crypto/crypto.inc"
|
||||
|
|
@ -0,0 +1,31 @@
|
|||
prgmbasic:
|
||||
|
||||
prgmasm:
|
||||
call _ClrTxtShdw
|
||||
call _HomeUp
|
||||
call _RunIndicOn
|
||||
call _APDSetup
|
||||
call _EnableAPD
|
||||
;jp prgmloaderloc
|
||||
|
||||
prgmloader:
|
||||
;load prgm to userMem
|
||||
;ld hl, prgmunloaderloc
|
||||
;push hl
|
||||
set appAutoScroll,(iy + appflags)
|
||||
jp userMem
|
||||
prgmloaderend:
|
||||
#define prgmloadersize prgmloaderend - prgmloader
|
||||
|
||||
prgmunloader:
|
||||
;ld FSHA to userMem
|
||||
call _RunIndicOff
|
||||
jp Fin
|
||||
prgmunloaderend:
|
||||
#define prgmunloadersize prgmunloaderend - prgmunloader
|
||||
|
||||
|
||||
prgminstallload:
|
||||
|
||||
|
||||
ret
|
||||
|
|
@ -0,0 +1 @@
|
|||
#include "includes/lib/prgm/Prgm.asm"
|
||||
|
|
@ -1,6 +1,4 @@
|
|||
.nolist
|
||||
; Included for Assembler Compatibility
|
||||
;------------------------------------
|
||||
#define equ .equ
|
||||
#define EQU .equ
|
||||
#define end .end
|
||||
|
|
@ -27,4 +25,6 @@ FshCmdErrCode equ FshCmdArgFlags + 1
|
|||
FshCmdOP equ FshCmdErrCode + 1
|
||||
FshScratch equ FshCmdOP + 2
|
||||
|
||||
SafeSScreen equ FshVarsSize + FshCmdInptSize + FshPrgmSize + 10
|
||||
|
||||
.list
|
||||
|
|
|
|||
Loading…
Reference in New Issue