addfil.src

	.page
	.subttl  addfil

; add file to directory

addfil  lda  sa		;save variables
	pha
	lda  lindx
	pha
	lda  sector
	pha
	lda  track
	pha
	lda  #irsa
	sta  sa
	jsr  curblk     ;use last accessed search
	lda  type
	pha
	lda  fildrv
	and  #1
	sta  drvnum
	ldx  jobnum
	eor  lstjob,x
	lsr  a
	bcc  af08       ;same drive as required

	ldx  #1
	stx  delind     ;look for deleted entry
	jsr  srchst
	beq  af15       ;all full, new sector
	bne  af20       ;found one

af08    lda  delsec
	beq  af10       ;deleted entry not located
	cmp  sector
	beq  af20       ;sector is resident
	sta  sector
	jsr  drtrd      ;read sector in
	jmp  af20

af10    lda  #1		;find deleted entry
	sta  delind
	jsr  search
	bne  af20
af15    jsr  nxdrbk     ;all full, new sector
	lda  sector
	sta  delsec
	lda  #2
	sta  delind
af20    lda  delind
	jsr  setpnt
	pla
	sta  type       ;set type
	cmp  #reltyp
	bne  af25
	ora  #$80

af25	jsr  putbyt
	pla
	sta  filtrk     ;...table & entry
	jsr  putbyt
	pla
	sta  filsec     ;set sector link in...
	jsr  putbyt     ;...table & entry
	jsr  getact
	tay
	lda  filtbl
	tax
	lda  #16
	jsr  trname     ;transfer name
	ldy  #16
	lda  #0		;clear # of blocks &...
af30    sta  (dirbuf),y	;...& replace links
	iny
	cpy  #27
	bcc  af30
	lda  type       ;a relative file ?
	cmp  #reltyp
	bne  af50       ;no
	ldy  #16	;yes
	lda  trkss      ;get ss track
	sta  (dirbuf),y	;put in directory
	iny
	lda  secss      ;get ss sector
	sta  (dirbuf),y	;put in
	iny
	lda  rec	;get record size
	sta  (dirbuf),y
af50    jsr  drtwrt     ;write it out
	pla
	sta  lindx
	tax
	pla
	sta  sa
	lda  delsec
	sta  entsec
	sta  dsec,x
	lda  delind
	sta  entind
	sta  dind,x
	lda  type
	sta  pattyp
	lda  drvnum
	sta  fildrv
	rts

;	.end