10 CLEAR 200,&HF000:DEFUSR=&HF000:T=0
20 INPUT"X=";X:INPUT"Y=";Y:A1$=HEX$(VARPTR(X)):A2$=HEX$(VARPTR(Y))
30 L1=VAL("&h"+RIGHT$(A1$,2)):R1=VAL("&h"+LEFT$(A1$,2)) 'Адрес числа X
40 L2=VAL("&h"+RIGHT$(A2$,2)):R2=VAL("&h"+LEFT$(A2$,2)) 'Адрес числа Y
50 POKE &HF301,L1:POKE &HF302,R1:POKE &HF303,L2:POKE &HF304,R2
60 READ Z$:IF Z$<>"RET" THEN POKE &HF000+T,VAL("&h"+Z$):T=T+1:GOTO 60
70  DATA 2A,01,F3 :'LD   HL,(F301h); HL содержит адрес переменной X
75  DATA E5       :'PUSH HL        ;
80  DATA CD,5C,2C :'LD   DAC,(HL)  ; DAC:=X
90  DATA CD,93,29 :'DAC:=COS(DAC)  ; DAC:=COS(X)
95  DATA E1       :'POP  HL        ;
97  DATA E5       :'PUSH HL        ;
100 DATA CD,67,2C :'LD   (HL),DAC  ; Z:=COS(X)░
W
W "Прячем" результат в любую заранее зарезервированную группу ячеек памяти В нашем случае:  Z ╟ X 
110 DATA 2A,03,F3 :'LD   HL,(F303h); HL содержит адрес переменной Y
120 DATA CD,5C,2C :'LD   DAC,(HL)  ; DAC:=Y
130 DATA CD,AC,29 :'DAC:=SIN(DAC)  ; DAC:=SIN(Y)
140 DATA CD,4D,2C :'LD   ARG,DAC   ; ARG:=SIN(Y)
145 DATA E1       :'POP  HL        ;
147 DATA E5       :'PUSH HL        ;
150 DATA CD,5C,2C :'LD   DAC,(HL)  ; DAC:=Z
160 DATA CD,9A,26 :'ADD  DAC,ARG   ; DAC:=Z+SIN(Y)
165 DATA E1       :'POP  HL        ;
170 DATA CD,67,2C :'LD   (HL),DAC  ; X:=DAC
180 DATA C9,"RET" :'RET
190 PRINT COS(X)+SIN(Y)
200 A=USR(A):PRINT X 'Результат