LVerLine: clr	Select
          mov	r3,  #0b8h      ;start with first page
VerLup1:  mov	a,  #40h	;problem here...
     	  call	Write_Instr     ;1st Column CS1 
     	  mov	a,  r3          ;page address
     	  call	Write_Instr     
     	  mov	a,  #0ffh
     	  call	Write_Data
     	  mov	a,  #0ffh
     	  call	Write_Data
     	  inc	r3              ;next page now
     	  cjne	r3, #0c0h, VerLup1
     	  ret