| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798 |
- ; Author: Frederik Noring <noring@nocrew.org>
- ;
- ; This file is subject to the terms and conditions of the GNU General Public
- ; License. See the file COPYING in the main directory of this archive
- ; for more details.
- ; DSP56k loader
- ; Host Interface
- M_BCR EQU $FFFE ; Port A Bus Control Register
- M_PBC EQU $FFE0 ; Port B Control Register
- M_PBDDR EQU $FFE2 ; Port B Data Direction Register
- M_PBD EQU $FFE4 ; Port B Data Register
- M_PCC EQU $FFE1 ; Port C Control Register
- M_PCDDR EQU $FFE3 ; Port C Data Direction Register
- M_PCD EQU $FFE5 ; Port C Data Register
- M_HCR EQU $FFE8 ; Host Control Register
- M_HSR EQU $FFE9 ; Host Status Register
- M_HRX EQU $FFEB ; Host Receive Data Register
- M_HTX EQU $FFEB ; Host Transmit Data Register
- ; SSI, Synchronous Serial Interface
- M_RX EQU $FFEF ; Serial Receive Data Register
- M_TX EQU $FFEF ; Serial Transmit Data Register
- M_CRA EQU $FFEC ; SSI Control Register A
- M_CRB EQU $FFED ; SSI Control Register B
- M_SR EQU $FFEE ; SSI Status Register
- M_TSR EQU $FFEE ; SSI Time Slot Register
- ; Exception Processing
- M_IPR EQU $FFFF ; Interrupt Priority Register
- org P:$0
- start jmp <$40
- org P:$40
- ; ; Zero 16384 DSP X and Y words
- ; clr A #0,r0
- ; clr B #0,r4
- ; do #64,<_block1
- ; rep #256
- ; move A,X:(r0)+ B,Y:(r4)+
- ;_block1 ; Zero (32768-512) Program words
- ; clr A #512,r0
- ; do #126,<_block2
- ; rep #256
- ; move A,P:(r0)+
- ;_block2
- ; Copy DSP program control
- move #real,r0
- move #upload,r1
- do #upload_end-upload,_copy
- movem P:(r0)+,x0
- movem x0,P:(r1)+
- _copy movep #4,X:<<M_HCR
- movep #$c00,X:<<M_IPR
- and #<$fe,mr
- jmp upload
- real
- org P:$7ea9
- upload
- movep #1,X:<<M_PBC
- movep #0,X:<<M_BCR
- next jclr #0,X:<<M_HSR,*
- movep X:<<M_HRX,A
- move #>3,x0
- cmp x0,A #>1,x0
- jeq <$0
- _get_address
- jclr #0,X:<<M_HSR,_get_address
- movep X:<<M_HRX,r0
- _get_length
- jclr #0,X:<<M_HSR,_get_length
- movep X:<<M_HRX,y0
- cmp x0,A #>2,x0
- jeq load_X
- cmp x0,A
- jeq load_Y
- load_P do y0,_load_P
- jclr #0,X:<<M_HSR,*
- movep X:<<M_HRX,P:(r0)+
- _load_P jmp next
- load_X do y0,_load_X
- jclr #0,X:<<M_HSR,*
- movep X:<<M_HRX,X:(r0)+
- _load_X jmp next
- load_Y do y0,_load_Y
- jclr #0,X:<<M_HSR,*
- movep X:<<M_HRX,Y:(r0)+
- _load_Y jmp next
- upload_end
- end
|
