VolksForth/8080/AmstradCPC/ASS8080.SCR

\ VolksForth 8080 Assembler                           UH 09Mar86                                                                Ideen lieferten:                                                                    John Cassady                                                    Mike Perry                                                      Klaus Schleisiek                                                Bernd Pennemann                                                 Dietrich Weineck                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            \ VolksForth 8080 Assembler Load Screen               UH 03Jun86Onlyforth Assembler also definitions hex                                                                                          1 6 +THRU  cr .( VolksForth 8080-Assembler geladen. ) cr                                                                      OnlyForth                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          \ Vektorisierte Erzeugung                          UH 03Jun86Variable >codes                                                                                                                 | Create nrc  ]  c, , c@ here allot ! c! [                                                                                      : nonrelocate ( -- )   nrc >codes ! ;   nonrelocate                                                                             | : >exec ( n -- n+2 )                                                Create dup c, 2+ does> c@ >codes @ + perform ;                                                                            0    | >exec >c,     | >exec >,  | >exec >c@  | >exec >here          | >exec >allot  | >exec >!  | >exec >c!                    drop                                                                                                                                                                                                                                                               \ Register und Definierende Worte                  UH 09Mar86                                                                7 Constant A                                                    0 Constant B   1 Constant C      2 Constant D   3 Constant E    0 Constant I   1 Constant I'     2 Constant W   3 Constant W'   0 Constant IP  1 Constant IP'    4 Constant H   5 Constant L    6 Constant M   6 Constant PSW    6 Constant SP  6 Constant S                                                                    | : 1MI Create >c, does> C@ >c, ;                               | : 2MI Create >c, does> C@ + >c, ;                             | : 3MI Create >c, does> C@ swap 8 * + >c, ;                    | : 4MI Create >c, does> C@ >c, >c, ;                           | : 5MI Create >c, does> C@ >c, >, ;