|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 27100 (0x69dc)
Notes: pts_type(UF)
Names: »SYSMAC.UF«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:PROC/SYSMAC.UF«
IDENT SYSMAC
MACRO EQU
$ MACRO EQU;
EJECT
****************************************
** NOTE THAT THIS SYSMAC IS ONLY FOR: **
** WSM CREATOR AND UTILITIES **
** **
** LATEST UPDATING: 1985-09-01 BY:CJ **
****************************************
EJECT
**
** WSM FUNCTION CODES
**
WOPEN EQU /0000
WATTCH EQU /0100
WRCIVE EQU /0200
*UNPCK EQU -
WMSG EQU /0300
WSEND EQU /0400
WPRINT EQU /0500
WCLOSE EQU /0600
WSAVE EQU /0700
WDLETE EQU /0800
WFATTR EQU /0900
WCODE EQU /0A00
WFID EQU /0B00
EJECT
**
** WSM SYSTEM PARAMETERS
**
TFP EQU 1 CONDITIONAL ASSEMBLY FOR TFP PACKAGE
CPU EQU 857
POLSIZ EQU 248 SIZE OF POOL UNITS IN THE POOL
POLDIS EQU 6 USER DISPLACEMENT IN POOL-UNITS
PADLEN EQU 12 LENGTS OF POOL-ADM-DATA
FIDSIZ EQU 4 SIZE OF FIELD IDENTITY
** SCRSIZ & EKOCHR MOVED 1981-09-07 TO W:INIT **
**
** OPTIONAL DEVICES
**
PRTDEV EQU 12 =12 IF PRINT DEVICE IN SYSTEM, ELSE =0
INPDEV EQU 0 =12 IF OTHER INPUT DEVICE THAN KEYBOARD ...
... IN SYSTEM, ELSE =0
**
** BUFFER SIZES
**
** MOVED 1981-08-04 TO W:INIT **
EJECT
**
** DISPLACEMENTS IN ECB
**
ECB:FC EQU 0
ECB:BA EQU 2
ECB:RL EQU 4
ECB:EL EQU 6
ECB:RC EQU 8
ECB:CW EQU 10
EJECT
**
** ORDERS TO THE POOL & FILE HANDLER
**
PF:RD EQU /01 READ
PF:GET EQU /02 GET
PF:SCH EQU /04 SEARCH
PF:WRT EQU /05 WRITE
PF:CLO EQU /08 CLO
PF:OFR EQU /10 LOCK
PF:RLS EQU /20 RELEASE
PF:DLT EQU /40 DELETE
PF:OPN EQU /80 OPEN
NEXT EQU /0100 NEXT
PREV EQU /0200 PREVIOUS
INDEX EQU /0400 BY INDEX
ALL EQU /0800 ALL ON LRU QUE
NOWAIT EQU /1000 USED FOR READ WITH NOWAIT
EJECT
**
** DISPLACEMENTS IN THE POOL & FILE HANDLER COM. AREA
**
PF:BF1 EQU 0 ADDRESS TO BUFFER 1
PF:BF2 EQU PF:BF1+2 ADDRESS TO BUFFER 2
PF:TYP EQU PF:BF2+3 TYPE OF DATA
PF:NAM EQU PF:TYP+1 IDENTIFICATION
**
** THIS PART OF THE COM. AREA IS THE ECB
**
PF:ECB EQU PF:NAM+6 START OF THE ECB
PF:FNR EQU PF:ECB+1 FILE NUMBER
PF:IOB EQU PF:FNR+1 ADDRESS TO THE I/O-BUFFER
PF:RLN EQU PF:IOB+2 REQUESTED LENGTH
PF:ELN EQU PF:RLN+2 EFFECTIVE LENGTH
PF:RET EQU PF:ELN+2 RETURN CODE
PF:CW1 EQU PF:RET+2 CONTROL WORD 1
PF:CW2 EQU PF:CW1+2 CONTROL WORD 2
**
** THIS PART OF THE COM. AREA IS FOR THE FPB
**
PF:FIL EQU PF:CW2+2 THE FILE NAME
PF:VOL EQU PF:FIL+8 THE VOLUME NAME
PF:RN1 EQU PF:VOL+6 RECNO 1
PF:RN2 EQU PF:RN1+2 RECNO 2
PF:END EQU PF:RN2+2
EJECT
**
** LAYOUT OF POOL-FREE-SPACE AREA
**
PP:CON EQU 0 NO OF FREE UNITS IN THIS AREA
PP:LEN EQU PP:CON+2 LENGTH OF THIS AREA
PP:NAM EQU PP:LEN+2 NAME OF THIS AREA
PP:BIT EQU PP:NAM+2 FREE-SPACE INDICATOR BITS
**
EJECT
**
** LAYOUT OF FREE-SPACE ON DISC
**
DS:TYP EQU 0 TYPE = "FS"
DS:LK1 EQU DS:TYP+2 LINK FORWARD 1
DS:LK2 EQU DS:LK1+2 - " - 2
DS:NUM EQU DS:LK2+2 NUMBER OF RECORDS
DS:NOF EQU DS:NUM+2 NUMBER OF FREE RECORDS
DS:FI1 EQU DS:NOF+2 FIRST REL.RECNO
DS:FI2 EQU DS:FI1+2 USED AS REC.BASE
DS:REL EQU DS:FI2+2 RELATIV FR.SP.REC.
DS:PTR EQU DS:REL+1 FREE-SPACE POINTERS
DS:RLN EQU 256 RECORD LENGTH
**
** POOL-ADMINSTRATION DATA
**
PA:TYP EQU 0 TYPE OF DATA IN THE UNIT
PA:IDE EQU PA:TYP+1 NAME OF DATA
PA:FIL EQU PA:IDE+6 FILE NUMBER
PA:NUM EQU PA:FIL+1 NUMBER OF USERS
PA:SEG EQU PA:NUM+1 SEGMENT NUMBER
PA:UNI EQU PA:SEG+1 POOL-UNIT
PA:LNK EQU PA:UNI+1 LINK TO NEXT
EJECT
**
** FILE-TABLE LAYOUT
**
PT:FIL EQU 0 FILENAME
PT:VOL EQU PT:FIL+8 VOLUME NAME
PT:FC EQU PT:VOL+6 FILE CODE
PT:CON EQU PT:FC+1 COMPULSURY COUNTER
PT:OC EQU PT:CON+1 OPEN/CLOSE BYTE
PT:ACT EQU PT:OC+1 ACTIVE COUNTER
PT:LEN EQU 18 LENGTH OF ONE ENTRY
PT:END EQU 72 LENGT OF FILE-TABLE
**
** ORDER-DATA LAYOUT
**
PO:ORD EQU 0 ORDER
PO:TYP EQU PO:ORD+2 TYPE + NAME
PO:FIL EQU PO:TYP+7 FILE TABLE NO. (0-3)
PO:LNK EQU PO:FIL+1 LINK TO NEXT ORDER
PO:LEN EQU 12 LENGTH OF ONE ORDER
PO:STA EQU 4 START OF ORDERS
PO:END EQU 256 LENGTH OF ORDER-TABLE
PO:RDY EQU /8000 ORDER EXECUTED
PO:DLY EQU 1 DELAY TIME
EJECT
**
** KEYBOARD ECB AND PARAMETER BLOCK FOR ADVANCED READ
**
KB:CW2 EQU ECB:CW+2
KB:PBL EQU KB:CW2+2 PARAMETER BLOCK LENGTH
KB:EKO EQU KB:PBL+1 ECHO CHARACTER (/00 => ORDINARY ECHO)
KB:PW EQU KB:EKO+1 PARAMETER WORD
KB:CUR EQU KB:PW+2 CURSOR POSITION WORD
KB:SHB EQU KB:CUR+2 SHIFT BUFFER BYTE
KB:CND EQU KB:SHB+1 CURRENT # DECIMALS
KB:PL EQU KB:CND+1 PICTURE LENGTH
KB:CNI EQU KB:PL+1 CURRENT # INTEGERS OR CHARACTERS
KB:IL EQU KB:CNI+1 INPUT LENGTH
KB:POS EQU KB:IL+1 POSITION IN FIELD
KB:PNT EQU KB:POS+1 DECIMAL POINT STATUS WORD
KB:MNI EQU KB:PNT+2 MAX # INTEGERS
KB:MND EQU KB:MNI+1 MAX # DECIMALS
KB:END EQU KB:MND+1
EJECT
**
** WS:TCA
** WSM TASK CONTROL AREA
**
TC:TID EQU 0 WSM TASK ID
TC:FC EQU TC:TID+2 PREVIOUS FUNCTION CODE
TC:SCR EQU TC:FC+1 BITS FOR WATTCH, WRCIVE ETC.:
BIT 0:
- DURING WRCIVE:
. = 1 IF INPUT BUFFER CHANGED BY DUPLICATION
. OR VALIDATION OR IF MINUS KEY USED
BIT 1:
- DURING WRCIVE:
. = 1 IF NEGATIVE INPUT
BIT 2:
- DURING WRCIVE:
. = 1 IF FIELDLIST FIELD NOT IN SECTION
BIT 3:
- DURING WRCIVE:
. = 1 IF PB BUFFER IS FULL
*******
BIT 4:
- DURING WRCIVE:
. = 1 IF VALIDATION AFTER ENTER KEY
BIT 5:
- DURING WATTCH:
. = 1 IF WANTED SECTION IS BEFORE ...
. ATTACHED SECTION IN SST
BIT 6 = 1 IF WATTCH WITHOUT DISPLAY
BIT 7 =1 IF WANTED PAGE IS ON SCREEN
EJECT
TC:MSC EQU TC:FC+2 MISCELLANEOUS:
BIT 0-1:
- NOT USED
*******
BIT 2:
- = 1 IF LOOP DETECTOR IS RUNNING
BIT 3:
- = 1 IF BASIC DEBUGGER IS ON
BIT 4:
- =1 IF WMSG ON HLP LINE (2 MSG LINES)
BIT 5:
- =1 IF WMSG ON ERROR LINE
BIT 6:
- =1 IF ERROR MSG ON ERROR LINE
BIT 7:
- =1 IF EXT.PROMPT , GUID. MSG,
. WMSG ON HLP LINE OR SEC/FUN.
BIT 8:
- = 1 IF ALL KEY USED
BIT 9:
- = 1 IF CORRECTION AFTER ERROR HANDLING
BIT 10:
- = 1 IF LKM BLOCKING ON CURRENT SUBSCREEN
. ( <=> CURSOR OFF )
BIT 11:
- = 1 IF BLACK BACKGROUND
*******
BIT 12:
- = 1 IF VD82/83 (8 SUBSCREENS,
. 1 SYSTEM LINE)
BIT 13:
- NOT USED
BIT 14:
- = 1 IF PD85 ETC (ONE-LINE DISPLAYS)
BIT 15:
- = 1 IF AUTO SKIP/DUP FLAG IS ON
EJECT
** INFORMATION ABOUT TWO MESSAGELINES: **
TC:MSG EQU TC:MSC+2 SEE W:MESS AND W:MESG IN W:INIT
** SUBSCREEN INFORMATION: **
TC:SZE EQU TC:MSG+2 SIZE OF SUBSCREEN 1
TC:SIZ EQU TC:SZE+2 CURRENT SCREEN/SUBSCREEN SIZE
TC:SUS EQU TC:SIZ+2 CURRENT SUBSCREEN NO.
TC:LIN EQU TC:SUS+2 1:ST FREE LINE ON CURR. SCREEN/SUBSCREEN
... FOLLOWED BY 1:ST FREE LINE OF
... 9 SUBSCREENS
TC:FRD EQU TC:LIN+11 DISPL. TO BE ADDED TO 1:ST FREE LINE
... WHEN HAVING SECTIONS ON MSG LINE ON OTHER
... DISPLAYS THAN VD82 (RIGHT BYTE REQ.)
** CURRENT FORMAT DEF INFORMATION: **
TC:FDC EQU TC:FRD+1 ADDR. TO FORMAT DEFINITION CODE
** SST INFORMATION: **
TC:SST EQU TC:FDC+2 0. ADDR. TO 1:ST BYTE AFTER SST
2. " " CURRENT SECTION IN SST
4. " " LAST SECTION IN SST
6. LARGEST SECTION SEQUENCE NUMBER IN USE
8. SST ADDR. OF SECTION ON MSG LINE
EJECT
** CURRENT SECTION INFORMATION: **
TC:FSC EQU TC:SST+10 ADDR. TO FORMAT SECTION CODE
TC:CFC EQU TC:FSC+2 " " CURRENT DYN. FIELD CODE
" " " " " " (REL)
TC:DFD EQU TC:CFC+4 " " 1:ST BYTE IN DFD
TC:CFD EQU TC:DFD+2 ADDR. TO CURRENT DYN. FIELD DATA
TC:CFX EQU TC:CFD+2 INDEX OF CURRENT DYN. FIELD
TC:KY1 EQU TC:CFX+2 ADDRESS TO KEYTABLE 1.
TC:KTV EQU TC:KY1+2 ADDRESS TO BITMASK FOR KEYCHECKS
TC:CN1 EQU TC:KTV+2 LOOP COUNTER - SECTION LEVEL
TC:CN2 EQU TC:CN1+2 LOOP COUNTER - FIELD LEVEL
EJECT
** WWI:S, ECB:S, BUFFER:S AND STACK: **
TC:IIE EQU TC:CN2+2 ADDR TO 1ST BYTE AFTER INPUT BUFFER
TC:WWI EQU TC:IIE+2 ADDR. TO WWI:S, EQUAL TO ...
TC:IOE EQU TC:WWI ADDR TO 1ST BYTE AFTER OUTPUT BUFFER
TC:STK EQU TC:IOE+2 ADDR TO THE STACK, WS:STK
TC:PFB EQU TC:STK+2 POOL & FILE HANDLER COM. AREA ...
TC:FIL EQU TC:PFB+PF:ECB ... INCLUDING DISC FILE PARAMETERS
TC:IC EQU TC:PFB+PF:END INTERTASK COM. ECB
TC:KB EQU TC:IC+14 KEYBOARD ECB
TC:EKO EQU TC:KB+KB:END ECHO DEVICE ECB
TC:PRT EQU TC:EKO+PRTDEV PRINT DEVICE ECB
TC:INP EQU TC:PRT+INPDEV OTHER INPUT DEVICE ECB
EJECT
**
** WSM PARAMETER BLOCK
**
PB:FC EQU TC:INP+12 WSM FUNCTION CODE
PB:FOR EQU PB:FC+2 CURRENT FORMAT DEFINITION NAME
PB:SEC EQU PB:FOR+6 CURRENT FORMAT SECTION NAME
PB:SSN EQU PB:SEC+6 CURRENT SECTION SEQUENCE NUMBER
PB:SUS EQU PB:SSN+2 CURRENT SUBSCREEN
PB:INP EQU PB:SUS+1 INPUT ALLOWED, =0 IF YES, =1 IF NO
PB:FID EQU PB:INP+1 CURRENT FIELD IDENTITY
PB:FNO EQU PB:FID+4 FIELD NUMBER
PB:RC EQU PB:FNO+2 RETURN CODE
PB:KID EQU PB:RC+2 KEY ID 1 & 2
PB:XIT EQU PB:KID+4 EXIT ROUTINE NUMBER
PB:EBL EQU PB:XIT+2 EFFECTIVE LENGTH OF BUFFER CONTENTS
PB:MBL EQU PB:EBL+4 MAXIMUM LENGTH OF BUFFER CONTENTS
PB:BLO EQU PB:MBL+2 TYPE OF BUFFER LAYOUT
PB:PRFC EQU PB:BLO+1 PRINTER DEVICE FILE CODE
PB:BUF EQU PB:PRFC+1 PARAMETER BLOCK BUFFER
EJECT
**
** DISPLACEMENTS IN SECTION SEQUENCE TABLE ELEMENTS
**
* 0 SECTION DFD ADDRESS
SS:DFD EQU 2 SECTION DFD SIZE
SS:SCR EQU SS:DFD+2 SECTION ON SCREEN INDICATION
SS:TYP EQU SS:SCR+1 SECTION TYPE
SS:SS EQU SS:SCR+2 SUBSCREEN & SECTION SEQUENCE NO.
SS:LIN EQU SS:SS+2 (SUB-)SCREEN START LINE & NO. OF LINES
1:ST & LAST+1 LINE SHOWN
SS:CFX EQU SS:LIN+4 CURRENT DYNAMIC FIELD INDEX
SS:SEC EQU SS:CFX+2 SECTION NAME
SS:LEN EQU SS:SEC+6 LENGTH OF SST ELEMENT
**
** DISPLACEMENTS IN WSM WORK ITEMS OVERHEAD
**
WWI:NF EQU 0 NO OF FAST CHOISE SECTION WWI:S
WWI:LF EQU WWI:NF+1 LENGTH OF ONE FAST CHOISE SECT WWI
WWI:NN EQU WWI:LF+1 NO OF NUMERIC WWI:S
WWI:LN EQU WWI:NN+1 LENGTH OF ONE NUMERIC WWI
WWI:AN EQU WWI:LN+1 ADDRESS TO FIRST NUMERIC WWI
WWI:NA EQU WWI:AN+2 NO OF ALPHANUMERIC WWI:S
WWI:LA EQU WWI:NA+1 LENGTH OF ONE ALPHANUMERIC WWI
WWI:AA EQU WWI:LA+1 ADDRESS TO FIRST ALPHANUMERIC WWI
WWI:LO EQU WWI:AA+2 LENGTH OF WWI OVERHEAD
EJECT
**
** FORMAT DEFINITION CODE
**
FD:FOR EQU 0 FORMAT DEFINITION NAME
FD:ISN EQU FD:FOR+6 INTIAL SECTION NAME
FD:DSK EQU FD:ISN+6 # DISC SECTORS (BITS 0-7)
FD:FCS EQU FD:DSK+4 LIST OF FAST CHOICE SECTION NAMES
EJECT
**
** FORMAT SECTION CODE
**
** SECTION TYPES
RWS EQU 1 REMOVABLE WITH SCROLLING
RWP EQU 2 REMOVABLE WITH PAGING
FIX EQU 4 FIXED
FOB EQU RWS FIXED ON BOTTOM LINES OF SCREEN
FONP EQU RWP FIXED ON TOP OF NEW PAGE
TEMP EQU 8 TEMPORARY
SECMSK EQU /F MASK ISOLATING TYPE BITS
** SECTION OVERHEAD
SO:SEC EQU 0 SECTION NAME
SO:PSW EQU SO:SEC+6 ( PASSWORD )
SO:DSK EQU SO:PSW+6 NO. OF DISC SECTORS
SO:ONO EQU SO:PSW+7 OBJECT CODE VERSION
SO:VNO EQU SO:DSK+4 SECTION VERSION NO. & TYPE
SO:SIZ EQU SO:VNO+2 DEFINED SECTION SIZE, ROWS & COLUMNS, AND ...
... EFFECTIVE SECTION SIZE
SO:DFD EQU SO:SIZ+4 DFD SIZE
SO:SFC EQU SO:DFD+2 REL. ADDR TO STATIC FIELDS
SO:PP EQU SO:SFC+2 " " " PICTURE POOL
SO:DFC EQU SO:PP+2 " " " DYNAMIC FIELDS
SO:NDF EQU SO:DFC+2 DEC POINT OR COMMA & NO. OF DYN. FIELDS
SO:BGA EQU SO:NDF+4 BACKGROUND DEFAULT ATTRIBUTES
SO:SFA EQU SO:BGA+1 STATIC FIELD DEFAULT ATTRIBUTES
SO:DFA EQU SO:SFA+1 DYN. FIELD DEFAULT ATTRIBUTES
SO:MES EQU SO:DFA+4 DEFAULT GUIDING MESSAGE
EJECT
** STATIC FIELDS
SF:DEC EQU /1F LARGEST DECORATION BYTE
SF:SPA EQU /80 COMPRESSED SPACES
SF:DF EQU /FB DYNAMIC FIELDS
SF:HL EQU /FC HEADER LINES
SF:EOL EQU /FD END OF LINE
SF:EOS EQU /FE END OF SECTION
SF:EOP EQU /FF END OF POOL UNIT
EJECT
** DYNAMIC FIELDS
DYNAMIC FIELD TABLE DISPLACEMENTS
DF:FID EQU 0 FIELD IDENTITY
DF:COD EQU DF:FID+4 FIELD CODE ADDR: POOL & REL POOL ADDR
DF:DAT EQU DF:COD+2 FIELD DATA DISPL. EXCL. TEMP. DECORATIONS ETC.
DF:TLN EQU DF:DAT+2 FIELD TABLE ELEMENT LENGTH
DYNAMIC FIELD CODE DISPLACEMENTS
DF:ALN EQU 0 ATTRIBUTE AREA LENGTH INCL. OPTIONAL PARTS
DF:SCR EQU DF:ALN+2 REL. POSITION IN SECTION
DF:FLN EQU DF:SCR+2 MAX. EFFECTIVE & EDITED LENGTH
DF:TYP EQU DF:FLN+2 NUM- & ALPHANUM DEPENDANT INFORMATION
DF:INP EQU DF:TYP+2 BITS CONCERNING INPUT HANDLING
DF:DEC EQU DF:INP+2 DECORATION BITS
DF:OPT EQU DF:DEC+2 START OF OPTIONAL PART
OPTIONS:
DF:VAL EQU 1 VALIDATION
DF:ACC EQU 2 ACCUMULATION
DF:DUP EQU 3 DUPLICATION ORIGIN
DF:AM EQU 4 APPLICATION MESSAGE
DF:IFC EQU 5 FILE CODE, OTHER INPUT DEVICE
DF:DEF EQU 6 DEFAULT VALUE
DF:OUT EQU 7 OUTPUT PRINT POSITION
DF:GM EQU 15 GUIDING MESSAGE
EJECT
**********************************************************************
** WSM VALIDATION STATEMENT TYPES **
**********************************************************************
VS:ALE EQU /00 ALPHANUM LET EXCL. LET
VS:ALI EQU /01 ALPHANUM LET INCL. LET
VS:NLE EQU /02 NUMERIC LET EXCL. LET
VS:NLI EQU /03 NUMERIC LET INCL. LET
VS:GO EQU /04 GO TO
VS:GOT EQU /05 GOTO
VS:IFL EQU /06 IF <REL. EXPR.> THEN LINENO
VS:IFS EQU /08 IF <REL. EXPR.> THEN STATEMENT
VS:OGO EQU /0A ON <EXPR.> GO TO LINENUMBERS
VS:OGT EQU /0B ON <EXPR.> GOTO LINENUMBERS
VS:CAL EQU /0C CALL
VS:SEC EQU /0E SECT
VS:ATT EQU /10 ATTR
VS:STO EQU /12 STOP
VS:EXI EQU /14 EXIT
VS:ERR EQU /16 ERR
VS:WAR EQU /18 WARN
VS:REM EQU /1A REM
VS:EMP EQU /0C EMPTY
EJECT
**********************************************************************
** VALIDATION OPERATOR EQUATES **
**********************************************************************
VO:EEX EQU 1 END OF EXPRESSION
VO:AEQ EQU 2 = , ALPHANUMERIC COMPARISON
VO:AGE EQU 3 >=, "
VO:AGT EQU 4 > , "
VO:ALE EQU 5 <=, "
VO:ALT EQU 6 < , "
VO:ANE EQU 7 <>, "
VO:NEQ EQU 8 = , NUMERIC COMPARISON
VO:NGE EQU 9 >=, "
VO:NGT EQU /0A > , "
VO:NLE EQU /0B <=, "
VO:NLT EQU /0C < , "
VO:NNE EQU /0D <>, "
VO:CON EQU /0E CONCATENATE
VO:SUS EQU /0F SUBSTRING
VO:STR EQU /10 STR FUNCTION
VO:UPL EQU /11 UNARY PLUS
VO:UMI EQU /12 " MINUS <=> NEGATE
VO:ADD EQU /13 ADD
VO:SUB EQU /14 SUBTRACT
VO:DIV EQU /15 DIVIDE
VO:MUL EQU /16 MULTIPLY
VO:ABS EQU /17 ABS FUNCTION
VO:INT EQU /18 INT "
VO:SGN EQU /19 SGN "
VO:TIM EQU /1A TIM "
VO:DAY EQU /1B DAY "
VO:SYS EQU /1C SYS "
VO:LEN EQU /1D LEN "
VO:NUM EQU /1E NUM "
VO:DAT EQU /1F DAT "
VO:CDV EQU /20 CDV "
VO:POS EQU /21 POS "
VO:PAR EQU /22 PARANTHESIS
EJECT
**********************************************************************
** EQUATES TO THE DIFFERENT KEYTABLES **
**********************************************************************
**
** KEYTABLE 1 & 2
**
K1:CUP EQU 1
K1:CDW EQU K1:CUP+1
K1:TFD EQU K1:CDW+1
K1:TBD EQU K1:TFD+1
K1:PRT EQU K1:TBD+1
K1:LIN EQU K1:PRT+1
K1:HLP EQU K1:LIN+1
K1:ARI EQU K1:HLP+1
K1:ASD EQU K1:ARI+1
K1:CLR EQU K1:ASD+1
K1:SEC EQU K1:CLR+1
K1:CR EQU K1:SEC+1
K1:DUP EQU K1:CR+1
K1:ENT EQU K1:DUP+1
K1:FUN EQU K1:ENT+1
K1:CAN EQU K1:FUN+1
K1:USR EQU K1:CAN+1 K1:USR & ABOVE ARE USER DEFINED KEYS
EJECT
**
** KEYTABLE 3
**
K3:INS EQU 1
K3:DEL EQU K3:INS+1
K3:TFD EQU K3:DEL+1
K3:TBD EQU K3:TFD+1
K3:PRT EQU K3:TBD+1
K3:CLR EQU K3:PRT+1
K3:CAN EQU K3:CLR+1
K3:USR EQU K3:CAN+1
**
** KEYTABLE 4
**
K4:CLR EQU 1
K4:ENT EQU K4:CLR+1
K4:CAN EQU K4:ENT+1
K4:USR EQU K4:CAN+1
**
** KEYTABLE 5 & 6
**
K5:CLR EQU 1
K5:CAN EQU K5:CLR+1
K5:USR EQU K5:CAN+1 K5:USR & ABOVE ARE USER DEFINED KEYS
K6:OV EQU K5:CAN+1
K6:USR EQU K6:OV+1 K6:USR & ABOVE ARE USER DEFINED KEYS
EJECT
$ MEND;
EOS
MACRO RC
$ MACRO RC;
**********************************************************************
** WSM RETURN CODES **
**********************************************************************
** LATEST UPDATING: 1983-04-25 BY: GM *
RC:OK EQU 0 OK
RC:RTY EQU 1 OK, BUT ALL DATA NOT TRANSFERRED, RETRY
RC:TRU EQU 2 OK, BUT TRUNCATION HAS OCCURED
RC:KEY EQU 3 OK, NO DATA TRANSFERRED, KEYLOCK
RC:EXI EQU 4 EXIT ROUTINE REQUEST
RC:EWA EQU 5 EXTERNAL WARNING
RC:EER EQU 6 EXTERNAL ERROR
RC:VCU EQU 7 VALIDATION FROM CURRENT FIELD AND ON
RC:ORM EQU 7 ORIGIN MEDIUM > 1
RC:INA EQU 10 INPUT NOT ALLOWED
RC:DN1 EQU 11 DYN. FIELD NOT FOUND
RC:DN2 EQU 12 AS RC:DN1 BUT ALL OTHER DATA TRANSFERRED
RC:DN3 EQU 13 AS RC:DN1 BUT LACK OF BUFFER SPACE
RC:CNF EQU 20 SECT/DEF/TAB NOT FOUND
RC:NOP EQU 21 FORMAT NOT OPENED
RC:NAT EQU 22 FORMAT SECTION NOT ATTACHED
RC:ISS EQU 23 ILLEGAL SECTION SEQUENCE NO.
RC:PNX EQU 24 PREV./NEXT SECTION NOT FOUND
RC:ISU EQU 25 ILLEGAL SUBSCREEN NO.
RC:SCR EQU 26 NO SCREEN SIZE AVAILABLE
RC:OLD EQU 27 OLD SECTION FOUND
RC:ISE EQU 28 ILLEGAL SECTION REFERENCE
RC:SEC EQU 29 ILLEGAL ATTACH
RC:POL EQU 30 POOL ERROR
RC:STO EQU 31 SECTION SEQ. TABLE OVERFLOW
RC:SNO EQU 32 SECTION SEQ. NUMBER OVERFLOW
RC:LRU EQU 34 DELETE ON LRU-QUE / ADM.DATA
RC:DER EQU 40 DISC ERROR
RC:KER EQU 41 KEYBOARD I/O-ERROR
RC:OER EQU 42 OTHER DEVICE I/O-ERROR
RC:EJN EQU 45 PRINT WITHOUT EJECT/TOP-OF-FORM
RC:EJO EQU 46 EJECT/TOP-OF-FORM ONLY
RC:VER EQU 50 VALIDATION ERRORS:
RC:VOF EQU '01' - VALIDATION WORK AREA OVERFLOW
RC:VSE EQU '02' - VALIDATION STOP TARGET ERROR
RC:VWW EQU '03' - WSM WORK ITEM NOT FOUND
RC:VOB EQU '04' - VALIDATION OBJ. CODE ERROR
RC:VDZ EQU '05' - VALIDATION DIVISION BY ZERO
RC:LP2 EQU '06' - VALIDATION LOOP WITHIN FIELD
RC:LP1 EQU 51 LOOP ON SECTION LEVEL
RC:PBI EQU 60 PAR. BLOCK HOLDES ILLEGAL VALUE
RC:DIV EQU 61 FIELD NOT FOUND IN DATA DIVISION
RC:LKE EQU 62 LKM REQUEST ERROR
$ MEND;
EOS
MACRO C
$ MACRO C TXT;
** $TXT. **
$ MEND;
EOS
MACRO FRAME
$ MACRO FRAME;
**********************************************************************
$ MEND;
EOS
MACRO CVERS
$ MACRO CVERS;
**********************************************************************
** **
** CREDIT INTERPRETER VERSION: **
TEST EQU 1
NOTEST EQU 0
PARM EQU TEST
** **
**********************************************************************
$ MEND;
EOS
MACRO MOD
$ MACRO MOD NAME,AUT,DATE,CONT;
IDENT $NAME. W,REL=2.3,850901,870155940230
**********************************************************************
** **
** $NAME. LATEST UPDATING: $DATE. BY: $AUT. **
** **
** DESCRIPTION: $CONT. **
$ MEND;
EOS
MACRO DUMMY
$ MACRO DUMMY;
****** STANDARD IDENT:
IDENT $NAME. $DATE. /$AUT.
****** CREDIT TEST INTERPRETER IDENT:
IDENT $NAME. P,REL=12.1,811102,870136941200
****** CREDIT PROD INTERPRETER IDENT:
IDENT $NAME. T,REL=12.1,811102,870137141200
****** WSM INTERPRETER IDENT:
IDENT $NAME. W,REL=12.1,811111,870155941200
$ MEND;
EOS
MACRO HIST
$ MACRO HIST AUT,DATE,CONT;
** $DATE. /$AUT. $CONT.
$ MEND;
EOS
MACRO LABEL
$ MACRO LABEL NAME,CONT;
$NAME. EQU *
**********************************************************************
** **
** $NAME. $CONT. **
$ MEND;
EOS
MACRO RUT
$ MACRO RUT NAME,CONT;
EJECT
$NAME. EQU *
**********************************************************************
** **
** $NAME. $CONT. **
$ MEND;
EOS
MACRO OUTP
$ MACRO OUTP TXT;
** OUTPUT: $TXT. **
$ MEND;
EOS
MACRO INP
$ MACRO INP TXT;
** **
** INPUT: $TXT. **
$ MEND;
EOS
MACRO CRUT
$ MACRO CRUT TXT;
** CALLED ROUTINES: $TXT. **
$ MEND;
EOS
MACRO DREG
$ MACRO DREG TXT;
** DESTROYED REG.S: $TXT. **
$ MEND;
EOS
MACRO DMEM
$ MACRO DMEM TXT;
** DESTROYED MEM. : $TXT. **
$ MEND;
EOS
MACRO AIEQU1
$ MACRO AIEQU1;
EJECT
**
** WSM-APPLICATION INTERFACE - PARAMETER BLOCK
**
* LATEST UPDATING: 1981-08-25 BY: ME
FIDSIZ EQU 4 SIZE OF FIELD IDENTITY
PBLGTH EQU 46 PARAMETER BLOCK LENGTH
WNOLGH EQU 1 LENGTH OF ONE WORK BLOCK NUMBER
WBLNOS EQU 0 WORK BLOCK NUMBER AREA
FILL01 EQU WBLNOS+5 FILLER
FUNC EQU FILL01+1 FUNCTION CODE
FORMAT EQU FUNC+2 FORMAT NAME
SECT EQU FORMAT+6 SECTION NAME
SEQNO EQU SECT+6 SECTION SEQUENCE NUMBER
SUBSCR EQU SEQNO+2 SUBSCREEN NUMBER
INPAWD EQU SUBSCR+1 INPUT ALLOWED CODE
CURFID EQU INPAWD+1 CURRENT FIELD-ID
FIELNO EQU CURFID+FIDSIZ FIELD NUMBER
RETCOD EQU FIELNO+2 RETURN CODE
KEYID1 EQU RETCOD+2 KEY IDENTIFICATION 1
KEYID2 EQU KEYID1+2 " " 2
EXITNO EQU KEYID2+2 EXIT ROUTINE NUMBER
RECLGH EQU EXITNO+2 RECEIVED DATA LENGTH
BUFLGH EQU RECLGH+3 BUFFER LENGTH
BUFLAY EQU BUFLGH+3 BUFFER LAYOUT CODE
PRINFC EQU BUFLAY+1 PRINTER DEVICE FILE CODE
BUFFER EQU WBLNOS+PBLGTH BUFFER
EJECT
$ MEND;
EOS
0x0000…001e (0, 0, 400) Head {h00=0x001a, h01=0x0050, text=» IDENT SYSMAC«, t00=0x0000, t01=0x0004}
0x001e…0030 Head {h00=0x000e, h01=0x0050, text=»MACRO EQU «, t00=0x0000, t01=0x0022}
0x0030…0048 Head {h00=0x0014, h01=0x0050, text=»$ MACRO EQU;«, t00=0x0000, t01=0x0034}
0x0048…0056 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x004c}
0x0056…005e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x005a}
0x005e…0066 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0062}
0x0066…006e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x006a}
0x006e…0076 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0072}
0x0076…00a6 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0000, t01=0x007a}
0x00a6…00d6 Head {h00=0x002c, h01=0x0050, text=»** NOTE THAT THIS SYSMAC IS ONLY FOR: **«, t00=0x0000, t01=0x00aa}
0x00d6…0106 Head {h00=0x002c, h01=0x0050, text=»** WSM CREATOR AND UTILITIES **«, t00=0x0000, t01=0x00da}
0x0106…0136 Head {h00=0x002c, h01=0x0050, text=»** **«, t00=0x0000, t01=0x010a}
0x0136…0166 Head {h00=0x002c, h01=0x0050, text=»** LATEST UPDATING: 1985-09-01 BY:CJ **«, t00=0x0000, t01=0x013a}
0x0166…0196 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0000, t01=0x016a}
0x0196…01a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x000a}
0x01a4…01ae Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0001, t01=0x0018}
0x01ae…01cc Head {h00=0x001a, h01=0x0050, text=»** WSM FUNCTION CODES«, t00=0x0001, t01=0x0022}
0x01cc…01d6 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0001, t01=0x0040}
0x01d6…01de Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x004a}
0x01de…01f6 Head {h00=0x0014, h01=0x0050, text=»WOPEN EQU /0000 «, t00=0x0001, t01=0x0052}
0x01f6…020e Head {h00=0x0014, h01=0x0050, text=»WATTCH EQU /0100«, t00=0x0001, t01=0x006a}
0x020e…0226 Head {h00=0x0014, h01=0x0050, text=»WRCIVE EQU /0200«, t00=0x0001, t01=0x0082}
0x0226…0242 Head {h00=0x0018, h01=0x0050, text=»*UNPCK EQU -«, t00=0x0001, t01=0x009a}
0x0242…0258 Head {h00=0x0012, h01=0x0050, text=»WMSG EQU /0300«, t00=0x0001, t01=0x00b6}
0x0258…0270 Head {h00=0x0014, h01=0x0050, text=»WSEND EQU /0400 «, t00=0x0001, t01=0x00cc}
0x0270…0288 Head {h00=0x0014, h01=0x0050, text=»WPRINT EQU /0500«, t00=0x0001, t01=0x00e4}
0x0288…02a0 Head {h00=0x0014, h01=0x0050, text=»WCLOSE EQU /0600«, t00=0x0001, t01=0x00fc}
0x02a0…02b8 Head {h00=0x0014, h01=0x0050, text=»WSAVE EQU /0700 «, t00=0x0001, t01=0x0114}
0x02b8…02d0 Head {h00=0x0014, h01=0x0050, text=»WDLETE EQU /0800«, t00=0x0001, t01=0x012c}
0x02d0…02e8 Head {h00=0x0014, h01=0x0050, text=»WFATTR EQU /0900«, t00=0x0001, t01=0x0144}
0x02e8…0300 Head {h00=0x0014, h01=0x0050, text=»WCODE EQU /0A00 «, t00=0x0001, t01=0x015c}
0x0300…0316 Head {h00=0x0012, h01=0x0050, text=»WFID EQU /0B00«, t00=0x0001, t01=0x0174}
0x0316…0324 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x018a}
0x0324…032c Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0008}
0x032c…0336 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0002, t01=0x0010}
0x0336…0358 Head {h00=0x001e, h01=0x0050, text=»** WSM SYSTEM PARAMETERS «, t00=0x0002, t01=0x001a}
0x0358…0362 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0002, t01=0x003c}
0x0362…036a Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0046}
0x036a…03a0 Head {h00=0x0032, h01=0x0050, text=»TFP EQU 1 CONDITIONAL ASSEMBLY FOR TFP PACKAGE«, t00=0x0002, t01=0x004e}
0x03a0…03b4 Head {h00=0x0010, h01=0x0050, text=»CPU EQU 857 «, t00=0x0002, t01=0x0084}
0x03b4…03bc Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0098}
0x03bc…03f2 Head {h00=0x0032, h01=0x0050, text=»POLSIZ EQU 248 SIZE OF POOL UNITS IN THE POOL «, t00=0x0002, t01=0x00a0}
0x03f2…0426 Head {h00=0x0030, h01=0x0050, text=»POLDIS EQU 6 USER DISPLACEMENT IN POOL-UNITS«, t00=0x0002, t01=0x00d6}
0x0426…0454 Head {h00=0x002a, h01=0x0050, text=»PADLEN EQU 12 LENGTS OF POOL-ADM-DATA «, t00=0x0002, t01=0x010a}
0x0454…0480 Head {h00=0x0028, h01=0x0050, text=»FIDSIZ EQU 4 SIZE OF FIELD IDENTITY «, t00=0x0002, t01=0x0138}
0x0480…0488 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0164}
0x0488…04c0 Head {h00=0x0034, h01=0x0050, text=»** SCRSIZ & EKOCHR MOVED 1981-09-07 TO W:INIT **«, t00=0x0002, t01=0x016c}
0x04c0…04c8 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0014}
0x04c8…04d2 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0003, t01=0x001c}
0x04d2…04ee Head {h00=0x0018, h01=0x0050, text=»** OPTIONAL DEVICES«, t00=0x0003, t01=0x0026}
0x04ee…04f8 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0003, t01=0x0042}
0x04f8…0500 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x004c}
0x0500…053c Head {h00=0x0038, h01=0x0050, text=»PRTDEV EQU 12 =12 IF PRINT DEVICE IN SYSTEM, ELSE =0«, t00=0x0003, t01=0x0054}
0x053c…057c Head {h00=0x003c, h01=0x0050, text=»INPDEV EQU 0 =12 IF OTHER INPUT DEVICE THAN KEYBOARD ...«, t00=0x0003, t01=0x0090}
0x057c…059e Head {h00=0x001e, h01=0x0050, text=» ... IN SYSTEM, ELSE =0 «, t00=0x0003, t01=0x00d0}
0x059e…05a6 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00f2}
0x05a6…05b0 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0003, t01=0x00fa}
0x05b0…05c8 Head {h00=0x0014, h01=0x0050, text=»** BUFFER SIZES«, t00=0x0003, t01=0x0104}
0x05c8…05d2 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0003, t01=0x011c}
0x05d2…05da Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0126}
0x05da…0602 Head {h00=0x0024, h01=0x0050, text=»** MOVED 1981-08-04 TO W:INIT **«, t00=0x0003, t01=0x012e}
0x0602…0610 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0156}
0x0610…0618 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0164}
0x0618…0622 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0003, t01=0x016c}
0x0622…0642 Head {h00=0x001c, h01=0x0050, text=»** DISPLACEMENTS IN ECB«, t00=0x0003, t01=0x0176}
0x0642…064c Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0004, t01=0x0008}
0x064c…0654 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0012}
0x0654…0668 Head {h00=0x0010, h01=0x0050, text=»ECB:FC EQU 0«, t00=0x0004, t01=0x001a}
0x0668…067c Head {h00=0x0010, h01=0x0050, text=»ECB:BA EQU 2«, t00=0x0004, t01=0x002e}
0x067c…0690 Head {h00=0x0010, h01=0x0050, text=»ECB:RL EQU 4«, t00=0x0004, t01=0x0042}
0x0690…06a4 Head {h00=0x0010, h01=0x0050, text=»ECB:EL EQU 6«, t00=0x0004, t01=0x0056}
0x06a4…06b8 Head {h00=0x0010, h01=0x0050, text=»ECB:RC EQU 8«, t00=0x0004, t01=0x006a}
0x06b8…06ce Head {h00=0x0012, h01=0x0050, text=»ECB:CW EQU 10 «, t00=0x0004, t01=0x007e}
0x06ce…06dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0094}
0x06dc…06e4 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00a2}
0x06e4…06ee Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0004, t01=0x00aa}
0x06ee…071c Head {h00=0x002a, h01=0x0050, text=»** ORDERS TO THE POOL & FILE HANDLER «, t00=0x0004, t01=0x00b4}
0x071c…0726 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0004, t01=0x00e2}
0x0726…072e Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00ec}
0x072e…0748 Head {h00=0x0016, h01=0x0050, text=»PF:RD EQU /01 READ«, t00=0x0004, t01=0x00f4}
0x0748…0762 Head {h00=0x0016, h01=0x0050, text=»PF:GET EQU /02 GET«, t00=0x0004, t01=0x010e}
0x0762…0780 Head {h00=0x001a, h01=0x0050, text=»PF:SCH EQU /04 SEARCH «, t00=0x0004, t01=0x0128}
0x0780…079c Head {h00=0x0018, h01=0x0050, text=»PF:WRT EQU /05 WRITE«, t00=0x0004, t01=0x0146}
0x079c…07b6 Head {h00=0x0016, h01=0x0050, text=»PF:CLO EQU /08 CLO«, t00=0x0004, t01=0x0162}
0x07b6…07d2 Head {h00=0x0018, h01=0x0050, text=»PF:OFR EQU /10 LOCK «, t00=0x0004, t01=0x017c}
0x07d2…07f0 Head {h00=0x001a, h01=0x0050, text=»PF:RLS EQU /20 RELEASE«, t00=0x0005, t01=0x0008}
0x07f0…080e Head {h00=0x001a, h01=0x0050, text=»PF:DLT EQU /40 DELETE «, t00=0x0005, t01=0x0026}
0x080e…082a Head {h00=0x0018, h01=0x0050, text=»PF:OPN EQU /80 OPEN «, t00=0x0005, t01=0x0044}
0x082a…0846 Head {h00=0x0018, h01=0x0050, text=»NEXT EQU /0100 NEXT «, t00=0x0005, t01=0x0060}
0x0846…0866 Head {h00=0x001c, h01=0x0050, text=»PREV EQU /0200 PREVIOUS «, t00=0x0005, t01=0x007c}
0x0866…0886 Head {h00=0x001c, h01=0x0050, text=»INDEX EQU /0400 BY INDEX«, t00=0x0005, t01=0x009c}
0x0886…08aa Head {h00=0x0020, h01=0x0050, text=»ALL EQU /0800 ALL ON LRU QUE«, t00=0x0005, t01=0x00bc}
0x08aa…08dc Head {h00=0x002e, h01=0x0050, text=»NOWAIT EQU /1000 USED FOR READ WITH NOWAIT«, t00=0x0005, t01=0x00e0}
0x08dc…08ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0112}
0x08ea…08f4 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0005, t01=0x0120}
0x08f4…0932 Head {h00=0x003a, h01=0x0050, text=»** DISPLACEMENTS IN THE POOL & FILE HANDLER COM. AREA«, t00=0x0005, t01=0x012a}
0x0932…093c Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0005, t01=0x0168}
0x093c…0944 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0172}
0x0944…096c Head {h00=0x0024, h01=0x0050, text=»PF:BF1 EQU 0 ADDRESS TO BUFFER 1«, t00=0x0005, t01=0x017a}
0x096c…099c Head {h00=0x002c, h01=0x0050, text=»PF:BF2 EQU PF:BF1+2 ADDRESS TO BUFFER 2 «, t00=0x0006, t01=0x0012}
0x099c…09c4 Head {h00=0x0024, h01=0x0050, text=»PF:TYP EQU PF:BF2+3 TYPE OF DATA«, t00=0x0006, t01=0x0042}
0x09c4…09ee Head {h00=0x0026, h01=0x0050, text=»PF:NAM EQU PF:TYP+1 IDENTIFICATION«, t00=0x0006, t01=0x006a}
0x09ee…09f8 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0006, t01=0x0094}
0x09f8…0a32 Head {h00=0x0036, h01=0x0050, text=»** THIS PART OF THE COM. AREA IS THE ECB«, t00=0x0006, t01=0x009e}
0x0a32…0a3c Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0006, t01=0x00d8}
0x0a3c…0a68 Head {h00=0x0028, h01=0x0050, text=»PF:ECB EQU PF:NAM+6 START OF THE ECB«, t00=0x0006, t01=0x00e2}
0x0a68…0a90 Head {h00=0x0024, h01=0x0050, text=»PF:FNR EQU PF:ECB+1 FILE NUMBER «, t00=0x0006, t01=0x010e}
0x0a90…0ac6 Head {h00=0x0032, h01=0x0050, text=»PF:IOB EQU PF:FNR+1 ADDRESS TO THE I/O-BUFFER «, t00=0x0006, t01=0x0136}
0x0ac6…0af2 Head {h00=0x0028, h01=0x0050, text=»PF:RLN EQU PF:IOB+2 REQUESTED LENGTH«, t00=0x0006, t01=0x016c}
0x0af2…0b1e Head {h00=0x0028, h01=0x0050, text=»PF:ELN EQU PF:RLN+2 EFFECTIVE LENGTH«, t00=0x0007, t01=0x0008}
0x0b1e…0b46 Head {h00=0x0024, h01=0x0050, text=»PF:RET EQU PF:ELN+2 RETURN CODE «, t00=0x0007, t01=0x0034}
0x0b46…0b70 Head {h00=0x0026, h01=0x0050, text=»PF:CW1 EQU PF:RET+2 CONTROL WORD 1«, t00=0x0007, t01=0x005c}
0x0b70…0b9a Head {h00=0x0026, h01=0x0050, text=»PF:CW2 EQU PF:CW1+2 CONTROL WORD 2«, t00=0x0007, t01=0x0086}
0x0b9a…0ba4 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0007, t01=0x00b0}
0x0ba4…0be2 Head {h00=0x003a, h01=0x0050, text=»** THIS PART OF THE COM. AREA IS FOR THE FPB«, t00=0x0007, t01=0x00ba}
0x0be2…0bec Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0007, t01=0x00f8}
0x0bec…0c16 Head {h00=0x0026, h01=0x0050, text=»PF:FIL EQU PF:CW2+2 THE FILE NAME «, t00=0x0007, t01=0x0102}
0x0c16…0c42 Head {h00=0x0028, h01=0x0050, text=»PF:VOL EQU PF:FIL+8 THE VOLUME NAME «, t00=0x0007, t01=0x012c}
0x0c42…0c66 Head {h00=0x0020, h01=0x0050, text=»PF:RN1 EQU PF:VOL+6 RECNO 1 «, t00=0x0007, t01=0x0158}
0x0c66…0c8a Head {h00=0x0020, h01=0x0050, text=»PF:RN2 EQU PF:RN1+2 RECNO 2 «, t00=0x0007, t01=0x017c}
0x0c8a…0ca6 Head {h00=0x0018, h01=0x0050, text=»PF:END EQU PF:RN2+2 «, t00=0x0008, t01=0x0010}
0x0ca6…0cb4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x002c}
0x0cb4…0cbe Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0008, t01=0x003a}
0x0cbe…0ce8 Head {h00=0x0026, h01=0x0050, text=»** LAYOUT OF POOL-FREE-SPACE AREA «, t00=0x0008, t01=0x0044}
0x0ce8…0cf2 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0008, t01=0x006e}
0x0cf2…0d24 Head {h00=0x002e, h01=0x0050, text=»PP:CON EQU 0 NO OF FREE UNITS IN THIS AREA«, t00=0x0008, t01=0x0078}
0x0d24…0d54 Head {h00=0x002c, h01=0x0050, text=»PP:LEN EQU PP:CON+2 LENGTH OF THIS AREA «, t00=0x0008, t01=0x00aa}
0x0d54…0d82 Head {h00=0x002a, h01=0x0050, text=»PP:NAM EQU PP:LEN+2 NAME OF THIS AREA «, t00=0x0008, t01=0x00da}
0x0d82…0db8 Head {h00=0x0032, h01=0x0050, text=»PP:BIT EQU PP:NAM+2 FREE-SPACE INDICATOR BITS «, t00=0x0008, t01=0x0108}
0x0db8…0dc2 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0008, t01=0x013e}
0x0dc2…0dd0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0148}
0x0dd0…0dda Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0008, t01=0x0156}
0x0dda…0e02 Head {h00=0x0024, h01=0x0050, text=»** LAYOUT OF FREE-SPACE ON DISC «, t00=0x0008, t01=0x0160}
0x0e02…0e0c Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0008, t01=0x0188}
0x0e0c…0e2c (9, 0, 400) Head {h00=0x001c, h01=0x0050, text=»DS:TYP EQU 0 TYPE = "FS"«, t00=0x0009, t01=0x0004}
0x0e2c…0e58 Head {h00=0x0028, h01=0x0050, text=»DS:LK1 EQU DS:TYP+2 LINK FORWARD 1 «, t00=0x0009, t01=0x0024}
0x0e58…0e84 Head {h00=0x0028, h01=0x0050, text=»DS:LK2 EQU DS:LK1+2 - " - 2 «, t00=0x0009, t01=0x0050}
0x0e84…0eb2 Head {h00=0x002a, h01=0x0050, text=»DS:NUM EQU DS:LK2+2 NUMBER OF RECORDS «, t00=0x0009, t01=0x007c}
0x0eb2…0ee4 Head {h00=0x002e, h01=0x0050, text=»DS:NOF EQU DS:NUM+2 NUMBER OF FREE RECORDS«, t00=0x0009, t01=0x00aa}
0x0ee4…0f10 Head {h00=0x0028, h01=0x0050, text=»DS:FI1 EQU DS:NOF+2 FIRST REL.RECNO «, t00=0x0009, t01=0x00dc}
0x0f10…0f3e Head {h00=0x002a, h01=0x0050, text=»DS:FI2 EQU DS:FI1+2 USED AS REC.BASE «, t00=0x0009, t01=0x0108}
0x0f3e…0f6c Head {h00=0x002a, h01=0x0050, text=»DS:REL EQU DS:FI2+2 RELATIV FR.SP.REC.«, t00=0x0009, t01=0x0136}
0x0f6c…0f9c Head {h00=0x002c, h01=0x0050, text=»DS:PTR EQU DS:REL+1 FREE-SPACE POINTERS «, t00=0x0009, t01=0x0164}
0x0f9c…0fa4 (10, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0004}
0x0fa4…0fc8 Head {h00=0x0020, h01=0x0050, text=»DS:RLN EQU 256 RECORD LENGTH«, t00=0x000a, t01=0x000c}
0x0fc8…0fd2 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000a, t01=0x0030}
0x0fd2…0ff6 Head {h00=0x0020, h01=0x0050, text=»** POOL-ADMINSTRATION DATA «, t00=0x000a, t01=0x003a}
0x0ff6…1000 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000a, t01=0x005e}
0x1000…102e Head {h00=0x002a, h01=0x0050, text=»PA:TYP EQU 0 TYPE OF DATA IN THE UNIT «, t00=0x000a, t01=0x0068}
0x102e…1056 Head {h00=0x0024, h01=0x0050, text=»PA:IDE EQU PA:TYP+1 NAME OF DATA«, t00=0x000a, t01=0x0096}
0x1056…107e Head {h00=0x0024, h01=0x0050, text=»PA:FIL EQU PA:IDE+6 FILE NUMBER «, t00=0x000a, t01=0x00be}
0x107e…10aa Head {h00=0x0028, h01=0x0050, text=»PA:NUM EQU PA:FIL+1 NUMBER OF USERS «, t00=0x000a, t01=0x00e6}
0x10aa…10d4 Head {h00=0x0026, h01=0x0050, text=»PA:SEG EQU PA:NUM+1 SEGMENT NUMBER«, t00=0x000a, t01=0x0112}
0x10d4…10fa Head {h00=0x0022, h01=0x0050, text=»PA:UNI EQU PA:SEG+1 POOL-UNIT «, t00=0x000a, t01=0x013c}
0x10fa…1122 Head {h00=0x0024, h01=0x0050, text=»PA:LNK EQU PA:UNI+1 LINK TO NEXT«, t00=0x000a, t01=0x0162}
0x1122…1130 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x018a}
0x1130…113a Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000b, t01=0x0008}
0x113a…1158 Head {h00=0x001a, h01=0x0050, text=»** FILE-TABLE LAYOUT «, t00=0x000b, t01=0x0012}
0x1158…1162 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000b, t01=0x0030}
0x1162…1180 Head {h00=0x001a, h01=0x0050, text=»PT:FIL EQU 0 FILENAME «, t00=0x000b, t01=0x003a}
0x1180…11a8 Head {h00=0x0024, h01=0x0050, text=»PT:VOL EQU PT:FIL+8 VOLUME NAME «, t00=0x000b, t01=0x0058}
0x11a8…11cc Head {h00=0x0020, h01=0x0050, text=»PT:FC EQU PT:VOL+6 FILE CODE«, t00=0x000b, t01=0x0080}
0x11cc…11fa Head {h00=0x002a, h01=0x0050, text=»PT:CON EQU PT:FC+1 COMPULSURY COUNTER «, t00=0x000b, t01=0x00a4}
0x11fa…1224 Head {h00=0x0026, h01=0x0050, text=»PT:OC EQU PT:CON+1 OPEN/CLOSE BYTE«, t00=0x000b, t01=0x00d2}
0x1224…124e Head {h00=0x0026, h01=0x0050, text=»PT:ACT EQU PT:OC+1 ACTIVE COUNTER «, t00=0x000b, t01=0x00fc}
0x124e…1278 Head {h00=0x0026, h01=0x0050, text=»PT:LEN EQU 18 LENGTH OF ONE ENTRY «, t00=0x000b, t01=0x0126}
0x1278…12a2 Head {h00=0x0026, h01=0x0050, text=»PT:END EQU 72 LENGT OF FILE-TABLE «, t00=0x000b, t01=0x0150}
0x12a2…12aa Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x017a}
0x12aa…12b4 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000b, t01=0x0182}
0x12b4…12d2 Head {h00=0x001a, h01=0x0050, text=»** ORDER-DATA LAYOUT «, t00=0x000b, t01=0x018c}
0x12d2…12dc Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000c, t01=0x001a}
0x12dc…12f6 Head {h00=0x0016, h01=0x0050, text=»PO:ORD EQU 0 ORDER«, t00=0x000c, t01=0x0024}
0x12f6…131e Head {h00=0x0024, h01=0x0050, text=»PO:TYP EQU PO:ORD+2 TYPE + NAME «, t00=0x000c, t01=0x003e}
0x131e…134e Head {h00=0x002c, h01=0x0050, text=»PO:FIL EQU PO:TYP+7 FILE TABLE NO. (0-3)«, t00=0x000c, t01=0x0066}
0x134e…137c Head {h00=0x002a, h01=0x0050, text=»PO:LNK EQU PO:FIL+1 LINK TO NEXT ORDER«, t00=0x000c, t01=0x0096}
0x137c…13a6 Head {h00=0x0026, h01=0x0050, text=»PO:LEN EQU 12 LENGTH OF ONE ORDER «, t00=0x000c, t01=0x00c4}
0x13a6…13ca Head {h00=0x0020, h01=0x0050, text=»PO:STA EQU 4 START OF ORDERS«, t00=0x000c, t01=0x00ee}
0x13ca…13f6 Head {h00=0x0028, h01=0x0050, text=»PO:END EQU 256 LENGTH OF ORDER-TABLE«, t00=0x000c, t01=0x0112}
0x13f6…141e Head {h00=0x0024, h01=0x0050, text=»PO:RDY EQU /8000 ORDER EXECUTED «, t00=0x000c, t01=0x013e}
0x141e…143e Head {h00=0x001c, h01=0x0050, text=»PO:DLY EQU 1 DELAY TIME «, t00=0x000c, t01=0x0166}
0x143e…144c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0186}
0x144c…1454 (13, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0004}
0x1454…145e Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000d, t01=0x000c}
0x145e…149c Head {h00=0x003a, h01=0x0050, text=»** KEYBOARD ECB AND PARAMETER BLOCK FOR ADVANCED READ«, t00=0x000d, t01=0x0016}
0x149c…14a6 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000d, t01=0x0054}
0x14a6…14ae Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x005e}
0x14ae…14ca Head {h00=0x0018, h01=0x0050, text=»KB:CW2 EQU ECB:CW+2 «, t00=0x000d, t01=0x0066}
0x14ca…14fc Head {h00=0x002e, h01=0x0050, text=»KB:PBL EQU KB:CW2+2 PARAMETER BLOCK LENGTH«, t00=0x000d, t01=0x0082}
0x14fc…153e Head {h00=0x003e, h01=0x0050, text=»KB:EKO EQU KB:PBL+1 ECHO CHARACTER (/00 => ORDINARY ECHO) «, t00=0x000d, t01=0x00b4}
0x153e…1568 Head {h00=0x0026, h01=0x0050, text=»KB:PW EQU KB:EKO+1 PARAMETER WORD «, t00=0x000d, t01=0x00f6}
0x1568…1598 Head {h00=0x002c, h01=0x0050, text=»KB:CUR EQU KB:PW+2 CURSOR POSITION WORD «, t00=0x000d, t01=0x0120}
0x1598…15c6 Head {h00=0x002a, h01=0x0050, text=»KB:SHB EQU KB:CUR+2 SHIFT BUFFER BYTE «, t00=0x000d, t01=0x0150}
0x15c6…15f4 Head {h00=0x002a, h01=0x0050, text=»KB:CND EQU KB:SHB+1 CURRENT # DECIMALS«, t00=0x000d, t01=0x017e}
0x15f4…161e Head {h00=0x0026, h01=0x0050, text=»KB:PL EQU KB:CND+1 PICTURE LENGTH «, t00=0x000e, t01=0x001c}
0x161e…165a Head {h00=0x0038, h01=0x0050, text=»KB:CNI EQU KB:PL+1 CURRENT # INTEGERS OR CHARACTERS «, t00=0x000e, t01=0x0046}
0x165a…1682 Head {h00=0x0024, h01=0x0050, text=»KB:IL EQU KB:CNI+1 INPUT LENGTH «, t00=0x000e, t01=0x0082}
0x1682…16ae Head {h00=0x0028, h01=0x0050, text=»KB:POS EQU KB:IL+1 POSITION IN FIELD«, t00=0x000e, t01=0x00aa}
0x16ae…16e4 Head {h00=0x0032, h01=0x0050, text=»KB:PNT EQU KB:POS+1 DECIMAL POINT STATUS WORD «, t00=0x000e, t01=0x00d6}
0x16e4…170e Head {h00=0x0026, h01=0x0050, text=»KB:MNI EQU KB:PNT+2 MAX # INTEGERS«, t00=0x000e, t01=0x010c}
0x170e…1738 Head {h00=0x0026, h01=0x0050, text=»KB:MND EQU KB:MNI+1 MAX # DECIMALS«, t00=0x000e, t01=0x0136}
0x1738…1754 Head {h00=0x0018, h01=0x0050, text=»KB:END EQU KB:MND+1 «, t00=0x000e, t01=0x0160}
0x1754…1762 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x017c}
0x1762…176a Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x018a}
0x176a…1774 (15, 0, 400) Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000f, t01=0x0004}
0x1774…1786 Head {h00=0x000e, h01=0x0050, text=»** WS:TCA«, t00=0x000f, t01=0x000e}
0x1786…17a8 Head {h00=0x001e, h01=0x0050, text=»** WSM TASK CONTROL AREA «, t00=0x000f, t01=0x0020}
0x17a8…17b2 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x000f, t01=0x0042}
0x17b2…17ba Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x004c}
0x17ba…17da Head {h00=0x001c, h01=0x0050, text=»TC:TID EQU 0 WSM TASK ID«, t00=0x000f, t01=0x0054}
0x17da…180c Head {h00=0x002e, h01=0x0050, text=»TC:FC EQU TC:TID+2 PREVIOUS FUNCTION CODE «, t00=0x000f, t01=0x0074}
0x180c…1844 Head {h00=0x0034, h01=0x0050, text=»TC:SCR EQU TC:FC+1 BITS FOR WATTCH, WRCIVE ETC.:«, t00=0x000f, t01=0x00a6}
0x1844…1856 Head {h00=0x000e, h01=0x0050, text=» BIT 0: «, t00=0x000f, t01=0x00de}
0x1856…1872 Head {h00=0x0018, h01=0x0050, text=» - DURING WRCIVE: «, t00=0x000f, t01=0x00f0}
0x1872…18ac Head {h00=0x0036, h01=0x0050, text=» . = 1 IF INPUT BUFFER CHANGED BY DUPLICATION«, t00=0x000f, t01=0x010c}
0x18ac…18e2 Head {h00=0x0032, h01=0x0050, text=» . OR VALIDATION OR IF MINUS KEY USED«, t00=0x000f, t01=0x0146}
0x18e2…18f4 Head {h00=0x000e, h01=0x0050, text=» BIT 1: «, t00=0x000f, t01=0x017c}
0x18f4…1910 Head {h00=0x0018, h01=0x0050, text=» - DURING WRCIVE: «, t00=0x000f, t01=0x018e}
0x1910…1936 Head {h00=0x0022, h01=0x0050, text=» . = 1 IF NEGATIVE INPUT «, t00=0x0010, t01=0x001a}
0x1936…1948 Head {h00=0x000e, h01=0x0050, text=» BIT 2: «, t00=0x0010, t01=0x0040}
0x1948…1964 Head {h00=0x0018, h01=0x0050, text=» - DURING WRCIVE: «, t00=0x0010, t01=0x0052}
0x1964…199a Head {h00=0x0032, h01=0x0050, text=» . = 1 IF FIELDLIST FIELD NOT IN SECTION «, t00=0x0010, t01=0x006e}
0x199a…19ac Head {h00=0x000e, h01=0x0050, text=» BIT 3: «, t00=0x0010, t01=0x00a4}
0x19ac…19c8 Head {h00=0x0018, h01=0x0050, text=» - DURING WRCIVE: «, t00=0x0010, t01=0x00b6}
0x19c8…19f0 Head {h00=0x0024, h01=0x0050, text=» . = 1 IF PB BUFFER IS FULL«, t00=0x0010, t01=0x00d2}
0x19f0…1a02 Head {h00=0x000e, h01=0x0050, text=» *******«, t00=0x0010, t01=0x00fa}
0x1a02…1a14 Head {h00=0x000e, h01=0x0050, text=» BIT 4: «, t00=0x0010, t01=0x010c}
0x1a14…1a30 Head {h00=0x0018, h01=0x0050, text=» - DURING WRCIVE: «, t00=0x0010, t01=0x011e}
0x1a30…1a62 Head {h00=0x002e, h01=0x0050, text=» . = 1 IF VALIDATION AFTER ENTER KEY «, t00=0x0010, t01=0x013a}
0x1a62…1a74 Head {h00=0x000e, h01=0x0050, text=» BIT 5: «, t00=0x0010, t01=0x016c}
0x1a74…1a90 Head {h00=0x0018, h01=0x0050, text=» - DURING WATTCH: «, t00=0x0010, t01=0x017e}
0x1a90…1ac4 Head {h00=0x0030, h01=0x0050, text=» . = 1 IF WANTED SECTION IS BEFORE ... «, t00=0x0011, t01=0x000a}
0x1ac4…1af0 Head {h00=0x0028, h01=0x0050, text=» . ATTACHED SECTION IN SST «, t00=0x0011, t01=0x003e}
0x1af0…1b1e Head {h00=0x002a, h01=0x0050, text=» BIT 6 = 1 IF WATTCH WITHOUT DISPLAY«, t00=0x0011, t01=0x006a}
0x1b1e…1b4e Head {h00=0x002c, h01=0x0050, text=» BIT 7 =1 IF WANTED PAGE IS ON SCREEN «, t00=0x0011, t01=0x0098}
0x1b4e…1b5c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00c8}
0x1b5c…1b64 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00d6}
0x1b64…1b8e Head {h00=0x0026, h01=0x0050, text=»TC:MSC EQU TC:FC+2 MISCELLANEOUS: «, t00=0x0011, t01=0x00de}
0x1b8e…1ba2 Head {h00=0x0010, h01=0x0050, text=» BIT 0-1: «, t00=0x0011, t01=0x0108}
0x1ba2…1bba Head {h00=0x0014, h01=0x0050, text=» - NOT USED «, t00=0x0011, t01=0x011c}
0x1bba…1bcc Head {h00=0x000e, h01=0x0050, text=» *******«, t00=0x0011, t01=0x0134}
0x1bcc…1bde Head {h00=0x000e, h01=0x0050, text=» BIT 2:«, t00=0x0011, t01=0x0146}
0x1bde…1c0e Head {h00=0x002c, h01=0x0050, text=» - = 1 IF LOOP DETECTOR IS RUNNING «, t00=0x0011, t01=0x0158}
0x1c0e…1c20 Head {h00=0x000e, h01=0x0050, text=» BIT 3:«, t00=0x0011, t01=0x0188}
0x1c20…1c4c Head {h00=0x0028, h01=0x0050, text=» - = 1 IF BASIC DEBUGGER IS ON «, t00=0x0012, t01=0x000a}
0x1c4c…1c5e Head {h00=0x000e, h01=0x0050, text=» BIT 4:«, t00=0x0012, t01=0x0036}
0x1c5e…1c92 Head {h00=0x0030, h01=0x0050, text=» - =1 IF WMSG ON HLP LINE (2 MSG LINES)«, t00=0x0012, t01=0x0048}
0x1c92…1ca4 Head {h00=0x000e, h01=0x0050, text=» BIT 5:«, t00=0x0012, t01=0x007c}
0x1ca4…1ccc Head {h00=0x0024, h01=0x0050, text=» - =1 IF WMSG ON ERROR LINE«, t00=0x0012, t01=0x008e}
0x1ccc…1cde Head {h00=0x000e, h01=0x0050, text=» BIT 6:«, t00=0x0012, t01=0x00b6}
0x1cde…1d0a Head {h00=0x0028, h01=0x0050, text=» - =1 IF ERROR MSG ON ERROR LINE«, t00=0x0012, t01=0x00c8}
0x1d0a…1d1c Head {h00=0x000e, h01=0x0050, text=» BIT 7:«, t00=0x0012, t01=0x00f4}
0x1d1c…1d48 Head {h00=0x0028, h01=0x0050, text=» - =1 IF EXT.PROMPT , GUID. MSG,«, t00=0x0012, t01=0x0106}
0x1d48…1d76 Head {h00=0x002a, h01=0x0050, text=» . WMSG ON HLP LINE OR SEC/FUN.«, t00=0x0012, t01=0x0132}
0x1d76…1d88 Head {h00=0x000e, h01=0x0050, text=» BIT 8:«, t00=0x0012, t01=0x0160}
0x1d88…1daa Head {h00=0x001e, h01=0x0050, text=» - = 1 IF ALL KEY USED«, t00=0x0012, t01=0x0172}
0x1daa…1dbc (19, 0, 400) Head {h00=0x000e, h01=0x0050, text=» BIT 9:«, t00=0x0013, t01=0x0004}
0x1dbc…1df2 Head {h00=0x0032, h01=0x0050, text=» - = 1 IF CORRECTION AFTER ERROR HANDLING «, t00=0x0013, t01=0x0016}
0x1df2…1e04 Head {h00=0x000e, h01=0x0050, text=» BIT 10:«, t00=0x0013, t01=0x004c}
0x1e04…1e3c Head {h00=0x0034, h01=0x0050, text=» - = 1 IF LKM BLOCKING ON CURRENT SUBSCREEN «, t00=0x0013, t01=0x005e}
0x1e3c…1e60 Head {h00=0x0020, h01=0x0050, text=» . ( <=> CURSOR OFF ) «, t00=0x0013, t01=0x0096}
0x1e60…1e72 Head {h00=0x000e, h01=0x0050, text=» BIT 11:«, t00=0x0013, t01=0x00ba}
0x1e72…1e98 Head {h00=0x0022, h01=0x0050, text=» - = 1 IF BLACK BACKGROUND«, t00=0x0013, t01=0x00cc}
0x1e98…1eaa Head {h00=0x000e, h01=0x0050, text=» *******«, t00=0x0013, t01=0x00f2}
0x1eaa…1ebc Head {h00=0x000e, h01=0x0050, text=» BIT 12:«, t00=0x0013, t01=0x0104}
0x1ebc…1ee8 Head {h00=0x0028, h01=0x0050, text=» - = 1 IF VD82/83 (8 SUBSCREENS,«, t00=0x0013, t01=0x0116}
0x1ee8…1f16 Head {h00=0x002a, h01=0x0050, text=» . 1 SYSTEM LINE) «, t00=0x0013, t01=0x0142}
0x1f16…1f28 Head {h00=0x000e, h01=0x0050, text=» BIT 13:«, t00=0x0013, t01=0x0170}
0x1f28…1f40 Head {h00=0x0014, h01=0x0050, text=» - NOT USED «, t00=0x0013, t01=0x0182}
0x1f40…1f52 Head {h00=0x000e, h01=0x0050, text=» BIT 14:«, t00=0x0014, t01=0x000a}
0x1f52…1f84 Head {h00=0x002e, h01=0x0050, text=» - = 1 IF PD85 ETC (ONE-LINE DISPLAYS)«, t00=0x0014, t01=0x001c}
0x1f84…1f96 Head {h00=0x000e, h01=0x0050, text=» BIT 15:«, t00=0x0014, t01=0x004e}
0x1f96…1fc4 Head {h00=0x002a, h01=0x0050, text=» - = 1 IF AUTO SKIP/DUP FLAG IS ON«, t00=0x0014, t01=0x0060}
0x1fc4…1fcc Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x008e}
0x1fcc…1fda Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0096}
0x1fda…200c Head {h00=0x002e, h01=0x0050, text=»** INFORMATION ABOUT TWO MESSAGELINES: ** «, t00=0x0014, t01=0x00a4}
0x200c…2014 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x00d6}
0x2014…2050 Head {h00=0x0038, h01=0x0050, text=»TC:MSG EQU TC:MSC+2 SEE W:MESS AND W:MESG IN W:INIT «, t00=0x0014, t01=0x00de}
0x2050…2058 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x011a}
0x2058…207c Head {h00=0x0020, h01=0x0050, text=»** SUBSCREEN INFORMATION: **«, t00=0x0014, t01=0x0122}
0x207c…2084 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x0146}
0x2084…20b4 Head {h00=0x002c, h01=0x0050, text=»TC:SZE EQU TC:MSG+2 SIZE OF SUBSCREEN 1 «, t00=0x0014, t01=0x014e}
0x20b4…20ee Head {h00=0x0036, h01=0x0050, text=»TC:SIZ EQU TC:SZE+2 CURRENT SCREEN/SUBSCREEN SIZE «, t00=0x0014, t01=0x017e}
0x20ee…2120 Head {h00=0x002e, h01=0x0050, text=»TC:SUS EQU TC:SIZ+2 CURRENT SUBSCREEN NO. «, t00=0x0015, t01=0x0028}
0x2120…2164 Head {h00=0x0040, h01=0x0050, text=»TC:LIN EQU TC:SUS+2 1:ST FREE LINE ON CURR. SCREEN/SUBSCREEN«, t00=0x0015, t01=0x005a}
0x2164…2190 Head {h00=0x0028, h01=0x0050, text=» ... FOLLOWED BY 1:ST FREE LINE OF«, t00=0x0015, t01=0x009e}
0x2190…21ac Head {h00=0x0018, h01=0x0050, text=» ... 9 SUBSCREENS «, t00=0x0015, t01=0x00ca}
0x21ac…21ee Head {h00=0x003e, h01=0x0050, text=»TC:FRD EQU TC:LIN+11 DISPL. TO BE ADDED TO 1:ST FREE LINE «, t00=0x0015, t01=0x00e6}
0x21ee…2226 Head {h00=0x0034, h01=0x0050, text=» ... WHEN HAVING SECTIONS ON MSG LINE ON OTHER«, t00=0x0015, t01=0x0128}
0x2226…225a Head {h00=0x0030, h01=0x0050, text=» ... DISPLAYS THAN VD82 (RIGHT BYTE REQ.) «, t00=0x0015, t01=0x0160}
0x225a…2262 (22, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0004}
0x2262…2290 Head {h00=0x002a, h01=0x0050, text=»** CURRENT FORMAT DEF INFORMATION: ** «, t00=0x0016, t01=0x000c}
0x2290…2298 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x003a}
0x2298…22d4 Head {h00=0x0038, h01=0x0050, text=»TC:FDC EQU TC:FRD+1 ADDR. TO FORMAT DEFINITION CODE «, t00=0x0016, t01=0x0042}
0x22d4…22dc Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x007e}
0x22dc…22fa Head {h00=0x001a, h01=0x0050, text=»** SST INFORMATION: **«, t00=0x0016, t01=0x0086}
0x22fa…2302 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x00a4}
0x2302…233e Head {h00=0x0038, h01=0x0050, text=»TC:SST EQU TC:FDC+2 0. ADDR. TO 1:ST BYTE AFTER SST «, t00=0x0016, t01=0x00ac}
0x233e…236c Head {h00=0x002a, h01=0x0050, text=» 2. " " CURRENT SECTION IN SST «, t00=0x0016, t01=0x00e8}
0x236c…2396 Head {h00=0x0026, h01=0x0050, text=» 4. " " LAST SECTION IN SST«, t00=0x0016, t01=0x0116}
0x2396…23ca Head {h00=0x0030, h01=0x0050, text=» 6. LARGEST SECTION SEQUENCE NUMBER IN USE«, t00=0x0016, t01=0x0140}
0x23ca…23f8 Head {h00=0x002a, h01=0x0050, text=» 8. SST ADDR. OF SECTION ON MSG LINE«, t00=0x0016, t01=0x0174}
0x23f8…2400 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x0012}
0x2400…240e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x001a}
0x240e…2438 Head {h00=0x0026, h01=0x0050, text=»** CURRENT SECTION INFORMATION: **«, t00=0x0017, t01=0x0028}
0x2438…2440 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x0052}
0x2440…247a Head {h00=0x0036, h01=0x0050, text=»TC:FSC EQU TC:SST+10 ADDR. TO FORMAT SECTION CODE «, t00=0x0017, t01=0x005a}
0x247a…24b6 Head {h00=0x0038, h01=0x0050, text=»TC:CFC EQU TC:FSC+2 " " CURRENT DYN. FIELD CODE«, t00=0x0017, t01=0x0094}
0x24b6…24e8 Head {h00=0x002e, h01=0x0050, text=» " " " " " " (REL) «, t00=0x0017, t01=0x00d0}
0x24e8…251e Head {h00=0x0032, h01=0x0050, text=»TC:DFD EQU TC:CFC+4 " " 1:ST BYTE IN DFD «, t00=0x0017, t01=0x0102}
0x251e…255a Head {h00=0x0038, h01=0x0050, text=»TC:CFD EQU TC:DFD+2 ADDR. TO CURRENT DYN. FIELD DATA«, t00=0x0017, t01=0x0138}
0x255a…2592 Head {h00=0x0034, h01=0x0050, text=»TC:CFX EQU TC:CFD+2 INDEX OF CURRENT DYN. FIELD «, t00=0x0017, t01=0x0174}
0x2592…25c4 Head {h00=0x002e, h01=0x0050, text=»TC:KY1 EQU TC:CFX+2 ADDRESS TO KEYTABLE 1.«, t00=0x0018, t01=0x001c}
0x25c4…2600 Head {h00=0x0038, h01=0x0050, text=»TC:KTV EQU TC:KY1+2 ADDRESS TO BITMASK FOR KEYCHECKS«, t00=0x0018, t01=0x004e}
0x2600…2638 Head {h00=0x0034, h01=0x0050, text=»TC:CN1 EQU TC:KTV+2 LOOP COUNTER - SECTION LEVEL«, t00=0x0018, t01=0x008a}
0x2638…266e Head {h00=0x0032, h01=0x0050, text=»TC:CN2 EQU TC:CN1+2 LOOP COUNTER - FIELD LEVEL«, t00=0x0018, t01=0x00c2}
0x266e…2676 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x00f8}
0x2676…2684 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0100}
0x2684…26b4 Head {h00=0x002c, h01=0x0050, text=»** WWI:S, ECB:S, BUFFER:S AND STACK: ** «, t00=0x0018, t01=0x010e}
0x26b4…26bc Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x013e}
0x26bc…26fc Head {h00=0x003c, h01=0x0050, text=»TC:IIE EQU TC:CN2+2 ADDR TO 1ST BYTE AFTER INPUT BUFFER «, t00=0x0018, t01=0x0146}
0x26fc…2734 Head {h00=0x0034, h01=0x0050, text=»TC:WWI EQU TC:IIE+2 ADDR. TO WWI:S, EQUAL TO ...«, t00=0x0018, t01=0x0186}
0x2734…2772 Head {h00=0x003a, h01=0x0050, text=»TC:IOE EQU TC:WWI ADDR TO 1ST BYTE AFTER OUTPUT BUFFER«, t00=0x0019, t01=0x002e}
0x2772…27a8 Head {h00=0x0032, h01=0x0050, text=»TC:STK EQU TC:IOE+2 ADDR TO THE STACK, WS:STK «, t00=0x0019, t01=0x006c}
0x27a8…27e6 Head {h00=0x003a, h01=0x0050, text=»TC:PFB EQU TC:STK+2 POOL & FILE HANDLER COM. AREA ... «, t00=0x0019, t01=0x00a2}
0x27e6…282a Head {h00=0x0040, h01=0x0050, text=»TC:FIL EQU TC:PFB+PF:ECB ... INCLUDING DISC FILE PARAMETERS «, t00=0x0019, t01=0x00e0}
0x282a…285c Head {h00=0x002e, h01=0x0050, text=»TC:IC EQU TC:PFB+PF:END INTERTASK COM. ECB«, t00=0x0019, t01=0x0124}
0x285c…2884 Head {h00=0x0024, h01=0x0050, text=»TC:KB EQU TC:IC+14 KEYBOARD ECB«, t00=0x0019, t01=0x0156}
0x2884…28b4 Head {h00=0x002c, h01=0x0050, text=»TC:EKO EQU TC:KB+KB:END ECHO DEVICE ECB «, t00=0x0019, t01=0x017e}
0x28b4…28e6 Head {h00=0x002e, h01=0x0050, text=»TC:PRT EQU TC:EKO+PRTDEV PRINT DEVICE ECB «, t00=0x001a, t01=0x001e}
0x28e6…291e Head {h00=0x0034, h01=0x0050, text=»TC:INP EQU TC:PRT+INPDEV OTHER INPUT DEVICE ECB «, t00=0x001a, t01=0x0050}
0x291e…292c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0088}
0x292c…2934 Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0096}
0x2934…293e Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x001a, t01=0x009e}
0x293e…295e Head {h00=0x001c, h01=0x0050, text=»** WSM PARAMETER BLOCK «, t00=0x001a, t01=0x00a8}
0x295e…2968 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x001a, t01=0x00c8}
0x2968…2970 Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x00d2}
0x2970…299e Head {h00=0x002a, h01=0x0050, text=»PB:FC EQU TC:INP+12 WSM FUNCTION CODE «, t00=0x001a, t01=0x00da}
0x299e…29d8 Head {h00=0x0036, h01=0x0050, text=»PB:FOR EQU PB:FC+2 CURRENT FORMAT DEFINITION NAME «, t00=0x001a, t01=0x0108}
0x29d8…2a10 Head {h00=0x0034, h01=0x0050, text=»PB:SEC EQU PB:FOR+6 CURRENT FORMAT SECTION NAME «, t00=0x001a, t01=0x0142}
0x2a10…2a4c Head {h00=0x0038, h01=0x0050, text=»PB:SSN EQU PB:SEC+6 CURRENT SECTION SEQUENCE NUMBER «, t00=0x001a, t01=0x017a}
0x2a4c…2a7a Head {h00=0x002a, h01=0x0050, text=»PB:SUS EQU PB:SSN+2 CURRENT SUBSCREEN «, t00=0x001b, t01=0x0026}
0x2a7a…2ab8 Head {h00=0x003a, h01=0x0050, text=»PB:INP EQU PB:SUS+1 INPUT ALLOWED, =0 IF YES, =1 IF NO«, t00=0x001b, t01=0x0054}
0x2ab8…2aea Head {h00=0x002e, h01=0x0050, text=»PB:FID EQU PB:INP+1 CURRENT FIELD IDENTITY«, t00=0x001b, t01=0x0092}
0x2aea…2b12 Head {h00=0x0024, h01=0x0050, text=»PB:FNO EQU PB:FID+4 FIELD NUMBER«, t00=0x001b, t01=0x00c4}
0x2b12…2b38 Head {h00=0x0022, h01=0x0050, text=»PB:RC EQU PB:FNO+2 RETURN CODE«, t00=0x001b, t01=0x00ec}
0x2b38…2b60 Head {h00=0x0024, h01=0x0050, text=»PB:KID EQU PB:RC+2 KEY ID 1 & 2 «, t00=0x001b, t01=0x0112}
0x2b60…2b90 Head {h00=0x002c, h01=0x0050, text=»PB:XIT EQU PB:KID+4 EXIT ROUTINE NUMBER «, t00=0x001b, t01=0x013a}
0x2b90…2bd0 Head {h00=0x003c, h01=0x0050, text=»PB:EBL EQU PB:XIT+2 EFFECTIVE LENGTH OF BUFFER CONTENTS «, t00=0x001b, t01=0x016a}
0x2bd0…2c0e Head {h00=0x003a, h01=0x0050, text=»PB:MBL EQU PB:EBL+4 MAXIMUM LENGTH OF BUFFER CONTENTS «, t00=0x001c, t01=0x001a}
0x2c0e…2c40 Head {h00=0x002e, h01=0x0050, text=»PB:BLO EQU PB:MBL+2 TYPE OF BUFFER LAYOUT «, t00=0x001c, t01=0x0058}
0x2c40…2c76 Head {h00=0x0032, h01=0x0050, text=»PB:PRFC EQU PB:BLO+1 PRINTER DEVICE FILE CODE «, t00=0x001c, t01=0x008a}
0x2c76…2caa Head {h00=0x0030, h01=0x0050, text=»PB:BUF EQU PB:PRFC+1 PARAMETER BLOCK BUFFER «, t00=0x001c, t01=0x00c0}
0x2caa…2cb8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x00f4}
0x2cb8…2cc0 Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0102}
0x2cc0…2cca Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x001c, t01=0x010a}
0x2cca…2d06 Head {h00=0x0038, h01=0x0050, text=»** DISPLACEMENTS IN SECTION SEQUENCE TABLE ELEMENTS«, t00=0x001c, t01=0x0114}
0x2d06…2d10 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x001c, t01=0x0150}
0x2d10…2d18 Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x015a}
0x2d18…2d5c Head {h00=0x0040, h01=0x0050, text=»* 0 SECTION DFD ADDRESS «, t00=0x001c, t01=0x0162}
0x2d5c…2d82 Head {h00=0x0022, h01=0x0050, text=»SS:DFD EQU 2 SECTION DFD SIZE «, t00=0x001d, t01=0x0016}
0x2d82…2dba Head {h00=0x0034, h01=0x0050, text=»SS:SCR EQU SS:DFD+2 SECTION ON SCREEN INDICATION«, t00=0x001d, t01=0x003c}
0x2dba…2de2 Head {h00=0x0024, h01=0x0050, text=»SS:TYP EQU SS:SCR+1 SECTION TYPE«, t00=0x001d, t01=0x0074}
0x2de2…2e1e Head {h00=0x0038, h01=0x0050, text=»SS:SS EQU SS:SCR+2 SUBSCREEN & SECTION SEQUENCE NO. «, t00=0x001d, t01=0x009c}
0x2e1e…2e60 Head {h00=0x003e, h01=0x0050, text=»SS:LIN EQU SS:SS+2 (SUB-)SCREEN START LINE & NO. OF LINES «, t00=0x001d, t01=0x00d8}
0x2e60…2e84 Head {h00=0x0020, h01=0x0050, text=» 1:ST & LAST+1 LINE SHOWN «, t00=0x001d, t01=0x011a}
0x2e84…2ebc Head {h00=0x0034, h01=0x0050, text=»SS:CFX EQU SS:LIN+4 CURRENT DYNAMIC FIELD INDEX «, t00=0x001d, t01=0x013e}
0x2ebc…2ee4 Head {h00=0x0024, h01=0x0050, text=»SS:SEC EQU SS:CFX+2 SECTION NAME«, t00=0x001d, t01=0x0176}
0x2ee4…2f16 Head {h00=0x002e, h01=0x0050, text=»SS:LEN EQU SS:SEC+6 LENGTH OF SST ELEMENT «, t00=0x001e, t01=0x000e}
0x2f16…2f1e Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0040}
0x2f1e…2f26 Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0048}
0x2f26…2f30 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x001e, t01=0x0050}
0x2f30…2f64 Head {h00=0x0030, h01=0x0050, text=»** DISPLACEMENTS IN WSM WORK ITEMS OVERHEAD «, t00=0x001e, t01=0x005a}
0x2f64…2f6e Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x001e, t01=0x008e}
0x2f6e…2f76 Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0098}
0x2f76…2faa Head {h00=0x0030, h01=0x0050, text=»WWI:NF EQU 0 NO OF FAST CHOISE SECTION WWI:S«, t00=0x001e, t01=0x00a0}
0x2faa…2fe8 Head {h00=0x003a, h01=0x0050, text=»WWI:LF EQU WWI:NF+1 LENGTH OF ONE FAST CHOISE SECT WWI«, t00=0x001e, t01=0x00d4}
0x2fe8…3018 Head {h00=0x002c, h01=0x0050, text=»WWI:NN EQU WWI:LF+1 NO OF NUMERIC WWI:S «, t00=0x001e, t01=0x0112}
0x3018…304e Head {h00=0x0032, h01=0x0050, text=»WWI:LN EQU WWI:NN+1 LENGTH OF ONE NUMERIC WWI «, t00=0x001e, t01=0x0142}
0x304e…3086 Head {h00=0x0034, h01=0x0050, text=»WWI:AN EQU WWI:LN+1 ADDRESS TO FIRST NUMERIC WWI«, t00=0x001e, t01=0x0178}
0x3086…30ba Head {h00=0x0030, h01=0x0050, text=»WWI:NA EQU WWI:AN+2 NO OF ALPHANUMERIC WWI:S«, t00=0x001f, t01=0x0020}
0x30ba…30f4 Head {h00=0x0036, h01=0x0050, text=»WWI:LA EQU WWI:NA+1 LENGTH OF ONE ALPHANUMERIC WWI«, t00=0x001f, t01=0x0054}
0x30f4…3132 Head {h00=0x003a, h01=0x0050, text=»WWI:AA EQU WWI:LA+1 ADDRESS TO FIRST ALPHANUMERIC WWI «, t00=0x001f, t01=0x008e}
0x3132…3164 Head {h00=0x002e, h01=0x0050, text=»WWI:LO EQU WWI:AA+2 LENGTH OF WWI OVERHEAD«, t00=0x001f, t01=0x00cc}
0x3164…3172 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00fe}
0x3172…317a Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x010c}
0x317a…3184 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x001f, t01=0x0114}
0x3184…31a6 Head {h00=0x001e, h01=0x0050, text=»** FORMAT DEFINITION CODE«, t00=0x001f, t01=0x011e}
0x31a6…31b0 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x001f, t01=0x0140}
0x31b0…31b8 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x014a}
0x31b8…31e4 Head {h00=0x0028, h01=0x0050, text=»FD:FOR EQU 0 FORMAT DEFINITION NAME «, t00=0x001f, t01=0x0152}
0x31e4…3214 Head {h00=0x002c, h01=0x0050, text=»FD:ISN EQU FD:FOR+6 INTIAL SECTION NAME «, t00=0x001f, t01=0x017e}
0x3214…324a Head {h00=0x0032, h01=0x0050, text=»FD:DSK EQU FD:ISN+6 # DISC SECTORS (BITS 0-7) «, t00=0x0020, t01=0x001e}
0x324a…3288 Head {h00=0x003a, h01=0x0050, text=»FD:FCS EQU FD:DSK+4 LIST OF FAST CHOICE SECTION NAMES «, t00=0x0020, t01=0x0054}
0x3288…3296 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0092}
0x3296…329e Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x00a0}
0x329e…32a8 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0020, t01=0x00a8}
0x32a8…32c8 Head {h00=0x001c, h01=0x0050, text=»** FORMAT SECTION CODE «, t00=0x0020, t01=0x00b2}
0x32c8…32d2 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0020, t01=0x00d2}
0x32d2…32da Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x00dc}
0x32da…32f4 Head {h00=0x0016, h01=0x0050, text=»** SECTION TYPES «, t00=0x0020, t01=0x00e4}
0x32f4…32fc Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x00fe}
0x32fc…3326 Head {h00=0x0026, h01=0x0050, text=»RWS EQU 1 REMOVABLE WITH SCROLLING«, t00=0x0020, t01=0x0106}
0x3326…334e Head {h00=0x0024, h01=0x0050, text=»RWP EQU 2 REMOVABLE WITH PAGING «, t00=0x0020, t01=0x0130}
0x334e…3366 Head {h00=0x0014, h01=0x0050, text=»FIX EQU 4 FIXED «, t00=0x0020, t01=0x0158}
0x3366…339a Head {h00=0x0030, h01=0x0050, text=»FOB EQU RWS FIXED ON BOTTOM LINES OF SCREEN «, t00=0x0020, t01=0x0170}
0x339a…33c8 Head {h00=0x002a, h01=0x0050, text=»FONP EQU RWP FIXED ON TOP OF NEW PAGE «, t00=0x0021, t01=0x0014}
0x33c8…33e4 Head {h00=0x0018, h01=0x0050, text=»TEMP EQU 8 TEMPORARY«, t00=0x0021, t01=0x0042}
0x33e4…3412 Head {h00=0x002a, h01=0x0050, text=»SECMSK EQU /F MASK ISOLATING TYPE BITS«, t00=0x0021, t01=0x005e}
0x3412…341a Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x008c}
0x341a…3436 Head {h00=0x0018, h01=0x0050, text=»** SECTION OVERHEAD«, t00=0x0021, t01=0x0094}
0x3436…343e Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x00b0}
0x343e…3460 Head {h00=0x001e, h01=0x0050, text=»SO:SEC EQU 0 SECTION NAME «, t00=0x0021, t01=0x00b8}
0x3460…3488 Head {h00=0x0024, h01=0x0050, text=»SO:PSW EQU SO:SEC+6 ( PASSWORD )«, t00=0x0021, t01=0x00da}
0x3488…34b8 Head {h00=0x002c, h01=0x0050, text=»SO:DSK EQU SO:PSW+6 NO. OF DISC SECTORS «, t00=0x0021, t01=0x0102}
0x34b8…34e8 Head {h00=0x002c, h01=0x0050, text=»SO:ONO EQU SO:PSW+7 OBJECT CODE VERSION «, t00=0x0021, t01=0x0132}
0x34e8…351e Head {h00=0x0032, h01=0x0050, text=»SO:VNO EQU SO:DSK+4 SECTION VERSION NO. & TYPE«, t00=0x0021, t01=0x0162}
0x351e…3568 Head {h00=0x0046, h01=0x0050, text=»SO:SIZ EQU SO:VNO+2 DEFINED SECTION SIZE, ROWS & COLUMNS, AND ... «, t00=0x0022, t01=0x0008}
0x3568…358e Head {h00=0x0022, h01=0x0050, text=» ... EFFECTIVE SECTION SIZE «, t00=0x0022, t01=0x0052}
0x358e…35b2 Head {h00=0x0020, h01=0x0050, text=»SO:DFD EQU SO:SIZ+4 DFD SIZE«, t00=0x0022, t01=0x0078}
0x35b2…35e8 Head {h00=0x0032, h01=0x0050, text=»SO:SFC EQU SO:DFD+2 REL. ADDR TO STATIC FIELDS«, t00=0x0022, t01=0x009c}
0x35e8…361c Head {h00=0x0030, h01=0x0050, text=»SO:PP EQU SO:SFC+2 " " " PICTURE POOL«, t00=0x0022, t01=0x00d2}
0x361c…3652 Head {h00=0x0032, h01=0x0050, text=»SO:DFC EQU SO:PP+2 " " " DYNAMIC FIELDS«, t00=0x0022, t01=0x0106}
0x3652…3696 Head {h00=0x0040, h01=0x0050, text=»SO:NDF EQU SO:DFC+2 DEC POINT OR COMMA & NO. OF DYN. FIELDS «, t00=0x0022, t01=0x013c}
0x3696…36d0 Head {h00=0x0036, h01=0x0050, text=»SO:BGA EQU SO:NDF+4 BACKGROUND DEFAULT ATTRIBUTES «, t00=0x0022, t01=0x0180}
0x36d0…370c Head {h00=0x0038, h01=0x0050, text=»SO:SFA EQU SO:BGA+1 STATIC FIELD DEFAULT ATTRIBUTES «, t00=0x0023, t01=0x002a}
0x370c…3746 Head {h00=0x0036, h01=0x0050, text=»SO:DFA EQU SO:SFA+1 DYN. FIELD DEFAULT ATTRIBUTES «, t00=0x0023, t01=0x0066}
0x3746…377a Head {h00=0x0030, h01=0x0050, text=»SO:MES EQU SO:DFA+4 DEFAULT GUIDING MESSAGE «, t00=0x0023, t01=0x00a0}
0x377a…3788 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00d4}
0x3788…3790 Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x00e2}
0x3790…37aa Head {h00=0x0016, h01=0x0050, text=»** STATIC FIELDS «, t00=0x0023, t01=0x00ea}
0x37aa…37b2 Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x0104}
0x37b2…37e0 Head {h00=0x002a, h01=0x0050, text=»SF:DEC EQU /1F LARGEST DECORATION BYTE«, t00=0x0023, t01=0x010c}
0x37e0…3808 Head {h00=0x0024, h01=0x0050, text=»SF:SPA EQU /80 COMPRESSED SPACES«, t00=0x0023, t01=0x013a}
0x3808…382c Head {h00=0x0020, h01=0x0050, text=»SF:DF EQU /FB DYNAMIC FIELDS«, t00=0x0023, t01=0x0162}
0x382c…384e Head {h00=0x001e, h01=0x0050, text=»SF:HL EQU /FC HEADER LINES«, t00=0x0023, t01=0x0186}
0x384e…3870 Head {h00=0x001e, h01=0x0050, text=»SF:EOL EQU /FD END OF LINE«, t00=0x0024, t01=0x0018}
0x3870…3896 Head {h00=0x0022, h01=0x0050, text=»SF:EOS EQU /FE END OF SECTION «, t00=0x0024, t01=0x003a}
0x3896…38be Head {h00=0x0024, h01=0x0050, text=»SF:EOP EQU /FF END OF POOL UNIT «, t00=0x0024, t01=0x0060}
0x38be…38cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0088}
0x38cc…38d4 Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x0096}
0x38d4…38ee Head {h00=0x0016, h01=0x0050, text=»** DYNAMIC FIELDS«, t00=0x0024, t01=0x009e}
0x38ee…38f6 Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x00b8}
0x38f6…3922 Head {h00=0x0028, h01=0x0050, text=» DYNAMIC FIELD TABLE DISPLACEMENTS«, t00=0x0024, t01=0x00c0}
0x3922…392a Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x00ec}
0x392a…394e Head {h00=0x0020, h01=0x0050, text=»DF:FID EQU 0 FIELD IDENTITY «, t00=0x0024, t01=0x00f4}
0x394e…3990 Head {h00=0x003e, h01=0x0050, text=»DF:COD EQU DF:FID+4 FIELD CODE ADDR: POOL & REL POOL ADDR «, t00=0x0024, t01=0x0118}
0x3990…39da Head {h00=0x0046, h01=0x0050, text=»DF:DAT EQU DF:COD+2 FIELD DATA DISPL. EXCL. TEMP. DECORATIONS ETC.«, t00=0x0024, t01=0x015a}
0x39da…3a10 Head {h00=0x0032, h01=0x0050, text=»DF:TLN EQU DF:DAT+2 FIELD TABLE ELEMENT LENGTH«, t00=0x0025, t01=0x0014}
0x3a10…3a18 Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x004a}
0x3a18…3a44 Head {h00=0x0028, h01=0x0050, text=» DYNAMIC FIELD CODE DISPLACEMENTS «, t00=0x0025, t01=0x0052}
0x3a44…3a4c Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x007e}
0x3a4c…3a8c Head {h00=0x003c, h01=0x0050, text=»DF:ALN EQU 0 ATTRIBUTE AREA LENGTH INCL. OPTIONAL PARTS «, t00=0x0025, t01=0x0086}
0x3a8c…3ac0 Head {h00=0x0030, h01=0x0050, text=»DF:SCR EQU DF:ALN+2 REL. POSITION IN SECTION«, t00=0x0025, t01=0x00c6}
0x3ac0…3afa Head {h00=0x0036, h01=0x0050, text=»DF:FLN EQU DF:SCR+2 MAX. EFFECTIVE & EDITED LENGTH«, t00=0x0025, t01=0x00fa}
0x3afa…3b3c Head {h00=0x003e, h01=0x0050, text=»DF:TYP EQU DF:FLN+2 NUM- & ALPHANUM DEPENDANT INFORMATION «, t00=0x0025, t01=0x0134}
0x3b3c…3b76 Head {h00=0x0036, h01=0x0050, text=»DF:INP EQU DF:TYP+2 BITS CONCERNING INPUT HANDLING«, t00=0x0025, t01=0x0176}
0x3b76…3ba2 Head {h00=0x0028, h01=0x0050, text=»DF:DEC EQU DF:INP+2 DECORATION BITS «, t00=0x0026, t01=0x0020}
0x3ba2…3bd4 Head {h00=0x002e, h01=0x0050, text=»DF:OPT EQU DF:DEC+2 START OF OPTIONAL PART«, t00=0x0026, t01=0x004c}
0x3bd4…3bdc Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x007e}
0x3bdc…3bf0 Head {h00=0x0010, h01=0x0050, text=» OPTIONS: «, t00=0x0026, t01=0x0086}
0x3bf0…3bf8 Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x009a}
0x3bf8…3c18 Head {h00=0x001c, h01=0x0050, text=»DF:VAL EQU 1 VALIDATION «, t00=0x0026, t01=0x00a2}
0x3c18…3c3a Head {h00=0x001e, h01=0x0050, text=»DF:ACC EQU 2 ACCUMULATION «, t00=0x0026, t01=0x00c2}
0x3c3a…3c62 Head {h00=0x0024, h01=0x0050, text=»DF:DUP EQU 3 DUPLICATION ORIGIN «, t00=0x0026, t01=0x00e4}
0x3c62…3c8a Head {h00=0x0024, h01=0x0050, text=»DF:AM EQU 4 APPLICATION MESSAGE «, t00=0x0026, t01=0x010c}
0x3c8a…3cbc Head {h00=0x002e, h01=0x0050, text=»DF:IFC EQU 5 FILE CODE, OTHER INPUT DEVICE«, t00=0x0026, t01=0x0134}
0x3cbc…3cde Head {h00=0x001e, h01=0x0050, text=»DF:DEF EQU 6 DEFAULT VALUE«, t00=0x0026, t01=0x0166}
0x3cde…3d08 Head {h00=0x0026, h01=0x0050, text=»DF:OUT EQU 7 OUTPUT PRINT POSITION«, t00=0x0026, t01=0x0188}
0x3d08…3d2c Head {h00=0x0020, h01=0x0050, text=»DF:GM EQU 15 GUIDING MESSAGE«, t00=0x0027, t01=0x0022}
0x3d2c…3d3a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0046}
0x3d3a…3d42 Head {h00=0x0004, h01=0x0050, t00=0x0027, t01=0x0054}
0x3d42…3d90 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0027, t01=0x005c}
0x3d90…3dde Head {h00=0x004a, h01=0x0050, text=»** WSM VALIDATION STATEMENT TYPES **«, t00=0x0027, t01=0x00aa}
0x3dde…3e2c Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0027, t01=0x00f8}
0x3e2c…3e34 Head {h00=0x0004, h01=0x0050, t00=0x0027, t01=0x0146}
0x3e34…3e62 Head {h00=0x002a, h01=0x0050, text=»VS:ALE EQU /00 ALPHANUM LET EXCL. LET «, t00=0x0027, t01=0x014e}
0x3e62…3e90 Head {h00=0x002a, h01=0x0050, text=»VS:ALI EQU /01 ALPHANUM LET INCL. LET «, t00=0x0027, t01=0x017c}
0x3e90…3ebe Head {h00=0x002a, h01=0x0050, text=»VS:NLE EQU /02 NUMERIC LET EXCL. LET «, t00=0x0028, t01=0x001a}
0x3ebe…3eec Head {h00=0x002a, h01=0x0050, text=»VS:NLI EQU /03 NUMERIC LET INCL. LET «, t00=0x0028, t01=0x0048}
0x3eec…3f08 Head {h00=0x0018, h01=0x0050, text=»VS:GO EQU /04 GO TO «, t00=0x0028, t01=0x0076}
0x3f08…3f24 Head {h00=0x0018, h01=0x0050, text=»VS:GOT EQU /05 GOTO «, t00=0x0028, t01=0x0092}
0x3f24…3f56 Head {h00=0x002e, h01=0x0050, text=»VS:IFL EQU /06 IF <REL. EXPR.> THEN LINENO«, t00=0x0028, t01=0x00ae}
0x3f56…3f8c Head {h00=0x0032, h01=0x0050, text=»VS:IFS EQU /08 IF <REL. EXPR.> THEN STATEMENT «, t00=0x0028, t01=0x00e0}
0x3f8c…3fc0 Head {h00=0x0030, h01=0x0050, text=»VS:OGO EQU /0A ON <EXPR.> GO TO LINENUMBERS «, t00=0x0028, t01=0x0116}
0x3fc0…3ff4 Head {h00=0x0030, h01=0x0050, text=»VS:OGT EQU /0B ON <EXPR.> GOTO LINENUMBERS «, t00=0x0028, t01=0x014a}
0x3ff4…4010 Head {h00=0x0018, h01=0x0050, text=»VS:CAL EQU /0C CALL «, t00=0x0028, t01=0x017e}
0x4010…402c Head {h00=0x0018, h01=0x0050, text=»VS:SEC EQU /0E SECT «, t00=0x0029, t01=0x000a}
0x402c…4048 Head {h00=0x0018, h01=0x0050, text=»VS:ATT EQU /10 ATTR «, t00=0x0029, t01=0x0026}
0x4048…4064 Head {h00=0x0018, h01=0x0050, text=»VS:STO EQU /12 STOP «, t00=0x0029, t01=0x0042}
0x4064…4080 Head {h00=0x0018, h01=0x0050, text=»VS:EXI EQU /14 EXIT «, t00=0x0029, t01=0x005e}
0x4080…409a Head {h00=0x0016, h01=0x0050, text=»VS:ERR EQU /16 ERR«, t00=0x0029, t01=0x007a}
0x409a…40b6 Head {h00=0x0018, h01=0x0050, text=»VS:WAR EQU /18 WARN «, t00=0x0029, t01=0x0094}
0x40b6…40d0 Head {h00=0x0016, h01=0x0050, text=»VS:REM EQU /1A REM«, t00=0x0029, t01=0x00b0}
0x40d0…40ec Head {h00=0x0018, h01=0x0050, text=»VS:EMP EQU /0C EMPTY«, t00=0x0029, t01=0x00ca}
0x40ec…40fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00e6}
0x40fa…4102 Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x00f4}
0x4102…4150 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0029, t01=0x00fc}
0x4150…419e Head {h00=0x004a, h01=0x0050, text=»** VALIDATION OPERATOR EQUATES **«, t00=0x0029, t01=0x014a}
0x419e…41ec Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x002a, t01=0x0008}
0x41ec…41f4 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x0056}
0x41f4…421a Head {h00=0x0022, h01=0x0050, text=»VO:EEX EQU 1 END OF EXPRESSION«, t00=0x002a, t01=0x005e}
0x421a…424a Head {h00=0x002c, h01=0x0050, text=»VO:AEQ EQU 2 = , ALPHANUMERIC COMPARISON«, t00=0x002a, t01=0x0084}
0x424a…4264 Head {h00=0x0016, h01=0x0050, text=»VO:AGE EQU 3 >=, "«, t00=0x002a, t01=0x00b4}
0x4264…427e Head {h00=0x0016, h01=0x0050, text=»VO:AGT EQU 4 > , "«, t00=0x002a, t01=0x00ce}
0x427e…4298 Head {h00=0x0016, h01=0x0050, text=»VO:ALE EQU 5 <=, "«, t00=0x002a, t01=0x00e8}
0x4298…42b2 Head {h00=0x0016, h01=0x0050, text=»VO:ALT EQU 6 < , "«, t00=0x002a, t01=0x0102}
0x42b2…42cc Head {h00=0x0016, h01=0x0050, text=»VO:ANE EQU 7 <>, "«, t00=0x002a, t01=0x011c}
0x42cc…42f8 Head {h00=0x0028, h01=0x0050, text=»VO:NEQ EQU 8 = , NUMERIC COMPARISON «, t00=0x002a, t01=0x0136}
0x42f8…4312 Head {h00=0x0016, h01=0x0050, text=»VO:NGE EQU 9 >=, "«, t00=0x002a, t01=0x0162}
0x4312…432e Head {h00=0x0018, h01=0x0050, text=»VO:NGT EQU /0A > , "«, t00=0x002a, t01=0x017c}
0x432e…434a Head {h00=0x0018, h01=0x0050, text=»VO:NLE EQU /0B <=, "«, t00=0x002b, t01=0x0008}
0x434a…4366 Head {h00=0x0018, h01=0x0050, text=»VO:NLT EQU /0C < , "«, t00=0x002b, t01=0x0024}
0x4366…4382 Head {h00=0x0018, h01=0x0050, text=»VO:NNE EQU /0D <>, "«, t00=0x002b, t01=0x0040}
0x4382…43a4 Head {h00=0x001e, h01=0x0050, text=»VO:CON EQU /0E CONCATENATE«, t00=0x002b, t01=0x005c}
0x43a4…43c4 Head {h00=0x001c, h01=0x0050, text=»VO:SUS EQU /0F SUBSTRING«, t00=0x002b, t01=0x007e}
0x43c4…43e8 Head {h00=0x0020, h01=0x0050, text=»VO:STR EQU /10 STR FUNCTION «, t00=0x002b, t01=0x009e}
0x43e8…440a Head {h00=0x001e, h01=0x0050, text=»VO:UPL EQU /11 UNARY PLUS «, t00=0x002b, t01=0x00c2}
0x440a…4438 Head {h00=0x002a, h01=0x0050, text=»VO:UMI EQU /12 " MINUS <=> NEGATE «, t00=0x002b, t01=0x00e4}
0x4438…4452 Head {h00=0x0016, h01=0x0050, text=»VO:ADD EQU /13 ADD«, t00=0x002b, t01=0x0112}
0x4452…4472 Head {h00=0x001c, h01=0x0050, text=»VO:SUB EQU /14 SUBTRACT «, t00=0x002b, t01=0x012c}
0x4472…4490 Head {h00=0x001a, h01=0x0050, text=»VO:DIV EQU /15 DIVIDE «, t00=0x002b, t01=0x014c}
0x4490…44b0 Head {h00=0x001c, h01=0x0050, text=»VO:MUL EQU /16 MULTIPLY «, t00=0x002b, t01=0x016a}
0x44b0…44d4 Head {h00=0x0020, h01=0x0050, text=»VO:ABS EQU /17 ABS FUNCTION «, t00=0x002b, t01=0x018a}
0x44d4…44f0 Head {h00=0x0018, h01=0x0050, text=»VO:INT EQU /18 INT "«, t00=0x002c, t01=0x001e}
0x44f0…450c Head {h00=0x0018, h01=0x0050, text=»VO:SGN EQU /19 SGN "«, t00=0x002c, t01=0x003a}
0x450c…4528 Head {h00=0x0018, h01=0x0050, text=»VO:TIM EQU /1A TIM "«, t00=0x002c, t01=0x0056}
0x4528…4544 Head {h00=0x0018, h01=0x0050, text=»VO:DAY EQU /1B DAY "«, t00=0x002c, t01=0x0072}
0x4544…4560 Head {h00=0x0018, h01=0x0050, text=»VO:SYS EQU /1C SYS "«, t00=0x002c, t01=0x008e}
0x4560…457c Head {h00=0x0018, h01=0x0050, text=»VO:LEN EQU /1D LEN "«, t00=0x002c, t01=0x00aa}
0x457c…4598 Head {h00=0x0018, h01=0x0050, text=»VO:NUM EQU /1E NUM "«, t00=0x002c, t01=0x00c6}
0x4598…45b4 Head {h00=0x0018, h01=0x0050, text=»VO:DAT EQU /1F DAT "«, t00=0x002c, t01=0x00e2}
0x45b4…45d0 Head {h00=0x0018, h01=0x0050, text=»VO:CDV EQU /20 CDV "«, t00=0x002c, t01=0x00fe}
0x45d0…45ec Head {h00=0x0018, h01=0x0050, text=»VO:POS EQU /21 POS "«, t00=0x002c, t01=0x011a}
0x45ec…460e Head {h00=0x001e, h01=0x0050, text=»VO:PAR EQU /22 PARANTHESIS«, t00=0x002c, t01=0x0136}
0x460e…461c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0158}
0x461c…4624 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x0166}
0x4624…4672 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x002c, t01=0x016e}
0x4672…46c0 Head {h00=0x004a, h01=0x0050, text=»** EQUATES TO THE DIFFERENT KEYTABLES **«, t00=0x002d, t01=0x002c}
0x46c0…470e Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x002d, t01=0x007a}
0x470e…4716 Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x00c8}
0x4716…4720 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x002d, t01=0x00d0}
0x4720…473a Head {h00=0x0016, h01=0x0050, text=»** KEYTABLE 1 & 2«, t00=0x002d, t01=0x00da}
0x473a…4744 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x002d, t01=0x00f4}
0x4744…474c Head {h00=0x0004, h01=0x0050, t00=0x002d, t01=0x00fe}
0x474c…4760 Head {h00=0x0010, h01=0x0050, text=»K1:CUP EQU 1«, t00=0x002d, t01=0x0106}
0x4760…477c Head {h00=0x0018, h01=0x0050, text=»K1:CDW EQU K1:CUP+1 «, t00=0x002d, t01=0x011a}
0x477c…4798 Head {h00=0x0018, h01=0x0050, text=»K1:TFD EQU K1:CDW+1 «, t00=0x002d, t01=0x0136}
0x4798…47b4 Head {h00=0x0018, h01=0x0050, text=»K1:TBD EQU K1:TFD+1 «, t00=0x002d, t01=0x0152}
0x47b4…47d0 Head {h00=0x0018, h01=0x0050, text=»K1:PRT EQU K1:TBD+1 «, t00=0x002d, t01=0x016e}
0x47d0…47ec Head {h00=0x0018, h01=0x0050, text=»K1:LIN EQU K1:PRT+1 «, t00=0x002d, t01=0x018a}
0x47ec…4808 Head {h00=0x0018, h01=0x0050, text=»K1:HLP EQU K1:LIN+1 «, t00=0x002e, t01=0x0016}
0x4808…4824 Head {h00=0x0018, h01=0x0050, text=»K1:ARI EQU K1:HLP+1 «, t00=0x002e, t01=0x0032}
0x4824…4840 Head {h00=0x0018, h01=0x0050, text=»K1:ASD EQU K1:ARI+1 «, t00=0x002e, t01=0x004e}
0x4840…485c Head {h00=0x0018, h01=0x0050, text=»K1:CLR EQU K1:ASD+1 «, t00=0x002e, t01=0x006a}
0x485c…4878 Head {h00=0x0018, h01=0x0050, text=»K1:SEC EQU K1:CLR+1 «, t00=0x002e, t01=0x0086}
0x4878…4892 Head {h00=0x0016, h01=0x0050, text=»K1:CR EQU K1:SEC+1«, t00=0x002e, t01=0x00a2}
0x4892…48ac Head {h00=0x0016, h01=0x0050, text=»K1:DUP EQU K1:CR+1«, t00=0x002e, t01=0x00bc}
0x48ac…48c8 Head {h00=0x0018, h01=0x0050, text=»K1:ENT EQU K1:DUP+1 «, t00=0x002e, t01=0x00d6}
0x48c8…48e4 Head {h00=0x0018, h01=0x0050, text=»K1:FUN EQU K1:ENT+1 «, t00=0x002e, t01=0x00f2}
0x48e4…4900 Head {h00=0x0018, h01=0x0050, text=»K1:CAN EQU K1:FUN+1 «, t00=0x002e, t01=0x010e}
0x4900…4940 Head {h00=0x003c, h01=0x0050, text=»K1:USR EQU K1:CAN+1 K1:USR & ABOVE ARE USER DEFINED KEYS«, t00=0x002e, t01=0x012a}
0x4940…494e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x016a}
0x494e…4958 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x002e, t01=0x0178}
0x4958…496e Head {h00=0x0012, h01=0x0050, text=»** KEYTABLE 3 «, t00=0x002e, t01=0x0182}
0x496e…4978 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x002f, t01=0x0008}
0x4978…4980 Head {h00=0x0004, h01=0x0050, t00=0x002f, t01=0x0012}
0x4980…4994 Head {h00=0x0010, h01=0x0050, text=»K3:INS EQU 1«, t00=0x002f, t01=0x001a}
0x4994…49b0 Head {h00=0x0018, h01=0x0050, text=»K3:DEL EQU K3:INS+1 «, t00=0x002f, t01=0x002e}
0x49b0…49cc Head {h00=0x0018, h01=0x0050, text=»K3:TFD EQU K3:DEL+1 «, t00=0x002f, t01=0x004a}
0x49cc…49e8 Head {h00=0x0018, h01=0x0050, text=»K3:TBD EQU K3:TFD+1 «, t00=0x002f, t01=0x0066}
0x49e8…4a04 Head {h00=0x0018, h01=0x0050, text=»K3:PRT EQU K3:TBD+1 «, t00=0x002f, t01=0x0082}
0x4a04…4a20 Head {h00=0x0018, h01=0x0050, text=»K3:CLR EQU K3:PRT+1 «, t00=0x002f, t01=0x009e}
0x4a20…4a3c Head {h00=0x0018, h01=0x0050, text=»K3:CAN EQU K3:CLR+1 «, t00=0x002f, t01=0x00ba}
0x4a3c…4a58 Head {h00=0x0018, h01=0x0050, text=»K3:USR EQU K3:CAN+1 «, t00=0x002f, t01=0x00d6}
0x4a58…4a60 Head {h00=0x0004, h01=0x0050, t00=0x002f, t01=0x00f2}
0x4a60…4a6a Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x002f, t01=0x00fa}
0x4a6a…4a80 Head {h00=0x0012, h01=0x0050, text=»** KEYTABLE 4 «, t00=0x002f, t01=0x0104}
0x4a80…4a8a Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x002f, t01=0x011a}
0x4a8a…4a92 Head {h00=0x0004, h01=0x0050, t00=0x002f, t01=0x0124}
0x4a92…4aa6 Head {h00=0x0010, h01=0x0050, text=»K4:CLR EQU 1«, t00=0x002f, t01=0x012c}
0x4aa6…4ac2 Head {h00=0x0018, h01=0x0050, text=»K4:ENT EQU K4:CLR+1 «, t00=0x002f, t01=0x0140}
0x4ac2…4ade Head {h00=0x0018, h01=0x0050, text=»K4:CAN EQU K4:ENT+1 «, t00=0x002f, t01=0x015c}
0x4ade…4afa Head {h00=0x0018, h01=0x0050, text=»K4:USR EQU K4:CAN+1 «, t00=0x002f, t01=0x0178}
0x4afa…4b02 (48, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x0004}
0x4b02…4b0c Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0030, t01=0x000c}
0x4b0c…4b26 Head {h00=0x0016, h01=0x0050, text=»** KEYTABLE 5 & 6«, t00=0x0030, t01=0x0016}
0x4b26…4b30 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0030, t01=0x0030}
0x4b30…4b38 Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x003a}
0x4b38…4b4c Head {h00=0x0010, h01=0x0050, text=»K5:CLR EQU 1«, t00=0x0030, t01=0x0042}
0x4b4c…4b68 Head {h00=0x0018, h01=0x0050, text=»K5:CAN EQU K5:CLR+1 «, t00=0x0030, t01=0x0056}
0x4b68…4ba8 Head {h00=0x003c, h01=0x0050, text=»K5:USR EQU K5:CAN+1 K5:USR & ABOVE ARE USER DEFINED KEYS«, t00=0x0030, t01=0x0072}
0x4ba8…4bc2 Head {h00=0x0016, h01=0x0050, text=»K6:OV EQU K5:CAN+1«, t00=0x0030, t01=0x00b2}
0x4bc2…4c02 Head {h00=0x003c, h01=0x0050, text=»K6:USR EQU K6:OV+1 K6:USR & ABOVE ARE USER DEFINED KEYS «, t00=0x0030, t01=0x00cc}
0x4c02…4c10 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x010c}
0x4c10…4c24 Head {h00=0x0010, h01=0x0050, text=»$ MEND; «, t00=0x0030, t01=0x011a}
0x4c24…4c30 Head {h00=0x0008, h01=0x0050, text=»EOS «, t00=0x0030, t01=0x012e}
0x4c30…4c40 Head {h00=0x000c, h01=0x0050, text=»MACRO RC«, t00=0x0030, t01=0x013a}
0x4c40…4c58 Head {h00=0x0014, h01=0x0050, text=»$ MACRO RC; «, t00=0x0030, t01=0x014a}
0x4c58…4c60 Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x0162}
0x4c60…4cae Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0030, t01=0x016a}
0x4cae…4cfc Head {h00=0x004a, h01=0x0050, text=»** WSM RETURN CODES **«, t00=0x0031, t01=0x0028}
0x4cfc…4d4a Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0031, t01=0x0076}
0x4d4a…4d52 Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x00c4}
0x4d52…4d5a Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x00cc}
0x4d5a…4d8a Head {h00=0x002c, h01=0x0050, text=»** LATEST UPDATING: 1983-04-25 BY: GM *«, t00=0x0031, t01=0x00d4}
0x4d8a…4d92 Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x0104}
0x4d92…4d9a Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x010c}
0x4d9a…4db0 Head {h00=0x0012, h01=0x0050, text=»RC:OK EQU 0 OK«, t00=0x0031, t01=0x0114}
0x4db0…4dec Head {h00=0x0038, h01=0x0050, text=»RC:RTY EQU 1 OK, BUT ALL DATA NOT TRANSFERRED, RETRY«, t00=0x0031, t01=0x012a}
0x4dec…4e20 Head {h00=0x0030, h01=0x0050, text=»RC:TRU EQU 2 OK, BUT TRUNCATION HAS OCCURED «, t00=0x0031, t01=0x0166}
0x4e20…4e56 Head {h00=0x0032, h01=0x0050, text=»RC:KEY EQU 3 OK, NO DATA TRANSFERRED, KEYLOCK «, t00=0x0032, t01=0x000a}
0x4e56…4e80 Head {h00=0x0026, h01=0x0050, text=»RC:EXI EQU 4 EXIT ROUTINE REQUEST «, t00=0x0032, t01=0x0040}
0x4e80…4ea6 Head {h00=0x0022, h01=0x0050, text=»RC:EWA EQU 5 EXTERNAL WARNING «, t00=0x0032, t01=0x006a}
0x4ea6…4eca Head {h00=0x0020, h01=0x0050, text=»RC:EER EQU 6 EXTERNAL ERROR «, t00=0x0032, t01=0x0090}
0x4eca…4f04 Head {h00=0x0036, h01=0x0050, text=»RC:VCU EQU 7 VALIDATION FROM CURRENT FIELD AND ON «, t00=0x0032, t01=0x00b4}
0x4f04…4f2a Head {h00=0x0022, h01=0x0050, text=»RC:ORM EQU 7 ORIGIN MEDIUM > 1«, t00=0x0032, t01=0x00ee}
0x4f2a…4f52 Head {h00=0x0024, h01=0x0050, text=»RC:INA EQU 10 INPUT NOT ALLOWED «, t00=0x0032, t01=0x0114}
0x4f52…4f7c Head {h00=0x0026, h01=0x0050, text=»RC:DN1 EQU 11 DYN. FIELD NOT FOUND«, t00=0x0032, t01=0x013c}
0x4f7c…4fba Head {h00=0x003a, h01=0x0050, text=»RC:DN2 EQU 12 AS RC:DN1 BUT ALL OTHER DATA TRANSFERRED«, t00=0x0032, t01=0x0166}
0x4fba…4ff2 Head {h00=0x0034, h01=0x0050, text=»RC:DN3 EQU 13 AS RC:DN1 BUT LACK OF BUFFER SPACE«, t00=0x0033, t01=0x0014}
0x4ff2…501e Head {h00=0x0028, h01=0x0050, text=»RC:CNF EQU 20 SECT/DEF/TAB NOT FOUND«, t00=0x0033, t01=0x004c}
0x501e…5046 Head {h00=0x0024, h01=0x0050, text=»RC:NOP EQU 21 FORMAT NOT OPENED «, t00=0x0033, t01=0x0078}
0x5046…5078 Head {h00=0x002e, h01=0x0050, text=»RC:NAT EQU 22 FORMAT SECTION NOT ATTACHED «, t00=0x0033, t01=0x00a0}
0x5078…50aa Head {h00=0x002e, h01=0x0050, text=»RC:ISS EQU 23 ILLEGAL SECTION SEQUENCE NO.«, t00=0x0033, t01=0x00d2}
0x50aa…50dc Head {h00=0x002e, h01=0x0050, text=»RC:PNX EQU 24 PREV./NEXT SECTION NOT FOUND«, t00=0x0033, t01=0x0104}
0x50dc…5108 Head {h00=0x0028, h01=0x0050, text=»RC:ISU EQU 25 ILLEGAL SUBSCREEN NO. «, t00=0x0033, t01=0x0136}
0x5108…5136 Head {h00=0x002a, h01=0x0050, text=»RC:SCR EQU 26 NO SCREEN SIZE AVAILABLE«, t00=0x0033, t01=0x0162}
0x5136…515e Head {h00=0x0024, h01=0x0050, text=»RC:OLD EQU 27 OLD SECTION FOUND «, t00=0x0033, t01=0x0190}
0x515e…518e Head {h00=0x002c, h01=0x0050, text=»RC:ISE EQU 28 ILLEGAL SECTION REFERENCE «, t00=0x0034, t01=0x0028}
0x518e…51b2 Head {h00=0x0020, h01=0x0050, text=»RC:SEC EQU 29 ILLEGAL ATTACH«, t00=0x0034, t01=0x0058}
0x51b2…51d2 Head {h00=0x001c, h01=0x0050, text=»RC:POL EQU 30 POOL ERROR«, t00=0x0034, t01=0x007c}
0x51d2…5204 Head {h00=0x002e, h01=0x0050, text=»RC:STO EQU 31 SECTION SEQ. TABLE OVERFLOW «, t00=0x0034, t01=0x009c}
0x5204…5236 Head {h00=0x002e, h01=0x0050, text=»RC:SNO EQU 32 SECTION SEQ. NUMBER OVERFLOW«, t00=0x0034, t01=0x00ce}
0x5236…5268 Head {h00=0x002e, h01=0x0050, text=»RC:LRU EQU 34 DELETE ON LRU-QUE / ADM.DATA«, t00=0x0034, t01=0x0100}
0x5268…5288 Head {h00=0x001c, h01=0x0050, text=»RC:DER EQU 40 DISC ERROR«, t00=0x0034, t01=0x0132}
0x5288…52b0 Head {h00=0x0024, h01=0x0050, text=»RC:KER EQU 41 KEYBOARD I/O-ERROR«, t00=0x0034, t01=0x0152}
0x52b0…52dc Head {h00=0x0028, h01=0x0050, text=»RC:OER EQU 42 OTHER DEVICE I/O-ERROR«, t00=0x0034, t01=0x017a}
0x52dc…5312 Head {h00=0x0032, h01=0x0050, text=»RC:EJN EQU 45 PRINT WITHOUT EJECT/TOP-OF-FORM «, t00=0x0035, t01=0x0016}
0x5312…533e Head {h00=0x0028, h01=0x0050, text=»RC:EJO EQU 46 EJECT/TOP-OF-FORM ONLY«, t00=0x0035, t01=0x004c}
0x533e…5366 Head {h00=0x0024, h01=0x0050, text=»RC:VER EQU 50 VALIDATION ERRORS:«, t00=0x0035, t01=0x0078}
0x5366…539e Head {h00=0x0034, h01=0x0050, text=»RC:VOF EQU '01' - VALIDATION WORK AREA OVERFLOW «, t00=0x0035, t01=0x00a0}
0x539e…53d4 Head {h00=0x0032, h01=0x0050, text=»RC:VSE EQU '02' - VALIDATION STOP TARGET ERROR«, t00=0x0035, t01=0x00d8}
0x53d4…5406 Head {h00=0x002e, h01=0x0050, text=»RC:VWW EQU '03' - WSM WORK ITEM NOT FOUND «, t00=0x0035, t01=0x010e}
0x5406…543a Head {h00=0x0030, h01=0x0050, text=»RC:VOB EQU '04' - VALIDATION OBJ. CODE ERROR«, t00=0x0035, t01=0x0140}
0x543a…5470 Head {h00=0x0032, h01=0x0050, text=»RC:VDZ EQU '05' - VALIDATION DIVISION BY ZERO «, t00=0x0035, t01=0x0174}
0x5470…54a6 Head {h00=0x0032, h01=0x0050, text=»RC:LP2 EQU '06' - VALIDATION LOOP WITHIN FIELD«, t00=0x0036, t01=0x001a}
0x54a6…54d2 Head {h00=0x0028, h01=0x0050, text=»RC:LP1 EQU 51 LOOP ON SECTION LEVEL «, t00=0x0036, t01=0x0050}
0x54d2…5508 Head {h00=0x0032, h01=0x0050, text=»RC:PBI EQU 60 PAR. BLOCK HOLDES ILLEGAL VALUE «, t00=0x0036, t01=0x007c}
0x5508…553e Head {h00=0x0032, h01=0x0050, text=»RC:DIV EQU 61 FIELD NOT FOUND IN DATA DIVISION«, t00=0x0036, t01=0x00b2}
0x553e…5566 Head {h00=0x0024, h01=0x0050, text=»RC:LKE EQU 62 LKM REQUEST ERROR «, t00=0x0036, t01=0x00e8}
0x5566…557a Head {h00=0x0010, h01=0x0050, text=»$ MEND; «, t00=0x0036, t01=0x0110}
0x557a…5586 Head {h00=0x0008, h01=0x0050, text=»EOS «, t00=0x0036, t01=0x0124}
0x5586…5596 Head {h00=0x000c, h01=0x0050, text=»MACRO C «, t00=0x0036, t01=0x0130}
0x5596…55b2 Head {h00=0x0018, h01=0x0050, text=»$ MACRO C TXT;«, t00=0x0036, t01=0x0140}
0x55b2…5600 Head {h00=0x004a, h01=0x0050, text=»** $TXT. **«, t00=0x0036, t01=0x015c}
0x5600…5614 Head {h00=0x0010, h01=0x0050, text=»$ MEND; «, t00=0x0037, t01=0x001a}
0x5614…5620 Head {h00=0x0008, h01=0x0050, text=»EOS «, t00=0x0037, t01=0x002e}
0x5620…5634 Head {h00=0x0010, h01=0x0050, text=»MACRO FRAME «, t00=0x0037, t01=0x003a}
0x5634…5650 Head {h00=0x0018, h01=0x0050, text=»$ MACRO FRAME; «, t00=0x0037, t01=0x004e}
0x5650…569e Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0037, t01=0x006a}
0x569e…56b2 Head {h00=0x0010, h01=0x0050, text=»$ MEND; «, t00=0x0037, t01=0x00b8}
0x56b2…56be Head {h00=0x0008, h01=0x0050, text=»EOS «, t00=0x0037, t01=0x00cc}
0x56be…56d2 Head {h00=0x0010, h01=0x0050, text=»MACRO CVERS «, t00=0x0037, t01=0x00d8}
0x56d2…56ee Head {h00=0x0018, h01=0x0050, text=»$ MACRO CVERS; «, t00=0x0037, t01=0x00ec}
0x56ee…573c Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0037, t01=0x0108}
0x573c…578a Head {h00=0x004a, h01=0x0050, text=»** **«, t00=0x0037, t01=0x0156}
0x578a…57d8 Head {h00=0x004a, h01=0x0050, text=»** CREDIT INTERPRETER VERSION: **«, t00=0x0038, t01=0x0014}
0x57d8…57ea Head {h00=0x000e, h01=0x0050, text=»TEST EQU 1«, t00=0x0038, t01=0x0062}
0x57ea…57fe Head {h00=0x0010, h01=0x0050, text=»NOTEST EQU 0«, t00=0x0038, t01=0x0074}
0x57fe…5814 Head {h00=0x0012, h01=0x0050, text=»PARM EQU TEST «, t00=0x0038, t01=0x0088}
0x5814…5862 Head {h00=0x004a, h01=0x0050, text=»** **«, t00=0x0038, t01=0x009e}
0x5862…58b0 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0038, t01=0x00ec}
0x58b0…58c4 Head {h00=0x0010, h01=0x0050, text=»$ MEND; «, t00=0x0038, t01=0x013a}
0x58c4…58d0 Head {h00=0x0008, h01=0x0050, text=»EOS «, t00=0x0038, t01=0x014e}
0x58d0…58e2 Head {h00=0x000e, h01=0x0050, text=»MACRO MOD «, t00=0x0038, t01=0x015a}
0x58e2…5910 Head {h00=0x002a, h01=0x0050, text=»$ MACRO MOD NAME,AUT,DATE,CONT; «, t00=0x0038, t01=0x016c}
0x5910…5944 Head {h00=0x0030, h01=0x0050, text=» IDENT $NAME. W,REL=2.3,850901,870155940230 «, t00=0x0039, t01=0x000a}
0x5944…594c Head {h00=0x0004, h01=0x0050, t00=0x0039, t01=0x003e}
0x594c…5954 Head {h00=0x0004, h01=0x0050, t00=0x0039, t01=0x0046}
0x5954…595c Head {h00=0x0004, h01=0x0050, t00=0x0039, t01=0x004e}
0x595c…59aa Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0039, t01=0x0056}
0x59aa…59f8 Head {h00=0x004a, h01=0x0050, text=»** **«, t00=0x0039, t01=0x00a4}
0x59f8…5a46 Head {h00=0x004a, h01=0x0050, text=»** $NAME. LATEST UPDATING: $DATE. BY: $AUT. **«, t00=0x0039, t01=0x00f2}
0x5a46…5a94 Head {h00=0x004a, h01=0x0050, text=»** **«, t00=0x0039, t01=0x0140}
0x5a94…5ae2 Head {h00=0x004a, h01=0x0050, text=»** DESCRIPTION: $CONT. **«, t00=0x0039, t01=0x018e}
0x5ae2…5af6 Head {h00=0x0010, h01=0x0050, text=»$ MEND; «, t00=0x003a, t01=0x004c}
0x5af6…5b02 Head {h00=0x0008, h01=0x0050, text=»EOS «, t00=0x003a, t01=0x0060}
0x5b02…5b16 Head {h00=0x0010, h01=0x0050, text=»MACRO DUMMY «, t00=0x003a, t01=0x006c}
0x5b16…5b32 Head {h00=0x0018, h01=0x0050, text=»$ MACRO DUMMY; «, t00=0x003a, t01=0x0080}
0x5b32…5b52 Head {h00=0x001c, h01=0x0050, text=»****** STANDARD IDENT: «, t00=0x003a, t01=0x009c}
0x5b52…5b76 Head {h00=0x0020, h01=0x0050, text=» IDENT $NAME. $DATE. /$AUT.«, t00=0x003a, t01=0x00bc}
0x5b76…5ba4 Head {h00=0x002a, h01=0x0050, text=»****** CREDIT TEST INTERPRETER IDENT:«, t00=0x003a, t01=0x00e0}
0x5ba4…5bd8 Head {h00=0x0030, h01=0x0050, text=» IDENT $NAME. P,REL=12.1,811102,870136941200«, t00=0x003a, t01=0x010e}
0x5bd8…5c06 Head {h00=0x002a, h01=0x0050, text=»****** CREDIT PROD INTERPRETER IDENT:«, t00=0x003a, t01=0x0142}
0x5c06…5c3a Head {h00=0x0030, h01=0x0050, text=» IDENT $NAME. T,REL=12.1,811102,870137141200«, t00=0x003a, t01=0x0170}
0x5c3a…5c60 Head {h00=0x0022, h01=0x0050, text=»****** WSM INTERPRETER IDENT:«, t00=0x003b, t01=0x0014}
0x5c60…5c94 Head {h00=0x0030, h01=0x0050, text=» IDENT $NAME. W,REL=12.1,811111,870155941200«, t00=0x003b, t01=0x003a}
0x5c94…5ca8 Head {h00=0x0010, h01=0x0050, text=»$ MEND; «, t00=0x003b, t01=0x006e}
0x5ca8…5cb4 Head {h00=0x0008, h01=0x0050, text=»EOS «, t00=0x003b, t01=0x0082}
0x5cb4…5cc6 Head {h00=0x000e, h01=0x0050, text=»MACRO HIST«, t00=0x003b, t01=0x008e}
0x5cc6…5cf0 Head {h00=0x0026, h01=0x0050, text=»$ MACRO HIST AUT,DATE,CONT; «, t00=0x003b, t01=0x00a0}
0x5cf0…5d14 Head {h00=0x0020, h01=0x0050, text=»** $DATE. /$AUT. $CONT. «, t00=0x003b, t01=0x00ca}
0x5d14…5d28 Head {h00=0x0010, h01=0x0050, text=»$ MEND; «, t00=0x003b, t01=0x00ee}
0x5d28…5d34 Head {h00=0x0008, h01=0x0050, text=»EOS «, t00=0x003b, t01=0x0102}
0x5d34…5d48 Head {h00=0x0010, h01=0x0050, text=»MACRO LABEL «, t00=0x003b, t01=0x010e}
0x5d48…5d6e Head {h00=0x0022, h01=0x0050, text=»$ MACRO LABEL NAME,CONT;«, t00=0x003b, t01=0x0122}
0x5d6e…5d76 Head {h00=0x0004, h01=0x0050, t00=0x003b, t01=0x0148}
0x5d76…5d92 Head {h00=0x0018, h01=0x0050, text=»$NAME. EQU * «, t00=0x003b, t01=0x0150}
0x5d92…5de0 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x003b, t01=0x016c}
0x5de0…5e2e Head {h00=0x004a, h01=0x0050, text=»** **«, t00=0x003c, t01=0x002a}
0x5e2e…5e7c Head {h00=0x004a, h01=0x0050, text=»** $NAME. $CONT. **«, t00=0x003c, t01=0x0078}
0x5e7c…5e90 Head {h00=0x0010, h01=0x0050, text=»$ MEND; «, t00=0x003c, t01=0x00c6}
0x5e90…5e9c Head {h00=0x0008, h01=0x0050, text=»EOS «, t00=0x003c, t01=0x00da}
0x5e9c…5eae Head {h00=0x000e, h01=0x0050, text=»MACRO RUT «, t00=0x003c, t01=0x00e6}
0x5eae…5ed2 Head {h00=0x0020, h01=0x0050, text=»$ MACRO RUT NAME,CONT;«, t00=0x003c, t01=0x00f8}
0x5ed2…5ee0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x011c}
0x5ee0…5ee8 Head {h00=0x0004, h01=0x0050, t00=0x003c, t01=0x012a}
0x5ee8…5f04 Head {h00=0x0018, h01=0x0050, text=»$NAME. EQU * «, t00=0x003c, t01=0x0132}
0x5f04…5f52 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x003c, t01=0x014e}
0x5f52…5fa0 Head {h00=0x004a, h01=0x0050, text=»** **«, t00=0x003d, t01=0x000c}
0x5fa0…5fee Head {h00=0x004a, h01=0x0050, text=»** $NAME. $CONT. **«, t00=0x003d, t01=0x005a}
0x5fee…6002 Head {h00=0x0010, h01=0x0050, text=»$ MEND; «, t00=0x003d, t01=0x00a8}
0x6002…600e Head {h00=0x0008, h01=0x0050, text=»EOS «, t00=0x003d, t01=0x00bc}
0x600e…6020 Head {h00=0x000e, h01=0x0050, text=»MACRO OUTP«, t00=0x003d, t01=0x00c8}
0x6020…603e Head {h00=0x001a, h01=0x0050, text=»$ MACRO OUTP TXT;«, t00=0x003d, t01=0x00da}
0x603e…608c Head {h00=0x004a, h01=0x0050, text=»** OUTPUT: $TXT. **«, t00=0x003d, t01=0x00f8}
0x608c…60a0 Head {h00=0x0010, h01=0x0050, text=»$ MEND; «, t00=0x003d, t01=0x0146}
0x60a0…60ac Head {h00=0x0008, h01=0x0050, text=»EOS «, t00=0x003d, t01=0x015a}
0x60ac…60be Head {h00=0x000e, h01=0x0050, text=»MACRO INP «, t00=0x003d, t01=0x0166}
0x60be…60dc Head {h00=0x001a, h01=0x0050, text=»$ MACRO INP TXT; «, t00=0x003d, t01=0x0178}
0x60dc…612a Head {h00=0x004a, h01=0x0050, text=»** **«, t00=0x003e, t01=0x0008}
0x612a…6178 Head {h00=0x004a, h01=0x0050, text=»** INPUT: $TXT. **«, t00=0x003e, t01=0x0056}
0x6178…618c Head {h00=0x0010, h01=0x0050, text=»$ MEND; «, t00=0x003e, t01=0x00a4}
0x618c…6198 Head {h00=0x0008, h01=0x0050, text=»EOS «, t00=0x003e, t01=0x00b8}
0x6198…61aa Head {h00=0x000e, h01=0x0050, text=»MACRO CRUT«, t00=0x003e, t01=0x00c4}
0x61aa…61c8 Head {h00=0x001a, h01=0x0050, text=»$ MACRO CRUT TXT;«, t00=0x003e, t01=0x00d6}
0x61c8…6216 Head {h00=0x004a, h01=0x0050, text=»** CALLED ROUTINES: $TXT. **«, t00=0x003e, t01=0x00f4}
0x6216…622a Head {h00=0x0010, h01=0x0050, text=»$ MEND; «, t00=0x003e, t01=0x0142}
0x622a…6236 Head {h00=0x0008, h01=0x0050, text=»EOS «, t00=0x003e, t01=0x0156}
0x6236…6248 Head {h00=0x000e, h01=0x0050, text=»MACRO DREG«, t00=0x003e, t01=0x0162}
0x6248…6266 Head {h00=0x001a, h01=0x0050, text=»$ MACRO DREG TXT;«, t00=0x003e, t01=0x0174}
0x6266…62b4 (63, 0, 400) Head {h00=0x004a, h01=0x0050, text=»** DESTROYED REG.S: $TXT. **«, t00=0x003f, t01=0x0004}
0x62b4…62c8 Head {h00=0x0010, h01=0x0050, text=»$ MEND; «, t00=0x003f, t01=0x0052}
0x62c8…62d4 Head {h00=0x0008, h01=0x0050, text=»EOS «, t00=0x003f, t01=0x0066}
0x62d4…62e6 Head {h00=0x000e, h01=0x0050, text=»MACRO DMEM«, t00=0x003f, t01=0x0072}
0x62e6…6304 Head {h00=0x001a, h01=0x0050, text=»$ MACRO DMEM TXT;«, t00=0x003f, t01=0x0084}
0x6304…6352 Head {h00=0x004a, h01=0x0050, text=»** DESTROYED MEM. : $TXT. **«, t00=0x003f, t01=0x00a2}
0x6352…6366 Head {h00=0x0010, h01=0x0050, text=»$ MEND; «, t00=0x003f, t01=0x00f0}
0x6366…6372 Head {h00=0x0008, h01=0x0050, text=»EOS «, t00=0x003f, t01=0x0104}
0x6372…6386 Head {h00=0x0010, h01=0x0050, text=»MACRO AIEQU1«, t00=0x003f, t01=0x0110}
0x6386…63a2 Head {h00=0x0018, h01=0x0050, text=»$ MACRO AIEQU1; «, t00=0x003f, t01=0x0124}
0x63a2…63b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x0140}
0x63b0…63ba Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x003f, t01=0x014e}
0x63ba…63f0 Head {h00=0x0032, h01=0x0050, text=»** WSM-APPLICATION INTERFACE - PARAMETER BLOCK«, t00=0x003f, t01=0x0158}
0x63f0…63fa Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x003f, t01=0x018e}
0x63fa…6402 Head {h00=0x0004, h01=0x0050, t00=0x0040, t01=0x0008}
0x6402…6430 Head {h00=0x002a, h01=0x0050, text=»* LATEST UPDATING: 1981-08-25 BY: ME«, t00=0x0040, t01=0x0010}
0x6430…6438 Head {h00=0x0004, h01=0x0050, t00=0x0040, t01=0x003e}
0x6438…6464 Head {h00=0x0028, h01=0x0050, text=»FIDSIZ EQU 4 SIZE OF FIELD IDENTITY «, t00=0x0040, t01=0x0046}
0x6464…646c Head {h00=0x0004, h01=0x0050, t00=0x0040, t01=0x0072}
0x646c…6498 Head {h00=0x0028, h01=0x0050, text=»PBLGTH EQU 46 PARAMETER BLOCK LENGTH«, t00=0x0040, t01=0x007a}
0x6498…64cc Head {h00=0x0030, h01=0x0050, text=»WNOLGH EQU 1 LENGTH OF ONE WORK BLOCK NUMBER«, t00=0x0040, t01=0x00a6}
0x64cc…64f8 Head {h00=0x0028, h01=0x0050, text=»WBLNOS EQU 0 WORK BLOCK NUMBER AREA «, t00=0x0040, t01=0x00da}
0x64f8…651a Head {h00=0x001e, h01=0x0050, text=»FILL01 EQU WBLNOS+5 FILLER«, t00=0x0040, t01=0x0106}
0x651a…6542 Head {h00=0x0024, h01=0x0050, text=»FUNC EQU FILL01+1 FUNCTION CODE «, t00=0x0040, t01=0x0128}
0x6542…6568 Head {h00=0x0022, h01=0x0050, text=»FORMAT EQU FUNC+2 FORMAT NAME «, t00=0x0040, t01=0x0150}
0x6568…658e Head {h00=0x0022, h01=0x0050, text=»SECT EQU FORMAT+6 SECTION NAME«, t00=0x0040, t01=0x0176}
0x658e…65be Head {h00=0x002c, h01=0x0050, text=»SEQNO EQU SECT+6 SECTION SEQUENCE NUMBER«, t00=0x0041, t01=0x000c}
0x65be…65ea Head {h00=0x0028, h01=0x0050, text=»SUBSCR EQU SEQNO+2 SUBSCREEN NUMBER «, t00=0x0041, t01=0x003c}
0x65ea…6618 Head {h00=0x002a, h01=0x0050, text=»INPAWD EQU SUBSCR+1 INPUT ALLOWED CODE«, t00=0x0041, t01=0x0068}
0x6618…6644 Head {h00=0x0028, h01=0x0050, text=»CURFID EQU INPAWD+1 CURRENT FIELD-ID«, t00=0x0041, t01=0x0096}
0x6644…6672 Head {h00=0x002a, h01=0x0050, text=»FIELNO EQU CURFID+FIDSIZ FIELD NUMBER «, t00=0x0041, t01=0x00c2}
0x6672…669a Head {h00=0x0024, h01=0x0050, text=»RETCOD EQU FIELNO+2 RETURN CODE «, t00=0x0041, t01=0x00f0}
0x669a…66ca Head {h00=0x002c, h01=0x0050, text=»KEYID1 EQU RETCOD+2 KEY IDENTIFICATION 1«, t00=0x0041, t01=0x0118}
0x66ca…66fa Head {h00=0x002c, h01=0x0050, text=»KEYID2 EQU KEYID1+2 " " 2«, t00=0x0041, t01=0x0148}
0x66fa…672a Head {h00=0x002c, h01=0x0050, text=»EXITNO EQU KEYID2+2 EXIT ROUTINE NUMBER «, t00=0x0041, t01=0x0178}
0x672a…675a Head {h00=0x002c, h01=0x0050, text=»RECLGH EQU EXITNO+2 RECEIVED DATA LENGTH«, t00=0x0042, t01=0x0018}
0x675a…6784 Head {h00=0x0026, h01=0x0050, text=»BUFLGH EQU RECLGH+3 BUFFER LENGTH «, t00=0x0042, t01=0x0048}
0x6784…67b2 Head {h00=0x002a, h01=0x0050, text=»BUFLAY EQU BUFLGH+3 BUFFER LAYOUT CODE«, t00=0x0042, t01=0x0072}
0x67b2…67e6 Head {h00=0x0030, h01=0x0050, text=»PRINFC EQU BUFLAY+1 PRINTER DEVICE FILE CODE«, t00=0x0042, t01=0x00a0}
0x67e6…680e Head {h00=0x0024, h01=0x0050, text=»BUFFER EQU WBLNOS+PBLGTH BUFFER «, t00=0x0042, t01=0x00d4}
0x680e…681c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x00fc}
0x681c…6830 Head {h00=0x0010, h01=0x0050, text=»$ MEND; «, t00=0x0042, t01=0x010a}
0x6830…683c Head {h00=0x0008, h01=0x0050, text=»EOS «, t00=0x0042, t01=0x011e}
0x683c…6840 Head {h00=0x4004, h01=0x0000}
0x6840…6844 00 42 01 2a ┆ B *┆
0x6844…684c (67, 1, 8) 20 04 00 00 00 43 00 04 ┆ C ┆
0x684c…689c (68, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 3b 01 6c 00 4a 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆********************************** ; l J P** ┆
0x689c…68ec 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 3c 00 2a 00 4a 00 50 2a 2a 20 20 24 4e 41 4d 45 2e 20 20 20 20 20 20 20 20 20 20 20 20 24 43 4f 4e 54 2e 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ** < * J P** $NAME. $CONT. ┆
0x68ec…693c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 3c 00 78 00 10 00 50 24 20 20 20 20 20 4d 45 4e 44 3b 20 00 3c 00 c6 00 08 00 50 45 4f 53 20 00 3c 00 da 00 0e 00 50 4d 41 43 52 4f 20 52 55 54 20 ┆ ** < x P$ MEND; < PEOS < PMACRO RUT ┆
0x693c…698c 00 3c 00 e6 00 20 00 50 24 20 20 20 20 20 4d 41 43 52 4f 20 20 52 55 54 20 20 4e 41 4d 45 2c 43 4f 4e 54 3b 00 3c 00 f8 00 0a 00 50 5c 45 4a 45 43 54 00 3c 01 1c 00 04 00 50 00 3c 01 2a 00 18 00 50 24 4e 41 4d 45 2e 20 20 20 45 51 55 20 20 ┆ < P$ MACRO RUT NAME,CONT; < P EJECT < P < * P$NAME. EQU ┆
0x698c…69dc 20 20 20 20 2a 20 00 3c 01 32 00 4a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * < 2 J P******************************************************************┆