.cr	Z80
		.tf	test.bin,BIN
		.lf	test.lst
BVAR	.eq		$8000
		.or 	$0000		
        ; na fochy coniektorych CPU
		nop
		nop
		nop
		nop
        ; inicjalizacja 8255, wszystko OUT
		ld A,$80
		out ($E0+3),A
		xor A
		out ($E0+0),A
		out ($E0+1),A
		; impulsy numer jeden, na port PA
main:	
		inc A
		out ($E0+0),A
        jp main

        ; impulsy numer 2, w NMI, na port PB
		.no $66
		push AF
		push HL
		ld HL,BVAR
		ld A,(HL)
		inc A
		ld (HL),A
		out ($E0+1),A
		pop HL
		pop AF
		retn

.cr	Z80
		.tf	dlr1414-1.bin,BIN
		.lf	dlr1414-1.lst

PA_8255	.eq	$E0
PB_8255	.eq	$E1
PC_8255	.eq	$E2
CT_8255	.eq	$E3

		.or 	$0000		
		nop
		nop
		nop
		nop
		jp	main

		; NMI
		.no $66
		retn

main
		call pioInit
loop:

		ld HL, msg1
		call dlr1414putStr
		call delay
		ld HL, msg2
		call dlr1414putStr
		call delay
		ld HL, msg3
		call dlr1414putStr
		call delay
        jp      loop


msg1:	.az 'to jest test        '
msg2:	.az 'zdobycznych modulkow'
msg3:	.az '  DLR1414 na CA82   '

delay:
		push BC
		ld B,200
.del1
		halt
		halt
		djnz .del1
		pop BC
		ret

;---------------------------------------

pioInit:
		ld A,$80
		out (CT_8255),A
		xor A
		out (PA_8255),A
		out (PB_8255),A
		ret

;---------------------------------------

		; HL - ptr napis 
dlr1414putStr:
		ld B,20			; 20 znaków, 5 x DR1414

.puts:
		ld A,(HL)		; *ptr
		cp 	$00
		jp	Z,.putsEnd
		out (PA_8255),A		
		ld A,B
		dec A
		or A,0x20		; sygnał write, PB.4
		out (PB_8255),A	; __/--
		ld A,B
		out (PB_8255),A   ;       --\__
		inc HL			; ptr++
		djnz .puts
.putsEnd
		ret

    .module crt0
    .globl	_main
    .globl 	_NMI_handler
	.area	_HEADER (ABS)
	; Reset vector
	.org 	0x0000       
init:
	; Stack at the top of memory.
	ld	sp,#0xFFFF       
    ; Initialise global variables
    call    gsinit
	call	_main
1$: jp      1$  
    ; ( !!!! )
	.org 0x0066
	jp _NMI_handler
	; i tak dalej ...

unsigned char hours = 0;
unsigned char minutes = 0;
unsigned char seconds = 0;
unsigned char tenths = 0;
unsigned char nmiCntr = 0;

void updateClock(void) {
	tenths++;
	if ( tenths == 10 ) {
		tenths = 0;
		seconds++;
		if ( seconds == 60 ) {
			seconds = 0;
			minutes++;
			if ( minutes == 60 ) {
				minutes = 0;
				hours++;
				if ( hours == 24 ) {
					hours = 0;
				}
			}
		}
	}
}

void NMI_handler(void) __interrupt __critical {    
	nmiCntr++;
	if ( nmiCntr == 40 ) {
		nmiCntr = 0;
		updateClock(); // co 100 ms.
	}	
}

__sfr __at 0xE0 USER8255_PA;
__sfr __at 0xE1 USER8255_PB;
__sfr __at 0xE2 USER8255_PC;
__sfr __at 0xE3 USER8255_CTRL;

void dlr1414putStr( char *pS ) {
	char *p = pS;
	int n = 19;
	while ( *p && (n >= 0) ) {
		USER8255_PA = *p;
		USER8255_PB	= n;
		USER8255_PB	= 0x20 + n;
		USER8255_PB	= n;
		p++;
		--n;
    }
}

void main( void ) {
    //...
    // ustawienia portu uzytkownika
	USER8255_CTRL = 0x88; // PC74-in, reszta-out
	USER8255_PA = 0x00;
	USER8255_PB = 0x00;
	USER8255_PC = 0x01; //  /CS=1, CLK=0    
    //...
}

unsigned short getTLC1549( void ) {
	unsigned short out = 0;
	unsigned char n;
	USER8255_PC = 0;	// CLK=0, /CS=0
	for ( n = 0; n < 10; n++ ) {
		out = out << 1;
		out = out | ( USER8255_PC & 0x80 ? 1 : 0 );
		USER8255_PC = 2; // CLK=1, /CS=0
		USER8255_PC = 0; // CLK=0, /CS=0
	}
	USER8255_PC = 1;	// CLK=0, /CS=1	
	return out;
}