.TITLE SEQDEF .GLOBL TB.TOS,TB.BOS,TB.SIZE,TB.MAX,TB.EACH,TB.NOW,TB.PCC,TB.STRING .GLOBL ST.TYPE,MA.SIZE,MA.NOW,MA.BOR,ME.SIZE,ME.PRC,TH.SIZE,TH.CUR ;OFFSETS ; PERMINENT TABLE OFFSETS TB.TOS=0 TB.BOS=2 TB.SIZE=4 TB.MAX=6 TB.EACH=10 TB.NOW=12 TB.PCC=14 TB.STRING=16 ; STACK OFSETS ST.TYPE=-2 ;OFFSET FOR STACK ELEMENT TYPE ; MUTLIPLY-ALL STACK ELEMENT OFSETS MA.SIZE=6 MA.NOW=-6 MA.BOR=-4 ; MULTIPLY-EACH STACK ELEMENT OFFSETS ME.SIZE=4 ME.PRC=-4 ; THRU OFFSETS TH.SIZE=4 ;NOT COUNTING THE CURRENT VALUE OF SIZE TB.SIZ(TAB) * 2 TH.CUR=-3 ; ; .END