commodore.gen.tr

; Buradan daha üstte $01 portunun ayarlanması, VIC display'inin 
; ve interrupt'ların kapatılması var. Teferruat kod olduğu için
; çözüme dahil etmek zorunda değilsiniz.

TAPEBUFFER		= $033C
CARTPORT		= $80FF	
TEMPSTORE		= $FE
; Load stub
	LDX #$00
	
ASYNCTRANSFER
-		
	LDA CARTPORT
	BMI -
	
	LDA CARTPORT				; Port tam set edilmemişken erişme durumunu bertaraf etmek için bir daha okuyoruz.
	STA TEMPSTORE
-	
	LDA CARTPORT
	BPL -
	
-	
	LDA CARTPORT				; Port tam set edilmemişken erişme durumunu bertaraf etmek için bir daha okuyoruz.
	BMI -
	
	LDA CARTPORT
	ASL
	ORA TEMPSTORE
	STA TAPEBUFFER, X
-	
	LDA CARTPORT
	BPL -
			
	INX
	BNE ASYNCTRANSFER	

; Jump to the stub
	JMP TAPEBUFFER	

void CartInterface::TransmitByteAsync(uint8_t value)  {
  /* Cart software waits for data while page is negative */
  SetPage(0x80);
  
  /* Delay a bit to keep the pace */
  myDelay();
  
  /* Send the lower nibble as [0000XXXX], a positive value */
  SetPage(value & 0x0F);
  
  /* Delay a bit to keep the pace */
  myDelay();
  /* Cart software waits for data while page is negative */
  SetPage(0x80);
  
  /* Delay a bit to keep the pace */
  myDelay();
  
  /* Send the upper nibble as [0XXXX000], a positive value] */  
  SetPage((value & 0xF0)>>1);
  /* Delay a bit to keep the pace */
  myDelay();
}

.const port 		= $80FF
.const startAddr	= $0800
.const endAddr 		= $F7FF
.const tapeBuffer 	= $033C


/*
	transfer rutinini kaset tamponuna kopyala
	ve oraya atla
*/
selfCopy: { 
!:	ldx transferEnd-transfer
	lda transfer,x
	sta tapeBuffer,x
	bne !-
	jmp tapeBuffer		
}

/*
	transfer rutini
*/	
transfer: { 
// başlamak için porttaki değerin değişmesini bekle
firstByte:							
	lda port 				// 4 
	cmp port 				// 4 
	beq firstByte 			// 2 = 10 Cycle
	bit $02 				// 3
	bit $02					// 3
	bit $02					// 3
	bit $02					// 3
	bit $02					// 3
	nop						// 2
    jmp loop 				// 6 = 33 Cycle


wait: 						
	bit $02					// 3
	bit $02					// 3
	bit $02					// 3
	bit $02					// 3
	nop 					// 2
	nop						// 2 = 16 Cycle

loop: 						 
	lda port				// 4		
	sta tAddr:#startAddr	// 4 = 8 Cycle

// adresi arttır 			
	inc tAddr 				// 6
	bne wait 	 			// 2(+1) = 8(9) Cycle
		inc tAddr+1 		// 6
		lda >endAddr+1 		// 4
		cmp tAddr+1 		// 4
		bne loop 			// 2(+1) = 24(25) Cycle
	
// hedef addresi sıfırla 
reset: 						
	lda #>startAddr 		
	sta tAddr 				
	lda #<startAddr 		
	sta tAddr+1
	rts
}
transferEnd:

void CartInterface::TransmitByteAsync(uint8_t value)  {
  /* Cart software waits for data while page is negative */
  SetPage(0x80);
  
  /* Delay a bit to keep the pace */
  myDelay();
  
  /* Send the upper 7 bits as [0XXXXXXX], a positive value */
  SetPage((value >> 1) & 0x7F);
  
  /* Delay a bit to keep the pace */
  myDelay();
  
  /* Cart software waits for data while page is negative
     with 8th bit value as [X000000X] */  
  SetPage(0x80 | (value & 0x01));
  /* Delay a bit to keep the pace */
  myDelay();
}

; load stub
	ldx #$00
	
asynctransfer
-	lda cartport
	bmi -
	sta tapebuffer,x
