;       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