Subversion Repositories pentevo

Rev

Rev 665 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
623 savelij 1 
 
761 savelij 2 
;LAST UPDATE: 07.08.2017 savelij
623 savelij 3 
 
761 savelij 4 
        IF 0
5 
;[0x0325 ENDCOMAND]
6 
ENDCOMAND       LD A,D
7 
                CP "."
8 
                JP NZ,END_COMAND
9 
                cp __RETURN
10 
                call nz,CREATE_BUF              ; �������� ������
11 
                ld a,9
12 
                ld (TRD_5D06),a                 ; ���������� �������� ����� ����� ��� ������
13 
                xor a
14 
                ld (TRD_5D0F),a                 ; ����� ������ TR-DOS
15 
                ld (TRD_5CD6),a                 ; #FF-������� ������� �������������� ������������
16 
                ld (TRD_5D10),a                 ; ������� ���� ������
17 
                ld hl,FLAGS
18 
                res 7,(hl)
19 
                LD HL,COM_DOT
20 
                JP LOC_353
21 
        ENDIF
623 savelij 22 
 
23 
;ADR=>18B7
24 
ADR_START_COM   LD (TRD_5CC6),HL
25 
                LD DE,(TRD_5CEB)                ;���� � ������ �������������� �����
26 
                RET
27 
;ADR=>1CFE
761 savelij 28 
DELETE_BUFFER   CALL DELETE_BUF
623 savelij 29 
                JP CLRBUF_EDITOR
30 
 
31 
;ADR=>1D56
32 
RUN_FILE        LD A,(TRD_5CE5)         ; ���������� �����
33 
                CP "B"
34 
                JP Z,WORK4AUTORUN       ; ��������� ������ ����������� �������
35 
                CP "C"
36 
                JP NZ,SINTAX_ERROR
37 
                LD HL,RUN_CODE
38 
                LD (TRD_5D1A),HL
39 
                JP END_COMAND
40 
 
41 
RUN_CODE        CALL RESTORE_SP
665 savelij 42 
                LD BC,(TRD_5CC6)                ;����� �������� �� ��������� ������ LD BC,(TRD_5CD9)
623 savelij 43 
                PUSH BC
44 
                RET
45 
 
761 savelij 46 
;ADR=>20D1
47 
FORMAT_TREK_A0  AND A
48 
FORMAT_TREK_A   CALL PRINT_NUM_TRK
49 
                JP FORMAT_TREK
623 savelij 50 
 
761 savelij 51 
;ADR=>20D1
52 
FORMAT_TREK_A1  SCF
53 
                JR FORMAT_TREK_A
54 
 
623 savelij 55 
;������ �������� �������������� ����� � �������
56 
PRINT_NUM_TRK   PUSH DE
57 
                PUSH AF
58 
                PUSH DE
59 
                LD A,0X16
60 
                RST 0X10
61 
                LD A,(0X5C6B)
62 
                DEC A
63 
                RST 0X10
64 
                LD A,0
65 
                RST 0X10
66 
                LD HL,TXT_FORMAT_TRK
67 
                RST 0X18
68 
                POP DE
69 
                LD C,E
70 
                LD B,0
71 
                CALL PRINT_CHISLO
72 
                LD HL,TXT_FSIDE
73 
                RST 0X18
74 
                POP AF
75 
                LD A,"0"
76 
                ADC A,0
77 
                RST 0X10
78 
                POP DE
79 
                RET
80 
 
81 
TXT_FORMAT_TRK  DC "FORMAT TRACK: "
82 
TXT_FSIDE       DC "  SIDE: "
83 
 
84 
;ADR=>211E
761 savelij 85 
CLRBUF_EDITOR2  POP HL
86 
                RES 7,(IY+1)
623 savelij 87 
                RST 0X20
761 savelij 88 
                DW 0X19FB
89 
                XOR A
90 
                LD (SUBPPC),A
91 
                DEC A
92 
                LD (ERR_NR),A
93 
                LD HL,(E_LINE)
94 
                LD (CH_ADD),HL
623 savelij 95 
                RST 0X20
761 savelij 96 
                DW 0X19FB
97 
                RST 0X20
98 
                DW 0X18
99 
                RST 0X20
100 
                DW 0X16B0
623 savelij 101 
                RET
102 
 
103 
;ADR=>3057
104 
CMP_SPECSYM     LD HL,(TRD_5CD9)
105 
                LD A,(HL)
106 
                CP "."
107 
                JP NZ,FIND_KEYWORD
108 
                POP HL
109 
                RET
110 
 
111 
;ADR=>306F
112 
FOR_LOC_306F    RST 0X20
113 
                DW 0X19E8
114 
                RST 0X20
115 
                DW 0X16B0
116 
                RET
117 
 
118 
;ADR=>3EBF
119 
BUGFIX_3EBF     PUSH AF
120 
                PUSH HL
121 
                CALL GET_TIME_HEAD
122 
                LD B,A
123 
                POP HL
124 
                POP AF
125 
                JP HEAD_POSITION