;VERZIA 1.2 31.7.1991
;
.Z80
.RADIX 16
;
STACK 		EQU	0E000
BUFFER		EQU	01200
PBUF		EQU	0FF00
;
		.PHASE	01180
		DEFB	1
		DEFM	"Intercatalog 1.2"
		DEFB	0D
		DEFW	ZZZKKK-ZZZZA1+ZZZZAC-ZZZZAB+1
		DEFW 01200
		DEFW 01200
		DEFS 068
;
ZZZZAB:		OUT	(0E0),A
		OUT	(0E1),A
		LD	A,0C3
		LD	HL,STACK
		LD	(0),A
		LD	(1),HL
		LD	HL,ZZZZAC+1
		LD	DE,STACK
		LD	BC,ZZZKKK-ZZZZA1
		LDIR
		JP	0
ZZZZAC:		NOP
		.DEPHASE
		.PHASE	STACK
ZZZZA1:		JP	WARM
C60:		DEFW	0FA
		DEFW	0348
		DEFW	0190
		DEFW	060C
C90:		DEFW	0190
		DEFW	0576
		DEFW	0276
		DEFW	0A02
SUTIM:		DEFB	0FA,0FB,0FD
		DEFB	0F6,0FA
STKBOT:		DEFW	PBUF+050
STKEND:		DEFW	PBUF+050
;
		INCLUDE	CATMON.MAC
;
CBUF:		DEFM	" SLOBODA"
Q:		DEFM	"NCDIOPTLSRKVMU?"
QB:		DEFW	TNEW,QNEW
		DEFW	TCAT,QCAT
		DEFW	TDIR,QDIR
		DEFW	TINF,QINF
		DEFW	TCOU,QCOU
		DEFW	TPRI,QPRI
		DEFW	TTAP,QTAP
		DEFW	TLOA,QLOA
		DEFW	TSAV,QSAV
		DEFW	TREN,QREN
		DEFW	TKIL,QKIL
		DEFW	THEA,QHEA
		DEFW	TMAR,QMAR
		DEFW	TPTY,QPTY
		DEFW	THEL,QHEL
TNEW:		DEFB	04E,092,0A3,020
		DEFB	096,0A1,09E,092
		DEFB	0
TCAT:		DEFB	043,0A1,096,0A1
		DEFB	0B8,0B7,097,020
		DEFB	0B7,0AA,020,096
		DEFB	098,092,020,096
		DEFB	0A1,09E,092,0
TDIR:		DEFB	044,0A6,09D,092
		DEFB	09F,096,0B7,09D
		DEFB	0BD,0
TINF:		DEFB	049,0B0,0AA,0B7
		DEFB	09D,0B3,0A1,096
		DEFB	0A6,0B7,0B0,020
		DEFB	0B7,0AA,020,096
		DEFB	098,092,020,096
		DEFB	0A1,09E,092,0
TCOU:		DEFB	043,0B7,0A5,0B0
		DEFB	096,020,0B0,092
		DEFB	0A3,020,096,0A6
		DEFB	0B3,092,09D,0
TPRI:		DEFB	050,09D,0A6,0B0
		DEFB	096,020,096,0A1
		DEFB	09E,092,0
TTAP:		DEFB	054,0A1,09E,092
		DEFB	020,0A4,096,0A6
		DEFB	09F,0A9,092,09D
		DEFB	0
TLOA:		DEFB	04C,0B7,0A1,09C
		DEFB	0
TSAV:		DEFB	053,0A1,0AB,092
		DEFB	0
TREN:		DEFB	052,092,0B0,0A1
		DEFB	0B3,092,020,096
		DEFB	0A1,09E,092,0
TKIL:		DEFB	04B,0A6,0B8,0B8
		DEFB	020,096,0A1,09E
		DEFB	092,0
THEA:		DEFB	056,0A6,092,0A3
		DEFB	0
TMAR:		DEFB	04D,0A1,09D,0A9
		DEFB	0
TPTY:		DEFB	050,09D,0A6,0B0
		DEFB	096,092,09D,020
		DEFB	096,0BD,09E,092
		DEFB	020,0
THEL:		DEFB	048,092,0B8,09E
		DEFB	0
TMZ:		DEFB	0A6,0A4
		DEFM	" MZ-1P16"
		DEFB	0
TCEN:		DEFB	0A6,0A4
		DEFM	" CENTRONICS"
		DEFB	0
TNOR:		DEFM	"NORMAL  "
		DEFM	"SINCLAIR"
		DEFM	"CPM     "
		DEFM	"TURBO   "
		DEFM	"FAST IPL"
