Subversion Repositories pentevo

Rev

Rev 665 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed | ?url?

  1.  
  2. ;LAST UPDATE: 07.08.2017 savelij
  3.  
  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
  22.  
  23. ;ADR=>18B7
  24. ADR_START_COM   LD (TRD_5CC6),HL
  25.                 LD DE,(TRD_5CEB)                ;ТРЕК И СЕКТОР МЕСТОПОЛОЖЕНИЯ ФАЙЛА
  26.                 RET
  27. ;ADR=>1CFE
  28. DELETE_BUFFER   CALL DELETE_BUF
  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
  42.                 LD BC,(TRD_5CC6)                ;АДРЕС ЗАГРУЗКИ ИЗ КОМАНДНОЙ СТРОКИ LD BC,(TRD_5CD9)
  43.                 PUSH BC
  44.                 RET
  45.  
  46. ;ADR=>20D1
  47. FORMAT_TREK_A0  AND A
  48. FORMAT_TREK_A   CALL PRINT_NUM_TRK
  49.                 JP FORMAT_TREK
  50.  
  51. ;ADR=>20D1
  52. FORMAT_TREK_A1  SCF
  53.                 JR FORMAT_TREK_A
  54.  
  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
  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
  93.                 LD HL,(E_LINE)
  94.                 LD (CH_ADD),HL
  95.                 RST 0X20
  96.                 DW 0X19FB
  97.                 RST 0X20
  98.                 DW 0X18
  99.                 RST 0X20
  100.                 DW 0X16B0
  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
  126.