$Header: /home/radek/cvs/forth-book/sec-6502asm.xml,v 1.1 2003/12/28 18:21:56 radek Exp $

FIXME: obsah

( FORTH-65 ASSEMBLER )
HEX
VOCABULARY ASSEMBLER IMMEDIATE  ASSEMBLER DEFINITIONS
( REGISTER ASSIGNMENT SPECIFIC TO IMPLEMENTATION )
E0  CONSTANT  XSAVE
DC  CONSTANT  W
DE  CONSTANT  UP
D9  CONSTANT  IP
D1  CONSTANT  N

( NUCLEUS LOCATIONS ARE IMPLEMENTATION SPECIFIC )
'  (DO)  0E  +  CONSTANT  POP
'  (DO)  OC  +  CONSTANT  POPTWO
'  LIT 13 + CONSTANT PUT
'  LIT 11 + CONSTANT PUSH
'  LIT 18 + CONSTANT NEXT
'  EXECUTE NFA 11 - CONSTANT SETUP

( FORTH-65 ASSEMBLER )
0 VARIABLE INDEX -2 ALLOT
0900 , 1505 , 0115 , 8011 , 8009 , 1D0D , 8019 , 8080 ,
0080 , 1404 , 8014 , 8080 , 8080 , 1C0C , 801C , 2C08 ,

2 VARIABLE MODE
: .A  0 MODE ! ;   : #  1 MODE ! ;   : MEM 2 MODE ! ;
: ,X  3 MODE ! ;   : ,Y 4 MODE ! ;   : X)  5 MODE ! ;
: )Y  6 MODE ! ;   : )  F MODE ! ;

: BOT  ,X   0 ;  ( ADDRESS THE BOTTOM OF THE STACK *)
: SEC  ,X   2 ;  ( ADDRESS SECOND ITEM ON STACK    *)
: RP)  ,X 101 ;  ( ADDRESS BOTTOM OF RETURN STACK  *)