TOK:		DEFM	"   OK"
		DEFB	0
TERROR:		DEFM	"   Error"
		DEFB	0
TYES:		DEFM	"Y"
		DEFB	092,0A4,0D,0
TNO:		DEFM	"N"
		DEFB	0B7,0D,0
TKRASA:		DEFB	00D
		DEFB	2
		DEFM	"HD480,0"
		DEFB	00D
		DEFM	"M0,-81"
		DEFB	00D
		DEFM	"D480,-81"
		DEFB	00D
		DEFM	"M480,-145"
		DEFB	00D
		DEFM	"D0,-145"
		DEFB	00D
		DEFM	"M35,-145"
		DEFB	00D
		DEFM	"D35,-81"
		DEFB	00D
		DEFM	"M35,-113"
		DEFB	00D
		DEFM	"D480,-113"
		DEFB	00D
		DEFM	"M480,-161"
		DEFB	00D
		DEFM	"D0,-161"
		DEFB	00D
		DEFM	"M0,-472"
		DEFB	0D
		DEFM	"D480,-472"
		DEFB	0D
		DEFM	"M240,-792"
		DEFB	00D
		DEFM	"D240,-145"
		DEFB	00D
		DEFM	"H"
		DEFB	0
TPAV:		DEFM	"Q0,S2,M41,-108"
		DEFB	00D
		DEFM	"PA: "
		DEFB	00D
		DEFM	"S1,R0,5"
		DEFB	00D
		DEFB	0
TPBV:		DEFM	"Q0,S2,M41,-140"
		DEFB	00D
		DEFM	"PB: "
		DEFB	00D
		DEFM	"S1,R0,5"
		DEFB	00D
		DEFB	0
TCIS:		DEFM	"Q3,S2,M29,-135"
		DEFB	00D
		DEFB	0
TPAM:		DEFM	"Q0,S0,M6,-157"
		DEFB	00D
		DEFM	"PA: "
		DEFB	00D
		DEFB	0
TPBM:		DEFM	"Q0,S0,M246,-157"
		DEFB	00D
		DEFM	"PB: "
		DEFB	00D
		DEFB	0
TZAKL:		DEFM	"Q0,S0,M0,-180"
		DEFB	00D
		DEFM	"I"
		DEFB	0
TSTRED:		DEFM	"M240,0"
		DEFB	00D
		DEFB	0
TNL:		DEFM	"M0,0"
		DEFB	00D
		DEFM	"M0,-8"
		DEFB	00D
		DEFM	"I"
		DEFB	0
TVNL:		DEFM	"M0,-24"
		DEFB	00D
		DEFM	"I"
		DEFB	0
STEST:		LD	A,(POCSUB)
		OR	A
		RET	NZ
		CALL	SPRI
		DEFB	0D
		DEFB	042,0A5,0AA,0AA
		DEFB	092,09D,020,0A6
		DEFB	0A4,020,092,0B3
		DEFB	09E,096,0BD
		DEFB	0
		POP	HL
		RET
PHEAD:		PUSH	AF
		PUSH	BC
		PUSH	HL
		LD	HL,010F1
		LD	B,010
A59:		LD	A,(HL)
		INC	HL
		CP	0D
		JR	Z,A122
		CALL	MS
		CP	020
		JR	NC,A64
A125:		LD	A,020
A64:		CALL	PRNTC
		DJNZ	A59
		JR	A61
A122:		PUSH	DE
		LD	DE,010FE
		SBC	HL,DE
		ADD	HL,DE
		POP	DE
		JR	NZ,A60
		LD	A,(HL)
		LD	C,A
		INC	HL
		CP	031
		JR	C,A60
		LD	A,(HL)
		INC	HL
		CP	"-"
		JR	NZ,A60
		LD	A,(HL)
		INC	HL
		CP	"C"
		JR	Z,A124
		CP	"L"
		JR	NZ,A60
		LD	A,C
		CP	031
		JR	Z,A60
A124:		LD	A,(HL)
		LD	HL,010FE
		CP	0D
		JR	Z,A125
A60:		CALL	PXRNTS
A61:		CALL	PRNTS
		LD	A,(010F0)
		CALL	PAHEX
		CALL	PRNTS
		LD	HL,(01104)
		CALL	PHLHEX
		CALL	PRNTS
		LD	BC,(01102)
		ADD	HL,BC
		DEC	HL
		CALL	PHLHEX
		CALL	PRNTS
		LD	HL,(01106)
		CALL	PHLHEX
A63:		POP	HL
		POP	BC
		POP	AF
		RET
