DEZIMAL->HEX.SRC
FILE INFORMATION
FILENAME(S): DEZIMAL->HEX.SRC
FILE TYPE(S): SEQ
FILE SIZE: 733b
FIRST SEEN: 2025-12-01 13:59:19
APPEARS ON: 1 disk(s)
FILE HASH
8565b2712c66c72e6eca18cc7c35776d3c614d1b9a069c0bbcf354eff5f7a32e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DN PRG SERVICE | DEZIMAL->HEX.SRC | SEQ | HOL2001, OUG | 1 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 52 4F 55 54 49 4E 45 20 5A 55 52 20 55 4D 52 |;ROUTINE ZUR UMR| 00000010: 45 43 48 4E 55 4E 47 20 45 49 4E 45 52 20 45 49 |ECHNUNG EINER EI| 00000020: 4E 47 45 47 45 2D 0D 3B 42 45 4E 45 4E 20 44 45 |NGEGE-.;BENEN DE| 00000030: 5A 49 4D 41 4C 5A 41 48 4C 20 49 4E 20 45 49 4E |ZIMALZAHL IN EIN| 00000040: 45 20 48 45 58 2D 5A 41 48 4C 2E 0D 3B 5A 41 48 |E HEX-ZAHL..;ZAH| 00000050: 4C 20 53 54 45 48 54 20 4E 41 43 48 48 45 52 20 |L STEHT NACHHER | 00000060: 49 4D 20 41 4B 4B 55 2E 0D 3B 20 20 20 20 20 20 |IM AKKU..; | 00000070: 20 20 20 20 20 20 20 20 20 20 20 20 28 57 29 20 | (W) | 00000080: 42 59 20 4D 57 53 0D 0D 0D 0D 53 54 41 52 54 20 |BY MWS....START | 00000090: 20 20 20 4A 53 52 20 24 46 46 45 34 20 3B 5A 45 | JSR $FFE4 ;ZE| 000000A0: 49 43 48 45 4E 20 48 4F 4C 45 4E 0D 20 20 20 20 |ICHEN HOLEN. | 000000B0: 20 20 20 20 20 42 45 51 20 53 54 41 52 54 20 3B | BEQ START ;| 000000C0: 4B 45 49 4E 53 3F 20 44 41 4E 4E 20 5A 55 52 55 |KEINS? DANN ZURU| 000000D0: 45 43 4B 0D 20 20 20 20 20 20 20 20 20 50 48 41 |ECK. PHA| 000000E0: 20 20 20 20 20 20 20 3B 57 45 52 54 20 53 50 45 | ;WERT SPE| 000000F0: 49 43 48 45 52 4E 0D 4C 4F 4F 50 31 20 20 20 20 |ICHERN.LOOP1 | 00000100: 4A 53 52 20 24 46 31 33 45 20 3B 32 2E 20 5A 45 |JSR $F13E ;2. ZE| 00000110: 49 43 48 45 4E 20 48 4F 4C 45 4E 0D 20 20 20 20 |ICHEN HOLEN. | 00000120: 20 20 20 20 20 42 45 51 20 4C 4F 4F 50 31 20 3B | BEQ LOOP1 ;| 00000130: 4B 45 49 4E 53 3F 20 44 41 4E 4E 20 5A 55 52 55 |KEINS? DANN ZURU| 00000140: 45 43 4B 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |ECK. JSR| 00000150: 20 55 4D 57 41 4E 44 3B 55 4D 57 41 4E 44 45 4C | UMWAND;UMWANDEL| 00000160: 4E 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |N. STA $| 00000170: 46 42 20 20 20 3B 53 50 45 49 43 48 45 52 4E 0D |FB ;SPEICHERN.| 00000180: 20 20 20 20 20 20 20 20 20 50 4C 41 20 20 20 20 | PLA | 00000190: 20 20 20 3B 45 52 53 54 45 53 20 5A 45 49 43 48 | ;ERSTES ZEICH| 000001A0: 45 4E 20 48 4F 4C 45 4E 0D 20 20 20 20 20 20 20 |EN HOLEN. | 000001B0: 20 20 4A 53 52 20 55 4D 57 41 4E 44 3B 55 4D 57 | JSR UMWAND;UMW| 000001C0: 41 4E 44 45 4C 4E 0D 20 20 20 20 20 20 20 20 20 |ANDELN. | 000001D0: 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 41 |ASL A. A| 000001E0: 53 4C 20 41 20 20 20 20 20 3B 42 49 54 53 20 41 |SL A ;BITS A| 000001F0: 4E 20 44 49 45 20 52 49 43 48 54 49 47 45 0D 20 |N DIE RICHTIGE. | 00000200: 20 20 20 20 20 20 20 20 41 53 4C 20 41 20 20 20 | ASL A | 00000210: 20 20 3B 53 54 45 4C 4C 45 20 53 43 48 49 45 42 | ;STELLE SCHIEB| 00000220: 45 4E 2E 0D 20 20 20 20 20 20 20 20 20 41 53 4C |EN.. ASL| 00000230: 20 41 0D 20 20 20 20 20 20 20 20 20 4F 52 41 20 | A. ORA | 00000240: 24 46 42 20 20 20 3B 4D 49 54 20 31 2E 57 45 52 |$FB ;MIT 1.WER| 00000250: 54 20 56 45 52 4B 4E 2E 0D 20 20 20 20 20 20 20 |T VERKN.. | 00000260: 20 20 52 54 53 0D 0D 55 4D 57 41 4E 44 20 20 20 | RTS..UMWAND | 00000270: 43 4D 50 20 23 24 34 31 20 20 3B 42 55 43 48 53 |CMP #$41 ;BUCHS| 00000280: 54 2E 20 4F 2E 20 5A 41 48 4C 0D 20 20 20 20 20 |T. O. ZAHL. | 00000290: 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 20 20 | SEC. | 000002A0: 20 42 4D 49 20 4C 4F 4F 50 32 0D 20 20 20 20 20 | BMI LOOP2. | 000002B0: 20 20 20 20 53 42 43 20 23 24 30 37 0D 4C 4F 4F | SBC #$07.LOO| 000002C0: 50 32 20 20 20 20 53 42 43 20 23 24 33 30 0D 20 |P2 SBC #$30. | 000002D0: 20 20 20 20 20 20 20 20 52 54 53 0D 0D | RTS.. |
;ROUTINE ZUR UMRECHNUNG EINER EINGEGE-.;
BENEN DEZIMALZAHL IN EINE HEX-ZAHL..;ZAH
L STEHT NACHHER IM AKKU..;
(W) BY MWS....START JSR $FFE4 ;ZE
ICHEN HOLEN. BEQ START ;KEINS? D
ANN ZURUECK. PHA ;WERT SPE
ICHERN.LOOP1 JSR $F13E ;2. ZEICHEN HO
LEN. BEQ LOOP1 ;KEINS? DANN ZURU
ECK. JSR UMWAND;UMWANDELN.
STA $FB ;SPEICHERN. PLA
;ERSTES ZEICHEN HOLEN. JSR UM
WAND;UMWANDELN. ASL A. A
SL A ;BITS AN DIE RICHTIGE.
ASL A ;STELLE SCHIEBEN.. ASL
A. ORA $FB ;MIT 1.WERT VERKN.
. RTS..UMWAND CMP #$41 ;BUCHS
T. O. ZAHL. SEC. BMI LOO
P2. SBC #$07.LOOP2 SBC #$30.
RTS..
> CLICK IMAGE PREVIEW FOR FULL MODAL