Rev 665 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 665 | Rev 761 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | 1 | ||
| 2 | ;LAST UPDATE: 03.10.2013 savelij |
2 | ;LAST UPDATE: 07.08.2017 savelij |
| 3 | 3 | ||
| 4 | ;ADR=>0412 |
4 | IF 0 |
| - | 5 | ;[0x0325 ENDCOMAND] |
|
| 5 | DISCERROR_7 LD A,7 |
6 | ENDCOMAND LD A,D |
| - | 7 | CP "." |
|
| 6 | JP PRINT_TXTERR |
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 |
|
| 7 | 22 | ||
| 8 | ;ADR=>18B7 |
23 | ;ADR=>18B7 |
| 9 | ADR_START_COM LD (TRD_5CC6),HL |
24 | ADR_START_COM LD (TRD_5CC6),HL |
| 10 | LD DE,(TRD_5CEB) ;ТРЕК И СЕКТОР МЕСТОПОЛОЖЕНИЯ ФАЙЛА |
25 | LD DE,(TRD_5CEB) ;ТРЕК И СЕКТОР МЕСТОПОЛОЖЕНИЯ ФАЙЛА |
| 11 | RET |
26 | RET |
| 12 | ;ADR=>1CFE |
27 | ;ADR=>1CFE |
| 13 | DELETE_BUF_ CALL DELETE_BUF |
28 | DELETE_BUFFER CALL DELETE_BUF |
| 14 | JP CLRBUF_EDITOR |
29 | JP CLRBUF_EDITOR |
| 15 | 30 | ||
| 16 | ;ADR=>1D56 |
31 | ;ADR=>1D56 |
| 17 | RUN_FILE LD A,(TRD_5CE5) ; РАСШИРЕНИЕ ФАЙЛА |
32 | RUN_FILE LD A,(TRD_5CE5) ; РАСШИРЕНИЕ ФАЙЛА |
| 18 | CP "B" |
33 | CP "B" |
| Line 26... | Line 41... | ||
| 26 | RUN_CODE CALL RESTORE_SP |
41 | RUN_CODE CALL RESTORE_SP |
| 27 | LD BC,(TRD_5CC6) ;АДРЕС ЗАГРУЗКИ ИЗ КОМАНДНОЙ СТРОКИ LD BC,(TRD_5CD9) |
42 | LD BC,(TRD_5CC6) ;АДРЕС ЗАГРУЗКИ ИЗ КОМАНДНОЙ СТРОКИ LD BC,(TRD_5CD9) |
| 28 | PUSH BC |
43 | PUSH BC |
| 29 | RET |
44 | RET |
| 30 | 45 | ||
| 31 | ;ADR=>20D2,20DE |
46 | ;ADR=>20D1 |
| - | 47 | FORMAT_TREK_A0 AND A |
|
| 32 | FORMAT_TREK_ CALL PRINT_NUM_TRK |
48 | FORMAT_TREK_A CALL PRINT_NUM_TRK |
| 33 | CALL FORMAT_TREK |
49 | JP FORMAT_TREK |
| - | 50 | ||
| - | 51 | ;ADR=>20D1 |
|
| 34 | LD A,(TRD_5CDA) |
52 | FORMAT_TREK_A1 SCF |
| 35 | RET |
53 | JR FORMAT_TREK_A |
| 36 | 54 | ||
| 37 | ;ПЕЧАТЬ ТЕКУЩЕГО ФОРМАТИРУЕМОГО ТРЕКА И СТОРОНЫ |
55 | ;ПЕЧАТЬ ТЕКУЩЕГО ФОРМАТИРУЕМОГО ТРЕКА И СТОРОНЫ |
| 38 | PRINT_NUM_TRK PUSH DE |
56 | PRINT_NUM_TRK PUSH DE |
| 39 | PUSH AF |
57 | PUSH AF |
| 40 | PUSH DE |
58 | PUSH DE |
| Line 62... | Line 80... | ||
| 62 | 80 | ||
| 63 | TXT_FORMAT_TRK DC "FORMAT TRACK: " |
81 | TXT_FORMAT_TRK DC "FORMAT TRACK: " |
| 64 | TXT_FSIDE DC " SIDE: " |
82 | TXT_FSIDE DC " SIDE: " |
| 65 | 83 | ||
| 66 | ;ADR=>211E |
84 | ;ADR=>211E |
| 67 | CLRBUF_EDITOR_ LD HL,(K_CUR) |
85 | CLRBUF_EDITOR2 POP HL |
| - | 86 | RES 7,(IY+1) |
|
| - | 87 | RST 0X20 |
|
| - | 88 | DW 0X19FB |
|
| - | 89 | XOR A |
|
| - | 90 | LD (SUBPPC),A |
|
| - | 91 | DEC A |
|
| - | 92 | LD (ERR_NR),A |
|
| 68 | LD DE,(E_LINE) |
93 | LD HL,(E_LINE) |
| - | 94 | LD (CH_ADD),HL |
|
| - | 95 | RST 0X20 |
|
| - | 96 | DW 0X19FB |
|
| 69 | RST 0X20 |
97 | RST 0X20 |
| 70 | DW 0X19E5 |
98 | DW 0X18 |
| 71 | RST 0X20 |
99 | RST 0X20 |
| 72 | DW 0X16BF |
100 | DW 0X16B0 |
| 73 | LD HL,(E_LINE) ; АДРЕС НАЧАЛА РЕДАКТИРУЕМОЙ СТРОКИ |
- | |
| 74 | RET |
101 | RET |
| 75 | 102 | ||
| 76 | ;ADR=>3057 |
103 | ;ADR=>3057 |
| 77 | CMP_SPECSYM LD HL,(TRD_5CD9) |
104 | CMP_SPECSYM LD HL,(TRD_5CD9) |
| 78 | LD A,(HL) |
105 | LD A,(HL) |