PXRNTS:		CALL	PRNTS
		DJNZ	PXRNTS
		RET
PRMD:		PUSH	AF
		PUSH	BC
		PUSH	HL
		LD	HL,(RMD)
		LD	H,0
		LD	BC,TNOR
		ADD	HL,HL
		ADD	HL,HL
		ADD	HL,HL
		ADD	HL,BC
		LD	B,3
		CALL	PXRNTS
		LD	B,8
A62:		LD	A,(HL)
		INC	HL
		CALL	PRNTC
		DJNZ	A62
		LD	B,2
		CALL	PXRNTS
		JR	A63
PSPEED:		PUSH	AF
		PUSH	HL
		LD	HL,(SPEED)
		CALL	PHLDEK
		CALL	SPRI
		DEFM	" B"
		DEFB	064
		DEFB	0
		POP	HL
		POP	AF
		RET
CISPIS:		ADD	A,041
		CP	05B
		RET	C
		ADD	A,6
		RET
PISCIS:		SUB	041
		RET	C
		CP	01A
		CCF
		RET	NC
		SUB	6
		CP	034
		CCF
		RET	C
		CP	01A
		RET
INACT1:		CALL	PRNTS
		CALL	INACT
A85:		CALL	CISPIS
		CALL	PRNTC
		LD	A,(ACT)
		RET
INACT:		LD	A,(IY+0)
		DEC	A
		JR	Z,A71
A70:		CALL	INP
		CP	01B
		JR	Z,PBREAK
		CALL	PISCIS
		JR	C,A70
		CP	(IY+0)
		JR	NC,A70
A71:		LD	(ACT),A
		RET
INACT2:		CALL	INACT1
		LD	(IY+2),A
		LD	A,"-"
		CALL	PRNTC
		LD	A,(IY+0)
		DEC	A
		CP	(IY+2)
		JR	Z,A85
A84:		CALL	INACT
		CP	(IY+2)
		JR	C,A84
		JR	A85
INLB:		CALL	INL
		RET	NC
PBREAK:		CALL	SPRI
		DEFB	0D,0D
		DEFB	042,09D,092,0A1
		DEFB	0A9,"."
		DEFB	0
A121:		JP	PRMPT
CACHYB:		CALL	SPRI
		DEFB	0D,0D
		DEFB	"B",0A1,09C,020
		DEFB	09F,0B7,0A5,0B0
		DEFB	096,092,09D,020
		DEFB	09E,0A1,09D,0A1
		DEFB	0B3,092,096,092
		DEFB	09D,0A4
		DEFB	0
		JR	A121
INYES:		CALL	SPRI
		DEFM	" [N/Y] ? "
		DEFB	0
		CALL	INP
		CP	01B
		JR	Z,PBREAK
		SUB	"Y"
		PUSH	AF
		PUSH	HL
		LD	HL,TYES
		JR	Z,A87
		LD	HL,TNO
A87:		CALL	SPR
		POP	HL
		POP	AF
		RET
PFREE:		PUSH	AF
		PUSH	HL
		LD	HL,(CPOSH)
		PUSH	HL
		LD	HL,02B
		LD	(CPOSH),HL
		LD	HL,(POCSUB)
		LD	H,0
		CALL	PHLDEK
		LD	A,03C
		LD	(CPOSH),A
		CALL	MEMFRE
		CALL	PHLDEK
		POP	HL
		LD	(CPOSH),HL
		POP	HL
		POP	AF
		RET
;
COLD:		XOR	A
		LD	(POCSUB),A
WARM:		DI
		IM	1
		LD	A,4
		OUT	(0CE),A
		XOR	A
		OUT	(0D2),A
		OUT	(0F0),A
		LD	A,010
		OUT	(0F0),A
		OUT	(0E0),A
		OUT	(0E1),A
		IN	A,(0E1)
		LD	A,081
		OUT	(0CD),A
		OUT	(0CC),A
		LD	SP,0
		CALL	CLS
		LD	A,01F
		OUT	(0F0),A
		CALL	SPRI
TINT:		DEFB	"I",0B0,096,092
		DEFB	09D,09F,0A1,096
		DEFB	0A1,0B8,0B7,097
		DEFM	"  (C)1990 "
		DEFB	09A,0BD
		DEFM	" NIPSOFT"
TINTK:		DEFM	"     T"
		DEFB	0A1,09E,092,0A4
		DEFM	":           "
		DEFB	"F",09D,092,092
		DEFM	":       "
		DEFB	09A,0BD,096,092,0A4
		DEFM	"    V1.2"
		DEFB	0D
