DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦b5c960bf5⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 04e8       |    |		.CONST	0x04e8								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00b2       |    |		.CONST	0x00b2								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0032       | 2  |		.CONST	0x0032								; Number of locals
000b			INIT_0008:
000b 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x054a,0x8000,0x0000,0x0058,0x6a85,0x0000,0x0007
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 00bf       |    |		Action	Accept_Activation
000e 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x000e,0x054e,0x8000,0x0000,0x0058,0x6e65,0x0000,0x0009
													; Debug Table 0x1.0x0 = 0xe,0xffff
000f e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x1 = 0xf,0xfffe
0010 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0011 0092 03e8  |    |		Action	Push_String_Extended,0x3e8					; "CMVC_"
													; Debug Table 0x1.0x2 = 0x11,0xfffd
0013 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x3 = 0x13,0xfffc
0014 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0015 02c7       |    |		Declare_Variable	Any
0016 00d8       |    |		Load_Top	At_Offset_0
0017 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0018 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x4 = 0x18,0xfffb
0019 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
001a 02c7       |    |		Declare_Variable	Any
001b 00d8       |    |		Load_Top	At_Offset_0
001c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
001d e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x5 = 0x1d,0xfffa
001e 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
001f 02c7       |    |		Declare_Variable	Any
0020 00d8       |    |		Load_Top	At_Offset_0
0021 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0022 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x6 = 0x22,0xfff9
0023 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0024 02c7       |    |		Declare_Variable	Any
0025 00d8       |    |		Load_Top	At_Offset_0
0026 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0027 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x7 = 0x27,0xfff8
0028 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0029 02c7       |    |		Declare_Variable	Any
002a 00d8       |    |		Load_Top	At_Offset_0
002b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002c e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x8 = 0x2c,0xfff7
002d 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
002e 02c7       |    |		Declare_Variable	Any
002f 00d8       |    |		Load_Top	At_Offset_0
0030 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0031 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x9 = 0x31,0xfff6
0032 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0033 02c7       |    |		Declare_Variable	Any
0034 00d8       |    |		Load_Top	At_Offset_0
0035 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0036 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0xa = 0x36,0xfff5
0037 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0038 02c7       |    |		Declare_Variable	Any
0039 00d8       |    |		Load_Top	At_Offset_0
003a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
003b e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0xb = 0x3b,0xfff4
003c 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
003d 02c7       |    |		Declare_Variable	Any
003e 00d8       |    |		Load_Top	At_Offset_0
003f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0040 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0xc = 0x40,0xfff3
0041 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0042 02c7       |    |		Declare_Variable	Any
0043 00d8       |    |		Load_Top	At_Offset_0
0044 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0045 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0xd = 0x45,0xfff2
0046 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0047 02c7       |    |		Declare_Variable	Any
0048 00d8       |    |		Load_Top	At_Offset_0
0049 1c00       |    |		Execute_Immediate	Run_Utility,0x0
004a e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0xe = 0x4a,0xfff1
004b 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
004c 02c7       |    |		Declare_Variable	Any
004d 00d8       |    |		Load_Top	At_Offset_0
004e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
004f e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0xf = 0x4f,0xfff0
0050 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0051 02c7       |    |		Declare_Variable	Any
0052 00d8       |    |		Load_Top	At_Offset_0
0053 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0054 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x10 = 0x54,0xffef
0055 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0056 02c7       |    |		Declare_Variable	Any
0057 00d8       |    |		Load_Top	At_Offset_0
0058 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0059 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x11 = 0x59,0xffee
005a 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
005b 02c7       |    |		Declare_Variable	Any
005c 00d8       |    |		Load_Top	At_Offset_0
005d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
005e e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x12 = 0x5e,0xffed
005f 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0060 02c7       |    |		Declare_Variable	Any
0061 00d8       |    |		Load_Top	At_Offset_0
0062 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0063 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x13 = 0x63,0xffec
0064 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0065 02c7       |    |		Declare_Variable	Any
0066 00d8       |    |		Load_Top	At_Offset_0
0067 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0068 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x14 = 0x68,0xffeb
0069 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
006a 02c7       |    |		Declare_Variable	Any
006b 00d8       |    |		Load_Top	At_Offset_0
006c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
006d e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x15 = 0x6d,0xffea
006e 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
006f 02c7       |    |		Declare_Variable	Any
0070 00d8       |    |		Load_Top	At_Offset_0
0071 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0072 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x16 = 0x72,0xffe9
0073 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0074 02c7       |    |		Declare_Variable	Any
0075 00d8       |    |		Load_Top	At_Offset_0
0076 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0077 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x17 = 0x77,0xffe8
0078 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0079 02c7       |    |		Declare_Variable	Any
007a 00d8       |    |		Load_Top	At_Offset_0
007b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
007c e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x18 = 0x7c,0xffe7
007d 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
007e 02c7       |    |		Declare_Variable	Any
007f 00d8       |    |		Load_Top	At_Offset_0
0080 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0081 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x19 = 0x81,0xffe6
0082 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0083 02c7       |    |		Declare_Variable	Any
0084 00d8       |    |		Load_Top	At_Offset_0
0085 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0086 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x1a = 0x86,0xffe5
0087 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0088 02c7       |    |		Declare_Variable	Any
0089 00d8       |    |		Load_Top	At_Offset_0
008a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
008b e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x1b = 0x8b,0xffe4
008c 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
008d 02c7       |    |		Declare_Variable	Any
008e 00d8       |    |		Load_Top	At_Offset_0
008f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0090 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x1c = 0x90,0xffe3
0091 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0092 02c7       |    |		Declare_Variable	Any
0093 00d8       |    |		Load_Top	At_Offset_0
0094 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0095 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x1d = 0x95,0xffe2
0096 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0097 02c7       |    |		Declare_Variable	Any
0098 00d8       |    |		Load_Top	At_Offset_0
0099 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009a e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x1e = 0x9a,0xffe1
009b 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
009c 02c7       |    |		Declare_Variable	Any
009d 00d8       |    |		Load_Top	At_Offset_0
009e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009f e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x1f = 0x9f,0xffe0
00a0 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
00a1 02c7       |    |		Declare_Variable	Any
00a2 00d8       |    |		Load_Top	At_Offset_0
00a3 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a4 029d 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call			; Debug Table 0x1.0x20 = 0xa4,0xffdf
00a6 029d 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call			; Debug Table 0x1.0x21 = 0xa6,0xffde
00a8 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x22 = 0xa8,0xffdd
00a9 00c7       |    |		Action	Elaborate_Subprogram
00aa 029d 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call			; Debug Table 0x1.0x23 = 0xaa,0xffdc
00ac 029d 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call			; Debug Table 0x1.0x24 = 0xac,0xffdb
00ae 029d 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call			; Debug Table 0x1.0x25 = 0xae,0xffda
00b0 029d 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call			; Debug Table 0x1.0x26 = 0xb0,0xffd9
00b2			BODY_0008:
00b2 8232       | 2  |		Call	0x1,0x32							; Debug Table 0x1.0x27 = 0xb2,0x1
00b3 00bc       |    |		Action	Signal_Activated
00b4 00bb       |    |		Action	Signal_Completion
00b5 0000 0000  |    |		.XXX[0x3]
00b7 0000       |    |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb e20e       |    |		Load	0x1,0xe								; Debug Table 0x2 = .DEBUG	0x00bb,0x05a0,0x0001,0x0000,0x0058,0x6a85,0x0000,0x0008
													; Debug Table 0x2.0x0 = 0xbb,0x1
