/
llink=-2
rlink=-4
	PROGRAM dmp
        .title ldump
        .ident /24oct/
        FUNCTION ldump[ptr]
        LET r4 = ptr
        PRINTF "Dump of list: (%6o,%6o,%6o)" r4 llink(r4) rlink(r4)
        mov r4,r3
        DO FOREVER
            LET r3 = next[r3]
            IF r3 = r4
                RET 
            FI 
      PRINTF "Node:%6o l:%6o r:%6o (%o)" r3 llink(r3) rlink(r3) (r3)
        OD 
.end