Rev 896 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed | ?url?
AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 1 - 2/23/2020 18:58:451/ 0 :2/ 0 : ;LAST UPDATE: 13.02.2020 savelij3/ 0 :4/ 0 : ; TR-DOS5/ 0 :6/ 0 : include ../../svn/pentevo/rom/macros.a80(1) 1/ 0 :(1) 2/ 0 : ;LAST UPDATE: 12.09.2019 savelij(1) 3/ 0 :(1) 4/ 0 : ;автоопределение кодировки работает неправильно(1) 5/ 0 :(1) 6/ 0 : RELAXED ON(1) 7/ 0 : CPU Z80UNDOC(1) 8/ 0 :(1) 9/ 0 : =0H BUILD_DEBUG EQU 0(1) 10/ 0 : REZIDENT ;включение резидента в сборку(1) 11/ 0 :(1) 12/ 0 : DZ MACRO DEFZ(1) 13/ 0 : DB DEFZ,0(1) 14/ 0 : ENDM(1) 15/ 0 :(1) 16/ 0 : DC MACRO DEFC(1) 17/ 0 : IF STRLEN(DEFC)>1(1) 18/ 0 : DB SUBSTR(DEFC,0,STRLEN(DEFC)-1)(1) 19/ 0 : ENDIF(1) 20/ 0 : IF STRLEN(DEFC)>0(1) 21/ 0 : DB CHARFROMSTR(DEFC,STRLEN(DEFC)-1)|80H(1) 22/ 0 : ENDIF(1) 23/ 0 : ENDM(1) 24/ 0 :(1) 25/ 0 : SUM_HOB MACRO STR,AA,BB,CC(1) 26/ 0 : DB STR(1) 27/ 0 : DW AA(1) 28/ 0 : DW BB(1) 29/ 0 : DB 0(1) 30/ 0 : DB CC(1) 31/ 0 : $$I := 0(1) 32/ 0 : $$S := 0(1) 33/ 0 : REPT 9(1) 34/ 0 : $$N := CHARFROMSTR (STR,STRLEN(STR)+$$S-9)(1) 35/ 0 : $$I := ($$I+$$S+$$N+($$N*256))&0XFFFF(1) 36/ 0 : $$S := $$S+1(1) 37/ 0 : ENDM(1) 38/ 0 : $$I := ($$I+$$S+LOW (AA)+(LOW (AA)*0X100))&0XFFFF(1) 39/ 0 : $$S := $$S+1(1) 40/ 0 : $$I := ($$I+$$S+HIGH (AA)+(HIGH (AA)*0X100))&0XFFFF(1) 41/ 0 : $$S := $$S+1(1) 42/ 0 : $$I := ($$I+$$S+LOW (BB)+(LOW (BB)*0X100))&0XFFFF(1) 43/ 0 : $$S := $$S+1(1) 44/ 0 : $$I := ($$I+$$S+HIGH (BB)+(HIGH (BB)*0X100))&0XFFFF(1) 45/ 0 : $$S := $$S+1(1) 46/ 0 : $$I := ($$I+$$S+LOW (CC)+(LOW (CC)*0X100))&0XFFFF(1) 47/ 0 : $$S := $$S+1(1) 48/ 0 : $$I := ($$I+$$S+HIGH (CC)+(HIGH (CC)*0X100))&0XFFFF(1) 49/ 0 : $$S := $$S+1(1) 50/ 0 : DW $$I(1) 51/ 0 : ENDM(1) 52/ 0 :(1) 53/ 0 : DUPL MACRO LEN,FILL(1) 54/ 0 : DUPL:AS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/macros.a80) - page 2 - 2/23/2020 18:58:45(1) 55/ 0 : $$N EQU (LEN) / 1024(1) 56/ 0 : $$M EQU (LEN) # 1024(1) 57/ 0 : REPT $$N(1) 58/ 0 : DB 1024 DUP(FILL)(1) 59/ 0 : ENDM(1) 60/ 0 : IF $$M <> 0(1) 61/ 0 : IFB FILL(1) 62/ 0 : DB $$M DUP(0)(1) 63/ 0 : ELSE(1) 64/ 0 : DB $$M DUP(FILL)(1) 65/ 0 : ENDIF(1) 66/ 0 : ENDIF(1) 67/ 0 : ENDM(1) 68/ 0 :(1) 69/ 0 : HIGH FUNCTION X,((X >> 8) & 0XFF)(1) 70/ 0 : LOW FUNCTION X,(X & 0XFF)(1) 71/ 0 :(1) 72/ 0 : ROMCALL MACRO ADR,PAGE(1) 73/ 0 : RST 0X30(1) 74/ 0 : DW ADR(1) 75/ 0 : DB PAGE(1) 76/ 0 : ENDM(1) 77/ 0 :(1) 78/ 0 : RAMCALL MACRO ADR,PAGE(1) 79/ 0 : RST 0X20(1) 80/ 0 : DW ADR(1) 81/ 0 : DB PAGE(1) 82/ 0 : ENDM(1) 83/ 0 :(1) 84/ 0 : ATMPORT MACRO PORT,BYTE(1) 85/ 0 : LD BC,PORT(1) 86/ 0 : IF BYTE = 0(1) 87/ 0 : XOR A(1) 88/ 0 : ELSE(1) 89/ 0 : LD A,BYTE(1) 90/ 0 : ENDIF(1) 91/ 0 : OUT (C),A(1) 92/ 0 : ENDM(1) 93/ 0 :(1) 94/ 0 : EVOPORT MACRO PORT,BYTE(1) 95/ 0 : LD BC,PORT(1) 96/ 0 : IF BYTE = 0(1) 97/ 0 : XOR A(1) 98/ 0 : ELSE(1) 99/ 0 : LD A,BYTE(1) 100/ 0 : ENDIF(1) 101/ 0 : OUT (C),A(1) 102/ 0 : ENDM(1) 103/ 0 :(1) 104/ 0 : PEC_ON MACRO BYTE(1) 105/ 0 : IN A,(PEVO_CONF)(1) 106/ 0 : OR BYTE(1) 107/ 0 : OUT (PEVO_CONF),A(1) 108/ 0 : ENDM(1) 109/ 0 :(1) 110/ 0 : PEC_OFF MACRO BYTE(1) 111/ 0 : IN A,(PEVO_CONF)(1) 112/ 0 : AND BYTE!0XFF(1) 113/ 0 : OUT (PEVO_CONF),A(1) 114/ 0 : ENDMAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/macros.a80) - page 3 - 2/23/2020 18:58:45(1) 115/ 0 :(1) 116/ 0 : READ_7FFD MACRO(1) 117/ 0 : LD A,HIGH (RD_7FFD)(1) 118/ 0 : IN A,(LOW (RD_7FFD))(1) 119/ 0 : ENDM(1) 120/ 0 :(1) 121/ 0 : =9H SIZEDATE EQU STRLEN (DATE)(1) 122/ 0 : =8H SIZETIME EQU STRLEN (TIME)(1) 123/ 0 :(1) 124/ 0 : =>FALSE IF SIZEDATE=10(1) 125/ 0 : MMOUNTH EQU (CHARFROMSTR (DATE,0)-'0')*10+(CHARFROMSTR (DATE,1)-'0')(1) 126/ 0 : DDATE EQU (CHARFROMSTR (DATE,3)-'0')*10+(CHARFROMSTR (DATE,4)-'0')(1) 127/ 0 : YYEAR EQU (CHARFROMSTR (DATE,8)-'0')*10+(CHARFROMSTR (DATE,9)-'0')(1) 128/ 0 : =>FALSE ELSEIF SIZEDATE=8(1) 129/ 0 : MMOUNTH EQU (CHARFROMSTR (DATE,0)-'0')(1) 130/ 0 : DDATE EQU (CHARFROMSTR (DATE,2)-'0')(1) 131/ 0 : YYEAR EQU (CHARFROMSTR (DATE,6)-'0')*10+(CHARFROMSTR (DATE,7)-'0')(1) 132/ 0 : =>TRUE ELSEIF (CHARFROMSTR (DATE,1))=0X2F(1) 133/ 0 : =2H MMOUNTH EQU (CHARFROMSTR (DATE,0)-'0')(1) 134/ 0 : =17H DDATE EQU (CHARFROMSTR (DATE,2)-'0')*10+(CHARFROMSTR (DATE,3)-'0')(1) 135/ 0 : =14H YYEAR EQU (CHARFROMSTR (DATE,7)-'0')*10+(CHARFROMSTR (DATE,8)-'0')(1) 136/ 0 : =>FALSE ELSE(1) 137/ 0 : MMOUNTH EQU (CHARFROMSTR (DATE,0)-'0')*10+(CHARFROMSTR (DATE,1)-'0')(1) 138/ 0 : DDATE EQU (CHARFROMSTR (DATE,3)-'0')(1) 139/ 0 : YYEAR EQU (CHARFROMSTR (DATE,7)-'0')*10+(CHARFROMSTR (DATE,8)-'0')(1) 140/ 0 : [124] ENDIF(1) 141/ 0 :(1) 142/ 0 : =>FALSE IF SIZETIME=7(1) 143/ 0 : HHOUR EQU (CHARFROMSTR (TIME,0)-'0')(1) 144/ 0 : MMINUTE EQU (CHARFROMSTR (TIME,2)-'0')*10+(CHARFROMSTR (TIME,3)-'0')(1) 145/ 0 : SSECUND EQU (CHARFROMSTR (TIME,5)-'0')*10+(CHARFROMSTR (TIME,6)-'0')(1) 146/ 0 : =>TRUE ELSE(1) 147/ 0 : =12H HHOUR EQU (CHARFROMSTR (TIME,0)-'0')*10+(CHARFROMSTR (TIME,1)-'0')(1) 148/ 0 : =3AH MMINUTE EQU (CHARFROMSTR (TIME,3)-'0')*10+(CHARFROMSTR (TIME,4)-'0')(1) 149/ 0 : =2DH SSECUND EQU (CHARFROMSTR (TIME,6)-'0')*10+(CHARFROMSTR (TIME,7)-'0')(1) 150/ 0 : [142] ENDIF(1) 151/ 0 :(1) 152/ 0 : =A857H DATA_VERS EQU DDATE+(MMOUNTH<<5)+(YYEAR<<9)+0X8000 ;уже упаковано(1) 153/ 0 :(1) 154/ 0 : =5057H FAT_DATE EQU DDATE+(MMOUNTH<<5)+((2000+YYEAR-1980)&0x7F)<<9(1) 155/ 0 : =9756H FAT_TIME EQU SSECUND/2+(MMINUTE<<5)+(HHOUR<<11)(1) 156/ 0 :(1) 157/ 0 : TEXTDATE MACRO(1) 158/ 0 : TDATE DB ((DDATE/10)+'0'),(DDATE#10)+'0'(1) 159/ 0 : DB "."(1) 160/ 0 : TMOUNTH DB MMOUNTH/10+'0',MMOUNTH#10+'0'(1) 161/ 0 : DB ".",CHARFROMSTR (DATE,SIZEDATE-4),CHARFROMSTR (DATE,SIZEDATE-3)(1) 162/ 0 : DB CHARFROMSTR (DATE,SIZEDATE-2),CHARFROMSTR (DATE,SIZEDATE-1)(1) 163/ 0 : ENDM(1) 164/ 0 :(1) 165/ 0 : RST8 MACRO N1,N2,N3(1) 166/ 0 : RST 8(1) 167/ 0 : DB N1(1) 168/ 0 : IFNB N2(1) 169/ 0 : DB N2(1) 170/ 0 : ENDIF(1) 171/ 0 : IFNB N3(1) 172/ 0 : DB N3(1) 173/ 0 : ENDIF(1) 174/ 0 : ENDMAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/macros.a80) - page 4 - 2/23/2020 18:58:45(1) 175/ 0 :(1) 176/ 0 : =1H BYTE EQU 1(1) 177/ 0 : =2H WORD EQU 2(1) 178/ 0 : =3H JUMP EQU 3(1) 179/ 0 : =4H DWORD EQU 4(1) 180/ 0 : =8H QWORD EQU 8(1) 181/ 0 :(1) 182/ 0 : BITMASK MACRO NAME,NUM(1) 183/ 0 : B_NAME EQU NUM(1) 184/ 0 : M_NAME EQU 1<<NUM(1) 185/ 0 : ENDM(1) 186/ 0 :(1) 187/ 0 : SETVAR MACRO NAME,SIZE(1) 188/ 0 : NAME EQU INITVAR(1) 189/ 0 : IFNB SIZE(1) 190/ 0 : INITVAR := INITVAR+SIZE(1) 191/ 0 : NAME_Size EQU SIZE(1) 192/ 0 : ELSE(1) 193/ 0 : INITVAR := INITVAR+BYTE(1) 194/ 0 : NAME_Size EQU BYTE(1) 195/ 0 : ENDIF(1) 196/ 0 : ENDM(1) 197/ 0 :(1) 198/ 0 : SUBVAR MACRO SIZE(1) 199/ 0 : INITVAR := INITVAR-SIZE(1) 200/ 0 : ENDM(1) 201/ 0 :(1) 202/ 0 : ADDVAR MACRO SIZE(1) 203/ 0 : INITVAR := INITVAR+SIZE(1) 204/ 0 : ENDM(1) 205/ 0 :(1) 206/ 0 : INIT_VAR MACRO START(1) 207/ 0 : IFNB START(1) 208/ 0 : INITVAR := START(1) 209/ 0 : ELSE(1) 210/ 0 : INITVAR := 0(1) 211/ 0 : ENDIF(1) 212/ 0 : ENDM(1) 213/ 0 :(1) 214/ 0 :(1) 215/ 0 : MALIGN MACRO(1) 216/ 0 : IF LOW($) = 0(1) 217/ 0 : DUPL (HIGH($) << 8) - $,0(1) 218/ 0 : ELSE(1) 219/ 0 : DUPL ((HIGH($) + 1) << 8) - $,0(1) 220/ 0 : ENDIF(1) 221/ 0 : ENDM(1) 222/ 0 :(1) 223/ 0 : ; выравнивание до сектора с учетом адреса компиляции(1) 224/ 0 : DALIGN MACRO ADDRESS(1) 225/ 0 : IF LOW(ADDRESS)(1) 226/ 0 : DB LOW (-$)+LOW(ADDRESS) DUP(0)(1) 227/ 0 : ELSE(1) 228/ 0 : DB LOW (-$) DUP (0)(1) 229/ 0 : ENDIF(1) 230/ 0 : ENDM(1) 231/ 0 :(1) 232/ 0 : ; преобразование 16 битного числа в текст(1) 233/ 0 : WORD2TXT MACRO WORD(1) 234/ 0 : $$DEC1 := (WORD)/10000AS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/macros.a80) - page 5 - 2/23/2020 18:58:45(1) 235/ 0 : $$TMP := WORD-$$DEC1*10000(1) 236/ 0 : $$DEC2 := $$TMP/1000(1) 237/ 0 : $$TMP := $$TMP-$$DEC2*1000(1) 238/ 0 : $$DEC3 := $$TMP/100(1) 239/ 0 : $$TMP := $$TMP-$$DEC3*100(1) 240/ 0 : $$DEC4 := $$TMP/10(1) 241/ 0 : $$TMP := $$TMP-$$DEC4*10(1) 242/ 0 : $$DEC5 := $$TMP(1) 243/ 0 : DB $$DEC1+'0',$$DEC2+'0',$$DEC3+'0',$$DEC4+'0',$$DEC5+'0'(1) 244/ 0 : ENDM(1) 245/ 0 :7/ 0 : include ../../svn/pentevo/rom/global_vars.a80(1) 1/ 0 :(1) 2/ 0 : ;LAST UPDATE: 20.08.2019 savelij(1) 3/ 0 :(1) 4/ 0 : ;[СТРАНИЦЫ VIDEO RAM](1) 5/ 0 : =F7H VMODE7_0 EQU LOW (-0X08)-1;0XF7 ;СТРАНИЦА ОДНОСТРАНИЧНОГО ТЕКСТМОДА 0 ЭКРАН(1) 6/ 0 : =F5H VMODE7_1 EQU LOW (-0X0A)-1;0XF5 ;СТРАНИЦА ОДНОСТРАНИЧНОГО ТЕКСТМОДА 1 ЭКРАН(1) 7/ 0 : =FAH VMODE6_0M EQU LOW (-0X05)-1;0XFA ;СТРАНИЦА ATM ТЕКСТМОДА МОНОХРОМ 0 ЭКРАН(1) 8/ 0 : =FEH VMODE6_0C EQU LOW (-0X01)-1;0XFE ;СТРАНИЦА ATM ТЕКСТМОДА ЦВЕТ 0 ЭКРАН(1) 9/ 0 : =F8H VMODE6_1M EQU LOW (-0X07)-1;0XF8 ;СТРАНИЦА ATM ТЕКСТМОДА МОНОХРОМ 1 ЭКРАН(1) 10/ 0 : =FCH VMODE6_1C EQU LOW (-0X03)-1;0XFC ;СТРАНИЦА ATM ТЕКСТМОДА ЦВЕТ 1 ЭКРАН(1) 11/ 0 : =FAH ZXSCR_0 EQU LOW (-0X05)-1;0XFA ;СТРАНИЦА ZX ЭКРАНА 0(1) 12/ 0 : =F8H ZXSCR_1 EQU LOW (-0X07)-1;0XF8 ;СТРАНИЦА ZX ЭКРАНА 1(1) 13/ 0 :(1) 14/ 0 : ;[СТРАНИЦЫ ПАМЯТИ ZX СТАНДАРТА](1) 15/ 0 : =FAH ZXSTD_CPU1 EQU LOW (-0X05)-1;0XFA ;СТРАНИЦА 1 ОКНА ПРОЕЦИРОВАНИЯ(1) 16/ 0 : =FDH ZXSTD_CPU2 EQU LOW (-0X02)-1;0XFD ;СТРАНИЦА 2 ОКНА ПРОЕЦИРОВАНИЯ(1) 17/ 0 :(1) 18/ 0 : ;[СТРАНИЦЫ RAM](1) 19/ 0 : =1H RAM_EVODOS EQU 1 ;СТРАНИЦА КОПИИ EVO-DOS ДЛЯ ПЕРЕХВАТА(1) 20/ 0 : =2H RAM_FATVARS EQU 2 ;СТРАНИЦА ДЛЯ ПЕРЕМЕНЫХ FAT(1) 21/ 0 : =3H RAM_BASIC EQU 3 ;СТРАНИЦА BASIC СТАНДАРТНАЯ ВЕРСИЯ(1) 22/ 0 : =4H RAM_PROFROM EQU 4 ;СТРАНИЦА ПЕРЕМЕННЫХ PROFROM(1) 23/ 0 : =5H RAM_MOUNTER EQU 5 ;СТРАНИЦА ДЛЯ МОНТИРОВАНИЯ ОБРАЗОВ(1) 24/ 0 : =6H RAM_STS EQU 6 ;СТРАНИЦА ДЛЯ ОТЛАДЧИКА STS(1) 25/ 0 : =7H RAM_ADDSTS EQU 7 ;СТРАНИЦА ДЛЯ ОТЛАДКИ ROM(1) 26/ 0 : =8H RAM_SCR_FONT EQU 8 ;СТРАНИЦА СОХРАНЕННЫХ ЭКРАНОВ И ФОНТОВ(1) 27/ 0 : =9H RAM_TEMP EQU 9 ;СТРАНИЦА ВСЯКИХ ВРЕМЕННЫХ ПЕРЕМЕННЫХ(1) 28/ 0 : =AH RAM_RAMDISK EQU 0X0A ;СТРАНИЦА НАЧАЛА РАМДИСКА(1) 29/ 0 : =BH RAM_DATARAMD EQU 0X0B ;СТРАНИЦА НАЧАЛА ДАННЫХ РАМДИСКА(1) 30/ 0 : =3FH RAM_TEMP2 EQU 0X3F ;СТРАНИЦА СОРТИРОВКИ ФАЙЛОВ И ПРОСМОТРА СОДЕРЖИМОГО ОБРАЗОВ(1) 31/ 0 : =40H RAM_FLASHER EQU 0X40 ;СТРАНИЦА НАЧАЛА ЗАГРУЗКИ ПРОШИВКИ(1) 32/ 0 : =60H RAM_TAPE EQU 0X60 ;СТРАНИЦА ДЛЯ ЗАГРУЗКИ TAP ФАЙЛА(1) 33/ 0 :(1) 34/ 0 : ;[СТРАНИЦЫ ROM](1) 35/ 0 : =0H ROM_ERS EQU 0 ;НОМЕР СТРАНИЦЫ ROM EVO RESET SERVICE(1) 36/ 0 : =1H ROM_BAS128 EQU 1 ;НОМЕР СТРАНИЦЫ ROM BASIC 128(1) 37/ 0 : =2H ROM_DOS EQU 2 ;НОМЕР СТРАНИЦЫ ROM EVO-DOS ДЛЯ РЕАЛЬНОЙ ДИСКЕТЫ(1) 38/ 0 : =3H ROM_BAS48 EQU 3 ;НОМЕР СТРАНИЦЫ ROM BASIC 48(1) 39/ 0 :(1) 40/ 0 : =5H ROM_MAINMENU EQU 5 ;НОМЕР СТРАНИЦЫ УПАКОВАННОГО ГЛАВНОЕ МЕНЮ(1) 41/ 0 : =6H ROM_RST80 EQU 6 ;НОМЕР СТРАНИЦЫ ROM RST 8(1) 42/ 0 : =7H ROM_RST81 EQU 7 ;НОМЕР СТРАНИЦЫ ROM RST 8(1) 43/ 0 : =8H ROM_RST82 EQU 8 ;НОМЕР СТРАНИЦЫ ROM RST 8(1) 44/ 0 : =9H ROM_RST83 EQU 9 ;НОМЕР СТРАНИЦЫ ROM RST 8(1) 45/ 0 : =AH ROM_ADD_DOS EQU 0X0A ;НОМЕР СТРАНИЦЫ ROM EVO-DOS ДЛЯ ЭМУЛЯЦИИ(1) 46/ 0 : =BH ROM_ADD_BAS48 EQU 0X0B ;НОМЕР СТРАНИЦЫ ROM BASIC 48(1) 47/ 0 : =18H ROM_BAS48_STD EQU 0X18 ;НОМЕР СТРАНИЦЫ ROM BASIC 48 (СТАНДАРТНАЯ ВЕРСИЯ)(1) 48/ 0 : =19H ROM_BAS128_STD EQU 0X19 ;НОМЕР СТРАНИЦЫ ROM BASIC 128 (СТАНДАРТНАЯ ВЕРСИЯ)AS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/global_vars.a80) - page 6 - 2/23/2020 18:58:45(1) 49/ 0 : =1AH ROM_BAS48_128 EQU 0X1A ;НОМЕР СТРАНИЦЫ ROM BASIC 48 (СТАНДАРТНАЯ ВЕРСИЯ ДЛЯ BASIC128)(1) 50/ 0 : =1BH ROM_ATMCPM EQU 0X1B ;НОМЕР СТРАНИЦЫ ROM АТМ CP/M(1) 51/ 0 :(1) 52/ 0 : =90H CONF4PROF EQU 0X90 ;СТАРТОВАЯ СТРАНИЦА ДЛЯ EVO PROFROM 128K(1) 53/ 0 : =94H CONF4GLUK EQU 0X94 ;СТАРТОВАЯ СТРАНИЦА ДЛЯ GLUK 64K(1) 54/ 0 : =9CH CONF4CUSTOM EQU 0X9C ;СТАРТОВАЯ СТРАНИЦА ДЛЯ ПОЛЬЗОВАТЕЛЬСКОЙ ПРОШИВКИ 64К(1) 55/ 0 :(1) 56/ 0 : =0H CPU0 EQU 0X0000 ;НАЧАЛО ОКНА ПРОЕЦИРОВАНИЯ 0(1) 57/ 0 : =4000H CPU1 EQU 0X4000 ;НАЧАЛО ОКНА ПРОЕЦИРОВАНИЯ 1(1) 58/ 0 : =8000H CPU2 EQU 0X8000 ;НАЧАЛО ОКНА ПРОЕЦИРОВАНИЯ 2(1) 59/ 0 : =C000H CPU3 EQU 0XC000 ;НАЧАЛО ОКНА ПРОЕЦИРОВАНИЯ 3(1) 60/ 0 :(1) 61/ 0 : ;[ПОРТЫ](1) 62/ 0 : =37F7H WIN_P0 EQU 0X37F7 ;АДРЕС 0 СТРАНИЦЫ ПРОЕЦИРОВАНИЯ PENTEVO(1) 63/ 0 : =77F7H WIN_P1 EQU 0X77F7 ;АДРЕС 1 СТРАНИЦЫ ПРОЕЦИРОВАНИЯ PENTEVO(1) 64/ 0 : =B7F7H WIN_P2 EQU 0XB7F7 ;АДРЕС 2 СТРАНИЦЫ ПРОЕЦИРОВАНИЯ PENTEVO(1) 65/ 0 : =F7F7H WIN_P3 EQU 0XF7F7 ;АДРЕС 3 СТРАНИЦЫ ПРОЕЦИРОВАНИЯ PENTEVO(1) 66/ 0 : =3BF7H WIN_R0 EQU 0X3BF7 ;АДРЕС ЗАЩИТЫ ОТ ЗАПИСИ В ОКНЕ 0(1) 67/ 0 : =7BF7H WIN_R1 EQU 0X7BF7 ;АДРЕС ЗАЩИТЫ ОТ ЗАПИСИ В ОКНЕ 1(1) 68/ 0 : =BBF7H WIN_R2 EQU 0XBBF7 ;АДРЕС ЗАЩИТЫ ОТ ЗАПИСИ В ОКНЕ 2(1) 69/ 0 : =FBF7H WIN_R3 EQU 0XFBF7 ;АДРЕС ЗАЩИТЫ ОТ ЗАПИСИ В ОКНЕ 3(1) 70/ 0 : =3FF7H WIN_A0 EQU 0X3FF7 ;АДРЕС 0 СТРАНИЦЫ ПРОЕЦИРОВАНИЯ ATM(1) 71/ 0 : =7FF7H WIN_A1 EQU 0X7FF7 ;АДРЕС 1 СТРАНИЦЫ ПРОЕЦИРОВАНИЯ ATM(1) 72/ 0 : =BFF7H WIN_A2 EQU 0XBFF7 ;АДРЕС 2 СТРАНИЦЫ ПРОЕЦИРОВАНИЯ ATM(1) 73/ 0 : =FFF7H WIN_A3 EQU 0XFFF7 ;АДРЕС 3 СТРАНИЦЫ ПРОЕЦИРОВАНИЯ ATM(1) 74/ 0 : =BFH PEVO_CONF EQU 0XBF ;АДРЕС ПОРТА КОНФИГА PENTEVO(1) 75/ 0 : =DEF7H CMOSD_SET_ADR EQU 0XDEF7 ;АДРЕС ПОРТА УСТАНОВКИ АДРЕСА CMOS ЯЧЕЙКИ ИЗ DOS(1) 76/ 0 : =BEF7H CMOSD_RD_WR EQU 0XBEF7 ;АДРЕС ПОРТА ЧТЕНИЯ/ЗАПИСИ БАЙТ CMOS ИЗ ДОСА(1) 77/ 0 : =DFF7H CMOS_SET_ADR EQU 0XDFF7 ;АДРЕС ПОРТА УСТАНОВКИ АДРЕСА CMOS ЯЧЕЙКИ(1) 78/ 0 : =BFF7H CMOS_RD_WR EQU 0XBFF7 ;АДРЕС ПОРТА ЧТЕНИЯ/ЗАПИСИ БАЙТ CMOS(1) 79/ 0 : =EFF7H PENT_CONF EQU 0XEFF7 ;АДРЕС ПОРТА КОНФИГА РЕЖИМА ПЕНТАГОНА(1) 80/ 0 : =7FFDH CONF_128 EQU 0X7FFD ;АДРЕС ПОРТА КОНФИГА 128 ПАМЯТИ(1) 81/ 0 : =FBDFH MOUSE_X EQU 0XFBDF ;АДРЕС ПОРТА X КООРДИНАТЫ МЫШИ(1) 82/ 0 : =FFDFH MOUSE_Y EQU 0XFFDF ;АДРЕС ПОРТА Y КООРДИНАТЫ МЫШИ(1) 83/ 0 : =FADFH MOUSE_KEYS EQU 0XFADF ;АДРЕС ПОРТА КНОПОК МЫШИ(1) 84/ 0 :(1) 85/ 0 : ;[МАСКА КНОПОК МЫШИ](1) 86/ 0 : (MACRO) BITMASK MOUSE_M_KEY, 2(1) 86/ 0 : =2H B_MOUSE_M_KEY EQU 2(1) 86/ 0 : =4H M_MOUSE_M_KEY EQU 1<<2(1) 87/ 0 : (MACRO) BITMASK MOUSE_R_KEY, 1(1) 87/ 0 : =1H B_MOUSE_R_KEY EQU 1(1) 87/ 0 : =2H M_MOUSE_R_KEY EQU 1<<1(1) 88/ 0 : (MACRO) BITMASK MOUSE_L_KEY, 0(1) 88/ 0 : =0H B_MOUSE_L_KEY EQU 0(1) 88/ 0 : =1H M_MOUSE_L_KEY EQU 1<<0(1) 89/ 0 : =F0H _MOUSE_WHEEL EQU %11110000(1) 90/ 0 :(1) 91/ 0 : ;[ПОРТЫ RS232](1) 92/ 0 : =F8EFH RS232_IO EQU 0XF8EF(1) 93/ 0 : =F8EFH RS232_DIV_L EQU 0XF8EF(1) 94/ 0 : =F9EFH RS232_IRQ_ENA EQU 0XF9EF(1) 95/ 0 : =F9EFH RS232_DIV_H EQU 0XF9EF(1) 96/ 0 : =FAEFH RS232_IRQ_ID EQU 0XFAEF(1) 97/ 0 : =FBEFH RS232_LINE_CTRL EQU 0XFBEF(1) 98/ 0 : =FCEFH RS232_MDM_CTRL EQU 0XFCEF(1) 99/ 0 : =FDEFH RS232_LINE_STAT EQU 0XFDEF(1) 100/ 0 : =FEEFH RS232_MDM_STAT EQU 0XFEEF(1) 101/ 0 : =FFEFH RS232_WORK_REG EQU 0XFFEF(1) 102/ 0 :AS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/global_vars.a80) - page 7 - 2/23/2020 18:58:45(1) 103/ 0 : ;[СКОРОСТИ RS232](1) 104/ 0 : =417H BAUD110 EQU 115200/110(1) 105/ 0 : =300H BAUD150 EQU 115200/150(1) 106/ 0 : =180H BAUD300 EQU 115200/300(1) 107/ 0 : =C0H BAUD600 EQU 115200/600(1) 108/ 0 : =60H BAUD1200 EQU 115200/1200(1) 109/ 0 : =30H BAUD2400 EQU 115200/2400(1) 110/ 0 : =18H BAUD4800 EQU 115200/4800(1) 111/ 0 : =CH BAUD9600 EQU 115200/9600(1) 112/ 0 : =6H BAUD19200 EQU 115200/19200(1) 113/ 0 : =3H BAUD38400 EQU 115200/38400(1) 114/ 0 : =2H BAUD57600 EQU 115200/57600(1) 115/ 0 : =1H BAUD115200 EQU 115200/115200(1) 116/ 0 :(1) 117/ 0 : ;[ПОРТЫ ДЛЯ ЧТЕНИЯ ПОРТОВ КОНФИГУРАЦИИ](1) 118/ 0 : =BEH EXIT_PORT EQU 0XBE(1) 119/ 0 : =BEH RD_0WINA0 EQU 0X00BE ;АДРЕС ПОРТА 0 ОКНА ПРОЕЦИРОВАНИЯ 0 МАПЕРА(1) 120/ 0 : =1BEH RD_0WINA1 EQU 0X01BE ;АДРЕС ПОРТА 1 ОКНА ПРОЕЦИРОВАНИЯ 0 МАПЕРА(1) 121/ 0 : =2BEH RD_0WINA2 EQU 0X02BE ;АДРЕС ПОРТА 2 ОКНА ПРОЕЦИРОВАНИЯ 0 МАПЕРА(1) 122/ 0 : =3BEH RD_0WINA3 EQU 0X03BE ;АДРЕС ПОРТА 3 ОКНА ПРОЕЦИРОВАНИЯ 0 МАПЕРА(1) 123/ 0 : =4BEH RD_1WINA0 EQU 0X04BE ;АДРЕС ПОРТА 0 ОКНА ПРОЕЦИРОВАНИЯ 1 МАПЕРА(1) 124/ 0 : =5BEH RD_1WINA1 EQU 0X05BE ;АДРЕС ПОРТА 1 ОКНА ПРОЕЦИРОВАНИЯ 1 МАПЕРА(1) 125/ 0 : =6BEH RD_1WINA2 EQU 0X06BE ;АДРЕС ПОРТА 2 ОКНА ПРОЕЦИРОВАНИЯ 1 МАПЕРА(1) 126/ 0 : =7BEH RD_1WINA3 EQU 0X07BE ;АДРЕС ПОРТА 3 ОКНА ПРОЕЦИРОВАНИЯ 1 МАПЕРА(1) 127/ 0 : =8BEH RD_RAMNROM EQU 0X08BE ;АДРЕС ПОРТА БИТОВ RAM & ROM(1) 128/ 0 : =9BEH RD_DOS7FFD EQU 0X09BE ;АДРЕС ПОРТА БИТОВ DOS & 7FFD(1) 129/ 0 : =ABEH RD_7FFD EQU 0X0ABE ;АДРЕС ПОРТА 7FFD(1) 130/ 0 : =BBEH RD_EFF7 EQU 0X0BBE ;АДРЕС ПОРТА EFF7(1) 131/ 0 : =CBEH RD_77 EQU 0X0CBE ;АДРЕС ПОРТА xx77(1) 132/ 0 : =DBEH RD_PALITRA EQU 0X0DBE ;АДРЕС ПОРТА ПАЛИТРЫ(1) 133/ 0 : =10BEH BREAK_LOW_RD EQU 0X10BE ;МЛАДШИЙ БАЙТ АДРЕСА ПОРТА НА ЧТЕНИЕ АДРЕСА BREAK(1) 134/ 0 : =11BEH BREAK_HIGH_RD EQU 0X11BE ;СТАРШИЙ БАЙТ АДРЕСА ПОРТА НА ЧТЕНИЕ АДРЕСА BREAK(1) 135/ 0 : =13BEH NUM_LINE EQU 0X13BE ;НОМЕР СТРОКИ РАСТРА (0-159)(1) 136/ 0 :(1) 137/ 0 : =13BDH FDD_EMU_PORT EQU 0X13BD(1) 138/ 0 :(1) 139/ 0 : =BDH BREAK_LOW_WR EQU 0X00BD ;МЛАДШИЙ БАЙТ АДРЕСА ПОРТА НА ЗАПИСЬ АДРЕСА BREAK(1) 140/ 0 : =1BDH BREAK_HIGH_WR EQU 0X01BD ;СТАРШИЙ БАЙТ АДРЕСА ПОРТА НА ЗАПИСЬ АДРЕСА BREAK(1) 141/ 0 :(1) 142/ 0 : ;[ОДНОСТРАНИЧНЫЙ ТЕКСТМОД](1) 143/ 0 : =1C0H LSYM EQU 0X01C0 ;СМЕЩЕНИЕ В СТРАНИЦЕ НАЧАЛА ЛЕВЫХ СИМВОЛОВ ТЕКСТМОДА(1) 144/ 0 : =31C0H LATTR EQU 0X31C0 ;СМЕЩЕНИЕ В СТРАНИЦЕ НАЧАЛА ЛЕВЫХ АТРИБУТОВ СИМВОЛОВ(1) 145/ 0 : =11C0H RSYM EQU 0X11C0 ;СМЕЩЕНИЕ В СТРАНИЦЕ НАЧАЛА ПРАВЫХ СИМВОЛОВ ТЕКСТМОДА(1) 146/ 0 : =21C1H RATTR EQU 0X21C1 ;СМЕЩЕНИЕ В СТРАНИЦЕ НАЧАЛА ПРАВЫХ АТРИБУТОВ СИМВОЛОВ(1) 147/ 0 :(1) 148/ 0 : ;[ATM ТЕСТМОД](1) 149/ 0 : =1C0H ALSYM EQU 0X01C0 ;СМЕЩЕНИЕ В СТРАНИЦЕ НАЧАЛА ЛЕВЫХ СИМВОЛОВ ТЕКСТМОДА(1) 150/ 0 : =21C0H ALATTR EQU 0X21C0 ;СМЕЩЕНИЕ В СТРАНИЦЕ НАЧАЛА ЛЕВЫХ АТРИБУТОВ СИМВОЛОВ(1) 151/ 0 : =21C0H ARSYM EQU 0X21C0 ;СМЕЩЕНИЕ В СТРАНИЦЕ НАЧАЛА ПРАВЫХ СИМВОЛОВ ТЕКСТМОДА(1) 152/ 0 : =1C1H ARATTR EQU 0X01C1 ;СМЕЩЕНИЕ В СТРАНИЦЕ НАЧАЛА ПРАВЫХ АТРИБУТОВ СИМВОЛОВ(1) 153/ 0 :(1) 154/ 0 : ;[ЦВЕТА И ЯРКОСТИ](1) 155/ 0 : =0H BLACK EQU 0(1) 156/ 0 : =1H BLUE EQU 1(1) 157/ 0 : =2H RED EQU 2(1) 158/ 0 : =3H MAGENTA EQU 3(1) 159/ 0 : =4H GREEN EQU 4(1) 160/ 0 : =5H CYAN EQU 5(1) 161/ 0 : =6H YELLOW EQU 6(1) 162/ 0 : =7H WHITE EQU 7AS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/global_vars.a80) - page 8 - 2/23/2020 18:58:45(1) 163/ 0 : =40H BR_INK EQU 0X40(1) 164/ 0 : =80H BR_PAPER EQU 0X80(1) 165/ 0 :(1) 166/ 0 : ;[ЦВЕТА ДЛЯ ATM ВИДЕОРЕЖИМОВ](1) 167/ 0 : =80H G_L EQU %10000000(1) 168/ 0 : =10H G_H EQU %00010000(1) 169/ 0 : =40H R_L EQU %01000000(1) 170/ 0 : =2H R_H EQU %00000010(1) 171/ 0 : =20H B_L EQU %00100000(1) 172/ 0 : =1H B_H EQU %00000001(1) 173/ 0 :(1) 174/ 0 : ;[МАСКА ПОРТА 7FFD](1) 175/ 0 : =8H ZX_SCREEN EQU %00001000(1) 176/ 0 : =10H ZX_ROM EQU %00010000(1) 177/ 0 :(1) 178/ 0 : ;[МАСКА ПОРТА 0XBF](1) 179/ 0 : (MACRO) BITMASK RST8_BF, 6(1) 179/ 0 : =6H B_RST8_BF EQU 6(1) 179/ 0 : =40H M_RST8_BF EQU 1<<6(1) 180/ 0 : (MACRO) BITMASK EMUVG_BF, 5(1) 180/ 0 : =5H B_EMUVG_BF EQU 5(1) 180/ 0 : =20H M_EMUVG_BF EQU 1<<5(1) 181/ 0 : (MACRO) BITMASK BREAK_BF, 4 ;БИТ РАЗРЕШЕНИЯ СРАБАТЫВАНИЯ BREAK НА АДРЕСЕ(1) 181/ 0 : =4H B_BREAK_BF EQU 4(1) 181/ 0 : =10H M_BREAK_BF EQU 1<<4(1) 182/ 0 : (MACRO) BITMASK NMI_BF, 3 ;БИТ ГЕНЕРАЦИИ NMI(1) 182/ 0 : =3H B_NMI_BF EQU 3(1) 182/ 0 : =8H M_NMI_BF EQU 1<<3(1) 183/ 0 : (MACRO) BITMASK FONT_BF, 2 ;БИТ РАЗРЕШЕНИЯ ИЗМЕНЕНИЯ ШРИФТА(1) 183/ 0 : =2H B_FONT_BF EQU 2(1) 183/ 0 : =4H M_FONT_BF EQU 1<<2(1) 184/ 0 : (MACRO) BITMASK FLASH_BF, 1 ;БИТ РАЗРЕШЕНИЯ ПРОГРАММИРОВАНИЯ FLASH(1) 184/ 0 : =1H B_FLASH_BF EQU 1(1) 184/ 0 : =2H M_FLASH_BF EQU 1<<1(1) 185/ 0 : (MACRO) BITMASK SHADOW_BF, 0 ;БИТ РАЗРЕШЕНИЯ ДОСТУПА К ТЕНЕВЫМ ПОРТАМ(1) 185/ 0 : =0H B_SHADOW_BF EQU 0(1) 185/ 0 : =1H M_SHADOW_BF EQU 1<<0(1) 186/ 0 :(1) 187/ 0 : ;[МАСКА ПОРТА 0XEFF7](1) 188/ 0 : (MACRO) BITMASK PENT_CMOS, 7 ;БИТ РАЗРЕШЕНИЯ ДОСТУПА К КМОСУ(1) 188/ 0 : =7H B_PENT_CMOS EQU 7(1) 188/ 0 : =80H M_PENT_CMOS EQU 1<<7(1) 189/ 0 : (MACRO) BITMASK PENT_TURBO, 4 ;ТУРБОРЕЖИМ ПЕНТАГОНА(1) 189/ 0 : =4H B_PENT_TURBO EQU 4(1) 189/ 0 : =10H M_PENT_TURBO EQU 1<<4(1) 190/ 0 :(1) 191/ 0 : ;[МАСКИ РЕЖИМОВ](1) 192/ 0 : =10H MEMORY_ALL EQU %00010000 ;ДОСТУП К ПЕРВОМУ МЕГАБАЙТУ ЧЕРЕЗ ПОРТ EFF7(1) 193/ 0 : =20H MEMORY_48 EQU %00100000 ;ДОСТУПЕН ТОЛЬКО 48Kb ПАМЯТИ(1) 194/ 0 : =30H MEMORY_128 EQU %00110000 ;ДОСТУПНО ТОЛЬКО 128Kb ПАМЯТИ(1) 195/ 0 : =40H TURBO_3 EQU %01000000 ;ЧАСТОТА ПРОЦЕССОРА 3,5 МГц(1) 196/ 0 : =80H TURBO_7 EQU %10000000 ;ЧАСТОТА ПРОЦЕССОРА 7 МГц(1) 197/ 0 : =C0H TURBO_14 EQU %11000000 ;ЧАСТОТА ПРОЦЕССОРА 14 МГц(1) 198/ 0 : =0H NUM_EGA EQU %00000000 ;НОМЕР ВИДЕОРЕЖИМА ДЛЯ ATM ПОРТА (EGA МОД 320*200)(1) 199/ 0 : =2H NUM_APPMULTI EQU %00000010 ;НОМЕР ВИДЕОРЕЖИМА ДЛЯ ATM ПОРТА (АППАРАТНЫЙ МУЛЬТИКОЛОР 640*200)(1) 200/ 0 : =3H NUM_ZXSCR EQU %00000011 ;НОМЕР ВИДЕОРЕЖИМА ДЛЯ ATM ПОРТА (ZX SCREEN 6912)(1) 201/ 0 : =6H NUM_TXTATM EQU %00000110 ;НОМЕР ВИДЕОРЕЖИМА ДЛЯ ATM ПОРТА (ATM ТЕКСТМОД 80*25)(1) 202/ 0 : =7H NUM_TXTSCR EQU %00000111 ;НОМЕР ВИДЕОРЕЖИМА ДЛЯ ATM ПОРТА (ОДНОСТРАНИЧНЫЙ ТЕКСТМОД 80*25)(1) 203/ 0 :(1) 204/ 0 : =8H SET_VIDEOMODE EQU %00001000AS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/global_vars.a80) - page 9 - 2/23/2020 18:58:45(1) 205/ 0 :(1) 206/ 0 : ;[НОМЕРА ВИДЕОРЕЖИМОВ С МАСКОЙ ДЛЯ ЗАПИСИ В ПОРТ](1) 207/ 0 : =A0H V_EGA EQU NUM_EGA | 0XA0(1) 208/ 0 : =A2H V_APPMULTI EQU NUM_APPMULTI | 0XA0(1) 209/ 0 : =A3H V_ZXSCR EQU NUM_ZXSCR | 0XA0(1) 210/ 0 : =A6H V_TXTATM EQU NUM_TXTATM | 0XA0(1) 211/ 0 : =A7H V_TXT1PAGE EQU NUM_TXTSCR | 0XA0(1) 212/ 0 :(1) 213/ 0 : ;[МАСКИ ОТЛАДЧИКА](1) 214/ 0 : (MACRO) BITMASK DBG_ACTIV, 7 ;АКТИВЕН ОТЛАДЧИК(1) 214/ 0 : =7H B_DBG_ACTIV EQU 7(1) 214/ 0 : =80H M_DBG_ACTIV EQU 1<<7(1) 215/ 0 : (MACRO) BITMASK TRACE_DBG, 6 ;ТРАССИРОВКА(1) 215/ 0 : =6H B_TRACE_DBG EQU 6(1) 215/ 0 : =40H M_TRACE_DBG EQU 1<<6(1) 216/ 0 : (MACRO) BITMASK STEP_DBG, 5 ;ПОШАГОВАЯ ОТЛАДКА(1) 216/ 0 : =5H B_STEP_DBG EQU 5(1) 216/ 0 : =20H M_STEP_DBG EQU 1<<5(1) 217/ 0 : ; BITMASK CASH_INST, 4 ;УСТАНОВЛЕН CASH REMEMBER(1) 218/ 0 : ; BITMASK CASH_ACTIV, 3 ;АКТИВЕН CASH REMEMBER(1) 219/ 0 :(1) 220/ 0 : ;[СМЕЩЕНИЯ FDI ОБРАЗА](1) 221/ 0 : =4000H FDI_TABLE_CYL EQU 0X4000 ;АДРЕС ТАБЛИЦЫ НАЧАЛ ДОРОЖЕК В ОБРАЗЕ(1) 222/ 0 : =40FFH FDI_PAGE_START EQU 0X40FF ;СМЕЩЕНИЕ В СТРАНИЦАХ НАЧАЛА СЕКТОРОВ ОБРАЗА(1) 223/ 0 : =41FEH FDI_BYTE_SMESH EQU 0X41FE ;СМЕЩЕНИЕ В БАЙТАХ НАЧАЛА ОБРАЗА ЗАГРУЖЕННОГО В РАМДИСК(1) 224/ 0 : =41FFH FDI_BLOCK_SMESH EQU 0X41FF ;СМЕЩЕНИЕ В БЛОКАХ (ПО 256 БАЙТ) НАЧАЛА СЕКТОРОВ ОБРАЗА(1) 225/ 0 : =4400H FDI_IMAGE1SECT EQU 0X4400 ;АДРЕС ЗАГРУЗКИ ПЕРВОГО СЕКТОРА ДЛЯ ОПРЕДЕЛЕНИЯ СМЕЩЕНИЯ(1) 226/ 0 :(1) 227/ 0 : ;ЯЧЕЙКИ В CMOS(1) 228/ 0 : =0H _CMOS_SECOND EQU 0 ;СЕКУНДЫ(1) 229/ 0 : =1H _CMOS_SECOND_AL EQU 1 ;СЕКУНДЫ БУДИЛЬНИКА(1) 230/ 0 : =2H _CMOS_MINUTE EQU 2 ;МИНУТЫ(1) 231/ 0 : =3H _CMOS_MINUTE_AL EQU 3 ;МИНУТЫ БУДИЛЬНИКА(1) 232/ 0 : =4H _CMOS_HOUR EQU 4 ;ЧАСЫ(1) 233/ 0 : =5H _CMOS_HOUR_AL EQU 5 ;ЧАСЫ БУДИЛЬНИКА(1) 234/ 0 : =6H _CMOS_DAY EQU 6 ;ДЕНЬ НЕДЕЛИ(1) 235/ 0 : =7H _CMOS_DAY_MONTH EQU 7 ;ДЕНЬ МЕСЯЦА(1) 236/ 0 : =8H _CMOS_MONTH EQU 8 ;МЕСЯЦ(1) 237/ 0 : =9H _CMOS_YEAR EQU 9 ;ГОД(1) 238/ 0 :(1) 239/ 0 : ;[НОМЕРА ЯЧЕЕК CMOS И ИХ СОДЕРЖИМОЕ](1) 240/ 0 : =EFH CRCCMOSHIGH EQU 0XEF ;СТАРШИЙ БАЙТ CRC CMOS(1) 241/ 0 : =EEH CRCCMOSLOW EQU 0XEE ;МЛАДШИЙ БАЙТ CRC CMOS(1) 242/ 0 : =EDH CMOS_BYTE_00 EQU 0XED ;АДРЕС ХРАНЕНИЯ В CMOS(1) 243/ 0 : =ECH CMOS_BYTE_01 EQU 0XEC ;АДРЕС ХРАНЕНИЯ В CMOS(1) 244/ 0 : =EBH VIRT_REAL_DRIVE EQU 0XEB ;ХРАНЕНИЕ НОМЕРА РЕАЛЬНОГО И ВИРТУАЛЬНОГО ДИСКОВОДА, ТИП DOS(1) 245/ 0 : =EAH HDD_TIMEOUT EQU 0XEA ;ЗАДЕРЖКА ОПРЕДЕНИЯ НАЛИЧИЯ ВИНТА ПОСЛЕ ВКЛЮЧЕНИЯ ПИТАНИЯ(1) 246/ 0 : =E9H CMOS_BYTE_02 EQU 0XE9 ;АДРЕС ХРАНЕНИЯ В CMOS(1) 247/ 0 : =E8H CMOS_BYTE_03 EQU 0XE8 ;АДРЕС ХРАНЕНИЯ В CMOS(1) 248/ 0 :(1) 249/ 0 : ;[ЯЧЕЙКА CMOS 0XED CMOS_BYTE_00](1) 250/ 0 : (MACRO) BITMASK TURBO14, 7 ;РАЗРЕШЕНИЕ ВКЛЮЧЕНИЯ TURBO 14MHZ(1) 250/ 0 : =7H B_TURBO14 EQU 7(1) 250/ 0 : =80H M_TURBO14 EQU 1<<7(1) 251/ 0 : (MACRO) BITMASK EMUL_TAPE, 6 ;РАЗРЕШЕНИЕ ЭМУЛЯЦИИ ЗАГРУЗКИ С ЛЕНТЫ(1) 251/ 0 : =6H B_EMUL_TAPE EQU 6(1) 251/ 0 : =40H M_EMUL_TAPE EQU 1<<6(1) 252/ 0 : (MACRO) BITMASK PRINTER_AY, 5 ;РАЗРЕШЕНИЕ ПОДМЕНЫ ДРАЙВЕРА ПЕЧАТИ В BASIC48(1) 252/ 0 : =5H B_PRINTER_AY EQU 5(1) 252/ 0 : =20H M_PRINTER_AY EQU 1<<5AS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/global_vars.a80) - page 10 - 2/23/2020 18:58:45(1) 253/ 0 : (MACRO) BITMASK RELOAD_FONT, 4 ;РАЗРЕШЕНИЕ ПЕРЕЗАГРУЗКИ ШРИФТА ПРИ СБРОСЕ(1) 253/ 0 : =4H B_RELOAD_FONT EQU 4(1) 253/ 0 : =10H M_RELOAD_FONT EQU 1<<4(1) 254/ 0 : (MACRO) BITMASK TYPE_FONT, 3 ;ВЫБОР КОДИРОВКИ ШРИФТА(1) 254/ 0 : =3H B_TYPE_FONT EQU 3(1) 254/ 0 : =8H M_TYPE_FONT EQU 1<<3(1) 255/ 0 : (MACRO) BITMASK AUTO_TAPE, 2 ;АВТОЗАПУСК TAP ФАЙЛОВ(1) 255/ 0 : =2H B_AUTO_TAPE EQU 2(1) 255/ 0 : =4H M_AUTO_TAPE EQU 1<<2(1) 256/ 0 :(1) 257/ 0 : ;[НОМЕРА СБРОСОВ, БИТЫ 1-0 ЯЧЕЙКИ 0XED (CMOS_BYTE_00)](1) 258/ 0 : =3H RESET2CUSTOM EQU 3 ;СБРОС В CUSTOM ROM(1) 259/ 0 : =2H RESET2PROFROM EQU 2 ;СБРОС В PROFROM(1) 260/ 0 : =1H RESET2GLUK EQU 1 ;СБРОС В GLUK SERVICE(1) 261/ 0 : =0H RESET2EVOSERV EQU 0 ;СБРОС В EVO SERVICE(1) 262/ 0 :(1) 263/ 0 : ;[ЯЧЕЙКА CMOS 0XEC CMOS_BYTE_01](1) 264/ 0 : (MACRO) BITMASK TURBO357, 7 ;ТУРБО РЕЖИМ 3,5 ИЛИ 7 МГЦ(1) 264/ 0 : =7H B_TURBO357 EQU 7(1) 264/ 0 : =80H M_TURBO357 EQU 1<<7(1) 265/ 0 : (MACRO) BITMASK SD_NGS_ONOFF, 6 ;ВКЛЮЧЕНИЕ/ВЫКЛЮЧЕНИЕ ДОСТУПА К SD КАРТЕ NEOGS(1) 265/ 0 : =6H B_SD_NGS_ONOFF EQU 6(1) 265/ 0 : =40H M_SD_NGS_ONOFF EQU 1<<6(1) 266/ 0 : (MACRO) BITMASK AUTOMOUNT, 5 ;ВКЛ/ВЫКЛ АВТОМОНТИРОВАНИЯ ИЗ ФАЙЛА(1) 266/ 0 : =5H B_AUTOMOUNT EQU 5(1) 266/ 0 : =20H M_AUTOMOUNT EQU 1<<5(1) 267/ 0 : (MACRO) BITMASK CLOCK_VIEW, 4 ;ХРАНЕНИЕ ОТОБРАЖЕНИЕ ЧАСОВ(1) 267/ 0 : =4H B_CLOCK_VIEW EQU 4(1) 267/ 0 : =10H M_CLOCK_VIEW EQU 1<<4(1) 268/ 0 : (MACRO) BITMASK SOUNDKEYS, 3 ;РАЗРЕШЕНИЕ ОЗВУЧИВАНИЯ НАЖАТЫХ КЛАВИШ(1) 268/ 0 : =3H B_SOUNDKEYS EQU 3(1) 268/ 0 : =8H M_SOUNDKEYS EQU 1<<3(1) 269/ 0 : (MACRO) BITMASK REZIDENT, 2 ;РАЗРЕШЕНИЕ ПРОВЕРКИ НАЛИЧИЯ РЕЗИДЕНТА(1) 269/ 0 : =2H B_REZIDENT EQU 2(1) 269/ 0 : =4H M_REZIDENT EQU 1<<2(1) 270/ 0 :(1) 271/ 0 : ;[НОМЕРА МОДЕЛЕЙ ПАМЯТИ, БИТЫ 1-0 ЯЧЕЙКИ 0XEC (CMOS_BYTE_01)](1) 272/ 0 : =2H _128K EQU 2 ;ПАМЯТЬ 128 Кб(1) 273/ 0 : =1H _48K EQU 1 ;ПАМЯТЬ 48 Кб(1) 274/ 0 : =0H _1MB EQU 0 ;ПАМЯТЬ 1 Мб(1) 275/ 0 :(1) 276/ 0 : =4H KOL_MODES EQU 4 ;КОЛИЧЕСТВО РЕЖИМОВ СБРОСА(1) 277/ 0 : =3H MKOL_MODES EQU 3 ;МАСКА ДЛЯ КОЛИЧЕСТВА РЕЖИМОВ СБРОСА(1) 278/ 0 :(1) 279/ 0 : ;[ЯЧЕЙКА CMOS 0XEB](1) 280/ 0 : (MACRO) BITMASK ACCESSZCSD, 7 ;РАЗРЕШЕНИЕ ДОСТУПА К ZC SD CARD(1) 280/ 0 : =7H B_ACCESSZCSD EQU 7(1) 280/ 0 : =80H M_ACCESSZCSD EQU 1<<7(1) 281/ 0 : (MACRO) BITMASK ACCESSSDG, 6 ;РАЗРЕШЕНИЯ ДОСТУПА К SD КАРТЕ NEOGS(1) 281/ 0 : =6H B_ACCESSSDG EQU 6(1) 281/ 0 : =40H M_ACCESSSDG EQU 1<<6(1) 282/ 0 : (MACRO) BITMASK ACCESSHDDM, 5 ;РАЗРЕШЕНИЕ ДОСТУПА К HDD MASTER(1) 282/ 0 : =5H B_ACCESSHDDM EQU 5(1) 282/ 0 : =20H M_ACCESSHDDM EQU 1<<5(1) 283/ 0 : (MACRO) BITMASK ACCESSHDDS, 4 ;РАЗРЕШЕНИЕ ДОСТУПА К HDD SLAVE(1) 283/ 0 : =4H B_ACCESSHDDS EQU 4(1) 283/ 0 : =10H M_ACCESSHDDS EQU 1<<4(1) 284/ 0 : =CH _REAL_DRIVE EQU %00001100 ;МАСКА НОМЕРА РЕАЛЬНОГО ДИСКОВОДА(1) 285/ 0 : =3H _VIRT_DRIVE EQU %00000011 ;МАСКА НОМЕРА ВИРТУАЛЬНОГО ДИСКОВОДА(1) 286/ 0 :AS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/global_vars.a80) - page 11 - 2/23/2020 18:58:45(1) 287/ 0 : ;[ЯЧЕЙКА CMOS 0XE9](1) 288/ 0 : (MACRO) BITMASK AUTOBOOT, 7 ;АВТОСТАРТ ЗАГРУЖАЕМОГО УСТРОЙСТВА(1) 288/ 0 : =7H B_AUTOBOOT EQU 7(1) 288/ 0 : =80H M_AUTOBOOT EQU 1<<7(1) 289/ 0 : =3H BOOTDEVICE EQU %00000011 ;НОМЕР ЗАГРУЖАЕМОГО УСТРОЙСТВА(1) 290/ 0 :(1) 291/ 0 : ;[ЯЧЕЙКА CMOS 0XE8](1) 292/ 0 : (MACRO) BITMASK KILL_REZIDENT, 7 ;ИЗМЕНЕНИЕ РЕЗИДЕНТА ПЕРЕД ЗАПУСКОМ(1) 292/ 0 : =7H B_KILL_REZIDENT EQU 7(1) 292/ 0 : =80H M_KILL_REZIDENT EQU 1<<7(1) 293/ 0 :(1) 294/ 0 : ;[НОМЕРА ЗАГРУЖАЕМЫХ УСТРОЙСТВ](1) 295/ 0 : =2H _SD EQU 2 ;SD КАРТА(1) 296/ 0 : =1H _HDD EQU 1 ;ВИНЧЕСТЕР(1) 297/ 0 : =0H _FDD EQU 0 ;ДИСКОВОД(1) 298/ 0 :(1) 299/ 0 : =80H _SD_NONE EQU 0X80 ;ПРИЗНАК НЕ ВСТАВЛЕННОЙ КАРТЫ(1) 300/ 0 :(1) 301/ 0 : ;[ПЕРЕМЕННЫЕ ДЛЯ 0 ОКНА ПРОЕЦИРОВАНИЯ](1) 302/ 0 : =13H DEBUG_ONOFF EQU 0X0013 ;ВКЛ/ВЫКЛ ОТЛАДЧИКА(1) 303/ 0 : =14H ADR_SEL_ROM EQU 0X0014 ;АДРЕС ПЕРЕКЛЮЧЕНИЯ СТРАНИЦ ROM(1) 304/ 0 : =2CH CONT_RST8 EQU 0X002C ;АДРЕС ПРОДОЛЖЕНИЯ ОБРАБОТКИ RST 8(1) 305/ 0 : =34H CONTINUE_MAGIC EQU 0X0034 ;АДРЕС ПЕРЕХОДА ПРОДОЛЖЕНИЯ ОБРАБОТЧИКА MAGIC(1) 306/ 0 : =36H ADR_PERFECT EQU 0X0036 ;АДРЕС РАСПОЛОЖЕНИЯ PERFECT COMANDER(1) 307/ 0 : =3EH EI_RET EQU 0X003E ;АДРЕС РАСПОЛОЖЕНИЯ EI:RET(1) 308/ 0 : =40H UNP_DOS_FE EQU 0X0040 ;АДРЕС РАСПАКОВЩИКА DOS FE(1) 309/ 0 : =80H UNPACK EQU 0X0080 ;АДРЕС РАСПАКОВЩИКА(1) 310/ 0 : =100H _BIOS_JUMPS EQU 0X0100 ;АДРЕС НАЧАЛА ТАБЛИЦЫ ПЕРЕХОДОВ В ДРАЙВЕРЫ ДЕВАЙСОВ(1) 311/ 0 : =569H ADRBRK_EMUTAP EQU 0X0569 ;АДРЕС УСТАНОВКИ БРЯКА ДЛЯ ЭМУЛЯЦИИ ЗАГРУЗКИ TAP(1) 312/ 0 : =C000H START_STS EQU 0XC000 ;АДРЕС ВХОДА В ОТЛАДЧИК(1) 313/ 0 : =3CE8H ADR_RST8END EQU 0X3CE8 ;АДРЕС ВОЗВРАТА ИЗ RST 8(1) 314/ 0 : =8000H ICALL2PAGE EQU 0X8000 ;АДРЕС ВЫЗЫВОВ КОДА ИЗ ДРУГОЙ СТРАНИЦЫ(1) 315/ 0 :(1) 316/ 0 : =0H OFFSET_FNTSAVE EQU 0 ;800 СМЕЩЕНИЕ В СТРАНИЦЕ ДЛЯ СОХРАНЕНИЯ СЧИТАННОГО ШРИФТА(1) 317/ 0 : =800H OFFSET_BUFSYM EQU OFFSET_FNTSAVE+0X800 ;800 СМЕЩЕНИЕ В СТРАНИЦЕ ТЕКУЩЕГО ШРИФТА(1) 318/ 0 : =1000H OFFSET_SCRSAVE EQU OFFSET_BUFSYM+0X800 ;1B00 СМЕЩЕНИЕ В СТРАНИЦЕ ДЛЯ СОХРАНЕНИЯ ЭКРАНА(1) 319/ 0 : =2B00H OFFSET_USBDRV EQU OFFSET_SCRSAVE+0X1B00 ;??? СМЕЩЕНИЕ ДО НАЧАЛА USB ДРАЙВЕРА(1) 320/ 0 :(1) 321/ 0 : =BE00H BUF_512 EQU CPU3-0X200 ;200 БУФЕР СЕКТОРА(1) 322/ 0 : =BD00H BUF_TABLVOL EQU BUF_512-0X100 ;100 БУФЕР ТАБЛИЦЫ НАЙДЕННЫХ РАЗДЕЛОВ(1) 323/ 0 : =BC00H BUF_TEKVOL EQU BUF_TABLVOL-0X100 ;100 БУФЕР ВЫБРАННОГО РАЗДЕЛА(1) 324/ 0 : =B400H BUF_TDIRCLS EQU BUF_TEKVOL-0X800 ;800 БУФЕР КЛАСТЕРОВ ТЕКУЩЕЙ ДИРЕКТОРИИ(1) 325/ 0 : =B300H BUF_256 EQU BUF_TDIRCLS-0X100 ;100 БУФЕР 256 БАЙТ ДЛЯ ПЕРЕНОСОВ(1) 326/ 0 : =B200H BUF_PATH EQU BUF_256-0X100 ;100 БУФЕР ТЕКУЩЕГО ПУТИ(1) 327/ 0 : =B100H MOUNT_DRIVES EQU BUF_PATH-0X100 ;100 БУФЕР ОПИСАТЕЛЕЙ ПРИМОНТИРОВАННЫХ ФАЙЛОВ(1) 328/ 0 : =B000H BUF_LEVELDIR EQU MOUNT_DRIVES-0X100 ;200 БУФЕР СОХРАНЕНИЯ ПОЗИЦИЙ ОКОН ПРИ ПЕРЕХОДАХ ПО ДИРЕКТОРИЯМ(1) 329/ 0 : =AC00H BUF_WINPATH EQU BUF_LEVELDIR-0X400 ;400 БУФЕР СОХРАНЕНИЯ ПОЗИЦИЙ В ОКНЕ ПРИ ХОЖДЕНИИ ПО ДИРЕКТОРИЯМ(1) 330/ 0 :(1) 331/ 0 : ;[ПЕРЕМЕННЫЕ ДЛЯ МЕНЕДЖЕРА УСТРОЙСТВ](1) 332/ 0 : =BDE0H DEVICES EQU BUF_TABLVOL+0XE0 ;10 СПИСОК ОБНАРУЖЕННЫХ ДЕВАЙСОВ(1) 333/ 0 : =BDF0H GO_DEV EQU DEVICES+0X10 ;2 АДРЕС ВЫЗОВА ДРАЙВЕРА УСТРОЙСТВА(1) 334/ 0 : =BDF2H KOLDVOL EQU GO_DEV+2 ;1 КОЛИЧЕСТВО НАЙДЕННЫХ РАЗДЕЛОВ(1) 335/ 0 : =BDF3H SETDVOL EQU KOLDVOL+1 ;1 НОМЕР ВЫБРАННОГО РАЗДЕЛА(1) 336/ 0 : =BDF4H ADRTEKV EQU SETDVOL+1 ;2 АДРЕС ОПИСАТЕЛЯ ТЕКУЩЕГО РАЗДЕЛА(1) 337/ 0 : =BDF6H SAVE_TEK_VOL EQU ADRTEKV+2 ;1 ВРЕМЕННОЕ СОХРАНЕНИЕ ТЕКУЩЕГО РАЗДЕЛА(1) 338/ 0 : =BDF7H TEK_TYPE EQU SAVE_TEK_VOL+1 ;1 ВРЕМЕННОЕ ХРАНЕНИЕ ТИПА ТЕКУЩЕГО УСТРОЙСТВА(1) 339/ 0 : =BDF8H FLAGS_DRV EQU TEK_TYPE+1 ;1 ФЛАГОВЫЙ БАЙТ ДРАЙВЕРОВ(1) 340/ 0 : ;7 =0-ДРАЙВЕР SD КАРТЫ NEOGS НЕ УСТАНОВЛЕН, =1-УСТАНОВЛЕН(1) 341/ 0 : ;6(1) 342/ 0 : ;5AS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/global_vars.a80) - page 12 - 2/23/2020 18:58:45(1) 343/ 0 : ;4(1) 344/ 0 : ;3(1) 345/ 0 : ;2(1) 346/ 0 : ;1 =0-SD ZC КАРТА НЕ ОБНАРУЖЕНА, 1-ОБНАРУЖЕНА(1) 347/ 0 : ;0 =0-SD NeoGS НЕ ОБНАРУЖЕНА, 1-ОБНАРУЖЕНА(1) 348/ 0 : =BDFEH CRC_DRVS EQU BUF_TABLVOL+0XFE ;2 КОНТРОЛЬНАЯ СУММА ТАБЛИЦЫ НАЙДЕННЫХ РАЗДЕЛОВ(1) 349/ 0 :(1) 350/ 0 : ;[ПЕРЕМЕННЫЕ ДЛЯ 1 ОКНА ПРОЕЦИРОВАНИЯ](1) 351/ 0 : =0H BUF_ALLVOL EQU 0 ;1000 БУФЕР ПЕРЕМЕННЫХ ДЛЯ ВСЕХ РАЗДЕЛОВ (16 MAX)(1) 352/ 0 : =1000H MOUNT_CLS EQU BUF_ALLVOL+0X1000 ;1000 БУФЕР КЛАСТЕРОВ ПРИМОНТИРОВАННЫХ ФАЙЛОВ(1) 353/ 0 : =2000H TEK_BUFPATH EQU MOUNT_CLS+0X1000 ;1000 БУФЕР ТЕКУЩИХ ПУТЕЙ НА РАЗДЕЛАХ(1) 354/ 0 : =3000H BUF_PATHMOUNT EQU TEK_BUFPATH+0X1000 ;400 БУФЕР ПУТЕЙ ДЛЯ ПОИСКА ПРИМОНТИРОВАННЫХ ФАЙЛОВ(1) 355/ 0 : =3400H BUF_DIRCEP EQU BUF_PATHMOUNT+0X400 ;100 БУФЕР ЦЕПОЧКИ ТЕКУЩЕЙ ДИРЕКТОРИИ(1) 356/ 0 : =3500H BUF_TEMPSEC EQU BUF_DIRCEP+0X100 ;200 БУФЕР СЕКТОРА ДЛЯ ЗАГРУЗКИ ОБРАЗОВ(1) 357/ 0 :8/ 0 : include ../../svn/pentevo/rom/define.a80(1) 1/ 0 :(1) 2/ 0 : ;LAST UPDATE: 05.08.2019 savelij(1) 3/ 0 :(1) 4/ 0 : ;номера функций RST 8(1) 5/ 0 : (MACRO) INIT_VAR 0X40(1) 5/ 0 : =>NOT BLANK IFNB 0X40(1) 5/ 0 : =40H INITVAR := 0X40(1) 5/ 0 : =>FALSE ELSE(1) 5/ 0 : INITVAR := 0(1) 5/ 0 : [5] ENDIF(1) 6/ 0 : (MACRO) SETVAR _AY_PRN_INIT(1) 6/ 0 : =40H _AY_PRN_INIT EQU INITVAR(1) 6/ 0 : =>BLANK IFNB(1) 6/ 0 : INITVAR := INITVAR+(1) 6/ 0 : _AY_PRN_INIT_Size EQU(1) 6/ 0 : =>TRUE ELSE(1) 6/ 0 : =41H INITVAR := INITVAR+BYTE(1) 6/ 0 : =1H _AY_PRN_INIT_Size EQU BYTE(1) 6/ 0 : [6] ENDIF(1) 7/ 0 : (MACRO) SETVAR _AY_PRN_A_(1) 7/ 0 : =41H _AY_PRN_A_ EQU INITVAR(1) 7/ 0 : =>BLANK IFNB(1) 7/ 0 : INITVAR := INITVAR+(1) 7/ 0 : _AY_PRN_A__Size EQU(1) 7/ 0 : =>TRUE ELSE(1) 7/ 0 : =42H INITVAR := INITVAR+BYTE(1) 7/ 0 : =1H _AY_PRN_A__Size EQU BYTE(1) 7/ 0 : [7] ENDIF(1) 8/ 0 : (MACRO) SETVAR _AY_PRN_TOKEN(1) 8/ 0 : =42H _AY_PRN_TOKEN EQU INITVAR(1) 8/ 0 : =>BLANK IFNB(1) 8/ 0 : INITVAR := INITVAR+(1) 8/ 0 : _AY_PRN_TOKEN_Size EQU(1) 8/ 0 : =>TRUE ELSE(1) 8/ 0 : =43H INITVAR := INITVAR+BYTE(1) 8/ 0 : =1H _AY_PRN_TOKEN_Size EQU BYTE(1) 8/ 0 : [8] ENDIF(1) 9/ 0 : (MACRO) SETVAR _AY_PRN_SCR(1) 9/ 0 : =43H _AY_PRN_SCR EQU INITVAR(1) 9/ 0 : =>BLANK IFNB(1) 9/ 0 : INITVAR := INITVAR+(1) 9/ 0 : _AY_PRN_SCR_Size EQU(1) 9/ 0 : =>TRUE ELSE(1) 9/ 0 : =44H INITVAR := INITVAR+BYTEAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 13 - 2/23/2020 18:58:45(1) 9/ 0 : =1H _AY_PRN_SCR_Size EQU BYTE(1) 9/ 0 : [9] ENDIF(1) 10/ 0 : (MACRO) SETVAR _TAPE_INIT(1) 10/ 0 : =44H _TAPE_INIT EQU INITVAR(1) 10/ 0 : =>BLANK IFNB(1) 10/ 0 : INITVAR := INITVAR+(1) 10/ 0 : _TAPE_INIT_Size EQU(1) 10/ 0 : =>TRUE ELSE(1) 10/ 0 : =45H INITVAR := INITVAR+BYTE(1) 10/ 0 : =1H _TAPE_INIT_Size EQU BYTE(1) 10/ 0 : [10] ENDIF(1) 11/ 0 : (MACRO) SETVAR _TAPE_EMUL(1) 11/ 0 : =45H _TAPE_EMUL EQU INITVAR(1) 11/ 0 : =>BLANK IFNB(1) 11/ 0 : INITVAR := INITVAR+(1) 11/ 0 : _TAPE_EMUL_Size EQU(1) 11/ 0 : =>TRUE ELSE(1) 11/ 0 : =46H INITVAR := INITVAR+BYTE(1) 11/ 0 : =1H _TAPE_EMUL_Size EQU BYTE(1) 11/ 0 : [11] ENDIF(1) 12/ 0 : (MACRO) SETVAR _WINW(1) 12/ 0 : =46H _WINW EQU INITVAR(1) 12/ 0 : =>BLANK IFNB(1) 12/ 0 : INITVAR := INITVAR+(1) 12/ 0 : _WINW_Size EQU(1) 12/ 0 : =>TRUE ELSE(1) 12/ 0 : =47H INITVAR := INITVAR+BYTE(1) 12/ 0 : =1H _WINW_Size EQU BYTE(1) 12/ 0 : [12] ENDIF(1) 13/ 0 : (MACRO) SETVAR _PRINT_MESSAGE(1) 13/ 0 : =47H _PRINT_MESSAGE EQU INITVAR(1) 13/ 0 : =>BLANK IFNB(1) 13/ 0 : INITVAR := INITVAR+(1) 13/ 0 : _PRINT_MESSAGE_Size EQU(1) 13/ 0 : =>TRUE ELSE(1) 13/ 0 : =48H INITVAR := INITVAR+BYTE(1) 13/ 0 : =1H _PRINT_MESSAGE_Size EQU BYTE(1) 13/ 0 : [13] ENDIF(1) 14/ 0 : (MACRO) SETVAR _PRINT_A(1) 14/ 0 : =48H _PRINT_A EQU INITVAR(1) 14/ 0 : =>BLANK IFNB(1) 14/ 0 : INITVAR := INITVAR+(1) 14/ 0 : _PRINT_A_Size EQU(1) 14/ 0 : =>TRUE ELSE(1) 14/ 0 : =49H INITVAR := INITVAR+BYTE(1) 14/ 0 : =1H _PRINT_A_Size EQU BYTE(1) 14/ 0 : [14] ENDIF(1) 15/ 0 : (MACRO) SETVAR _SCROLL_UP(1) 15/ 0 : =49H _SCROLL_UP EQU INITVAR(1) 15/ 0 : =>BLANK IFNB(1) 15/ 0 : INITVAR := INITVAR+(1) 15/ 0 : _SCROLL_UP_Size EQU(1) 15/ 0 : =>TRUE ELSE(1) 15/ 0 : =4AH INITVAR := INITVAR+BYTE(1) 15/ 0 : =1H _SCROLL_UP_Size EQU BYTE(1) 15/ 0 : [15] ENDIF(1) 16/ 0 : (MACRO) SETVAR _SCROLL_DOWN(1) 16/ 0 : =4AH _SCROLL_DOWN EQU INITVAR(1) 16/ 0 : =>BLANK IFNB(1) 16/ 0 : INITVAR := INITVAR+AS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 14 - 2/23/2020 18:58:45(1) 16/ 0 : _SCROLL_DOWN_Size EQU(1) 16/ 0 : =>TRUE ELSE(1) 16/ 0 : =4BH INITVAR := INITVAR+BYTE(1) 16/ 0 : =1H _SCROLL_DOWN_Size EQU BYTE(1) 16/ 0 : [16] ENDIF(1) 17/ 0 : (MACRO) SETVAR _SET_MODE(1) 17/ 0 : =4BH _SET_MODE EQU INITVAR(1) 17/ 0 : =>BLANK IFNB(1) 17/ 0 : INITVAR := INITVAR+(1) 17/ 0 : _SET_MODE_Size EQU(1) 17/ 0 : =>TRUE ELSE(1) 17/ 0 : =4CH INITVAR := INITVAR+BYTE(1) 17/ 0 : =1H _SET_MODE_Size EQU BYTE(1) 17/ 0 : [17] ENDIF(1) 18/ 0 : (MACRO) SETVAR _MATH(1) 18/ 0 : =4CH _MATH EQU INITVAR(1) 18/ 0 : =>BLANK IFNB(1) 18/ 0 : INITVAR := INITVAR+(1) 18/ 0 : _MATH_Size EQU(1) 18/ 0 : =>TRUE ELSE(1) 18/ 0 : =4DH INITVAR := INITVAR+BYTE(1) 18/ 0 : =1H _MATH_Size EQU BYTE(1) 18/ 0 : [18] ENDIF(1) 19/ 0 : (MACRO) SETVAR _VERSION(1) 19/ 0 : =4DH _VERSION EQU INITVAR(1) 19/ 0 : =>BLANK IFNB(1) 19/ 0 : INITVAR := INITVAR+(1) 19/ 0 : _VERSION_Size EQU(1) 19/ 0 : =>TRUE ELSE(1) 19/ 0 : =4EH INITVAR := INITVAR+BYTE(1) 19/ 0 : =1H _VERSION_Size EQU BYTE(1) 19/ 0 : [19] ENDIF(1) 20/ 0 :(1) 21/ 0 : (MACRO) INIT_VAR 0X4F(1) 21/ 0 : =>NOT BLANK IFNB 0X4F(1) 21/ 0 : =4FH INITVAR := 0X4F(1) 21/ 0 : =>FALSE ELSE(1) 21/ 0 : INITVAR := 0(1) 21/ 0 : [21] ENDIF(1) 22/ 0 : (MACRO) SETVAR _BIOS(1) 22/ 0 : =4FH _BIOS EQU INITVAR(1) 22/ 0 : =>BLANK IFNB(1) 22/ 0 : INITVAR := INITVAR+(1) 22/ 0 : _BIOS_Size EQU(1) 22/ 0 : =>TRUE ELSE(1) 22/ 0 : =50H INITVAR := INITVAR+BYTE(1) 22/ 0 : =1H _BIOS_Size EQU BYTE(1) 22/ 0 : [22] ENDIF(1) 23/ 0 : (MACRO) SETVAR _COM_DEV(1) 23/ 0 : =50H _COM_DEV EQU INITVAR(1) 23/ 0 : =>BLANK IFNB(1) 23/ 0 : INITVAR := INITVAR+(1) 23/ 0 : _COM_DEV_Size EQU(1) 23/ 0 : =>TRUE ELSE(1) 23/ 0 : =51H INITVAR := INITVAR+BYTE(1) 23/ 0 : =1H _COM_DEV_Size EQU BYTE(1) 23/ 0 : [23] ENDIF(1) 24/ 0 : (MACRO) SETVAR _COM_FAT(1) 24/ 0 : =51H _COM_FAT EQU INITVAR(1) 24/ 0 : =>BLANK IFNBAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 15 - 2/23/2020 18:58:45(1) 24/ 0 : INITVAR := INITVAR+(1) 24/ 0 : _COM_FAT_Size EQU(1) 24/ 0 : =>TRUE ELSE(1) 24/ 0 : =52H INITVAR := INITVAR+BYTE(1) 24/ 0 : =1H _COM_FAT_Size EQU BYTE(1) 24/ 0 : [24] ENDIF(1) 25/ 0 : (MACRO) SETVAR _SORT_FINDFILES(1) 25/ 0 : =52H _SORT_FINDFILES EQU INITVAR(1) 25/ 0 : =>BLANK IFNB(1) 25/ 0 : INITVAR := INITVAR+(1) 25/ 0 : _SORT_FINDFILES_Size EQU(1) 25/ 0 : =>TRUE ELSE(1) 25/ 0 : =53H INITVAR := INITVAR+BYTE(1) 25/ 0 : =1H _SORT_FINDFILES_Size EQU BYTE(1) 25/ 0 : [25] ENDIF(1) 26/ 0 : (MACRO) SETVAR _MOUNTER(1) 26/ 0 : =53H _MOUNTER EQU INITVAR(1) 26/ 0 : =>BLANK IFNB(1) 26/ 0 : INITVAR := INITVAR+(1) 26/ 0 : _MOUNTER_Size EQU(1) 26/ 0 : =>TRUE ELSE(1) 26/ 0 : =54H INITVAR := INITVAR+BYTE(1) 26/ 0 : =1H _MOUNTER_Size EQU BYTE(1) 26/ 0 : [26] ENDIF(1) 27/ 0 : (MACRO) SETVAR _INST_FATBOOT(1) 27/ 0 : =54H _INST_FATBOOT EQU INITVAR(1) 27/ 0 : =>BLANK IFNB(1) 27/ 0 : INITVAR := INITVAR+(1) 27/ 0 : _INST_FATBOOT_Size EQU(1) 27/ 0 : =>TRUE ELSE(1) 27/ 0 : =55H INITVAR := INITVAR+BYTE(1) 27/ 0 : =1H _INST_FATBOOT_Size EQU BYTE(1) 27/ 0 : [27] ENDIF(1) 28/ 0 : (MACRO) SETVAR _CMOS_RW(1) 28/ 0 : =55H _CMOS_RW EQU INITVAR(1) 28/ 0 : =>BLANK IFNB(1) 28/ 0 : INITVAR := INITVAR+(1) 28/ 0 : _CMOS_RW_Size EQU(1) 28/ 0 : =>TRUE ELSE(1) 28/ 0 : =56H INITVAR := INITVAR+BYTE(1) 28/ 0 : =1H _CMOS_RW_Size EQU BYTE(1) 28/ 0 : [28] ENDIF(1) 29/ 0 : (MACRO) SETVAR _SETUP_PAL(1) 29/ 0 : =56H _SETUP_PAL EQU INITVAR(1) 29/ 0 : =>BLANK IFNB(1) 29/ 0 : INITVAR := INITVAR+(1) 29/ 0 : _SETUP_PAL_Size EQU(1) 29/ 0 : =>TRUE ELSE(1) 29/ 0 : =57H INITVAR := INITVAR+BYTE(1) 29/ 0 : =1H _SETUP_PAL_Size EQU BYTE(1) 29/ 0 : [29] ENDIF(1) 30/ 0 : (MACRO) SETVAR _SETUP_FONT(1) 30/ 0 : =57H _SETUP_FONT EQU INITVAR(1) 30/ 0 : =>BLANK IFNB(1) 30/ 0 : INITVAR := INITVAR+(1) 30/ 0 : _SETUP_FONT_Size EQU(1) 30/ 0 : =>TRUE ELSE(1) 30/ 0 : =58H INITVAR := INITVAR+BYTE(1) 30/ 0 : =1H _SETUP_FONT_Size EQU BYTE(1) 30/ 0 : [30] ENDIFAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 16 - 2/23/2020 18:58:45(1) 31/ 0 :(1) 32/ 0 : ;функции изменения режимов работы(1) 33/ 0 : =1H _ZXSCR_MODE EQU %00000001 ;ZX SCREEN(1) 34/ 0 : =2H _TXTSCR_MODE EQU %00000010 ;TXT SCREEN(1) 35/ 0 : =10H _TURBO_LOW EQU %00010000 ;TURBO 3,5 MHZ(1) 36/ 0 : =20H _TURBO_HIGH EQU %00100000 ;TURBO 7,0 MHZ(1) 37/ 0 : =30H _TURBO_MAX EQU %00110000 ;TURBO 14,0 MHZ(1) 38/ 0 : =40H _MEM_MODE_48 EQU %01000000 ;MEMORY MODE 48 KB(1) 39/ 0 : =80H _MEM_MODE_128 EQU %10000000 ;MEMORY MODE 128 KB(1) 40/ 0 : =C0H _MEM_MODE_PENT EQU %11000000 ;MEMORY MODE PENT 1024 KB(1) 41/ 0 :(1) 42/ 0 : ;функции деления, умножения, преобразования числа в текст(1) 43/ 0 : (MACRO) INIT_VAR(1) 43/ 0 : =>BLANK IFNB(1) 43/ 0 : INITVAR :=(1) 43/ 0 : =>TRUE ELSE(1) 43/ 0 : =0H INITVAR := 0(1) 43/ 0 : [43] ENDIF(1) 44/ 0 : (MACRO) SETVAR _DIVIDE16(1) 44/ 0 : =0H _DIVIDE16 EQU INITVAR(1) 44/ 0 : =>BLANK IFNB(1) 44/ 0 : INITVAR := INITVAR+(1) 44/ 0 : _DIVIDE16_Size EQU(1) 44/ 0 : =>TRUE ELSE(1) 44/ 0 : =1H INITVAR := INITVAR+BYTE(1) 44/ 0 : =1H _DIVIDE16_Size EQU BYTE(1) 44/ 0 : [44] ENDIF(1) 45/ 0 : (MACRO) SETVAR _MULTIPLY16(1) 45/ 0 : =1H _MULTIPLY16 EQU INITVAR(1) 45/ 0 : =>BLANK IFNB(1) 45/ 0 : INITVAR := INITVAR+(1) 45/ 0 : _MULTIPLY16_Size EQU(1) 45/ 0 : =>TRUE ELSE(1) 45/ 0 : =2H INITVAR := INITVAR+BYTE(1) 45/ 0 : =1H _MULTIPLY16_Size EQU BYTE(1) 45/ 0 : [45] ENDIF(1) 46/ 0 : (MACRO) SETVAR _DIVIDE32(1) 46/ 0 : =2H _DIVIDE32 EQU INITVAR(1) 46/ 0 : =>BLANK IFNB(1) 46/ 0 : INITVAR := INITVAR+(1) 46/ 0 : _DIVIDE32_Size EQU(1) 46/ 0 : =>TRUE ELSE(1) 46/ 0 : =3H INITVAR := INITVAR+BYTE(1) 46/ 0 : =1H _DIVIDE32_Size EQU BYTE(1) 46/ 0 : [46] ENDIF(1) 47/ 0 : (MACRO) SETVAR _MULTIPLY32(1) 47/ 0 : =3H _MULTIPLY32 EQU INITVAR(1) 47/ 0 : =>BLANK IFNB(1) 47/ 0 : INITVAR := INITVAR+(1) 47/ 0 : _MULTIPLY32_Size EQU(1) 47/ 0 : =>TRUE ELSE(1) 47/ 0 : =4H INITVAR := INITVAR+BYTE(1) 47/ 0 : =1H _MULTIPLY32_Size EQU BYTE(1) 47/ 0 : [47] ENDIF(1) 48/ 0 : (MACRO) SETVAR _HEX4DECTXT(1) 48/ 0 : =4H _HEX4DECTXT EQU INITVAR(1) 48/ 0 : =>BLANK IFNB(1) 48/ 0 : INITVAR := INITVAR+(1) 48/ 0 : _HEX4DECTXT_Size EQU(1) 48/ 0 : =>TRUE ELSEAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 17 - 2/23/2020 18:58:45(1) 48/ 0 : =5H INITVAR := INITVAR+BYTE(1) 48/ 0 : =1H _HEX4DECTXT_Size EQU BYTE(1) 48/ 0 : [48] ENDIF(1) 49/ 0 : (MACRO) SETVAR _HEX2DECTXT(1) 49/ 0 : =5H _HEX2DECTXT EQU INITVAR(1) 49/ 0 : =>BLANK IFNB(1) 49/ 0 : INITVAR := INITVAR+(1) 49/ 0 : _HEX2DECTXT_Size EQU(1) 49/ 0 : =>TRUE ELSE(1) 49/ 0 : =6H INITVAR := INITVAR+BYTE(1) 49/ 0 : =1H _HEX2DECTXT_Size EQU BYTE(1) 49/ 0 : [49] ENDIF(1) 50/ 0 : (MACRO) SETVAR _HEX1DECTXT(1) 50/ 0 : =6H _HEX1DECTXT EQU INITVAR(1) 50/ 0 : =>BLANK IFNB(1) 50/ 0 : INITVAR := INITVAR+(1) 50/ 0 : _HEX1DECTXT_Size EQU(1) 50/ 0 : =>TRUE ELSE(1) 50/ 0 : =7H INITVAR := INITVAR+BYTE(1) 50/ 0 : =1H _HEX1DECTXT_Size EQU BYTE(1) 50/ 0 : [50] ENDIF(1) 51/ 0 :(1) 52/ 0 : ;функции работы с CMOS(1) 53/ 0 : (MACRO) INIT_VAR(1) 53/ 0 : =>BLANK IFNB(1) 53/ 0 : INITVAR :=(1) 53/ 0 : =>TRUE ELSE(1) 53/ 0 : =0H INITVAR := 0(1) 53/ 0 : [53] ENDIF(1) 54/ 0 : (MACRO) SETVAR _INIT_CMOS(1) 54/ 0 : =0H _INIT_CMOS EQU INITVAR(1) 54/ 0 : =>BLANK IFNB(1) 54/ 0 : INITVAR := INITVAR+(1) 54/ 0 : _INIT_CMOS_Size EQU(1) 54/ 0 : =>TRUE ELSE(1) 54/ 0 : =1H INITVAR := INITVAR+BYTE(1) 54/ 0 : =1H _INIT_CMOS_Size EQU BYTE(1) 54/ 0 : [54] ENDIF(1) 55/ 0 : (MACRO) SETVAR _READ_CMOS(1) 55/ 0 : =1H _READ_CMOS EQU INITVAR(1) 55/ 0 : =>BLANK IFNB(1) 55/ 0 : INITVAR := INITVAR+(1) 55/ 0 : _READ_CMOS_Size EQU(1) 55/ 0 : =>TRUE ELSE(1) 55/ 0 : =2H INITVAR := INITVAR+BYTE(1) 55/ 0 : =1H _READ_CMOS_Size EQU BYTE(1) 55/ 0 : [55] ENDIF(1) 56/ 0 : (MACRO) SETVAR _WRITE_CMOS(1) 56/ 0 : =2H _WRITE_CMOS EQU INITVAR(1) 56/ 0 : =>BLANK IFNB(1) 56/ 0 : INITVAR := INITVAR+(1) 56/ 0 : _WRITE_CMOS_Size EQU(1) 56/ 0 : =>TRUE ELSE(1) 56/ 0 : =3H INITVAR := INITVAR+BYTE(1) 56/ 0 : =1H _WRITE_CMOS_Size EQU BYTE(1) 56/ 0 : [56] ENDIF(1) 57/ 0 : (MACRO) SETVAR _CLEAR_CMOS(1) 57/ 0 : =3H _CLEAR_CMOS EQU INITVAR(1) 57/ 0 : =>BLANK IFNB(1) 57/ 0 : INITVAR := INITVAR+AS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 18 - 2/23/2020 18:58:45(1) 57/ 0 : _CLEAR_CMOS_Size EQU(1) 57/ 0 : =>TRUE ELSE(1) 57/ 0 : =4H INITVAR := INITVAR+BYTE(1) 57/ 0 : =1H _CLEAR_CMOS_Size EQU BYTE(1) 57/ 0 : [57] ENDIF(1) 58/ 0 :(1) 59/ 0 : ;функции монтировщика образов(1) 60/ 0 : (MACRO) INIT_VAR(1) 60/ 0 : =>BLANK IFNB(1) 60/ 0 : INITVAR :=(1) 60/ 0 : =>TRUE ELSE(1) 60/ 0 : =0H INITVAR := 0(1) 60/ 0 : [60] ENDIF(1) 61/ 0 : (MACRO) SETVAR _OPEN_MOUNT ; монтирование образа(1) 61/ 0 : =0H _OPEN_MOUNT EQU INITVAR(1) 61/ 0 : =>BLANK IFNB(1) 61/ 0 : INITVAR := INITVAR+(1) 61/ 0 : _OPEN_MOUNT_Size EQU(1) 61/ 0 : =>TRUE ELSE(1) 61/ 0 : =1H INITVAR := INITVAR+BYTE(1) 61/ 0 : =1H _OPEN_MOUNT_Size EQU BYTE(1) 61/ 0 : [61] ENDIF(1) 62/ 0 : (MACRO) SETVAR _RDWR_MOUNT ; чтение/запись примонтированных образов(1) 62/ 0 : =1H _RDWR_MOUNT EQU INITVAR(1) 62/ 0 : =>BLANK IFNB(1) 62/ 0 : INITVAR := INITVAR+(1) 62/ 0 : _RDWR_MOUNT_Size EQU(1) 62/ 0 : =>TRUE ELSE(1) 62/ 0 : =2H INITVAR := INITVAR+BYTE(1) 62/ 0 : =1H _RDWR_MOUNT_Size EQU BYTE(1) 62/ 0 : [62] ENDIF(1) 63/ 0 : (MACRO) SETVAR _FIND_MOUNTED ; поиск монтируемых образов прописанных в IMAGE.FNT(1) 63/ 0 : =2H _FIND_MOUNTED EQU INITVAR(1) 63/ 0 : =>BLANK IFNB(1) 63/ 0 : INITVAR := INITVAR+(1) 63/ 0 : _FIND_MOUNTED_Size EQU(1) 63/ 0 : =>TRUE ELSE(1) 63/ 0 : =3H INITVAR := INITVAR+BYTE(1) 63/ 0 : =1H _FIND_MOUNTED_Size EQU BYTE(1) 63/ 0 : [63] ENDIF(1) 64/ 0 : (MACRO) SETVAR _GET_MOUNTED ; получение буфера описателей примонтированных образов(1) 64/ 0 : =3H _GET_MOUNTED EQU INITVAR(1) 64/ 0 : =>BLANK IFNB(1) 64/ 0 : INITVAR := INITVAR+(1) 64/ 0 : _GET_MOUNTED_Size EQU(1) 64/ 0 : =>TRUE ELSE(1) 64/ 0 : =4H INITVAR := INITVAR+BYTE(1) 64/ 0 : =1H _GET_MOUNTED_Size EQU BYTE(1) 64/ 0 : [64] ENDIF(1) 65/ 0 : (MACRO) SETVAR _CLOSEMOUNT ; демонтирование образа(1) 65/ 0 : =4H _CLOSEMOUNT EQU INITVAR(1) 65/ 0 : =>BLANK IFNB(1) 65/ 0 : INITVAR := INITVAR+(1) 65/ 0 : _CLOSEMOUNT_Size EQU(1) 65/ 0 : =>TRUE ELSE(1) 65/ 0 : =5H INITVAR := INITVAR+BYTE(1) 65/ 0 : =1H _CLOSEMOUNT_Size EQU BYTE(1) 65/ 0 : [65] ENDIF(1) 66/ 0 : (MACRO) SETVAR _LOADIMAGE ; загрузка образа в рамдиск(1) 66/ 0 : =5H _LOADIMAGE EQU INITVARAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 19 - 2/23/2020 18:58:45(1) 66/ 0 : =>BLANK IFNB(1) 66/ 0 : INITVAR := INITVAR+(1) 66/ 0 : _LOADIMAGE_Size EQU(1) 66/ 0 : =>TRUE ELSE(1) 66/ 0 : =6H INITVAR := INITVAR+BYTE(1) 66/ 0 : =1H _LOADIMAGE_Size EQU BYTE(1) 66/ 0 : [66] ENDIF(1) 67/ 0 : (MACRO) SETVAR _REST_NAMELOAD ; получение описателя файла загруженного в рамдиск(1) 67/ 0 : =6H _REST_NAMELOAD EQU INITVAR(1) 67/ 0 : =>BLANK IFNB(1) 67/ 0 : INITVAR := INITVAR+(1) 67/ 0 : _REST_NAMELOAD_Size EQU(1) 67/ 0 : =>TRUE ELSE(1) 67/ 0 : =7H INITVAR := INITVAR+BYTE(1) 67/ 0 : =1H _REST_NAMELOAD_Size EQU BYTE(1) 67/ 0 : [67] ENDIF(1) 68/ 0 : (MACRO) SETVAR _CMP_DRIVE ; проверка примонтированного образа на указанной букве(1) 68/ 0 : =7H _CMP_DRIVE EQU INITVAR(1) 68/ 0 : =>BLANK IFNB(1) 68/ 0 : INITVAR := INITVAR+(1) 68/ 0 : _CMP_DRIVE_Size EQU(1) 68/ 0 : =>TRUE ELSE(1) 68/ 0 : =8H INITVAR := INITVAR+BYTE(1) 68/ 0 : =1H _CMP_DRIVE_Size EQU BYTE(1) 68/ 0 : [68] ENDIF(1) 69/ 0 : (MACRO) SETVAR _GET_VIRT_BITS ; получение битов смонтированных дисков(1) 69/ 0 : =8H _GET_VIRT_BITS EQU INITVAR(1) 69/ 0 : =>BLANK IFNB(1) 69/ 0 : INITVAR := INITVAR+(1) 69/ 0 : _GET_VIRT_BITS_Size EQU(1) 69/ 0 : =>TRUE ELSE(1) 69/ 0 : =9H INITVAR := INITVAR+BYTE(1) 69/ 0 : =1H _GET_VIRT_BITS_Size EQU BYTE(1) 69/ 0 : [69] ENDIF(1) 70/ 0 : (MACRO) SETVAR _MOUNT_RAMDISK ; монтирование рамдиска(1) 70/ 0 : =9H _MOUNT_RAMDISK EQU INITVAR(1) 70/ 0 : =>BLANK IFNB(1) 70/ 0 : INITVAR := INITVAR+(1) 70/ 0 : _MOUNT_RAMDISK_Size EQU(1) 70/ 0 : =>TRUE ELSE(1) 70/ 0 : =AH INITVAR := INITVAR+BYTE(1) 70/ 0 : =1H _MOUNT_RAMDISK_Size EQU BYTE(1) 70/ 0 : [70] ENDIF(1) 71/ 0 :(1) 72/ 0 : ;номера функций менеджера устройств(1) 73/ 0 : (MACRO) INIT_VAR(1) 73/ 0 : =>BLANK IFNB(1) 73/ 0 : INITVAR :=(1) 73/ 0 : =>TRUE ELSE(1) 73/ 0 : =0H INITVAR := 0(1) 73/ 0 : [73] ENDIF(1) 74/ 0 : (MACRO) SETVAR _DEVFIND ;00 ПОИСК УСТРОЙСТВ(1) 74/ 0 : =0H _DEVFIND EQU INITVAR(1) 74/ 0 : =>BLANK IFNB(1) 74/ 0 : INITVAR := INITVAR+(1) 74/ 0 : _DEVFIND_Size EQU(1) 74/ 0 : =>TRUE ELSE(1) 74/ 0 : =1H INITVAR := INITVAR+BYTE(1) 74/ 0 : =1H _DEVFIND_Size EQU BYTE(1) 74/ 0 : [74] ENDIFAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 20 - 2/23/2020 18:58:45(1) 75/ 0 : (MACRO) SETVAR _SET_VOL ;01 ВЫБОР РАЗДЕЛА(1) 75/ 0 : =1H _SET_VOL EQU INITVAR(1) 75/ 0 : =>BLANK IFNB(1) 75/ 0 : INITVAR := INITVAR+(1) 75/ 0 : _SET_VOL_Size EQU(1) 75/ 0 : =>TRUE ELSE(1) 75/ 0 : =2H INITVAR := INITVAR+BYTE(1) 75/ 0 : =1H _SET_VOL_Size EQU BYTE(1) 75/ 0 : [75] ENDIF(1) 76/ 0 : (MACRO) SETVAR _KOL_VOL ;02 ЗАПРОС НАЙДЕНОГО(1) 76/ 0 : =2H _KOL_VOL EQU INITVAR(1) 76/ 0 : =>BLANK IFNB(1) 76/ 0 : INITVAR := INITVAR+(1) 76/ 0 : _KOL_VOL_Size EQU(1) 76/ 0 : =>TRUE ELSE(1) 76/ 0 : =3H INITVAR := INITVAR+BYTE(1) 76/ 0 : =1H _KOL_VOL_Size EQU BYTE(1) 76/ 0 : [76] ENDIF(1) 77/ 0 : (MACRO) SETVAR _GET_FNDVOLUME ;03 ПОЛУЧИТЬ ТАБЛИЦУ НАЙДЕННЫХ РАЗДЕЛОВ(1) 77/ 0 : =3H _GET_FNDVOLUME EQU INITVAR(1) 77/ 0 : =>BLANK IFNB(1) 77/ 0 : INITVAR := INITVAR+(1) 77/ 0 : _GET_FNDVOLUME_Size EQU(1) 77/ 0 : =>TRUE ELSE(1) 77/ 0 : =4H INITVAR := INITVAR+BYTE(1) 77/ 0 : =1H _GET_FNDVOLUME_Size EQU BYTE(1) 77/ 0 : [77] ENDIF(1) 78/ 0 : (MACRO) SETVAR _TO_DRV ;04 ВЫЗОВ ДРАЙВЕРА ВЫБРАННОГО УСТРОЙСТВА(1) 78/ 0 : =4H _TO_DRV EQU INITVAR(1) 78/ 0 : =>BLANK IFNB(1) 78/ 0 : INITVAR := INITVAR+(1) 78/ 0 : _TO_DRV_Size EQU(1) 78/ 0 : =>TRUE ELSE(1) 78/ 0 : =5H INITVAR := INITVAR+BYTE(1) 78/ 0 : =1H _TO_DRV_Size EQU BYTE(1) 78/ 0 : [78] ENDIF(1) 79/ 0 : (MACRO) SETVAR _SET_DEVICE ;05 УСТАНОВКА БИТОВ УСТРОЙСТВА И LBA РЕЖИМА(1) 79/ 0 : =5H _SET_DEVICE EQU INITVAR(1) 79/ 0 : =>BLANK IFNB(1) 79/ 0 : INITVAR := INITVAR+(1) 79/ 0 : _SET_DEVICE_Size EQU(1) 79/ 0 : =>TRUE ELSE(1) 79/ 0 : =6H INITVAR := INITVAR+BYTE(1) 79/ 0 : =1H _SET_DEVICE_Size EQU BYTE(1) 79/ 0 : [79] ENDIF(1) 80/ 0 : (MACRO) SETVAR _CONTROL_SD ;06 КОНТРОЛЬ НАЛИЧИЯ SD КАРТ(1) 80/ 0 : =6H _CONTROL_SD EQU INITVAR(1) 80/ 0 : =>BLANK IFNB(1) 80/ 0 : INITVAR := INITVAR+(1) 80/ 0 : _CONTROL_SD_Size EQU(1) 80/ 0 : =>TRUE ELSE(1) 80/ 0 : =7H INITVAR := INITVAR+BYTE(1) 80/ 0 : =1H _CONTROL_SD_Size EQU BYTE(1) 80/ 0 : [80] ENDIF(1) 81/ 0 : (MACRO) SETVAR _COMHDDN ;07 ПРЯМОЙ ВЫЗОВ ДРАЙВЕРА HDD NEMO (ВРЕМЕННАЯ ФУНКЦИЯ)(1) 81/ 0 : =7H _COMHDDN EQU INITVAR(1) 81/ 0 : =>BLANK IFNB(1) 81/ 0 : INITVAR := INITVAR+(1) 81/ 0 : _COMHDDN_Size EQU(1) 81/ 0 : =>TRUE ELSEAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 21 - 2/23/2020 18:58:45(1) 81/ 0 : =8H INITVAR := INITVAR+BYTE(1) 81/ 0 : =1H _COMHDDN_Size EQU BYTE(1) 81/ 0 : [81] ENDIF(1) 82/ 0 : (MACRO) SETVAR _FREINIT_VOL ;08 ПОЛНАЯ ПЕРЕИНИЦИАЛИЗАЦИЯ РАЗДЕЛА(1) 82/ 0 : =8H _FREINIT_VOL EQU INITVAR(1) 82/ 0 : =>BLANK IFNB(1) 82/ 0 : INITVAR := INITVAR+(1) 82/ 0 : _FREINIT_VOL_Size EQU(1) 82/ 0 : =>TRUE ELSE(1) 82/ 0 : =9H INITVAR := INITVAR+BYTE(1) 82/ 0 : =1H _FREINIT_VOL_Size EQU BYTE(1) 82/ 0 : [82] ENDIF(1) 83/ 0 :(1) 84/ 0 : ;номера функций вызова драйвера устройства(1) 85/ 0 : (MACRO) INIT_VAR(1) 85/ 0 : =>BLANK IFNB(1) 85/ 0 : INITVAR :=(1) 85/ 0 : =>TRUE ELSE(1) 85/ 0 : =0H INITVAR := 0(1) 85/ 0 : [85] ENDIF(1) 86/ 0 : (MACRO) SETVAR _DEV_INIT ;00 ПОИСК И ИНИЦИАЛИЗАЦИЯ УСТРОЙСТВА(1) 86/ 0 : =0H _DEV_INIT EQU INITVAR(1) 86/ 0 : =>BLANK IFNB(1) 86/ 0 : INITVAR := INITVAR+(1) 86/ 0 : _DEV_INIT_Size EQU(1) 86/ 0 : =>TRUE ELSE(1) 86/ 0 : =1H INITVAR := INITVAR+BYTE(1) 86/ 0 : =1H _DEV_INIT_Size EQU BYTE(1) 86/ 0 : [86] ENDIF(1) 87/ 0 : (MACRO) SETVAR _DEV_STATUS ;01 ЗАПРОС СТАТУСА УСТРОЙСТВА. ПОКА ЗАГЛУШЕНА(1) 87/ 0 : =1H _DEV_STATUS EQU INITVAR(1) 87/ 0 : =>BLANK IFNB(1) 87/ 0 : INITVAR := INITVAR+(1) 87/ 0 : _DEV_STATUS_Size EQU(1) 87/ 0 : =>TRUE ELSE(1) 87/ 0 : =2H INITVAR := INITVAR+BYTE(1) 87/ 0 : =1H _DEV_STATUS_Size EQU BYTE(1) 87/ 0 : [87] ENDIF(1) 88/ 0 : (MACRO) SETVAR _DEV_READ ;02 ЧТЕНИЕ СЕКТОРОВ(1) 88/ 0 : =2H _DEV_READ EQU INITVAR(1) 88/ 0 : =>BLANK IFNB(1) 88/ 0 : INITVAR := INITVAR+(1) 88/ 0 : _DEV_READ_Size EQU(1) 88/ 0 : =>TRUE ELSE(1) 88/ 0 : =3H INITVAR := INITVAR+BYTE(1) 88/ 0 : =1H _DEV_READ_Size EQU BYTE(1) 88/ 0 : [88] ENDIF(1) 89/ 0 : (MACRO) SETVAR _DEV_WRITE ;03 ЗАПИСЬ СЕКТОРОВ(1) 89/ 0 : =3H _DEV_WRITE EQU INITVAR(1) 89/ 0 : =>BLANK IFNB(1) 89/ 0 : INITVAR := INITVAR+(1) 89/ 0 : _DEV_WRITE_Size EQU(1) 89/ 0 : =>TRUE ELSE(1) 89/ 0 : =4H INITVAR := INITVAR+BYTE(1) 89/ 0 : =1H _DEV_WRITE_Size EQU BYTE(1) 89/ 0 : [89] ENDIF(1) 90/ 0 : (MACRO) SETVAR _DEV_READID ;04 ЧТЕНИЕ ID СЕКТОРА(1) 90/ 0 : =4H _DEV_READID EQU INITVAR(1) 90/ 0 : =>BLANK IFNB(1) 90/ 0 : INITVAR := INITVAR+AS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 22 - 2/23/2020 18:58:45(1) 90/ 0 : _DEV_READID_Size EQU(1) 90/ 0 : =>TRUE ELSE(1) 90/ 0 : =5H INITVAR := INITVAR+BYTE(1) 90/ 0 : =1H _DEV_READID_Size EQU BYTE(1) 90/ 0 : [90] ENDIF(1) 91/ 0 :(1) 92/ 0 : ;номера вызываемых функций FAT драйвера(1) 93/ 0 : (MACRO) INIT_VAR(1) 93/ 0 : =>BLANK IFNB(1) 93/ 0 : INITVAR :=(1) 93/ 0 : =>TRUE ELSE(1) 93/ 0 : =0H INITVAR := 0(1) 93/ 0 : [93] ENDIF(1) 94/ 0 : (MACRO) SETVAR _INIT_FATVARS ;ИНИЦИАЛИЗАЦИЯ ПЕРЕМЕННЫХ FAT(1) 94/ 0 : =0H _INIT_FATVARS EQU INITVAR(1) 94/ 0 : =>BLANK IFNB(1) 94/ 0 : INITVAR := INITVAR+(1) 94/ 0 : _INIT_FATVARS_Size EQU(1) 94/ 0 : =>TRUE ELSE(1) 94/ 0 : =1H INITVAR := INITVAR+BYTE(1) 94/ 0 : =1H _INIT_FATVARS_Size EQU BYTE(1) 94/ 0 : [94] ENDIF(1) 95/ 0 : (MACRO) SETVAR _READ_DIR ;ПОЛУЧЕНИЕ ОПИСАТЕЛЯ ФАЙЛА(1) 95/ 0 : =1H _READ_DIR EQU INITVAR(1) 95/ 0 : =>BLANK IFNB(1) 95/ 0 : INITVAR := INITVAR+(1) 95/ 0 : _READ_DIR_Size EQU(1) 95/ 0 : =>TRUE ELSE(1) 95/ 0 : =2H INITVAR := INITVAR+BYTE(1) 95/ 0 : =1H _READ_DIR_Size EQU BYTE(1) 95/ 0 : [95] ENDIF(1) 96/ 0 : (MACRO) SETVAR _ENTER_DIR ;ВХОД/ВЫХОД В ДИР(1) 96/ 0 : =2H _ENTER_DIR EQU INITVAR(1) 96/ 0 : =>BLANK IFNB(1) 96/ 0 : INITVAR := INITVAR+(1) 96/ 0 : _ENTER_DIR_Size EQU(1) 96/ 0 : =>TRUE ELSE(1) 96/ 0 : =3H INITVAR := INITVAR+BYTE(1) 96/ 0 : =1H _ENTER_DIR_Size EQU BYTE(1) 96/ 0 : [96] ENDIF(1) 97/ 0 : (MACRO) SETVAR _GET_PATH ;ПОЛУЧЕНИЕ ТЕКУЩЕГО ПУТИ(1) 97/ 0 : =3H _GET_PATH EQU INITVAR(1) 97/ 0 : =>BLANK IFNB(1) 97/ 0 : INITVAR := INITVAR+(1) 97/ 0 : _GET_PATH_Size EQU(1) 97/ 0 : =>TRUE ELSE(1) 97/ 0 : =4H INITVAR := INITVAR+BYTE(1) 97/ 0 : =1H _GET_PATH_Size EQU BYTE(1) 97/ 0 : [97] ENDIF(1) 98/ 0 : (MACRO) SETVAR _GET_LONGNAME ;ПОЛУЧЕНИЕ ДЛИННОГО ИМЕНИ ФАЙЛА(1) 98/ 0 : =4H _GET_LONGNAME EQU INITVAR(1) 98/ 0 : =>BLANK IFNB(1) 98/ 0 : INITVAR := INITVAR+(1) 98/ 0 : _GET_LONGNAME_Size EQU(1) 98/ 0 : =>TRUE ELSE(1) 98/ 0 : =5H INITVAR := INITVAR+BYTE(1) 98/ 0 : =1H _GET_LONGNAME_Size EQU BYTE(1) 98/ 0 : [98] ENDIF(1) 99/ 0 : (MACRO) SETVAR _FIND_NAME ;ПОИСК ПО ИМЕНИ(1) 99/ 0 : =5H _FIND_NAME EQU INITVARAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 23 - 2/23/2020 18:58:45(1) 99/ 0 : =>BLANK IFNB(1) 99/ 0 : INITVAR := INITVAR+(1) 99/ 0 : _FIND_NAME_Size EQU(1) 99/ 0 : =>TRUE ELSE(1) 99/ 0 : =6H INITVAR := INITVAR+BYTE(1) 99/ 0 : =1H _FIND_NAME_Size EQU BYTE(1) 99/ 0 : [99] ENDIF(1) 100/ 0 : (MACRO) SETVAR _FIND_FILEITEM ;ПОИСК ВСЕХ ОПИСАТЕЛЕЙ С ВЫДАЧЕЙ НОМЕРОВ НАЙДЕННОГО(1) 100/ 0 : =6H _FIND_FILEITEM EQU INITVAR(1) 100/ 0 : =>BLANK IFNB(1) 100/ 0 : INITVAR := INITVAR+(1) 100/ 0 : _FIND_FILEITEM_Size EQU(1) 100/ 0 : =>TRUE ELSE(1) 100/ 0 : =7H INITVAR := INITVAR+BYTE(1) 100/ 0 : =1H _FIND_FILEITEM_Size EQU BYTE(1) 100/ 0 : [100] ENDIF(1) 101/ 0 : (MACRO) SETVAR _SET_MASK_EXT ;УСТАНОВКА МАСКИ РАСШИРЕНИЙ ДЛЯ ПОИСКА(1) 101/ 0 : =7H _SET_MASK_EXT EQU INITVAR(1) 101/ 0 : =>BLANK IFNB(1) 101/ 0 : INITVAR := INITVAR+(1) 101/ 0 : _SET_MASK_EXT_Size EQU(1) 101/ 0 : =>TRUE ELSE(1) 101/ 0 : =8H INITVAR := INITVAR+BYTE(1) 101/ 0 : =1H _SET_MASK_EXT_Size EQU BYTE(1) 101/ 0 : [101] ENDIF(1) 102/ 0 : (MACRO) SETVAR _OPEN_FILE ;ОТКРЫТИЕ ФАЙЛА(1) 102/ 0 : =8H _OPEN_FILE EQU INITVAR(1) 102/ 0 : =>BLANK IFNB(1) 102/ 0 : INITVAR := INITVAR+(1) 102/ 0 : _OPEN_FILE_Size EQU(1) 102/ 0 : =>TRUE ELSE(1) 102/ 0 : =9H INITVAR := INITVAR+BYTE(1) 102/ 0 : =1H _OPEN_FILE_Size EQU BYTE(1) 102/ 0 : [102] ENDIF(1) 103/ 0 : (MACRO) SETVAR _READ_FILE ;ПОСЛЕДОВАТЕЛЬНОЕ ЧТЕНИЕ ОТКРЫТОГО ФАЙЛА(1) 103/ 0 : =9H _READ_FILE EQU INITVAR(1) 103/ 0 : =>BLANK IFNB(1) 103/ 0 : INITVAR := INITVAR+(1) 103/ 0 : _READ_FILE_Size EQU(1) 103/ 0 : =>TRUE ELSE(1) 103/ 0 : =AH INITVAR := INITVAR+BYTE(1) 103/ 0 : =1H _READ_FILE_Size EQU BYTE(1) 103/ 0 : [103] ENDIF(1) 104/ 0 : (MACRO) SETVAR _INIT_TEKDIR ;СОЗДАНИЕ ТАБЛИЦЫ КЛАСТЕРОВ ТЕКУЩЕЙ ДИРЕКТОРИИ(1) 104/ 0 : =AH _INIT_TEKDIR EQU INITVAR(1) 104/ 0 : =>BLANK IFNB(1) 104/ 0 : INITVAR := INITVAR+(1) 104/ 0 : _INIT_TEKDIR_Size EQU(1) 104/ 0 : =>TRUE ELSE(1) 104/ 0 : =BH INITVAR := INITVAR+BYTE(1) 104/ 0 : =1H _INIT_TEKDIR_Size EQU BYTE(1) 104/ 0 : [104] ENDIF(1) 105/ 0 : (MACRO) SETVAR _POS_FILES ;РАБОТА С ТЕКУЩЕЙ ПОЗИЦИЕЙ(1) 105/ 0 : =BH _POS_FILES EQU INITVAR(1) 105/ 0 : =>BLANK IFNB(1) 105/ 0 : INITVAR := INITVAR+(1) 105/ 0 : _POS_FILES_Size EQU(1) 105/ 0 : =>TRUE ELSE(1) 105/ 0 : =CH INITVAR := INITVAR+BYTE(1) 105/ 0 : =1H _POS_FILES_Size EQU BYTEAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 24 - 2/23/2020 18:58:45(1) 105/ 0 : [105] ENDIF(1) 106/ 0 :(1) 107/ 0 : ;подфункции функции _POS_FILES(1) 108/ 0 : (MACRO) INIT_VAR(1) 108/ 0 : =>BLANK IFNB(1) 108/ 0 : INITVAR :=(1) 108/ 0 : =>TRUE ELSE(1) 108/ 0 : =0H INITVAR := 0(1) 108/ 0 : [108] ENDIF(1) 109/ 0 : (MACRO) SETVAR _POSTF00 ;СОХРАНЕНИЕ ТЕКУЩЕЙ ПОЗИЦИИ ФАЙЛА(1) 109/ 0 : =0H _POSTF00 EQU INITVAR(1) 109/ 0 : =>BLANK IFNB(1) 109/ 0 : INITVAR := INITVAR+(1) 109/ 0 : _POSTF00_Size EQU(1) 109/ 0 : =>TRUE ELSE(1) 109/ 0 : =1H INITVAR := INITVAR+BYTE(1) 109/ 0 : =1H _POSTF00_Size EQU BYTE(1) 109/ 0 : [109] ENDIF(1) 110/ 0 : (MACRO) SETVAR _POSTF01 ;ВОССТАНОВЛЕНИЕ ТЕКУЩЕЙ ПОЗИЦИИ ФАЙЛА(1) 110/ 0 : =1H _POSTF01 EQU INITVAR(1) 110/ 0 : =>BLANK IFNB(1) 110/ 0 : INITVAR := INITVAR+(1) 110/ 0 : _POSTF01_Size EQU(1) 110/ 0 : =>TRUE ELSE(1) 110/ 0 : =2H INITVAR := INITVAR+BYTE(1) 110/ 0 : =1H _POSTF01_Size EQU BYTE(1) 110/ 0 : [110] ENDIF(1) 111/ 0 : (MACRO) SETVAR _POSTF02 ;СБРОС ТЕКУЩЕЙ ПОЗИЦИИ В 0 И ПОИСК ПЕРВОЙ "ЛЕГАЛЬНОЙ" ЗАПИСИ(1) 111/ 0 : =2H _POSTF02 EQU INITVAR(1) 111/ 0 : =>BLANK IFNB(1) 111/ 0 : INITVAR := INITVAR+(1) 111/ 0 : _POSTF02_Size EQU(1) 111/ 0 : =>TRUE ELSE(1) 111/ 0 : =3H INITVAR := INITVAR+BYTE(1) 111/ 0 : =1H _POSTF02_Size EQU BYTE(1) 111/ 0 : [111] ENDIF(1) 112/ 0 : (MACRO) SETVAR _POSTF03 ;ПЕРЕМОТАТЬ НА "B" ФАЙЛОВ НАЗАД(1) 112/ 0 : =3H _POSTF03 EQU INITVAR(1) 112/ 0 : =>BLANK IFNB(1) 112/ 0 : INITVAR := INITVAR+(1) 112/ 0 : _POSTF03_Size EQU(1) 112/ 0 : =>TRUE ELSE(1) 112/ 0 : =4H INITVAR := INITVAR+BYTE(1) 112/ 0 : =1H _POSTF03_Size EQU BYTE(1) 112/ 0 : [112] ENDIF(1) 113/ 0 : (MACRO) SETVAR _POSTF04 ;ПЕРЕМОТАТЬ НА "B" ФАЙЛОВ ВПЕРЕД(1) 113/ 0 : =4H _POSTF04 EQU INITVAR(1) 113/ 0 : =>BLANK IFNB(1) 113/ 0 : INITVAR := INITVAR+(1) 113/ 0 : _POSTF04_Size EQU(1) 113/ 0 : =>TRUE ELSE(1) 113/ 0 : =5H INITVAR := INITVAR+BYTE(1) 113/ 0 : =1H _POSTF04_Size EQU BYTE(1) 113/ 0 : [113] ENDIF(1) 114/ 0 : (MACRO) SETVAR _POSTF05 ;ПОДСЧЕТ КОЛИЧЕСТВА "ЛЕГАЛЬНЫХ" ЗАПИСЕЙ(1) 114/ 0 : =5H _POSTF05 EQU INITVAR(1) 114/ 0 : =>BLANK IFNB(1) 114/ 0 : INITVAR := INITVAR+(1) 114/ 0 : _POSTF05_Size EQU(1) 114/ 0 : =>TRUE ELSEAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 25 - 2/23/2020 18:58:45(1) 114/ 0 : =6H INITVAR := INITVAR+BYTE(1) 114/ 0 : =1H _POSTF05_Size EQU BYTE(1) 114/ 0 : [114] ENDIF(1) 115/ 0 : (MACRO) SETVAR _POSTF06 ;УСТАНОВИТЬ НОМЕР "ЛЕГАЛЬНОЙ" ЗАПИСИ ИЗ "BC"(1) 115/ 0 : =6H _POSTF06 EQU INITVAR(1) 115/ 0 : =>BLANK IFNB(1) 115/ 0 : INITVAR := INITVAR+(1) 115/ 0 : _POSTF06_Size EQU(1) 115/ 0 : =>TRUE ELSE(1) 115/ 0 : =7H INITVAR := INITVAR+BYTE(1) 115/ 0 : =1H _POSTF06_Size EQU BYTE(1) 115/ 0 : [115] ENDIF(1) 116/ 0 : (MACRO) SETVAR _POSTF07 ;ВЕРНУТЬ В "BC" ТЕКУЩИЙ НОМЕР "ЛЕГАЛЬНОЙ" ЗАПИСИ(1) 116/ 0 : =7H _POSTF07 EQU INITVAR(1) 116/ 0 : =>BLANK IFNB(1) 116/ 0 : INITVAR := INITVAR+(1) 116/ 0 : _POSTF07_Size EQU(1) 116/ 0 : =>TRUE ELSE(1) 116/ 0 : =8H INITVAR := INITVAR+BYTE(1) 116/ 0 : =1H _POSTF07_Size EQU BYTE(1) 116/ 0 : [116] ENDIF(1) 117/ 0 :(1) 118/ 0 : ;номера поддерживаемых расширений для RST 8(1) 119/ 0 : ;"TRDSCLFDITAPSPG$C FNTBMPROM" ;RST 8(1) 120/ 0 : ;"TRDSCLFDITAPSPG$C BMPSNA" ;MAINMENU(1) 121/ 0 : (MACRO) INIT_VAR 1(1) 121/ 0 : =>NOT BLANK IFNB 1(1) 121/ 0 : =1H INITVAR := 1(1) 121/ 0 : =>FALSE ELSE(1) 121/ 0 : INITVAR := 0(1) 121/ 0 : [121] ENDIF(1) 122/ 0 : (MACRO) SETVAR _TRD ;TRD(1) 122/ 0 : =1H _TRD EQU INITVAR(1) 122/ 0 : =>BLANK IFNB(1) 122/ 0 : INITVAR := INITVAR+(1) 122/ 0 : _TRD_Size EQU(1) 122/ 0 : =>TRUE ELSE(1) 122/ 0 : =2H INITVAR := INITVAR+BYTE(1) 122/ 0 : =1H _TRD_Size EQU BYTE(1) 122/ 0 : [122] ENDIF(1) 123/ 0 : (MACRO) SETVAR _SCL ;SCL(1) 123/ 0 : =2H _SCL EQU INITVAR(1) 123/ 0 : =>BLANK IFNB(1) 123/ 0 : INITVAR := INITVAR+(1) 123/ 0 : _SCL_Size EQU(1) 123/ 0 : =>TRUE ELSE(1) 123/ 0 : =3H INITVAR := INITVAR+BYTE(1) 123/ 0 : =1H _SCL_Size EQU BYTE(1) 123/ 0 : [123] ENDIF(1) 124/ 0 : (MACRO) SETVAR _FDI ;FDI(1) 124/ 0 : =3H _FDI EQU INITVAR(1) 124/ 0 : =>BLANK IFNB(1) 124/ 0 : INITVAR := INITVAR+(1) 124/ 0 : _FDI_Size EQU(1) 124/ 0 : =>TRUE ELSE(1) 124/ 0 : =4H INITVAR := INITVAR+BYTE(1) 124/ 0 : =1H _FDI_Size EQU BYTE(1) 124/ 0 : [124] ENDIF(1) 125/ 0 : (MACRO) SETVAR _TAP ;TAP(1) 125/ 0 : =4H _TAP EQU INITVARAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 26 - 2/23/2020 18:58:45(1) 125/ 0 : =>BLANK IFNB(1) 125/ 0 : INITVAR := INITVAR+(1) 125/ 0 : _TAP_Size EQU(1) 125/ 0 : =>TRUE ELSE(1) 125/ 0 : =5H INITVAR := INITVAR+BYTE(1) 125/ 0 : =1H _TAP_Size EQU BYTE(1) 125/ 0 : [125] ENDIF(1) 126/ 0 : (MACRO) SETVAR _SPG ;SPG(1) 126/ 0 : =5H _SPG EQU INITVAR(1) 126/ 0 : =>BLANK IFNB(1) 126/ 0 : INITVAR := INITVAR+(1) 126/ 0 : _SPG_Size EQU(1) 126/ 0 : =>TRUE ELSE(1) 126/ 0 : =6H INITVAR := INITVAR+BYTE(1) 126/ 0 : =1H _SPG_Size EQU BYTE(1) 126/ 0 : [126] ENDIF(1) 127/ 0 : (MACRO) SETVAR _HOB ;$C(1) 127/ 0 : =6H _HOB EQU INITVAR(1) 127/ 0 : =>BLANK IFNB(1) 127/ 0 : INITVAR := INITVAR+(1) 127/ 0 : _HOB_Size EQU(1) 127/ 0 : =>TRUE ELSE(1) 127/ 0 : =7H INITVAR := INITVAR+BYTE(1) 127/ 0 : =1H _HOB_Size EQU BYTE(1) 127/ 0 : [127] ENDIF(1) 128/ 0 : (MACRO) SETVAR _FNT ;FNT(1) 128/ 0 : =7H _FNT EQU INITVAR(1) 128/ 0 : =>BLANK IFNB(1) 128/ 0 : INITVAR := INITVAR+(1) 128/ 0 : _FNT_Size EQU(1) 128/ 0 : =>TRUE ELSE(1) 128/ 0 : =8H INITVAR := INITVAR+BYTE(1) 128/ 0 : =1H _FNT_Size EQU BYTE(1) 128/ 0 : [128] ENDIF(1) 129/ 0 : (MACRO) SETVAR _BMP ;BMP(1) 129/ 0 : =8H _BMP EQU INITVAR(1) 129/ 0 : =>BLANK IFNB(1) 129/ 0 : INITVAR := INITVAR+(1) 129/ 0 : _BMP_Size EQU(1) 129/ 0 : =>TRUE ELSE(1) 129/ 0 : =9H INITVAR := INITVAR+BYTE(1) 129/ 0 : =1H _BMP_Size EQU BYTE(1) 129/ 0 : [129] ENDIF(1) 130/ 0 : (MACRO) SETVAR _ROM ;ROM(1) 130/ 0 : =9H _ROM EQU INITVAR(1) 130/ 0 : =>BLANK IFNB(1) 130/ 0 : INITVAR := INITVAR+(1) 130/ 0 : _ROM_Size EQU(1) 130/ 0 : =>TRUE ELSE(1) 130/ 0 : =AH INITVAR := INITVAR+BYTE(1) 130/ 0 : =1H _ROM_Size EQU BYTE(1) 130/ 0 : [130] ENDIF(1) 131/ 0 : ; SETVAR _HOB1 ;$??(1) 132/ 0 : ; SETVAR _HOB2 ;!??(1) 133/ 0 :(1) 134/ 0 : ;[внутренние номера типов разделов](1) 135/ 0 : (MACRO) INIT_VAR(1) 135/ 0 : =>BLANK IFNB(1) 135/ 0 : INITVAR :=(1) 135/ 0 : =>TRUE ELSEAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 27 - 2/23/2020 18:58:45(1) 135/ 0 : =0H INITVAR := 0(1) 135/ 0 : [135] ENDIF(1) 136/ 0 : (MACRO) SETVAR _NO_INIT(1) 136/ 0 : =0H _NO_INIT EQU INITVAR(1) 136/ 0 : =>BLANK IFNB(1) 136/ 0 : INITVAR := INITVAR+(1) 136/ 0 : _NO_INIT_Size EQU(1) 136/ 0 : =>TRUE ELSE(1) 136/ 0 : =1H INITVAR := INITVAR+BYTE(1) 136/ 0 : =1H _NO_INIT_Size EQU BYTE(1) 136/ 0 : [136] ENDIF(1) 137/ 0 : (MACRO) SETVAR _FAT12 ;00 = 01 FAT12(1) 137/ 0 : =1H _FAT12 EQU INITVAR(1) 137/ 0 : =>BLANK IFNB(1) 137/ 0 : INITVAR := INITVAR+(1) 137/ 0 : _FAT12_Size EQU(1) 137/ 0 : =>TRUE ELSE(1) 137/ 0 : =2H INITVAR := INITVAR+BYTE(1) 137/ 0 : =1H _FAT12_Size EQU BYTE(1) 137/ 0 : [137] ENDIF(1) 138/ 0 : (MACRO) SETVAR _FAT16 ;01 = 04,06,0E FAT16(1) 138/ 0 : =2H _FAT16 EQU INITVAR(1) 138/ 0 : =>BLANK IFNB(1) 138/ 0 : INITVAR := INITVAR+(1) 138/ 0 : _FAT16_Size EQU(1) 138/ 0 : =>TRUE ELSE(1) 138/ 0 : =3H INITVAR := INITVAR+BYTE(1) 138/ 0 : =1H _FAT16_Size EQU BYTE(1) 138/ 0 : [138] ENDIF(1) 139/ 0 : (MACRO) SETVAR _FAT32 ;02 = 0B,0C FAT32(1) 139/ 0 : =3H _FAT32 EQU INITVAR(1) 139/ 0 : =>BLANK IFNB(1) 139/ 0 : INITVAR := INITVAR+(1) 139/ 0 : _FAT32_Size EQU(1) 139/ 0 : =>TRUE ELSE(1) 139/ 0 : =4H INITVAR := INITVAR+BYTE(1) 139/ 0 : =1H _FAT32_Size EQU BYTE(1) 139/ 0 : [139] ENDIF(1) 140/ 0 : (MACRO) SETVAR _TRDOS ;03 TR-DOS диск(1) 140/ 0 : =4H _TRDOS EQU INITVAR(1) 140/ 0 : =>BLANK IFNB(1) 140/ 0 : INITVAR := INITVAR+(1) 140/ 0 : _TRDOS_Size EQU(1) 140/ 0 : =>TRUE ELSE(1) 140/ 0 : =5H INITVAR := INITVAR+BYTE(1) 140/ 0 : =1H _TRDOS_Size EQU BYTE(1) 140/ 0 : [140] ENDIF(1) 141/ 0 : (MACRO) SETVAR _UNKNOWN ; файловая система еще не определена или неизвестна(1) 141/ 0 : =5H _UNKNOWN EQU INITVAR(1) 141/ 0 : =>BLANK IFNB(1) 141/ 0 : INITVAR := INITVAR+(1) 141/ 0 : _UNKNOWN_Size EQU(1) 141/ 0 : =>TRUE ELSE(1) 141/ 0 : =6H INITVAR := INITVAR+BYTE(1) 141/ 0 : =1H _UNKNOWN_Size EQU BYTE(1) 141/ 0 : [141] ENDIF(1) 142/ 0 :(1) 143/ 0 : ;описатели для рисования окна(1) 144/ 0 : (MACRO) INIT_VAR(1) 144/ 0 : =>BLANK IFNBAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 28 - 2/23/2020 18:58:45(1) 144/ 0 : INITVAR :=(1) 144/ 0 : =>TRUE ELSE(1) 144/ 0 : =0H INITVAR := 0(1) 144/ 0 : [144] ENDIF(1) 145/ 0 : (MACRO) SETVAR _X_COORD(1) 145/ 0 : =0H _X_COORD EQU INITVAR(1) 145/ 0 : =>BLANK IFNB(1) 145/ 0 : INITVAR := INITVAR+(1) 145/ 0 : _X_COORD_Size EQU(1) 145/ 0 : =>TRUE ELSE(1) 145/ 0 : =1H INITVAR := INITVAR+BYTE(1) 145/ 0 : =1H _X_COORD_Size EQU BYTE(1) 145/ 0 : [145] ENDIF(1) 146/ 0 : (MACRO) SETVAR _Y_COORD(1) 146/ 0 : =1H _Y_COORD EQU INITVAR(1) 146/ 0 : =>BLANK IFNB(1) 146/ 0 : INITVAR := INITVAR+(1) 146/ 0 : _Y_COORD_Size EQU(1) 146/ 0 : =>TRUE ELSE(1) 146/ 0 : =2H INITVAR := INITVAR+BYTE(1) 146/ 0 : =1H _Y_COORD_Size EQU BYTE(1) 146/ 0 : [146] ENDIF(1) 147/ 0 : (MACRO) SETVAR _V_SIZE(1) 147/ 0 : =2H _V_SIZE EQU INITVAR(1) 147/ 0 : =>BLANK IFNB(1) 147/ 0 : INITVAR := INITVAR+(1) 147/ 0 : _V_SIZE_Size EQU(1) 147/ 0 : =>TRUE ELSE(1) 147/ 0 : =3H INITVAR := INITVAR+BYTE(1) 147/ 0 : =1H _V_SIZE_Size EQU BYTE(1) 147/ 0 : [147] ENDIF(1) 148/ 0 : (MACRO) SETVAR _H_SIZE(1) 148/ 0 : =3H _H_SIZE EQU INITVAR(1) 148/ 0 : =>BLANK IFNB(1) 148/ 0 : INITVAR := INITVAR+(1) 148/ 0 : _H_SIZE_Size EQU(1) 148/ 0 : =>TRUE ELSE(1) 148/ 0 : =4H INITVAR := INITVAR+BYTE(1) 148/ 0 : =1H _H_SIZE_Size EQU BYTE(1) 148/ 0 : [148] ENDIF(1) 149/ 0 : (MACRO) SETVAR _COLOR_WIN(1) 149/ 0 : =4H _COLOR_WIN EQU INITVAR(1) 149/ 0 : =>BLANK IFNB(1) 149/ 0 : INITVAR := INITVAR+(1) 149/ 0 : _COLOR_WIN_Size EQU(1) 149/ 0 : =>TRUE ELSE(1) 149/ 0 : =5H INITVAR := INITVAR+BYTE(1) 149/ 0 : =1H _COLOR_WIN_Size EQU BYTE(1) 149/ 0 : [149] ENDIF(1) 150/ 0 : (MACRO) SETVAR _COLOR_CUR(1) 150/ 0 : =5H _COLOR_CUR EQU INITVAR(1) 150/ 0 : =>BLANK IFNB(1) 150/ 0 : INITVAR := INITVAR+(1) 150/ 0 : _COLOR_CUR_Size EQU(1) 150/ 0 : =>TRUE ELSE(1) 150/ 0 : =6H INITVAR := INITVAR+BYTE(1) 150/ 0 : =1H _COLOR_CUR_Size EQU BYTE(1) 150/ 0 : [150] ENDIF(1) 151/ 0 : (MACRO) SETVAR _FLAGS(1) 151/ 0 : =6H _FLAGS EQU INITVARAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 29 - 2/23/2020 18:58:45(1) 151/ 0 : =>BLANK IFNB(1) 151/ 0 : INITVAR := INITVAR+(1) 151/ 0 : _FLAGS_Size EQU(1) 151/ 0 : =>TRUE ELSE(1) 151/ 0 : =7H INITVAR := INITVAR+BYTE(1) 151/ 0 : =1H _FLAGS_Size EQU BYTE(1) 151/ 0 : [151] ENDIF(1) 152/ 0 : (MACRO) SETVAR _NUM_PKT(1) 152/ 0 : =7H _NUM_PKT EQU INITVAR(1) 152/ 0 : =>BLANK IFNB(1) 152/ 0 : INITVAR := INITVAR+(1) 152/ 0 : _NUM_PKT_Size EQU(1) 152/ 0 : =>TRUE ELSE(1) 152/ 0 : =8H INITVAR := INITVAR+BYTE(1) 152/ 0 : =1H _NUM_PKT_Size EQU BYTE(1) 152/ 0 : [152] ENDIF(1) 153/ 0 : (MACRO) SETVAR _TEK_PKT_L(1) 153/ 0 : =8H _TEK_PKT_L EQU INITVAR(1) 153/ 0 : =>BLANK IFNB(1) 153/ 0 : INITVAR := INITVAR+(1) 153/ 0 : _TEK_PKT_L_Size EQU(1) 153/ 0 : =>TRUE ELSE(1) 153/ 0 : =9H INITVAR := INITVAR+BYTE(1) 153/ 0 : =1H _TEK_PKT_L_Size EQU BYTE(1) 153/ 0 : [153] ENDIF(1) 154/ 0 : (MACRO) SETVAR _TEK_PKT_H(1) 154/ 0 : =9H _TEK_PKT_H EQU INITVAR(1) 154/ 0 : =>BLANK IFNB(1) 154/ 0 : INITVAR := INITVAR+(1) 154/ 0 : _TEK_PKT_H_Size EQU(1) 154/ 0 : =>TRUE ELSE(1) 154/ 0 : =AH INITVAR := INITVAR+BYTE(1) 154/ 0 : =1H _TEK_PKT_H_Size EQU BYTE(1) 154/ 0 : [154] ENDIF(1) 155/ 0 : (MACRO) SETVAR _NUM_KOL_L(1) 155/ 0 : =AH _NUM_KOL_L EQU INITVAR(1) 155/ 0 : =>BLANK IFNB(1) 155/ 0 : INITVAR := INITVAR+(1) 155/ 0 : _NUM_KOL_L_Size EQU(1) 155/ 0 : =>TRUE ELSE(1) 155/ 0 : =BH INITVAR := INITVAR+BYTE(1) 155/ 0 : =1H _NUM_KOL_L_Size EQU BYTE(1) 155/ 0 : [155] ENDIF(1) 156/ 0 : (MACRO) SETVAR _NUM_KOL_H(1) 156/ 0 : =BH _NUM_KOL_H EQU INITVAR(1) 156/ 0 : =>BLANK IFNB(1) 156/ 0 : INITVAR := INITVAR+(1) 156/ 0 : _NUM_KOL_H_Size EQU(1) 156/ 0 : =>TRUE ELSE(1) 156/ 0 : =CH INITVAR := INITVAR+BYTE(1) 156/ 0 : =1H _NUM_KOL_H_Size EQU BYTE(1) 156/ 0 : [156] ENDIF(1) 157/ 0 : (MACRO) SETVAR _ADR_TXT_L(1) 157/ 0 : =CH _ADR_TXT_L EQU INITVAR(1) 157/ 0 : =>BLANK IFNB(1) 157/ 0 : INITVAR := INITVAR+(1) 157/ 0 : _ADR_TXT_L_Size EQU(1) 157/ 0 : =>TRUE ELSE(1) 157/ 0 : =DH INITVAR := INITVAR+BYTE(1) 157/ 0 : =1H _ADR_TXT_L_Size EQU BYTEAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 30 - 2/23/2020 18:58:45(1) 157/ 0 : [157] ENDIF(1) 158/ 0 : (MACRO) SETVAR _ADR_TXT_H(1) 158/ 0 : =DH _ADR_TXT_H EQU INITVAR(1) 158/ 0 : =>BLANK IFNB(1) 158/ 0 : INITVAR := INITVAR+(1) 158/ 0 : _ADR_TXT_H_Size EQU(1) 158/ 0 : =>TRUE ELSE(1) 158/ 0 : =EH INITVAR := INITVAR+BYTE(1) 158/ 0 : =1H _ADR_TXT_H_Size EQU BYTE(1) 158/ 0 : [158] ENDIF(1) 159/ 0 : (MACRO) SETVAR _ADR_PRG_L(1) 159/ 0 : =EH _ADR_PRG_L EQU INITVAR(1) 159/ 0 : =>BLANK IFNB(1) 159/ 0 : INITVAR := INITVAR+(1) 159/ 0 : _ADR_PRG_L_Size EQU(1) 159/ 0 : =>TRUE ELSE(1) 159/ 0 : =FH INITVAR := INITVAR+BYTE(1) 159/ 0 : =1H _ADR_PRG_L_Size EQU BYTE(1) 159/ 0 : [159] ENDIF(1) 160/ 0 : (MACRO) SETVAR _ADR_PRG_H(1) 160/ 0 : =FH _ADR_PRG_H EQU INITVAR(1) 160/ 0 : =>BLANK IFNB(1) 160/ 0 : INITVAR := INITVAR+(1) 160/ 0 : _ADR_PRG_H_Size EQU(1) 160/ 0 : =>TRUE ELSE(1) 160/ 0 : =10H INITVAR := INITVAR+BYTE(1) 160/ 0 : =1H _ADR_PRG_H_Size EQU BYTE(1) 160/ 0 : [160] ENDIF(1) 161/ 0 : (MACRO) SETVAR _ADR_MOUSE_L(1) 161/ 0 : =10H _ADR_MOUSE_L EQU INITVAR(1) 161/ 0 : =>BLANK IFNB(1) 161/ 0 : INITVAR := INITVAR+(1) 161/ 0 : _ADR_MOUSE_L_Size EQU(1) 161/ 0 : =>TRUE ELSE(1) 161/ 0 : =11H INITVAR := INITVAR+BYTE(1) 161/ 0 : =1H _ADR_MOUSE_L_Size EQU BYTE(1) 161/ 0 : [161] ENDIF(1) 162/ 0 : (MACRO) SETVAR _ADR_MOUSE_H(1) 162/ 0 : =11H _ADR_MOUSE_H EQU INITVAR(1) 162/ 0 : =>BLANK IFNB(1) 162/ 0 : INITVAR := INITVAR+(1) 162/ 0 : _ADR_MOUSE_H_Size EQU(1) 162/ 0 : =>TRUE ELSE(1) 162/ 0 : =12H INITVAR := INITVAR+BYTE(1) 162/ 0 : =1H _ADR_MOUSE_H_Size EQU BYTE(1) 162/ 0 : [162] ENDIF(1) 163/ 0 : (MACRO) SETVAR _ADR_HOTKEY_L(1) 163/ 0 : =12H _ADR_HOTKEY_L EQU INITVAR(1) 163/ 0 : =>BLANK IFNB(1) 163/ 0 : INITVAR := INITVAR+(1) 163/ 0 : _ADR_HOTKEY_L_Size EQU(1) 163/ 0 : =>TRUE ELSE(1) 163/ 0 : =13H INITVAR := INITVAR+BYTE(1) 163/ 0 : =1H _ADR_HOTKEY_L_Size EQU BYTE(1) 163/ 0 : [163] ENDIF(1) 164/ 0 : (MACRO) SETVAR _ADR_HOTKEY_H(1) 164/ 0 : =13H _ADR_HOTKEY_H EQU INITVAR(1) 164/ 0 : =>BLANK IFNB(1) 164/ 0 : INITVAR := INITVAR+(1) 164/ 0 : _ADR_HOTKEY_H_Size EQUAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 31 - 2/23/2020 18:58:45(1) 164/ 0 : =>TRUE ELSE(1) 164/ 0 : =14H INITVAR := INITVAR+BYTE(1) 164/ 0 : =1H _ADR_HOTKEY_H_Size EQU BYTE(1) 164/ 0 : [164] ENDIF(1) 165/ 0 :(1) 166/ 0 : =3H JUMP_SIZE EQU 3(1) 167/ 0 :(1) 168/ 0 : (MACRO) INIT_VAR 0X100(1) 168/ 0 : =>NOT BLANK IFNB 0X100(1) 168/ 0 : =100H INITVAR := 0X100(1) 168/ 0 : =>FALSE ELSE(1) 168/ 0 : INITVAR := 0(1) 168/ 0 : [168] ENDIF(1) 169/ 0 : (MACRO) SETVAR _NEMO_RD_ID,JUMP_SIZE ;чтение сектора идентификации HDD с определением его наличия(1) 169/ 0 : =100H _NEMO_RD_ID EQU INITVAR(1) 169/ 0 : =>NOT BLANK IFNB JUMP_SIZE(1) 169/ 0 : =103H INITVAR := INITVAR+JUMP_SIZE(1) 169/ 0 : =3H _NEMO_RD_ID_Size EQU JUMP_SIZE(1) 169/ 0 : =>FALSE ELSE(1) 169/ 0 : INITVAR := INITVAR+BYTE(1) 169/ 0 : _NEMO_RD_ID_Size EQU BYTE(1) 169/ 0 : [169] ENDIF(1) 170/ 0 : (MACRO) SETVAR _NEMO_RD_SEC,JUMP_SIZE ;чтение секторов HDD(1) 170/ 0 : =103H _NEMO_RD_SEC EQU INITVAR(1) 170/ 0 : =>NOT BLANK IFNB JUMP_SIZE(1) 170/ 0 : =106H INITVAR := INITVAR+JUMP_SIZE(1) 170/ 0 : =3H _NEMO_RD_SEC_Size EQU JUMP_SIZE(1) 170/ 0 : =>FALSE ELSE(1) 170/ 0 : INITVAR := INITVAR+BYTE(1) 170/ 0 : _NEMO_RD_SEC_Size EQU BYTE(1) 170/ 0 : [170] ENDIF(1) 171/ 0 : (MACRO) SETVAR _NEMO_WR_SEC,JUMP_SIZE ;запись секторов HDD(1) 171/ 0 : =106H _NEMO_WR_SEC EQU INITVAR(1) 171/ 0 : =>NOT BLANK IFNB JUMP_SIZE(1) 171/ 0 : =109H INITVAR := INITVAR+JUMP_SIZE(1) 171/ 0 : =3H _NEMO_WR_SEC_Size EQU JUMP_SIZE(1) 171/ 0 : =>FALSE ELSE(1) 171/ 0 : INITVAR := INITVAR+BYTE(1) 171/ 0 : _NEMO_WR_SEC_Size EQU BYTE(1) 171/ 0 : [171] ENDIF(1) 172/ 0 :(1) 173/ 0 : (MACRO) SETVAR _ZCSD_RD_ID,JUMP_SIZE ;чтение сектора идентификации набортной SD карты(1) 173/ 0 : =109H _ZCSD_RD_ID EQU INITVAR(1) 173/ 0 : =>NOT BLANK IFNB JUMP_SIZE(1) 173/ 0 : =10CH INITVAR := INITVAR+JUMP_SIZE(1) 173/ 0 : =3H _ZCSD_RD_ID_Size EQU JUMP_SIZE(1) 173/ 0 : =>FALSE ELSE(1) 173/ 0 : INITVAR := INITVAR+BYTE(1) 173/ 0 : _ZCSD_RD_ID_Size EQU BYTE(1) 173/ 0 : [173] ENDIF(1) 174/ 0 : (MACRO) SETVAR _ZCSD_RD_SEC,JUMP_SIZE ;чтение секторов набортной SD карты(1) 174/ 0 : =10CH _ZCSD_RD_SEC EQU INITVAR(1) 174/ 0 : =>NOT BLANK IFNB JUMP_SIZE(1) 174/ 0 : =10FH INITVAR := INITVAR+JUMP_SIZE(1) 174/ 0 : =3H _ZCSD_RD_SEC_Size EQU JUMP_SIZE(1) 174/ 0 : =>FALSE ELSE(1) 174/ 0 : INITVAR := INITVAR+BYTE(1) 174/ 0 : _ZCSD_RD_SEC_Size EQU BYTE(1) 174/ 0 : [174] ENDIF(1) 175/ 0 : (MACRO) SETVAR _ZCSD_WR_SEC,JUMP_SIZE ;запись секторов набортной SD картыAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 32 - 2/23/2020 18:58:45(1) 175/ 0 : =10FH _ZCSD_WR_SEC EQU INITVAR(1) 175/ 0 : =>NOT BLANK IFNB JUMP_SIZE(1) 175/ 0 : =112H INITVAR := INITVAR+JUMP_SIZE(1) 175/ 0 : =3H _ZCSD_WR_SEC_Size EQU JUMP_SIZE(1) 175/ 0 : =>FALSE ELSE(1) 175/ 0 : INITVAR := INITVAR+BYTE(1) 175/ 0 : _ZCSD_WR_SEC_Size EQU BYTE(1) 175/ 0 : [175] ENDIF(1) 176/ 0 :(1) 177/ 0 : (MACRO) SETVAR _NGSSD_RD_ID,JUMP_SIZE ;чтение сектора идентификации SD карты NeoGS(1) 177/ 0 : =112H _NGSSD_RD_ID EQU INITVAR(1) 177/ 0 : =>NOT BLANK IFNB JUMP_SIZE(1) 177/ 0 : =115H INITVAR := INITVAR+JUMP_SIZE(1) 177/ 0 : =3H _NGSSD_RD_ID_Size EQU JUMP_SIZE(1) 177/ 0 : =>FALSE ELSE(1) 177/ 0 : INITVAR := INITVAR+BYTE(1) 177/ 0 : _NGSSD_RD_ID_Size EQU BYTE(1) 177/ 0 : [177] ENDIF(1) 178/ 0 : (MACRO) SETVAR _NGSSD_RD_SEC,JUMP_SIZE ;чтение секторов SD карты NeoGS(1) 178/ 0 : =115H _NGSSD_RD_SEC EQU INITVAR(1) 178/ 0 : =>NOT BLANK IFNB JUMP_SIZE(1) 178/ 0 : =118H INITVAR := INITVAR+JUMP_SIZE(1) 178/ 0 : =3H _NGSSD_RD_SEC_Size EQU JUMP_SIZE(1) 178/ 0 : =>FALSE ELSE(1) 178/ 0 : INITVAR := INITVAR+BYTE(1) 178/ 0 : _NGSSD_RD_SEC_Size EQU BYTE(1) 178/ 0 : [178] ENDIF(1) 179/ 0 : (MACRO) SETVAR _NGSSD_WR_SEC,JUMP_SIZE ;запись секторов SD карты NeoGS(1) 179/ 0 : =118H _NGSSD_WR_SEC EQU INITVAR(1) 179/ 0 : =>NOT BLANK IFNB JUMP_SIZE(1) 179/ 0 : =11BH INITVAR := INITVAR+JUMP_SIZE(1) 179/ 0 : =3H _NGSSD_WR_SEC_Size EQU JUMP_SIZE(1) 179/ 0 : =>FALSE ELSE(1) 179/ 0 : INITVAR := INITVAR+BYTE(1) 179/ 0 : _NGSSD_WR_SEC_Size EQU BYTE(1) 179/ 0 : [179] ENDIF(1) 180/ 0 :(1) 181/ 0 : (MACRO) SETVAR _INIT_KEYB_PS2,JUMP_SIZE ;включение доступа к PS/2 клавиатуре(1) 181/ 0 : =11BH _INIT_KEYB_PS2 EQU INITVAR(1) 181/ 0 : =>NOT BLANK IFNB JUMP_SIZE(1) 181/ 0 : =11EH INITVAR := INITVAR+JUMP_SIZE(1) 181/ 0 : =3H _INIT_KEYB_PS2_Size EQU JUMP_SIZE(1) 181/ 0 : =>FALSE ELSE(1) 181/ 0 : INITVAR := INITVAR+BYTE(1) 181/ 0 : _INIT_KEYB_PS2_Size EQU BYTE(1) 181/ 0 : [181] ENDIF(1) 182/ 0 : (MACRO) SETVAR _READ_KEYB_PS2,JUMP_SIZE ;считывание и декодирование сканкодов PS/2(1) 182/ 0 : =11EH _READ_KEYB_PS2 EQU INITVAR(1) 182/ 0 : =>NOT BLANK IFNB JUMP_SIZE(1) 182/ 0 : =121H INITVAR := INITVAR+JUMP_SIZE(1) 182/ 0 : =3H _READ_KEYB_PS2_Size EQU JUMP_SIZE(1) 182/ 0 : =>FALSE ELSE(1) 182/ 0 : INITVAR := INITVAR+BYTE(1) 182/ 0 : _READ_KEYB_PS2_Size EQU BYTE(1) 182/ 0 : [182] ENDIF(1) 183/ 0 : (MACRO) SETVAR _READ_STAT_PS2,JUMP_SIZE ;чтение статуса и декодированных клавиш PS/2(1) 183/ 0 : =121H _READ_STAT_PS2 EQU INITVAR(1) 183/ 0 : =>NOT BLANK IFNB JUMP_SIZE(1) 183/ 0 : =124H INITVAR := INITVAR+JUMP_SIZE(1) 183/ 0 : =3H _READ_STAT_PS2_Size EQU JUMP_SIZEAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/define.a80) - page 33 - 2/23/2020 18:58:45(1) 183/ 0 : =>FALSE ELSE(1) 183/ 0 : INITVAR := INITVAR+BYTE(1) 183/ 0 : _READ_STAT_PS2_Size EQU BYTE(1) 183/ 0 : [183] ENDIF(1) 184/ 0 :(1) 185/ 0 : (MACRO) SETVAR _INIT_TABLE_MEM,JUMP_SIZE ;получение таблицы занятых/свободных страниц памяти(1) 185/ 0 : =124H _INIT_TABLE_MEM EQU INITVAR(1) 185/ 0 : =>NOT BLANK IFNB JUMP_SIZE(1) 185/ 0 : =127H INITVAR := INITVAR+JUMP_SIZE(1) 185/ 0 : =3H _INIT_TABLE_MEM_Size EQU JUMP_SIZE(1) 185/ 0 : =>FALSE ELSE(1) 185/ 0 : INITVAR := INITVAR+BYTE(1) 185/ 0 : _INIT_TABLE_MEM_Size EQU BYTE(1) 185/ 0 : [185] ENDIF(1) 186/ 0 : (MACRO) SETVAR _GET_TABLE_MEM,JUMP_SIZE ;сброс всех занятых страницы памяти(1) 186/ 0 : =127H _GET_TABLE_MEM EQU INITVAR(1) 186/ 0 : =>NOT BLANK IFNB JUMP_SIZE(1) 186/ 0 : =12AH INITVAR := INITVAR+JUMP_SIZE(1) 186/ 0 : =3H _GET_TABLE_MEM_Size EQU JUMP_SIZE(1) 186/ 0 : =>FALSE ELSE(1) 186/ 0 : INITVAR := INITVAR+BYTE(1) 186/ 0 : _GET_TABLE_MEM_Size EQU BYTE(1) 186/ 0 : [186] ENDIF(1) 187/ 0 : (MACRO) SETVAR _ALLOC_PAGE,JUMP_SIZE ;получение номера свободной страницы памяти(1) 187/ 0 : =12AH _ALLOC_PAGE EQU INITVAR(1) 187/ 0 : =>NOT BLANK IFNB JUMP_SIZE(1) 187/ 0 : =12DH INITVAR := INITVAR+JUMP_SIZE(1) 187/ 0 : =3H _ALLOC_PAGE_Size EQU JUMP_SIZE(1) 187/ 0 : =>FALSE ELSE(1) 187/ 0 : INITVAR := INITVAR+BYTE(1) 187/ 0 : _ALLOC_PAGE_Size EQU BYTE(1) 187/ 0 : [187] ENDIF(1) 188/ 0 : (MACRO) SETVAR _FREE_PAGE,JUMP_SIZE ;освобождение по номеру страницы памяти(1) 188/ 0 : =12DH _FREE_PAGE EQU INITVAR(1) 188/ 0 : =>NOT BLANK IFNB JUMP_SIZE(1) 188/ 0 : =130H INITVAR := INITVAR+JUMP_SIZE(1) 188/ 0 : =3H _FREE_PAGE_Size EQU JUMP_SIZE(1) 188/ 0 : =>FALSE ELSE(1) 188/ 0 : INITVAR := INITVAR+BYTE(1) 188/ 0 : _FREE_PAGE_Size EQU BYTE(1) 188/ 0 : [188] ENDIF(1) 189/ 0 :9/ 0 : include ../../svn/pentevo/rom/evodos_vars.a80(1) 1/ 0 :(1) 2/ 0 : ;LAST UPDATE: 04.08.2019 savelij(1) 3/ 0 :(1) 4/ 0 : (MACRO) INIT_VAR ADR_RST8END-0X50(1) 4/ 0 : =>NOT BLANK IFNB ADR_RST8END-0X50(1) 4/ 0 : =3C98H INITVAR := ADR_RST8END-0X50(1) 4/ 0 : =>FALSE ELSE(1) 4/ 0 : INITVAR := 0(1) 4/ 0 : [4] ENDIF(1) 5/ 0 :(1) 6/ 0 : (MACRO) SETVAR IREG_E, BYTE ;1(1) 6/ 0 : =3C98H IREG_E EQU INITVAR(1) 6/ 0 : =>NOT BLANK IFNB BYTE(1) 6/ 0 : =3C99H INITVAR := INITVAR+BYTE(1) 6/ 0 : =1H IREG_E_Size EQU BYTE(1) 6/ 0 : =>FALSE ELSE(1) 6/ 0 : INITVAR := INITVAR+BYTEAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/evodos_vars.a80) - page 34 - 2/23/2020 18:58:45(1) 6/ 0 : IREG_E_Size EQU BYTE(1) 6/ 0 : [6] ENDIF(1) 7/ 0 : (MACRO) SETVAR IREG_D, BYTE ;1(1) 7/ 0 : =3C99H IREG_D EQU INITVAR(1) 7/ 0 : =>NOT BLANK IFNB BYTE(1) 7/ 0 : =3C9AH INITVAR := INITVAR+BYTE(1) 7/ 0 : =1H IREG_D_Size EQU BYTE(1) 7/ 0 : =>FALSE ELSE(1) 7/ 0 : INITVAR := INITVAR+BYTE(1) 7/ 0 : IREG_D_Size EQU BYTE(1) 7/ 0 : [7] ENDIF(1) 8/ 0 : (MACRO) SETVAR IREG_L, BYTE ;1(1) 8/ 0 : =3C9AH IREG_L EQU INITVAR(1) 8/ 0 : =>NOT BLANK IFNB BYTE(1) 8/ 0 : =3C9BH INITVAR := INITVAR+BYTE(1) 8/ 0 : =1H IREG_L_Size EQU BYTE(1) 8/ 0 : =>FALSE ELSE(1) 8/ 0 : INITVAR := INITVAR+BYTE(1) 8/ 0 : IREG_L_Size EQU BYTE(1) 8/ 0 : [8] ENDIF(1) 9/ 0 : (MACRO) SETVAR IREG_H, BYTE ;1(1) 9/ 0 : =3C9BH IREG_H EQU INITVAR(1) 9/ 0 : =>NOT BLANK IFNB BYTE(1) 9/ 0 : =3C9CH INITVAR := INITVAR+BYTE(1) 9/ 0 : =1H IREG_H_Size EQU BYTE(1) 9/ 0 : =>FALSE ELSE(1) 9/ 0 : INITVAR := INITVAR+BYTE(1) 9/ 0 : IREG_H_Size EQU BYTE(1) 9/ 0 : [9] ENDIF(1) 10/ 0 : (MACRO) SETVAR DOS_STEK, WORD ;2 СОХРАНЕНИЕ ОСНОВНОГО СТЕКА И ДНО ВНУТРЕННЕГО СТЕКА(1) 10/ 0 : =3C9CH DOS_STEK EQU INITVAR(1) 10/ 0 : =>NOT BLANK IFNB WORD(1) 10/ 0 : =3C9EH INITVAR := INITVAR+WORD(1) 10/ 0 : =2H DOS_STEK_Size EQU WORD(1) 10/ 0 : =>FALSE ELSE(1) 10/ 0 : INITVAR := INITVAR+BYTE(1) 10/ 0 : DOS_STEK_Size EQU BYTE(1) 10/ 0 : [10] ENDIF(1) 11/ 0 : ; SETVAR BYTE_DRIVE, BYTE ;1 ТЕКУЩЕЕ СОСТОЯНИЕ ВИРТУЛЬНОГО/ТЕКУЩЕГО/ПРИМОНТИРОВАННОГО ДИСКА(1) 12/ 0 : (MACRO) SETVAR WR_1F, BYTE ;1 КОПИЯ ЗАПИСАННОГО В ПОРТ 1F (РЕГИСТР КОМАНД)(1) 12/ 0 : =3C9EH WR_1F EQU INITVAR(1) 12/ 0 : =>NOT BLANK IFNB BYTE(1) 12/ 0 : =3C9FH INITVAR := INITVAR+BYTE(1) 12/ 0 : =1H WR_1F_Size EQU BYTE(1) 12/ 0 : =>FALSE ELSE(1) 12/ 0 : INITVAR := INITVAR+BYTE(1) 12/ 0 : WR_1F_Size EQU BYTE(1) 12/ 0 : [12] ENDIF(1) 13/ 0 : (MACRO) SETVAR RD_1F, BYTE ;1 ОТВЕТ ДЛЯ ЧТЕНИЯ ИЗ ПОРТА 1F(1) 13/ 0 : =3C9FH RD_1F EQU INITVAR(1) 13/ 0 : =>NOT BLANK IFNB BYTE(1) 13/ 0 : =3CA0H INITVAR := INITVAR+BYTE(1) 13/ 0 : =1H RD_1F_Size EQU BYTE(1) 13/ 0 : =>FALSE ELSE(1) 13/ 0 : INITVAR := INITVAR+BYTE(1) 13/ 0 : RD_1F_Size EQU BYTE(1) 13/ 0 : [13] ENDIF(1) 14/ 0 : (MACRO) SETVAR PORT_3F, BYTE ;1 ЗНАЧЕНИЕ ПОРТА 3F(1) 14/ 0 : =3CA0H PORT_3F EQU INITVAR(1) 14/ 0 : =>NOT BLANK IFNB BYTEAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/evodos_vars.a80) - page 35 - 2/23/2020 18:58:45(1) 14/ 0 : =3CA1H INITVAR := INITVAR+BYTE(1) 14/ 0 : =1H PORT_3F_Size EQU BYTE(1) 14/ 0 : =>FALSE ELSE(1) 14/ 0 : INITVAR := INITVAR+BYTE(1) 14/ 0 : PORT_3F_Size EQU BYTE(1) 14/ 0 : [14] ENDIF(1) 15/ 0 : (MACRO) SETVAR PORT_5F, BYTE ;1 ЗНАЧЕНИЕ ПОРТА 5F(1) 15/ 0 : =3CA1H PORT_5F EQU INITVAR(1) 15/ 0 : =>NOT BLANK IFNB BYTE(1) 15/ 0 : =3CA2H INITVAR := INITVAR+BYTE(1) 15/ 0 : =1H PORT_5F_Size EQU BYTE(1) 15/ 0 : =>FALSE ELSE(1) 15/ 0 : INITVAR := INITVAR+BYTE(1) 15/ 0 : PORT_5F_Size EQU BYTE(1) 15/ 0 : [15] ENDIF(1) 16/ 0 : (MACRO) SETVAR PORT_7F, BYTE ;1 ЗНАЧЕНИЕ ПОРТА 7F(1) 16/ 0 : =3CA2H PORT_7F EQU INITVAR(1) 16/ 0 : =>NOT BLANK IFNB BYTE(1) 16/ 0 : =3CA3H INITVAR := INITVAR+BYTE(1) 16/ 0 : =1H PORT_7F_Size EQU BYTE(1) 16/ 0 : =>FALSE ELSE(1) 16/ 0 : INITVAR := INITVAR+BYTE(1) 16/ 0 : PORT_7F_Size EQU BYTE(1) 16/ 0 : [16] ENDIF(1) 17/ 0 : (MACRO) SETVAR WR_FF, BYTE ;1 КОПИЯ ЗАПИСАННОГО В ПОРТ FF(1) 17/ 0 : =3CA3H WR_FF EQU INITVAR(1) 17/ 0 : =>NOT BLANK IFNB BYTE(1) 17/ 0 : =3CA4H INITVAR := INITVAR+BYTE(1) 17/ 0 : =1H WR_FF_Size EQU BYTE(1) 17/ 0 : =>FALSE ELSE(1) 17/ 0 : INITVAR := INITVAR+BYTE(1) 17/ 0 : WR_FF_Size EQU BYTE(1) 17/ 0 : [17] ENDIF(1) 18/ 0 : (MACRO) SETVAR RD_FF, BYTE ;1 ОТВЕТ ДЛЯ ЧТЕНИЯ ИЗ ПОРТА FF(1) 18/ 0 : =3CA4H RD_FF EQU INITVAR(1) 18/ 0 : =>NOT BLANK IFNB BYTE(1) 18/ 0 : =3CA5H INITVAR := INITVAR+BYTE(1) 18/ 0 : =1H RD_FF_Size EQU BYTE(1) 18/ 0 : =>FALSE ELSE(1) 18/ 0 : INITVAR := INITVAR+BYTE(1) 18/ 0 : RD_FF_Size EQU BYTE(1) 18/ 0 : [18] ENDIF(1) 19/ 0 : (MACRO) SETVAR BUFF_SECT, WORD ;2 АДРЕС ЧТЕНИЯ/ЗАПИСИ СЕКТОРА(1) 19/ 0 : =3CA5H BUFF_SECT EQU INITVAR(1) 19/ 0 : =>NOT BLANK IFNB WORD(1) 19/ 0 : =3CA7H INITVAR := INITVAR+WORD(1) 19/ 0 : =2H BUFF_SECT_Size EQU WORD(1) 19/ 0 : =>FALSE ELSE(1) 19/ 0 : INITVAR := INITVAR+BYTE(1) 19/ 0 : BUFF_SECT_Size EQU BYTE(1) 19/ 0 : [19] ENDIF(1) 20/ 0 : (MACRO) SETVAR ADDR_RET, WORD ;2 АДРЕС ВОЗВРАТА(1) 20/ 0 : =3CA7H ADDR_RET EQU INITVAR(1) 20/ 0 : =>NOT BLANK IFNB WORD(1) 20/ 0 : =3CA9H INITVAR := INITVAR+WORD(1) 20/ 0 : =2H ADDR_RET_Size EQU WORD(1) 20/ 0 : =>FALSE ELSE(1) 20/ 0 : INITVAR := INITVAR+BYTE(1) 20/ 0 : ADDR_RET_Size EQU BYTE(1) 20/ 0 : [20] ENDIFAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/evodos_vars.a80) - page 36 - 2/23/2020 18:58:45(1) 21/ 0 : (MACRO) SETVAR REG_IF, BYTE ;1(1) 21/ 0 : =3CA9H REG_IF EQU INITVAR(1) 21/ 0 : =>NOT BLANK IFNB BYTE(1) 21/ 0 : =3CAAH INITVAR := INITVAR+BYTE(1) 21/ 0 : =1H REG_IF_Size EQU BYTE(1) 21/ 0 : =>FALSE ELSE(1) 21/ 0 : INITVAR := INITVAR+BYTE(1) 21/ 0 : REG_IF_Size EQU BYTE(1) 21/ 0 : [21] ENDIF(1) 22/ 0 : (MACRO) SETVAR REG_I, BYTE ;1(1) 22/ 0 : =3CAAH REG_I EQU INITVAR(1) 22/ 0 : =>NOT BLANK IFNB BYTE(1) 22/ 0 : =3CABH INITVAR := INITVAR+BYTE(1) 22/ 0 : =1H REG_I_Size EQU BYTE(1) 22/ 0 : =>FALSE ELSE(1) 22/ 0 : INITVAR := INITVAR+BYTE(1) 22/ 0 : REG_I_Size EQU BYTE(1) 22/ 0 : [22] ENDIF(1) 23/ 0 : (MACRO) SETVAR REG_C, BYTE ;1(1) 23/ 0 : =3CABH REG_C EQU INITVAR(1) 23/ 0 : =>NOT BLANK IFNB BYTE(1) 23/ 0 : =3CACH INITVAR := INITVAR+BYTE(1) 23/ 0 : =1H REG_C_Size EQU BYTE(1) 23/ 0 : =>FALSE ELSE(1) 23/ 0 : INITVAR := INITVAR+BYTE(1) 23/ 0 : REG_C_Size EQU BYTE(1) 23/ 0 : [23] ENDIF(1) 24/ 0 : (MACRO) SETVAR REG_B, BYTE ;1(1) 24/ 0 : =3CACH REG_B EQU INITVAR(1) 24/ 0 : =>NOT BLANK IFNB BYTE(1) 24/ 0 : =3CADH INITVAR := INITVAR+BYTE(1) 24/ 0 : =1H REG_B_Size EQU BYTE(1) 24/ 0 : =>FALSE ELSE(1) 24/ 0 : INITVAR := INITVAR+BYTE(1) 24/ 0 : REG_B_Size EQU BYTE(1) 24/ 0 : [24] ENDIF(1) 25/ 0 : (MACRO) SETVAR REG_F, BYTE ;1(1) 25/ 0 : =3CADH REG_F EQU INITVAR(1) 25/ 0 : =>NOT BLANK IFNB BYTE(1) 25/ 0 : =3CAEH INITVAR := INITVAR+BYTE(1) 25/ 0 : =1H REG_F_Size EQU BYTE(1) 25/ 0 : =>FALSE ELSE(1) 25/ 0 : INITVAR := INITVAR+BYTE(1) 25/ 0 : REG_F_Size EQU BYTE(1) 25/ 0 : [25] ENDIF(1) 26/ 0 : (MACRO) SETVAR REG_A, BYTE ;1(1) 26/ 0 : =3CAEH REG_A EQU INITVAR(1) 26/ 0 : =>NOT BLANK IFNB BYTE(1) 26/ 0 : =3CAFH INITVAR := INITVAR+BYTE(1) 26/ 0 : =1H REG_A_Size EQU BYTE(1) 26/ 0 : =>FALSE ELSE(1) 26/ 0 : INITVAR := INITVAR+BYTE(1) 26/ 0 : REG_A_Size EQU BYTE(1) 26/ 0 : [26] ENDIF(1) 27/ 0 : (MACRO) SETVAR REG_L, BYTE ;1 АДРЕС ЗАГРУЗКИ/ЗАПИСИ(1) 27/ 0 : =3CAFH REG_L EQU INITVAR(1) 27/ 0 : =>NOT BLANK IFNB BYTE(1) 27/ 0 : =3CB0H INITVAR := INITVAR+BYTE(1) 27/ 0 : =1H REG_L_Size EQU BYTE(1) 27/ 0 : =>FALSE ELSEAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/evodos_vars.a80) - page 37 - 2/23/2020 18:58:45(1) 27/ 0 : INITVAR := INITVAR+BYTE(1) 27/ 0 : REG_L_Size EQU BYTE(1) 27/ 0 : [27] ENDIF(1) 28/ 0 : (MACRO) SETVAR REG_H, BYTE ;1(1) 28/ 0 : =3CB0H REG_H EQU INITVAR(1) 28/ 0 : =>NOT BLANK IFNB BYTE(1) 28/ 0 : =3CB1H INITVAR := INITVAR+BYTE(1) 28/ 0 : =1H REG_H_Size EQU BYTE(1) 28/ 0 : =>FALSE ELSE(1) 28/ 0 : INITVAR := INITVAR+BYTE(1) 28/ 0 : REG_H_Size EQU BYTE(1) 28/ 0 : [28] ENDIF(1) 29/ 0 : (MACRO) SETVAR WR_BF, BYTE ;1(1) 29/ 0 : =3CB1H WR_BF EQU INITVAR(1) 29/ 0 : =>NOT BLANK IFNB BYTE(1) 29/ 0 : =3CB2H INITVAR := INITVAR+BYTE(1) 29/ 0 : =1H WR_BF_Size EQU BYTE(1) 29/ 0 : =>FALSE ELSE(1) 29/ 0 : INITVAR := INITVAR+BYTE(1) 29/ 0 : WR_BF_Size EQU BYTE(1) 29/ 0 : [29] ENDIF(1) 30/ 0 : (MACRO) SETVAR WR_77, BYTE ;1(1) 30/ 0 : =3CB2H WR_77 EQU INITVAR(1) 30/ 0 : =>NOT BLANK IFNB BYTE(1) 30/ 0 : =3CB3H INITVAR := INITVAR+BYTE(1) 30/ 0 : =1H WR_77_Size EQU BYTE(1) 30/ 0 : =>FALSE ELSE(1) 30/ 0 : INITVAR := INITVAR+BYTE(1) 30/ 0 : WR_77_Size EQU BYTE(1) 30/ 0 : [30] ENDIF(1) 31/ 0 : (MACRO) SETVAR WR_EFF7, BYTE ;1(1) 31/ 0 : =3CB3H WR_EFF7 EQU INITVAR(1) 31/ 0 : =>NOT BLANK IFNB BYTE(1) 31/ 0 : =3CB4H INITVAR := INITVAR+BYTE(1) 31/ 0 : =1H WR_EFF7_Size EQU BYTE(1) 31/ 0 : =>FALSE ELSE(1) 31/ 0 : INITVAR := INITVAR+BYTE(1) 31/ 0 : WR_EFF7_Size EQU BYTE(1) 31/ 0 : [31] ENDIF(1) 32/ 0 : (MACRO) SETVAR WR_7FFD, BYTE ;1(1) 32/ 0 : =3CB4H WR_7FFD EQU INITVAR(1) 32/ 0 : =>NOT BLANK IFNB BYTE(1) 32/ 0 : =3CB5H INITVAR := INITVAR+BYTE(1) 32/ 0 : =1H WR_7FFD_Size EQU BYTE(1) 32/ 0 : =>FALSE ELSE(1) 32/ 0 : INITVAR := INITVAR+BYTE(1) 32/ 0 : WR_7FFD_Size EQU BYTE(1) 32/ 0 : [32] ENDIF(1) 33/ 0 : (MACRO) SETVAR WR_DOS7FFD, BYTE ;1(1) 33/ 0 : =3CB5H WR_DOS7FFD EQU INITVAR(1) 33/ 0 : =>NOT BLANK IFNB BYTE(1) 33/ 0 : =3CB6H INITVAR := INITVAR+BYTE(1) 33/ 0 : =1H WR_DOS7FFD_Size EQU BYTE(1) 33/ 0 : =>FALSE ELSE(1) 33/ 0 : INITVAR := INITVAR+BYTE(1) 33/ 0 : WR_DOS7FFD_Size EQU BYTE(1) 33/ 0 : [33] ENDIF(1) 34/ 0 : (MACRO) SETVAR WR_RAMNROM, BYTE ;1(1) 34/ 0 : =3CB6H WR_RAMNROM EQU INITVAR(1) 34/ 0 : =>NOT BLANK IFNB BYTEAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/evodos_vars.a80) - page 38 - 2/23/2020 18:58:45(1) 34/ 0 : =3CB7H INITVAR := INITVAR+BYTE(1) 34/ 0 : =1H WR_RAMNROM_Size EQU BYTE(1) 34/ 0 : =>FALSE ELSE(1) 34/ 0 : INITVAR := INITVAR+BYTE(1) 34/ 0 : WR_RAMNROM_Size EQU BYTE(1) 34/ 0 : [34] ENDIF(1) 35/ 0 : (MACRO) SETVAR WR_1WINA3, BYTE ;1(1) 35/ 0 : =3CB7H WR_1WINA3 EQU INITVAR(1) 35/ 0 : =>NOT BLANK IFNB BYTE(1) 35/ 0 : =3CB8H INITVAR := INITVAR+BYTE(1) 35/ 0 : =1H WR_1WINA3_Size EQU BYTE(1) 35/ 0 : =>FALSE ELSE(1) 35/ 0 : INITVAR := INITVAR+BYTE(1) 35/ 0 : WR_1WINA3_Size EQU BYTE(1) 35/ 0 : [35] ENDIF(1) 36/ 0 : (MACRO) SETVAR WR_1WINA2, BYTE ;1(1) 36/ 0 : =3CB8H WR_1WINA2 EQU INITVAR(1) 36/ 0 : =>NOT BLANK IFNB BYTE(1) 36/ 0 : =3CB9H INITVAR := INITVAR+BYTE(1) 36/ 0 : =1H WR_1WINA2_Size EQU BYTE(1) 36/ 0 : =>FALSE ELSE(1) 36/ 0 : INITVAR := INITVAR+BYTE(1) 36/ 0 : WR_1WINA2_Size EQU BYTE(1) 36/ 0 : [36] ENDIF(1) 37/ 0 : (MACRO) SETVAR WR_1WINA1, BYTE ;1(1) 37/ 0 : =3CB9H WR_1WINA1 EQU INITVAR(1) 37/ 0 : =>NOT BLANK IFNB BYTE(1) 37/ 0 : =3CBAH INITVAR := INITVAR+BYTE(1) 37/ 0 : =1H WR_1WINA1_Size EQU BYTE(1) 37/ 0 : =>FALSE ELSE(1) 37/ 0 : INITVAR := INITVAR+BYTE(1) 37/ 0 : WR_1WINA1_Size EQU BYTE(1) 37/ 0 : [37] ENDIF(1) 38/ 0 : (MACRO) SETVAR WR_1WINA0, BYTE ;1(1) 38/ 0 : =3CBAH WR_1WINA0 EQU INITVAR(1) 38/ 0 : =>NOT BLANK IFNB BYTE(1) 38/ 0 : =3CBBH INITVAR := INITVAR+BYTE(1) 38/ 0 : =1H WR_1WINA0_Size EQU BYTE(1) 38/ 0 : =>FALSE ELSE(1) 38/ 0 : INITVAR := INITVAR+BYTE(1) 38/ 0 : WR_1WINA0_Size EQU BYTE(1) 38/ 0 : [38] ENDIF(1) 39/ 0 : (MACRO) SETVAR WR_0WINA3, BYTE ;1(1) 39/ 0 : =3CBBH WR_0WINA3 EQU INITVAR(1) 39/ 0 : =>NOT BLANK IFNB BYTE(1) 39/ 0 : =3CBCH INITVAR := INITVAR+BYTE(1) 39/ 0 : =1H WR_0WINA3_Size EQU BYTE(1) 39/ 0 : =>FALSE ELSE(1) 39/ 0 : INITVAR := INITVAR+BYTE(1) 39/ 0 : WR_0WINA3_Size EQU BYTE(1) 39/ 0 : [39] ENDIF(1) 40/ 0 : (MACRO) SETVAR WR_0WINA2, BYTE ;1(1) 40/ 0 : =3CBCH WR_0WINA2 EQU INITVAR(1) 40/ 0 : =>NOT BLANK IFNB BYTE(1) 40/ 0 : =3CBDH INITVAR := INITVAR+BYTE(1) 40/ 0 : =1H WR_0WINA2_Size EQU BYTE(1) 40/ 0 : =>FALSE ELSE(1) 40/ 0 : INITVAR := INITVAR+BYTE(1) 40/ 0 : WR_0WINA2_Size EQU BYTE(1) 40/ 0 : [40] ENDIFAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/evodos_vars.a80) - page 39 - 2/23/2020 18:58:45(1) 41/ 0 : (MACRO) SETVAR WR_0WINA1, BYTE ;1(1) 41/ 0 : =3CBDH WR_0WINA1 EQU INITVAR(1) 41/ 0 : =>NOT BLANK IFNB BYTE(1) 41/ 0 : =3CBEH INITVAR := INITVAR+BYTE(1) 41/ 0 : =1H WR_0WINA1_Size EQU BYTE(1) 41/ 0 : =>FALSE ELSE(1) 41/ 0 : INITVAR := INITVAR+BYTE(1) 41/ 0 : WR_0WINA1_Size EQU BYTE(1) 41/ 0 : [41] ENDIF(1) 42/ 0 : (MACRO) SETVAR WR_0WINA0, BYTE ;1(1) 42/ 0 : =3CBEH WR_0WINA0 EQU INITVAR(1) 42/ 0 : =>NOT BLANK IFNB BYTE(1) 42/ 0 : =3CBFH INITVAR := INITVAR+BYTE(1) 42/ 0 : =1H WR_0WINA0_Size EQU BYTE(1) 42/ 0 : =>FALSE ELSE(1) 42/ 0 : INITVAR := INITVAR+BYTE(1) 42/ 0 : WR_0WINA0_Size EQU BYTE(1) 42/ 0 : [42] ENDIF(1) 43/ 0 : (MACRO) SETVAR BB_CPU1, BYTE ;1 БАЙТ ДЛЯ ЗАПИСИ В ОКНО CPU1(1) 43/ 0 : =3CBFH BB_CPU1 EQU INITVAR(1) 43/ 0 : =>NOT BLANK IFNB BYTE(1) 43/ 0 : =3CC0H INITVAR := INITVAR+BYTE(1) 43/ 0 : =1H BB_CPU1_Size EQU BYTE(1) 43/ 0 : =>FALSE ELSE(1) 43/ 0 : INITVAR := INITVAR+BYTE(1) 43/ 0 : BB_CPU1_Size EQU BYTE(1) 43/ 0 : [43] ENDIF(1) 44/ 0 : (MACRO) SETVAR BP_CPU1, BYTE ;1 СТАРШИЙ БАЙТ АДРЕСА ПОРТА CPU1(1) 44/ 0 : =3CC0H BP_CPU1 EQU INITVAR(1) 44/ 0 : =>NOT BLANK IFNB BYTE(1) 44/ 0 : =3CC1H INITVAR := INITVAR+BYTE(1) 44/ 0 : =1H BP_CPU1_Size EQU BYTE(1) 44/ 0 : =>FALSE ELSE(1) 44/ 0 : INITVAR := INITVAR+BYTE(1) 44/ 0 : BP_CPU1_Size EQU BYTE(1) 44/ 0 : [44] ENDIF(1) 45/ 0 : (MACRO) SETVAR BB_CPU2, BYTE ;1 БАЙТ ДЛЯ ЗАПИСИ В ОКНО CPU2(1) 45/ 0 : =3CC1H BB_CPU2 EQU INITVAR(1) 45/ 0 : =>NOT BLANK IFNB BYTE(1) 45/ 0 : =3CC2H INITVAR := INITVAR+BYTE(1) 45/ 0 : =1H BB_CPU2_Size EQU BYTE(1) 45/ 0 : =>FALSE ELSE(1) 45/ 0 : INITVAR := INITVAR+BYTE(1) 45/ 0 : BB_CPU2_Size EQU BYTE(1) 45/ 0 : [45] ENDIF(1) 46/ 0 : (MACRO) SETVAR BP_CPU2, BYTE ;1 СТАРШИЙ БАЙТ АДРЕСА ПОРТА CPU2(1) 46/ 0 : =3CC2H BP_CPU2 EQU INITVAR(1) 46/ 0 : =>NOT BLANK IFNB BYTE(1) 46/ 0 : =3CC3H INITVAR := INITVAR+BYTE(1) 46/ 0 : =1H BP_CPU2_Size EQU BYTE(1) 46/ 0 : =>FALSE ELSE(1) 46/ 0 : INITVAR := INITVAR+BYTE(1) 46/ 0 : BP_CPU2_Size EQU BYTE(1) 46/ 0 : [46] ENDIF(1) 47/ 0 : (MACRO) SETVAR MINT_STACK, WORD ;2(1) 47/ 0 : =3CC3H MINT_STACK EQU INITVAR(1) 47/ 0 : =>NOT BLANK IFNB WORD(1) 47/ 0 : =3CC5H INITVAR := INITVAR+WORD(1) 47/ 0 : =2H MINT_STACK_Size EQU WORD(1) 47/ 0 : =>FALSE ELSEAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/evodos_vars.a80) - page 40 - 2/23/2020 18:58:45(1) 47/ 0 : INITVAR := INITVAR+BYTE(1) 47/ 0 : MINT_STACK_Size EQU BYTE(1) 47/ 0 : [47] ENDIF(1) 48/ 0 : (MACRO) SETVAR TEK_ROMPAGE, BYTE ;1(1) 48/ 0 : =3CC5H TEK_ROMPAGE EQU INITVAR(1) 48/ 0 : =>NOT BLANK IFNB BYTE(1) 48/ 0 : =3CC6H INITVAR := INITVAR+BYTE(1) 48/ 0 : =1H TEK_ROMPAGE_Size EQU BYTE(1) 48/ 0 : =>FALSE ELSE(1) 48/ 0 : INITVAR := INITVAR+BYTE(1) 48/ 0 : TEK_ROMPAGE_Size EQU BYTE(1) 48/ 0 : [48] ENDIF(1) 49/ 0 : (MACRO) SETVAR MASK_WRK_DRV, BYTE ;1 номер дисковода в порту FF(1) 49/ 0 : =3CC6H MASK_WRK_DRV EQU INITVAR(1) 49/ 0 : =>NOT BLANK IFNB BYTE(1) 49/ 0 : =3CC7H INITVAR := INITVAR+BYTE(1) 49/ 0 : =1H MASK_WRK_DRV_Size EQU BYTE(1) 49/ 0 : =>FALSE ELSE(1) 49/ 0 : INITVAR := INITVAR+BYTE(1) 49/ 0 : MASK_WRK_DRV_Size EQU BYTE(1) 49/ 0 : [49] ENDIF(1) 50/ 0 : (MACRO) SETVAR MASK_MNT_DRV, BYTE ;1 битовая маска примонтированного диска(1) 50/ 0 : =3CC7H MASK_MNT_DRV EQU INITVAR(1) 50/ 0 : =>NOT BLANK IFNB BYTE(1) 50/ 0 : =3CC8H INITVAR := INITVAR+BYTE(1) 50/ 0 : =1H MASK_MNT_DRV_Size EQU BYTE(1) 50/ 0 : =>FALSE ELSE(1) 50/ 0 : INITVAR := INITVAR+BYTE(1) 50/ 0 : MASK_MNT_DRV_Size EQU BYTE(1) 50/ 0 : [50] ENDIF(1) 51/ 0 : (MACRO) SETVAR VIRT_DRIVE, BYTE ;1 номер виртуального диска из CMOS(1) 51/ 0 : =3CC8H VIRT_DRIVE EQU INITVAR(1) 51/ 0 : =>NOT BLANK IFNB BYTE(1) 51/ 0 : =3CC9H INITVAR := INITVAR+BYTE(1) 51/ 0 : =1H VIRT_DRIVE_Size EQU BYTE(1) 51/ 0 : =>FALSE ELSE(1) 51/ 0 : INITVAR := INITVAR+BYTE(1) 51/ 0 : VIRT_DRIVE_Size EQU BYTE(1) 51/ 0 : [51] ENDIF(1) 52/ 0 : (MACRO) SETVAR REAL_DRIVE, BYTE ;1 номер реального диска из CMOS(1) 52/ 0 : =3CC9H REAL_DRIVE EQU INITVAR(1) 52/ 0 : =>NOT BLANK IFNB BYTE(1) 52/ 0 : =3CCAH INITVAR := INITVAR+BYTE(1) 52/ 0 : =1H REAL_DRIVE_Size EQU BYTE(1) 52/ 0 : =>FALSE ELSE(1) 52/ 0 : INITVAR := INITVAR+BYTE(1) 52/ 0 : REAL_DRIVE_Size EQU BYTE(1) 52/ 0 : [52] ENDIF(1) 53/ 0 : (MACRO) SETVAR COPY_VIRT_BITS, BYTE ;1(1) 53/ 0 : =3CCAH COPY_VIRT_BITS EQU INITVAR(1) 53/ 0 : =>NOT BLANK IFNB BYTE(1) 53/ 0 : =3CCBH INITVAR := INITVAR+BYTE(1) 53/ 0 : =1H COPY_VIRT_BITS_Size EQU BYTE(1) 53/ 0 : =>FALSE ELSE(1) 53/ 0 : INITVAR := INITVAR+BYTE(1) 53/ 0 : COPY_VIRT_BITS_Size EQU BYTE(1) 53/ 0 : [53] ENDIF(1) 54/ 0 : ; SETVAR VIRT_REAL_DRV, BYTE ;1(1) 55/ 0 : (MACRO) SETVAR OLD_PORT_BF, BYTE ;1(1) 55/ 0 : =3CCBH OLD_PORT_BF EQU INITVARAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/evodos_vars.a80) - page 41 - 2/23/2020 18:58:45(1) 55/ 0 : =>NOT BLANK IFNB BYTE(1) 55/ 0 : =3CCCH INITVAR := INITVAR+BYTE(1) 55/ 0 : =1H OLD_PORT_BF_Size EQU BYTE(1) 55/ 0 : =>FALSE ELSE(1) 55/ 0 : INITVAR := INITVAR+BYTE(1) 55/ 0 : OLD_PORT_BF_Size EQU BYTE(1) 55/ 0 : [55] ENDIF(1) 56/ 0 : (MACRO) SETVAR SECTOR_SIZE, BYTE ;1(1) 56/ 0 : =3CCCH SECTOR_SIZE EQU INITVAR(1) 56/ 0 : =>NOT BLANK IFNB BYTE(1) 56/ 0 : =3CCDH INITVAR := INITVAR+BYTE(1) 56/ 0 : =1H SECTOR_SIZE_Size EQU BYTE(1) 56/ 0 : =>FALSE ELSE(1) 56/ 0 : INITVAR := INITVAR+BYTE(1) 56/ 0 : SECTOR_SIZE_Size EQU BYTE(1) 56/ 0 : [56] ENDIF(1) 57/ 0 : (MACRO) SETVAR RDWR_MODE, BYTE ;1(1) 57/ 0 : =3CCDH RDWR_MODE EQU INITVAR(1) 57/ 0 : =>NOT BLANK IFNB BYTE(1) 57/ 0 : =3CCEH INITVAR := INITVAR+BYTE(1) 57/ 0 : =1H RDWR_MODE_Size EQU BYTE(1) 57/ 0 : =>FALSE ELSE(1) 57/ 0 : INITVAR := INITVAR+BYTE(1) 57/ 0 : RDWR_MODE_Size EQU BYTE(1) 57/ 0 : [57] ENDIF(1) 58/ 0 : (MACRO) SETVAR RDWR_PAGE, BYTE ;1(1) 58/ 0 : =3CCEH RDWR_PAGE EQU INITVAR(1) 58/ 0 : =>NOT BLANK IFNB BYTE(1) 58/ 0 : =3CCFH INITVAR := INITVAR+BYTE(1) 58/ 0 : =1H RDWR_PAGE_Size EQU BYTE(1) 58/ 0 : =>FALSE ELSE(1) 58/ 0 : INITVAR := INITVAR+BYTE(1) 58/ 0 : RDWR_PAGE_Size EQU BYTE(1) 58/ 0 : [58] ENDIF(1) 59/ 0 : (MACRO) SETVAR FLAG_RW_BREAK, BYTE ;1(1) 59/ 0 : =3CCFH FLAG_RW_BREAK EQU INITVAR(1) 59/ 0 : =>NOT BLANK IFNB BYTE(1) 59/ 0 : =3CD0H INITVAR := INITVAR+BYTE(1) 59/ 0 : =1H FLAG_RW_BREAK_Size EQU BYTE(1) 59/ 0 : =>FALSE ELSE(1) 59/ 0 : INITVAR := INITVAR+BYTE(1) 59/ 0 : FLAG_RW_BREAK_Size EQU BYTE(1) 59/ 0 : [59] ENDIF(1) 60/ 0 : (MACRO) SETVAR TEMP_SP, WORD ;2(1) 60/ 0 : =3CD0H TEMP_SP EQU INITVAR(1) 60/ 0 : =>NOT BLANK IFNB WORD(1) 60/ 0 : =3CD2H INITVAR := INITVAR+WORD(1) 60/ 0 : =2H TEMP_SP_Size EQU WORD(1) 60/ 0 : =>FALSE ELSE(1) 60/ 0 : INITVAR := INITVAR+BYTE(1) 60/ 0 : TEMP_SP_Size EQU BYTE(1) 60/ 0 : [60] ENDIF(1) 61/ 0 : (MACRO) SETVAR SAVED_RAM, 0X10 ;10(1) 61/ 0 : =3CD2H SAVED_RAM EQU INITVAR(1) 61/ 0 : =>NOT BLANK IFNB 0X10(1) 61/ 0 : =3CE2H INITVAR := INITVAR+0X10(1) 61/ 0 : =10H SAVED_RAM_Size EQU 0X10(1) 61/ 0 : =>FALSE ELSE(1) 61/ 0 : INITVAR := INITVAR+BYTE(1) 61/ 0 : SAVED_RAM_Size EQU BYTEAS V1.42 Beta [Bld 146] - source file trdos.a80(../../svn/pentevo/rom/evodos_vars.a80) - page 42 - 2/23/2020 18:58:45(1) 61/ 0 : [61] ENDIF(1) 62/ 0 : END_VARS(1) 63/ 0 :10/ 0 : include define.a80(1) 1/ 0 :(1) 2/ 0 : ;LAST UPDATE: 13.02.2020 savelij(1) 3/ 0 :(1) 4/ 0 : =13BDH BD_FDD_MASK EQU 0X13BD(1) 5/ 0 :11/ 0 :12/ 0 : DIHALT MACRO13/ 0 : DI14/ 0 : HALT15/ 0 : NOP16/ 0 : NOP17/ 0 : NOP18/ 0 : NOP19/ 0 : ENDM20/ 0 :21/ 0 : NODIHALT MACRO22/ 0 : REPT 623/ 0 : NOP24/ 0 : ENDM25/ 0 : ENDM26/ 0 :27/ 0 : ORG 028/ 0 : F3 DI29/ 1 : 3E 3C LD A,0X3C30/ 3 : D3 FF OUT (0XFF),A31/ 5 : 3E 01 LD A,132/ 7 : 01 BD 13 RESTART LD BC,BD_FDD_MASK33/ A : ED 79 OUT (C),A34/ C : 21 FA 04 LD HL,EMPTY35/ F : C3 00 03 JP START_TEST36/ 12 :37/ 12 : (MACRO) DUPL 0X300-$37/ 12 : DUPL:37/ 12 : =0H $$N EQU (0X300-$) / 102437/ 12 : =2EEH $$M EQU (0X300-$) # 102437/ 12 : REPT $$N37/ 12 : DB 1024 DUP()37/ 12 : ENDM37/ 12 : =>TRUE IF $$M <> 037/ 12 : =>BLANK IFB37/ 12 : 00 00 00 00 00 00 DB $$M DUP(0)00 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 43 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 44 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0037/ 300 : =>FALSE ELSE37/ 300 : DB $$M DUP()37/ 300 : [37] ENDIF37/ 300 : [37] ENDIF38/ 300 : 3E 3C START_TEST LD A,0X3C39/ 302 : D3 FF OUT (0XFF),A40/ 304 : (MACRO) DIHALT40/ 304 : F3 DI40/ 305 : 76 HALT40/ 306 : 00 NOP40/ 307 : 00 NOPAS V1.42 Beta [Bld 146] - source file trdos.a80 - page 45 - 2/23/2020 18:58:4540/ 308 : 00 NOP40/ 309 : 00 NOP41/ 30A : DB FF IN A,(0XFF)42/ 30C : (MACRO) DIHALT42/ 30C : F3 DI42/ 30D : 76 HALT42/ 30E : 00 NOP42/ 30F : 00 NOP42/ 310 : 00 NOP42/ 311 : 00 NOP43/ 312 : D3 7F OUT (0X7F),A44/ 314 : (MACRO) DIHALT44/ 314 : F3 DI44/ 315 : 76 HALT44/ 316 : 00 NOP44/ 317 : 00 NOP44/ 318 : 00 NOP44/ 319 : 00 NOP45/ 31A : DB 7F IN A,(0X7F)46/ 31C : (MACRO) DIHALT46/ 31C : F3 DI46/ 31D : 76 HALT46/ 31E : 00 NOP46/ 31F : 00 NOP46/ 320 : 00 NOP46/ 321 : 00 NOP47/ 322 : D3 5F OUT (0X5F),A48/ 324 : (MACRO) DIHALT48/ 324 : F3 DI48/ 325 : 76 HALT48/ 326 : 00 NOP48/ 327 : 00 NOP48/ 328 : 00 NOP48/ 329 : 00 NOP49/ 32A : DB 5F IN A,(0X5F)50/ 32C : (MACRO) DIHALT50/ 32C : F3 DI50/ 32D : 76 HALT50/ 32E : 00 NOP50/ 32F : 00 NOP50/ 330 : 00 NOP50/ 331 : 00 NOP51/ 332 : D3 3F OUT (0X3F),A52/ 334 : (MACRO) DIHALT52/ 334 : F3 DI52/ 335 : 76 HALT52/ 336 : 00 NOP52/ 337 : 00 NOP52/ 338 : 00 NOP52/ 339 : 00 NOP53/ 33A : DB 3F IN A,(0X3F)54/ 33C : (MACRO) DIHALT54/ 33C : F3 DI54/ 33D : 76 HALT54/ 33E : 00 NOP54/ 33F : 00 NOP54/ 340 : 00 NOP54/ 341 : 00 NOP55/ 342 : D3 1F OUT (0X1F),A56/ 344 : (MACRO) DIHALTAS V1.42 Beta [Bld 146] - source file trdos.a80 - page 46 - 2/23/2020 18:58:4556/ 344 : F3 DI56/ 345 : 76 HALT56/ 346 : 00 NOP56/ 347 : 00 NOP56/ 348 : 00 NOP56/ 349 : 00 NOP57/ 34A : DB 1F IN A,(0X1F)58/ 34C : (MACRO) DIHALT58/ 34C : F3 DI58/ 34D : 76 HALT58/ 34E : 00 NOP58/ 34F : 00 NOP58/ 350 : 00 NOP58/ 351 : 00 NOP59/ 352 : 01 FF 00 LD BC,0XFF60/ 355 : ED 41 OUT (C),B61/ 357 : (MACRO) DIHALT61/ 357 : F3 DI61/ 358 : 76 HALT61/ 359 : 00 NOP61/ 35A : 00 NOP61/ 35B : 00 NOP61/ 35C : 00 NOP62/ 35D : ED 78 IN A,(C)63/ 35F : (MACRO) DIHALT63/ 35F : F3 DI63/ 360 : 76 HALT63/ 361 : 00 NOP63/ 362 : 00 NOP63/ 363 : 00 NOP63/ 364 : 00 NOP64/ 365 : 0E 7F LD C,0X7F65/ 367 : ED 79 OUT (C),A66/ 369 : (MACRO) DIHALT66/ 369 : F3 DI66/ 36A : 76 HALT66/ 36B : 00 NOP66/ 36C : 00 NOP66/ 36D : 00 NOP66/ 36E : 00 NOP67/ 36F : 0E 5F LD C,0X5F68/ 371 : ED 78 IN A,(C)69/ 373 : (MACRO) DIHALT69/ 373 : F3 DI69/ 374 : 76 HALT69/ 375 : 00 NOP69/ 376 : 00 NOP69/ 377 : 00 NOP69/ 378 : 00 NOP70/ 379 : 0E 3F LD C,0X3F71/ 37B : ED 79 OUT (C),A72/ 37D : (MACRO) DIHALT72/ 37D : F3 DI72/ 37E : 76 HALT72/ 37F : 00 NOP72/ 380 : 00 NOP72/ 381 : 00 NOP72/ 382 : 00 NOP73/ 383 : ED 78 IN A,(C)74/ 385 : (MACRO) DIHALTAS V1.42 Beta [Bld 146] - source file trdos.a80 - page 47 - 2/23/2020 18:58:4574/ 385 : F3 DI74/ 386 : 76 HALT74/ 387 : 00 NOP74/ 388 : 00 NOP74/ 389 : 00 NOP74/ 38A : 00 NOP75/ 38B : 0E 1F LD C,0X1F76/ 38D : ED 79 OUT (C),A77/ 38F : (MACRO) DIHALT77/ 38F : F3 DI77/ 390 : 76 HALT77/ 391 : 00 NOP77/ 392 : 00 NOP77/ 393 : 00 NOP77/ 394 : 00 NOP78/ 395 : ED 78 IN A,(C)79/ 397 : (MACRO) DIHALT79/ 397 : F3 DI79/ 398 : 76 HALT79/ 399 : 00 NOP79/ 39A : 00 NOP79/ 39B : 00 NOP79/ 39C : 00 NOP80/ 39D : 0E FF LD C,0XFF81/ 39F : ED A2 INI82/ 3A1 : (MACRO) DIHALT82/ 3A1 : F3 DI82/ 3A2 : 76 HALT82/ 3A3 : 00 NOP82/ 3A4 : 00 NOP82/ 3A5 : 00 NOP82/ 3A6 : 00 NOP83/ 3A7 : ED A3 OUTI84/ 3A9 : (MACRO) DIHALT84/ 3A9 : F3 DI84/ 3AA : 76 HALT84/ 3AB : 00 NOP84/ 3AC : 00 NOP84/ 3AD : 00 NOP84/ 3AE : 00 NOP85/ 3AF : 0E 7F LD C,0X7F86/ 3B1 : ED A2 INI87/ 3B3 : (MACRO) DIHALT87/ 3B3 : F3 DI87/ 3B4 : 76 HALT87/ 3B5 : 00 NOP87/ 3B6 : 00 NOP87/ 3B7 : 00 NOP87/ 3B8 : 00 NOP88/ 3B9 : ED A3 OUTI89/ 3BB : (MACRO) DIHALT89/ 3BB : F3 DI89/ 3BC : 76 HALT89/ 3BD : 00 NOP89/ 3BE : 00 NOP89/ 3BF : 00 NOP89/ 3C0 : 00 NOP90/ 3C1 : 0E 5F LD C,0X5F91/ 3C3 : ED A2 INI92/ 3C5 : (MACRO) DIHALTAS V1.42 Beta [Bld 146] - source file trdos.a80 - page 48 - 2/23/2020 18:58:4592/ 3C5 : F3 DI92/ 3C6 : 76 HALT92/ 3C7 : 00 NOP92/ 3C8 : 00 NOP92/ 3C9 : 00 NOP92/ 3CA : 00 NOP93/ 3CB : ED A3 OUTI94/ 3CD : (MACRO) DIHALT94/ 3CD : F3 DI94/ 3CE : 76 HALT94/ 3CF : 00 NOP94/ 3D0 : 00 NOP94/ 3D1 : 00 NOP94/ 3D2 : 00 NOP95/ 3D3 : 0E 3F LD C,0X3F96/ 3D5 : ED A2 INI97/ 3D7 : (MACRO) DIHALT97/ 3D7 : F3 DI97/ 3D8 : 76 HALT97/ 3D9 : 00 NOP97/ 3DA : 00 NOP97/ 3DB : 00 NOP97/ 3DC : 00 NOP98/ 3DD : ED A3 OUTI99/ 3DF : (MACRO) DIHALT99/ 3DF : F3 DI99/ 3E0 : 76 HALT99/ 3E1 : 00 NOP99/ 3E2 : 00 NOP99/ 3E3 : 00 NOP99/ 3E4 : 00 NOP100/ 3E5 : 0E 1F LD C,0X1F101/ 3E7 : ED A2 INI102/ 3E9 : (MACRO) DIHALT102/ 3E9 : F3 DI102/ 3EA : 76 HALT102/ 3EB : 00 NOP102/ 3EC : 00 NOP102/ 3ED : 00 NOP102/ 3EE : 00 NOP103/ 3EF : ED A3 OUTI104/ 3F1 : (MACRO) DIHALT104/ 3F1 : F3 DI104/ 3F2 : 76 HALT104/ 3F3 : 00 NOP104/ 3F4 : 00 NOP104/ 3F5 : 00 NOP104/ 3F6 : 00 NOP105/ 3F7 : 21 FA 04 LD HL,EMPTY106/ 3FA : AF XOR A107/ 3FB : 01 BD 13 LD BC,BD_FDD_MASK108/ 3FE : ED 79 OUT (C),A109/ 400 :110/ 400 :111/ 400 :112/ 400 : 3E 3C LD A,0X3C113/ 402 : D3 FF OUT (0XFF),A114/ 404 : (MACRO) NODIHALT114/ 404 : REPT 6114/ 404 : NOPAS V1.42 Beta [Bld 146] - source file trdos.a80 - page 49 - 2/23/2020 18:58:45114/ 404 : ENDM114/ 404 : 00 NOP114/ 405 : 00 NOP114/ 406 : 00 NOP114/ 407 : 00 NOP114/ 408 : 00 NOP114/ 409 : 00 NOP115/ 40A : DB FF IN A,(0XFF)116/ 40C : (MACRO) NODIHALT116/ 40C : REPT 6116/ 40C : NOP116/ 40C : ENDM116/ 40C : 00 NOP116/ 40D : 00 NOP116/ 40E : 00 NOP116/ 40F : 00 NOP116/ 410 : 00 NOP116/ 411 : 00 NOP117/ 412 : D3 7F OUT (0X7F),A118/ 414 : (MACRO) NODIHALT118/ 414 : REPT 6118/ 414 : NOP118/ 414 : ENDM118/ 414 : 00 NOP118/ 415 : 00 NOP118/ 416 : 00 NOP118/ 417 : 00 NOP118/ 418 : 00 NOP118/ 419 : 00 NOP119/ 41A : DB 7F IN A,(0X7F)120/ 41C : (MACRO) NODIHALT120/ 41C : REPT 6120/ 41C : NOP120/ 41C : ENDM120/ 41C : 00 NOP120/ 41D : 00 NOP120/ 41E : 00 NOP120/ 41F : 00 NOP120/ 420 : 00 NOP120/ 421 : 00 NOP121/ 422 : D3 5F OUT (0X5F),A122/ 424 : (MACRO) NODIHALT122/ 424 : REPT 6122/ 424 : NOP122/ 424 : ENDM122/ 424 : 00 NOP122/ 425 : 00 NOP122/ 426 : 00 NOP122/ 427 : 00 NOP122/ 428 : 00 NOP122/ 429 : 00 NOP123/ 42A : DB 5F IN A,(0X5F)124/ 42C : (MACRO) NODIHALT124/ 42C : REPT 6124/ 42C : NOP124/ 42C : ENDM124/ 42C : 00 NOP124/ 42D : 00 NOP124/ 42E : 00 NOP124/ 42F : 00 NOPAS V1.42 Beta [Bld 146] - source file trdos.a80 - page 50 - 2/23/2020 18:58:45124/ 430 : 00 NOP124/ 431 : 00 NOP125/ 432 : D3 3F OUT (0X3F),A126/ 434 : (MACRO) NODIHALT126/ 434 : REPT 6126/ 434 : NOP126/ 434 : ENDM126/ 434 : 00 NOP126/ 435 : 00 NOP126/ 436 : 00 NOP126/ 437 : 00 NOP126/ 438 : 00 NOP126/ 439 : 00 NOP127/ 43A : DB 3F IN A,(0X3F)128/ 43C : (MACRO) NODIHALT128/ 43C : REPT 6128/ 43C : NOP128/ 43C : ENDM128/ 43C : 00 NOP128/ 43D : 00 NOP128/ 43E : 00 NOP128/ 43F : 00 NOP128/ 440 : 00 NOP128/ 441 : 00 NOP129/ 442 : D3 1F OUT (0X1F),A130/ 444 : (MACRO) NODIHALT130/ 444 : REPT 6130/ 444 : NOP130/ 444 : ENDM130/ 444 : 00 NOP130/ 445 : 00 NOP130/ 446 : 00 NOP130/ 447 : 00 NOP130/ 448 : 00 NOP130/ 449 : 00 NOP131/ 44A : DB 1F IN A,(0X1F)132/ 44C : (MACRO) NODIHALT132/ 44C : REPT 6132/ 44C : NOP132/ 44C : ENDM132/ 44C : 00 NOP132/ 44D : 00 NOP132/ 44E : 00 NOP132/ 44F : 00 NOP132/ 450 : 00 NOP132/ 451 : 00 NOP133/ 452 : 01 FF 00 LD BC,0XFF134/ 455 : ED 41 OUT (C),B135/ 457 : (MACRO) NODIHALT135/ 457 : REPT 6135/ 457 : NOP135/ 457 : ENDM135/ 457 : 00 NOP135/ 458 : 00 NOP135/ 459 : 00 NOP135/ 45A : 00 NOP135/ 45B : 00 NOP135/ 45C : 00 NOP136/ 45D : ED 78 IN A,(C)137/ 45F : (MACRO) NODIHALTAS V1.42 Beta [Bld 146] - source file trdos.a80 - page 51 - 2/23/2020 18:58:45137/ 45F : REPT 6137/ 45F : NOP137/ 45F : ENDM137/ 45F : 00 NOP137/ 460 : 00 NOP137/ 461 : 00 NOP137/ 462 : 00 NOP137/ 463 : 00 NOP137/ 464 : 00 NOP138/ 465 : 0E 7F LD C,0X7F139/ 467 : ED 79 OUT (C),A140/ 469 : (MACRO) NODIHALT140/ 469 : REPT 6140/ 469 : NOP140/ 469 : ENDM140/ 469 : 00 NOP140/ 46A : 00 NOP140/ 46B : 00 NOP140/ 46C : 00 NOP140/ 46D : 00 NOP140/ 46E : 00 NOP141/ 46F : 0E 5F LD C,0X5F142/ 471 : ED 78 IN A,(C)143/ 473 : (MACRO) NODIHALT143/ 473 : REPT 6143/ 473 : NOP143/ 473 : ENDM143/ 473 : 00 NOP143/ 474 : 00 NOP143/ 475 : 00 NOP143/ 476 : 00 NOP143/ 477 : 00 NOP143/ 478 : 00 NOP144/ 479 : 0E 3F LD C,0X3F145/ 47B : ED 79 OUT (C),A146/ 47D : (MACRO) NODIHALT146/ 47D : REPT 6146/ 47D : NOP146/ 47D : ENDM146/ 47D : 00 NOP146/ 47E : 00 NOP146/ 47F : 00 NOP146/ 480 : 00 NOP146/ 481 : 00 NOP146/ 482 : 00 NOP147/ 483 : ED 78 IN A,(C)148/ 485 : (MACRO) NODIHALT148/ 485 : REPT 6148/ 485 : NOP148/ 485 : ENDM148/ 485 : 00 NOP148/ 486 : 00 NOP148/ 487 : 00 NOP148/ 488 : 00 NOP148/ 489 : 00 NOP148/ 48A : 00 NOP149/ 48B : 0E 1F LD C,0X1F150/ 48D : ED 79 OUT (C),A151/ 48F : (MACRO) NODIHALT151/ 48F : REPT 6AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 52 - 2/23/2020 18:58:45151/ 48F : NOP151/ 48F : ENDM151/ 48F : 00 NOP151/ 490 : 00 NOP151/ 491 : 00 NOP151/ 492 : 00 NOP151/ 493 : 00 NOP151/ 494 : 00 NOP152/ 495 : ED 78 IN A,(C)153/ 497 : (MACRO) NODIHALT153/ 497 : REPT 6153/ 497 : NOP153/ 497 : ENDM153/ 497 : 00 NOP153/ 498 : 00 NOP153/ 499 : 00 NOP153/ 49A : 00 NOP153/ 49B : 00 NOP153/ 49C : 00 NOP154/ 49D : 0E FF LD C,0XFF155/ 49F : ED A2 INI156/ 4A1 : (MACRO) NODIHALT156/ 4A1 : REPT 6156/ 4A1 : NOP156/ 4A1 : ENDM156/ 4A1 : 00 NOP156/ 4A2 : 00 NOP156/ 4A3 : 00 NOP156/ 4A4 : 00 NOP156/ 4A5 : 00 NOP156/ 4A6 : 00 NOP157/ 4A7 : ED A3 OUTI158/ 4A9 : (MACRO) NODIHALT158/ 4A9 : REPT 6158/ 4A9 : NOP158/ 4A9 : ENDM158/ 4A9 : 00 NOP158/ 4AA : 00 NOP158/ 4AB : 00 NOP158/ 4AC : 00 NOP158/ 4AD : 00 NOP158/ 4AE : 00 NOP159/ 4AF : 0E 7F LD C,0X7F160/ 4B1 : ED A2 INI161/ 4B3 : (MACRO) NODIHALT161/ 4B3 : REPT 6161/ 4B3 : NOP161/ 4B3 : ENDM161/ 4B3 : 00 NOP161/ 4B4 : 00 NOP161/ 4B5 : 00 NOP161/ 4B6 : 00 NOP161/ 4B7 : 00 NOP161/ 4B8 : 00 NOP162/ 4B9 : ED A3 OUTI163/ 4BB : (MACRO) NODIHALT163/ 4BB : REPT 6163/ 4BB : NOP163/ 4BB : ENDM163/ 4BB : 00 NOPAS V1.42 Beta [Bld 146] - source file trdos.a80 - page 53 - 2/23/2020 18:58:45163/ 4BC : 00 NOP163/ 4BD : 00 NOP163/ 4BE : 00 NOP163/ 4BF : 00 NOP163/ 4C0 : 00 NOP164/ 4C1 : 0E 5F LD C,0X5F165/ 4C3 : ED A2 INI166/ 4C5 : (MACRO) NODIHALT166/ 4C5 : REPT 6166/ 4C5 : NOP166/ 4C5 : ENDM166/ 4C5 : 00 NOP166/ 4C6 : 00 NOP166/ 4C7 : 00 NOP166/ 4C8 : 00 NOP166/ 4C9 : 00 NOP166/ 4CA : 00 NOP167/ 4CB : ED A3 OUTI168/ 4CD : (MACRO) NODIHALT168/ 4CD : REPT 6168/ 4CD : NOP168/ 4CD : ENDM168/ 4CD : 00 NOP168/ 4CE : 00 NOP168/ 4CF : 00 NOP168/ 4D0 : 00 NOP168/ 4D1 : 00 NOP168/ 4D2 : 00 NOP169/ 4D3 : 0E 3F LD C,0X3F170/ 4D5 : ED A2 INI171/ 4D7 : (MACRO) NODIHALT171/ 4D7 : REPT 6171/ 4D7 : NOP171/ 4D7 : ENDM171/ 4D7 : 00 NOP171/ 4D8 : 00 NOP171/ 4D9 : 00 NOP171/ 4DA : 00 NOP171/ 4DB : 00 NOP171/ 4DC : 00 NOP172/ 4DD : ED A3 OUTI173/ 4DF : (MACRO) NODIHALT173/ 4DF : REPT 6173/ 4DF : NOP173/ 4DF : ENDM173/ 4DF : 00 NOP173/ 4E0 : 00 NOP173/ 4E1 : 00 NOP173/ 4E2 : 00 NOP173/ 4E3 : 00 NOP173/ 4E4 : 00 NOP174/ 4E5 : 0E 1F LD C,0X1F175/ 4E7 : ED A2 INI176/ 4E9 : (MACRO) NODIHALT176/ 4E9 : REPT 6176/ 4E9 : NOP176/ 4E9 : ENDM176/ 4E9 : 00 NOP176/ 4EA : 00 NOP176/ 4EB : 00 NOPAS V1.42 Beta [Bld 146] - source file trdos.a80 - page 54 - 2/23/2020 18:58:45176/ 4EC : 00 NOP176/ 4ED : 00 NOP176/ 4EE : 00 NOP177/ 4EF : ED A3 OUTI178/ 4F1 : (MACRO) NODIHALT178/ 4F1 : REPT 6178/ 4F1 : NOP178/ 4F1 : ENDM178/ 4F1 : 00 NOP178/ 4F2 : 00 NOP178/ 4F3 : 00 NOP178/ 4F4 : 00 NOP178/ 4F5 : 00 NOP178/ 4F6 : 00 NOP179/ 4F7 :180/ 4F7 : C3 00 00 JP 0181/ 4FA :182/ 4FA : EMPTY183/ 4FA :184/ 4FA : (MACRO) DUPL 0X3D2F-$184/ 4FA : DUPL:184/ 4FA : =EH $$N EQU (0X3D2F-$) / 1024184/ 4FA : =35H $$M EQU (0X3D2F-$) # 1024184/ 4FA : REPT $$N184/ 4FA : DB 1024 DUP()184/ 4FA : ENDM184/ 4FA : 00 00 00 00 00 00 DB 1024 DUP()00 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 55 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 56 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 57 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00184/ 8FA : 00 00 00 00 00 00 DB 1024 DUP()00 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 58 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 59 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 60 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00184/ CFA : 00 00 00 00 00 00 DB 1024 DUP()00 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 61 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 62 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00184/ 10FA : 00 00 00 00 00 00 DB 1024 DUP()AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 63 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 64 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 65 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00184/ 14FA : 00 00 00 00 00 00 DB 1024 DUP()00 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 66 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 67 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 68 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00184/ 18FA : 00 00 00 00 00 00 DB 1024 DUP()00 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 69 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 70 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 71 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00184/ 1CFA : 00 00 00 00 00 00 DB 1024 DUP()00 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 72 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 73 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 74 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00184/ 20FA : 00 00 00 00 00 00 DB 1024 DUP()00 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 75 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 76 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 77 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00184/ 24FA : 00 00 00 00 00 00 DB 1024 DUP()00 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 78 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 79 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 80 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00184/ 28FA : 00 00 00 00 00 00 DB 1024 DUP()00 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 81 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 82 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00184/ 2CFA : 00 00 00 00 00 00 DB 1024 DUP()00 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 83 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 84 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 85 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00184/ 30FA : 00 00 00 00 00 00 DB 1024 DUP()00 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 86 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 87 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 88 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00184/ 34FA : 00 00 00 00 00 00 DB 1024 DUP()00 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 89 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 90 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 91 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00184/ 38FA : 00 00 00 00 00 00 DB 1024 DUP()00 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 92 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 93 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 94 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00184/ 3CFA : =>TRUE IF $$M <> 0184/ 3CFA : =>BLANK IFB184/ 3CFA : 00 00 00 00 00 00 DB $$M DUP(0)00 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00184/ 3D2F : =>FALSE ELSE184/ 3D2F : DB $$M DUP()184/ 3D2F : [184] ENDIF184/ 3D2F : [184] ENDIF185/ 3D2F : 00 NOP186/ 3D30 : C9 RET187/ 3D31 :188/ 3D31 : (MACRO) DUPL 0X4000-$188/ 3D31 : DUPL:188/ 3D31 : =0H $$N EQU (0X4000-$) / 1024188/ 3D31 : =2CFH $$M EQU (0X4000-$) # 1024188/ 3D31 : REPT $$N188/ 3D31 : DB 1024 DUP()188/ 3D31 : ENDM188/ 3D31 : =>TRUE IF $$M <> 0188/ 3D31 : =>BLANK IFB188/ 3D31 : 00 00 00 00 00 00 DB $$M DUP(0)00 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 95 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 00AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 96 - 2/23/2020 18:58:4500 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00 0000 00 00 00 00188/ 4000 : =>FALSE ELSE188/ 4000 : DB $$M DUP()188/ 4000 : [188] ENDIF188/ 4000 : [188] ENDIF189/ 4000 :AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 97 - 2/23/2020 18:58:45symbol table (* = unused):------------------------*ADDR_RET : 3CA7 - | *ADDR_RET_Size : 2 - |*ADRBRK_EMUTAP : 569 - | ADRTEKV : BDF4 - |*ADR_PERFECT : 36 - | ADR_RST8END : 3CE8 - |*ADR_SEL_ROM : 14 - | *ALATTR : 21C0 - |*ALSYM : 1C0 - | *ARATTR : 1C1 - |*ARCHITECTURE : i386-unknown-win32 - | *ARSYM : 21C0 - |*BAUD110 : 417 - | *BAUD115200 : 1 - |*BAUD1200 : 60 - | *BAUD150 : 300 - |*BAUD19200 : 6 - | *BAUD2400 : 30 - |*BAUD300 : 180 - | *BAUD38400 : 3 - |*BAUD4800 : 18 - | *BAUD57600 : 2 - |*BAUD600 : C0 - | *BAUD9600 : C - |*BB_CPU1 : 3CBF - | *BB_CPU1_Size : 1 - |*BB_CPU2 : 3CC1 - | *BB_CPU2_Size : 1 - |BD_FDD_MASK : 13BD - | *BIGENDIAN : 0 - |*BLACK : 0 - | *BLUE : 1 - |*BOOTDEVICE : 3 - | *BP_CPU1 : 3CC0 - |*BP_CPU1_Size : 1 - | *BP_CPU2 : 3CC2 - |*BP_CPU2_Size : 1 - | *BRANCHEXT : 0 - |*BREAK_HIGH_RD : 11BE - | *BREAK_HIGH_WR : 1BD - |*BREAK_LOW_RD : 10BE - | *BREAK_LOW_WR : BD - |*BR_INK : 40 - | *BR_PAPER : 80 - |*BUFF_SECT : 3CA5 - | *BUFF_SECT_Size : 2 - |BUF_256 : B300 - | BUF_512 : BE00 - |BUF_ALLVOL : 0 - | BUF_DIRCEP : 3400 - |BUF_LEVELDIR : B000 - | BUF_PATH : B200 - |BUF_PATHMOUNT : 3000 - | BUF_TABLVOL : BD00 - |BUF_TDIRCLS : B400 - | BUF_TEKVOL : BC00 - |*BUF_TEMPSEC : 3500 - | *BUF_WINPATH : AC00 - |*BUILD_DEBUG : 0 - | BYTE : 1 - |*B_ACCESSHDDM : 5 - | *B_ACCESSHDDS : 4 - |*B_ACCESSSDG : 6 - | *B_ACCESSZCSD : 7 - |*B_AUTOBOOT : 7 - | *B_AUTOMOUNT : 5 - |*B_AUTO_TAPE : 2 - | *B_BREAK_BF : 4 - |*B_CLOCK_VIEW : 4 - | *B_DBG_ACTIV : 7 - |*B_EMUL_TAPE : 6 - | *B_EMUVG_BF : 5 - |*B_FLASH_BF : 1 - | *B_FONT_BF : 2 - |*B_H : 1 - | *B_KILL_REZIDENT : 7 - |*B_L : 20 - | *B_MOUSE_L_KEY : 0 - |*B_MOUSE_M_KEY : 2 - | *B_MOUSE_R_KEY : 1 - |*B_NMI_BF : 3 - | *B_PENT_CMOS : 7 - |*B_PENT_TURBO : 4 - | *B_PRINTER_AY : 5 - |*B_RELOAD_FONT : 4 - | *B_REZIDENT : 2 - |*B_RST8_BF : 6 - | *B_SD_NGS_ONOFF : 6 - |*B_SHADOW_BF : 0 - | *B_SOUNDKEYS : 3 - |*B_STEP_DBG : 5 - | *B_TRACE_DBG : 6 - |*B_TURBO14 : 7 - | *B_TURBO357 : 7 - |*B_TYPE_FONT : 3 - | *CASESENSITIVE : 1 - |*CMOSD_RD_WR : BEF7 - | *CMOSD_SET_ADR : DEF7 - |*CMOS_BYTE_00 : ED - | *CMOS_BYTE_01 : EC - |*CMOS_BYTE_02 : E9 - | *CMOS_BYTE_03 : E8 - |*CMOS_RD_WR : BFF7 - | *CMOS_SET_ADR : DFF7 - |*CONF4CUSTOM : 9C - | *CONF4GLUK : 94 - |*CONF4PROF : 90 - | *CONF_128 : 7FFD - |*CONSTPI : 3.141592653589793 - | *CONTINUE_MAGIC : 34 - |*CONT_RST8 : 2C - | *COPY_VIRT_BITS : 3CCA - |*COPY_VIRT_BITS_Size : 1 - | *CPU0 : 0 - |AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 98 - 2/23/2020 18:58:45*CPU1 : 4000 - | *CPU2 : 8000 - |CPU3 : C000 - | *CRCCMOSHIGH : EF - |*CRCCMOSLOW : EE - | *CRC_DRVS : BDFE - |*CYAN : 5 - | *DATA_VERS : A857 - |DATE : 2/23/2020 - | DDATE : 17 - |*DEBUG_ONOFF : 13 - | DEVICES : BDE0 - |*DOS_STEK : 3C9C - | *DOS_STEK_Size : 2 - |*DWORD : 4 - | *EI_RET : 3E - |EMPTY : 4FA C | *END_VARS : 0 C |*EXIT_PORT : BE - | *FALSE : 0 - |*FAT_DATE : 5057 - | *FAT_TIME : 9756 - |*FDD_EMU_PORT : 13BD - | *FDI_BLOCK_SMESH : 41FF - |*FDI_BYTE_SMESH : 41FE - | *FDI_IMAGE1SECT : 4400 - |*FDI_PAGE_START : 40FF - | *FDI_TABLE_CYL : 4000 - |*FLAGS_DRV : BDF8 - | *FLAG_RW_BREAK : 3CCF - |*FLAG_RW_BREAK_Size : 1 - | *FULLPMMU : 1 - |GO_DEV : BDF0 - | *GREEN : 4 - |*G_H : 10 - | *G_L : 80 - |*HAS64 : 1 - | *HASDSP : 0 - |*HASFPU : 0 - | *HASPMMU : 0 - |*HDD_TIMEOUT : EA - | HHOUR : 12 - |*ICALL2PAGE : 8000 - | *INEXTMODE : 0 - |INITVAR : 3CE2 - | *INLWORDMODE : 0 - |*INMAXMODE : 0 - | *INSRCMODE : 0 - |*INSUPMODE : 0 - | *IREG_D : 3C99 - |*IREG_D_Size : 1 - | *IREG_E : 3C98 - |*IREG_E_Size : 1 - | *IREG_H : 3C9B - |*IREG_H_Size : 1 - | *IREG_L : 3C9A - |*IREG_L_Size : 1 - | *JUMP : 3 - |JUMP_SIZE : 3 - | KOLDVOL : BDF2 - |*KOL_MODES : 4 - | *LATTR : 31C0 - |*LISTON : 1 - | *LSYM : 1C0 - |M900 : 2EE - | M903 : 35 - |M904 : 2CF - | *MACEXP : 7 - |*MAGENTA : 3 - | *MASK_MNT_DRV : 3CC7 - |*MASK_MNT_DRV_Size : 1 - | *MASK_WRK_DRV : 3CC6 - |*MASK_WRK_DRV_Size : 1 - | *MEMORY_128 : 30 - |*MEMORY_48 : 20 - | *MEMORY_ALL : 10 - |*MINT_STACK : 3CC3 - | *MINT_STACK_Size : 2 - |*MKOL_MODES : 3 - | MMINUTE : 3A - |MMOUNTH : 2 - | *MOMCPU : 80DC - |*MOMCPUNAME : Z80UNDOC - | MOUNT_CLS : 1000 - |MOUNT_DRIVES : B100 - | *MOUSE_KEYS : FADF - |*MOUSE_X : FBDF - | *MOUSE_Y : FFDF - |*M_ACCESSHDDM : 20 - | *M_ACCESSHDDS : 10 - |*M_ACCESSSDG : 40 - | *M_ACCESSZCSD : 80 - |*M_AUTOBOOT : 80 - | *M_AUTOMOUNT : 20 - |*M_AUTO_TAPE : 4 - | *M_BREAK_BF : 10 - |*M_CLOCK_VIEW : 10 - | *M_DBG_ACTIV : 80 - |*M_EMUL_TAPE : 40 - | *M_EMUVG_BF : 20 - |*M_FLASH_BF : 2 - | *M_FONT_BF : 4 - |*M_KILL_REZIDENT : 80 - | *M_MOUSE_L_KEY : 1 - |*M_MOUSE_M_KEY : 4 - | *M_MOUSE_R_KEY : 2 - |*M_NMI_BF : 8 - | *M_PENT_CMOS : 80 - |*M_PENT_TURBO : 10 - | *M_PRINTER_AY : 20 - |*M_RELOAD_FONT : 10 - | *M_REZIDENT : 4 - |*M_RST8_BF : 40 - | *M_SD_NGS_ONOFF : 40 - |*M_SHADOW_BF : 1 - | *M_SOUNDKEYS : 8 - |*M_STEP_DBG : 20 - | *M_TRACE_DBG : 40 - |*M_TURBO14 : 80 - | *M_TURBO357 : 80 - |AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 99 - 2/23/2020 18:58:45*M_TYPE_FONT : 8 - | N900 : 0 - |N903 : E - | N904 : 0 - |*NESTMAX : 100 - | NUM_APPMULTI : 2 - |NUM_EGA : 0 - | *NUM_LINE : 13BE - |NUM_TXTATM : 6 - | NUM_TXTSCR : 7 - |NUM_ZXSCR : 3 - | OFFSET_BUFSYM : 800 - |OFFSET_FNTSAVE : 0 - | OFFSET_SCRSAVE : 1000 - |*OFFSET_USBDRV : 2B00 - | *OLD_PORT_BF : 3CCB - |*OLD_PORT_BF_Size : 1 - | *PACKING : 0 - |*PADDING : 1 - | *PENT_CONF : EFF7 - |*PEVO_CONF : BF - | *PORT_3F : 3CA0 - |*PORT_3F_Size : 1 - | *PORT_5F : 3CA1 - |*PORT_5F_Size : 1 - | *PORT_7F : 3CA2 - |*PORT_7F_Size : 1 - | *QWORD : 8 - |*RAM_ADDSTS : 7 - | *RAM_BASIC : 3 - |*RAM_DATARAMD : B - | *RAM_EVODOS : 1 - |*RAM_FATVARS : 2 - | *RAM_FLASHER : 40 - |*RAM_MOUNTER : 5 - | *RAM_PROFROM : 4 - |*RAM_RAMDISK : A - | *RAM_SCR_FONT : 8 - |*RAM_STS : 6 - | *RAM_TAPE : 60 - |*RAM_TEMP : 9 - | *RAM_TEMP2 : 3F - |*RATTR : 21C1 - | *RDWR_MODE : 3CCD - |*RDWR_MODE_Size : 1 - | *RDWR_PAGE : 3CCE - |*RDWR_PAGE_Size : 1 - | *RD_0WINA0 : BE - |*RD_0WINA1 : 1BE - | *RD_0WINA2 : 2BE - |*RD_0WINA3 : 3BE - | *RD_1F : 3C9F - |*RD_1F_Size : 1 - | *RD_1WINA0 : 4BE - |*RD_1WINA1 : 5BE - | *RD_1WINA2 : 6BE - |*RD_1WINA3 : 7BE - | *RD_77 : CBE - |*RD_7FFD : ABE - | *RD_DOS7FFD : 9BE - |*RD_EFF7 : BBE - | *RD_FF : 3CA4 - |*RD_FF_Size : 1 - | *RD_PALITRA : DBE - |*RD_RAMNROM : 8BE - | *REAL_DRIVE : 3CC9 - |*REAL_DRIVE_Size : 1 - | *RED : 2 - |*REG_A : 3CAE - | *REG_A_Size : 1 - |*REG_B : 3CAC - | *REG_B_Size : 1 - |*REG_C : 3CAB - | *REG_C_Size : 1 - |*REG_F : 3CAD - | *REG_F_Size : 1 - |*REG_H : 3CB0 - | *REG_H_Size : 1 - |*REG_I : 3CAA - | *REG_IF : 3CA9 - |*REG_IF_Size : 1 - | *REG_I_Size : 1 - |*REG_L : 3CAF - | *REG_L_Size : 1 - |*RELAXED : 1 - | *RESET2CUSTOM : 3 - |*RESET2EVOSERV : 0 - | *RESET2GLUK : 1 - |*RESET2PROFROM : 2 - | *RESTART : 7 C |*REZIDENT : 0 C | *ROM_ADD_BAS48 : B - |*ROM_ADD_DOS : A - | *ROM_ATMCPM : 1B - |*ROM_BAS128 : 1 - | *ROM_BAS128_STD : 19 - |*ROM_BAS48 : 3 - | *ROM_BAS48_128 : 1A - |*ROM_BAS48_STD : 18 - | *ROM_DOS : 2 - |*ROM_ERS : 0 - | *ROM_MAINMENU : 5 - |*ROM_RST80 : 6 - | *ROM_RST81 : 7 - |*ROM_RST82 : 8 - | *ROM_RST83 : 9 - |*RS232_DIV_H : F9EF - | *RS232_DIV_L : F8EF - |*RS232_IO : F8EF - | *RS232_IRQ_ENA : F9EF - |*RS232_IRQ_ID : FAEF - | *RS232_LINE_CTRL : FBEF - |*RS232_LINE_STAT : FDEF - | *RS232_MDM_CTRL : FCEF - |*RS232_MDM_STAT : FEEF - | *RS232_WORK_REG : FFEF - |*RSYM : 11C0 - | *R_H : 2 - |*R_L : 40 - | *SAVED_RAM : 3CD2 - |AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 100 - 2/23/2020 18:58:45*SAVED_RAM_Size : 10 - | SAVE_TEK_VOL : BDF6 - |*SECTOR_SIZE : 3CCC - | *SECTOR_SIZE_Size : 1 - |SETDVOL : BDF3 - | *SET_VIDEOMODE : 8 - |SIZEDATE : 9 - | SIZETIME : 8 - |SSECUND : 2D - | *START_STS : C000 - |START_TEST : 300 C | TEK_BUFPATH : 2000 - |*TEK_ROMPAGE : 3CC5 - | *TEK_ROMPAGE_Size : 1 - |TEK_TYPE : BDF7 - | *TEMP_SP : 3CD0 - |*TEMP_SP_Size : 2 - | TIME : 18:58:45 - |*TRUE : 1 - | *TURBO_14 : C0 - |*TURBO_3 : 40 - | *TURBO_7 : 80 - |*UNPACK : 80 - | *UNP_DOS_FE : 40 - |*VERSION : 142F - | *VIRT_DRIVE : 3CC8 - |*VIRT_DRIVE_Size : 1 - | *VIRT_REAL_DRIVE : EB - |*VMODE6_0C : FE - | *VMODE6_0M : FA - |*VMODE6_1C : FC - | *VMODE6_1M : F8 - |*VMODE7_0 : F7 - | *VMODE7_1 : F5 - |*V_APPMULTI : A2 - | *V_EGA : A0 - |*V_TXT1PAGE : A7 - | *V_TXTATM : A6 - |*V_ZXSCR : A3 - | *WHITE : 7 - |*WIN_A0 : 3FF7 - | *WIN_A1 : 7FF7 - |*WIN_A2 : BFF7 - | *WIN_A3 : FFF7 - |*WIN_P0 : 37F7 - | *WIN_P1 : 77F7 - |*WIN_P2 : B7F7 - | *WIN_P3 : F7F7 - |*WIN_R0 : 3BF7 - | *WIN_R1 : 7BF7 - |*WIN_R2 : BBF7 - | *WIN_R3 : FBF7 - |WORD : 2 - | *WR_0WINA0 : 3CBE - |*WR_0WINA0_Size : 1 - | *WR_0WINA1 : 3CBD - |*WR_0WINA1_Size : 1 - | *WR_0WINA2 : 3CBC - |*WR_0WINA2_Size : 1 - | *WR_0WINA3 : 3CBB - |*WR_0WINA3_Size : 1 - | *WR_1F : 3C9E - |*WR_1F_Size : 1 - | *WR_1WINA0 : 3CBA - |*WR_1WINA0_Size : 1 - | *WR_1WINA1 : 3CB9 - |*WR_1WINA1_Size : 1 - | *WR_1WINA2 : 3CB8 - |*WR_1WINA2_Size : 1 - | *WR_1WINA3 : 3CB7 - |*WR_1WINA3_Size : 1 - | *WR_77 : 3CB2 - |*WR_77_Size : 1 - | *WR_7FFD : 3CB4 - |*WR_7FFD_Size : 1 - | *WR_BF : 3CB1 - |*WR_BF_Size : 1 - | *WR_DOS7FFD : 3CB5 - |*WR_DOS7FFD_Size : 1 - | *WR_EFF7 : 3CB3 - |*WR_EFF7_Size : 1 - | *WR_FF : 3CA3 - |*WR_FF_Size : 1 - | *WR_RAMNROM : 3CB6 - |*WR_RAMNROM_Size : 1 - | *YELLOW : 6 - |YYEAR : 14 - | *ZXSCR_0 : FA - |*ZXSCR_1 : F8 - | *ZXSTD_CPU1 : FA - |*ZXSTD_CPU2 : FD - | *ZX_ROM : 10 - |*ZX_SCREEN : 8 - | *_128K : 2 - |*_1MB : 0 - | *_48K : 1 - |*_ADR_HOTKEY_H : 13 - | *_ADR_HOTKEY_H_Size : 1 - |*_ADR_HOTKEY_L : 12 - | *_ADR_HOTKEY_L_Size : 1 - |*_ADR_MOUSE_H : 11 - | *_ADR_MOUSE_H_Size : 1 - |*_ADR_MOUSE_L : 10 - | *_ADR_MOUSE_L_Size : 1 - |*_ADR_PRG_H : F - | *_ADR_PRG_H_Size : 1 - |*_ADR_PRG_L : E - | *_ADR_PRG_L_Size : 1 - |*_ADR_TXT_H : D - | *_ADR_TXT_H_Size : 1 - |*_ADR_TXT_L : C - | *_ADR_TXT_L_Size : 1 - |*_ALLOC_PAGE : 12A - | *_ALLOC_PAGE_Size : 3 - |*_AY_PRN_A_ : 41 - | *_AY_PRN_A__Size : 1 - |*_AY_PRN_INIT : 40 - | *_AY_PRN_INIT_Size : 1 - |*_AY_PRN_SCR : 43 - | *_AY_PRN_SCR_Size : 1 - |AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 101 - 2/23/2020 18:58:45*_AY_PRN_TOKEN : 42 - | *_AY_PRN_TOKEN_Size : 1 - |*_BIOS : 4F - | *_BIOS_JUMPS : 100 - |*_BIOS_Size : 1 - | *_BMP : 8 - |*_BMP_Size : 1 - | *_CLEAR_CMOS : 3 - |*_CLEAR_CMOS_Size : 1 - | *_CLOSEMOUNT : 4 - |*_CLOSEMOUNT_Size : 1 - | *_CMOS_DAY : 6 - |*_CMOS_DAY_MONTH : 7 - | *_CMOS_HOUR : 4 - |*_CMOS_HOUR_AL : 5 - | *_CMOS_MINUTE : 2 - |*_CMOS_MINUTE_AL : 3 - | *_CMOS_MONTH : 8 - |*_CMOS_RW : 55 - | *_CMOS_RW_Size : 1 - |*_CMOS_SECOND : 0 - | *_CMOS_SECOND_AL : 1 - |*_CMOS_YEAR : 9 - | *_CMP_DRIVE : 7 - |*_CMP_DRIVE_Size : 1 - | *_COLOR_CUR : 5 - |*_COLOR_CUR_Size : 1 - | *_COLOR_WIN : 4 - |*_COLOR_WIN_Size : 1 - | *_COMHDDN : 7 - |*_COMHDDN_Size : 1 - | *_COM_DEV : 50 - |*_COM_DEV_Size : 1 - | *_COM_FAT : 51 - |*_COM_FAT_Size : 1 - | *_CONTROL_SD : 6 - |*_CONTROL_SD_Size : 1 - | *_DEVFIND : 0 - |*_DEVFIND_Size : 1 - | *_DEV_INIT : 0 - |*_DEV_INIT_Size : 1 - | *_DEV_READ : 2 - |*_DEV_READID : 4 - | *_DEV_READID_Size : 1 - |*_DEV_READ_Size : 1 - | *_DEV_STATUS : 1 - |*_DEV_STATUS_Size : 1 - | *_DEV_WRITE : 3 - |*_DEV_WRITE_Size : 1 - | *_DIVIDE16 : 0 - |*_DIVIDE16_Size : 1 - | *_DIVIDE32 : 2 - |*_DIVIDE32_Size : 1 - | *_ENTER_DIR : 2 - |*_ENTER_DIR_Size : 1 - | *_FAT12 : 1 - |*_FAT12_Size : 1 - | *_FAT16 : 2 - |*_FAT16_Size : 1 - | *_FAT32 : 3 - |*_FAT32_Size : 1 - | *_FDD : 0 - |*_FDI : 3 - | *_FDI_Size : 1 - |*_FIND_FILEITEM : 6 - | *_FIND_FILEITEM_Size : 1 - |*_FIND_MOUNTED : 2 - | *_FIND_MOUNTED_Size : 1 - |*_FIND_NAME : 5 - | *_FIND_NAME_Size : 1 - |*_FLAGS : 6 - | *_FLAGS_Size : 1 - |*_FNT : 7 - | *_FNT_Size : 1 - |*_FREE_PAGE : 12D - | *_FREE_PAGE_Size : 3 - |*_FREINIT_VOL : 8 - | *_FREINIT_VOL_Size : 1 - |*_GET_FNDVOLUME : 3 - | *_GET_FNDVOLUME_Size : 1 - |*_GET_LONGNAME : 4 - | *_GET_LONGNAME_Size : 1 - |*_GET_MOUNTED : 3 - | *_GET_MOUNTED_Size : 1 - |*_GET_PATH : 3 - | *_GET_PATH_Size : 1 - |*_GET_TABLE_MEM : 127 - | *_GET_TABLE_MEM_Size : 3 - |*_GET_VIRT_BITS : 8 - | *_GET_VIRT_BITS_Size : 1 - |*_HDD : 1 - | *_HEX1DECTXT : 6 - |*_HEX1DECTXT_Size : 1 - | *_HEX2DECTXT : 5 - |*_HEX2DECTXT_Size : 1 - | *_HEX4DECTXT : 4 - |*_HEX4DECTXT_Size : 1 - | *_HOB : 6 - |*_HOB_Size : 1 - | *_H_SIZE : 3 - |*_H_SIZE_Size : 1 - | *_INIT_CMOS : 0 - |*_INIT_CMOS_Size : 1 - | *_INIT_FATVARS : 0 - |*_INIT_FATVARS_Size : 1 - | *_INIT_KEYB_PS2 : 11B - |*_INIT_KEYB_PS2_Size : 3 - | *_INIT_TABLE_MEM : 124 - |*_INIT_TABLE_MEM_Size : 3 - | *_INIT_TEKDIR : A - |*_INIT_TEKDIR_Size : 1 - | *_INST_FATBOOT : 54 - |*_INST_FATBOOT_Size : 1 - | *_KOL_VOL : 2 - |*_KOL_VOL_Size : 1 - | *_LOADIMAGE : 5 - |*_LOADIMAGE_Size : 1 - | *_MATH : 4C - |*_MATH_Size : 1 - | *_MEM_MODE_128 : 80 - |AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 102 - 2/23/2020 18:58:45*_MEM_MODE_48 : 40 - | *_MEM_MODE_PENT : C0 - |*_MOUNTER : 53 - | *_MOUNTER_Size : 1 - |*_MOUNT_RAMDISK : 9 - | *_MOUNT_RAMDISK_Size : 1 - |*_MOUSE_WHEEL : F0 - | *_MULTIPLY16 : 1 - |*_MULTIPLY16_Size : 1 - | *_MULTIPLY32 : 3 - |*_MULTIPLY32_Size : 1 - | *_NEMO_RD_ID : 100 - |*_NEMO_RD_ID_Size : 3 - | *_NEMO_RD_SEC : 103 - |*_NEMO_RD_SEC_Size : 3 - | *_NEMO_WR_SEC : 106 - |*_NEMO_WR_SEC_Size : 3 - | *_NGSSD_RD_ID : 112 - |*_NGSSD_RD_ID_Size : 3 - | *_NGSSD_RD_SEC : 115 - |*_NGSSD_RD_SEC_Size : 3 - | *_NGSSD_WR_SEC : 118 - |*_NGSSD_WR_SEC_Size : 3 - | *_NO_INIT : 0 - |*_NO_INIT_Size : 1 - | *_NUM_KOL_H : B - |*_NUM_KOL_H_Size : 1 - | *_NUM_KOL_L : A - |*_NUM_KOL_L_Size : 1 - | *_NUM_PKT : 7 - |*_NUM_PKT_Size : 1 - | *_OPEN_FILE : 8 - |*_OPEN_FILE_Size : 1 - | *_OPEN_MOUNT : 0 - |*_OPEN_MOUNT_Size : 1 - | *_POSTF00 : 0 - |*_POSTF00_Size : 1 - | *_POSTF01 : 1 - |*_POSTF01_Size : 1 - | *_POSTF02 : 2 - |*_POSTF02_Size : 1 - | *_POSTF03 : 3 - |*_POSTF03_Size : 1 - | *_POSTF04 : 4 - |*_POSTF04_Size : 1 - | *_POSTF05 : 5 - |*_POSTF05_Size : 1 - | *_POSTF06 : 6 - |*_POSTF06_Size : 1 - | *_POSTF07 : 7 - |*_POSTF07_Size : 1 - | *_POS_FILES : B - |*_POS_FILES_Size : 1 - | *_PRINT_A : 48 - |*_PRINT_A_Size : 1 - | *_PRINT_MESSAGE : 47 - |*_PRINT_MESSAGE_Size : 1 - | *_RDWR_MOUNT : 1 - |*_RDWR_MOUNT_Size : 1 - | *_READ_CMOS : 1 - |*_READ_CMOS_Size : 1 - | *_READ_DIR : 1 - |*_READ_DIR_Size : 1 - | *_READ_FILE : 9 - |*_READ_FILE_Size : 1 - | *_READ_KEYB_PS2 : 11E - |*_READ_KEYB_PS2_Size : 3 - | *_READ_STAT_PS2 : 121 - |*_READ_STAT_PS2_Size : 3 - | *_REAL_DRIVE : C - |*_REST_NAMELOAD : 6 - | *_REST_NAMELOAD_Size : 1 - |*_ROM : 9 - | *_ROM_Size : 1 - |*_SCL : 2 - | *_SCL_Size : 1 - |*_SCROLL_DOWN : 4A - | *_SCROLL_DOWN_Size : 1 - |*_SCROLL_UP : 49 - | *_SCROLL_UP_Size : 1 - |*_SD : 2 - | *_SD_NONE : 80 - |*_SETUP_FONT : 57 - | *_SETUP_FONT_Size : 1 - |*_SETUP_PAL : 56 - | *_SETUP_PAL_Size : 1 - |*_SET_DEVICE : 5 - | *_SET_DEVICE_Size : 1 - |*_SET_MASK_EXT : 7 - | *_SET_MASK_EXT_Size : 1 - |*_SET_MODE : 4B - | *_SET_MODE_Size : 1 - |*_SET_VOL : 1 - | *_SET_VOL_Size : 1 - |*_SORT_FINDFILES : 52 - | *_SORT_FINDFILES_Size : 1 - |*_SPG : 5 - | *_SPG_Size : 1 - |*_TAP : 4 - | *_TAPE_EMUL : 45 - |*_TAPE_EMUL_Size : 1 - | *_TAPE_INIT : 44 - |*_TAPE_INIT_Size : 1 - | *_TAP_Size : 1 - |*_TEK_PKT_H : 9 - | *_TEK_PKT_H_Size : 1 - |*_TEK_PKT_L : 8 - | *_TEK_PKT_L_Size : 1 - |*_TO_DRV : 4 - | *_TO_DRV_Size : 1 - |*_TRD : 1 - | *_TRDOS : 4 - |*_TRDOS_Size : 1 - | *_TRD_Size : 1 - |*_TURBO_HIGH : 20 - | *_TURBO_LOW : 10 - |*_TURBO_MAX : 30 - | *_TXTSCR_MODE : 2 - |*_UNKNOWN : 5 - | *_UNKNOWN_Size : 1 - |AS V1.42 Beta [Bld 146] - source file trdos.a80 - page 103 - 2/23/2020 18:58:45*_VERSION : 4D - | *_VERSION_Size : 1 - |*_VIRT_DRIVE : 3 - | *_V_SIZE : 2 - |*_V_SIZE_Size : 1 - | *_WINW : 46 - |*_WINW_Size : 1 - | *_WRITE_CMOS : 2 - |*_WRITE_CMOS_Size : 1 - | *_X_COORD : 0 - |*_X_COORD_Size : 1 - | *_Y_COORD : 1 - |*_Y_COORD_Size : 1 - | *_ZCSD_RD_ID : 109 - |*_ZCSD_RD_ID_Size : 3 - | *_ZCSD_RD_SEC : 10C - |*_ZCSD_RD_SEC_Size : 3 - | *_ZCSD_WR_SEC : 10F - |*_ZCSD_WR_SEC_Size : 3 - | *_ZXSCR_MODE : 1 - |734 symbols681 unused symbolsAS V1.42 Beta [Bld 146] - source file trdos.a80 - page 104 - 2/23/2020 18:58:45defined macros:---------------ADDVAR | ATMPORTBITMASK | DALIGNDC | DIHALTDUPL | DZEVOPORT | INIT_VARMALIGN | NODIHALTPEC_OFF | PEC_ONRAMCALL | READ_7FFDROMCALL | RST8SETVAR | SUBVARSUM_HOB | TEXTDATEWORD2TXT |23 macrosAS V1.42 Beta [Bld 146] - source file trdos.a80 - page 105 - 2/23/2020 18:58:45defined functions:------------------LOW | HIGHAS V1.42 Beta [Bld 146] - source file trdos.a80 - page 106 - 2/23/2020 18:58:45codepages:----------STANDARD (0 changed characters)0.31 seconds assembly time1048 lines source file3121 lines incl. macro expansions2 passes0 errors0 warnings