6502code/prdec.txt
2019-06-13 22:26:24 -07:00

33 lines
2.1 KiB
Plaintext

FDED- 5 COUT .EQ $FDED
0300- 6 *------------------------------------
0300- 7 * Print Decimal with Leading Zero
0300- 8 *
0300-A2 AF 9 ( 2) PDW0 LDX #"0"-1 Start with ASCII zero-1
0302-38 10 ( 2) SEC Set up subtraction
0303-E8 11 ( 2) .1 INX Increment ten's digit
0304-E9 0A 12 ( 2) SBC #10 Take out ten
0306-B0 FB 13 (2**) BCS .1 Still more tens
0308-69 BA 14 ( 2) ADC #"0"+10 Add back one ten, and make ASCII
030A-48 15 ( 3) PHA Save unit's digit
030B-8A 16 ( 2) TXA Get ten's digit
030C-20 ED FD 17 ( 6) JSR COUT Print ten's digit
030F-68 18 ( 4) PLA Get unit's digit
0310-4C ED FD 19 ( 3) JMP COUT and print it
0313- 20 *------------------------------------
0313- 21 * Print Decimal with Leading Space
0313- 22 *
0313-A2 AF 23 ( 2) PDSPC LDX #"0"-1 Start with ASCII zero-1
0315-38 24 ( 2) SEC Set up subtraction
0316-E8 25 ( 2) .1 INX Increment ten's digit
0317-E9 0A 26 ( 2) SBC #10 Take out ten
0319-B0 FB 27 (2**) BCS .1 Still more tens
031B-69 BA 28 ( 2) ADC #"0"+10 Add back one ten, and make ASCII
031D-48 29 ( 3) PHA Save unit's digit
031E-8A 30 ( 2) TXA Get ten's digit
031F-C9 B0 31 ( 2) CMP #"0" Print
0321-D0 02 32 (2**) BNE .2 00-09 as " 0" through " 9"
0323-A9 A0 33 ( 2) LDA #" "
0325-20 ED FD 34 ( 6) .2 JSR COUT Print ten's digit
0328-68 35 ( 4) PLA Get unit's digit
0329-4C ED FD 36 ( 3) JMP COUT and print it