arch-msx/original-dome
2
0
Fork 0
Code Actions Activity

fixed typo and added file not found error.

Browse source
This commit is contained in:
Willem 2018-12-25 00:48:51 +01:00
parent 7b1488cebb
commit 050379a230
1 changed files with 17 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/makelib/makelib.asm
View file

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