Board.KolibriOS.org

Code: Select all

;======================================
KeyBoardInit:
mov eax,66
mov ebx,1
mov ecx,1 ;     * 0 = обычный (ASCII-символы)    * 1 = сканкоды
int 0x40
ret
;======================================


readmask_keynum rd 1
readmask_Result rd 1

readmask2:
 mov [readmask_Result],$000072ff
;//ПРОБЕЛ
   cmp dword [readmask_keynum],57
             jnz readmask2_m1
 mov [readmask_Result],$000030ff
               ret
;//ВЛЕВО;
readmask2_m1: cmp dword [readmask_keynum],38
             jnz readmask2_m2
 mov [readmask_Result],$0000ff32
               ret 
;//{ВВЕРХ}
readmask2_m2:  cmp dword [readmask_keynum],25
             jnz readmask2_m3
 mov [readmask_Result],$0000ff31
               ret ;
;//ВПРАВО;
readmask2_m3:  cmp dword [readmask_keynum],40
             jnz readmask2_m4
 mov [readmask_Result],$0000ff30
               ret ;
;//ВНИЗ;

readmask2_m4: cmp dword [readmask_keynum],39
              jnz readmask2_m5
 mov [readmask_Result],$0000ff33

 ;//ENTER;
readmask2_m5: cmp dword [readmask_keynum],28
              jnz  readmask2_ret
 mov [readmask_Result],$000013FF

 readmask2_ret:     ret

KeyDownUD:
       call readmask2
       mov eax,[readmask_Result]
       mov [kbd_mask],eax
             ret


KeyProcess:
mov eax,2
int 0x40
    shr  eax,8                   ; scancode
    and  eax,0xff
    cmp  eax,128
    jb   KeyProcess_m1   
            
;; если 'UP'
   sub eax,128
mov [readmask_keynum],eax
  call KeyDownUD
 mov [kbd_press],0
     call kbdA     
       ret
       
;; если 'DOWN'       
KeyProcess_m1:
mov [readmask_keynum],eax  
call KeyDownUD
mov [kbd_press],1    
     call kbdA     
       ret

Code: Select all

procedure kbdA;
begin
......
ЭТА ПРОЦЕДУРА НЕ ПО СУЩЕСТВУ В ДАННОМ МОМЕНТЕ!
выкладывать её не буду!
......
end;

Procedure readmask2D; // маска клавы
begin
readmask_Result:= $72FF;
if readmask_keynum = 32 then  begin readmask_Result:= $30FF end else 
if readmask_keynum = 37 then begin readmask_Result:= $FF32 end else 
if readmask_keynum = 38 then  begin readmask_Result:= $FF31 end else
if readmask_keynum = 39 then begin readmask_Result:= $FF30 end else 
if readmask_keynum = 40 then begin readmask_Result:= $FF33 end; 
end;

procedure KeyDownUD;
begin
readmask2D;
kbd_mask:=readmask_Result;
end;

procedure KeyDown1;
begin
KeyDownUD;
kbd_press:=1;
kbdA; // нажали
end;


procedure KeyUp1;
begin
KeyDownUD;
kbd_press:=0;
kbdA; // отжали
end;

procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word; //опрос клавы
 Shift: TShiftState);
begin
 readmask_keynum:=key; KeyDown1;
end;

procedure TMainForm.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   readmask_keynum:=key;   KeyUp1;
end;

Code: Select all

use32              ; включить 32-битный режим ассемблера
org    0x0         ; адресация с нуля
db     'MENUET01'  ; 8-байтный идентификатор MenuetOS
dd     0x01        ; версия заголовка (всегда 1)
dd     START       ; адрес первой команды
dd     I_END       ; размер программы
dd     0x60000      ; количество памяти
dd     0x60000      ; адрес вершины стэка
dd     0x0         ; адрес буфера для параметров
dd     0x0         ; зарезервировано

        include 'uLVComp.asm'
        include 'uKeyBoard.asm'
        include 'uMem.asm'
        include 'uDrawScreen.asm'
        include 'ui8080.asm'
;        include 'scancodeLV.asm'
titleE:      db   'Games in SAS emulator 1.0 beta',0
opcodes_to_run: dd 68500;
        
@FLagExit: rd  1; // флаг выхода из программы (заглушка для выхода)
macro INT0x40 { int 0x40 }
CycleProcesEvents: ;  ЦИКЛ ОБРАБОТКИ СОБЫТИЙ
Mov eax, 11 ;Функция 11 - проверить, есть ли событие, без ожидания. =======
INT0x40
cmp  eax,0
je CycleProcesEvents_ret

    cmp  eax,1          ; перерисовать окно ?
    je  DrawWindow     ; перерисовать окно
    cmp  eax,2          ; нажата клавиша ?
    je   key            ; если да - на key
    cmp  eax,3          ; нажата кнопка ?
    je   button         ; если да - на button
CycleProcesEvents_ret:    ret
;---  ОПРЕДЕЛЕНИЕ И ОТРИСОВКА ОКНА  ----------------------------------
DrawWindow:
mov EAX, 12
mov EBX, 1
INT0x40; 

 mov EAX, 0
 mov EBX, (10*65536+257+10)
 mov ECX, (10*65536+270+10)
 mov EDX, 0x34000000
 mov  edi, titleE

INT0x40;  

mov EAX, 12
mov EBX, 2
INT0x40;   
  
jmp CycleProcesEvents                ; выходим из процедуры
;---------------------------------------------------------------------
key:                  ; нажата клавиша на клавиатуре
call KeyProcess
jmp CycleProcesEvents
;---------------------------------------------------------------------
  button:
  mov EAX, 17 ;    mcall 17            ; 17 - получить идентификатор нажатой кнопки
  INT0x40;

    cmp   ah, 1         ; если НЕ нажата кнопка с номером 1,
    jne   CycleProcesEvents         ;  вернуться
 .exit:
  Mov EAX, -1 ;   mcall -1            ; иначе конец программы
  INT0x40;
;---------------------------------------------------------------------
CountTime_result rd 1
CountTime:
mov eax,26
mov ebx,9
int 0x40
mov [CountTime_result],eax ;= число сотых долей секунды, прошедших с момента
ret    
 
 TimeT rd 1
 PlatoonTimer: ; взвод таймера (для блока комманд) 
Call CountTime
mov eax,[CountTime_result]
add eax,2
mov [TimeT],eax
ret

START:
mov dword [@FLagExit],0
call uVIDEOinit
call init_table_in_case_opcode
call KeyBoardInit

 call PlatoonTimer

CycleProgram: ; метка цикла программы:
call CycleProcesEvents ;  ЦИКЛ ОБРАБОТКИ СОБЫТИЙ

main_m1:
Call CountTime
mov eax,[CountTime_result]
Cmp eax, [TimeT]
jb main_m2
   call PlatoonTimer ; взвод таймера
 
       mov eax,[opcodes_to_run]
       mov [i8080_do_opcodes_nb_cycles],eax
       call i8080_do_opcodes
              call draw_screen
main_m2:


;mov dword [@FLagExit],1  ; в случает когда нужен будет выход    
cmp byte [@FLagExit],0
jz CycleProgram ;
   mov EAX, -1            ; иначе конец программы
jmp CycleProgram
 
I_END:                             ; метка конца программы