;-------------------------------------------------------------
; Armpit Scheme 00.0160 LCD Output Port WRITE Example.
; For IDM-L35.
;-------------------------------------------------------------
; SSD2119
; 240x320 pixels (row x col)
; 16-bit color
; parallel interface
;-------------------------------------------------------------

; open the output file
(define p (open-output-file "init-lcd-write"))

; store the font in the LCD output port
(write
 '(let
   ((font
    (install
     '#(0 0 #x604b 0
        #x0001 #x0000 #x0201 #x2108 #x0001 #x5294 #xF501 #x57D5 
        #x5F11 #x7D1C #xBF01 #x7E88 #x6781 #x4513 #x0001 #x1110 
        #x8201 #x2210 #x2201 #x2084 #xEA81 #xABBE #x4201 #x213E 
        #x4221 #x0000 #x0001 #x003E #xC601 #x0000 #x8801 #x0888 
        #xB701 #x76E3 #x4F81 #x6508 #x8F81 #x744C #x1F01 #xF05C 
        #x1081 #x8C7E #x1701 #xF43C #x1701 #x743D #x4401 #xF844 
        #x1701 #x745D #x1701 #x745E #xC601 #x6300 #x4221 #x6300 
        #x4101 #x1110 #xF001 #x07C1 #x4401 #x4104 #x4011 #x744C 
        #xF701 #x746F #x1881 #x747F #x1F01 #xF47D #x1701 #x7461 
        #x1F01 #xF463 #x0F81 #xFC3D #x0801 #xFC3D #x1701 #x7427 
        #x1881 #x8C7F #x4F81 #xF908 #x2601 #x3885 #xA481 #x4A98 
        #x0F81 #x8421 #x1881 #x8EEB #x3881 #x8E6B #x1701 #x7463 
        #x0801 #xF47D #x2681 #x746B #x2881 #xE4B9 #x1701 #x741C 
        #x4201 #xF908 #x1701 #x8C63 #xA201 #x8C62 #xB881 #x8C6B 
        #xA881 #x8A88 #x4201 #x8A88 #x8F81 #xF888 #x8781 #x7A10 
        #x2081 #x8208 #x1781 #x7842 #x0001 #x22A2 #x0F81 #x0000 
        #x0001 #x4104 #x9381 #x304E #x9701 #x421C #x8301 #x000C 
        #x9381 #x084E #x8301 #x325C #x8401 #x3A1C #x7099 #x01D2 
        #x9481 #x421C #x4201 #x2008 #x2511 #x1004 #xA481 #x4298 
        #x4101 #x2108 #x5A81 #x003D #x9481 #x001C #x9301 #x000C 
        #xE421 #x0392 #x7085 #x01D2 #xA401 #x0018 #x3701 #x01D8 
        #x4101 #x23C8 #x2681 #x0025 #xA201 #x0022 #x5781 #x002B 
        #x4501 #x0014 #x7099 #x0252 #x4781 #x03C4 #x8601 #x6220 
        #x4211 #x2108 #x2301 #x3082 #x2001 #x022A #x0001 #x0000))))
   (set-car! (cddar lcop) font))
  p)

; install putc function in LCD output port
(write
 '(vector-set! (cdr lcop) 4 
   (install
    '#(#x27 0 #xeb 0
       #xA22A #xF8C2 #xE000 #xA22A #x6013 #xF003 #xCFF #x682F
       #x687F #x683F #x6A3B #xF09C #xF0D #xBF0C #x461A #x68BA
       #xF09C #xF08 #xBF08 #x3A04 #xF8D7 #xC004 #x429A #xBF5C
       #x2201 #xF10C #xC04 #x2A01 #xBF44 #x1F1A #xF1AC #xC04
       #x69FB #xF1BC #xF01 #xBF44 #x2201 #xF1A3 #xC04 #xF8C7
       #xC004 #x60BA #x693A #xEA9C #xF02 #xBF1C #xA205 #x4697
       #xF04F #x301 #x686F #xF8D7 #xC024 #xF10C #xC04 #xF20F
       #xE04 #x46E7 #xA20E #x6813 #x686F #xF8D7 #xC018 #xF10C
       #xC04 #xF20F #xE04 #x46E7 #xA208 #xF8D2 #xE000 #xA208
       #x6813 #x682F #x687F #x683F #xF003 #xCFF #xF1BC #xF20
       #xBF5E #x68BA #x3204 #x60BA #x46F7 #x46C0 #x0 #x0
       #x0 #x0)))
 p)

; install lcdptc function in LCD output port
(write
 '(vector-set! (cdr lcop) 5 
   (install
    '#(#x27 0 #xeb 0
       #xA25C #xF8C2 #xE000 #x686F #xF8D7 #xC01C #xF10C #xC04
       #xA259 #xF8C2 #xC000 #xA259 #x6013 #x682F #x687F #x683F
       #xF04F #x34E #xF8D7 #xC008 #xF02C #xC03 #xEB0C #xC5C
       #xF10C #xC01 #xF20F #xE06 #xA24F #x6812 #x4697 #xF04F
       #x345 #xF20F #xE08 #xA24C #x6812 #x4697 #xF04F #x346
       #xF10C #xC04 #xF20F #xE06 #xA247 #x6812 #x4697 #xF04F
       #x34F #x687A #xF022 #xC03 #xEB0C #xC5C #xEB0C #xC92
       #xF10C #xC01 #xF20F #xE06 #xA23F #x6812 #x4697 #xF04F
       #x344 #xEA4C #x2C0C #xF50C #x6CA0 #xF20F #xE08 #xA23A
       #x6812 #x4697 #xF04F #x322 #x682F #x687F #x683F #xF8D7
       #xC018 #xEA4F #xC9C #xF44C #x1CE8 #xF20F #xE08 #xA232
       #x6812 #x4697 #xA231 #xF8D2 #xC000 #xF00C #xCFF #xF1BC
       #xF20 #xBF44 #xA21B #x4697 #x682F #x687F #x687F #x683F
       #xF1AC #xC1F #xF857 #x302C #x682F #x687F #x683F #x69BA
       #xF8D7 #xE014 #xF013 #x4F00 #xBF0C #x4694 #x46F4 #xEA4F
       #xC9C #xF04F #x4780 #xF447 #x47A0 #xF8C7 #xC3FC #xEA4F
       #x2C1C #xF447 #x3700 #xF8C7 #xC3FC #xF447 #x5700 #xF04F
       #xC08 #xF8C7 #xC028 #xF04F #xCFF #xBF00 #xF8C7 #xC008
       #xEA4F #x343 #xF093 #xF02 #xBF1E #xF083 #x303 #xF2AF
       #xC4C #x46E7 #xF04F #x345 #xF04F #xC00 #xF20F #xE06
       #xA20D #x6812 #x4697 #xF04F #x346 #xF04F #xC3F #xF44C
       #x7C80 #xF20F #xE08 #xA208 #x6812 #x4697 #xF04F #x344
       #xF44F #x4C6F #xF20F #xE0C #xF8DE #xE000 #xA202 #x6812
       #x4697 #x46C0 #x0 #x0 #x0 #x0 #x0 #x0)))
 p)

; install scrollup function in LCD output port
(write
 '(vector-set! (cdr lcop) 8
   (install
    '#(#x27 0 #xeb 0
       #xA22B #xF8C2 #xE000 #x686F #xF8D7 #xC01C #xF10C #xC04
       #xA228 #xF8C2 #xC000 #x682F #x687F #x683F #xF8D7 #xC004
       #xF09C #xF89 #xBF08 #xF04F #xC01 #xF8C7 #xC004 #xF10C
       #xC04 #xF8C7 #xC010 #xF04F #x30F #x687A #xF1C2 #x285
       #xF022 #xC03 #xEB0C #xC5C #xEB0C #xC92 #xF20F #xE06
       #xA218 #x6812 #x4697 #xF04F #x34E #xF04F #xC00 #xF20F
       #xE08 #xA214 #x6812 #x4697 #xF04F #x34F #x687A #xF022
       #xC03 #xEB0C #xC5C #xEB0C #xC92 #xF10C #xC01 #xF20F
       #xE08 #xA20C #x6812 #x4697 #xF04F #x322 #x682F #x687F
       #x683F #xF8D7 #xC018 #xEA4F #xC9C #xF44C #xC7F #xF04C
       #x6C10 #xF20F #xE0C #xF8DE #xE000 #xA202 #x6812 #x4697
       #x0 #x0 #x0 #x0)))
 p)

; close the file
(close-output-port p)