Return to pmove_anpi.has CVS log

Up to [Isaki's NoNo m68k/m88k emulator] / nono / exp

Annotation of nono/exp/pmove_anpi.has, revision 1.1

1.1     ! root        1: ; vi:set ts=8:
        !             2: 
        !             3: ; nono
        !             4: ; Copyright (C) 2025 nono project
        !             5: ;
        !             6: ; Redistribution and use in source and binary forms, with or without
        !             7: ; modification, are permitted provided that the following conditions
        !             8: ; are met:
        !             9: ; 1. Redistributions of source code must retain the above copyright
        !            10: ;    notice, this list of conditions and the following disclaimer.
        !            11: ; 2. Redistributions in binary form must reproduce the above copyright
        !            12: ;    notice, this list of conditions and the following disclaimer in the
        !            13: ;    documentation and/or other materials provided with the distribution.
        !            14: ;
        !            15: ; THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
        !            16: ; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
        !            17: ; OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
        !            18: ; IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
        !            19: ; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
        !            20: ; BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
        !            21: ; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
        !            22: ; AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
        !            23: ; OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
        !            24: ; OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
        !            25: ; SUCH DAMAGE.
        !            26: 
        !            27: ; Test whether undocumented PMOVE (An)+,TTn works or not.
        !            28: ;
        !            29: ; > has pmove_anpi.has
        !            30: ; > hlk pmove_anpi.o
        !            31: ; > pmove_anpi
        !            32: 
        !            33:        .include doscall.mac
        !            34:        .include iocscall.mac
        !            35:        .list
        !            36:        .cpu    68030
        !            37:        .text
        !            38:        .even
        !            39: 
        !            40: start:
        !            41:        clr.l   -(sp)
        !            42:        DOS     _SUPER
        !            43: 
        !            44:        moveq.l #11,d1
        !            45:        lea.l   fline_trap,a1
        !            46:        IOCS    _B_INTVCS
        !            47:        move.l  d0,backup_fline
        !            48: 
        !            49:        moveq.l #0,d0
        !            50:        lea.l   @f,a3
        !            51:        lea.l   dummy_tt,a0
        !            52:        .dc.l   $f0180800       ; pmove (a0)+,tt0
        !            53: @@:
        !            54:        move.l  d0,-(sp)
        !            55: 
        !            56:        movea.l backup_fline,a1
        !            57:        IOCS    _B_INTVCS
        !            58: 
        !            59:        move.l  (sp)+,d0
        !            60:        beq     executed
        !            61: got_trap:
        !            62:        pea     msg_trap(pc)    ; expected
        !            63:        DOS     _PRINT
        !            64:        DOS     _EXIT
        !            65: executed:
        !            66:        pea     msg_exec(pc)    ; not expected
        !            67:        DOS     _PRINT
        !            68:        DOS     _EXIT
        !            69: 
        !            70: ; Fライン例外ハンドラ。
        !            71: ; a3 に戻りアドレスをセットしてあること。
        !            72: ; d0 を 1 にして帰る。
        !            73: fline_trap:
        !            74:        moveq.l #1,d0
        !            75:        move.l  a3,2(sp)
        !            76:        rte
        !            77: 
        !            78:        .data
        !            79: dummy_tt:
        !            80:        .dc.l   0
        !            81: 
        !            82: msg_trap:
        !            83:        .dc.b   "F-line trap occured (Expected)",$d,$a,0
        !            84: msg_exec:
        !            85:        .dc.b   "No F-line trap occured (Not expected!)",$d,$a,0
        !            86: 
        !            87:        .bss
        !            88:        .even
        !            89: backup_fline:
        !            90:        .ds.l   1
        !            91: 
        !            92:        .end

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