PCAP6	EQU 7
PALS7	EQU 6
D20	EQU 10H
D10	EQU 20H
SCH10:	EQU 7511H
SCH1:	EQU 7512H
SMN10:	EQU 7514H
SMN1:	EQU 7515H
SKN:	EQU 7513H
BASE 	EQU 7000H
	ORG	100H
	LXI H,7510H
	MVI C,8
METS:	MVI M,0
	INX H
	DCR C
	JNZ METS
	DI
	XRA A
	OUT 10H
	LXI H,0
	DAD SP
	SHLD STEK0
	LHLD 1
	SHLD RES0
	LHLD 39H
	SHLD RST0
	LXI SP,8000H
	CALL DISI
	CALL CLS
	LXI H,NEXT5
	SHLD 1
	CALL ST0
	CALL ST0S
	JMP	START
RST0:	DW 0
RES0:	DW 0
STEK0:	DW 0
DISI:
	LDA 5
	CPI 0C3H
	RZ
	MVI A,255
	STA DIS1
	RET
DIS1:	DB 0
QUIT0:
	DI
	MVI B,80
	CALL AC14A
	LHLD STEK0
	SPHL
	LHLD RES0
	SHLD 1
	LHLD RST0
	SHLD 39H
	MVI A,23H
	OUT 10H
	EI
	LXI D,BYE
	MVI C,9
	CALL 5
	RST 0
BYE:	DB 27,45H,'Have a nice DOS and computer !',13,10
	DB        'Moldova-Telecom ltd. 1993 V1.1',13,10
	DB        '    Tel. (0422) 56-17-92 ',13,10,24H
CH10:	DB 0
CH1:	DB 0
MN10:	DB 0
MN1:	DB 0
Y8112:	DB	00H
Y8114:	DB	000H
Y8115:	DB	0FFH
Y8116:	DB	0H	;dlq sohr. koord. bukwy i;dlq wremen sohranen steka
Y8117:	DB	0H
Y8120:	DW	0000H		;DFE4H
Y8122:	DB	0020H		;zdesx sna~ala 0A0CH
Y8123:	DB	00H
	DS	7
Y812B:	DB	00H
Y812C:	DW	0000H
Y812E:	DB	00H		;0000H
Y812F:	DB	00H
Y8130:	DS	15
Y813F:	DB	00H
Y8140:	DS	15
Y814F:	DB	02AH
Y8150:	DB	01H
Y9400   EQU     01520H
X1700   EQU     2900H
D163D:  DB      0
NEWPRS:	CALL CLS
	MVI A,1
	STA COLOR
	LXI H,0705H
	LXI D,1814H
	CALL OKNO
	LXI H,1701H
	LXI D,1D03H
	CALL OKNO
	LXI H,HLP1S
	CALL PRINT
	MVI A,3
	STA COLOR
	CALL TIMOUT
	MVI A,2
	STA COLOR
	LXI H,0101H
	LXI D,1403H
	CALL OKNO
	LXI H,HLP2S
	CALL PRINT
	MVI A,1
	STA COLOR
	JMP ST10S
ST0S:	
	LXI H,8000H
	LXI D,16*170
ST0S1:	MVI M,' '
	INX H
	DCX D
	MOV A,D
	ORA E
	JNZ ST0S1
	LXI H,8000H
	MVI D,170
ST0S2:	LXI B,6
	DAD B
	MVI M,179
	LXI B,8
	DAD B
	MVI M,179
	INX H
	INX H
	DCR D
	JNZ ST0S2
	RET
ST10S:	LXI H,8000H
	LXI B,811H
	CALL EKRANS
	CALL KRACURS
	MVI A,39H
	STA BASE+10H
ST11S:	
	IN 1
	ANI 40H
	JZ NEXT5S
	CALL CONIN
	CALL A047F
	CPI 255
	JZ ST11S
	CPI '0'
	JZ ST0SA
	CPI 29
	CZ WWS
	CPI 28
	CZ WNS
	CPI 31
	CZ WNSIZS
	CPI 30
	CZ WWSERHS
	CPI 27
	JZ NEXT5S
	CPI 51
	CZ A01A8
	CPI 50
	CZ A0191
	MVI A,39H
	STA BASE+10H
	JMP ST11S
ST0SA:	CALL ST0S
	XRA A
	STA PEREN1
NEXT5S:	CALL STARTN
	JMP A003C
KRACURS:
	PUSH H
	LDA COLOR
	STA NEWCOLOR
	MVI A,4
	STA COLOR
	LXI H,POLOSAS
	CALL STRS
	LDA NEWCOLOR
	STA COLOR
	POP H
	CALL PRTABS
	RET
PRTABS:
	PUSH H
	PUSH D
	PUSH B
	LXI D,7
	DAD D
	MVI B,7
	LXI D,BASE+17
PRTABS1:	MOV A,M
	SUI 48
	CPI 11
	JC PRTABS3
	MVI A,10

PRTABS3:	CALL A0507
	STAX D
	INX H
	INX D
	DCR B
	JNZ PRTABS1
	POP B
	POP D
	POP H
	RET


POLOSAS: DB '',255
WNSIZS:	CALL STRS
	LXI D,16
	DAD D
	DCR C
	MOV A,C
WNS2S:	CPI 5
	CZ NEWEK1SS
	CALL STRS
	CALL KRACURS
	RET
WWSERHS:	CALL STRS
	LXI D,16
	CALL SUBHD
	INR C
	MOV A,C
WWS2S:	CPI 18
	CZ NEWUK2S


	CALL STRS
	CALL KRACURS
	RET
WNS:
	CALL STRS
	LXI D,16
WNS1:	DAD D
	DCR C
	MOV A,C
	CPI 5
	JZ WNS2S
	CPI 6
	JNZ WNS1
	CALL STRS
	CALL KRACURS
	RET
WWS:
	CALL STRS
	LXI D,16
WWS1:	CALL SUBHD
	INR C
	MOV A,C
	CPI 18
	JZ WWS2S
	CPI 17
	JNZ WWS1
	CALL STRS
	CALL KRACURS
	RET




NEWEK1SS:
	PUSH D
	MOV A,H
	CPI 80H+0AH
	JNZ EK1S0S
	LXI D,16*12
	CALL SUBHD
EK1S0S:	MVI C,17
	CALL EKRANS
	POP D
	RET
NEWUK2S:
	PUSH D
	MOV A,H
	CPI 7FH
	JNZ EK20S
	LXI D,16*12
	DAD D
EK20S:	MVI C,17
	LXI D,16*11
	CALL SUBHD
	CALL EKRANS
	MVI C,6
	DAD D
	POP D
	RET







EKRANS:	
	PUSH H
	PUSH D
	PUSH B
	MVI D,12
EK1S:	CALL STRS
	DCR C
	PUSH D
	LXI D,16
	DAD D
	POP D
	DCR D
	JNZ EK1S
	POP B
	POP D
	POP H
	RET


STRS:	
;	DI
	PUSH H
	PUSH B
	PUSH D
	MVI D,16


STRS1:	MOV A,M
	CALL CONCUR
	DCR D
	JZ STRS2
	INX H
	INR B
	JMP STRS1
STRS2:	
	POP D
	POP B
	POP H
;	EI
	RET



HLP1S:    DB 27,7,20,'ͻ'
        DB 27,7,19,'              '
        DB 27,7,18,'͹'
        DB 27,7,5,'ͼ',255
HLP2S:   DB 27,8,19,'६',27,16,19,'',27,23,19,'?',255
PEREN1:	DB 0
PEREN:	PUSH H
	PUSH D
	PUSH B
	PUSH PSW
	LXI H,BASE+11H
	LDA NUM
	MOV B,A
	ANA A
PE91:	
	JZ PE90
	MVI M,0
	DCR B
	INX H
	JMP PE91
PE90:	CALL TIME
	CALL TIME
	LDA PEREN1
	MVI H,0
	MOV L,A
	INR A
	CPI 160
	JNZ PEREN2
	XRA A
PEREN2:	STA PEREN1
	DAD H
	DAD H
	DAD H
	DAD H
	LXI D,8000H
	DAD D
	LDA CH10
	MOV M,A
	LDA CH1
	INX H
	MOV M,A
	INX H
	MVI M,':'
	LDA MN10
	INX H
	MOV M,A
	INX H
	LDA MN1
	MOV M,A
	INX H
	INX H
	INX H
	LXI D,BASE+11H
	MVI C,7
PEREN3:	LDAX D
	CALL A04F1
	ADI 48
	CPI 58
	JNZ PERS
	MVI A,32
PERS:	MOV M,A
	INX H
	INX D
	DCR C
	JNZ PEREN3
	CALL TIME
	CALL TIME
	POP PSW
	POP B
	POP D
	POP H
	RET








NEWPR:	MVI A,1
	STA COLOR
	LXI H,0005H
	LXI D,1F14H
	CALL OKNO
;	LXI H,1701H
;	LXI D,1D03H
;	CALL OKNO
	LXI H,HLP1
	CALL PRINT
;	MVI A,3
;	STA COLOR
;	CALL TIMOUT
	MVI A,2
	STA COLOR
	LXI H,HLP2
	CALL PRINT
	MVI A,1
	STA COLOR
	JMP ST10
ST0:	
	LXI H,6000H
	LXI D,3600
ST01:	MVI M,' '
	INX H
	DCX D
	MOV A,D
	ORA E
	JNZ ST01
	LXI H,6000H
	MVI D,120
ST02:	LXI B,20
	DAD B
	MVI M,179
	LXI B,8
	DAD B
	MVI M,179
	INX H
	INX H
	DCR D
	JNZ ST02
	RET
ST10:
	LXI H,DISER2
	CALL PRINT
	LXI H,6000H
	LXI B,111H
	CALL EKRAN
	CALL KRACUR
	MVI A,73H
	STA BASE+10H
ST11:	IN 1
	ANI 40H
	JZ NEXT5
	CALL CONIN
	CALL A047F
	CPI 255
	JZ ST11
	CPI 12H
	CZ DISOUT
	CPI 7FH
	CZ DISIN
	CPI 29
	CZ WW
	CPI 28
	CZ WN
	CPI 31
	CZ WNIZ
	CPI 30
	CZ WWERH
	CPI 0DH
	CZ ST1
	CPI 27
	JZ NEXT5
	CPI 51
	CZ A01A8
	CPI 50
	CZ A0191
	MVI A,73H
	STA BASE+10H
	JMP ST11
NEXT5:	CALL STARTN
	JMP A003C
DISOUT:
	PUSH D
	PUSH PSW
	LXI H,LS
	CALL PRINT
	LDA DIS1
	CPI 0
	MVI A,255
	JZ DIS
	CALL MONS
	JMP DISRET
DISIN:	
	PUSH D
	PUSH PSW
	LXI H,LL
	CALL PRINT
	LDA DIS1
	CPI 0
	MVI A,0
	JZ DIS
	CALL MON
	JMP DISRET

DIS:	STA DFCB
	DI
	MVI A,0C9H
	STA 38H
	CALL CHIS
	LXI H,6000H
	SHLD DDDD
	MVI A,23H
	OUT 10H
	MVI C,45
	MVI E,255
	CALL 5
	MVI C,50
	LXI D,DDAT
	CALL 5
	PUSH PSW
	XRA A
	OUT 10H
	MVI A,0C3H
	STA 38H
	EI
	POP PSW
	ANA A
	CNZ DISERR
DISRET:
	LXI H,DISER2
	CALL PRINT
	LXI H,6000H
	LXI B,111H
	CALL EKRAN
	CALL KRACUR
	POP PSW
	POP D
	RET
CHIS:
	LXI H,AFCB+12
	MVI B,26
CHIS1:	MVI M,0
	INX H
	DCR B
	JNZ CHIS1
	RET
DDAT:	DB 129
	DW DFCB
DFCB:	DB 255
	DW AFCB
DDDD:	DW 6000H,6E00H
AFCB:	DB 0,'PHONE   DAT',0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
DISERR:	LXI H,DISER1
	CALL PRINT
	LDA DFCB
	ANA A
	JNZ DS9
	CALL ST0
DS9:	CALL CONIN
	CPI 255
	JZ DS9
	LXI H,DISER2
	CALL PRINT
	RET
MONS:	DI
	CALL MON0
	LXI H,TNAME
	LXI D,19
	CALL BLOUT
	CALL MON0
	LXI H,TNAME2
	LXI D,5
	CALL BLOUT
	LXI H,6000H
	LXI D,0E00H
	CALL BLOUT
	MOV A,B
	CALL OUTBYTE
EXTYP:	EI
	RET
MON0:	
	MVI C,0
