	COMMON /errno_/
.2:
	DS 2
	CSEG
	COMMON /Sysvec_/
.3:
	DS 8
	CSEG
	COMMON /Cbuffs_/
.4:
	DS 121
	CSEG
	COMMON /Stdbufs_/
.5:
	DS 2
	CSEG
	COMMON /condev_/
.6:
	DS 6
	CSEG
	COMMON /bdosout_/
.7:
	DS 6
	CSEG
	COMMON /bdosin_/
.8:
	DS 6
	CSEG
	COMMON /filedev_/
.9:
	DS 6
	CSEG
	COMMON /devtabl_/
.10:
	DS 66
	CSEG
	COMMON /chantab_/
.11:
	DS 88
	CSEG
	COMMON /errno_/
	DS 2
	CSEG
	PUBLIC listUppe_
listUppe_:	CALL .zsav##
	DW .12
.13:
	LXI H,12-.12
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	DCX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	INX H
	MOV A,H
	ORA L
	JZ .14
	LXI H,12-.12
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	XCHG
	DAD H
	XCHG
	LXI H,14-.12
	DAD SP
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	DAD D
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	FUNC	strUpper_
	CALL strUpper_
	POP D
	JMP .13
.14:
	RET
.12 EQU 0
	PUBLIC strUpper_
strUpper_:	CALL .zsav##
	DW .15
.16:
	LXI H,12-.15
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	XCHG
	mov a,m
	ora a
	JZ .17
	LXI H,12-.15
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	XCHG
	MOV E,M
	MVI D,0
	PUSH D
	FUNC	toupper_
	CALL toupper_
	POP D
	PUSH H
	LXI H,14-.15
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	XCHG
	POP D
	MOV M,E
	LXI H,12-.15
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	INX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	DCX H
	MOV E,M
	MVI D,0
	JMP .16
.17:
	RET
.15 EQU 0
	PUBLIC copytiln_
copytiln_:	CALL .zsav##
	DW .18
.19:
	LXI H,18-.18
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	DCX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	INX H
	MOV A,H
	ORA L
	JZ .20
	LXI H,14-.18
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	XCHG
	MOV E,M
	MVI D,0
	LXI H,16-.18
	DAD SP
	MOV L,M
	MVI H,0
	CALL .ne##
	JZ .21
	LXI H,14-.18
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	INX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	DCX H
	MOV E,M
	MVI D,0
	PUSH D
	LXI H,14-.18
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	INX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	DCX H
	POP D
	MOV M,E
.21:
	JMP .19
.20:
	LXI H,12-.18
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	XCHG
	RET
.18 EQU 0
	PUBLIC disp_
disp_:	CALL .zsav##
	DW .22
	LXI H,14-.22
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	LXI H,14-.22
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	LXI H,-73-.22
	DAD SP
	PUSH H
	FUNC	copyn_
	CALL copyn_
	POP D
	POP D
	POP D
	LXI H,-77-.22
	DAD SP
	PUSH H
	LXI H,.1+0
	PUSH H
	FUNC	printf_
	CALL printf_
	POP D
	POP D
	RET
.22 EQU -81
.1:
	DB 37,115,46,10,0
	PUBLIC copyn_
copyn_:	CALL .zsav##
	DW .24
.25:
	LXI H,16-.24
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	DCX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	INX H
	MOV A,H
	ORA L
	JZ .26
	LXI H,14-.24
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	INX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	DCX H
	MOV E,M
	MVI D,0
	PUSH D
	LXI H,14-.24
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	INX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	DCX H
	POP D
	MOV M,E
	JMP .25
.26:
	LXI H,0
	PUSH H
	LXI H,14-.24
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	XCHG
	POP D
	MOV M,E
	RET
.24 EQU 0
	PUBLIC moven_
moven_:	CALL .zsav##
	DW .27
.28:
	LXI H,16-.27
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	DCX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	INX H
	MOV A,H
	ORA L
	JZ .29
	LXI H,14-.27
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	INX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	DCX H
	MOV E,M
	MVI D,0
	PUSH D
	LXI H,14-.27
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	INX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	DCX H
	POP D
	MOV M,E
	JMP .28
.29:
	RET
.27 EQU 0
	PUBLIC blkcmp_
blkcmp_:	CALL .zsav##
	DW .30
.31:
	LXI H,16-.30
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	DCX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	INX H
	MOV A,H
	ORA L
	JZ .32
	LXI H,14-.30
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	INX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	DCX H
	MOV E,M
	MVI D,0
	PUSH D
	LXI H,14-.30
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	INX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	DCX H
	MOV E,M
	MVI D,0
	POP H
	CALL .ne##
	JNZ .32
	JMP .31
