Return to speaker.asm CVS log

Up to [OS/2 SDKs] / pmsdk / samples / petzold / chap08

Annotation of pmsdk/samples/petzold/chap08/speaker.asm, revision 1.1

1.1     ! root        1: ;-------------------------------------------------
        !             2: ; SPEAKER.ASM -- Ring 2 routine for ORGAN program
        !             3: ;                (Accesses Intel 8255 Timer chip)
        !             4: ;-------------------------------------------------
        !             5: 
        !             6:                PUBLIC    Speaker
        !             7:                .286
        !             8:                .MODEL    MEDIUM, PASCAL
        !             9: 
        !            10:                .DATA
        !            11: ClockFreq      dd   1193180
        !            12: 
        !            13:                .CODE     SPEAKER_TEXT
        !            14: Speaker        PROC FAR  Frequency:WORD
        !            15:                Cli                                ; Disable interrupts
        !            16: 
        !            17:                Mov  BX, Frequency                 ; Get parameter from stack
        !            18:                Or   BX, BX                        ; Check if it's zero
        !            19:                Jz   TurnOff                       ; If so, turn off sound
        !            20: 
        !            21:                Mov  AL, 10110110b                 ; Set flags for programming
        !            22:                Out  43h, AL
        !            23: 
        !            24:                Mov  AX, WORD PTR [ClockFreq]      ; Calculate timer frequency
        !            25:                Mov  DX, WORD PTR [ClockFreq + 2]
        !            26:                Div  BX
        !            27: 
        !            28:                Out  42h, AL                       ; Output low byte
        !            29:                Jmp  $ + 2                         ; Delay
        !            30: 
        !            31:                Mov  AL, AH                        ; Output high byte
        !            32:                Out  42h, AL
        !            33:                Jmp  $ + 2                         ; Delay
        !            34: 
        !            35:                In   AL, 61h                       ; Get 8255 bits
        !            36:                Jmp  $ + 2                         ; Delay
        !            37: 
        !            38:                Or   AL, 00000011b                 ; Set bits for speaker
        !            39:                Out  61h, AL                       ; Set 8255 bits
        !            40:                Jmp  Return
        !            41: 
        !            42: TurnOff:       In   AL, 61h                       ; Get 8255 bits
        !            43:                Jmp  $ + 2                         ; Delay
        !            44:                And  AL, 11111101b                 ; Set bits for no speaker
        !            45:                Out  61h, AL                       ; Set 8255 bits
        !            46: 
        !            47: Return:        Sti                                ; Enable interrupts
        !            48:                Ret
        !            49: Speaker        ENDP
        !            50:                END

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.