; hello8.video.asm
; Neil Gershenfeld CBA MIT 11/11/05
; RS170 hello-world
;

.include "tn13def.inc"
.def temp = R18
.def temp1 = R19
.def one = R20
.def sync = R21
.def black = R22
.def count = R23
.def refresh = R24

.cseg
.org 0
rjmp reset

;
; video lines
;
blackline:
;   .db 0b00,0b00,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01
   .db 0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01,0b01 
line1:
;   .db 0b00,0b00,0b01,0b01,0b11,0b01,0b11,0b01,0b11,0b11,0b11,0b01,0b11,0b01,0b01,0b01,0b11,0b01,0b01,0b01,0b11,0b11,0b11
   .db 0b11,0b11,0b11,0b11,0b11,0b11,0b11,0b11,0b11,0b11,0b11,0b11,0b11,0b11,0b11,0b11,0b11,0b11,0b11
line2:
;   .db 0b00,0b00,0b01,0b01,0b11,0b01,0b11,0b01,0b11,0b01,0b01,0b01,0b11,0b01,0b01,0b01,0b11,0b01,0b01,0b01,0b11,0b01,0b11
   .db 0b11,0b01,0b11,0b11,0b01,0b01,0b11,0b01,0b01,0b11,0b01,0b01,0b11,0b01,0b11
line3:
;   .db 0b00,0b00,0b01,0b01,0b11,0b11,0b11,0b01,0b11,0b11,0b11,0b01,0b11,0b01,0b01,0b01,0b11,0b01,0b01,0b01,0b11,0b01,0b11
   .db 0b11,0b11,0b11,0b11,0b11,0b11,0b11,0b01,0b01,0b11,0b01,0b01,0b11,0b01,0b11
line4:
;   .db 0b00,0b00,0b01,0b01,0b11,0b01,0b11,0b01,0b11,0b11,0b11,0b01,0b11,0b11,0b11,0b01,0b11,0b11,0b11,0b01,0b11,0b11,0b11
   .db 0b11,0b01,0b11,0b11,0b11,0b11,0b11,0b11,0b11,0b11,0b11,0b11,0b11,0b11,0b11
syncline:
   .db 0b01,0b01,0b00,0b00,0b00,0b00,0b00,0b00,0b00,0b00,0b00,0b00,0b00,0b00,0b00,0b00,0b00,0b00,0b00,0b00,0b00,0b00,0b00
;
; output_text_line
;
output_text_line:
   out PORTB, sync
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   out PORTB, black
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   lpm
   out PORTB, R0 ; 1
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 2
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 3
   nop
   add zl, one
   lpm
   out PORTB, R0 ;4
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 5
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 6
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 7
   nop
   add zl, one
   lpm
   out PORTB, R0; 8
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 9
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 10
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 11
   nop
   add zl, one
   lpm
   out PORTB, R0; 12
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 13
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 14
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 15
   nop
   add zl, one
   lpm
   out PORTB, R0; 16
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 17
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 18
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 19
   nop
   nop
   nop
   nop
   nop
   out PORTB, black
   nop
   nop
   ret
;
; output_sync_line
;
output_sync_line:
   lpm
   out PORTB, R0 ; 1
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 2
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 3
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 4
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 5
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 6
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 7
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 8
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 9
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 10
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 11
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 12
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 13
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 14
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 15
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 16
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 17
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 18
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 19
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 20
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 21
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 22
   nop
   add zl, one
   lpm
   out PORTB, R0 ; 23
   nop
   nop
   nop
   nop
   ret
;
; main program
;
reset:
   ldi temp, low(RAMEND) ; set stack pointer to top of RAM
   out SPL, temp ;
   ldi temp, (1 << CLKPCE) ; set clock divider
;  ldi temp1, (0<<CLKPS3) | (0<<CLKPS2) | (0<<CLKPS1) | (0<<CLKPS0) ; /1
;  ldi temp1, (0<<CLKPS3) | (0<<CLKPS2) | (0<<CLKPS1) | (1<<CLKPS0) ; /2
   ldi temp1, (0<<CLKPS3) | (0<<CLKPS2) | (1<<CLKPS1) | (0<<CLKPS0) ; /4
