;credits lines

.credits_line_empty
	ds 61,0
	ret			;3nops
	
.credits_lines_screen1

	ld BC,#BC04		;3	3	R4 = 32 chars / 256 lines
	ld A,4-1		;2	5
	out (C),C		;4	9
	inc B			;1	10
	out (C),A		;4	14
	dec B			;1	15

scroll_offset1 EQU $+1	
	ld DE,#0507		;3	18		R5 = 0 , no offset
	out (C),D		;4	22
	inc B			;1	23
	out (C),E		;4	27
	dec B			;1	28
			
	ds 61-28
	ret	
	
	
;second screen 32 chars so 256 lines
.credits_lines_screen2

	ld BC,#BC04		;3	3	R4 = 32 chars / 256 lines
	ld A,31-1		;2	5
	out (C),C		;4	9
	inc B			;1	10
	out (C),A		;4	14
	dec B			;1	15
	

scroll_offset2 EQU $+1	
	ld DE,#0501		;3	18		R5 = 0 , no offset
	out (C),D		;4	22
	inc B			;1	23
	out (C),E		;4	27
	dec B			;1	28
		
	ds 61-28
	ret
	
;third screen 4 chars
.credits_lines_screen3

	ld BC,#BC04		;3	3	
	ld A,3-1		;2	5
	out (C),C		;4	9
	inc B			;1	10
	out (C),A		;4	14
	dec B			;1	15


	ld DE,#0500		;3	18		R5 = 0 , no offset
	out (C),D		;4	22
	inc B			;1	23
	out (C),E		;4	27
	dec B			;1	28

		
	ds 61-28
	ret
	
	