00000000: 20 20 20 20 20 20 20 20 20 2A 3D 20 24 31 30 30 | *= $100|
00000010: 30 0D 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |0..;************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 2A 20 20 |***********.;* |
00000040: 48 45 58 44 45 43 2D 52 4F 55 54 49 4E 45 20 28 |HEXDEC-ROUTINE (|
00000050: 57 29 20 31 39 39 34 20 42 59 20 4D 41 44 52 4F |W) 1994 BY MADRO|
00000060: 4D 20 20 2A 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |M *.;**********|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 2A |*************.;*|
00000090: 20 52 4F 55 54 49 4E 45 20 57 49 52 44 20 4D 49 | ROUTINE WIRD MI|
000000A0: 54 20 2D 20 4A 53 52 20 48 45 58 44 45 43 20 2D |T - JSR HEXDEC -|
000000B0: 20 20 20 20 20 2A 0D 3B 2A 20 41 55 46 47 45 52 | *.;* AUFGER|
000000C0: 55 46 45 4E 2E 20 49 4E 20 58 2D 20 55 4E 44 20 |UFEN. IN X- UND |
000000D0: 59 2D 52 45 47 20 5A 45 49 47 45 4E 20 20 2A 0D |Y-REG ZEIGEN *.|
000000E0: 3B 2A 20 41 55 46 20 44 49 45 20 31 36 42 49 54 |;* AUF DIE 16BIT|
000000F0: 20 48 45 58 5A 41 48 4C 2C 20 44 49 45 20 53 49 | HEXZAHL, DIE SI|
00000100: 43 48 20 49 4D 20 20 2A 0D 3B 2A 20 53 50 45 49 |CH IM *.;* SPEI|
00000110: 43 48 45 52 20 49 4D 20 41 53 43 49 49 2D 46 4F |CHER IM ASCII-FO|
00000120: 52 4D 41 54 20 42 45 46 49 4E 44 45 4E 20 20 20 |RMAT BEFINDEN |
00000130: 2A 0D 3B 2A 20 4D 55 53 53 2E 20 4E 41 43 48 20 |*.;* MUSS. NACH |
00000140: 44 45 4D 20 41 55 46 52 55 46 20 53 54 45 48 54 |DEM AUFRUF STEHT|
00000150: 20 49 4E 20 58 2D 52 45 47 2A 0D 3B 2A 20 55 4E | IN X-REG*.;* UN|
00000160: 44 20 41 4B 4B 55 20 44 49 45 20 49 4E 20 44 45 |D AKKU DIE IN DE|
00000170: 5A 49 4D 41 4C 45 20 46 4F 52 4D 41 54 20 20 20 |ZIMALE FORMAT |
00000180: 20 20 2A 0D 3B 2A 20 55 4D 47 45 57 41 4E 44 45 | *.;* UMGEWANDE|
00000190: 4C 54 45 20 5A 41 48 4C 20 2E 2E 2E 20 20 4D 44 |LTE ZAHL ... MD|
000001A0: 52 2F 54 2D 43 2F 43 52 4D 20 20 2A 0D 3B 2A 2A |R/T-C/CRM *.;**|
000001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001D0: 2A 2A 2A 2A 2A 0D 0D 0D 0D 48 45 58 44 45 43 0D |*****....HEXDEC.|
000001E0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 34 |. LDA #4|
000001F0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 32 35 |. STA 25|
00000200: 31 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 32 |1. STX 2|
00000210: 35 32 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 |52. STY |
00000220: 32 35 33 0D 20 20 20 20 20 20 20 20 20 4C 44 59 |253. LDY|
00000230: 20 23 30 0D 48 44 31 0D 20 20 20 20 20 20 20 20 | #0.HD1. |
00000240: 20 4C 44 41 20 28 32 35 32 29 2C 59 0D 20 20 20 | LDA (252),Y. |
00000250: 20 20 20 20 20 20 43 4D 50 20 23 24 34 31 0D 20 | CMP #$41. |
00000260: 20 20 20 20 20 20 20 20 42 43 53 20 48 44 33 0D | BCS HD3.|
00000270: 20 20 20 20 20 20 20 20 20 53 45 43 0D 20 20 20 | SEC. |
00000280: 20 20 20 20 20 20 53 42 43 20 23 34 38 0D 20 20 | SBC #48. |
00000290: 20 20 20 20 20 20 20 4A 4D 50 20 48 44 32 0D 48 | JMP HD2.H|
000002A0: 44 33 0D 20 20 20 20 20 20 20 20 20 53 45 43 0D |D3. SEC.|
000002B0: 20 20 20 20 20 20 20 20 20 53 42 43 20 23 35 35 | SBC #55|
000002C0: 0D 48 44 32 0D 20 20 20 20 20 20 20 20 20 53 54 |.HD2. ST|
000002D0: 41 20 48 44 34 2C 59 0D 20 20 20 20 20 20 20 20 |A HD4,Y. |
000002E0: 20 49 4E 59 0D 20 20 20 20 20 20 20 20 20 43 50 | INY. CP|
000002F0: 59 20 32 35 31 0D 20 20 20 20 20 20 20 20 20 42 |Y 251. B|
00000300: 4E 45 20 48 44 31 0D 20 20 20 20 20 20 20 20 20 |NE HD1. |
00000310: 4C 44 41 20 48 44 34 0D 20 20 20 20 20 20 20 20 |LDA HD4. |
00000320: 20 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 | ASL A. |
00000330: 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 41 |ASL A. A|
00000340: 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 41 53 |SL A. AS|
00000350: 4C 20 41 0D 20 20 20 20 20 20 20 20 20 43 4C 43 |L A. CLC|
00000360: 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 48 44 |. ADC HD|
00000370: 34 2B 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 |4+1. STA|
00000380: 20 32 35 34 0D 20 20 20 20 20 20 20 20 20 4C 44 | 254. LD|
00000390: 41 20 48 44 34 2B 32 0D 20 20 20 20 20 20 20 20 |A HD4+2. |
000003A0: 20 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 | ASL A. |
000003B0: 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 41 |ASL A. A|
000003C0: 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 41 53 |SL A. AS|
000003D0: 4C 20 41 0D 20 20 20 20 20 20 20 20 20 41 44 43 |L A. ADC|
000003E0: 20 48 44 34 2B 33 0D 20 20 20 20 20 20 20 20 20 | HD4+3. |
000003F0: 53 54 41 20 32 35 35 0D 20 20 20 20 20 20 20 20 |STA 255. |
00000400: 20 4C 44 58 20 32 35 35 0D 20 20 20 20 20 20 20 | LDX 255. |
00000410: 20 20 4C 44 41 20 32 35 34 0D 20 20 20 20 20 20 | LDA 254. |
00000420: 20 20 20 52 54 53 0D 48 44 34 0D 20 20 20 20 20 | RTS.HD4. |
00000430: 20 20 20 20 2E 54 45 58 54 20 22 30 30 30 30 22 | .TEXT "0000"|
00000440: 0D 0D |.. |
*= $1000..;********************
*******************.;* HEXDEC-ROUTINE (
W) 1994 BY MADROM *.;******************
*********************.;* ROUTINE WIRD MI
T - JSR HEXDEC - *.;* AUFGERUFEN. IN
X- UND Y-REG ZEIGEN *.;* AUF DIE 16BIT
HEXZAHL, DIE SICH IM *.;* SPEICHER IM
ASCII-FORMAT BEFINDEN *.;* MUSS. NACH
DEM AUFRUF STEHT IN X-REG*.;* UND AKKU D
IE IN DEZIMALE FORMAT *.;* UMGEWANDE
LTE ZAHL ... MDR/T-C/CRM *.;**********
*****************************....HEXDEC.
. LDA #4. STA 251.
STX 252. STY 253. LDY
#0.HD1. LDA (252),Y. CM
P #$41. BCS HD3. SEC.
SBC #48. JMP HD2.HD3.
SEC. SBC #55.HD2. ST
A HD4,Y. INY. CPY 251.
BNE HD1. LDA HD4.
ASL A. ASL A. ASL A.
ASL A. CLC. ADC HD
4+1. STA 254. LDA HD4+2.
ASL A. ASL A. A
SL A. ASL A. ADC HD4+3.
STA 255. LDX 255.
LDA 254. RTS.HD4. .TEX
T "0000"..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL