WebSVN – pentevo – Blame – /rom/page1/evo-dos/patch.a80

Rev	Author	Line No.	Line
623	savelij	1
833	savelij	2	;LAST UPDATE: 28.07.2019 savelij
623	savelij	3
764	savelij	4	TITLE "patch.a80"
		5
833	savelij	6	;ᬥ�� ᪠ �� ன �� TR-DOS
		7	SET_CURRDRV LD B,A
		8	CALL SET_CURRVIRT
		9	LD A,(NUM_ALT_PAGE)
		10	CP ROM_ADD_BAS48 \| 0X80
835	savelij	11	LD A,B
833	savelij	12	CALL NZ,COM_01 ;��ன�� ⮫쪮 �� ॠ�쭮� ��᪥��
		13	JP ERR_OK
		14
702	savelij	15	;[0x18B7 �� ]
623	savelij	16	ADR_START_COM LD (TRD_5CC6),HL
		17	LD DE,(TRD_5CEB) ;��
		18	RET
		19
702	savelij	20	;[0x1CFE �� ]
678	savelij	21	DELETE_BUFFER CALL DELETE_BUF
623	savelij	22	JP CLRBUF_EDITOR
		23
702	savelij	24	;[0x1D5E �� ]
		25	RUN_FILE JP Z,WORK4AUTORUN ; ��
623	savelij	26	CP "C"
		27	JP NZ,SINTAX_ERROR
678	savelij	28	RUNCODE LD HL,RUN_CODE
623	savelij	29	LD (TRD_5D1A),HL
		30	JP END_COMAND
		31
702	savelij	32	;[0x36E8 �� ]
623	savelij	33	RUN_CODE CALL RESTORE_SP
		34	LD BC,(TRD_5CC6) ;�� LD BC,(TRD_5CD9)
		35	PUSH BC
		36	RET
		37
702	savelij	38	;[0x214A �� /��]
678	savelij	39	;�� FAT ��
		40	;�� TR-DOS ��
761	savelij	41	IF EMU
678	savelij	42	GET_COMMAND2 LD A,(TRD_5CEF)
		43	AND A
702	savelij	44	CALL NZ,NOMER_DRV ;�� FAT �� "."
		45	RET C ;�� FAT ��
678	savelij	46	LD A,(TRD_5D19)
		47	ADD A,"A"
		48	RST 0X10
		49	RET
761	savelij	50	ENDIF
678	savelij	51
689	savelij	52	;[�� ]
623	savelij	53	PRINT_NUM_TRK PUSH DE
		54	PUSH AF
		55	PUSH DE
		56	LD A,0X16
		57	RST 0X10
		58	LD A,(0X5C6B)
		59	DEC A
		60	RST 0X10
		61	LD A,0
		62	RST 0X10
		63	LD HL,TXT_FORMAT_TRK
		64	RST 0X18
		65	POP DE
		66	LD C,E
		67	LD B,0
		68	CALL PRINT_CHISLO
		69	LD HL,TXT_FSIDE
		70	RST 0X18
		71	POP AF
		72	LD A,"0"
		73	ADC A,0
		74	RST 0X10
		75	POP DE
		76	RET
		77
		78	TXT_FORMAT_TRK DC "FORMAT TRACK: "
		79	TXT_FSIDE DC " SIDE: "
		80
702	savelij	81	;[0x3057 �� "." �� ]
623	savelij	82	CMP_SPECSYM LD HL,(TRD_5CD9)
		83	LD A,(HL)
		84	CP "."
		85	JP NZ,FIND_KEYWORD
		86	POP HL
		87	RET
		88
702	savelij	89	;[0x0325 ENDCOMAND]
678	savelij	90	ENDCOMAND LD A,D
		91	CP "."
		92	JP NZ,END_COMAND
		93	cp __RETURN
702	savelij	94	call nz,CREATE_BUF ; ��
678	savelij	95	ld a,9
702	savelij	96	ld (TRD_5D06),a ; ��
678	savelij	97	xor a
702	savelij	98	ld (TRD_5D0F),a ; �� TR-DOS
		99	ld (TRD_5CD6),a ; #FF-��
		100	ld (TRD_5D10),a ; ��
678	savelij	101	ld hl,FLAGS
		102	res 7,(hl)
		103	LD HL,COM_DOT
		104	JP LOC_353
		105
702	savelij	106	;[0x3EBF BUGFIX_3EBF]
623	savelij	107	BUGFIX_3EBF PUSH AF
		108	PUSH HL
		109	CALL GET_TIME_HEAD
		110	LD B,A
		111	POP HL
		112	POP AF
		113	JP HEAD_POSITION
678	savelij	114
702	savelij	115	;[0x211E �� ]
689	savelij	116	CLRBUF_EDITOR2 POP HL
		117	RES 7,(IY+1)
678	savelij	118	RST 0X20
689	savelij	119	DW 0X19FB
		120	XOR A
		121	LD (SUBPPC),A
		122	DEC A
		123	LD (ERR_NR),A
		124	LD HL,(E_LINE)
		125	LD (CH_ADD),HL
678	savelij	126	RST 0X20
689	savelij	127	DW 0X19FB
678	savelij	128	RST 0X20
689	savelij	129	DW 0X18
		130	RST 0X20
678	savelij	131	DW 0X16B0
		132	RET
		133
702	savelij	134	;[�� ]
678	savelij	135	loc_20D1 AND A
		136	CALL PRINT_NUM_TRK
		137	CALL FORMAT_TREK
		138	CALL COM_17
		139	SCF
		140	JP PRINT_NUM_TRK

Subversion Repositories pentevo

?pathlinks? – Rev 835