-	lda cartport
	bpl -
	lsr
	rol tapebuffer,x
	
	inx
	bne asynctransfer	

    while not eof(f) do
    begin
      // Read a byte ...
      read(f,dta);

      repeat
        // Encode Byte ...
        res:=dta xor ctr;
        inc(ctr);

        // If the result is same with previous result,
        // or if the result is a placeholder, Encode not completed. Push a placeholder and re-encode the byte...
        done:=(res<>pdta) and (res<>0) and (res<>1);

        if not done then
        begin
          // Generate a non-repeating placeholder ...
          if pdta=0 then res:=1 else res:=0;
        end;

        // Push the byte ...
        if res=pdta then SeqCheck:=false;
        write(g,res);
        pdta:=res;

      until done;
    end;

    while not eof(f) do
    begin
      repeat
        // Fetch a byte And Decode it.
        read(f,dta);
        res:=dta xor ctr;
        inc(ctr);

        // Discard if a placeholder ...
        done:=(dta<>0) and (dta<>1);
      until done;
      write(g,res);
    end;

	lda #$00
	sta $ff
	tax
	tay
	
asynctransfer
			
-	cpy cartport		; 4cyc/3byte Wait for a change on port
	beq -			; 3cyc/2byte 
	inc $ff			; 5cyc/2byte increment xor counter
	
	lda cartport		; 4cyc/3byte fetch new value ...
	beq asynctransfer	; 3cyc/2byte if 0 discard byte
	cmp #$01			; 2cyc/2byte if 1 discard byte
	beq asynctransfer	; 3cyc/2byte 
	
	tay			; 2cyc/1byte

	eor $ff			; 3cyc/2byte Decode using xor counter 
	sta tapebuffer,x	; 5cyc/3byte Store to destination
	inx					; 2cyc/1byte Increment destination pointer
	bne asynctransfer	; 3cyc/2byte

	lda #$00
	sta $ff
	tax
	tay
	
asynctransfer
			
-	cpy cartport		; 4cyc/3byte Wait for a change on port
	beq -				; 3cyc/2byte 
	inc $ff				; 5cyc/2byte increment xor counter
	ldy cartport		; 4cyc For atomic problem ...

	tya					; 2cyc
	and #254			; 2cyc
	beq asynctransfer	; 3cyc/2byte if 0 or 1 discard byte
	
	tya					; 2cyc
	eor $ff				; 3cyc/2byte Decode using xor counter 
	sta tapebuffer,x	; 5cyc/3byte Store to destination
	inx					; 2cyc/1byte Increment destination pointer
	bne asynctransfer	; 3cyc/2byte

transfer: { 
// başlamak için porttaki değerin değişmesini bekle
read:							
	lda port 				
	bmi wait_pl 
wait_mi:
	lda port 
	bpl wait_mi
	jmp write		
wait_pl:
	lda port
	bmi wait_pl

// değeri kopyala					 
write:						
	sta tAddr:#startAddr	

// adresi arttır 			
	inc tAddr 				
	bne read 	 			
		inc tAddr+1 		
		lda >endAddr+1 		
		cmp tAddr+1 		
		bne read 			

// hedef addresi sıfırla 
reset: 						
	lda #>startAddr 		
	sta tAddr 				
	lda #<startAddr 		
	sta tAddr+1
	rts
}
transferEnd:

-	lda cartport		; 4cyc/3byte Wait for a change on port
	beq -				; 3cyc/2byte 
-	lda cartport		; 4cyc/3byte Wait for a change on port
	beq -				; 3cyc/2byte 
	
	sta tapebuffer,x	; 5cyc/3byte Store to destination
	inx					; 2cyc/1byte Increment destination pointer
	bne asynctransfer	; 3cyc/2byte

	ldx #$00
asynctransfer
!for i, 4 {
	lda cartport		; 4 cyc
-	cmp cartport		; 4 cyc
	beq -			; 3 cyc
	lda cartport		; 4 cyc
-	cmp cartport		; 4 cyc
	beq -			; 3 cyc
	sta tapebuffer+(i-1),x	; 5 cyc
}
	txa			; 2 cyc
	sbx #-4			; 2 cyc
	bne asynctransfer	; 3 cyc

!cpu 6510

	ldx #$00
asynctransfer
	lda cartport		; 4 cyc
-	cmp cartport		; 4 cyc
	beq -			; 3 cyc
	lda cartport		; 4 cyc
-	cmp cartport		; 4 cyc
	beq -			; 3 cyc
	sta tapebuffer,x	; 5 cyc

	lda cartport		; 4 cyc
-	cmp cartport		; 4 cyc
	beq -			; 3 cyc
	lda cartport		; 4 cyc
-	cmp cartport		; 4 cyc
	beq -			; 3 cyc
	sta tapebuffer+1,x	; 5 cyc

	lda cartport		; 4 cyc