MON1:	XRA A
	CALL OUTBYTE
	DCR C
	JNZ MON1
	RET
BLOUT:
	MVI B,0
BL1:	MOV A,M
	CALL OUTBYTE
	ADD B
	MOV B,A
	INX H
	DCX D
	IN 1
	ANI 40H
	JZ EXTYP
	MOV A,D
	ORA E
	JNZ BL1
	RET
TNAME:	DB 0E6H,0D2H,0D2H,0D2H,0D2H,'PHONE  .DAT',0,0,0
TNAME2:	DB 0E6H,50H,0,5DH,255
OUTBYTE:
	PUSH D
	PUSH B
	PUSH PSW
	MOV D,A
	MVI C,8
CBIT:	MOV A,D
	RLC
	MOV D,A
	MVI A,1
	XRA D
	ANI 1
	OUT 0
	CALL WWAIT
	MVI A,0
	XRA D
	ANI 1
	OUT 0
	CALL WWAIT
	DCR C
	JNZ CBIT
	POP PSW
	POP B
	POP D
	RET
WWAIT:	LDA NW
CNW:	DCR A
	JNZ CNW
	RET
NW:	DB 32H
MON:
	DI
	CALL INBS
	CPI 0D2H
	JNZ MON
	MVI C,16
MO1:	CALL INB
	DCR C
	JNZ MO1
	CALL INBS
	CPI 50H
	JNZ ERR
	CALL INB
	CALL INB
	CPI 5DH
	JNZ ERR
	CALL INB
	LXI H,6000H
	MVI B,0
MO2:	CALL INB
	MOV M,A
	ADD B
	MOV B,A
	INX H
	MOV A,H
	CPI 6EH
	JNZ MO2
	IN 1
	ANI 40H
	JZ EXTYP
	CALL INB
	CMP B
	JNZ ERR
	EI
	RET
ERR:	LXI H,ERRO
	CALL PRINT
	CALL ST0
	EI
ER1:	CALL INKEY
	CPI 255
	JZ ER1
	LXI H,DISER2
	CALL PRINT
	RET
INB:	MVI A,8
	JMP INBYTE
INBS:	MVI A,255
	JMP INBYTE
INBYTE:
	PUSH B
	PUSH D
	MVI C,0
	MOV D,A
INSTAT:	IN 1
	ANI 10H
	MOV E,A
SYN:	IN 1
	ANI 10H
	CMP E
	JZ SYN
	RLC
	RLC
	RLC
	RLC
	MOV A,C
	RAL
	MOV C,A
	LDA NR
RWAI:	DCR A
	JNZ RWAI
	MOV A,D
	ORA A
	JP WITHOUT
	MOV A,C
	CPI 0E6H
	JNZ C19
	XRA A
	STA NEGATE
	JMP RBYTE
C19:	CPI 19H
	JNZ INSTAT
	MVI A,255
	STA NEGATE
RBYTE:	MVI D,9
WITHOUT:	DCR D
	JNZ INSTAT
	LDA NEGATE
	XRA C
	POP D
	POP B
	RET
NEGATE:	DB 0
NR:	DB 4BH
ERRO:   DB 27,0,0,' 訡 ⥭ ,  ஡ ',255



KRACUR:
	PUSH H
	LDA COLOR
	STA NEWCOLOR
	MVI A,4
	STA COLOR
	LXI H,POLOSA
	CALL STR
	LDA NEWCOLOR
	STA COLOR
	POP H
	CALL PRTAB
	RET
PRTAB:
	PUSH H
	PUSH D
	PUSH B
	LXI D,21
	DAD D
	MVI B,7
	LXI D,BASE+17
PRTAB1:	MOV A,M
	SUI 48
	CPI 11
	JC PRTAB3
	MVI A,10

PRTAB3:	CALL A0507
	STAX D
	INX H
	INX D
	DCR B
	JNZ PRTAB1
	POP B
	POP D
	POP H
	RET


POLOSA: DB '',255
WNIZ:	CALL STR
	LXI D,30
	DAD D
	DCR C
	MOV A,C
WN2:	CPI 5
	CZ NEWEK1
	CALL STR
	CALL KRACUR
	RET
WWERH:	CALL STR
	LXI D,30
	CALL SUBHD
	INR C
	MOV A,C
