7: 2009-12-27 (日) 07:36:44 HOSINO |
8: 2009-12-27 (日) 07:40:00 HOSINO |
| ; | | ; |
| : 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 ; |
| ''工事中!''~ | | ''工事中!''~ |
| ~ | | ~ |