A2osX/LIB/LIBSTR.S.txt

PR#3
PREFIX /A2OSX.SRC
NEW
INC 1
AUTO 6
				.LIST OFF	
				.OP	65C02
				.OR	$2000
				.TF /A2OSX.BOOT/LIB/LIBSTR.O
*--------------------------------------
				.INB INC/MACROS.I
				.INB INC/A2OSX.I
*--------------------------------------
ZPTmpPtr1		.EQ ZPLIB+2
ZPTmpPtr2		.EQ ZPLIB+4
ZPTmpPtr3		.EQ ZPLIB+6
*--------------------------------------
*			File Header (16 Bytes)
*--------------------------------------
CS.START		cld
				jmp (.1,x)
				.DA #$61				6502,Level 1 (65c02)
				.DA #1					BIN Layout Version 1
				.DA 0
				.DA CS.END-CS.START
				.DA 0
				.DA 0
				.DA 0
*--------------------------------------
* Relocation Table
*--------------------------------------
.1				.DA LIB.LOAD
				.DA LIB.UNLOAD
				.DA PrintF
				.DA PrintC
				.DA PrintP
				.DA STRMATCHP
				.DA STRCPYP
				.DA STRCATP
				.DA UCASEP
				.DA LCASEP
				.DA	PrintDATE
				.DA	PrintTIME
				.DA SSCANF
*--------------------------------------
PrintFJMP1		.DA	PrintFA
				.DA	PrintFB,PrintFBB
				.DA	PrintFD,PrintFDD,PrintFL
				.DA	PrintFE,PrintFEE
				.DA	PrintFH,PrintFHH
				.DA	PrintFI,PrintFII
				.DA	PrintFSC,PrintFSP
				.DA	PrintFT,PrintFTT
PrintFJMP2		.DA	PrintFESC,PrintFCR,PrintFBKSLH,PrintFPERCENT
*--------------------------------------
				.DA 0
*--------------------------------------
LIB.LOAD
LIB.UNLOAD		clc
				rts
*--------------------------------------
* PrintF :
* Prints C-Style String
* PULLW Pointer to Sting,Last Byte negative 
* %a pull 1 byte to Print ATTRIB String
* %b pull 1 byte to Print BIN
* %B pull 2 byte to Print BIN
* %d pull 1 byte to Print unsigned DEC
* %D pull 2 bytes to Print unsigned DEC
* %L pull 4 bytes to Print unsigned DEC
* %n pull 1 byte to Print low Nibble HEX
* %N pull 1 byte to Print high Nibble HEX
* %h pull 1 byte to Print HEX
* %H pull 2 bytes to Print HEX
* %i pull 1 byte to Print signed DEC
* %I pull 2 bytes to Print signed DEC
* %s pull 2 bytes ptr to C-Style String
* %S pull 2 bytes ptr to P-Style String
* \e Print 'ESC' ($1B,27)
* \n Print CR=13
* \\ Print \
* \% Print %
* padding : 
*   %d	   '9'  '12'
*   %2d	   ' 9' '12'   				
*	%02d   '09' '12'
*	%16s   'ABCDEFGHIjkl   '	
*	%011s  'ABCDEFGH000'	
*--------------------------------------
PrintF			>PULLW ZPTmpPtr1
				ldy	#0
PrintFCOUT		lda (ZPTmpPtr1),y
				beq .1 
				cmp #'%'
				beq PrintFESC1
				cmp #'\'
				beq PrintFESC2
				jsr	COUT
				iny
				bne	PrintFCOUT
.1				rts
PrintFEXIT		ply
				iny
				bne	PrintFCOUT
				rts
*--------------------------------------
PrintFESC1		stz PADLEN
				lda #' '
				sta PADCHAR
.1				ldx	#PrintFTBL1.END-PrintFTBL1-1
				iny
				lda	(ZPTmpPtr1),y
				beq .9
.2				cmp PrintFTBL1,x		do we have a %x command?
				beq .8					yes, jmp to it!
				dex
				bpl	.2					no valid letter...
				cmp #'0'				...a 0...mmm... padding char!!
				beq .4
				bcc .9					
				cmp #'9'
				bcs .9					
