;************************************************
; ‰Â‹t‰æ‘œˆ³kƒtƒH[ƒ}ƒbƒg BARGAIN 14.2 ‹Zp‰ðà
;                    ` ‚Ü‚½—·Žx“x (C)2011 KATSU
;************************************************

; ƒo[ƒQƒ“ˆ³k‚Ì“Á’·
;PPPPPPPPPP
; LZ–@‚ð—y‚©‚É—½‚®ˆ³k—Í‚Æ‚‘¬ˆ—‚ð—¼—§‚µ‚½‰æ‘œˆ³k–@‚Å‚·B
; ƒAƒjƒ’²‚©‚çŽ©‘R‰æ‚Ü‚Å‚ ‚è‚Æ‚ ‚ç‚ä‚é‰æ‘œ‚É‘Î‰ž‚µ‚Ä‚¢‚Ü‚·B
; ƒƒWƒJƒ‹ƒIƒyƒŒ[ƒVƒ‡ƒ“AƒCƒ“ƒ^[ƒŒ[ƒX•\Ž¦AˆÃ†‰»‚à‘•”õB


; ‰æ‘œ‚ðƒ^ƒCƒ‹‰»‚µ‚Ä‘–¸‚·‚é
;PPPPPPPPPPPPPP
; ‰æ‘œ‚ðƒ^ƒCƒ‹ó(•ªŠ„‰æ‘œ)‚É•ªŠ„‚µ‚Ä‘–¸‚µ‚Ä‚¢‚«‚Ü‚·B
; ‰æ‘œ‚Ì—¼’[‚ÅÜ‚è•Ô‚·‚±‚Æ‚Åƒ^ƒCƒ‹‚Ì‚Â‚È‚ª‚è‚ð—Ç‚­‚µ‚Ä‚¢‚Ü‚·B

; „¬„ª„¶„ª„¶„ª„¶„ª„¶„ª„ª‰æ‘œ„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­ •ªŠ„‰æ‘œƒTƒCƒY
; „«‡@  ‡A  ‡B  d„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„¢„« (SC8`12) 16x16ƒhƒbƒg
; „µ„Ÿ„¨„Ÿ„¨„Ÿ„¨„Ÿ„¨                          „ „« (SC5,SC7) 32x16ƒhƒbƒg
; „«„¡„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„£„« (  SC6  ) 64x16ƒhƒbƒg
; „«„                   „¬•ªŠ„‰æ‘œ              „«
; „«„¤„Ÿ„Ÿ„Ÿ„Ÿ‰ß‹Ž’Tõ©„·  „µ¨‘–¸            „« ‘ƒ^ƒCƒ‹”    224–‡
; „«                    „¯„ª„®                  „« ‰ß‹Ž’Tõ” 24,976–‡

; ƒ^ƒCƒ‹‚ªˆê‚Âi‚Þ–ˆ‚É‰ß‹Ž‚É‚³‚©‚Ì‚Ú‚Á‚Ä•ªŠ„‰æ‘œ‚Æ“¯‚¶ƒ^ƒCƒ‹‚ð’T‚µ‚Ü‚·B
; a)ƒ^ƒCƒ‹ƒ‰ƒ“ƒŒƒ“ƒOƒX‚Í“¯‚¶ƒ^ƒCƒ‹‚ª˜A‘±‚·‚éŒÂ”‚Å•„†‰»‚µ‚Ü‚·B
; b)ƒ^ƒCƒ‹ƒCƒ“ƒfƒbƒNƒX‚Í‰ß‹Ž‚Ìƒ^ƒCƒ‹‚ÌŽQÆ”Ô†‚Å•„†‰»‚µ‚Ü‚·B
; c)‚È‚¯‚ê‚ÎŽQÆ”Ô†(‡@‡A‡Bd)‚ð“o˜^‚µ‚Ä•ªŠ„‰æ‘œ“à‚Ì‰æ‘f‚ð˜A’·•ÏŠ·‚µ‚Ü‚·B


; •ªŠ„‰æ‘œ“à‚Ì‰æ‘f‚ð˜A’·•ÏŠ·‚·‚é
;PPPPPPPPPPPPPPPP
; •ªŠ„‰æ‘œ“à‚ð4Œn“‚Ì‰æ‘œ‚ÉÅ“K‰»‚³‚ê‚½8Ží—Þ‚Ì‘–¸–@‚ÅF‚Ì•Ï‰»”‚ð”äŠr‚µ‚Ü‚·B
; •ªŠ„‰æ‘œ“à‚ÅÜ‚è•Ô‚·‚±‚Æ‚Å‰æ‘f‚Ì‚Â‚È‚ª‚è‚ð—Ç‚­‚µ‚Ä‚¢‚Ü‚·B
; F‚Ì•Ï‰»”‚ªÅ­‚É‚È‚é‘–¸–@‚Å˜A’·•ÏŠ·‚µ‚ÄF‚Æ’·‚³‚ð•„†‰»‚µ‚Ü‚·B

;            ‰¡             ¶45            c(*)           ‰E45
;     „¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­
;     „«0 1 2 d E F„«„«0 1 5 6   ^„«„«F „¢„¡„¢„¡„¢„«„«_    dFDFF„«
;     „«„¡„Ÿ„Ÿ„Ÿ„Ÿ„£„«„«2 4 7   ^  „«„«E „ „ „ „ „ „«„«  _      FE„«
;     „«„¤„Ÿ„Ÿ„Ÿ„Ÿ„¢„«„«3 8   ^    „«„«: „ „ „ „ „ „«„«6   _      „«
;   „¡„·„¡„Ÿ„Ÿ„Ÿ„Ÿ„£„µ„·9   ^    F„µ„·2 „ „ „ „ „ „µ„·5 7   _    „µ„¢
;   „ „«„¤„Ÿ„Ÿ„Ÿ„Ÿ„¢„«„«  ^      FD„«„«1 „ „ „ „ «„«„«1 4 8   _  „«„ 
;   „ „«FF©„Ÿ„Ÿ„Ÿ„£„«„«^      FEFF„«„«0 „¤„£„¤„£FF„«„«0 2 3 9   _„«„ 
; ’Ê„ „¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®„ 
; í„§      ¶27            ¶63            ‰E63            ‰E27      „ 
;   „ „¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­„ 
;   „ „«0 1 2 5 6 B „«„«0 3 8 E    /„«„«B    „    FF„«„«_Q    dFF„«„ 
;   „ „«3 4 7 A C   „«„«1 4 9 F   / „«„«6 C   _  F„«„«    _Q    „«„ ‚l
;   „¤„·8 9 D     Q„µ„·2 7 D    /  „µ„·5 A    „    „µ„·E F     _Q„«„¥‚‰
;     „«E F   Q^  „«„«5 A     /   „«„«2 7 D   _  „«„«8 9 D       „«„ ‚˜
;     „«  Q^      „«„«6 C    /  F„«„«1 4 9 F  „  „«„«3 4 7 A C   „«„ 
;     „«^      dFF„«„«B     /   FF„«„«0 3 8 E   _„«„«0 1 2 5 6 B „«„ 
;     „¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®„ 
;          ‰¡Žs¼         ¶45Žs¼         cŽs¼          ‰¡‰•œ     „ 
;     „¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­„ 
;     „« 0 FF  1 FE`„«„«0 FF1 FA  ^„«„« `  `  `„¡„¢„«„« 0  1  2d F„«„ 
;     „«F0  F F1  E`„«„«FE2 FB  ^  „«„«     F „ „ „«„«FF©„Ÿ„Ÿ„Ÿ„ „«„ 
;     „«10 EF 11 EE`„µ„·3 FC  ^    „µ„·FE  E EE„ „ „µ„·„¡„Ÿ„Ÿ„Ÿ„Ÿ„£„µ„£
;     „«     F     „«„«FD  ^      „«„« 1 F1 11„ ª„«„«     F     „«
;     „«d„Ÿ„Ÿ„Ÿ„Ÿ„¢„«„«  ^      •œ„«„«FF  F EF„ ‰„«„«„¤„Ÿ„Ÿ„Ÿ„Ÿ„¢„«
;     „«‰•œ„Ÿ¨„Ÿ„£„«„«^      ‰  „«„« 0 F0 10F•œ„«„«„¤‰•œ„Ÿ„Ÿ„£„«
;     „¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®
;          ‰¡ˆø•Ô         ‰¡ƒfƒBƒU         c‰•œ        cƒnƒjƒJƒ€
;     „¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­
;     „«0 F 1 E d 8„«„« 0 80  1 81`„«„«F „Ÿ„¢„¢„¡„¢„«„« `  `  `„¡„¢„«
;     „« /          „«„«FF 7F FE 7E`„«„«E „ „ „ „ „ „«„«     F „ „ „«
;     „«0 F 1 E d 8„«„« F 90  E 8F`„«„«: „ „ „ „ „ „«„«7E FE  E„ ª„«
;   „¡„·     F     „µ„·     F     „µ„·2 „ „ „ „ ‰„µ„· 1 81 F1„ “ñ„«
;   „ „«¨„Ÿ„Ÿ„Ÿ„Ÿ©„«„«d„Ÿ„Ÿ„Ÿ„Ÿ„¢„«„«1 «„ „ „ •œ„«„«7F FF  F„ ‰„«
;   „ „«¨FF©„Ÿˆø•Ô„«„«“ñ‰•œ„Ÿ¨„£„«„«0 FF„¤„Ÿ„£„£„«„« 0 80 F0F•œ„«
; ƒf„ „¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®
; ƒB„§     ‰¡Žs¼         ¶45Žs¼        cŽs¼(*)       ‰E45Žs¼
; ƒU„ „¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­
;   „ „« 0 FF  1 FE`„«„«0 FF1 FA  ^„«„« `  `  `„¡„¢„«„«_      ‰  „«
;   „ „«F0  F F1  E`„«„«FE2 FB  ^  „«„«     F „ „ „«„«  _      •œ„«
;   „¤„·10 EF 11 EE`„µ„·3 FC  ^    „µ„·FE  E EE„ „ „µ„·FA  _      „«
;     „«     F     „«„«FD  ^      „«„« 1 F1 11„ ª„«„«1 FB  _    „«
;     „«d„Ÿ„Ÿ„Ÿ„Ÿ„¢„«„«  ^      •œ„«„«FF  F EF„ ‰„«„«FF2 FC  _  „«
;     „«‰•œ„Ÿ¨„Ÿ„£„«„«^      ‰  „«„« 0 F0 10F•œ„«„«0 FE3 FD  _„«
;     „¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®
;        ‰¡ˆø•ÔYJK         ‰¡YJK         cˆø•ÔYJK         cYJK
;     „¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­
;     „«0 8 7 F 1dC„«„«0 80 7F FF 1„«„«„¡Žl‰•œ¨d„«„«F „¢„¡„¡„Ÿ„¢„«
;     „«      «    „«„«„¡„Ÿ„Ÿ„Ÿ„Ÿ„£„«„«     F     „«„«E „ „ „ „ „ „«
;     „«F 7 8 0 Ed3„«„«„¤„Ÿ„Ÿ„Ÿ„Ÿ„¢„«„«3E BE 7E FE`„«„«: „ „ „ „ “ñ„«
;   „¡„·     F     „µ„·„¡„Ÿ„Ÿ„Ÿ„Ÿ„£„µ„· 1 81 41 C1`„µ„·2 „ „ „ „ ‰„«
;   „ „«„¤¨„Ÿ„¡„Ÿ©„«„«„¤„Ÿd„Ÿ„Ÿ„¢„«„«3F BF 7F FF`„«„«1 „ «„ „ •œ„«
;   „ „«FF©‰•œˆø•Ô„«„«“ñ‰•œ„Ÿ¨„£„«„« 0 80 40 C0`„«„«0 „¤FF„£„¤„£„«
; ‚x„ „¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®
; ‚i„§  ‰¡ˆøÜ•ÔYJK     cˆøÜ•ÔYJK         c(*)      cˆø‰•œÜ•ÔYJK
; ‚j„ „¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­„¬„ª„ª„ª„ª„ª„ª„­
;   „ „« 0 80 7F©“ñ„«„« 0 80 7F 9F`„«„«0 „¡„¢„¡„¢FF„«„« 0 80 7F FF`„«
;   „ „«3F 8F 40¨‰„«„«3F 81 40 9E`„«„«1 „ „ „ „ ª„«„«3F 81 40 FE`„«
;   „¤„· 7 90 78¨•œ„µ„· 1 82 7E 9D`„µ„·2 „ „ „ „ „ „µ„· 1 82 7E FD`„«
;     „«38 9F 47©«„«„«3E 83 41 9C`„«„«: „ „ „ „ „ „«„«3E 83 41 FC`„«
;     „«     F     „«„«     F     „«„«E „ „ „ „ „ „«„«     F     „«
;     „«20 FF© d  „«„«„¤„Ÿ“ñ‰•œ¨„«„«F „£„¤„£„¤„£„«„«„¤„ŸŽO‰•œ¨„«
;     „¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®„¯„ª„ª„ª„ª„ª„ª„®
;             (*)‰æ–Ê‚ð¶•ûŒü‚Éƒ^ƒCƒ‹‘–¸‚·‚é‚Æ‚«‚Éƒ}ƒgƒŠƒbƒNƒX‚à”½“]

; „¡„¢„¡„¢„¡„¢„¡„¢„¡„¢„¡„¢
; „ „ „ „ „ „ „ „ „ „ „ „  ¨‰Eƒ^ƒCƒ‹‘–¸Žž
; „ „¤„£«„ „¤„£«„ „¤„£«

; „¡„¢„¡„¢„¡„¢„¡„¢„¡„¢„¡„¢
; „ „ „ „ „ „ „ „ „ „ „ „  ©¶ƒ^ƒCƒ‹‘–¸Žž
; «„¤„£„ «„¤„£„ «„¤„£„    cƒ}ƒgƒŠƒbƒNƒX‚ð”½“]‚µ‚Ä‰æ‘f‚Ì‚Â‚È‚ª‚è‚ð—Ç‚­‚·‚é


;<8Ží—Þ‚Ìƒ}ƒgƒŠƒbƒNƒX‚Ì—Dæ‡ˆÊ>

