Network Mail received on 06-Apr-82 at 20:26 From: PSEUDO::SMITH "David Smith" To: MOLSON::OREILLY Subject: Enclosed file "S:(1,112)IPOKE.MAC" .title IPOKE .sbttl IPOKE will simulate the RT-11 IPOKE routine .sbttl for FORTRAN IV V2.5 .page .psect IPOKE ipoke:: tst (r5)+ ;we don't want to know the number of arguments mov @(r5)+,r0 ;get the address to poke in user low core mov @(r5),r1 ;value to be poked in r0 mov r1,@r0 ;poke the address return ;Thaaaaats all folks!!! .end