.3				and #$0F				we have a digit
				pha						save it...
				lda PADLEN				starts PADLEN * 10
				asl						times 2
				pha						save times 2
				asl						times 4
				asl						times 8
				sta PADLEN
				pla						get back times 2
				clc
				adc PADLEN				times 8 + times 2 = times 10
				sta PADLEN
				pla						get back current digit
				adc PADLEN
				sta PADLEN
				bra .5
.4				lda PADLEN				do we already had met digits to build PADLEN ?
				bne .3					yes, continue to build PADLEN
				lda #'0'
				sta PADCHAR				no, this is the first 0, so make it PADCHAR
.5				bra .1
.8				phy
				txa
				asl
				tax
				jmp	(PrintFJMP1,x)
.9				rts
*--------------------------------------
PrintFESC2		ldx	#PrintFTBL2.END-PrintFTBL2-1
				iny
				lda	(ZPTmpPtr1),y
				beq .9
.2				cmp PrintFTBL2,x
				beq .3
				dex
				bpl	.2
				rts
.3				phy
				txa
				asl
				tax
				jmp	(PrintFJMP2,x)
.9				rts				
*--------------------------------------
PrintFA			>PULLA
				ldx #0
.1				asl
				pha
				lda #'-'
				bcc .2
				lda PrintF.ATTRIB,x
.2				jsr COUT
				pla
				inx
				cpx #8		
				bne .1
				jmp	PrintFEXIT
PrintFB			ldx #8
				>PULLA
.1				asl
				pha
				lda #'0'
				bcc .2
				inc
.2				jsr COUT
				pla
				dex
				bne .1
				jmp	PrintFEXIT
PrintFBB		>PULLA
				>PULLA
				jmp	PrintFEXIT
PrintFD			>PULLA
				sta HEXBUF
				stz HEXBUF+1
				stz HEXBUF+2
				stz HEXBUF+3
				jsr HEX2DEC
				jmp	PrintFEXIT
PrintFDD		>PULLA
				sta HEXBUF
				>PULLA
				sta HEXBUF+1
				stz HEXBUF+2
				stz HEXBUF+3
				jsr HEX2DEC
				jmp	PrintFEXIT
PrintFL			>PULLA
				sta HEXBUF
				>PULLA
				sta HEXBUF+1
				>PULLA
				sta HEXBUF+2
				>PULLA
				sta HEXBUF+3
				jsr HEX2DEC
				jmp	PrintFEXIT
PrintFE			>PULLA
				jsr PRHEX
				jmp	PrintFEXIT
PrintFEE		>PULLA
				lsr
				lsr
				lsr
				lsr
				jsr PRHEX
				jmp	PrintFEXIT
PrintFH			>PULLA
				jsr	PRBYTE
				jmp PrintFEXIT
PrintFHH		>PULLA
				pha
				>PULLA
				jsr	PRBYTE
				pla
				jsr	PRBYTE
				jmp PrintFEXIT
PrintFI			>PULLA
				jmp	PrintFEXIT
PrintFII		>PULLA
				>PULLA
				jmp	PrintFEXIT
PrintFSC		>PULLYA
				jsr PrintYA
				jmp	PrintFEXIT
PrintFSP		>PULLYA
				jsr PrintYAP
				jmp	PrintFEXIT
PrintFT			jsr PrintTIME
				jmp	PrintFEXIT
PrintFTT		jsr PrintDATE
				jmp	PrintFEXIT		
*--------------------------------------
PrintFESC		lda #$1B				ESC
				jsr COUT
				jmp	PrintFEXIT
PrintFCR		jsr CROUT
				jmp	PrintFEXIT
PrintFBKSLH		lda #'\'
				jsr COUT
				jmp	PrintFEXIT
PrintFPERCENT	lda #'%'
				jsr COUT
				jmp	PrintFEXIT
*--------------------------------------
PrintC			>PULLW ZPTmpPtr2
				ldy	#0
.1				lda	(ZPTmpPtr2),y
				beq .8
				jsr COUT
				iny
				bne .1
.8				rts	
*--------------------------------------
PrintP			>PULLW ZPTmpPtr2
				ldy	#0
				lda	(ZPTmpPtr2),y
				tax
				beq .8
.1				iny
				lda	(ZPTmpPtr2),y
				jsr COUT
				dex
				bne .1