;TINT:		DEFM	"Intercatalog"
;		DEFM	"  (C)1990 by NIPSOFT"
;TINTK:		DEFM	"     Tapes:"
;		DEFM	"           "
;		DEFM	"Free:       "
;		DEFM	"bytes    V1.2"
;		DEFB	0D
THDR:		DEFB	"C",0B0,096
		DEFM	"     "
TFIL:		DEFB	"F",0A6,0B8,092
		DEFB	0B0,0A1,0B3,092
		DEFM	"         T"
		DEFB	09E,020
		DEFB	"B",092,097,020,020
		DEFB	"E",0B0,09C,020,020
		DEFB	"E",09B,09F
		DEFM	"    M"
		DEFB	0B7,09C,092
		DEFM	"       S"
		DEFB	09E,092,092,09C
		DEFM	"     "
TCHECK:		DEFB	"C",098,092,09F
		DEFB	0A9,020,0A4,0A5
		DEFB	0B3,0
		CALL	CLS2
PRMPT:		LD	SP,0
		LD	IY,POCSUB
		LD	A,1
		LD	(KANAL),A
		CALL	PFREE
		LD	A,(CPOSH)
		OR	A
		CALL	NZ,LETNL
		CALL	LETNL
		CALL	SPRI
		DEFB	"H",092,0B8,09E
		DEFM	": "
		DEFB	0
		LD	HL,Q
		LD	B,QB-Q-1
A103:		LD	A,(HL)
		INC	HL
		CALL	PRNTC
		LD	A,"-"
		CALL	PRNTC
		DJNZ	A103
		CALL	SPRI
		DEFB	"?",0D,0D
		DEFM	"SYSTEM READY"
		DEFB	0D,".",0
A54:		CALL	INP
		LD	HL,Q
		LD	D,H
		LD	E,L
		LD	BC,QB-Q
		CPIR
		JR	NZ,A54
		SCF
		SBC	HL,DE
		ADD	HL,HL
		ADD	HL,HL
		LD	DE,QB
		ADD	HL,DE
		LD	E,(HL)
		INC	HL
		LD	D,(HL)
		INC	HL
		LD	C,(HL)
		INC	HL
		LD	B,(HL)
		LD	HL,PRMPT
		PUSH	HL
		PUSH	BC
		EX	DE,HL
		JP	SPR
QHEA:		LD	HL,010F0
		CALL	RHD
		RET	C
		PUSH	HL
		LD	HL,TFOU
		CALL	SPR
		POP	HL
		CALL	PHEAD
		CALL	PRMD
		CALL	PSPEED
		JR	QHEA
QMAR:		CALL	SPRI
		DEFB	0D
		DEFB	"M",0A1,09D,092
		DEFB	0A9,020,"S",0B3
		DEFB	0A6,098,0B8,0A1
		DEFM	"   I"
		DEFB	0B0,096,092,09D
		DEFB	0B0,0A1,096,0B0
		DEFB	0A1
		DEFM	" 19   974 01 B"
		DEFB	0A1,0B0,0A4,0A9
		DEFB	0A1,020,042,0BD
		DEFB	0A4,096,09D,0A6
		DEFB	09F,0A1
		DEFM	"   CZECHO-SLOVAKIA"
		DEFB	0
		RET
QPTY:		LD	A,(PTYP)
		XOR	1
		LD	(PTYP),A
		LD	HL,TMZ
		JR	Z,A56
		LD	HL,TCEN
A56:		JP	SPR
QHEL:		CALL	CLS2
		LD	DE,Q
		LD	B,QB-Q
		LD	HL,QB
A55:		CALL	LETNL
		LD	A,(DE)
		INC	DE
		CALL	PRNTC
		CALL	SPRI
		DEFM	"..."
		DEFB	0
		PUSH	DE
		LD	E,(HL)
		INC	HL
		LD	D,(HL)
		INC	HL
		INC	HL
		INC	HL
		EX	DE,HL
		CALL	SPR
		EX	DE,HL
		POP	DE
		DJNZ	A55
		RET
QDIR:		CALL	STEST
		LD	B,A
		LD	C,0
		CALL	CLS2
A65:		CALL	LETNL
		LD	A,C
		CALL	CISPIS
		CALL	PRNTC
		CALL	SPRI
		DEFM	": "
		DEFB	0
		LD	A,C
		CALL	ADRSUB
		CALL	POCFLS
		PUSH	BC
		LD	B,010
A66:		LD	A,(HL)
		INC	HL
		CP	0D
		JR	Z,A67
		CALL	PRNTC
		DJNZ	A66
		JR	A68
