peek EQU *
 TSX *
 LDX 2,X
 LDAB 0,X
 CLRA
 RTS
peekword EQU *
 TSX *
 LDX 2,X
 LDD 0,X
 RTS
poke EQU *
 TSX
 LDAB 3,X
 LDX 4,X
 STAB 0,X
 CLRA *
 RTS
pokeword EQU *
 TSX
 LDD 2,X
 LDX 4,X
 STD 0,X
 RTS