2
0
Fork 0

disable caps filkering

This commit is contained in:
Willem 2018-11-29 20:35:56 +01:00
parent 0c304be6f7
commit 6b2082173b
2 changed files with 21 additions and 11 deletions

View file

@ -1,14 +1,14 @@
ADR:
.dw 0x4000
BUILD:
CALL CAPS_ON
;CALL CAPS_ON
CALL DO_SWAP
CALL BUILD_VELD
CALL TANKS
CALL BULLETS
;CALL MSEL
CALL SETPAGE
CALL CAPS_OFF
;CALL CAPS_OFF
LD a,(#BUILD_CNT)
inc a
@ -491,7 +491,7 @@ BUILD_VELD:
DEC HL
LD DE,#CPYTT
LD B,#26
LD B,#26 ; 24x13 = (384+128radar)512x208 on 512x212
LD C,#15
LD A,#-16 ; ????
LD (DY),A

View file

@ -1,20 +1,30 @@
GFX .equ 0x60
GFX_REG .equ 0x03
INIT_DOME:
XOR A ; 2=MIXMODE
OUT (0x6F),A
OUT (0x67),A ; POWER OFF + INT CLK
OUT (0x67),A ; P7: MSC + POWER OFF + INT CLK
LD A,#6 ; SETREG
LD A,#6 ; SETREG see page: 80
OUT (0x64),A
LD A,#0b10011010 ;ITMAP,XTAL,212DOTS,8BIT
OUT (0x63),A
LD A,#0b00001000 ;0,B,262,?,PAL,INTER,INTERLACE,MODE
OUT (0x63),A
LD A,#0b10000010 ; VRAM,SPRITE,YS,0,0,DREQ,512KB
LD A,#0b10011010 ; R6: DSPM1,DSPM0,DCKM1,DCKM0,XIMM1,XIMM0,CLRM1,CLRM0 = BITMAP + XTAL/2 + 1024px X space + 8b per dot
OUT (GFX+GFX_REG),A
LD A,#0b00001000 ; R7: 0,C25M,SM1,SM,PAL,EO,IL,HSCN = !B6,262line,?,PAL,none,none-inter,none-high-scn
OUT (GFX+GFX_REG),A
LD A,#0b10000010 ; R8: DISP,SPD,YSE,VWTE,VWM,DMAE,VSL1,VSL0 = VRAM+SPRITE+no-YS+512KB mem
OUT (0x63),A
; mode B3: 512x212 in 1024x512 space
; note;
; YJK = NTSC
; YUV = PAL
LD A,#13
OUT (0x64),A
LD A,#0b01000000 ; 256 COLOR-MODE
LD A,#0b01000000 ; R13: PLTM1,PLTM0,YAE,PLTAIH,PLT05,PLT04,PLT03,PLT02 = 256 COLOR-MODE
OUT (0x63),A
INIT_DOME_W0: