SVN операционной системы NedoOS для ZX-Evo

Rev	Author	Line No.	Line
213	alone	1	align 256
		2	distbuf;=#BA00 ;#300 ;ID,texx,dist
		3	ds 0x300
		4
		5	IF atm
		6	MACRO setpgfast pg
		7	LD A,pg
		8	setpgafast
		9	ENDM
		10	MACRO setpgafast
435	alone	11	;LD (curpg),A
213	alone	12	;LD BC,#FFF7
		13	;OUT (C),A
1620	alone	14	SETPGC000
213	alone	15	ENDM
		16	ELSE ;~atm
		17	MACRO setpg pg
		18	LD A,pg
		19	setpgA
		20	ENDM
		21	MACRO setpgA
		22	CALL SETPGA
		23	ENDM
		24	MACRO setpgfast pg
		25	LD A,pg
		26	setpgafast
		27	ENDM
		28	MACRO setpgafast
		29	LD (curpg),A
		30	LD BC,#7FFD
		31	OUT (C),A
		32	ENDM
		33	ENDIF ;~atm
		34
		35
		36
		37	wascorrlogd
		38	INCBIN "corlogd_"
		39	ORG $-256
		40	DUP 256
		41	DB {$+(scrtopx*8)}&0xff
		42	EDUP
		43	IF lores
		44	ORG $-256
		45	_=$
		46	DUP 128
		47	DB {_}&0xff
		48	_=_+2
		49	EDUP
		50	DS 128
		51	ENDIF
		52	wasda
		53	INCBIN "da"
		54	ORG $-256
		55	DUP 256
		56	DB 0xff&({$}+128)
		57	EDUP
		58	ORG $-256
		59	DUP 256
		60	DB 0xff&({$+(scrtopx*8)})
		61	EDUP
		62	IF lores
		63	ORG $-256
		64	_=$
		65	DUP 128
		66	DB {_}&0xff
		67	_=_+2
		68	EDUP
		69	DS 128
		70	ENDIF
		71
		72	TEXCODEGO
435	alone	73	IF atm == 0
213	alone	74	LD HL,0;-2
		75	ADD HL,SP
		76	LD (clscrbufsp),HL
		77	LD (eorfillsp),HL
		78	endif
		79
		80	IF atm
		81	call setpgmap4000
		82	ENDIF
1916	alone	83	LD BC,#FBDF
		84	IN A,(C)
		85	LD (mouseoldx),A
213	alone	86	CALL RECMAP
		87
		88	LD HL,tcos
		89	REtcos0
		90	DUP 2;4
		91	SRA (HL)
		92	EDUP
		93	INC L
		94	jr NZ,REtcos0
		95
1916	alone	96	INCLUDE "zxloop.asm"
213	alone	97	INCLUDE "WSCAN10.asm"
		98	INCLUDE "WREND.asm"
		99	INCLUDE "WCTRL.asm"
		100
		101	;��६�� ७�� (�� 砫� ७��)
		102	curXx
		103	curx DB #80
		104	curX DB #0
		105	curYy
		106	cury DB #80
		107	curY DB #0
		108	curxy DW 0
		109	curyx DW 0
		110	curYX DW 0
		111	curangle
		112	DW tsin
		113	demobegin
		114	IF demoplay
		115	INCBIN "demorec9"
		116	ELSE
		117	DB %00111111 ;all keys released
		118	ENDIF
		119
289	dimkam	120	;DISPLAY "PROG END=",$
213	alone	121
		122	align 256 ;DS .(-$)
		123	tables
		124	wastables
		125	shift=tables-$
		126	tlogd2sca=$+shift
		127	IF scale64
		128	IF scale64 == 3
		129	INCBIN "logd2sc3"
		130	ELSE
		131	INCBIN "logd2sc2"
		132	ENDIF
		133	ELSE
		134	INCBIN "logd2sc_"
		135	ENDIF
		136	tsqr2=$+shift
		137	INCBIN "sqr2int"
		138	tlogd=$+shift
		139	INCBIN "logd"
		140	tcorrlogd=$+shift
		141	DUP 256
		142	DB {wascorrlogd+$-tcorrlogd}&0xff
		143	EDUP
		144	tcos=$+shift
		145	INCBIN "cos"
		146	tlogcos=$+shift
		147	INCBIN "pluslcos"
		148	tda=$+shift
		149	DUP 256
		150	DB {wasda+$-tda}&0xff
		151	EDUP
		152	tctg=$+shift
		153	INCBIN "plusctg"
		154	tsin=$+shift
		155	INCBIN "sin"
		156	tscaljps=$+shift
		157	ds 256;INCBIN "scaljps"
		158	tID=$+shift
		159	MACRO WALL pgnum,num2
		160	DB pgnum,num2;-pgnum,num2
		161	ENDM
1917	alone	162	DUP 64+16 ;skip and 0..15 ;� �ਬ�� ᯮ�� ⥭� 16..35
213	alone	163	WALL 0,#02
		164	EDUP
		165	MACRO PGWALL pgnum
		166	WALL pgnum,#02
		167	WALL pgnum,#42
		168	WALL pgnum,#82
		169	WALL pgnum,#C2
		170	ENDM
		171	PGWALL 0
		172	PGWALL 1
		173	PGWALL 2
		174	PGWALL 3
		175	PGWALL 4
1917	alone	176	DUP 64-20-16 ;?..63
213	alone	177	WALL 0,#02
		178	EDUP
		179	cursprites=$+shift
		180	DS 256
		181	ltables=$-wastables
		182
1916	alone	183	include "recmap.asm"

Subversion Repositories NedoOS

?pathlinks? – Rev 1917