WebSVN – NedoOS – Blame – /src/kernel/main.asm

Rev	Author	Line No.	Line
68	Alone	1	DEVICE ZXSPECTRUM128
76	Alone	2	;device pentagon1024
8	dimkam	3
		4	include "../_sdk/syssets.asm"
964	alone	5	ifdef USETOPDOWNMEM
1947	dimkam	6	TOPDOWNMEM=1
964	alone	7	else
574	alone	8	TOPDOWNMEM=0;1
964	alone	9	endif
8	dimkam	10
2004	alone	11	EFF7VALUE=0x10 ;noturbo
		12
147	alone	13	if atm != 2
		14	memport0000=0x37f7
		15	memport4000=0x77f7
		16	memport8000=0xb7f7
		17	memportc000=0xf7f7
		18	memportrom0000=0x3ff7
		19	memportrom4000=0x7ff7
		20	memportrom8000=0xbff7
		21	memportromc000=0xfff7
		22	pagexor=0xff
92	DimkaM	23	else
147	alone	24	memport0000=0x3ff7
		25	memport4000=0x7ff7
		26	memport8000=0xbff7
		27	memportc000=0xfff7
		28	memportrom0000=0x3ff7
		29	memportrom4000=0x7ff7
		30	memportrom8000=0xbff7
		31	memportromc000=0xfff7
		32	pagexor=0x7f
92	DimkaM	33	endif
		34
78	Alone	35	if NEMOIDE==1
344	alone	36	;�奬� Nemo:
147	alone	37	hddstat=0xF0
		38	hddcmd=0xF0
		39	hddhead=0xD0
		40	hddcylhi=0xB0
		41	hddcyllo=0x90
		42	hddsec=0x70
		43	hddcount=0x50
		44	hdderr=0x30
		45	hdddatlo=0x10
		46	hdddathi=0x11
		47	hddupr=0xC8
8	dimkam	48	hdduprON=0
		49	else
344	alone	50	;�奬� ATM:
147	alone	51	hddstat=0xFEEF
		52	hddcmd=0xFEEF
		53	hddhead=0xFECF
		54	hddcylhi=0xFEAF
		55	hddcyllo=0xFE8F
		56	hddsec=0xFE6F
		57	hddcount=0xFE4F
		58	hdderr=0xFE2F
		59	hdddatlo=0xFE0F
		60	hdddathi=0xFF0F
344	alone	61	hddupr=0xFEBE ;�� ⠭�� b7 FFBA
147	alone	62	hdduprON=0xFFBA
		63	hddupr1=0xF7
		64	hddupr0=0x77
8	dimkam	65	endif
		66	memport8000_hi=memport8000/256
		67	memportc000_hi=memportc000/256
92	DimkaM	68
62	Alone	69	SYSMINSTACK=0x3b00
8	dimkam	70
344	alone	71	resident=0x6000;0x6000+8000 (�� ⪥ ��࠭�) ;pgtrdosfs
147	alone	72	trdos_catbuf=0x6300;0x3200 ;,0x900 ;pgtrdosfs (0x4000)
106	alone	73	trdos_sectorbuf=0x6c00
		74	trdos_fcbbuf=0x6d00 ;size=0x200*trdos_MAXFILES
62	Alone	75	trdos_MAXFILES=8
453	alone	76	INTMUZSTACK=0x3e00 ;kernelspace
768	alone	77	;INTSTACK1=0x3f00 ;kernelspace (�� 室� � ��ࠡ��稪 �� ⥪�) (�� ᥪ�� ⥪�� !!!)
344	alone	78	INTSTACK2=0x5f00;0x6000 ;pgkillable � pgtrdosfs (ࠡ�稩 �⥪ ��ࠡ��稪� ��뢠��) (>=0x4000, �� 몫�� ⥭�� )
		79	TRDOSSTACK=0x5f00-96;0x6000-96 ;�⮡� �� ᥪ�� INTSTACK (� �஬��⪥ �� ४��祭�ﬨ ��࠭�� ந�� ⥬�� 뢠��), �� ࠭ ��
62	Alone	80	BDOSSTACK=0x4000 ;kernelspace
		81	STACK=0x4000 ;userspace
344	alone	82	;�� 맮�� BDOS �⥪ ��஥ �६� ⠪�� , �� �ᯥ��
		83	;��⮬� �� 室� � BDOS �� 0x4000...0xffff ��࠭��, ��
		84	;�।��, �� � �� ⥪ �� 0x3b00, �� ⥬�
8	dimkam	85
		86	include "../_sdk/sys_h.asm"
		87
92	DimkaM	88	if TOPDOWNMEM
		89	pgtrdosfs=pagexor-(sys_npages-1)
		90	pgfatfs=pagexor-(sys_npages-2)
		91	pgsys=pagexor-(sys_npages-3)
116	alone	92	pgfatfs2=pagexor-(sys_npages-4) ;structs
92	DimkaM	93	else
		94	pgtrdosfs=pagexor-8
		95	pgfatfs=pagexor-9
8	dimkam	96	pgsys=pagexor-10
116	alone	97	pgfatfs2=pagexor-11 ;structs
92	DimkaM	98	endif
		99
344	alone	100	pgkillable=pagexor-4 ;� 128K ��, �.�. ��
92	DimkaM	101	;pgfirstfree=pagexor-11
8	dimkam	102
		103	pgscr0_0=pagexor-1
		104	pgscr0_1=pagexor-5
		105	pgscr1_0=pagexor-3
		106	pgscr1_1=pagexor-7
		107
344	alone	108	fd_system=0x57;%01010111 ;%0x01sx1x ;�� ࠢ�� 2 �� A9=1, � �� ࠭�� 0x7ffd �� 㤥� ��, �᫨ �� memportc000
		109	fd_system_getchar=0x56;%01010110 ;%0x01sx1x ;�� ࠢ�� 2 �� A9=1, � �� ࠭�� 0x7ffd �� 㤥� ��, �᫨ �� memportc000
		110	fd_user=0x47;%01000111 ;%0x00sx1x ;�� ࠢ�� 2 �� A9=1, � �� ࠭�� 0x7ffd �� 㤥� ��, �᫨ �� memportc000
92	DimkaM	111
344	alone	112	;�᫮�� ࠭�� sjasm
8	dimkam	113	COMPILEPG_INIT=0
116	alone	114	COMPILEPG_SYS0=4
		115	COMPILEPG_SYS1=6
8	dimkam	116
		117	SLOT 1
		118	page COMPILEPG_INIT
147	alone	119	org 0x6000
8	dimkam	120	begin
821	dimkam	121	di
8	dimkam	122	xor a
147	alone	123	out (0xfe),a
821	dimkam	124	ifdef KOE
		125	display "KOE!!!"
2004	alone	126	ld a,0+EFF7VALUE ;turbo ;0x10 ;noturbo
821	dimkam	127	ld bc,0xeff7
		128	out (c),a ;for KOE
		129	ld a,0x10
		130	ld bc,0x7ffd
		131	out (c),a
		132	endif
1358	alone	133	if atm==2
821	dimkam	134	ld hl,basvar.tape
		135	ld de,0x5c00
		136	ld bc,basvar.endtape - basvar.tape
		137	ldir
		138	ld sp,0x5800
		139	ld a,(0x3CBC)
		140	cp 0x83
		141	call z,0x3C9E
		142	;call 0x3d21
		143	endif
1358	alone	144	if atm==3
		145	ld a,32 ;xor a ;D5=444 palette
		146	out (0xbf),a
		147	endif
147	alone	148	LD (IY+1),0xCC
86	Alone	149
		150	if 1==0
821	dimkam	151	LD A,(23833)
		152	ADD A,'A'
		153	LD (src),A
		154	LD (dst),A
		155	XOR A
		156	LD (23658),A ;0x5c6a
		157	;LD L,A,H,L
		158	;LD (23802),HL
86	Alone	159	endif
821	dimkam	160	XOR A
		161	ld (0x5d10),a
86	Alone	162
1343	alone	163	call reset_ay
		164
147	alone	165	;ld hl,0xc9f1 ;pop af:ret
		166	;ld (0x5cc2),hl
