progress on FAT16 support

2024-01-12 13:29:20 +01:00
parent ee2f22df09
commit 507eb3a017
40 changed files with 19699 additions and 6346 deletions
--- a/OperatingSystem/monitor_v2/include/cmd_mem.s
+++ b/OperatingSystem/monitor_v2/include/cmd_mem.s
@@ -0,0 +1,148 @@
+OP_EXEC:
+    ;DE contains pointer
+    push DE
+    pop HL
+    call DHEX_TO_BYTE
+    ld b,a                  ;store result in b
+    ld a,e                  ;check for error
+    and a
+    jp nz, ERR_SYNTAX
+    inc HL
+    inc HL
+    call DHEX_TO_BYTE
+    ld c,a
+    ld a,e  ;check for error
+    and a
+    jp nz, ERR_SYNTAX
+    ld h,b
+    ld l,c
+    jp (hl)
+OP_CALL:
+    ;DE contains pointer
+    push DE
+    pop HL
+    call DHEX_TO_BYTE
+    ld b,a                  ;store result in b
+    ld a,e                  ;check for error
+    and a
+    jp nz, ERR_SYNTAX
+    inc HL
+    inc HL
+    call DHEX_TO_BYTE
+    ld c,a
+    ld a,e  ;check for error
+    and a
+    jp nz, ERR_SYNTAX
+    ld h,b
+    ld l,c
+    call _OP_CALL
+    call print_newLine
+    ret
+_OP_CALL
+    jp (hl)
+
+OP_DUMP:
+    ;DE contains pointer
+    push DE
+    pop HL
+    call DHEX_TO_BYTE       ;parse start address  
+    ld b,a                  ;store result in b
+    ld a,e                  ;check for error
+    and a
+    jp nz, ERR_SYNTAX
+    inc HL
+    inc HL
+    call DHEX_TO_BYTE
+    ld c,a
+    ld a,e  ;check for error
+    and a
+    jp nz, ERR_SYNTAX
+    inc HL
+    inc HL
+    ld a,(HL)
+    cp ' '
+    jp nz, ERR_SYNTAX
+    inc HL
+    call DHEX_TO_BYTE
+    push af
+    ld a,e  ;check for error
+    and a
+    jp nz, ERR_SYNTAX  
+    pop af
+
+    ld h,b
+    ld l,c
+    ld b,a
+
+    call dump_pretty
+    ret
+
+OP_SET:
+    ;DE contains pointer
+    push DE
+    pop HL
+    call DHEX_TO_BYTE       ;parse start address  
+    ld b,a                  ;store result in b
+    ld a,e                  ;check for error
+    and a
+    jp nz, ERR_SYNTAX
+    inc HL
+    inc HL
+    call DHEX_TO_BYTE
+    ld c,a
+    ld a,e  ;check for error
+    and a
+    jp nz, ERR_SYNTAX
+    ;bc now contains the start address
+    INC HL
+    INC HL
+    ;hl now cointains start addr of data bytes
+_OP_SET_LOOP:
+    ld a,(hl)
+    cp 0    ;if 0 then end
+    RET Z
+    cp ' '
+    jp nz, ERR_SYNTAX
+    inc hl  ;next byte
+    call DHEX_TO_BYTE
+    ld (bc),a   ;load byte to 
+    ld a,e
+    and a
+    jp nz, ERR_SYNTAX    
+    inc bc
+    inc hl
+    inc hl
+    jp _OP_SET_LOOP
+
+OP_DASM:
+    push DE
+    pop HL
+    call DHEX_TO_BYTE       
+    ld b,a                  ;store result in b
+    ld a,e                  ;check for error
+    and a
+    jp nz, ERR_SYNTAX
+    inc hl
+    inc hl
+    call DHEX_TO_BYTE
+    ld c,a
+    ld a,e  ;check for error
+    and a
+    jp nz, ERR_SYNTAX  
+    inc hl
+    inc hl
+    ld a,(HL)
+    cp ' '
+    jp nz, ERR_SYNTAX
+    inc hl
+    call DHEX_TO_BYTE
+    push af
+    ld a,e  ;check for error
+    and a
+    jp nz, ERR_SYNTAX  
+    ld h,b
+    ld l,c
+    pop af  ;restore af
+    ld b,a
+    call disassemble
+    ret