WW2:	CPI 18
	CZ NEWEK2


	CALL STR
	CALL KRACUR
	RET
WN:
	CALL STR
	LXI D,30
WN1:	DAD D
	DCR C
	MOV A,C
	CPI 5
	JZ WN2
	CPI 6
	JNZ WN1
	CALL STR
	CALL KRACUR
	RET
WW:
	CALL STR
	LXI D,30
WW1:	CALL SUBHD
	INR C
	MOV A,C
	CPI 18
	JZ WW2
	CPI 17
	JNZ WW1
	CALL STR
	CALL KRACUR
	RET




NEWEK1:
	PUSH D
	MOV A,H
	CPI 60H+0EH
	JZ EK11
EK10:	MVI C,17
	CALL EKRAN
	POP D
	RET
EK11:	LXI D,30
	CALL SUBHD
	JMP EK20







NEWEK2:
	PUSH D
	MOV A,H
	CPI 5FH
	JZ EK21
EK20:	MVI C,17
	LXI D,30*11
	CALL SUBHD
	CALL EKRAN
	MVI C,6
	DAD D
	POP D
	RET
EK21:
	LXI D,30*12
	DAD D
	MVI C,17
	LXI D,30*11
	CALL SUBHD
	CALL EKRAN
	MVI C,17
	POP D
	RET







EKRAN:	
	PUSH H
	PUSH D
	PUSH B
	MVI D,12
EK1:	CALL STR
	DCR C
	PUSH D
	LXI D,30
	DAD D
	POP D
	DCR D
	JNZ EK1
	POP B
	POP D
	POP H
	RET





NEWCOLOR:	DB 0
ST1:
	PUSH PSW
	PUSH D
	PUSH B
	PUSH H
;	LXI B,111H
;	LXI H,TEXT
	CALL STR
	MVI A,219
	CALL CONCUR1

ST4:	SHLD WRM
	CALL PRTA
ST41:	CALL A047F
	CALL SMIG
	CALL CONIN
	CPI 255
	JZ ST41
	CPI 29
	CZ LEFT
	CPI 8
	CZ ZAB
	CPI 28
	CZ RITE
	CPI 32
	CNC SYM
	CPI 27
	JZ ST5
	CPI 9
	CZ TAB
	CPI 13
	CZ PS
	LDA BDAT
	CMP B
	CNZ BDAT1
	MOV A,B
	STA BDAT
	JMP ST41
ST5:	
	CALL PRTA
	POP H
	POP B
	POP D
	POP PSW
	CALL KRACUR
	RET
BDAT:	DB 0

PRTA:	POP D
	LHLD WRM
	CALL PRTAB
	PUSH D
	XRA A
	STA MERB
	RET
WRM:	DW 0
SMIG:
	PUSH H
	LDA SM
	CPI 250
	JNZ SMIG1
	MVI A,255
SMIG1:	INR A
	STA SM
	ANA A
	JNZ SMIG2
	MOV A,B
	CPI 22
	JC SMIG2
	CPI 29
	JNC SMIG2
	MVI H,70H
	SUI 5
	MOV L,A
	SHLD MERD
	CALL MERC
SMIG2:	POP H
	RET
SM:	DB 0
BDAT1:	
	PUSH H
	CPI 22
	JC SMIG2
	CPI 29
	JNC SMIG2
	CALL PRTA
	JMP SMIG2


SYM:	PUSH PSW
	MOV M,A
	CALL CONCUR
	INR B
	MOV A,B
	CPI 21
	CZ MIMOR
	CPI 29
	CZ MIMOR
	CPI 31
	CZ	SYM1
	MVI A,219
	CALL CONCUR1
	INX H
	POP PSW
	RET
TAB:	PUSH PSW
	MOV A,B
	CPI 21
	JNC TAB1
	POP PSW
	PUSH PSW
	MOV A,M
	CALL CONCUR

TAB2:	INX H
	INR B
	MOV A,B
	CPI 22
	JNZ TAB2
	MVI A,219
	CALL CONCUR1
TAB1:	POP PSW
	RET
PS:	PUSH PSW
	MOV A,B
	CPI 1
	JZ TAB1
	POP PSW
	PUSH PSW
	MOV A,M
	CALL CONCUR