8	dimkam	167
444	alone	168	;ld bc,0xfbdf ;x
		169	;in l,(c)
		170	;ld b,0xff
		171	;in h,(c)
		172	;ld (init_oldmousecoords),hl
8	dimkam	173
		174	;;;;;;;;;;;;;;;;;;; set gfx mode ;;;;;;;;;;;;;;;;;
774	dimkam	175	ei
8	dimkam	176	halt
147	alone	177	;LD A,0xaa;%10101010 ;640x200 mode
		178	;LD A,0xae;%10101110 ;textmode
145	dimkam	179	if atm==1
848	dimkam	180	init_rst_buf=0x4000
		181	;�஢�ਬ �� ers
		182	ld d,0x00
		183	rst 0x08
		184	defb 0x4d,0x00
		185	ld hl,-0x5812 ;ERS_MIN_VERSION 0.58.12
		186	add hl,de
		187	ld a,0xff
		188	jr nc,.err_version
436	dimkam	189	;��᭨� ��㤠 ��⨫��
		190	ld hl,init_rst_buf
		191	rst 0x08
		192	defb 0x50,0x03
		193	rst 0x08 ; � D ��୥�� ⥪�騩 �ࠩ�
		194	defb 0x50,0x02
		195	ld a,d
		196	add a,a
		197	add a,a
		198	add a,a
		199	ld hl,init_rst_buf
		200	ld b,0
		201	ld c,a
		202	add hl,bc
		203	ld de,init_rst_buf+512
		204	ld bc,8
		205	ldir
		206	ld a,(init_rst_buf+512)
		207	rst 0x08
		208	defb 0x50,0x05
		209	ld a,(init_rst_buf+512)
		210	and 1 ;m/s
		211	ld hl,init_rst_buf
		212	ld bc,0x0000
		213	ld d,b
		214	ld e,c
		215	ld a,2
775	alone	216	ex af,af' ;'
436	dimkam	217	ld a,1
		218	rst 0x08
		219	defb 0x50,0x04,0x02
		220	ld a,(init_rst_buf+512)
		221	ld d,12
		222	cp 0x0f
		223	jr z,.l3
		224	ld d,3
		225	cp 4
		226	jr z,.init_sysdev_part
		227	ld d,7
		228	cp 5
		229	jp nz,init_sysdev_end
		230	.init_sysdev_part
		231	ld hl,init_rst_buf+0x01BE+0x0008-12
		232	.l2
		233	inc d
		234	push de
		235	ld bc,12
		236	add hl,bc
		237	ld bc,0x0400
		238	ld de,init_rst_buf+512+3
		239	.l1 ld a,(de)
		240	xor (hl)
		241	or c
		242	ld c,a
		243	inc de
		244	inc hl
		245	djnz .l1
		246	pop de
		247	or a
		248	jr nz,.l2
		249	.l3
		250	ld a,d
848	dimkam	251	.err_version
436	dimkam	252	ld (init_sysdrv_val),a
		253	init_sysdev_end
		254	halt
285	dimkam	255	ld bc,0xeff7
2004	alone	256	ld a,0x80+EFF7VALUE
285	dimkam	257	out (c),a
		258	ld a,0x10
		259	ld bc,0x7ffd
		260	out (c),a
209	dimkam	261	ld bc,0x01bf
		262	out (c),b
285	dimkam	263	LD A,0xa8;%10101000 ;320x200 mode
145	dimkam	264	ld bc,0xbd77 ;shadow ports and palette remain on
		265	out (c),a
1356	alone	266	ld a,32 ;xor a ;D5=444 palette
145	dimkam	267	out (0xbf),a
		268	else
285	dimkam	269	LD A,0xa8;%10101000 ;320x200 mode
145	dimkam	270	CALL INIT_OUTSHADON
		271	endif
8	dimkam	272	call INIT_blackpal
		273
		274	di
145	dimkam	275	if atm==1 and PS2KBD
		276	ld bc,0xdef7
		277	out (c),c
		278	ld b,0xbe
		279	ld a,2
		280	out (c),a
		281	endif
		282
		283	if atm==3 or atm==1
147	alone	284	ld a,0x7f-5
141	dimkam	285	ld bc,memportrom4000
344	alone	286	out (c),a ;�⪫�砥� 7ffd
147	alone	287	ld a,0x7f-2
141	dimkam	288	ld bc,memportrom8000
344	alone	289	out (c),a ;�⪫�砥� 7ffd
147	alone	290	;ld a,0x7f-2
141	dimkam	291	ld bc,memportromc000
344	alone	292	out (c),a ;�⪫�砥� 7ffd
141	dimkam	293	endif
821	dimkam	294
891	alone	295	if atm != 1
145	dimkam	296	call findpgdos
		297	else
739	dimkam	298	ld a,0x04
1947	dimkam	299	in a,(0xbd)
739	dimkam	300	and 0xbf;%10111111
		301	;ld a,0x8b
145	dimkam	302	endif
821	dimkam	303	ld lx,a
344	alone	304	ld (sys_pgdos),a ;�� ⠭�� १��
8	dimkam	305
		306	ld a,pgsys
		307	call INIT_setpg_c000
147	alone	308	ld hl,0x8000
		309	ld de,0xc000
		310	ld bc,0x4000
8	dimkam	311	ldir
		312
		313	ld a,pgtrdosfs
		314	call INIT_setpg_c000
		315	ld hl,wastrdosfs
147	alone	316	ld de,0xc000+idle;COMMANDLINE;PROGSTART ;idle code
8	dimkam	317	ld bc,trdosfs_sz
		318	ldir
848	dimkam	319	ld a,(init_sysdrv_val) ;�㦭� �� ஢�ન ��ᨨ ERS
		320	ld (0xc000+idle+6),a ;�� ࠢ��쭮� ERS �ᤨ�==0xff
209	dimkam	321	ld a,0xc3
		322	ld (0x5cc2),a
		323	ld hl,ONERR;ddrv
		324	ld (0x5cc3),hl
208	dimkam	325	ld hl,0x5c00
		326	ld de,0xc000+0x1c00
712	alone	327	ld bc,0x0400;for run hobeta;0x0200;0x5d3b-0x5c00
208	dimkam	328	ldir
8	dimkam	329	ld hl,wasresident
147	alone	330	ld de,resident+0xc000-0x4000
8	dimkam	331	ld bc,resident_sz
		332	ldir
208	dimkam	333	ld hl,0x5c4b
		334	ld de,varbas_stor+0x8000
		335	ld bc,32
		336	ldir
77	Alone	337
147	alone	338	ld hl,0xc000+trdos_fcbbuf-0x4000
77	Alone	339	ld d,h
		340	ld e,l
		341	inc de
		342	ld bc,0x200*trdos_MAXFILES-1
		343	ld (hl),l;0
		344	ldir
8	dimkam	345
		346	;ld a,pgidle
		347	;call INIT_setpg_c000
		348	;ld hl,wasidle
147	alone	349	;ld de,0x0100+0xc000
8	dimkam	350	;ld bc,idle_sz
		351	;ldir
		352
		353	ld a,pgsys
		354	call INIT_setpg_8000
		355	ld a,pgfatfs
		356	call INIT_setpg_c000
		357
854	alone	358	;jr $
		359	;��ॡ��뢠�� 16K 㯠�� 0xb000
		360	ld hl,wassys+0x4fff
147	alone	361	ld de,0xffff
854	alone	362	ld bc,0x5000
8	dimkam	363	lddr
344	alone	364	;�ᯠ��뢠�� 0x6400
854	alone	365	ld hl,0xb000;wassys
147	alone	366	ld de,0x6400;0x8000
854	alone	367	call DEC40 ;�ᯠ��뢠�� de (⠬ 㦥 ��祭� ��⥬�� ࠭�窨)
344	alone	368	;��ॡ��뢠�� 32K �� 0x6400 � 0x8000
147	alone	369	ld hl,0x6400+0x7fff
		370	ld de,0x8000+0x7fff
		371	ld bc,0x8000
8	dimkam	372	lddr
		373
