#11 Article 812 Posted at 1988/01/08 22:39:58 by NOZOMU (MAP041) [PRG.X68]
Subject: DARK.S (for X68000)
ｴｪｰｰｯﾄ､ ﾋｭｰﾏﾝﾉ ｺﾏﾝﾄﾞﾓｰﾄﾞﾃﾞ､ ｽﾃﾞﾆ ｾｯﾃｲ ｻﾚﾃｲﾙ 256ｼｮｸﾉ ﾊﾟﾚｯﾄﾉ ｷﾄﾞｦ
ﾊﾝﾌﾞﾝﾆ ｵﾄｽ ｺﾏﾝﾄﾞ ﾃﾞｽ｡ ﾂｸｯﾃｶﾗ ｷｶﾞ ﾂｲﾀﾝﾃﾞｽｹﾄﾞ､ ｺﾚｯﾃ ｱﾝﾏﾘ ｲﾐｶﾞ ﾅｲﾝﾃﾞｽﾖﾈｪ･･･
EDｶﾞ ｶﾞﾒﾝ ｼｮｷｶ ｽﾙｶﾗ､ ｶｲﾊﾂﾉ ｱｲﾀﾞ ﾊﾞｯｸﾆ CG ﾀﾞｼﾄｸｯﾃ ﾜｹﾆﾓ ｲｶﾅｲｼ･･･
ﾏｧ Terminal ｳｺﾞｶｼﾃ ﾊﾟｿﾂｰﾉ ﾊﾞｯｸﾃﾞ CGｶﾞ ﾀﾞｼﾃ ｵｹﾙ､ ｸﾗｲﾅ ﾓﾝｶﾅｧ･･･
ｿﾚﾄ､ ﾏｴﾉ NL3.X ﾀﾞｹﾄﾞ､ VRAMｦ RAM-DISKﾆ ｼﾃﾃﾓ､ ﾅｻｹﾖｰｼｬﾅｸ ｶｷｺﾐﾆ ｲｸﾄ ｵﾓｳﾝﾃﾞ
(ｸﾞﾗﾌｨｯｸ ﾊ RAM-Dﾆ ｼﾃﾅｲｶﾗ ｼﾗﾆｬｲｹﾄﾞ､ ﾁｪｯｸ ｼﾃﾅｲｶﾗ ﾀﾌﾞﾝ ｿｰﾀﾞﾄ ｵﾓｳ)､
device = ramdisk #g ﾔｯﾃﾙ ﾋﾄﾊ ｷｦ ﾂｹﾏｼｮｳ｡ (ﾓｳ ﾃｵｸﾚ ﾀﾞｯﾀﾘｼﾃ･･･)
ﾄ ｲｳ ﾜｹﾃﾞ､ ﾄﾘｱｴｽﾞ DARK.S ﾉｯｹﾏｽ｡ downloadｼﾃ edﾃﾞ ﾖﾌﾞﾝﾅ ﾄｺﾛｦ ｷｯﾃ
asｼﾃ lkｼﾃ ﾂｶｯﾃ ｸﾀﾞｻｲ｡ ﾊﾟﾗﾒｰﾀ ﾊ ｱﾘﾏｾﾝ｡
******************************************
move.l #255,d7
loop
move.l #$94,d0 gpallete
move.w d7,d1 pallete code
move.l #-1,d2
trap #15
lsr.l #1,d0
and #%0111101111011110,d0
move.l d0,d2
move.l #$94,d0
trap #15
dbra d7,loop
dc.w $ff00 ;exit
end
******************************************