home *** CD-ROM | disk | FTP | other *** search
- ; RUNPROG.ASM - ASMLIB Demonstration program
-
- include asm.inc
-
- public runprog
- extrn system:proc
- extrn ansicolor:proc
- extrn tclear:proc
-
- .data
- extrn pspseg:word
- typeexit db 'Enter EXIT to return to ASMDEMO',0Dh,0Ah,'$'
- nul db 0
-
- .code
- runprog proc
- call ansicolor
- call tclear
- lea dx,typeexit
- mov ah,9
- int 21h
- mov es,pspseg
- lea bx,nul
- call system
- ret
- runprog endp
- end
-