147	alone	374	fatfspatchaddr=0xc000
8	dimkam	375
		376	ld hl,devices_init
115	alone	377	ld (0xc000+FFS_DRV.init),hl
112	dimkam	378	ld hl,disk_status
115	alone	379	ld (0xc000+FFS_DRV.status),hl
112	dimkam	380	ld hl,devices_read ;read to userspace
115	alone	381	ld (0xc000+FFS_DRV.rd_to_usp),hl
116	alone	382	ld hl,devices_readnopg ;read to buffer
115	alone	383	ld (0xc000+FFS_DRV.rd_to_buf),hl
112	dimkam	384	ld hl,devices_write ;write from userspace
115	alone	385	ld (0xc000+FFS_DRV.wr_fr_usp),hl
116	alone	386	ld hl,devices_writenopg ;write from buffer
115	alone	387	ld (0xc000+FFS_DRV.wr_fr_buf),hl
8	dimkam	388	ld hl,get_fattime
115	alone	389	ld (0xc000+FFS_DRV.RTC),hl
		390	ld hl,strcpy_lib2usp
		391	ld (0xc000+FFS_DRV.strcpy_lib2usp),hl
		392	ld hl,strcpy_usp2lib
		393	ld (0xc000+FFS_DRV.strcpy_usp2lib),hl
		394	ld hl,memcpy_lib2usp
		395	ld (0xc000+FFS_DRV.memcpy_lib2usp),hl
		396	ld hl,memcpy_usp2lib
		397	ld (0xc000+FFS_DRV.memcpy_usp2lib),hl
		398	ld hl,memcpy_buf2usp
		399	ld (0xc000+FFS_DRV.memcpy_buf2usp),hl
		400	ld hl,memcpy_usp2buf
		401	ld (0xc000+FFS_DRV.memcpy_usp2buf),hl
8	dimkam	402
344	alone	403	;��樠�� 室 � �ᯥ��:
		404	;HALT (�⮡� ��뢠�� ந��諮 �� )
		405	;[��砥� ��࠭�� ⥬ᯥ�� (�� ⠪�� , �� �ᯥ��) - 㦥 �� ࠭�� 5]
		406	;� �ᯥ�� 砥� �� ࠭�� ୠ�� (�� )
8	dimkam	407	ld a,fd_user
147	alone	408	out (0xfd),a
145	dimkam	409	if atm==3 or atm==1
147	alone	410	ld a,0x7f
8	dimkam	411	ld bc,memportrom0000
344	alone	412	out (c),a ;�⪫�砥� ��
147	alone	413	ld a,0x7f-5
8	dimkam	414	ld bc,memportrom4000
344	alone	415	out (c),a ;�⪫�砥� 7ffd
147	alone	416	ld a,0x7f-2
8	dimkam	417	ld bc,memportrom8000
344	alone	418	out (c),a ;�⪫�砥� 7ffd
147	alone	419	;ld a,0x7f-2
8	dimkam	420	ld bc,memportromc000
344	alone	421	out (c),a ;�⪫�砥� 7ffd
8	dimkam	422	endif
		423	ld a,pgtrdosfs ;idle
		424	ld bc,memport0000
		425	out (c),a
		426
147	alone	427	;ld hl,wasuserkernel+0x8000
8	dimkam	428	;ld de,0
		429	;ld bc,userkernel_sz
		430	;ldir
		431
		432	ld a,fd_system
147	alone	433	out (0xfd),a
145	dimkam	434	if atm==3 or atm==1
147	alone	435	ld a,0x7f
8	dimkam	436	ld bc,memportrom0000
344	alone	437	out (c),a ;�⪫�砥� ��
		438	;4000,8000,c000 㦥 �⪫�稫� 7ffd ��
8	dimkam	439	endif
		440	ld a,pgsys
		441	ld bc,memport0000
		442	out (c),a
344	alone	443	;� ��⥬ᯥ��:
		444	;�� fatfs
		445	;��⠢�� १�� 7fxx
		446	;��室�� sys_intq, � ��㤠 � init_resident
8	dimkam	447
86	Alone	448	if 1==0
		449	ld a,lx;(sys_pgdos)
		450	ld bc,memportrom0000
		451	out (c),a
147	alone	452	LD A,0xa8;%10101000 ;320x200 mode
		453	ld bc,0xff77 ;shadow ports off, palette off
86	Alone	454	out (c),a
		455	ld a,1
		456	ld c,1
147	alone	457	call 0x3d13
		458	ld c,0x18
		459	call 0x3d13
		460	ld hl,0xc000
		461	ld de,0x0000
		462	ld bc,0x0805
		463	call 0x3d13
86	Alone	464	jr $
		465	endif
8	dimkam	466
		467	ld sp,BDOSSTACK
		468	;ei
344	alone	469	;halt ;�⮡� ��뢠�� ந��諮 ��
8	dimkam	470	;di
92	DimkaM	471	;jr $
444	alone	472	;init_oldmousecoords=$+1
		473	; ld hl,0
		474	; ld (sys_oldmousecoords),hl
116	alone	475	call BDOS_setpgstructs
		476	ld hl,0xc000
		477	ld de,0xc001
		478	ld bc,0x3fff
		479	ld (hl),l;0
344	alone	480	ldir ;��
436	dimkam	481	init_sysdrv_val=$+1
		482	ld a,SYSDRV
		483	ld (SYSDRV_VAL),a
506	alone	484	jp setkernelpages_go ;di!!!
1343	alone	485
		486	reset_ay
		487	ld a,0xfe
		488	call reset_ay_ay
		489	ld a,0xff
		490	reset_ay_ay
		491	ld bc,#fffd
		492	out (c),a
		493	xor a
		494	ld l,a
		495	reset_ay_ay0
		496	ld b,#ff
		497	out (c),a
		498	ld b,#bf
		499	out (c),l
		500	inc a
		501	cp 14
		502	jr nz,reset_ay_ay0
		503	ret
		504
891	alone	505	if atm != 1
8	dimkam	506	INIT_OUTSHADON
147	alone	507	;LD BC,0xFF77 ;shadow ports remain off
		508	LD BC,0xBD77 ;shadow ports and palette remain on
145	dimkam	509	LD IX,10835
		510	PUSH IX
147	alone	511	JP 0x3D2F
145	dimkam	512	endif
8	dimkam	513
		514	INIT_setpg_low
147	alone	515	LD BC,memportrom0000 ;page for 0x0000..0x3fff
8	dimkam	516	OUT (C),A
		517	ret
		518
		519	INIT_setpg_8000
147	alone	520	LD BC,memport8000 ;page for 0x8000..0xbfff
8	dimkam	521	OUT (C),A
		522	ret
		523
		524	INIT_setpg_c000
147	alone	525	LD BC,memportc000 ;page for 0xc000..0xffff
8	dimkam	526	OUT (C),A
		527	ret
