Interfacing a Hantronix 128x64 Graphic Module to an 8-bit ...

Application NoteCrystalClearandVisiblySuperior LCDModulesSoftware Source Code:$MOD751;**************************************************;* *;* HD61202 Application Note V1.0 *;* *;**************************************************;The processor clock speed is 16MHz.;Cycle time is .750mS.;HD61202 demo software to display;the Hantronix logo on a128 x64 LCD.orgljmporg00hstart100h;Initialize the 64gs12Start:mov p3,#00mov r0,#00h ;set 64gs12 leftmov dptr,#msgi1 ;initialization byteslcall commandmov r0,#01h ;set 64gs12 rightmov dptr,#msgi1 ;initialization byteslcall command;Display patternmov r4,#0b8h ;page commandmov r5,#08h; ;page countLoop1:mov r0,#00h ;set 64gs12 leftmov dptr,#msg1llcall byteclr p3.1 ;set commandinc r4 ;bump page addmov a,r4mov r1,alcall writedjnz r5,loop1 ;repeat 8timesmov r4,#0b8h ;page add. Commandmov r5,#8h ;page countLoop2:mov r0,#01h ;set 64gs12 rightmov dptr,#msg1rlcall byteclr p3.1 ;set commandinc r4 ;bump page addmov a,r4mov r1,alcall writedjnz r5,loop2 ;repeat 8timessjmp $ ;end;*************************************************;SUBROUTINES;COMMAND sends the byte pointed to by;the DPTR to the graphics module;as aseries of commands.Command:clr p3.1 ;set commandCommand2:clr amovc a,@a+dptr ;get bytecjne a,#099h,command1 ;done?RetCommand1:mov r1,alcall write ;send itinc dptrsjmp command2;BYTE sends the byte pointed to by;the DPTR to the graphics module;as aseries of data bytes.Byte:setb p3.1 ;set datasjmp command2;WRITE sends the byte in R1 to the;display.Write:mov a,r0 ;CS the displayjnz write1 ;right halfsetb p3.2 ;left halfWrite2:mov p1,r1 ;get datasetb p3.0 ;strobe itNopclr p3.0clr p3.2 ;de-select moduleclr p3.3RetWrite1:setb p3.3sjmp write2Page 4