Return to pack1.has CVS log

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

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

1.1     ! root        1: ; vi:set ts=8:
        !             2: 
        !             3: ; nono
        !             4: ; Copyright (C) 2025 Tetsuya Isaki
        !             5: ;
        !             6: ; Permission to use, copy, modify, and/or distribute this software for any
        !             7: ; purpose with or without fee is hereby granted.
        !             8: ;
        !             9: ; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
        !            10: ; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
        !            11: ; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
        !            12: ; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
        !            13: ; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
        !            14: ; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
        !            15: ; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
        !            16: 
        !            17: ; PACK/UNPK のアクセスサイズを調べる。
        !            18: ; 68030 実機ではどちらもワードアクセスをしている。
        !            19: ;
        !            20: ; How to build and use:
        !            21: ; > has pack1.has
        !            22: ; > hlk pack1.o
        !            23: ; > pack1.x
        !            24: ; PACK SSW.size=2
        !            25: ; UNPK SSW.size=2
        !            26: 
        !            27:        .include        doscall.mac
        !            28:        .include        iocscall.mac
        !            29: 
        !            30:        .cpu    68030
        !            31:        .list
        !            32:        .text
        !            33:        .even
        !            34: start:
        !            35:        ; バスエラーハンドラを差し替える。
        !            36:        pea.l   buserr_handler
        !            37:        move.w  #2,-(sp)
        !            38:        DOS     _INTVCS
        !            39:        addq.l  #6,sp
        !            40:        move.l  d0,buserr_backup
        !            41: 
        !            42: test_pack:
        !            43:        ; PACK -(Ax),-(Ay),#imm は
        !            44:        ; -(Ax) から2バイト読んで -(Ay) に1バイト書き込む。
        !            45:        ; この読み込みのアクセスサイズを調べる。
        !            46:        pea.l   msg_pack(pc)
        !            47:        DOS     _PRINT
        !            48:        addq.l  #4,sp
        !            49: 
        !            50:        move.l  #$ed4002,d0
        !            51:        movea.l d0,a0
        !            52:        lea.l   buf+2(pc),a1
        !            53:        lea.l   @f,a2
        !            54:        pack    -(a0),-(a1),#0
        !            55: @@:
        !            56:        move.b  d0,msg_res0
        !            57:        pea     msg_res(pc)
        !            58:        DOS     _PRINT
        !            59:        addq.l  #4,sp
        !            60: 
        !            61: test_unpk:
        !            62:        ; UNPK -(Ax),-(Ay),#imm は
        !            63:        ; -(Ax) から1バイト読んで -(Ay) に2バイト書き込む。
        !            64:        ; この書き込みのアクセスサイズを調べる。
        !            65:        pea.l   msg_unpk(pc)
        !            66:        DOS     _PRINT
        !            67:        addq.l  #4,sp
        !            68: 
        !            69:        lea.l   buf+2(pc),a0
        !            70:        move.l  #$ed4002,d0
        !            71:        movea.l d0,a1
        !            72:        lea.l   @f,a2
        !            73:        unpk    -(a0),-(a1),#0
        !            74: @@:
        !            75:        move.b  d0,msg_res0
        !            76:        pea     msg_res(pc)
        !            77:        DOS     _PRINT
        !            78:        addq.l  #4,sp
        !            79: 
        !            80: done:
        !            81:        move.l  buserr_handler,-(sp)
        !            82:        move.w  #2,-(sp)
        !            83:        DOS     _INTVCS
        !            84: 
        !            85:        DOS     _EXIT
        !            86: 
        !            87: ; SSW のサイズフィールドから '1' or '2' を d0 に入れて a2 に帰る。
        !            88: buserr_handler:
        !            89:        move.w  $a(sp),d0
        !            90:        andi.w  #$0eff,d0       ; Clear Rerun flags
        !            91:        move.w  d0,$a(sp)
        !            92:        lsr.w   #4,d0
        !            93:        andi.w  #3,d0
        !            94:        addi.b  #'0',d0
        !            95:        move.l  a2,2(sp)
        !            96:        rte
        !            97: 
        !            98: msg_pack:
        !            99:        .dc.b   "PACK",0
        !           100: msg_unpk:
        !           101:        .dc.b   "UNPK",0
        !           102:        .data
        !           103:        .even
        !           104: buf:
        !           105:        .dc.b   2
        !           106: msg_res:
        !           107:        .dc.b   ": SSW.size="
        !           108: msg_res0:
        !           109:        .dc.b   "x",$d,$a,0
        !           110: 
        !           111:        .bss
        !           112:        .even
        !           113: buserr_backup:
        !           114:        .ds.l   1
        !           115:        .end

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