ô > 6502.ProgTips.PrDecDemo ô ô Print decimal numbers (ô ===================== 2+ô PrDec16 - print 16-bit decimal number <+ô PrDec24 - print 24-bit decimal number F+ô PrDec32 - print 32-bit decimal number P9ô These can be optimised for specific implementations Z: dô OS Entries: nOSWRCH=&FFEE x: ‚ô Memory locations: Œpad=&70:num=&71 –: Þ mc% 299 ª ã P=0 ¸ 1 ´P%=mc%:O%=P% ¾[OPT P*3+4 È: Ò!\ --------------------------- Ü!\ Print 16-bit decimal number æ!\ --------------------------- ð#\ On entry num=number to print ú6\ pad=0 or pad character (eg '0' or ' ') \ On entry at PrDec16Lp1 ;\ Y=(number of digits)*2-2, eg 8 for 5 digits '\ On exit A,X,Y,num,pad corrupted "\ Size 69 bytes ,G\ ----------------------------------------------------------------- 6.PrDec16 @GLDY #8 :\ Offset to powers of ten J.PrDec16Lp1 TCLDX #&FF:SEC :\ Start with digit=-1 ^.PrDec16Lp2 hELDA num+0:SBC PrDec16Tens+0,Y:STA num+0 :\ Subtract current tens r+LDA num+1:SBC PrDec16Tens+1,Y:STA num+1 |=INX:BCS PrDec16Lp2 :\ Loop until <0 †HLDA num+0:ADC PrDec16Tens+0,Y:STA num+0 :\ Add current tens back in +LDA num+1:ADC PrDec16Tens+1,Y:STA num+1 šBTXA:BNE PrDec16Digit :\ Not zero, print it ¤>LDA pad:BNE PrDec16Print:BEQ PrDec16Next :\ pad<>0, use it ®.PrDec16Digit ¸BLDX #—"0":STX pad :\ No more zero padding Â=„A #—"0" :\ Print this digit Ì.PrDec16Print ÖJSR OSWRCH à.PrDec16Next êCDEY:DEY:BPL PrDec16Lp1 :\ Loop for next digit ôRTS þ: .PrDec16Tens EQUW 1 EQUW 10 &EQUW 100 0 EQUW 1000 :EQUW 10000 DG\ ----------------------------------------------------------------- N X b!\ --------------------------- l!\ Print 24-bit decimal number v!\ --------------------------- €#\ On entry num=number to print Š6\ pad=0 or pad character (eg '0' or ' ') ”\ On entry at PrDec24Lp1 ž<\ Y=(number of digits)*3-3, eg 21 for 8 digits ¨'\ On exit A,X,Y,num,pad corrupted ²\ Size 98 bytes ¼G\ ----------------------------------------------------------------- Æ.PrDec24 ÐGLDY #21 :\ Offset to powers of ten Ú.PrDec24Lp1 äCLDX #&FF:SEC :\ Start with digit=-1 î.PrDec24Lp2 øELDA num+0:SBC PrDec24Tens+0,Y:STA num+0 :\ Subtract current tens +LDA num+1:SBC PrDec24Tens+1,Y:STA num+1 +LDA num+2:SBC PrDec24Tens+2,Y:STA num+2 =INX:BCS PrDec24Lp2 :\ Loop until <0 HLDA num+0:ADC PrDec24Tens+0,Y:STA num+0 :\ Add current tens back in *+LDA num+1:ADC PrDec24Tens+1,Y:STA num+1 4+LDA num+2:ADC PrDec24Tens+2,Y:STA num+2 >BTXA:BNE PrDec24Digit :\ Not zero, print it H>LDA pad:BNE PrDec24Print:BEQ PrDec24Next :\ pad<>0, use it R.PrDec24Digit \BLDX #—"0":STX pad :\ No more zero padding f=„A #—"0" :\ Print this digit p.PrDec24Print zJSR OSWRCH „.PrDec24Next ŽCDEY:DEY:DEY:BPL PrDec24Lp1 :\ Loop for next digit ˜RTS ¢: ¬.PrDec24Tens ¶ EQUW 1 :EQUB 1 65536 À!EQUW 10 :EQUB 10 65536 Ê"EQUW 100 :EQUB 100 65536 Ô#EQUW 1000 :EQUB 1000 65536 Þ$EQUW 10000 :EQUB 10000 65536 è%EQUW 100000 :EQUB 100000 65536 ò&EQUW 1000000 :EQUB 1000000 65536 ü'EQUW 10000000:EQUB 10000000 65536 G\ ----------------------------------------------------------------- $!\ --------------------------- .!\ Print 32-bit decimal number 8!\ --------------------------- B#\ On entry num=number to print L6\ pad=0 or pad character (eg '0' or ' ') V\ On entry at PrDec32Lp1 `=\ Y=(number of digits)*4-4, eg 36 for 10 digits j'\ On exit A,X,Y,num,pad corrupted t\ Size 129 bytes ~G\ ----------------------------------------------------------------- ˆ.PrDec32 ’GLDY #36 :\ Offset to powers of ten œ.PrDec32Lp1 ¦CLDX #&FF:SEC :\ Start with digit=-1 °.PrDec32Lp2 ºELDA num+0:SBC PrDec32Tens+0,Y:STA num+0 :\ Subtract current tens Ä+LDA num+1:SBC PrDec32Tens+1,Y:STA num+1 Î+LDA num+2:SBC PrDec32Tens+2,Y:STA num+2 Ø+LDA num+3:SBC PrDec32Tens+3,Y:STA num+3 â=INX:BCS PrDec32Lp2 :\ Loop until <0 ìHLDA num+0:ADC PrDec32Tens+0,Y:STA num+0 :\ Add current tens back in ö+LDA num+1:ADC PrDec32Tens+1,Y:STA num+1 +LDA num+2:ADC PrDec32Tens+2,Y:STA num+2 +LDA num+3:ADC PrDec32Tens+3,Y:STA num+3 BTXA:BNE PrDec32Digit :\ Not zero, print it >LDA pad:BNE PrDec32Print:BEQ PrDec32Next :\ pad<>0, use it (.PrDec32Digit 2BLDX #—"0":STX pad :\ No more zero padding <=„A #—"0" :\ Print this digit F.PrDec32Print PJSR OSWRCH Z.PrDec32Next dCDEY:DEY:DEY:DEY:BPL PrDec32Lp1 :\ Loop for next digit nRTS x: ‚.PrDec32Tens Œ EQUD 1 –EQUD 10 EQUD 100 ª EQUD 1000 ´EQUD 10000 ¾EQUD 100000 ÈEQUD 1000000 ÒEQUD 10000000 ÜEQUD 100000000 æEQUD 1000000000 ðG\ ----------------------------------------------------------------- ú ]:í : õ "è "Enter test number: "A% ,è "Enter pad character: "B% 6.ñ "PrDec16: ";:?pad=B%:!num=A%:Ö PrDec16:ñ @.ñ "PrDec24: ";:?pad=B%:!num=A%:Ö PrDec24:ñ J.ñ "PrDec32: ";:?pad=B%:!num=A%:Ö PrDec32:ñ Tý £ ÿ