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: 44 45 43 42 49 4E 2D 52 4F 55 54 49 4E 45 20 20 |DECBIN-ROUTINE |
00000050: 28 57 29 20 31 39 39 34 20 42 59 20 4D 41 44 52 |(W) 1994 BY MADR|
00000060: 4F 4D 20 2A 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |OM *.;**********|
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 44 45 43 42 49 4E 20 2D |T - JSR DECBIN -|
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 52 45 47 20 4D |UFEN. IN X-REG M|
000000D0: 55 53 53 20 44 49 45 20 38 42 49 54 20 20 2A 0D |USS DIE 8BIT *.|
000000E0: 3B 2A 20 5A 41 48 4C 20 53 54 45 48 45 4E 2E 20 |;* ZAHL STEHEN. |
000000F0: 44 45 52 20 42 49 4E 20 57 45 52 54 20 57 49 52 |DER BIN WERT WIR|
00000100: 44 20 20 20 20 20 20 2A 0D 3B 2A 20 41 55 46 20 |D *.;* AUF |
00000110: 44 45 4D 20 42 49 4C 44 53 43 48 49 52 4D 20 41 |DEM BILDSCHIRM A|
00000120: 55 53 47 45 47 45 42 45 4E 20 2E 2E 2E 20 20 20 |USGEGEBEN ... |
00000130: 2A 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.;*************|
00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D 0D 44 45 43 |**********...DEC|
00000160: 42 49 4E 0D 20 20 20 20 20 20 20 20 20 53 54 58 |BIN. STX|
00000170: 20 32 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 | 2. LDX |
00000180: 23 38 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 |#8. STX |
00000190: 32 35 31 0D 0D 42 49 4E 31 0D 20 20 20 20 20 20 |251..BIN1. |
000001A0: 20 20 20 4C 44 58 20 32 35 31 0D 20 20 20 20 20 | LDX 251. |
000001B0: 20 20 20 20 4C 44 41 20 32 0D 20 20 20 20 20 20 | LDA 2. |
000001C0: 20 20 20 41 4E 44 20 44 42 54 41 42 2C 58 0D 20 | AND DBTAB,X. |
000001D0: 20 20 20 20 20 20 20 20 42 4E 45 20 42 49 4E 32 | BNE BIN2|
000001E0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 22 |. LDA #"|
000001F0: 2D 22 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |-". JSR |
00000200: 24 46 46 44 32 0D 20 20 20 20 20 20 20 20 20 44 |$FFD2. D|
00000210: 45 43 20 32 35 31 0D 20 20 20 20 20 20 20 20 20 |EC 251. |
00000220: 42 4E 45 20 42 49 4E 31 0D 20 20 20 20 20 20 20 |BNE BIN1. |
00000230: 20 20 52 54 53 0D 42 49 4E 32 0D 20 20 20 20 20 | RTS.BIN2. |
00000240: 20 20 20 20 4C 44 41 20 23 22 2A 22 0D 20 20 20 | LDA #"*". |
00000250: 20 20 20 20 20 20 4A 53 52 20 24 46 46 44 32 0D | JSR $FFD2.|
00000260: 20 20 20 20 20 20 20 20 20 44 45 43 20 32 35 31 | DEC 251|
00000270: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 42 49 |. BNE BI|
00000280: 4E 31 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D |N1. RTS.|
00000290: 0D 44 42 54 41 42 0D 20 20 20 20 20 20 20 20 20 |.DBTAB. |
000002A0: 2E 42 59 54 45 20 30 2C 31 2C 32 2C 34 2C 38 2C |.BYTE 0,1,2,4,8,|
000002B0: 31 36 2C 33 32 2C 36 34 2C 31 32 38 0D 0D |16,32,64,128.. |
*= $1000..;********************
*******************.;* DECBIN-ROUTINE
(W) 1994 BY MADROM *.;******************
*********************.;* ROUTINE WIRD MI
T - JSR DECBIN - *.;* AUFGERUFEN. IN
X-REG MUSS DIE 8BIT *.;* ZAHL STEHEN.
DER BIN WERT WIRD *.;* AUF DEM BILD
SCHIRM AUSGEGEBEN ... *.;*************
**************************...DECBIN.
STX 2. LDX #8. STX
251..BIN1. LDX 251. LDA
2. AND DBTAB,X. BNE BIN2
. LDA #"-". JSR $FFD2.
DEC 251. BNE BIN1.
RTS.BIN2. LDA #"*". JS
R $FFD2. DEC 251. BNE BI
N1. RTS..DBTAB. .BYTE 0,
1,2,4,8,16,32,64,128..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL