.TITLE $$$006 - MARK .IDENT /791112/ .GLOBL $$$004 .GLOBL H.CUR ; MARK THE HEAP ; PARMS ; 1. POINTER TO POINTER TO CURRENT HEAP ; REGISTER USAGE ; R0 - SCRATCH ; R1 -> CURRENT HEAP POINTER ; R2,R3,R4 - NOT USED ; .PSECT $$$006:: MOV #2,-(SP) ;SIZE OF TWO JSR PC,$$$004 ;GET THE TWO BYTES FOR PREV MOV (SP)+,R0 ;GET ADDRESS OR ZERO(MEANS ERROR) BEQ DONE ;ERROR MOV H.CUR,(R0) ;SET PREV MOV R0,H.CUR ;SET NEW CURHP DONE: RTS PC .END