Read Decimal, Hex and Binary values#
from BiboAssembler Tooldisk 1
00010 .LI OFF 00020 * 00030 * 00040 ------------------------------ 00050 * Eingaberoutinen fuer * 00060 * Dezimalzahlen, * 00070 * Hexadezimalzahlen und * 00080 * Binaerzahlen * 00090 * Ohne Korrekturmoeglichkeit * 00100 * * 00110 * ACHTUNG: Routinen benoeti- * 00120 * gen die Ein- und * 00130 * Ausgaberoutinen * 00140 * aus dem File * 00150 * INOUT.INC * 00160 * Sollten diese * 00170 * nicht schon an an-* 00180 * derer Stelle * 00190 * stehen muessen Sie* 00200 * sie hier mit ein- * 00210 * binden. * 00220 ------------------------------ 00230 * 00240 * 00250 * 00260 * 00270 * 00280 GETDEZ LDA #0 Wert 00290 STA WERT loeschen 00300 STA WERT+1 00310 .1 JSR GETKEY Taste holen 00320 CMP #$9B Nur RETURN 00330 BEQ OUT und 00340 CMP #'0 Ziffern 00350 BCC .1 von 0-9 00360 CMP #'9+1 zulassen 00370 BCS .1 00380 PHA 00390 JSR PUTCHAR ausgeben 00400 PLA 00410 AND #$F Nur untere 00420 PHA 4 Bits werden gebraucht 00430 * 00440 LDA WERT Wert 00450 STA HOLD wird 00460 LDA WERT+1 mit 10 00470 STA HOLD+1 multi- 00480 ASL HOLD pliziert 00490 ROL HOLD+1 plus 00500 ASL HOLD Ziffern 00510 ROL HOLD+1 wert 00520 CLC 00530 LDA HOLD 00540 ADC WERT 00550 STA WERT 00560 LDA HOLD+1 00570 ADC WERT+1 00580 STA WERT+1 00590 ASL WERT 00600 ROL WERT+1 00610 CLC 00620 PLA 00630 ADC WERT 00640 STA WERT 00650 BCC .2 00660 INC WERT+1 00670 .2 JMP .1 Zurueck in Schleife 00680 * 00690 OUT JMP PUTCHAR Ausstieg mit RETURN 00700 * 00710 WERT .HX 0000 Hilfsregister 00720 HOLD .HX 0000 00730 * 00740 ------------------------------ 00750 GETHEX LDA #0 Wert 00760 STA WERT loeschen 00770 STA WERT+1 00780 LDA #3 Nur 4 00790 STA HOLD Zeichen 00800 * 00810 .1 JSR GETKEY Taste holen 00820 CMP #$9B Nur 00830 BEQ OUT RETURN 00840 CMP #'0 sowie 00850 BCC .1 00860 CMP #'G 0-9 00870 BCS .1 und 00880 CMP #'9+1 A-F 00890 BCC .2 00900 CMP #'A zulassen 00910 BCC .1 00920 * 00930 PHA 00940 JSR PUTCHAR Ausgeben 00950 PLA 00960 .2 CMP #'9+1 Wert 00970 BCC .3 auf 0-15 00980 SEC umrechnen 00990 SBC #7 01000 .3 SEC 01010 SBC #$30 01020 LDX #3 Zahl*16 01030 .4 ASL WERT 01040 ROL WERT+1 01050 DEX 01060 BPL .4 01070 ORA WERT Wert+Zahl 01080 STA WERT Zahl 01090 DEC HOLD naechtes 01100 BPL .1 Zeichen 01110 OUT2 LDA #$9B Ausstieg mit 01120 JMP OUT Return 01130 * 01140 ------------------------------ 01150 * 01160 GETBIN LDA #0 Zahl 01170 STA WERT loeschen 01180 STA WERT+1 01190 LDA #7 8 Zeichen 01200 STA HOLD 01210 * 01220 .1 JSR GETKEY Taste holen 01230 CMP #$9B Nur 01240 BEQ OUT2 RETURN 01250 CMP #'0 und 01260 BCC .1 Ziffern 01270 CMP #'2 0 und 1 01280 BCS .1 zulassen 01290 PHA 01300 JSR PUTCHAR Ausgeben 01310 PLA 01320 AND #1 Nur ein 01330 LSR Bit wird 01340 ROL WERT gebraucht 01350 DEC HOLD naechtes Zeichen 01360 BPL .1 01370 JMP OUT2 Ausstieg
