mirror of
https://github.com/romychs/DemoN.git
synced 2025-04-18 01:52:43 +03:00
116 lines
4.8 KiB
NASM
116 lines
4.8 KiB
NASM
;[]=========================================================================[]
|
||
;[] „ ë¥ ¬®¨â®à -®â« ¤ç¨ª DemoN []
|
||
;[] v0.01 - ¯®á«¥¤¨¥ ¨§¬¥¥¨ï 10.10.2004 []
|
||
;[] v0.02 - ¯®á«¥¤¨¥ ¨§¬¥¥¨ï 11.03.2005 []
|
||
;[] v0.03 - ¯®á«¥¤¨¥ ¨§¬¥¥¨ï 05.02.2006 []
|
||
;[] v0.10 - ¯®á«¥¤¨¥ ¨§¬¥¥¨ï 10.09.2006 []
|
||
;[]=========================================================================[]
|
||
SymbolNoPrint db #b0;"." ;ᨬ¢®«ë < ¯à®¡¥«
|
||
ClockOn db On ;¯à¨§ ª ¢ë¢®¤ ç ᮢ
|
||
DemonScreen db 0 ;®¬¥à íªà ®â« ¤ç¨ª
|
||
OSScreen db 0 ;<3B>®¬¥à íªà Ž‘¨
|
||
OSGrafMode db 0 ;ƒà ä¨ç¥áª¨© ०¨¬ ®á¨
|
||
BufPage db 255 ;<3B>®¬¥à áâà ¨æë á ®ª®ë¬ ¡ãä¥à®¬
|
||
|
||
Hello db 13,10
|
||
; db "‚¥àá¨ï ®âª®¬¯¨«¨à®¢ á¯¥æ¨ «ì® ¤«ï ‚ ᨫ¨ï ˆ¢ ®¢ !",13,10,10
|
||
db "DemoN v"
|
||
incbin "VERSION\major.bin"
|
||
db "."
|
||
incbin "VERSION\minor.bin"
|
||
db " build "
|
||
incbin "VERSION\build.bin"
|
||
db " (alpha) <Created by Alpha Studio>",13,10
|
||
db "Last edition "
|
||
incbin "VERSION\date.bin"
|
||
db " (BLR "
|
||
incbin "VERSION\time.bin"
|
||
db ")",13,10
|
||
db "FidoNet: Igor Zhadinets 2:454/5.18; "
|
||
db "e-mail: igor_ast@tut.by",13,10,10,0
|
||
Str:
|
||
.Load db "Load file ...",0x0D,0x0A,0
|
||
.DA db 0x0d,0x0A,0
|
||
|
||
PauseFlash equ 16 ;ç áâ®â ¬¨£ ¨ï ¯à®£à.ªãàá®à
|
||
|
||
Color:
|
||
.Screen db 00000111b ;®á®¢®© 梥â íªà
|
||
.Border db 00000011b ;梥â à ¬ª¨
|
||
.TextStrReg db 00000010b ;梥â ॣ¨áâ஢ëå ¯ à
|
||
.TextStrWin db 00000101b ;梥⠮¬¥à®¢ ®ª®
|
||
._SP db 00000110b ;¯®¤á¢¥âª ¢¥àè¨ë á⥪
|
||
._PC db 01110001b ;¯®¤á¢¥âª ¢ë¯®«ï¥¬®© áâà.
|
||
.RezArea db 00001110b ;¯®¤á¢¥âª १¨¤¥â
|
||
.TextStrLogo db 00000100b ;梥⠫®£® ¯à®£à ¬¬ë
|
||
.Cursor db 00011101b ;梥⠪ãàá®à -㪠§ ⥫ï
|
||
.InLine db 00111111b ;梥â áâப¨ ¢¢®¤
|
||
.InLineEd db 00110001b ;梥â áâப¨ ¢¢®¤ ¯à¨ ।.
|
||
|
||
StackDebug ds 2 ; ¤à¥á á⥪ ®â« ¤ç¨ª
|
||
BankDebug ds 1 ;®¬¥à ¡ ª¨ ®â« ¤ç¨ª
|
||
BankOS ds 1 ;®¬¥à ¡ ª¨ á OS
|
||
RezAdr dw 0x7000 ; ¤à¥á ¯®á ¤ª¨ १¨¤¥â
|
||
StackDown ds 1 ;£«ã¡¨ á⥪
|
||
StackDump dw 0x800A ; ç «® ¤ ¬¯ á⥪
|
||
|
||
Reg: ;§ 票¥ ॣ¨áâ஢ëå ¯ à
|
||
._IX dw 0
|
||
._IY dw 0
|
||
._HL dw 0
|
||
._DE dw 0
|
||
._BC dw 0
|
||
._AF dw 0
|
||
._HL_ dw 0
|
||
._DE_ dw 0
|
||
._BC_ dw 0
|
||
._AF_ dw 0
|
||
._IR dw 0
|
||
._SP dw 0x7FFE
|
||
._PC dw 0
|
||
|
||
WinPage: db 0xFF,0xFF,0xFF,0xFF ; ¤à¥á ¯®¤ª«îç¥ëå áâà ¨æ
|
||
|
||
Dump1 dw 0x4000 ; ¤à¥á ç « ¤¨ ¬¨ç¥áª®£® ¤ ¬¯
|
||
Dump: ; ¤à¥á ç « áâப ¤ ¬¯
|
||
dw InputLine.Buffer;0x4100
|
||
dw InputLine.Buffer+16;0x8100
|
||
dw PutCode.Buffer;0xC100
|
||
dw 0x5280
|
||
dw 0x9280
|
||
dw 0xD280
|
||
dw 0x6000
|
||
dw 0xA000
|
||
|
||
ListAdr: ds 40 ;¡ãä¥à åà ¥¨ï ¤à¥á®¢ «¨á⨣
|
||
ListFormat: db -1 ;ä®à¬ âë© ¢ë¢®¤ «¨á⨣
|
||
;-1 - ¤ ; 0 - ¥â
|
||
|
||
DecHex db 0 ;0-HEX FF-DEC á¨á⥬
|
||
|
||
;======== Š®áâ ââë ======
|
||
On equ 0xFF
|
||
Off equ 0
|
||
Ins equ 0
|
||
Ovr equ 0xFF
|
||
SysSymb equ 0x1B ;á¨áâ¥¬ë© § ª®£¥¥à â®à
|
||
|
||
;¯¥ç âì ç¥à¥§ ¯/¯ ¡¨®á
|
||
ifdef D_PRINTCH_BIOS
|
||
Demon.Bios_Win db 0 ;¨¤¥â¨ä¨ª â®à ®ª ¡¨®á
|
||
MainWin db 80,32,0,0,00110000b,0,0,0
|
||
ds 26,0
|
||
endif
|
||
|
||
;--------------------------------------
|
||
;„¨ «®£®¢®¥ ®ª® ¤«ï ¯¯ ¢ë室
|
||
;--------------------------------------
|
||
ExitDlg db 6,22,13,32,6,#40
|
||
db "Confirmation",0
|
||
db " You really want to quit?"
|
||
db 0x16,32,17,"OK Cancel",0
|
||
db 2
|
||
db 29,17,8,2 ;Ok
|
||
dw 0,0
|
||
db 39,17,8,2 ;Cancel
|
||
dw 0,Keyb.NoExit |