Print Decimal, Hex and Binary routines#
00010 .LI OFF 00020 * 00030 * 00040 * 00050 * 00060 * 00070 * 00080 ------------------------------ 00090 * DEZ0: 00100 * Ausgabe einer 16-Bit Zahl mit 00110 * fuehrenden Nullen. 00120 * 00130 * DEZSP: 00140 * Ausgabe einer 16-Bit Zahl 00150 * Ohne fuehrende Nullen. 00160 * 00170 * <A> Register: LO-Byte der Zahl 00180 * <X> Register: HI-Byte der Zahl 00190 * 00200 ------------------------------ 00210 * 00220 * 00230 DEZ0 STA WERT Zahl in 00240 STX WERT+1 Hilfregister 00250 LDA #0 "Null"-Flag 00260 STA FLAG setzen 00270 JMP NUM Ausgabe 00280 * 00290 DEZSP STA WERT Zahl in 00300 STX WERT+1 Hilfsregister 00310 LDA #$80 keine Nullen 00320 STA FLAG 00330 * 00340 NUM LDX #8 5 Stellen 00350 .1 LDA #0 Ziffer=0 00360 STA DIGIT 00370 .2 LDA WERT Zahl- 00380 SEC entsprechender 00390 SBC NTAB,X Zehner- 00400 TAY potenz 00410 LDA WERT+1 00420 SBC NTAB+1,X ist Subtraktion erfolgreich 00430 BCC .3 Nein\^_\^_\^_ 00440 STA WERT+1 Differenz 00450 STY WERT speichern 00460 INC DIGIT Ziffer hochzaehlen 00470 JMP .2 Noch ein Versuch 00480 * 00490 .3 LDA DIGIT Ist Ziffer 00500 BNE .4 ungleich Null, Ja\^_\^_\^_ 00510 CPX #0 Einerstelle erreicht 00520 BEQ .4 Ja, dann Ausgabe 00530 BIT FLAG "Null"-Flag 00540 BMI .5 testen. Negativ, dann Null nicht ausgeben. 00550 .4 ASL FLAG "Null"-Flag aus Ausgabe schieben 00560 ORA #$30 +ASCII "0" 00570 STX HOLD <X> retten 00580 JSR CHAROUT Ziffer ausgeben 00590 LDX HOLD <X> holen 00600 .5 DEX naechste 00610 DEX Ziffer 00620 BPL .1 00630 RTS 00640 * 00650 NTAB .DA 1,10,100,1000,10000 00660 * 00670 ------------------------------ 00680 * 00690 * HEX16: 00700 * Ausgabe einer 16-Bit Zahl in 00710 * hexadezimaler Form. 00720 * 00730 * HEX8: 00740 * Ausgabe einer 8-Bit Zahl in 00750 * hexadezimaler Form. 00760 * 00770 * <A> Register: LO-Byte der Zahl 00780 * <X> Register: HI-Byte der Zahl 00790 * 00800 ------------------------------ 00810 * 00820 HEX16 PHA LO-Byte retten 00830 TXA HI-Byte zuerst ausgeben 00840 JSR HEX8 00850 PLA dann LO-Byte 00860 * 00870 HEX8 PHA Wert retten 00880 LSR erst HI-Nibble 00890 LSR 00900 LSR 00910 LSR 00920 JSR HEX ausgeben 00930 PLA dann 00940 AND #$F LO-Nibble 00950 * 00960 HEX CMP #10 Zahl>=10 00970 BCC .1 Nein\^_\^_\^_ 00980 CLC +7 fuer "A"-"F" 00990 ADC #7 01000 .1 ADC #$30 +ASCII "0" 01010 JMP CHAROUT Ausgebe 01020 * 01030 ------------------------------ 01040 * 01050 * BIN: 01060 * Gibt die Zahl im <A> Regis- 01070 * ter in dualer (binaerer) 01080 * Form aus. 01090 ------------------------------ 01100 * 01110 BIN STA WERT Wert retten 01120 LDA #8 8 Bits 01130 STA HOLD 01140 * 01150 .1 ASL WERT Bit ins Carry schieben 01160 LDA #$18 <A>=ASCII "0" /2 01170 ROL Carry ins <A> Register schieben 01180 JSR CHAROUT und ausgeben 01190 DEC HOLD naechstes 01200 LDA HOLD Bit 01210 BNE .1 wiederholen 01220 RTS 01230 * 01240 ------------------------------ 01250 * 01260 * ZEICHENAUSGABEROUTINE 01270 * 01280 ------------------------------ 01290 * 01300 CHAROUT TAX 01310 LDA $E407 01320 PHA 01330 LDA $E406 01340 PHA 01350 TXA 01360 RTS 01370 * 01380 ------------------------------ 01390 * 01400 * Arbeitsregister 01410 * 01420 ------------------------------ 01430 * 01440 WERT .HX 0000 01450 HOLD .HX 00 01460 FLAG .HX 00 01470 DIGIT .HX 00
