cgram_disp.asm

5402DSP程序设计语言

;===============================================
; 造字子程序  cgram_make_word
 		.global  cgram_make_word ,cgram_make_word2
 		.ref  write_command ,write_data  
;===============================================
cgram_make_word:
;		stm ar5,ar6          ;??????????
		stm #34h,ar5
        call write_command
        stm #02h,ar5
       	call write_command
		stm  #30h,ar5
		call write_command 
;			b 	cgram_make_word;test
;		stm ar6,ar5			;????????????????
		stm #0H,ar5	
		call write_command   ;test
		stm #40h,ar5
		call write_command 
		stm  #10h,ar7			;LINE COUNTER
		stm  #1000h,ar2			;load "田" word piont
;		stm  #1024h,ar2 		;load "m3/h" piont
make_word_loop:
		mvdk	*ar2+,1023h ;ar5
		call write_data
		mvdk	*ar2+,1023h;ar5
		call write_data
		banz make_word_loop,*ar7-
;		b 	cgram_make_word
		
	    RET
;===============================================
cgram_make_word2:
		stm #34h,ar5
        call write_command
        stm #02h,ar5
       	call write_command
		stm  #30h,ar5
		call write_command 
		stm #0H,ar5	
		call write_command   ;test
		stm #40h,ar5
		call write_command 
		stm  #10h,ar7			;LINE COUNTER
		stm  #1024h,ar2 		;load "m3/h" piont
make_word_loop2:
		mvdk	*ar2+,1023h ;ar5
		call write_data
		mvdk	*ar2+,1023h;ar5
		call write_data
		banz make_word_loop2,*ar7-
		ret