home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / falcon / sound / speakoff / spkr_off.s < prev    next >
Text File  |  1993-05-26  |  1KB  |  37 lines
  1. ;       Raam programma van Turbo C 2.0
  2.  
  3.                 import _StkSize                 ; von TLINK definiert !
  4.  
  5. start:          lea.l   start-256,a1               ; Start der Basepage
  6.                 move.l  12(a1),d1                 ; Größe des Textsegments
  7.                 add.l   20(a1),d1                 ; Größe des Datensegments
  8.                 add.l   28(a1),d1                 ; Größe des BSS-Segments
  9.                 add.l   #256,d1                     ; Größe der Basepage
  10.  
  11.                 move.l  d1,-(sp)                     ; Benötigter Speicher
  12.                 move.l  a1,-(sp)                  ; Startadresse
  13.                 clr     -(sp)                   ; dummy
  14.                 move    #74,-(sp)                  ; Mshrink
  15.                 trap    #1                      ; Gemdos
  16.  
  17.                 add.l   a1,d1                      ; new stack
  18.                 and.b   #$fc,d1                    ; gerade Adresse
  19.                 move.l  d1,sp                      ; Stack liegt im BSS
  20.  
  21.                 move.l  #message,-(sp)                    ; display message
  22.                 move    #9,-(sp)
  23.                 trap    #1
  24.                 addq.l  #6,sp
  25.  
  26.                                 move.w    #$40,-(sp)                            ; speaker off
  27.                                 move.w    #$1E,-(sp)
  28.                                 trap        #14
  29.                                 addq.l    #04,sp
  30.                                 
  31.                                 move    #0,-(sp)                                ; term program
  32.                 trap    #1
  33.  
  34. data
  35.  
  36. message:        dc.b    "Speaker is now off !",$d,$a,0
  37.