.32:
	LXI H,14-.30
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	DCX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	MOV E,M
	MVI D,0
	PUSH D
	LXI H,14-.30
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	DCX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	MOV E,M
	MVI D,0
	POP H
	CALL .sb##
	RET
.30 EQU 0
	PUBLIC copytil_
copytil_:	CALL .zsav##
	DW .33
.34:
	LXI H,14-.33
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	INX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	DCX H
	MOV E,M
	MVI D,0
	PUSH D
	LXI H,14-.33
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	INX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	DCX H
	POP D
	MOV M,E
	LXI H,16-.33
	DAD SP
	MOV L,M
	MVI H,0
	CALL .ne##
	JZ .35
	JMP .34
.35:
	LXI H,0
	PUSH H
	LXI H,14-.33
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	DCX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	POP D
	MOV M,E
	LXI H,14-.33
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	DCX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	RET
.33 EQU 0
	PUBLIC movetil_
movetil_:	CALL .zsav##
	DW .36
.37:
	LXI H,14-.36
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	XCHG
	MOV E,M
	MVI D,0
	LXI H,16-.36
	DAD SP
	MOV L,M
	MVI H,0
	CALL .ne##
	JZ .38
	LXI H,14-.36
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	INX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	DCX H
	MOV E,M
	MVI D,0
	PUSH D
	LXI H,14-.36
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	INX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	DCX H
	POP D
	MOV M,E
	JMP .37
.38:
	LXI H,14-.36
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	XCHG
	RET
.36 EQU 0
	PUBLIC fill_
fill_:	CALL .zsav##
	DW .39
.40:
	LXI H,16-.39
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	DCX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	INX H
	MOV A,H
	ORA L
	JZ .41
	LXI H,14-.39
	DAD SP
	MOV E,M
	MVI D,0
	PUSH D
	LXI H,14-.39
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	INX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	DCX H
	POP D
	MOV M,E
	JMP .40
.41:
	RET
.39 EQU 0
	PUBLIC findlast_
findlast_:	CALL .zsav##
	DW .42
	LXI H,0
	XCHG
	LXI H,2-.42
	DAD SP
	MOV M,E
	INX H
	MOV M,D
.43:
	LXI H,12-.42
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	XCHG
	mov a,m
	ora a
	JZ .44
	LXI H,12-.42
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	INX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	DCX H
	MOV E,M
	MVI D,0
	LXI H,14-.42
	DAD SP
	MOV L,M
	MVI H,0
	CALL .eq##
	JZ .45
	LXI H,12-.42
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	XCHG
	DCX H
	XCHG
	LXI H,2-.42
	DAD SP
	MOV M,E
	INX H
	MOV M,D
.45:
	JMP .43
.44:
	LXI H,2-.42
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	XCHG
	RET
.42 EQU -2
	PUBLIC input_
input_:	CALL .zsav##
	DW .46
	LXI H,14-.46
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	LXI H,32
	PUSH H
	LXI H,16-.46
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	FUNC	fill_
	CALL fill_
	POP D
	POP D
	POP D
.47:
	LXI H,1
	MOV A,H
	ORA L
	JZ .48
	LXI H,.4
	PUSH H
	FUNC	agetc_
	CALL agetc_
	POP D
	XCHG
	LXI H,3-.46
	DAD SP
	MOV M,E
	LXI H,3-.46
	DAD SP
	MOV E,M
	MVI D,0
	LXI H,13
	CALL .eq##
	JNZ .50
	LXI H,3-.46
	DAD SP
	MOV E,M
	MVI D,0
	LXI H,10
	CALL .eq##
	JZ .49
.50:
	LXI H,12-.46
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	XCHG
	MOV E,M
	MVI D,0
	XCHG
	RET
.49:
	LXI H,14-.46
	DAD SP
	mov a,m
	inx h
	ora m
	JZ .51
	LXI H,14-.46
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	DCX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	INX H
	LXI H,3-.46
	DAD SP
	MOV E,M
	MVI D,0
	PUSH D
	FUNC	toupper_
	CALL toupper_
	POP D
	PUSH H
	LXI H,14-.46
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	INX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	DCX H
	POP D
	MOV M,E
.51:
	JMP .47
.48:
	RET
.46 EQU -1
	PUBLIC pwinput_
pwinput_:	CALL .zsav##
	DW .52
	LXI H,14-.52
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	LXI H,32
	PUSH H
	LXI H,16-.52
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	FUNC	fill_
	CALL fill_
	POP D
	POP D
	POP D
