;--------------------------------------------------------- ; LX22 Patch offsets 20 FEB 91 idstr equ 0dh ;location of ID string whlopt equ 16h ;respond to wheel byte? setlbr equ 17h ;FS for sysop/privileged user reslbr equ 2dh ;FS for wheel reset lbrtyp equ 43h ;default LBR FT comtyp equ 46h ;default executable file type ;--------------------------------------------------------- include cnfgdef.lib ;************************************************************ ; START OF OVERLAY CODE ;************************************************************ ;The next 13 bytes must remain in this location. rst 0 ;for safety - file won't execute dw menu1 ;for relocation of addresses, this ;points to the NEXT location. ;first MENU list must be here. All names are local. menu1: dw menu1,menu1,scrn1,case1,help1 ;MENU A ;========================================================= case1: db (case1x-case11)/(case12-case11) ;number of cases db case12-case11 ;length of each record ; macro .single char menu selector ; | | .function (see above) ; | | | .offset in cnfg block ; | | | | .function dependent data ; | | | | | .screen location ; | | | | | | ;acse1: bitmap 0, switch, obyte0, crtflg, ascrl0, yndata ; | ; address of data structure used by function._| ; ;The first two entries in the case table must be labeled to ;provide data for the calculation at case1:. Subsequent ;entries (one for each menu selection) need not be labeled. case11: vector W, togltf, whlopt, 1, scr100, nydata case12: vector S, text, setlbr, 21, scr101, 0 vector R, text, reslbr, 21, scr102, 0 vector C, text, idstr, 8, scr103, 0 ;the next entry is a label which terminates the list. ;It is required for use in the calculation at case1: case1x: ;label used to calc number of entries ;========================================================= scrn1: INCLUDE lxscr1 ;screen image for first screen ;========================================================= ; FUNCTION DATA LIST ;data pair for representing bit values in screen image ;Can also be used for function 8 display (True/False) ;these are null terminated strings. Note the 'DZ'. yndata: dz 'YES' ;for 1=yes nydata: dz ' NO' ;for 0=yes dz 'YES' ;========================================================= help1: include lxhlp1 ; LX21 help screen for menu1 ;=========================================================