Context Navigation

BEEP.S@ f40a309

Last change on this file since f40a309 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Imported original source code.
Property mode set to `100755`
File size: 600 bytes

Rev	Line
[3ae31e9]	1	*
	2	* beep.s -- beep the terminal
	3	* ------ -----------------
	4	* Version 1 -- 1987-02-05 -- D.N. Lynx Crowe
	5	*
	6	BELL .equ 7 * ASCII BELL
	7	*
	8	BIOS .equ 13 * BIOS trap
	9	B_PUTC .equ 3 * B_PUTC function #
	10	CON_DEV .equ 2 * CON_DEV number
	11	GEMDOS .equ 1 * GEMDOS trap
	12	*
	13	.xdef beep
	14	*
	15	beep: move.w #BELL,-(a7) * Put BELL on stack
	16	move.w #CON_DEV,-(a7) * Put CON_DEV on stack
	17	move.w #B_PUTC,-(a7) * Put B_PUTC # on stack
	18	trap #BIOS * Trap to the bios
	19	addq #6,a7 * Cleanup stack
	20	*
	21	clr.w -(a7) * Setup for pterm()
	22	trap #GEMDOS * Exit to GEMDOS
	23	*
	24	.end

Note: See TracBrowser for help on using the repository browser.