Return to nf_asma.s CVS log

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

Annotation of hatari/tests/natfeats/nf_asma.s, revision 1.1.1.1

1.1       root        1: ; nf_asma.s - AHCC 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: ;; (AHCC doesn't prepend C-symbols with _)
                     15: ;;
                     16: .global        nf_id
                     17: .global        nf_call
                     18: .global        detect_nf
                     19: 
                     20: ;;
                     21: ;; variables
                     22: ;;
                     23: .data
                     24: 
                     25: nf_version:
                     26:         dc.b  "NF_VERSION\0"
                     27:         even
                     28: 
                     29: ;;
                     30: ;; code
                     31: ;;
                     32: .text
                     33: 
                     34: ; NatFeats test
                     35: ;
                     36: ; Needs to be called from Supervisor mode,
                     37: ; otherwise exception handler change bombs
                     38: detect_nf:
                     39:         clr.l   d0              ; assume no NatFeats available
                     40:         move.l  sp, a1
                     41:         move.l  0x10, a0        ; illegal vector
                     42:         move.l  #fail_nf, 0x10
                     43:         pea     nf_version
                     44:         sub.l   #4, sp
                     45: ; Conflict with ColdFire instruction mvs.b d0,d1
                     46:         dc.w   0x7300           ; Jump to NATFEAT_ID
                     47:         tst.l   d0
                     48:         beq.s   fail_nf
                     49:         moveq   #1, d0          ; NatFeats detected
                     50: 
                     51: fail_nf:
                     52:         move.l  a1, sp
                     53:         move.l  a0, 0x10        ; illegal vector
                     54: 
                     55:         rts
                     56: 
                     57: 
                     58: ; map native feature to its ID
                     59: nf_id:
                     60:         dc.w   0x7300 ; Conflict with ColdFire instruction mvs.b d0,d1
                     61:         rts
                     62: 
                     63: ; call native feature by its ID
                     64: nf_call:
                     65:         dc.w   0x7301 ; Conflict with ColdFire instruction mvs.b d1,d1
                     66:         rts

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