1 files changed, 58 insertions, 0 deletions

diff --git a/v4.0/src/MAPPER/EXIT.ASM b/v4.0/src/MAPPER/EXIT.ASM
new file mode 100644
index 0000000..5f98f70
--- /dev/null
+++ b/v4.0/src/MAPPER/EXIT.ASM
@@ -0,0 +1,58 @@
+;
+page 60,132
+;
+title CP/DOS DosExit mapper
+;
+dosxxx  segment byte public 'dos'
+        assume  cs:dosxxx,ds:nothing,es:nothing,ss:nothing
+;
+;**********************************************************************
+;*
+;*   MODULE:   dosexit
+;*
+;*   FUNCTION:  Exit a process
+;*
+;*   CALLING SEQUENCE:
+;*
+;*       push      word   action code
+;*       push      word   result code
+;*       call      dosexit
+;*
+;*   MODULES CALLED:  DOS Int 21h, Function 4ch, terminate process
+;*
+;*********************************************************************
+
+            public   dosexit
+            .sall
+            include  macros.inc
+
+str         struc
+old_bp      dw       ?
+return      dd       ?
+Result      dw       ?       ; result code
+Action      dw       ?       ; action code
+str         ends
+
+dosexit     proc     far
+
+            Enter    DosExit             ; push registers
+
+            mov      ax,[bp].action      ; set resule code area
+            cmp      ax,1                ; check for valid action code
+            jg       exit                ; jump if invalid action code
+
+            mov      ax,[bp].result      ; else, set result code
+
+            mov      ah,4ch              ; load opcode
+            int      21h                 ; do exit
+
+            xor      ax,ax               ; set good return code
+
+exit:       mexit                        ; pop registers
+            ret      size str - 6        ; return
+
+dosexit     endp
+
+dosxxx      ends
+
+            end