- - -
: Dos
> Delphi, Assembler . > Assembler
Shadow
;This MS-DOS 
;WINODOWS
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
DSEG SEGMENT

_char db 00000000b;0
db 00011000b;1
db 00111100b;2
db 01100110b;3
db 11000011b;4
db 11000011b;5
db 11000011b;6
db 11111111b;7
db 11111111b;8
db 11000011b;9
db 11000011b;10
db 11000011b;11
db 11000011b;12
db 11000011b;13



_char db 00000000b;0
db 11111111b;1
db 11111111b;2
db 11000001b;3
db 11000000b;4
db 11000000b;5
db 11111110b;6
db 11111111b;7
db 11000011b;8
db 11000011b;9
db 11000011b;10
db 11000011b;11
db 11111111b;12
db 11111110b;13



_char db 00000000b;0
db 11111100b;1
db 01100110b;2
db 01100110b;3
db 01100110b;4
db 01100110b;5
db 01111100b;6
db 01111110b;7
db 01100011b;8
db 01100011b;9
db 01100011b;10
db 01100011b;11
db 01100011b;12B
db 11111110b;13

_char db 00000000b;0
db 11111111b;1
db 01100001b;2
db 01100000b;3
db 01100000b;4
db 01100000b;5
db 01100000b;6
db 01100000b;7
db 01100000b;8
db 01100000b;9
db 01100000b;10
db 01100000b;11
db 01100000b;12B
db 01100000b;13

_char db 00000000b;0
db 01111110b;1
db 01000110b;2
db 01000110b;3
db 01000110b;4
db 01000110b;5
db 01000110b;6
db 01000110b;7
db 01000110b;8
db 01000110b;9
db 11111111b;10
db 10000011b;11
db 10000011b;12B
db 10000011b;13

_char… db 00000000b;0
db 11111111b;1
db 01100001b;2
db 01100000b;3
db 01100000b;4
db 01100000b;5
db 01100000b;6
db 01111100b;7
db 01100000b;8
db 01100000b;9
db 01100000b;10
db 01100000b;11
db 01100001b;12B
db 11111111b;13

_char† db 00000000b;0
db 10011001b;1
db 10011001b;2
db 01011010b;3
db 01011010b;4
db 00111100b;5
db 00111100b;6
db 00111100b;7
db 01011010b;8
db 01011010b;9
db 10011001b;10
db 10011001b;11
db 10011001b;12B
db 10011001b;13

_char‡ db 00000000b;0
db 01111100b;1
db 10000110b;2
db 00000110b;3
db 00000110b;4
db 00111100b;5
db 00000110b;6
db 00000110b;7
db 00000110b;8
db 00000110b;9
db 00000110b;10
db 00000110b;11
db 10001110b;12B
db 01111100b;13

_€ db 00000000b;0
db 10000011b;1
db 10000011b;2
db 10000111b;3
db 10000111b;4
db 10001011b;5
db 10010011b;6
db 10010011b;7
db 10100011b;8
db 10100011b;9
db 11000011b;10
db 11000011b;11
db 10000011b;12B
db 10000011b;13

_‰ db 00001000b;0
db 10010011b;1
db 10100011b;2
db 10000111b;3
db 10001011b;4
db 10010011b;5
db 10010011b;6
db 10010011b;7
db 10100011b;8
db 10100011b;9
db 11000011b;10
db 11000011b;11
db 10000011b;12B
db 10000011b;13

_ db 00000000b;0
db 11100011b;1
db 01100011b;2
db 01100011b;3
db 01100110b;4
db 01101100b;5
db 01111000b;6
db 01111000b;7
db 01101100b;8
db 01100110b;9
db 01100011b;10
db 01100011b;11
db 01100011b;12B
db 11100011b;13K

_ db 00000000b;0
db 00001111b;1
db 00010011b;2
db 00010011b;3
db 00010011b;4
db 00010011b;5
db 00010011b;6
db 00010011b;7
db 00010011b;8
db 00010011b;9
db 00010011b;10
db 00010011b;11
db 10010011b;12B
db 01100011b;13

