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 ; |
''工事中!''~ | ''工事中!''~ | ||
~ | ~ |
(This host) = http://osask.net