Subversion Repositories pentevo

Rev

Rev 665 | Rev 702 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed | ?url?

  1.  
  2. ;LAST UPDATE: 18.09.2014 savelij
  3.  
  4. DISCERROR_7     LD A,7
  5.                 JP PRINT_TXTERR
  6.  
  7. ADR_START_COM   LD (TRD_5CC6),HL
  8.                 LD DE,(TRD_5CEB)                ;ТРЕК И СЕКТОР МЕСТОПОЛОЖЕНИЯ ФАЙЛА
  9.                 RET
  10.  
  11. DELETE_BUFFER   CALL DELETE_BUF
  12.                 JP CLRBUF_EDITOR
  13.  
  14. RUN_FILE        JP Z,WORK4AUTORUN       ; ОБРАБОТКА СТРОКИ АВТОЗАПУСКА БЕЙСИКА
  15.                 CP "C"
  16.                 JP NZ,SINTAX_ERROR
  17. RUNCODE         LD HL,RUN_CODE
  18.                 LD (TRD_5D1A),HL
  19.                 JP END_COMAND
  20.  
  21. RUN_CODE        CALL RESTORE_SP
  22.                 LD BC,(TRD_5CC6)                ;АДРЕС ЗАГРУЗКИ ИЗ КОМАНДНОЙ СТРОКИLD BC,(TRD_5CD9)
  23.                 PUSH BC
  24.                 RET
  25.  
  26. ;ЕСЛИ КОМАНДА РАСШИРЕННАЯ ТО ПЕЧАТЬ ИМЕНИ FAT УСТРОЙСТВА
  27. ;ИНАЧЕ ПЕЧАТЬ ИМЕНИ TR-DOS ДИСКОВОДА
  28. GET_COMMAND2    LD A,(TRD_5CEF)
  29.                 AND A
  30.                 CALL NZ,NOMER_DRV       ;ПЕЧАТЬ ИМЕНИ FAT УСТРОЙСТВА ЕСЛИ КОМАНДА НЧИНАЕТСЯ С "."
  31.                 RET C                   ;ВЫХОД ЕСЛИ УЖЕ НАПЕЧАТАНА БУКВА FAT УСТРОЙСТВА
  32.                 LD A,(TRD_5D19)
  33.                 ADD A,"A"
  34.                 RST 0X10
  35.                 RET
  36.  
  37. FORMAT_TREK_    CALL PRINT_NUM_TRK
  38.                 CALL FORMAT_TREK
  39.                 LD A,(TRD_5CDA)
  40.                 RET
  41.  
  42. ;ПЕЧАТЬ ТЕКУЩЕГО ФОРМАТИРУЕМОГО ТРЕКА И СТОРОНЫ
  43. PRINT_NUM_TRK   PUSH DE
  44.                 PUSH AF
  45.                 PUSH DE
  46.                 LD A,0X16
  47.                 RST 0X10
  48.                 LD A,(0X5C6B)
  49.                 DEC A
  50.                 RST 0X10
  51.                 LD A,0
  52.                 RST 0X10
  53.                 LD HL,TXT_FORMAT_TRK
  54.                 RST 0X18
  55.                 POP DE
  56.                 LD C,E
  57.                 LD B,0
  58.                 CALL PRINT_CHISLO
  59.                 LD HL,TXT_FSIDE
  60.                 RST 0X18
  61.                 POP AF
  62.                 LD A,"0"
  63.                 ADC A,0
  64.                 RST 0X10
  65.                 POP DE
  66.                 RET
  67.                
  68. TXT_FORMAT_TRK  DC "FORMAT TRACK: "
  69. TXT_FSIDE       DC "  SIDE: "
  70.  
  71. CMP_SPECSYM     LD HL,(TRD_5CD9)
  72.                 LD A,(HL)
  73.                 CP "."
  74.                 JP NZ,FIND_KEYWORD
  75.                 POP HL
  76.                 RET
  77.  
  78. ENDCOMAND       LD A,D
  79.                 CP "."
  80.                 JP NZ,END_COMAND
  81.                 cp __RETURN
  82.                 call nz,CREATE_BUF      ; СОЗДАНИЕ БУФЕРА
  83.                 ld a,9
  84.                 ld (TRD_5D06),a         ; КОЛИЧЕСТВО СИМВОЛОВ ИМЕНИ ФАЙЛА ПРИ ПОИСКЕ
  85.                 xor a
  86.                 ld (TRD_5D0F),a         ; НОМЕР ОШИБКИ TR-DOS
  87.                 ld (TRD_5CD6),a         ; #FF-КОМАНДА ПРИНЯТА СИНТАКСИЧЕСКИМ АНАЛИЗАТОРОМ
  88.                 ld (TRD_5D10),a         ; СТАРШИЙ БАЙТ ОШИБКИ
  89.                 ld hl,FLAGS
  90.                 res 7,(hl)
  91.                 LD HL,COM_DOT
  92.                 JP LOC_353
  93.  
  94. FOR_LOC_306F    RST 0X20
  95.                 DW 0X19E8
  96.                 RST 0X20
  97.                 DW 0X16B0
  98.                 RET
  99.  
  100. BUGFIX_3EBF     PUSH AF
  101.                 PUSH HL
  102.                 CALL GET_TIME_HEAD
  103.                 LD B,A
  104.                 POP HL
  105.                 POP AF
  106.                 JP HEAD_POSITION
  107.  
  108. CLRBUF_EDITOR2  LD HL,(K_CUR)
  109.                 LD DE,(E_LINE)
  110.                 RST 0X20
  111.                 DW 0X19E5
  112.                 RST 0X20
  113.                 DW 0X16B0
  114.                 ld hl,(E_LINE)                  ; АДРЕС НАЧАЛА РЕДАКТИРУЕМОЙ СТРОКИ
  115.                 ret
  116.  
  117. CLRBUF_EDITOR1  RST 0X20
  118.                 DW 0X19E5
  119.                 RST 0X20
  120.                 DW 0X16B0
  121.                 RET
  122.  
  123. loc_20D1        AND A
  124.                 CALL PRINT_NUM_TRK
  125.                 CALL FORMAT_TREK
  126.                 CALL COM_17
  127.                 SCF
  128.                 JP PRINT_NUM_TRK
  129.