SET now uses arguments

renamed arguments in define

includes/commands/SET.asm

@@ -2,6 +2,19 @@ fshcmdSET:  .db "SET", 0
 fshcmdSETo: .db $01
 fshcmdSETu: .db "Sets a value in FSH memory", 0
 fshcmdSETf:
+fshcmdSETfArg0: 
+ ld hl, FshCmdArg0
+ ld de, 0
+ ld e, (hl)
+ inc hl
+ ld d, (hl)
+ ex de, hl
+ ld de, 0
+ call cpHLDE
+ jr nz, fshcmdSETfArg1
+fshcmdSETfArg0Get:
+ ld a, 'G'
+ call _PutC
  xor a
  ld (CurCol), a
  ld hl, fshcmdSETfDIndex
@@ -12,6 +25,18 @@ fshcmdSETf:
  call strtob
  ld de, 0
  ld e, a
+fshcmdSETfArg1:
+ push de
+  ld hl, FshCmdArg1
+  ld e, (hl)
+  inc hl
+  ld d, (hl)
+  ex de, hl
+  ld de, 0
+  call cpHLDE
+ pop de
+ jr nz, fshcmdSETfExe
+fshcmdSETfArg1Get:
  push de
   call _NewLine
   xor a
@@ -23,6 +48,7 @@ fshcmdSETf:
   call inputnumstr
   call strtob
  pop de
+fshcmdSETfExe:
  ld hl, 0
  ld l, a
  call fshvarset

includes/define.inc

@@ -19,7 +19,7 @@ FshPrgm       equ FshCmd + FshCmdSize
 
 FshCmdNull    equ FshCmd  + FshCmdInptSize
 FshCmdOP      equ FshCmdNull + 1
-FshCmdArg1    equ FshCmdNull + 2
+FshCmdArg0    equ FshCmdOP + 1
-FshCmdArg2    equ FshCmdNull + 4
+FshCmdArg1    equ FshCmdOP + 3
-FshCmdArg3    equ FshCmdNull + 6
+FshCmdArg2    equ FshCmdOP + 5
-FshCmdArg4    equ FshCmdNull + 8
+FshCmdArg3    equ FshCmdOP + 7