Return to nf_asmg.s CVS log

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

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

1.1     ! root        1: /*
        !             2:  * nf_asm.s - GCC NatFeats ASM detection code
        !             3:  *
        !             4:  * Copyright (c) 2014 by Eero Tamminen
        !             5:  *
        !             6:  * Mostly based on code from EmuTOS,
        !             7:  * Copyright (c) 2001-2013 by the EmuTOS development team
        !             8:  *
        !             9:  * This file is distributed under the GPL, version 2 or at your
        !            10:  * option any later version.
        !            11:  *
        !            12:  * TODO: test this
        !            13:  */
        !            14: 
        !            15: /*
        !            16:  * public interface
        !            17:  */
        !            18:         .globl  _nf_id
        !            19:         .globl  _nf_call
        !            20:         .globl  _detect_nf
        !            21: 
        !            22: /* illegal exception vector */
        !            23:         .equ vec_illegal, 0x10
        !            24: 
        !            25: /*
        !            26:  * code
        !            27:  */
        !            28:         .text
        !            29: 
        !            30: /*
        !            31:  * NatFeats test
        !            32:  *
        !            33:  * Needs to be called from Supervisor mode,
        !            34:  * otherwise exception handler change bombs
        !            35:  */
        !            36: _detect_nf:
        !            37:         clr.l   d0               /* assume no NatFeats available */
        !            38:         move.l  sp,a1
        !            39:         move.l  vec_illegal,a0
        !            40:         move.l  #fail_nf,vec_illegal
        !            41:         pea     nf_version_name
        !            42:         sub.l   #4,sp
        !            43: #ifdef __mcoldfire__
        !            44: #error Conflict with instruction mvs.b d0,d1
        !            45: #else
        !            46:         .dc.w   0x7300              /* Jump to NATFEAT_ID */
        !            47: #endif
        !            48:         tst.l   d0
        !            49:         beq.s   fail_nf
        !            50:         moveq   #1,d0               /* NatFeats detected */
        !            51: 
        !            52: fail_nf:
        !            53:         move.l  a1,sp
        !            54:         move.l  a0,vec_illegal
        !            55: 
        !            56:         rts
        !            57: 
        !            58: nf_version_name:
        !            59:         .ascii  "NF_VERSION\0"
        !            60:         .even
        !            61: 
        !            62: /*
        !            63:  * map native features to NF ID
        !            64:  */
        !            65: _nf_id:
        !            66:         .dc.w   0x7300  /* Conflict with ColdFire instruction mvs.b d0,d1 */
        !            67:         rts
        !            68: 
        !            69: /*
        !            70:  * call native feature by its ID
        !            71:  */
        !            72: _nf_call:
        !            73:         .dc.w   0x7301  /* Conflict with ColdFire instruction mvs.b d1,d1 */
        !            74:         rts

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