- ex de,hl\r
- ld hl,0\r
- ;fall thru\r
-\r
-pr.decl:\r
- push ix\r
- ld ix,1 ; count chars on stack\r
- push bc\r
- exx\r
- ex (sp),hl\r
-; push de\r
-; push bc\r
- exx\r
-\r
- xor a\r
- push af ; string terminator\r
- inc sp\r
-prd_divloop:\r
- ld bc,10\r
- call div32_16 ; get a digit\r
- ld a,c\r
- add a,'0' ; make it printable\r
- push af\r
- inc sp\r
- inc ix\r
-\r
- ld a,h\r
- or l\r
- or d\r
- or e\r
- jr nz,prd_divloop\r
- exx\r
- push hl\r
- exx\r
- pop bc ;b=filler, c=field width\r
- inc c\r
- push ix\r