h09824
s 00000/00000/00057
d D 1.5 83/02/18 11:57:19 mjb 5 4
c 
e
s 00002/00001/00055
d D 1.4 83/02/16 17:32:45 mjb 4 3
c 
e
s 00005/00002/00051
d D 1.3 83/02/16 17:29:46 mjb 3 2
c moved cursor position info to mnucom
e
s 00003/00002/00050
d D 1.2 83/02/01 20:07:32 tes 2 1
c modified MNUCOMxSIZE to begin at mnuid versus floc
e
s 00052/00000/00000
d D 1.1 83/01/20 11:08:26 tes 1 0
c date and time created 83/01/20 11:08:26 by tes
e
u
tes
mjb
U
t
T
I 1
# GSS GRAPH MENU COMMON BLOCKS
#
#    put in a file called mnucom
#

# mnumod - current menu mode: Graphic or Ascii
I 3
# xcursr - current x postion of graphic alpha cursor
# ycursr - current y postion of graphic alpha cursor
#
E 3

D 3
integer mnumod
E 3
I 3
D 4
integer mnumod, xcursr, ycursr 
E 4
I 4
integer mnumod
SHORTINT xcursr, ycursr
E 4
E 3

# floc(2) - file location pointer
#           (1) = byte pointer in 128 byte block
#           (2) = block pointer for file
# fbfknt  - file buffer counter

integer floc(2), fbfknt

# mnuid(xx) - array of currently defined menu id's
# midptr(xx) - array of pointers to head of each menu definition
# fldptr(xx) - array of pointers to head of each field definition
# lastid - index of last element of 'mnuid' used
# mfrept - index of next free element of 'mnubuf'
# ffrept - index of next free element of 'fldbuf'
# mnubuf(xxxx) - array used to store and define a menu
# fldbuf(xxxx) - array used to store and define the menu protected fields

integer mnuid(MAXMENUS), midptr(MAXMENUS), fldptr(MAXMENUS), lastid, mfrept,
	ffrept
SHORTINT mnubuf(MENUSIZE), fldbuf(FIELDSIZE)

# dtaptr - index of next free element of 'dtabfr'
# chcptr - index of next free element of 'chcbfr'
# dtabfr(xxx) - array used to define and store the currently defined menu
#               data areas
# chcbfr(xxx) - array used to define and store the currently defined menu
#               choice data areas

SHORTINT dtamod
integer crntid, dtaptr, chcptr
SHORTINT dtabfr(FIELDxDATAxSIZE), chcbfr(CHOICExDATAxSIZE)

D 3
common /mnumcm/ mnumod
E 3
I 3
common /mnumcm/ mnumod, xcursr, ycursr
E 3
common /mnuiob/ floc, fbfknt
common /mnufid/ mnuid, midptr, fldptr, lastid, mfrept, ffrept,
		mnubuf, fldbuf
common /cfddis/ crntid, dtaptr, chcptr, dtamod, dtabfr, chcbfr

# Current total 'mnucom' size in bytes
ifdef(`UNIX',`define(`SHORTSIZE',2)',`define(`SHORTSIZE',1)')
D 2

define(`MNUCOMxSIZE',`eval(2*3+2*3*MAXMENUS+2*3+SHORTSIZE*MENUSIZE+
E 2
I 2
#
# Size evaluation begins at mnuid(1)
define(`MNUCOMxSIZE',`eval(2*3*MAXMENUS+2*3+SHORTSIZE*MENUSIZE+
E 2
		      SHORTSIZE*FIELDSIZE+SHORTSIZE+2*3+
		      SHORTSIZE*FIELDxDATAxSIZE+SHORTSIZE*CHOICExDATAxSIZE)')
E 1
