home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Vectronix 2
/
VECTRONIX2.iso
/
FILES_01
/
SPEAKOFF.LZH
/
SPKR_OFF.S
< prev
next >
Wrap
Text File
|
1993-05-26
|
1KB
|
37 lines
; Raam programma van Turbo C 2.0
import _StkSize ; von TLINK definiert !
start: lea.l start-256,a1 ; Start der Basepage
move.l 12(a1),d1 ; Grö₧e des Textsegments
add.l 20(a1),d1 ; Grö₧e des Datensegments
add.l 28(a1),d1 ; Grö₧e des BSS-Segments
add.l #256,d1 ; Grö₧e der Basepage
move.l d1,-(sp) ; Benötigter Speicher
move.l a1,-(sp) ; Startadresse
clr -(sp) ; dummy
move #74,-(sp) ; Mshrink
trap #1 ; Gemdos
add.l a1,d1 ; new stack
and.b #$fc,d1 ; gerade Adresse
move.l d1,sp ; Stack liegt im BSS
move.l #message,-(sp) ; display message
move #9,-(sp)
trap #1
addq.l #6,sp
move.w #$40,-(sp) ; speaker off
move.w #$1E,-(sp)
trap #14
addq.l #04,sp
move #0,-(sp) ; term program
trap #1
data
message: dc.b "Speaker is now off !",$d,$a,0