A67:		CALL	PXRNTS
A68:		LD	B,3
		CALL	PXRNTS
		POP	BC
		EX	DE,HL
		CALL	PHLDEK
		CALL	SPRI
		DEFB	020,0AA,0A6,0B8
		DEFB	092,0
		DEC	HL
		LD	A,H
		OR	L
		JR	Z,A74
		CALL	SPRI
		DEFB	0A4,0
A74:		INC	C
		DJNZ	A65
		RET
QREN:		CALL	STEST
		CALL	INACT1
		CALL	ADRSUB
		CALL	SPRI
		DEFB	0D
		DEFB	"N",092,0A3
		DEFB	0
		CALL	A72
		RET	NC
A129:		JP	PBREAK
A72:		CALL	SPRI
		DEFB	020,0B0,0A1,0B3
		DEFB	092,":"," ",0
		EX	DE,HL
		LD	HL,PBUF
		LD	A,010
		CALL	INL
		RET	C
		LD	BC,011
		LDIR
		RET
QNEW:		LD	A,(IY+0)
		CP	034
		JR	Z,FULL
		INC	(IY+0)
		CALL	ADRSUB
		LD	DE,013
		PUSH	HL
		CALL	MEMFRE
		SBC	HL,DE
		POP	HL
		JR	C,FULL
		DEC	E
		DEC	E
		ADD	HL,DE
		LD	(HL),D
		INC	HL
		LD	(HL),D
		SCF
		SBC	HL,DE
		CALL	A72
		RET	NC
		DEC	(IY+0)
		JR	A129
FULL:		CALL	SPRI
		DEFB	0D,0D
		DEFB	"B",0A5,0AA,0AA
		DEFB	092,09D,020,0A6
		DEFB	0A4,020,0AA,0A5
		DEFB	0B8,0B8
		DEFB	0
		JP	PRMPT
QCAT:		CALL	STEST
		CALL	INACT1
		CALL	A118
		CALL	EXPD
		CALL	SPRI
		DEFB	"B",092,097,0A6
		DEFB	0B0,020,09F,0B7
		DEFB	0A5,0B0,096,092
		DEFB	09D,":"," "
		DEFB	0
		CALL	INDEK
A78:		JP	C,PBREAK
		IN	A,(0D2)
		AND	010
		JR	NZ,A76
		LD	A,6
		OUT	(0D3),A
		INC	A
		OUT	(0D3),A
		IN	A,(0D2)
		AND	010
		JR	NZ,A76
		CALL	SPRI
		DEFB	0D
		DEFB	"P",09D,092,0A4,0A4
		DEFM	" PLAY!"
		DEFB	0
A77:		CALL	BRKEY
		JR	C,A78
		IN	A,(0D2)
		AND	010
		JR	Z,A77
A76:		CALL	CNTTIM
		CALL	TIMST
		LD	A,(IY+1)
		CALL	A102
A79:		LD	IX,PBUF
		LD	HL,010F0
		CALL	RHD
		JR	C,A78
		CALL	TIMRD
		EX	DE,HL
		LD	BC,SUTIM
		LD	HL,(RMD)
		LD	H,A
		ADD	HL,BC
		LD	L,(HL)
		LD	H,0FF
		ADD	HL,DE
		CALL	TIMCNT
		LD	(IY-1),5
		CALL	PHLD3
		LD	B,5
		CALL	PXRNTS
		CALL	PHEAD
		CALL	PRMD
		LD	(IY-1),1
		LD	BC,(01102)
		LD	DE,0253
		CALL	RBL
		DEC	A
		DEC	A
		JR	Z,A78
		LD	(IY-1),5
		LD	HL,TOK
		JR	NC,A80
		LD	HL,TERROR
		LD	(IX-030),"*"
A80:		CALL	PSPEED
		CALL	SPR
		LD	HL,CPOSH
		PUSH	HL
		LD	A,(HL)
		PUSH	AF
		LD	(HL),3
		PUSH	IX
		LD	IX,PBUF+3
		LD	A,"-"
		CALL	PRNTC
		CALL	TIMRD
		CALL	TIMCNT
		CALL	PHLD3
		POP	IX
		POP	AF
		POP	HL
		LD	(HL),A
		LD	(IY-1),1
		PUSH	IX
		POP	HL
		LD	DE,PBUF
		SBC	HL,DE
		CALL	LETNL
		INC	HL
		INC	HL
		PUSH	DE
		PUSH	HL
		EX	DE,HL
		CALL	MEMFRE
		SBC	HL,DE
		JP	C,FULL
		LD	A,(IY+0)
		DEC	A
		CP	(IY+1)
		JR	Z,A81
		INC	A
		CALL	ADRSUB
		DEC	HL
		EX	DE,HL
		POP	HL
		PUSH	HL
		ADD	HL,DE
		PUSH	HL
		PUSH	DE
		LD	A,(IY+1)
		INC	A
		CALL	ADRSUB
		EX	DE,HL
		INC	HL
		SBC	HL,DE
		LD	B,H
		LD	C,L
		POP	HL
		EX	DE,HL
		EX	(SP),HL
		EX	DE,HL
		LDDR
		POP	DE