.8				rts
*--------------------------------------
* STRMATCHP : (P-Style Strings)
* pull PTR to Dest String
* pull PTR to Src string
* works with wildcards :
* Dest Str      Src str
* message   =   m?ss*
*			= 	me*ge 
*			= 	*ge
*			=	*
* message   =   me?sage != me?age
*--------------------------------------
STRMATCHP		>PULLW ZPTmpPtr1
				>PULLW ZPTmpPtr2
				rts
*--------------------------------------
* STRCPYP : (P-Style Strings)
* pull PTR to Dest String
* pull PTR to Src string
*--------------------------------------
STRCPYP			>PULLW ZPTmpPtr1
				>PULLW ZPTmpPtr2
				lda	(ZPTmpPtr2)
				sta	(ZPTmpPtr1)
				tay
				beq .2
.1				lda	(ZPTmpPtr2),y
				sta	(ZPTmpPtr1),y
				dey
				bne .1
.2				rts
*--------------------------------------
* STRCATP : (P-Style Strings)
* pull PTR to Dest String
* pull PTR to Src string
*--------------------------------------
STRCATP			>PULLW ZPTmpPtr1
				>PULLW ZPTmpPtr2
				lda	(ZPTmpPtr1)
				tay
				iny
				lda	(ZPTmpPtr2)
				tax
				beq .3
.1				inc ZPTmpPtr2
				bne .2
				inc ZPTmpPtr2+1
.2				lda	(ZPTmpPtr2)
				sta	(ZPTmpPtr1),y
				iny
				dex
				bne .1
				dey
				tya
				sta	(ZPTmpPtr1)
.3				rts
*--------------------------------------
UCASEP			phx
				>PULLW ZPTmpPtr2
				ldy	#0
				lda	(ZPTmpPtr2),y
				tax
				beq .9
.1				iny
				lda	(ZPTmpPtr2),y
				cmp #'a'
				bmi .2
				cmp #'z'+1
				bpl .2
				sec
				sbc #$20
				sta	(ZPTmpPtr2),y
.2				dex
				bne .1
.9				plx
				rts	
*--------------------------------------
LCASEP			phx
				>PULLW ZPTmpPtr2
				ldy	#0
				lda	(ZPTmpPtr2),y
				tax
				beq .9
.1				iny
				lda	(ZPTmpPtr2),y
				cmp #'A'
				bmi .2
				cmp #'Z'+1
				bpl .2
				clc
				adc #$20
				sta	(ZPTmpPtr2),y
.2				dex
				bne .1
.9				plx
				rts	
*--------------------------------------
* PULLW = DATE in ProDOS Format
* A = year, Y = month/day
*--------------------------------------
PrintDATE		stz HEXBUF+1
				stz HEXBUF+2
				stz HEXBUF+3
				ldx #'0'
				stx PADCHAR
				ldx #2
				stx PADLEN
				>PULLYA
				pha						save year to get high bit of month later
				lsr
				pha
				cmp #70					are we in the 70s ?
				bcc .1
				lda #$19
				bra .2
.1				lda #$20
.2				jsr PRBYTE
				pla
				sta HEXBUF
				jsr HEX2DEC
				lda #'/'
				jsr COUT
				ldx #'0'
				stx PADCHAR
				ldx #2
				stx PADLEN
				pla						get back year
				lsr						get high bit of month in carry
				tya						get month/day
				pha						save it for day
				ror						pick high bit from carry
				lsr
				lsr
				lsr
				lsr
				sta HEXBUF
				jsr HEX2DEC
				lda #'/'
				jsr COUT
				ldx #'0'
				stx PADCHAR
				ldx #2
				stx PADLEN
				pla						get back  month/day
				and #$1F
				sta HEXBUF
				jmp HEX2DEC
*--------------------------------------
* PULLW = TIME in ProDOS Format
* A = hours, Y = minutes
*--------------------------------------
PrintTIME		stz HEXBUF+1
				stz HEXBUF+2
				stz HEXBUF+3
				ldx #'0'
				stx PADCHAR
				ldx #2
				stx PADLEN
				>PULLYA
				and #$1F
				sta HEXBUF
				jsr HEX2DEC
				lda #':'
				jsr COUT
				ldx #'0'
				stx PADCHAR
				ldx #2
				stx PADLEN
				tya						get minutes
				and #$3F
				sta HEXBUF
				jmp HEX2DEC
