MARKE6PASM;--------------------------------------;
; MARKE6P =Ueberarbeitung v.MARKE 10.93;
;                                      ;
;         Auflisten d. Markentabelle,  ;
;         Drucken ueber Protokollfkt.  ;
;--------------------------------------;
;
	ORG	0BB40H	;Achtung!
;
PV1	EQU	0F003H
OCHR	EQU	24H
NOUT	EQU	20H
OSTR	EQU	23H
CRLF	EQU	2CH
KBDS	EQU	0CH
KBD	EQU	04H
HLHX	EQU	1AH
SPAC	EQU	2BH
CLS	EQU	0CH
	;
KRIT	DEFB	00H
	;
	DEFW	0DDDDH
	DEFM	'MARKE'
	DEFB	01H
	CALL	PV1
	DEFB	OSTR
	DEFB	0CH
	DEFM	'DRUCKEN? (J)'
	DEFB	0
	CALL	PV1
	DEFB	KBD
	PUSH	AF
	LD	A,02H
	CALL	PV1
	DEFB	OCHR
	POP	AF
	CP	'J'
	LD	A,00H
	JR	NZ,LOS
	CALL	PV1
	DEFB	OSTR
	DEFB	0FH
	DEFW	0A0DH
	DEFM	'PROGRAMM: '
	DEFB	0
	CALL	PV1
	DEFB	17H
	LD	A,0FH
LOS	LD	(KRIT),A
	CALL	PV1
	DEFB	CRLF
	LD	HL,(0074H)
AAAC	LD	B,03H
AAAB	PUSH	BC
	CALL	UPRO
	INC	HL
	PUSH	HL
	LD	BC,(0072H)
	OR	A
	SBC	HL,BC
	POP	HL
	POP	BC
	JR	Z,AAAA
	DJNZ	AAAB
	CALL	PV1
	DEFB	CRLF
	CALL	PV1
	DEFB	KBDS
	CP	13H
	JR	NZ,AAAC
	PUSH	HL
AAAD	RES	0,(IX+08H)
	CALL	PV1
	DEFB	KBD
	CP	0AH
	JR	NZ,AAAD
	POP	HL
	JR	AAAC
	;
AAAA	CALL	PV1
	DEFB	CRLF
	LD	A,(KRIT)
	CALL	PV1
	DEFB	OCHR
	CALL	PV1
	DEFB	NOUT
	RET
	;
UPRO	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	INC	HL
	INC	HL
	LD	B,06H
AAAF	LD	A,(HL)
	CP	3AH
	JR	NZ,AAAE
	CALL	PV1
	DEFB	SPAC
	JR	AAAH
AAAE	CALL	PV1
	DEFB	OCHR
	INC	HL
AAAH	DJNZ	AAAF
	LD	A,'='
	CALL	PV1
	DEFB	OCHR
	EX	DE,HL
	CALL	PV1
	DEFB	HLHX
	EX	DE,HL
	CALL	PV1
	DEFB	OSTR
	DEFM	'  '
	DEFB	0
	RET
 