_ db 00000000b;0
db 10000011b;1
db 10000011b;2
db 11000111b;3
db 11000111b;4
db 10101011b;5
db 10101011b;6
db 10010011b;7
db 10000011b;8
db 10000011b;9
db 10000011b;10
db 10000011b;11
db 10000011b;12B
db 10000011b;13

_ db 00000000b;0
db 11000011b;1
db 11000011b;2
db 11000011b;3
db 11000011b;4
db 11000011b;5
db 11000011b;6H
db 11111111b;7
db 11000011b;8
db 11000011b;9
db 11000011b;10
db 11000011b;11
db 11000011b;12B
db 11000011b;13


_ db 00000000b;0
db 01111110b;1
db 11000011b;2
db 11000011b;3
db 11000011b;4
db 11000011b;5
db 11000011b;6
db 11000011b;7
db 11000011b;8
db 11000011b;9
db 11000011b;10
db 11000011b;11
db 11000011b;12BO
db 01111110b;13

_ db 00000000b;0
db 11111111b;1
db 11000011b;2
db 11000011b;3
db 11000011b;4
db 11000011b;5
db 11000011b;6
db 11000011b;7
db 11000011b;8
db 11000011b;9
db 11000011b;10
db 11000011b;11
db 11000011b;12B
db 11000011b;13

_ db 00000000b;0
db 11111110b;1
db 01100011b;2
db 01100011b;3P
db 01100011b;4
db 01111110b;5
db 01100000b;6
db 01100000b;7
db 01100000b;8
db 01100000b;9
db 01100000b;10
db 01100000b;11
db 01100000b;12B
db 11110000b;13

_ db 00000000b;0
db 00111110b;1
db 01100011b;2
db 11000001b;3
db 11000000b;4
db 11000000b;5
db 11000000b;6
db 11000000b;7C
db 11000000b;8
db 11000000b;9
db 11000000b;10
db 11000001b;11
db 01100011b;12B
db 00111110b;13

_ db 00000000b;0
db 11111111b;1
db 11111111b;2
db 10011001b;3
db 00011000b;4
db 00011000b;5
db 00011000b;6
db 00011000b;7
db 00011000b;8
db 00011000b;9
db 00011000b;10
db 00011000b;11
db 00011000b;12B
db 00111100b;13

_ db 00000000b;0
db 11000111b;1
db 11000111b;2
db 11000111b;3
db 11000111b;4
db 11000111b;5
db 11000111b;6
db 01111111b;7
db 00000111b;8
db 00000111b;9
db 00000111b;10
db 00000111b;11
db 11000111b;12B
db 01111110b;13

_” db 00000000b;0
db 00011000b;1
db 01111110b;2
db 10011001b;3
db 10011001b;4
db 10011001b;5
db 10011001b;6
db 10011001b;7
db 01111110b;8
db 00011000b;9
db 00011000b;10
db 00011000b;11
db 00011000b;12B
db 00011000b;13

_• db 00000000b;0
db 11000011b;1
db 11000011b;2
db 11000011b;3
db 01100110b;4
db 01100110b;5
db 00111100b;6
db 00011000b;7
db 00111100b;8
db 01100110b;9
db 01100110b;10
db 11000011b;11
db 11000011b;12B
db 11000011b;13

_– db 00000000b;0
db 11000110b;1
db 11000110b;2
db 11000110b;3
db 11000110b;4
db 11000110b;5
db 11000110b;6
db 11000110b;7
db 11000110b;8
db 11000110b;9
db 11000110b;10
db 11000110b;11
db 11111111b;12B
db 00000011b;13

_— db 00000000b;0 151
db 11000011b;1
db 11000011b;2
db 11000011b;3
db 11000011b;4
db 11000011b;5
db 11000011b;6
db 01111111b;7
db 00000011b;8
db 00000011b;9
db 00000011b;10
db 00000011b;11
db 00000011b;12B
db 00000011b;13 151—