; ƒmƒ“ƒCƒ“ƒ^[ƒŒ[ƒX‰æ‘œ   ƒCƒ“ƒ^[ƒŒ[ƒX‰æ‘œ
;         ~‡                     ¸‡
;  „¡„¢8„¡„¢7„¡„¢6„¡„¢5     „¡„¢1„¡„¢2„¡„¢3„¡„¢4
;  „¤„£ „¤„£ „¤„£ „¤„£      „¤„£ „¤„£ „¤„£ „¤„£
;  „¡„¢4„¡„¢3„¡„¢2„¡„¢1     „¡„¢5„¡„¢6„¡„¢7„¡„¢8
;  „¤„£ „¤„£ „¤„£ „¤„£      „¤„£ „¤„£ „¤„£ „¤„£
; ¦ƒCƒ“ƒ^[ƒŒ[ƒXƒ‚[ƒh‚ðOFF‚É‚·‚é‚Æ‚Ç‚¿‚ç‚à¸‡‚É‚È‚è‚Ü‚·B


;<YJKƒ}ƒgƒŠƒbƒNƒX•ÏŠ·>

; YJK‰æ‘f‚Ì‰ºˆÊ3bit‚É‚ ‚éF‘Š¬•ª(KL,KH,JL,JH)‚Ì”z—ñ‚É’…–Ú‚µ‚Ü‚·B
;     „¡„ŸcÜ•Ô‚µ„Ÿ„Ÿ„¢
;   „¬„¹„¶„ª„¶„ª„¶„ª„¶«„¶„ª„ª„­ “¯‚¶F‘Š‚ðcE‰¡•ûŒü‚É‘S‚Ä‘–¸‚µI‚¦‚½‚ç
; ‰¡¨KL„Ÿ‰¡Ü•Ô‚µ„Ÿ¨KL„Ÿd„¢„« ŽŸ‚ÌF‘Š‚ÉˆÚ‚è‚Ü‚·BŠeF‘Š[64—v‘f]
; „¡„¾KL„ KH„ JL„ JH„ KL©d„£„«
; „¤¨KL„ KH„ JL„ JH„ KL„Ÿd„¢„« KL[*] ¨ JL[*] ¨ KH[*] ¨ JH[*]
; „¡„¾F„ F„ F„ F„ F©d„£„«
; „¤¨KL„ KH„ JL„ JH„ KL¨d„¢„«
; ‰¡„¾KL„ KH„ JL„ JH„ KL©d„£„«
;   „¯ª„¸„ª„¸„ª„¸„ª„¸„¹„¸ª„ª„®
;     c              „¤c„£


; F‚ð•„†‰»‚·‚é
;PPPPPPPP
;<F‚ÌMTF•ÏŠ·>

; ˜A’·•ÏŠ·‚µ‚½F¬•ª‚ð“®“IƒpƒŒƒbƒgã‚Ì‡ˆÊ‚ð•\‚·MTF¦ŒW”‚É•ÏŠ·‚µ‚Ü‚·B
; “®“IƒpƒŒƒbƒg‚Í’¼‘O‚ÌF•Ê‚É256–{—pˆÓ‚³‚ê‚½‚»‚ê‚¼‚ê‚É56F‹L‰¯‚µ‚Ä‚¨‚èA
; ’¼‘OF‚ÌƒpƒŒƒbƒg‚ÆŒ»ÝF‚ÌƒpƒŒƒbƒg‚ð‘o•ûŒü‚ÅXV‚µ‚Ä‚¢‚«‚Ü‚·B(ŠÈˆÕPPM¦)
;			¦Move To Front ¦Prediction by Partial Matching
; —á‚Æ‚µ‚ÄF—ñ{C,A,T,A}‚ðMTFŒW”{0,3,2,1}‚É•ÏŠ·‚·‚é—lŽq‚ð}‰ð‚µ‚Ü‚·B
; ŽÀÛ‚Ì“®“IƒpƒŒƒbƒg‚Í—lX‚È‰Šúó‘Ô‚É‚ ‚è‚Ü‚·‚ªA‚±‚±‚Å‚Í‰ð‚èˆÕ‚­‚·‚é‚½‚ß‚É
; ‘S‚Ä‚ÌƒpƒŒƒbƒg‚Å[d,G,A,T]‚¾‚Á‚½‚Æ‚µ‚Ü‚·B

;   “®“IƒpƒŒƒbƒg[56]x256
;  „¡„Ÿ„¦„Ÿ„¦„Ÿ„¦„Ÿ„¦„Ÿ„¢  ƒpƒŒƒbƒg[0]‚©‚ç<C>‚ð’T‚·B
;„¡„§d  d  G   A   T „                        „¡„Ÿ„¢
;„ „¤56„¨„Ÿ„¨3 „¨2 „¨1 „£  <C>‚ª‚È‚¢B          „ 0 „ MTFŒW”
;[0]            shift„¡„Ÿ„Ÿ„£                   „¤ª„£
;„ „¡©„¦©„¦©„¦©„¦«„¢  æ“ª‚É’Ç‰Á‚·‚éB
;„¥„§d„ G „ A „ T „ C „ 
;„ „¤„Ÿ„¨„Ÿ„¨„Ÿ„¨„Ÿ„¨„Ÿ„£  ƒpƒŒƒbƒg[C]‚ÉØ‚è‘Ö‚¦‚éB
;„¤„Ÿ„Ÿ„Ÿ¨ PPM shift„¢
;  „¡©„¦©„¦©„¦©„¦«„¢  <0>‚ðæ“ª‚É’Ç‰Á‚µ‚Ä<A>‚ð’T‚·B
;„¡„§d„ G „ A „ T „ 0 „                        „¡„Ÿ„¦„Ÿ„¢
;„ „¤„Ÿ„¨„Ÿ„¨3 „¨„Ÿ„¨„Ÿ„£  <A>‚ª3”Ô–Ú‚É‚ ‚éB   „ 0 „ 3 „ 
;[C]         „¡rotate„¢                         „¤„Ÿ„¨ª„£
;„ „¡„Ÿ„¦„Ÿ„¦©„¦©„¦«„¢  æ“ª‚Éo‚·B
;„¥„§d  G „ T „ 0 „ A „ 
;„ „¤„Ÿ„¨„Ÿ„¨„Ÿ„¨„Ÿ„¨„Ÿ„£  ƒpƒŒƒbƒg[A]‚ÉØ‚è‘Ö‚¦‚éB
;„¤„Ÿ„Ÿ„Ÿ¨ PPM shift„¢
;  „¡©„¦©„¦©„¦©„¦«„¢  <C>‚ðæ“ª‚É’Ç‰Á‚µ‚Ä<T>‚ð’T‚·B
;„¡„§d„ G „ A „ T „ C „                        „¡„Ÿ„¦„Ÿ„¦„Ÿ„¢
;„ „¤„Ÿ„¨„Ÿ„¨„Ÿ„¨2 „¨„Ÿ„£  <T>‚ª2”Ô–Ú‚É‚ ‚éB   „ 0 „ 3 „ 2 „ 
;[A]       rotate„¡„Ÿ„¢                         „¤„Ÿ„¨„Ÿ„¨ª„£
;„ „¡„Ÿ„¦„Ÿ„¦„Ÿ„¦©„¦«„¢  æ“ª‚Éo‚·B
;„¥„§d  G   A „ C „ T „ 
;„ „¤„Ÿ„¨„Ÿ„¨„Ÿ„¨„Ÿ„¨„Ÿ„£  ƒpƒŒƒbƒg[T]‚ÉØ‚è‘Ö‚¦‚éB
;„¤„Ÿ¨PPM rotate„¡„Ÿ„¢
;  „¡„Ÿ„¦„Ÿ„¦„Ÿ„¦©„¦«„¢  <A>‚ðæ“ª‚Éo‚µ‚Ä<A>‚ð’T‚·B
;„¡„§d  d  G „ T „ A „                        „¡„Ÿ„¦„Ÿ„¦„Ÿ„¦„Ÿ„¢
;„ „¤„Ÿ„¨„Ÿ„¨„Ÿ„¨„Ÿ„¨1 „£  <A>‚ª1”Ô–Ú‚É‚ ‚éB   „ 0 „ 3 „ 2 „ 1 „ 
;[T](ŠÈˆÕPPM‚Ì—\‘ª‚ª“I’†)                       „¤„Ÿ„¨„Ÿ„¨„Ÿ„¨ª„£
;„ „¡„Ÿ„¦„Ÿ„¦„Ÿ„¦„Ÿ„¦„Ÿ„¢  æ“ª‚È‚Ì‚Å‚»‚Ì‚Ü‚Ü‚É‚·‚éB
;„¤„§d  d  G   T   A „ 
;  „¤„Ÿ„¨„Ÿ„¨„Ÿ„¨„Ÿ„¨„Ÿ„£  ƒpƒŒƒbƒg[A]‚ÉØ‚è‘Ö‚¦‚éB

; ‚±‚Ì“®“IƒpƒŒƒbƒg‚Í‡—ñˆÃ†‚ÌŒ®ƒXƒgƒŠ[ƒ€‚Æ‚µ‚Ä‚à‹@”\‚µ‚Ü‚·B(Å‘åŒ®’·114,688bit)
; ‰æ‘œ‚ÌF”‚ÆˆÃ†‹­“x(—˜_’l¦)‚ÌŠÖŒW@¦F‚ÌoŒ»•p“x‚É‚Í•Î‚è‚ª‚ ‚é‚Ì‚ÅŽÀŒø’l‚Í‘Š“–’á‚¢
; [ F”=C ]-+-------[ Œ®’· ]------------+----------(256P56)^C=[ Œ®‚Ì‘” ]-------------
; [ 1` 56F]  C^2*8=[     8` 25,088bit]    (256!/(256-C)!)^C=[ 256      `1.11e+7394 ]
; [57`256F] C*56*8=[25,536`114,688bit]   (256!/(256-56)!)^C=[1.20e+7526`2.22e+33801]
;           „’è‚³‚ê‚éŽÀŒø’l(C>56‚Ìê‡)¨(256!/(256-C/10)!)^C=[1.36e+781 `1.54e+15641]

;<“®“IƒpƒŒƒbƒg(=‡—ñˆÃ†Œ®)‚Ì‰Šú’l>
; DYNPLT[256,56]=14KB        (0,0)=255 <SC5-12>‹¤’Ê

; <SC5-7>   0 0 x x x x x x  (0,1-55)
;                `_/_/_/_/      „ 
;               _/_/_/_/        „ 
;             _/_/_/_/`         „ 
;            / / / /  `¤`¤      «
;           P P P P 0 0 P P  Palette”z—ñ
;    [ 0]                  [255]„ 
;[ 0]255,  0,  1,d,252,253,254 „ 
;     „¡„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„£
;[ 1] 16, 17, 18,d, 13, 14, 15
;[ 2] 32, 33, 34,d, 29, 30, 31
;[ :]  :         d           :
;[53] 83, 84, 85,d, 80, 81, 82
;[54] 99,100,101,d, 96, 97, 98
;[55]115,116,117,d,112,113,114

; <SC8>     0 0 x x x x x x  (0,1-55)
;              / / / / /  |     „ 
;             / / / / /   |     „ 
;            / / /  | |   |     «
;           G G G 0 R R 0 B  RGB”z—ñ
;    [ 0]                  [255]„ 
;[ 0]255,  0,  1,d,252,253,254 „ 
;     „¡„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„£
;[ 1]  1,  2,  3,d,254,255,  0
;[ 2]  4,  5,  6,d,  1,  2,  3
;[ :]  :         d           :
;[53]201,202,203,d,198,199,200
;[54]204,205,206,d,201,202,203
;[55]205,206,207,d,202,203,204

; <SC10-12> 0 0 x x x x x x  (0,1-55)
;              / / / / /  |     „ 
;             / / / / /   |     „ 
;            / / / / /    |     «
;           Y Y Y Y Y 0 0 J  YJK”z—ñ
;    [ 0]                  [255]„ 
;[ 0]255,  0,  1,d,252,253,254 „ 
;     „¡„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„£
;[ 1]  1,  2,  3,d,254,255,  0
;[ 2]  8,  9, 10,d,  5,  6,  7
;[ :]  :         d           :
;[53]209,210,211,d,206,207,208
;[54]216,217,218,d,213,214,215
;[55]217,218,219,d,214,215,216

;<‹¤’ÊŒ®ˆÃ†>
; ƒJƒŒƒ“ƒgƒhƒ‰ƒCƒu‚É‚ ‚é‹¤’ÊŒ®"*.KEY"‚ÅˆÃ†‰»E•œ†‰»‚ðs‚¢‚Ü‚·B
; 64ÊÞ²Ä‚Ì—”—ñ‚Å“®“IƒpƒŒƒbƒg‚ð512‰ñ‘~‚«¬‚º‚ÄF¬•ª‚ðˆÃ†‰»‚µ‚Ä‚¢‚Ü‚·B

;<F‚Ì•„†‰»>

; •ÏŠ·‚³‚ê‚½MTFŒW”—ñ‚ð7Ží—Þ‚ÌƒpƒŒƒbƒg•„†PƒÁ0`PƒÁ6‚Å•„†—Ê‚ªÅ­‚É‚È‚é‚à‚Ì‚Å•„†‰»‚µ‚Ü‚·B
; ã‚Ì—á‚Å‚ÍF—ñ{C,A,T,A}=32bit‚ªAPƒÁ0•„†{000<C>0110101}=18bit‚Éˆ³k‚³‚ê‚Ü‚·B

;    F—ñ             <C>  <A>  <T>  <A>  32bit
;     «
; MTFŒW”—ñ           <0>  <3>  <2>  <1>  32bit
;     «
; PƒÁ•„† •\Œ»—Í„¡„Ÿ„Ÿ„Ÿ •„ † ‰»„Ÿ„Ÿ„Ÿ„¢•„†—Ê
;    PƒÁ0     7    000<C>  011  010    1  18bit©•„†—Ê‚ªÅ­
;    PƒÁ1    14    000<C> 0100   11   10  19bit
;    PƒÁ2    28    000<C>  110  101  100  20bit
;    PƒÁ3    56    000<C> 1010 1001 1000  23bit
;    PƒÁ4    31  00000<C>  011  010    1  20bit
;    PƒÁ5    62  00000<C> 0100   11   10  21bit
;    PƒÁ6    30   0000<C> 0100   11   10  20bit

; „¡„Ÿ„Ÿ„Ÿ„Ÿ PƒÁ•„†•ÏŠ·Ž®„Ÿ„Ÿ„Ÿ„Ÿ„¢
; „ MTFŒW” + •â‘«” =ƒpƒŒƒbƒg•„†„ 
; „¤„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„£

;    0         =  000[VF] (PƒÁ0`3‹¤’Ê)
;    1               1
;    2`3  + 0 =    01x     <PƒÁ0>
;    4`7          001xx

;    1`2            1x
;    3`6  + 1 =    01xx    <PƒÁ1>
;    7`14         001xxx

;    1`4            1xx
;    5`12 + 3 =    01xxx   <PƒÁ2>
;   13`28         001xxxx

;    1`8            1xxx
;    9`24 + 7 =    01xxxx  <PƒÁ3>
;   25`56         001xxxxx

;    0         =00000[VF] (PƒÁ4`5‹¤’Ê)
;    1               1
;    2`3  + 0 =    01x     <PƒÁ4>
;    4`7          001xx
;    8`15        0001xxx
;   16`31       00001xxxx

;    1`2            1x
;    3`6  + 1 =    01xx    <PƒÁ5>
;    7`14         001xxx
;   15`30        0001xxxx
;   31`62*      00001xxxxx (*57`62‚Íƒ_ƒ~[)

;    0         = 0000[VF]
;    1`2            1x
;    3`6  + 1 =    01xx    <PƒÁ6>
;    7`14         001xxx
;   15`30        0001xxxx


; ’·‚³‚ð•„†‰»‚·‚é
;PPPPPPPPP
; ˜A’·•ÏŠ·‚µ‚½’·‚³¬•ª‚ð<ƒÁ><ƒ¿><ƒÀ>•„†‚Ì‚¤‚¿‚ÅÅ­‚É‚È‚é‚à‚Ì‚Å•„†‰»‚µ‚Ü‚·B

;    ’·‚³        <ƒÁ•„†>
;    1               1
;    2`3           01x
;    4`7          001xx
;    8`15        0001xxx
;   16`31       00001xxxx
;   32`63      000001xxxxx
;   64`127    0000001xxxxxx
;  128`255   00000001xxxxxxx

;    ’·‚³        <ƒ¿•„†>  ¨  <ƒÀ•„†>
;    1               1         ƒ¿•„†‰»‚µ‚½F•Ï‰»bit—ñ‚ðF—ñ‚Æ‚Ý‚È‚µA
;    2              01         ”’[11111111]ˆÈŠO‚È‚çbit‚ð—§‚Ä‚Ä‚»‚ÌF‚ð•t‰Á‚·‚éB
;    3             001
;    4            0001         ‰æ‘œ[Fx256ƒoƒCƒg]
;    5           00001         «’·‚³¬•ª		F—ñ
;    6          000001         ƒ¿[F•Ï‰»bit—ñx32ƒoƒCƒg]=[Fx32ƒoƒCƒg]
;    7         0000001         «
;    8...     00000001...      ƒÀ[”’ˆÈŠObit—ñx4ƒoƒCƒg+”’ˆÈŠO‚ÌF]

; ‰º‚Ì—á‚Å‚Í’·‚³—ñ{1,2,1...1}=255byte‚ªAƒÀ•„†{<128><0><0><0><191>}=5byte‚Éˆ³k‚³‚ê‚Ü‚·B

; ’·‚³—ñ  <1><2><1><1>...<1><1><1>  255byte
;    «  „¡„Ÿ„Ÿ„Ÿ„Ÿ•„ † ‰» „Ÿ„Ÿ„Ÿ„¢ •„†—Ê
; ƒÁ•„†  10101111 11...11 10000000  33byte
; ƒ¿•„†  10111111 11...11 11111111  32byte
; ƒÀ•„†  10000000<0><0><0>10111111   5byte©•„†—Ê‚ªÅ­
;            <128>         <191>


; ‘Î‰ž‹@Ží
;PPPPP
; MSX2ˆÈ~(VRAM128KB) Disk BASIC version 1.0/ 2.01


; ˆ³kƒf[ƒ^‚ÌƒtƒH[ƒ}ƒbƒg
;PPPPPPPPPPPPP
; VRAM Page-0 Address Data                       „¡(SC8,11,12)„Ÿ¨ 8     9...
;                                                „ 
;   0     1     2     3     4     5     6     7  „  8...    39    40    41...
;„¡„Ÿ„Ÿ„¦„Ÿ„Ÿ„¦„Ÿ„Ÿ„¦„Ÿ„Ÿ„¦„Ÿ„Ÿ„¦„Ÿ„Ÿ„¦„Ÿ„Ÿ„¦„Ÿ„Ÿ„©„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„¦„Ÿ„Ÿ„¦„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„¦„Ÿ„Ÿ„¦„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ
;„ X1L   X1H „  Y1 „ Mode„ X3L   X3H „  Y3 „ Ver „ RGB Palette „ Head„    Data   „ Head„   Data ...
;„¤„Ÿ„Ÿ„¨„Ÿ„Ÿ„¨„Ÿ„Ÿ„¨„Ÿ„Ÿ„¨„Ÿ„Ÿ„¨„Ÿ„Ÿ„¨„Ÿ„Ÿ„¨„Ÿ„Ÿ„¨„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„¨„Ÿ„Ÿ„¨„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„¨„Ÿ„Ÿ„¨„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ
;  „¤„ŸŠJŽnˆÊ’u„Ÿ„£ ƒ‚[ƒh „¤„Ÿ ‘å‚«‚³ „Ÿ„£ [142]  (SC5,6,7,10)
;                 „¡„Ÿ„¨„Ÿ„¢
;                  ----xxxx bit 3-0: Logical Operation Code
;                      0000 Pset *Tile Encoder 1000 TPset
;                      0001 And                1001 TAnd
;                      0010 Or                 1010 TOr
;                      0011 Xor                1011 TXor
;                      0100 Preset             1100 TPreset
;                  --xx---- bit 5-4: Encryption Mode
;                    00 Initialize Vector
;                    01 Permutaion Chipher
;                    10 Common Key Chipher
;                  xx------ bit 7-6: Matrix Mode
;                  00 Normal
;                  01 Mix
;                  10 Dither/YJK

; „¡„Ÿ„Ÿ„Ÿ„Ÿ„ŸHeader„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„¢„¡„Ÿ„Ÿ„ŸData„Ÿ„Ÿ„Ÿ„¢
;    ’·‚³ ‚˜   F   ‚˜  ‘–¸       ’·‚³ ‚˜   F
; „¡„Ÿ„Ÿ„Ÿ„¦„Ÿ„Ÿ„Ÿ„Ÿ„¦„Ÿ„Ÿ„Ÿ„Ÿ„¢„¡„Ÿ„Ÿ„Ÿ„¦„Ÿ„Ÿ„Ÿ„Ÿ„¢
; „ ƒÁ  00„ PM0  000„ ‰¡*  000„ „  LIVB „   PƒÁ0  „ 
; „¥      „©        „©        „§„¥„Ÿ„Ÿ„Ÿ„©„Ÿ„Ÿ„Ÿ„Ÿ„§
; „ ƒ¿  01„ PM1  001„ ¶*  001„ „   LA  „   PƒÁ1  „ 
; „¥      „©        „©        „§„¥„Ÿ„Ÿ„Ÿ„©„Ÿ„Ÿ„Ÿ„Ÿ„§
; „ ƒÀ  10„ PM2  010„ c*  010„ „   LB  „   PƒÁ2  „ 
; „¥      „©        „©        „§„¥„Ÿ„Ÿ„Ÿ„©„Ÿ„Ÿ„Ÿ„Ÿ„§
; „ ’·  11„ PM3  011„ ‰E*  011„ „   LN  „   PƒÁ3  „ 
; „¤„Ÿ„Ÿ„Ÿ„©        „©        „§„¤„Ÿ„Ÿ„Ÿ„©„Ÿ„Ÿ„Ÿ„Ÿ„§
;         „ PM4  100„ ¶27*100„         „   PƒÁ4  „ 
;         „¥        „©        „§        „¥„Ÿ„Ÿ„Ÿ„Ÿ„§
;         „ PM5  101„ ¶63*101„         „   PƒÁ5  „ 
;         „¥        „©        „§        „¥„Ÿ„Ÿ„Ÿ„Ÿ„§
;         „ PM6  110„ ‰E63*110„         „   PƒÁ6  „ 
;         „¥        „©        „§        „¥„Ÿ„Ÿ„Ÿ„Ÿ„§
;   ƒ^ƒCƒ‹„ F   111„ ‰E27*111„         „    CN   „ 
; „¡„Ÿ„Ÿ„Ÿ„¨„Ÿ„Ÿ„Ÿ„Ÿ„©„Ÿ„Ÿ„Ÿ„Ÿ„§        „¤„Ÿ„Ÿ„Ÿ„Ÿ„£
; „ %   11       110  RNLN 000„ [RP]ƒ^ƒCƒ‹ƒ‰ƒ“ƒŒƒ“ƒOƒX
; „¤„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„©        „§
;                   „ INDX 001„ [IP]ƒ^ƒCƒ‹ƒCƒ“ƒfƒbƒNƒX
;                   „¥        „§„¡„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„¢
;                   „ –³ˆ³ 010„ „      Bitmap     „ 
;                   „¥„Ÿ„Ÿ„Ÿ„Ÿ„§„¤„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„£
;                   „ #    011„  * ’Êí/Mix/ƒfƒBƒU/YJK “K‹XØ‘Ö‚¦
;                   „       F„  % [’·+PM6]‚Ì‘g‚Ý‡‚í‚¹‚ð”rœ‚µ‚Ä—˜—p
;                   „      111„  # «—ˆ‚ÌŠg’£—p
;                   „¤„Ÿ„Ÿ„Ÿ„Ÿ„£


; ‹@ŠBŒêƒTƒuƒ‹[ƒ`ƒ“‚Ì‹@”\
;PPPPPPPPPPPPP
; <DEF USR1=&HCE86>
;k‹@”\l‰æ‘œ‚ð[ˆ³k / “WŠJ]‚µ‚Äˆ³kƒTƒCƒY‚ð®”•Ï”‚É•Ô‚µ‚Ü‚·B
;k‘Ž®l®”•Ï”=USR1(ƒXƒNƒŠ[ƒ“ƒ‚[ƒh”Ô†+[256=ˆ³k / 0=“WŠJ])
;kÝ’èlˆ³k”ÍˆÍ‚ðŽw’è‚µ‚Ü‚·B
;             Žn“_ 0DE04h,X1 [0-511]
;                  0DE06h,Y1 [0-211]
;             I“_ 0DE00h,X2 [0-511]
;                  0DE02h,Y2 [0-211]

;        ƒ}ƒgƒŠƒbƒNƒXƒ‚[ƒh DTAˆÃ†‰»ƒ‚[ƒh ENAƒƒWƒJƒ‹ƒIƒyƒŒ[ƒVƒ‡ƒ“ LG‚ðŽw’è‚µ‚Ü‚·B
;             DT=[0,1,2]                ' bit7-6: Matrix mode 
;             EN=[0,1,2]                ' bit5-4: Encrypt mode
;             LG=[0-4,8-12]             ' bit3-0: Logical operation code
;                                       '         *PSET‚Ì‚Æ‚«‚Éƒ^ƒCƒ‹ˆ³k‚ª“­‚«‚Ü‚·B
;             SCREEN SM :SET PAGE ,0    ' SM;Screen mode 5-12
;             VPOKE 3,(DT+(2-DT)*(DT<2)*(SM>8))*64+EN*16+LG-(LG>4)*3
;             POKE &HDE6E,EN

; < DEF USR6=&HDCB4 >
;k‹@”\lƒL[“ü—ÍƒR[ƒh‚É‰ž‚¶‚ÄƒJ[ƒ\ƒ‹‚ÌˆÊ’u‚ðŒvŽZ‚µ‚Ä‚’¼ˆÊ’u‚ð”’l•Ï”‚É‘ã“ü‚·‚éB
;k‘Ž®l”’l•Ï”=USR8(ƒL[“ü—ÍƒR[ƒh)
;kÝ’èlˆÚ“®ƒpƒ‰ƒ[ƒ^[‚ðƒAƒhƒŒƒX(DE6F-DE77)‚ÉƒZƒbƒgB…•½ˆÊ’u‚Í(DE6F)‚É‚ ‚è‚Ü‚·B

; <DEF USR5=&HDD1E>
;k‹@”\lƒhƒ‰ƒCƒu‚Ì1ƒNƒ‰ƒXƒ^‚ ‚½‚è‚Ì˜_—ƒZƒNƒ^”‚ð”’l•Ï”‚É‘ã“ü‚·‚éB
;k‘Ž®l”’l•Ï”=USR7(ƒhƒ‰ƒCƒu”Ô†)
;kÝ’èlƒhƒ‰ƒCƒu”Ô†: 0=ƒJƒŒƒ“ƒgƒhƒ‰ƒCƒu,1=A,2=B ... 8=H

; <DEF USR4=&HDD28>
;k‹@”\lƒpƒŒƒbƒg•t‰æ‘œ‚Ì‰æ–ÊŠO—Ìˆæ‚ðƒ[ƒƒNƒŠƒA‚µ‚Ü‚·B
;k‘Ž®l”’l•Ï”=USR6(0)
;kÝ’èl‚È‚µ

; <DEF USR2=&HDD3D>
;k‹@”\lƒJ[ƒ\ƒ‹ˆÊ’u‚É‚ ‚é12•¶Žš‚ð•¶Žš•Ï”‚É‘ã“ü‚µ‚Ä”½“]•\Ž¦‚µ‚Ü‚·B
;k‘Ž®l•¶Žš—ñ•Ï”=USR2(•¶Žš—ñ•Ï”)
;kÝ’èl‚ ‚ç‚©‚¶‚ß“K“–‚È12•¶Žš‚ð•¶Žš—ñ•Ï”‚É‘ã“ü‚µ‚Ä‚¨‚«‚Ü‚·B

; <DEF USR3=&HDD99>
;k‹@”\lƒeƒLƒXƒg‰æ–Ê‚Ì[•Û‘¶ / Ä¶]‚ðs‚¢‚Ü‚·B
;k‘Ž®l”’l•Ï”=USR3([0=•Û‘¶ / 1=Ä¶])
;kÝ’èl‚È‚µ


; ƒTƒ“ƒvƒ‹ƒvƒƒOƒ‰ƒ€
;PPPPPPPPPP
; 100 ' Example for MSX2 BASIC
; 110 '
; 120 ' Initialization
; 130 CLEAR 200,&HCE85    'The machine language work area is secured.
; 140 DEFINT A-Z          'Set it as an integer.
; 150 DEFUSR=&HCE86       'The routine address of compression and decompression.
; 160 BLOAD "BN142.BIN"   'Loading of the machine language file.
; 170 SM=8 :SCREEN SM     'Screen mode [5-12]
; 180 DT=0                'Matrix mode [0,1,2]
; 190 EN=0                'Cipher mode [0,1,2]
; 200 LG=0                'Logical operation code [0-4,8-12]
; 210 '
; 220 ' Compression
; 230 SET PAGE 1,1        'Load an image to compress to the video page1.
; 240 BLOAD "SAMPLE.SC8",S
; 250 SET PAGE 0,0        'Setup of a dither mode and a logical operation-code.
; 260 VPOKE 3,(DT+(2-DT)*(DT<2))*64+EN*16+LG-(LG>4)*3
; 270 X1=0 :Y1=0 :X2=255 :Y2=211 :A=&HDE00   'Setup of a range and a cipher.
; 280 POKE A  ,X2 AND 255 :POKE A+1,X2 \ 256 :POKE A+2,Y2
; 290 POKE A+4,X1 AND 255 :POKE A+5,X1 \ 256 :POKE A+6,Y1 :POKE &HDE6E,EN
; 300 VA=USR(SM+256)      'An image is compressed to the video page0.
; 310 BSAVE "SAMPLE.BN8",0,VA-1,S   'Save a compressed image.
; 320 '
; 330 ' Decompression
; 340 SET PAGE 0,1 :CLS
; 350 SET PAGE 1,0        'Load an image to decompress to the video page0.
; 360 BLOAD "SAMPLE.BN8",S
; 370 POKE &HDE6E,(VPEEK(3)AND16)\16 'Permutation decipher
; 380 VA=USR(SM)          'A compressed image is decompressed to the video page1.
; 390 A$=INPUT$(1)
; 400 END


; ƒAƒZƒ“ƒuƒŠƒ\[ƒXƒR[ƒh
;PPPPPPPPPPPP
;**********************************************************************
; BN142.BIN  BARGAIN lossless image compression routine for MSX2 BASIC
;            Created by Katsuhiro Noguchi 2011/1228
;            Under GPL http://creativecommons.org/licenses/GPL/2.0/
;*********** Using SjASM v0.39g Special thanks Sjoerd Mastijn *********

; BIOS entry

DCOMPR	EQU	 0020h	;HLƒŒƒWƒXƒ^‚ÆDEƒŒƒWƒXƒ^‚Ì“à—e‚ð”äŠr‚·‚é
ENASLT	EQU	 0024h	;”CˆÓ‚Ìƒy[ƒW‚ÌƒXƒƒbƒg‚ðØ‚èŠ·‚¦‚é
LDIRMV	EQU	 0059h	;VRAM‚©‚çRAM‚Éƒf[ƒ^‚ðƒuƒƒbƒN“]‘—
LDIRVM	EQU	 005Ch	;RAM‚©‚çVRAM‚Éƒf[ƒ^‚ðƒuƒƒbƒN“]‘—
SETPAG	EQU	 013Dh	;VRAM‚ÌƒAƒNƒeƒBƒuƒy[ƒW‚ðØ‚èŠ·‚¦‚é
RSTPLT	EQU	 0145h	;VRAM‚©‚çƒpƒŒƒbƒg‚ðƒŠƒXƒgƒA
KILBUF	EQU	 0156h	;ƒL[ƒ{[ƒhƒoƒbƒtƒ@‚ðƒNƒŠƒA‚·‚é
EXTROM	EQU	 015Fh	;SUB-ROM‚ÌƒCƒ“ƒ^[ƒXƒƒbƒgƒR[ƒ‹
BIGFIL	EQU	 016Bh	;VRAM‚ÌŽw’è—Ìˆæ‚ð“¯ˆê‚Ìƒf[ƒ^‚Å–„‚ß‚é
NRDVRM	EQU	 0174h	;VRAM‚Ì“à—e‚ð“Ç‚Ýo‚·
NWRVRM	EQU	 0177h	;VRAM‚Éƒf[ƒ^‚ð‘‚«ž‚Þ
BLTVV	EQU	 0191h	;VRAM—Ìˆæ“à‚Å˜_—‹éŒ`“]‘—
BLTVM	EQU	 0195h	;ƒƒ‚ƒŠ‚©‚çVRAM‚É˜_—‹éŒ`“]‘—
BLTMV	EQU	 0199h	;VRAM‚©‚çƒƒ‚ƒŠ‚É˜_—‹éŒ`“]‘—
BDOS	EQU	0F37Dh	;ƒVƒXƒeƒ€ƒR[ƒ‹
_ALLOC	EQU	   1Bh 	;ƒAƒƒP[ƒVƒ‡ƒ“î•ñ‚ÌŠl“¾

; System work area

RAMAD1	EQU	0F342h 	;(1) ƒy[ƒW1‚ÌRAM‚ÌƒXƒƒbƒg”Ô†
LINLEN	EQU 	0F3B0h 	;(1) Œ»Ý‚Ì‰æ–Ê‚Ì1s‚Ì•
CSRY	EQU	0F3DCh 	;(1) ƒJ[ƒ\ƒ‹ YÀ•W
CSRX	EQU	0F3DDh 	;(1) @@V@ XÀ•W
SX	EQU	0F562h 	;(2) “]‘—Œ³Šî€“_ XÀ•W/RAM‚Ì“]‘—Œ³ƒAƒhƒŒƒX
SY	EQU	0F564h 	;(2)   @ V      YÀ•W
DX	EQU	0F566h 	;(2) “]‘—æŠî€“_ XÀ•W/RAM‚Ì“]‘—æƒAƒhƒŒƒX
DY	EQU	0F568h 	;(2)  @  V @@ YÀ•W
NX	EQU	0F56Ah 	;(2) X•ûŒü“]‘—ƒhƒbƒg”
NY	EQU	0F56Ch 	;(2) Y•ûŒü@@ V
ARG	EQU	0F56Fh 	;(1) “]‘—•ûŒü [0]
LOGOP	EQU	0F570h 	;(1) ƒƒWƒJƒ‹ƒIƒyƒŒ[ƒVƒ‡ƒ“ƒR[ƒh [0-4,8-12]
DAC	EQU	0F7F6h 	;(2) ‰‰ŽZ‚Ì‘ÎÛ‚Æ‚È‚é’l‚ðÝ’è‚·‚éƒGƒŠƒA
;		0F7F8h	;(2) ˆø”‚Ì’l[‰æ–Êƒ‚[ƒh:ˆ³k“WŠJƒ‚[ƒh/ƒeƒLƒXƒg•Û‘¶Ä¶ƒ‚[ƒh]
CGPBAS	EQU	0F924h 	;(2) ƒpƒ^[ƒ“ƒWƒFƒlƒŒ[ƒ^ƒe[ƒuƒ‹‚Ìƒx[ƒX”Ô’n
ATRBAS	EQU	0F928h 	;(2) ƒXƒvƒ‰ƒCƒgƒAƒgƒŠƒrƒ…[ƒgƒe[ƒuƒ‹‚Ìƒx[ƒX”Ô’n
ACPAGE	EQU	0FAF6h 	;(1) ƒAƒNƒeƒBƒuƒrƒfƒIƒy[ƒW”Ô†
SCRMOD	EQU	0FCAFh 	;(1) ƒXƒNƒŠ[ƒ“ƒ‚[ƒh‚Ì”Ô†
EXPTBL	EQU	0FCC1h 	;(1) MAIN-ROM‚ÌƒXƒƒbƒg”Ô†

; Program work area (/d‚Ë‡‚í‚¹)

IP	EQU	 4000h 	;(224) •ªŠ„‰æ‘œ‚ÌˆÊ’u X-low /(1920) TEXT‰æ–Ê‚Ì‘Ò”ð—Ìˆæ
IP_XH	EQU	 4100h 	;(224) •ªŠ„‰æ‘œ‚ÌˆÊ’u X-high
IP_Y	EQU	 4200h 	;(224) •ªŠ„‰æ‘œ‚ÌˆÊ’u Y
IP_BM	EQU	 4300h 	;(224) •ªŠ„‰æ‘œ‚ÌÅ‰‚ÌF
IP_SIZ	EQU	 4400h 	;(224) •ªŠ„‰æ‘œ‚Ì‘å‚«‚³
IP_NX	EQU	 4500h 	;(224) •ªŠ„‰æ‘œ‚Ì‰¡•
IP_CHK	EQU	 4600h 	;(224) •ªŠ„‰æ‘œ‚Ìƒ`ƒFƒbƒNƒTƒ€
BLTHED	EQU	 46FCh 	;  (4) ƒrƒbƒgƒuƒƒbƒNƒgƒ‰ƒ“ƒXƒtƒ@‚Ìƒwƒbƒ_(SX,SY)
BLTWRK	EQU	 4700h 	;(256) ƒrƒbƒgƒuƒƒbƒNƒgƒ‰ƒ“ƒXƒtƒ@‚Ì“]‘——Ìˆæ
BM	EQU	 4800h 	;(256) Œ´‰æ‘œ /(256) 90“x¶‰ñ“]s—ñ /(4352) “®“IƒpƒŒƒbƒgŒã”¼‘Þ”ð
WTBL	EQU	 4900h 	;(256) ‰¡     /‰¡       /‰¡ˆø•Ô     /‰¡ˆø•ÔYJK
ZTBL	EQU	 4A00h 	;(256) ¶45   /¶45     /‰¡ƒfƒBƒU   /‰¡YJK
RWTBL	EQU	 4B00h 	;(256) c     /c       /c‰•œ     /cˆø•ÔYJK
RZTBL	EQU	 4C00h 	;(256) ‰E45   /‰E45     /cƒnƒjƒJƒ€ /cYJK
Z27TBL	EQU	 4D00h 	;(256) ¶27   /‰¡Žs¼   /‰¡Žs¼     /‰¡ˆøÜ•ÔYJK
Z63TBL	EQU	 4E00h 	;(256) ¶63   /¶45Žs¼ /¶45Žs¼   /cˆøÜ•ÔYJK
RZ63TL	EQU	 4F00h 	;(256) ‰E63   /cŽs¼   /cŽs¼     /c
RZ27TL	EQU	 5000h 	;(256) ‰E27   /‰¡‰•œ   /‰E45Žs¼   /cˆø‰•œÜ•ÔYJK
W_Scan	EQU	 5100h 	;(256) ‰¡‘–¸‰æ‘œ
Z_Scan	EQU	 5200h 	;(256) ¶45‘–¸‰æ‘œ
RWScan	EQU	 5300h 	;(256) c‘–¸‰æ‘œ
CN	EQU	 5400h 	;(256) ‰E45‘–¸‰æ‘œ /F
LN	EQU	 5500h 	;(256) ¶27‘–¸‰æ‘œ /’·‚³
VD	EQU	 5600h 	;(256) ¶63‘–¸‰æ‘œ /Å“K‘–¸‰æ‘œ /(257) ˆ³kƒf[ƒ^
LIVB	EQU	 5601h 	; (48)   /’·‚³‚ÌƒÁ•„†
LA	EQU	 5660h 	; (32)   /’·‚³‚Ìƒ¿•„†
LB	EQU	 5680h 	; (32)   /’·‚³‚ÌƒÀ•„†
PLTPOS	EQU	 5700h 	;(256) ‰E63‘–¸‰æ‘œ /ƒpƒŒƒbƒgƒ|ƒWƒVƒ‡ƒ“ [MTFŒW”]
PLTMAP	EQU	 5800h 	;(256) ‰E27‘–¸‰æ‘œ /ƒpƒŒƒbƒgƒ}ƒbƒv [PƒÁ•„†]
DYNPLT	EQU	 5900h 	;(14336) “®“IƒpƒŒƒbƒg„¡ 1”ÔFx256
BASIC0	EQU	 8000h 	;(8960) BASIC‘O”¼    „ 40”ÔFx :
;		 90F0h	;                    „¤56”ÔFx256(ÝŒvã‚ÌÅ‘å’l‚Í62”ÔFx256)
aDYPLT	EQU	 9100h 	;(14336) XV‚·‚é‘O‚Ì“®“IƒpƒŒƒbƒg„¡ 1”ÔFx256
BASIC1	EQU	0A300h 	;(9728) BASICŒã”¼                „         :
;		0C8F0h	;                                „¤56”ÔFx256
;		0C900h	;(1414) ƒXƒ^ƒbƒN—Ìˆæ‚Ì‰ºŒÀ¦‚±‚ê‚ð‰z‚¦‚é‚Æ–\‘–‚·‚éB
;		0CE85h	;       ƒXƒ^ƒbƒN—Ìˆæ‚ÌãŒÀ
;		0CE86h	;ƒvƒƒOƒ‰ƒ€ŠJŽn”Ô’n
;		0DDBFh	;ƒvƒƒOƒ‰ƒ€I—¹”Ô’n
CommKey	EQU	0DDC0h 	;(64) ‹¤’ÊˆÃ†Œ®
;		0DE00h 	;(120) Variable data area       
CARCPL	EQU	0DE0Ch 	; (12) /”½“]•¶Žš—ñƒR[ƒh

; VRAM Page 0 (SCREEN6ˆÈ‰º)
; 		06A00h 	; (1920)  TEXT‰æ–Ê‚Ì‘Þ”ð—Ìˆæ
;             (SCREEN7ˆÈã)
TextG	EQU	0D500h 	; (1920)  TEXT‰æ–Ê‚Ì‘Þ”ð—Ìˆæ
BAS0	EQU	0DD00h 	; (8960)„¢BASIC‘O”¼‘Þ”ð—Ìˆæ
;		0FFFFh          „£
; VRAM Page 1 (SCREEN7ˆÈã)
BAS1	EQU	0D400h 	; (9728)„¢BASICŒã”¼‘Þ”ð—Ìˆæ
;		0F9FFh          „£
; VRAM Page 2 (SCREEN6ˆÈ‰º)
; 	 	 0000h 	;(18688)„¢BASIC‘Þ”ð—Ìˆæ
;		 48FFh          „£

; Variable data area

X2	EQU	0DE00h 	; (2) I“_ XÀ•W [0-511]
Y2	EQU	0DE02h 	; (2)  V  YÀ•W [0-211]
X1	EQU	0DE04h 	; (2) Žn“_ XÀ•W [0-511]
Y1	EQU	0DE06h 	; (1)  V  YÀ•W [0-211]
LOGOP2	EQU	0DE07h 	; (1) ƒfƒBƒU+ˆÃ†+ƒƒWƒJƒ‹ƒIƒyƒŒ[ƒVƒ‡ƒ“ƒR[ƒh [0-4,8-12]
X3	EQU	0DE08h 	; (2) ‘å‚«‚³ X•ûŒü [0-511] X2-X1
Y3	EQU	0DE0Ah 	; (2)   V   Y•ûŒü [0-211] Y2-Y1
RGBPLT	EQU	0DE0Ch 	;(32) RGBƒpƒŒƒbƒg
B0	EQU	0DE2Dh 	; (1) 1ƒoƒCƒg‚Ìƒhƒbƒg” [1,2,4]=SCRMOD[8-12,5/7,6]
X4	EQU	0DE2Eh 	; (2) •ªŠ„‰æ‘œ‚Ì‰¡• [16,32,64] B0*16
X5	EQU	0DE30h 	; (2) ––’[•ªŠ„‰æ‘œ‚Ì‰¡• [1-64] (X3 AND(X4-1))+1
Y5	EQU	0DE32h 	; (2)  @   V      c• [1-16] (Y3 AND 15)+1
KX	EQU	0DE34h 	; (1) •ªŠ„‰æ‘œ‚Ì‰ñ” X•ûŒü [1-16] X3\X4+1
KY	EQU	0DE35h 	; (1)  @   V	     Y•ûŒü [1-14] Y3\16+1
NBM	EQU	0DE36h 	; (2) •ªŠ„‰æ‘œ‚Ì‘å‚«‚³ [0-255](NX*NY-1)\B0
BM0	EQU	0DE38h 	; (1)     @V@@@ •W€ [   255] X4,16
BM1	EQU	0DE39h 	; (1)     @V@@@ ‰E’[ [ 3-255] X5,16
BM2	EQU	0DE3Ah 	; (1)     @V@@@ ‰º’[ [15-255] X4,Y5
BM3	EQU	0DE3Bh 	; (1)     @V@@@ ‰E‰º [ 0-255] X5,Y5
K	EQU	0DE3Ch 	; (2) F‚ª•Ï‰»‚µ‚½‰ñ” [0-255]
EndCol	EQU	0DE3Eh 	; (1) “®“IƒpƒŒƒbƒg‚Ì‰Šú’l [0]
Kps1	EQU	0DE3Fh 	; (1) K+1 (8bit)
RP	EQU	0DE40h 	; (1) ŒJ‚è•Ô‚µ‚Ì” [0-223]
SD	EQU	0DE41h 	; (1) ‘–¸–@ [‰¡,¶45,c,‰E45,¶27,¶63,‰E63,‰E27]=[0,1,2,3,4,5,6,7]
MP	EQU	0DE42h 	; (1) Å‘åƒpƒŒƒbƒgƒ|ƒWƒVƒ‡ƒ“ [7,14,28,56,31,62,30]
PT	EQU	0DE43h 	; (1) ƒpƒŒƒbƒgƒ}ƒbƒv‚ÌŽí—Þ [0,1,2,3,0,1,1]
PMSUB	EQU	0DE44h 	; (1) ƒpƒŒƒbƒgƒ}ƒbƒv‚Ì•â” [0,1,3,7,0,1,1] 2^PT-1
IS	EQU	0DE45h 	; (2) VF•„†‚ÌƒCƒ“ƒfƒbƒNƒX’· [3,4,5] 
VLN	EQU	0DE47h 	; (1) ’·‚³•„†‚Ì‘å‚«‚³
VLIVB	EQU	0DE48h 	; (2) ƒÁ•„†‚Ì‘å‚«‚³ [1-40..]
VLA	EQU	0DE4Ah 	; (2) ƒ¿•„†‚Ì‘å‚«‚³ [1-32] NBM\8+1
VLB	EQU	0DE4Ch 	; (2) ƒÀ•„†‚Ì‘å‚«‚³ [1-33] __ƒXƒ^ƒeƒBƒbƒNƒf[ƒ^‰Šú‰»—Ìˆæª
LOGOP1	EQU	0DE4Eh 	; (1) ƒƒWƒJƒ‹ƒIƒyƒŒ[ƒVƒ‡ƒ“ƒR[ƒh [0-4,8-12]
InterF	EQU	0DE4Fh 	; (1) ƒCƒ“ƒ^[ƒŒ[ƒXƒtƒ‰ƒO [0,1]
VM0	EQU	0DE50h 	; (2)  7FƒpƒŒƒbƒgƒ}ƒbƒvƒTƒCƒY
VM1	EQU	0DE52h 	; (2) 14FƒpƒŒƒbƒgƒ}ƒbƒvƒTƒCƒY
VM2	EQU	0DE54h 	; (2) 28FƒpƒŒƒbƒgƒ}ƒbƒvƒTƒCƒY
VM3	EQU	0DE56h 	; (2) 56FƒpƒŒƒbƒgƒ}ƒbƒvƒTƒCƒY
VM4	EQU	0DE58h 	; (2) 31FƒpƒŒƒbƒgƒ}ƒbƒvƒTƒCƒY
VM5	EQU	0DE5Ah 	; (2) 62FƒpƒŒƒbƒgƒ}ƒbƒvƒTƒCƒY
VM6	EQU	0DE5Ch 	; (2) 30FƒpƒŒƒbƒgƒ}ƒbƒvƒTƒCƒY
VM5WRK	EQU	0DE5Eh 	; (2) VM5,VM4ŒvŽZ—pƒ[ƒNƒGƒŠƒA
NX2	EQU	0DE60h 	; (2) •ªŠ„‰æ‘œ‚Ì•ûŒü“]Š· [16,32,64]
BMm	EQU	0DE62h 	; (2) •ªŠ„‰æ‘œ‚Ì‘å‚«‚³‚ÌêŠ [BM0-BM3]
VA	EQU	0DE64h 	; (2) ˆ³kƒf[ƒ^‚Ì‘—e—Ê [11-54536]
WS_K	EQU	0DE66h 	; (8) ‰¡/¶45/c/‰E45/¶27/¶63/‰E63/‰E27‚ÌF•Ï‰»” [0-255]
Encryp	EQU	0DE6Eh	; (1) ˆÃ†‰»ƒtƒ‰ƒO [0=‰Šú‰»,1=‡—ñ,2=‹¤’Ê]
cR	EQU	0DE6Fh 	; (1) ƒJ[ƒ\ƒ‹ XÀ•W
cQ	EQU	0DE70h 	; (1) ƒJ[ƒ\ƒ‹ YÀ•W
Q1	EQU	0DE71h 	; (1) ƒJ[ƒ\ƒ‹ ˆÚ“®ƒtƒ‰ƒO
Q6	EQU	0DE72h 	; (1)       V
Q9	EQU	0DE73h 	; (1)       V
Q3	EQU	0DE74h 	; (1)       V
Q4	EQU	0DE75h 	; (1)       V
Q5	EQU	0DE76h 	; (1)       V
Q8	EQU	0DE77h 	; (1)       V

; Constant

IP_H	EQU	   40h
IP_B_H	EQU	   43h
IP_S_H	EQU	   44h
BM_H	EQU	   48h
sBAS_H	EQU	   49h
WTBL_H	EQU	   49h
ZTBL_H	EQU	   4Ah
RWTL_H	EQU	   4Bh
RZTL_H	EQU	   4Ch
Z27T_H	EQU	   4Dh
Z63T_H	EQU	   4Eh
RZ63_H	EQU	   4Fh
RZ27_H	EQU	   50h
CN_H	EQU	   54h
PP_H	EQU	   57h
PM_H	EQU	   58h
DP_H	EQU	   59h
LIVB_L	EQU	   01h
LA_L	EQU	   60h
LB_L	EQU	   80h
WS_K_L	EQU	   66h
LOCK_H	EQU	  0CFh
sTextG	EQU	 1920 	;TEXT‰æ–Ê—Ìˆæ‚Ì•ÛŒìƒoƒCƒg”
sDYPLT	EQU	14336 	;“®“IƒpƒŒƒbƒg‚ÌƒoƒCƒg”(56Fx256)
sBASIC	EQU	18688 	;BASIC—Ìˆæ‚Ì•ÛŒìƒoƒCƒg”
sBAS0	EQU	 8960 	;BASIC‘O”¼—Ìˆæ‚Ì•ÛŒìƒoƒCƒg”
sBAS1	EQU	 9728 	;BASICŒã”¼—Ìˆæ‚Ì•ÛŒìƒoƒCƒg”
VerNum	EQU	  142	;Version number

Format:
	ORG	0CE86h-7   	;Bsave format
	DB	0FEh		;Header
	DW	Main		;Start address
	DW	End-1		;End address
	DW	Main		;Execution start address

;********************************
; [USR1]
; ‰æ‘œ‚Ìˆ³k‚Æ“WŠJ 2011/1228
; Compression and Decompression of an image.
;********************************

Main:
	CALL	RAMSLT		;PAGE1‚ÌƒXƒƒbƒg‚ðRAM‚É‚·‚é
	LD	HL,1
	LD	DE,TextG
	LD	BC,8
	LD	A,(DAC+2)	;A#=ƒXƒNƒŠ[ƒ“ƒ‚[ƒh”Ô†
	CP	10
	JR	Z,SCA

	CP	C
	JR	NC,SC8BC	;SCREEN 8,11,12

	INC	L		;L#=2
SCA:
	LD	C,40
	CP	7
	JR	NC,SC8BC	;SCREEN 7,10

	LD	D,6Ah
	RRA
	JR	C,SC8BC		;SCREEN 5

	SLA	L		;SCREEN 6	L#=4
SC8BC:
	LD	(VA),BC
	LD	(B0),HL		;‚PƒoƒCƒg‚Ìƒhƒbƒg” B0
	CALL	VPAGE0		;ƒAƒNƒeƒBƒuƒy[ƒW‚ðVRAM-0
	LD	HL,IP
	LD	BC,sTextG
	PUSH	HL
	PUSH	DE
	PUSH	BC

	CALL	LDIRVM		;TEXT‰æ–Ê—Ìˆæ‚ðVRAM‚É‘Þ”ð
	LD	HL,BASIC0	;BASIC—Ìˆæ‚ÌŽn‚Ü‚è 8000h
	LD	DE,BAS0
	LD	BC,sBAS0	;BC#=2300h
	LD	A,(DAC+2)	;A#=SCREEN MODE
	CP	7
	JR	NC,DPLTSV

	LD	A,2		;SCREEN<7
	CALL	VPAGE
	LD	D,E		;DE#=0
	LD	B,sBAS_H	;BC#=4900h
	JR	CalPPE
DPLTSV:
	PUSH	HL
	PUSH	DE
	PUSH	BC

	CALL	LDIRVM		;BASIC‘O”¼—Ìˆæ‚ðVRAM‚É‘Þ”ð
	LD	A,1
	CALL	VPAGE
	LD	HL,BASIC1
	LD	DE,BAS1
	LD	BC,sBAS1
CalPPE:
	PUSH	HL
	PUSH	DE
	PUSH	BC

	CALL	LDIRVM		;BASIC—Ìˆæ‚ðVRAM‚É‘Þ”ð
	CALL	VPAGE0
	LD	HL,3
	CALL	NRDVRM		;A#=Default logical oparation code
	LD	(LOGOP2),A
	PUSH	AF

	AND	15
	LD	(LOGOP1),A
	LD	(LOGOP),A
	LD	A,(Encryp)	;A#[0,<1>,2]
	RRCA
	JR	NC,R90MTX

	LD	HL,BM		;‡—ñˆÃ†‚ª—LŒø‚È‚çŒ»ó‚ÌƒpƒŒƒbƒg‚ðŒp³‚·‚é
	LD	DE,BASIC0
	LD	BC,4352
	LDIR			;— RAM‚©‚ç“®“IƒpƒŒƒbƒg‚ÌŒã”¼‚ðŒ³‚ÌêŠ‚É–ß‚·

; 90“x¶‰ñ“]s—ñ‚Ìì¬ 2003/0210
; Creation of a 90-degree left rotation matrix
;-------------------------------*
R90MTX:
	LD	HL,WTBL-1	;D=-1		Hand compile!
	LD	DE,10F0h	;DS=-16 DE#[16,-16]
	XOR	A		;S=256
	LD	B,D		;B#=16
LP_R90:
	LD	C,B		;FOR I=1 TO 16
	LD	B,D		;  JI=16
MTRX4:				;FOR J=1 TO JI
	INC	L		;  D=D+1
	ADD	A,E		;  S=S+DS
	LD	(HL),A		;  M(D)=S
	DJNZ	MTRX4		;NEXT J

	LD	B,C
	INC	A		;  S=S+257
	DJNZ	LP_R90		;NEXT I

	INC	HL		;HL#=WTBL  BC#[0,1]

	POP	AF		;A#=User logical oparation code
	RLA			;bit7 CY=Dither YJK mode
	PUSH	AF

	JR	C,ChkYJK	;dither ON

; ‰¡s—ñ‚Ìì¬(’Êí‰æ‘œ) 2009/1018
; Creation of a horizontal matrix
;-------------------------------*
	XOR	A
	LD	B,D		;BC#[16, 1]
	LD	E,15		;DE#[16,15]
	CALL	SubDd2
	EXX

; ¶45s—ñ‚Ìì¬ 2009/1016
; Creation of a left incline matrix
;-------------------------------*
	INC	H		;HL#=ZTBL
	LD	BC,070Fh	;BC#[ 7,15]
	LD	D,C
	XOR	A
	LD	E,A		;DE#[15, 0]
	LD	(HL),A
	INC	L
LoopZi:
	CALL	SubA1i
	ADD	A,D
	CALL	SubA1i
	DJNZ	LoopZi

	CALL	SubA1i
	LD	B,7
LoopZd:
	CALL	SubA1d
	ADD	A,D
	CALL	SubA1d
	DJNZ	LoopZd

	INC	A
	LD	(HL),A

	POP	AF		;A#=ƒ}ƒgƒŠƒbƒNƒXƒ‚[ƒh
	BIT	7,A
	PUSH	AF

	LD	HL,Z27TBL
	JR	NZ,DitMT	;bit6 ON ƒ~ƒbƒNƒX‰æ‘œ

; ¶27s—ñ‚Ìì¬ 2009/0422
; Creation of a left 27-degree incline matrix
;-------------------------------*
	LD	D,1
	LD	A,14
	CALL	MTXEG3		;BC#[8,7]
LpMX2:
	CALL	ME3a1
	DJNZ	LpMX2

	LD	B,6
LpMX3:
	DEC	C
	CALL	ME3a1
	DJNZ	LpMX3

	LD	E,D
	CALL	ME3b1

; ¶63s—ñ‚Ìì¬
; Creation of a left 63-degree incline matrix
;-------------------------------*
	INC	HL		;HL#=Z63TBL
	LD	D,16
	LD	A,-31
	CALL	MTXEG3		;BC#[8,7]
LpMX21:
	CALL	ME3a11
	DJNZ	LpMX21

	LD	B,6
LpMX31:
	DEC	C
	CALL	ME3a11
	DJNZ	LpMX31

	LD	E,D
	CALL	ME3b11
	JP	RL90		;Šî–{s—ñ‚Ì90“x¶‰ñ“]

;-------------------------------*
ChkYJK:
	LD	A,(DAC+2)	;A#=ƒXƒNƒŠ[ƒ“ƒ‚[ƒh”Ô†
	CP	10
	JR	NC,YJKMTX

; ‰¡‰•œs—ñ(c‰•œs—ñ‚ÌŒ³)‚ðì¬ 2008/1226
; The horizontal round trip procession (origin of the length round trip procession) is made.
;-------------------------------*
	CALL	YokoOu		;HL#=WTBL

; cƒnƒjƒJƒ€s—ñ‚ÌŒ³‚ðì¬ 2009/0504
; The origin of the vertical honeycomb procession is made. 
;-------------------------------*
	INC	H		;HL#=ZTBL
	XOR	A
	LD	BC,0402h	;BC#[ 4, 2]
	LD	DE,211Fh	;DE#[33,31]
	CALL	SubHan
	ADD	A,48
	CALL	SubHan

; ‰¡Žs¼s—ñ‚Ìì¬ 2009/0504
; Making of the horizontal dither procession
;-------------------------------*
	LD	H,Z27T_H	;HL#=Z27TBL
DitMT:
	XOR	A
	LD	BC,0802h	;BC#[ 8, 2]
	LD	DE,110Fh	;DE#[17,15]
	CALL	SubSdt
	SUB	16
	CALL	SubSdt

; ¶45Žs¼s—ñ‚Ìì¬ 2008/1213
; Making of the 45 dither in the left processions
;-------------------------------*
	INC	H		;HL#=Z63TBL
	LD	A,-17
	LD	BC,040Fh	;BC#[ 4,15]
	LD	DE,11FFh	;DE#[17,-1]
	CALL	DMa
	ADD	A,C
	INC	E
	INC	E
	LD	D,-13
	EX	AF,AF'
	LD	A,47
	CALL	DMb
	INC	A
	LD	BC,04F1h	;BC#[  4,-15]
	LD	DE,0EF00h	;DE#[-17,  0]
	CALL	DMa2
	SUB	30
	INC	E
	INC	E
	INC	E
	INC	E
	LD	D,13
	EX	AF,AF'
	NEG
	CALL	DMb
	JR	RL90

; cˆø•ÔYJKs—ñ‚ÌŒ³‚ðì¬ 2009/0516
; The origin of vertical reversion YJK procession is made. 
;-------------------------------*
YJKMTX:
	XOR	A
	LD	BC,0402h	;BC#[ 4,2]
	LD	DE,4007h	;DE#[64,7]
	EXX
	LD	C,47		; C'#[47]
	LD	DE,5F3Fh	;DE'#[95,63]
	CALL	HikYJK
	EXX

; cYJKs—ñ‚ÌŒ³‚ðì¬ 2008/1218
; The origin of vertical YJK procession is made. 
;-------------------------------*
	INC	H		;HL#=ZTBL
	XOR	A
	LD	BC,0210h	;BC#[ 2,16]
LpYJK:
	LD	DE,3F41h	;DE#[63,65]
	CALL	YJK
	LD	E,33
	CALL	YJK
	LD	DE,0BFC1h	;DE#[-65,-63]
	CALL	YJK
	LD	E,-15
	CALL	YJK
	DJNZ	LpYJK

; ‰¡ˆøÜ•ÔYJKs—ñ‚Ìì¬ 2009/0515
; Making of the [orikaeshi] YJK procession sidewise pull
;-------------------------------*
	LD	H,Z27T_H	;HL#=Z27TBL
	XOR	A
	LD	BC,0804h	;BC#[ 8,4]
	LD	DE,2003h	;DE#[32,3]
	EXX
	LD	BC,0F022h	;BC'#[-16,34]
	LD	DE,0D01Fh	;DE'#[-48,31]
	CALL	HV_YJK
	LD	BC,1002h	;BC#[16,2]
	LD	DE,1007h	;DE#[16,7]
	CALL	SubDd2
	EXX

; cˆøÜ•ÔYJKs—ñ‚Ìì¬
; [Tatehiki] making of the YJK procession by return
;-------------------------------*
	INC	H		;HL#=Z63TBL
	CALL	VHOYJK
	LD	BC,0810h	;BC#[8,16]
	LD	DE,020Fh	;DE#[2,15]
	CALL	SubDd2
	EXX
	LD	B,L		;B#=0

; Šî–{s—ñ‚Ì90“x¶‰ñ“] 2011/1228
; 90-degree left rotation of a basic matrix
;-------------------------------*
RL90:
	LD	DE,BM		;B#=0,L#=255
LP_WZR:
	PUSH	BC

	LD	H,D
	INC	L
	LD	B,2
LpRL90:
	INC	H		;HL#=WTBL(I),Z27TBL(I)
	LD	E,(HL)		;E#=W(I)
	LD	A,(DE)
	LD	C,A		;C#=R90(W(I))
	INC	H
	LD	E,(HL)		;E#=Z(I)
	LD	A,(DE)		;A#=R90(Z(I))
	INC	H		;cs—ñ=90“x¶‰ñ“](‰¡s—ñ)
	LD	(HL),C		;RW(I)=R90(W(I))
	INC	H		;‰E45s—ñ=90“x¶‰ñ“](¶45s—ñ)
	LD	(HL),A		;RZ(I)=R90(Z(I))
	DJNZ	LpRL90

	POP	BC
	DJNZ	LP_WZR

	POP	AF		;CY=Dither YJK mode
	LD	L,B		;L#=0
	JR	NC,Normal	;ƒfƒBƒU‚Å‚È‚¢‚È‚ç’Êí‚©ƒ~ƒbƒNƒX

	LD	A,(DAC+2)	;A#=ƒXƒNƒŠ[ƒ“ƒ‚[ƒh”Ô†
	CP	10
	JR	C,GoDit

; cˆø‰•œÜ•ÔYJKs—ñ‚Ìì¬ 2009/0522
; Making of the turn YJK procession of [tatehiki] who blows eagerly
;-------------------------------*
	CALL	VHOYJK		;HL#=RZ27TL
	LD	C,16		;BC#[4,16]
	LD	E,15		;DE#[4,15]
	EXX
	DEC	E		;E'#[2]
	CALL	SubC
	EXX

; cs—ñ‚Ìì¬ 2009/0522
; Making of the vertical procession
;-------------------------------*
	DEC	H		;HL#=RZ63TL
	XOR	A
	LD	B,C		;BC#[16,16]
	LD	D,1		;DE#[ 1,15]
	CALL	SubDd2
	EXX

; ‰¡YJKs—ñ‚Ìì¬ 2009/0516
; Making of the side YJK procession
;-------------------------------*
	LD	H,ZTBL_H	;HL#=ZTBL
	XOR	A
	LD	C,4		;BC#[16,4]
	LD	DE,1003h	;DE#[16,3]
	EXX
	LD	DE,0F0Eh	;DE'#[15,14]
	CALL	HiYJK2

; ‰¡ˆø•ÔYJKs—ñ‚Ìì¬ 2011/0420
; Making of the horizontal reversion YJK procession
;-------------------------------*
	LD	BC,0FF10h	;BC'#[-1,16]
	EXX
	DEC	H		;HL#=WTBL
	XOR	A		;BC#[16,4]
	LD	D,2		;DE#[ 2,3]
LpHYJK:
	CALL	SubA3
	EXX
	ADD	A,B		;+B'#
	EXX
	CALL	SubA3
	EXX
	ADD	A,C		;+C'#
	EX	AF,AF'
	XOR	A
	SUB	B
	LD	B,A		;B'#=-B'#
	EXX
	XOR	A
	SUB	D
	LD	D,A		;D#=-D#
	EX	AF,AF'
	DJNZ	LpHYJK

	JR	CallRC

; ‰¡ˆø‚«•Ô‚µs—ñ‚Ìì¬ 2009/0501
; Making of the horizontal reversion procession
;-------------------------------*
GoDit:
	LD	H,WTBL_H	;HL#=WTBL
	XOR	A
	LD	BC,1002h	;BC#[16, 2]
	LD	DE,010Fh	;DE#[ 1,15]
	CALL	LpSdt

; ‰¡ƒfƒBƒUs—ñ‚Ìì¬ 2009/0515
; Making of the horizontal dither procession
;-------------------------------*
	INC	H		;HL#=ZTBL
	XOR	A
	LD	BC,0802h	;BC#[ 8,2]
	LD	DE,2007h	;DE#[32,7]
	EXX
	LD	BC,0F110h	;BC'#[-15,16]
	LD	D,-17		; D'#[-17]
	CALL	HV_YJK
	JR	CallRC

; ‰¡‰•œs—ñ‚ðì¬ 2010/0509
; The horizontal round trip procession is made. 
;-------------------------------*
Normal:
	RLA			;bit6=1‚È‚çMix‰æ‘œ
	CALL	C,YokoOu	;HL#=RZ27TL

; ˆ³k‚Æ“WŠJ‚ÌŒÄ‚Ño‚µ
; The call of compression and decompression
;-------------------------------*
CallRC:
	LD	H,L		;L#=0 “]‘—•ûŒü
	LD	(ARG-1),HL
	LD	(IP),HL
	LD	DE,X1
	LD	BC,(VA)
	LD	A,(DAC+3)	;A#[0,1]=[“WŠJ,ˆ³k]
	OR	A
	CALL	Z,Decomp	;‰æ‘œ‚ð“WŠJ‚·‚é
	CALL	NZ,Comprs	;‰æ‘œ‚ðˆ³k‚·‚é
	LD	HL,BASIC0
	LD	DE,BM
	LD	BC,4352
	LDIR			;— RAM‚É“®“IƒpƒŒƒbƒgŒã”¼‚ð‘Þ”ð

	POP	BC		;BC#=sBAS1  /sBASIC
	POP	HL		;HL#=BAS1   /BAS0
	POP	DE		;DE#=BASIC1 /BASIC0
	LD	A,(DAC+2)	;A#=SCREEN MODE
	CP	7
	LD	A,1
	JR	NC,DPLTLD

	INC	A		;A#=2
	CALL	VPAGE
	JR	CalPPD
DPLTLD:
	CALL	VPAGE
	CALL	LDMVP0		;VRAM‚É‘Þ”ð‚µ‚½BASICŒã”¼—Ìˆæ‚ðŒ³‚É–ß‚·

	POP	BC		;BC#=sBAS0
	POP	HL		;HL#=BAS0
	POP	DE		;DE#=BASIC0
CalPPD:
	CALL	LDMVP0		;VRAM‚É‘Þ”ð‚µ‚½BASIC—Ìˆæ‚ðŒ³‚É–ß‚·

	POP	BC		;BC#=sTextG
	POP	HL		;HL#=TextG
	POP	DE		;DE#=IP
	CALL	LDIRMV		;VRAM‚É‘Þ”ð‚µ‚½TEXT‰æ–Ê—Ìˆæ‚ðŒ³‚É–ß‚·
	LD	HL,(VA)
	LD	(DAC+2),HL	;ˆ³kƒf[ƒ^‚Ì‘—e—Ê‚ðBASIC‚Ì–ß‚è’l‚Æ‚µ‚Ä•Ô‚·
	JP	ROMSLT		;PAGE1‚ÌƒXƒƒbƒg‚ðBASIC ROM‚É–ß‚µ‚ÄBASIC‚É–ß‚é

;********************************
; s—ñƒGƒ“ƒWƒ“2 2011/1226
; Matrix Engine 2
;********************************

; ¶45Žs¼s—ñ 2008/1226
; 45 dither in the left procession
;-------------------------------*
DMa:
	PUSH	BC

	ADD	A,D
	INC	E
	INC	E
	LD	B,E
LpDMa1:
	LD	(HL),A
	INC	L
	SUB	C
	DJNZ	LpDMa1

	DEFB	0FEh		;CP n (1byte skip)
DMa2:
	PUSH	BC

	ADD	A,D
	INC	E
	INC	E
	LD	B,E
LpDMa2:
	LD	(HL),A
	INC	L
	ADD	A,C
	DJNZ	LpDMa2

	POP	BC
	DJNZ	DMa

	RET

;-------------------------------*
DMb:
	EX	AF,AF'
	LD	B,4
LpDMb:
	PUSH	BC

	ADD	A,D
	DEC	E
	DEC	E
	LD	B,E
LpDMb1:
	LD	(HL),A
	INC	L
	SUB	C
	DJNZ	LpDMb1

	EX	AF,AF'
	LD	B,A
	EX	AF,AF'
	ADD	A,B
	DEC	E
	DEC	E
	LD	B,E
LpDMb2:
	LD	(HL),A
	INC	L
	ADD	A,C
	DJNZ	LpDMb2

	POP	BC
	DJNZ	LpDMb

	RET

; ‰¡‰•œs—ñ‚ðì¬
; The horizontal round trip procession is made. 
;-------------------------------*
YokoOu:
	XOR	A
	LD	BC,0310h	;BC#[ 3,16]
	LD	DE,1F21h	;DE#[31,33]
	CALL	LpHRT2
	LD	E,17
	CALL	YJK
	LD	DE,0DFE1h	;DE#[-33,-31]
	LD	B,4
LpHRT2:
	CALL	YJK
	DJNZ	LpHRT2

	RET

;-------------------------------*
YJK:
	PUSH	BC

	LD	B,C
LpYJK1:
	LD	(HL),A
	INC	L
	INC	A
	DJNZ	LpYJK1

	ADD	A,D
	LD	B,C
LpYJK2:
	LD	(HL),A
	INC	L
	DEC	A
	DJNZ	LpYJK2

	ADD	A,E

	POP	BC
	RET

;********************************
; s—ñƒGƒ“ƒWƒ“3 2011/0417
; Matrix Engine 3
;********************************

; ¶27,¶63s—ñ 2009/0522
; 27 in the left and 63 processions in the left
;-------------------------------*
MTXEG3:
	EX	AF,AF'
	XOR	A
	LD	B,1
	LD	E,D		;E#[1,16]
	CALL	ME3b3
	LD	BC,700h
LpMX1:
	INC	C
	CALL	ME3a0
	DJNZ	LpMX1

	LD	B,8		;BC#[8,7]
	RET

;-------------------------------*
ME3a0:
	PUSH	BC

	CALL	ME3b0
	JR	ME3a2
ME3a1:
	PUSH	BC

	LD	E,A
	CALL	ME3b1
	JR	ME3a2
ME3a11:
	PUSH	BC

	LD	E,A
	CALL	ME3b11
ME3a2:
	NEG
	CALL	ME3b0
	NEG

	POP	BC
	RET
		
;-------------------------------*
ME3b0:
	LD	E,A
	LD	B,D
	JR	ME3b2
ME3b1:
	LD	B,15
	JR	ME3b2
ME3b11:
	LD	B,-15
ME3b2:
	EX	AF,AF'
	ADD	A,B
	INC	L
	LD	B,C
ME3b3:
	LD	(HL),A
LpME1:
	ADD	A,E
	INC	L
	LD	(HL),A
	DJNZ	LpME1

	EX	AF,AF'
	RET

;********************************
; s—ñƒGƒ“ƒWƒ“4 2011/0620
; Matrix Engine 4
;********************************

; ‰¡ƒnƒjƒJƒ€s—ñ
; Horizontal honeycomb procession
;-------------------------------*
SubHan:
	CALL	SubSdt
	SUB	32

; ‰¡Žs¼s—ñ
; Horizontal dither procession
;-------------------------------*
SubSdt:
	PUSH	BC

	CALL	LpSdt
	EX	AF,AF'
	XOR	A
	SUB	D
	LD	B,E
	LD	E,A		;E#=-D#
	XOR	A
	SUB	B
SSdt:
	LD	D,A		;D#=-E#
	EX	AF,AF'

	POP	BC
	RET

;-------------------------------*
LpSdt:
	CALL	SubA
	ADD	A,D
	CALL	SubA
	ADD	A,E
	DJNZ	LpSdt

	RET

; ˆøÜ•ÔYJKs—ñ
; It pulls and YJK is formed a line by return. 
;-------------------------------*
VHOYJK:
	XOR	A
	LD	BC,0420h	;BC#[4,32]
	LD	DE,0407h	;DE#[4, 7]
	EXX
	LD	BC,0C06h	;BC'#[ 12,6]
	LD	DE,0EC03h	;DE'#[-20,3]
HV_YJK:
	CALL	SubDd
	ADD	A,B
	CALL	SubDd
	ADD	A,C
	CALL	SubDd
	ADD	A,D
	CALL	SubDd
	ADD	A,E
	EXX
	RET

; ‰¡cˆø•ÔYJKs—ñ
; Horizontal vertical reversion YJK procession
;-------------------------------*
HikYJK:
	CALL	HiYJK2
	ADD	A,C
HiYJK2:
	CALL	SubC
	ADD	A,D
SubC:
	CALL	SubDd
	SUB	E		;E'#[63,14,2,1]
SubDd:
	EXX
SubDd2:
	PUSH	BC
LpDdt:
	CALL	SubA1
	ADD	A,D
	DJNZ	LpDdt

	EX	AF,AF'
	XOR	A
	SUB	D
	LD	D,A		;D#=-D#
	EX	AF,AF'

	POP	BC
	EXX
	RET

;-------------------------------*
SubA:
	PUSH	BC

	LD	B,7
	JR	SubA2		;C#=+-2
SubA3:
	CALL	SubA1
	ADD	A,D
	JR	SubA1
SubA1d:
	DEC	E
	DEC	E
SubA1i:
	INC	E
	INC	A
SubA1:
	PUSH	BC

	LD	B,E
SubA2:
	LD	(HL),A
LpSubA:
	INC	L
	ADD	A,C
	LD	(HL),A
	DJNZ	LpSubA

	POP	BC
	INC	L
	EX	AF,AF'
	XOR	A
	SUB	C
	LD	C,A		;C#=-C#
	EX	AF,AF'
	RET

;********************************
; ƒAƒNƒeƒBƒuƒrƒfƒIƒy[ƒW‚ÌØ‚èŠ·‚¦ 2011/0421
; Change of an active video page
;********************************

LDMVP0:
	CALL	LDIRMV
VPAGE0:
	XOR	A		;Page 0
VPAGE:
	LD	(ACPAGE),A
	LD	IX,SETPAG
	JP	EXTROM

;********************************
; ƒXƒ^ƒeƒBƒbƒNƒf[ƒ^‚ÌŒvŽZ 2011/0519
; Calculation for the static data
;********************************

STATIC:
	LD	HL,DYNPLT	;“®“IƒpƒŒƒbƒg(ˆÃ†Œ®)‚Ì‰Šú‰»
	LD	B,L		;B#=0
	LD	A,(Encryp)
	CP	1
	JR	Z,Encry		;‡—ñˆÃ†‚ª—LŒø‚È‚çŒ»ó‚ÌƒpƒŒƒbƒg‚ðŒp³‚·‚é

	EX	AF,AF'

; ˆÃ†Œ®‚ð‰Šú‰»‚·‚é
; The cipher key is initialized.
;-------------------------------*
	LD	BC,38FFh	;BC#[56,255]
	LD	A,(DAC+2)	;A#=screen mode
	CP	8
	LD	D,L		;D#=0
	LD	E,L		;E#=0
	JR	Z,NotZ2

	INC	E		;E#=1
	JR	NC,NotZ2
	JR	NotZ1
LpDPLT:
	INC	D		;D#=1-56
	LD	A,D
	RLCA			; SC5-7
	RLCA
	RLCA
	RLCA			; PPPP00PP
	LD	C,A
NotZ1:
	LD	E,B
	LD	B,L		;B#=0
Lp256:
	LD	(HL),C
	INC	C
	INC	L
	DJNZ	Lp256

	LD	B,E
	INC	H
	DJNZ	LpDPLT

	JR	ChkKey
LpDPLa:
	INC	D		;D#=1-56
	LD	A,D
	LD	C,L		;C#=0
	RRA			; RGB       YJK
	RR	C		; B0000000  J0000000
	RR	C		; 0B000000  0J000000
	DEC	E
	JR	Z,NotRGB

	RRA
NotRGB:
	INC	E
	RR	C		; R0B00000  00J00000
	RRA
	RR	C		; RR0B0000  Y00J0000
	DEC	E
	JR	NZ,NotYJK

	RRA
NotYJK:
	INC	E
	RR	C		; 0RR0B000  YY00J000  
	RRA
	RR	C		; G0RR0B00  YYY00J00  
	RRA
	RR	C		; GG0RR0B0  YYYY00J0  
	RRA
	RR	C		; GGG0RR0B  YYYYY00J  
NotZ2:
	LD	A,B
	LD	B,L		;B#=0
Lp256a:
	LD	(HL),C
	INC	C
	INC	L
	DJNZ	Lp256a

	LD	B,A
	INC	H
	DJNZ	LpDPLa
ChkKey:
	EX	AF,AF'
	JR	C,Encry

; ‹¤’ÊŒ®‚Å“®“IƒpƒŒƒbƒg‚ð512‰ñ‘~‚«¬‚º‚é 2011/0519
; A dynamic palette is mixed 512 times with a common key.
;-------------------------------*
	LD	HL,CommKey
	LD	DE,PLTMAP
	LD	C,64
	LDIR
	LD	H,D		;HL#=PLTMAP
	LD	L,B
	LD	C,192
	LDIR
	LD	B,192
LpADD:
	LD	A,(HL)
	ADD	A,B
	LD	(HL),A
	INC	L
	DJNZ	LpADD
LpKey:
	LD	A,(HL)
	LD	E,B
	CALL	DPscan
	CALL	DPsca1
	LD	B,E
	DEC	H		;HL#=PLTMAP
	INC	L
	DJNZ	LpKey

; ƒXƒ^ƒeƒBƒbƒNƒf[ƒ^‚ð‰Šú‰» 
; Static data is initialized.
;-------------------------------*
Encry:
	LD	HL,X5+1		;X5+1`VLB+1
	LD	DE,Y5
	LD	(HL),B
	LD	C,28
	LDIR
	LD	HL,16
	LD	(NY),HL		;‰Šú’l NY=16
	LD	A,(B0)		;•ªŠ„‰æ‘œ‚Ì‰¡• X4=B0*16
	LD	C,A		;C#=B0[1,2,4]
	RRA
	JR	C,SETX4

	SLA	L		;HL#=32
	RRA
	JR	C,SETX4

	SLA	L		;HL#=64
SETX4:
	LD	(X4),HL
	LD	(NX),HL		;‰Šú’l NX=X4
	LD	(NX2),HL	;       NX2=X4
	LD	E,L		;E#=X4
	LD	D,L
	LD	HL,(X3)		;––’[•ªŠ„‰æ‘œ‚Ì‰¡• X5=(X3 AND (X4-1))+1
	LD	A,L
	DEC	D
	AND	D
	INC	A
	LD	(X5),A
	EX	AF,AF'		;A'#=X5
	LD	A,(Y3)		;c• Y5=(Y3 AND 15)+1
	LD	D,A		;D#=Y3
	AND	15
	INC	A
	LD	(Y5),A
	SRL	H		;KX=X3\X4+1
	RR	L
	SRL	E
	SRL	E
LPKX:
	SRL	L
	SRL	E
	JR	NC,LPKX

	INC	L		;L#=KX
	LD	A,D		;c•ûŒü‚Ì‰ñ” KY=Y3\16+1
	RRA
	RRA
	RRA
	RRA
	AND	15
	INC	A
	LD	H,A		;H#=KY
	LD	(KX),HL
	LD	IX,BM1
	EX	AF,AF'		;A#=X5
	LD	E,16		;H#=X5
	CALL	BM1_32		;‰E’[ BM1(X5,16)
	LD	HL,(B0)		;H#=X4
	LD	DE,(Y5)		;E#=Y5
	CALL	BM1_3		;‰º’[ BM2(X4,Y5)
	CALL	BM1_32		;‰E‰º BM3(X5,Y5)
	LD	HL,BM0
	LD	A,255
	LD	(HL),A		;•W€ BM0=255
	LD	(NBM),A		;NBM ‰Šú’l=255
	LD	(BMm),HL	;m(BMm)=mBM0
	LD	HL,(Y1)
	LD	H,1
	LD	(SY),HL		;‹éŒ`“]‘—æ‚ÍVRAM-1
	LD	(DY),HL
	LD	A,(DAC+2)	;A#=ƒXƒNƒŠ[ƒ“ƒ‚[ƒh”Ô†
	CP	8
	JR	C,SC567A

	CP	10
	RET	NZ		;SCREEN 8,11,12
SC567A:
	LD	A,H		;A#=1 RGBƒpƒŒƒbƒg‚Ì“]‘—€”õ
	CALL	VPAGE		;ƒAƒNƒeƒBƒuƒy[ƒW‚ðVRAM-1
	LD	HL,(ATRBAS)
	LD	L,80h
	LD	DE,RGBPLT
	LD	C,32
	XOR	A		;F#=Z
	RET

;********************************
; •ªŠ„‰æ‘œ‚ÌƒoƒCƒg”‚ÌŒvŽZ (NX*NY-1)\B0  2011/0421
; Calculation for the number of bytes of a division image.
;********************************

BM1_32:
	LD	H,A		;H#=X5
BM1_3:
	CALL	MULT		;Š|‚¯ŽZ(HL#=H#*E#)
	DEC	HL
	LD	B,C		;C#=B0
	SRL	B		;B#=B0\2
	JR	C,BMSET		;SCREEN 8~12	B#=0
LPBM:
	SRL	H		;HL#\2
	RR	L
	DJNZ	LPBM
BMSET:
	LD	(IX+0),L
	INC	IX
	RET

;********************************
; Š|‚¯ŽZ^-^;HL# = H# * E#
; Multiplication
;********************************

MULT:
	LD	D,0
	LD	L,D
	LD	B,8
MULT1:
	ADD	HL,HL
	JR	NC,MULT2

	ADD	HL,DE
MULT2:
	DJNZ	MULT1

	RET

;********************************
; •ªŠ„‰æ‘œ‚ÌˆÊ’u‚Ì‹L˜^ 2010/0614
; Record of the position of a division image
;********************************

IPOSIT:
	EX	DE,HL		;(HL,A,A',B,C)#=(SX,SY,HC,VBM,CHK*SUM)
	LD	HL,IP
	INC	(HL)
	LD	L,(HL)
	LD	(HL),E		;E#=X_L
	INC	H
	LD	(HL),D		;D#=X_H
	INC	H
	LD	(HL),A		;A#=Y
	EX	AF,AF'
	INC	H
	LD	(HL),A		;A#=HC
	INC	H
	LD	(HL),B		;B#=VBM
	INC	H
	LD	A,(NX)
	LD	(HL),A		;A#=NX
	INC	H
	LD	(HL),C		;C#=CHECK*SUM
	RET

;********************************
; ‰ß‹Ž‚Ì•ªŠ„‰æ‘œ‚ÌÄ—˜—p 2011/0209
; Reuse of the past division image
;********************************

IPBLTV:
	LD	H,IP_H
	LD	E,(HL)
	INC	H
	LD	D,(HL)
	INC	H
	LD	A,(HL)
	LD	HL,(SX)
	LD	BC,(SY)
	PUSH	DE

	EXX

	POP	HL
	LD	(SX),HL
	LD	(SY),A
	LD	HL,SX
	CALL	EXTROM
	EXX
	LD	(SX),HL
	LD	(SY),BC
	RET

;********************************
; c‚Ì•ªŠ„ƒTƒCƒY‚ÌŒŸo 2011/0708
; Detection of vertical division size
;********************************

NYEND:
	LD	A,B		;A#=KY
	LD	B,C		;B#=KX
	LD	C,A		;(B,C)#=(KX,KY)
	DEC	A
	RET	NZ
				;KY=1‚È‚ç•ªŠ„ƒTƒCƒY‚ð‰º’[‚É
	LD	HL,(Y5)
	LD	(NY),HL
	LD	HL,BMm		;(HL#)=m[BM0,BM1]
	INC	(HL)
	INC	(HL)
	JR	SetNBM		;(HL#)=[BM2,BM3]

;********************************
; ‰¡‚Ì•ªŠ„ƒTƒCƒY‚ÌŒŸo 2002/0204
; Detection of horizontal division size
;********************************

NXEND:
	LD	HL,(KX)
	LD	A,H		;A#=KY
	DEC	L		;L#=KX-1
	JR	NZ,KXls1

	CP	C		;C#=KY~
	RET	NZ		;(KX=1 AND KY~<>KY)‚È‚ç•ªŠ„ƒTƒCƒY‚Í•s•Ï
KXls1:
	XOR	C		;C#=KY~
	RRA
	JR	C,NXEND2

	DEC	B		;Šï”ƒ‰ƒCƒ“¨	B#=KX~		
	RET	NZ
			
	LD	HL,BMm		;ÅI—ñ‚È‚ç•ªŠ„ƒTƒCƒY‚ð‰E’[‚É
	INC	(HL)		;(HL#)=m[BM1,BM3]
	LD	A,(X5)
	JR	SETNX
NXEND2:
	LD	A,L		;‹ô”ƒ‰ƒCƒ“©	A#=KX-1	
	CP	B		;		B#=KX~
	RET	NZ
KX_1:
	LD	HL,BMm		;‰E‚©‚ç‚Q”Ô–Ú‚È‚ç•ªŠ„ƒTƒCƒY‚ð•W€‚É–ß‚·
	DEC	(HL)		;(HL#)=m[BM0,BM2]
	LD	A,(X4)
SETNX:
	LD	(NX),A
SetNBM:
	LD	L,(HL)
	LD	A,(HL)
	LD	(NBM),A
	RET

;********************************
; •ªŠ„‰æ‘œ‚Ì•ûŒü“]Š· 2011/0617
; Turn of a division image
;********************************

TURNX:
	DEC	DE		;DE#=NX2
	LD	A,E
	CPL
	LD	E,A
	LD	A,D
	CPL
	LD	D,A
	LD	(NX2),DE	;NX2=-NX2
	ADD	HL,DE		;HL#=ŽŸ‚Ìs‚ÌŠJŽnˆÊ’u
	LD	DE,RWTBL	;‘æ3ƒ}ƒgƒŠƒbƒNƒX‚ð”½“] Normal/Mix
	LD	A,(LOGOP2)
	RLA			;Matrix Mode 00 01 10
	JR	NC,LpRVT

	LD	D,RZ63_H	;‘æ7ƒ}ƒgƒŠƒbƒNƒX‚ð”½“] Dit/YJK
LpRVT:
	LD	A,(DE)
	CPL
	LD	(DE),A
	INC	E
	DJNZ	LpRVT

	RET

;********************************
; “®“IƒpƒŒƒbƒg‚ÌXV (F‡—ñ) 2011/0418
; Renewal of dynamic palette (Color Permutation)
;********************************

DPdef:
	LD	C,0		;“®“IƒpƒŒƒbƒg‚Ì‰Šú’l C#[0]
	LD	L,C		;L#=‘OF/¡F
DPsca1:
	LD	A,L		;A#=‘OF
DPscan:
	LD	L,C		;L#=‘OF/¡F
DPsca3:
	LD	C,A		;A#=¡F/‘OF
DPsca2:
	LD	H,DP_H
	LD	B,56
LpDynp:
	CP	(HL)
	JR	NZ,NextDP

	LD	A,H
	SUB	DP_H
	INC	A		;A#=[1-56]
	LD	B,A
	DEC	B
	RET	Z

	JR	LpRott	
NextDP:
	INC	H
	DJNZ	LpDynp

	DEC	H		;H#=DP_H+55
	LD	B,55
	XOR	A
LpRott:
	DEC	H
	LD	D,(HL)
	INC	H
	LD	(HL),D
	DEC	H
	DJNZ	LpRott

	LD	(HL),C
	RET

;********************************
; ƒpƒŒƒbƒgƒ}ƒbƒv‚Ì•â‘«”‚ÌŒvŽZ 2011/1226
; Calculation of number of supplementations of palette maps
;********************************

PMSset:
	CP	2		;A#=PT [0,1,2,3,4,5,6]
	LD	C,3		;IS=3
	JR	C,SetPSB
	JR	Z,PT2

	CP	C
	JR	Z,PT3

	SUB	C		;A#=1,2,3
	CP	C
	DEC	A		;A#=0,1,2
	JR	C,SetPT

	LD	C,A		;C#=2
	DEC	A		;A#=1
SetPT:
	LD	(PT),A		;ƒpƒŒƒbƒg‚ÌŽí—Þ [0,1,2,3,0,1,1]
	INC	C
	INC	C		;C#=5,5,4
	DEFB	11h		;LD DE,nn (2byte skip)
PT3:
	RLCA
PT2:
	INC	A
SetPSB:
	LD	(IS),BC		;VF•„†‚ÌƒCƒ“ƒfƒbƒNƒX’· [3,3,3,3,5,5,4]
	LD	(PMSUB),A	;  ƒpƒŒƒbƒgƒ}ƒbƒv‚Ì•â‘«” [0,1,3,7,0,1,1]
	RET

;********************************
; ‰æ‘œ‚Ìˆ³k 2011/0731
; Compression of an image
;********************************

Comprs:
	LD	A,4		;PRESET
	LD	(LOGOP),A
	EXX			;HL#=0 DE#=X1
	LD	HL,(X2)
	LD	DE,(X1)
	XOR	A
	SBC	HL,DE		;X3=X2-X1
	LD	(X3),HL
	LD	HL,(Y2)
	LD	DE,(Y1)
	LD	H,A
	LD	D,A
	OR	A
	SBC	HL,DE		;Y3=Y2-Y1
	LD	H,VerNum	;Y3‚ÌãˆÊƒoƒCƒg‚Éƒo[ƒWƒ‡ƒ“”Ô†
	LD	(Y3),HL
	CALL	STATIC		;ƒXƒ^ƒeƒBƒbƒNƒf[ƒ^‚ðŒvŽZ
	CALL	Z,LDMVP0	;SCREEN 5-7,10‚Íƒƒ‚ƒŠ‚ÉRGBƒpƒŒƒbƒg‚ð“]‘—
DSC8BC:
	EXX			;BC#=[8,40]
	EX	DE,HL		;HL#=X1 DE#=0
	CALL	LDIRVM		;VRAM-0‚ÉŽn“_‚Æ‘å‚«‚³‚ð“]‘—
	LD	HL,(X1)
	LD	(SX),HL
	LD	BC,(KX)
LPYcmp:
	PUSH	BC		;Y•ûŒü‚Ìˆ—	(B,C)#=(KY,KX)		

	CALL	NYEND		;•ªŠ„ƒTƒCƒY‚ÌŒŸo_Y
LPXcmp:
	PUSH	BC		;X•ûŒü‚Ìˆ—	(B,C)#=(KX,KY)		

	CALL	NXEND		;•ªŠ„ƒTƒCƒY‚ÌŒŸo_X
	LD	HL,BLTHED
	LD	(DX),HL
	LD	HL,SX
	LD	IX,BLTMV	;VRAM‚©‚çRAM‚É‹éŒ`“]‘—
	CALL	EXTROM
	CALL	MEMcmp		;ˆ³kƒf[ƒ^‚ðì‚Á‚ÄVRAM‚É“]‘—
	LD	A,(VA+1)	;A#=ˆ³kƒf[ƒ^‚ÌYÀ•W
	LD	C,A
	LD	A,(DAC+2)
	CP	7
	LD	A,C
	JR	NC,SC7_C

	RLA			;SCREEN5,6‚Í1ƒ‰ƒCƒ“‚ª128ÊÞ²Ä
SC7_C:
	LD	HL,(SY)		;L#=•ªŠ„‰æ‘œ‚ÌYÀ•W
	CP	L
	JR	NC,NotPrs

	DEC	H
	LD	(DY),HL
	LD	HL,(SX)
	LD	(DX),HL
	LD	IX,BLTVV	;VRAMŠÔ‚Å‹éŒ`“]‘—
	CALL	EXTROM		;ˆ—Ï‚Ý‚Ì•ªŠ„‰æ‘œ‚ð”½“]•\Ž¦
NotPrs:
	POP	BC
	LD	HL,(SX)		;•ªŠ„‰æ‘œ‚ðX•ûŒü‚ÉˆÚ“®
	LD	DE,(NX2)
	ADD	HL,DE
	LD	(SX),HL
	DJNZ	LPXcmp

	CALL	TURNX		;•ªŠ„‰æ‘œ‚Ì•ûŒü“]Š·
	LD	(SX),HL		;ŽŸ‚Ìs‚ÌŠJŽnˆÊ’u
	LD	HL,(SY)
	LD	DE,(NY)
	ADD	HL,DE		;•ªŠ„‰æ‘œ‚ðY•ûŒü‚ÉˆÚ“®
	LD	(SY),HL

	POP	BC
	DJNZ	LPYcmp
RPc:
	LD	A,(RP)
	OR	A
	RET	Z

	DEC	A		;ŒJ‚è•Ô‚µ‚ª‚ ‚ê‚ÎVRAM‚É“]‘—‚·‚é
	LD	B,A
	LD	A,11110000b	;VQ-RLN 11110000b
RPIPVM:
	LD	HL,(VA)
	CALL	NWRVRM
	INC	HL
	LD	A,B
	CALL	NWRVRM
	INC	HL
	LD	(VA),HL
	XOR	A
	LD	(RP),A
	RET

;********************************
; ˆ³kƒf[ƒ^‚ðì‚Á‚ÄVRAM‚É“]‘—‚·‚é 2011/1228
; Compression data is made and it transmits to VRAM.
;********************************

MEMcmp:
	LD	HL,(NBM)
	INC	HL
	EX	DE,HL		;DE#=VBM
	LD	A,(LOGOP1)
	OR	A		;ƒƒWƒJƒ‹ƒIƒyƒŒ[ƒVƒ‡ƒ“‚ª
	JR	NZ,IPc		;[PSET]‚Å‚È‚¢‚Æƒ^ƒCƒ‹‚ð—˜—p‚Å‚«‚È‚¢

	LD	A,(IP)
	OR	A
	JR	Z,IPc

; ƒ^ƒCƒ‹ƒ‰ƒ“ƒŒƒ“ƒOƒX•ÏŠ·
; Tile run length conversion
;-------------------------------*
	LD	L,A		;L#=IP
	LD	H,IP_S_H
	LD	A,E		;A#=VBM
	OR	A
	JR	NZ,CHKNX	;•ªŠ„‰æ‘œ‚ª•W€‚æ‚è¬‚³‚¢‚È‚ç‰¡•‚ð’²‚×‚é

	LD	A,(HL)		;(HL#)=IP_SIZ
	CP	E
	JR	NZ,RPOK		;Œ»Ý‚Æ‰ß‹Ž‚Ì•ªŠ„‰æ‘œ‚Ì‘å‚«‚³‚ªˆá‚¤‚Æ—˜—p‚Å‚«‚È‚¢
	JR	RPON
CHKNX:
	INC	H		;(HL#)=IP_NX
	LD	A,(NX)
	CP	(HL)
	JR	NZ,RPOK		;Œ»Ý‚Æ‰ß‹Ž‚Ì•ªŠ„‰æ‘œ‚Ì‰¡•‚ªˆá‚¤‚Æ—˜—p‚Å‚«‚È‚¢
RPON:
	LD	B,E		;B#=VBM
	LD	HL,BLTWRK
LPCB:
	LD	A,(HL)
	INC	H		;HL#=BM
	CP	(HL)
	JR	NZ,RPOK

	DEC	H		;HL#=BLTWRK
	INC	L
	DJNZ	LPCB

	LD	HL,RP		;ƒ^ƒCƒ‹ƒ‰ƒ“ƒŒƒ“ƒOƒX‚ð—˜—p‚·‚é
	INC	(HL)		;ŒJ‚è•Ô‚µ‚Ì”‚ð‚P‚Â‘‚â‚·
	RET
RPOK:
	CALL	RPc		;VRAM‚ÉŒJ‚è•Ô‚µ‚Ì”‚ð“]‘— (–ß‚è’l A#=0)

; ƒ^ƒCƒ‹ƒCƒ“ƒfƒbƒNƒX•ÏŠ· 2001/0401
; Tile index conversion
;-------------------------------*
IPc:
	LD	B,D		;‰æ‘œ_BLTWRK()‚ðBM()‚É“]‘—
	LD	C,E		;BC#=VBM
	LD	HL,BLTWRK
	LD	DE,BM
	PUSH	BC
	PUSH	DE

	LDIR
	DEC	HL
	LD	L,C		;HL#=BLTWRK

	POP	DE		;DE#=BM
	POP	BC
	LDIR			;BLTWRK -> BM Œ´‰æ‘œ•ÛŒì
	OR	A		;ƒƒWƒJƒ‹ƒIƒyƒŒ[ƒVƒ‡ƒ“‚ª
	JR	NZ,PXscan	;[PSET]‚Å‚È‚¢‚Æƒ^ƒCƒ‹‚ð—˜—p‚Å‚«‚È‚¢

	LD	E,L		;E#=VBM
	DEC	HL
	LD	L,C		;HL#=BM
	LD	D,(HL)		;D#=BM(0) æ“ªF
	LD	B,E		;B#=VBM
	XOR	A
LPSUM:
	ADD	A,(HL)		;‰æ‘œ‚Ìƒ`ƒFƒbƒNƒTƒ€‚ðŒvŽZ
	INC	L
	DJNZ	LPSUM

	LD	C,A		;C#=CHECK*SUM
	LD	A,(IP)
	CP	2
	JR	C,SetIP		;‰ß‹Ž‚É•ªŠ„‰æ‘œ‚ª‚È‚¢

	LD	B,A
	DEC	B
LOOPIP:
	PUSH	BC		;(B,C)#=(IP,CHECK*SUM)

	LD	L,B
	LD	H,IP_B_H
	LD	A,D		;A#=BM(0)
	CP	(HL)		;(IP_BM)
	JR	NZ,NOTIP	;•ªŠ„‰æ‘œ‚Ìæ“ªF‚ªˆá‚¤‚È‚ç—˜—p‚Å‚«‚È‚¢

	INC	H
	LD	A,E		;A#=VBM
	OR	A
	JR	NZ,CHK_NX	;•ªŠ„‰æ‘œ‚ª•W€‚æ‚è¬‚³‚¢‚È‚ç‰¡•‚ð’²‚×‚é

	LD	A,(HL)		;(HL#)=IP_SIZ
	CP	E
	JR	NZ,NOTIP	;Œ»Ý‚Æ‰ß‹Ž‚Ì•ªŠ„‰æ‘œ‚Ì‘å‚«‚³‚ªˆá‚¤‚Æ—˜—p‚Å‚«‚È‚¢

	INC	H		;(HL#)=IP_NX
	JR	CHKSUM
CHK_NX:
	INC	H		;(HL#)=IP_NX
	LD	A,(NX)
	CP	(HL)
	JR	NZ,NOTIP	;Œ»Ý‚Æ‰ß‹Ž‚Ì•ªŠ„‰æ‘œ‚Ì‰¡•‚ªˆá‚¤‚Æ—˜—p‚Å‚«‚È‚¢
	JR	NOCHK		;CHECK*SUM‚ð–³Ž‹
CHKSUM:
	INC	H
	LD	A,C		;A#=CHECK*SUM
	CP	(HL)		;(IP_CHK)
	JR	NZ,NOTIP	;•ªŠ„‰æ‘œ‚ÌCHECK*SUM‚ªˆá‚¤‚Æ—˜—p‚Å‚«‚È‚¢
NOCHK:
	PUSH	DE		;DE#=(BM(0),VBM)

	LD	L,B		;L#=IP
	LD	IX,BLTMV	;VRAM‚©‚çBLTWRK‚É‹éŒ`“]‘—‚·‚é
	CALL	IPBLTV

	POP	DE
	LD	B,E		;B#=VBM
	LD	HL,BLTWRK
LPCBIP:
	LD	A,(HL)		;‰ß‹Ž‚Ì‰æ‘œ‚ÆÆ‡‚·‚é
	INC	H		;HL#=BM
	CP	(HL)
	JR	NZ,NOTIP

	DEC	H		;HL#=BLTWRK
	INC	L
	DJNZ	LPCBIP
				;ƒ^ƒCƒ‹ƒCƒ“ƒfƒbƒNƒX‚ð—˜—p‚·‚é
	POP	BC		;B#=IP
	LD	A,11110001b	;VQ-IDX 11110001b
	CALL	RPIPVM
IPcall:
	LD	B,E		;B#=VBM
	LD	A,D
	EX	AF,AF'		;A'#=BM(0) æ“ªF HC
	LD	HL,(SX)		;(A',B,C)#=(HC,VBM,CHK*SUM)
	LD	A,(SY)		;(HL,A)#=(SX,SY)
	JP	IPOSIT		;‰æ‘œ‚ÌˆÊ’u‚ð‹L‰¯‚·‚é
NOTIP:
	POP	BC
	DJNZ	LOOPIP
SetIP:
	CALL	IPcall

; •ªŠ„‰æ‘œ‚Ì‰æ‘f‚Ì‘–¸ 2011/0209
; The scan of the pixel of a division image
;-------------------------------*
PXscan:
	LD	A,(NX)
	LD	HL,(X4)
	CP	L
	LD	HL,BM
	LD	A,L		;A#=0
	JR	C,SetVD		;•ªŠ„‰æ‘œ‚Ì‰¡•‚ª•W€–¢–ž‚È‚çÜ‚è•Ô‚µ–³‚µ

	LD	E,L		;E#=0
	EXX
	LD	B,A		;B'#=0
	LD	C,Z27T_H
	CALL	LpMtrx		;•ªŠ„‰æ‘œ‚ÌÀ•W•ÏŠ·
	LD	C,WTBL_H
	CALL	LpMtrx		;•ªŠ„‰æ‘œ‚ÌÀ•W•ÏŠ·
	EXX
	LD	L,E		;HL#=W_Scan
	LD	A,(NY)
	CP	16
	LD	A,L		;SD=0
	JR	C,SetVD		;•ªŠ„‰æ‘œ‚Ìc•‚ª•W€–¢–ž‚È‚ç‰¡‚Ì‚Ý

; F‚ª•Ï‰»‚µ‚½‰ñ”‚ð’²‚×‚é 2001/0118
; The number of times from which the color changed is investigated.
;-------------------------------*
	LD	DE,WS_K
	LD	C,L		;C#=0
	LD	B,8
LPGETK:
	PUSH	BC

	LD	B,255
	LD	A,(HL)		;HL#=W_Scan/Z_Scan/RWScan/CN
LP_CHK:
	INC	L
	CP	(HL)
	JR	Z,LCHK

	INC	C		;C#=K
	LD	A,(HL)
LCHK:
	DJNZ	LP_CHK

	LD	A,C
	LD	(DE),A
	INC	E
	INC	H
	LD	L,B

	POP	BC
	DJNZ	LPGETK

; F‚Ì•Ï‰»”‚ªÅ­‚É‚È‚és—ñ‚ð‘I‚Ô 2011/1228
; It scans by a minimum color change matrix.
;-------------------------------*
	LD	HL,0D642h	;Lp_ZRK_Address
	LD	E,WS_K_L+7	;Å—DæMatrix
	LD	C,1Dh		;C#=[DEC  E](~‡)
	LD	A,(InterF)
	OR	A
	JR	Z,SetCod
				;Interlace Image
	DEC	C		;C#=1Ch [INC  E](¸‡)
	LD	E,WS_K_L
SetCod:
	LD	(HL),C		;Ž©ŒÈ‘‚«Š·‚¦
	LD	H,D
	LD	L,E		;DE#=HL#=WS_K
	LD	B,7
Lp_ZRK:
	DEC	E		;~‡		* INC	E (¸‡)
	LD	A,(DE)		;A#=Z-K
	CP	(HL)		;(HL#)=W/Z/RW-K
	JR	NC,NEXT_K

	LD	L,E		;(HL#)=Z/RW/RZ-K
NEXT_K:
	DJNZ	Lp_ZRK

	LD	A,L
	SUB	WS_K_L		;A#=0,1,2,3,4,5,6,7
	LD	B,A
	LD	HL,W_Scan
	ADD	A,H
	LD	H,A
	LD	A,B

; ‘–¸‚µ‚½‰æ‘œ‚ðƒƒ‚ƒŠ‚É“]‘—
; The scanned image is transmitted to a memory.
;-------------------------------*
SetVD:
	LD	(SD),A		;A#=‘–¸Šp“x
	LD	A,(NBM)
	LD	DE,VD
	LD	B,E
 	LD	C,A
	INC	BC		;BC#=VBM
	PUSH	DE

	LDIR			;BM/W_Scan/Z_Scan/RWScan/CN -> VD Å“K‘–¸‰æ‘œ

	POP	HL		;HL#VD
	LD	B,A		;B#=NBM
	RRA
	RRA
	RRA
	AND	1Fh
	INC	A
	LD	(VLA),A		;’·‚³‚Ìƒ¿•„†‚ÌƒoƒCƒg” VLA
	PUSH	AF

; •ªŠ„‰æ‘œ‚Ìƒ‰ƒ“ƒŒƒ“ƒOƒX•ÏŠ· 2003/0225
; Run length conversion of a division image
;-------------------------------*
	LD	DE,CN		;K=0
	LD	A,(HL)		;CN=BM(I)
	LD	(DE),A		;CN(K)=CN
LoopRL:
	INC	L		;FOR I=1 TO NBM
	CP	(HL)
	JR	Z,NextRL
				;  IF CN<>BM(I) THEN
	LD	A,(HL)		;    CN=BM(I)
	EX	AF,AF'
	LD	A,L
	DEC	A
	SUB	C
	INC	D
	LD	(DE),A		;    LN(K)=I-J-1
	LD	C,L		;    J=I
	INC	E		;    K=K+1
	EX	AF,AF'
	DEC	D
	LD	(DE),A		;  CN(K)=CN:ENDIF
NextRL:
	DJNZ	LoopRL		;NEXT I		

	LD	A,L
	SUB	C
	INC	D
	LD	(DE),A		;LN(K)=I-J-1
	LD	A,E		;A#=K
	LD	(K),A
	INC	A
	LD	(Kps1),A
	LD	HL,0FFh		;HL#[0,255]
	LD	(MP),HL		;MP=255,PT=0

; ’·‚³‚Ìƒ¿•„†‚Ìì¬ 2011/0209
; Creation of alpha code of length
;-------------------------------*
	LD	HL,LA
	LD	DE,LA+1
	LD	C,35
	LD	(HL),B
	LDIR			;‰Šú‰» LA--LB
	DEC	H
	LD	L,B		;HL#=LN
	LD	E,LA_L-1	;DE#=LA-1
	EXX
	LD	B,A		;B#=K+1
	LD	A,80h
LoopLA:
	EXX
	LD	B,(HL)		;B#=’·
	INC	B
	EX	DE,HL		;HL#=LA
LPLN:
	RLCA			;ƒrƒbƒg‚ð¶‚É‰ñ“]
	JR	NC,LNCK

	INC	L
LNCK:
	DJNZ	LPLN

	LD	C,A
	OR	(HL)
	LD	(HL),A
	LD	A,C
	EX	DE,HL		;HL#=LNx,DE#=LAx
	INC	L
	EXX
	DJNZ	LoopLA

; ’·‚³‚ÌƒÀ•„†‚Ìì¬ 2011/0209
; Making of beta code of length
;-------------------------------*
	LD	HL,LB
	LD	A,L		;A#=80h
	EXX			;HL'=LB
	EX	AF,AF'		;A'#=bit counter

	POP	AF
	LD	B,A		;B#=VLA
	DEC	A
	RRA
	RRA
	RRA
	AND	3		;A#=(VLA-1)\8
	ADD	A,LB_L		;A#=(VLA-1)\8+LB_L
	LD	E,A		;DE#=LB+(VLA-1)\8
	LD	HL,LA
LoopLB:
	LD	A,(HL)
	INC	A
	JR	Z,NextLB	;A#=255

	DEC	A
	INC	E
	LD	(DE),A
	EXX			;HL#=LB
	EX	AF,AF'
	LD	C,A
	OR	(HL)
	LD	(HL),A
	LD	A,C	
	EX	AF,AF'
	EXX			;HL#=LA
NextLB:
	EX	AF,AF'		;A#=bit counter
	RRCA
	JR	NC,NextBe

	EXX			;HL#=LB
	INC	L		;LB++
	EXX			;HL#=LA
NextBe:
	EX	AF,AF'
	INC	L		;LA++
	DJNZ	LoopLB		;B#=0

	LD	A,E
	SUB	LB_L-1
	LD	(VLB),A

; ’·‚³‚ÌƒÁ•„†‚Ìì¬ 2000/1231
; Creation of a gamma code of length
;-------------------------------*
	LD	A,1		;2^PT-1=1
	LD	L,A		;HL#=LIVB
	LD	C,31		;‰Šú‰»[32]
	CALL	PP_PMc		;ƒÁ•„†(PT=0)=’·‚³‚ÌƒpƒŒƒbƒgƒ}ƒbƒv•ÏŠ· LIVB
	LD	A,L
	LD	(VLIVB),A	;ƒÁ•„†‚ÌƒoƒCƒg” VLIVB

; “®“IƒpƒŒƒbƒg‚ªXV‚³‚ê‚é‘O‚Ìó‘Ô‚ð•Û‘¶ 2009/0812
; The state before a dynamic palette is renewed is preserved.
;-------------------------------*
	LD	HL,DYNPLT
	LD	DE,aDYPLT
	LD	BC,sDYPLT
	LDIR

; F—ñ‚ÌMTF•ÏŠ· 2011/0410
; MTF conversion of a color sequence
;-------------------------------*
	LD	HL,VM0		;‰Šú‰» VM0--VM6
	LD	DE,VM0+1
	LD	C,13
	LD	(HL),B
	LDIR
	CALL	DPdef		;“®“IƒpƒŒƒbƒg‚Ì‰Šú’l‚ðXV
	LD	H,CN_H		;HL#=CN
	EXX			;C'#=0
	LD	A,(Kps1)
	LD	B,A		;B#=K+1
LoopPP:
	EXX
	PUSH	HL

	LD	A,(HL)		;A#=¡F C#=‘OF
	CALL	DPscan		;’¼‘OF‚ÌƒpƒŒƒbƒg‚ðXV
	LD	E,A
	CALL	DPsca1		;Œ»ÝF‚ÌƒpƒŒƒbƒg‚ðXV
	LD	A,E
	OR	A		;A#=[0-56]
	JR	NZ,NotNew

	LD	B,11		;VF‚Ì‚Æ‚«
	LD	C,B
	LD	D,B
	LD	H,13
	JR	Over62
NotNew:
	LD	BC,0102h	;BC#[1,2]
	LD	DE,0304h	;DE#[3,4]
	CP	C
	JR	C,SumVM4	;PP=1

	LD	B,D		;B#[3]
	JR	Z,SumVM4	;PP=2

	LD	C,E		;C#[4]
	CP	E
	JR	C,SumVM4	;PP=3

	LD	B,5
	JR	Z,SumVM4	;PP=4

	LD	D,B		;D#[5]
	CP	7
	JR	C,SumVM4	;PP=5-6

	LD	C,6
	JR	Z,SumVM4	;PP=7

	LD	B,11
	LD	H,7
	CP	9
	JR	C,SumVM3	;PP=8

	LD	E,C		;E#[6]
	CP	13
	JR	C,SumVM3	;PP=9-12

	LD	D,H		;D#[7]
	CP	15
	JR	C,SumVM3	;PP=13-14

	LD	C,B		;C#[11]
	LD	L,8
	CP	16
	JR	C,SumVM2	;PP=15

	LD	H,9
	CP	25
	JR	C,SumVM2	;PP=16-24

	LD	E,L		;E#[8]
	CP	29
	JR	C,SumVM2	;PP=25-28

	LD	D,B		;D#[11]
	CP	31
	JR	C,SumVM2	;PP=29-30

	LD	L,10
	JR	Z,SumVM		;PP=31

	LD	H,13
	CP	57
	JR	C,SumVM		;PP=32-56
Over62:
	LD	E,B		;E#[11]
	LD	L,H		;H#[13]
	LD	A,63		;PP=63
	JR	SumVM
SumVM4:
	LD	H,B		;H#[1,3,5]
SumVM3:
	LD	L,C		;C#[2,4,6]
SumVM2:
	EX	AF,AF'
	LD	A,L		;A#[2,4,6,8]
	JR	SumVM1
SumVM:
	EX	AF,AF'
	LD	A,12
SumVM1:
	EX	AF,AF'
	LD	(VM5WRK),HL

	POP	HL
	PUSH	HL

	LD	H,PP_H
	LD	(HL),A		;A#=PP MTFŒW”ƒZƒbƒg[1-56,63]
	LD	HL,(VM1)
	LD	A,B
	LD	B,0
	ADD	HL,BC
	LD	(VM1),HL	;VM1=VM1+W1
	LD	HL,(VM0)
	LD	C,A
	ADD	HL,BC
	LD	(VM0),HL	;VM0=VM0+W0
	LD	HL,(VM2)
	LD	C,D
	ADD	HL,BC
	LD	(VM2),HL	;VM2=VM2+W2
	LD	HL,(VM3)
	LD	C,E
	ADD	HL,BC
	LD	(VM3),HL	;VM3=VM3+W3
	LD	HL,VM5WRK
	LD	C,(HL)		;C#=W5
	INC	L
	LD	A,(HL)		;A#=W4
	LD	HL,(VM5)
	ADD	HL,BC
	LD	(VM5),HL	;VM5=VM5+W5
	LD	C,A
	LD	HL,(VM4)
	ADD	HL,BC
	LD	(VM4),HL	;VM4=VM4+W4
	EX	AF,AF'
	LD	C,A		;BC#=W6
	LD	HL,(VM6)
	ADD	HL,BC
	LD	(VM6),HL	;VM6=VM6+W6

	POP	HL
	LD	C,(HL)		;C#=‘OF
	INC	L
	EXX
	DEC	B
	JP	NZ,LoopPP

; •„†—Ê‚ªÅ¬‚É‚È‚éƒpƒŒƒbƒg‚ð‘I‚Ô 2011/0221
; The amount of codes chooses the palette which becomes the minimum.
;-------------------------------*
	LD	DE,(VM0)	;B#=0
	LD	HL,(VM1)
	CALL	DCOMPR
	JR	NC,VM_2		;(VM1)>=VM0

	EX	DE,HL		;DE#=VM1
	INC	B		;B#=1
VM_2:
	LD	HL,(VM2)
	CALL	DCOMPR
	JR	NC,VM_3

	EX	DE,HL		;DE#=VM2
	LD	B,2
VM_3:
	LD	HL,(VM3)
	CALL	DCOMPR
	JR	NC,VM_4

	EX	DE,HL		;DE#=VM3
	LD	B,3
VM_4:
	LD	HL,(VM4)
	CALL	DCOMPR
	JR	NC,VM_5

	EX	DE,HL		;DE#=VM4
	LD	B,4
VM_5:
	LD	HL,(VM5)
	CALL	DCOMPR
	JR	NC,VM_6

	EX	DE,HL		;DE#=VM5
	LD	B,5
VM_6:
	LD	HL,(VM6)
	CALL	DCOMPR
	LD	A,(K)
	JR	NC,SetVPM

	EX	DE,HL		;DE#=VM6
	LD	B,6
	LD	A,255		;LN•„†‚ðƒLƒƒƒ“ƒZƒ‹
SetVPM:
	LD	(VLN),A
	DEC	DE
	SRL	D		;ƒrƒbƒg”‚ðƒoƒCƒg”‚É•ÏŠ·
	RR	E
	SRL	D
	RR	E
	SRL	D
	RR	E
	INC	DE		;DE#=ƒpƒŒƒbƒgƒ}ƒbƒvƒTƒCƒY (VMb-1)\8+1
	LD	A,B		;B# [0,1,2,3,4,5,6]
	LD	(PT),A		;ƒpƒŒƒbƒgƒ^ƒCƒv
	OR	A
	LD	A,7
	JR	Z,SetMP
LoopMP:
	RLCA
	DJNZ	LoopMP

	CP	112		;A#[7,14,28,56,112,224,193]
	JR	C,SetMP		;     112      224      193
				;01110000 11100000 11000001
	CPL			;10001111 00011111 00111110
	RLCA			;00011111 00111110 01111100
	CP	124		;      31       62      124
	JR	NZ,SetMP

	LD	A,30
SetMP:
	LD	(MP),A		;MP [7,14,28,56, 31, 62, 30]

; ƒf[ƒ^—Ê‚ªÅ¬‚É‚È‚é‘g‚Ý‡‚í‚¹‚ð‘I‚Ô
; An amount of data chooses the combination which becomes the minimum.
;-------------------------------*
Select:
	LD	A,01000000b	;LA 01xxxxxxb
	EX	AF,AF'
	LD	BC,(VLA)
	LD	A,(VLIVB)
	CP	C
	JR	NC,LB_q

	LD	C,A		;BC#=VLIVB
	EX	AF,AF'
	XOR	A		;LIVB 00xxxxxxb
	EX	AF,AF'
LB_q:
	LD	A,(VLB)
	CP	C
	JR	NC,LN_q

	LD	C,A		;BC#=VLB
	EX	AF,AF'
	LD	A,10000000b	;LB 10xxxxxxb
	EX	AF,AF'
LN_q:
	LD	A,(VLN)
	CP	C
	JR	NC,PM_q

	LD	C,A
	INC	C		;BC#=VLN
	EX	AF,AF'
	LD	A,11000000b	;LN 11xxxxxxb
	EX	AF,AF'
PM_q:
	PUSH	BC		;BC#=VL [VLIVB,VLB,VLA,VLN]
CN_q:
	LD	HL,(K)
	CALL	DCOMPR		;HL#=VCN-1,DE#=[VPMAP]
	JR	NC,BM_q
				;VCN-1<[VPMAP]
	EX	DE,HL
	INC	DE		;DE#=VCN
	EX	AF,AF'
	OR	00111000b	;CN xx111xxxb
	EX	AF,AF'
BM_q:
	POP	HL		;HL#=VL [VLN,VLB,VLA,VLIVB]
	ADD	HL,DE		;DE#=VC [VCN,VPMAP]
	EX	DE,HL		;DE#=VL+VC
	LD	HL,(NBM)
	CALL	DCOMPR
NBMsl2:
	LD	DE,VD
	JR	NC,VLCc

	LD	A,11110010b	;BM 11110010b	ˆ³k‚Å‚«‚È‚©‚Á‚½ê‡
	LD	(DE),A
	INC	E		;DE#=LIVB
	LD	C,L		;L#=NBM
	INC	BC
	LD	HL,BM
	EXX
	LD	HL,aDYPLT
	LD	DE,DYNPLT
	LD	BC,sDYPLT
	LDIR			;“®“IƒpƒŒƒbƒg‚ðXV‚³‚ê‚é‘O‚Ìó‘Ô‚É–ß‚·
	EXX
	JR	VTEN
VLCc:
	LD	A,(SD)		;VL+VC<VBM
	LD	C,A
	EX	AF,AF'		;A#=ƒwƒbƒ_
	OR	C		;ƒwƒbƒ_‚É‘–¸Šp“x‚ð“ü‚ê‚æ‚¤
	LD	(DE),A		;ƒwƒbƒ_‚ð‹L˜^
	INC	E		;DE#=LIVB

; ’·‚³‚Ì•„†‚ðì‚é
; The code of length is made.
;-------------------------------*
	PUSH	AF		;A#=ƒwƒbƒ_,DE#=LIVB,B#=0

	AND	11000000b	;’·‚³‚Ì•„†
	JR	Z,LIVBc		;00xxxxxxb LIVB

	CP	10000000b
	LD	HL,LA
	JR	C,LAc		;01xxxxxxb LA
	JR	Z,LBc		;10xxxxxxb LB

	DEC	H		;11xxxxxxb LN
	LD	L,B		;HL#=LN
	LD	A,(Kps1)
	JR	Lc

;-------------------------------*
LAc:
	LD	A,(VLA)
	JR	Lc
LBc:
	LD	L,LB_L		;HL#=LB
	LD	A,(VLB)
Lc:
	LD	C,A
	LDIR
	JR	Cc
LIVBc:
	LD	A,(VLIVB)
	INC	A
	LD	E,A

; F‚Ì•„†‚ðì‚é
; The code of a color is made.
;-------------------------------*
Cc:
	POP	AF
	LD	H,D
	LD	L,B		;HL#=VD
	AND	00111000b	;F‚Ì•„†
	CP	00111000b
	JR	C,PMc		;xx000xxxb PMAP
CNc:
	LD	A,(Kps1)	;K+1F‚ð“]‘—
	LD	C,A
	LD	H,CN_H		;HL#=CN
	JR	VTEN
PMc:
	LD	A,(PT)		;A#=[0,1, 2, 3, 4, 5, 6]
	LD	C,A
	RLCA
	RLCA
	RLCA			;A#=[0,8,16,24,32,40,48] ƒwƒbƒ_
	OR	(HL)
	LD	(HL),A
	LD	A,C		;A#=PT
	PUSH	DE

	CALL	PMSset		;A#=PMSUB [0,1,3,7,0,1,1]
	LD	C,250		;‰Šú‰»[251] B#=0
	LD	H,PM_H		;HL#=PLTMAP
	CALL	PP_PMc		;MTFŒW”‚Ì•„†•ÏŠ·
	LD	C,L
	INC	C		;BC#=VPMAP
	LD	L,B		;HL#=PLTMAP

	POP	DE		;ƒpƒŒƒbƒgƒ}ƒbƒv‚ð“]‘—

; VRAM‚Éˆ³kƒf[ƒ^‚ð“]‘— 2011/0208
; Compression data is transmitted to VRAM.
;-------------------------------*
VTEN:
	LDIR
	LD	C,E
	DEC	C
	DEC	C
	INC	BC
	INC	BC
	LD	HL,(VA)
	LD	D,H
	LD	E,L		;DE#=(VA)
	ADD	HL,BC
	LD	(VA),HL
	LD	HL,VD
	JP	LDIRVM

;********************************
; ‰æ‘œ‚ÌÀ•W•ÏŠ· 2011/0209
; Geometric transformation of image.
;********************************

LpMtrx:
	LD	A,C
	EXX
	LD	D,A
	LD	H,BM_H		;HL#=BM Œ´‰æ
	LD	A,(DE)
	LD	L,A		;L#=WTBL(E#)
	LD	C,(HL)		;C#=BM(WTBL(E#))
	INC	D		;DE#=ZTBL
	LD	A,(DE)
	LD	L,A		;L#=ZTBL(E#)
	LD	B,(HL)		;B#=BM(ZTBL(E#))
	INC	D		;DE#=RWTBL
	LD	A,(DE)
	LD	L,A		;L#=RWTBL(E#)
	LD	A,(HL)
	EX	AF,AF'		;A'#=BM(RWTBL(E#))
	INC	D		;DE#=RZTBL
	LD	A,(DE)
	LD	L,A		;L#=RZTBL(E#)
	LD	A,D
	ADD	A,8
	LD	D,A
	LD	A,(HL)		;A#=BM(RZTBL(E#))
	LD	H,D		;H#=CN_H  À•W•ÏŠ·‚µ‚½‰æ‘œŒ³‚Ì‰æ‘œ(•ÏŠ·s—ñ)
	LD	L,E		;HL#=CN(E#) ‰E45
	LD	(HL),A		;CN(E#)=BM(RZTBL(E#))
	EX	AF,AF'
	DEC	H		;HL#=RWScan c
	LD	(HL),A		;RWScan(E#)=BM(RWTBL(E#))
	DEC	H		;HL#=Z_Scan ¶45
	LD	(HL),B		;Z_Scan(E#)=BM(ZTBL(E#))
	DEC	H		;HL#=W_Scan ‰¡
	LD	(HL),C		;W_Scan(E#)=BM(WTBL(E#))
	INC	E
	EXX
	DJNZ	LpMtrx

	RET

;********************************
; MTFŒW”‚ÌPƒÁ•„†•ÏŠ· 2009/1103
; Code conversion of a MTF coefficient
;********************************

PP_PMc:
	LD	D,H		;‰Šú‰»
	LD	E,L
	INC	E
	LD	(HL),B
	LDIR
	LD	C,A		;C#=2^PT-1 [0,1,3,7]
	LD	L,B
	PUSH	HL		;(SP)=PLTMAP,LIVB-1

	LD	A,(MP)
	INC	A
	JR	NZ,NotLN

	EX	(SP),HL
	INC	L
	EX	(SP),HL		;(SP)=LIVB
NotLN:
	DEC	H		;HL#=PLTPOS,LN
	LD	A,(Kps1)
	LD	B,A		;B#=K+1
	LD	A,80h		;A#=Start_BIT
LP_PMc:
	LD	E,L		;E#=(i)
	LD	D,(HL)		;D#=PP
	EX	(SP),HL		;HL#=Next_PLTMAP,(SP)=PLTPOS
	PUSH	BC		;C#=2^PT-1
	PUSH	HL		;(SP)'=PLTMAP=Next_PLTMAP
	PUSH	AF		;A#=Start_bit=Next_Start_bit

	EX	AF,AF'		;A'#=Start_bit
	LD	A,(MP)
	CP	D		;(A,D)#=(MP,PP)
	LD	B,0
	JR	NC,PltPc	;MP>=PP
NewCc:
	LD	D,CN_H		;New Color***** VF
	LD	A,(DE)		;DE#=CN[i]
	LD	C,A		;C#=CN(i)
	INC	L		;PLTMAP +1
	LD	D,B
	LD	E,B
	LD	A,(IS)
	LD	B,A		;B#=IS [3,4,5]
	EX	AF,AF'		;A#=Start_bit
	JR	LP_ISc		;*****New Color
PltPc:
	LD	A,D		;A#=PP [1-255]
	ADD	A,C		;A#=PP+PT[0,1,3,7,0,1,1]
	LD	E,A		;E#=PM [1-255]
	EX	AF,AF'		;A#=Start_bit
	LD	C,B		;C#=0
LP_VSc:
	INC	B		;Value Shift***** PM‚ÌŒ…”ƒVƒtƒg‚·‚é B#=PM‚ÌŒ…”=VS [1-8]
	RRCA			;Start_bit >>
	JR	NC,VSc

	INC	L		;PLTMAP +1
VSc:
	SRL	E
	PUSH	AF

	RR	C		;E# >> C# = V [PM]

	POP	AF
	JR	NZ,LP_VSc	;*****Value Shift

	EX	AF,AF'		;A'#=Start_bit	E#=0
	LD	A,(PT)
	LD	D,A		;D#=PT [0,1,2,3,0,1,1]
	LD	A,B		;A#=VS [1-8]
	SUB	D		;A#=VS-PT=IS+1
	LD	B,A		;B#=IS+1 [1-8]
	EX	AF,AF'		;A#=Start_bit
	LD	D,E		;DE#=0
	JR	ISc
LP_ISc:
	SRL	C		;Index Shift***** ƒCƒ“ƒfƒbƒNƒX‚ÌŒ…”ƒVƒtƒg‚·‚é 
	RR	D		;C# >> D# = IV
	RRCA			;Start_bit >>
	JR	NC,ISc

	INC	L		;PLTMAP +1
ISc:
	DJNZ	LP_ISc		;*****Index Shift

	EX	AF,AF'		;A'#=Next_Start_bit

	POP	AF		;A#=Start_bit
	JR	SSc
LP_SSc:
	SRL	C		;Start Shift***** Žn‚Ü‚è‚ÌŒ…”ƒVƒtƒg‚·‚é
	RR	D
	RR	E		;C# >> D# >> E# = SIV
SSc:
	RLCA			;Start_bit <<
	JR	NC,LP_SSc	;*****Start Shift

	EX	(SP),HL		;HL#=PLTMAP,(SP)=Next_PLTMAP
	LD	A,(HL)
	OR	C
	LD	(HL),A
	INC	L
	LD	A,(HL)
	OR	D
	LD	(HL),A
	INC	L
	LD	A,(HL)
	OR	E
	LD	(HL),A

	POP	HL		;HL#=Next_PLTMAP
	POP	BC
	EX	AF,AF'		;A#=Next_Start_bit
	EX	(SP),HL		;HL#=PLTPOS,(SP)=Next_PLTMAP
	INC	L		;i++
	DJNZ	LP_PMc

	POP	HL		;HL#=Next_PLTMAP,LIVB
	RET

;********************************
; ‰æ‘œ‚Ì“WŠJ 2011/0420
; Decompression of an image
;********************************

Decomp:
	CALL	LDIRMV		;VRAM-0‚©‚çŽn“_‚Æ‘å‚«‚³‚ð“]‘—
	CALL	STATIC		;ƒXƒ^ƒeƒBƒbƒNƒf[ƒ^‚ðŒvŽZ
	JR	NZ,ESC8BC

	EX	DE,HL		;SCREEN 5-7,10‚ÍVRAM_1‚ÉRGBƒpƒŒƒbƒg‚ð“]‘—
	CALL	LDIRVM
	LD	IX,RSTPLT	;VRAM‚©‚çRGBƒpƒŒƒbƒg‚ðƒŠƒXƒgƒA
	CALL	EXTROM
	CALL	VPAGE0		;ƒAƒNƒeƒBƒuƒy[ƒW‚ðVRAM_0
ESC8BC:
	LD	HL,BLTHED
	LD	(SX),HL
	LD	HL,(X1)
	LD	(DX),HL
	LD	BC,(KX)
LPYres:
	PUSH	BC		;(B,C)#=(KY,KX) ‚x•ûŒü‚Ìˆ—

	CALL	NYEND		;•ªŠ„ƒTƒCƒY‚ÌŒŸo_Y
LPXres:
	PUSH	BC		;(B,C)#=(KX,KY) X•ûŒü‚Ìˆ—

	CALL	NXEND		;•ªŠ„ƒTƒCƒY‚ÌŒŸo_X
	LD	A,(RP)		;ŒJ‚è•Ô‚µ‚Ì”‚ð’m‚é
	OR	A
	JR	NZ,VQ_ON

	CALL	MEMdec		;ƒƒ‚ƒŠ‚É‰æ‘œ‚ð“WŠJ
	LD	HL,NX
	LD	DE,BLTHED
	LD	BC,4
	LDIR
	LD	L,62h
	LD	IX,BLTVM
	CALL	EXTROM		;ƒƒ‚ƒŠ‚©‚çVRAM‚É‹éŒ`“]‘—
	JR	NEXTX
VQ_ON:
	DEC	A		;RP‚ð‚P‚ÂŒ¸‚·
	LD	(RP),A
	LD	A,(IP)
	LD	L,A		;L#=IP ‰æ‘œ”Ô†
VQ_BVV:
	LD	IX,BLTVV	;VRAMŠÔ‚Å‹éŒ`“]‘—
	CALL	IPBLTV		;‰ß‹Ž‚Ì•ªŠ„‰æ‘œ‚ð—˜—p‚·‚é
NEXTX:
	POP	BC		;•ªŠ„‰æ‘œ‚ðX•ûŒü‚ÉˆÚ“®
	LD	HL,(DX)
	LD	DE,(NX2)
	ADD	HL,DE
	LD	(DX),HL
	DJNZ	LPXres

	CALL	TURNX		;•ªŠ„‰æ‘œ‚Ì•ûŒü“]Š·
	LD	(DX),HL		;ŽŸ‚Ìs‚ÌŠJŽnˆÊ’u
	LD	HL,(DY)
	LD	DE,(NY)
	ADD	HL,DE		;•ªŠ„‰æ‘œ‚ðY•ûŒü‚ÉˆÚ“®
	LD	(DY),HL

	POP	BC
	DJNZ	LPYres

	XOR	A		;Zƒtƒ‰ƒO‚ð—§‚Ä‚é
	RET

;********************************
; ƒƒ‚ƒŠ‚É‰æ‘œ‚ð“WŠJ‚·‚é 2011/0417
; An image is decompressed to a memory.
;********************************

MEMdec:
	LD	HL,(DX)		;‰æ‘œ‚ÌˆÊ’u‚ð‹L‰¯
	LD	A,(DY)
	CALL	IPOSIT		;(HL,A)#=(DX,DY)
	LD	HL,(VA)		;ƒwƒbƒ_ŒŸo
	CALL	NRDVRM
	INC	HL
	LD	(VA),HL
	LD	B,A		;B#=ƒwƒbƒ_
	AND	11111000b
	CP	11110000b
	LD	A,B
	JR	NZ,LrCr		;‘–¸Šp“x‚ÌŒŸo

	CP	11110010b
	JR	C,VQ_r

	LD	A,(NBM)		;BM 11110010b
	LD	DE,BLTWRK

; VRAM‚©‚çRAM‚Éˆ³kƒf[ƒ^‚ð“]‘—‚·‚é
; Compression data is transmitted to RAM from VRAM.
;-------------------------------*
LDMV:
	LD	C,A
	LD	B,0
	INC	BC
	LD	HL,(VA)
	PUSH	HL

	ADD	HL,BC
	LD	(VA),HL

	POP	HL
	JP	LDIRMV
VQ_r:
	EX	AF,AF'		;A'#=ƒwƒbƒ_•Û‘¶
	CALL	NRDVRM
	INC	HL
	LD	(VA),HL
	LD	L,A		;L#=IP ‰æ‘œ”Ô†
	EX	AF,AF'		;A'#=(RP,IP)
	RRA
	JR	C,RETCLR	;VQ-IDX 11110001b
				;VQ-RLN 11110000b
	EX	AF,AF'		;A#=RP ŒJ‚è•Ô‚µ‚Ì”
	LD	(RP),A
	LD	HL,IP
	DEC	(HL)
	LD	L,(HL)		;L#=IP ‰æ‘œ”Ô†
RETCLR:
	POP	BC		;RET CLEAR
	JR	VQ_BVV

; ‘–¸s—ñ‚ÌŒŸo
; Detection of a scanning matrix
;-------------------------------*
LrCr:
	AND	00000111b	;(0-7)=(‰¡,¶45,c,‰E45,¶27,¶63,‰E63,‰E27)
	LD	(SD),A
	LD	A,B
	PUSH	AF

	LD	BC,32
	LD	DE,LA
	AND	11000000b	;’·‚³‚Ì•„†‚ð’²‚×‚é
	JR	NZ,LNLALB

; ’·‚³‚ÌƒÁ•„†‚ð“WŠJ‚·‚é 2011/0209
; Gamma code of length is decompressed.
;-------------------------------*
	PUSH	HL		;00xxxxxxb LIVB	HL#=(VA)

	LD	E,LIVB_L	;DE#=LIVB
	PUSH	DE

	CALL	LDIRMV		;‚Æ‚è‚ ‚¦‚¸LIVB‚ð32ƒoƒCƒgŠl“¾
	LD	HL,LN
	EX	(SP),HL		;HL#=LIVB,(SP)=LN
	LD	A,80h
	EXX
	LD	BC,(NBM)
	EXX
LPSIV:
	PUSH	AF		;A#=START_BIT

	LD	C,(HL)		;HL#=LIVB
	INC	L
	LD	D,(HL)
	INC	L
	LD	E,(HL)
	DEC	L
	DEC	L
	JR	LSSr
LPSr:
	SLA	E		;START SHIFT
	RL	D
	RL	C
LSSr:
	RLCA			;START_BIT <<
	JR	NC,LPSr

	POP	AF
	LD	B,0
LPIr:
	INC	B		;INDEX SHIFT	B#=1~8		
	RRCA
	JR	NC,NCIr

	INC	L		;LIVB++
NCIr:
	SLA	D
	RL	C
	JR	NC,LPIr

	LD	E,1
	JR	NCVr
LPVr:
	SLA	C		;VALUE SHIFT
	RL	E		;E#=L+1
	RRCA
	JR	NC,NCVr

	INC	L		;LIVB++
NCVr:
	DJNZ	LPVr

	EX	(SP),HL		;HL#=LN,(SP)=LIVB
	LD	D,A
	LD	A,E
	EXX
	ADD	A,B		;A#=1~256
	DEC	A
	CP	C		;C#=NBM
	INC	A
	LD	B,A
	EXX
	LD	A,D
	DEC	E		;E#=L
	LD	(HL),E
	INC	L		;LN++
	EX	(SP),HL		;HL#=LIVB,(SP)=LN
	JR	C,LPSIV

	LD	B,0
	LD	C,L		;BC#=VLIVB

	POP	HL		;HL#=LN
	LD	A,L
	DEC	A		;A#=F•Ï‰»‚Ì‰ñ”

	POP	HL		;HL#=(VA)
	ADD	HL,BC
	JP	SetVA

;-------------------------------*
LNLALB:
	CP	10000000b
	LD	A,(NBM)
	JR	C,LAr		;01xxxxxxb LA	ƒ¿•„†‚Ì“WŠJ
	JR	NZ,LNr		;11xxxxxxb LN	’·‚³—ñ‚Ì“WŠJ

; ’·‚³‚ÌƒÀ•„†‚Ì“WŠJ 2009/1026
; Progressing of beta code of length
;-------------------------------*
LBr:				;10xxxxxxb LB
	PUSH	HL		;HL#=VA
	PUSH	DE		;DE#=LA
	PUSH	AF

	LD	E,LB_L		;DE#=LB
	CALL	LDIRMV		;LB‚É‚Æ‚è‚ ‚¦‚¸32ƒoƒCƒg“]‘—

	POP	AF		;A#=NBM
	POP	HL		;HL#=LA
	PUSH	HL

	LD	DE,LA+1
	LD	BC,31
	LD	(HL),255
	LDIR			;LA‚ð255‚Å–„‚ß‚é
	INC	L		;HL#=LB [80h]
	RRA
	RRA
	RRA
	AND	1Fh		;A#=VLA-1 [0-31]
	LD	B,A
	INC	B		;B#=VLA [1-32]
	RRA
	RRA
	RRA
	AND	3		;A# =(VLA-1)\8 [0-3]
	ADD	A,L		;A# =(VLA-1)\8+LB_L
	LD	E,A		;DE#=(VLA-1)\8+LB
	LD	A,L		;A# =80h
LpLBd:
	RL	(HL)
	JR	NC,NexLBd

	EX	AF,AF'		;A'#=bit counter
	EX	(SP),HL		;HL#=LA
	INC	E
	LD	A,(DE)
	LD	(HL),A
	EX	(SP),HL		;HL#=LB
	EX	AF,AF'		;A#=bit counter
NexLBd:
	RRCA
	JR	NC,NexBd

	INC	L		;LB++
NexBd:
	EX	(SP),HL		;HL#=LA
	INC	L		;LA++
	EX	(SP),HL		;HL#=LB
	DJNZ	LpLBd

	POP	HL		;HL#=LA
	POP	HL		;HL#=VA
	LD	A,E
	SUB	LB_L-1
	LD	C,A
	ADD	HL,BC
	LD	(VA),HL
	LD	E,LA_L		;DE#=LA
	PUSH	DE		;(SP)=LA

	JR	GoLA

; ’·‚³‚Ìƒ¿•„†‚Ì“WŠJ 2000/1231
; Decompression of alpha code of length
;-------------------------------*
LAr:
	RRA			;01xxxxxxb LA
	RRA
	RRA
	AND	1Fh		;A#=VLA-1
	PUSH	DE		;DE#=LA

	CALL	LDMV		;’·‚³‚Ìƒ¿•„†‚ð“]‘—
GoLA:
	LD	HL,VD-1
	LD	C,L		;C#=-1
	EX	(SP),HL		;HL#=LA,(SP)=VD-1
	LD	DE,(NBM)	;(D,E)#=(0,NBM)
	XOR	A
LpLAR:
	LD	B,8
LPLNR1:
	RR	(HL)
	JR	NC,INCL

	EX	(SP),HL		;HL#=LN
	INC	L
	LD	(HL),D
	LD	D,C		;D#=-1
	EX	(SP),HL		;HL#=LA
INCL:
	CP	E
	JR	NC,KSET

	INC	A
	INC	D		;D#=’·
	DJNZ	LPLNR1

	INC	L
	JR	LpLAR
KSET:
	POP	HL		;F•Ï‰»‚Ì‰ñ”
	LD	A,L
	JR	SetK

; ’·‚³—ñ‚Ì“WŠJ 2000/1216
; Decompression of a length sequence
;-------------------------------*
LNr:
	DEC	D		;11xxxxxxB LN
	LD	E,B		;DE#=LN
	LD	C,A		;BC#=[0,NBM]
LP_LNr:
	CALL	NRDVRM
	LD	(DE),A
	INC	E
	INC	HL
	ADD	A,B
	LD	B,A
	INC	B
	CP	C
	JR	C,LP_LNr	;A#<NBM

	LD	A,E
	DEC	A		;A#=F•Ï‰»‚Ì‰ñ”
;-------------------------------*
SetVA:
	LD	(VA),HL
SetK:
	LD	(K),A		;F•Ï‰»‚Ì‰ñ”
	INC	A
	LD	(Kps1),A

; F‚Ì“WŠJ
; Decompression of a color
;-------------------------------*
	CALL	DPdef		;“®“IƒpƒŒƒbƒg‚Ì‰Šú’l‚ðXV

	POP	AF
	AND	00111000b	;F‚Ì•„†
	CP	00111000b
	JR	C,PMAPr		;xx110xxxb PMAP_0-6
CNr:
	LD	DE,CN		;F‚ð“]‘—
	PUSH	DE

	LD	A,(K)
	CALL	LDMV

; “®“IƒpƒŒƒbƒg‚ÌXV 2011/0212
; Renewal of dynamic palette
;-------------------------------*
	LD	L,0
	EXX

	POP	HL		;HL'#=CN
	LD	A,(Kps1)
	LD	B,A		;B'#=K+1
LpD256:
	LD	A,(HL)		;A#=¡F
	EXX
	CALL	DPsca3		;’¼‘OF‚ÌƒpƒŒƒbƒg‚ðXV
	CALL	DPsca1		;Œ»ÝF‚ÌƒpƒŒƒbƒg‚ðXV
	EXX			;HL#=CN
	INC	L
	DJNZ	LpD256

	JP	LC_BMr		;F‚Æ’·‚³‚Å‰æ‘œ‚ð“WŠJ

; ƒpƒŒƒbƒgƒ}ƒbƒv‚©‚çF‚ð“WŠJ 2011/0417
; A color is decompressed from a palette map.
;-------------------------------*
PMAPr:
	RRCA			;A# [0,8,16,24,32,40,48]
	RRCA
	RRCA
	LD	(PT),A		;A# [0,1, 2, 3, 4, 5, 6] ƒpƒŒƒbƒgƒ}ƒbƒv‚ÌŽí—Þ
	CALL	PMSset
	LD	HL,(VA)
	PUSH	HL		;HL#=(VA)

	LD	A,(K)
	LD	C,A		;‚Æ‚è‚ ‚¦‚¸PLTMAP‚ðF‚Ì•Ï‰»”ƒoƒCƒg“]‘—
	LD	DE,PLTMAP
	PUSH	DE

	CALL	LDIRMV

	POP	HL		;HL#=PLTMAP
	EXX
	LD	HL,CN		;HL'#=CN
	LD	BC,(EndCol)	;BC'#[K+1,0]
	LD	A,80h		;A#=Start_bit
LP_PMr:
	EXX
	PUSH	AF		;A#=Start_bit

	LD	C,(HL)
	INC	L
	LD	D,(HL)
	INC	L
	LD	E,(HL)
	DEC	L
	DEC	L
	JR	SSr
LP_SSr:
	SLA	E		;Start Shift*****
	RL	D
	RL	C		;C# << D# << E#
SSr:
	RLCA			;Start_bit <<
	JR	NC,LP_SSr	;*****Start Shift

	LD	A,(IS)
	LD	B,A		;B#[3,4,5]

	POP	AF		;A#=Start_bit
Lp_ISr:
	RRCA			;Index_Shift*****  Start_bit >>
	JR	NC,ISr

	INC	L		;PLTMAP +1
ISr:
	SLA	D
	RL	C		;NewCol/PM = C# << D#
	JR	C,GoVSr

	DJNZ	Lp_ISr		;*****Index_Shift
				;VF‚Ìê‡ PP=0
	EX	AF,AF'		;A'#=Start_bit
	INC	L		;PLTMAP +1
	PUSH	HL

	EXX
	LD	A,C
	EXX
	LD	L,A
	LD	A,C		;A#=¡F
	CALL	DPsca2		;’¼‘OF‚ÌƒpƒŒƒbƒg‚ðXV
	CALL	DPsca1		;Œ»ÝF‚ÌƒpƒŒƒbƒg‚ðXV
	LD	A,L		;A#=¡F
	JR	NextCN
GoVSr:				;PP>0
	EX	AF,AF'		;A'#=Start_bit
	LD	A,(IS)
	SUB	B
	INC	A
	LD	B,A
	LD	A,(PT)
	ADD	A,B		;PT+IS+1
	LD	B,A		;B#=PT+IS+1=VS
	EX	AF,AF'		;A#=Start_bit
	LD	E,1
	JR	VSr
LP_VSr:
	SLA	C		;Value_Shift*****
	RL	E		;PM = E# << C#
	RRCA			;Start_bit >>
	JR	NC,VSr

	INC	L		;PLTMAP +1
VSr:
	DJNZ	LP_VSr		;*****Value_Shift

	EX	AF,AF'		;A'#=Start_bit
	LD	A,(PMSUB)
	LD	C,A
	LD	A,E		;A#=PM
	SUB	C		;A#=PM-PMSUB=PP
	DEC	A		;A#=PP-1
	PUSH	HL
	PUSH	AF

	ADD	A,DP_H		;A#=PP-1+DP_H
	LD	E,A
	LD	H,A		;H#=¡F‚ÌˆÊ’u
	EXX
	LD	A,C		;A#=‘OF	
	EXX
	LD	L,A
	LD	L,(HL)		;L#=¡F
	CALL	DPsca3		;Œ»ÝF‚ÌƒpƒŒƒbƒg‚ðXV

	POP	AF
	LD	B,A		;B#=PP-1
	LD	A,L		;A#=¡F
	JR	Z,NextCN

	LD	H,E		;H#=PP-1+DP_H
	LD	L,C		;L#=‘OF
LpRot2:
	DEC	H		;’¼‘OF‚ÌƒpƒŒƒbƒg‚ðXV
	LD	D,(HL)
	INC	H
	LD	(HL),D
	DEC	H
	DJNZ	LpRot2

	LD	(HL),A
NextCN:
	POP	HL		;HL#=PLTMAP
	EXX			;HL#=CN
	LD	(HL),A		;CN(i)=¡F
	INC	L		;CN(i++)
	LD	C,A		;C#=¡F
	EX	AF,AF'		;A#=Start_bit
	DJNZ	LP_PMr

	EXX			;HL#=PLTMAP
	LD	C,L
	INC	C		;BC#=VPMAP

	POP	HL		;HL#=(VA)
	ADD	HL,BC
	LD	(VA),HL

; F‚Æ’·‚³‚Å‰æ‘œ‚ð“WŠJ 2001/0120
; An image is decompressed by a color and length.
;-------------------------------*
LC_BMr:
	LD	HL,LN
	LD	DE,BM
	LD	A,(Kps1)
	LD	B,A
LPKR:
	LD	C,B
	LD	B,(HL)
	DEC	H
	LD	A,(HL)		;A#=F
	INC	H
	INC	B		;B#=’·+1
LPC:
	LD	(DE),A
	INC	E
	DJNZ	LPC

	INC	L
	LD	B,C
	DJNZ	LPKR

; ‰æ‘œ‚Ì‹tÀ•W•ÏŠ· 2010/0622
; Reverse-geometric transformation of image
;-------------------------------*
	LD	E,B		;DE#=BM,B#=0,C#=1
	LD	HL,X4
	LD	A,(NX)
	CP	(HL)
	LD	HL,WTBL
	JR	NZ,NoScan

	LD	A,(SD)		;A#=0-7
	ADD	A,H
	LD	H,A		;•ÏŠ·‰æ‘œ(•ÏŠ·s—ñ)Œ³‚Ì‰æ‘œ
LPDESC:
	LD	A,(DE)		;A#=BM(L#)
	LD	E,(HL)		;E#=WZR(L#)
	DEC	D		;DE#=BLTWRK
	LD	(DE),A		;BLTWRK(WZR(L#))=BM(L#)
	INC	D		;DE#=BM
	INC	L
	LD	E,L
	DJNZ	LPDESC

	RET
NoScan:
	DEC	H		;HL#=BM
	DEC	D		;DE#=BLTWRK
	LD	C,B
	INC	B		;BC#=256
	LDIR
	RET

;********************************
; [USR6]
; ƒJ[ƒ\ƒ‹ˆÊ’u‚ÌŒvŽZ 2011/0622
; Calculation of a cursor position
;********************************

Cursor:
	INC	L
	INC	L		;BASIC‚©‚çƒL[ƒR[ƒh‚ðŽó‚¯Žæ‚é
	LD	A,(HL)		;A#=KEY CODE
	LD	BC,0
	LD	DE,(Q3)		;DE#=[Q4,Q3]
	LD	HL,cQ
	CP	30
	JR	NC,K3031

	LD	D,-1
	DEC	L		;HL#=cR
	RRA
	LD	A,(HL)
	JR	C,K29
K28:
	CP	65
	JR	NZ,R13add

	SUB	78
R13add:
	ADD	A,13
	LD	(HL),A
	INC	L		;HL#=cQ
	OR	A
	LD	A,(HL)		;A#=Q
	JR	NZ,SetDAC

	JR	K31
K29:
	OR	A
	JR	NZ,R13sub

	ADD	A,78
R13sub:
	SUB	13
	LD	(HL),A
	INC	L		;HL#=cQ
	CP	65
	LD	A,(HL)		;A#=Q
	JR	NZ,SetDAC

	CP	4
	JR	Z,Q35on
	JR	Q35off
K3031:
	LD	A,(HL)		;A#=Q
	JR	NZ,K31
K30:
	CP	5
	JR	NC,Q35off
Q35on:
	LD	B,E		;B#=Q3
Q35off:
	LD	HL,Q5
	CALL	Q4set
	DEC	A
	ADD	A,B
	ADD	A,C
	JR	Qset
K31:
	INC	L		;HL#=Q1
	CP	(HL)
	INC	L		;HL#=Q6
	JR	C,Q36off

	LD	B,E		;B#=Q3
Q36off:
	CALL	Q4set
	INC	A
	SUB	B
	SUB	C
Qset:
	LD	(cQ),A
SetDAC:
	LD	(DAC+2),A
	RET

;-------------------------------*
Q4set:
	CP	(HL)
	JR	Z,Q4on

	INC	L		;HL#=Q8,Q9
	CP	(HL)
	RET	NZ
Q4on:
	LD	C,D		;C#=Q4
	RET

;********************************
; [USR5]
; ƒAƒƒP[ƒVƒ‡ƒ“î•ñ‚ÌŠl“¾ 2011/0711
; Acquisition of allocation information
;********************************

Sector:
	INC	L
	INC	L		;BASIC‚©‚çƒhƒ‰ƒCƒu”Ô†‚ðŽó‚¯Žæ‚é
	LD	E,(HL)		;E#=Drive Number
	LD	C,_ALLOC  	;C#=Function Code
	CALL	BDOS		;System Call
	JR	SetDAC		;1ƒNƒ‰ƒXƒ^‚ ‚½‚è‚Ì˜_—ƒZƒNƒ^”‚ðBASIC‚É•Ô‚·

;********************************
; [USR4]
; ƒpƒŒƒbƒg•t‰æ‘œ‚Ì‰æ–ÊŠO—Ìˆæ‚ð‰Šú‰» 2010/0407
; The area outside the screen of the image with the palette is initialized. 
;********************************

ZeroCL:
	LD	HL,0D400h
	LD	BC,2680h
	LD	A,(SCRMOD)
	CP	7
	JR	NC,ZClear

	LD	H,6Ah
	LD	B,0Ch
ZClear:
	XOR	A
	JP	BIGFIL

;********************************
; [USR2]
; ƒJ[ƒ\ƒ‹ˆÊ’u‚É‚ ‚é12•¶Žš‚ð•¶Žš•Ï”‚É‘ã“ü‚µ‚Ä”½“]•\Ž¦ 2011/0216
; 12 characters of the cursor position are substituted for a character variable,
; and it is a reversing display.
;********************************

MOJGET:
	EX	DE,HL
	INC	HL
	LD	E,(HL)
	INC	HL
	LD	D,(HL)		;DE#=String descriptor
	PUSH	DE

	LD	HL,(CSRY)
	DEC	H
	DEC	L
	LD	C,H		;C#=Y
	LD	H,L		;H#=X
	LD	DE,(LINLEN)	;E#=•¶Žš”
	CALL	MULT		;Š|‚¯ŽZ(HL#=H#*E#)
	ADD	HL,BC		;HL#=ˆÊ’uƒAƒhƒŒƒX

	POP	DE		;DE#=•¶Žš—ñƒR[ƒh
	LD	C,12
	PUSH	HL
	PUSH	DE

	CALL	LDIRMV		;ƒJ[ƒ\ƒ‹ã‚Ì•¶ŽšƒR[ƒh‚ðƒƒ‚ƒŠ‚É“]‘—

	POP	HL
	EXX
	LD	HL,CARCPL	;HL#=”½“]•¶Žš—ñƒR[ƒh
	LD	B,L		;B#=12
	XOR	A
LPI:
	LD	C,A
	EXX
	PUSH	HL

	LD	E,(HL)		;E#=•¶ŽšƒR[ƒh
	LD	H,8
	CALL	MULT		;Š|‚¯ŽZ(HL#=H#*E#)
	LD	E,A		;DE#=[0,8,16¥¥¥88]
	LD	BC,(CGPBAS)
	ADD	HL,BC		;“]‘—Œ³ƒAƒhƒŒƒX
	EX	DE,HL
	ADD	HL,BC		;“]‘—æƒAƒhƒŒƒX
	LD	B,8
LPJ:
	EX	DE,HL
	CALL	NRDVRM		;•¶Žšƒpƒ^[ƒ““Ç‚Ýž‚Ý
	INC	HL
	EX	DE,HL
	CPL			;•¶Žšƒpƒ^[ƒ“‚Ì”½“]
	CALL	NWRVRM		;•¶Žšƒpƒ^[ƒ“‘‚«ž‚Ý
	INC	HL
	DJNZ	LPJ

	POP	HL
	INC	HL
	EXX
	LD	A,C
	ADD	A,8
	DJNZ	LPI

	LD	C,L
	LD	B,L		;B#=C#=12
	XOR	A
LPCAR:
	LD	(HL),A
	INC	A
	INC	L
	DJNZ	LPCAR

	POP	DE		;DE#=ˆÊ’uƒAƒhƒŒƒX
	LD	L,C		;HL#=”½“]•¶Žš—ñƒR[ƒh
	CALL	LDIRVM
	JP	KILBUF		;ƒL[ƒ{[ƒhƒoƒbƒtƒ@‚ðƒNƒŠƒA

;********************************
; [USR3]
; ƒeƒLƒXƒg‰æ–Ê‚Ì•Û‘¶‚ÆÄ¶ 2009/0911
; Save and Load of a text screen.
;********************************

TXTSmL:
	CALL	RAMSLT		;PAGE1‚ÌƒXƒƒbƒg‚ðRAM‚É‚·‚é
	LD	BC,sTextG
	LD	DE,IP
	LD	H,E
	LD	L,E		;HL#=0
	LD	A,(DAC+2)
	OR	A
	JR	NZ,LoadTX

	CALL	LDIRMV
	JR	ROMSLT		;PAGE1‚ÌƒXƒƒbƒg‚ðBASIC ROM‚É‚·‚é
LoadTX:
	EX	DE,HL		;(HL,DE)#=(IP,0)
	CALL	LDIRVM

; ƒy[ƒW1‚ÌƒXƒƒbƒg‚ðØ‚èŠ·‚¦‚é
; The slot on page 1 is switched. 
;-------------------------------*
ROMSLT:
	LD	A,(EXPTBL)	;ƒXƒƒbƒg‚ðBASIC ROM‚É‚·‚é
	JR	CHGSLT
RAMSLT:
	LD	A,(RAMAD1)	;ƒXƒƒbƒg‚ðRAM‚É‚·‚é
CHGSLT:
	LD	H,40h		;PAGE1‚ÌãˆÊƒAƒhƒŒƒX
	JP	ENASLT		;PAGE1‚ÌƒXƒƒbƒgØ‚èŠ·‚¦
End: