CASSASM;***************************************
;*					*
;* KC 85/3/4 	6.2.1989		*
;*					*
;* S.WEHNER 				*
;* 					*
;* PROGRAMM 'KASSETTENINHALT'		*
;*					*
;***************************************
;
; NACH REASSEMBLIERUNG MIT 'MQM' AUF
; 6000H
;
	ORG	3400H
;
	JR	U602D
;
	DEFW	7F7FH
	DEFM	'CASS'
	DEFB	1
	LD	HL,200H
	LD	M,20H
	LD	DE,201H
	LD	BC,2A80H
	LDIR
	JR	U602D
;
	DEFW	7F7FH
	DEFM	'RECASS'
	DEFB	1
	LD	A,0FFH
	LD	HL,00200H
	LD	BC,03800H
	CPIR
	JR	NZ,U602D
	INC	HL
	CP 	A
	JR	NZ,U602D
	INC	HL
	CP 	A
	JR	NZ,U602D
	DEC	HL
	DEC	HL
	DEC	HL
	JR	U6030
U602D:	LD	HL,00201H
U6030:	XOR	A
	LD	(00200H),A
	LD	A,0FFH
	LD	(U371D),A
	LD	(U3722),HL
	PUSH	AF
	PUSH	BC
	PUSH	DE
	PUSH	HL
	LD	HL,00000H
	LD	(0B79CH),HL
	LD	HL,02028H
	LD	(0B79EH),HL
	LD	A,020H
	LD	(0B7A3H),A
	CALL	U692F
	LD	A,020H
	LD	(0B7A3H),A
	LD	HL,00402H
	LD	(0B7A0H),HL
	CALL	0F003H
	DEFB	023H
	DEFM	'KASSETTENTYP'
	DEFB	00AH
	DEFB	00DH
	DEFB	00AH
	DEFB	00DH
	DEFB	000H
	CALL	U697D
	LD	A,4
	CALL	U6960
	LD	(0003AH),A
	LD	HL,00E02H
	LD	(0B7A0H),HL
	LD	A,038H
	LD	(0B7A3H),A
	CALL	0F003H
	DEFB	023H
	DEFM	'1 ... SEKUNDENANZEIGE''
	DEFB	00AH
	DEFB	00DH
	DEFM	'  2 ... ZAEHLWERKANZEI'
	DEFM	'GE'
	DEFB	00AH
	DEFB	00DH
	DEFM	'  3 ... FEHLERSUCHE'
	DEFB	000H
	LD	A,3
	CALL	U6960
	LD	(00039H),A
	CP 	032H
	JP 	NZ,U623E
	LD	HL,01502H
	LD	(0B7A0H),HL
	LD	A,030H
	LD	(0B7A3H),A
	CALL	0F003H
	DEFB	023H
	DEFM	'1 ... ABWICKELSPULE (G'
	DEFM	'ERACORD)'
	DEFB	00AH
	DEFB	00DH
	DEFM	'  2 ... AUFWICKELSPULE'
	DEFM	' (LCR)'
	DEFB	000H
	LD	A,2
	CALL	U6960
	LD	(0003BH),A
	JP 	U61D0
U6131:	LD	A,018H
	LD	(0B7A3H),A
	CALL	0F003H
	DEFB	023H
	DEFB	00AH
	DEFB	00DH
	DEFB	00AH
	DEFB	00DH
	DEFB	00AH
	DEFB	00DH
	DEFB	00AH
	DEFB	00DH
	DEFM	'  Q0=       V=        '
	DEFM	' T0=     '
	DEFB	000H
	LD	HL,01C06H
	LD	(0B7A0H),HL
	LD	HL,(00030H)
	LD	B,003H
	CALL	U6945
	PUSH	HL
	LD	HL,01C0FH
	LD	(0B7A0H),HL
	POP	HL
	LD	B,005H
	CALL	U6945
	LD	HL,01C1BH
	LD	(0B7A0H),HL
	LD	HL,(00032H)
	LD	A,(0003AH)
	CP 	034H
	JR	NZ,U6191
	LD	B,004H
	JR	U6193
