|
|
 |
« : 25 Ocak 2008, 12:24:27 » |
|
Delphi asembly ile internette fark edilmeden dolaşma
Asembly olmadan çocuklar asla iyi bir yazılımcı olmazsınız iyi dil zor olandır
Kod:
procedure BRICK0001; assembler;asm db 16, 16, 16, 16, 16, 16,111,111, 16,111, 16,111,109,106,111 db 16,110,110,107,111, 16,111,111,105,111, 16,110,108,105,110 db 16,108,105, 16,108, 16,105,109,111,106, 16,107,111,109, 16 db 16,110,111,109, 16, 16,109,110,110, 16, 16,109,109,108, 16 db 16,107,110,107, 16, 16,106,106,107,105, 16, 16, 16, 16, 16 db 107,111,110,105,111,109,110,110, 16,111,111,110,109, 16,111 db 110,111,109, 16,110,107,110,108, 16,108,107,109,105,105,110 db 16,105,111,110,105,107, 16,111,109, 16,109,107,110,110, 16 db 111,107,110,109,110,110,107,109,109,108,106,106,11 0,107,106 db 16, 16,106,106, 16, 16, 16, 16, 16, 16,109,111,111, 16,111 db 111,110,110,111,111,111,111,110,111,110,111,110,10 9,111,111 db 110,109,107,106,110,107,107,106, 16,109, 16,105,111,108,105 db 109,105,110,110, 16,111, 16,111,108,108,111, 16,110,108,111 db 111, 16,111,107,111,110, 16,108,106,108,106, 16,106, 16,106 db 16, 16, 16, 16, 16,111,110,106,111,110,110,110,109,111,111 db 111,110,109,110,110,110,111,107,110,111,110,110,10 7,111,110 db 108,105,106,106,109,105,105,110, 16,106,108,109,110,108,108 db 110,110,110,107,111,111,110,110,107,111,110,111,11 0,106,111 db 109,106,108, 16,109,106, 16,106,105,106end;procedure BLOCK000; assembler;asm db 0, 16, 16, 16, 16, 16, 31, 31,110,110, 16, 31, 31,110,108 db 16,110,110,110,110, 16,110,110,110,108, 16, 31,110,110,110 db 16,110,108,108,108, 16,108,110,110,108, 16,108,108,110,108 db 16,110,110,108,108, 16,108,110,108,107, 16,108,108,110,108 db 16,106,106,106,106, 0, 16, 16, 16, 16, 16, 16, 16, 16, 16 db 16, 31, 31,110,106, 31,110,110,110,110, 31,110,110,110,108 db 31, 31,110,110,110, 31,110,110,110,108, 31, 31,110,108,108 db 110,110,108,110,108,110,110,108,110,108,110,108,11 0,108,107 db 110,110,110,108,107,106,108,108,108,106, 16,106,106,106,106 db 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 31, 31,110,110, 16 db 31,110,110,110,106, 31,110,110, 31,106,110,110, 31,110,106 db 31,110,110,108,106,110,108,110,110,106,110,110,110 ,108,106 db 110,110,108,108,106,108,108,108,108,106,110,108,10 8,108,106 db 108,107,107,107,106,106,106,106,106, 16, 16, 16, 16, 16, 16 db 16, 16, 16, 16, 0, 31, 31, 31,110, 16, 31,110,110,110, 16 db 110,110,110,110, 16,110,110, 31,110, 16,110,110,110,108, 16 db 110,110,110,108, 16,110,110,108,108, 16, 31,108,108,110, 16 db 110,108,110,108, 16,108,108,108,108, 16,108,108,108,107, 16 db 106,106,106,106, 16, 16, 16, 16, 16, 0end;procedure BLOCK001; assembler;asm db 0, 16, 16, 16, 16, 16, 55, 55, 53, 55, 16, 53, 53, 51, 53 db 16, 53, 53, 51, 53, 16, 53, 53, 51, 53, 16, 53, 53, 51, 53 db 16, 51, 51, 50, 51, 16, 55, 31, 55, 55, 16, 53, 55, 53, 53 db 16, 53, 55, 53, 53, 16, 53, 55, 53, 53, 16, 53, 55, 53, 53 db 16, 51, 53, 51, 51, 0, 16, 16, 16, 16, 16, 16, 16, 16, 16 db 31, 55, 55, 31, 55, 55, 53, 53, 55, 53, 55, 53, 53, 55, 53 db 55, 53, 53, 55, 53, 55, 53, 53, 55, 53, 53, 51, 51, 53, 51 db 31, 55, 55, 55, 55, 55, 53, 53, 53, 53, 55, 53, 53, 53, 53 db 55, 53, 53, 53, 53, 55, 53, 53, 53, 53, 53, 51, 51, 51, 51 db 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 55, 55, 55, 55, 53 db 53, 53, 53, 53, 51, 53, 53, 53, 53, 51, 53, 53, 53, 53, 51 db 53, 53, 53, 53, 51, 51, 51, 51, 51, 50, 55, 55, 55, 55, 53 db 53, 53, 53, 53, 51, 53, 53, 53, 53, 51, 53, 53, 53, 53, 51 db 53, 53, 53, 53, 51, 51, 51, 51, 51, 50, 16, 16, 16, 16, 16 db 16, 16, 16, 16, 0, 55, 55, 55, 55, 16, 53, 53, 53, 53, 16 db 53, 53, 53, 53, 16, 53, 53, 53, 53, 16, 53, 53, 53, 53, 16 db 51, 51, 51, 51, 16, 55, 53, 55, 55, 16, 53, 51, 53, 53, 16 db 53, 51, 53, 53, 16, 53, 51, 53, 53, 16, 53, 51, 53, 53, 16 db 51, 50, 51, 51, 16, 16, 16, 16, 16, 0end;procedure BROWN001; assembler;asm db 16, 16, 16, 16, 16, 44, 45, 45, 45, 44, 43, 43, 44, 43, 45 db 42, 42, 43, 43, 42, 42, 42, 42, 42, 42, 42, 42, 41, 42, 42 db 42, 42, 42, 41, 42, 41, 41, 42, 42, 42, 42, 81, 43, 81, 40 db 81, 82, 82, 83, 41, 83, 81, 83, 83, 81, 83, 83, 84, 83, 83 db 84, 84, 84, 84, 84, 84, 84, 84, 85, 84, 16, 16, 16, 16, 16 db 43, 45, 43, 44, 43, 45, 42, 45, 44, 45, 43, 44, 43, 42, 44 db 42, 42, 43, 43, 43, 43, 41, 42, 42, 42, 41, 41, 41, 42, 40 db 41, 81, 40, 41, 81, 81, 41, 81, 43, 42, 41, 81, 83, 81, 43 db 81, 83, 83, 83, 41, 83, 83, 84, 83, 83, 84, 84, 84, 84, 83 db 84, 84, 84, 85, 84, 16, 16, 16, 16, 16, 44, 45, 43, 45, 44 db 44, 44, 44, 42, 43, 44, 42, 42, 43, 43, 42, 42, 42, 42, 42 db 42, 43, 42, 42, 42, 81, 42, 42, 42, 41, 40, 42, 41, 81, 41 db 42, 43, 40, 81, 40, 42, 40, 81, 40, 41, 41, 81, 83, 81, 81 db 81, 84, 84, 84, 81, 83, 84, 84, 84, 83, 84, 84, 84, 85, 84 db 16, 16, 16, 16, 16, 44, 44, 44, 43, 45, 44, 42, 44, 44, 43 db 43, 43, 42, 43, 42, 43, 42, 42, 42, 43, 42, 42, 43, 42, 41 db 41, 41, 42, 43, 42, 42, 40, 42, 43, 42, 43, 41, 41, 41, 43 db 43, 81, 81, 81, 81, 81, 83, 83, 83, 83, 83, 83, 84, 84, 83 db 83, 84, 84, 84, 84, 84, 84, 84, 84, 84end;procedure CHAMP000; assembler;asm db 0, 0,251,251, 0, 0,251, 6, 6, 0, 0, 6, 6, 6,251 db 0, 31, 6, 6, 31, 0, 6, 6, 31, 6,251, 6, 6, 31, 6 db 251, 31, 6, 31, 6,251, 6, 6, 6, 6,251,251,251,251, 6 db 0,251, 16, 16,251, 0, 29, 16, 16,251, 0, 29, 31, 31,251 db 0,251, 30, 30, 0, 0, 0,251,251, 0, 0, 0,251, 0, 0 db 0,251, 6,251, 0, 0, 6, 6, 6, 0, 0, 31, 6, 6,251 db 251, 6, 6, 6, 6, 6, 6, 31, 31, 6, 6, 6, 6, 6, 31 db 6, 6, 6, 6, 6, 6,251,251,251, 6,251, 29, 30, 30, 6 db 0, 30, 31, 31,251, 0, 30, 31, 31, 0, 0, 29, 30, 30, 0 db 0,251,251,251, 0, 0, 0,251, 0, 0, 0,251, 6,251, 0 db 0, 31, 6, 6, 0,251, 31, 6, 6, 0, 6, 6, 31, 6,251 db 6, 6, 31, 6, 31, 31, 6, 31, 6, 31, 31, 6, 6, 6, 31 db 6,251,251,251, 6, 6, 30, 30, 29,251,251, 31, 31, 30, 0 db 0, 31, 31, 30, 0, 0, 30, 30, 29, 0, 0,251,251,251, 0 db 0,251,251, 0, 0, 0, 6, 6,251, 0,251, 31, 6, 31, 0 db 6, 6, 6, 6, 0, 6, 6, 31, 6, 0, 31, 6, 31, 6,251 db 31, 6, 31, 6,251, 31, 6, 6, 6,251, 6,251,251,251,251 db 251, 16, 16,251, 0,251,251, 16, 29, 0,251, 31, 31, 29, 0 db 0, 30, 30,251, 0, 0,251,251, 0, 0end;procedure COIN000; assembler;asm db 0, 0, 0, 0, 0, 0, 0,159, 0, 0, 0, 0, 12,159, 0 db 0, 0, 12, 13, 0, 0,159, 12, 13, 0, 0,159, 13, 13, 0 db 0, 12,159, 13,159, 0, 12, 87, 14,159, 0, 12, 87, 13,159 db 0,159, 87, 14, 0, 0,159, 13, 14, 0, 0, 0, 14, 14, 0 db 0, 0, 14,159, 0, 0, 0,159, 0, 0, 0, 0, 0, 0, 0 db 0, 0,159, 0, 0, 0, 0, 12,159, 0, 0,159, 12, 13, 0 db 0, 12, 87, 13, 0, 0, 12, 13, 13, 0, 0, 12, 13, 14, 0 db 0, 12, 13, 13, 0, 0, 13, 13, 14, 0, 0, 12, 13, 14, 0 db 0, 13,159, 14, 0, 0,159, 14, 14, 0, 0, 0, 14,159, 0 db 0, 0,159, 0, 0, 0, 0, 0, 0, 0, 0, 0,159, 0, 0 db 0,159, 12, 0, 0, 0, 12, 12,159, 0, 0, 12, 87, 13, 0 db 0, 12, 12, 14, 0, 0, 12, 12, 13, 0, 0, 13, 12, 14, 0 db 0, 12, 12, 14, 0, 0, 13, 12, 14, 0, 0, 13,159, 14, 0 db 0, 14, 14,159, 0, 0,159, 14, 0, 0, 0, 0,159, 0, 0 db 0, 0, 0, 0, 0, 0, 0,159, 0, 0, 0,159, 13, 0, 0 db 0, 12, 12, 0, 0, 0, 12,159,159, 0, 0, 12,159,159, 0 db 159, 12,159, 14, 0,159, 12,159, 14, 0,159, 13,159, 14, 0 db 0, 13,159,159, 0, 0, 13, 14,159, 0, 0, 13, 14, 0, 0 db 0,159, 14, 0, 0, 0, 0,159, 0, 0end;
|