1; 2; ZX IF1 & Microdrive functions 3; 4; remove a given file in the given drive 5; 6; int if1_remove (int drive, char *filename); 7; 8; $Id: if1_remove_file.asm,v 1.3 2016-07-01 22:08:20 dom Exp $ 9; 10 11 SECTION code_clib 12 PUBLIC if1_remove_file 13 PUBLIC _if1_remove_file 14 15 EXTERN if1_setname 16 EXTERN if1_rommap 17 18 EXTERN ERASEM 19 20 21if1_remove_file: 22_if1_remove_file: 23 24 rst 8 25 defb 31h ; Create Interface 1 system vars if required 26 27 pop af 28 pop de ;filename 29 pop bc ;driveno 30 push bc 31 push de 32 push af 33 34 ld a,c 35 ld ($5cd6),a 36 37 push de 38 ld hl,filename ; filename location 39 push hl 40 call if1_setname 41 ld ($5cda),hl ; length 42 pop de 43 ld ($5cdc),hl ; pointer to filename 44 45 call if1_rommap 46 call ERASEM 47 call 1 ; unpage 48 ei 49 ld hl,0 50 ret 51 52 SECTION bss_clib 53; parameters and variables 54filename: defs 10 55