# --register-prefix-optional --bitwise-or
#
-.equ USE_VINT, 1
-.equ RELOCATE_TO_RAM, 0
+.equ USE_VINT, 0
+.equ COPY_TO_EXP, 1
+.equ RELOCATE_TO_RAM, 1
.text
.globl main
.globl INT
.globl VBL
+.globl return_to_main
##################################################
# #
.equ MMODE_START_MENU, 4
.equ MMODE_GOTO_PREDEF, 5
.equ MMODE_JMP_ADDR, 6
-.equ MMODE_DUMP, 7
+.equ MMODE_PC, 7
.equ predef_addr_cnt, ((predef_addrs_end-predef_addrs)/4)
dc.l 0xa13000, 0xa130ff
safe_addrs_end:
-transfer_mode:
- dc.l 0x000000 /* 1 for recv */
-transfer_addr:
- dc.l 0x000000
-transfer_len:
- dc.l 0x000800
-
txt_edit:
.ascii "- edit -\0"
txt_a_confirm:
txt_jmp_addr:
.ascii "Jump to address\0"
txt_dump:
- .ascii "Transfer\0"
+ .ascii "PC Transfer\0"
txt_dtack:
.ascii "DTACK safety\0"
-txt_ready_send:
- .ascii "Ready to send\0"
-txt_ready_recv:
- .ascii "Ready to recv\0"
+txt_transfer_ready:
+ .ascii "Transfer Ready\0"
txt_working:
- .ascii "Working.. \0"
+ .ascii "PC mode \0"
txt_dtack_err:
.ascii "DTACK err?\0"
txt_exc:
.align 2
main:
+ /* make sure io port 2 is doing inputs */
+ move.b #0,(0xa1000b).l
/* mask irqs during init */
move.w #0x2700,sr
-.if 0
+.if COPY_TO_EXP
/* copy to expansion device if magic number is set */
move.l #0x400000,a1
cmp.w #0x1234,(a1)
.endif
.if RELOCATE_TO_RAM
+ /* we could be relocated by 32x or something else, adjust start addr */
+ lea (pc),a0
+ move.l a0,d0
+ and.l #0xff0000,d0
+ move.l d0,a0
+
/* copy, assume 8K size */
- move.l #0,a0
move.l #0xFF0100,a1
move.w #0x2000/8-1,d0
1:
move.l (a0)+,(a1)+
dbra d0,1b
+ /* copy test code */
+ lea (test_code,pc),a0
+ move.l #0xffc000,a1
+ move.w #(test_code_end - test_code)/2-1,d0
+1:
+ move.w (a0)+,(a1)+
+ dbra d0,1b
+
lea (0f,pc),a0
- add.l #0xFF0100,a0
+ move.l a0,d0
+ and.l #0x00ffff,d0
+ add.l #0xFF0100,d0
+ move.l d0,a0
+
+ /* patch test code */
+ move.l #0xffc000,a1
+ add.w #(test_code_ret_op-test_code+2),a1
+ move.l a0,(a1)
+
jmp (a0)
0:
.endif
addq.b #1,d7
# movem.l d0-d4/a0-a5,-(a7)
+ btst.b #5,(0xa10005).l
+ bne no_auto_transfer
+ change_mode MMODE_PC, MMODE_MAIN
+ write_vdp_r_dst 12,(VDP12_SCREEN_V224 | VDP12_SCREEN_H320 | VDP12_STE),(GFXCNTL)
+
+no_auto_transfer:
moveq.l #0,d0
move.w d7,d0
lsr.w #6,d0
0:
cmp.b #3,d1
bne 0f
- change_mode MMODE_DUMP, MMODE_MAIN
+ change_mode MMODE_PC, MMODE_MAIN
bsr start_menu_box
bra vbl_end
0:
move.l d5,a0
jmp (a0)
-################### transfer #####################
-
mode_transfer:
- move.b #0x40,(0xa1000b).l
- move.b #0x40,(0xa10005).l
+ move.b #0x40,(0xa1000b).l /* port 2 ctrl */
+ move.b #0x00,(0xa10005).l /* port 2 data - start with TH low */
- move.l (transfer_mode,pc),d0
- tst.l d0
- bne 0f
- lea (txt_ready_send,pc),a0
- bra 1f
-0:
- lea (txt_ready_recv,pc),a0
-1:
+ lea (txt_transfer_ready,pc),a0
move.l #13,d0
move.l #13,d1
move.l #0x8000,d2
bne wait_tl_low0
menu_text txt_working, 13, 13, 0
-
- lea 0xa10005,a1
- move.l (transfer_addr,pc),a0
- move.l (transfer_len,pc),d2
-
- move.l (transfer_mode,pc),d0
- tst.l d0
- bne transfer_recv
-
-transfer_send:
- move.b #0x4f,(0xa1000b).l
-
-tr_send_loop:
- move.b (a0),d1
- and.b #0x0f,d1
-
-wait_tl_low1:
- move.b (a1),d0
- btst.b #4,d0
- bne wait_tl_low1
-
- move.b d1,(a1) /* clears TH and writes data */
-
- move.b (a0)+,d1
- lsr.b #4,d1
- bset.b #6,d1 /* prepare TH */
-
-wait_tl_hi1:
- move.b (a1),d0
- btst.b #4,d0
- beq wait_tl_hi1
-
- move.b d1,(a1)
- subq.l #1,d2
- bne tr_send_loop
-
- move.b #0,(0xa1000b).l
- bra return_to_main
-
-transfer_recv:
- move.b #0,(a1) /* clear TH */
-
-tr_recv_loop:
-wait_tl_low2:
- move.b (a1),d0
- btst.b #4,d0
- bne wait_tl_low2
-
- move.b #0x40,(a1) /* set TH */
- move.b d0,d1
- and.b #0x0f,d1
-
-wait_tl_hi2:
- move.b (a1),d0
- btst.b #4,d0
- beq wait_tl_hi2
-
- move.b #0,(a1) /* clear TH */
- lsl.b #4,d0
- or.b d0,d1
- move.b d1,(a0)+
-
- subq.l #1,d2
- bne tr_recv_loop
-
- move.b #0,(0xa1000b).l
- bra return_to_main
-
+ bra do_transfer
# go back to main mode
return_to_main:
rts
+test_code:
+ nop
+
+test_code_ret_op:
+ jmp 0x123456 /* will be patched */
+test_code_end:
+
#################################################
# #
# RAM DATA #
notaz.gp2x.de / megadrive.git / blobdiff