Skip to Content
Last modified by Max on 2025/03/02 15:18
From version 2.73
edited by Max
on 2025/02/25 17:07
Change comment: (Autosaved)
To version 2.68
edited by Max
on 2025/02/25 16:42
Change comment: (Autosaved)

Summary

Details

Page properties
Content
... ... @@ -1148,67 +1148,68 @@
1148 1148  SCR_VGA_CONF = SCR_MEM_CONF+44. ; here video controller configuration - 10 words
1149 1149  SCR_PAL = SCR_VGA_CONF+20. ; here 338. values (words) of palette 338 words
1150 1150  ;--------------------------------------------------
1151 - mov @#177326,R5 ; save page 130k which was before the call
1152 - mov #76,@#177336 ; hook the 76th page into the window
1153 1153  
1154 - ;video controller configuration
1152 + mov @#177326,R5 ; сохраним страницу 130k которая была до вызова
1153 + mov #76,@#177336 ; цепляем 76ую страницу в окно
1154 +
1155 + ;конфигурация видеоконтроллера
1155 1155   ; 177230-177256
1156 1156   mov #SVGAC,R4
1157 1157  
1158 - mov @#177230,(R4)+;177230 - control register
1159 - mov @#177232,(R4)+;177232 - register - top page (layer 0)
1160 - mov @#177240,(R4)+;177240 - register - top page (layer 1)
1161 - mov @#177242,(R4)+;177242 - register - top page (layer 2)
1162 - mov @#177244,(R4)+;177244 - vertical scroll register layer 2
1163 - mov @#177246,(R4)+;177246 - vertical scroll register layer 1
1164 - mov @#177250,(R4)+;177250 - vertical scroll register layer 0
1165 - mov @#177252,(R4)+;177252 - horizontal scroll register layer 0
1166 - mov @#177254,(R4)+;177254 - horizontal scroll register layer 1
1167 - mov @#177256,(R4)+;177256 - horizontal scroll register layer 2
1159 + mov @#177230,(R4)+;177230 - регистр управления
1160 + mov @#177232,(R4)+;177232 - регистр - верхняя страница (слой 0)
1161 + mov @#177240,(R4)+;177240 - регистр - средняя страница (слой 1)
1162 + mov @#177242,(R4)+;177242 - регистр - нижняя страница (слой 2)
1163 + mov @#177244,(R4)+;177244 - регистр вертикального скролинга слой 2
1164 + mov @#177246,(R4)+;177246 - регистр вертикального скролинга слой 1
1165 + mov @#177250,(R4)+;177250 - регистр вертикального скролинга слой 0
1166 + mov @#177252,(R4)+;177252 - регистр гозизонтального скролинга слой 0
1167 + mov @#177254,(R4)+;177254 - регистр гозизонтального скролинга слой 1
1168 + mov @#177256,(R4)+;177256 - регистр гозизонтального скролинга слой 2
1168 1168  
1169 - mov R5,@#177336; return the page from which the call was made
1170 + mov R5,@#177336; вернем страницу с которой был вызов
1170 1170  
1171 1171  
1172 1172   ;-------------------------
1173 - MOV #AZ$CSR,R3 ; Preparing controller CSR
1174 - MOV #AZ$DR,R4 ; Preparing controller DR
1175 -20$: CLR (R3) ; Reset the controller
1174 + MOV #AZ$CSR,R3 ; Готовим CSR контроллера
1175 + MOV #AZ$DR,R4 ; Готовим DR контроллера
1176 +20$: CLR (R3) ; Сбросим контроллер
1176 1176   TSTB (R3)
1177 1177   BPL 20$
1178 1178  
1179 - ; clear the memory block for the name - so that the system makes a default file name
1180 - mov #23,(R3) ; command that we will write data to the buffer
1181 -128$: TSTB (R3) ; check the result of execution
1182 - BPL 128$ ; wait
1180 + ; очистим блок памяти для имени - дабы система сделала дефолтное имя файла
1181 + mov #23,(R3) ; командуем что будем писать данные в буфер
1182 +128$: TSTB (R3) ; проверяем результат выполнения
1183 + BPL 128$ ; ждем
1183 1183   clr R1
1184 1184  
1185 1185   mov #256.,R2 ;
1186 -129$: mov R1,(R4) ; give to the controller
1187 +129$: mov R1,(R4) ; отдаем в контроллер
1187 1187   sob R2,129$
1188 1188  
1189 1189  
1190 - MOV #044,(R3) ; screenshot command
1191 + MOV #044,(R3) ; команда скриншот
1191 1191  22$: TSTB (R3) ;
1192 1192   BPL 22$ ;
1193 1193  
1194 - ; get the screenshot name
1195 - mov #22,(R3) ; give the read memory block from the buffer to the bus
1196 -121$: tstb (R3) ; check the result of execution
1197 - bpl 121$ ; wait
1195 + ; получим имя скриншота
1196 + mov #22,(R3) ; отдать на шину считанный блок памяти из буфера
1197 +121$: tstb (R3) ; проверяем результат выполнения
1198 + bpl 121$ ; ждем
1198 1198  
1199 1199   mov #BUF,R1
1200 - mov #256.,R2 ; read 256. words; the first word is the result of reading
1201 -122$: mov (R4),(R1)+ ; read a block of words into memory
1201 + mov #256.,R2 ; читаем 256. слов; первое слово - результат чтения
1202 +122$: mov (R4),(R1)+ ; читаем блок слов в память
1202 1202   sob R2,122$
1203 1203  
1204 1204   .PRINT #RESOK
1205 1205   .Print #BUF
1206 1206  
1207 - mov #110,@#AZ$CSR; enable the network by default, the network should be constantly enabled
1208 + mov #110,@#AZ$CSR; включаем сеть по-умолчанию сеть должна быть постоянно включена
1208 1208   .Exit
1209 1209  {{/code}}
1210 1210  
1211 -To unpack a screenshot, you can use this utility -
1212 +Для распаковки скриншота можно использовать вот эту утилиту
1212 1212  
1213 1213  
1214 1214