Return to nf_asmv.s CVS log

Up to [HATARI the Atari ST Emulator] / hatari / tests / natfeats

Annotation of hatari/tests/natfeats/nf_asmv.s, revision 1.1

1.1     ! root        1: ; nf_asmv.s - VBCC/Vasm NatFeats ASM detection code
        !             2: ;
        !             3: ; Copyright (c) 2014 by Eero Tamminen
        !             4: ; 
        !             5: ; Mostly based on code from EmuTOS,
        !             6: ; Copyright (c) 2001-2013 by the EmuTOS development team
        !             7: ;
        !             8: ; This file is distributed under the GPL, version 2 or at your
        !             9: ; option any later version.  See doc/license.txt for details.
        !            10: 
        !            11: ;;
        !            12: ;; exported symbols
        !            13: ;;
        !            14:         PUBLIC  _nf_id
        !            15:        PUBLIC  _nf_call
        !            16:         PUBLIC  _detect_nf
        !            17: 
        !            18: ;;
        !            19: ;; variables
        !            20: ;;
        !            21:         DATA
        !            22: 
        !            23: nf_version:
        !            24:         dc.b  "NF_VERSION\0"
        !            25:         even
        !            26: 
        !            27: ;;
        !            28: ;; code
        !            29: ;;
        !            30:         TEXT
        !            31: 
        !            32: ; NatFeats test
        !            33: ;
        !            34: ; Needs to be called from Supervisor mode,
        !            35: ; otherwise exception handler change bombs
        !            36: _detect_nf:
        !            37:         clr.l   d0              ; assume no NatFeats available
        !            38:         move.l  sp, a1
        !            39:         move.l  $10, a0         ; illegal vector
        !            40:         move.l  #fail_nf, $10
        !            41:         pea     nf_version
        !            42:         sub.l   #4, sp
        !            43: ; Conflict with ColdFire instruction mvs.b d0,d1
        !            44:         dc.w   $7300            ; Jump to NATFEAT_ID
        !            45:         tst.l   d0
        !            46:         beq.s   fail_nf
        !            47:         moveq   #1, d0          ; NatFeats detected
        !            48: 
        !            49: fail_nf:
        !            50:         move.l  a1, sp
        !            51:         move.l  a0, $10         ; illegal vector
        !            52: 
        !            53:         rts
        !            54: 
        !            55: 
        !            56: ; map native feature to its ID
        !            57: _nf_id:
        !            58:         dc.w   $7300  ; Conflict with ColdFire instruction mvs.b d0,d1
        !            59:         rts
        !            60: 
        !            61: ; call native feature by its ID
        !            62: _nf_call:
        !            63:         dc.w   $7301  ; Conflict with ColdFire instruction mvs.b d1,d1
        !            64:         rts

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