\ MOD: PLB 9/9/88 Print U/S , add ADST\r
\ MOD: PLB 12/6/90 Modified to work with H4th\r
\ 941109 PLB Converted to pforth. Added RP detection.\r
+\ 090609 PLB Convert >rel to use->rel and ..! to s!\r
\r
-include? task-member member.fth\r
+include? task-member.fth member.fth\r
include? task-c_struct c_struct.fth\r
\r
ANEW TASK-DUMP_STRUCT\r
; immediate\r
\r
: ADST ( absolute_address -- , dump structure )\r
- >rel [compile] dst\r
+ use->rel [compile] dst \ mod 090609\r
; immediate\r
\r
\ For Testing Purposes\r
-false .IF\r
+false [IF]\r
:STRUCT GOO\r
LONG DATAPTR\r
SHORT GOO_WIDTH\r
\r
FOO AFOO\r
: AFOO.INIT\r
- $ 12345678 afoo ..! along1\r
- $ -665 afoo ..! ashort1\r
- $ 21 afoo ..! abyte\r
- $ 43 afoo ..! abyte2\r
- -234 afoo .. agoo ..! goo_height\r
+ $ 12345678 afoo s! along1\r
+ $ -665 afoo s! ashort1\r
+ $ 21 afoo s! abyte\r
+ $ 43 afoo s! abyte2\r
+ -234 afoo .. agoo s! goo_height\r
;\r
afoo.init\r
\r
dst foo\r
;\r
\r
-.THEN\r
+[THEN]\r
+\r