mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 09:21:47 +03:00
29 lines
692 B
NASM
29 lines
692 B
NASM
//////////////////////////////////////////////////////////////////////
|
|
; ”ãªæ¨ï #3E. Žá¢®¡®¦¤¥¨¥ ¡«®ª ¯ ¬ïâ¨.
|
|
;
|
|
; ¢å®¤: A - ¨¤¥â¨ä¨ª â®à ¡«®ª ¯ ¬ïâ¨
|
|
; ¢ë室: A - ª®¤ ®è¨¡ª¨, ¥á«¨ CF=1
|
|
//////////////////////////////////////////////////////////////////////
|
|
RETMEM: LD E,A
|
|
LD D,#00
|
|
;LD HL,MEMTAB ; ¬ áᨢ ᯨ᪠¢ë¤¥«. áâà ¨æ
|
|
LD HL,CORE_BUFFERS.MemoryTable ; ¬ áᨢ ᯨ᪠¢ë¤¥«. áâà ¨æ
|
|
ADD HL,DE
|
|
LD A,(TASK) ; ã஢¥ì ⥪ã饩 ¯à®£à ¬¬ë
|
|
CP (HL)
|
|
LD A,DSS_Error.sys.INVALID_MEMORY_HND
|
|
SCF
|
|
RET NZ
|
|
;PUSH DE
|
|
LD A,E
|
|
LD C,BIOS.FreeMem
|
|
RST ToBIOS
|
|
;POP DE
|
|
LD A,DSS_Error.sys.INVALID_MEMORY_HND
|
|
RET C
|
|
;LD HL,MEMTAB
|
|
LD HL,CORE_BUFFERS.MemoryTable
|
|
ADD HL,DE
|
|
XOR A
|
|
LD (HL),A
|
|
RET |