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