;›; delete file.›; fdelete(str);›;›xcb:›  .byte  0›  .globl  _fdelete›_fdelete:›  jsr  findiocb  ; find a free iocb›  stx  xcb    ; save it›  jsr  popax    ; get the name string›  ldy  xcb›  sta  icbal,y    ; store str\›  txa›  sta  icbah,y    ; store str^›  tya›  tax      ; get iocb in x›  lda  #delete    ; get rename opcode›  sta  iccom,x›  lda  #0›  sta  icax1,x›  sta  icax2,x›  jsr  ciov›  bpl  del0›  jmp  ioreturn  ; common error handling code›del0:›  tya›  ldx  #0›  rts›;›