;*********************************************************************
;*   MLCREDIT.ASM                                                    *
;*                                                                   *
;*   By:            Michael Devore                                   *
;*   Date:          05/11/93                                         *
;*   Model:         Small                                            *
;*   Version:       2.5                                              *
;*   Assembler:     MASM 5.0                                         *
;*   Environment:   MS-DOS 2.x+                                      *
;*                                                                   *
;*   display linker copyright/credit line                            *
;*                                                                   *
;*********************************************************************

;TITLE   WARPLINK mlcredit
;PAGE    50,80

;.MODEL  SMALL

;*****************************
;* Include files             *
;*****************************

[list -]
%include "mlequate.mac"
%include "mldata.mac"
[list +]
     
;*****************************
;* Public declarations       *
;*****************************

PUBLIC  credits

;*****************************
;* Constant data             *
;*****************************

.CONST

credline    DB  CR,LF
            db LINKER,' release 21 by ecm (2026 March), Michael Devore (1989-1993).',CR,LF
            db 'Public Domain software, all copyrights surrendered.',CR,LF
credlen     EQU $-credline

.DATA

 global data_coment
 global data_coment.size
data_coment:
.:		db COMENT
		dw .size - 3
		db 0	; NP=0 NL=0
		db 0	; Translator
		db "WarpLink release 21 by ecm (2026 March)"
		db 0
.size equ $ - .

.CODE

;*****************************
;* Code begins               *
;*****************************

credits     PROC
    mov ah,40h              ; write to file or device
    mov bx,STDOUT           ; write to standard output device
    mov dx,OFFSET credline wrt DGROUP   ; ds:dx == segment:offset of buffer area
    mov cx,credlen          ; number of bytes to write
    int 21h
    ret
credits     ENDP

END