.53:
	LXI H,1
	MOV A,H
	ORA L
	JZ .54
	LXI H,.4
	PUSH H
	FUNC	agetc_
	CALL agetc_
	POP D
	XCHG
	LXI H,3-.52
	DAD SP
	MOV M,E
	LXI H,3-.52
	DAD SP
	MOV E,M
	MVI D,0
	LXI H,13
	CALL .eq##
	JNZ .56
	LXI H,3-.52
	DAD SP
	MOV E,M
	MVI D,0
	LXI H,10
	CALL .eq##
	JZ .55
.56:
	LXI H,12-.52
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	XCHG
	MOV E,M
	MVI D,0
	XCHG
	RET
.55:
	LXI H,14-.52
	DAD SP
	mov a,m
	inx h
	ora m
	JZ .57
	LXI H,14-.52
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	DCX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	INX H
	LXI H,3-.52
	DAD SP
	MOV E,M
	MVI D,0
	PUSH D
	LXI H,14-.52
	DAD SP
	PUSH H
	MOV A,M
	INX H
	MOV H,M
	MOV L,A
	INX H
	XCHG
	POP H
	MOV M,E
	INX H
	MOV M,D
	XCHG
	DCX H
	POP D
	MOV M,E
.57:
	JMP .53
.54:
	RET
.52 EQU -1
	PUBLIC sinput_
sinput_:	CALL .zsav##
	DW .58
	LXI H,14-.58
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	LXI H,14-.58
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	FUNC	input_
	CALL input_
	POP D
	POP D
	XCHG
	LXI H,2-.58
	DAD SP
	MOV M,E
	INX H
	MOV M,D
	LXI H,2-.58
	DAD SP
	mov a,m
	inx h
	ora m
	JZ .59
	LXI H,0
	PUSH H
	LXI H,4-.58
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	XCHG
	POP D
	MOV M,E
.59:
	RET
.58 EQU -2
	PUBLIC zopen_
zopen_:	CALL .zsav##
	DW .60
	LXI H,14-.60
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	XCHG
	MOV E,M
	MVI D,0
	LXI H,114
	CALL .eq##
	JZ .61
	LXI H,0
	PUSH H
	LXI H,14-.60
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	FUNC	open_
	CALL open_
	POP D
	POP D
	XCHG
	LXI H,2-.60
	DAD SP
	MOV M,E
	INX H
	MOV M,D
.61:
	LXI H,14-.60
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	XCHG
	MOV E,M
	MVI D,0
	LXI H,119
	CALL .eq##
	JZ .62
	LXI H,257
	PUSH H
	LXI H,14-.60
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	FUNC	open_
	CALL open_
	POP D
	POP D
	XCHG
	LXI H,2-.60
	DAD SP
	MOV M,E
	INX H
	MOV M,D
.62:
	LXI H,2-.60
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	XCHG
	RET
.60 EQU -2
	PUBLIC zclose_
zclose_:	CALL .zsav##
	DW .63
	LXI H,12-.63
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	FUNC	close_
	CALL close_
	POP D
	RET
.63 EQU 0
	PUBLIC zread_
zread_:	CALL .zsav##
	DW .64
	LXI H,16-.64
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	LXI H,16-.64
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	LXI H,16-.64
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	FUNC	read_
	CALL read_
	POP D
	POP D
	POP D
	RET
.64 EQU 0
	PUBLIC zwrite_
zwrite_:	CALL .zsav##
	DW .65
	LXI H,16-.65
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	LXI H,16-.65
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	LXI H,16-.65
	DAD SP
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	FUNC	write_
	CALL write_
	POP D
	POP D
	POP D
	RET
.65 EQU 0
	PUBLIC interr_
interr_:	CALL .zsav##
	DW .66
	LXI H,.23+0
	PUSH H
	FUNC	printf_
	CALL printf_
	POP D
	RET
.66 EQU 0
.23:
	DB 42,42,42,32,73,110,116,101,114,110,97,108,32,101,114
	DB 114,111,114,10,0
	PUBLIC dummy_
dummy_:	CALL .zsav##
	DW .68
	LXI H,.67+0
	PUSH H
	FUNC	printf_
	CALL printf_
	POP D
	RET
.68 EQU 0
.67:
	DB 116,104,105,115,32,114,111,117,116,105,110,101,32,115,105
	DB 109,117,108,97,116,101,100,10,0
	PUBLIC notyet_
notyet_:	CALL .zsav##
	DW .70
	LXI H,.69+0
	PUSH H
	FUNC	printf_
	CALL printf_
	POP D
	RET
.70 EQU 0
.69:
	DB 78,79,84,32,73,77,80,76,69,77,69,78,84,69,68
	DB 32,89,69,84,10,0
	COMMON /.lnprm/
	DS 4
	END