-	cmp cartport		; 4 cyc
	beq -			; 3 cyc
	lda cartport		; 4 cyc
-	cmp cartport		; 4 cyc
	beq -			; 3 cyc
	sta tapebuffer+2,x	; 5 cyc

	lda cartport		; 4 cyc
-	cmp cartport		; 4 cyc
	beq -			; 3 cyc
	lda cartport		; 4 cyc
-	cmp cartport		; 4 cyc
	beq -			; 3 cyc
	sta tapebuffer+3,x	; 5 cyc

	txa			; 2 cyc
	sbx #$fc		; 2 cyc
	bne asynctransfer	; 3 cyc

!byte $cb, $fc

.byte $cb, $fc

	lda #0			; 2cyc
	ldx #32			; 2cyc
	
loop:

; (8 kere tekrarla) = 16cyc * 8 = 128cyc 	

-	cmp cartport	; 4cyc Port değişimini bekle ...
	bne -			; 3cyc
	lda cartport	; 4cyc Port degisti, degeri al,
	sta buffer+n,x	; 5cyc yerine koy
	
; Simdi bu 8 byte'ın LSB bitleri bir byte olarak gelecek .... 13+8*9+2+5 = Toplam 92cyc 
	
-	cmp cartport		; 4cyc Port değişimini bekle ...
	bne -				; 3cyc
	lda cartport		; 4cyc Port degisti, A içerisinde önceki 8 byte'ın LSB degerleri var.
	tay					; 2cyc Bunu şimdilik saklayalım çünkü port değişimi kontrolünde ihtiyacımız var ...

	rol a				; 2cyc 7.biti Carry'e al
	ror buffer+0,x		; 7cyc İlgili adrese yerleştir ...
	rol a				; 2cyc 6.biti al 
	ror buffer+32,x		; 7cyc 
	rol a				; 2cyc
	ror buffer+64,x		; 7cyc
	rol a				; 2cyc
	ror buffer+96,x		; 7cyc
	rol a				; 2cyc
	ror buffer+128,x	; 7cyc
	rol a				; 2cyc
	ror buffer+160,x	; 7cyc
	rol a				; 2cyc
	ror buffer+196,x	; 7cyc
	rol a				; 2cyc
	ror buffer+228,x	; 7cyc
	
	tya				; 2cyc
	
	dex				; 2cyc
	bne loop		; 3cyc 

	lda #0			; 2cyc
	ldx #32			; 2cyc
	
loop:

; 14cyc

-	cmp cartport	; 4cyc Port değişimini bekle ...
	bne -			; 3cyc
	lda cartport	; 4cyc Port degerini al, bu sonraki 8 byte'ın gerçek MSB degeri olacak ...
	sta $FF 		; 3cyc Zero page'de dursun ...
	
; (8 kere tekrarla) = 25cyc * 8 = 200cyc 	

-	cmp cartport	; 4cyc Port değişimini bekle ...
	bne -			; 3cyc

	lda cartport	; 4cyc Port degisti, degeri al,
	rol $FF			; 5cyc Zero page'de duran MSB bit degiskeninin 7.bitini caarry'e al.
	ror a			; 2cyc Carry deki deger A'ya kaydır ...
	sta buffer+n,x	; 5cyc yerine koy
	rol a			; 2cyc A'yı eski haline cevir ...
	
; loop control 5cyc
	
	dex				; 2cyc
	bne loop		; 3cyc 

void CartInterface::InitCustomTransfer()  {
  /* Cart software waits for data while page is negative */
  SetPage(0x80);    
  delayMicroseconds(d1);  
  /* Enable cartridge so on restart rom code is executed */    
}

void CartInterface::TransmitCustomByteAsync(uint8_t value)  {    
  /* Send the upper 7 bits as [0XXXXXXX], a positive value */
  SetPage((value >> 1) & 0x7F);
  
  /* Delay a bit to keep the pace */
  delayMicroseconds(d2);
  
  /* Cart software waits for data while page is negative
     with 8th bit value as [X000000X] */  
  SetPage(0x80 | (value & 0x01));  
  /* Delay a bit to keep the pace */
  delayMicroseconds(d3);    
}

;------------------------------------------------ TEST BED	
; load stub
	ldx #$00
	
asynctransfer
-	lda cartport			;4 
	bmi -					;3
	sta buffer,x			;5
-	lda cartport			;4
	bpl -					;3
	lsr						;2
	rol buffer,x			;7
	
	inx						;2
	bne asynctransfer		;3

;------------------------------------------------ TEST BED