A82:		POP	BC
		POP	HL
		PUSH	BC
		LDIR
		EX	DE,HL
		DEC	HL
		LD	(HL),0A
		DEC	HL
		LD	(HL),0D
		LD	A,(IY+1)
		CALL	ADRSUB
		LD	DE,011
		ADD	HL,DE
		LD	E,(HL)
		INC	HL
		LD	D,(HL)
		EX	DE,HL
		POP	BC
		ADD	HL,BC
		EX	DE,HL
		LD	(HL),D
		DEC	HL
		LD	(HL),E
		CALL	PFREE
		JP	A79
A81:		LD	A,(IY+0)
		CALL	ADRSUB
		EX	DE,HL
		JR	A82
QINF:		CALL	STEST
		CALL	INACT1
A102:		CALL	CLS2
		CALL	A105
A83:		LD	A,D
		OR	E
		RET	Z
		LD	A,(HL)
		INC	HL
		CALL	PRNTC
		DEC	DE
		JR	A83
A105:		CALL	ADRSUB
		LD	DE,011
		ADD	HL,DE
		LD	E,(HL)
		INC	HL
		LD	D,(HL)
		INC	HL
		RET
QSAV:		CALL	STEST
		CALL	INACT2
A86:		LD	A,(IY+2)
		INC	(IY+2)
		CP	(IY+1)
		JR	C,A89
		RET	NZ
A89:		CALL	ADRSUB
		EX	DE,HL
		LD	HL,010F0
		LD	(HL),0FE
		INC	HL
		EX	DE,HL
		LD	BC,013
		LDIR
		LD	(01104),BC
		LD	(01106),BC
		LD	BC,(01102)
		LD	A,B
		OR	C
		JR	Z,A86
		PUSH	BC
		PUSH	HL
		CALL	SPRI
		DEFB	0D
		DEFB	"W",09D,0A6,096
		DEFB	0A6,0B0,097,020
		DEFB	0
		LD	HL,010F1
		CALL	SPRD
		LD	HL,010F0
		LD	BC,080
		LD	DE,03CC
		CALL	RBL
A88:		JP	C,PBREAK
		POP	HL
		POP	BC
		DEC	E
		CALL	RBL
		JR	C,A88
		JR	A86
QLOA:		CALL	SPRI
		DEFB	" ",0A1,0B8,0B8
		DEFB	0
		CALL	INYES
		LD	(IY+2),A
A91:		LD	HL,010F0
		CALL	RHD
A93:		JR	C,A88
		LD	A,(HL)
		CP	0FE
		JR	Z,A90
		CALL	SPRI
TFOU:		DEFB	0D
		DEFB	"F",0B7,0A5,0B0
		DEFB	09C
		DEFM	"   "
		DEFB	0
		INC	HL
		CALL	SPRD
		JR	A91
A90:		CALL	SPRI
		DEFB	0D
		DEFB	"L",0B7,0A1,09C
		DEFB	0A6,0B0,097," "
		DEFB	0
		INC	HL
		CALL	SPRD
		LD	HL,(01102)
		LD	DE,013
		ADD	HL,DE
		EX	DE,HL
		CALL	MEMFRE
		SBC	HL,DE
		JP	C,FULL
		LD	A,(IY+0)
		CALL	ADRSUB
		EX	DE,HL
		LD	HL,010F1
		LD	BC,013
		LDIR
		EX	DE,HL
		LD	BC,(01102)
		LD	DE,053
		CALL	RBL
		DEC	A
		JR	NZ,A92
		CALL	SPRI
		DEFB	0D,0D
		DEFB	"B",0A1,09C,020
		DEFB	096,0A1,09E,092
		DEFB	0
		RET
A92:		JR	C,A93
		INC	(IY+0)
		CALL	PFREE
		LD	A,(IY+2)
		OR	A
		JR	Z,A91
		RET
LPRDY:		IN	A,(0FE)
		AND	1
		RET	Z
		LD	(IY-1),A
		CALL	SPRI
		DEFB	0D
		DEFB	"P",09D,0A6,0B0
		DEFB	096,092,09D,020
		DEFB	0A6,0A4,020,0B0
		DEFB	0B7,096,020,09D
		DEFB	092,0A1,09C,0BD
		DEFB	0
		POP	HL
		RET
