!to"roms/gamecart_lo.bin",plain

;--------------------------------------------------
; Commodore 16 and Plus/4
;--------------------------------------------------
screen       = $0d90
get          = $ffe4
tapebuf      = $0332
tedback      = $ff15  
tedcol1      = $ff16  
tedcol2      = $ff17  
tedcol3      = $ff18  
tedborder    = $ff19
row          = $8e
s_lo         = $9f
s_hi         = $a0
t_lo         = $a1
t_hi         = $a2 
blocks       = $a3
*=$8000
 jmp $800b
 jmp $800b
!by $01,$43,$42,$4d     ; module-nr., "CBM"
*=$800b
                 sei
                 lda $fb
                 pha
                 ldx #$02       ; cartrige 1 lo, kernal
                 sta $fdd0,x
                 jsr $ff84      ; Initialize I/O devices
                 jsr $ff87      ; RAM Test
                 pla
                 sta $fb
                 jsr $ff8a      ; Restore vectors to initial values
                 jsr $ff81      ; Initialize screen editor
                 lda #<cartrige ; cartridge jump in
                 sta $02fe
                 lda #>cartrige
                 sta $02ff
                 lda #$f1       ; irq -> banking-routines
                 sta $0314
                 lda #$fc
                 sta $0315
                 cli
                 jmp *
cartrige:

;--------------------------------------------------
; build screen and setups
;--------------------------------------------------

                 lda #$ff               
                 sta $ff0c
                 sta $ff0d           ; hide cursor
                 lda #$00
                 sta tedback
                 sta tedborder
;                 lda #$00
; row es la opcion elegida 0-3
;                 sta row
; copiar pantalla
;                 tax
;                 tay
;                 sta t_lo
;                 lda #$0c
;                 sta t_hi
;                 lda #>maincreen 
;                 sta s_hi
;                 lda #<maincreen 
;                 sta s_lo
;-                lda (s_lo),y
;                 sta (t_lo),y
;                 iny
;                 bne -
;                 inc s_hi
;                 inc t_hi
;                 inx
;                 cpx #04
;                 bne - 
; resaltar opcion elegida, al principio en la fila $0d90
;                 ldx #$00
;-                lda screen+4,x
;                 ora #$80
;                 sta screen+4,x 
;                 inx
;                 cpx #$20
;                 bne -  
; debe guardar la posicion que debe desresaltar al mover aqui
;                 lda #$0d
;                 sta t_hi
;                 lda #$94
;                 sta t_lo    
; rellenar memoria color
;                 lda #$71
;                 ldx #$00
;-                sta $07ff,x   
;                 sta $08ff,x
;                 sta $09ff,x
;                 sta $0aff,x
;                 inx
;                 bne -  
; el arcoirisicito 
;                 ldy #$28 
;                 lda #$0d+64
;                 sta $0800+60
;                 lda #$0f+64
;                 sta $0800+61
;                 lda #$77
;                 sta $0800+62
;                 lda #$02+64
;                 sta $0800+63

 
;--------------------------------------------------
; keyboard-scanner
;--------------------------------------------------
;keys:
;-                lda #$1f
;                 sta $fd30
;                 sta $ff08 
;                 lda $ff08
;                 and #$20              ; c= to select
;                 bne +
; salta a carga juego e inicio
;                 jmp gamecpy
;+                lda #$7f
;                 sta $fd30
;                 sta $ff08 
;                 lda $ff08
;                 and #$10              ; space to move
;                 beq down
; si no espacio o c= vuelta al inicio espera pulsacion
;                 jmp keys
;--------------------------------------------------
; move down
;--------------------------------------------------
;down:           inc row
;                lda row
;                cmp #$04
;                bne ++
;----wrap  
;+               clc
;                ldy #$00               ; bucle caracter titulo    
;-               lda (t_lo),y           ; caracter a desresaltar
;                and #$7f
;                sta (t_lo),y           ; desresaltando
;                iny
;                bcc +
;                inc s_hi               ; ignora pq es CC hasta el ultimo caracter
;+               cpy #$20               ; 32 caracteres
;                bne -  
; resaltar fila 0, entra con CS
;                lda #$0d               ; vuelve a fila 0,  $0d94
;                sta t_hi      
;                lda #$94
;                sta t_lo    
;                ldy #$00               ; bucle caracter titulo
;-               lda (t_lo),y           ; caracter a resaltar
;                ora #$80
;                sta (t_lo),y           ; resaltando
;                iny
;                bcc +
;                inc s_hi                ; como es CS va incrementando aqui
;+               cpy #$20
;                bne -  

;                lda #$00                 ; restituye a 0 indice de seleccion
;                sta row  
;                jmp delay 
;----move  
;++               
; repite desresaltado igual que antes
;                clc
;                ldy #$00    
;-               lda (t_lo),y
;                and #$7f
;                sta (t_lo),y
;                iny
;                bcc +
;                inc t_hi               ; ignora pq es CC hasta el ultimo caracter
               
;+               cpy #$20
;                bne -  
; sumar 40 a la direccion a resaltar
;                clc
;                lda t_lo
;                adc #$28
;                sta t_lo 
;                bcc +
;                inc t_hi
;+               clc
; resaltar fila, entra con CC
;                ldy #$00    
;-               lda (t_lo),y
;                ora #$80
;                sta (t_lo),y
;                iny
;                bcc +
;                inc s_hi
;+               cpy #$20
;                bne -  
;                jsr delay  
;delay:  
;                ldx #$00
;                ldy #$00
;-               inx
;                bne - 
;                iny
;                cpy #$80
;                bne -       
; y vuelta a empezar             
;                jmp keys                  