821	dimkam	528
		529	if atm==2
		530	basvar
		531	.tape
		532	defb 0xFF, 0x00, 0x00, 0x00, 0x0D, 0x05, 0x10, 0x0D, 0x0D, 0x10, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00
		533	defb 0x01, 0x00, 0x06, 0x00, 0x0B, 0x00, 0x01, 0x00, 0x01, 0x00, 0x06, 0x00, 0x10, 0x00, 0x00, 0x00
		534	defb 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0xFD, 0x7F, 0x3E, 0x14, 0xED, 0x79, 0xC3, 0x00, 0xC0
		535	defb 0x18, 0xF4, 0x00, 0x00, 0x00, 0x00, 0x00, 0x3C, 0x40, 0x00, 0xFF, 0xCC, 0x01, 0xFC, 0x5F, 0x00
		536	defb 0x00, 0x00, 0x00, 0x00, 0x00, 0x28, 0x00, 0x02, 0x07, 0x00, 0x00, 0xB4, 0x5D, 0x00, 0x00, 0x26
		537	defb 0x5D, 0x26, 0x5D, 0x3B, 0x5D, 0xB4, 0x5D, 0x3A, 0x5D, 0xB5, 0x5D, 0xB5, 0x5D, 0xB3, 0x5D, 0x00
		538	defb 0x00, 0xB7, 0x5D, 0xC3, 0x5D, 0xC3, 0x5D, 0x2D, 0x92, 0x5C, 0x10, 0x02, 0x00, 0x00, 0x00, 0x00
		539	defb 0x00, 0x00, 0x00, 0x00, 0xB6, 0x1A, 0x92, 0x00, 0x24, 0x01, 0x00, 0x58, 0xFF, 0x00, 0x00, 0x21
		540	defb 0x00, 0x5B, 0x21, 0x17, 0x00, 0x40, 0xE0, 0x50, 0x21, 0x18, 0x21, 0x17, 0x01, 0x07, 0x00, 0x07
		541	defb 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
		542	defb 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
		543	defb 0x00, 0x00, 0xFF, 0x5F, 0xFF, 0xFF, 0xF4, 0x09, 0xA8, 0x10, 0x4B, 0xF4, 0x09, 0xC4, 0x15, 0x53
		544	defb 0x81, 0x0F, 0xC9, 0x49, 0x91, 0xF4, 0x09, 0xC4, 0x83, 0x83, 0x83, 0x83, 0x00, 0x00, 0x00, 0x35
		545	defb 0x36, 0x31, 0x36, 0x0E, 0x00, 0x00, 0x03, 0x6B, 0x5E, 0x95, 0x5E, 0x00, 0x25, 0x73, 0x74, 0x73
		546	defb 0x35, 0x2E, 0x31, 0x61, 0x20, 0x43, 0x00, 0xDB, 0x00, 0x25, 0x25, 0x03, 0x09, 0x00, 0x00, 0x00
		547	defb 0x00, 0x00, 0x00, 0x00, 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x08, 0x08, 0x08, 0x80, 0x08
		548	defb 0x00, 0xC8, 0xFA, 0x5C, 0xFA, 0x5C, 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, 0xFF, 0x00, 0x00, 0x00
		549	defb 0xFF, 0x89, 0x5D, 0xFC, 0x5F, 0xFF, 0x3C, 0xAA, 0x00, 0x00, 0x01, 0x02, 0xFA, 0x5F, 0x03, 0x00
		550	defb 0xFE, 0x0D, 0x80, 0x00, 0x00, 0xFF, 0xF4, 0x09, 0xA8, 0x10, 0x4B, 0xF4, 0x09, 0xC4, 0x15, 0x53
		551	defb 0x81, 0x0F, 0xC4, 0x15, 0x52, 0xF4, 0x09, 0xC4, 0x15, 0x50, 0x80, 0x01, 0x00, 0x23, 0x00, 0xFD
		552	defb 0xB0, 0x22, 0x36, 0x35, 0x33, 0x36, 0x38, 0x22, 0x3A, 0xF9, 0xC0, 0xB0, 0x22, 0x31, 0x35, 0x36
		553	defb 0x31, 0x39, 0x22, 0x3A, 0xEA, 0x3A, 0xF7, 0x22, 0x62, 0x6F, 0x6F, 0x74, 0x20, 0x20, 0x20, 0x20
		554	defb 0x22, 0x0D, 0x80, 0xF4, 0x5C, 0x01, 0x05, 0x2E, 0x21, 0x00, 0x60, 0xE5, 0xC3, 0x13, 0x3D, 0x0D
		555	.endtape
		556	endif
660	alone	557
891	alone	558	if atm != 1
8	dimkam	559	findpgdos
344	alone	560	;�᫨ �� ࠭�� ⥪�饣� ��, � �� ZX Evo �� 㤥� ࠡ�� (� ��࠭�� 0x83 ��祬�-� �� 㬮�砭��)
8	dimkam	561	call crcdos
		562	ld (doscrchi),de
		563	ld (doscrclo),bc
147	alone	564	ld lx,0x83
8	dimkam	565	findpgdos0
		566	ld a,lx
		567	call INIT_setpg_low
		568	call crcdos
		569	doscrchi=$+1
		570	ld hl,0
		571	or a
		572	sbc hl,de
		573	jr nz,doscrcbad
		574	doscrclo=$+1
		575	ld hl,0
		576	or a
		577	sbc hl,bc
		578	jr nz,doscrcbad
		579	ld a,lx
		580	ret
		581	doscrcbad
		582	ld a,lx
		583	add a,4
		584	ld lx,a
147	alone	585	cp 0xc0
8	dimkam	586	jr c,findpgdos0
147	alone	587	ld a,0x83 ;not found
8	dimkam	588	ret
		589	crcdos
147	alone	590	ld hl,0x0000
8	dimkam	591	ld bc,0
		592	ld de,0
		593	crcdos0
		594	ld a,d
		595	add a,a
		596	rl c
		597	rl b
		598	rl e
		599	rl d
		600	xor b
		601	ld b,a
		602	ld a,(hl)
		603	xor c
		604	ld c,a
		605	inc hl
		606	bit 6,h
		607	jr z,crcdos0
		608	ret
145	dimkam	609	endif
8	dimkam	610
		611	INIT_blackpal
		612	LD HL,blackpalend
344	alone	613	;halt ;halt �� - �࠭�, �⮡� �� ᢥ⨫�� 祣�
147	alone	614	LD DE,0xa80f ;0xab=6912 ;palette on, EGA, turbo
		615	LD BC,0xBD77
8	dimkam	616	OUT (C),D
		617	INIT_setpal0 LD A,E
		618	and 7
		619	BIT 3,E
147	alone	620	OUT (0xFE),A
8	dimkam	621	JR Z,$+4
147	alone	622	OUT (0xF6),A
8	dimkam	623	LD A,(HL)
		624	DEC HL
		625	ld b,(hl) ;DDp palette low bits
		626	dec hl
147	alone	627	ld c,0xff
		628	OUT (c),a;(0xFF),A
8	dimkam	629	DEC E
		630	JP P,INIT_setpal0
		631	ret
		632
775	alone	633	ifdef NOPAL
		634	dw 0xffff,0xfefe,0xfdfd,0xfcfc,0xefef,0xeeee,0xeded,0xecec
		635	dw 0xffff,0xdede,0xbdbd,0x9c9c,0x6f6f,0x4e4e,0x2d2d,0x0c0c
		636	else
147	alone	637	ds 32,0xf3
775	alone	638	endif
8	dimkam	639	blackpalend=$-1
		640
62	Alone	641	include "unmegalz.asm" ;DEC40
8	dimkam	642
		643	wasresident
210	dimkam	644	disp resident
891	alone	645	if atm != 1
210	dimkam	646	readmouse ;=$-wasresident+resident
147	alone	647	;sp=0x7fxx
8	dimkam	648	;e=gfxmode
891	alone	649	;out:
		650	;a=gfxmode, hl=mousecoords, d=mousebuttons, e=kempstonbuttons
210	dimkam	651	call sys_SHADOFF
775	alone	652	;ifdef NOMOUSE
		653	; ld hl,0
		654	; ld d,0x0f ;buttons
		655	;else
210	dimkam	656	ld bc,0xfadf ;buttons
		657	in d,(c)
		658	inc b ;ld bc,0xfbdf ;x
		659	in l,(c)
		660	ld b,0xff ;y
		661	in h,(c)
891	alone	662	ld c,0x1f
		663	in e,(c) ;kempstonbuttons
		664	inc e
		665	jr nz,$+3 ;0xff = kempston joystick absent
		666	inc e ;will be 0 after dec
		667	dec e
		668	jr shadon_pgsys_a
775	alone	669	;endif
145	dimkam	670	endif
210	dimkam	671	shadon_pgsys ;=$-wasresident+resident
147	alone	672	LD A,e;0xa8;%10101000 ;320x200 mode
210	dimkam	673	shadon_pgsys_a ;=$-wasresident+resident
891	alone	674	if atm != 1
145	dimkam	675	CALL sys_SHADON
		676	else
		677	ld bc,0x01bf
		678	out (c),b
		679	ld bc,0xbd77 ;shadow ports and palette remain on
		680	out (c),a
1356	alone	681	ld a,32 ;xor a ;D5=444 palette
145	dimkam	682	out (0xbf),a
		683	endif
		684
		685	if atm==3 or atm==1
147	alone	686	ld a,0x7f
145	dimkam	687	call sys_setpg_low
		688	ld a,pgsys
		689	ld bc,memport0000
		690	jr sys_outca_jr
92	DimkaM	691	else
147	alone	692	ld a,0x7f-(pagexor-pgsys)
92	DimkaM	693	endif
210	dimkam	694	sys_setpg_low ;=$-wasresident+resident
145	dimkam	695	ld bc,memportrom0000
		696	jr sys_outca_jr
210	dimkam	697	sys_SHADOFF ;=$-wasresident+resident
344	alone	698	sys_pgdos=wasresident+(($+1)-resident) ;��
147	alone	699	ld a,0x83 ;48 basic switchable to DOS
145	dimkam	700	call sys_setpg_low
147	alone	701	LD A,e;0xa8;%10101000 ;320x200 mode
		702	ld bc,0xff77 ;shadow ports off, palette off
8	dimkam	703	sys_outca_jr
		704	out (c),a
145	dimkam	705	ret
891	alone	706	if atm != 1
210	dimkam	707	sys_SHADON ;=$-wasresident+resident
145	dimkam	708	LD bc,10835
		709	PUSH bc
147	alone	710	LD BC,0xBD77 ;shadow ports and palette remain on
		711	JP 0x3D2F
145	dimkam	712	endif
8	dimkam	713
344	alone	714	;TODO �� pgtrdos
210	dimkam	715	dos3d13_resident ;=$-wasresident+resident
288	dimkam	716
344	alone	717	;ᥩ�� 祭� pg5
8	dimkam	718	;iy=23610
210	dimkam	719	ld (dos3d13_sp_st),sp
344	alone	720	ld sp,trdos_sp ;�� ⥪ � 0x4000+ (�� ᥪ��騩�� INTSTACK, �.�. ᥩ�� ந�� ⥬�� 뢠��), �� 㬮�砭�� ⥪ �� 0x3fxx
8	dimkam	721	;call swap_sysvars
891	alone	722	ex af,af' ;'
344	alone	723	call sys_SHADOFF ;��稫� ��
210	dimkam	724	ld (em3d13_de_st),de ;push de ;e=gfxmode
		725
		726	;*****************************
		727	;call EM3D13PP;0x3d13
344	alone	728	;ᮡ�⢥�� p��p, �� 0x3�13 (� � �� ᯮ�짮��)
		729	;�� 室� - A p�� 0 - �� , �� 0 - �訡��
		730	;�� p�楤yp DRAW_WINDOWS, PRINT_WINDOWS � REST_WINDOW
		731	;�ᯮ��y� ᢮�.
210	dimkam	732	;Kurleson
		733	;EM3D13PP
		734	ld hl,em3d13pp_ret
		735	push hl
		736	ld (23613),sp
		737	xor a
		738	ld (23801),a
		739	ld (23823),a
		740	ld (23824),a
		741	ld hl,varbas_stor
		742	ld de,0x5c4b
		743	ld bc,32
		744	ldir
		745	if atm == 1
1356	alone	746	ld a,32 ;xor a ;D5=444 palette
210	dimkam	747	out (0xbf),a
		748	endif
		749	exx ;pop hl,de,bc
891	alone	750	ex af,af' ;'
210	dimkam	751	jp 0x3D13
660	alone	752
210	dimkam	753	ONERR
		754	ex (sp),hl
		755	push af
		756	ld a,(0x5d0f)
		757	or a
		758	jr nz,em3d13pp_ret
		759	ld a,h
		760	cp 0x0d
		761	jr z,em3d13_error
		762	ONERR_NO
		763	pop af
		764	ex (sp),hl
		765	ret
		766	em3d13_error
		767	ld a,0xff
		768	ld (0x5d0f),a
		769	em3d13pp_ret
660	alone	770
210	dimkam	771	em3d13_de_st=$+1
		772	ld de,0 ;e=gfxmode
116	alone	773	di
344	alone	774	call shadon_pgsys ;�몫�稫� �� (��⮬�୮ - �� !!!)
116	alone	775	ei
8	dimkam	776	;call swap_sysvars
210	dimkam	777	dos3d13_sp_st=$+1 ;-wasresident+resident
		778	ld sp,0
344	alone	779	ld a,(0x5d0f) ;�� 訡��
210	dimkam	780	ret
1659	alone	781
1665	alone	782	if atm != 1
1659	alone	783	if atm2clock != 1
1398	Kulich	784	; ��প� �ᮢ GLUK � ��2+ (��㠫쭠� ��楤�� Evo ��室�� syskrnl)
145	dimkam	785	NVRAM_REG=0xdf
		786	NVRAM_VAL=0xbf
1659	alone	787
		788	bin2cmos ;a to cmos cell b (BCD)
		789	push af
		790	ld a,b
		791	ld bc,0xf7 + (NVRAM_REG<<8)
		792	out (c),a
		793	pop af
		794	ld b,-1
		795	inc b
		796	sub 10
		797	jr nc,$-3
		798	add a,10
		799	;a=num mod 10
		800	;b=num div 10
		801	sla b
		802	sla b
		803	sla b
		804	;b=(num div 10) *8
		805	add a,b
		806	add a,b
		807	ld b,NVRAM_VAL
		808	out (c),a ;BCD
		809	ret
		810
210	dimkam	811	minmes ;=$-wasresident+resident
1659	alone	812	ld h,a
		813	xor a
		814	srl h
		815	rra
		816	srl h
		817	rra
		818	srl h
		819	rra
		820	ret
8	dimkam	821
210	dimkam	822	bcd2bin ;=$-wasresident+resident
1659	alone	823	ld bc,0xf7 + (NVRAM_REG<<8)
		824	out (c),a
		825	ld b,NVRAM_VAL
		826	in a,(c)
		827	ld b,a
		828	and 0xf0
		829	rra ;*8
		830	ld c,a ;*8
		831	rra ;*4
		832	rra ;*2
		833	add a,c ;*10
		834	res 7,b
		835	res 6,b
		836	res 5,b
		837	res 4,b
		838	add a,b
		839	ret
		840
210	dimkam	841	readtime ;=$-wasresident+resident
147	alone	842	;sp=0x7fxx
8	dimkam	843	;e=gfxmode
		844	;out: hl=date, de=time
344	alone	845	;TODO �⮬�୮
145	dimkam	846	call sys_SHADOFF
147	alone	847	LD A,e;0xa8;%10101000 ;320x200 mode
145	dimkam	848	push af
		849	ld bc,0xeff7
2004	alone	850	ld a,0x80+EFF7VALUE
145	dimkam	851	out (c),a
898	alone	852	;ld bc,0xf7 + (NVRAM_REG<<8)
		853	;ld a,0x0b
		854	;out (c),a
		855	;ld b,NVRAM_VAL
		856	;in a,(c)
		857	;or 0x04
		858	;out (c),a
8	dimkam	859	xor a ;sec
		860	call bcd2bin
		861	srl a
		862	ld e,a
		863
		864	ld a,2 ;min
		865	call bcd2bin
1659	alone	866	call minmes ;a0 >> 3 => ha
8	dimkam	867	add a,e
		868	ld e,a
		869	ld d,h
		870
		871	ld a,4 ;h
		872	call bcd2bin
		873	add a,a
		874	add a,a
		875	add a,a
		876	add a,d
		877	ld d,a
		878
		879	ld a,7 ;day
		880	call bcd2bin
		881	ld l,a
		882
660	alone	883	ld a,8 ;month
8	dimkam	884	call bcd2bin
1659	alone	885	call minmes ;a0 >> 3 => ha
8	dimkam	886	add a,l
		887	ld l,a
		888
660	alone	889	ld a,9 ;year
8	dimkam	890	call bcd2bin
		891	add a,20
		892	add a,a
		893	add a,h
		894	ld h,a
1659	alone	895	jp readtimeq
		896
		897	writetime
1665	alone	898	;bc=time
		899	;hl=date
		900	push bc