_? db 00000000b;0
db 11001011b;1
db 11001011b;2
db 11001011b;3
db 11001011b;4
db 11001011b;5
db 11001011b;6
db 11001011b;7
db 11001011b;8
db 11001011b;9
db 11001011b;10
db 11001011b;11
db 11111111b;12B
db 11111111b;13 152
; db 00000000b

_™ db 00000000b;0
db 11010110b;1
db 11010110b;2
db 11010110b;3
db 11010110b;4
db 11010110b;5
db 11010110b;6
db 11010110b;7
db 11010110b;8
db 11010110b;9
db 11010110b;10
db 11010110b;11
db 11111111b;12B
db 00000011b;13

_ db 00000000b;0
db 11100000b;1
db 11100000b;2
db 01100000b;3
db 01100000b;4
db 01100000b;5
db 01100000b;6
db 01111110b;7
db 01100011b;8
db 01100011b;9
db 01100011b;10
db 01100011b;11
db 01100011b;12B
db 01111110b;13
Shadow

_ db 00000000b;0
db 11000001b;1
db 11000001b;2
db 11000001b;3
db 11000001b;4
db 11000001b;5
db 11000001b;6
db 11000001b;7
db 11111001b;8
db 11001101b;9
db 11001101b;10
db 11001101b;11
db 11001101b;12B
db 11111001b;13

_ db 00000000b;0
db 11000000b;1
db 11000000b;2
db 11000000b;3
db 11000000b;4
db 11000000b;5
db 11000000b;6
db 11111110b;7
db 11000011b;8
db 11000011b;9
db 11000011b;10
db 11000011b;11
db 11000011b;12B
db 11111110b;13

_ db 00000000b;0
db 01111100b;1
db 11000110b;2
db 11000011b;3
db 00000011b;4
db 00000011b;5
db 00000011b;6
db 00011111b;7
db 00000011b;8
db 00000011b;9
db 00000011b;10
db 11000011b;11
db 11000110b;12B
db 01111100b;13

_ db 00000000b;0
db 11001110b;1
db 11011011b;2
db 11011011b;3
db 11011011b;4
db 11011011b;5
db 11011011b;6
db 11111011b;7
db 11011011b;8
db 11011011b;9
db 11011011b;10
db 11011011b;11
db 11011011b;12B
db 11001110b;13

_ db 00000000b;0
db 01111111b;1
db 11000110b;2
db 11000110b;3
db 11000110b;4
db 11000110b;5
db 11000110b;6
db 01111110b;7
db 00110110b;8
db 01100110b;9
db 01100110b;10
db 01100110b;11
db 01100110b;12B
db 11100111b;13

_1a db 00000000b;0
db 00011000b;1
db 00111100b;2
db 01100110b;3
db 11000011b;4
db 11000011b;5
db 11000011b;6
db 11111111b;7
db 11111111b;8
db 11000011b;9
db 11000011b;10
db 11000011b;11
db 11000011b;12
db 11000011b;13



_1 db 00000000b;0
db 11111111b;1
db 11111111b;2
db 11000001b;3
db 11000000b;4
db 11000000b;5
db 11111110b;6
db 11111111b;7
db 11000011b;8
db 11000011b;9
db 11000011b;10
db 11000011b;11
db 11111111b;12
db 11111110b;13



_1 db 00000000b;0
db 11111100b;1
db 01100110b;2
db 01100110b;3
db 01100110b;4
db 01100110b;5
db 01111100b;6
db 01111110b;7
db 01100011b;8
db 01100011b;9
db 01100011b;10
db 01100011b;11
db 01100011b;12B
db 11111110b;13

_1 db 00000000b;0
db 11111111b;1
db 01100001b;2
db 01100000b;3
db 01100000b;4
db 01100000b;5
db 01100000b;6
db 01100000b;7
db 01100000b;8
db 01100000b;9
db 01100000b;10
db 01100000b;11
db 01100000b;12B
db 01100000b;13

