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

⟦b40a2ecb1⟧

    Length: 11264 (0x2c00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_02f8e7

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 1550       | P  |		.CONST	0x1550								; 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 800b       |    |		.CONST	0x800b								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0090       |    |		.CONST	0x0090								; Address of begin
0009 0092       |    |		.CONST	0x0092								; Address of exception handler
000a 002f       | /  |		.CONST	0x002f								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional
000c 0007       |    |		Action	Break_Optional
000d 0007       |    |		Action	Break_Optional
000e e001       |    |		Load	0x0,0x1
000f 194c       | L  |		Execute	Package,Field_Reference,Field_Number 0x4c
0010 0129       | )  |		Execute	Any,Make_Visible
0011 0007       |    |		Action	Break_Optional
0012 e001       |    |		Load	0x0,0x1
0013 194d       | M  |		Execute	Package,Field_Reference,Field_Number 0x4d
0014 0129       | )  |		Execute	Any,Make_Visible
0015 e001       |    |		Load	0x0,0x1
0016 1b96       |    |		Execute	Package,Field_Read,Field_Number 0x96
0017 0129       | )  |		Execute	Any,Make_Visible
0018 e001       |    |		Load	0x0,0x1
0019 1b8d       |    |		Execute	Package,Field_Read,Field_Number 0x8d
001a 0129       | )  |		Execute	Any,Make_Visible
001b e001       |    |		Load	0x0,0x1
001c 1b90       |    |		Execute	Package,Field_Read,Field_Number 0x90
001d 0129       | )  |		Execute	Any,Make_Visible
001e 0007       |    |		Action	Break_Optional
001f e001       |    |		Load	0x0,0x1
0020 193e       | >  |		Execute	Package,Field_Reference,Field_Number 0x3e
0021 0129       | )  |		Execute	Any,Make_Visible
0022 e001       |    |		Load	0x0,0x1
0023 193f       | ?  |		Execute	Package,Field_Reference,Field_Number 0x3f
0024 0129       | )  |		Execute	Any,Make_Visible
0025 e001       |    |		Load	0x0,0x1
0026 1940       | @  |		Execute	Package,Field_Reference,Field_Number 0x40
0027 0129       | )  |		Execute	Any,Make_Visible
0028 e001       |    |		Load	0x0,0x1
0029 1941       | A  |		Execute	Package,Field_Reference,Field_Number 0x41
002a 0129       | )  |		Execute	Any,Make_Visible
002b e001       |    |		Load	0x0,0x1
002c 1942       | B  |		Execute	Package,Field_Reference,Field_Number 0x42
002d 0129       | )  |		Execute	Any,Make_Visible
002e e001       |    |		Load	0x0,0x1
002f 1943       | C  |		Execute	Package,Field_Reference,Field_Number 0x43
0030 0129       | )  |		Execute	Any,Make_Visible
0031 e001       |    |		Load	0x0,0x1
0032 1944       | D  |		Execute	Package,Field_Reference,Field_Number 0x44
0033 0129       | )  |		Execute	Any,Make_Visible
0034 e001       |    |		Load	0x0,0x1
0035 1945       | E  |		Execute	Package,Field_Reference,Field_Number 0x45
0036 0129       | )  |		Execute	Any,Make_Visible
0037 e001       |    |		Load	0x0,0x1
0038 1946       | F  |		Execute	Package,Field_Reference,Field_Number 0x46
0039 0129       | )  |		Execute	Any,Make_Visible
003a e001       |    |		Load	0x0,0x1
003b 1947       | G  |		Execute	Package,Field_Reference,Field_Number 0x47
003c 0129       | )  |		Execute	Any,Make_Visible
003d e001       |    |		Load	0x0,0x1
003e 1948       | H  |		Execute	Package,Field_Reference,Field_Number 0x48
003f 0129       | )  |		Execute	Any,Make_Visible
0040 e001       |    |		Load	0x0,0x1
0041 1955       | U  |		Execute	Package,Field_Reference,Field_Number 0x55
0042 0129       | )  |		Execute	Any,Make_Visible
0043 e001       |    |		Load	0x0,0x1
0044 1956       | V  |		Execute	Package,Field_Reference,Field_Number 0x56
0045 0129       | )  |		Execute	Any,Make_Visible
0046 e001       |    |		Load	0x0,0x1
0047 1957       | W  |		Execute	Package,Field_Reference,Field_Number 0x57
0048 0129       | )  |		Execute	Any,Make_Visible
0049 e001       |    |		Load	0x0,0x1
004a 1958       | X  |		Execute	Package,Field_Reference,Field_Number 0x58
004b 0129       | )  |		Execute	Any,Make_Visible
004c e001       |    |		Load	0x0,0x1
004d 1959       | Y  |		Execute	Package,Field_Reference,Field_Number 0x59
004e 0129       | )  |		Execute	Any,Make_Visible
004f e001       |    |		Load	0x0,0x1
0050 195a       | Z  |		Execute	Package,Field_Reference,Field_Number 0x5a
0051 0129       | )  |		Execute	Any,Make_Visible
0052 e001       |    |		Load	0x0,0x1
0053 195b       | [  |		Execute	Package,Field_Reference,Field_Number 0x5b
0054 0129       | )  |		Execute	Any,Make_Visible
0055 e001       |    |		Load	0x0,0x1
0056 195c       | \  |		Execute	Package,Field_Reference,Field_Number 0x5c
0057 0129       | )  |		Execute	Any,Make_Visible
0058 e001       |    |		Load	0x0,0x1
0059 195d       | ]  |		Execute	Package,Field_Reference,Field_Number 0x5d
005a 0129       | )  |		Execute	Any,Make_Visible
005b e001       |    |		Load	0x0,0x1
005c 195e       | ^  |		Execute	Package,Field_Reference,Field_Number 0x5e
005d 0129       | )  |		Execute	Any,Make_Visible
005e e002       |    |		Load	0x0,0x2
005f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0060 0336       | 6  |		Declare_Variable	Array,Visible
0061 e002       |    |		Load	0x0,0x2
0062 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0063 0337       | 7  |		Declare_Variable	Array
0064 4864       |Hd  |		Short_Literal	0x64
0065 4801       |H   |		Short_Literal	0x1
0066 4800       |H   |		Short_Literal	0x0
0067 e22a       | *  |		Load	0x1,0x2a
0068 e228       | (  |		Load	0x1,0x28
0069 01d6       |    |		Execute	Vector,Field_Write
006a 3ffb       |?   |		Loop_Increasing	0x66
006b e227       | '  |		Load	0x1,0x27
006c 01d4       |    |		Execute	Vector,Structure_Write
006d 0007       |    |		Action	Break_Optional
006e 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0070 029a 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call,Visible,Unelaborated
0072 029a 0543  |   C|		Declare_Subprogram	INIT_0540,For_Outer_Call,Visible,Unelaborated
0074 029a 0583  |    |		Declare_Subprogram	INIT_0580,For_Outer_Call,Visible,Unelaborated
0076 029a 058b  |    |		Declare_Subprogram	INIT_0588,For_Outer_Call,Visible,Unelaborated
0078 00c4       |    |		Action	Make_Default
0079 00c4       |    |		Action	Make_Default
007a 00c4       |    |		Action	Make_Default
007b 029a 0593  |    |		Declare_Subprogram	INIT_0590,For_Outer_Call,Visible,Unelaborated
007d c22e       | .  |		Store	0x1,0x2e
007e 00bf       |    |		Action	Accept_Activation
007f 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 0007       |    |		Action	Break_Optional
0082 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0083 00c7       |    |		Action	Elaborate_Subprogram
0084 0007       |    |		Action	Break_Optional
0085 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 0007       |    |		Action	Break_Optional
0088 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
0089 00c7       |    |		Action	Elaborate_Subprogram
008a 0007       |    |		Action	Break_Optional
008b 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
008c 00c7       |    |		Action	Elaborate_Subprogram
008d 0007       |    |		Action	Break_Optional
008e 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
008f 00c7       |    |		Action	Elaborate_Subprogram
0090			BODY_0008:
0090 00bc       |    |		Action	Signal_Activated
0091 00bb       |    |		Action	Signal_Completion
0092			TRAP_0008:
0092 010e       |    |		Execute	Exception,Is_Constraint_Error
0093 6806       |h   |		Jump_Zero	0x9a
0094 0092 0b6a  |   j|		Action	Push_String_Extended,0xb6a					; "Constraint error in def."
0096 e003       |    |		Load	0x0,0x3
0097 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0098 00bc       |    |		Action	Signal_Activated
0099 00bb       |    |		Action	Signal_Completion
009a 010d       |    |		Execute	Exception,Is_Numeric_Error
009b 6806       |h   |		Jump_Zero	0xa2
009c 0092 0b6b  |   k|		Action	Push_String_Extended,0xb6b					; "Numeric error in def."
009e e003       |    |		Load	0x0,0x3
009f 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00a0 00bc       |    |		Action	Signal_Activated
00a1 00bb       |    |		Action	Signal_Completion
00a2 010c       |    |		Execute	Exception,Is_Program_Error
00a3 6806       |h   |		Jump_Zero	0xaa
00a4 0092 0b6c  |   l|		Action	Push_String_Extended,0xb6c					; "Program error in def."
00a6 e003       |    |		Load	0x0,0x3
00a7 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00a8 00bc       |    |		Action	Signal_Activated
00a9 00bb       |    |		Action	Signal_Completion
00aa 010b       |    |		Execute	Exception,Is_Storage_Error
00ab 6806       |h   |		Jump_Zero	0xb2
00ac 0092 0b6d  |   m|		Action	Push_String_Extended,0xb6d					; "Storage error in def."
00ae e003       |    |		Load	0x0,0x3
00af 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00b0 00bc       |    |		Action	Signal_Activated
00b1 00bb       |    |		Action	Signal_Completion
00b2 010a       |    |		Execute	Exception,Is_Tasking_Error
00b3 6806       |h   |		Jump_Zero	0xba
00b4 0092 0b6e  |   n|		Action	Push_String_Extended,0xb6e					; "Tasking error in def."
00b6 e003       |    |		Load	0x0,0x3
00b7 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00b8 00bc       |    |		Action	Signal_Activated
00b9 00bb       |    |		Action	Signal_Completion
00ba 0092 0b6f  |   o|		Action	Push_String_Extended,0xb6f					; "Other Program error in def."
00bc e003       |    |		Load	0x0,0x3
00bd 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00be 0092 0b70  |   p|		Action	Push_String_Extended,0xb70					; "   Exception in ap_customer_def."
00c0 e003       |    |		Load	0x0,0x3
00c1 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00c2 00bc       |    |		Action	Signal_Activated
00c3 00bb       |    |		Action	Signal_Completion
00c4 0000 0000  |    |		.BLANK	0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 031e       |    |		.CONST	0x031e								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb 4803       |H   |		Short_Literal	0x3
00cc e210       |    |		Load	0x1,0x10
00cd 01d7       |    |		Execute	Vector,Field_Read
00ce e001       |    |		Load	0x0,0x1
00cf 18a1       |    |		Execute	Package,Field_Execute,Field_Number 0xa1
00d0 00d1       |    |		Pop_Control	Pop_Count_1
00d1 4803       |H   |		Short_Literal	0x3
00d2 e210       |    |		Load	0x1,0x10
00d3 01d7       |    |		Execute	Vector,Field_Read
00d4 4be7       |K   |		Short_Literal	0x3e7
00d5 4802       |H   |		Short_Literal	0x2
00d6 4be7       |K   |		Short_Literal	0x3e7
00d7 4802       |H   |		Short_Literal	0x2
00d8 4802       |H   |		Short_Literal	0x2
00d9 4be7       |K   |		Short_Literal	0x3e7
00da 4be7       |K   |		Short_Literal	0x3e7
00db 0092 0b71  |   q|		Action	Push_String_Extended,0xb71					; " Rational Customer Support Systems "
00dd e212       |    |		Load	0x1,0x12
00de e001       |    |		Load	0x0,0x1
00df 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
00e0 00d1       |    |		Pop_Control	Pop_Count_1
00e1 4803       |H   |		Short_Literal	0x3
00e2 e210       |    |		Load	0x1,0x10
00e3 01d7       |    |		Execute	Vector,Field_Read
00e4 4be7       |K   |		Short_Literal	0x3e7
00e5 4802       |H   |		Short_Literal	0x2
00e6 4804       |H   |		Short_Literal	0x4
00e7 4802       |H   |		Short_Literal	0x2
00e8 4802       |H   |		Short_Literal	0x2
00e9 4be7       |K   |		Short_Literal	0x3e7
00ea 4be7       |K   |		Short_Literal	0x3e7
00eb 0092 0b72  |   r|		Action	Push_String_Extended,0xb72					; "\x5cdefault\x5c"
00ed e213       |    |		Load	0x1,0x13
00ee e001       |    |		Load	0x0,0x1
00ef 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
00f0 00d1       |    |		Pop_Control	Pop_Count_1
00f1 4803       |H   |		Short_Literal	0x3
00f2 e210       |    |		Load	0x1,0x10
00f3 01d7       |    |		Execute	Vector,Field_Read
00f4 4be7       |K   |		Short_Literal	0x3e7
00f5 4802       |H   |		Short_Literal	0x2
00f6 4be7       |K   |		Short_Literal	0x3e7
00f7 4802       |H   |		Short_Literal	0x2
00f8 4802       |H   |		Short_Literal	0x2
00f9 4be7       |K   |		Short_Literal	0x3e7
00fa 4be7       |K   |		Short_Literal	0x3e7
00fb 0092 0b73  |   s|		Action	Push_String_Extended,0xb73					; "Command:"
00fd e214       |    |		Load	0x1,0x14
00fe e001       |    |		Load	0x0,0x1
00ff 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0100 00d1       |    |		Pop_Control	Pop_Count_1
0101 4803       |H   |		Short_Literal	0x3
0102 e210       |    |		Load	0x1,0x10
0103 01d7       |    |		Execute	Vector,Field_Read
0104 4be7       |K   |		Short_Literal	0x3e7
0105 4802       |H   |		Short_Literal	0x2
0106 4be7       |K   |		Short_Literal	0x3e7
0107 4802       |H   |		Short_Literal	0x2
0108 4802       |H   |		Short_Literal	0x2
0109 4be7       |K   |		Short_Literal	0x3e7
010a 4be7       |K   |		Short_Literal	0x3e7
010b 0092 0b74  |   t|		Action	Push_String_Extended,0xb74					; "  Main Command: (or ?):"
010d e216       |    |		Load	0x1,0x16
010e e001       |    |		Load	0x0,0x1
010f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0110 00d1       |    |		Pop_Control	Pop_Count_1
0111 4803       |H   |		Short_Literal	0x3
0112 e210       |    |		Load	0x1,0x10
0113 01d7       |    |		Execute	Vector,Field_Read
0114 4be7       |K   |		Short_Literal	0x3e7
0115 4802       |H   |		Short_Literal	0x2
0116 4801       |H   |		Short_Literal	0x1
0117 e20e       |    |		Load	0x1,0xe
0118 4802       |H   |		Short_Literal	0x2
0119 4be7       |K   |		Short_Literal	0x3e7
011a 4be7       |K   |		Short_Literal	0x3e7
011b 0092 0b75  |   u|		Action	Push_String_Extended,0xb75					; "Enter Problem or Support Request"
011d 4805       |H   |		Short_Literal	0x5
011e e001       |    |		Load	0x0,0x1
011f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0120 00d1       |    |		Pop_Control	Pop_Count_1
0121 4803       |H   |		Short_Literal	0x3
0122 e210       |    |		Load	0x1,0x10
0123 01d7       |    |		Execute	Vector,Field_Read
0124 4be7       |K   |		Short_Literal	0x3e7
0125 4802       |H   |		Short_Literal	0x2
0126 4802       |H   |		Short_Literal	0x2
0127 e20e       |    |		Load	0x1,0xe
0128 4802       |H   |		Short_Literal	0x2
0129 4be7       |K   |		Short_Literal	0x3e7
012a 4be7       |K   |		Short_Literal	0x3e7
012b 0092 0b76  |   v|		Action	Push_String_Extended,0xb76					; "Support Request Maintenance"
012d 4807       |H   |		Short_Literal	0x7
012e e001       |    |		Load	0x0,0x1
012f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0130 00d1       |    |		Pop_Control	Pop_Count_1
0131 4803       |H   |		Short_Literal	0x3
0132 e210       |    |		Load	0x1,0x10
0133 01d7       |    |		Execute	Vector,Field_Read
0134 4be7       |K   |		Short_Literal	0x3e7
0135 4802       |H   |		Short_Literal	0x2
0136 4803       |H   |		Short_Literal	0x3
0137 e20e       |    |		Load	0x1,0xe
0138 4802       |H   |		Short_Literal	0x2
0139 4be7       |K   |		Short_Literal	0x3e7
013a 4be7       |K   |		Short_Literal	0x3e7
013b 0092 0b77  |   w|		Action	Push_String_Extended,0xb77					; "Help Information Display"
013d 4809       |H   |		Short_Literal	0x9
013e e001       |    |		Load	0x0,0x1
013f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0140 00d1       |    |		Pop_Control	Pop_Count_1
0141 4803       |H   |		Short_Literal	0x3
0142 e210       |    |		Load	0x1,0x10
0143 01d7       |    |		Execute	Vector,Field_Read
0144 4be7       |K   |		Short_Literal	0x3e7
0145 4802       |H   |		Short_Literal	0x2
0146 4804       |H   |		Short_Literal	0x4
0147 e20e       |    |		Load	0x1,0xe
0148 4802       |H   |		Short_Literal	0x2
0149 4be7       |K   |		Short_Literal	0x3e7
014a 4be7       |K   |		Short_Literal	0x3e7
014b 0092 0b78  |   x|		Action	Push_String_Extended,0xb78					; "Quit this application. "
014d 480b       |H   |		Short_Literal	0xb
014e e001       |    |		Load	0x0,0x1
014f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0150 00d1       |    |		Pop_Control	Pop_Count_1
0151 4803       |H   |		Short_Literal	0x3
0152 e210       |    |		Load	0x1,0x10
0153 01d7       |    |		Execute	Vector,Field_Read
0154 4be7       |K   |		Short_Literal	0x3e7
0155 4802       |H   |		Short_Literal	0x2
0156 4be7       |K   |		Short_Literal	0x3e7
0157 4802       |H   |		Short_Literal	0x2
0158 4802       |H   |		Short_Literal	0x2
0159 4be7       |K   |		Short_Literal	0x3e7
015a 4be7       |K   |		Short_Literal	0x3e7
015b 0092 0b79  |   y|		Action	Push_String_Extended,0xb79					; "1"
015d e217       |    |		Load	0x1,0x17
015e e001       |    |		Load	0x0,0x1
015f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0160 00d1       |    |		Pop_Control	Pop_Count_1
0161 4803       |H   |		Short_Literal	0x3
0162 e210       |    |		Load	0x1,0x10
0163 01d7       |    |		Execute	Vector,Field_Read
0164 4be7       |K   |		Short_Literal	0x3e7
0165 4802       |H   |		Short_Literal	0x2
0166 4be7       |K   |		Short_Literal	0x3e7
0167 4802       |H   |		Short_Literal	0x2
0168 4802       |H   |		Short_Literal	0x2
0169 4be7       |K   |		Short_Literal	0x3e7
016a 4be7       |K   |		Short_Literal	0x3e7
016b 0092 0b7a  |   z|		Action	Push_String_Extended,0xb7a					; "Please enter a numeric command selection and hit return."
016d e21a       |    |		Load	0x1,0x1a
016e e001       |    |		Load	0x0,0x1
016f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0170 00d1       |    |		Pop_Control	Pop_Count_1
0171 0007       |    |		Action	Break_Optional
0172 4807       |H   |		Short_Literal	0x7
0173 e210       |    |		Load	0x1,0x10
0174 01d7       |    |		Execute	Vector,Field_Read
0175 e001       |    |		Load	0x0,0x1
0176 18a1       |    |		Execute	Package,Field_Execute,Field_Number 0xa1
0177 00d1       |    |		Pop_Control	Pop_Count_1
0178 4807       |H   |		Short_Literal	0x7
0179 e210       |    |		Load	0x1,0x10
017a 01d7       |    |		Execute	Vector,Field_Read
017b 4be7       |K   |		Short_Literal	0x3e7
017c 4802       |H   |		Short_Literal	0x2
017d 4be7       |K   |		Short_Literal	0x3e7
017e 4802       |H   |		Short_Literal	0x2
017f 4802       |H   |		Short_Literal	0x2
0180 4be7       |K   |		Short_Literal	0x3e7
0181 4be7       |K   |		Short_Literal	0x3e7
0182 0092 0b7b  |   {|		Action	Push_String_Extended,0xb7b					; "Customer Support Application Help"
0184 e212       |    |		Load	0x1,0x12
0185 e001       |    |		Load	0x0,0x1
0186 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0187 00d1       |    |		Pop_Control	Pop_Count_1
0188 4807       |H   |		Short_Literal	0x7
0189 e210       |    |		Load	0x1,0x10
018a 01d7       |    |		Execute	Vector,Field_Read
018b 4be7       |K   |		Short_Literal	0x3e7
018c 4802       |H   |		Short_Literal	0x2
018d 4be7       |K   |		Short_Literal	0x3e7
018e 4802       |H   |		Short_Literal	0x2
018f 4802       |H   |		Short_Literal	0x2
0190 4be7       |K   |		Short_Literal	0x3e7
0191 4be7       |K   |		Short_Literal	0x3e7
0192 0092 0b7c  |   ||		Action	Push_String_Extended,0xb7c					; "Overview: "
0194 4801       |H   |		Short_Literal	0x1
0195 e001       |    |		Load	0x0,0x1
0196 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0197 00d1       |    |		Pop_Control	Pop_Count_1
0198 4807       |H   |		Short_Literal	0x7
0199 e210       |    |		Load	0x1,0x10
019a 01d7       |    |		Execute	Vector,Field_Read
019b 4be7       |K   |		Short_Literal	0x3e7
019c 4802       |H   |		Short_Literal	0x2
019d 4be7       |K   |		Short_Literal	0x3e7
019e 4802       |H   |		Short_Literal	0x2
019f 4802       |H   |		Short_Literal	0x2
01a0 4be7       |K   |		Short_Literal	0x3e7
01a1 4be7       |K   |		Short_Literal	0x3e7
01a2 0092 0b7d  |   }|		Action	Push_String_Extended,0xb7d					; "   The Support Information Management System (SIMS) includes two"
01a4 4802       |H   |		Short_Literal	0x2
01a5 e001       |    |		Load	0x0,0x1
01a6 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
01a7 00d1       |    |		Pop_Control	Pop_Count_1
01a8 4807       |H   |		Short_Literal	0x7
01a9 e210       |    |		Load	0x1,0x10
01aa 01d7       |    |		Execute	Vector,Field_Read
01ab 4be7       |K   |		Short_Literal	0x3e7
01ac 4802       |H   |		Short_Literal	0x2
01ad 4be7       |K   |		Short_Literal	0x3e7
01ae 4802       |H   |		Short_Literal	0x2
01af 4802       |H   |		Short_Literal	0x2
01b0 4be7       |K   |		Short_Literal	0x3e7
01b1 4be7       |K   |		Short_Literal	0x3e7
01b2 0092 0b7e  |   ~|		Action	Push_String_Extended,0xb7e					; "tools called Request and Review for external use by customers."
01b4 4803       |H   |		Short_Literal	0x3
01b5 e001       |    |		Load	0x0,0x1
01b6 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
01b7 00d1       |    |		Pop_Control	Pop_Count_1
01b8 4807       |H   |		Short_Literal	0x7
01b9 e210       |    |		Load	0x1,0x10
01ba 01d7       |    |		Execute	Vector,Field_Read
01bb 4be7       |K   |		Short_Literal	0x3e7
01bc 4802       |H   |		Short_Literal	0x2
01bd 4be7       |K   |		Short_Literal	0x3e7
01be 4802       |H   |		Short_Literal	0x2
01bf 4802       |H   |		Short_Literal	0x2
01c0 4be7       |K   |		Short_Literal	0x3e7
01c1 4be7       |K   |		Short_Literal	0x3e7
01c2 0092 0b7f  |    |		Action	Push_String_Extended,0xb7f					; "The Request program is intended for use by end users wishing to"
01c4 4804       |H   |		Short_Literal	0x4
01c5 e001       |    |		Load	0x0,0x1
01c6 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
01c7 00d1       |    |		Pop_Control	Pop_Count_1
01c8 4807       |H   |		Short_Literal	0x7
01c9 e210       |    |		Load	0x1,0x10
01ca 01d7       |    |		Execute	Vector,Field_Read
01cb 4be7       |K   |		Short_Literal	0x3e7
01cc 4802       |H   |		Short_Literal	0x2
01cd 4be7       |K   |		Short_Literal	0x3e7
01ce 4802       |H   |		Short_Literal	0x2
01cf 4802       |H   |		Short_Literal	0x2
01d0 4be7       |K   |		Short_Literal	0x3e7
01d1 4be7       |K   |		Short_Literal	0x3e7
01d2 0092 0b80  |    |		Action	Push_String_Extended,0xb80					; "enter requests or report problems, while the Review program is"
01d4 4805       |H   |		Short_Literal	0x5
01d5 e001       |    |		Load	0x0,0x1
01d6 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
01d7 00d1       |    |		Pop_Control	Pop_Count_1
01d8 4807       |H   |		Short_Literal	0x7
01d9 e210       |    |		Load	0x1,0x10
01da 01d7       |    |		Execute	Vector,Field_Read
01db 4be7       |K   |		Short_Literal	0x3e7
01dc 4802       |H   |		Short_Literal	0x2
01dd 4be7       |K   |		Short_Literal	0x3e7
01de 4802       |H   |		Short_Literal	0x2
01df 4802       |H   |		Short_Literal	0x2
01e0 4be7       |K   |		Short_Literal	0x3e7
01e1 4be7       |K   |		Short_Literal	0x3e7
01e2 0092 0b81  |    |		Action	Push_String_Extended,0xb81					; "provided for the local system manager to manage and forward these"
01e4 4806       |H   |		Short_Literal	0x6
01e5 e001       |    |		Load	0x0,0x1
01e6 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
01e7 00d1       |    |		Pop_Control	Pop_Count_1
01e8 4807       |H   |		Short_Literal	0x7
01e9 e210       |    |		Load	0x1,0x10
01ea 01d7       |    |		Execute	Vector,Field_Read
01eb 4be7       |K   |		Short_Literal	0x3e7
01ec 4802       |H   |		Short_Literal	0x2
01ed 4be7       |K   |		Short_Literal	0x3e7
01ee 4802       |H   |		Short_Literal	0x2
01ef 4802       |H   |		Short_Literal	0x2
01f0 4be7       |K   |		Short_Literal	0x3e7
01f1 4be7       |K   |		Short_Literal	0x3e7
01f2 0092 0b82  |    |		Action	Push_String_Extended,0xb82					; "problems to Rational when appropriate."
01f4 4807       |H   |		Short_Literal	0x7
01f5 e001       |    |		Load	0x0,0x1
01f6 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
01f7 00d1       |    |		Pop_Control	Pop_Count_1
01f8 4807       |H   |		Short_Literal	0x7
01f9 e210       |    |		Load	0x1,0x10
01fa 01d7       |    |		Execute	Vector,Field_Read
01fb 4be7       |K   |		Short_Literal	0x3e7
01fc 4802       |H   |		Short_Literal	0x2
01fd 4be7       |K   |		Short_Literal	0x3e7
01fe 4802       |H   |		Short_Literal	0x2
01ff 4802       |H   |		Short_Literal	0x2
0200 4be7       |K   |		Short_Literal	0x3e7
0201 4be7       |K   |		Short_Literal	0x3e7
0202 0092 0b83  |    |		Action	Push_String_Extended,0xb83					; "   These Customer Support Applications are intended as a way to help"
0204 4808       |H   |		Short_Literal	0x8
0205 e001       |    |		Load	0x0,0x1
0206 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0207 00d1       |    |		Pop_Control	Pop_Count_1
0208 4807       |H   |		Short_Literal	0x7
0209 e210       |    |		Load	0x1,0x10
020a 01d7       |    |		Execute	Vector,Field_Read
020b 4be7       |K   |		Short_Literal	0x3e7
020c 4802       |H   |		Short_Literal	0x2
020d 4be7       |K   |		Short_Literal	0x3e7
020e 4802       |H   |		Short_Literal	0x2
020f 4802       |H   |		Short_Literal	0x2
0210 4be7       |K   |		Short_Literal	0x3e7
0211 4be7       |K   |		Short_Literal	0x3e7
0212 0092 0b84  |    |		Action	Push_String_Extended,0xb84					; "our customers manage and track problem reports or requests locally."
0214 4809       |H   |		Short_Literal	0x9
0215 e001       |    |		Load	0x0,0x1
0216 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0217 00d1       |    |		Pop_Control	Pop_Count_1
0218 4807       |H   |		Short_Literal	0x7
0219 e210       |    |		Load	0x1,0x10
021a 01d7       |    |		Execute	Vector,Field_Read
021b 4be7       |K   |		Short_Literal	0x3e7
021c 4802       |H   |		Short_Literal	0x2
021d 4be7       |K   |		Short_Literal	0x3e7
021e 4802       |H   |		Short_Literal	0x2
021f 4802       |H   |		Short_Literal	0x2
0220 4be7       |K   |		Short_Literal	0x3e7
0221 4be7       |K   |		Short_Literal	0x3e7
0222 0092 0b85  |    |		Action	Push_String_Extended,0xb85					; "The Request program allows various users on your system to"
0224 480a       |H   |		Short_Literal	0xa
0225 e001       |    |		Load	0x0,0x1
0226 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0227 00d1       |    |		Pop_Control	Pop_Count_1
0228 4807       |H   |		Short_Literal	0x7
0229 e210       |    |		Load	0x1,0x10
022a 01d7       |    |		Execute	Vector,Field_Read
022b 4be7       |K   |		Short_Literal	0x3e7
022c 4802       |H   |		Short_Literal	0x2
022d 4be7       |K   |		Short_Literal	0x3e7
022e 4802       |H   |		Short_Literal	0x2
022f 4802       |H   |		Short_Literal	0x2
0230 4be7       |K   |		Short_Literal	0x3e7
0231 4be7       |K   |		Short_Literal	0x3e7
0232 0092 0b86  |    |		Action	Push_String_Extended,0xb86					; "directly and easily log problem reports using the full editing and"
0234 480b       |H   |		Short_Literal	0xb
0235 e001       |    |		Load	0x0,0x1
0236 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0237 00d1       |    |		Pop_Control	Pop_Count_1
0238 4807       |H   |		Short_Literal	0x7
0239 e210       |    |		Load	0x1,0x10
023a 01d7       |    |		Execute	Vector,Field_Read
023b 4be7       |K   |		Short_Literal	0x3e7
023c 4802       |H   |		Short_Literal	0x2
023d 4be7       |K   |		Short_Literal	0x3e7
023e 4802       |H   |		Short_Literal	0x2
023f 4802       |H   |		Short_Literal	0x2
0240 4be7       |K   |		Short_Literal	0x3e7
0241 4be7       |K   |		Short_Literal	0x3e7
0242 0092 0b87  |    |		Action	Push_String_Extended,0xb87					; "command convenience of the R1000 Environment such as region copy or"
0244 480c       |H   |		Short_Literal	0xc
0245 e001       |    |		Load	0x0,0x1
0246 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0247 00d1       |    |		Pop_Control	Pop_Count_1
0248 4807       |H   |		Short_Literal	0x7
0249 e210       |    |		Load	0x1,0x10
024a 01d7       |    |		Execute	Vector,Field_Read
024b 4be7       |K   |		Short_Literal	0x3e7
024c 4802       |H   |		Short_Literal	0x2
024d 4be7       |K   |		Short_Literal	0x3e7
024e 4802       |H   |		Short_Literal	0x2
024f 4802       |H   |		Short_Literal	0x2
0250 4be7       |K   |		Short_Literal	0x3e7
0251 4be7       |K   |		Short_Literal	0x3e7
0252 0092 0b88  |    |		Action	Push_String_Extended,0xb88					; "other editing commands.   These problem or request reports are then"
0254 480d       |H   |		Short_Literal	0xd
0255 e001       |    |		Load	0x0,0x1
0256 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0257 00d1       |    |		Pop_Control	Pop_Count_1
0258 4807       |H   |		Short_Literal	0x7
0259 e210       |    |		Load	0x1,0x10
025a 01d7       |    |		Execute	Vector,Field_Read
025b 4be7       |K   |		Short_Literal	0x3e7
025c 4802       |H   |		Short_Literal	0x2
025d 4be7       |K   |		Short_Literal	0x3e7
025e 4802       |H   |		Short_Literal	0x2
025f 4802       |H   |		Short_Literal	0x2
0260 4be7       |K   |		Short_Literal	0x3e7
0261 4be7       |K   |		Short_Literal	0x3e7
0262 0092 0b89  |    |		Action	Push_String_Extended,0xb89					; "forwarded to a local request database for review and action by the"
0264 480e       |H   |		Short_Literal	0xe
0265 e001       |    |		Load	0x0,0x1
0266 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0267 00d1       |    |		Pop_Control	Pop_Count_1
0268 4807       |H   |		Short_Literal	0x7
0269 e210       |    |		Load	0x1,0x10
026a 01d7       |    |		Execute	Vector,Field_Read
026b 4be7       |K   |		Short_Literal	0x3e7
026c 4802       |H   |		Short_Literal	0x2
026d 4be7       |K   |		Short_Literal	0x3e7
026e 4802       |H   |		Short_Literal	0x2
026f 4802       |H   |		Short_Literal	0x2
0270 4be7       |K   |		Short_Literal	0x3e7
0271 4be7       |K   |		Short_Literal	0x3e7
0272 0092 0b8a  |    |		Action	Push_String_Extended,0xb8a					; "site's technical system manager.   The system manager then uses the"
0274 480f       |H   |		Short_Literal	0xf
0275 e001       |    |		Load	0x0,0x1
0276 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0277 00d1       |    |		Pop_Control	Pop_Count_1
0278 4807       |H   |		Short_Literal	0x7
0279 e210       |    |		Load	0x1,0x10
027a 01d7       |    |		Execute	Vector,Field_Read
027b 4be7       |K   |		Short_Literal	0x3e7
027c 4802       |H   |		Short_Literal	0x2
027d 4be7       |K   |		Short_Literal	0x3e7
027e 4802       |H   |		Short_Literal	0x2
027f 4802       |H   |		Short_Literal	0x2
0280 4be7       |K   |		Short_Literal	0x3e7
0281 4be7       |K   |		Short_Literal	0x3e7
0282 0092 0b8b  |    |		Action	Push_String_Extended,0xb8b					; "Review program to review, edit, display, report, make notes,"
0284 4810       |H   |		Short_Literal	0x10
0285 e001       |    |		Load	0x0,0x1
0286 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0287 00d1       |    |		Pop_Control	Pop_Count_1
0288 4807       |H   |		Short_Literal	0x7
0289 e210       |    |		Load	0x1,0x10
028a 01d7       |    |		Execute	Vector,Field_Read
028b 4be7       |K   |		Short_Literal	0x3e7
028c 4802       |H   |		Short_Literal	0x2
028d 4be7       |K   |		Short_Literal	0x3e7
028e 4802       |H   |		Short_Literal	0x2
028f 4802       |H   |		Short_Literal	0x2
0290 4be7       |K   |		Short_Literal	0x3e7
0291 4be7       |K   |		Short_Literal	0x3e7
0292 0092 0b8c  |    |		Action	Push_String_Extended,0xb8c					; "etc.   Those requests that the system manager deems appropriate can"
0294 4811       |H   |		Short_Literal	0x11
0295 e001       |    |		Load	0x0,0x1
0296 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0297 00d1       |    |		Pop_Control	Pop_Count_1
0298 4807       |H   |		Short_Literal	0x7
0299 e210       |    |		Load	0x1,0x10
029a 01d7       |    |		Execute	Vector,Field_Read
029b 4be7       |K   |		Short_Literal	0x3e7
029c 4802       |H   |		Short_Literal	0x2
029d 4be7       |K   |		Short_Literal	0x3e7
029e 4802       |H   |		Short_Literal	0x2
029f 4802       |H   |		Short_Literal	0x2
02a0 4be7       |K   |		Short_Literal	0x3e7
02a1 4be7       |K   |		Short_Literal	0x3e7
02a2 0092 0b8d  |    |		Action	Push_String_Extended,0xb8d					; "then easily be forwarded directly to Rational without any additional"
02a4 4812       |H   |		Short_Literal	0x12
02a5 e001       |    |		Load	0x0,0x1
02a6 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
02a7 00d1       |    |		Pop_Control	Pop_Count_1
02a8 4807       |H   |		Short_Literal	0x7
02a9 e210       |    |		Load	0x1,0x10
02aa 01d7       |    |		Execute	Vector,Field_Read
02ab 4be7       |K   |		Short_Literal	0x3e7
02ac 4802       |H   |		Short_Literal	0x2
02ad 4be7       |K   |		Short_Literal	0x3e7
02ae 4802       |H   |		Short_Literal	0x2
02af 4802       |H   |		Short_Literal	0x2
02b0 4be7       |K   |		Short_Literal	0x3e7
02b1 4be7       |K   |		Short_Literal	0x3e7
02b2 0092 0b8e  |    |		Action	Push_String_Extended,0xb8e					; "typing needed.   Once Rational receives the requests or problems"
02b4 4813       |H   |		Short_Literal	0x13
02b5 e001       |    |		Load	0x0,0x1
02b6 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
02b7 00d1       |    |		Pop_Control	Pop_Count_1
02b8 4807       |H   |		Short_Literal	0x7
02b9 e210       |    |		Load	0x1,0x10
02ba 01d7       |    |		Execute	Vector,Field_Read
02bb 4be7       |K   |		Short_Literal	0x3e7
02bc 4802       |H   |		Short_Literal	0x2
02bd 4be7       |K   |		Short_Literal	0x3e7
02be 4802       |H   |		Short_Literal	0x2
02bf 4802       |H   |		Short_Literal	0x2
02c0 4be7       |K   |		Short_Literal	0x3e7
02c1 4be7       |K   |		Short_Literal	0x3e7
02c2 0092 0b8f  |    |		Action	Push_String_Extended,0xb8f					; "from your local SIMS database, these various requests or problems are"
02c4 4814       |H   |		Short_Literal	0x14
02c5 e001       |    |		Load	0x0,0x1
02c6 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
02c7 00d1       |    |		Pop_Control	Pop_Count_1
02c8 4807       |H   |		Short_Literal	0x7
02c9 e210       |    |		Load	0x1,0x10
02ca 01d7       |    |		Execute	Vector,Field_Read
02cb 4be7       |K   |		Short_Literal	0x3e7
02cc 4802       |H   |		Short_Literal	0x2
02cd 4be7       |K   |		Short_Literal	0x3e7
02ce 4802       |H   |		Short_Literal	0x2
02cf 4802       |H   |		Short_Literal	0x2
02d0 4be7       |K   |		Short_Literal	0x3e7
02d1 4be7       |K   |		Short_Literal	0x3e7
02d2 0092 0b90  |    |		Action	Push_String_Extended,0xb90					; "processed and managed by a series of internal sims customer support"
02d4 4815       |H   |		Short_Literal	0x15
02d5 e001       |    |		Load	0x0,0x1
02d6 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
02d7 00d1       |    |		Pop_Control	Pop_Count_1
02d8 4807       |H   |		Short_Literal	0x7
02d9 e210       |    |		Load	0x1,0x10
02da 01d7       |    |		Execute	Vector,Field_Read
02db 4be7       |K   |		Short_Literal	0x3e7
02dc 4802       |H   |		Short_Literal	0x2
02dd 4be7       |K   |		Short_Literal	0x3e7
02de 4802       |H   |		Short_Literal	0x2
02df 4802       |H   |		Short_Literal	0x2
02e0 4be7       |K   |		Short_Literal	0x3e7
02e1 4be7       |K   |		Short_Literal	0x3e7
02e2 0092 0b91  |    |		Action	Push_String_Extended,0xb91					; "application tools used by the response center in a variety of areas."
02e4 4816       |H   |		Short_Literal	0x16
02e5 e001       |    |		Load	0x0,0x1
02e6 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
02e7 00d1       |    |		Pop_Control	Pop_Count_1
02e8 4807       |H   |		Short_Literal	0x7
02e9 e210       |    |		Load	0x1,0x10
02ea 01d7       |    |		Execute	Vector,Field_Read
02eb 4be7       |K   |		Short_Literal	0x3e7
02ec 4802       |H   |		Short_Literal	0x2
02ed 4be7       |K   |		Short_Literal	0x3e7
02ee 4802       |H   |		Short_Literal	0x2
02ef 4802       |H   |		Short_Literal	0x2
02f0 4be7       |K   |		Short_Literal	0x3e7
02f1 4be7       |K   |		Short_Literal	0x3e7
02f2 0092 0b92  |    |		Action	Push_String_Extended,0xb92					; "                                            "
02f4 4817       |H   |		Short_Literal	0x17
02f5 e001       |    |		Load	0x0,0x1
02f6 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
02f7 00d1       |    |		Pop_Control	Pop_Count_1
02f8 4807       |H   |		Short_Literal	0x7
02f9 e210       |    |		Load	0x1,0x10
02fa 01d7       |    |		Execute	Vector,Field_Read
02fb 4be7       |K   |		Short_Literal	0x3e7
02fc 4802       |H   |		Short_Literal	0x2
02fd 4be7       |K   |		Short_Literal	0x3e7
02fe 4802       |H   |		Short_Literal	0x2
02ff 4802       |H   |		Short_Literal	0x2
0300 4be7       |K   |		Short_Literal	0x3e7
0301 4be7       |K   |		Short_Literal	0x3e7
0302 0092 0b93  |    |		Action	Push_String_Extended,0xb93					; "Suggestions for improvement of changes are most welcome and will be"
0304 4818       |H   |		Short_Literal	0x18
0305 e001       |    |		Load	0x0,0x1
0306 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0307 00d1       |    |		Pop_Control	Pop_Count_1
0308 4807       |H   |		Short_Literal	0x7
0309 e210       |    |		Load	0x1,0x10
030a 01d7       |    |		Execute	Vector,Field_Read
030b 4be7       |K   |		Short_Literal	0x3e7
030c 4802       |H   |		Short_Literal	0x2
030d 4be7       |K   |		Short_Literal	0x3e7
030e 4802       |H   |		Short_Literal	0x2
030f 4802       |H   |		Short_Literal	0x2
0310 4be7       |K   |		Short_Literal	0x3e7
0311 4be7       |K   |		Short_Literal	0x3e7
0312 0092 0b94  |    |		Action	Push_String_Extended,0xb94					; "reviewed and considered for future SIMS releases."
0314 4819       |H   |		Short_Literal	0x19
0315 e001       |    |		Load	0x0,0x1
0316 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0317 00d1       |    |		Pop_Control	Pop_Count_1
0318 4806       |H   |		Short_Literal	0x6
0319 e210       |    |		Load	0x1,0x10
031a 01d7       |    |		Execute	Vector,Field_Read
031b e001       |    |		Load	0x0,0x1
031c 18a1       |    |		Execute	Package,Field_Execute,Field_Number 0xa1
031d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
031e			TRAP_00c8:
031e 0007       |    |		Action	Break_Optional
031f 4800       |H   |		Short_Literal	0x0
0320 4801       |H   |		Short_Literal	0x1
0321 0092 0b95  |    |		Action	Push_String_Extended,0xb95					; "Exception occurred in ap_init_screen_3."
0323 e003       |    |		Load	0x0,0x3
0324 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0325 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0326 0000 0000  |    |		.XXX[0x2]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0531       | 1  |		.CONST	0x0531								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b 4805       |H   |		Short_Literal	0x5
032c e210       |    |		Load	0x1,0x10
032d 01d7       |    |		Execute	Vector,Field_Read
032e e001       |    |		Load	0x0,0x1
032f 18a1       |    |		Execute	Package,Field_Execute,Field_Number 0xa1
0330 00d1       |    |		Pop_Control	Pop_Count_1
0331 4805       |H   |		Short_Literal	0x5
0332 e210       |    |		Load	0x1,0x10
0333 01d7       |    |		Execute	Vector,Field_Read
0334 4be7       |K   |		Short_Literal	0x3e7
0335 4802       |H   |		Short_Literal	0x2
0336 4be7       |K   |		Short_Literal	0x3e7
0337 4802       |H   |		Short_Literal	0x2
0338 4802       |H   |		Short_Literal	0x2
0339 4be7       |K   |		Short_Literal	0x3e7
033a 4be7       |K   |		Short_Literal	0x3e7
033b 0092 0b96  |    |		Action	Push_String_Extended,0xb96					; "      Support Requests Management       "
033d e212       |    |		Load	0x1,0x12
033e e001       |    |		Load	0x0,0x1
033f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0340 00d1       |    |		Pop_Control	Pop_Count_1
0341 4805       |H   |		Short_Literal	0x5
0342 e210       |    |		Load	0x1,0x10
0343 01d7       |    |		Execute	Vector,Field_Read
0344 4be7       |K   |		Short_Literal	0x3e7
0345 4802       |H   |		Short_Literal	0x2
0346 481e       |H   |		Short_Literal	0x1e
0347 4802       |H   |		Short_Literal	0x2
0348 4802       |H   |		Short_Literal	0x2
0349 4be7       |K   |		Short_Literal	0x3e7
034a 4be7       |K   |		Short_Literal	0x3e7
034b 0092 0b72  |   r|		Action	Push_String_Extended,0xb72					; "\x5cdefault\x5c"
034d e213       |    |		Load	0x1,0x13
034e e001       |    |		Load	0x0,0x1
034f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0350 00d1       |    |		Pop_Control	Pop_Count_1
0351 4805       |H   |		Short_Literal	0x5
0352 e210       |    |		Load	0x1,0x10
0353 01d7       |    |		Execute	Vector,Field_Read
0354 4be7       |K   |		Short_Literal	0x3e7
0355 4802       |H   |		Short_Literal	0x2
0356 4be7       |K   |		Short_Literal	0x3e7
0357 4802       |H   |		Short_Literal	0x2
0358 4802       |H   |		Short_Literal	0x2
0359 4be7       |K   |		Short_Literal	0x3e7
035a 4be7       |K   |		Short_Literal	0x3e7
035b 0092 0b97  |    |		Action	Push_String_Extended,0xb97					; "Menu"
035d e217       |    |		Load	0x1,0x17
035e e001       |    |		Load	0x0,0x1
035f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0360 00d1       |    |		Pop_Control	Pop_Count_1
0361 4805       |H   |		Short_Literal	0x5
0362 e210       |    |		Load	0x1,0x10
0363 01d7       |    |		Execute	Vector,Field_Read
0364 4be7       |K   |		Short_Literal	0x3e7
0365 4802       |H   |		Short_Literal	0x2
0366 4be7       |K   |		Short_Literal	0x3e7
0367 4802       |H   |		Short_Literal	0x2
0368 4802       |H   |		Short_Literal	0x2
0369 4be7       |K   |		Short_Literal	0x3e7
036a 4be7       |K   |		Short_Literal	0x3e7
036b 0092 0b97  |    |		Action	Push_String_Extended,0xb97					; "Menu"
036d e215       |    |		Load	0x1,0x15
036e e001       |    |		Load	0x0,0x1
036f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0370 00d1       |    |		Pop_Control	Pop_Count_1
0371 4805       |H   |		Short_Literal	0x5
0372 e210       |    |		Load	0x1,0x10
0373 01d7       |    |		Execute	Vector,Field_Read
0374 4be7       |K   |		Short_Literal	0x3e7
0375 4802       |H   |		Short_Literal	0x2
0376 4be7       |K   |		Short_Literal	0x3e7
0377 4802       |H   |		Short_Literal	0x2
0378 4802       |H   |		Short_Literal	0x2
0379 4be7       |K   |		Short_Literal	0x3e7
037a 4be7       |K   |		Short_Literal	0x3e7
037b 0092 0b73  |   s|		Action	Push_String_Extended,0xb73					; "Command:"
037d e214       |    |		Load	0x1,0x14
037e e001       |    |		Load	0x0,0x1
037f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0380 00d1       |    |		Pop_Control	Pop_Count_1
0381 4805       |H   |		Short_Literal	0x5
0382 e210       |    |		Load	0x1,0x10
0383 01d7       |    |		Execute	Vector,Field_Read
0384 4be7       |K   |		Short_Literal	0x3e7
0385 4802       |H   |		Short_Literal	0x2
0386 4be7       |K   |		Short_Literal	0x3e7
0387 4802       |H   |		Short_Literal	0x2
0388 4802       |H   |		Short_Literal	0x2
0389 4be7       |K   |		Short_Literal	0x3e7
038a 4be7       |K   |		Short_Literal	0x3e7
038b 0092 0b98  |    |		Action	Push_String_Extended,0xb98					; "  Command: (Display, Search, Report, Send, Forward, Quit, Menu):"
038d e216       |    |		Load	0x1,0x16
038e e001       |    |		Load	0x0,0x1
038f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0390 00d1       |    |		Pop_Control	Pop_Count_1
0391 4805       |H   |		Short_Literal	0x5
0392 e210       |    |		Load	0x1,0x10
0393 01d7       |    |		Execute	Vector,Field_Read
0394 4be7       |K   |		Short_Literal	0x3e7
0395 4802       |H   |		Short_Literal	0x2
0396 4be7       |K   |		Short_Literal	0x3e7
0397 4802       |H   |		Short_Literal	0x2
0398 4802       |H   |		Short_Literal	0x2
0399 4be7       |K   |		Short_Literal	0x3e7
039a 4be7       |K   |		Short_Literal	0x3e7
039b 0092 0b99  |    |		Action	Push_String_Extended,0xb99					; "xxxxxxxxxx - max size for keyword parsing input"
039d e218       |    |		Load	0x1,0x18
039e e001       |    |		Load	0x0,0x1
039f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
03a0 00d1       |    |		Pop_Control	Pop_Count_1
03a1 4805       |H   |		Short_Literal	0x5
03a2 e210       |    |		Load	0x1,0x10
03a3 01d7       |    |		Execute	Vector,Field_Read
03a4 4be7       |K   |		Short_Literal	0x3e7
03a5 4802       |H   |		Short_Literal	0x2
03a6 4801       |H   |		Short_Literal	0x1
03a7 4802       |H   |		Short_Literal	0x2
03a8 4802       |H   |		Short_Literal	0x2
03a9 4be7       |K   |		Short_Literal	0x3e7
03aa 4be7       |K   |		Short_Literal	0x3e7
03ab 0092 0b9a  |    |		Action	Push_String_Extended,0xb9a					; "Display a Customer Support Request"
03ad 4803       |H   |		Short_Literal	0x3
03ae e001       |    |		Load	0x0,0x1
03af 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
03b0 00d1       |    |		Pop_Control	Pop_Count_1
03b1 4805       |H   |		Short_Literal	0x5
03b2 e210       |    |		Load	0x1,0x10
03b3 01d7       |    |		Execute	Vector,Field_Read
03b4 4be7       |K   |		Short_Literal	0x3e7
03b5 4802       |H   |		Short_Literal	0x2
03b6 4802       |H   |		Short_Literal	0x2
03b7 4802       |H   |		Short_Literal	0x2
03b8 4802       |H   |		Short_Literal	0x2
03b9 4be7       |K   |		Short_Literal	0x3e7
03ba 4be7       |K   |		Short_Literal	0x3e7
03bb 0092 0b9b  |    |		Action	Push_String_Extended,0xb9b					; "Edit an existing Support Request"
03bd 4804       |H   |		Short_Literal	0x4
03be e001       |    |		Load	0x0,0x1
03bf 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
03c0 00d1       |    |		Pop_Control	Pop_Count_1
03c1 4805       |H   |		Short_Literal	0x5
03c2 e210       |    |		Load	0x1,0x10
03c3 01d7       |    |		Execute	Vector,Field_Read
03c4 4be7       |K   |		Short_Literal	0x3e7
03c5 4802       |H   |		Short_Literal	0x2
03c6 4803       |H   |		Short_Literal	0x3
03c7 4802       |H   |		Short_Literal	0x2
03c8 4802       |H   |		Short_Literal	0x2
03c9 4be7       |K   |		Short_Literal	0x3e7
03ca 4be7       |K   |		Short_Literal	0x3e7
03cb 0092 0b9c  |    |		Action	Push_String_Extended,0xb9c					; "Enter a new Problem or Request"
03cd 4805       |H   |		Short_Literal	0x5
03ce e001       |    |		Load	0x0,0x1
03cf 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
03d0 00d1       |    |		Pop_Control	Pop_Count_1
03d1 4805       |H   |		Short_Literal	0x5
03d2 e210       |    |		Load	0x1,0x10
03d3 01d7       |    |		Execute	Vector,Field_Read
03d4 4be7       |K   |		Short_Literal	0x3e7
03d5 4802       |H   |		Short_Literal	0x2
03d6 4804       |H   |		Short_Literal	0x4
03d7 4802       |H   |		Short_Literal	0x2
03d8 4802       |H   |		Short_Literal	0x2
03d9 4be7       |K   |		Short_Literal	0x3e7
03da 4be7       |K   |		Short_Literal	0x3e7
03db 0092 0b9d  |    |		Action	Push_String_Extended,0xb9d					; "Detailed entry of a new Request"
03dd 4806       |H   |		Short_Literal	0x6
03de e001       |    |		Load	0x0,0x1
03df 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
03e0 00d1       |    |		Pop_Control	Pop_Count_1
03e1 4805       |H   |		Short_Literal	0x5
03e2 e210       |    |		Load	0x1,0x10
03e3 01d7       |    |		Execute	Vector,Field_Read
03e4 4be7       |K   |		Short_Literal	0x3e7
03e5 4802       |H   |		Short_Literal	0x2
03e6 4805       |H   |		Short_Literal	0x5
03e7 4802       |H   |		Short_Literal	0x2
03e8 4802       |H   |		Short_Literal	0x2
03e9 4be7       |K   |		Short_Literal	0x3e7
03ea 4be7       |K   |		Short_Literal	0x3e7
03eb 0092 0b9e  |    |		Action	Push_String_Extended,0xb9e					; "Search for a specific request"
03ed 4807       |H   |		Short_Literal	0x7
03ee e001       |    |		Load	0x0,0x1
03ef 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
03f0 00d1       |    |		Pop_Control	Pop_Count_1
03f1 4805       |H   |		Short_Literal	0x5
03f2 e210       |    |		Load	0x1,0x10
03f3 01d7       |    |		Execute	Vector,Field_Read
03f4 4be7       |K   |		Short_Literal	0x3e7
03f5 4802       |H   |		Short_Literal	0x2
03f6 4806       |H   |		Short_Literal	0x6
03f7 4802       |H   |		Short_Literal	0x2
03f8 4802       |H   |		Short_Literal	0x2
03f9 4be7       |K   |		Short_Literal	0x3e7
03fa 4be7       |K   |		Short_Literal	0x3e7
03fb 0092 0b9f  |    |		Action	Push_String_Extended,0xb9f					; "Continue last search    "
03fd 4808       |H   |		Short_Literal	0x8
03fe e001       |    |		Load	0x0,0x1
03ff 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0400 00d1       |    |		Pop_Control	Pop_Count_1
0401 4805       |H   |		Short_Literal	0x5
0402 e210       |    |		Load	0x1,0x10
0403 01d7       |    |		Execute	Vector,Field_Read
0404 4be7       |K   |		Short_Literal	0x3e7
0405 4802       |H   |		Short_Literal	0x2
0406 4807       |H   |		Short_Literal	0x7
0407 4802       |H   |		Short_Literal	0x2
0408 4802       |H   |		Short_Literal	0x2
0409 4be7       |K   |		Short_Literal	0x3e7
040a 4be7       |K   |		Short_Literal	0x3e7
040b 0092 0ba0  |    |		Action	Push_String_Extended,0xba0					; "Current request display"
040d 4809       |H   |		Short_Literal	0x9
040e e001       |    |		Load	0x0,0x1
040f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0410 00d1       |    |		Pop_Control	Pop_Count_1
0411 4805       |H   |		Short_Literal	0x5
0412 e210       |    |		Load	0x1,0x10
0413 01d7       |    |		Execute	Vector,Field_Read
0414 4be7       |K   |		Short_Literal	0x3e7
0415 4802       |H   |		Short_Literal	0x2
0416 4808       |H   |		Short_Literal	0x8
0417 4802       |H   |		Short_Literal	0x2
0418 4802       |H   |		Short_Literal	0x2
0419 4be7       |K   |		Short_Literal	0x3e7
041a 4be7       |K   |		Short_Literal	0x3e7
041b 0092 0ba1  |    |		Action	Push_String_Extended,0xba1					; "Next request display"
041d 480a       |H   |		Short_Literal	0xa
041e e001       |    |		Load	0x0,0x1
041f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0420 00d1       |    |		Pop_Control	Pop_Count_1
0421 4805       |H   |		Short_Literal	0x5
0422 e210       |    |		Load	0x1,0x10
0423 01d7       |    |		Execute	Vector,Field_Read
0424 4be7       |K   |		Short_Literal	0x3e7
0425 4802       |H   |		Short_Literal	0x2
0426 4809       |H   |		Short_Literal	0x9
0427 4802       |H   |		Short_Literal	0x2
0428 4802       |H   |		Short_Literal	0x2
0429 4be7       |K   |		Short_Literal	0x3e7
042a 4be7       |K   |		Short_Literal	0x3e7
042b 0092 0ba2  |    |		Action	Push_String_Extended,0xba2					; "Prior request display"
042d 480b       |H   |		Short_Literal	0xb
042e e001       |    |		Load	0x0,0x1
042f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0430 00d1       |    |		Pop_Control	Pop_Count_1
0431 4805       |H   |		Short_Literal	0x5
0432 e210       |    |		Load	0x1,0x10
0433 01d7       |    |		Execute	Vector,Field_Read
0434 4be7       |K   |		Short_Literal	0x3e7
0435 4802       |H   |		Short_Literal	0x2
0436 480a       |H   |		Short_Literal	0xa
0437 4802       |H   |		Short_Literal	0x2
0438 4802       |H   |		Short_Literal	0x2
0439 4be7       |K   |		Short_Literal	0x3e7
043a 4be7       |K   |		Short_Literal	0x3e7
043b 0092 0ba3  |    |		Action	Push_String_Extended,0xba3					; "Log requests to print log"
043d 480f       |H   |		Short_Literal	0xf
043e e001       |    |		Load	0x0,0x1
043f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0440 00d1       |    |		Pop_Control	Pop_Count_1
0441 4805       |H   |		Short_Literal	0x5
0442 e210       |    |		Load	0x1,0x10
0443 01d7       |    |		Execute	Vector,Field_Read
0444 4be7       |K   |		Short_Literal	0x3e7
0445 4802       |H   |		Short_Literal	0x2
0446 480b       |H   |		Short_Literal	0xb
0447 4802       |H   |		Short_Literal	0x2
0448 4802       |H   |		Short_Literal	0x2
0449 4be7       |K   |		Short_Literal	0x3e7
044a 4be7       |K   |		Short_Literal	0x3e7
044b 0092 0ba4  |    |		Action	Push_String_Extended,0xba4					; "Newly opened requests search"
044d 4810       |H   |		Short_Literal	0x10
044e e001       |    |		Load	0x0,0x1
044f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0450 00d1       |    |		Pop_Control	Pop_Count_1
0451 4805       |H   |		Short_Literal	0x5
0452 e210       |    |		Load	0x1,0x10
0453 01d7       |    |		Execute	Vector,Field_Read
0454 4be7       |K   |		Short_Literal	0x3e7
0455 4802       |H   |		Short_Literal	0x2
0456 480c       |H   |		Short_Literal	0xc
0457 4802       |H   |		Short_Literal	0x2
0458 4802       |H   |		Short_Literal	0x2
0459 4be7       |K   |		Short_Literal	0x3e7
045a 4be7       |K   |		Short_Literal	0x3e7
045b 0092 0ba5  |    |		Action	Push_String_Extended,0xba5					; "Show last request added to file"
045d 4811       |H   |		Short_Literal	0x11
045e e001       |    |		Load	0x0,0x1
045f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0460 00d1       |    |		Pop_Control	Pop_Count_1
0461 4805       |H   |		Short_Literal	0x5
0462 e210       |    |		Load	0x1,0x10
0463 01d7       |    |		Execute	Vector,Field_Read
0464 4be7       |K   |		Short_Literal	0x3e7
0465 4802       |H   |		Short_Literal	0x2
0466 480d       |H   |		Short_Literal	0xd
0467 4802       |H   |		Short_Literal	0x2
0468 4802       |H   |		Short_Literal	0x2
0469 4be7       |K   |		Short_Literal	0x3e7
046a 4be7       |K   |		Short_Literal	0x3e7
046b 0092 0ba6  |    |		Action	Push_String_Extended,0xba6					; "Print current request to log"
046d 4812       |H   |		Short_Literal	0x12
046e e001       |    |		Load	0x0,0x1
046f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0470 00d1       |    |		Pop_Control	Pop_Count_1
0471 4805       |H   |		Short_Literal	0x5
0472 e210       |    |		Load	0x1,0x10
0473 01d7       |    |		Execute	Vector,Field_Read
0474 4be7       |K   |		Short_Literal	0x3e7
0475 4802       |H   |		Short_Literal	0x2
0476 480e       |H   |		Short_Literal	0xe
0477 4802       |H   |		Short_Literal	0x2
0478 4802       |H   |		Short_Literal	0x2
0479 4be7       |K   |		Short_Literal	0x3e7
047a 4be7       |K   |		Short_Literal	0x3e7
047b 0092 0ba7  |    |		Action	Push_String_Extended,0xba7					; "Help information overview"
047d 4813       |H   |		Short_Literal	0x13
047e e001       |    |		Load	0x0,0x1
047f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0480 00d1       |    |		Pop_Control	Pop_Count_1
0481 4805       |H   |		Short_Literal	0x5
0482 e210       |    |		Load	0x1,0x10
0483 01d7       |    |		Execute	Vector,Field_Read
0484 4be7       |K   |		Short_Literal	0x3e7
0485 4802       |H   |		Short_Literal	0x2
0486 480f       |H   |		Short_Literal	0xf
0487 4802       |H   |		Short_Literal	0x2
0488 4802       |H   |		Short_Literal	0x2
0489 4be7       |K   |		Short_Literal	0x3e7
048a 4be7       |K   |		Short_Literal	0x3e7
048b 0092 0ba8  |    |		Action	Push_String_Extended,0xba8					; "Report or Display all requests"
048d 4814       |H   |		Short_Literal	0x14
048e e001       |    |		Load	0x0,0x1
048f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0490 00d1       |    |		Pop_Control	Pop_Count_1
0491 4805       |H   |		Short_Literal	0x5
0492 e210       |    |		Load	0x1,0x10
0493 01d7       |    |		Execute	Vector,Field_Read
0494 4be7       |K   |		Short_Literal	0x3e7
0495 4802       |H   |		Short_Literal	0x2
0496 4810       |H   |		Short_Literal	0x10
0497 4802       |H   |		Short_Literal	0x2
0498 4802       |H   |		Short_Literal	0x2
0499 4be7       |K   |		Short_Literal	0x3e7
049a 4be7       |K   |		Short_Literal	0x3e7
049b 0092 0ba9  |    |		Action	Push_String_Extended,0xba9					; "Send existing request to Rational"
049d 4815       |H   |		Short_Literal	0x15
049e e001       |    |		Load	0x0,0x1
049f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
04a0 00d1       |    |		Pop_Control	Pop_Count_1
04a1 4805       |H   |		Short_Literal	0x5
04a2 e210       |    |		Load	0x1,0x10
04a3 01d7       |    |		Execute	Vector,Field_Read
04a4 4be7       |K   |		Short_Literal	0x3e7
04a5 4802       |H   |		Short_Literal	0x2
04a6 4811       |H   |		Short_Literal	0x11
04a7 4802       |H   |		Short_Literal	0x2
04a8 4802       |H   |		Short_Literal	0x2
04a9 4be7       |K   |		Short_Literal	0x3e7
04aa 4be7       |K   |		Short_Literal	0x3e7
04ab 0092 0baa  |    |		Action	Push_String_Extended,0xbaa					; "Close the current request"
04ad 4816       |H   |		Short_Literal	0x16
04ae e001       |    |		Load	0x0,0x1
04af 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
04b0 00d1       |    |		Pop_Control	Pop_Count_1
04b1 4805       |H   |		Short_Literal	0x5
04b2 e210       |    |		Load	0x1,0x10
04b3 01d7       |    |		Execute	Vector,Field_Read
04b4 4be7       |K   |		Short_Literal	0x3e7
04b5 4802       |H   |		Short_Literal	0x2
04b6 4812       |H   |		Short_Literal	0x12
04b7 4802       |H   |		Short_Literal	0x2
04b8 4802       |H   |		Short_Literal	0x2
04b9 4be7       |K   |		Short_Literal	0x3e7
04ba 4be7       |K   |		Short_Literal	0x3e7
04bb 0092 0bab  |    |		Action	Push_String_Extended,0xbab					; "Forward all 'to_be_sent' to Rational"
04bd 4817       |H   |		Short_Literal	0x17
04be e001       |    |		Load	0x0,0x1
04bf 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
04c0 00d1       |    |		Pop_Control	Pop_Count_1
04c1 4805       |H   |		Short_Literal	0x5
04c2 e210       |    |		Load	0x1,0x10
04c3 01d7       |    |		Execute	Vector,Field_Read
04c4 4be7       |K   |		Short_Literal	0x3e7
04c5 4802       |H   |		Short_Literal	0x2
04c6 4813       |H   |		Short_Literal	0x13
04c7 4802       |H   |		Short_Literal	0x2
04c8 4802       |H   |		Short_Literal	0x2
04c9 4be7       |K   |		Short_Literal	0x3e7
04ca 4be7       |K   |		Short_Literal	0x3e7
04cb 0092 0bac  |    |		Action	Push_String_Extended,0xbac					; "Delete the current request"
04cd 4818       |H   |		Short_Literal	0x18
04ce e001       |    |		Load	0x0,0x1
04cf 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
04d0 00d1       |    |		Pop_Control	Pop_Count_1
04d1 4805       |H   |		Short_Literal	0x5
04d2 e210       |    |		Load	0x1,0x10
04d3 01d7       |    |		Execute	Vector,Field_Read
04d4 4be7       |K   |		Short_Literal	0x3e7
04d5 4802       |H   |		Short_Literal	0x2
04d6 4814       |H   |		Short_Literal	0x14
04d7 4802       |H   |		Short_Literal	0x2
04d8 4802       |H   |		Short_Literal	0x2
04d9 4be7       |K   |		Short_Literal	0x3e7
04da 4be7       |K   |		Short_Literal	0x3e7
04db 0092 0bad  |    |		Action	Push_String_Extended,0xbad					; "Initialize a new master file"
04dd 4819       |H   |		Short_Literal	0x19
04de e001       |    |		Load	0x0,0x1
04df 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
04e0 00d1       |    |		Pop_Control	Pop_Count_1
04e1 4805       |H   |		Short_Literal	0x5
04e2 e210       |    |		Load	0x1,0x10
04e3 01d7       |    |		Execute	Vector,Field_Read
04e4 4be7       |K   |		Short_Literal	0x3e7
04e5 4802       |H   |		Short_Literal	0x2
04e6 4815       |H   |		Short_Literal	0x15
04e7 4802       |H   |		Short_Literal	0x2
04e8 4802       |H   |		Short_Literal	0x2
04e9 4be7       |K   |		Short_Literal	0x3e7
04ea 4be7       |K   |		Short_Literal	0x3e7
04eb 0092 0bae  |    |		Action	Push_String_Extended,0xbae					; "Menu display of all commands"
04ed 481a       |H   |		Short_Literal	0x1a
04ee e001       |    |		Load	0x0,0x1
04ef 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
04f0 00d1       |    |		Pop_Control	Pop_Count_1
04f1 4805       |H   |		Short_Literal	0x5
04f2 e210       |    |		Load	0x1,0x10
04f3 01d7       |    |		Execute	Vector,Field_Read
04f4 4be7       |K   |		Short_Literal	0x3e7
04f5 4802       |H   |		Short_Literal	0x2
04f6 481e       |H   |		Short_Literal	0x1e
04f7 4802       |H   |		Short_Literal	0x2
04f8 4802       |H   |		Short_Literal	0x2
04f9 4be7       |K   |		Short_Literal	0x3e7
04fa 4be7       |K   |		Short_Literal	0x3e7
04fb 0092 0baf  |    |		Action	Push_String_Extended,0xbaf					; "Quit this application"
04fd 481b       |H   |		Short_Literal	0x1b
04fe e001       |    |		Load	0x0,0x1
04ff 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0500 00d1       |    |		Pop_Control	Pop_Count_1
0501 4805       |H   |		Short_Literal	0x5
0502 e210       |    |		Load	0x1,0x10
0503 01d7       |    |		Execute	Vector,Field_Read
0504 4be7       |K   |		Short_Literal	0x3e7
0505 4802       |H   |		Short_Literal	0x2
0506 4be7       |K   |		Short_Literal	0x3e7
0507 4802       |H   |		Short_Literal	0x2
0508 4802       |H   |		Short_Literal	0x2
0509 4be7       |K   |		Short_Literal	0x3e7
050a 4be7       |K   |		Short_Literal	0x3e7
050b 0092 0bb0  |    |		Action	Push_String_Extended,0xbb0					; "[Select a command by number or by unique portion of command name.]"
050d 481c       |H   |		Short_Literal	0x1c
050e e001       |    |		Load	0x0,0x1
050f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0510 00d1       |    |		Pop_Control	Pop_Count_1
0511 4805       |H   |		Short_Literal	0x5
0512 e210       |    |		Load	0x1,0x10
0513 01d7       |    |		Execute	Vector,Field_Read
0514 4be7       |K   |		Short_Literal	0x3e7
0515 4802       |H   |		Short_Literal	0x2
0516 4be7       |K   |		Short_Literal	0x3e7
0517 4802       |H   |		Short_Literal	0x2
0518 4802       |H   |		Short_Literal	0x2
0519 4be7       |K   |		Short_Literal	0x3e7
051a 4be7       |K   |		Short_Literal	0x3e7
051b 0092 0bb1  |    |		Action	Push_String_Extended,0xbb1					; "[Or '?' for new menu, Or use standard R1000 window & editing.    ]"
051d 481d       |H   |		Short_Literal	0x1d
051e e001       |    |		Load	0x0,0x1
051f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0520 00d1       |    |		Pop_Control	Pop_Count_1
0521 4805       |H   |		Short_Literal	0x5
0522 e210       |    |		Load	0x1,0x10
0523 01d7       |    |		Execute	Vector,Field_Read
0524 4be7       |K   |		Short_Literal	0x3e7
0525 4802       |H   |		Short_Literal	0x2
0526 4be7       |K   |		Short_Literal	0x3e7
0527 4802       |H   |		Short_Literal	0x2
0528 4802       |H   |		Short_Literal	0x2
0529 4be7       |K   |		Short_Literal	0x3e7
052a 4be7       |K   |		Short_Literal	0x3e7
052b 0092 0bb2  |    |		Action	Push_String_Extended,0xbb2					; "[Or for record editing:   Up= ^   Top= ,   Select= .   Exit= /   ]"
052d 481e       |H   |		Short_Literal	0x1e
052e e001       |    |		Load	0x0,0x1
052f 18a2       |    |		Execute	Package,Field_Execute,Field_Number 0xa2
0530 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0531			TRAP_0328:
0531 0007       |    |		Action	Break_Optional
0532 4800       |H   |		Short_Literal	0x0
0533 4801       |H   |		Short_Literal	0x1
0534 0092 0bb3  |    |		Action	Push_String_Extended,0xbb3					; "Exception occurred in ap_init_screen_5."
0536 e003       |    |		Load	0x0,0x3
0537 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0538 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0539 0000 0000  |    |		.BLANK	0000[0x7]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0543       | C  |		.CONST	0x0543								; Address of begin
0541 0571       | q  |		.CONST	0x0571								; Address of exception handler
0542 0001       |    |		.CONST	0x0001								; Number of locals
0543			BODY_0540:
0543			INIT_0540:
0543 0092 0bb4  |    |		Action	Push_String_Extended,0xbb4					; "xxx"
0545 4804       |H   |		Short_Literal	0x4
0546 0092 0bb4  |    |		Action	Push_String_Extended,0xbb4					; "xxx"
0548 4804       |H   |		Short_Literal	0x4
0549 0092 0bb4  |    |		Action	Push_String_Extended,0xbb4					; "xxx"
054b 4804       |H   |		Short_Literal	0x4
054c 0092 0bb5  |    |		Action	Push_String_Extended,0xbb5					; "open"
054e 4804       |H   |		Short_Literal	0x4
054f 0092 0bb6  |    |		Action	Push_String_Extended,0xbb6					; "pending"
0551 4804       |H   |		Short_Literal	0x4
0552 4800       |H   |		Short_Literal	0x0
0553 4801       |H   |		Short_Literal	0x1
0554 4801       |H   |		Short_Literal	0x1
0555 4801       |H   |		Short_Literal	0x1
0556 4800       |H   |		Short_Literal	0x0
0557 4800       |H   |		Short_Literal	0x0
0558 4800       |H   |		Short_Literal	0x0
0559 0092 0bb7  |    |		Action	Push_String_Extended,0xbb7					; "SR"
055b 4801       |H   |		Short_Literal	0x1
055c 49c6       |I   |		Short_Literal	0x1c6
055d 49d6       |I   |		Short_Literal	0x1d6
055e 49c3       |I   |		Short_Literal	0x1c3
055f 4800       |H   |		Short_Literal	0x0
0560 0092 0bb8  |    |		Action	Push_String_Extended,0xbb8					; "    Support Request Maintenance         "
0562 4805       |H   |		Short_Literal	0x5
0563 4801       |H   |		Short_Literal	0x1
0564 e001       |    |		Load	0x0,0x1
0565 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0566 e001       |    |		Load	0x0,0x1
0567 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0568 01cf       |    |		Execute	Vector,Slice_Read
0569 0092 0bb9  |    |		Action	Push_String_Extended,0xbb9					; "local_request_master"
056b 01cc       |    |		Execute	Vector,Catenate
056c 4801       |H   |		Short_Literal	0x1
056d 4801       |H   |		Short_Literal	0x1
056e e002       |    |		Load	0x0,0x2
056f 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0570 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0571			TRAP_0540:
0571 0007       |    |		Action	Break_Optional
0572 4800       |H   |		Short_Literal	0x0
0573 4801       |H   |		Short_Literal	0x1
0574 0092 0bba  |    |		Action	Push_String_Extended,0xbba					; "Exception in ap_init_application1."
0576 e003       |    |		Load	0x0,0x3
0577 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0578 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0579 0000 0000  |    |		.BLANK	0000[0x7]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0585       |    |		.CONST	0x0585								; Address of begin
0581 0004       |    |		.CONST	0x0004								; Address of exception handler
0582 0002       |    |		.CONST	0x0002								; Number of locals
0583			INIT_0580:
0583 029f 05ab  |    |		Declare_Subprogram	INIT_05a8,For_Call
0585			BODY_0580:
0585 8402       |    |		Call	0x2,0x2
0586 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0587 0000       |    |		.XXX[0x1]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 058d       |    |		.CONST	0x058d								; Address of begin
0589 0004       |    |		.CONST	0x0004								; Address of exception handler
058a 0002       |    |		.CONST	0x0002								; Number of locals
058b			INIT_0588:
058b 029f 05e3  |    |		Declare_Subprogram	INIT_05e0,For_Call
058d			BODY_0588:
058d 8402       |    |		Call	0x2,0x2
058e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
058f 0000       |    |		.XXX[0x1]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 059a       |    |		.CONST	0x059a								; Address of begin
0591 059c       |    |		.CONST	0x059c								; Address of exception handler
0592 0003       |    |		.CONST	0x0003								; Number of locals
0593			INIT_0590:
0593 4801       |H   |		Short_Literal	0x1
0594 4805       |H   |		Short_Literal	0x5
0595 00e9       |    |		Load_Encached	String_Cache
0596 0334       | 4  |		Declare_Variable	Array,With_Constraint
0597 52d8       |R   |		Indirect_Literal	Any,0x870,{0x20202020, 0x20202020}
0598 029f 063b  |   ;|		Declare_Subprogram	INIT_0638,For_Call
059a			BODY_0590:
059a 8403       |    |		Call	0x2,0x3
059b 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
059c			TRAP_0590:
059c 0007       |    |		Action	Break_Optional
059d 4801       |H   |		Short_Literal	0x1
059e 4804       |H   |		Short_Literal	0x4
059f 0092 0bbb  |    |		Action	Push_String_Extended,0xbbb					; "Exception found in ap_forward_and_send_all_requests"
05a1 e003       |    |		Load	0x0,0x3
05a2 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
05a3 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
05a4 0000 0000  |    |		.BLANK	0000[0x4]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05b9       |    |		.CONST	0x05b9								; Address of begin
05a9 05d5       |    |		.CONST	0x05d5								; Address of exception handler
05aa 0006       |    |		.CONST	0x0006								; Number of locals
05ab			INIT_05a8:
05ab 00e2       |    |		Load_Encached	Integer_Cache
05ac 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
05ad 4801       |H   |		Short_Literal	0x1
05ae 4814       |H   |		Short_Literal	0x14
05af 00e9       |    |		Load_Encached	String_Cache
05b0 0334       | 4  |		Declare_Variable	Array,With_Constraint
05b1 4801       |H   |		Short_Literal	0x1
05b2 4801       |H   |		Short_Literal	0x1
05b3 00e9       |    |		Load_Encached	String_Cache
05b4 0334       | 4  |		Declare_Variable	Array,With_Constraint
05b5 00e1       |    |		Load_Encached	Boolean_Cache
05b6 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
05b7 029f 07a3  |    |		Declare_Subprogram	INIT_07a0,For_Call
05b9			BODY_05a8:
05b9 4801       |H   |		Short_Literal	0x1
05ba e001       |    |		Load	0x0,0x1
05bb 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
05bc e001       |    |		Load	0x0,0x1
05bd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
05be 01cf       |    |		Execute	Vector,Slice_Read
05bf 0092 0bbc  |    |		Action	Push_String_Extended,0xbbc					; "sims_log"
05c1 01cc       |    |		Execute	Vector,Catenate
05c2 e20e       |    |		Load	0x1,0xe
05c3 e002       |    |		Load	0x0,0x2
05c4 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
05c5 4800       |H   |		Short_Literal	0x0
05c6 a605       |    |		Store_Unchecked	0x3,0x5
05c7 00cf       |    |		Action	Mark_Auxiliary
05c8 0007       |    |		Action	Break_Optional
05c9 8606       |    |		Call	0x3,0x6
05ca 00c9       |    |		Action	Pop_Auxiliary_Loop
05cb 7ffd       |    |		Jump	0x5c9
05cc 00ce       |    |		Action	Pop_Auxiliary
05cd e001       |    |		Load	0x0,0x1
05ce 00d8       |    |		Load_Top	At_Offset_0
05cf 1b7e       | ~  |		Execute	Package,Field_Read,Field_Number 0x7e
05d0 e004       |    |		Load	0x0,0x4
05d1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
05d2 e607       |    |		Load	0x3,0x7
05d3 1a7e       | ~  |		Execute	Package,Field_Write,Field_Number 0x7e
05d4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05d5			TRAP_05a8:
05d5 0007       |    |		Action	Break_Optional
05d6 4801       |H   |		Short_Literal	0x1
05d7 4804       |H   |		Short_Literal	0x4
05d8 0092 0bbd  |    |		Action	Push_String_Extended,0xbbd					; "Exception in ap_process_top_menu, Unable to close log file."
05da e003       |    |		Load	0x0,0x3
05db 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
05dc 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05dd 0000 0000  |    |		.XXX[0x3]
05df 0000       |    |
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 0609       |    |		.CONST	0x0609								; Address of begin
05e1 0004       |    |		.CONST	0x0004								; Address of exception handler
05e2 0012       |    |		.CONST	0x0012								; Number of locals
05e3			INIT_05e0:
05e3 00e2       |    |		Load_Encached	Integer_Cache
05e4 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
05e5 00e2       |    |		Load_Encached	Integer_Cache
05e6 0602       |    |		Execute_Immediate	Set_Value_Unchecked,0x2
05e7 00e2       |    |		Load_Encached	Integer_Cache
05e8 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
05e9 00e2       |    |		Load_Encached	Integer_Cache
05ea 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
05eb 00e2       |    |		Load_Encached	Integer_Cache
05ec 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
05ed 00e2       |    |		Load_Encached	Integer_Cache
05ee 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
05ef 00e2       |    |		Load_Encached	Integer_Cache
05f0 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
05f1 00e2       |    |		Load_Encached	Integer_Cache
05f2 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
05f3 00e2       |    |		Load_Encached	Integer_Cache
05f4 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
05f5 00e2       |    |		Load_Encached	Integer_Cache
05f6 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
05f7 4801       |H   |		Short_Literal	0x1
05f8 4850       |HP  |		Short_Literal	0x50
05f9 00e9       |    |		Load_Encached	String_Cache
05fa 0334       | 4  |		Declare_Variable	Array,With_Constraint
05fb 00e2       |    |		Load_Encached	Integer_Cache
05fc 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
05fd e20e       |    |		Load	0x1,0xe
05fe e001       |    |		Load	0x0,0x1
05ff 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
0600 03f1       |    |		Declare_Variable	Discrete,With_Value
0601 00e2       |    |		Load_Encached	Integer_Cache
0602 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0603 00e1       |    |		Load_Encached	Boolean_Cache
0604 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0605 00e1       |    |		Load_Encached	Boolean_Cache
0606 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0607 029f 0883  |    |		Declare_Subprogram	INIT_0880,For_Call
0609			BODY_05e0:
0609 4801       |H   |		Short_Literal	0x1
060a e001       |    |		Load	0x0,0x1
060b 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
060c e001       |    |		Load	0x0,0x1
060d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
060e 01cf       |    |		Execute	Vector,Slice_Read
060f 0092 0bbc  |    |		Action	Push_String_Extended,0xbbc					; "sims_log"
0611 01cc       |    |		Execute	Vector,Catenate
0612 e20e       |    |		Load	0x1,0xe
0613 e002       |    |		Load	0x0,0x2
0614 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0615 4800       |H   |		Short_Literal	0x0
0616 a610       |    |		Store_Unchecked	0x3,0x10
0617 4800       |H   |		Short_Literal	0x0
0618 a611       |    |		Store_Unchecked	0x3,0x11
0619 e611       |    |		Load	0x3,0x11
061a 7014       |p   |		Jump_Nonzero	0x62f
061b 4801       |H   |		Short_Literal	0x1
061c a611       |    |		Store_Unchecked	0x3,0x11
061d 4800       |H   |		Short_Literal	0x0
061e 4803       |H   |		Short_Literal	0x3
061f 0092 0bbe  |    |		Action	Push_String_Extended,0xbbe					; "Checking for User Requests/Problems to Load =>"
0621 e003       |    |		Load	0x0,0x3
0622 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0623 e5fe       |    |		Load	0x2,-0x2
0624 4800       |H   |		Short_Literal	0x0
0625 e5fe       |    |		Load	0x2,-0x2
0626 e20f       |    |		Load	0x1,0xf
0627 01d5       |    |		Execute	Vector,Field_Reference
0628 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0629 e5fe       |    |		Load	0x2,-0x2
062a e20f       |    |		Load	0x1,0xf
062b 01d5       |    |		Execute	Vector,Field_Reference
062c 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
062d e002       |    |		Load	0x0,0x2
062e 1861       | a  |		Execute	Package,Field_Execute,Field_Number 0x61
062f 00cf       |    |		Action	Mark_Auxiliary
0630 0007       |    |		Action	Break_Optional
0631 8612       |    |		Call	0x3,0x12
0632 00c9       |    |		Action	Pop_Auxiliary_Loop
0633 7ffd       |    |		Jump	0x631
0634 0000 0000  |    |		.BLANK	0000[0x4]
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 0651       | Q  |		.CONST	0x0651								; Address of begin
0639 0004       |    |		.CONST	0x0004								; Address of exception handler
063a 0008       |    |		.CONST	0x0008								; Number of locals
063b			INIT_0638:
063b 4801       |H   |		Short_Literal	0x1
063c 4801       |H   |		Short_Literal	0x1
063d 00e9       |    |		Load_Encached	String_Cache
063e 0334       | 4  |		Declare_Variable	Array,With_Constraint
063f 5234       |R4  |		Indirect_Literal	Any,0x874,{0x6e202020, 0x20202020}
0640 4801       |H   |		Short_Literal	0x1
0641 4801       |H   |		Short_Literal	0x1
0642 00e9       |    |		Load_Encached	String_Cache
0643 0334       | 4  |		Declare_Variable	Array,With_Constraint
0644 5233       |R3  |		Indirect_Literal	Any,0x878,{0x20202020, 0x20202020}
0645 e20e       |    |		Load	0x1,0xe
0646 e001       |    |		Load	0x0,0x1
0647 1b22       | "  |		Execute	Package,Field_Read,Field_Number 0x22
0648 03f1       |    |		Declare_Variable	Discrete,With_Value
0649 00e2       |    |		Load_Encached	Integer_Cache
064a 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
064b 00e2       |    |		Load_Encached	Integer_Cache
064c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
064d 00e2       |    |		Load_Encached	Integer_Cache
064e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
064f 00e2       |    |		Load_Encached	Integer_Cache
0650 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0651			BODY_0638:
0651 e003       |    |		Load	0x0,0x3
0652 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0653 e5fd       |    |		Load	0x2,-0x3
0654 e20f       |    |		Load	0x1,0xf
0655 01d7       |    |		Execute	Vector,Field_Read
0656 00d8       |    |		Load_Top	At_Offset_0
0657 4801       |H   |		Short_Literal	0x1
0658 e5fd       |    |		Load	0x2,-0x3
0659 e001       |    |		Load	0x0,0x1
065a 189d       |    |		Execute	Package,Field_Execute,Field_Number 0x9d
065b 00d2       |    |		Pop_Control	Pop_Count_2
065c e5fd       |    |		Load	0x2,-0x3
065d e20f       |    |		Load	0x1,0xf
065e 01d5       |    |		Execute	Vector,Field_Reference
065f 3c26       |<&  |		Execute	Record,Field_Read,Field_Number 0x26
0660 a607       |    |		Store_Unchecked	0x3,0x7
0661 e607       |    |		Load	0x3,0x7
0662 a606       |    |		Store_Unchecked	0x3,0x6
0663 4800       |H   |		Short_Literal	0x0
0664 a608       |    |		Store_Unchecked	0x3,0x8
0665 4801       |H   |		Short_Literal	0x1
0666 4801       |H   |		Short_Literal	0x1
0667 e602       |    |		Load	0x3,0x2
0668 01cf       |    |		Execute	Vector,Slice_Read
0669 0092 0bbf  |    |		Action	Push_String_Extended,0xbbf					; "y"
066b 01df       |    |		Execute	Vector,Equal
066c 685b       |h[  |		Jump_Zero	0x6c8
066d e605       |    |		Load	0x3,0x5
066e 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
066f 6804       |h   |		Jump_Zero	0x674
0670 e605       |    |		Load	0x3,0x5
0671 0aff       |    |		Execute_Immediate	Plus,-0x1
0672 0248       | H  |		Execute	Discrete,Check_In_Integer
0673 a605       |    |		Store_Unchecked	0x3,0x5
0674 e605       |    |		Load	0x3,0x5
0675 e5fd       |    |		Load	0x2,-0x3
0676 e20f       |    |		Load	0x1,0xf
0677 01d5       |    |		Execute	Vector,Field_Reference
0678 3812       |8   |		Execute	Record,Field_Write,Field_Number 0x12
0679 00cf       |    |		Action	Mark_Auxiliary
067a 0007       |    |		Action	Break_Optional
067b e5f6       |    |		Load	0x2,-0xa
067c e5f7       |    |		Load	0x2,-0x9
067d e5f8       |    |		Load	0x2,-0x8
067e e5f9       |    |		Load	0x2,-0x7
067f e5fa       |    |		Load	0x2,-0x6
0680 e5fb       |    |		Load	0x2,-0x5
0681 e20e       |    |		Load	0x1,0xe
0682 e5fd       |    |		Load	0x2,-0x3
0683 4800       |H   |		Short_Literal	0x0
0684 e20d       |    |		Load	0x1,0xd
0685 e5fe       |    |		Load	0x2,-0x2
0686 e5ff       |    |		Load	0x2,-0x1
0687 e002       |    |		Load	0x0,0x2
0688 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
0689 e5fd       |    |		Load	0x2,-0x3
068a e20f       |    |		Load	0x1,0xf
068b 01d5       |    |		Execute	Vector,Field_Reference
068c 3423       |4#  |		Execute	Record,Field_Reference,Field_Number 0x23
068d 0092 0bc0  |    |		Action	Push_String_Extended,0xbc0					; "ok   "
068f 01de       |    |		Execute	Vector,Not_Equal
0690 6801       |h   |		Jump_Zero	0x692
0691 7834       |x4  |		Jump	0x6c6
0692 e606       |    |		Load	0x3,0x6
0693 e5fd       |    |		Load	0x2,-0x3
0694 e20f       |    |		Load	0x1,0xf
0695 01d5       |    |		Execute	Vector,Field_Reference
0696 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
0697 027f       |    |		Execute	Discrete,Equal
0698 6801       |h   |		Jump_Zero	0x69a
0699 782c       |x,  |		Jump	0x6c6
069a 4801       |H   |		Short_Literal	0x1
069b 480a       |H   |		Short_Literal	0xa
069c e21f       |    |		Load	0x1,0x1f
069d 49c7       |I   |		Short_Literal	0x1c7
069e e001       |    |		Load	0x0,0x1
069f 1b90       |    |		Execute	Package,Field_Read,Field_Number 0x90
06a0 01d5       |    |		Execute	Vector,Field_Reference
06a1 01d5       |    |		Execute	Vector,Field_Reference
06a2 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
06a3 01cf       |    |		Execute	Vector,Slice_Read
06a4 0092 0bc1  |    |		Action	Push_String_Extended,0xbc1					; "to_be_sent"
06a6 01df       |    |		Execute	Vector,Equal
06a7 681c       |h   |		Jump_Zero	0x6c4
06a8 e608       |    |		Load	0x3,0x8
06a9 0a01       |    |		Execute_Immediate	Plus,0x1
06aa 0248       | H  |		Execute	Discrete,Check_In_Integer
06ab a608       |    |		Store_Unchecked	0x3,0x8
06ac 4800       |H   |		Short_Literal	0x0
06ad 4801       |H   |		Short_Literal	0x1
06ae 4801       |H   |		Short_Literal	0x1
06af 0092 0bc2  |    |		Action	Push_String_Extended,0xbc2					; "Send this request to Rational to transfer queue? y=yes n=no"
06b1 0092 0bc3  |    |		Action	Push_String_Extended,0xbc3					; "Select a Support Request to send to Rational:"
06b3 49d4       |I   |		Short_Literal	0x1d4
06b4 49c8       |I   |		Short_Literal	0x1c8
06b5 49c7       |I   |		Short_Literal	0x1c7
06b6 49cb       |I   |		Short_Literal	0x1cb
06b7 4801       |H   |		Short_Literal	0x1
06b8 4800       |H   |		Short_Literal	0x0
06b9 4800       |H   |		Short_Literal	0x0
06ba 4800       |H   |		Short_Literal	0x0
06bb 4800       |H   |		Short_Literal	0x0
06bc 4800       |H   |		Short_Literal	0x0
06bd 4800       |H   |		Short_Literal	0x0
06be 4800       |H   |		Short_Literal	0x0
06bf e5fd       |    |		Load	0x2,-0x3
06c0 e5fe       |    |		Load	0x2,-0x2
06c1 e5ff       |    |		Load	0x2,-0x1
06c2 e002       |    |		Load	0x0,0x2
06c3 186d       | m  |		Execute	Package,Field_Execute,Field_Number 0x6d
06c4 00c9       |    |		Action	Pop_Auxiliary_Loop
06c5 7fb5       |    |		Jump	0x67b
06c6 00ce       |    |		Action	Pop_Auxiliary
06c7 7851       |xQ  |		Jump	0x719
06c8 00cf       |    |		Action	Mark_Auxiliary
06c9 e606       |    |		Load	0x3,0x6
06ca e605       |    |		Load	0x3,0x5
06cb 0263       | c  |		Execute	Discrete,Above_Bound
06cc 704b       |pK  |		Jump_Nonzero	0x718
06cd 00d8       |    |		Load_Top	At_Offset_0
06ce e5fd       |    |		Load	0x2,-0x3
06cf e20f       |    |		Load	0x1,0xf
06d0 01d5       |    |		Execute	Vector,Field_Reference
06d1 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
06d2 e5f6       |    |		Load	0x2,-0xa
06d3 e5f7       |    |		Load	0x2,-0x9
06d4 e5f8       |    |		Load	0x2,-0x8
06d5 e5f9       |    |		Load	0x2,-0x7
06d6 e5fa       |    |		Load	0x2,-0x6
06d7 e5fb       |    |		Load	0x2,-0x5
06d8 4800       |H   |		Short_Literal	0x0
06d9 e20e       |    |		Load	0x1,0xe
06da e5fd       |    |		Load	0x2,-0x3
06db e20f       |    |		Load	0x1,0xf
06dc 01d5       |    |		Execute	Vector,Field_Reference
06dd 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
06de e20e       |    |		Load	0x1,0xe
06df e5fd       |    |		Load	0x2,-0x3
06e0 e5fe       |    |		Load	0x2,-0x2
06e1 e5ff       |    |		Load	0x2,-0x1
06e2 e002       |    |		Load	0x0,0x2
06e3 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
06e4 e5fd       |    |		Load	0x2,-0x3
06e5 e20f       |    |		Load	0x1,0xf
06e6 01d5       |    |		Execute	Vector,Field_Reference
06e7 3423       |4#  |		Execute	Record,Field_Reference,Field_Number 0x23
06e8 0092 0bc0  |    |		Action	Push_String_Extended,0xbc0					; "ok   "
06ea 01df       |    |		Execute	Vector,Equal
06eb 682a       |h*  |		Jump_Zero	0x716
06ec 4801       |H   |		Short_Literal	0x1
06ed 480a       |H   |		Short_Literal	0xa
06ee e21f       |    |		Load	0x1,0x1f
06ef 49c7       |I   |		Short_Literal	0x1c7
06f0 e001       |    |		Load	0x0,0x1
06f1 1b90       |    |		Execute	Package,Field_Read,Field_Number 0x90
06f2 01d5       |    |		Execute	Vector,Field_Reference
06f3 01d5       |    |		Execute	Vector,Field_Reference
06f4 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
06f5 01cf       |    |		Execute	Vector,Slice_Read
06f6 0092 0bc1  |    |		Action	Push_String_Extended,0xbc1					; "to_be_sent"
06f8 01df       |    |		Execute	Vector,Equal
06f9 681c       |h   |		Jump_Zero	0x716
06fa e608       |    |		Load	0x3,0x8
06fb 0a01       |    |		Execute_Immediate	Plus,0x1
06fc 0248       | H  |		Execute	Discrete,Check_In_Integer
06fd a608       |    |		Store_Unchecked	0x3,0x8
06fe 4800       |H   |		Short_Literal	0x0
06ff 4801       |H   |		Short_Literal	0x1
0700 4801       |H   |		Short_Literal	0x1
0701 0092 0bc2  |    |		Action	Push_String_Extended,0xbc2					; "Send this request to Rational to transfer queue? y=yes n=no"
0703 0092 0bc3  |    |		Action	Push_String_Extended,0xbc3					; "Select a Support Request to send to Rational:"
0705 49d4       |I   |		Short_Literal	0x1d4
0706 49c8       |I   |		Short_Literal	0x1c8
0707 49c7       |I   |		Short_Literal	0x1c7
0708 49cb       |I   |		Short_Literal	0x1cb
0709 4801       |H   |		Short_Literal	0x1
070a 4800       |H   |		Short_Literal	0x0
070b 4800       |H   |		Short_Literal	0x0
070c 4800       |H   |		Short_Literal	0x0
070d 4800       |H   |		Short_Literal	0x0
070e 4800       |H   |		Short_Literal	0x0
070f 4800       |H   |		Short_Literal	0x0
0710 4800       |H   |		Short_Literal	0x0
0711 e5fd       |    |		Load	0x2,-0x3
0712 e5fe       |    |		Load	0x2,-0x2
0713 e5ff       |    |		Load	0x2,-0x1
0714 e002       |    |		Load	0x0,0x2
0715 186d       | m  |		Execute	Package,Field_Execute,Field_Number 0x6d
0716 00c8       |    |		Action	Pop_Auxiliary_Range
0717 3fb5       |?   |		Loop_Increasing	0x6cd
0718 00ce       |    |		Action	Pop_Auxiliary
0719 00d8       |    |		Load_Top	At_Offset_0
071a 700a       |p   |		Jump_Nonzero	0x725
071b 4800       |H   |		Short_Literal	0x0
071c 4804       |H   |		Short_Literal	0x4
071d 0092 0bc4  |    |		Action	Push_String_Extended,0xbc4					; "==> No reports found as 'to_be_sent' that need forwarding. All done.<=="
071f e003       |    |		Load	0x0,0x3
0720 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0721 e003       |    |		Load	0x0,0x3
0722 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0723 00cc       |    |		Action	Pop_Block
0724 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
0725 e003       |    |		Load	0x0,0x3
0726 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0727 4800       |H   |		Short_Literal	0x0
0728 4804       |H   |		Short_Literal	0x4
0729 0092 0bc5  |    |		Action	Push_String_Extended,0xbc5					; "==> Please mount a tape for transferring reports to Rational. <=="
072b e003       |    |		Load	0x0,0x3
072c 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
072d e003       |    |		Load	0x0,0x3
072e 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
072f 0092 0bc6  |    |		Action	Push_String_Extended,0xbc6					; "<PROFILE>"
0731 0092 0bc7  |    |		Action	Push_String_Extended,0xbc7					; "MACHINE.DEVICES.TAPE_0"
0733 0092 0bc8  |    |		Action	Push_String_Extended,0xbc8					; "R1000"
0735 4801       |H   |		Short_Literal	0x1
0736 e001       |    |		Load	0x0,0x1
0737 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0738 e001       |    |		Load	0x0,0x1
0739 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
073a 01cf       |    |		Execute	Vector,Slice_Read
073b 0092 0bc9  |    |		Action	Push_String_Extended,0xbc9					; "@"
073d 01cc       |    |		Execute	Vector,Catenate
073e e005       |    |		Load	0x0,0x5
073f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0740 e003       |    |		Load	0x0,0x3
0741 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0742 e003       |    |		Load	0x0,0x3
0743 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0744 e402       |    |		Load	0x2,0x2
0745 0092 0bbf  |    |		Action	Push_String_Extended,0xbbf					; "y"
0747 4803       |H   |		Short_Literal	0x3
0748 0092 0bca  |    |		Action	Push_String_Extended,0xbca					; "Did archive save complete ok?  OK to continue?"
074a e003       |    |		Load	0x0,0x3
074b 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
074c 00d1       |    |		Pop_Control	Pop_Count_1
074d e003       |    |		Load	0x0,0x3
074e 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
074f 4801       |H   |		Short_Literal	0x1
0750 4801       |H   |		Short_Literal	0x1
0751 e402       |    |		Load	0x2,0x2
0752 01cf       |    |		Execute	Vector,Slice_Read
0753 0092 0bbf  |    |		Action	Push_String_Extended,0xbbf					; "y"
0755 01df       |    |		Execute	Vector,Equal
0756 6811       |h   |		Jump_Zero	0x768
0757 e006       |    |		Load	0x0,0x6
0758 1848       | H  |		Execute	Package,Field_Execute,Field_Number 0x48
0759 e007       |    |		Load	0x0,0x7
075a 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
075b 4be8       |K   |		Short_Literal	0x3e8
075c 4801       |H   |		Short_Literal	0x1
075d e001       |    |		Load	0x0,0x1
075e 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
075f e001       |    |		Load	0x0,0x1
0760 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0761 01cf       |    |		Execute	Vector,Slice_Read
0762 0092 0bc9  |    |		Action	Push_String_Extended,0xbc9					; "@"
0764 01cc       |    |		Execute	Vector,Catenate
0765 e007       |    |		Load	0x0,0x7
0766 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0767 7822       |x"  |		Jump	0x78a
0768 4800       |H   |		Short_Literal	0x0
0769 4804       |H   |		Short_Literal	0x4
076a 0092 0bcb  |    |		Action	Push_String_Extended,0xbcb					; "If archive tape problem, please send and forward a 2nd report"
076c e003       |    |		Load	0x0,0x3
076d 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
076e 4800       |H   |		Short_Literal	0x0
076f 4804       |H   |		Short_Literal	0x4
0770 0092 0bcc  |    |		Action	Push_String_Extended,0xbcc					; "to re-pick up leftover prior reports.   When an archive comnpletes"
0772 e003       |    |		Load	0x0,0x3
0773 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0774 4800       |H   |		Short_Literal	0x0
0775 4804       |H   |		Short_Literal	0x4
0776 0092 0bcd  |    |		Action	Push_String_Extended,0xbcd					; "be sure to delete temp files in => "
0778 4801       |H   |		Short_Literal	0x1
0779 e001       |    |		Load	0x0,0x1
077a 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
077b e001       |    |		Load	0x0,0x1
077c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
077d 01cf       |    |		Execute	Vector,Slice_Read
077e 01cc       |    |		Execute	Vector,Catenate
077f 0092 0bc9  |    |		Action	Push_String_Extended,0xbc9					; "@"
0781 01cc       |    |		Execute	Vector,Catenate
0782 e003       |    |		Load	0x0,0x3
0783 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0784 4800       |H   |		Short_Literal	0x0
0785 4804       |H   |		Short_Literal	0x4
0786 0092 0bce  |    |		Action	Push_String_Extended,0xbce					; "else you will be sending duplicate support requests."
0788 e003       |    |		Load	0x0,0x3
0789 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
078a e003       |    |		Load	0x0,0x3
078b 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
078c e003       |    |		Load	0x0,0x3
078d 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
078e 4800       |H   |		Short_Literal	0x0
078f 4804       |H   |		Short_Literal	0x4
0790 0092 0bcf  |    |		Action	Push_String_Extended,0xbcf					; "Forward command completed, thank you,"
0792 e003       |    |		Load	0x0,0x3
0793 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0794 4800       |H   |		Short_Literal	0x0
0795 4804       |H   |		Short_Literal	0x4
0796 0092 0bd0  |    |		Action	Push_String_Extended,0xbd0					; "Please ship the source archive tape to Rational Customer Support."
0798 e003       |    |		Load	0x0,0x3
0799 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
079a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
079b 0000 0000  |    |		.BLANK	0000[0x5]
07a0 ; --------------------------------------------------------------------------------------
07a0 ; SUBPROGRAM
07a0 ; --------------------------------------------------------------------------------------
07a0 07a3       |    |		.CONST	0x07a3								; Address of begin
07a1 0863       | c  |		.CONST	0x0863								; Address of exception handler
07a2 0001       |    |		.CONST	0x0001								; Number of locals
07a3			BODY_07a0:
07a3			INIT_07a0:
07a3 4828       |H(  |		Short_Literal	0x28
07a4 4801       |H   |		Short_Literal	0x1
07a5 4801       |H   |		Short_Literal	0x1
07a6 4801       |H   |		Short_Literal	0x1
07a7 e5ff       |    |		Load	0x2,-0x1
07a8 e001       |    |		Load	0x0,0x1
07a9 18a6       |    |		Execute	Package,Field_Execute,Field_Number 0xa6
07aa 00cf       |    |		Action	Mark_Auxiliary
07ab 0007       |    |		Action	Break_Optional
07ac 4863       |Hc  |		Short_Literal	0x63
07ad e001       |    |		Load	0x0,0x1
07ae 1a1b       |    |		Execute	Package,Field_Write,Field_Number 0x1b
07af e001       |    |		Load	0x0,0x1
07b0 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
07b1 e001       |    |		Load	0x0,0x1
07b2 e803       |    |		Load	0x4,0x3
07b3 e804       |    |		Load	0x4,0x4
07b4 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
07b5 e5ff       |    |		Load	0x2,-0x1
07b6 e001       |    |		Load	0x0,0x1
07b7 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
07b8 e20e       |    |		Load	0x1,0xe
07b9 e20d       |    |		Load	0x1,0xd
07ba e20d       |    |		Load	0x1,0xd
07bb e001       |    |		Load	0x0,0x1
07bc 18ab       |    |		Execute	Package,Field_Execute,Field_Number 0xab
07bd 00d1       |    |		Pop_Control	Pop_Count_1
07be e804       |    |		Load	0x4,0x4
07bf 1a1b       |    |		Execute	Package,Field_Write,Field_Number 0x1b
07c0 00d3       |    |		Pop_Control	Pop_Count_3
07c1 e605       |    |		Load	0x3,0x5
07c2 7002       |p   |		Jump_Nonzero	0x7c5
07c3 4801       |H   |		Short_Literal	0x1
07c4 a605       |    |		Store_Unchecked	0x3,0x5
07c5 0007       |    |		Action	Break_Optional
07c6 e001       |    |		Load	0x0,0x1
07c7 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
07c8 0f04       |    |		Execute_Immediate	Equal,0x4
07c9 6809       |h   |		Jump_Zero	0x7d3
07ca 4800       |H   |		Short_Literal	0x0
07cb 4802       |H   |		Short_Literal	0x2
07cc 0092 0bd1  |    |		Action	Push_String_Extended,0xbd1					; "Exiting Program."
07ce e003       |    |		Load	0x0,0x3
07cf 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
07d0 00ce       |    |		Action	Pop_Auxiliary
07d1 00cc       |    |		Action	Pop_Block
07d2 7df9       |}   |		Jump	0x5cc
07d3 e001       |    |		Load	0x0,0x1
07d4 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
07d5 0f01       |    |		Execute_Immediate	Equal,0x1
07d6 6833       |h3  |		Jump_Zero	0x80a
07d7 4800       |H   |		Short_Literal	0x0
07d8 4801       |H   |		Short_Literal	0x1
07d9 4801       |H   |		Short_Literal	0x1
07da 0092 0bd2  |    |		Action	Push_String_Extended,0xbd2					; "Quit"
07dc 0092 0bd2  |    |		Action	Push_String_Extended,0xbd2					; "Quit"
07de 0092 0bd3  |    |		Action	Push_String_Extended,0xbd3					; "Are you sure?, "
07e0 0092 0bd4  |    |		Action	Push_String_Extended,0xbd4					; "u"
07e2 49d3       |I   |		Short_Literal	0x1d3
07e3 e002       |    |		Load	0x0,0x2
07e4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07e5 0337       | 7  |		Declare_Variable	Array
07e6 49ce       |I   |		Short_Literal	0x1ce
07e7 4801       |H   |		Short_Literal	0x1
07e8 e80b       |    |		Load	0x4,0xb
07e9 01d6       |    |		Execute	Vector,Field_Write
07ea 49d3       |I   |		Short_Literal	0x1d3
07eb 4802       |H   |		Short_Literal	0x2
07ec e80b       |    |		Load	0x4,0xb
07ed 01d6       |    |		Execute	Vector,Field_Write
07ee 49d5       |I   |		Short_Literal	0x1d5
07ef 4803       |H   |		Short_Literal	0x3
07f0 e80b       |    |		Load	0x4,0xb
07f1 01d6       |    |		Execute	Vector,Field_Write
07f2 4864       |Hd  |		Short_Literal	0x64
07f3 4804       |H   |		Short_Literal	0x4
07f4 4800       |H   |		Short_Literal	0x0
07f5 e80d       |    |		Load	0x4,0xd
07f6 e80b       |    |		Load	0x4,0xb
07f7 01d6       |    |		Execute	Vector,Field_Write
07f8 3ffb       |?   |		Loop_Increasing	0x7f4
07f9 e002       |    |		Load	0x0,0x2
07fa 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
07fb 01c3       |    |		Execute	Vector,Check_In_Type
07fc 4801       |H   |		Short_Literal	0x1
07fd 49cc       |I   |		Short_Literal	0x1cc
07fe 49ce       |I   |		Short_Literal	0x1ce
07ff 49d4       |I   |		Short_Literal	0x1d4
0800 49c8       |I   |		Short_Literal	0x1c8
0801 49c7       |I   |		Short_Literal	0x1c7
0802 4800       |H   |		Short_Literal	0x0
0803 4800       |H   |		Short_Literal	0x0
0804 4801       |H   |		Short_Literal	0x1
0805 49d6       |I   |		Short_Literal	0x1d6
0806 49c3       |I   |		Short_Literal	0x1c3
0807 e002       |    |		Load	0x0,0x2
0808 186e       | n  |		Execute	Package,Field_Execute,Field_Number 0x6e
0809 784d       |xM  |		Jump	0x857
080a e001       |    |		Load	0x0,0x1
080b 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
080c 0f03       |    |		Execute_Immediate	Equal,0x3
080d 6816       |h   |		Jump_Zero	0x824
080e 4800       |H   |		Short_Literal	0x0
080f 4802       |H   |		Short_Literal	0x2
0810 0092 0bd5  |    |		Action	Push_String_Extended,0xbd5					; "Help message:"
0812 e003       |    |		Load	0x0,0x3
0813 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0814 e003       |    |		Load	0x0,0x3
0815 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0816 4832       |H2  |		Short_Literal	0x32
0817 4801       |H   |		Short_Literal	0x1
0818 4801       |H   |		Short_Literal	0x1
0819 4801       |H   |		Short_Literal	0x1
081a 4807       |H   |		Short_Literal	0x7
081b e210       |    |		Load	0x1,0x10
081c 01d5       |    |		Execute	Vector,Field_Reference
081d e001       |    |		Load	0x0,0x1
081e 18a6       |    |		Execute	Package,Field_Execute,Field_Number 0xa6
081f e003       |    |		Load	0x0,0x3
0820 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0821 e003       |    |		Load	0x0,0x3
0822 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0823 7835       |x5  |		Jump	0x859
0824 e001       |    |		Load	0x0,0x1
0825 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0826 0f02       |    |		Execute_Immediate	Equal,0x2
0827 682b       |h+  |		Jump_Zero	0x853
0828 4801       |H   |		Short_Literal	0x1
0829 e001       |    |		Load	0x0,0x1
082a 1a1b       |    |		Execute	Package,Field_Write,Field_Number 0x1b
082b e001       |    |		Load	0x0,0x1
082c 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
082d e20f       |    |		Load	0x1,0xf
082e 01d5       |    |		Execute	Vector,Field_Reference
082f 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0830 a602       |    |		Store_Unchecked	0x3,0x2
0831 4801       |H   |		Short_Literal	0x1
0832 4828       |H(  |		Short_Literal	0x28
0833 e001       |    |		Load	0x0,0x1
0834 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0835 e20f       |    |		Load	0x1,0xf
0836 01d5       |    |		Execute	Vector,Field_Reference
0837 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0838 01cf       |    |		Execute	Vector,Slice_Read
0839 4801       |H   |		Short_Literal	0x1
083a 4828       |H(  |		Short_Literal	0x28
083b e212       |    |		Load	0x1,0x12
083c e602       |    |		Load	0x3,0x2
083d e210       |    |		Load	0x1,0x10
083e 01d7       |    |		Execute	Vector,Field_Read
083f 01d7       |    |		Execute	Vector,Field_Read
0840 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0841 01ce       |    |		Execute	Vector,Slice_Write
0842 4828       |H(  |		Short_Literal	0x28
0843 e212       |    |		Load	0x1,0x12
0844 e602       |    |		Load	0x3,0x2
0845 e210       |    |		Load	0x1,0x10
0846 01d5       |    |		Execute	Vector,Field_Reference
0847 01d5       |    |		Execute	Vector,Field_Reference
0848 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0849 e602       |    |		Load	0x3,0x2
084a e210       |    |		Load	0x1,0x10
084b 01d7       |    |		Execute	Vector,Field_Read
084c 00d8       |    |		Load_Top	At_Offset_0
084d e001       |    |		Load	0x0,0x1
084e 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
084f e602       |    |		Load	0x3,0x2
0850 822c       | ,  |		Call	0x1,0x2c
0851 00d2       |    |		Pop_Control	Pop_Count_2
0852 7806       |x   |		Jump	0x859
0853 e5ff       |    |		Load	0x2,-0x1
0854 e001       |    |		Load	0x0,0x1
0855 18a8       |    |		Execute	Package,Field_Execute,Field_Number 0xa8
0856 7802       |x   |		Jump	0x859
0857 00c9       |    |		Action	Pop_Auxiliary_Loop
0858 7f53       | S  |		Jump	0x7ac
0859 00ce       |    |		Action	Pop_Auxiliary
085a 0007       |    |		Action	Break_Optional
085b e001       |    |		Load	0x0,0x1
085c 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
085d e20d       |    |		Load	0x1,0xd
085e 027f       |    |		Execute	Discrete,Equal
085f 6802       |h   |		Jump_Zero	0x862
0860 e003       |    |		Load	0x0,0x3
0861 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0862 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0863			TRAP_07a0:
0863 0007       |    |		Action	Break_Optional
0864 4800       |H   |		Short_Literal	0x0
0865 4801       |H   |		Short_Literal	0x1
0866 0092 0bd6  |    |		Action	Push_String_Extended,0xbd6					; "...Invalid top menu input command:"
0868 e003       |    |		Load	0x0,0x3
0869 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
086a e5ff       |    |		Load	0x2,-0x1
086b e001       |    |		Load	0x0,0x1
086c 18a8       |    |		Execute	Package,Field_Execute,Field_Number 0xa8
086d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
086e 0000 0000  |    |		.XXX[0x2]
0870 2020 2020  |    |		.LITERAL	{0x20202020, 0x20202020}
0874 6e20 2020  |n   |		.LITERAL	{0x6e202020, 0x20202020}
0878 2020 2020  |    |		.LITERAL	{0x20202020, 0x20202020}
087c 0000 0000  |    |		.BLANK	0000[0x4]
0880 ; --------------------------------------------------------------------------------------
0880 ; SUBPROGRAM
0880 ; --------------------------------------------------------------------------------------
0880 0883       |    |		.CONST	0x0883								; Address of begin
0881 0b62       | b  |		.CONST	0x0b62								; Address of exception handler
0882 0001       |    |		.CONST	0x0001								; Number of locals
0883			BODY_0880:
0883			INIT_0880:
0883 e001       |    |		Load	0x0,0x1
0884 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
0885 e60c       |    |		Load	0x3,0xc
0886 01d4       |    |		Execute	Vector,Structure_Write
0887 00cf       |    |		Action	Mark_Auxiliary
0888 0007       |    |		Action	Break_Optional
0889 4859       |HY  |		Short_Literal	0x59
088a e001       |    |		Load	0x0,0x1
088b 1a1c       |    |		Execute	Package,Field_Write,Field_Number 0x1c
088c e001       |    |		Load	0x0,0x1
088d 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
088e e001       |    |		Load	0x0,0x1
088f e803       |    |		Load	0x4,0x3
0890 e804       |    |		Load	0x4,0x4
0891 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0892 e5fd       |    |		Load	0x2,-0x3
0893 e001       |    |		Load	0x0,0x1
0894 1b3f       | ?  |		Execute	Package,Field_Read,Field_Number 0x3f
0895 e20e       |    |		Load	0x1,0xe
0896 e20d       |    |		Load	0x1,0xd
0897 e20d       |    |		Load	0x1,0xd
0898 e001       |    |		Load	0x0,0x1
0899 18ab       |    |		Execute	Package,Field_Execute,Field_Number 0xab
089a 00d1       |    |		Pop_Control	Pop_Count_1
089b e804       |    |		Load	0x4,0x4
089c 1a1c       |    |		Execute	Package,Field_Write,Field_Number 0x1c
089d 00d3       |    |		Pop_Control	Pop_Count_3
089e e610       |    |		Load	0x3,0x10
089f 7002       |p   |		Jump_Nonzero	0x8a2
08a0 4801       |H   |		Short_Literal	0x1
08a1 a610       |    |		Store_Unchecked	0x3,0x10
08a2 0007       |    |		Action	Break_Optional
08a3 e5fe       |    |		Load	0x2,-0x2
08a4 e20f       |    |		Load	0x1,0xf
08a5 01d5       |    |		Execute	Vector,Field_Reference
08a6 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
08a7 a602       |    |		Store_Unchecked	0x3,0x2
08a8 e5fe       |    |		Load	0x2,-0x2
08a9 e20f       |    |		Load	0x1,0xf
08aa 01d5       |    |		Execute	Vector,Field_Reference
08ab 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
08ac a603       |    |		Store_Unchecked	0x3,0x3
08ad e5fe       |    |		Load	0x2,-0x2
08ae e20f       |    |		Load	0x1,0xf
08af 01d5       |    |		Execute	Vector,Field_Reference
08b0 3c0c       |<   |		Execute	Record,Field_Read,Field_Number 0xc
08b1 a606       |    |		Store_Unchecked	0x3,0x6
08b2 e5fe       |    |		Load	0x2,-0x2
08b3 e20f       |    |		Load	0x1,0xf
08b4 01d5       |    |		Execute	Vector,Field_Reference
08b5 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
08b6 a607       |    |		Store_Unchecked	0x3,0x7
08b7 e5fe       |    |		Load	0x2,-0x2
08b8 e20f       |    |		Load	0x1,0xf
08b9 01d5       |    |		Execute	Vector,Field_Reference
08ba 3c0e       |<   |		Execute	Record,Field_Read,Field_Number 0xe
08bb a608       |    |		Store_Unchecked	0x3,0x8
08bc e606       |    |		Load	0x3,0x6
08bd 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
08be e606       |    |		Load	0x3,0x6
08bf e213       |    |		Load	0x1,0x13
08c0 e5fd       |    |		Load	0x2,-0x3
08c1 01d5       |    |		Execute	Vector,Field_Reference
08c2 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
08c3 0a01       |    |		Execute_Immediate	Plus,0x1
08c4 027c       | |  |		Execute	Discrete,Less
08c5 0279       | y  |		Execute	Discrete,And
08c6 6812       |h   |		Jump_Zero	0x8d9
08c7 e606       |    |		Load	0x3,0x6
08c8 e20f       |    |		Load	0x1,0xf
08c9 01d5       |    |		Execute	Vector,Field_Reference
08ca 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
08cb a60a       |    |		Store_Unchecked	0x3,0xa
08cc e606       |    |		Load	0x3,0x6
08cd e20f       |    |		Load	0x1,0xf
08ce 01d5       |    |		Execute	Vector,Field_Reference
08cf 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
08d0 a60b       |    |		Store_Unchecked	0x3,0xb
08d1 e21e       |    |		Load	0x1,0x1e
08d2 e608       |    |		Load	0x3,0x8
08d3 e211       |    |		Load	0x1,0x11
08d4 01d5       |    |		Execute	Vector,Field_Reference
08d5 01d5       |    |		Execute	Vector,Field_Reference
08d6 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
08d7 0274       | t  |		Execute	Discrete,Absolute_Value
08d8 a609       |    |		Store_Unchecked	0x3,0x9
08d9 0007       |    |		Action	Break_Optional
08da e001       |    |		Load	0x0,0x1
08db 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
08dc 0f01       |    |		Execute_Immediate	Equal,0x1
08dd 6810       |h   |		Jump_Zero	0x8ee
08de e609       |    |		Load	0x3,0x9
08df e60b       |    |		Load	0x3,0xb
08e0 e60a       |    |		Load	0x3,0xa
08e1 e608       |    |		Load	0x3,0x8
08e2 e607       |    |		Load	0x3,0x7
08e3 e606       |    |		Load	0x3,0x6
08e4 4800       |H   |		Short_Literal	0x0
08e5 e20d       |    |		Load	0x1,0xd
08e6 4801       |H   |		Short_Literal	0x1
08e7 e20d       |    |		Load	0x1,0xd
08e8 e5fe       |    |		Load	0x2,-0x2
08e9 e603       |    |		Load	0x3,0x3
08ea e602       |    |		Load	0x3,0x2
08eb e002       |    |		Load	0x0,0x2
08ec 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
08ed 7a67       |zg  |		Jump	0xb55
08ee e001       |    |		Load	0x0,0x1
08ef 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
08f0 0f02       |    |		Execute_Immediate	Equal,0x2
08f1 6815       |h   |		Jump_Zero	0x907
08f2 4800       |H   |		Short_Literal	0x0
08f3 4804       |H   |		Short_Literal	0x4
08f4 0092 0bd7  |    |		Action	Push_String_Extended,0xbd7					; "Editing an existing request."
08f6 e003       |    |		Load	0x0,0x3
08f7 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
08f8 4800       |H   |		Short_Literal	0x0
08f9 e609       |    |		Load	0x3,0x9
08fa e60b       |    |		Load	0x3,0xb
08fb e60a       |    |		Load	0x3,0xa
08fc e608       |    |		Load	0x3,0x8
08fd e607       |    |		Load	0x3,0x7
08fe e606       |    |		Load	0x3,0x6
08ff 4801       |H   |		Short_Literal	0x1
0900 e20d       |    |		Load	0x1,0xd
0901 e5fe       |    |		Load	0x2,-0x2
0902 e603       |    |		Load	0x3,0x3
0903 e602       |    |		Load	0x3,0x2
0904 e002       |    |		Load	0x0,0x2
0905 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0906 7a4e       |zN  |		Jump	0xb55
0907 e001       |    |		Load	0x0,0x1
0908 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0909 0f03       |    |		Execute_Immediate	Equal,0x3
090a 6839       |h9  |		Jump_Zero	0x944
090b 4800       |H   |		Short_Literal	0x0
090c 4804       |H   |		Short_Literal	0x4
090d 0092 0bd8  |    |		Action	Push_String_Extended,0xbd8					; "Entering a new problem or request."
090f e003       |    |		Load	0x0,0x3
0910 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0911 4800       |H   |		Short_Literal	0x0
0912 4801       |H   |		Short_Literal	0x1
0913 4801       |H   |		Short_Literal	0x1
0914 0092 0bd2  |    |		Action	Push_String_Extended,0xbd2					; "Quit"
0916 0092 0bd2  |    |		Action	Push_String_Extended,0xbd2					; "Quit"
0918 0092 0bd3  |    |		Action	Push_String_Extended,0xbd3					; "Are you sure?, "
091a 0092 0bd4  |    |		Action	Push_String_Extended,0xbd4					; "u"
091c 49d3       |I   |		Short_Literal	0x1d3
091d e002       |    |		Load	0x0,0x2
091e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
091f 0337       | 7  |		Declare_Variable	Array
0920 49ce       |I   |		Short_Literal	0x1ce
0921 4801       |H   |		Short_Literal	0x1
0922 e80b       |    |		Load	0x4,0xb
0923 01d6       |    |		Execute	Vector,Field_Write
0924 49d3       |I   |		Short_Literal	0x1d3
0925 4802       |H   |		Short_Literal	0x2
0926 e80b       |    |		Load	0x4,0xb
0927 01d6       |    |		Execute	Vector,Field_Write
0928 49d5       |I   |		Short_Literal	0x1d5
0929 4803       |H   |		Short_Literal	0x3
092a e80b       |    |		Load	0x4,0xb
092b 01d6       |    |		Execute	Vector,Field_Write
092c 4864       |Hd  |		Short_Literal	0x64
092d 4804       |H   |		Short_Literal	0x4
092e 4800       |H   |		Short_Literal	0x0
092f e80d       |    |		Load	0x4,0xd
0930 e80b       |    |		Load	0x4,0xb
0931 01d6       |    |		Execute	Vector,Field_Write
0932 3ffb       |?   |		Loop_Increasing	0x92e
0933 e002       |    |		Load	0x0,0x2
0934 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0935 01c3       |    |		Execute	Vector,Check_In_Type
0936 4801       |H   |		Short_Literal	0x1
0937 49cc       |I   |		Short_Literal	0x1cc
0938 49ce       |I   |		Short_Literal	0x1ce
0939 49d4       |I   |		Short_Literal	0x1d4
093a 49c8       |I   |		Short_Literal	0x1c8
093b 49c7       |I   |		Short_Literal	0x1c7
093c 4800       |H   |		Short_Literal	0x0
093d 4800       |H   |		Short_Literal	0x0
093e 4801       |H   |		Short_Literal	0x1
093f 49d6       |I   |		Short_Literal	0x1d6
0940 49c3       |I   |		Short_Literal	0x1c3
0941 e002       |    |		Load	0x0,0x2
0942 186e       | n  |		Execute	Package,Field_Execute,Field_Number 0x6e
0943 7a11       |z   |		Jump	0xb55
0944 e001       |    |		Load	0x0,0x1
0945 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0946 0f04       |    |		Execute_Immediate	Equal,0x4
0947 6855       |hU  |		Jump_Zero	0x99d
0948 4800       |H   |		Short_Literal	0x0
0949 4804       |H   |		Short_Literal	0x4
094a 0092 0bd9  |    |		Action	Push_String_Extended,0xbd9					; "Detailed entry of a new request."
094c e003       |    |		Load	0x0,0x3
094d 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
094e 4800       |H   |		Short_Literal	0x0
094f 4801       |H   |		Short_Literal	0x1
0950 4801       |H   |		Short_Literal	0x1
0951 0092 0bd2  |    |		Action	Push_String_Extended,0xbd2					; "Quit"
0953 0092 0bd2  |    |		Action	Push_String_Extended,0xbd2					; "Quit"
0955 0092 0bd3  |    |		Action	Push_String_Extended,0xbd3					; "Are you sure?, "
0957 0092 0bd4  |    |		Action	Push_String_Extended,0xbd4					; "u"
0959 49d3       |I   |		Short_Literal	0x1d3
095a e002       |    |		Load	0x0,0x2
095b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
095c 0337       | 7  |		Declare_Variable	Array
095d 49c7       |I   |		Short_Literal	0x1c7
095e 4801       |H   |		Short_Literal	0x1
095f e80b       |    |		Load	0x4,0xb
0960 01d6       |    |		Execute	Vector,Field_Write
0961 49c9       |I   |		Short_Literal	0x1c9
0962 4802       |H   |		Short_Literal	0x2
0963 e80b       |    |		Load	0x4,0xb
0964 01d6       |    |		Execute	Vector,Field_Write
0965 49ca       |I   |		Short_Literal	0x1ca
0966 4803       |H   |		Short_Literal	0x3
0967 e80b       |    |		Load	0x4,0xb
0968 01d6       |    |		Execute	Vector,Field_Write
0969 49ce       |I   |		Short_Literal	0x1ce
096a 4804       |H   |		Short_Literal	0x4
096b e80b       |    |		Load	0x4,0xb
096c 01d6       |    |		Execute	Vector,Field_Write
096d 49d0       |I   |		Short_Literal	0x1d0
096e 4805       |H   |		Short_Literal	0x5
096f e80b       |    |		Load	0x4,0xb
0970 01d6       |    |		Execute	Vector,Field_Write
0971 49d1       |I   |		Short_Literal	0x1d1
0972 4806       |H   |		Short_Literal	0x6
0973 e80b       |    |		Load	0x4,0xb
0974 01d6       |    |		Execute	Vector,Field_Write
0975 49d2       |I   |		Short_Literal	0x1d2
0976 4807       |H   |		Short_Literal	0x7
0977 e80b       |    |		Load	0x4,0xb
0978 01d6       |    |		Execute	Vector,Field_Write
0979 49d3       |I   |		Short_Literal	0x1d3
097a 4808       |H   |		Short_Literal	0x8
097b e80b       |    |		Load	0x4,0xb
097c 01d6       |    |		Execute	Vector,Field_Write
097d 49d5       |I   |		Short_Literal	0x1d5
097e 4809       |H   |		Short_Literal	0x9
097f e80b       |    |		Load	0x4,0xb
0980 01d6       |    |		Execute	Vector,Field_Write
0981 49d6       |I   |		Short_Literal	0x1d6
0982 480a       |H   |		Short_Literal	0xa
0983 e80b       |    |		Load	0x4,0xb
0984 01d6       |    |		Execute	Vector,Field_Write
0985 4864       |Hd  |		Short_Literal	0x64
0986 480b       |H   |		Short_Literal	0xb
0987 4800       |H   |		Short_Literal	0x0
0988 e80d       |    |		Load	0x4,0xd
0989 e80b       |    |		Load	0x4,0xb
098a 01d6       |    |		Execute	Vector,Field_Write
098b 3ffb       |?   |		Loop_Increasing	0x987
098c e002       |    |		Load	0x0,0x2
098d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
098e 01c3       |    |		Execute	Vector,Check_In_Type
098f 4801       |H   |		Short_Literal	0x1
0990 49cc       |I   |		Short_Literal	0x1cc
0991 49ce       |I   |		Short_Literal	0x1ce
0992 49d4       |I   |		Short_Literal	0x1d4
0993 49c8       |I   |		Short_Literal	0x1c8
0994 49c7       |I   |		Short_Literal	0x1c7
0995 4800       |H   |		Short_Literal	0x0
0996 4800       |H   |		Short_Literal	0x0
0997 4801       |H   |		Short_Literal	0x1
0998 49d6       |I   |		Short_Literal	0x1d6
0999 49c3       |I   |		Short_Literal	0x1c3
099a e002       |    |		Load	0x0,0x2
099b 186e       | n  |		Execute	Package,Field_Execute,Field_Number 0x6e
099c 79b8       |y   |		Jump	0xb55
099d e001       |    |		Load	0x0,0x1
099e 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
099f 0f05       |    |		Execute_Immediate	Equal,0x5
09a0 6815       |h   |		Jump_Zero	0x9b6
09a1 4800       |H   |		Short_Literal	0x0
09a2 4804       |H   |		Short_Literal	0x4
09a3 0092 0bda  |    |		Action	Push_String_Extended,0xbda					; "Search for a specific request."
09a5 e003       |    |		Load	0x0,0x3
09a6 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
09a7 e609       |    |		Load	0x3,0x9
09a8 e60b       |    |		Load	0x3,0xb
09a9 e60a       |    |		Load	0x3,0xa
09aa e608       |    |		Load	0x3,0x8
09ab e607       |    |		Load	0x3,0x7
09ac e606       |    |		Load	0x3,0x6
09ad e20d       |    |		Load	0x1,0xd
09ae e5fe       |    |		Load	0x2,-0x2
09af 4800       |H   |		Short_Literal	0x0
09b0 e20e       |    |		Load	0x1,0xe
09b1 e603       |    |		Load	0x3,0x3
09b2 e602       |    |		Load	0x3,0x2
09b3 e002       |    |		Load	0x0,0x2
09b4 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
09b5 799f       |y   |		Jump	0xb55
09b6 e001       |    |		Load	0x0,0x1
09b7 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
09b8 0f06       |    |		Execute_Immediate	Equal,0x6
09b9 6815       |h   |		Jump_Zero	0x9cf
09ba 4800       |H   |		Short_Literal	0x0
09bb 4804       |H   |		Short_Literal	0x4
09bc 0092 0bdb  |    |		Action	Push_String_Extended,0xbdb					; "Continuing last search as left off."
09be e003       |    |		Load	0x0,0x3
09bf 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
09c0 e609       |    |		Load	0x3,0x9
09c1 e60b       |    |		Load	0x3,0xb
09c2 e60a       |    |		Load	0x3,0xa
09c3 e608       |    |		Load	0x3,0x8
09c4 e607       |    |		Load	0x3,0x7
09c5 e606       |    |		Load	0x3,0x6
09c6 e20d       |    |		Load	0x1,0xd
09c7 e5fe       |    |		Load	0x2,-0x2
09c8 4800       |H   |		Short_Literal	0x0
09c9 e20d       |    |		Load	0x1,0xd
09ca e603       |    |		Load	0x3,0x3
09cb e602       |    |		Load	0x3,0x2
09cc e002       |    |		Load	0x0,0x2
09cd 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
09ce 7986       |y   |		Jump	0xb55
09cf e001       |    |		Load	0x0,0x1
09d0 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
09d1 0f07       |    |		Execute_Immediate	Equal,0x7
09d2 6819       |h   |		Jump_Zero	0x9ec
09d3 4800       |H   |		Short_Literal	0x0
09d4 4804       |H   |		Short_Literal	0x4
09d5 0092 0bdc  |    |		Action	Push_String_Extended,0xbdc					; "Finding the current request."
09d7 e003       |    |		Load	0x0,0x3
09d8 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
09d9 e609       |    |		Load	0x3,0x9
09da e60b       |    |		Load	0x3,0xb
09db e60a       |    |		Load	0x3,0xa
09dc e608       |    |		Load	0x3,0x8
09dd e607       |    |		Load	0x3,0x7
09de e606       |    |		Load	0x3,0x6
09df 4800       |H   |		Short_Literal	0x0
09e0 e20d       |    |		Load	0x1,0xd
09e1 e5fe       |    |		Load	0x2,-0x2
09e2 e20f       |    |		Load	0x1,0xf
09e3 01d5       |    |		Execute	Vector,Field_Reference
09e4 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
09e5 e20e       |    |		Load	0x1,0xe
09e6 e5fe       |    |		Load	0x2,-0x2
09e7 e603       |    |		Load	0x3,0x3
09e8 e602       |    |		Load	0x3,0x2
09e9 e002       |    |		Load	0x0,0x2
09ea 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
09eb 7969       |yi  |		Jump	0xb55
09ec e001       |    |		Load	0x0,0x1
09ed 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
09ee 0f08       |    |		Execute_Immediate	Equal,0x8
09ef 6822       |h"  |		Jump_Zero	0xa12
09f0 4800       |H   |		Short_Literal	0x0
09f1 4804       |H   |		Short_Literal	0x4
09f2 0092 0bdd  |    |		Action	Push_String_Extended,0xbdd					; "Finding the next request."
09f4 e003       |    |		Load	0x0,0x3
09f5 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
09f6 e5fe       |    |		Load	0x2,-0x2
09f7 e20f       |    |		Load	0x1,0xf
09f8 01d5       |    |		Execute	Vector,Field_Reference
09f9 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
09fa 0a01       |    |		Execute_Immediate	Plus,0x1
09fb e5fe       |    |		Load	0x2,-0x2
09fc e20f       |    |		Load	0x1,0xf
09fd 01d5       |    |		Execute	Vector,Field_Reference
09fe 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
09ff e609       |    |		Load	0x3,0x9
0a00 e60b       |    |		Load	0x3,0xb
0a01 e60a       |    |		Load	0x3,0xa
0a02 e608       |    |		Load	0x3,0x8
0a03 e607       |    |		Load	0x3,0x7
0a04 e606       |    |		Load	0x3,0x6
0a05 4800       |H   |		Short_Literal	0x0
0a06 e20d       |    |		Load	0x1,0xd
0a07 e5fe       |    |		Load	0x2,-0x2
0a08 e20f       |    |		Load	0x1,0xf
0a09 01d5       |    |		Execute	Vector,Field_Reference
0a0a 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
0a0b e20e       |    |		Load	0x1,0xe
0a0c e5fe       |    |		Load	0x2,-0x2
0a0d e603       |    |		Load	0x3,0x3
0a0e e602       |    |		Load	0x3,0x2
0a0f e002       |    |		Load	0x0,0x2
0a10 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0a11 7943       |yC  |		Jump	0xb55
0a12 e001       |    |		Load	0x0,0x1
0a13 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0a14 0f09       |    |		Execute_Immediate	Equal,0x9
0a15 6822       |h"  |		Jump_Zero	0xa38
0a16 4800       |H   |		Short_Literal	0x0
0a17 4804       |H   |		Short_Literal	0x4
0a18 0092 0bde  |    |		Action	Push_String_Extended,0xbde					; "Finding the prior request."
0a1a e003       |    |		Load	0x0,0x3
0a1b 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0a1c e5fe       |    |		Load	0x2,-0x2
0a1d e20f       |    |		Load	0x1,0xf
0a1e 01d5       |    |		Execute	Vector,Field_Reference
0a1f 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
0a20 0aff       |    |		Execute_Immediate	Plus,-0x1
0a21 e5fe       |    |		Load	0x2,-0x2
0a22 e20f       |    |		Load	0x1,0xf
0a23 01d5       |    |		Execute	Vector,Field_Reference
0a24 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
0a25 e609       |    |		Load	0x3,0x9
0a26 e60b       |    |		Load	0x3,0xb
0a27 e60a       |    |		Load	0x3,0xa
0a28 e608       |    |		Load	0x3,0x8
0a29 e607       |    |		Load	0x3,0x7
0a2a e606       |    |		Load	0x3,0x6
0a2b 4800       |H   |		Short_Literal	0x0
0a2c e20d       |    |		Load	0x1,0xd
0a2d e5fe       |    |		Load	0x2,-0x2
0a2e e20f       |    |		Load	0x1,0xf
0a2f 01d5       |    |		Execute	Vector,Field_Reference
0a30 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
0a31 e20e       |    |		Load	0x1,0xe
0a32 e5fe       |    |		Load	0x2,-0x2
0a33 e603       |    |		Load	0x3,0x3
0a34 e602       |    |		Load	0x3,0x2
0a35 e002       |    |		Load	0x0,0x2
0a36 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0a37 791d       |y   |		Jump	0xb55
0a38 e001       |    |		Load	0x0,0x1
0a39 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0a3a 0f0a       |    |		Execute_Immediate	Equal,0xa
0a3b 680a       |h   |		Jump_Zero	0xa46
0a3c 4800       |H   |		Short_Literal	0x0
0a3d 4804       |H   |		Short_Literal	0x4
0a3e 0092 0bdf  |    |		Action	Push_String_Extended,0xbdf					; "Logging all reports displayed to log file."
0a40 e003       |    |		Load	0x0,0x3
0a41 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0a42 e20d       |    |		Load	0x1,0xd
0a43 e001       |    |		Load	0x0,0x1
0a44 1a24       | $  |		Execute	Package,Field_Write,Field_Number 0x24
0a45 790f       |y   |		Jump	0xb55
0a46 e001       |    |		Load	0x0,0x1
0a47 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0a48 0f0b       |    |		Execute_Immediate	Equal,0xb
0a49 6815       |h   |		Jump_Zero	0xa5f
0a4a 4800       |H   |		Short_Literal	0x0
0a4b 4804       |H   |		Short_Literal	0x4
0a4c 0092 0be0  |    |		Action	Push_String_Extended,0xbe0					; "Search for any newly opened requests."
0a4e e003       |    |		Load	0x0,0x3
0a4f 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0a50 e609       |    |		Load	0x3,0x9
0a51 e60b       |    |		Load	0x3,0xb
0a52 e60a       |    |		Load	0x3,0xa
0a53 e608       |    |		Load	0x3,0x8
0a54 e607       |    |		Load	0x3,0x7
0a55 e606       |    |		Load	0x3,0x6
0a56 e20d       |    |		Load	0x1,0xd
0a57 e5fe       |    |		Load	0x2,-0x2
0a58 4801       |H   |		Short_Literal	0x1
0a59 e20d       |    |		Load	0x1,0xd
0a5a e603       |    |		Load	0x3,0x3
0a5b e602       |    |		Load	0x3,0x2
0a5c e002       |    |		Load	0x0,0x2
0a5d 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
0a5e 78f6       |x   |		Jump	0xb55
0a5f e001       |    |		Load	0x0,0x1
0a60 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0a61 0f0c       |    |		Execute_Immediate	Equal,0xc
0a62 682a       |h*  |		Jump_Zero	0xa8d
0a63 4800       |H   |		Short_Literal	0x0
0a64 4804       |H   |		Short_Literal	0x4
0a65 0092 0be1  |    |		Action	Push_String_Extended,0xbe1					; "Show last request added to database."
0a67 e003       |    |		Load	0x0,0x3
0a68 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0a69 e5fe       |    |		Load	0x2,-0x2
0a6a e20f       |    |		Load	0x1,0xf
0a6b 01d7       |    |		Execute	Vector,Field_Read
0a6c 00d8       |    |		Load_Top	At_Offset_0
0a6d 4801       |H   |		Short_Literal	0x1
0a6e e5fe       |    |		Load	0x2,-0x2
0a6f e001       |    |		Load	0x0,0x1
0a70 189d       |    |		Execute	Package,Field_Execute,Field_Number 0x9d
0a71 00d2       |    |		Pop_Control	Pop_Count_2
0a72 e5fe       |    |		Load	0x2,-0x2
0a73 e20f       |    |		Load	0x1,0xf
0a74 01d5       |    |		Execute	Vector,Field_Reference
0a75 3c26       |<&  |		Execute	Record,Field_Read,Field_Number 0x26
0a76 e5fe       |    |		Load	0x2,-0x2
0a77 e20f       |    |		Load	0x1,0xf
0a78 01d5       |    |		Execute	Vector,Field_Reference
0a79 380f       |8   |		Execute	Record,Field_Write,Field_Number 0xf
0a7a e609       |    |		Load	0x3,0x9
0a7b e60b       |    |		Load	0x3,0xb
0a7c e60a       |    |		Load	0x3,0xa
0a7d e608       |    |		Load	0x3,0x8
0a7e e607       |    |		Load	0x3,0x7
0a7f e606       |    |		Load	0x3,0x6
0a80 4800       |H   |		Short_Literal	0x0
0a81 e20d       |    |		Load	0x1,0xd
0a82 e5fe       |    |		Load	0x2,-0x2
0a83 e20f       |    |		Load	0x1,0xf
0a84 01d5       |    |		Execute	Vector,Field_Reference
0a85 3c0f       |<   |		Execute	Record,Field_Read,Field_Number 0xf
0a86 e20e       |    |		Load	0x1,0xe
0a87 e5fe       |    |		Load	0x2,-0x2
0a88 e603       |    |		Load	0x3,0x3
0a89 e602       |    |		Load	0x3,0x2
0a8a e002       |    |		Load	0x0,0x2
0a8b 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0a8c 78c8       |x   |		Jump	0xb55
0a8d e001       |    |		Load	0x0,0x1
0a8e 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0a8f 0f0d       |    |		Execute_Immediate	Equal,0xd
0a90 6810       |h   |		Jump_Zero	0xaa1
0a91 4800       |H   |		Short_Literal	0x0
0a92 4804       |H   |		Short_Literal	0x4
0a93 0092 0be2  |    |		Action	Push_String_Extended,0xbe2					; "Printing current report to log file."
0a95 e003       |    |		Load	0x0,0x3
0a96 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0a97 e001       |    |		Load	0x0,0x1
0a98 1b7e       | ~  |		Execute	Package,Field_Read,Field_Number 0x7e
0a99 e20e       |    |		Load	0x1,0xe
0a9a e20e       |    |		Load	0x1,0xe
0a9b e5fe       |    |		Load	0x2,-0x2
0a9c e603       |    |		Load	0x3,0x3
0a9d e602       |    |		Load	0x3,0x2
0a9e e002       |    |		Load	0x0,0x2
0a9f 1847       | G  |		Execute	Package,Field_Execute,Field_Number 0x47
0aa0 78b4       |x   |		Jump	0xb55
0aa1 e001       |    |		Load	0x0,0x1
0aa2 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0aa3 0f0e       |    |		Execute_Immediate	Equal,0xe
0aa4 6816       |h   |		Jump_Zero	0xabb
0aa5 4800       |H   |		Short_Literal	0x0
0aa6 4804       |H   |		Short_Literal	0x4
0aa7 0092 0be3  |    |		Action	Push_String_Extended,0xbe3					; "Displaying help message overview:"
0aa9 e003       |    |		Load	0x0,0x3
0aaa 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0aab e003       |    |		Load	0x0,0x3
0aac 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0aad 4832       |H2  |		Short_Literal	0x32
0aae 4801       |H   |		Short_Literal	0x1
0aaf 4801       |H   |		Short_Literal	0x1
0ab0 4801       |H   |		Short_Literal	0x1
0ab1 4807       |H   |		Short_Literal	0x7
0ab2 e210       |    |		Load	0x1,0x10
0ab3 01d5       |    |		Execute	Vector,Field_Reference
0ab4 e001       |    |		Load	0x0,0x1
0ab5 18a6       |    |		Execute	Package,Field_Execute,Field_Number 0xa6
0ab6 e003       |    |		Load	0x0,0x3
0ab7 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0ab8 e003       |    |		Load	0x0,0x3
0ab9 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0aba 789a       |x   |		Jump	0xb55
0abb e001       |    |		Load	0x0,0x1
0abc 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0abd 0f0f       |    |		Execute_Immediate	Equal,0xf
0abe 6814       |h   |		Jump_Zero	0xad3
0abf 4800       |H   |		Short_Literal	0x0
0ac0 4804       |H   |		Short_Literal	0x4
0ac1 0092 0be4  |    |		Action	Push_String_Extended,0xbe4					; "Showing or Reporting all or selected reports."
0ac3 e003       |    |		Load	0x0,0x3
0ac4 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0ac5 e609       |    |		Load	0x3,0x9
0ac6 e60b       |    |		Load	0x3,0xb
0ac7 e60a       |    |		Load	0x3,0xa
0ac8 e608       |    |		Load	0x3,0x8
0ac9 e607       |    |		Load	0x3,0x7
0aca e606       |    |		Load	0x3,0x6
0acb 4800       |H   |		Short_Literal	0x0
0acc 4800       |H   |		Short_Literal	0x0
0acd e5fe       |    |		Load	0x2,-0x2
0ace e603       |    |		Load	0x3,0x3
0acf e602       |    |		Load	0x3,0x2
0ad0 e002       |    |		Load	0x0,0x2
0ad1 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0ad2 7882       |x   |		Jump	0xb55
0ad3 e001       |    |		Load	0x0,0x1
0ad4 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0ad5 0f10       |    |		Execute_Immediate	Equal,0x10
0ad6 6810       |h   |		Jump_Zero	0xae7
0ad7 0092 0be5  |    |		Action	Push_String_Extended,0xbe5					; "sent"
0ad9 0092 0bc1  |    |		Action	Push_String_Extended,0xbc1					; "to_be_sent"
0adb 49c7       |I   |		Short_Literal	0x1c7
0adc 0092 0be6  |    |		Action	Push_String_Extended,0xbe6					; "Send this request to Rational? y=yes n=no"
0ade 0092 0be7  |    |		Action	Push_String_Extended,0xbe7					; "Send a Support Request to Rational:"
0ae0 4801       |H   |		Short_Literal	0x1
0ae1 e5fe       |    |		Load	0x2,-0x2
0ae2 e603       |    |		Load	0x3,0x3
0ae3 e602       |    |		Load	0x3,0x2
0ae4 e002       |    |		Load	0x0,0x2
0ae5 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0ae6 786e       |xn  |		Jump	0xb55
0ae7 e001       |    |		Load	0x0,0x1
0ae8 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0ae9 0f11       |    |		Execute_Immediate	Equal,0x11
0aea 6816       |h   |		Jump_Zero	0xb01
0aeb 4800       |H   |		Short_Literal	0x0
0aec 4804       |H   |		Short_Literal	0x4
0aed 0092 0be8  |    |		Action	Push_String_Extended,0xbe8					; "Close an existing request."
0aef e003       |    |		Load	0x0,0x3
0af0 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0af1 0092 0be9  |    |		Action	Push_String_Extended,0xbe9					; "closed"
0af3 0092 0be9  |    |		Action	Push_String_Extended,0xbe9					; "closed"
0af5 49c7       |I   |		Short_Literal	0x1c7
0af6 0092 0bea  |    |		Action	Push_String_Extended,0xbea					; "Close this request? y=yes n=no"
0af8 0092 0beb  |    |		Action	Push_String_Extended,0xbeb					; "Select a Support Request to close:"
0afa 4801       |H   |		Short_Literal	0x1
0afb e5fe       |    |		Load	0x2,-0x2
0afc e603       |    |		Load	0x3,0x3
0afd e602       |    |		Load	0x3,0x2
0afe e002       |    |		Load	0x0,0x2
0aff 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0b00 7854       |xT  |		Jump	0xb55
0b01 e001       |    |		Load	0x0,0x1
0b02 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0b03 0f12       |    |		Execute_Immediate	Equal,0x12
0b04 6812       |h   |		Jump_Zero	0xb17
0b05 4800       |H   |		Short_Literal	0x0
0b06 4804       |H   |		Short_Literal	0x4
0b07 0092 0bec  |    |		Action	Push_String_Extended,0xbec					; "Forwarding all 'to_be_sent' requests to tape for Rational."
0b09 e003       |    |		Load	0x0,0x3
0b0a 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0b0b 4801       |H   |		Short_Literal	0x1
0b0c 4801       |H   |		Short_Literal	0x1
0b0d 4801       |H   |		Short_Literal	0x1
0b0e 4801       |H   |		Short_Literal	0x1
0b0f 4801       |H   |		Short_Literal	0x1
0b10 4801       |H   |		Short_Literal	0x1
0b11 4800       |H   |		Short_Literal	0x0
0b12 e5fe       |    |		Load	0x2,-0x2
0b13 e603       |    |		Load	0x3,0x3
0b14 e602       |    |		Load	0x3,0x2
0b15 822e       | .  |		Call	0x1,0x2e
0b16 783e       |x>  |		Jump	0xb55
0b17 e001       |    |		Load	0x0,0x1
0b18 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0b19 0f13       |    |		Execute_Immediate	Equal,0x13
0b1a 680f       |h   |		Jump_Zero	0xb2a
0b1b 4800       |H   |		Short_Literal	0x0
0b1c 4804       |H   |		Short_Literal	0x4
0b1d 0092 0bed  |    |		Action	Push_String_Extended,0xbed					; "Delete an existing request."
0b1f e003       |    |		Load	0x0,0x3
0b20 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0b21 e20d       |    |		Load	0x1,0xd
0b22 4801       |H   |		Short_Literal	0x1
0b23 e20d       |    |		Load	0x1,0xd
0b24 e5fe       |    |		Load	0x2,-0x2
0b25 e603       |    |		Load	0x3,0x3
0b26 e602       |    |		Load	0x3,0x2
0b27 e002       |    |		Load	0x0,0x2
0b28 183a       | :  |		Execute	Package,Field_Execute,Field_Number 0x3a
0b29 782b       |x+  |		Jump	0xb55
0b2a e001       |    |		Load	0x0,0x1
0b2b 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0b2c 0f14       |    |		Execute_Immediate	Equal,0x14
0b2d e001       |    |		Load	0x0,0x1
0b2e 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0b2f 0f1b       |    |		Execute_Immediate	Equal,0x1b
0b30 0278       | x  |		Execute	Discrete,Or
0b31 680c       |h   |		Jump_Zero	0xb3e
0b32 4800       |H   |		Short_Literal	0x0
0b33 4804       |H   |		Short_Literal	0x4
0b34 0092 0bee  |    |		Action	Push_String_Extended,0xbee					; "Initialize a new database."
0b36 e003       |    |		Load	0x0,0x3
0b37 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0b38 4801       |H   |		Short_Literal	0x1
0b39 e603       |    |		Load	0x3,0x3
0b3a e602       |    |		Load	0x3,0x2
0b3b e002       |    |		Load	0x0,0x2
0b3c 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0b3d 7817       |x   |		Jump	0xb55
0b3e e001       |    |		Load	0x0,0x1
0b3f 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0b40 0f15       |    |		Execute_Immediate	Equal,0x15
0b41 6808       |h   |		Jump_Zero	0xb4a
0b42 4828       |H(  |		Short_Literal	0x28
0b43 4801       |H   |		Short_Literal	0x1
0b44 4801       |H   |		Short_Literal	0x1
0b45 4801       |H   |		Short_Literal	0x1
0b46 e5fd       |    |		Load	0x2,-0x3
0b47 e001       |    |		Load	0x0,0x1
0b48 18a6       |    |		Execute	Package,Field_Execute,Field_Number 0xa6
0b49 780b       |x   |		Jump	0xb55
0b4a e001       |    |		Load	0x0,0x1
0b4b 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
0b4c 0f1e       |    |		Execute_Immediate	Equal,0x1e
0b4d 6803       |h   |		Jump_Zero	0xb51
0b4e 00ce       |    |		Action	Pop_Auxiliary
0b4f 00cc       |    |		Action	Pop_Block
0b50 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b51 e5fd       |    |		Load	0x2,-0x3
0b52 e001       |    |		Load	0x0,0x1
0b53 18a8       |    |		Execute	Package,Field_Execute,Field_Number 0xa8
0b54 7804       |x   |		Jump	0xb59
0b55 e003       |    |		Load	0x0,0x3
0b56 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0b57 00c9       |    |		Action	Pop_Auxiliary_Loop
0b58 7d30       |}0  |		Jump	0x889
0b59 00ce       |    |		Action	Pop_Auxiliary
0b5a e001       |    |		Load	0x0,0x1
0b5b 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
0b5c e20d       |    |		Load	0x1,0xd
0b5d 027f       |    |		Execute	Discrete,Equal
0b5e 6802       |h   |		Jump_Zero	0xb61
0b5f e003       |    |		Load	0x0,0x3
0b60 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0b61 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b62			TRAP_0880:
0b62 0007       |    |		Action	Break_Optional
0b63 4801       |H   |		Short_Literal	0x1
0b64 4804       |H   |		Short_Literal	0x4
0b65 0092 0bef  |    |		Action	Push_String_Extended,0xbef					; "Exception occurred in Ap_process_sub_menu."
0b67 e003       |    |		Load	0x0,0x3
0b68 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0b69 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0b6a ; --------------------------------------------------------------------------------------
0b6a ; STRING TABLE
0b6a ; --------------------------------------------------------------------------------------
0b6a 010e       |    |		.STRTAB	0x010e->0x0bf1							; "Constraint error in def."
0b6b 0124       | $  |		.STRTAB	0x0124->0x0bfd							; "Numeric error in def."
0b6c 0137       | 7  |		.STRTAB	0x0137->0x0c07							; "Program error in def."
0b6d 014a       | J  |		.STRTAB	0x014a->0x0c12							; "Storage error in def."
0b6e 015d       | ]  |		.STRTAB	0x015d->0x0c1c							; "Tasking error in def."
0b6f 0170       | p  |		.STRTAB	0x0170->0x0c27							; "Other Program error in def."
0b70 0189       |    |		.STRTAB	0x0189->0x0c34							; "   Exception in ap_customer_def."
0b71 01a7       |    |		.STRTAB	0x01a7->0x0c44							; " Rational Customer Support Systems "
0b72 01c8       |    |		.STRTAB	0x01c8->0x0c56							; "\x5cdefault\x5c"
0b73 01cf       |    |		.STRTAB	0x01cf->0x0c5a							; "Command:"
0b74 01d5       |    |		.STRTAB	0x01d5->0x0c5e							; "  Main Command: (or ?):"
0b75 01ea       |    |		.STRTAB	0x01ea->0x0c6a							; "Enter Problem or Support Request"
0b76 0208       |    |		.STRTAB	0x0208->0x0c7a							; "Support Request Maintenance"
0b77 0221       | !  |		.STRTAB	0x0221->0x0c87							; "Help Information Display"
0b78 0237       | 7  |		.STRTAB	0x0237->0x0c93							; "Quit this application. "
0b79 024c       | L  |		.STRTAB	0x024c->0x0c9f							; "1"
0b7a 024b       | K  |		.STRTAB	0x024b->0x0c9f							; "Please enter a numeric command selection and hit return."
0b7b 0281       |    |		.STRTAB	0x0281->0x0cbb							; "Customer Support Application Help"
0b7c 02a0       |    |		.STRTAB	0x02a0->0x0ccc							; "Overview: "
0b7d 02a8       |    |		.STRTAB	0x02a8->0x0cd1							; "   The Support Information Management System (SIMS) includes two"
0b7e 02e6       |    |		.STRTAB	0x02e6->0x0cf1							; "tools called Request and Review for external use by customers."
0b7f 0322       | "  |		.STRTAB	0x0322->0x0d10							; "The Request program is intended for use by end users wishing to"
0b80 035f       | _  |		.STRTAB	0x035f->0x0d2f							; "enter requests or report problems, while the Review program is"
0b81 039b       |    |		.STRTAB	0x039b->0x0d4e							; "provided for the local system manager to manage and forward these"
0b82 03da       |    |		.STRTAB	0x03da->0x0d6f							; "problems to Rational when appropriate."
0b83 03fe       |    |		.STRTAB	0x03fe->0x0d82							; "   These Customer Support Applications are intended as a way to help"
0b84 0440       | @  |		.STRTAB	0x0440->0x0da4							; "our customers manage and track problem reports or requests locally."
0b85 0481       |    |		.STRTAB	0x0481->0x0dc5							; "The Request program allows various users on your system to"
0b86 04b9       |    |		.STRTAB	0x04b9->0x0de2							; "directly and easily log problem reports using the full editing and"
0b87 04f9       |    |		.STRTAB	0x04f9->0x0e03							; "command convenience of the R1000 Environment such as region copy or"
0b88 053a       | :  |		.STRTAB	0x053a->0x0e25							; "other editing commands.   These problem or request reports are then"
0b89 057b       | {  |		.STRTAB	0x057b->0x0e46							; "forwarded to a local request database for review and action by the"
0b8a 05bb       |    |		.STRTAB	0x05bb->0x0e67							; "site's technical system manager.   The system manager then uses the"
0b8b 05fc       |    |		.STRTAB	0x05fc->0x0e89							; "Review program to review, edit, display, report, make notes,"
0b8c 0636       | 6  |		.STRTAB	0x0636->0x0ea7							; "etc.   Those requests that the system manager deems appropriate can"
0b8d 0677       | w  |		.STRTAB	0x0677->0x0ec8							; "then easily be forwarded directly to Rational without any additional"
0b8e 06b9       |    |		.STRTAB	0x06b9->0x0eea							; "typing needed.   Once Rational receives the requests or problems"
0b8f 06f7       |    |		.STRTAB	0x06f7->0x0f0a							; "from your local SIMS database, these various requests or problems are"
0b90 073a       | :  |		.STRTAB	0x073a->0x0f2d							; "processed and managed by a series of internal sims customer support"
0b91 077b       | {  |		.STRTAB	0x077b->0x0f4e							; "application tools used by the response center in a variety of areas."
0b92 07bd       |    |		.STRTAB	0x07bd->0x0f70							; "                                            "
0b93 07e7       |    |		.STRTAB	0x07e7->0x0f86							; "Suggestions for improvement of changes are most welcome and will be"
0b94 0828       | (  |		.STRTAB	0x0828->0x0fa8							; "reviewed and considered for future SIMS releases."
0b95 0857       | W  |		.STRTAB	0x0857->0x0fc0							; "Exception occurred in ap_init_screen_3."
0b96 087c       | |  |		.STRTAB	0x087c->0x0fd4							; "      Support Requests Management       "
0b97 08a2       |    |		.STRTAB	0x08a2->0x0fe8							; "Menu"
0b98 08a4       |    |		.STRTAB	0x08a4->0x0fea							; "  Command: (Display, Search, Report, Send, Forward, Quit, Menu):"
0b99 08e2       |    |		.STRTAB	0x08e2->0x100a							; "xxxxxxxxxx - max size for keyword parsing input"
0b9a 090f       |    |		.STRTAB	0x090f->0x1021							; "Display a Customer Support Request"
0b9b 092f       | /  |		.STRTAB	0x092f->0x1032							; "Edit an existing Support Request"
0b9c 094d       | M  |		.STRTAB	0x094d->0x1042							; "Enter a new Problem or Request"
0b9d 0969       | i  |		.STRTAB	0x0969->0x1051							; "Detailed entry of a new Request"
0b9e 0986       |    |		.STRTAB	0x0986->0x1061							; "Search for a specific request"
0b9f 09a1       |    |		.STRTAB	0x09a1->0x106f							; "Continue last search    "
0ba0 09b7       |    |		.STRTAB	0x09b7->0x107b							; "Current request display"
0ba1 09cc       |    |		.STRTAB	0x09cc->0x1087							; "Next request display"
0ba2 09de       |    |		.STRTAB	0x09de->0x1091							; "Prior request display"
0ba3 09f1       |    |		.STRTAB	0x09f1->0x109b							; "Log requests to print log"
0ba4 0a08       |    |		.STRTAB	0x0a08->0x10a8							; "Newly opened requests search"
0ba5 0a22       | "  |		.STRTAB	0x0a22->0x10b6							; "Show last request added to file"
0ba6 0a3f       | ?  |		.STRTAB	0x0a3f->0x10c5							; "Print current request to log"
0ba7 0a59       | Y  |		.STRTAB	0x0a59->0x10d3							; "Help information overview"
0ba8 0a70       | p  |		.STRTAB	0x0a70->0x10e0							; "Report or Display all requests"
0ba9 0a8c       |    |		.STRTAB	0x0a8c->0x10ef							; "Send existing request to Rational"
0baa 0aab       |    |		.STRTAB	0x0aab->0x10ff							; "Close the current request"
0bab 0ac2       |    |		.STRTAB	0x0ac2->0x110c							; "Forward all 'to_be_sent' to Rational"
0bac 0ae4       |    |		.STRTAB	0x0ae4->0x111e							; "Delete the current request"
0bad 0afc       |    |		.STRTAB	0x0afc->0x112b							; "Initialize a new master file"
0bae 0b16       |    |		.STRTAB	0x0b16->0x1139							; "Menu display of all commands"
0baf 0b30       | 0  |		.STRTAB	0x0b30->0x1147							; "Quit this application"
0bb0 0b43       | C  |		.STRTAB	0x0b43->0x1151							; "[Select a command by number or by unique portion of command name.]"
0bb1 0b83       |    |		.STRTAB	0x0b83->0x1172							; "[Or '?' for new menu, Or use standard R1000 window & editing.    ]"
0bb2 0bc3       |    |		.STRTAB	0x0bc3->0x1193							; "[Or for record editing:   Up= ^   Top= ,   Select= .   Exit= /   ]"
0bb3 0c03       |    |		.STRTAB	0x0c03->0x11b4							; "Exception occurred in ap_init_screen_5."
0bb4 0c28       | (  |		.STRTAB	0x0c28->0x11c8							; "xxx"
0bb5 0c29       | )  |		.STRTAB	0x0c29->0x11c9							; "open"
0bb6 0c2b       | +  |		.STRTAB	0x0c2b->0x11cb							; "pending"
0bb7 0c30       | 0  |		.STRTAB	0x0c30->0x11cf							; "SR"
0bb8 0c30       | 0  |		.STRTAB	0x0c30->0x11d0							; "    Support Request Maintenance         "
0bb9 0c56       | V  |		.STRTAB	0x0c56->0x11e4							; "local_request_master"
0bba 0c68       | h  |		.STRTAB	0x0c68->0x11ee							; "Exception in ap_init_application1."
0bbb 0c88       |    |		.STRTAB	0x0c88->0x11ff							; "Exception found in ap_forward_and_send_all_requests"
0bbc 0cb9       |    |		.STRTAB	0x0cb9->0x1218							; "sims_log"
0bbd 0cbf       |    |		.STRTAB	0x0cbf->0x121c							; "Exception in ap_process_top_menu, Unable to close log file."
0bbe 0cf8       |    |		.STRTAB	0x0cf8->0x123a							; "Checking for User Requests/Problems to Load =>"
0bbf 0d24       | $  |		.STRTAB	0x0d24->0x1251							; "y"
0bc0 0d23       | #  |		.STRTAB	0x0d23->0x1251							; "ok   "
0bc1 0d26       | &  |		.STRTAB	0x0d26->0x1254							; "to_be_sent"
0bc2 0d2e       | .  |		.STRTAB	0x0d2e->0x1259							; "Send this request to Rational to transfer queue? y=yes n=no"
0bc3 0d67       | g  |		.STRTAB	0x0d67->0x1276							; "Select a Support Request to send to Rational:"
0bc4 0d92       |    |		.STRTAB	0x0d92->0x128d							; "==> No reports found as 'to_be_sent' that need forwarding. All done.<=="
0bc5 0dd7       |    |		.STRTAB	0x0dd7->0x12b0							; "==> Please mount a tape for transferring reports to Rational. <=="
0bc6 0e16       |    |		.STRTAB	0x0e16->0x12d1							; "<PROFILE>"
0bc7 0e1d       |    |		.STRTAB	0x0e1d->0x12d5							; "MACHINE.DEVICES.TAPE_0"
0bc8 0e31       | 1  |		.STRTAB	0x0e31->0x12e0							; "R1000"
0bc9 0e34       | 4  |		.STRTAB	0x0e34->0x12e3							; "@"
0bca 0e33       | 3  |		.STRTAB	0x0e33->0x12e3							; "Did archive save complete ok?  OK to continue?"
0bcb 0e5f       | _  |		.STRTAB	0x0e5f->0x12fa							; "If archive tape problem, please send and forward a 2nd report"
0bcc 0e9a       |    |		.STRTAB	0x0e9a->0x1319							; "to re-pick up leftover prior reports.   When an archive comnpletes"
0bcd 0eda       |    |		.STRTAB	0x0eda->0x133a							; "be sure to delete temp files in => "
0bce 0efb       |    |		.STRTAB	0x0efb->0x134b							; "else you will be sending duplicate support requests."
0bcf 0f2d       | -  |		.STRTAB	0x0f2d->0x1365							; "Forward command completed, thank you,"
0bd0 0f50       | P  |		.STRTAB	0x0f50->0x1378							; "Please ship the source archive tape to Rational Customer Support."
0bd1 0f8f       |    |		.STRTAB	0x0f8f->0x1398							; "Exiting Program."
0bd2 0f9d       |    |		.STRTAB	0x0f9d->0x13a0							; "Quit"
0bd3 0f9f       |    |		.STRTAB	0x0f9f->0x13a2							; "Are you sure?, "
0bd4 0fac       |    |		.STRTAB	0x0fac->0x13aa							; "u"
0bd5 0fab       |    |		.STRTAB	0x0fab->0x13aa							; "Help message:"
0bd6 0fb6       |    |		.STRTAB	0x0fb6->0x13b1							; "...Invalid top menu input command:"
0bd7 0fd6       |    |		.STRTAB	0x0fd6->0x13c2							; "Editing an existing request."
0bd8 0ff0       |    |		.STRTAB	0x0ff0->0x13d0							; "Entering a new problem or request."
0bd9 1010       |    |		.STRTAB	0x1010->0x13e1							; "Detailed entry of a new request."
0bda 102e       | .  |		.STRTAB	0x102e->0x13f1							; "Search for a specific request."
0bdb 104a       | J  |		.STRTAB	0x104a->0x1400							; "Continuing last search as left off."
0bdc 106b       | k  |		.STRTAB	0x106b->0x1411							; "Finding the current request."
0bdd 1085       |    |		.STRTAB	0x1085->0x141f							; "Finding the next request."
0bde 109c       |    |		.STRTAB	0x109c->0x142c							; "Finding the prior request."
0bdf 10b4       |    |		.STRTAB	0x10b4->0x1439							; "Logging all reports displayed to log file."
0be0 10dc       |    |		.STRTAB	0x10dc->0x144e							; "Search for any newly opened requests."
0be1 10ff       |    |		.STRTAB	0x10ff->0x1460							; "Show last request added to database."
0be2 1121       | !  |		.STRTAB	0x1121->0x1472							; "Printing current report to log file."
0be3 1143       | C  |		.STRTAB	0x1143->0x1484							; "Displaying help message overview:"
0be4 1162       | b  |		.STRTAB	0x1162->0x1495							; "Showing or Reporting all or selected reports."
0be5 118d       |    |		.STRTAB	0x118d->0x14ab							; "sent"
0be6 118f       |    |		.STRTAB	0x118f->0x14ad							; "Send this request to Rational? y=yes n=no"
0be7 11b6       |    |		.STRTAB	0x11b6->0x14c2							; "Send a Support Request to Rational:"
0be8 11d7       |    |		.STRTAB	0x11d7->0x14d3							; "Close an existing request."
0be9 11ef       |    |		.STRTAB	0x11ef->0x14e0							; "closed"
0bea 11f3       |    |		.STRTAB	0x11f3->0x14e3							; "Close this request? y=yes n=no"
0beb 120f       |    |		.STRTAB	0x120f->0x14f2							; "Select a Support Request to close:"
0bec 122f       | /  |		.STRTAB	0x122f->0x1503							; "Forwarding all 'to_be_sent' requests to tape for Rational."
0bed 1267       | g  |		.STRTAB	0x1267->0x1520							; "Delete an existing request."
0bee 1280       |    |		.STRTAB	0x1280->0x152e							; "Initialize a new database."
0bef 1298       |    |		.STRTAB	0x1298->0x153b							; "Exception occurred in Ap_process_sub_menu."
0bf0 12c0       |    |		.STREND 0x12c0->0x1550
0bf1 436f 6e73  |Cons|		.STRTAB_STRINGS
1550 ; --------------------------------------------------------------------------------------
1550 ; Debug Table
1550 ; --------------------------------------------------------------------------------------
1550 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x120a,0x0000,0x0001,0x0000
1556 80a1 41bd  |  A |		.XXX[0x9]
1558 bdb0 80e8  |    |
155a 8141 bdbd  | A  |
155c b17d 2590  | }% |
155e a428       | (  |
155f 8080 8080  |    |		.BLANK	8080[0xb]
156a 81c9 95d1  |    |		.XXX[0x96]
156c d5c9 b881  |    |
156e 3985 d1d5  |9   |
1570 c985 b0ec  |    |
1572 2828 8081  |((  |
1574 4995 d1d5  |I   |
1576 c9b9 cc81  |    |
1578 d1a1 9481  |    |
157a b585 e1a5  |    |
157c b5d5 b481  |    |
157e b9d5 b589  |    |
1580 95c8 81bd  |    |
1582 9881 cd95  |    |
1584 c9d9 95c8  |    |
1586 81d1 85cd  |    |
1588 adcc 81d1  |    |
158a a185 d081  |    |
158c b585 e481  |    |
158e 8994 2880  |  ( |
1590 81cd a5b5  |    |
1592 d5b1 d185  |    |
1594 b995 bdd5  |    |
1596 cdb1 e481  |    |
1598 858d d1a5  |    |
159a d994 81a5  |    |
159c b881 d1a1  |    |
159e 9481 9da5  |    |
15a0 d995 b881  |    |
15a2 c1bd bdb0  |    |
15a4 b828 2880  | (( |
15a6 8151 a1a5  | Q  |
15a8 cc81 d985  |    |
15aa b1d5 9481  |    |
15ac a5cc 81a5  |    |
15ae b9a5 d1a5  |    |
15b0 85b1 a5e9  |    |
15b2 9590 81dd  |    |
15b4 a195 b881  |    |
15b6 d1a1 9481  |    |
15b8 c1bd bdb0  |    |
15ba 81a5 cc81  |    |
15bc 8dc9 9585  |    |
15be d195 9081  |    |
15c0 85b9 9081  |    |
15c2 cdd5 89cd  |    |
15c4 95c5 d595  |    |
15c6 b9d1 b1e4  |    |
15c8 2880 818d  |(   |
15ca 85b8 8189  |    |
15cc 9481 cd95  |    |
15ce d081 89e4  |    |
15d0 81d1 a194  |    |
15d2 81d5 cd95  |    |
15d4 c8b8 2880  |  ( |
15d6 8101 b9bd  |    |
15d8 9194 8085  |    |
15da 51bd bdb1  |Q   |
15dc ccb9 3995  |  9 |
15de d1dd bdc9  |    |
15e0 ada5 b99c  |    |
15e2 b951 c985  | Q  |
15e4 b9cd c1bd  |    |
15e6 c9d1 7d4d  |  }M|
15e8 95c9 d995  |    |
15ea c8b9 3995  |  9 |
15ec d1dd bdc9  |    |
15ee ac28 2880  | (( |
15f0 8199 d5b9  |    |
15f2 8dd1 a5bd  |    |
15f4 b881 3995  |  9 |
15f6 d1dd bdc9  |    |
15f8 ac80 a141  |   A|
15fa bdbd b080  |    |
15fc e881 41bd  |  A |
15fe bdb1 7d25  |  }%|