Subversion Repositories pentevo

Rev

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

  1.  
  2. ;LAST UPDATE: 07.10.2021 savelij
  3.  
  4. RCALL           MACRO ADDR
  5.                 LD SP,RADDR
  6.                 JP ADDR
  7.         IF MOMPASS > 1
  8. RADDR           DW $+2
  9.         ELSE
  10. RADDR := $+2
  11.         ENDIF
  12.                 ENDM
  13.  
  14. ENT_DEF         MACRO V1,V2,V3,V4
  15.                 DB V1+V2*4+V3*16+V4*64
  16.                 ENDM
  17.  
  18. _KS_SHFT        EQU 0
  19. _KS_CTRL        EQU 1
  20. _KS_ALT         EQU 2
  21. _KS_SHFT2       EQU 3
  22. _KS_CAPS        EQU 4
  23. _KS_NUM         EQU 5
  24. _KS_SCROLL      EQU 6
  25. _KS_RUS         EQU 7
  26.  
  27. ED_PROC         EQU 0
  28. ED_CHAR         EQU 1
  29. ED_SCAN         EQU 2
  30.  
  31. ED_INI          EQU 0
  32. _RU5            EQU 0
  33. _INTOF          EQU 5
  34.  
  35. BIOS            EQU 0EA00H
  36. CCP             EQU BIOS-1600H
  37.  
  38. _RESET          EQU 0
  39. _SEEK           EQU 1
  40. _FORMAT         EQU 2
  41. _RECAL          EQU 3
  42. _READ           EQU 4
  43. _WSECT          EQU 5
  44. _WRITE          EQU 6
  45. _SETCH          EQU 7
  46. _GETCH          EQU 8
  47.  
  48. ;------------------------------
  49. ; ERRORS CODES FOR C_STAT
  50. ;
  51. CS_UNKNO        EQU   0FFH    ; UNKNOWN FUNCTION
  52. CS_ERSEC        EQU   80H     ; WRONG SEQUENCE
  53. CS_UNPRN        EQU   81H     ; UNPRINTABLE CHAR IN SEQUENCE
  54. CS_NODRV        EQU   82H     ; DRIVER NOT INSTALLED
  55. CS_ERPAR        EQU   83H     ; WRONG PARAMETERS
  56. CS_NOMOD        EQU   84H     ; SCREEN MODE DOES NOT EXIST
  57. ; TEXT MODE ERRORS
  58. CST_OVER        EQU   1       ; CAN'T WRITE OVER
  59.  
  60. ADRD            EQU   7DFDH
  61.  
  62. _TF_CURATR      EQU 0        ; CURSOR IS FLEX ATTRIB
  63.  
  64. ;----------------------------
  65. ; КОДЫ ОШИБОК, ВОЗВРАЩАЕМЫЕ ДИСКОВОЙ СИСТЕМОЙ
  66. ;
  67. _ADRERR         EQU     08H     ;ОШИБКА АДРЕСАЦИИ
  68. _CHNFND         EQU     09H     ;КАНАЛ НЕ ПРИСОЕДИНЕН
  69. _HRDERR         EQU     40H     ;ОШИБКА АППАРАТУРЫ
  70. _INVALID        EQU     41H     ;НЕСООТВЕТСТВИЕ ДРАЙВЕРА АППАРАТУРЕ
  71. _DTYPER         EQU     50H     ;НЕДОПУСТИМЫЙ НОМЕР ДРАЙВЕРА В КАНАЛЕ
  72. _DRNFND         EQU     51H     ;ДРАЙВЕР ОТСУТСТВУЕТ
  73. _COMERR         EQU     52H     ;ЗАПРЕЩЕННАЯ КОМАНДА
  74. _IOERR          EQU     53H     ;ОШИБКА ВВОДА/ВЫВОДА
  75. _WR_PROT        EQU     54H     ;ЗАЩИТА ОТ ЗАПИСИ
  76. _FATAL_ERROR    EQU     56H     ;НЕ ОБРАБОТАННАЯ ФАТАЛЬНАЯ ОШИБКА
  77. _NRDY           EQU     59H     ;НЕТ ГОТОВНОСТИ АППАРАТУРЫ (TIMEOUT)
  78.  
  79. _NO_DATA        EQU     81H     ;СЕКТОР НЕ НАЙДЕН
  80. _NO_ADDR_MARK   EQU     82H     ;АДРЕСНЫЙ МАРКЕР НЕ НАЙДЕН
  81. _OVERRUN        EQU     83H     ;OVERRUN
  82. _CRC_ERR        EQU     84H     ;ОШИБКА В CRC
  83.  
  84. MAXDRVN         EQU     7       ;МАКСИМАЛЬНЫЙ НОМЕР ДРАЙВЕРА
  85.  
  86. IOBYTE          EQU     3
  87.  
  88. SYS_SP          EQU 0X8000
  89.  
  90. ED_BUF          EQU 0X7F40                      ;DS  128
  91. MAXQUI          EQU 10H                         ; KEYBUFFER SIZE
  92. BEGQUI          EQU ED_BUF+0X80                 ;DS  MAXQUI
  93.  
  94. IX_BAS          EQU 0X5F40
  95. IX_SHIFT        EQU 0X7F
  96. IX_BASE         EQU IX_BAS+IX_SHIFT
  97.  
  98. ; VARIABLES IX RELATIVE
  99. FLAG            EQU IX_BAS      ;DB 0           ;       DM     FLAG   1      <DEFB 0         >
  100. FLAG1           EQU FLAG+1      ;DB 0           ;       DM     FLAG1  1      <DEFB 0         >
  101.  
  102. CUR_X           EQU FLAG1+1     ;DB 0           ;       DM     CUR_X  1      <DEFB 0         >
  103. CUR_Y           EQU CUR_X+1     ;DB 0           ;       DM     CUR_Y  1      <DEFB 0         >
  104. W_X1            EQU CUR_Y+1     ;DB 0           ;       DM     W_X1   1      <DEFB 0         >
  105. W_Y1            EQU W_X1+1      ;DB 0           ;       DM     W_Y1   1      <DEFB 0         >
  106. W_X2            EQU W_Y1+1      ;DB 50          ;       DM     W_X2   1      <DEFB 50        >
  107. W_Y2            EQU W_X2+1      ;DB 24          ;       DM     W_Y2   1      <DEFB 24        >
  108. COLOR_P         EQU W_Y2+1      ;DB 0           ;       DM     COLOR_P 1     <DEFB 0         >
  109. COLOR_I         EQU COLOR_P+1   ;DB 7           ;       DM     COLOR_I 1     <DEFB 7         >
  110. C_STAT          EQU COLOR_I+1   ;DB 0           ;       DM     C_STAT 1      <DEFB 0         >
  111. T_FLAG          EQU C_STAT+1    ;DB 0           ;       DM     T_FLAG 1      <DEFB 0         >
  112. CUR_VAL         EQU T_FLAG+1    ;DB 0           ;       DM     CUR_VAL 1     <DEFB 0         >
  113. SCR_ADR         EQU CUR_VAL+1   ;DW 0           ;       DM     SCR_ADR 2     <DEFW 0         >
  114. COLOR_M         EQU SCR_ADR+2   ;DB 7           ;       DM     COLOR_M 1     <DEFB 7         >
  115. SAV_CUR         EQU COLOR_M+1   ;DB 0           ;       DM     SAV_CUR 1     <DEFB 0         >
  116.  
  117. MEMDSP          EQU SAV_CUR+1   ;DB 0X11        ;       DM     MEMDSP 1      <DEFB 11H       >
  118. C_CNT           EQU MEMDSP+1    ;DB 1           ;       DM     C_CNT  1      <DEFB 1         >
  119. C_MAX           EQU C_CNT+1     ;DB 10          ;       DM     C_MAX  1      <DEFB 10        >
  120. C_BEG           EQU C_MAX+1     ;DB 7           ;       DM     C_BEG  1      <DEFB 7         >
  121. C_END           EQU C_BEG+1     ;DB 8           ;       DM     C_END  1      <DEFB 8         >
  122. TMP_W           EQU C_END+1     ;DW 0           ;       DM     TMP_W  2      <DEFS 2         >
  123. C_ACT           EQU TMP_W+2     ;DB 1           ;       DM     C_ACT  1      <DEFB 1         >
  124. BEEP_D          EQU C_ACT+1     ;DW 0X3F10      ;       DM     BEEP_D 2      <DEFW 3F10H     >
  125. FE_IMG          EQU BEEP_D+2    ;DB 0XBE        ;       DM     FE_IMG 1      <DEFB 0BEH      >
  126. BORDER          EQU FE_IMG+1    ;DB 0           ;       DM     BORDER 1      <DEFB 0         >
  127. SYS_P           EQU BORDER+1    ;DB 0           ;       DM     SYS_P  1      <DEFB 0         >
  128. FUNC            EQU SYS_P+1     ;DB 0           ;       DM     FUNC   1      <DEFS 1         >
  129. FCNT            EQU FUNC+1      ;DB 0           ;       DM     FCNT   1      <DEFS 1         >
  130. PAR_PT          EQU FCNT+1      ;DW 0           ;       DM     PAR_PT 2      <DEFS 2         >
  131. BCOL            EQU PAR_PT+2    ;DB 0           ;       DM     BCOL   1      <DEFB 0         >
  132. TIME_C          EQU BCOL+1      ;DUPL 4,0       ;       DM     TIME_C 4      <DEFB 0,0,0,0   >
  133. ;  FOR KEYBOARD
  134. K_5CNT          EQU TIME_C+4    ;DB 0           ;       DM     K_5CNT 1      <DB 0           >
  135. K_LAST          EQU K_5CNT+1    ;DB 0           ;       DM     K_LAST 1      <DB 0           >
  136. K_CNT           EQU K_LAST+1    ;DB 0           ;       DM     K_CNT  1      <DB 0           >
  137. K_BUF           EQU K_CNT+1     ;DB -1          ;       DM     K_BUF  1      <DB -1          >
  138. KEY_DEL         EQU K_BUF+1     ;DB 15          ;       DM     KEY_DEL 1     <DB 15          >
  139. KEY_REP         EQU KEY_DEL+1   ;DB 5           ;       DM     KEY_REP 1     <DB 5           >
  140. TAIL            EQU KEY_REP+1   ;DB 0           ;       DM     TAIL   1      <DEFB 0         >
  141. BEEP_T          EQU TAIL+1      ;DW 0X6008      ;       DM     BEEP_T 2      <DEFW 6008H     >
  142. BEEP_K          EQU BEEP_T+2    ;DW 0X3F04      ;       DM     BEEP_K 2      <DEFW 3F04H     >
  143. ; KB SWITCH
  144. KEYBOARD        EQU BEEP_K+2    ;DB 0XC9,0,0    ;       DM     KEYBOARD  3    <DB 0C9H,0,0    >
  145. READ_K          EQU KEYBOARD+3  ;DUPL 3,0       ;       DM     READ_K    3
  146. STAT_K          EQU READ_K+3    ;DUPL 3,0       ;       DM     STAT_K    3
  147. READA_KNW       EQU STAT_K+3    ;DUPL 3,0       ;       DM     READA_KNW 3
  148. KB_TYP          EQU READA_KNW+3 ;DUPL 3,0       ;       DM     KB_TYP    3
  149. K_INIT          EQU KB_TYP+3    ;DUPL 3,0       ;       DM     K_INIT    3
  150.  
  151. KS_ASH          EQU K_INIT+3    ;DB 0           ;       DM     KS_ASH    1
  152. KS_SHIFTS       EQU KS_ASH+1    ;DB 0           ;       DM     KS_SHIFTS 1
  153. KS_UND          EQU KS_SHIFTS+1 ;DW 0           ;       DM     KS_UND    2
  154. KS_UNDS         EQU KS_UND+2    ;DB 0           ;       DM     KS_UNDS   1
  155. KS_UNDS1        EQU KS_UNDS+1   ;DB 0           ;       DM     KS_UNDS1  1
  156. I_MAX           EQU KS_UNDS1+1  ;DB 0           ;       DM     I_MAX  1
  157. I_MIN           EQU I_MAX+1     ;DB 0           ;       DM     I_MIN  1
  158. I_AVR           EQU I_MIN+1     ;DB 0           ;       DM     I_AVR  1
  159. ;  EDISK WORK VALUE
  160. ED_CYL          EQU I_AVR+1     ;DB 0           ;       DM     ED_CYL 1
  161. ;  FDISK WORK VALUE
  162. SV_SP           EQU ED_CYL+1    ;DW 0           ;       DM     SV_SP  2
  163. ;  PROTECT VALUE
  164. RTIME           EQU SV_SP+2     ;DW 0           ;       DM     RTIME  2
  165. ;  INTERPAGE LDIR'S PARAMETERS
  166. R8_FR           EQU RTIME;+2    ;DB 0           ;       DM     R8_FR  1
  167. R8_TO           EQU RTIME+1;2   ;DB 0           ;       DM     R8_TO  1
  168. ;  ESC SEQUENCE PARAMS
  169. PAR1            EQU RTIME+2     ;DB 0           ;       DM     PAR1   1
  170. PAR2            EQU PAR1+1      ;DB 0           ;       DM     PAR2   1
  171. PAR3            EQU PAR2+1      ;DB 0           ;       DM     PAR3   1
  172. PAR4            EQU PAR3+1      ;DB 0           ;       DM     PAR4   1
  173. PARR            EQU PAR4+1      ;DUPL 13,0      ;       DM     PARR   13
  174. BUF             EQU PAR1
  175. ;  POWER ON DETECTOR
  176. TST_1RUN        EQU PARR+13     ;DW 0           ;       DM     TST_1RUN 2
  177. TST_IS1         EQU TST_1RUN+2  ;DB 0           ;       DM     TST_IS1  1
  178.  
  179. ;СМЕЩЕНИЯ ОТ IX
  180. _FLAG           EQU LOW (IX_BASE-FLAG)
  181. _FLAG1          EQU LOW (IX_BASE-FLAG1)
  182. _W_X1           EQU LOW (IX_BASE-W_X1)
  183. _W_X2           EQU LOW (IX_BASE-W_X2)
  184. _W_Y1           EQU LOW (IX_BASE-W_Y1)
  185. _W_Y2           EQU LOW (IX_BASE-W_Y2)
  186. _CUR_X          EQU LOW (IX_BASE-CUR_X)
  187. _CUR_Y          EQU LOW (IX_BASE-CUR_Y)
  188. _C_STAT         EQU LOW (IX_BASE-C_STAT)
  189. _CUR_VAL        EQU LOW (IX_BASE-CUR_VAL)
  190. _T_FLAG         EQU LOW (IX_BASE-T_FLAG)
  191. _MEMDSP         EQU LOW (IX_BASE-MEMDSP)
  192. _C_CNT          EQU LOW (IX_BASE-C_CNT)
  193. _TMP_W          EQU LOW (IX_BASE-TMP_W)
  194. _C_ACT          EQU LOW (IX_BASE-C_ACT)
  195. _FE_IMG         EQU LOW (IX_BASE-FE_IMG)
  196. _BORDER         EQU LOW (IX_BASE-BORDER)
  197. _SYS_P          EQU LOW (IX_BASE-SYS_P)
  198. _FUNC           EQU LOW (IX_BASE-FUNC)
  199. _FCNT           EQU LOW (IX_BASE-FCNT)
  200. _TIME_C         EQU LOW (IX_BASE-TIME_C)
  201. _K_5CNT         EQU LOW (IX_BASE-K_5CNT)
  202. _K_LAST         EQU LOW (IX_BASE-K_LAST)
  203. _K_CNT          EQU LOW (IX_BASE-K_CNT)
  204. _K_BUF          EQU LOW (IX_BASE-K_BUF)
  205. _TAIL           EQU LOW (IX_BASE-TAIL)
  206. _KS_ASH         EQU LOW (IX_BASE-KS_ASH)
  207. _KS_SHIFTS      EQU LOW (IX_BASE-KS_SHIFTS)
  208. _KS_UND         EQU LOW (IX_BASE-KS_UND)
  209. _KS_UNDS        EQU LOW (IX_BASE-KS_UNDS)
  210. _I_MAX          EQU LOW (IX_BASE-I_MAX)
  211. _I_MIN          EQU LOW (IX_BASE-I_MIN)
  212. _ED_CYL         EQU LOW (IX_BASE-ED_CYL)
  213. _PAR1           EQU LOW (IX_BASE-PAR1)
  214. _PAR2           EQU LOW (IX_BASE-PAR2)
  215. _PAR4           EQU LOW (IX_BASE-PAR4)
  216. _TST_IS1        EQU LOW (IX_BASE-TST_IS1)
  217. _RQCHAN         EQU LOW (IX_BASE-RQCHAN)
  218. _RQCOM          EQU LOW (IX_BASE-RQCOM)
  219. _RQBLN          EQU LOW (IX_BASE-RQBLN)
  220. _RQTRACK        EQU LOW (IX_BASE-RQTRACK)
  221. _RQBLOCK        EQU LOW (IX_BASE-RQBLOCK)
  222. _RQBADR         EQU LOW (IX_BASE-RQBADR)
  223. _RQHEAD         EQU LOW (IX_BASE-RQHEAD)
  224. _REP            EQU LOW (IX_BASE-REP)
  225. _BUFT           EQU LOW (IX_BASE-BUFT)
  226. _BUFSEC         EQU LOW (IX_BASE-BUFSEC)
  227.  
  228. ; REST OF SWITCH AREA
  229. CL_SW           EQU 0XDF40
  230. SW_DO           EQU CL_SW+3
  231. OUT_SW          EQU CL_SW+3
  232. SW_CLR          EQU OUT_SW
  233.  
  234. ; SOME DATA AREAS
  235. SV_ARE          EQU SW_CLR
  236. ARR_CO          EQU SV_ARE+2
  237. SG_ENC          EQU ARR_CO+16+3
  238. ENC_SI          EQU SG_ENC+4
  239. ENC_SO          EQU ENC_SI+4
  240. PAL_BUF         EQU ENC_SO+4
  241.  
  242. ; FILLED SWITCH AREA
  243. SW_C            EQU CL_SW
  244. SW_PUT          EQU CL_SW
  245. SW_CLL          EQU CL_SW
  246. SW_SCO          EQU CL_SW
  247. SW_RRL          EQU CL_SW
  248. SW_SIZ          EQU CL_SW
  249.  
  250. ;          IN VALUE
  251. RQCHAN          EQU TST_IS1+1   ;DB 0           ;       DM      RQCHAN   1       ;НОМЕР КАНАЛА
  252. RQCOM           EQU RQCHAN+1    ;DB 0           ;       DM      RQCOM    1       ;КОМАНДА
  253. RQBLN           EQU RQCOM+1     ;DB 0           ;       DM      RQBLN    1       ;ЧИСЛО БЛОКОВ
  254. RQTRACK         EQU RQBLN+1     ;DW 0           ;       DM      RQTRACK  2       ;НОМЕР ДОРОЖКИ
  255. RQBLOCK         EQU RQTRACK+2   ;DW 0X4F00      ;       DM      RQBLOCK  2       ;НОМЕР БЛОКА
  256. RQBADR          EQU RQBLOCK+2   ;DW 0X18        ;       DM      RQBADR   2       ;БУФЕР ПОЛЬЗОВАТЕЛЯ
  257.  
  258. ;          WORK VALUE
  259. RQHEAD          EQU RQBADR+2    ;DB 7           ;       DM      RQHEAD   1       ;НОМЕР ГОЛОВКИ
  260. RQCYL           EQU RQHEAD+1    ;DW 0           ;       DM      RQCYL    2       ;НОМЕР ЦИЛИНДРА
  261. LOCBUF          EQU RQCYL+2     ;DW 0           ;       DM      LOCBUF   2       ;АДРЕС БЛОКА В БУФЕРЕ
  262. RQSECT          EQU LOCBUF+2    ;DB 7           ;       DM      RQSECT   1       ;НОМЕР СЕКТОРА
  263. DCBUF           EQU RQSECT+1    ;DW 0X300       ;       DM      DCBUF    2       ;АДРЕС БУФЕРА
  264. REP             EQU DCBUF+2     ;DB 1           ;       DM      REP      1       ;СЧЕТЧИК ЧИСЛА ПОВТОРОВ
  265.  
  266. ;ПЕРЕМЕННЫЕ КОНТРОЛЕРА ФЛОПОВ
  267. FD_TRKS         EQU REP+1       ;DB 0X0A,7;,8,0 ;       DM      FD_TRKS  4       ;НОМЕРА ТЕКУЩИХ ДОРОЖЕК
  268.  
  269. ;БЛОК СОСТОЯНИЯ БУФЕРА
  270. BUFT            EQU FD_TRKS+2   ;DB 0           ;       DM      BUFT     1               ;НОМЕР КАНАЛА
  271. BUFTRK          EQU BUFT+1      ;DW 0X1001      ;       DM      BUFTRK   2               ;НОМЕР ДОРОЖКИ
  272. BUFSEC          EQU BUFTRK+2    ;DB 0X3F        ;       DM      BUFSEC   1               ;НОМЕР СЕКТОРА
  273.  
  274. ;-----------------------
  275. DVALID          EQU 0           ;:      DS      1       ;+ ПРИЗНАК ДЕЙСТВИТЕЛЬНОСТИ
  276. _DTYP           EQU DVALID+1    ;:      DS      1       ;+ КОД УСТРОЙСТВА
  277. _DUS            EQU _DTYP+1     ;:      DS      1       ;+ НОМЕР ПРИВОДА
  278. _DDTYP          EQU _DUS+1      ;:      DS      1       ;- КОД ПРИВОДА  (Hi bit - unbuferized)
  279. _DHEADF         EQU _DDTYP+1    ;:      DS      1       ;+ ЧИСЛО ФИКСИРОВАННЫХ ГОЛОВОК
  280. _DHEADR         EQU _DHEADF+1   ;:      DS      1       ;+ ЧИСЛО СМЕННЫХ ГОЛОВОК
  281. _DCYLN          EQU _DHEADR+1   ;:      DS      2       ;+ ЧИСЛО ЦИЛИНДРОВ НА ДИСКЕ
  282. _DSECTT         EQU _DCYLN+2    ;:      DS      1       ;+ ЧИСЛО СЕКТОРОВ НА ДОРОЖКЕ
  283. _DBYTES         EQU _DSECTT+1   ;:      DS      2       ;+ ЧИСЛО БАЙТОВ В СЕКТОРЕ
  284. _DALTCYL        EQU _DBYTES+2   ;:      DS      1       ;+ ЧИСЛО СИСТЕМНЫХ ДОРОЖЕК
  285. _DBEGCYL        EQU _DALTCYL+1  ;:      DS      2       ;+ НОМЕР НАЧАЛЬНОГО ЦИЛИНДРА
  286. _DBLDR          EQU _DBEGCYL+2  ;:      DS      2       ;+ ЧИСЛО БЛОКОВ НА ДИСКЕ
  287. _DBLTR          EQU _DBLDR+2    ;:      DS      2       ;+ ЧИСЛО БЛОКОВ НА ДОРОЖКЕ
  288. _DTRACK         EQU _DBLTR+2    ;:      DS      2       ;+ ЧИСЛО ДОРОЖЕК НА ДИСКЕ
  289. _DSEKTL         EQU _DTRACK+2   ;:      DS      1       ;+ ДЛИНА НОМЕРА БЛОКА В СЕКТОРЕ
  290. _DDIRENT        EQU _DSEKTL+1   ;:      DS      2       ;+ ЧИСЛО ЗАПИСЕЙ В ДИРЕКТОРИИ
  291. _DIF0           EQU _DDIRENT+2  ;:      DS      1       ;+ РАЗМЕТКА ПЕРВОЙ ДОРОЖКИ
  292. _DIF1           EQU _DIF0+1     ;:      DS      1       ;+ РАЗМЕТКА ВТОРОЙ ДОРОЖКИ
  293. _DIF2           EQU _DIF1+1     ;:      DS      1       ;+ РАЗМЕТКА ВСЕХ ОСТАВШИХСЯ ДОРОЖЕК
  294. _DTIF           EQU _DIF2+1     ;:      DS      1       ;? СМЕЩЕНИЕ ПЕРВОГО СЕКТОРА
  295. _DF8            EQU _DTIF+1     ;       DS      1       ;+ ПРИЗНАК 8-ДЮЙМОВОГО ДИСКА
  296. ;  ИЛИ НОМЕР НАЧАЛЬНОЙ ГОЛОВКИ
  297. _DFMFM          EQU _DF8+1      ;:      DS      1       ;+ ПЛОТНОСТЬ ЗАПИСИ
  298. _DFN            EQU _DFMFM+1    ;:      DS      1       ;+ РАЗМЕР СЕКТОРА
  299. _DFGPL          EQU _DFN+1      ;:      DS      1       ;+ GAP3 ДЛЯ ЧТЕНИЯ/ЗАПИСИ
  300. _DFGPF          EQU _DFGPL+1    ;:      DS      1       ;+ GAP3 ДЛЯ ФОРМАТА
  301. _DFSRHUT        EQU _DFGPF+1    ;:      DS      1       ;+ ВРЕМЯ ШАГА
  302. ;  ИЛИ ВРЕМЯ ШАГА ПРИ SEEK
  303. _DFHLT          EQU _DFSRHUT+1  ;       DS      1:                      ;+ ВРЕМЯ ОПУСКАНИЯ ГОЛОВКИ
  304. ;  ИЛИ ВРЕМЯ ШАГА ПРИ RECALIBRATE
  305. _DFMOTOR        EQU _DFHLT+1    ;:      DS      1       ;+ ПРИЗНАК ВКЛЮЧЕНИЯ МОТОРА
  306. ;-----------------------
  307.