source: buchla-68k/orig/GEMDOS/BEEP.S@ 7bf3856

Last change on this file since 7bf3856 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 8 years ago

Imported original source code.

  • Property mode set to 100755
File size: 600 bytes
RevLine 
[3ae31e9]1*
2* beep.s -- beep the terminal
3* ------ -----------------
4* Version 1 -- 1987-02-05 -- D.N. Lynx Crowe
5*
6BELL .equ 7 * ASCII BELL
7*
8BIOS .equ 13 * BIOS trap
9B_PUTC .equ 3 * B_PUTC function #
10CON_DEV .equ 2 * CON_DEV number
11GEMDOS .equ 1 * GEMDOS trap
12*
13 .xdef beep
14*
15beep: 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.