; ******** Source: print_uint32.asm
     1                         
     2                          OSWRCH=$FFEE
     3                          X0=$80
     4                          X1=$81
     5                          X2=$82
     6                          X3=$83
     7                         
     8                          ; Print a 32 bit unsigned binary integer in base 10
     9                          ; Leading zeros are omitted
    10                          ; Enter with:
    11                          ;   Integer to be printed in zero page locations X0,X1,X2,X3 (least to most significant)
    12                          ; Return with:
    13                          ;   X0=X1=X2=X3=0
    14                          ;   A=0
    15                          ;   X=0, Y unmodified (assuming OSWRCH doesn't touch X, Y)
    16                          ; Stack usage: maximum 12+W bytes including return address, where W is stack usage of OSWRCH
    17                          ;
    18                          PRINT_UINT32
    19  0900 a900                   LDA      #0                  ; terminator for digits on stack
    20                          .PRINT_UINT32_1
    21  0902 48                     PHA                         ; push terminator or digit onto stack
    22  0903 a900                   LDA     #0                  ; accumulator for division
    23  0905 b8                     CLV                         ; V flag will be set if any quotient bit is 1
    24  0906 a220                   LDX     #32                 ; number of input bits to process
    25                          .PRINT_UINT32_2
    26  0908 c905                   CMP     #5                  ; is accumulator >= 5 ?
    27  090a 9003                   BCC     .PRINT_UINT32_3
    28  090c e985                   SBC     #$85                ; if so, subtract 5, toggle bit 7 and set V flag (unwanted bit 7 will be shifted out imminently)
    29  090e 38                     SEC                         ; set C (=next quotient bit)
    30                          .PRINT_UINT32_3
    31  090f 2680                   ROL     X0                  ; shift quotient bit into X while shifting out next dividend bit into A
    32  0911 2681                   ROL     X1
    33  0913 2682                   ROL     X2
    34  0915 2683                   ROL     X3
    35  0917 2a                     ROL                         ; shift dividend into A
    36  0918 ca                     DEX
    37  0919 d0ed                   BNE     .PRINT_UINT32_2     ; loop until all original dividend bits processed
    38  091b 0930                   ORA     #$30                ; A contains remainder from division by 10 - convert to ASCII digit
    39  091d 70e3                   BVS     .PRINT_UINT32_1     ; if quotient was not zero, loop back to push digit on stack then divide by 10 again
    40                          .PRINT_UINT32_4
    41  091f 20eeff                 JSR     OSWRCH              ; print digit
    42  0922 68                     PLA                         ; retrieve next digit from stack (or zero terminator)
    43  0923 d0fa                   BNE     .PRINT_UINT32_4     ; if not terminator, print digit
    44  0925 60                     RTS                         ; finished

utoa:
    dey             ; width must be < 129
    sty width       ; ideally a ZP byte
    lda #0          ; stack sentinel
    pha             ; push sentinel
utoa2:
    lda #0          ; init remainder
    clv             ; init "not done" flag
    ldy #32         ; bit width of argument
utoa3:
    cmp #10/2       ; divide argument by 10
    bcc utoa4
    sbc #10/2+128   ; set "not done" flag for
    sec             ;   quotient > 0
utoa4:
    rol 0,x         ; when inner loop is done,
    rol 1,x         ;   argument /= 10 ...
    rol 2,x
    rol 3,x
    rol             ;   ... and A = remainder
    dey
    bne utoa3       ; loop until done dividing
    ora #'0'        ; xlate remainder to ascii
    dcb $cd         ; naked cmp abs opcode
utoapad:
    lda #' '        ; pad char
    pha             ; push digit or pad char
    dec width       ; update output char count
    bvs utoa2       ; loop until quotient == 0
    bpl utoapad     ; pad any remaining width
    pla
utoaout:
    jsr COUT        ; output reversed digits
    pla
    bne utoaout     ; until sentinel is popped
    rts

    .opt  Proc6502
width    = $3f
test     = $FC00    ; cold entry point
io_area  = $f000      ;configure simulator terminal I/O
acia_tx  = io_area+1  ;acia tx data register
;=====================================================;
    .org test
    ldx #$ff
    txs
    cld
    ldx #$40
    lda #0
    sta $40
    sta $41
    sta $42
    sta $43
    ldy #5
    jsr utoa
    lda #13
    sta $40
    sta $41
    sta $42
    sta $43
    ldy #10
    jsr utoa
    brk
utoa:
    dey             ; width must be < 129
    sty width       ; ideally a ZP byte
    lda #0          ; stack sentinel
    pha             ; push sentinel
utoa2:
    lda #0          ; init remainder
    clv             ; init "not done" flag
    ldy #32         ; bit width of argument
utoa3:
    cmp #10/2       ; divide argument by 10
    bcc utoa4
    sbc #10/2+128   ; set "not done" flag for
    sec             ;   quotient > 0
utoa4:
    rol 0,x         ; when inner loop is done,
    rol 1,x         ;   argument /= 10 ...
    rol 2,x
    rol 3,x
    rol             ;   ... and A = remainder
    dey
    bne utoa3       ; loop until done dividing
    ora #'0'        ; xlate remainder to ascii
    .db $cd         ; naked cmp abs opcode
utoapad:
    lda #'.'        ; pad char
    pha             ; push digit or pad char
    dec width       ; update output char count
    bvs utoa2       ; loop until quotient == 0
    bpl utoapad     ; pad any remaining width
    pla
utoaout:
    jsr outch       ; output reversed digits
    pla
    bne utoaout     ; until sentinel is popped
    rts
outch:
    sta  acia_tx    ; emit char via transmit register
    rts
;-----------------------------------------------------;
    .end test       ; set start address

....0.218959117