QPRI:		CALL	STEST
		CALL	INACT1
		CALL	ADRSUB
		PUSH	HL
		POP	IX
		LD	A,(IX+011)
		OR	(IX+012)
		RET	Z
		CALL	LPRDY
		LD	B,3
		LD	(IY-1),B
		LD	A,0D
		CALL	PRNTC
		LD	A,1
		CALL	PRNTC
		LD	A,(PTYP)
		OR	A
		JR	NZ,A95
A94:		LD	A,9
		CALL	PRNTC
		DJNZ	A94
A95:		PUSH	HL
		CALL	SPRD
		CALL	SPRI
		DEFB	0D,0A,0D,0A,0
		LD	HL,THDR
A99:		LD	A,(HL)
		INC	HL
		OR	A
		JR	Z,A98
		CALL	MS
		CALL	PRNTC
		JR	A99
A98:		CALL	SPRI
		DEFB	0D,0A,0
		POP	HL
		LD	BC,011
		ADD	HL,BC
		LD	C,(HL)
		INC	HL
		LD	B,(HL)
A96:		INC	HL
		LD	A,(HL)
		CALL	PRNTC
		JR	C,A97
		DEC	BC
		LD	A,B
		OR	C
		JR	NZ,A96
		LD	(IY-1),1
		RET
A97:		LD	(IY-1),1
		JP	PBREAK
QKIL:		CALL	STEST
		CALL	INACT2
		PUSH	AF
		CALL	SPRI
		DEFM	" R"
		DEFB	092,0A1,0B8,0B8
		DEFB	0BD,0
		CALL	INYES
		JP	NZ,PRMPT
		POP	AF
		INC	A
A101:		CP	(IY+0)
		JR	Z,A100
		PUSH	AF
		CALL	ADRSUB
		EX	DE,HL
		LD	A,(IY+0)
		CALL	ADRSUB
		SBC	HL,DE
		LD	B,H
		LD	C,L
		POP	AF
		DEC	A
		CALL	ADRSUB
		EX	DE,HL
		LDIR
A100:		DEC	(IY+0)
		CALL	PFREE
		LD	A,(IY+1)
		CP	(IY+2)
		RET	Z
		DEC	(IY+1)
		JR	A101
OUTGRD:		LD	A,(BC)
		INC	BC
		CALL	LP
		JR	C,GRBR
		CP	0D
		RET	Z
		JR	OUTGRD
OUTGR:		LD	A,(BC)
		INC	BC
		OR	A
		RET	Z
		CALL	LP
		JR	NC,OUTGR
GRBR:		LD	(IY-1),1
		XOR	A
		OUT	(0FE),A
		JP	PBREAK
A109:		PUSH	HL
		LD	HL,THDR
		DEFB	0ED
A113:		PUSH	HL
		PUSH	BC
		LD	B,3
		CALL	A128
		INC	HL
		INC	HL
		INC	HL
		INC	HL
		LD	B,023
		LD	A,"P"
		CALL	A130
		POP	BC
		POP	HL
		RET
A128:		LD	A,"P"
		CALL	LP
		LD	A,020
A130:		CALL	LP
A110:		LD	A,(HL)
		CALL	MS
		INC	HL
		CALL	LP
		JR	C,GRBR
		DJNZ	A110
		LD	A,0D
		CALL	LP
		JR	C,GRBR
		RET
A111:		LD	A,D
		OR	E
		RET	Z
		JP	M,A126
		CALL	A113
		DEC	DE
		LD	A,D
		OR	E
		JR	NZ,A127
		DEC	DE
		RET
A127:		LD	A,0A
A114:		CP	(HL)
		INC	HL
		JR	NZ,A114
		RET
A126:		INC	HL
		INC	HL
		INC	HL
		INC	HL
		LD	B,3
		CALL	A128
		LD	D,B
		LD	E,B
		RET
QTAP:		CALL	STEST
		CALL	LETNL
		CALL	LPRDY
		LD	A,(PTYP)
		OR	A
		JR	Z,A104
		CALL	SPRI
		DEFB	0D
		DEFB	"I",0B8,0B8,092
		DEFB	097,0A1,0B8,020
		DEFB	09E,09D,0A6,0B0
		DEFB	096,092,09D,020
		DEFB	096,0BD,09E,092
		DEFB	0
		RET
