extrn	.begin,.chl,.swt
	extrn	csave,cret,.move
	global	pINFOLIS_,2
	global	pSYSCFG_,2
	global	line_,2
	PUBLIC main_
main_:	lxi d,.2
	call csave
	LXI H,5
	SHLD line_
	LXI H,-4096
	SHLD hregbc_
	LXI H,-16384
	SHLD hregde_
	CALL diagnose_
	LXI H,-16384
	SHLD pSYSCFG_
	LHLD pSYSCFG_
	LXI D,68
	DAD D
	MOV E,M
	MVI	D,0
	PUSH D
	CALL crtinit_
	POP D
	CALL crtclr_
	LXI H,0
	PUSH H
	LXI H,0
	PUSH H
	CALL crtlc_
	POP D
	POP D
	LXI H,1
	PUSH H
	LXI H,0
	PUSH H
	LXI H,5
	PUSH H
	LXI H,2
	PUSH H
	LXI H,2013
	PUSH H
	LXI H,31
	PUSH H
	LXI H,3
	PUSH H
	LXI H,.1+0
	PUSH H
	CALL printf_
	XCHG
	LXI H,16
	DAD SP
	SPHL
	LXI H,.1+36
	PUSH H
	CALL printf_
	POP D
	CALL pager_
	CALL pager_
	LXI H,-6596
	SHLD ireghl_
	CALL bioscall_
	LHLD ireghl_
	SHLD pINFOLIS_
	LXI H,.1+72
	PUSH H
	CALL printf_
	POP D
	LHLD pINFOLIS_
	INX H
	INX H
	MOV E,M
	INX H
	MOV D,M
	XCHG
	SHLD dregde_
	LXI H,9
	SHLD dregbc_
	CALL bdoscall_
	CALL pager_
	LXI H,-4096
	SHLD hregbc_
	LXI H,-16384
	SHLD hregde_
	CALL diagnose_
	LXI H,-16384
	SHLD pSYSCFG_
	LHLD pSYSCFG_
	PUSH H
	CALL cnamept1_
	POP D
	LHLD pSYSCFG_
	PUSH H
	CALL cnamept2_
	POP D
	LHLD pSYSCFG_
	PUSH H
	CALL cnamept3_
	POP D
	LHLD pSYSCFG_
	PUSH H
	CALL cnamept4_
	POP D
	RET
.2 EQU -7
.1:
	DB 67,80,77,78,65,77,69,46,67,79,77,32,37,100,47
	DB 37,100,47,37,100,32,118,37,100,46,37,100,46,37,100
	DB 32,40,37,100,41,0,32,100,119,103,32,45,32,68,105
	DB 115,112,108,97,121,32,83,121,115,116,101,109,32,67,111
	DB 110,102,105,103,117,114,97,116,105,111,110,0,112,73,78
	DB 70,79,76,73,83,84,45,62,98,97,110,112,116,114,32
	DB 61,61,62,32,0
	PUBLIC pager_
pager_:	lxi d,.4
	call csave
	LHLD line_
	INX H
	SHLD line_
	LXI H,.3+0
	PUSH H
	CALL printf_
	POP D
	LXI H,24
	XCHG
	LHLD line_
	CALL .eq
	JZ .5
	LXI H,.3+2
	PUSH H
	CALL printf_
	POP D
	LXI H,1
	SHLD dregbc_
	CALL bdoscall_
	LXI H,1
	SHLD line_
.5:
	RET
.4 EQU 0
.3:
	DB 10,0,32,32,32,32,32,112,114,101,115,115,32,97,110
	DB 121,32,107,101,121,32,116,111,32,99,111,110,116,105,110
	DB 117,101,0
	extrn	printf_
	extrn	crtlc_
	extrn	crtclr_
	extrn	crtinit_
	extrn	cnamept4_
	extrn	cnamept3_
	extrn	cnamept2_
	extrn	cnamept1_
	extrn	diagnose_
	extrn	hregde_
	extrn	hregbc_
	extrn	bdoscall_
	extrn	dregde_
	extrn	dregbc_
	extrn	bioscall_
	extrn	ireghl_
	extrn	.eq
	END