Subversion Repositories pentevo

Rev

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

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