ページへ戻る

− Links

 印刷 

HOSINO​/efg01上で動くプログラムの作り方 のバックアップ差分(No.8) :: OSASK計画

osaskwiki:HOSINO/efg01上で動くプログラムの作り方 のバックアップ差分(No.8)

« Prev[4]  Next »[5]
7: 2009-12-27 (日) 07:36:44 HOSINO[6] ソース[7] 8: 2009-12-27 (日) 07:40:00 HOSINO[6] ソース[8]
Line 472: Line 472:
 ;  ;
 : print invert BGN DUP WHL PUT RPT DRP ;  : print invert BGN DUP WHL PUT RPT DRP ;
- : invert VAR pointer VAR256 words 0 pointer ! 256 BGN DUP WHL 0 DUP 1 - words ! RPT DRP + : invert VAR pointer VAR256 words 0 pointer ! 256 BGN DUP WHL 1 - DUP words + 0 SWP ! RPT DRP 
-   BGN DUP WHL words pointer @ + ! pointer @ 1 + pointer ! RPT 0 words pointer @ + ! +   BGN DUP WHL words pointer @ + ! pointer @ 1 + pointer ! RPT 0 words pointer @ + ! 0 pointer
-   0 pointer ! BGN words pointer @ + @ WHL words pointer @ + @ pointer @ 1 + pointer ! RPT ;+   BGN words pointer @ + @ WHL words pointer @ + @ pointer @ 1 + pointer ! RPT ;
''工事中!''~ ''工事中!''~
~ ~
« Prev[4]  Next »[5]