123456789101112131415161718192021222324252627 |
- .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
|