U6191:	LD	B,003H
U6193:	CALL	U6945
	LD	HL,01C06H
	LD	(0B7A0H),HL
	LD	HL,(00030H)
	LD	B,003H
	CALL	U694E
	LD	HL,01C0FH
	LD	(0B7A0H),HL
	LD	HL,(00030H)
	LD	DE,00003H
	ADD	HL,DE
	LD	B,005H
	CALL	U694E
	LD	HL,01C1BH
	LD	(0B7A0H),HL
	LD	A,(0003AH)
	CP 	034H
	JR	Z,U61C7
	LD	B,003H
	JR	U61C9
U61C7:	LD	B,004H
U61C9:	LD	HL,(00032H)
	CALL	U694E
	RET
U61D0:	CP 	031H
	JR	NZ,U61E7
	LD	A,(0003AH)
	CP 	031H
	JR	Z,U622E
	CP 	032H
	JR	Z,U6226
	CP 	033H
	JR	Z,U621E
	CP 	034H
	JR	Z,U6216
U61E7:	LD	A,(0003AH)
	CP 	031H
	JR	Z,U620E
	CP 	032H
	JR	Z,U6206
	CP 	033H
	JR	Z,U61FE
	LD	HL,U3766
	LD	DE,U376E
	JR	U6234
U61FE:	LD	HL,U3753
	LD	DE,U375B
	JR	U6234
U6206:	LD	HL,U3740
	LD	DE,U3748
	JR	U6234
U620E:	LD	HL,U372D
	LD	DE,U3735
	JR	U6234
U6216:	LD	HL,U375E
	LD	DE,U376E
	JR	U6234
U621E:	LD	HL,U374B
	LD	DE,U375B
	JR	U6234
U6226:	LD	HL,U3738
	LD	DE,U3748
	JR	U6234
U622E:	LD	HL,U3725
	LD	DE,U3735
U6234:	LD	(00030H),HL
	LD	(00032H),DE
	CALL	U6131
U623E:	POP	HL
	POP	DE
	POP	BC
	POP	AF
	LD	A,011H
	CALL	0F003H
	DEFB	000H
U6248:	LD	HL,00000H
	LD	DE,02028H
	LD	A,007H
	CALL	U68AD
	CALL	0F003H
	DEFB	023H
	DEFB	00CH
	DEFM	'          KASSETTEN-IN'
	DEFM	'HALT             '
	DEFW	0D0AH
	DEFM	' Kassette:       '
	DEFB	000H
	PUSH	AF
	LD	A,(0003AH)
	CP 	031H
	CALL	Z,U69B5
	CP 	032H
	CALL	Z,U69BE
	CP 	033H
	CALL	Z,U69C7
	CP 	034H
	CALL	Z,U69D0
	CALL	0F003H
	DEFB	023H
	DEFM	'       Seite:      '
	DEFW	0D0AH
	DEFM	'Name     Typ Nr Bl    '
	DEFM	'Adressen    '
	DEFB	000H
	LD	A,(00039H)
	CP 	033H
	CALL	Z,U69E5
	CP 	031H
	CALL	Z,U69D9
	CP 	032H
	CALL	Z,U69F1
	POP	AF
	CALL	0F003H
	DEFB	023H
	DEFW	0A0DH
	DEFM	'======================'
	DEFM	'================='
	DEFB	009H
	DEFB	000H
	LD	HL,0010AH
	LD	DE,00110H
	LD	A,007H
	CALL	U68AD
	PUSH	HL
	PUSH	BC
	PUSH	AF
	PUSH	DE
	LD	A,007H
	CALL	0F003H
	DEFB	000H
	LD	B,005H
	LD	HL,00034H
U6340:	LD	(HL),000H
	INC	HL
	DJNZ	U6340
	POP	DE
	POP	AF
	POP	BC
	POP	HL
U6349:	CALL	0F003H
	DEFB	004H
	CP 	00DH
	JR	Z,U635C
	CP 	013H
	JP 	Z,U6875
	CALL	0F003H
	DEFB	000H
	JR	U6349
U635C:	LD	HL,00121H
	LD	DE,00102H
	LD	A,007H
	CALL	U68AD
	CALL	0F003H
	DEFB	004H
	CP 	00DH
	JR	Z,U6373
	CALL	0F003H
	DEFB	000H
