fsend.asm

web51的开发库

.nolist
.include	"param.inc"
;include	"8019.inc"
.list

	.global	flagSecure
	.global	sendFile

;	RSEG	CPU_BIT
;;***** send file  *****
	.bitcomm flagIFcgi, 1
	.bitcomm flagskipL, 1
	.bitcomm flagskipR, 1
	.bitcomm flagSecure, 1
	.bitcomm fastI2C, 1

;	RSEG	CPU_DATA
	.comm fileID, 2
	.comm workreg, 4 	;PI2X,... work register for convert const to string

;	RSEG	CPU_ROM
	.text

sendFile:
; Acc - filesystem ID
; dpl - LSB file start
; dph - MSB file start
; R3  - LSB file end
; R2  - MSB file end
.ifdef I2Cfilesystem
	jz	I2Cfiles
.endif
.ifdef ROMfilesystem
	jb	B2B(ACC,0),ROMfiles
.endif
.ifdef EEfilesystem
	jb	B2B(ACC,1),EEfiles
.endif
;!!! snad alespon jeden je zapnut, takze to v nem skonci
.ifdef I2Cfilesystem
I2Cfiles:
	.using	0
I2Clop:	push	ar2	;MSB
	push	ar3	;LSB
I2Ccur:	push	dph
	push	dpl
	jb	fastI2C, rch
	lcall	read_random
	setb	fastI2C
	sjmp	rrh
rch:	lcall	read_current
rrh:	lcall	httpchar
	pop	dpl	;LSB file start
	pop	dph	;MSB file start
	pop	ar3	;LSB file end
	pop	ar2	;MSB file end
	inc	dptr
	mov	a,dph
	cjne	a,ar2,I2Clop
	mov	a,dpl
	cjne	a,ar3,I2Clop
	ret
.endif
.ifdef ROMfilesystem
ROMfiles:
;
	.using	0
ROMlop:	push	ar2	;MSB
	push	ar3	;LSB
ROMcur:	push	dph
	push	dpl
	clr	a
	movc	a,@a+dptr
	lcall	httpchar
	pop	dpl	;LSB file start
	pop	dph	;MSB file start
	pop	ar3	;LSB file end
	pop	ar2	;MSB file end
	inc	dptr
	mov	a,dph
	cjne	a,ar2,ROMlop
	mov	a,dpl
	cjne	a,ar3,ROMlop
	ret
.endif
.ifdef EEfilesystem
EEfiles:
;
	.using	0
EElop:	push	ar2	;MSB
	push	ar3	;LSB
EEcur:	push	dph
	push	dpl
	ENABLE_EE
	movx	a,@dptr
	DISABLE_EE
	lcall	httpchar
	pop	dpl	;LSB file start
	pop	dph	;MSB file start
	.using	0
	pop	ar3	;LSB file end
	pop	ar2	;MSB file end
	inc	dptr
	mov	a,dph
	cjne	a,ar2,EElop
	mov	a,dpl
	cjne	a,ar3,EElop
	ret
.endif
;
httpchar:
	mov	r2,a
	mov	a,state80
	jz	nonamescan
	cjne	a,#8,gohttpchar
nocgistart:
	mov	a,r2
	ljmp	sendchar
nonamescan:
	jnb	flagskipL,noscanL
	cjne	R2,#'{',noLeft0Br
	clr	flagskipL
	setb	flagskipR
	ret
noLeft0Br:
	cjne	R2,#'}',noRight0Br
	clr	flagskipL	;normal
	clr	flagskipR
noRight0Br:
	ret
noscanL:jnb	flagskipR,noscanR
	cjne	R2,#'{',noLeft1Br
	setb	flagskipL	;no echo
	clr	flagskipR
	ret
noLeft1Br:
	cjne	R2,#'}',noRight1Br
	clr	flagskipL	;normal
	clr	flagskipR
	ret
noRight1Br:
	mov	a,r2
	ljmp	sendchar
noscanR:cjne	R2,#0x27,nocgistart ;''''
	clr	flagIFcgi
	inc	state80		;1
	ret
;
gohttpchar:
	add	a,acc		;sjmp = 2 byte
	add	a,#LOW(http80table-2)
	push	Acc		;push low addr
	mov	a,#0
	addc	a,#HIGH(http80table-2)
	push	Acc		;push high addr
	mov	a,r2
	ret			;and Go!
;
http80table:
	sjmp	testdouble	;1
	sjmp	scanpoint	;2
	sjmp	scanc		;3
	sjmp	scang		;4
	sjmp	scani		;5
	sjmp	scansp		;6
	sjmp	getpar		;7
;
testdouble:
	cjne	a,#0x27,nodouble ;''''
resetstate80:
	mov	state80,#0
	ljmp	sendchar
nodouble:cjne	a,#'?',noifcgi
	setb	flagIFcgi
	ret
noifcgi:inc	state80		;2
	mov	fileID,#0
	mov	fileID+1,a
	ret
;
scanpoint:
	cjne	a,#'/',nosubdir
	mov	fileID,#0
	mov	fileID+1,#0
	ret
nosubdir:cjne	a,#'.',nopoint
goaddst:inc	state80		;3
nopoint:add	a,fileID+1
	mov	fileID+1,a
	mov	a,fileID
	addc	a,#0
	mov	fileID,a
	ret
;
scanc:	cjne	a,#'c',resetstate80
	sjmp	goaddst		;4
;
scang:	cjne	a,#'g',resetstate80
	sjmp	goaddst		;5
;
scansp:	cjne	a,#'?',scanqv
	inc	state80		;7
	ret
;
scanqv:	cjne	a,#0x27,resetstate80 ;''''
	mov	state80,#0
execgi:
	lcall	searchfile	;r4	file type
				;dptr	file start
				;r2r3	file end
	jc	cginotfound
	mov	workreg,dph
	mov	workreg+1,dpl
	PUSH	pcodeMSB
	PUSH	pcodeLSB
	lcall	pcode
      	.pcode	pcall @workreg
	.byte	0
	POP	pcodeLSB
	POP	pcodeMSB
cginotfound:
	mov	state80,#0
	jbc	flagIFcgi,testCGIflags
	clr	flagskipL
	clr	flagskipR
;end of exe cgi
	ret
testCGIflags:
	mov	C,zflag
	mov	flagskipL,C
	cpl	C
	mov	flagskipR,C
	ret
;
scani:	cjne	a,#'i',resetstate80
	sjmp	goaddst		;6
;
getpar:	mov	state80,a
	sjmp	execgi
;
	;; END