Audio 4.94 - Over 11,000 Files

home *** CD-ROM | disk | FTP | other *** search

/ Audio 4.94 - Over 11,000 Files / audio-11000.iso / msdos / music / njchime / njchime.arc / NJCHIME.ASM < prev next >

Wrap

Assembly Source File | 1988-06-21 | 18KB | 798 lines

; NJCHIME.ASM ; Nifty James' Famous Chimer Program ; Version 1.00 of 31 June 1988 ; (C) Copyright 1988 by Mike "Nifty James" Blaszczak ; All Rights Reserved ; ASCII codes tab equ 9 lf equ 10 ; linefeed cr equ 13 ; carriage return slash equ '/' ; slash dash equ '-' ; minus eos equ '$' ; end of string ; DOS Interrupt Functions PrintString equ 009h ; print a '$'-terminated string SetVec equ 025h ; set an interrupt vector GetTime equ 02Ch ; get the system time KeepProc equ 031h ; keep this process resident GetVec equ 035h ; get an interrupt vector WriteHandle equ 040h ; Write to a handle or device Terminate equ 04Ch ; exit with ERRORLEVEL ; Interrupt Numbers ClockTick equ 01Ch DOSINT equ 021h ; I/O Port Numbers TimerPort equ 042h ; 8253 timer data latch port TimerCtrl equ 043h ; 8253 timer control port SpeakerPort equ 061h SpkrMaskOff equ 011111100b ; Maks to turn speaker off SpkrMaskOn equ 000000011b ; Mask to turn speaker on ; General Constants BongTime equ 15 ; bong 5/6 ths of a second BongRest equ 15 ; rest 5/6 ths between each bong Middle_C equ 2280 Treble_D equ 2032 Treble_E equ 1810 Treble_F equ 1708 Treble_G equ 1522 Treble_A equ 1356 Treble_B equ 1208 Upper_C equ 1140 Upper_D equ 1016 Upper_E equ 905 Upper_F equ 854 code segment para public 'CODE' assume es:nothing, ds:nothing, ss:nothing, cs:code org 100h OfTheWorldAsWeKnowIt: jmp OverResident dw 156 dup (0) dw 0 dw 0 dw 0 ; padding dw 0 t_hours db ? t_minutes db ? t_ticks dw ? TicksMinute equ 1092 ; (18.2*60) Ticks57Seconds equ 1026 ; (18.2*57) Resting db 0 RestDuration db 0 Bonging db 0 BongCount db 0 BongResting db 0 BongDuration db 0 Playing db 0 Duration db 0 NotePointer dw 0 Pacing db 0 WorkCount db 0 ; length of this note Working db 0 ; set to one if we are playing a note Selection db 0 ; which chimeset we're playing QuarterOffset dw 0 HalfOffset dw 0 ThreesOffset dw 0 HourOffset dw 0 OldTimerVec label dword ; the old tick vector OldTimerVecO dw ? OldTimerVecS dw ? assume cs:code, ds:nothing, es:nothing, ss:nothing dw 'NJ' ; signature Handler: pushf push ax push bx push cx push ds push cs pop ds assume cs:code, ds:code, es:nothing, ss:nothing mov ax,t_ticks ; increment our divide by 18 count inc ax cmp ax,TicksMinute mov t_ticks,ax jne FallOut ; if it's not 18, return xor ax,ax ; zero the eighteen count mov t_ticks,ax FixMinutes: mov al,t_minutes ; increment minutes inc al mov t_minutes,al ; is it 60 minutes? cmp al,60 jne FallOut ; nope, skip all that xor al,al mov t_minutes,al inc t_hours ; --------------------------------------------------------------------------- FallOut: mov al,Playing ; are we playing a note? and al,al je NotPlaying dec Duration ; decrement the duration je NoteOver ReturnHome: pop ds pop cx pop bx pop ax popf jmp cs:[OldTimerVec] NoteOver: in al,SpeakerPort ; stop the speaker, the note is done and al,SpkrMaskOff out SpeakerPort,al mov al,1 mov Resting,al ; set resting flag dec al mov Playing,al ; reset note-playing flag jmp short ReturnHome NotPlaying: mov al,Resting ; check and see if we're playing and al,al ; a rest jne WereResting jmp NotResting WereResting: dec RestDuration ; decrement the rest duration jne ReturnHome push si mov ax,NotePointer mov si,ax add ax,4 mov NotePointer,ax ; increment the note pointer - store it mov ax,[si] ; get this note cmp ax,0FFFFh ; is it the last one? je GotLastNote out TimerPort,al xchg ah,al out TimerPort,al ; set the frequency in al,SpeakerPort or al,SpkrMaskOn out SpeakerPort,al ; set the speaker on add si,2 ; get the note duration mov ax,[si] ; and rest duration mov Duration,al mov RestDuration,ah pop si ; restore old SI mov al,1 mov Playing,al ; turn Playing on dec al ; turn Resting off mov Resting,al WayBackHome: jmp short ReturnHome ; and boogie GotLastNote: pop si ; restore SI register mov al,0 mov Playing,al mov Resting,al ; neither playing nor resting mov al,Selection ; are we just chirping? and al,al je ReturnHome ; yes ... don't bong mov al,t_minutes mov ah,1 ; one bong for the cmp al,30 ; half hour? je DoBong mov ah,t_hours ; hour bongs for the cmp ah,12 ; adjust it? jle noadjust sub ah,12 noadjust: and al,al ; top of hour? jne WayBackHome ; nope ... return home DoBong: mov BongCount,ah ; store the count DoBongAgain: mov ax,5424 ; bong at 220Hz out TimerPort,al xchg al,ah out TimerPort,al ; send it to the timer in al,SpeakerPort or al,SpkrMaskOn out SpeakerPort,al ; set the speaker on mov al,BongTime ; bong for 5/6ths of a second mov Bonging,al ; set the bonging flag mov BongDuration,al ; set duration mov al,0 mov Playing,al ; turn playing off mov Resting,al ; turn resting off jmp WayBackHome NotResting: mov al,Bonging ; are we bonging? and al,al je NotBonging dec BongDuration jne WayBackHome in al,SpeakerPort and al,SpkrMaskOff out SpeakerPort,al ; turn speaker off mov al,BongRest mov BongResting,al ; setup bong pause length (1/6th) mov BongDuration,al ;set bong pausing mov al,0 mov Bonging,al ; set bonging to zero OnWayBackHome: jmp short WayBackHome NotBonging: mov al,BongResting ; are we bong resting? and al,al je NotBongResting dec BongDuration ; decrement duration jne WayBackHome mov al,0 ; set bonging flag to zero mov BongResting,al dec BongCount ; decrement the bong count jne DoBongAgain mov al,0 mov Bonging,al je OnWayBackHome NotBongResting: mov ax,t_ticks ; see if we're at a 1 second mov cl,18 ; interval div cl and ah,ah ; zero? jne OnWayBackHome mov al,Selection ; see what kind of thing we should do and al,al je Chirping mov ax,t_ticks cmp ax,20 ; is it in the first second? jge OnWayBackHome ; nope, get out of here mov al,t_minutes ; get minutes count mov bx,HourOffset and al,al je DoIt mov bx,QuarterOffset cmp al,15 je DoIt mov bx,HalfOffset cmp al,30 je DoIt mov bx,ThreesOffset cmp al,45 je DoIt jne OnWayBackHome DoIt: mov NotePointer,bx mov ah,1 mov Playing,ah mov ax,[bx] ; get the note out TimerPort,al xchg al,ah out TimerPort,al ; set up the timing add bx,2 in al,SpeakerPort or al,SpkrMaskOn out SpeakerPort,al mov ax,[bx] ; get rest and duration add bx,2 mov NotePointer,bx ; but save the note pointer first mov Duration,al mov RestDuration,ah GetBack: jmp ReturnHome Chirping: mov al,t_minutes ; is minutes == 59 cmp al,59 jne GetBack mov ax,t_ticks cmp ax,Ticks57Seconds jne GetBack mov bx,005Ch jmp DoIt LastResident: ; --------------------------------------------------------------------------- OverResident: assume es:code, ds:code, ss:code, cs:code mov dx,offset Banner ; tell 'em who you are mov cx,BannerLen call ShowMessage mov ah,GetVec ; are we already installed? mov al,ClockTick int DOSINT assume es:nothing, ds:code, ss:code, cs:code mov OldTimerVecS,es ; save the vector mov OldTimerVecO,bx dec bx dec bx cmp es:[bx],'NJ' jne NotAlready mov dx,offset Already ; already installed, error! mov cx,AlreadyLen call ShowMessage BadGo: mov ah,Terminate mov al,1 int DOSINT NotAlready: mov si,080h ; look at the command line CommLoop: inc si mov al,[si] cmp al,cr ; is it end of line? je CommLooped cmp al,slash ; is it an option? je GotOption cmp al,dash jne CommLoop GotOption: inc si mov al,[si] ; get the option char cmp al,cr je CommLooped cmp al,'m' ; is it the mode option? je GotMOption cmp al,'M' je GotMOption ShowUsage: mov dx,offset Usage mov cx,UsageLen call ShowMessage mov ah,Terminate mov al,1 int 021h GotMOption: inc si ; get parameter mov al,[si] cmp al,cr je CommLooped sub al,'0' cmp al,3 jg ShowUsage ; error if it is out of range mov Selection,al jmp CommLoop ; loop back for more CommLooped: mov ah,GetTime ; Get our copy of the system int DOSINT ; time initialized mov t_hours,ch mov t_minutes,cl mov al,dh mov ah,0 mov cl,18 mul cl mov t_ticks,ax mov al,dl ; make hundreths into ticks cbw mov cl,5 ; 1 tick = 5 hundreths div cl mov ah,0 add t_ticks,ax mov ah,SetVec ; set up our int vector mov al,ClockTick mov dx,offset Handler int DOSINT mov dx,offset Installed ; print installed message mov cx,InstalledLen call ShowMessage mov al,Selection cbw shl ax,1 mov si,offset ChimePtrs add si,ax mov si,[si] mov di,05Ch mov bx,offset QuarterOffset BunchLoop: mov [bx],di ; save pointer to this one inc bx inc bx MoveLoop: mov ax,[si] mov [di],ax ; move this word inc si inc si ; up pointers inc di inc di cmp ax,0FFFFh ; is it the end of this batch? jne NotTheEnd mov ax,[si] ; see if its the complete end and ax,ax je DoneMoving jne BunchLoop ; nope ... move the next bunch NotTheEnd: mov ax,[si] mov [di],ax ; move the next words inc si inc si inc di inc di jne MoveLoop ; move more DoneMoving: mov si,offset SelectionPtrs ; print selection title mov al,Selection cbw shl ax,1 add si,ax mov dx,[si] mov ah,PrintString int DOSINT mov ah,KeepProc ; now we'll TSR mov al,0 ; with no ERRORLEVEL mov dx,offset LastResident add dx,15 ; round size up mov cl,4 shr dx,cl int DOSINT ; --------------------------------------------------------------------------- ShowMessage proc near push ax push bx mov ah,WriteHandle ; write it to stdout mov bx,1 int DOSINT pop bx pop ax ret ShowMessage endp ; --------------------------------------------------------------------------- Banner db lf,"Nifty James' Famous Chimer Program",cr,lf db "Version 1.00 of 30 March 1988",cr,lf db "(C) Copyright 1988 by Mike Blaszczak",cr,lf BannerLen equ this byte - Banner Already db lf,"NJCHIME was already installed!",cr,lf AlreadyLen equ this byte - Already Installed db lf,"NJCHIME has been installed to play " InstalledLen equ this byte - Installed Usage db cr,lf,"Usage:",cr,lf db tab,"NJCHIME [/M<mode>]",cr,lf,lf db tab,"Mode is the chime to be played.",cr,lf,lf db tab,"Mode 0 - Time Tones (default)",cr,lf db tab,"Mode 1 - Westminster Chimes",cr,lf db tab,"Mode 2 - Saint Michael Chimes",cr,lf db tab,"Mode 3 - Whittington Chimes",cr,lf,lf UsageLen equ this byte - Usage SelectionPtrs dw offset TimeTones dw offset Westminster dw offset StMichael dw offset Whittington ChimePtrs dw offset TimerChime dw offset WestMinsterChime dw offset SaintMichaelChime dw offset WhittingtonChime TimeTones db "Time Tones.",cr,lf,eos Westminster db "Westminster Chimes.",cr,lf,eos StMichael db "Saint Michael's Chimes.",cr,lf,eos Whittington db "Whittington Chimes.",cr,lf,eos NoteStruc struc divisor dw ? duration db ? intrarest db ? NoteStruc ends TimerChime NoteStruc <0254h, 3, 15> NoteStruc <0254h, 3, 15> NoteStruc <0254h, 3, 15> NoteStruc <04A8h, 10, 8> dw 0FFFFh dw 00000h WestMinsterChime NoteStruc <Upper_E,14, 4> NoteStruc <Upper_D,14, 4> NoteStruc <Upper_C,14, 4> NoteStruc <Treble_G,14, 2> dw 0FFFFh NoteStruc <Upper_C,14, 4> NoteStruc <Upper_E,14, 4> NoteStruc <Upper_D,14, 4> NoteStruc <Treble_G,14, 4> NoteStruc <Upper_C,14, 4> NoteStruc <Upper_D,14, 4> NoteStruc <Upper_E,14, 4> NoteStruc <Upper_C,14, 4> dw 0FFFFh NoteStruc <Treble_E,14, 4> NoteStruc <Upper_C,14, 4> NoteStruc <Upper_D,14, 4> NoteStruc <Treble_G,14, 4> NoteStruc <Treble_G,14, 4> NoteStruc <Upper_D,14, 4> NoteStruc <Upper_E,14, 4> NoteStruc <Upper_C,14, 4> NoteStruc <Upper_D,14, 4> NoteStruc <Upper_C,14, 4> NoteStruc <Treble_B,14, 4> NoteStruc <Treble_G,14, 4> dw 0FFFFh NoteStruc <Upper_C,14, 4> NoteStruc <Upper_E,14, 4> NoteStruc <Upper_D,14, 4> NoteStruc <Treble_G,14, 4> NoteStruc <Upper_C,14, 4> NoteStruc <Upper_D,14, 4> NoteStruc <Upper_E,14, 4> NoteStruc <Upper_C,14, 4> NoteStruc <Upper_E,14, 4> NoteStruc <Upper_C,14, 4> NoteStruc <Upper_D,14, 4> NoteStruc <Treble_G,14, 4> NoteStruc <Treble_G,14, 4> NoteStruc <Upper_D,14, 4> NoteStruc <Upper_E,14, 4> NoteStruc <Upper_C,14, 4> dw 0FFFFh dw 00000h SaintMichaelChime NoteStruc <Upper_F, 7, 2> NoteStruc <Upper_E , 7, 2> NoteStruc <Upper_D , 7, 2> NoteStruc <Upper_C , 7, 2> NoteStruc <Treble_B, 7, 2> NoteStruc <Treble_A, 7, 2> NoteStruc <Treble_G, 7, 2> NoteStruc <Treble_F, 7, 2> dw 0FFFFh NoteStruc <Upper_F , 7, 2> NoteStruc <Treble_G, 7, 2> NoteStruc <Treble_A, 7, 2> NoteStruc <Treble_B, 7, 2> NoteStruc <Upper_E , 7, 2> NoteStruc <Upper_C , 7, 2> NoteStruc <Upper_D , 7, 2> NoteStruc <Treble_F, 7, 2> ; NoteStruc <Upper_C , 7, 2> NoteStruc <Treble_B, 7, 2> NoteStruc <Treble_A, 7, 2> NoteStruc <Upper_D , 7, 2> NoteStruc <Treble_G, 7, 2> NoteStruc <Upper_E , 7, 2> NoteStruc <Upper_F , 7, 2> NoteStruc <Treble_F, 7, 2> ; dw 0FFFFh NoteStruc <Upper_E , 7, 2> NoteStruc <Upper_F , 7, 2> NoteStruc <Treble_A, 7, 2> NoteStruc <Treble_B, 7, 2> NoteStruc <Treble_G, 7, 2> NoteStruc <Upper_C , 7, 2> NoteStruc <Upper_D , 7, 2> NoteStruc <Treble_F, 7, 2> ; NoteStruc <Upper_C , 7, 2> NoteStruc <Upper_E , 7, 2> NoteStruc <Treble_A, 7, 2> NoteStruc <Treble_F, 7, 2> NoteStruc <Treble_B, 7, 2> NoteStruc <Treble_G, 7, 2> NoteStruc <Upper_D , 7, 2> NoteStruc <Treble_F, 7, 2> ; NoteStruc <Upper_F , 7, 2> NoteStruc <Upper_E , 7, 2> NoteStruc <Upper_D , 7, 2> NoteStruc <Upper_C , 7, 2> NoteStruc <Treble_B, 7, 2> NoteStruc <Treble_A, 7, 2> NoteStruc <Treble_G, 7, 2> NoteStruc <Treble_F, 7, 2> ; dw 0FFFFh NoteStruc <Upper_F , 7, 2> NoteStruc <Treble_G, 7, 2> NoteStruc <Treble_A, 7, 2> NoteStruc <Treble_B, 7, 2> NoteStruc <Upper_E , 7, 2> NoteStruc <Upper_C , 7, 2> NoteStruc <Upper_D , 7, 2> NoteStruc <Treble_F, 7, 2> ; NoteStruc <Upper_C , 7, 2> NoteStruc <Treble_B, 7, 2> NoteStruc <Treble_A, 7, 2> NoteStruc <Upper_D , 7, 2> NoteStruc <Treble_G, 7, 2> NoteStruc <Upper_E , 7, 2> NoteStruc <Upper_F , 7, 2> NoteStruc <Treble_F, 7, 2> ; NoteStruc <Upper_E , 7, 2> NoteStruc <Upper_F , 7, 2> NoteStruc <Treble_A, 7, 2> NoteStruc <Treble_B, 7, 2> NoteStruc <Treble_G, 7, 2> NoteStruc <Upper_C , 7, 2> NoteStruc <Upper_D , 7, 2> NoteStruc <Treble_F, 7, 2> ; NoteStruc <Upper_C , 7, 2> NoteStruc <Upper_E , 7, 2> NoteStruc <Treble_A, 7, 2> NoteStruc <Treble_F, 7, 2> NoteStruc <Treble_B, 7, 2> NoteStruc <Treble_G, 7, 2> NoteStruc <Upper_D , 7, 2> NoteStruc <Treble_F, 7, 2> ; dw 0FFFFh dw 00000h WhittingtonChime NoteStruc <Upper_D , 7, 2> NoteStruc <Upper_C , 7, 2> NoteStruc <Treble_B, 7, 2> NoteStruc <Treble_A, 7, 2> ; NoteStruc <Treble_G, 7, 2> NoteStruc <Treble_F, 7, 2> NoteStruc <Treble_E, 7, 2> NoteStruc <Treble_D, 7, 2> dw 0FFFFh NoteStruc <Upper_D , 7, 2> NoteStruc <Treble_B, 7, 2> NoteStruc <Treble_G, 7, 2> NoteStruc <Treble_E, 7, 2> ; NoteStruc <Upper_C , 7, 2> NoteStruc <Treble_A, 7, 2> NoteStruc <Treble_F, 7, 2> NoteStruc <Treble_D, 7, 2> ; NoteStruc <Treble_E, 7, 2> NoteStruc <Treble_F, 7, 2> NoteStruc <Treble_G, 7, 2> NoteStruc <Treble_B, 7, 2> ; NoteStruc <Treble_A, 7, 2> NoteStruc <Upper_C , 7, 2> NoteStruc <Upper_D , 7, 2> NoteStruc <Treble_D, 7, 2> dw 0FFFFh NoteStruc <Upper_D , 7, 2> NoteStruc <Upper_C , 7, 2> NoteStruc <Treble_E, 7, 2> NoteStruc <Treble_G, 7, 2> NoteStruc <Treble_B, 7, 2> NoteStruc <Treble_A, 7, 2> NoteStruc <Treble_F, 7, 2> NoteStruc <Treble_D, 7, 2> NoteStruc <Treble_E, 7, 2> NoteStruc <Treble_G, 7, 2> NoteStruc <Treble_B, 7, 2> NoteStruc <Upper_D , 7, 2> NoteStruc <Upper_C , 7, 2> NoteStruc <Treble_A, 7, 2> NoteStruc <Treble_F, 7, 2> NoteStruc <Treble_D, 7, 2> NoteStruc <Upper_D , 7, 2> NoteStruc <Upper_C , 7, 2> NoteStruc <Treble_B, 7, 2> NoteStruc <Treble_A, 7, 2> ; NoteStruc <Treble_G, 7, 2> NoteStruc <Treble_F, 7, 2> NoteStruc <Treble_E, 7, 2> NoteStruc <Treble_D, 7, 2> dw 0FFFFh NoteStruc <Upper_D , 7, 2> NoteStruc <Treble_B, 7, 2> NoteStruc <Treble_G, 7, 2> NoteStruc <Treble_E, 7, 2> ; NoteStruc <Upper_C , 7, 2> NoteStruc <Treble_A, 7, 2> NoteStruc <Treble_F, 7, 2> NoteStruc <Treble_D, 7, 2> ; NoteStruc <Treble_E, 7, 2> NoteStruc <Treble_F, 7, 2> NoteStruc <Treble_G, 7, 2> NoteStruc <Treble_B, 7, 2> ; NoteStruc <Treble_A, 7, 2> NoteStruc <Upper_C , 7, 2> NoteStruc <Upper_D , 7, 2> NoteStruc <Treble_D, 7, 2> NoteStruc <Upper_D , 7, 2> NoteStruc <Upper_C , 7, 2> NoteStruc <Treble_E, 7, 2> NoteStruc <Treble_G, 7, 2> NoteStruc <Treble_B, 7, 2> NoteStruc <Treble_A, 7, 2> NoteStruc <Treble_F, 7, 2> NoteStruc <Treble_D, 7, 2> NoteStruc <Treble_E, 7, 2> NoteStruc <Treble_G, 7, 2> NoteStruc <Treble_B, 7, 2> NoteStruc <Upper_D , 7, 2> NoteStruc <Upper_C , 7, 2> NoteStruc <Treble_A, 7, 2> NoteStruc <Treble_F, 7, 2> NoteStruc <Treble_D, 7, 2> dw 0FFFFh dw 00000h code ends end OfTheWorldAsWeKnowIt