00bc 00db       |    |		Load_Top	At_Offset_3
00bd 017d       | }  |		Execute	Record,Structure_Write
00be e210       |    |		Load	0x1,0x10							; Debug Table 0x2.0x1 = 0xbe,0x2
00bf 822d       | -  |		Call	0x1,0x2d
00c0 00db       |    |		Load_Top	At_Offset_3
00c1 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00c2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00c3 e211       |    |		Load	0x1,0x11							; Debug Table 0x2.0x2 = 0xc3,0x3
00c4 822d       | -  |		Call	0x1,0x2d
00c5 00db       |    |		Load_Top	At_Offset_3
00c6 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00c7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00c8 e212       |    |		Load	0x1,0x12							; Debug Table 0x2.0x3 = 0xc8,0x4
00c9 822d       | -  |		Call	0x1,0x2d
00ca 00db       |    |		Load_Top	At_Offset_3
00cb 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00cc 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00cd e213       |    |		Load	0x1,0x13							; Debug Table 0x2.0x4 = 0xcd,0x5
00ce 822d       | -  |		Call	0x1,0x2d
00cf 00db       |    |		Load_Top	At_Offset_3
00d0 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00d1 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00d2 e214       |    |		Load	0x1,0x14							; Debug Table 0x2.0x5 = 0xd2,0x6
00d3 822d       | -  |		Call	0x1,0x2d
00d4 00db       |    |		Load_Top	At_Offset_3
00d5 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00d6 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00d7 e215       |    |		Load	0x1,0x15							; Debug Table 0x2.0x6 = 0xd7,0x7
00d8 822d       | -  |		Call	0x1,0x2d
00d9 00db       |    |		Load_Top	At_Offset_3
00da 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00db 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00dc e216       |    |		Load	0x1,0x16							; Debug Table 0x2.0x7 = 0xdc,0x8
00dd 822d       | -  |		Call	0x1,0x2d
00de 00db       |    |		Load_Top	At_Offset_3
00df 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00e0 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00e1 e217       |    |		Load	0x1,0x17							; Debug Table 0x2.0x8 = 0xe1,0x9
00e2 822d       | -  |		Call	0x1,0x2d
00e3 00db       |    |		Load_Top	At_Offset_3
00e4 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00e5 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00e6 e218       |    |		Load	0x1,0x18							; Debug Table 0x2.0x9 = 0xe6,0xa
00e7 822d       | -  |		Call	0x1,0x2d
00e8 00db       |    |		Load_Top	At_Offset_3
00e9 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00ea 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00eb e20e       |    |		Load	0x1,0xe								; Debug Table 0x2.0xa = 0xeb,0xb
00ec 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00ed 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00ee e219       |    |		Load	0x1,0x19
00ef 822e       | .  |		Call	0x1,0x2e
00f0 00db       |    |		Load_Top	At_Offset_3
00f1 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00f2 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00f3 e20e       |    |		Load	0x1,0xe								; Debug Table 0x2.0xb = 0xf3,0xc
00f4 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00f5 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
00f6 e21a       |    |		Load	0x1,0x1a
00f7 822e       | .  |		Call	0x1,0x2e
00f8 00db       |    |		Load_Top	At_Offset_3
00f9 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
00fa 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
00fb e21c       |    |		Load	0x1,0x1c							; Debug Table 0x2.0xc = 0xfb,0xd
00fc 822d       | -  |		Call	0x1,0x2d
00fd 6805       |h   |		Jump_Zero	0x103
00fe 4802       |H   |		Short_Literal	0x2							; Debug Table 0x2.0xd = 0xfe,0xe
00ff 00db       |    |		Load_Top	At_Offset_3
0100 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0101 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0102 780c       |x   |		Jump	0x10f
0103 e21b       |    |		Load	0x1,0x1b							; Debug Table 0x2.0xe = 0x103,0xf
0104 822d       | -  |		Call	0x1,0x2d
0105 6805       |h   |		Jump_Zero	0x10b
0106 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0xf = 0x106,0x10
0107 00db       |    |		Load_Top	At_Offset_3
0108 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0109 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
010a 7804       |x   |		Jump	0x10f
010b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x10 = 0x10b,0x11
010c 00db       |    |		Load_Top	At_Offset_3
010d 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
010e 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
010f e21f       |    |		Load	0x1,0x1f							; Debug Table 0x2.0x11 = 0x10f,0x12
0110 822d       | -  |		Call	0x1,0x2d
0111 00db       |    |		Load_Top	At_Offset_3
0112 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0113 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0114 e220       |    |		Load	0x1,0x20							; Debug Table 0x2.0x12 = 0x114,0x13
0115 822d       | -  |		Call	0x1,0x2d
0116 00db       |    |		Load_Top	At_Offset_3
0117 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0118 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0119 e221       | !  |		Load	0x1,0x21							; Debug Table 0x2.0x13 = 0x119,0x14
011a 822d       | -  |		Call	0x1,0x2d
011b 00db       |    |		Load_Top	At_Offset_3
011c 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
011d 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
011e e222       | "  |		Load	0x1,0x22							; Debug Table 0x2.0x14 = 0x11e,0x15
011f 822d       | -  |		Call	0x1,0x2d
0120 00db       |    |		Load_Top	At_Offset_3
0121 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0122 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0123 e20e       |    |		Load	0x1,0xe								; Debug Table 0x2.0x15 = 0x123,0x16
0124 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0125 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0126 e223       | #  |		Load	0x1,0x23
0127 822e       | .  |		Call	0x1,0x2e
0128 00db       |    |		Load_Top	At_Offset_3
0129 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
012a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
012b e224       | $  |		Load	0x1,0x24							; Debug Table 0x2.0x16 = 0x12b,0x17
012c 822d       | -  |		Call	0x1,0x2d
012d 00db       |    |		Load_Top	At_Offset_3
012e 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
012f 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0130 e225       | %  |		Load	0x1,0x25							; Debug Table 0x2.0x17 = 0x130,0x18
0131 822d       | -  |		Call	0x1,0x2d
0132 00db       |    |		Load_Top	At_Offset_3
0133 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0134 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0135 e20e       |    |		Load	0x1,0xe								; Debug Table 0x2.0x18 = 0x135,0x19
0136 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0137 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0138 e226       | &  |		Load	0x1,0x26
0139 822e       | .  |		Call	0x1,0x2e
013a 00db       |    |		Load_Top	At_Offset_3
013b 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
013c 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
013d e227       | '  |		Load	0x1,0x27							; Debug Table 0x2.0x19 = 0x13d,0x1a
013e 822d       | -  |		Call	0x1,0x2d
013f 00db       |    |		Load_Top	At_Offset_3
0140 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0141 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0142 e20e       |    |		Load	0x1,0xe								; Debug Table 0x2.0x1a = 0x142,0x1b
0143 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0144 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0145 e228       | (  |		Load	0x1,0x28
0146 822e       | .  |		Call	0x1,0x2e
0147 00db       |    |		Load_Top	At_Offset_3
0148 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0149 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
014a e20e       |    |		Load	0x1,0xe								; Debug Table 0x2.0x1b = 0x14a,0x1c
014b 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
014c 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
014d e229       | )  |		Load	0x1,0x29
014e 822e       | .  |		Call	0x1,0x2e
014f 00db       |    |		Load_Top	At_Offset_3
0150 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0151 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0152 e22a       | *  |		Load	0x1,0x2a							; Debug Table 0x2.0x1c = 0x152,0x1d
0153 822d       | -  |		Call	0x1,0x2d
0154 00db       |    |		Load_Top	At_Offset_3
0155 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0156 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0157 e22b       | +  |		Load	0x1,0x2b							; Debug Table 0x2.0x1d = 0x157,0x1e
0158 822d       | -  |		Call	0x1,0x2d
0159 00db       |    |		Load_Top	At_Offset_3
015a 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
015b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
015c e22c       | ,  |		Load	0x1,0x2c							; Debug Table 0x2.0x1e = 0x15c,0x1f
015d 822d       | -  |		Call	0x1,0x2d
015e 00db       |    |		Load_Top	At_Offset_3
015f 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0160 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0161 e21d       |    |		Load	0x1,0x1d							; Debug Table 0x2.0x1f = 0x161,0x20
0162 822d       | -  |		Call	0x1,0x2d
0163 00db       |    |		Load_Top	At_Offset_3
0164 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0165 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0166 e21e       |    |		Load	0x1,0x1e							; Debug Table 0x2.0x20 = 0x166,0x21
0167 822d       | -  |		Call	0x1,0x2d
0168 00db       |    |		Load_Top	At_Offset_3
0169 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
016a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
016b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x2.0x21 = 0x16b,0x22
016c 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
016d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
016e 0901       |    |		Execute_Immediate	Binary_Scale,0x1
016f 0248       | H  |		Execute	Discrete,Check_In_Integer
0170 00db       |    |		Load_Top	At_Offset_3
0171 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0172 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0173 0273       | s  |		Execute	Discrete,Plus
0174 c5fe       |    |		Store	0x2,-0x2
0175 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0x22 = 0x175,0x23
0176 a5fd       |    |		Store_Unchecked	0x2,-0x3
0177 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b e003       |    |		Load	0x0,0x3								; Debug Table 0x3 = .DEBUG	0x017b,0x05e8,0x0002,0x0000,0x0058,0x6e65,0x0000,0x00f6
													; Debug Table 0x3.0x0 = 0x17b,0x1