1659	alone	901	call sys_SHADOFF
		902	LD A,e;0xa8;%10101000 ;320x200 mode
1665	alone	903	pop de
1659	alone	904	push af
145	dimkam	905	ld bc,0xeff7
2004	alone	906	ld a,0x80+EFF7VALUE
1659	alone	907	out (c),a
		908
		909	ld a,e
		910	add a,a
		911	and 63
		912	ld b,0 ;sec
		913	call bin2cmos
		914
		915	ld a,d
		916	rra
		917	rra
		918	rra
		919	and 31 ;h
		920	ld b,4
		921	call bin2cmos
		922
		923	ex de,hl
		924	add hl,hl
		925	add hl,hl
		926	add hl,hl
		927	ex de,hl
1667	alone	928	ld a,d
1659	alone	929	and 63 ;m
		930	ld b,2
		931	call bin2cmos
		932
		933	ld a,h
		934	srl a
		935	sub 20
		936	ld b,9 ;year
		937	call bin2cmos
		938
		939	ld a,l
		940	and 31
		941	ld b,7 ;day
		942	call bin2cmos
		943
		944	add hl,hl
		945	add hl,hl
		946	add hl,hl
		947	ld a,h
		948	and 15
		949	ld b,8 ;month
		950	call bin2cmos
		951	readtimeq
		952	ld bc,0xeff7
2004	alone	953	ld a,0+EFF7VALUE
145	dimkam	954	out (c),a
		955	pop af
1665	alone	956	ld e,a ;!!! ��⮬ �㤥� �ᯮ�짮�� readtime
		957	jp shadon_pgsys
		958
		959	else ;if atm2clock == 1
		960
1398	Kulich	961	; ��প� �ᮢ 8952 ��2+ � ��8
		962	cmd2ve: ;e=command ��頥� १�� A
		963	di
1668	kulich	964	ld bc,0x55FE ;�� 8952
		965	in a,(c) ;��室 � ०��
		966	ld b,e ;�� E ��७�c�� B
		967	in a,(c) ;�믮��
1398	Kulich	968	ei
		969	ret
1668	kulich	970	send2ve: ;e=command b=data
		971	push de
		972	ld e,b
		973	ld d,a
		974	di
		975	ld bc,0x55FE ;�� 8952
		976	in a,(c) ;��室 � ०��
		977	ld b,e ;�� E ��७�c�� B
		978	IN a,(c)
		979	ld b,d ;��ࠬ��
		980	in a,(c)
		981	ei
		982	pop de
		983	ret
1659	alone	984	writetime
1665	alone	985	;bc=time
		986	;hl=date
		987	;TODO (keep de!)
1668	kulich	988	push bc
		989	call sys_SHADOFF
		990	LD A,e;0xa8;%10101000 ;320x200 mode
		991	pop de
		992	push af
		993	ld bc,0xeff7
2004	alone	994	ld a,0x80+EFF7VALUE
1668	kulich	995	out (c),a
1659	alone	996
1668	kulich	997	ld a,e
		998	add a,a
		999	and 63
		1000	ld b,0x11 ;sec
		1001	call send2ve
		1002
		1003	ld a,d
		1004	rra
		1005	rra
		1006	rra
		1007	and 31 ;h
		1008	ld b,0x91
		1009	call send2ve
		1010
		1011	ex de,hl
		1012	add hl,hl
		1013	add hl,hl
		1014	add hl,hl
		1015	ex de,hl
		1016	ld a,d
		1017	and 63 ;m
		1018	ld b,0x51
		1019	call send2ve
		1020
		1021	ld a,h
		1022	srl a
		1023	;sub 20
		1024	ld b,0x93 ;year
		1025	call send2ve
		1026
		1027	ld a,l
		1028	and 31
		1029	ld b,0x13 ;day
		1030	call send2ve
		1031
		1032	add hl,hl
		1033	add hl,hl
		1034	add hl,hl
		1035	ld a,h
		1036	and 15
		1037	ld b,0x53 ;month
		1038	call send2ve
		1039	ld bc,0xeff7
2004	alone	1040	ld a,0+EFF7VALUE
1668	kulich	1041	out (c),a
		1042	pop af
		1043	ld e,a ;!!! ��⮬ �㤥� �ᯮ�짮�� readtime
		1044	jp shadon_pgsys
		1045
		1046
1398	Kulich	1047	readtime ;=$-wasresident+resident
		1048	;sp=0x7fxx
		1049	;e=gfxmode
		1050	;out: hl=date, de=time
		1051	;TODO �⮬�୮
8	dimkam	1052
1398	Kulich	1053	call sys_SHADOFF
		1054	LD A,e;0xa8;%10101000 ;320x200 mode
		1055	push af
		1056	push bc
		1057
		1058	ld e, 0x90 ;hours
		1059	call cmd2ve
		1060	ld l, a
		1061	ADD HL,HL
		1062	ADD HL,HL
		1063	ADD HL,HL
		1064	ADD HL,HL
		1065	ADD HL,HL
		1066	ADD HL,HL
		1067	ld e, 0x50 ;Minutes
		1068	call cmd2ve
		1069	add a,l
		1070	ld l,a
		1071	ADD HL,HL
		1072	ADD HL,HL
		1073	ADD HL,HL
		1074	ADD HL,HL
		1075	ADD HL,HL
		1076	ld e, 0x10 ;Seconds
		1077	call cmd2ve
		1078	srl a
		1079	add a,l
		1080	ld l,a
		1081	push hl ;save time
		1082
		1083	; Date
		1084	ld e, 0x92 ;year
		1085	call cmd2ve
1668	kulich	1086	;add a, 20
1398	Kulich	1087	ld l, a
		1088	ADD HL,HL
		1089	ADD HL,HL
		1090	ADD HL,HL
		1091	ADD HL,HL
		1092
		1093	ld e, 0x52 ;month
		1094	call cmd2ve
		1095	add a,l
		1096	ld l,a
		1097	ADD HL,HL
		1098	ADD HL,HL
		1099	ADD HL,HL
		1100	ADD HL,HL
		1101	ADD HL,HL
		1102
		1103	ld e, 0x12 ;day
		1104	call cmd2ve
		1105	add a,l
		1106	ld l,a
		1107	pop de
		1108
		1109	pop bc
		1110	pop af
		1111	jp shadon_pgsys_a
1665	alone	1112
		1113	endif ;if atm2clock != 1
		1114
		1115	endif ;if atm != 1
210	dimkam	1116	;disp $-wasresident+resident
		1117
208	dimkam	1118
		1119	ds 100
		1120	trdos_sp
		1121	varbas_stor
		1122	ds 32
106	alone	1123	ent
8	dimkam	1124	resident_sz=$-wasresident
106	alone	1125	display "residentend=",resident+resident_sz,"<=",trdos_catbuf
8	dimkam	1126
		1127	wastrdosfs
		1128	disp COMMANDLINE;PROGSTART
		1129	idle
		1130	db "idle",0
		1131	ds PROGSTART-$
		1132	include "idle.asm"
		1133	idle_sz=$-idle
		1134	ent
147	alone	1135	disp 0x4000+idle+idle_sz
8	dimkam	1136	include "trdosfs.asm"
62	Alone	1137	include "trdosio.asm"
8	dimkam	1138	include "bdospg2.asm"
		1139	ent
		1140	trdosfs_sz=$-wastrdosfs
147	alone	1141	display "trdosfs_sz=",/h,trdosfs_sz,"<=0x1c00"
8	dimkam	1142
		1143	end
		1144	wassys
		1145
		1146	SLOT 0
		1147	page COMPILEPG_SYS0
		1148	SLOT 1
		1149	page COMPILEPG_SYS1
147	alone	1150	org 0x0000
8	dimkam	1151	sysbegin
62	Alone	1152	include "syskrnl.asm"
1123	alone	1153
		1154	display "$ before align=",syskrnl_end
		1155	if 1
		1156	macro SETHANDLER cmd,addr
		1157	org wastbdoscmds+cmd
		1158	db addr&0xff
		1159	org wastbdoscmds+256+cmd
		1160	db addr/256
		1161	endm
		1162
		1163	ds 0xff&(-syskrnl_end)
		1164	tbdoscmds=syskrnl_end+(0xff&(-syskrnl_end))
		1165	wastbdoscmds
1323	alone	1166	ds 256,BDOS_fail&0xff
		1167	ds 256,BDOS_fail/256
1123	alone	1168
1297	alone	1169	SETHANDLER CMD_GETPAGEOWNER,BDOS_getpageowner
1123	alone	1170	SETHANDLER CMD_WRITEHANDLE,BDOS_writehandle
		1171	SETHANDLER CMD_WIZNETREAD,BDOS_wiznetread
		1172	SETHANDLER CMD_YIELDKEEP,BDOS_yieldkeep
		1173	SETHANDLER CMD_YIELD,BDOS_yield
		1174	SETHANDLER CMD_READHANDLE,BDOS_readhandle
		1175	SETHANDLER CMD_GETKEYMATRIX,BDOS_getkeymatrix
		1176	SETHANDLER CMD_GETTIMER,BDOS_gettimer
		1177	SETHANDLER CMD_CHECKPID,BDOS_checkpid
		1178	SETHANDLER CMD_SETSCREEN,BDOS_setscreen
		1179	SETHANDLER CMD_PRATTR,BDOS_prattr
		1180	SETHANDLER CMD_SETXY,BDOS_setxy
		1181	SETHANDLER CMD_SETCOLOR,BDOS_setcolor
		1182	SETHANDLER CMD_PRCHAR,BDOS_prchar
		1183	SETHANDLER CMD_GETATTR,BDOS_getattr
		1184	SETHANDLER CMD_SETDTA,BDOS_setdta;0x1a
		1185	SETHANDLER CMD_FOPEN,BDOS_fopen;0x0f
		1186	SETHANDLER CMD_FREAD,BDOS_fread;0x14
		1187	SETHANDLER CMD_FCLOSE,BDOS_fclose;0x10
		1188	SETHANDLER CMD_FDEL,BDOS_fdel;0x13 ;DEPRECATED!!!!!
		1189	SETHANDLER CMD_FCREATE,BDOS_fcreate;0x16
		1190	SETHANDLER CMD_FWRITE,BDOS_fwrite;0x15
		1191	SETHANDLER CMD_FSEARCHFIRST,BDOS_fsearchfirst;0x11
		1192	SETHANDLER CMD_FSEARCHNEXT,BDOS_fsearchnext;0x12
		1193	SETHANDLER CMD_OPENDIR,BDOS_opendir
		1194	SETHANDLER CMD_READDIR,BDOS_readdir
		1195	SETHANDLER CMD_SETDRV,BDOS_setdrv
		1196	SETHANDLER CMD_PARSEFNAME,BDOS_parse_filename;0x5c
		1197	SETHANDLER CMD_CHDIR,BDOS_chdir
		1198	SETHANDLER CMD_GETPATH,BDOS_getpath
		1199	SETHANDLER CMD_RUNAPP,BDOS_runapp
		1200	SETHANDLER CMD_NEWAPP,BDOS_newapp
		1201	SETHANDLER CMD_CLS,BDOS_cls
		1202	SETHANDLER CMD_SETGFX,BDOS_setgfx
		1203	SETHANDLER CMD_SETPAL,BDOS_setpal
		1204	SETHANDLER CMD_GETMAINPAGES,BDOS_getmainpages
		1205	SETHANDLER CMD_NEWPAGE,BDOS_newpage
		1206	SETHANDLER CMD_DELPAGE,BDOS_delpage
		1207	SETHANDLER CMD_MOUNT,BDOS_mount
		1208	SETHANDLER CMD_FREEZEAPP,BDOS_freezeapp
		1209	SETHANDLER CMD_MKDIR,BDOS_mkdir
		1210	SETHANDLER CMD_RENAME,BDOS_rename
		1211	SETHANDLER CMD_SETSYSDRV,BDOS_setsysdrv
		1212	;SETHANDLER CMD_FWRITE_NBYTES,BDOS_fwrite_nbytes
		1213	SETHANDLER CMD_SCROLLUP,BDOS_scrollup
		1214	SETHANDLER CMD_SCROLLDOWN,BDOS_scrolldown
		1215	SETHANDLER CMD_OPENHANDLE,BDOS_openhandle
		1216	SETHANDLER CMD_CREATEHANDLE,BDOS_createhandle
		1217	SETHANDLER CMD_CLOSEHANDLE,BDOS_closehandle
		1218	SETHANDLER CMD_SEEKHANDLE,BDOS_seekhandle
		1219	SETHANDLER CMD_TELLHANDLE,BDOS_tellhandle
		1220	SETHANDLER CMD_SETFILETIME,BDOS_setfiletime
		1221	SETHANDLER CMD_GETFILETIME,BDOS_getfiletime
		1222	SETHANDLER CMD_GETTIME,BDOS_gettime
		1223	SETHANDLER CMD_GETXY,BDOS_getxy
		1224	SETHANDLER CMD_GETAPPMAINPAGES,BDOS_getappmainpages
		1225	SETHANDLER CMD_DROPAPP,BDOS_dropapp
		1226	SETHANDLER CMD_WIZNETOPEN,BDOS_wiznetopen
		1227	SETHANDLER CMD_WIZNETCLOSE,BDOS_wiznetclose
		1228	SETHANDLER CMD_WIZNETWRITE,BDOS_wiznetwrite
		1229	SETHANDLER CMD_GETFILESIZE,BDOS_getfilesize
		1230	SETHANDLER CMD_DELETE,BDOS_delete
		1231	SETHANDLER CMD_GETCHILDRESULT,BDOS_getchildresult
		1232	SETHANDLER CMD_SETWAITING,BDOS_setwaiting
		1233	SETHANDLER CMD_SETBORDER,BDOS_setborder
		1234	SETHANDLER CMD_READSECTORS,BDOS_readsectors
		1235	SETHANDLER CMD_WRITESECTORS,BDOS_writesectors
		1236	SETHANDLER CMD_SETMAINPAGE,BDOS_setmainpage
		1237	SETHANDLER CMD_SETMUSIC,BDOS_setmusic
		1238	SETHANDLER CMD_PLAYCOVOX,BDOS_playcovox
		1239	SETHANDLER CMD_GETSTDINOUT,BDOS_getstdinout
		1240	SETHANDLER CMD_SETSTDINOUT,BDOS_setstdinout
		1241	SETHANDLER CMD_HIDEFROMPARENT,BDOS_hidefromparent
		1242	SETHANDLER CMD_RNDRD,BDOS_rndrd
		1243	SETHANDLER CMD_RNDWR,BDOS_rndwr
		1244	SETHANDLER CMD_GETFILINFO,BDOS_getfilinfo
		1245	SETHANDLER CMD_RESERV_1,BDOS_reserv_1
		1246	SETHANDLER CMD_GETCONFIG,BDOS_get_config
