antoine-source/labellezohra/sources/pic2pic.s

117 lines
2.4 KiB
ArmAsm

*
* PIC10 devient PIC11
*
org $800
lst off
mx %11
*----------
clc
xce
rep #$30
sep #$20
ldx #0
]lp lda palette,x
stal $e19e00,x
inx
cpx #32
bcc ]lp
*---
ldx #0
]lp ldal $e12000,x
tay
lda tblCONVERT,y
stal $e12000,x
inx
cpx #$7d00
bcc ]lp
sec
xce
sep #$30
rts
ds \
*----------
tblCONVERT
hex 000104050607080A0C0D0E0B0C0D0E0F
hex 101114151617181A1C1D1E1B1C1D1E1F
hex 404144454647484A4C4D4E4B4C4D4E4F
hex 505154555657585A5C5D5E5B5C5D5E5F
hex 606164656667686A6C6D6E6B6C6D6E6F
hex 707174757677787A7C7D7E7B7C7D7E7F
hex 808184858687888A8C8D8E8B8C8D8E8F
hex A0A1A4A5A6A7A8AAACADAEABACADAEAF
hex C0C1C4C5C6C7C8CACCCDCECBCCCDCECF
hex D0D1D4D5D6D7D8DADCDDDEDBDCDDDEDF
hex E0E1E4E5E6E7E8EAECEDEEEBECEDEEEF
hex B0B1B4B5B6B7B8BABCBDBEBBBCBDBEBF
hex C0C1C4C5C6C7C8CACCCDCECBCCCDCECF
hex D0D1D4D5D6D7D8DADCDDDEDBDCDDDEDF
hex E0E1E4E5E6E7E8EAECEDEEEBECEDEEEF
hex F0F1F4F5F6F7F8FAFCFDFEFBFCFDFEFF
tblREF
hex 000102030405060708090A0B0C0D0E0F
hex 101112131415161718191A1B1C1D1E1F
hex 202122232425262728292A2B2C2D2E2F
hex 303132333435363738393A3B3C3D3E3F
hex 404142434445464748494A4B4C4D4E4F
hex 505152535455565758595A5B5C5D5E5F
hex 606162636465666768696A6B6C6D6E6F
hex 707172737475767778797A7B7C7D7E7F
hex 808182838485868788898A8B8C8D8E8F
hex 909192939495969798999A9B9C9D9E9F
hex A0A1A2A3A4A5A6A7A8A9AAABACADAEAF
hex B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF
hex C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF
hex D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF
hex E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF
hex F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF
*---
palette hex 0200,4600,6000,B000,6902,0006,2406,2009
hex 4609,9909,420B,BB0B,620D,9B0D,940F,FF0F
*---
*
* PIC10 - LE FOND
* IL FAUT ADAPTER LA PALETTE A CELLE DE PIC11
*
* 0 1 2 3 4 5 6 7 8 9 A B C D E F
* 00 00 46 00 69 02 00 06 24 06 20 09 46 09 42 0B 62 0D 9B 0D 94 0F 00 00 00 00 00 00 00 00 00 00
*
*-------------------------------------------
*
* PIC11 - LE FOND AVEC LES ICONES
* IL FAUT UTILISER CETTE PALETTE
*
* 0 1 2 3 4 5 6 7 8 9 A B C D E F
* 02 00 46 00 60 00 B0 00 69 02 00 06 24 06 20 09 46 09 99 09 42 0B BB 0B 62 0D 9B 0D 94 0F FF 0F
*
* PIC11 PIC10
* 0 0 0 = 0
* 1 1 1 = 1
* 2 4 2 = 4
* 3 5 3 = 5
* 4 6 4 = 6
* 5 7 5 = 7
* 6 8 6 = 8
* 7 A 7 = A
* 8 C 8 = C
* 9 D 9 = D
* A E A = E
* B B = B
* C C = C
* D D = D
* E E = E
* F F = F