Latest version

dumpmcb.asm

@@ -0,0 +1,46 @@
+	NAME	DUMPMCB
+	TITLE	DUMPMCB -- Dump Memory Control Block (MCB) Chain
+
+CODE	SEGMENT
+	ORG	0100h
+	ASSUME	CS:CODE, DS:CODE, ES:CODE, SS:CODE
+
+START:
+INVARS:
+	MOV	AH, 52h
+	INT	21h
+	JC	ERROR
+	DB	26h	; ES:
+	MOV	ES, [BX-2]
+MCBNEXT:
+	CALL	SHOWMCB
+	CMP	[ES:0000], BYTE PTR 'Z'
+	JZ	EXIT
+	MOV	AX, ES
+	ADD	AX, [ES:0003]
+	INC	AX
+	MOV	ES, AX
+	JMP	SHORT MCBNEXT
+EXIT:
+	XOR	AL, AL
+ERROR:
+	MOV	AH, 4Ch
+	INT	21h
+
+SHOWMCB:
+	PUSH	ES
+	POP	DS
+	CLD
+	XOR	SI, SI
+	MOV	CX, 16
+	MOV	AH, 02h
+SHOWLOOP:
+	LODSB
+	MOV	DL, AL
+	INT	21h
+	LOOP	SHOWLOOP
+	RET
+
+CODE	ENDS
+	END	START
+