.sect .text; .sect .rom; .sect .data; .sect .bss .sect .text .define .strhp .extern .reghp, .limhp, EHEAP, .trp .strhp: pop bx pop ax mov (.reghp),ax cmp ax,(.limhp) jb 1f add ax,02000 and ax,~0777 push bx push ax call __brk pop cx pop bx cmp ax,-1 je 2f 1: mov (.limhp),cx jmp bx 2: mov ax,EHEAP push bx jmp .trp