1477	alone	1247	SETHANDLER CMD_GETMEMPORTS,BDOS_getmemports
1659	alone	1248	SETHANDLER CMD_SETTIME,BDOS_settime
1895	alone	1249	SETHANDLER CMD_GETPAL,BDOS_getpal
1123	alone	1250
		1251	org wastbdoscmds+512
		1252	trecode=tbdoscmds+512
		1253
		1254	else
		1255
		1256	tbdoscmds=syskrnl_end
		1257	wastbdoscmds
		1258	db CMD_WRITEHANDLE
		1259	db CMD_WIZNETREAD
		1260	db CMD_YIELDKEEP
		1261	db CMD_YIELD
		1262	db CMD_READHANDLE
		1263	db CMD_GETKEYMATRIX
		1264	db CMD_GETTIMER
		1265	db CMD_CHECKPID
		1266	db CMD_SETSCREEN
		1267	db CMD_PRATTR
		1268	db CMD_SETXY
		1269	db CMD_SETCOLOR
		1270	db CMD_PRCHAR
		1271	db CMD_GETATTR
		1272	db CMD_SETDTA;0x1a
		1273	db CMD_FOPEN;0x0f
		1274	db CMD_FREAD;0x14
		1275	db CMD_FCLOSE;0x10
		1276	db CMD_FDEL;0x13 ;DEPRECATED!!!!!
		1277	db CMD_FCREATE;0x16
		1278	db CMD_FWRITE;0x15
		1279	db CMD_FSEARCHFIRST;0x11
		1280	db CMD_FSEARCHNEXT;0x12
		1281	db CMD_OPENDIR
		1282	db CMD_READDIR
		1283	db CMD_SETDRV
		1284	db CMD_PARSEFNAME;0x5c
		1285	db CMD_CHDIR
		1286	db CMD_GETPATH
		1287	db CMD_RUNAPP
		1288	db CMD_NEWAPP
		1289	db CMD_CLS
		1290	db CMD_SETGFX
		1291	db CMD_SETPAL
		1292	db CMD_GETMAINPAGES
		1293	db CMD_NEWPAGE
		1294	db CMD_DELPAGE
		1295	db CMD_MOUNT
		1296	db CMD_FREEZEAPP
		1297	db CMD_MKDIR
		1298	db CMD_RENAME
		1299	db CMD_SETSYSDRV
		1300	;db CMD_FWRITE_NBYTES
		1301	db CMD_SCROLLUP
		1302	db CMD_SCROLLDOWN
		1303	db CMD_OPENHANDLE
		1304	db CMD_CREATEHANDLE
		1305	db CMD_CLOSEHANDLE
		1306	db CMD_SEEKHANDLE
		1307	db CMD_TELLHANDLE
		1308	db CMD_SETFILETIME
		1309	db CMD_GETFILETIME
		1310	db CMD_GETTIME
		1311	db CMD_GETXY
		1312	db CMD_GETAPPMAINPAGES
		1313	db CMD_DROPAPP
		1314	db CMD_WIZNETOPEN
		1315	db CMD_WIZNETCLOSE
		1316	db CMD_WIZNETWRITE
		1317	db CMD_GETFILESIZE
		1318	db CMD_DELETE
		1319	db CMD_GETCHILDRESULT
		1320	db CMD_SETWAITING
		1321	db CMD_SETBORDER
		1322	db CMD_READSECTORS
		1323	db CMD_WRITESECTORS
		1324	db CMD_SETMAINPAGE
		1325	db CMD_SETMUSIC
		1326	db CMD_PLAYCOVOX
		1327	db CMD_GETSTDINOUT
		1328	db CMD_SETSTDINOUT
		1329	db CMD_HIDEFROMPARENT
		1330	db CMD_RNDRD
		1331	db CMD_RNDWR
		1332	db CMD_GETFILINFO
		1333	db CMD_RESERV_1
		1334	db CMD_GETCONFIG
1477	alone	1335	db CMD_GETMEMPORTS
1659	alone	1336	db CMD_SETTIME
1895	alone	1337	db CMD_GETPAL
1123	alone	1338	nbdoscmds=$-wastbdoscmds
1895	alone	1339	dw BDOS_getpal
1659	alone	1340	dw BDOS_settime
1477	alone	1341	dw BDOS_getmemports
1123	alone	1342	dw BDOS_get_config
		1343	dw BDOS_reserv_1
		1344	dw BDOS_getfilinfo
		1345	dw BDOS_rndwr
		1346	dw BDOS_rndrd
		1347	dw BDOS_hidefromparent
		1348	dw BDOS_setstdinout
		1349	dw BDOS_getstdinout
		1350	dw BDOS_playcovox
		1351	dw BDOS_setmusic
		1352	dw BDOS_setmainpage
		1353	dw BDOS_writesectors
		1354	dw BDOS_readsectors
		1355	dw BDOS_setborder
		1356	dw BDOS_setwaiting
		1357	dw BDOS_getchildresult
		1358	dw BDOS_delete
		1359	dw BDOS_getfilesize
		1360	dw BDOS_wiznetwrite
		1361	dw BDOS_wiznetclose
		1362	dw BDOS_wiznetopen
		1363	dw BDOS_dropapp
		1364	dw BDOS_getappmainpages
		1365	dw BDOS_getxy
		1366	dw BDOS_gettime
		1367	dw BDOS_getfiletime
		1368	dw BDOS_setfiletime
		1369	dw BDOS_tellhandle
		1370	dw BDOS_seekhandle
		1371	dw BDOS_closehandle
		1372	dw BDOS_createhandle
		1373	dw BDOS_openhandle
		1374	dw BDOS_scrolldown
		1375	dw BDOS_scrollup
		1376	;dw BDOS_fwrite_nbytes
		1377	dw BDOS_setsysdrv
		1378	dw BDOS_rename
		1379	dw BDOS_mkdir
		1380	dw BDOS_freezeapp
		1381	dw BDOS_mount
		1382	dw BDOS_delpage
		1383	dw BDOS_newpage
		1384	dw BDOS_getmainpages
		1385	dw BDOS_setpal
		1386	dw BDOS_setgfx
		1387	dw BDOS_cls
		1388	dw BDOS_newapp
		1389	dw BDOS_runapp
		1390	dw BDOS_getpath
		1391	dw BDOS_chdir
		1392	dw BDOS_parse_filename
		1393	dw BDOS_setdrv
		1394	dw BDOS_readdir
		1395	dw BDOS_opendir
		1396	dw BDOS_fsearchnext
		1397	dw BDOS_fsearchfirst
		1398	dw BDOS_fwrite
		1399	dw BDOS_fcreate
		1400	dw BDOS_fdel ;DEPRECATED!!!!!
		1401	dw BDOS_fclose
		1402	dw BDOS_fread
		1403	dw BDOS_fopen
		1404	dw BDOS_setdta
		1405	dw BDOS_getattr
		1406	dw BDOS_prchar
		1407	dw BDOS_setcolor
		1408	dw BDOS_setxy
		1409	dw BDOS_prattr
		1410	dw BDOS_setscreen
		1411	dw BDOS_checkpid
		1412	dw BDOS_gettimer
		1413	dw BDOS_getkeymatrix
		1414	dw BDOS_readhandle
		1415	dw BDOS_yield
		1416	dw BDOS_yieldkeep
		1417	dw BDOS_wiznetread
		1418	dw BDOS_writehandle
		1419	trecode=tbdoscmds+$-wastbdoscmds
		1420	endif
		1421
		1422	;TODO �࠭�� אַ � ⥪�⮢�� ࠭�? � �᫨ ��, � ��⠭��? �� ᮡ��?
		1423	incbin "../_sdk/codepage/866toatm"
		1424
		1425	syscodesz=trecode+256-wassyscode
		1426	display "syscodesz=",/h,syscodesz," < minstack=",/h,SYSMINSTACK
		1427
8	dimkam	1428	wasuserkernel
147	alone	1429	disp 0x0000
62	Alone	1430	include "userkrnl.asm"
8	dimkam	1431	ent
		1432	userkernel_sz=$-wasuserkernel
		1433	;display "wasuserkernel=",/d,wasuserkernel
		1434	;display "wasuserkernel_end=",/d,$
		1435	;display "userkernel_sz=",/d,userkernel_sz
1123	alone	1436	;wastjump
		1437	; include "tjump.asm"
		1438	;tjump_sz=$-wastjump
147	alone	1439	ds 0x4000-$
95	demige	1440	incbin "../fatfs4os/fatfs.raw"
8	dimkam	1441	sysend
		1442
		1443	;display "begin=",/d,begin
		1444	;display "end=",/d,end
		1445
		1446	;display "sysbegin=",/d,sysbegin
		1447	;display "sysend=",/d,sysend
299	alone	1448
8	dimkam	1449	SLOT 1
		1450	page COMPILEPG_INIT
		1451	savebin "initcode.c",begin,end-begin
		1452
		1453	SLOT 0
		1454	page COMPILEPG_SYS0
		1455	SLOT 1
		1456	page COMPILEPG_SYS1
		1457	savebin "syscode.c",sysbegin,sysend-sysbegin
		1458
1475	alone	1459	LABELSLIST "..\..\us\user.l",1

Subversion Repositories NedoOS

(root)/src/kernel/main.asm – Rev 2004