A104:		LD	BC,TKRASA
		CALL	OUTGR
		LD	A,"P"
		LD	(PBUF),A
		LD	A,"A"
		CALL	A106
		EXX
		LD	BC,TPAV
		CALL	OUTGR
		LD	BC,PBUF
		PUSH	BC
		CALL	OUTGRD
		LD	BC,TPAM
		CALL	OUTGR
		POP	BC
		PUSH	BC
		CALL	OUTGRD
		LD	A,"B"
		CALL	A106
		LD	BC,TPBV
		CALL	OUTGR
		POP	BC
		PUSH	BC
		CALL	OUTGRD
		LD	BC,TPBM
		CALL	OUTGR
		POP	BC
		PUSH	BC
		CALL	OUTGRD
		PUSH	HL
		CALL	SPRI
		DEFB	0D
		DEFB	"C",0A1,0A4,0A4
		DEFB	092,096,096,092
		DEFB	020,0B0,0A5,0B3
		DEFB	09A,092,09D,":"
		DEFB	020,0
		LD	A,3
		LD	HL,PBUF+1
		CALL	INLB
		LD	BC,TCIS
		CALL	OUTGR
		POP	HL
		POP	BC
		CALL	OUTGRD
		LD	BC,TZAKL
		CALL	OUTGR
		LD	A,023
A117:		EX	AF,AF'
		CALL	A109
		LD	BC,TSTRED
		CALL	OUTGR
		CALL	A109
A116:		LD	BC,TNL
		CALL	OUTGR
		LD	A,D
		OR	E
		EXX
		OR	D
		OR	E
		RET	Z
		CALL	A111
		LD	BC,TSTRED
		CALL	OUTGR
		EXX
		CALL	A111
		EX	AF,AF'
		DEC	A
		JR	Z,A115
		EX	AF,AF'
		JR	A116
A115:		LD	BC,TVNL
		CALL	OUTGR
		LD	A,026
		JR	A117
;
A106:		LD	(A107),A
		CALL	SPRI
		DEFB	0D
		DEFB	"T",0A1,09E,092
		DEFB	020,0AA,0B7,09D
		DEFB	020,0A4,0A6,09C
		DEFB	092," "
A107:		DEFB	"A",":",0
		CALL	INACT1
		CALL	ADRSUB
		CALL	POCFLS
		LD	BC,013
		ADD	HL,BC
		PUSH	HL
		CALL	SPRI
		DEFM	" N"
		DEFB	0A1,0B3,092,":"
		DEFB	020,0
		LD	HL,PBUF+1
		LD	A,020
		CALL	INLB
		POP	HL
		RET
A118:		CALL	SPRI
		DEFB	0D
		DEFB	"T",0BD,09E,092
		DEFM	" [C60/C90]: C"
		DEFB	0
		CALL	INP
		CP	01B
		JP	Z,PBREAK
		LD	HL,C90
		CP	"9"
		JR	Z,A75
		LD	HL,C60
		LD	A,"6"
A75:		CALL	PRNTC
		CALL	SPRI
		DEFB	"0",0D,0
		RET
INNDEK:		LD	HL,PBUF
		LD	A,5
		CALL	INLB
		PUSH	DE
		EX	DE,HL
		LD	HL,0
A119:		LD	A,(DE)
		INC	DE
		SUB	030
		CCF
		JR	NC,A120
		CP	0A
		JR	NC,A120
		CALL	HLK10
		ADD	A,L
		LD	L,A
		JR	NC,A119
		INC	H
		JR	A119
A120:		POP	DE
		RET
QCOU:		CALL	SPRI
		DEFB	0D
		DEFB	"C",0B7,0A5,0B0
		DEFB	096,092,09D,020
		DEFM	"1: "
		DEFB	0
		CALL	INNDEK
		LD	(CBUF),HL
		CALL	SPRI
		DEFM	"  T"
		DEFB	0A6,0B3,092
		DEFM	" 1: "
		DEFB	0
		CALL	INNDEK
		LD	(CBUF+2),HL
		CALL	SPRI
		DEFB	0D
		DEFB	"C",0B7,0A5,0B0
		DEFB	096,092,09D
		DEFM	" 2: "
		DEFB	0
		CALL	INNDEK
		LD	(CBUF+4),HL
		CALL	SPRI
		DEFM	"  T"
		DEFB	0A6,0B3,092
		DEFM	" 2: "
		DEFB	0
		CALL	INNDEK
		LD	(CBUF+6),HL
		LD	HL,CBUF
		CALL	EXPD
		EX	DE,HL
		CALL	A118
		EX	DE,HL
		LD	BC,8
		LDIR
		RET
;
ZZZKKK:
		END