マシン語でLチカ

IchigoJamマシン語からポートを直接操作するサンプルプログラムです。

やってること自体はBASIC で LED 文つかったほうが早いですけれどもー

アセンブラソースはこんな感じ。JS製 IchigoJam用アセンブラマシン語に変換できます。


@led
r1=[@dat]
r3=[r1+0]
r2=1
r2=r2<<5
r3|=r2
r0=r0+0
if !0 goto @skip
r3^=r2
@skip
[r1+0]=r3
r0=r3
ret
data w 0
@dat
data L #50013ffc

BASICプログラムに変換後


10'@led
20 poke #700,`00000101,`01001001 :'r1=[@dat]
30 poke #702,`00001011,`01111000 :'r3=[r1+0]
40 poke #704,`00000001,`00100010 :'r2=1
50 poke #706,`01010010,`00000001 :'r2=r2<<5
60 poke #708,`00010011,`01000011 :'r3|=r2
70 poke #70a,`00000000,`00011100 :'r0=r0+0
80 poke #70c,`00000000,`11010001 :'if!0goto@skip
90 poke #70e,`01010011,`01000000 :'r3^=r2
100'@skip
110 poke #710,`00001011,`01110000 :'[r1+0]=r3
120 poke #712,`00011000,`01000110 :'r0=r3
130 poke #714,`01110000,`01000111 :'ret
140 poke #716,`00000000,`00000000 :'dataw0
150'@dat
160 poke #718,`11111100,`00111111 :'datal#50013ffc
170 poke #71a,`00000001,`01010000 :'datal#50013ffc

実行方法


'LEDを点灯
?usr(#700,1)

'LEDを消灯
?usr(#700,0)