U6373:	LD	HL,0B200H
	LD	DE,(U3722)
	LD	BC,000A0H
	LDIR
	LD	(U3722),DE
	CALL	ABS
	LD	HL,01F00H
	LD	DE,00127H
	LD	A,006H
	CALL	U68AD
	SUB	A
	LD	(U3721),A
	LD	(U371F),A
	CALL	0F003H
	DEFB	023H
	DEFB	00CH
	DEFM	'           <BRK>-Halt '
	DEFM	' <STOP>-Ende'
	DEFB	000H
	LD	HL,00400H
	LD	DE,01B28H
	LD	A,039H
	CALL	U68AD
	CALL	U692F
	CALL	U68F0
	PUSH	AF
	LD	A,(00039H)
	CP 	033H
	JR	Z,U643D
	POP	AF
	PUSH	HL
	PUSH	AF
	LD	HL,00A01H
	LD	(0B7A0H),HL
	CALL	0F003H
	DEFB	023H
	DEFM	'Bei gleichzeitigen Dru'
	DEFM	'ck auf die ENTER-'
	DEFB	00AH
	DEFB	00DH
	DEFM	' Taste bitte den Recor'
	DEFM	'der starten!'
	DEFB	000H
U642F:	LD	A,(IX+0DH)
	CP 	00DH
	JR	NZ,U642F
	POP	AF
	POP	HL
	CALL	U68FB
	JR	U6440
U643D:	POP	AF
	JR	U6443
U6440:	CALL	U692F
U6443:	PUSH	AF
	IN	A,088H
	OR	040H
	AND	0DFH
	SET	7,A
	DI
	OUT	088H,A
	EI
	POP	AF
	CALL	0F003H
	DEFB	005H
	JR	U6480
U6457:	PUSH	AF
	PUSH	BC
	LD	A,(00036H)
	LD	(00037H),A
	LD	A,(00035H)
	LD	B,005H
	CP	0
	JR	NZ,U6464
	LD	B,6
	JR	U646D
U6464:	SUB	001H
	DAA
	JR	Z,U646D
HELP3:	DJNZ	U6464
	JR	U647A
U646D:	LD	A,(00037H)
	SUB	001H
	DAA
	LD	(00037H),A
	LD	A,09AH
	JR	HELP3
U647A:	LD	(00038H),A
	POP	BC
	POP	AF
	RET
U6480:	PUSH	AF
	LD	A,(IX+02H)
	CP 	0FFH
	JP 	NZ,U674C
	POP	AF
	JP 	C,U6850
	LD	HL,00400H
	LD	DE,01B28H
	LD	A,039H
	CALL	U68AD
	LD	HL,U371F
	LD	H,(HL)
	LD	L,010H
	LD	(0B7A0H),HL
	LD	A,(U3720)
	CALL	0F003H
	DEFB	01CH
	PUSH	AF
	CALL	0F003H
	DEFB	02BH
	CALL	0F003H
	DEFB	02BH
	POP	AF
	PUSH	AF
	PUSH	BC
	PUSH	DE
	PUSH	HL
	LD	HL,(0B7A0H)
	LD	A,(00039H)
	CP 	033H
	JP 	Z,U66BC
	CP 	032H
	JR	Z,U64C9
U64C9:	LD	L,022H
U64CB:	LD	(0B7A0H),HL
	LD	HL,00300H
	LD	DE,0BF00H
	LD	BC,00100H
	LDIR
	LD	A,(00039H)
	CP 	032H
	JR	Z,U64F1
	LD	HL,00037H
	LD	A,(HL)
	CALL	0F003H
	DEFB	01CH
	INC	HL
	LD	A,(HL)
	CALL	0F003H
	DEFB	01CH
	JP 	U66B1
U64F1:	LD	HL,00300H
	LD	(HL),000H
	LD	DE,00301H
	LD	BC,0FFH
	LDIR
	LD	HL,0C0BDH
	LD	DE,00300H
	LD	BC,00063H
	LDIR
	LD	HL,(00030H)
	LD	DE,00003H
	ADD	HL,DE
	LD	DE,0BA00H
	LD	BC,00005H
	CALL	U6A0F
	CALL	U6A15
	LD	HL,003E5H
	LD	DE,0BD00H
	CALL	U6A07
	LD	HL,00010H
	CALL	0D6F7H
	LD	HL,0BA00H
	LD	(HL),031H
	INC	HL
	LD	(HL),000H
	CALL	U6A15
	LD	HL,003E5H
	LD	DE,0BC00H
	CALL	U6A07
	LD	HL,00010H
	CALL	0D466H
	LD	HL,003E5H
	LD	DE,0BB00H
	CALL	U6A07
	LD	HL,(00030H)
	LD	DE,0BA00H
	CALL	U6A0C
	CALL	U6A15
	CALL	0D6EBH
	PUSH	BC
	PUSH	DE
	LD	HL,0BB00H
	LD	DE,003E5H
	CALL	U6A07
	POP	DE
	POP	BC
	CALL	0D5F5H
	LD	HL,003E5H
	LD	DE,0BB00H
	CALL	U6A07
	LD	HL,0BD00H
	LD	DE,003E5H
	CALL	U6A07
	CALL	0D6EBH
	CALL	0D594H
	LD	HL,00010H
	CALL	0D6F7H
	LD	HL,0BC00H
	LD	DE,003E5H
	CALL	U6A07
	LD	HL,00010H
	CALL	0D466H
	CALL	0D6EBH
	PUSH	BC
	PUSH	DE
	LD	A,(00037H)
	PUSH	AF
	AND	00FH
	ADD	030H
	LD	(0BA01H),A
	POP	AF
	AND	0F0H
	RRA
	RRA
	RRA
	RRA
	ADD	030H
	LD	(0BA00H),A
	LD	A,(00038H)
	PUSH	AF
	AND	00FH
	ADD	030H
	LD	(0BA03H),A
	POP	AF
	AND	0F0H
	RRA
	RRA
	RRA
	RRA
	ADD	030H
	LD	(0BA02H),A
	SUB	A
	LD	(0BA04H),A
	CALL	U6A15
	POP	DE
	POP	BC
	CALL	0D59AH
	CALL	0D6EBH
	PUSH	BC
	PUSH	DE
	LD	HL,(00032H)
	LD	DE,0BA00H
	CALL	U69FD
	CALL	U6A15
	POP	DE
	POP	BC
	CALL	0D5F5H
	LD	HL,00010H
	CALL	0D6F7H
	LD	HL,0BC00H
	LD	DE,003E5H
	CALL	U6A07
	LD	HL,00010H
	CALL	0D461H
	CALL	0D91FH
	LD	HL,00010H
	CALL	0D6F7H
	LD	HL,0BC00H
	LD	DE,003E5H
	CALL	U6A07
	LD	HL,00010H
	CALL	0D466H
	CALL	0D6EBH
	PUSH	BC
	PUSH	DE
	LD	HL,0BB00H
	LD	DE,003E5H
	CALL	U6A07
	POP	DE
	POP	BC
	CALL	0D59AH
	CALL	0D45EH
	LD	HL,003E5H
	CALL	0D770H
	LD	HL,00010H
	CALL	0D6F7H
	LD	HL,0BC00H
	LD	DE,003E5H
	CALL	U6A07
	LD	HL,00010H
	CALL	0D466H
	LD	HL,00010H
	CALL	0D6F7H
	LD	HL,0BC00H
	LD	DE,003E5H
	CALL	U6A07
	LD	HL,00010H
	CALL	0D466H
	LD	HL,003E5H
	LD	DE,003EAH
	LD	BC,00004H
	LDIR
	LD	HL,003EAH
	CALL	0D834H
	LD	HL,003EEH
	LD	A,(HL)
	CP 	000H
	JR	Z,U66A4
	DEC	HL
	LD	A,(HL)
	CP 	000H
	JR	NZ,U668E
	LD	A,030H
	CALL	0F003H
	DEFB	000H
	LD	HL,003EBH
	LD	B,002H
	JR	U66A9
U668E:	LD	A,030H
	CALL	0F003H
	DEFB	000H
	CALL	0F003H
	DEFB	000H
	LD	B,001H
	LD	HL,003EBH
	JR	U66A9
	LD	HL,003EBH
	JR	U66A9
U66A4:	LD	HL,003EBH
	LD	B,003H
U66A9:	LD	A,(HL)
	CALL	0F003H
	DEFB	000H
	INC	HL
	DJNZ	U66A9
U66B1:	LD	HL,0BF00H
	LD	DE,00300H
	LD	BC,100H
	LDIR
U66BC:	POP	HL
	POP	DE
	POP	BC
	POP	AF
	LD	A,(U371D)
	CP 	001H
	JR	Z,U66D1
	CP 	000H
	JR	Z,U66EC
	SUB	A
	LD	(U371E),A
	JR	U66EC
U66D1:	LD	L,013H
	LD	(0B7A0H),HL
	LD	HL,ENDE+10H
	LD	A,(HL)
	INC	HL
	CP 	000H
	JR	Z,U66EC
	LD	B,A
U66E0:	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	INC	HL
	EX	DE,HL
	CALL	0F003H
	DEFB	01AH
	EX	DE,HL
	DJNZ	U66E0
U66EC:	LD	A,0FFH
	LD	(U371D),A
	LD	A,(U371E)
	CALL	U68BE
	CALL	U66FD
	JP 	U6443
U66FD:	LD	A,(U371F)
	LD	D,A
	LD	E,000H
	CALL	0F003H
	DEFB	032H
	LD	DE,(U3722)
	SUB	A
	LD	(DE),A
	INC	DE
	LD	BC,00027H
	LDIR
	LD	(U3722),DE
	CALL	U68DE
	LD	HL,03300H
	XOR	A
	SBC	HL,DE
	RET	NC
	LD	HL,0
	LD	(0B79CH),HL
	LD	HL,2028H
	LD	(0B79EH),HL
	LD	A,0CH
	CALL	0F003H
	DEFB	0
	LD	HL,100DH
	LD	(0B7A0H),HL
	CALL	0F003H
	DEFB	023H
	DEFM	'SPEICHER-ENDE'
	DEFB	000H
	CALL	0F003H
	DEFB	00BH
	SUB	A
	LD	(U371E),A
	LD	A,0FFH
	CALL	0F003H
	DEFB	014H
	POP	HL
	JP 	U6875
U674C:	LD	(U3720),A
	LD	HL,U371F
	LD	H,(HL)
	LD	L,010H
	LD	(0B7A0H),HL
	PUSH	AF
	LD	A,039H
	LD	(0B7A3H),A
	POP	AF
	CALL	0F003H
	DEFB	01CH
	POP	AF
	JR	C,U676F
	CALL	0F003H
	DEFB	023H
	DEFM	'> '
	DEFB	000H
	JR	U6781
U676F:	CALL	0F003H
	DEFB	023H
	DEFM	'??'
	DEFB	000H
	LD	A,(U371E)
	INC	A
	CP 	009H
	JR	Z,U6781
	LD	(U371E),A
U6781:	LD	A,(IX+02H)
	CP 	001H
	JR	Z,U6793
	CP 	000H
	JP 	NZ,U6850
	LD	(U371D),A
	JP 	U6850
U6793:	PUSH	AF
	LD	HL,00400H
	LD	DE,01B28H
	LD	A,039H
	CALL	U68AD
	LD	A,(U371D)
	CP 	0FFH
	JR	Z,U67B8
	CP 	000H
	JR	Z,U67B4
	LD	A,0FFH
	CALL	U68BE
	CALL	U66FD
	JR	U67B8
U67B4:	POP	AF
	JP 	U6850
U67B8:	POP	AF
	LD	(U371D),A
	LD	HL,0B700H
	LD	DE,ENDE
	LD	BC,00080H
	LDIR
	LD	HL,U371F
	LD	H,(HL)
	LD	L,000H
	LD	(0B7A0H),HL
	LD	A,(ENDE)
	BIT	7,A
	JR	Z,U6805
	SUB	A
	LD	(ENDE+10H),A
	LD	A,009H
	LD	(0B7A0H),A
	LD	B,003H
	LD	HL,ENDE
U67E5:	LD	A,(HL)
	SUB	080H
	CALL	0F003H
	DEFB	000H
	INC	HL
	DJNZ	U67E5
	SUB	A
	LD	(0B7A0H),A
	LD	B,008H
U67F5:	LD	A,(HL)
	INC	HL
	CP 	020H
	JR	NC,U67FD
	LD	A,020H
U67FD:	CALL	0F003H
	DEFB	000H
	DJNZ	U67F5
	JR	U682D
U6805:	LD	HL,ENDE
	LD	B,008H
U680A:	LD	A,(HL)
	INC	HL
	CP 	020H
	JR	NC,U6812
	LD	A,020H
U6812:	CALL	0F003H
	DEFB	000H
	DJNZ	U680A
	PUSH	HL
	LD	HL,U371F
	LD	H,(HL)
	LD	L,009H
	LD	(0B7A0H),HL
	POP	HL
	LD	B,003H
U6825:	LD	A,(HL)
	CALL	0F003H
	DEFB	000H
	INC	HL
	DJNZ	U6825
