diff --git a/src/makelib/makelib.asm b/src/makelib/makelib.asm index a652f58..9527795 100644 --- a/src/makelib/makelib.asm +++ b/src/makelib/makelib.asm @@ -10,6 +10,7 @@ close_file .equ 16 ; sluit file create_file .equ 22 ; maak file aan read_block .equ 39 ; laad van disk write_block .equ 38 ; schrijf naar disk +term_error .equ 0x62 entry_length .equ 11 + 2 + 3 @@ -180,9 +181,6 @@ store_files1: push bc LD HL,#fname1 LD B,#11 CALL PUT_TXT - LD HL,#RETTXT - LD B,#2 - CALL PUT_TXT POP HL PUSH HL @@ -193,6 +191,19 @@ store_files1: push bc ld de,#fcb1 call bdos + cp #0 + jr z,store_open_f + + LD HL,#FILE_ERROR + LD B,#10 + CALL PUT_TXT + +store_open_f: + + LD HL,#RETTXT + LD B,#2 + CALL PUT_TXT + call intfcb1 ld hl,(length1) @@ -331,7 +342,7 @@ PUT_TXT: RET RETTXT: .db 0x0A,0x0D - +FILE_ERROR: .str " NOT FOUND" ; 10 len getal1: .dw 0,0 ; opslagplaats voor de twee getal2: .dw 0,0 ; 32-bits getallen @@ -371,7 +382,7 @@ file_names: .str "UNITTOT ZOP" ; GFX UNITS .str "PAGE5 ZOP" ; GFX BUILDINGS - .str "BLAKEN4 ZOP" ; GFX ACHTERGROND + .str "BALKEN4 ZOP" ; GFX ACHTERGROND .str "DOME DAT" ; DOME ENGINE .str "MENU DAT" ; DOME_MENU_CALL CODE @@ -391,6 +402,7 @@ file_names: .str "CODE 002" .db 0 + ; 0 = laatste gehad files: .dw 0 ; bewaarplaats aantal files