00000000: 0D 20 3B 52 4F 55 54 49 4E 45 20 5A 55 52 20 41 |. ;ROUTINE ZUR A|
00000010: 55 53 47 41 42 45 20 45 49 4E 45 53 20 42 59 54 |USGABE EINES BYT|
00000020: 45 53 0D 20 3B 48 45 58 5A 41 48 4C 20 57 49 52 |ES. ;HEXZAHL WIR|
00000030: 44 20 41 4C 53 20 44 45 43 49 4D 41 4C 5A 41 48 |D ALS DECIMALZAH|
00000040: 4C 0D 20 3B 41 55 53 47 45 47 45 42 45 4E 2E 20 |L. ;AUSGEGEBEN. |
00000050: 57 45 52 54 20 4D 55 53 53 20 49 4D 20 41 4B 4B |WERT MUSS IM AKK|
00000060: 55 20 53 54 45 48 45 4E 0D 20 3B 20 20 20 20 20 |U STEHEN. ; |
00000070: 20 20 20 20 20 20 20 20 20 20 20 28 57 29 20 42 | (W) B|
00000080: 59 20 4D 57 53 0D 0D 0D 0D 20 20 20 20 20 20 20 |Y MWS.... |
00000090: 20 20 50 48 41 0D 20 20 20 20 20 20 20 20 20 4C | PHA. L|
000000A0: 53 52 20 41 0D 20 20 20 20 20 20 20 20 20 4C 53 |SR A. LS|
000000B0: 52 20 41 0D 20 20 20 20 20 20 20 20 20 4C 53 52 |R A. LSR|
000000C0: 20 41 0D 20 20 20 20 20 20 20 20 20 4C 53 52 20 | A. LSR |
000000D0: 41 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 4C |A. JSR L|
000000E0: 4F 4F 50 0D 20 20 20 20 20 20 20 20 20 50 4C 41 |OOP. PLA|
000000F0: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 4C 4F |. JSR LO|
00000100: 4F 50 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D |OP. RTS.|
00000110: 0D 4C 4F 4F 50 20 20 20 20 20 41 4E 44 20 23 24 |.LOOP AND #$|
00000120: 30 46 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 |0F. CMP |
00000130: 23 24 30 41 0D 20 20 20 20 20 20 20 20 20 43 4C |#$0A. CL|
00000140: 43 0D 20 20 20 20 20 20 20 20 20 42 4D 49 20 4D |C. BMI M|
00000150: 49 4E 55 53 0D 20 20 20 20 20 20 20 20 20 41 44 |INUS. AD|
00000160: 43 20 23 24 30 37 0D 4D 49 4E 55 53 20 20 20 20 |C #$07.MINUS |
00000170: 41 44 43 20 23 24 33 30 0D 20 20 20 20 20 20 20 |ADC #$30. |
00000180: 20 20 4A 53 52 20 24 46 46 44 32 0D 20 20 20 20 | JSR $FFD2. |
00000190: 20 20 20 20 20 52 54 53 0D 0D | RTS.. |
. ;ROUTINE ZUR AUSGABE EINES BYTES. ;HEX
ZAHL WIRD ALS DECIMALZAHL. ;AUSGEGEBEN.
WERT MUSS IM AKKU STEHEN. ;
(W) BY MWS.... PHA. L
SR A. LSR A. LSR A.
LSR A. JSR LOOP. PLA
. JSR LOOP. RTS..LOOP
AND #$0F. CMP #$0A. CL
C. BMI MINUS. ADC #$07.M
INUS ADC #$30. JSR $FFD2.
RTS..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL