1                                  %macro d2 1.nolist
     2                                  	db (%1) >> 8
     3                                  	db (%1) & 0xFF
     4                                  %endmacro
     5                                  %macro d2a 1.nolist
     6                                  	db ((%1)-_f0) >> 8
     7                                  	db ((%1)-_f0) & 0xFF
     8                                  %endmacro
     9                                  SECTION .data
    10                                  global _f0
    11                                  _f0:
    12                                  %define H_COL            0xFF
    13                                  %define H_RSR            0xFE
    14                                  %define H_CON            0xFD
    15                                  %define H_TO             0xFC
    16                                  %define H_AT             0xFB
    17                                  %define SF_EXIT          0xFF
    18                                  %define F_EXIT           0xE5FF
    19                                  %define SF_PLUS          0xFE
    20                                  %define F_PLUS           0xE5FE
    21                                  %define SF_2DUP          0xFD
    22                                  %define F_2DUP           0xE5FD
    23                                  %define F_COUNT          0xE5FC
    24                                  %define F_TYPE           0xE5FB
    25                                  %define F_CR             0xE5FA
    26                                  %define F_STO            0xE5F9
    27                                  %define F_TOS            0xE5F8
    28                                  %define FIP_RETURN       0xFFFF
    29                                  %define FIP_RSREXIT      0xFFFE
    30                                  ; &FOO = x26FOO
    31                                  ADR_x26FOO:
    32 00000000 FB                      	db H_AT
    33                                  ; FOO! = FOOx21
    34                                  ADR_FOOx21:
    35 00000001 FC                      	db H_TO
    36                                  ADR_FOO:
    37 00000002 FD                      	db H_CON
    38 00000003 45230100                	dd 0x12345 
    39                                  ; S$@, = Sstrgobble
    40                                  ADR_Sstrgobble:
    41 00000007 FF                      	db H_COL
    42 00000008 E5F9                    	d2 F_STO
    43 0000000A E5FC                    	d2 F_COUNT
    44 0000000C FD                      	db SF_2DUP
    45 0000000D FE                      	db SF_PLUS
    46 0000000E E5F8                    	d2 F_TOS
    47 00000010 FF                      	db SF_EXIT
    48                                  ; <."> = angdotquo
    49                                  ADR_angdotquo:
    50 00000011 FE                      	db H_RSR
    51                                  ; S<."> = Sangdotquo
    52                                  ADR_Sangdotquo:
    53 00000012 FF                      	db H_COL
    54 00000013 0007                    	d2a ADR_Sstrgobble
    55 00000015 E5FB                    	d2 F_TYPE
    56 00000017 FF                      	db SF_EXIT
    57                                  ; 2<."> = 2angdotquo
    58                                  ADR_2angdotquo:
    59 00000018 FE                      	db H_RSR
    60                                  ; S2<."> = S2x3cx2ex22x3e
    61                                  ADR_S2x3cx2ex22x3e:
    62 00000019 FF                      	db H_COL
    63 0000001A 0012                    	d2a ADR_Sangdotquo
    64 0000001C E5FA                    	d2 F_CR
    65 0000001E 0012                    	d2a ADR_Sangdotquo
    66 00000020 FF                      	db SF_EXIT
    67                                   global ADR_DEMO
    68                                  ADR_DEMO:
    69 00000021 FF                      	db H_COL
    70 00000022 0018                    	d2a ADR_2angdotquo
    71 00000024 0548656C6C6F            	db 5, 'Hello'
    72 0000002A 055468657265            	db 5, 'There'
    73 00000030 E5FA                    	d2 F_CR
    74 00000032 0002                    	d2a ADR_FOO
    75 00000034 0002                    	d2a ADR_FOO
    76 00000036 FE                      	db SF_PLUS
    77 00000037 0001                    	d2a ADR_FOOx21
    78 00000039 FF                      	db SF_EXIT