PS1:	DCX H
	DCR B
	MOV A,B
	CPI 1
	JNZ PS1
	MVI A,219
	CALL CONCUR1
	JMP TAB1



	


ZAB:	PUSH PSW
	MVI A,32
	MOV M,A

	CALL CONCUR
	DCR B
	MOV A,B
	CPI 21
	CZ MIMOL

	CPI 29
	CZ MIMOL
	CPI 0
	CZ	LEFT2
	MVI A,219
	CALL CONCUR1
	DCX H
	POP PSW
	RET
SYM1:	MVI B,30
	DCX H
	RET



LEFT:	PUSH PSW
	MOV A,M
	CALL CONCUR
	DCR B
	MOV A,B
	CPI 21
	CZ MIMOL
	CPI 29
	CZ MIMOL
	CPI 0
	CZ	LEFT2
	MVI A,219

	CALL CONCUR1
	DCX H
LEFT1:	POP PSW
	RET
LEFT2:	MVI B,1
	INX H
	RET

RITE:	PUSH PSW
	MOV A,M

	CALL CONCUR
	INR B
	MOV A,B
	CPI 21
	CZ MIMOR
	CPI 29
	CZ MIMOR
	CPI 31
	CZ	SYM1
	MVI A,219
	CALL CONCUR1
	INX H
RITE1:	POP PSW
	RET

MIMOL:
	DCR B
	DCX H
	RET
MIMOR:
	INR B
	INX H
	RET
CONCUR1:
	PUSH D
	PUSH PSW
	PUSH PSW
	LDA COLOR

	MOV D,A
	MVI A,4
	STA COLOR
	POP PSW
	CALL CONCUR
	MOV A,D
	STA COLOR

	POP PSW
	POP D
	RET
STR:	
;	DI
	PUSH H
	PUSH B
	PUSH D
	MVI D,30


STR1:	MOV A,M
	CALL CONCUR
	DCR D
	JZ STR2
	INX H
	INR B
	JMP STR1
STR2:	
	POP D
	POP B
	POP H
;	EI
	RET



TEXT:	DB 'BERGICH S.F.        ',179,' 553755',179,'+',255
HLP1:    DB 27,0,20,'ͻ'
        DB 27,0,19,'                            '
        DB 27,0,18,'͹'
	DB 27,0,5,'ͼ',255
HLP2:   DB 27,6,19,'',27,23,19,'',27,30,19,'?',255
START:	
	CALL STARTO
	JMP T0000

STARTO:


	LXI H,NEWRST
	SHLD 39H
	CALL T0605
STARTN:	MVI A,1
	STA COLOR
	LXI H,0005H
	LXI D,1F14H
	CALL OKNO
	LXI H,1701H
	LXI D,1D03H
	CALL OKNO
	LXI H,INFO
	CALL PRINT
	LXI H,PUST
	CALL PRINT
	MVI A,3
	STA COLOR
	LXI H,INFO1
	CALL PRINT
	MVI A,2
	STA COLOR
	LXI H,0101H
	LXI D,1403H
	CALL OKNO
	LXI H,HLP
	CALL PRINT
	EI
	MVI A,3
	STA COLOR
	CALL TIMOUT
	RET
INFO:
        DB 27,3,18,' 筮  '
        DB 27,3,17,'    '
        DB 27,3,16,' ⮤'
        DB 27,3,15,'    '
        DB 27,3,14,' ᭠ '
        DB 27,3,13,' ᮪ 㯨 '
        DB 27,3,12,' ⮮⢥稪'
        DB 27,3,11,'   ୮ ०'
        DB 27,3,10,'    㡪'
        DB 27,3,9,' ⪠ ᯨ᪠ '
        DB 27,3,19,'  '
        DB 27,4,7,'  ᭮ ०'
        DB 27,4,8,'  '
	DB 27,6,6,'室  ',255

INFO1:
	DB 27,1,19,'*-'
	DB 27,1,18,'1-',27,1,17,'2-',27,1,16,'3-',27,1,15,'4-'
	DB 27,1,14,'5-',27,1,13,'6-',27,1,12,'7-',27,1,11,'8-',27,1,8,'F3-'
	DB 27,1,10,'9-',27,1,9,'0-',27,1,7,'yc-',27,1,6,'yc+C-',255









T0000:	MVI	A,081H
	OUT	4
	MVI A,36H
	OUT 8
	LXI	H,BASE+000H