_1 db 00000000b;0
db 01111110b;1
db 01000110b;2
db 01000110b;3
db 01000110b;4
db 01000110b;5
db 01000110b;6
db 01000110b;7
db 01000110b;8
db 01000110b;9
db 11111111b;10
db 10000011b;11
db 10000011b;12B
db 10000011b;13

_1… db 00000000b;0
db 11111111b;1
db 01100001b;2
db 01100000b;3
db 01100000b;4
db 01100000b;5
db 01100000b;6
db 01111100b;7
db 01100000b;8
db 01100000b;9
db 01100000b;10
db 01100000b;11
db 01100001b;12B
db 11111111b;13

_1† db 00000000b;0
db 10011001b;1
db 10011001b;2
db 01011010b;3
db 01011010b;4
db 00111100b;5
db 00111100b;6
db 00111100b;7
db 01011010b;8
db 01011010b;9
db 10011001b;10
db 10011001b;11
db 10011001b;12B
db 10011001b;13

_1‡ db 00000000b;0
db 01111100b;1
db 10000110b;2
db 00000110b;3
db 00000110b;4
db 00111100b;5
db 00000110b;6
db 00000110b;7
db 00000110b;8
db 00000110b;9
db 00000110b;10
db 00000110b;11
db 10001110b;12B
db 01111100b;13

_1€ db 00000000b;0
db 10000011b;1
db 10000011b;2
db 10000111b;3
db 10000111b;4
db 10001011b;5
db 10010011b;6
db 10010011b;7
db 10100011b;8
db 10100011b;9
db 11000011b;10
db 11000011b;11
db 10000011b;12B
db 10000011b;13

_1‰ db 00001000b;0
db 10010011b;1
db 10100011b;2
db 10000111b;3
db 10001011b;4
db 10010011b;5
db 10010011b;6
db 10010011b;7
db 10100011b;8
db 10100011b;9
db 11000011b;10
db 11000011b;11
db 10000011b;12B
db 10000011b;13

_1 db 00000000b;0
db 11100011b;1
db 01100011b;2
db 01100011b;3
db 01100110b;4
db 01101100b;5
db 01111000b;6
db 01111000b;7
db 01101100b;8
db 01100110b;9
db 01100011b;10
db 01100011b;11
db 01100011b;12B
db 11100011b;13K

_1 db 00000000b;0
db 00001111b;1
db 00010011b;2
db 00010011b;3
db 00010011b;4
db 00010011b;5
db 00010011b;6
db 00010011b;7
db 00010011b;8
db 00010011b;9
db 00010011b;10
db 00010011b;11
db 10010011b;12B
db 01100011b;13

_1 db 00000000b;0
db 10000011b;1
db 10000011b;2
db 11000111b;3
db 11000111b;4
db 10101011b;5
db 10101011b;6
db 10010011b;7
db 10000011b;8
db 10000011b;9
db 10000011b;10
db 10000011b;11
db 10000011b;12B
db 10000011b;13

_1 db 00000000b;0
db 11000011b;1
db 11000011b;2
db 11000011b;3
db 11000011b;4
db 11000011b;5
db 11000011b;6H
db 11111111b;7
db 11000011b;8
db 11000011b;9
db 11000011b;10
db 11000011b;11
db 11000011b;12B
db 11000011b;13


_1 db 00000000b;0
db 01111110b;1
db 11000011b;2
db 11000011b;3
db 11000011b;4
db 11000011b;5
db 11000011b;6
db 11000011b;7
db 11000011b;8
db 11000011b;9
db 11000011b;10
db 11000011b;11
db 11000011b;12BO
db 01111110b;13

_1 db 00000000b;0
db 11111111b;1
db 11000011b;2
db 11000011b;3
db 11000011b;4
db 11000011b;5
db 11000011b;6
db 11000011b;7
db 11000011b;8
db 11000011b;9
db 11000011b;10
db 11000011b;11
db 11000011b;12B
db 11000011b;13

