shcl.asm

web51的开发库

.nolist
.include	"../include/param.inc"
.list

.global	dmpCL

	.equ	CR, 0x0D
	.equ	LF, 0x0A

;CPU_DIR	SEGMENT	CODE
;	RSEG	CPU_DIR
	.section cpu_dir, #alloc
;
	.word	's'+'h'+'c'+'l'+'.'+'c'+'g'+'i'
	.byte	0x10		;cgi
	.byte	0		;reserved
	.word	cgibegin
	.word	cgiend
;
;CPU_FILES	SEGMENT	CODE
;	RSEG	CPU_FILES
	.section cpu_files, #alloc
;
cgibegin:		;shcl.cgi
	.pcode dmpCL
	.pcode pret
cgiend:
;
	.text
	.using	0
;
dmpCL:	mov	acc,#0
dmpCL0:	push	acc
	mov	r7,#buf+16
	add	a,data_addr+1
	mov	r5,a
	mov	a,data_addr
	addc	a,#0
	mov	r4,a
	mov	r3,#16
      	lcall	short_r2_pr2s			;copy WWW request
	mov	R0,#buf+16
	mov	r1,#16
nextHE:	push	ar0
	push	ar1
	mov	a,@r0
	lcall	sendHexb
	mov	a,#' '
	lcall	sendchar
	pop	ar1
	pop	ar0
	inc	r0
	djnz	r1,nextHE
	mov	a,#CR
	lcall	sendchar
	mov	a,#LF
	lcall	sendchar
	mov	R0,#buf+16
	mov	r1,#16
nextCL:	push	ar0
	push	ar1
	mov	a,@r0
	anl	a,#0b11100000
	jz	spacer
	mov	a,@r0
	sjmp	nospacer
spacer:	mov	a,#' '
nospacer:lcall	sendchar
	mov	a,#' '
	lcall	sendchar
	mov	a,#' '
	lcall	sendchar
	pop	ar1
	pop	ar0
	inc	r0
	djnz	r1,nextCL
	mov	a,#CR
	lcall	sendchar
	mov	a,#LF
	lcall	sendchar
	pop	acc
	add	a,#16
	cjne	A,#0x40,dmpCL0
	ret
	;; END