home *** CD-ROM | disk | FTP | other *** search
- COM GROUP CODE,INIT
- ASSUME CS:COM, DS:COM, ES:COM
- EXTRN SUBR:NEAR
- CODE SEGMENT PUBLIC 'CODE'
- ORG 100H
- START: JMP INITPROC ;GO PERFORM INITIALIZATION
- RESDATA DW ? ;DATA FOR RESIDENT PORTION
- RESIDENT PROC
- NOP ;PERFORM RESIDENT FUNCTION
- NOP
- CALL SUBR ;CALL RESIDENT SUBROUTINE
- IRET
- RESIDENT ENDP
- CODE ENDS
- INIT SEGMENT BYTE PUBLIC 'CODE'
- ENDRES LABEL BYTE ;MARK END OF RESIDENT PORTION
- INITDATA DW ? ;DATA FOR INITIALIZATION
- INITPROC PROC
- NOP ;PERFORM INITIALIZATION
- NOP
- ;EXIT & REMAIN RESIDENT
- MOV AX,CS ;MAKE SURE ES POINTS TO PSP
- MOV ES,AX
- MOV DX,OFFSET COM:ENDRES
- MOV CL,4
- SHR DX,CL ;NO. PARAGRAPHS RESIDENT
- MOV AX,3100H ;EXIT & REMAIN RESIDENT
- INT 21H
- INITPROC ENDP
- INIT ENDS
- END START