U682D:	LD	HL,U371F
	LD	H,(HL)
	LD	L,00DH
	CALL	U6457
	LD	(0B7A0H),HL
	LD	A,(U3721)
	ADD	001H
	DAA
	LD	(U3721),A
	CALL	0F003H
	DEFB	01CH
	LD	B,002H
U6848:	LD	A,020H
	CALL	0F003H
	DEFB	000H
	DJNZ	U6848
U6850:	LD	A,(IX+08H)
	BIT	0,A
	JR	Z,U685E
	LD	A,(IX+0DH)
	CP 	003H
	JR	Z,U6865
U685E:	CALL	0F003H
	DEFB	005H
	JP 	U6480
U6865:	CALL	0F003H
	DEFB	00BH
	CALL	ABS
	CALL	ABS
	PUSH	AF
	SUB	A
	LD	(U371E),A
	LD	A,0FFH
	LD	(U371D),A
	POP	AF
	JP 	U6248
U6875:	LD	HL,00100H
	LD	DE,01E28H
	LD	A,007H
	CALL	U68AD
	LD	HL,(U3722)
	LD	B,004H
U6885:	LD	(HL),0FFH
	INC	HL
	DJNZ	U6885
	LD	(U3722),HL
	CALL	0F003H
	DEFB	023H
	DEFB	012H
	DEFB	00CH
	DEFM	'%SAVE '
	DEFB	000H
	LD	DE,(U3722)
	LD	HL,00200H
	CALL	0F003H
	DEFB	01BH
	CALL	0F003H
	DEFB	023H
	DEFB	00DH
	DEFB	00AH
	DEFB	000H
	RET
U68AD:	LD	(0B79CH),HL
	EX	DE,HL
	LD	(0B79EH),HL
	LD	HL,00000H
	LD	(0B7A0H),HL
	LD	(0B7A3H),A
	RET
U68BE:	LD	HL,U371F
	LD	H,(HL)
	LD	L,022H
	LD	(0B7A0H),HL
	PUSH	AF
	LD	A,(00039H)
	CP 	033H
	JR	NZ,U68DB
	POP	AF
	ADD	030H
	CALL	0F003H
	DEFB	000H
U68D6:	SUB	A
	LD	(U371E),A
	RET
U68DB:	POP	AF
	JR	U68D6
U68DE:	LD	A,(U371F)
	INC	A
	CP 	01BH
	JR	NZ,U68E7
	SUB	A
U68E7:	LD	(U371F),A
	LD	H,A
	LD	L,000H
	LD	(0B7A0H),HL
U68F0:	LD	B,028H
	LD	A,020H
U68F4:	CALL	0F003H
	DEFB	000H
	DJNZ	U68F4
	RET
U68FB:	LD	HL,INTRU
	LD	(001E8H),HL
	LD	A,0A7H
	OUT	08CH,A
	LD	A,01BH
	OUT	08CH,A
	RET
INTRU:	CALL	U692C
	PUSH	HL
	PUSH	AF
	LD	HL,00034H
	INC	(HL)
	JR	NZ,U6929
	INC	HL
	LD	A,(HL)
	ADD	001H
	DAA
	LD	(HL),A
	JR	NC,U6929
	LD	(HL),000H
	INC	HL
	LD	A,(HL)
	ADD	001H
	DAA
	LD	(HL),A
	JR	NC,U6929
	LD	(HL),000H
U6929:	POP	AF
	POP	HL
	RET
U692C:	EI
	RETI
U692F:	LD	A,00CH
	CALL	0F003H
	DEFB	000H
	EXX
	LD	HL,0B200H
	LD	(HL),020H
	LD	DE,0B201H
	LD	BC,004FFH
	LDIR
	EXX
	RET
U6945:	LD	A,(HL)
	CALL	0F003H
	DEFB	000H
	INC	HL
	DJNZ	U6945
	RET
U694E:	PUSH	HL
	CALL	0F003H
	DEFB	004H
	POP	HL
	CP 	00DH
	RET	Z
	LD	(HL),A
	INC	HL
	CALL	0F003H
	DEFB	000H
	DJNZ	U694E
	RET
U6960:	LD  	B,A
	PUSH	BC
	CALL	0F003H
	DEFB	023H
	DEFB	00AH
	DEFB	00DH
	DEFB	00AH
	DEFB	00DH
	DEFM	'  EINGABE: '
	DEFB	000H
