Subversion Repositories pentevo

Rev

Rev 627 | Rev 689 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1.  
  2. ;LAST UPDATE: 13.12.2013 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_BUF_     CALL DELETE_BUF
  12.                 JP CLRBUF_EDITOR
  13.  
  14. RUN_FILE        LD A,(TRD_5CE5)         ; РАСШИРЕНИЕ ФАЙЛА
  15.                 CP "B"
  16.                 JP Z,WORK4AUTORUN       ; ОБРАБОТКА СТРОКИ АВТОЗАПУСКА БЕЙСИКА
  17.                 CP "C"
  18.                 JP NZ,SINTAX_ERROR
  19.                 LD HL,RUN_CODE
  20.                 LD (TRD_5D1A),HL
  21.                 JP END_COMAND
  22.  
  23. RUN_CODE        CALL RESTORE_SP
  24.                 LD BC,(TRD_5CC6)                ;АДРЕС ЗАГРУЗКИ ИЗ КОМАНДНОЙ СТРОКИLD BC,(TRD_5CD9)
  25.                 PUSH BC
  26.                 RET
  27.  
  28. FORMAT_TREK_    CALL PRINT_NUM_TRK
  29.                 CALL FORMAT_TREK
  30.                 LD A,(TRD_5CDA)
  31.                 RET
  32.  
  33. ;ПЕЧАТЬ ТЕКУЩЕГО ФОРМАТИРУЕМОГО ТРЕКА И СТОРОНЫ
  34. PRINT_NUM_TRK   PUSH DE
  35.                 PUSH AF
  36.                 PUSH DE
  37.                 LD A,0X16
  38.                 RST 0X10
  39.                 LD A,(0X5C6B)
  40.                 DEC A
  41.                 RST 0X10
  42.                 LD A,0
  43.                 RST 0X10
  44.                 LD HL,TXT_FORMAT_TRK
  45.                 RST 0X18
  46.                 POP DE
  47.                 LD C,E
  48.                 LD B,0
  49.                 CALL PRINT_CHISLO
  50.                 LD HL,TXT_FSIDE
  51.                 RST 0X18
  52.                 POP AF
  53.                 LD A,"0"
  54.                 ADC A,0
  55.                 RST 0X10
  56.                 POP DE
  57.                 RET
  58.                
  59. TXT_FORMAT_TRK  DC "FORMAT TRACK: "
  60. TXT_FSIDE       DC "  SIDE: "
  61.  
  62. CLRBUF_EDITOR_ 
  63. ;               LD HL,(CH_ADD);(K_CUR)
  64. ;               LD DE,(E_LINE)
  65. ;               RST 0X20
  66. ;               DW 0X19E5
  67.                 RST 0X20
  68.                 DW 0X16B0;F
  69.                 LD HL,(E_LINE)          ; АДРЕС НАЧАЛА РЕДАКТИРУЕМОЙ СТРОКИ
  70.                 RET
  71.  
  72. CMP_SPECSYM     LD HL,(TRD_5CD9)
  73.                 LD A,(HL)
  74.                 CP "."
  75.                 JP NZ,FIND_KEYWORD
  76.                 POP HL
  77.                 RET
  78.  
  79. FOR_LOC_306F    RST 0X20
  80.                 DW 0X19E8
  81.                 RST 0X20
  82.                 DW 0X16B0
  83.                 RET
  84.  
  85. BUGFIX_3EBF     PUSH AF
  86.                 PUSH HL
  87.                 CALL GET_TIME_HEAD
  88.                 LD B,A
  89.                 POP HL
  90.                 POP AF
  91.                 JP HEAD_POSITION
  92.