017c 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
017d 00db       |    |		Load_Top	At_Offset_3
017e e002       |    |		Load	0x0,0x2
017f 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0180 e002       |    |		Load	0x0,0x2
0181 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0182 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0183 0000 0000  |    |		.BLANK	0000[0x5]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018c       |    |		.CONST	0x018c								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0002       |    |		.CONST	0x0002								; Number of locals
018b			INIT_0188:
018b 00e2       |    |		Load_Encached	Integer_Cache						; Debug Table 0x4 = .DEBUG	0x018b,0x05ec,0x0002,0x0000,0x0058,0x6e65,0x0000,0x0111
													; Debug Table 0x4.0x0 = 0x18b,0xffff
018c			BODY_0188:
018c e003       |    |		Load	0x0,0x3								; Debug Table 0x4.0x1 = 0x18c,0x1
018d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
018e e5ff       |    |		Load	0x2,-0x1
018f e002       |    |		Load	0x0,0x2
0190 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0191 e002       |    |		Load	0x0,0x2
0192 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0193 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0194 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x2 = 0x194,0x2
0195 e001       |    |		Load	0x0,0x1
0196 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0197 025f       | _  |		Execute	Discrete,Not_In_Type
0198 6802       |h   |		Jump_Zero	0x19b
0199 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x4.0x3 = 0x199,0x3
019a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
019b 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x4 = 0x19b,0x4
019c 00e3       |    |		Load_Encached	Natural_Cache
019d 025b       | [  |		Execute	Discrete,Check_In_Type
019e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
019f 0000       |    |		.XXX[0x1]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a6       |    |		.CONST	0x01a6								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0003       |    |		.CONST	0x0003								; Number of locals
01a3			INIT_01a0:
01a3 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x5 = .DEBUG	0x01a3,0x05f8,0x0001,0x0000,0x0058,0x6e65,0x0000,0x02d8
													; Debug Table 0x5.0x0 = 0x1a3,0xffff
01a4 029f 03a3  |    |		Declare_Subprogram	INIT_03a0,For_Call
01a6			BODY_01a0:
01a6 8403       |    |		Call	0x2,0x3								; Debug Table 0x5.0x1 = 0x1a6,0x1
01a7 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x5.0x2 = 0x1a7,0x2
01a8 e5fd       |    |		Load	0x2,-0x3
01a9 0120       |    |		Execute	Any,Is_Value
01aa 6803       |h   |		Jump_Zero	0x1ae
01ab e002       |    |		Load	0x0,0x2
01ac 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
01ad 7801       |x   |		Jump	0x1af
01ae e5fd       |    |		Load	0x2,-0x3
01af e20f       |    |		Load	0x1,0xf
01b0 e5ff       |    |		Load	0x2,-0x1
01b1 01cc       |    |		Execute	Vector,Catenate
01b2 e002       |    |		Load	0x0,0x2
01b3 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
01b4 c5fd       |    |		Store	0x2,-0x3
01b5 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01b6 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x5.0x3 = 0x1b6,0x3
01b7 7002       |p   |		Jump_Nonzero	0x1ba
01b8 4887       |H   |		Short_Literal	0x87
01b9 0257       | W  |		Execute	Discrete,Raise
01ba 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01bb 0000 0000  |    |		.BLANK	0000[0x5]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c6       |    |		.CONST	0x01c6								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0003       |    |		.CONST	0x0003								; Number of locals
01c3			INIT_01c0:
01c3 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x6 = .DEBUG	0x01c3,0x0602,0x0001,0x0000,0x0058,0x6e65,0x0000,0x031a
													; Debug Table 0x6.0x0 = 0x1c3,0xffff
01c4 029f 03bb  |    |		Declare_Subprogram	INIT_03b8,For_Call
01c6			BODY_01c0:
01c6 8403       |    |		Call	0x2,0x3								; Debug Table 0x6.0x1 = 0x1c6,0x1
01c7 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x6.0x2 = 0x1c7,0x2
01c8 e5fd       |    |		Load	0x2,-0x3
01c9 0120       |    |		Execute	Any,Is_Value
01ca 6803       |h   |		Jump_Zero	0x1ce
01cb e002       |    |		Load	0x0,0x2
01cc 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
01cd 7801       |x   |		Jump	0x1cf
01ce e5fd       |    |		Load	0x2,-0x3
01cf e20f       |    |		Load	0x1,0xf
01d0 e5ff       |    |		Load	0x2,-0x1
01d1 01cc       |    |		Execute	Vector,Catenate
01d2 e002       |    |		Load	0x0,0x2
01d3 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
01d4 c5fd       |    |		Store	0x2,-0x3
01d5 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01d6 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x6.0x3 = 0x1d6,0x3
01d7 7002       |p   |		Jump_Nonzero	0x1da
01d8 4887       |H   |		Short_Literal	0x87
01d9 0257       | W  |		Execute	Discrete,Raise
01da 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01db 0000 0000  |    |		.BLANK	0000[0x5]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e6       |    |		.CONST	0x01e6								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0003       |    |		.CONST	0x0003								; Number of locals
01e3			INIT_01e0:
01e3 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x7 = .DEBUG	0x01e3,0x060c,0x0001,0x0000,0x0058,0x6e65,0x0000,0x035c
													; Debug Table 0x7.0x0 = 0x1e3,0xffff
01e4 029f 03d3  |    |		Declare_Subprogram	INIT_03d0,For_Call
01e6			BODY_01e0:
01e6 8403       |    |		Call	0x2,0x3								; Debug Table 0x7.0x1 = 0x1e6,0x1
01e7 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x7.0x2 = 0x1e7,0x2
01e8 e5fd       |    |		Load	0x2,-0x3
01e9 0120       |    |		Execute	Any,Is_Value
01ea 6803       |h   |		Jump_Zero	0x1ee
01eb e002       |    |		Load	0x0,0x2
01ec 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
01ed 7801       |x   |		Jump	0x1ef
01ee e5fd       |    |		Load	0x2,-0x3
01ef e20f       |    |		Load	0x1,0xf
01f0 e5ff       |    |		Load	0x2,-0x1
01f1 01cc       |    |		Execute	Vector,Catenate
01f2 e002       |    |		Load	0x0,0x2
01f3 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
01f4 c5fd       |    |		Store	0x2,-0x3
01f5 005a       | Z  |		Store_Top	Discrete,At_Offset_2
01f6 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x7.0x3 = 0x1f6,0x3
01f7 7002       |p   |		Jump_Nonzero	0x1fa
01f8 4887       |H   |		Short_Literal	0x87
01f9 0257       | W  |		Execute	Discrete,Raise
01fa 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01fb 0000 0000  |    |		.BLANK	0000[0x5]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 e210       |    |		Load	0x1,0x10							; Debug Table 0x8 = .DEBUG	0x0203,0x0616,0x0001,0x0000,0x0058,0x6e65,0x0000,0x039e
													; Debug Table 0x8.0x0 = 0x203,0x1
0204 0120       |    |		Execute	Any,Is_Value
0205 6803       |h   |		Jump_Zero	0x209
0206 e002       |    |		Load	0x0,0x2
0207 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0208 7801       |x   |		Jump	0x20a
0209 e210       |    |		Load	0x1,0x10
020a e20e       |    |		Load	0x1,0xe
020b 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
020c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
020d 0092 03e9  |    |		Action	Push_String_Extended,0x3e9					; "Show_Unit_State"
020f 822f       | /  |		Call	0x1,0x2f
0210 c210       |    |		Store	0x1,0x10
0211 e211       |    |		Load	0x1,0x11							; Debug Table 0x8.0x1 = 0x211,0x2
0212 0120       |    |		Execute	Any,Is_Value
0213 6803       |h   |		Jump_Zero	0x217
0214 e002       |    |		Load	0x0,0x2
0215 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0216 7801       |x   |		Jump	0x218
0217 e211       |    |		Load	0x1,0x11
0218 e20e       |    |		Load	0x1,0xe
0219 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
021a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
021b 0092 03ea  |    |		Action	Push_String_Extended,0x3ea					; "Show_Edit_Info"
021d 822f       | /  |		Call	0x1,0x2f
021e c211       |    |		Store	0x1,0x11
021f e212       |    |		Load	0x1,0x12							; Debug Table 0x8.0x2 = 0x21f,0x3
0220 0120       |    |		Execute	Any,Is_Value
0221 6803       |h   |		Jump_Zero	0x225
0222 e002       |    |		Load	0x0,0x2
0223 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0224 7801       |x   |		Jump	0x226
0225 e212       |    |		Load	0x1,0x12
0226 e20e       |    |		Load	0x1,0xe
0227 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0228 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0229 0092 03eb  |    |		Action	Push_String_Extended,0x3eb					; "Show_Size"
022b 822f       | /  |		Call	0x1,0x2f
022c c212       |    |		Store	0x1,0x12
022d e213       |    |		Load	0x1,0x13							; Debug Table 0x8.0x3 = 0x22d,0x4
022e 0120       |    |		Execute	Any,Is_Value
022f 6803       |h   |		Jump_Zero	0x233
0230 e002       |    |		Load	0x0,0x2
0231 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0232 7801       |x   |		Jump	0x234
0233 e213       |    |		Load	0x1,0x13
0234 e20e       |    |		Load	0x1,0xe
0235 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0236 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0237 0092 03ec  |    |		Action	Push_String_Extended,0x3ec					; "Show_Retention"
0239 822f       | /  |		Call	0x1,0x2f
023a c213       |    |		Store	0x1,0x13
023b e214       |    |		Load	0x1,0x14							; Debug Table 0x8.0x4 = 0x23b,0x5
023c 0120       |    |		Execute	Any,Is_Value
023d 6803       |h   |		Jump_Zero	0x241
023e e002       |    |		Load	0x0,0x2
023f 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0240 7801       |x   |		Jump	0x242
0241 e214       |    |		Load	0x1,0x14
0242 e20e       |    |		Load	0x1,0xe
0243 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0244 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0245 0092 03ed  |    |		Action	Push_String_Extended,0x3ed					; "Show_Frozen"
0247 822f       | /  |		Call	0x1,0x2f
0248 c214       |    |		Store	0x1,0x14
0249 e215       |    |		Load	0x1,0x15							; Debug Table 0x8.0x5 = 0x249,0x6
024a 0120       |    |		Execute	Any,Is_Value
024b 6803       |h   |		Jump_Zero	0x24f
024c e002       |    |		Load	0x0,0x2
024d 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
024e 7801       |x   |		Jump	0x250
024f e215       |    |		Load	0x1,0x15
0250 e20e       |    |		Load	0x1,0xe
0251 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0252 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0253 0092 03ee  |    |		Action	Push_String_Extended,0x3ee					; "Show_Version_Number"
0255 822f       | /  |		Call	0x1,0x2f
0256 c215       |    |		Store	0x1,0x15
0257 e216       |    |		Load	0x1,0x16							; Debug Table 0x8.0x6 = 0x257,0x7
0258 0120       |    |		Execute	Any,Is_Value
0259 6803       |h   |		Jump_Zero	0x25d
025a e002       |    |		Load	0x0,0x2
025b 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
025c 7801       |x   |		Jump	0x25e
025d e216       |    |		Load	0x1,0x16
025e e20e       |    |		Load	0x1,0xe
025f 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0260 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0261 0092 03ef  |    |		Action	Push_String_Extended,0x3ef					; "Shorten_Name"
0263 822f       | /  |		Call	0x1,0x2f
0264 c216       |    |		Store	0x1,0x16
0265 e217       |    |		Load	0x1,0x17							; Debug Table 0x8.0x7 = 0x265,0x8
0266 0120       |    |		Execute	Any,Is_Value
0267 6803       |h   |		Jump_Zero	0x26b
0268 e002       |    |		Load	0x0,0x2
0269 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
026a 7801       |x   |		Jump	0x26c
026b e217       |    |		Load	0x1,0x17
026c e20e       |    |		Load	0x1,0xe
026d 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
026e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
026f 0092 03f0  |    |		Action	Push_String_Extended,0x3f0					; "Shorten_Unit_State"
0271 822f       | /  |		Call	0x1,0x2f
0272 c217       |    |		Store	0x1,0x17
0273 e218       |    |		Load	0x1,0x18							; Debug Table 0x8.0x8 = 0x273,0x9
0274 0120       |    |		Execute	Any,Is_Value
0275 6803       |h   |		Jump_Zero	0x279
0276 e002       |    |		Load	0x0,0x2
0277 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0278 7801       |x   |		Jump	0x27a
0279 e218       |    |		Load	0x1,0x18
027a e20e       |    |		Load	0x1,0xe
027b 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
027c 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
027d 0092 03f1  |    |		Action	Push_String_Extended,0x3f1					; "Break_Long_Lines"
027f 822f       | /  |		Call	0x1,0x2f
0280 c218       |    |		Store	0x1,0x18
0281 e219       |    |		Load	0x1,0x19							; Debug Table 0x8.0x9 = 0x281,0xa
0282 0120       |    |		Execute	Any,Is_Value
0283 6803       |h   |		Jump_Zero	0x287
0284 e002       |    |		Load	0x0,0x2
0285 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0286 7801       |x   |		Jump	0x288
0287 e219       |    |		Load	0x1,0x19
0288 e20e       |    |		Load	0x1,0xe
0289 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
028a 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
028b 0092 03f2  |    |		Action	Push_String_Extended,0x3f2					; "Line_Length"
028d 8230       | 0  |		Call	0x1,0x30
028e c219       |    |		Store	0x1,0x19
028f e21a       |    |		Load	0x1,0x1a							; Debug Table 0x8.0xa = 0x28f,0xb
0290 0120       |    |		Execute	Any,Is_Value
0291 6803       |h   |		Jump_Zero	0x295
0292 e002       |    |		Load	0x0,0x2
0293 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0294 7801       |x   |		Jump	0x296
0295 e21a       |    |		Load	0x1,0x1a
0296 e20e       |    |		Load	0x1,0xe
0297 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0298 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0299 0092 03f3  |    |		Action	Push_String_Extended,0x3f3					; "Indentation"
029b 8230       | 0  |		Call	0x1,0x30
029c c21a       |    |		Store	0x1,0x1a
029d e21b       |    |		Load	0x1,0x1b							; Debug Table 0x8.0xb = 0x29d,0xc
029e 0120       |    |		Execute	Any,Is_Value
029f 6803       |h   |		Jump_Zero	0x2a3
02a0 e002       |    |		Load	0x0,0x2
02a1 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
02a2 7801       |x   |		Jump	0x2a4
02a3 e21b       |    |		Load	0x1,0x1b
02a4 e20e       |    |		Load	0x1,0xe
02a5 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02a6 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
02a7 0f01       |    |		Execute_Immediate	Equal,0x1
02a8 0092 03f4  |    |		Action	Push_String_Extended,0x3f4					; "Capitalize"
02aa 822f       | /  |		Call	0x1,0x2f
02ab c21b       |    |		Store	0x1,0x1b
02ac e21c       |    |		Load	0x1,0x1c							; Debug Table 0x8.0xc = 0x2ac,0xd
02ad 0120       |    |		Execute	Any,Is_Value
02ae 6803       |h   |		Jump_Zero	0x2b2
02af e002       |    |		Load	0x0,0x2
02b0 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
02b1 7801       |x   |		Jump	0x2b3
02b2 e21c       |    |		Load	0x1,0x1c
02b3 e20e       |    |		Load	0x1,0xe
02b4 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02b5 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
02b6 0f02       |    |		Execute_Immediate	Equal,0x2
02b7 0092 03f5  |    |		Action	Push_String_Extended,0x3f5					; "Uppercase"
02b9 822f       | /  |		Call	0x1,0x2f
02ba c21c       |    |		Store	0x1,0x1c
02bb e21d       |    |		Load	0x1,0x1d							; Debug Table 0x8.0xd = 0x2bb,0xe
02bc 0120       |    |		Execute	Any,Is_Value
02bd 6803       |h   |		Jump_Zero	0x2c1
02be e002       |    |		Load	0x0,0x2
02bf 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
02c0 7801       |x   |		Jump	0x2c2
02c1 e21d       |    |		Load	0x1,0x1d
02c2 e20e       |    |		Load	0x1,0xe
02c3 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
02c4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02c5 0092 03f6  |    |		Action	Push_String_Extended,0x3f6					; "Show_Deleted_Versions"
02c7 822f       | /  |		Call	0x1,0x2f
02c8 c21d       |    |		Store	0x1,0x1d
02c9 e21e       |    |		Load	0x1,0x1e							; Debug Table 0x8.0xe = 0x2c9,0xf
02ca 0120       |    |		Execute	Any,Is_Value
02cb 6803       |h   |		Jump_Zero	0x2cf
02cc e002       |    |		Load	0x0,0x2
02cd 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
02ce 7801       |x   |		Jump	0x2d0
02cf e21e       |    |		Load	0x1,0x1e
02d0 e20e       |    |		Load	0x1,0xe
02d1 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
02d2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02d3 0092 03f7  |    |		Action	Push_String_Extended,0x3f7					; "Show_Deleted_Objects"
02d5 822f       | /  |		Call	0x1,0x2f
02d6 c21e       |    |		Store	0x1,0x1e
02d7 e21f       |    |		Load	0x1,0x1f							; Debug Table 0x8.0xf = 0x2d7,0x10
02d8 0120       |    |		Execute	Any,Is_Value
02d9 6803       |h   |		Jump_Zero	0x2dd
02da e002       |    |		Load	0x0,0x2
02db 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
02dc 7801       |x   |		Jump	0x2de
02dd e21f       |    |		Load	0x1,0x1f
02de e20e       |    |		Load	0x1,0xe
02df 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
02e0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02e1 0092 03f8  |    |		Action	Push_String_Extended,0x3f8					; "Show_Display_Position"
02e3 822f       | /  |		Call	0x1,0x2f
02e4 c21f       |    |		Store	0x1,0x1f
02e5 e220       |    |		Load	0x1,0x20							; Debug Table 0x8.0x10 = 0x2e5,0x11
02e6 0120       |    |		Execute	Any,Is_Value
02e7 6803       |h   |		Jump_Zero	0x2eb
02e8 e002       |    |		Load	0x0,0x2
02e9 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
02ea 7801       |x   |		Jump	0x2ec
02eb e220       |    |		Load	0x1,0x20
02ec e20e       |    |		Load	0x1,0xe
02ed 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
02ee 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ef 0092 03f9  |    |		Action	Push_String_Extended,0x3f9					; "Show_Field_Max_Index"
02f1 822f       | /  |		Call	0x1,0x2f
02f2 c220       |    |		Store	0x1,0x20
02f3 e221       | !  |		Load	0x1,0x21							; Debug Table 0x8.0x11 = 0x2f3,0x12
02f4 0120       |    |		Execute	Any,Is_Value
02f5 6803       |h   |		Jump_Zero	0x2f9
02f6 e002       |    |		Load	0x0,0x2
02f7 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
02f8 7801       |x   |		Jump	0x2fa
02f9 e221       | !  |		Load	0x1,0x21
02fa e20e       |    |		Load	0x1,0xe
02fb 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
02fc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
02fd 0092 03fa  |    |		Action	Push_String_Extended,0x3fa					; "Show_Field_Default"
02ff 822f       | /  |		Call	0x1,0x2f
0300 c221       | !  |		Store	0x1,0x21
0301 e222       | "  |		Load	0x1,0x22							; Debug Table 0x8.0x12 = 0x301,0x13
0302 0120       |    |		Execute	Any,Is_Value
0303 6803       |h   |		Jump_Zero	0x307
0304 e002       |    |		Load	0x0,0x2
0305 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0306 7801       |x   |		Jump	0x308
0307 e222       | "  |		Load	0x1,0x22
0308 e20e       |    |		Load	0x1,0xe
0309 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
030a 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
030b 0092 03fb  |    |		Action	Push_String_Extended,0x3fb					; "Show_Field_Type"
030d 822f       | /  |		Call	0x1,0x2f
030e c222       | "  |		Store	0x1,0x22
030f e223       | #  |		Load	0x1,0x23							; Debug Table 0x8.0x13 = 0x30f,0x14
0310 0120       |    |		Execute	Any,Is_Value
0311 6803       |h   |		Jump_Zero	0x315
0312 e002       |    |		Load	0x0,0x2
0313 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0314 7801       |x   |		Jump	0x316
0315 e223       | #  |		Load	0x1,0x23
0316 e20e       |    |		Load	0x1,0xe
0317 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0318 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0319 0092 03fc  |    |		Action	Push_String_Extended,0x3fc					; "Field_Extent"
031b 8230       | 0  |		Call	0x1,0x30
031c c223       | #  |		Store	0x1,0x23
031d e224       | $  |		Load	0x1,0x24							; Debug Table 0x8.0x14 = 0x31d,0x15
031e 0120       |    |		Execute	Any,Is_Value
031f 6803       |h   |		Jump_Zero	0x323
0320 e002       |    |		Load	0x0,0x2
0321 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0322 7801       |x   |		Jump	0x324
0323 e224       | $  |		Load	0x1,0x24
0324 e20e       |    |		Load	0x1,0xe
0325 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0326 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0327 0092 03fd  |    |		Action	Push_String_Extended,0x3fd					; "Show_Add_Time"
0329 822f       | /  |		Call	0x1,0x2f
032a c224       | $  |		Store	0x1,0x24
032b e225       | %  |		Load	0x1,0x25							; Debug Table 0x8.0x15 = 0x32b,0x16
032c 0120       |    |		Execute	Any,Is_Value
032d 6803       |h   |		Jump_Zero	0x331
032e e002       |    |		Load	0x0,0x2
032f 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0330 7801       |x   |		Jump	0x332
0331 e225       | %  |		Load	0x1,0x25
0332 e20e       |    |		Load	0x1,0xe
0333 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0334 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0335 0092 03fe  |    |		Action	Push_String_Extended,0x3fe					; "Show_Add_Date"
0337 822f       | /  |		Call	0x1,0x2f
0338 c225       | %  |		Store	0x1,0x25
0339 e226       | &  |		Load	0x1,0x26							; Debug Table 0x8.0x16 = 0x339,0x17
033a 0120       |    |		Execute	Any,Is_Value
033b 6803       |h   |		Jump_Zero	0x33f
033c e002       |    |		Load	0x0,0x2
033d 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
033e 7801       |x   |		Jump	0x340
033f e226       | &  |		Load	0x1,0x26
0340 e20e       |    |		Load	0x1,0xe
0341 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0342 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0343 0092 03ff  |    |		Action	Push_String_Extended,0x3ff					; "Comment_Extent"
0345 8230       | 0  |		Call	0x1,0x30
0346 c226       | &  |		Store	0x1,0x26
0347 e227       | '  |		Load	0x1,0x27							; Debug Table 0x8.0x17 = 0x347,0x18
0348 0120       |    |		Execute	Any,Is_Value
0349 6803       |h   |		Jump_Zero	0x34d
034a e002       |    |		Load	0x0,0x2
034b 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
034c 7801       |x   |		Jump	0x34e
034d e227       | '  |		Load	0x1,0x27
034e e20e       |    |		Load	0x1,0xe
034f 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0350 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0351 0092 0400  |    |		Action	Push_String_Extended,0x400					; "Show_Users"
0353 822f       | /  |		Call	0x1,0x2f
0354 c227       | '  |		Store	0x1,0x27
0355 e228       | (  |		Load	0x1,0x28							; Debug Table 0x8.0x18 = 0x355,0x19
0356 0120       |    |		Execute	Any,Is_Value
0357 6803       |h   |		Jump_Zero	0x35b
0358 e002       |    |		Load	0x0,0x2
0359 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
035a 7801       |x   |		Jump	0x35c
035b e228       | (  |		Load	0x1,0x28
035c e20e       |    |		Load	0x1,0xe
035d 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
035e 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
035f 0092 0401  |    |		Action	Push_String_Extended,0x401					; "Version_Extent"
0361 8230       | 0  |		Call	0x1,0x30
0362 c228       | (  |		Store	0x1,0x28
0363 e229       | )  |		Load	0x1,0x29							; Debug Table 0x8.0x19 = 0x363,0x1a
0364 0120       |    |		Execute	Any,Is_Value
0365 6803       |h   |		Jump_Zero	0x369
0366 e002       |    |		Load	0x0,0x2
0367 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0368 7801       |x   |		Jump	0x36a
0369 e229       | )  |		Load	0x1,0x29
036a e20e       |    |		Load	0x1,0xe
036b 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
036c 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
036d 0092 0402  |    |		Action	Push_String_Extended,0x402					; "Configuration_Extent"
036f 8230       | 0  |		Call	0x1,0x30
0370 c229       | )  |		Store	0x1,0x29
0371 e22a       | *  |		Load	0x1,0x2a							; Debug Table 0x8.0x1a = 0x371,0x1b
0372 0120       |    |		Execute	Any,Is_Value
0373 6803       |h   |		Jump_Zero	0x377
0374 e002       |    |		Load	0x0,0x2
0375 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0376 7801       |x   |		Jump	0x378
0377 e22a       | *  |		Load	0x1,0x2a
0378 e20e       |    |		Load	0x1,0xe
0379 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
037a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
037b 0092 0403  |    |		Action	Push_String_Extended,0x403					; "Show_Hidden_Fields"
037d 822f       | /  |		Call	0x1,0x2f
037e c22a       | *  |		Store	0x1,0x2a
037f e22b       | +  |		Load	0x1,0x2b							; Debug Table 0x8.0x1b = 0x37f,0x1c
0380 0120       |    |		Execute	Any,Is_Value
0381 6803       |h   |		Jump_Zero	0x385
0382 e002       |    |		Load	0x0,0x2
0383 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0384 7801       |x   |		Jump	0x386
0385 e22b       | +  |		Load	0x1,0x2b
0386 e20e       |    |		Load	0x1,0xe
0387 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0388 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0389 0092 0404  |    |		Action	Push_String_Extended,0x404					; "Show_All_Default_Orders"
038b 822f       | /  |		Call	0x1,0x2f
038c c22b       | +  |		Store	0x1,0x2b
038d e22c       | ,  |		Load	0x1,0x2c							; Debug Table 0x8.0x1c = 0x38d,0x1d
038e 0120       |    |		Execute	Any,Is_Value
038f 6803       |h   |		Jump_Zero	0x393
0390 e002       |    |		Load	0x0,0x2
0391 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0392 7801       |x   |		Jump	0x394
0393 e22c       | ,  |		Load	0x1,0x2c
0394 e20e       |    |		Load	0x1,0xe
0395 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0396 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0397 0092 0405  |    |		Action	Push_String_Extended,0x405					; "Show_All_Default_Lists"
0399 822f       | /  |		Call	0x1,0x2f
039a c22c       | ,  |		Store	0x1,0x2c
039b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
039c 0000 0000  |    |		.BLANK	0000[0x4]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3       |    |		.CONST	0x03a3								; Address of begin
03a1 03b2       |    |		.CONST	0x03b2								; Address of exception handler
03a2 0001       |    |		.CONST	0x0001								; Number of locals
03a3			BODY_03a0:
03a3			INIT_03a0:
03a3 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x9 = .DEBUG	0x03a3,0x0652,0x0004,0x0000,0x0058,0x6e65,0x0000,0x0305
													; Debug Table 0x9.0x0 = 0x3a3,0x1
03a4 0120       |    |		Execute	Any,Is_Value
03a5 6803       |h   |		Jump_Zero	0x3a9
03a6 e002       |    |		Load	0x0,0x2
03a7 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
03a8 7801       |x   |		Jump	0x3aa
03a9 e5fd       |    |		Load	0x2,-0x3
03aa e5fe       |    |		Load	0x2,-0x2
03ab e20f       |    |		Load	0x1,0xf
03ac e5ff       |    |		Load	0x2,-0x1
03ad 01cc       |    |		Execute	Vector,Catenate
03ae e002       |    |		Load	0x0,0x2
03af 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
03b0 c5fd       |    |		Store	0x2,-0x3
03b1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03b2			TRAP_03a0:
03b2 e002       |    |		Load	0x0,0x2
03b3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03b4 010f       |    |		Execute	Exception,Equal
03b5 6801       |h   |		Jump_Zero	0x3b7
03b6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x9.0x1 = 0x3b6,0x2
03b7 0100       |    |		Execute	Exception,Raise
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb       |    |		.CONST	0x03bb								; Address of begin
03b9 03ca       |    |		.CONST	0x03ca								; Address of exception handler
03ba 0001       |    |		.CONST	0x0001								; Number of locals
03bb			BODY_03b8:
03bb			INIT_03b8:
03bb e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xa = .DEBUG	0x03bb,0x0658,0x0004,0x0000,0x0058,0x6e65,0x0000,0x0347
													; Debug Table 0xa.0x0 = 0x3bb,0x1
03bc 0120       |    |		Execute	Any,Is_Value
03bd 6803       |h   |		Jump_Zero	0x3c1
03be e002       |    |		Load	0x0,0x2
03bf 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
03c0 7801       |x   |		Jump	0x3c2
03c1 e5fd       |    |		Load	0x2,-0x3
03c2 e5fe       |    |		Load	0x2,-0x2
03c3 e20f       |    |		Load	0x1,0xf
03c4 e5ff       |    |		Load	0x2,-0x1
03c5 01cc       |    |		Execute	Vector,Catenate
03c6 e002       |    |		Load	0x0,0x2
03c7 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
03c8 c5fd       |    |		Store	0x2,-0x3
03c9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03ca			TRAP_03b8:
03ca e002       |    |		Load	0x0,0x2
03cb 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03cc 010f       |    |		Execute	Exception,Equal
03cd 6801       |h   |		Jump_Zero	0x3cf
03ce 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0xa.0x1 = 0x3ce,0x2
03cf 0100       |    |		Execute	Exception,Raise
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3       |    |		.CONST	0x03d3								; Address of begin
03d1 03e2       |    |		.CONST	0x03e2								; Address of exception handler
03d2 0001       |    |		.CONST	0x0001								; Number of locals
03d3			BODY_03d0:
03d3			INIT_03d0:
03d3 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0xb = .DEBUG	0x03d3,0x065e,0x0004,0x0000,0x0058,0x6e65,0x0000,0x0389
													; Debug Table 0xb.0x0 = 0x3d3,0x1
03d4 0120       |    |		Execute	Any,Is_Value
03d5 6803       |h   |		Jump_Zero	0x3d9
03d6 e002       |    |		Load	0x0,0x2
03d7 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
03d8 7801       |x   |		Jump	0x3da
03d9 e5fd       |    |		Load	0x2,-0x3
03da e5fe       |    |		Load	0x2,-0x2
03db e20f       |    |		Load	0x1,0xf
03dc e5ff       |    |		Load	0x2,-0x1
03dd 01cc       |    |		Execute	Vector,Catenate
03de e002       |    |		Load	0x0,0x2
03df 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
03e0 c5fd       |    |		Store	0x2,-0x3
03e1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
03e2			TRAP_03d0:
03e2 e002       |    |		Load	0x0,0x2
03e3 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
03e4 010f       |    |		Execute	Exception,Equal
03e5 6801       |h   |		Jump_Zero	0x3e7
03e6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0xb.0x1 = 0x3e6,0x2
03e7 0100       |    |		Execute	Exception,Raise
03e8 ; --------------------------------------------------------------------------------------
03e8 ; STRING TABLE
03e8 ; --------------------------------------------------------------------------------------
03e8 003e       | >  |		.STRTAB	0x003e->0x0407							; "CMVC_"
03e9 0041       | A  |		.STRTAB	0x0041->0x0409							; "Show_Unit_State"
03ea 004e       | N  |		.STRTAB	0x004e->0x0411							; "Show_Edit_Info"
03eb 005a       | Z  |		.STRTAB	0x005a->0x0418							; "Show_Size"
03ec 0061       | a  |		.STRTAB	0x0061->0x041c							; "Show_Retention"
03ed 006d       | m  |		.STRTAB	0x006d->0x0423							; "Show_Frozen"
03ee 0076       | v  |		.STRTAB	0x0076->0x0429							; "Show_Version_Number"
03ef 0087       |    |		.STRTAB	0x0087->0x0432							; "Shorten_Name"
03f0 0091       |    |		.STRTAB	0x0091->0x0438							; "Shorten_Unit_State"
03f1 00a1       |    |		.STRTAB	0x00a1->0x0441							; "Break_Long_Lines"
03f2 00af       |    |		.STRTAB	0x00af->0x0449							; "Line_Length"
03f3 00b8       |    |		.STRTAB	0x00b8->0x044f							; "Indentation"
03f4 00c1       |    |		.STRTAB	0x00c1->0x0454							; "Capitalize"
03f5 00c9       |    |		.STRTAB	0x00c9->0x0459							; "Uppercase"
03f6 00d0       |    |		.STRTAB	0x00d0->0x045e							; "Show_Deleted_Versions"
03f7 00e3       |    |		.STRTAB	0x00e3->0x0468							; "Show_Deleted_Objects"
03f8 00f5       |    |		.STRTAB	0x00f5->0x0472							; "Show_Display_Position"
03f9 0108       |    |		.STRTAB	0x0108->0x047d							; "Show_Field_Max_Index"
03fa 011a       |    |		.STRTAB	0x011a->0x0487							; "Show_Field_Default"
03fb 012a       | *  |		.STRTAB	0x012a->0x0490							; "Show_Field_Type"
03fc 0137       | 7  |		.STRTAB	0x0137->0x0497							; "Field_Extent"
03fd 0141       | A  |		.STRTAB	0x0141->0x049d							; "Show_Add_Time"
03fe 014c       | L  |		.STRTAB	0x014c->0x04a4							; "Show_Add_Date"
03ff 0157       | W  |		.STRTAB	0x0157->0x04aa							; "Comment_Extent"
0400 0163       | c  |		.STRTAB	0x0163->0x04b1							; "Show_Users"
0401 016b       | k  |		.STRTAB	0x016b->0x04b6							; "Version_Extent"
0402 0177       | w  |		.STRTAB	0x0177->0x04bd							; "Configuration_Extent"
0403 0189       |    |		.STRTAB	0x0189->0x04c7							; "Show_Hidden_Fields"
0404 0199       |    |		.STRTAB	0x0199->0x04d0							; "Show_All_Default_Orders"
0405 01ae       |    |		.STRTAB	0x01ae->0x04dc							; "Show_All_Default_Lists"
0406 01c2       |    |		.STREND 0x01c2->0x04e7
0407 434d 5643  |CMVC|		.STRTAB_STRINGS
04e7 0000       |    |		.XXX[0x1]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; Debug Table
04e8 ; --------------------------------------------------------------------------------------
04e8 0003 000c  |    |		.CONST	0x0003,0x000c
04ea 000b 054a  |   J|		.DEBUG	0x000b,0x054a,0x8000,0x0000,0x0058,0x6a85,0x0000,0x0007
04f2 000e 054e  |   N|		.DEBUG	0x000e,0x054e,0x8000,0x0000,0x0058,0x6e65,0x0000,0x0009
04fa 00bb 05a0  |    |		.DEBUG	0x00bb,0x05a0,0x0001,0x0000,0x0058,0x6a85,0x0000,0x0008
0502 017b 05e8  | {  |		.DEBUG	0x017b,0x05e8,0x0002,0x0000,0x0058,0x6e65,0x0000,0x00f6
050a 018b 05ec  |    |		.DEBUG	0x018b,0x05ec,0x0002,0x0000,0x0058,0x6e65,0x0000,0x0111
0512 01a3 05f8  |    |		.DEBUG	0x01a3,0x05f8,0x0001,0x0000,0x0058,0x6e65,0x0000,0x02d8
051a 01c3 0602  |    |		.DEBUG	0x01c3,0x0602,0x0001,0x0000,0x0058,0x6e65,0x0000,0x031a
0522 01e3 060c  |    |		.DEBUG	0x01e3,0x060c,0x0001,0x0000,0x0058,0x6e65,0x0000,0x035c
052a 0203 0616  |    |		.DEBUG	0x0203,0x0616,0x0001,0x0000,0x0058,0x6e65,0x0000,0x039e
0532 03a3 0652  |   R|		.DEBUG	0x03a3,0x0652,0x0004,0x0000,0x0058,0x6e65,0x0000,0x0305
053a 03bb 0658  |   X|		.DEBUG	0x03bb,0x0658,0x0004,0x0000,0x0058,0x6e65,0x0000,0x0347
0542 03d3 065e  |   ^|		.DEBUG	0x03d3,0x065e,0x0004,0x0000,0x0058,0x6e65,0x0000,0x0389
054a ; --------------------------------------------------------------------------------------
054a ; Debug3 Subtable 0x0
054a ; --------------------------------------------------------------------------------------
054a 0001 0000  |    |		.DBG3TAB	0x0001,0x0000
054c 000b ffff  |    |		.CONST	0x000b,0xffff
054e ; --------------------------------------------------------------------------------------
054e ; Debug3 Subtable 0x1
054e ; --------------------------------------------------------------------------------------
054e 0027 0001  | '  |		.DBG3TAB	0x0027,0x0001
0550 000e ffff  |    |		.CONST	0x000e,0xffff
0552 000f fffe  |    |		.CONST	0x000f,0xfffe
0554 0011 fffd  |    |		.CONST	0x0011,0xfffd
0556 0013 fffc  |    |		.CONST	0x0013,0xfffc
0558 0018 fffb  |    |		.CONST	0x0018,0xfffb
055a 001d fffa  |    |		.CONST	0x001d,0xfffa
055c 0022 fff9  | "  |		.CONST	0x0022,0xfff9
055e 0027 fff8  | '  |		.CONST	0x0027,0xfff8
0560 002c fff7  | ,  |		.CONST	0x002c,0xfff7
0562 0031 fff6  | 1  |		.CONST	0x0031,0xfff6
0564 0036 fff5  | 6  |		.CONST	0x0036,0xfff5
0566 003b fff4  | ;  |		.CONST	0x003b,0xfff4
0568 0040 fff3  | @  |		.CONST	0x0040,0xfff3
056a 0045 fff2  | E  |		.CONST	0x0045,0xfff2
056c 004a fff1  | J  |		.CONST	0x004a,0xfff1
056e 004f fff0  | O  |		.CONST	0x004f,0xfff0
0570 0054 ffef  | T  |		.CONST	0x0054,0xffef
0572 0059 ffee  | Y  |		.CONST	0x0059,0xffee
0574 005e ffed  | ^  |		.CONST	0x005e,0xffed
0576 0063 ffec  | c  |		.CONST	0x0063,0xffec
0578 0068 ffeb  | h  |		.CONST	0x0068,0xffeb
057a 006d ffea  | m  |		.CONST	0x006d,0xffea
057c 0072 ffe9  | r  |		.CONST	0x0072,0xffe9
057e 0077 ffe8  | w  |		.CONST	0x0077,0xffe8
0580 007c ffe7  | |  |		.CONST	0x007c,0xffe7
0582 0081 ffe6  |    |		.CONST	0x0081,0xffe6
0584 0086 ffe5  |    |		.CONST	0x0086,0xffe5
0586 008b ffe4  |    |		.CONST	0x008b,0xffe4
0588 0090 ffe3  |    |		.CONST	0x0090,0xffe3
058a 0095 ffe2  |    |		.CONST	0x0095,0xffe2
058c 009a ffe1  |    |		.CONST	0x009a,0xffe1
058e 009f ffe0  |    |		.CONST	0x009f,0xffe0
0590 00a4 ffdf  |    |		.CONST	0x00a4,0xffdf
0592 00a6 ffde  |    |		.CONST	0x00a6,0xffde
0594 00a8 ffdd  |    |		.CONST	0x00a8,0xffdd
0596 00aa ffdc  |    |		.CONST	0x00aa,0xffdc
0598 00ac ffdb  |    |		.CONST	0x00ac,0xffdb
059a 00ae ffda  |    |		.CONST	0x00ae,0xffda
059c 00b0 ffd9  |    |		.CONST	0x00b0,0xffd9
059e 00b2 0001  |    |		.CONST	0x00b2,0x0001
05a0 ; --------------------------------------------------------------------------------------
05a0 ; Debug3 Subtable 0x2
05a0 ; --------------------------------------------------------------------------------------
05a0 0000 0023  |   #|		.DBG3TAB	0x0000,0x0023
05a2 00bb 0001  |    |		.CONST	0x00bb,0x0001
05a4 00be 0002  |    |		.CONST	0x00be,0x0002
05a6 00c3 0003  |    |		.CONST	0x00c3,0x0003
05a8 00c8 0004  |    |		.CONST	0x00c8,0x0004
05aa 00cd 0005  |    |		.CONST	0x00cd,0x0005
05ac 00d2 0006  |    |		.CONST	0x00d2,0x0006
05ae 00d7 0007  |    |		.CONST	0x00d7,0x0007
05b0 00dc 0008  |    |		.CONST	0x00dc,0x0008
05b2 00e1 0009  |    |		.CONST	0x00e1,0x0009
05b4 00e6 000a  |    |		.CONST	0x00e6,0x000a
05b6 00eb 000b  |    |		.CONST	0x00eb,0x000b
05b8 00f3 000c  |    |		.CONST	0x00f3,0x000c
05ba 00fb 000d  |    |		.CONST	0x00fb,0x000d
05bc 00fe 000e  |    |		.CONST	0x00fe,0x000e
05be 0103 000f  |    |		.CONST	0x0103,0x000f
05c0 0106 0010  |    |		.CONST	0x0106,0x0010
05c2 010b 0011  |    |		.CONST	0x010b,0x0011
05c4 010f 0012  |    |		.CONST	0x010f,0x0012
05c6 0114 0013  |    |		.CONST	0x0114,0x0013
05c8 0119 0014  |    |		.CONST	0x0119,0x0014
05ca 011e 0015  |    |		.CONST	0x011e,0x0015
05cc 0123 0016  | #  |		.CONST	0x0123,0x0016
05ce 012b 0017  | +  |		.CONST	0x012b,0x0017
05d0 0130 0018  | 0  |		.CONST	0x0130,0x0018
05d2 0135 0019  | 5  |		.CONST	0x0135,0x0019
05d4 013d 001a  | =  |		.CONST	0x013d,0x001a
05d6 0142 001b  | B  |		.CONST	0x0142,0x001b
05d8 014a 001c  | J  |		.CONST	0x014a,0x001c
05da 0152 001d  | R  |		.CONST	0x0152,0x001d
05dc 0157 001e  | W  |		.CONST	0x0157,0x001e
05de 015c 001f  | \  |		.CONST	0x015c,0x001f
05e0 0161 0020  | a  |		.CONST	0x0161,0x0020
05e2 0166 0021  | f !|		.CONST	0x0166,0x0021
05e4 016b 0022  | k "|		.CONST	0x016b,0x0022
05e6 0175 0023  | u #|		.CONST	0x0175,0x0023
05e8 ; --------------------------------------------------------------------------------------
05e8 ; Debug3 Subtable 0x3
05e8 ; --------------------------------------------------------------------------------------
05e8 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
05ea 017b 0001  | {  |		.CONST	0x017b,0x0001
05ec ; --------------------------------------------------------------------------------------
05ec ; Debug3 Subtable 0x4
05ec ; --------------------------------------------------------------------------------------
05ec 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
05ee 018b ffff  |    |		.CONST	0x018b,0xffff
05f0 018c 0001  |    |		.CONST	0x018c,0x0001
05f2 0194 0002  |    |		.CONST	0x0194,0x0002
05f4 0199 0003  |    |		.CONST	0x0199,0x0003
05f6 019b 0004  |    |		.CONST	0x019b,0x0004
05f8 ; --------------------------------------------------------------------------------------
05f8 ; Debug3 Subtable 0x5
05f8 ; --------------------------------------------------------------------------------------
05f8 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
05fa 01a3 ffff  |    |		.CONST	0x01a3,0xffff
05fc 01a6 0001  |    |		.CONST	0x01a6,0x0001
05fe 01a7 0002  |    |		.CONST	0x01a7,0x0002
0600 01b6 0003  |    |		.CONST	0x01b6,0x0003
0602 ; --------------------------------------------------------------------------------------
0602 ; Debug3 Subtable 0x6
0602 ; --------------------------------------------------------------------------------------
0602 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
0604 01c3 ffff  |    |		.CONST	0x01c3,0xffff
0606 01c6 0001  |    |		.CONST	0x01c6,0x0001
0608 01c7 0002  |    |		.CONST	0x01c7,0x0002
060a 01d6 0003  |    |		.CONST	0x01d6,0x0003
060c ; --------------------------------------------------------------------------------------
060c ; Debug3 Subtable 0x7
060c ; --------------------------------------------------------------------------------------
060c 0001 0003  |    |		.DBG3TAB	0x0001,0x0003
060e 01e3 ffff  |    |		.CONST	0x01e3,0xffff
0610 01e6 0001  |    |		.CONST	0x01e6,0x0001
0612 01e7 0002  |    |		.CONST	0x01e7,0x0002
0614 01f6 0003  |    |		.CONST	0x01f6,0x0003
0616 ; --------------------------------------------------------------------------------------
0616 ; Debug3 Subtable 0x8
0616 ; --------------------------------------------------------------------------------------
0616 0000 001d  |    |		.DBG3TAB	0x0000,0x001d
0618 0203 0001  |    |		.CONST	0x0203,0x0001
061a 0211 0002  |    |		.CONST	0x0211,0x0002
061c 021f 0003  |    |		.CONST	0x021f,0x0003
061e 022d 0004  | -  |		.CONST	0x022d,0x0004
0620 023b 0005  | ;  |		.CONST	0x023b,0x0005
0622 0249 0006  | I  |		.CONST	0x0249,0x0006
0624 0257 0007  | W  |		.CONST	0x0257,0x0007
0626 0265 0008  | e  |		.CONST	0x0265,0x0008
0628 0273 0009  | s  |		.CONST	0x0273,0x0009
062a 0281 000a  |    |		.CONST	0x0281,0x000a
062c 028f 000b  |    |		.CONST	0x028f,0x000b
062e 029d 000c  |    |		.CONST	0x029d,0x000c
0630 02ac 000d  |    |		.CONST	0x02ac,0x000d
0632 02bb 000e  |    |		.CONST	0x02bb,0x000e
0634 02c9 000f  |    |		.CONST	0x02c9,0x000f
0636 02d7 0010  |    |		.CONST	0x02d7,0x0010
0638 02e5 0011  |    |		.CONST	0x02e5,0x0011
063a 02f3 0012  |    |		.CONST	0x02f3,0x0012
063c 0301 0013  |    |		.CONST	0x0301,0x0013
063e 030f 0014  |    |		.CONST	0x030f,0x0014
0640 031d 0015  |    |		.CONST	0x031d,0x0015
0642 032b 0016  | +  |		.CONST	0x032b,0x0016
0644 0339 0017  | 9  |		.CONST	0x0339,0x0017
0646 0347 0018  | G  |		.CONST	0x0347,0x0018
0648 0355 0019  | U  |		.CONST	0x0355,0x0019
064a 0363 001a  | c  |		.CONST	0x0363,0x001a
064c 0371 001b  | q  |		.CONST	0x0371,0x001b
064e 037f 001c  |    |		.CONST	0x037f,0x001c
0650 038d 001d  |    |		.CONST	0x038d,0x001d
0652 ; --------------------------------------------------------------------------------------
0652 ; Debug3 Subtable 0x9
0652 ; --------------------------------------------------------------------------------------
0652 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0654 03a3 0001  |    |		.CONST	0x03a3,0x0001
0656 03b6 0002  |    |		.CONST	0x03b6,0x0002
0658 ; --------------------------------------------------------------------------------------
0658 ; Debug3 Subtable 0xa
0658 ; --------------------------------------------------------------------------------------
0658 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
065a 03bb 0001  |    |		.CONST	0x03bb,0x0001
065c 03ce 0002  |    |		.CONST	0x03ce,0x0002
065e ; --------------------------------------------------------------------------------------
065e ; Debug3 Subtable 0xb
065e ; --------------------------------------------------------------------------------------
065e 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
0660 03d3 0001  |    |		.CONST	0x03d3,0x0001
0662 03e6 0002  |    |		.CONST	0x03e6,0x0002
0664 0000 0000  |    |		.BLANK	0000[0x19c]