Compare commits
2 Commits
80c0bbc32b
...
78a9e1d93b
Author | SHA1 | Date |
---|---|---|
Stephen Heumann | 78a9e1d93b | |
Stephen Heumann | 67ae5f7b44 |
239
stdio.asm
239
stdio.asm
|
@ -4520,9 +4520,12 @@ lb1 clc restore the original argp+4
|
|||
****************************************************************
|
||||
*
|
||||
* ~Format_o - format an octal number
|
||||
* ~Format_x - format a hexadecimal number (lowercase output)
|
||||
* ~Format_X - format a hexadecimal number (uppercase output)
|
||||
* ~Format_p - format a pointer
|
||||
*
|
||||
* Inputs:
|
||||
* ~altForm - use a leading '0'?
|
||||
* ~altForm - use a leading '0' (octal) or '0x' (hex)?
|
||||
* ~fieldWidth - output field width
|
||||
* ~paddChar - padd character
|
||||
* ~leftJustify - left justify the output?
|
||||
|
@ -4536,15 +4539,34 @@ lb1 clc restore the original argp+4
|
|||
~Format_o private
|
||||
using ~printfCommon
|
||||
argp equ 7 argument pointer
|
||||
|
||||
lda #3 use 3 bits per output character
|
||||
bra cn0
|
||||
|
||||
~Format_x entry
|
||||
;
|
||||
; Set the "or" value; this is used to set the case of character results
|
||||
;
|
||||
lda #$20*256
|
||||
sta ~orVal
|
||||
bra hx0
|
||||
|
||||
~Format_p entry
|
||||
inc ~isLong
|
||||
~Format_X entry
|
||||
stz ~orVal
|
||||
hx0 lda #4 use 4 bits per output character
|
||||
|
||||
;
|
||||
; Initialization
|
||||
;
|
||||
cn0 sta bitsPerChar
|
||||
stz ~hexPrefix assume we won't lead with 0x
|
||||
stz ~sign ignore the sign flag
|
||||
lda #' ' initialize the string to blanks
|
||||
sta ~str
|
||||
move ~str,~str+1,#l:~str-1
|
||||
stz ~num+2 get the value to convert
|
||||
lda ~isLongLong
|
||||
lda ~isLongLong get the value to convert
|
||||
beq cn1
|
||||
ldy #6
|
||||
lda [argp],Y
|
||||
|
@ -4555,7 +4577,7 @@ argp equ 7 argument pointer
|
|||
sta ~num+4
|
||||
cn1 lda ~isLong
|
||||
beq cn2
|
||||
cn1a ldy #2
|
||||
ldy #2
|
||||
lda [argp],Y
|
||||
sta ~num+2
|
||||
cn2 lda [argp]
|
||||
|
@ -4563,57 +4585,71 @@ cn2 lda [argp]
|
|||
beq cn2a
|
||||
and #$00FF
|
||||
cn2a sta ~num
|
||||
ldx bitsPerChar if doing hex format then
|
||||
cpx #3
|
||||
beq cn2b
|
||||
ldx ~altForm if alt form has been selected then
|
||||
beq cn2b
|
||||
ora ~num+2 if value is not 0 then
|
||||
ora ~num+4
|
||||
ora ~num+6
|
||||
beq cn2b
|
||||
lda #'X0' set hex prefix to '0X' or '0x'
|
||||
ora ~orVal
|
||||
sta ~hexPrefix
|
||||
;
|
||||
; Convert the number to an ASCII string
|
||||
;
|
||||
short I,M
|
||||
ldy #l:~str-1 set up the character index
|
||||
cn3 lda ~num+7 quit if the number is zero
|
||||
ora ~num+6
|
||||
ora ~num+5
|
||||
ora ~num+4
|
||||
ora ~num+3
|
||||
ora ~num+2
|
||||
ora ~num+1
|
||||
ora ~num
|
||||
beq al1
|
||||
lda #0 roll off 3 bits
|
||||
ldx #3
|
||||
cn4 lsr ~num+7
|
||||
ror ~num+6
|
||||
ror ~num+5
|
||||
cn2b ldy #l:~str-1 set up the character index
|
||||
cn3 lda #' 0' roll off 4 bits
|
||||
ldx bitsPerChar
|
||||
cn4 lsr ~num+6
|
||||
ror ~num+4
|
||||
ror ~num+3
|
||||
ror ~num+2
|
||||
ror ~num+1
|
||||
ror ~num
|
||||
ror A
|
||||
dex
|
||||
bne cn4
|
||||
lsr A form a character
|
||||
lsr A
|
||||
lsr A
|
||||
lsr A
|
||||
lsr A
|
||||
ora #'0'
|
||||
xba form a character
|
||||
ldx bitsPerChar
|
||||
cn4a asl A
|
||||
dex
|
||||
bne cn4a
|
||||
cmp #('9'+1)*256+' ' if the character should be alpha then
|
||||
blt cn5
|
||||
clc
|
||||
adc #7*256 adjust it
|
||||
ora ~orVal
|
||||
cn5 dey
|
||||
sta ~str,Y save the character
|
||||
dey
|
||||
bra cn3
|
||||
lda ~num+6 loop if the number is not zero
|
||||
ora ~num+4
|
||||
ora ~num+2
|
||||
ora ~num
|
||||
bne cn3
|
||||
;
|
||||
; If a leading zero is required, be sure we include one
|
||||
; If a leading '0x' is required, be sure we include one
|
||||
;
|
||||
al1 cpy #l:~str-1 include a zero if no characters have
|
||||
beq al2 been placed in the string
|
||||
lda ~altForm branch if no leading zero is required
|
||||
lda bitsPerChar if doing octal format then
|
||||
cmp #3
|
||||
bne al3
|
||||
lda ~altForm if alt form has been selected then
|
||||
beq al3
|
||||
al2 lda #'0'
|
||||
sta ~str,Y
|
||||
al3 long I,M
|
||||
lda ~precision make sure precision is non-zero
|
||||
bne al2
|
||||
inc ~precision
|
||||
al2 lda #'0 ' if the result is not ' 0' then
|
||||
cmp ~str+l:~str-2
|
||||
beq al3
|
||||
sta ~str-1,Y include a zero in the string
|
||||
;
|
||||
; Piggy back off of ~Format_d for output
|
||||
;
|
||||
stz ~hexPrefix don't lead with 0x
|
||||
brl ~Format_IntOut
|
||||
al3 brl ~Format_IntOut
|
||||
;
|
||||
; Local data
|
||||
;
|
||||
bitsPerChar ds 2 bits per output character
|
||||
end
|
||||
|
||||
****************************************************************
|
||||
|
@ -4691,129 +4727,6 @@ lb4 clc restore and increment argp
|
|||
brl ~LeftJustify handle left justification
|
||||
end
|
||||
|
||||
****************************************************************
|
||||
*
|
||||
* ~Format_x - format a hexadecimal number (lowercase output)
|
||||
* ~Format_X - format a hexadecimal number (uppercase output)
|
||||
* ~Format_p - format a pointer
|
||||
*
|
||||
* Inputs:
|
||||
* ~altForm - use a leading '0x'?
|
||||
* ~fieldWidth - output field width
|
||||
* ~paddChar - padd character
|
||||
* ~leftJustify - left justify the output?
|
||||
* ~isLong - is the operand long?
|
||||
* ~isLongLong - is the operand long long?
|
||||
* ~precision - precision of output
|
||||
* ~precisionSpecified - was the precision specified?
|
||||
*
|
||||
****************************************************************
|
||||
*
|
||||
~Format_x private
|
||||
using ~printfCommon
|
||||
argp equ 7 argument pointer
|
||||
;
|
||||
; Set the "or" value; this is used to set the case of character results
|
||||
;
|
||||
lda #$20
|
||||
sta ~orVal
|
||||
bra cn0
|
||||
|
||||
~Format_p entry
|
||||
lda #1
|
||||
sta ~isLong
|
||||
~Format_X entry
|
||||
stz ~orVal
|
||||
;
|
||||
; Initialization
|
||||
;
|
||||
cn0 stz ~sign ignore the sign flag
|
||||
lda #' ' initialize the string to blanks
|
||||
sta ~str
|
||||
move ~str,~str+1,#l:~str-1
|
||||
stz ~num+2 get the value to convert
|
||||
stz ~num+4
|
||||
stz ~num+6
|
||||
lda ~isLongLong
|
||||
beq cn1
|
||||
ldy #6
|
||||
lda [argp],Y
|
||||
sta ~num+6
|
||||
dey
|
||||
dey
|
||||
lda [argp],Y
|
||||
sta ~num+4
|
||||
cn1 lda ~isLong
|
||||
beq cn2
|
||||
ldy #2
|
||||
lda [argp],Y
|
||||
sta ~num+2
|
||||
cn2 lda [argp]
|
||||
ldx ~isByte
|
||||
beq cn2a
|
||||
and #$00FF
|
||||
cn2a sta ~num
|
||||
ora ~num+2
|
||||
ora ~num+4
|
||||
ora ~num+6
|
||||
bne cn2b
|
||||
stz ~altForm if value is 0, do not print hex prefix
|
||||
cn2b stz ~hexPrefix assume we won't lead with 0x
|
||||
;
|
||||
; Convert the number to an ASCII string
|
||||
;
|
||||
short I,M
|
||||
ldy #l:~str-1 set up the character index
|
||||
cn3 lda #0 roll off 4 bits
|
||||
ldx #4
|
||||
cn4 lsr ~num+7
|
||||
ror ~num+6
|
||||
ror ~num+5
|
||||
ror ~num+4
|
||||
ror ~num+3
|
||||
ror ~num+2
|
||||
ror ~num+1
|
||||
ror ~num
|
||||
ror A
|
||||
dex
|
||||
bne cn4
|
||||
lsr A form a character
|
||||
lsr A
|
||||
lsr A
|
||||
lsr A
|
||||
ora #'0'
|
||||
cmp #'9'+1 if the character should be alpha,
|
||||
blt cn5 adjust it
|
||||
adc #6
|
||||
ora ~orVal
|
||||
cn5 sta ~str,Y save the character
|
||||
dey
|
||||
lda ~num+7 loop if the number is not zero
|
||||
ora ~num+6
|
||||
ora ~num+5
|
||||
ora ~num+4
|
||||
ora ~num+3
|
||||
ora ~num+2
|
||||
ora ~num+1
|
||||
ora ~num
|
||||
bne cn3
|
||||
;
|
||||
; If a leading '0x' is required, be sure we include one
|
||||
;
|
||||
lda ~altForm branch if no leading '0x' is required
|
||||
beq al3
|
||||
al2 lda #'X' insert leading '0x'
|
||||
ora ~orVal
|
||||
sta ~hexPrefix+1
|
||||
lda #'0'
|
||||
sta ~hexPrefix
|
||||
al3 long I,M
|
||||
;
|
||||
; Piggy back off of ~Format_d for output
|
||||
;
|
||||
brl ~Format_IntOut
|
||||
end
|
||||
|
||||
****************************************************************
|
||||
*
|
||||
* ~Format_Percent - format the '%' character
|
||||
|
@ -5365,7 +5278,7 @@ fListEnd anop
|
|||
;
|
||||
; Work buffers
|
||||
;
|
||||
~num ds 8 long long integer
|
||||
~num ds 8 long long integer (must be 0 after each conversion)
|
||||
~numChars ds 2 number of characters printed with this printf
|
||||
~orVal ds 2 value to 'or' with to set case of characters
|
||||
~str ds 83 string buffer
|
||||
|
|
Loading…
Reference in New Issue