Context Navigation

BEEP.S@ 9519422

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

Line
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.