Upload files to "basic"

basic/code22.s

@@ -0,0 +1,149 @@
+n0999	.byt $9b,$3e,$bc,$1f,$fd
+n9999	.byt $9e,$6e,$6b,$27,$fd
+nmil	.byt $9e,$6e,$6b,$28,$00
+inprt	lda #<intxt
+	ldy #>intxt
+	jsr strou2
+	lda curlin+1
+	ldx curlin
+linprt	sta facho
+	stx facho+1
+	ldx #$90
+	sec
+	jsr floatc
+	jsr foutc
+strou2	jmp strout
+fout	ldy #1
+foutc	lda #' '
+	bit facsgn
+	bpl fout1
+	lda #'-'
+fout1	sta fbuffr-1,y
+	sta facsgn
+	sty fbufpt
+	iny
+	lda #'0'
+	ldx facexp
+	bne *+5
+	jmp fout19
+	lda #0
+	cpx #$80
+	beq fout37
+	bcs fout7
+fout37	lda #<nmil
+	ldy #>nmil
+	jsr fmult
+	lda #250-addpr2-addprc
+fout7	sta deccnt
+fout4	lda #<n9999
+	ldy #>n9999
+	jsr fcomp
+	beq bigges
+	bpl fout9
+fout3	lda #<n0999
+	ldy #>n0999
+	jsr fcomp
+	beq fout38
+	bpl fout5
+fout38	jsr mul10
+	dec deccnt
+	bne fout3
+fout9	jsr div10
+	inc deccnt
+	bne fout4
+fout5	jsr faddh
+bigges	jsr qint
+	ldx #1
+	lda deccnt
+	clc
+	adc #addpr2+addprc+7
+	bmi foutpi
+	cmp #addpr2+addprc+$08
+	bcs fout6
+	adc #$ff
+	tax
+	lda #2
+foutpi	sec
+fout6	sbc #2
+	sta tenexp
+	stx deccnt
+	txa
+	beq fout39
+	bpl fout8
+fout39	ldy fbufpt
+	lda #'.'
+	iny
+	sta fbuffr-1,y
+	txa
+	beq fout16
+	lda #'0'
+	iny
+	sta fbuffr-1,y
+fout16	sty fbufpt
+fout8	ldy #0
+foutim	ldx #$80
+fout2	lda faclo
+	clc
+	adc foutbl+2+addprc,y
+	sta faclo
+	lda facmo
+	adc foutbl+1+addprc,y
+	sta facmo
+	lda facmoh
+	adc foutbl+1,y
+	sta facmoh
+	lda facho
+	adc foutbl,y
+	sta facho
+	inx
+	bcs fout41
+	bpl fout2
+	bmi fout40
+fout41	bmi fout2
+fout40	txa
+	bcc foutyp
+	eor #$ff
+	adc #$0a
+foutyp	adc #$2f
+	iny
+	iny
+	iny
+	iny
+	sty fdecpt
+	ldy fbufpt
+	iny
+	tax
+	and #$7f
+	sta fbuffr-1,y
+	dec deccnt
+	bne stxbuf
+	lda #'.'
+	iny
+	sta fbuffr-1,y
+stxbuf	sty fbufpt
+	ldy fdecpt
+	txa
+	eor #$ff
+	and #$80
+	tax
+	cpy #fdcend-foutbl
+	beq fouldy
+	cpy #timend-foutbl
+	bne fout2
+fouldy	ldy fbufpt
+fout11	lda fbuffr-1,y
+	dey
+	cmp #'0'
+	beq fout11
+	cmp #'.'
+	beq fout12
+	iny
+fout12	lda #'+'
+	ldx tenexp
+	beq fout17
+	bpl fout14
+	lda #0
+	sec
+	sbc tenexp
+	tax
+