.TITLE PEEK .IDENT /821021/ ;USAGE ; FUNCTION PEEK(ADDR:INTEGER):INTEGER; EXTERNAL; .PSECT PEEK:: MOV (SP)+,R0 MOV @(SP)+,(SP) JMP (R0) .END