_char_litl db 00000000b;0
db 11111110b;1
db 01100011b;2
db 01100011b;3P
db 01100011b;4
db 01111110b;5
db 01100000b;6
db 01100000b;7
db 01100000b;8
db 01100000b;9
db 01100000b;10
db 01100000b;11
db 01100000b;12B
db 11110000b;13

db 00000000b;0
db 00111110b;1
db 01100011b;2
db 11000001b;3
db 11000000b;4
db 11000000b;5
db 11000000b;6
db 11000000b;7C
db 11000000b;8
db 11000000b;9
db 11000000b;10
db 11000001b;11
db 01100011b;12B
db 00111110b;13

db 00000000b;0
db 11111111b;1
db 11111111b;2
db 10011001b;3
db 00011000b;4
db 00011000b;5
db 00011000b;6
db 00011000b;7
db 00011000b;8
db 00011000b;9
db 00011000b;10
db 00011000b;11
db 00011000b;12B
db 00111100b;13

db 00000000b;0
db 11000111b;1
db 11000111b;2
db 11000111b;3
db 11000111b;4
db 11000111b;5
db 11000111b;6
db 01111111b;7
db 00000111b;8
db 00000111b;9
db 00000111b;10
db 00000111b;11
db 11000111b;12B
db 01111110b;13

db 00000000b;0
db 00011000b;1
db 01111110b;2
db 10011001b;3
db 10011001b;4
db 10011001b;5
db 10011001b;6
db 10011001b;7
db 01111110b;8
db 00011000b;9
db 00011000b;10
db 00011000b;11
db 00011000b;12B
db 00011000b;13
Shadow
 db 00000000b;0
db 11000011b;1
db 11000011b;2
db 11000011b;3
db 01100110b;4
db 01100110b;5
db 00111100b;6
db 00011000b;7
db 00111100b;8
db 01100110b;9
db 01100110b;10
db 11000011b;11
db 11000011b;12B
db 11000011b;13

db 00000000b;0
db 11000110b;1
db 11000110b;2
db 11000110b;3
db 11000110b;4
db 11000110b;5
db 11000110b;6
db 11000110b;7
db 11000110b;8
db 11000110b;9
db 11000110b;10
db 11000110b;11
db 11111111b;12B
db 00000011b;13

db 00000000b;0 151
db 11000011b;1
db 11000011b;2
db 11000011b;3
db 11000011b;4
db 11000011b;5
db 11000011b;6
db 01111111b;7
db 00000011b;8
db 00000011b;9
db 00000011b;10
db 00000011b;11
db 00000011b;12B
db 00000011b;13 151—

db 00000000b;0
db 11001011b;1
db 11001011b;2
db 11001011b;3
db 11001011b;4
db 11001011b;5
db 11001011b;6
db 11001011b;7
db 11001011b;8
db 11001011b;9
db 11001011b;10
db 11001011b;11
db 11111111b;12B
db 11111111b;13 152
; db 00000000b

db 00000000b;0
db 11010110b;1
db 11010110b;2
db 11010110b;3
db 11010110b;4
db 11010110b;5
db 11010110b;6
db 11010110b;7
db 11010110b;8
db 11010110b;9
db 11010110b;10
db 11010110b;11
db 11111111b;12B
db 00000011b;13

db 00000000b;0
db 11100000b;1
db 11100000b;2
db 01100000b;3
db 01100000b;4
db 01100000b;5
db 01100000b;6
db 01111110b;7
db 01100011b;8
db 01100011b;9
db 01100011b;10
db 01100011b;11
db 01100011b;12B
db 01111110b;13


db 00000000b;0
db 11000001b;1
db 11000001b;2
db 11000001b;3
db 11000001b;4
db 11000001b;5
db 11000001b;6
db 11000001b;7
db 11111001b;8
db 11001101b;9
db 11001101b;10
db 11001101b;11
db 11001101b;12B
db 11111001b;13