*--------------------------------------
*
*--------------------------------------
SSCANF			>PULLW ZPTmpPtr1		get PString to scan (ex: "192.168.1.5")
				>PULLW ZPTmpPtr2		get PString pattern	(ex: "%d.%d.%d.%d")
				>PULLW ZPTmpPtr3		get target buffer
				
				ldy	#0					Y = PTR in pattern
				
				lda (ZPTmpPtr1)
				beq .9
				tax						X = COUNT to scan
				inc ZPTmpPtr1
				bne .1
				inc ZPTmpPtr1+1

.1				txa						End Of String?
				beq .8
				tya
				cmp (ZPTmpPtr2)			End of pattern?
				beq .8
				iny
				lda (ZPTmpPtr2),y
				cmp #'%' 				Escape?
				beq .2
				cmp (ZPTmpPtr1)			Same char?
				bne .9
				jsr SSCANF.IncPtr1
				bne .1
				clc
				rts
				
.2				tya 
				cmp (ZPTmpPtr2)			unexpected End of pattern after "%" ?
				beq .9

				iny
				lda (ZPTmpPtr2),y
				cmp #'d'				BYTE ?
				bne .3
				
				stz ASCBUF
.20				lda (ZPTmpPtr1)
				jsr SSCANF.IsDigit
				bcs .21
				phx
				inc ASCBUF
				ldx ASCBUF
				sta ASCBUF,x
				plx
				jsr SSCANF.IncPtr1
				bne .20					end of string ?
				
.21				jsr DEC2HEX
				lda HEXBUF
				sta (ZPTmpPtr3)
				inc ZPTmpPtr3
				bne .1
				inc ZPTmpPtr3+1
				bra .1

.3				cmp #'D'				WORD ?
				bne .4
				
				bra .1

.4				cmp #'s'				STRING ?
				bne .9
				
				bra .1
				
.8				clc
				rts
				
.9				sec
				rts

*--------------------------------------
SSCANF.IncPtr1	dex
				beq .1
				inc ZPTmpPtr1
				bne .1
				inc ZPTmpPtr1+1			never Zero
.1				rts
*--------------------------------------
SSCANF.IsDigit	cmp #'0'
				bcc .1
				cmp #'9'+1
				bcs .1
				rts
.1				sec
				rts				
*--------------------------------------
********** PRIVATE FUNCTIONS **********
*--------------------------------------
* PrintYAC : 
* Prints C-Style String
* Y,A=Pointer to Sting, Last Byte 0 
*--------------------------------------
PrintYA			>STYA ZPTmpPtr2
				ldy	#0
.1				lda	(ZPTmpPtr2),y
				beq .2
				jsr COUT
				iny
				bne .1
.2				rts	
*--------------------------------------
* PrintYAP :
* Prints Pascal-Style String
* Y,A=Pointer to Sting, LEN=1st Byte 
*--------------------------------------
PrintYAP		phx
				>STYA ZPTmpPtr2
				ldy	#0
				lda	(ZPTmpPtr2),y
				tax
				beq .8
.1				iny
				lda	(ZPTmpPtr2),y
				jsr COUT
				lda PADLEN
				beq .2
				cpy	PADLEN
				beq .8
.2				dex
				bne .1
				lda PADLEN
				beq .8
.3				lda PADCHAR				
				jsr COUT
				iny
				cpy PADLEN
				bne .3
.8				plx
				rts
*--------------------------------------
* Convert HEXBUF to ASCBUF decimal padded with 0
*--------------------------------------
HEX2DEC			phx
				phy
				ldx #4
.1				stz BCDBUF,x	Clear all 5 bytes
				dex
				bpl .1
				ldx #32			let's roll 32 bits
				sed
.2				asl HEXBUF
				rol	HEXBUF+1
				rol HEXBUF+2
				rol HEXBUF+3
				php				cpy will disturb carry while BCD adc
				ldy #0
.3				plp
				lda BCDBUF,y
				adc BCDBUF,y
				sta BCDBUF,y
				php
				iny
				cpy #5			Last byte of BCDBUF?
				bne .3
				plp
				dex
				bne .2
				cld
				ldy #0
				ldx #9