;maincreen:
;!scr " UCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCI "                
;!scr " G commodore plus/4 "
;!by $a0,$a0,$a0,$a0
;!scr "  32k gamebox H "
;!scr " JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCK "               
;!scr "                                        "                 
;!scr "                                        "                 
;!scr "                                        "                 
;!scr "                                        "        
;!scr "                                        "                 
;!scr "                                        "                 
;!scr "                                        "                 
;!scr "               moonbuggy                "                 
;!scr "               galaxy                   "                 
;!scr "               invaders                 "                 
;!scr "               kikstart                 "                 
;!scr "                                        "                 
;!scr "                                        "                 
;!scr "                                        "                 
;!scr "                                        "                 
;!scr "                                        "                 
;!scr "    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC     "                 
;!scr "    space to select and c= to start     "                 
;!scr "    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC     "                 
;!scr "                                        "                 
;!scr "      xmas 2020 by cbmhardware.de       "                 
;!scr "                                        "                 
;---game select by row
;gamecpy:         lda row
;                 cmp #$00
;                 beq moonbuggy_cpy
;                 cmp #$01
;                 beq glxy
;                 cmp #$02
;                 beq inv
;                 cmp #$03
;                 beq kikstart_copy
;                 jmp keys
;glxy:            jmp rom1_galaxy
;inv:             jmp rom1_invaders

;---copy games rom lo
;moonbuggy_cpy    ldy #$00         ; copy 
                 ldx #$30
; direccion del basic
                 lda #$10
                 sta t_hi  
                 lda #$01
                 sta t_lo  
; direccion del binario
                 lda #>juebo
                 sta s_hi  
                 lda #<juebo
                 sta s_lo  
; num bloques
;                 lda #$32
;                 sta blocks 
; copiar
;                 jsr copy  

;kikstart_copy:   ldy #$00         ; copy 
;                 ldx #$00
; direccion del basic
;                 lda #$10
;                 sta t_hi  
;                 lda #$01
;                 sta t_lo   
; direccion del binario
;                 lda #>kikstart
;                 sta s_hi  
;                 lda #<kikstart
;                 sta s_lo  
; num bloques
;                 lda #$19
;                 sta blocks 
; copiar
;                 jsr copy  

copy:            lda (s_lo),y     ; copy game or tool to ram 
                 sta (t_lo),y
                 iny
                 bne copy   
                 inc s_hi
                 inc t_hi
;                 inx          
;                 cpx $a3          ; esto es blocks igual
;                 bne copy  
                 dex     
                 bne copy       
;--- copy trampolin-code to tape-buffer
trampolin_cpy:   ldx #$4b         ; copy trampoline-code ES $40 ENRALIDAD
-                lda trampolin,x
                 sta tapebuf,x
                 dex
                 bpl -      
                 jmp tapebuf
;--- trampolin-code
trampolin:       
                 sei 
                 lda #$00
                 sta $02fe       
                 sta $02ff
                 lda #$a4         ;  nativ irq 
                 sta $0314
                 lda #$f2
                 sta $0315
                 lda #$00         ; basic , kernal
                 sta $fdd0        ; function rom off
                 sta $fb
                 lda $fb  
                 jsr $ff84        ; Initialize I/O devices 
;--- reset values and restart ROMs
                 jsr $ff8a        ; Restore vectors to initial values
                 jsr $8117        ; restore vectors !
                 jsr $ff81        ; Initialize screen editor  
                 cli
                 jsr $802e        ; init Basic RAM
                 jsr $8818        ; prg link
                 jsr $8bbe        ; prg mode  
                 lda #$03         ; hide cursor
                 sta $ff0c
                 ora #$ff
                 sta $ff0d      
                 jsr $8bea        ; start prg          
                 rts   
;--- copy games rom hi
;rom1_invaders    
; direccion del basic
;                 lda #$10
;                 sta t_hi  
;                 lda #$01
;                 sta t_lo  
; direccion del binario
;                 lda #$c0
;                 sta s_hi  
;                 lda #$00
;                 sta s_lo   
; num bloques 
;                 lda #$19
;                 sta blocks 
;                 ldx #$00 
;                 ldy #$00  
;                 jsr rom1_tcopy 
;rom1_galaxy:   
; direccion del basic
;                 lda #$10
;                 sta t_hi  
;                 lda #$01
;                 sta t_lo 
; direccion del binario 
;                 lda #$d8
;                 sta s_hi  
;                 lda #$71
;                 sta s_lo   
; num bloques 
;                 lda #$1e
;                 sta blocks 
;                 ldx #$00 
;                 ldy #$00  
;                 jsr rom1_tcopy 
;--- copy trampolin code for rom hi
;rom1_tcopy:
;-                lda rom1_trampolin,x
;                 sta tapebuf,x
;                 inx     
;                 cpx #$1a              
;                 bne -      
;-                lda trampolin,y
;                 sta tapebuf,x
;                 inx
;                 iny
;                 cpx #$5a                
;                 bne -      
;                 jmp tapebuf
;--- switch rom hi and copy game ro ram
;rom1_trampolin:
;                 sei
;                 ldx #$08
;                 sta $fdd0,x      ; cartrige 1 hi, basic
;                 ldx #$00
;                 ldy #$00
;rom1copy:        lda (s_lo),y     ; copy game or tool to ram 
;                 sta (t_lo),y
;                 iny
;                 bne rom1copy
;                 inc s_hi
;                 inc t_hi
;                 inx          
;                 cpx blocks
;                 bne rom1copy  
juebo:
!bin "games/shark_attack.prg",,2 
;moonbuggy:
;!bin "games/moonbuggy.prg",,2                                  
;kikstart:
;!bin "games/kikstart.prg",,2                                  
*=$bfff
!by $00                 
; empieza en 80b9, en 804c el numero bloques copiar, 800b debug interrumpir inicial, 803b arranque cartuchop, 806b final copia binario