58 lines
1.6 KiB
Plaintext
58 lines
1.6 KiB
Plaintext
Compile Insert STATUS.CONSTANTS
|
|
* @STATLIST "record" offsets
|
|
*
|
|
EQU STATLIST.KEY$ TO 1
|
|
EQU STATLIST.UNITDESC$ TO 2
|
|
EQU STATLIST.UNITFMT$ TO 3
|
|
EQU STATLIST.PRINTSTR$ TO 4
|
|
*
|
|
* @STATLIST record 1 offsets
|
|
EQU STAT_NAME$ TO 1 ;* Field one is an @VM list of status line names. If it's on the list its in memory.
|
|
EQU STAT_POS$ TO 2 ;* Field two contains the pointer to the slot for the names.
|
|
*
|
|
* STATPOS
|
|
*
|
|
EQU SX$ TO 1
|
|
EQU SY$ TO 2
|
|
*
|
|
* STATPOS & STATREC Modified by Module or elsewhere
|
|
*
|
|
EQU STAT.MODULE$ TO 1 ;* Module
|
|
EQU STAT.MODE$ TO 2 ;* Module
|
|
EQU STAT.MODAL$ TO 3 ;* Module
|
|
EQU STAT.FUNKEYS$ TO 4 ;* Function keys for easier help levels
|
|
EQU STAT.ED$ TO 4 ;* Module or Scribe
|
|
EQU STAT.FILT$ TO 5 ;* System (Readnext & clearselect process)
|
|
EQU STAT.ROW$ TO 6 ;* Module or Scribe
|
|
EQU STAT.MAC$ TO 7 ;* Input.char
|
|
EQU STAT.ID$ TO 8 ;* System
|
|
EQU STAT.BACKG$ TO 9 ;* Background process in progress
|
|
EQU STAT.LEV$ TO 10 ;* Module
|
|
EQU STAT.POS$ TO 11 ;* used only to determine what module you are in when
|
|
* * popping back
|
|
*
|
|
* @STATATR
|
|
*
|
|
EQU STAT.COLOR$ TO 1
|
|
*EQU STAT.BOT$ TO 2 ;* This is no longer used.
|
|
EQU STAT.FKEY$ TO 2
|
|
EQU STAT.FRESH$ TO 3
|
|
EQU STAT.XY$ TO 4
|
|
EQU STAT.LINES$ TO 5
|
|
EQU STAT.DEF$ TO 6
|
|
*
|
|
EQU MULTI.MODAL$ TO 1
|
|
EQU SINGLE$ TO 2
|
|
EQU MULTI$ TO 3
|
|
EQU PUSH$ TO 4
|
|
EQU POP$ TO 5
|
|
EQU SINGLE.MODAL$ TO 6
|
|
EQU METER_MODAL$ TO 7
|
|
*
|
|
*
|
|
EQU HELP.OFF$ TO 0
|
|
|
|
DECLARE SUBROUTINE STATUP
|
|
|
|
* Source Date: 10:44:20 17 JUN 1994 Build ID: AREV*3.1.200 Level: 3.13
|