Old ASM format

;Copyright (C) 1999 Indrek Mandre 
;
;$Id: dmesg.asm,v 1.5 2000/09/03 16:13:54 konst Exp $
;
;hackers' dmesg
;
;0.01: 17-Jun-1999	initial release
;0.02: 04-Jul-1999	fixed bug with 2.0 kernel, removed leading  (KB)
;0.03: 14-Mar-2000
;			fixed the "-c" option bug,
;			empty kernel buffer coredump,
;			added "-n" option
;			by Christopher Li 
;
;			check for unsuccessful sys_syslog,
;			clear buffer *after* print,
;			fast output (buffer-at-once) (KB)
;0.04: 05-Aug-2000	increased buffer size (KB)
;
;syntax: dmesg [-c] [-n level]
;
;example: dmesg
;         dmesg -c
;	  dmesg -n 1
;
;-c	clears the kernel buffer
;-n	set the console log level
;

%include "system.inc"

CODESEG

START:
	_mov	ebp,0		;-c flag
	_mov	ebx,3		;just print the buffer [3]
	pop	edi		;edi holds argument count
	dec	edi
	jz	.forward
	pop	eax		;our own name
	pop	eax
	cmp	word [eax],"-n"
	jnz	.clear
	dec	edi
	jz	.forward
	pop	ecx		;the log level
	xor	edx,edx
	mov	dl, byte [ecx]
	sub	dl,"0"
	jna	.forward	;less than 0, skip
	cmp	dl,8
	ja	.forward	;more than 8, skip
	_mov	ebx,8		;set the console level
	jmps	.syslog
.clear:
	cmp	word [eax],"-c"
	jnz	.forward
	inc	ebp
.forward:
	mov	edx,BufSize
.syslog:
	sys_syslog EMPTY, Buf 
	test	eax,eax
	js	.quit
	jz	.quit
	mov	edi,BufNew
	mov	ebx,edi		;save for later use
	mov	esi,ecx
	mov	ecx,eax
.write:
	lodsb
	cmp	al, '<'
	jnz	.store
	cmp	byte [esi + 1], '>'
	jnz	.store
	lodsw
	lodsb
	_sub	ecx,3
.store:
	stosb
	loopnz	.write

	sub	edi,ebx
	sys_write STDOUT,ebx,edi

	or	ebp,ebp
	jz	.quit

	sys_syslog 4		;clear the kernel buffer [4] (-c argument)

.quit:
	sys_exit_true

UDATASEG

BufSize	equ	0x8000
Buf	resb	BufSize
BufNew	resb	BufSize

END

 New CH-ASM style 

#Copyright (C) 1999 Indrek Mandre <indrek.mandre@tallinn.ee>
#
#$Id: dmesg.asm,v 1.5 2000/09/03 16:13:54 konst Exp $
#
#hackers' dmesg
#
#0.01: 17-Jun-1999	initial release
#0.02: 04-Jul-1999	fixed bug with 2.0 kernel, removed leading <n> (KB)
#0.03: 14-Mar-2000
#			fixed the "-c" option bug,
#			empty kernel buffer coredump,
#			added "-n" option
#			by Christopher Li <chrisl at gnuchina dot org>
#
#			check for unsuccessful sys_syslog,
#			clear buffer *after* print,
#			fast output (buffer-at-once) (KB)
#0.04: 05-Aug-2000	increased buffer size (KB)
#
#syntax: dmesg [-c] [-n level]
#
#example: dmesg
#         dmesg -c
#	  dmesg -n 1
#
#-c	clears the kernel buffer
#-n	set the console log level
#

%include "system.inc"

CODESEG

START:
	_mov	ebp,0		#-c flag
	_mov	ebx,3		#just print the buffer [3]
	pop	edi		#edi holds argument count
	pop     eax 
	while (dec edi; psw.nz) {
		pop eax
		if ( word [eax]=='-n' && dec edi; psw.nz) {
			pop ecx
			xor edx,edx
			mov dl,byte[ecx]
			if(sub dl,"0"; psw.a && dl <= 8) {
				_mov ebx,8
			}
		}
		if ( word [eax] == "-c" ) inc ebp
	}
	mov	edx,BufSize
	sys_syslog EMPTY, Buf 
	if (eax>?0) {
		mov	edi,BufNew
		mov	ebx,edi		#save for later use
		mov	esi,ecx
		mov	ecx,eax
		do {
			lodsb
			if (al=='<' && byte[esi+1]=='>') {
				lodsw
				lodsb
				_sub ecx,3
			}
			stosb
		}while ( psw.dcxnz)

		sub	edi,ebx
		sys_write STDOUT,ebx,edi

		if (ebp!=0) sys_syslog 4
		#clear the kernel buffer [4] (-c argument)
	}
	sys_exit_true

UDATASEG

BufSize	equ	0x8000
Buf	resb	BufSize
BufNew	resb	BufSize

END