T0007:	MOV	A,M
	CPI	05AH
	JNZ	A0015
	INX	H
	MOV	A,M
	CPI	0A5H
	JZ	A0027
	DCX	H
A0015:	LXI	B,003EFH
A0018:	MVI	M,000H
	MOV	A,B
	ORA	C
	INX	H
	DCX	B
	JNZ	A0018
	LXI	H,0A55AH
	SHLD	BASE+000H
A0027:	LXI	H,BASE+10H
	SHLD	BASE+002H
	LXI	H,0FFFFH
	SHLD	BASE+004H
	SHLD	BASE+006H
	LXI	H,BASE+2E0H
	SHLD	BASE+018H
	MVI A,0	;	D10
	OUT 5
A003C:	LXI	SP,BASE+400H
	MVI	A,076H
	STA	BASE+10H
	XRA A
	OUT 5
	LXI	B,00500H
A0047:	CALL	A047F
	DCR	C
	JNZ	A0047
	DCR	B
	JNZ	A0047
	CALL	A00B8

;	MVI	A,0	;	D10
;	OUT	5
A0059:	IN	5
	ANI	00AH
	MOV	C,A
	LXI	H,00010H
	SHLD	BASE+01AH
A0064:	CALL	A049B
	JNZ	A009C
	MVI A,D10
	OUT 5
	CALL	A047F
	IN	5
	ANI	00AH
	MOV	B,A
	CZ	AC169
	JZ	A0088
	MOV	A,B
	CMP	C
	JNZ	A0095
	ANI	008H
	JZ	A0064
	CALL	AC120
	CALL AB11
	JMP	A003C
;
A0088:	MVI	A,D20
	OUT	5
	CALL	AC12C
	CALL	A00DF
	JMP	A003C
;
A0095:	CALL	A010C
	JMP	A0059
;
A009B:	POP	H
A009C:	MOV	E,A
	CALL	A0507
	STA	BASE+10H
	STA	BASE+3CDH
	MOV	A,E
	LXI	H,A003C
	PUSH	H
	LXI	H,DC1B5
	MVI	B,000H
	ADD	A
	MOV	C,A
	DAD	B
	MOV	E,M
	INX	H
	MOV	D,M
	PUSH	D
	RET
;
A00B8:	XRA	A
	OUT 5
	STA	BASE+01FH
A00BC:	MVI	C,000H
	MVI	E,030H
T00C0:	IN	5
	ANI	002H
A00C4:	MOV	B,A
	INR	C
A00C6:	CALL	A047F
;	CALL SPIKER1
	CALL	A049B
	JNZ	A009B
	DCR	E
	MOV	A,C
	JZ	A00E4
	IN 1
	ANI 40H
	JZ NEXT5
	IN	5
	ANI	002H
	CMP	B
	JZ	A00C6
	JMP	A00C4
SPIKER1:
	IN 5
	ANI 8
	JZ SPIK1
	LDA SPIK
	OUT 5
	RET
SPIK1:	IN 5
	ANI 11101111B
	OUT 5
	RET





A00DF:
	IN 5
	ORI D20
;	OUT 5
	RET
;
A00E4:	MOV	C,A
;	IN	5
;	ANI	008H
;	CNZ	A01F5
;	MVI A,D10
;	OUT 5
	IN	5
	ANI	00AH
	CPI	002H
	CALL	A00DF
	MOV	A,C
	CPI	003H
	JC	A00B8
	CPI	008H
	JNC	A00B8
T0100:	LDA	BASE+01FH
	INR	A
	STA	BASE+01FH
	CPI	004H
	JC	A00BC
A010C:	IN	5
	ANI	002H
	MOV	C,A
	MVI	B,040H
A0113:	CALL	A047F
	CALL	A012F
	MOV	A,B
	CMA
	SUI	060H
A011D:	DCR	A
	JNZ	A011D
	IN	5
	ANI	002H
	CMP	C
	JNZ	A010C
	DCR	B
	DCR	B
	JNZ	A0113
	MVI A,36H
	OUT 8
	RET
;
A012F:	
	PUSH H
	LDA KOL
	ADI 4
	STA KOL
	CZ TON1
	CPI 80H
	CZ TON2
	POP H
	LDA BASE+007H
	CMA
	STA BASE+007H
	