MODULE RUNOFF %BLISS36( (ENTRY(RUNOFF)) ) = BEGIN LIBRARY 'BLI:XPORT'; REQUIRE 'RNOMAC'; GLOBAL ROUTINE RUNOFF(control_block) : NOVALUE = BEGIN $XPO_DUMP_FIELD( FIELD_NAME=RNO$T_INPUT, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,RNO$T_INPUT] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$T_OUTPUT, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,RNO$T_OUTPUT] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$T_CONTENTS, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,RNO$T_CONTENTS] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$T_INDEX, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,RNO$T_INDEX] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_OPTION1, TYPE=BYTES, VALUE=.BLOCK[.control_block,RNO$V_OPTION1] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_OPTION2, TYPE=BYTES, VALUE=.BLOCK[.control_block,RNO$V_OPTION2] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_BACKSPACE, TYPE=BIT, VALUE=.BLOCK[.control_block,RNO$V_BACKSPACE] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_CHANGE, TYPE=BIT, VALUE=.BLOCK[.control_block,RNO$V_CHANGE] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_CHNG_CHAR, TYPE=BIT, VALUE=.BLOCK[.control_block,RNO$V_CHNG_CHAR] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_CONTENTS, TYPE=BIT, VALUE=.BLOCK[.control_block,RNO$V_CONTENTS] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_DEB_COND, TYPE=BIT, VALUE=.BLOCK[.control_block,RNO$V_DEB_COND] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_DEB_CONT, TYPE=BIT, VALUE=.BLOCK[.control_block,RNO$V_DEB_CONT] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_DEB_FILES, TYPE=BIT, VALUE=.BLOCK[.control_block,RNO$V_DEB_FILES] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_DEB_INDEX, TYPE=BIT, VALUE=.BLOCK[.control_block,RNO$V_DEB_INDEX] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_INDEX, TYPE=BIT, VALUE=.BLOCK[.control_block,RNO$V_INDEX] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_MSG_OUT, TYPE=BIT, VALUE=.BLOCK[.control_block,RNO$V_MSG_OUT] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_MSG_USER, TYPE=BIT, VALUE=.BLOCK[.control_block,RNO$V_MSG_USER] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_OVERPRINT, TYPE=BIT, VALUE=.BLOCK[.control_block,RNO$V_OVERPRINT] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_PAUSE, TYPE=BIT, VALUE=.BLOCK[.control_block,RNO$V_PAUSE] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_SEQUENCE, TYPE=BIT, VALUE=.BLOCK[.control_block,RNO$V_SEQUENCE] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_SIMULATE, TYPE=BIT, VALUE=.BLOCK[.control_block,RNO$V_SIMULATE] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_UNDERLINE, TYPE=BIT, VALUE=.BLOCK[.control_block,RNO$V_UNDERLINE] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_UND_SEPAR, TYPE=BIT, VALUE=.BLOCK[.control_block,RNO$V_UND_SEPAR] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_UND_NONSP, TYPE=BIT, VALUE=.BLOCK[.control_block,RNO$V_UND_NONSP] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$V_UND_CHAR, TYPE=BIT, VALUE=.BLOCK[.control_block,RNO$V_UND_CHAR] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$C_CHANGE, TYPE=BYTE, VALUE=.BLOCK[.control_block,RNO$C_CHANGE] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$C_UNDERLINE, TYPE=BYTE, VALUE=.BLOCK[.control_block,RNO$C_UNDERLINE] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$H_BOLD, TYPE=SHORT_INTEGER, VALUE=.BLOCK[.control_block,RNO$H_BOLD] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$H_DOWN, TYPE=SHORT_INTEGER, VALUE=.BLOCK[.control_block,RNO$H_DOWN] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$H_RIGHT, TYPE=SHORT_INTEGER, VALUE=.BLOCK[.control_block,RNO$H_RIGHT] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$H_FORM_SIZE, TYPE=SHORT_INTEGER, VALUE=.BLOCK[.control_block,RNO$H_FORM_SIZE] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$T_PAGES, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,RNO$T_PAGES] ); $XPO_DUMP_FIELD( FIELD_NAME=RNO$T_VARIANT, TYPE=DESCRIPTOR, VALUE=BLOCK[.control_block,RNO$T_VARIANT] ); END; END ELUDOM