33 lines
2.1 KiB
Plaintext
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
|