;  ldi temp1, (0<<CLKPS3) | (0<<CLKPS2) | (1<<CLKPS1) | (1<<CLKPS0) ; /8
   out CLKPR, temp ;
   out CLKPR, temp1 ;
   sbi DDRB, PB0 ; output on DAC bits
   sbi DDRB, PB1 ; 
   ldi one, 1
   ldi black, 0b01
   ldi sync, 0b00
   ldi count, 10
   loop:
      mov refresh, count
	  sub_loop1:
      	; 242 image lines
      	ldi temp, 32
      	above_loop:
         	ldi zl,low(blackline*2)
         	ldi zh,high(blackline*2)
         	rcall output_text_line
	 	dec temp
	 	brne above_loop
      	ldi temp, 34
      	line1_loop:
         	ldi zl,low(line1*2)
         	ldi zh,high(line1*2)
         	rcall output_text_line
	 	dec temp
	 	brne line1_loop
      	ldi temp, 34
      	line2_loop:
         	ldi zl,low(blackline*2)
         	ldi zh,high(blackline*2)
         	rcall output_text_line
	 	dec temp
	 	brne line2_loop
      	ldi temp, 34
      	line3_loop:
         	ldi zl,low(line1*2)
         	ldi zh,high(line1*2)
         	rcall output_text_line
	 	dec temp
	 	brne line3_loop
      	ldi temp, 34
      	line4_loop:
         	ldi zl,low(blackline*2)
         	ldi zh,high(blackline*2)
         	rcall output_text_line
	 	dec temp
	 	brne line4_loop
      	ldi temp, 34
      	line5_loop:
         	ldi zl,low(line1*2)
         	ldi zh,high(line1*2)
         	rcall output_text_line
	 	dec temp
	 	brne line5_loop
      	ldi temp, 32
      	below_loop:
         	ldi zl,low(blackline*2)
         	ldi zh,high(blackline*2)
         	rcall output_text_line
	 	dec temp
	 	brne below_loop
      	; 243-7 black lines
      	ldi temp, 5
      	pre_sync_loop:
         	ldi zl,low(blackline*2)
         	ldi zh,high(blackline*2)
         	rcall output_text_line
	 	dec temp
	 	brne pre_sync_loop
      	; 248-50 sync lines
      	ldi temp, 3
      	sync_loop:
         	ldi zl,low(syncline*2)
         	ldi zh,high(syncline*2)
         	rcall output_sync_line
	 	dec temp
	 	brne sync_loop
      	; 251-262 black lines
      	ldi temp, 12
      	post_sync_loop:
         	ldi zl,low(blackline*2)
         	ldi zh,high(blackline*2)
         	rcall output_text_line
	 	dec temp
	 	brne post_sync_loop
	 dec refresh
	 brne sub_loop1
     mov refresh, count
     sub_loop2:
	 
        ; 242 image lines
      	ldi temp, 32
      	above_loop2:
         	ldi zl,low(line1*2)
         	ldi zh,high(line1*2)
         	rcall output_text_line
	 	dec temp
	 	brne above_loop2
      	ldi temp, 34
      	line1_loop2:
         	ldi zl,low(blackline*2)
         	ldi zh,high(blackline*2)
         	rcall output_text_line
	 	dec temp
	 	brne line1_loop2
      	ldi temp, 34
      	line2_loop2:
         	ldi zl,low(line1*2)
         	ldi zh,high(line1*2)
         	rcall output_text_line
	 	dec temp
	 	brne line2_loop2
      	ldi temp, 34
      	line3_loop2:
         	ldi zl,low(blackline*2)
         	ldi zh,high(blackline*2)
         	rcall output_text_line
	 	dec temp
	 	brne line3_loop2
      	ldi temp, 34
      	line4_loop2:
         	ldi zl,low(line1*2)
         	ldi zh,high(line1*2)
         	rcall output_text_line
	 	dec temp
	 	brne line4_loop2
      	ldi temp, 34
      	line5_loop2:
         	ldi zl,low(blackline*2)
         	ldi zh,high(blackline*2)
         	rcall output_text_line
	 	dec temp
	 	brne line5_loop2
      	ldi temp, 32
      	below_loop2:
         	ldi zl,low(line1*2)
         	ldi zh,high(line1*2)
         	rcall output_text_line
	 	dec temp
	 	brne below_loop2
      	; 243-7 black lines
      	ldi temp, 5
      	pre_sync_loop2:
         	ldi zl,low(blackline*2)
         	ldi zh,high(blackline*2)
         	rcall output_text_line
	 	dec temp
	 	brne pre_sync_loop2
      	; 248-50 sync lines
      	ldi temp, 3
      	sync_loop2:
         	ldi zl,low(syncline*2)
         	ldi zh,high(syncline*2)
         	rcall output_sync_line
	 	dec temp
	 	brne sync_loop2
      	; 251-262 black lines
      	ldi temp, 12
      	post_sync_loop2:
         	ldi zl,low(blackline*2)
         	ldi zh,high(blackline*2)
         	rcall output_text_line
	 	dec temp
	 	brne post_sync_loop2
     dec refresh
     brne sub_loop2
     rjmp loop