*********************************************
* LAP of NeXT  -  Half Digi Player    !!!!!!!
* Sowas hab ich vorher noch nie gesehen   !!!
* Der frisst fast gar nix an CPU Time  !!!!!!
* Ueberigens : ripped by M.C. of ANIMAL MINE!
*********************************************

                PEA     0.w
                MOVE.W  #32,-(SP)
                TRAP    #1
                ADDQ.L  #6,SP

                MOVE.W  #$0777,$FFFF8246.w
                PEA     text
                MOVE.W  #9,-(SP)
                TRAP    #1
                ADDQ.L  #6,SP

                MOVE    #$2700,SR
                CLR.B   $FFFFFA07.w
                CLR.B   $FFFFFA09.w
**************
* Sound init
                LEA     sound+$015E,A0
                LEA     sound+$0170,A1
                MOVE.L  A0,10(A1)
                MOVE.L  A1,10(A0)
                BSR     sound+32
                LEA     sound+$06EE,A0
                BSR     sound
*************
                MOVE    #$2300,SR
                MOVE.L  #player,$70.w

w:              CMPI.B  #$39,$FFFFFC02.w
                BNE.S   w

                PEA     0.w
                TRAP    #1

player:
                MOVEM.L D0-A6,-(SP)
sync:           MOVE.B  $FFFF8209.w,D0
                BEQ.S   sync
                NOT.B   D0
                LSL.B   D0,D0
                Dcb.W	64,$4E71
                MOVE.W  #$07,$FFFF8240.w
                BSR     sound+312
                CLR.W   $FFFF8240.w
                MOVEM.L (SP)+,D0-A6
                RTE

                EVEN
sound:          incbin 'A:\lap_digi.snd\MEGASND.mus'
                EVEN
text:
                DC.B 27,"E"
                DC.B 27,"Y",32+6,32+6
                DC.B "The hell in plastic bags !!! The ultrafastest Musaxxs-Driver ",10,13
                DC.B 27,"Y",32+8,32+6
                DC.B "from LAP of NeXT with TIMER_A Digi-Replay ! ",10,13
                DC.B 27,"Y",32+10,32+6
                DC.B "Ripped at the 4th of May 1992 by M.C. of ANIMAL MINE ",10,13
                DC.B 27,"Y",32+12,32+6
                DC.B "   While ripping , I found out : ",10,13
                DC.B 27,"Y",32+16,32+12
                DC.B "  -1- Max. two sound channles for Digisound avaiable",10,13
                DC.B 27,"Y",32+18,32+12
                DC.B "  -2- Using 2 Timer A-Routs to replay'n'mix those tunes",10,13
                DC.B 27,"Y",32+20,32+12
                DC.B "  -3- Uses damned less CPU time , see yourself",0

                END