Board.KolibriOS.org

Code: Select all

   NoteforOctave:
        sub     al, 0x81         ; correction value for delay Note
        mov     [countDelayNote], al; save counter delay this new Note
        call    ReadNoteByte
        cmp     al, 0xFF         ; this is PAUSE ?
        jne     packCode         ; no, this is PACK CODE
        in      al, 0x61         ; Get contents of system port B chip 8255
        and     al, 0xFC         ; Turn OFF timer and speaker
        out     0x61, al         ; Send out new values to port B chip 8255
        jmp     saveESI
 
   packCode:
        mov     cl, al           ; save code
        and     al, 0xF          ; clear upper bits
        dec     al               ; correction
        add     al, al           ; transform number to offset constant
        movsx   eax, al          ; EAX - offset
        add     eax, dword kontrOctave; EAX - address from constant
        mov     ax, [eax]        ; read constant
        shr     cl, 4            ; transform for number Octave
        shr     ax, cl           ; calculate from Note this Octave!
   pokeNote:
        out     0x42, al         ; Lower byte Out to channel 2 timer chip 8253
        mov     al, ah
        out     0x42, al         ; Upper byte Out to channel 2 timer chip 8253
        in      al, 0x61         ; Get contents of system port B chip 8255
        or      al, 3            ; Turn ON timer and speaker
        out     0x61, al         ; Send out new values to port B chip 8255
   saveESI:
        pop     eax
        RET
        
ReadNoteByte:
;result:
;  al - note
        push    eax
        push    ecx
        push    edx
        push    esi
 
        mov     eax, [pidProcessNote]
        call    pid_to_slot
        test    eax, eax
        jz      .failed
        lea     ecx, [esp+12]
        mov     edx, 1
        mov     esi, [memAdrNote]
        inc     [memAdrNote]
 
        call    read_process_memory
.failed:
        pop     esi
        pop     edx
        pop     ecx
        pop     eax
        ret

Code: Select all

   NoteforOctave:
        al    - 0x81             ; correction value for delay Note
        [countDelayNote] = al    ; save counter delay this new Note
        ReadNoteByte()
        al    <> 0xFF:  packCode ; this is PAUSE ?       ; no, this is PACK CODE
        0x61  -> al              ; Get contents of system port B chip 8255
        al    & 0xFC             ; Turn OFF timer and speaker
        0x61  <- al              ; Send out new values to port B chip 8255
        jmp   saveESI
 
   packCode:
        cl    =  al               ; save code
        al    &  0xF              ; clear upper bits
        -- al                     ; correction
        al    +  al               ; transform number to offset constant
        movsx    eax, al          ; EAX - offset
        eax   +  dword kontrOctave; EAX - address from constant
        ax    =  [eax]            ; read constant
        cl    >> 4                ; transform for number Octave
        ax    >> cl               ; calculate from Note this Octave!
   pokeNote:
        0x42  <- al               ; Lower byte Out to channel 2 timer chip 8253
        al    =  ah
        0x42  <- al               ; Upper byte Out to channel 2 timer chip 8253
        0x61  -> al               ; Get contents of system port B chip 8255
        al    &  3                ; Turn ON timer and speaker
        0x61  <- al               ; Send out new values to port B chip 8255
   saveESI:
        pop   eax
        RET
        
ReadNoteByte:
;result:
;  al - note
        push    eax, ecx, edx,  esi
 
        eax   = [pidProcessNote]
        pid_to_slot()
        eax  &&  eax
        jz  .failed
        ecx   =^ [esp+12]
        edx   =  1
        esi   =  [memAdrNote]
        ++  [memAdrNote] 
 
        read_process_memory()
.failed:
        pop   esi, edx, ecx, eax
        RET

Code: Select all

JA Jump if above (X > Y) CF=0 & ZF=0 
JAE Jump if above or equal (X >= Y) CF=0 
JB Jump if below (X < Y) CF=1 
JBE Jump if below or equal (X < Y) CF=1 or ZF=1 
JC Jump if carry (cf=1) CF=1 
JCXZ Jump if CX=0 регистр CX=0 
JE (то же, что и JZ) Jump if equal (X = Y) ZF=1 
JG Jump if greater (signed) (X > Y) ZF=0 & SF=OF 
JGE Jump if greater or equal (signed) (X >= y) SF=OF 
JL Jump if less (signed) (X < Y) SF != OF 
JLE Jump if less or equal (signed) (X <= Y) ZF=1 or SF!=OF 
JNA Jump if not above (X <= Y) CF=1 or ZF=1 
JNAE Jump if not above or equal (X < Y) CF=1 
JNB Jump if not below (X >= Y) CF=0 
JNBE Jump if not below or equal (X > Y) CF=1 & ZF=0 
JNC Jump if not carry (cf=0) CF=0 
JNE Jump if not equal (X != Y) ZF=0 
JNG Jump if not greater (signed) (X <= Y) ZF=1 or SF!=OF 
JNGE Jump if not greater or equal (signed) (X < y) SF!=OF 
JNL Jump if not less (signed) (X >= Y) SF=OF 
JNLE Jump if not less or equal (signed) (X > y) ZF=0 & SF=OF 
JNO Jump if not overflow (signed) (of=0) OF=0 
JNP Jump if no parity (pf=0) PF=0 
JNS Jump if not signed (signed) (sf=0) SF=0 
JNZ Jump if not zero (X != Y) ZF=0 
JO Jump if overflow (signed) (of=1) OF=1 
JP Jump if parity (pf=1) PF=1 
JP Jump if parity (pf=1) PF=1 
JPE Jump if parity even PF=1 
JPO Jump if parity odd PF=0 
JS Jump if signed (signed) SF=1 
JZ Jump if zero (X = Y) ZF=1

Code: Select all

X >     Y : lable     ; JA    
X >=   Y : lable     ; JAE    
X ==   Y : lable     ; JE    

Code: Select all

macro jif op1,cond,op2,label
{
cmp op1,op2
j#cond label
}

Code: Select all

jif eax,ae,10h,exit

Code: Select all

cmp eax,10h
jae exit

Code: Select all

jif eax,>=,10h,exit