Return to cpu.spp CVS log

Up to [Atari MiNT] / MiNT / src

Annotation of MiNT/src/cpu.spp, revision 1.1.1.1

1.1       root        1: ;
                      2: 
                      3: ; CPU tricks (we should probably have spl7(), spl() & reboot() in here)
                      4: 
                      5: ;
                      6: 
                      7:        TEXT
                      8: 
                      9: ;
                     10: 
                     11: ; Cache tricks
                     12: 
                     13: ;
                     14: 
                     15:        XDEF    _cpush
                     16: 
                     17:        XREF    _mcpu           ; in main.c
                     18: 
                     19: ;
                     20: 
                     21: ; cpush(void *base, long length):
                     22: 
                     23: ; flush both caches from base over a distance of length. If length is -1
                     24: 
                     25: ; then the entire cache is flushed
                     26: 
                     27: ;
                     28: 
                     29: _cpush:
                     30: 
                     31:        movem.l 4(a7),d0/a0     ; get parameters
                     32: 
                     33:        exg     a0,d0           ; and in the right order
                     34: 
                     35:        move.l  _mcpu,d1        ; start checking the CPU type
                     36: 
                     37:        cmp.l   #20,d1
                     38: 
                     39:        bcs.s   noc
                     40: 
                     41:        cmp.l   #40,d1
                     42: 
                     43:        bne.s   is030
                     44: 
                     45:        
                     46: 
                     47:        addq.l  #1,d0           ; if was -1
                     48: 
                     49:        beq.s   abc040          ; then flush everything
                     50: 
                     51:        add.l   #14,d0          ; round up to line boundary
                     52: 
                     53:        lsr.l   #4,d0           ; convert to number of lines
                     54: 
                     55:        cmp.l   #256,d0
                     56: 
                     57:        bcs.s   fls040          ; not too many lines, so dump only some
                     58: 
                     59: 
                     60: 
                     61: abc040:        dc.w    $F4F8           ; this is "cpusha bc" if your asm knows '040
                     62: 
                     63:        bra.s   noc
                     64: 
                     65:        
                     66: 
                     67: ; run through d0+1 times (since a0 may not be on a line boundary)
                     68: 
                     69: fls040:        moveq   #16,d1
                     70: 
                     71: do040: dc.w    $F4E8           ; this is "cpushl bc,(a0)" for the '040
                     72: 
                     73:        add.w   d1,a0
                     74: 
                     75:        dbf     d0,do040
                     76: 
                     77:        bra.s   noc
                     78: 
                     79: 
                     80: 
                     81: is030:
                     82: 
                     83:        movec   cacr,d1
                     84: 
                     85:        move.l  d1,-(a7)
                     86: 
                     87:        addq.l  #1,d0           ; if was -1
                     88: 
                     89:        beq.s   abc030          ; then flush everything
                     90: 
                     91:        addq.l  #2,d0           ; round up to long boundary
                     92: 
                     93:        lsr.l   #2,d0           ; convert to number of longs
                     94: 
                     95:        cmp.l   #64,d0
                     96: 
                     97:        bcs.s   fls030          ; dump selectively
                     98: 
                     99:        
                    100: 
                    101: abc030:        or.w    #$808,d1
                    102: 
                    103:        movec   d1,cacr
                    104: 
                    105:        bra.s   rescacr
                    106: 
                    107: 
                    108: 
                    109: fls030:        or.w    #$404,d1        ; clear DC/IC entries
                    110: 
                    111: ; run through d0+1 times (since a0 may not be on a long boundary)
                    112: 
                    113: do030: movec   a0,caar
                    114: 
                    115:        movec   d1,cacr
                    116: 
                    117:        addq.w  #4,a0
                    118: 
                    119:        dbf     d0,do030
                    120: 
                    121: rescacr:
                    122: 
                    123:        move.l  (a7)+,d0
                    124: 
                    125:        movec   d0,cacr
                    126: 
                    127: noc:   rts
                    128: 
                    129: 
                    130: 
                    131:        END
                    132: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.