HELP1:	CALL	0F003H
	DEFB	004H
	POP	BC
	PUSH	BC
	LD	C,31H
HELP:	CP	C
	JR      NZ,HELP2
	POP	BC
	CALL	0F003H
	DEFB	0
	RET
HELP2:	INC	C
	DJNZ	HELP
	JR	HELP1
U697D:	CALL	0F003H
	DEFB	023H
	DEFM	'  1 ... K10'
	DEFB	00AH
	DEFB	00DH
	DEFM	'  2 ... K20'
	DEFB	00AH
	DEFB	00DH
	DEFM	'  3 ... K30'
	DEFB	00AH
	DEFB	00DH
	DEFM	'  4 ... K60'
	DEFB	000H
	RET
U69B5:	CALL	0F003H
	DEFB	023H
	DEFM	'K10'
	DEFB	000H
	RET
U69BE:	CALL	0F003H
	DEFB	023H
	DEFM	'K20'
	DEFB	000H
	RET
U69C7:	CALL	0F003H
	DEFB	023H
	DEFM	'K30'
	DEFB	000H
	RET
U69D0:	CALL	0F003H
	DEFB	023H
	DEFM	'K60'
	DEFB	000H
	RET
U69D9:	CALL	0F003H
	DEFB	023H
	DEFM	'sec  '
	DEFB	000H
	RET
U69E5:	CALL	0F003H
	DEFB	023H
	DEFM	'F    '
	DEFB	000H
	RET
U69F1:	CALL	0F003H
	DEFB	023H
	DEFM	'Zst  '
	DEFB	000H
	RET
U69FD:	LD	DE,0BA00H
	LD	A,(0003AH)
	CP 	034H
	JR	NZ,U6A0C
U6A07:	LD	BC,00004H
	JR	U6A0F
U6A0C:	LD	BC,00003H
U6A0F:	LDIR
	EX	DE,HL
	LD	(HL),000H
	RET
U6A15:	LD	HL,0BA00H
	CALL	0D7A1H
	RET
ABS:	LD	HL,(U3722)
	LD	M,0
	INC	HL
	LD	M,20H
	INC	HL
	LD	M,0
	INC	HL
	LD	(U3722),HL
	RET
;
U371D:	DEFB	0FFH
U371E:	DEFB	000H
U371F:	DEFB	000H
U3720:	DEFB	000H
U3721:	DEFB	000H
U3722:	DEFB	005H
	DEFB	002H
	DEFB	000H
U3725:	DEFB	031H
	DEFB	030H
	DEFB	035H
	DEFB	02EH
	DEFB	037H
	DEFB	034H
	DEFB	038H
	DEFB	033H
U372D:	DEFB	031H
	DEFB	032H
	DEFB	030H
	DEFB	031H
	DEFB	02EH
	DEFB	033H
	DEFB	033H
	DEFB	036H
U3735:	DEFB	033H
	DEFB	030H
	DEFB	030H
U3738:	DEFB	031H
	DEFB	037H
	DEFB	036H
	DEFB	02EH
	DEFB	036H
	DEFB	035H
	DEFB	036H
	DEFB	037H
U3740:	DEFB	032H
	DEFB	030H
	DEFB	032H
	DEFB	031H
	DEFB	02EH
	DEFB	035H
	DEFB	032H
	DEFB	033H
U3748:	DEFB	036H
	DEFB	030H
	DEFB	030H
U374B:	DEFB	032H
	DEFB	033H
	DEFB	033H
	DEFB	02EH
	DEFB	035H
	DEFB	037H
	DEFB	031H
	DEFB	034H
U3753:	DEFB	032H
	DEFB	036H
	DEFB	038H
	DEFB	031H
	DEFB	02EH
	DEFB	037H
	DEFB	035H
	DEFB	030H
U375B:	DEFB	039H
	DEFB	030H
	DEFB	030H
U375E:	DEFB	033H
	DEFB	038H
	DEFB	039H
	DEFB	02EH
	DEFB	034H
	DEFB	035H
	DEFB	039H
	DEFB	037H
U3766:	DEFB	034H
	DEFB	034H
	DEFB	034H
	DEFB	032H
	DEFB	02EH
	DEFB	031H
	DEFB	038H
	DEFB	032H
U376E:	DEFB	031H
	DEFB	038H
	DEFB	030H
	DEFB	030H
ENDE:	DEFB	000H
;
;***************************************
;                ENDE
;
