Return to faketos.s CVS log

Up to [HATARI the Atari ST Emulator] / hatari / src

Annotation of hatari/src/faketos.s, revision 1.1

1.1     ! root        1: ; A very minimalistic TOS ROM replacement, used for testing without real TOS
        !             2: 
        !             3:        org     $e00000
        !             4: 
        !             5: TEST_PRG_BASEPAGE equ $1000
        !             6: 
        !             7: rom_header:
        !             8:        bra.s   start                   ; Branch to 0xe00030
        !             9:        dc.w    $0001                   ; TOS version
        !            10:        dc.l    start                   ; Reset PC value
        !            11:        dc.l    rom_header              ; Pointer to ROM header
        !            12:        dc.l    TEST_PRG_BASEPAGE       ; End of OS BSS
        !            13:        dc.l    start                   ; Reserved
        !            14:        dc.l    $0                      ; Unused (GEM's MUPB)
        !            15:        dc.l    $03032018               ; Fake date
        !            16:        dc.w    $0001                   ; PAL flag
        !            17:        dc.w    $4c63                   ; Fake DOS date
        !            18:        dc.l    $00000880               ; Fake pointer 1 (mem pool)
        !            19:        dc.l    $00000870               ; Fake pointer 2 (key shift)
        !            20:        dc.l    $00000800               ; Addr of basepage var
        !            21:        dc.l    $0                      ; Reserved
        !            22: start:
        !            23:        move    #$2700,sr
        !            24:        reset
        !            25:        move.b  #5,$ffff8001.w          ; Fake memory config
        !            26:        lea     $20000,sp               ; Set up SSP
        !            27:        lea     $fa0000,a0
        !            28:        cmp.l   #$abcdef42,(a0)         ; Cartridge enabled?
        !            29:        bne.s   no_sys_init
        !            30:        lea     unhandled_error(pc),a1
        !            31:        movea.w #8,a0                   ; Start with bus error handler
        !            32: set_exc_loop:
        !            33:        move.l  a1,(a0)+                ; Set all exception handlers
        !            34:        cmp.w   #$1c0,a0
        !            35:        ble.s   set_exc_loop
        !            36:        dc.w    $a                      ; Call SYSINIT_OPCODE to init trap #1
        !            37: 
        !            38: no_sys_init:
        !            39:        lea     rte_only(pc),a1
        !            40:        move.l  a1,$68                  ; Ignore HBLs
        !            41:        move.l  a1,$72                  ; Ignore VBLs
        !            42: 
        !            43:        moveq   #0,d0
        !            44:        movea.l d0,a0
        !            45:        movea.l d0,a1
        !            46:        move    #$0700,sr               ; Go to user mode
        !            47:        lea     $18000,sp               ; Set up USP
        !            48:        pea     TEST_PRG_BASEPAGE.w
        !            49:        pea     rom_header(pc)
        !            50:        jmp     TEST_PRG_BASEPAGE+$100.w
        !            51: 
        !            52: 
        !            53: unhandled_err_txt:
        !            54:        dc.b    "ERROR: Unhandled exception!",13,10,0
        !            55:        even
        !            56: 
        !            57: unhandled_error:
        !            58:        pea     unhandled_err_txt(pc)
        !            59:        move.w  #9,-(sp)
        !            60:        trap    #1              ; Cconws
        !            61:        addq.l  #6,sp
        !            62: 
        !            63:        move.w  #1,-(sp)
        !            64:        move.w  #76,-(sp)
        !            65:        trap    #1              ; Pterm
        !            66: 
        !            67: rte_only:
        !            68:        rte

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