.4				lda BCDBUF,y
				pha
				and #$0F
				ora #$30
				sta	ASCBUF,x
				dex
				pla
				lsr
				lsr
				lsr
				lsr
				ora #$30
				sta	ASCBUF,x
				iny
				dex
				bpl .4
				lda PADLEN			any Len format ?
				beq .5				no
				lda #10
				sec					yes, Print only digits starting at pos 10-padlen
				sbc PADLEN
.5				tax					x=0 if no padlen, or x=10-padlen
.6				lda ASCBUF,x		
				cmp #'0'			a zero?
				beq .7
				inc PADLEN			found a non zero, Print all digits, even if 0, next time
				ldy #'0'
				sty PADCHAR
				bra .8
.7				cpx #9				last digit ?
				beq .8				Print always
				ldy PADLEN			no pad to fill, do not Print 0
				beq .9
				lda PADCHAR			fill with PADCHAR
.8				jsr COUT
.9				inx
				cpx #10
				bne .6
				ply
				plx
				rts
*--------------------------------------
* Convert ASCBUF decimal to HEXBUF
*--------------------------------------
DEC2HEX			phx
				phy
				stz HEXBUF
				stz HEXBUF+1
				stz HEXBUF+2
				stz HEXBUF+3
				
				ldx #0
.1				asl HEXBUF				HEXBUF * 2 -> HEXBUF
				rol HEXBUF+1
				rol HEXBUF+2
				rol HEXBUF+3

				lda HEXBUF				HEXBUF * 2 -> HEXBUFTMP
				asl
				sta HEXBUFTMP
				lda HEXBUF+1
				rol
				sta HEXBUFTMP+1
				lda HEXBUF+2
				rol
				sta HEXBUFTMP+2
				lda HEXBUF+3
				rol
				sta HEXBUFTMP+3

				asl HEXBUFTMP			HEXBUFTMP * 2 -> HEXBUFTMP
				rol HEXBUFTMP+1
				rol HEXBUFTMP+2
				rol HEXBUFTMP+3

				lda HEXBUF				HEXBUF + HEXBUFTMP -> HEXBUF
				clc
				adc HEXBUFTMP
				sta HEXBUF
				lda HEXBUF+1
				adc HEXBUFTMP+1
				sta HEXBUF+1
				lda HEXBUF+2
				adc HEXBUFTMP+2
				sta HEXBUF+2
				lda HEXBUF+3
				adc HEXBUFTMP+3
				sta HEXBUF+3

				inx
				lda ASCBUF,x
				and #$0F
				clc
				adc HEXBUF
				sta HEXBUF
				bcc .2
				inc HEXBUF+1
				bne .2
				inc HEXBUF+2
				bne .2
				inc HEXBUF+3
.2				cpx ASCBUF
				bne .1
				ply
				plx
				rts
*--------------------------------------
PRBYTE			pha
				lsr
				lsr
				lsr
				lsr
				ora #$30
				cmp #'9'+1
				bcc .1
				adc #6
.1				jsr COUT
				pla
PRHEX			and #$0F
				ora #$30
				cmp #'9'+1
				bcc COUT
				adc #6
				bra COUT
*--------------------------------------
CROUT			lda #13	
*--------------------------------------
COUT			phx
				phy
				cmp #13
				bne .1
				ldx #DEVMGR.COUT
				jsr pDevJmp
				bcs .9
				lda #10
				
.1				ldx #DEVMGR.COUT
				jsr pDevJmp
				ply
				plx
.9				rts
*--------------------------------------
CS.END
PrintFTBL1		.AS	"abBdDLnNhHiIsStT"
PrintFTBL1.END
PrintFTBL2		.AS	"en\%"
PrintFTBL2.END
PrintF.ATTRIB	.AS "dnb+++wr"
*--------------------------------------
PADCHAR			.BS 1
PADLEN			.BS 1
HEXBUF			.BS 4					32 bits max
HEXBUFTMP		.BS 4
BCDBUF			.BS 5					5, enough to handle 32bits
ASCBUF			.BS 11					LEN + 10 digits ($FFFFFFFF=4.294.967.295)
*--------------------------------------
MAN
SAVE LIB/LIBSTR.S
ASM