db 00000000b;0
db 11000000b;1
db 11000000b;2
db 11000000b;3
db 11000000b;4
db 11000000b;5
db 11000000b;6
db 11111110b;7
db 11000011b;8
db 11000011b;9
db 11000011b;10
db 11000011b;11
db 11000011b;12B
db 11111110b;13

db 00000000b;0
db 01111100b;1
db 11000110b;2
db 11000011b;3
db 00000011b;4
db 00000011b;5
db 00000011b;6
db 00011111b;7
db 00000011b;8
db 00000011b;9
db 00000011b;10
db 11000011b;11
db 11000110b;12B
db 01111100b;13

db 00000000b;0
db 11001110b;1
db 11011011b;2
db 11011011b;3
db 11011011b;4
db 11011011b;5
db 11011011b;6
db 11111011b;7
db 11011011b;8
db 11011011b;9
db 11011011b;10
db 11011011b;11
db 11011011b;12B
db 11001110b;13

db 00000000b;0
db 01111111b;1
db 11000110b;2
db 11000110b;3
db 11000110b;4
db 11000110b;5
db 11000110b;6
db 01111110b;7
db 00110110b;8
db 01100110b;9
db 01100110b;10
db 01100110b;11
db 01100110b;12B
db 11100111b;13



mes db '…†‡€‰”•–—?™','$';abBgde~
mes1 db 'CopyRight by ROMANOV ILYA ANDREEVICH','S'
mes2 db 'NICK THE Lonley Raven','$'

DSEG ENDS
;segment stack init
STSEG SEGMENT STACK
DB 60 DUP(0)
STSEG ENDS
;code segment init
CODSEG SEGMENT

ASSUME CS:CODSEG,ES:DSEG,SS:STSEG
BEGIN:
call _cls
mov ax,dseg;in <ax> data segment adress
mov es,ax;init <es> registr of data adress
;
mov ds,ax;init <ds> registr of data adress
xor ax,ax;<ax> in 0
;
lea bp,_char ;es:[bp] adress new matrix for symbol
mov cx,48;3 symbol's 48
loo: ;
mov dx,80h;65 ASCII symbol A 192 for windows
mov bl,0;
mov bh,14;16 string's in matrix (BYTE)
mov al,0;functions light
mov ah,11h;functions high
int 10h ;interrupt

lea bp,_char_litl;_char for windows
mov cx,16
mov dx,224;
mov bl,0
mov bh,14
mov al,0
mov ah,11h
int 10h

mov dx,offset mes;adress <mes> ds:[dx]
mov ah,9 ;out text functions
int 21h ;DOS interrupt
call _key_p ;wait key klick
;call _cls ;restore SYMBOLS
call _exit ;exit functions procedures
;----------------------------------------
;----------PROCEDURES INIT---------------
;----------------------------------------
;----------------------------------------
_cls proc near
mov ah,0
mov al,3
int 10h
ret
_cls endp
;---------------------------------------
_key_p proc near
mov ax,0
int 16h
ret
_key_p endp
;---------------------------------------
;---------------------------------------
_exit proc near
mov al,0
mov ah,4ch
int 21h
_exit endp
;---------------------------------------
CODSEG ENDS
END BEGIN
SKVOZNJAK
unsure.gif :p2:
. 97-175, 224-241 . , , . , http://pascal.dax.ru/forum/index.php?showtopic=779&st=20
Shadow

smile.gif
-=-=-=-=-=


smile.gif
------

-=-=-=-=-
TSR INT 10h ..
-=-=-=-=-
DARK

==========
KEYRUS.COM
DOS WIN WIN XP ..
Shadow
(SKVOZNJAK @ 28.04.04 15:19)
unsure.gif  :p2:
. 97-175, 224-241 . , , . , http://pascal.dax.ru/forum/index.php?showtopic=779&st=20

, 3 ,
SKVOZNJAK
KEYRUS- 3 , , . - , , , sad.gif, , blink.gif , , , rolleyes.gif
GLuk
.
, , smile.gif
Shadow
rolleyes.gif :p2:
. , , .