progress

FSHa.asm

@@ -68,11 +68,11 @@ FshFlags: .DB %00000000
 ; 1: Error Flag
 ; 2: Program Flag
 
-#include "includes/lib/std/std.inc"
+#include "includes/lib/lib.inc"
-#include "includes/lib/fsh/fsh.inc"
-#include "includes/lib/crypto/crypto.inc"
 
 #include "includes/man-db.asm"
 #include "includes/Command.asm"
 
+.db "ENDFSHA"
+
 .end

includes/lib/lib.inc

@@ -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"

includes/lib/prgm/Prgm.asm

@@ -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

includes/lib/prgm/prgm.inc

@@ -0,0 +1 @@
+#include "includes/lib/prgm/Prgm.asm"

includes/static/define.inc

@@ -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