mirror of
https://github.com/romychs/DemoN.git
synced 2026-02-21 13:51:52 +03:00
65 lines
2.7 KiB
NASM
65 lines
2.7 KiB
NASM
;[]=========================================================================[]
|
||
;[] ‘®åà ¥¨¥ íªà ¢ ä ©« []
|
||
;[] v0.03 - ¯®á«¥¤¨¥ ¨§¬¥¥¨ï 11.03.2006 []
|
||
;[]=========================================================================[]
|
||
SaveScr:
|
||
ld bc,1*256+Dss.GetMem
|
||
rst DssRst ;¢ë¤¥«¥¨¥ ¡ ª¨ ¯ ¬ïâ¨
|
||
ret c ;¢ë室 á ®è¨¡ª®©
|
||
ld (.Id),a
|
||
ld bc,Dss.SetWin3
|
||
rst DssRst ;¢ª«î票¥ ¡ ª¨ ¢ 3-¥ ®ª®
|
||
ld (.Id+1),a ;§ ¬¥é ¥¬ ï áâà ¨æ
|
||
ld de,0 ;¯®§¨æ¨ï íªà ¥
|
||
ld hl,0xC000
|
||
.L1 push de
|
||
push hl
|
||
ld c,Dss.RdChar
|
||
rst DssRst ;áç¨â âì ᨬ¢®« á íªà
|
||
pop hl
|
||
pop de
|
||
ld (hl),a
|
||
inc hl
|
||
inc e
|
||
ld a,e
|
||
cp 0x50 ;§ ª®ç¨« áì áâப ?
|
||
jr nz,.L1
|
||
ld bc,0x0D0A ;ª®¥æ áâப¨
|
||
ld (hl),b
|
||
inc hl
|
||
ld (hl),c
|
||
inc hl
|
||
ld e,0 ; ç «® áâப¨
|
||
inc d
|
||
ld a,d
|
||
cp 0x20 ;ª®¥æ íªà ?
|
||
jr nz,.L1
|
||
|
||
ld hl,.NameF ;¨¬ï ä ©«
|
||
xor a ; âਡãâ
|
||
ld c,Dss.Create
|
||
rst DssRst
|
||
jr c,.L2 ;®è¨¡ª
|
||
push af
|
||
ld hl,0xC000 ; ç «® § ¯¨áë¢ ¥¬®© ¯ ¬ïâ¨
|
||
ld de,82*32 ;à §¬¥à § ¯¨áë¢ ¥¬®© ¨äë
|
||
ld c,Dss.Write
|
||
rst DssRst ;§ ¯¨á âì
|
||
pop af
|
||
ld c,Dss.Close
|
||
rst DssRst ;§ ªàëâì ä ©«
|
||
|
||
.L2 ld a,(.Id) ;id ¯ ¬ïâ¨
|
||
ld c,Dss.FreeMem
|
||
rst DssRst ;®á¢®¡®¤¨âì ¯ ¬ïâì
|
||
ld a,(.Id+1)
|
||
out (EmmWin.P3),a ;¢®áâ ®¢¨«¨ ¡ ªã
|
||
ret
|
||
|
||
.NameF db "demon.$$$",0
|
||
.Id ds 2 ;id ¢ë¤¥«¥®£® ¡«®ª
|
||
|
||
;11:11 18.02.2011 ‡ £«ãèª <20>¥ ¡ë«® ¨á室¨ª :(
|
||
; include "d:\workast\demon\screen\scrdemon"
|
||
|