|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0398 | | .CONST 0x0398 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00fc | | .CONST 0x00fc ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001f | | .CONST 0x001f ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x0422,0x8000,0x0000,0x0059,0xec35,0x0000,0x0003
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 4802 |H | Short_Literal 0x2
000d 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x1 = 0x10,0xfffe
0011 48ff |H | Short_Literal 0xff
0012 00e3 | | Load_Encached Natural_Cache
0013 03f9 | | Declare_Type Discrete,Constrained,Visible
0014 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0x2 = 0x14,0xfffd
0015 00e1 | | Load_Encached Boolean_Cache
0016 00e1 | | Load_Encached Boolean_Cache
0017 00e1 | | Load_Encached Boolean_Cache
0018 00e1 | | Load_Encached Boolean_Cache
0019 029f 011b | | Declare_Subprogram INIT_0118,For_Call
001b 4805 |H | Short_Literal 0x5
001c 032e | . | Declare_Type Record,Defined,Visible
001d 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0x3 = 0x1d,0xfffc
001e 00e1 | | Load_Encached Boolean_Cache
001f 00e1 | | Load_Encached Boolean_Cache
0020 00e1 | | Load_Encached Boolean_Cache
0021 e20e | | Load 0x1,0xe
0022 e20e | | Load 0x1,0xe
0023 e20e | | Load 0x1,0xe
0024 e20d | | Load 0x1,0xd
0025 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call
0027 4808 |H | Short_Literal 0x8
0028 032e | . | Declare_Type Record,Defined,Visible
0029 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0x4 = 0x29,0xfffb
002a 00e1 | | Load_Encached Boolean_Cache
002b 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call
002d 4802 |H | Short_Literal 0x2
002e 032e | . | Declare_Type Record,Defined,Visible
002f 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0x5 = 0x2f,0xfffa
0030 00e1 | | Load_Encached Boolean_Cache
0031 00e1 | | Load_Encached Boolean_Cache
0032 00e1 | | Load_Encached Boolean_Cache
0033 00e1 | | Load_Encached Boolean_Cache
0034 029f 017b | {| Declare_Subprogram INIT_0178,For_Call
0036 4805 |H | Short_Literal 0x5
0037 032e | . | Declare_Type Record,Defined,Visible
0038 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0x6 = 0x38,0xfff9
0039 00e3 | | Load_Encached Natural_Cache
003a 00e1 | | Load_Encached Boolean_Cache
003b 00e1 | | Load_Encached Boolean_Cache
003c 00e3 | | Load_Encached Natural_Cache
003d 00e1 | | Load_Encached Boolean_Cache
003e 00e3 | | Load_Encached Natural_Cache
003f 00e3 | | Load_Encached Natural_Cache
0040 029f 019b | | Declare_Subprogram INIT_0198,For_Call
0042 4808 |H | Short_Literal 0x8
0043 032e | . | Declare_Type Record,Defined,Visible
0044 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0x7 = 0x44,0xfff8
0045 00e1 | | Load_Encached Boolean_Cache
0046 00e1 | | Load_Encached Boolean_Cache
0047 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
0049 4803 |H | Short_Literal 0x3
004a 032e | . | Declare_Type Record,Defined,Visible
004b e20f | | Load 0x1,0xf ; Debug Table 0x0.0x8 = 0x4b,0xfff7
004c e210 | | Load 0x1,0x10
004d e211 | | Load 0x1,0x11
004e e212 | | Load 0x1,0x12
004f e213 | | Load 0x1,0x13
0050 e214 | | Load 0x1,0x14
0051 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
0053 4806 |H | Short_Literal 0x6
0054 032e | . | Declare_Type Record,Defined,Visible
0055 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x9 = 0x55,0xfff6
0056 0322 | " | Declare_Variable Record
0057 00d8 | | Load_Top At_Offset_0
0058 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0059 4801 |H | Short_Literal 0x1
005a 00d9 | | Load_Top At_Offset_1
005b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
005c 4800 |H | Short_Literal 0x0
005d 00d9 | | Load_Top At_Offset_1
005e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
005f 4800 |H | Short_Literal 0x0
0060 00d9 | | Load_Top At_Offset_1
0061 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0062 4800 |H | Short_Literal 0x0
0063 00d9 | | Load_Top At_Offset_1
0064 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0065 4800 |H | Short_Literal 0x0
0066 00d0 | | Action Swap_Control
0067 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0068 00d8 | | Load_Top At_Offset_0
0069 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
006a 4800 |H | Short_Literal 0x0
006b 00d9 | | Load_Top At_Offset_1
006c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
006d 4801 |H | Short_Literal 0x1
006e 00d9 | | Load_Top At_Offset_1
006f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0070 4800 |H | Short_Literal 0x0
0071 00d9 | | Load_Top At_Offset_1
0072 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0073 4801 |H | Short_Literal 0x1
0074 00d9 | | Load_Top At_Offset_1
0075 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0076 4850 |HP | Short_Literal 0x50
0077 00d9 | | Load_Top At_Offset_1
0078 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0079 4802 |H | Short_Literal 0x2
007a 00d9 | | Load_Top At_Offset_1
007b 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
007c 4800 |H | Short_Literal 0x0
007d 00d9 | | Load_Top At_Offset_1
007e 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
007f 4801 |H | Short_Literal 0x1
0080 00d0 | | Action Swap_Control
0081 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0082 00d8 | | Load_Top At_Offset_0
0083 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0084 4800 |H | Short_Literal 0x0
0085 00d9 | | Load_Top At_Offset_1
0086 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0087 4800 |H | Short_Literal 0x0
0088 00d0 | | Action Swap_Control
0089 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
008a 00d8 | | Load_Top At_Offset_0
008b 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
008c 4800 |H | Short_Literal 0x0
008d 00d9 | | Load_Top At_Offset_1
008e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
008f 4800 |H | Short_Literal 0x0
0090 00d9 | | Load_Top At_Offset_1
0091 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0092 4801 |H | Short_Literal 0x1
0093 00d9 | | Load_Top At_Offset_1
0094 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0095 4800 |H | Short_Literal 0x0
0096 00d9 | | Load_Top At_Offset_1
0097 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0098 4800 |H | Short_Literal 0x0
0099 00d0 | | Action Swap_Control
009a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
009b 00d8 | | Load_Top At_Offset_0
009c 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
009d 4800 |H | Short_Literal 0x0
009e 00d9 | | Load_Top At_Offset_1
009f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00a0 4804 |H | Short_Literal 0x4
00a1 00d9 | | Load_Top At_Offset_1
00a2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00a3 4801 |H | Short_Literal 0x1
00a4 00d9 | | Load_Top At_Offset_1
00a5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00a6 4801 |H | Short_Literal 0x1
00a7 00d9 | | Load_Top At_Offset_1
00a8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00a9 4804 |H | Short_Literal 0x4
00aa 00d9 | | Load_Top At_Offset_1
00ab 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00ac 4800 |H | Short_Literal 0x0
00ad 00d9 | | Load_Top At_Offset_1
00ae 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00af 4800 |H | Short_Literal 0x0
00b0 00d9 | | Load_Top At_Offset_1
00b1 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
00b2 4800 |H | Short_Literal 0x0
00b3 00d0 | | Action Swap_Control
00b4 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
00b5 00d8 | | Load_Top At_Offset_0
00b6 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
00b7 4800 |H | Short_Literal 0x0
00b8 00d9 | | Load_Top At_Offset_1
00b9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00ba 4800 |H | Short_Literal 0x0
00bb 00d9 | | Load_Top At_Offset_1
00bc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00bd 4800 |H | Short_Literal 0x0
00be 00d0 | | Action Swap_Control
00bf 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00c0 0129 | ) | Execute Any,Make_Visible
00c1 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0xa = 0xc1,0xfff5
00c2 00e3 | | Load_Encached Natural_Cache
00c3 00e9 | | Load_Encached String_Cache
00c4 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call
00c6 4800 |H | Short_Literal 0x0
00c7 4801 |H | Short_Literal 0x1
00c8 4801 |H | Short_Literal 0x1
00c9 4800 |H | Short_Literal 0x0
00ca 4801 |H | Short_Literal 0x1
00cb 4801 |H | Short_Literal 0x1
00cc 031e | | Declare_Type Variant_Record,Defined,Visible
00cd 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xb = 0xcd,0xfff4
00ce 4802 |H | Short_Literal 0x2
00cf 029f 022b | +| Declare_Subprogram INIT_0228,For_Call
00d1 03fe | | Declare_Type Discrete,Defined,Visible
00d2 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0xc = 0xd2,0xfff3
00d3 00e3 | | Load_Encached Natural_Cache
00d4 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
00d6 4802 |H | Short_Literal 0x2
00d7 032e | . | Declare_Type Record,Defined,Visible
00d8 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xd = 0xd8,0xfff2
00d9 4803 |H | Short_Literal 0x3
00da 029f 025b | [| Declare_Subprogram INIT_0258,For_Call
00dc 03fe | | Declare_Type Discrete,Defined,Visible
00dd 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0xe = 0xdd,0xfff1
00de 0266 | f | Execute Discrete,Bounds
00df 00db | | Load_Top At_Offset_3
00e0 029f 0273 | s| Declare_Subprogram INIT_0270,For_Call
00e2 4801 |H | Short_Literal 0x1
00e3 035e | ^ | Declare_Type Array,Defined,Visible
00e4 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xf = 0xe4,0xfff0
00e5 4808 |H | Short_Literal 0x8
00e6 029f 028b | | Declare_Subprogram INIT_0288,For_Call
00e8 03fe | | Declare_Type Discrete,Defined,Visible
00e9 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x10 = 0xe9,0xffef
00ea 0266 | f | Execute Discrete,Bounds
00eb 00e3 | | Load_Encached Natural_Cache
00ec 02a0 | | Declare_Subprogram Null_Subprogram
00ed 4801 |H | Short_Literal 0x1
00ee 035e | ^ | Declare_Type Array,Defined,Visible
00ef 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x11 = 0xef,0xffee
00f0 4807 |H | Short_Literal 0x7
00f1 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call
00f3 03fe | | Declare_Type Discrete,Defined,Visible
00f4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x12 = 0xf4,0xffed
00f5 0266 | f | Execute Discrete,Bounds
00f6 e219 | | Load 0x1,0x19
00f7 029f 02bb | | Declare_Subprogram INIT_02b8,For_Call
00f9 4801 |H | Short_Literal 0x1
00fa 035e | ^ | Declare_Type Array,Defined,Visible
00fb 00bf | | Action Accept_Activation
00fc BODY_0008:
00fc 00bc | | Action Signal_Activated
00fd 00bb | | Action Signal_Completion
00fe 0000 0000 | | .XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 4603 |F | Jump_Case 0x4 ; Debug Table 0x1 = .DEBUG 0x0103,0x044a,0x0005,0x0000,0x0059,0xec35,0x0000,0x0004
0104 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0105 7802 |x | Jump 0x108 ; case 0x1
0106 7805 |x | Jump 0x10c ; case 0x2
0107 7809 |x | Jump 0x111 ; case 0x3
0108 00da | | Load_Top At_Offset_2
0109 0091 02d4 | | Action Push_String_Extended_Indexed,0x2d4 ; "LOWER"
010b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
010c 00db | | Load_Top At_Offset_3
010d 00db | | Load_Top At_Offset_3
010e 00e0 | | Load_Encached Standard_Cache
010f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0110 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0111 00da | | Load_Top At_Offset_2
0112 00e0 | | Load_Encached Standard_Cache
0113 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0114 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0115 0000 0000 | | .XXX[0x3]
0117 0000 | |
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 4608 |F | Jump_Case 0x9 ; Debug Table 0x2 = .DEBUG 0x011b,0x044c,0x0005,0x0000,0x0059,0xec35,0x0000,0x0012
011c 7808 |x | Jump 0x125 ; case 0x0
011d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
011e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
011f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0120 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0121 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0122 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
0123 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
0124 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
0125 4801 |H | Short_Literal 0x1
0126 00db | | Load_Top At_Offset_3
0127 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0128 4801 |H | Short_Literal 0x1
0129 00db | | Load_Top At_Offset_3
012a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
012b 4801 |H | Short_Literal 0x1
012c 00db | | Load_Top At_Offset_3
012d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
012e 4801 |H | Short_Literal 0x1
012f 00db | | Load_Top At_Offset_3
0130 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0131 4801 |H | Short_Literal 0x1
0132 00db | | Load_Top At_Offset_3
0133 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0134 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0135 0000 0000 | | .XXX[0x3]
0137 0000 | |
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 4608 |F | Jump_Case 0x9 ; Debug Table 0x3 = .DEBUG 0x013b,0x044e,0x0005,0x0000,0x0059,0xec35,0x0000,0x0034
013c 7808 |x | Jump 0x145 ; case 0x0
013d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
013e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
013f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0140 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0141 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0142 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
0143 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
0144 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
0145 4800 |H | Short_Literal 0x0
0146 00db | | Load_Top At_Offset_3
0147 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0148 4801 |H | Short_Literal 0x1
0149 00db | | Load_Top At_Offset_3
014a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
014b 4800 |H | Short_Literal 0x0
014c 00db | | Load_Top At_Offset_3
014d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
014e 4801 |H | Short_Literal 0x1
014f 00db | | Load_Top At_Offset_3
0150 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0151 4850 |HP | Short_Literal 0x50
0152 00db | | Load_Top At_Offset_3
0153 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0154 4802 |H | Short_Literal 0x2
0155 00db | | Load_Top At_Offset_3
0156 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0157 4800 |H | Short_Literal 0x0
0158 00db | | Load_Top At_Offset_3
0159 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
015a 4801 |H | Short_Literal 0x1
015b 00db | | Load_Top At_Offset_3
015c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
015d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
015e 0000 0000 | | .XXX[0x2]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 4608 |F | Jump_Case 0x9 ; Debug Table 0x4 = .DEBUG 0x0163,0x0450,0x0005,0x0000,0x0059,0xec35,0x0000,0x0068
0164 7808 |x | Jump 0x16d ; case 0x0
0165 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0166 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0167 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0168 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0169 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
016a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
016b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
016c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
016d 4800 |H | Short_Literal 0x0
016e 00db | | Load_Top At_Offset_3
016f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0170 4800 |H | Short_Literal 0x0
0171 00db | | Load_Top At_Offset_3
0172 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0173 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0174 0000 0000 | | .BLANK 0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 4608 |F | Jump_Case 0x9 ; Debug Table 0x5 = .DEBUG 0x017b,0x0452,0x0005,0x0000,0x0059,0xec35,0x0000,0x0078
017c 7808 |x | Jump 0x185 ; case 0x0
017d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
017e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
017f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0180 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0181 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0182 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
0183 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
0184 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
0185 4801 |H | Short_Literal 0x1
0186 00db | | Load_Top At_Offset_3
0187 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0188 4800 |H | Short_Literal 0x0
0189 00db | | Load_Top At_Offset_3
018a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
018b 4801 |H | Short_Literal 0x1
018c 00db | | Load_Top At_Offset_3
018d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
018e 4800 |H | Short_Literal 0x0
018f 00db | | Load_Top At_Offset_3
0190 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0191 4800 |H | Short_Literal 0x0
0192 00db | | Load_Top At_Offset_3
0193 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0194 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0195 0000 0000 | | .XXX[0x3]
0197 0000 | |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 4608 |F | Jump_Case 0x9 ; Debug Table 0x6 = .DEBUG 0x019b,0x0454,0x0005,0x0000,0x0059,0xec35,0x0000,0x009a
019c 7808 |x | Jump 0x1a5 ; case 0x0
019d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
019e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
019f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
01a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
01a1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
01a2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
01a3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
01a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
01a5 4800 |H | Short_Literal 0x0
01a6 00db | | Load_Top At_Offset_3
01a7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01a8 4804 |H | Short_Literal 0x4
01a9 00db | | Load_Top At_Offset_3
01aa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01ab 4801 |H | Short_Literal 0x1
01ac 00db | | Load_Top At_Offset_3
01ad 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01ae 4801 |H | Short_Literal 0x1
01af 00db | | Load_Top At_Offset_3
01b0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01b1 4804 |H | Short_Literal 0x4
01b2 00db | | Load_Top At_Offset_3
01b3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01b4 4800 |H | Short_Literal 0x0
01b5 00db | | Load_Top At_Offset_3
01b6 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
01b7 4800 |H | Short_Literal 0x0
01b8 00db | | Load_Top At_Offset_3
01b9 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
01ba 4800 |H | Short_Literal 0x0
01bb 00db | | Load_Top At_Offset_3
01bc 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
01bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01be 0000 0000 | | .XXX[0x2]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 4608 |F | Jump_Case 0x9 ; Debug Table 0x7 = .DEBUG 0x01c3,0x0456,0x0005,0x0000,0x0059,0xec35,0x0000,0x00ce
01c4 7808 |x | Jump 0x1cd ; case 0x0
01c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01c6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
01c7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
01c8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
01c9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
01ca 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
01cb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
01cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
01cd 4800 |H | Short_Literal 0x0
01ce 00db | | Load_Top At_Offset_3
01cf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01d0 4800 |H | Short_Literal 0x0
01d1 00db | | Load_Top At_Offset_3
01d2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01d3 4800 |H | Short_Literal 0x0
01d4 00db | | Load_Top At_Offset_3
01d5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01d6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01d7 0000 | | .XXX[0x1]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 4608 |F | Jump_Case 0x9 ; Debug Table 0x8 = .DEBUG 0x01db,0x0458,0x0005,0x0000,0x0059,0xec35,0x0000,0x00e4
01dc 7808 |x | Jump 0x1e5 ; case 0x0
01dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01de 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
01df 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
01e0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
01e1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
01e2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
01e3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
01e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
01e5 00da | | Load_Top At_Offset_2
01e6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01e7 1c00 | | Execute_Immediate Run_Utility,0x0
01e8 00da | | Load_Top At_Offset_2
01e9 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01ea 1c00 | | Execute_Immediate Run_Utility,0x0
01eb 00da | | Load_Top At_Offset_2
01ec 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01ed 1c00 | | Execute_Immediate Run_Utility,0x0
01ee 00da | | Load_Top At_Offset_2
01ef 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01f0 1c00 | | Execute_Immediate Run_Utility,0x0
01f1 00da | | Load_Top At_Offset_2
01f2 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
01f3 1c00 | | Execute_Immediate Run_Utility,0x0
01f4 00da | | Load_Top At_Offset_2
01f5 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
01f6 1c00 | | Execute_Immediate Run_Utility,0x0
01f7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 4608 |F | Jump_Case 0x9 ; Debug Table 0x9 = .DEBUG 0x01fb,0x045a,0x0005,0x0000,0x0059,0xec35,0x0000,0x01a2
01fc 7808 |x | Jump 0x205 ; case 0x0
01fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01fe 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
01ff 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0200 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0201 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0202 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
0203 780d |x | Jump 0x211 ; case 0x7
0204 7815 |x | Jump 0x21a ; case 0x8
0205 00da | | Load_Top At_Offset_2
0206 016c | l | Execute Variant_Record,Is_Constrained
0207 7008 |p | Jump_Nonzero 0x210
0208 00cf | | Action Mark_Auxiliary
0209 4800 |H | Short_Literal 0x0
020a e5ff | | Load 0x2,-0x1
020b 1c08 | | Execute_Immediate Run_Utility,0x8
020c 00d8 | | Load_Top At_Offset_0
020d 1c00 | | Execute_Immediate Run_Utility,0x0
020e c5ff | | Store 0x2,-0x1
020f 00ce | | Action Pop_Auxiliary
0210 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0211 00db | | Load_Top At_Offset_3
0212 4801 |H | Short_Literal 0x1
0213 e5fe | | Load 0x2,-0x2
0214 00e9 | | Load_Encached String_Cache
0215 035b | [ | Declare_Type Array,Constrained
0216 4801 |H | Short_Literal 0x1
0217 e5ff | | Load 0x2,-0x1
0218 031b | | Declare_Type Variant_Record,Constrained
0219 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
021a 00db | | Load_Top At_Offset_3
021b 00db | | Load_Top At_Offset_3
021c 02fc | | Declare_Variable Variant_Record,With_Constraint
021d 4801 |H | Short_Literal 0x1
021e e5fe | | Load 0x2,-0x2
021f 00e9 | | Load_Encached String_Cache
0220 0334 | 4 | Declare_Variable Array,With_Constraint
0221 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
0222 016a | j | QQ_execute Variant_Record,XXX
0223 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0224 0000 0000 | | .BLANK 0000[0x4]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 4603 |F | Jump_Case 0x4 ; Debug Table 0xa = .DEBUG 0x022b,0x045c,0x0005,0x0000,0x0059,0xec35,0x0000,0x01b9
022c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
022d 7802 |x | Jump 0x230 ; case 0x1
022e 7805 |x | Jump 0x234 ; case 0x2
022f 7809 |x | Jump 0x239 ; case 0x3
0230 00da | | Load_Top At_Offset_2
0231 0091 02d7 | | Action Push_String_Extended_Indexed,0x2d7 ; "HEADER"
0233 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0234 00db | | Load_Top At_Offset_3
0235 00db | | Load_Top At_Offset_3
0236 00e0 | | Load_Encached Standard_Cache
0237 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0238 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0239 00da | | Load_Top At_Offset_2
023a 00e0 | | Load_Encached Standard_Cache
023b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
023c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
023d 0000 0000 | | .XXX[0x3]
023f 0000 | |
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 4608 |F | Jump_Case 0x9 ; Debug Table 0xb = .DEBUG 0x0243,0x045e,0x0005,0x0000,0x0059,0xec35,0x0000,0x01c0
0244 7808 |x | Jump 0x24d ; case 0x0
0245 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0246 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0247 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0248 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0249 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
024a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
024b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
024c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
024d 4800 |H | Short_Literal 0x0
024e 00db | | Load_Top At_Offset_3
024f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0250 607f |` | Indirect_Literal Discrete,0x2d0,{0x00000000, 0x7fffffff}
0251 00db | | Load_Top At_Offset_3
0252 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0253 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0254 0000 0000 | | .BLANK 0000[0x4]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 4603 |F | Jump_Case 0x4 ; Debug Table 0xc = .DEBUG 0x025b,0x0460,0x0005,0x0000,0x0059,0xec35,0x0000,0x01d2
025c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
025d 7802 |x | Jump 0x260 ; case 0x1
025e 7805 |x | Jump 0x264 ; case 0x2
025f 7809 |x | Jump 0x269 ; case 0x3
0260 00da | | Load_Top At_Offset_2
0261 0091 02da | | Action Push_String_Extended_Indexed,0x2da ; "LIST_HEADER"
0263 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0264 00db | | Load_Top At_Offset_3
0265 00db | | Load_Top At_Offset_3
0266 00e0 | | Load_Encached Standard_Cache
0267 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0268 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0269 00da | | Load_Top At_Offset_2
026a 00e0 | | Load_Encached Standard_Cache
026b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
026c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
026d 0000 0000 | | .XXX[0x3]
026f 0000 | |
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0xd = .DEBUG 0x0273,0x0462,0x0005,0x0000,0x0059,0xec35,0x0000,0x01da
0274 00da | | Load_Top At_Offset_2
0275 01d8 | | Execute Vector,Element_Type
0276 0322 | " | Declare_Variable Record
0277 00d8 | | Load_Top At_Offset_0
0278 1c00 | | Execute_Immediate Run_Utility,0x0
0279 00db | | Load_Top At_Offset_3
027a 01dc | | Execute Vector,Last
027b e5ff | | Load 0x2,-0x1
027c 01dd | | Execute Vector,First
027d 0263 | c | Execute Discrete,Above_Bound
027e 7006 |p | Jump_Nonzero 0x285
027f 00da | | Load_Top At_Offset_2
0280 00d9 | | Load_Top At_Offset_1
0281 e5ff | | Load 0x2,-0x1
0282 01d6 | | Execute Vector,Field_Write
0283 0a01 | | Execute_Immediate Plus,0x1
0284 7ff8 | | Jump 0x27d
0285 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0286 0000 0000 | | .XXX[0x2]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 4603 |F | Jump_Case 0x4 ; Debug Table 0xe = .DEBUG 0x028b,0x0464,0x0005,0x0000,0x0059,0xec35,0x0000,0x01e3
028c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
028d 7802 |x | Jump 0x290 ; case 0x1
028e 7805 |x | Jump 0x294 ; case 0x2
028f 7809 |x | Jump 0x299 ; case 0x3
0290 00da | | Load_Top At_Offset_2
0291 0091 02de | | Action Push_String_Extended_Indexed,0x2de ; "ORDER_HEADER"
0293 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0294 00db | | Load_Top At_Offset_3
0295 00db | | Load_Top At_Offset_3
0296 00e0 | | Load_Encached Standard_Cache
0297 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0298 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0299 00da | | Load_Top At_Offset_2
029a 00e0 | | Load_Encached Standard_Cache
029b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
029c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
029d 0000 0000 | | .XXX[0x3]
029f 0000 | |
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 4603 |F | Jump_Case 0x4 ; Debug Table 0xf = .DEBUG 0x02a3,0x0466,0x0005,0x0000,0x0059,0xec35,0x0000,0x01f9
02a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
02a5 7802 |x | Jump 0x2a8 ; case 0x1
02a6 7805 |x | Jump 0x2ac ; case 0x2
02a7 7809 |x | Jump 0x2b1 ; case 0x3
02a8 00da | | Load_Top At_Offset_2
02a9 0091 02e7 | | Action Push_String_Extended_Indexed,0x2e7 ; "VENTURE_HEADER"
02ab 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02ac 00db | | Load_Top At_Offset_3
02ad 00db | | Load_Top At_Offset_3
02ae 00e0 | | Load_Encached Standard_Cache
02af 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02b0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02b1 00da | | Load_Top At_Offset_2
02b2 00e0 | | Load_Encached Standard_Cache
02b3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02b4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02b5 0000 0000 | | .XXX[0x3]
02b7 0000 | |
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x10 = .DEBUG 0x02bb,0x0468,0x0005,0x0000,0x0059,0xec35,0x0000,0x0205
02bc 00da | | Load_Top At_Offset_2
02bd 01d8 | | Execute Vector,Element_Type
02be 0322 | " | Declare_Variable Record
02bf 00d8 | | Load_Top At_Offset_0
02c0 1c00 | | Execute_Immediate Run_Utility,0x0
02c1 00db | | Load_Top At_Offset_3
02c2 01dc | | Execute Vector,Last
02c3 e5ff | | Load 0x2,-0x1
02c4 01dd | | Execute Vector,First
02c5 0263 | c | Execute Discrete,Above_Bound
02c6 7006 |p | Jump_Nonzero 0x2cd
02c7 00da | | Load_Top At_Offset_2
02c8 00d9 | | Load_Top At_Offset_1
02c9 e5ff | | Load 0x2,-0x1
02ca 01d6 | | Execute Vector,Field_Write
02cb 0a01 | | Execute_Immediate Plus,0x1
02cc 7ff8 | | Jump 0x2c5
02cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02ce 0000 0000 | | .XXX[0x2]
02d0 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
02d4 ; --------------------------------------------------------------------------------------
02d4 ; STRING TABLE
02d4 ; --------------------------------------------------------------------------------------
02d4 0038 | 8 | .STRTAB 0x0038->0x02f0 ; "LOWER"
02d5 003b | ; | .STRTAB 0x003b->0x02f2 ; "CAPITAL"
02d6 0040 | @ | .STRTAB 0x0040->0x02f6 ; "UPPER"
02d7 0043 | C | .STRTAB 0x0043->0x02f8 ; "HEADER"
02d8 0047 | G | .STRTAB 0x0047->0x02fb ; "DATA"
02d9 0049 | I | .STRTAB 0x0049->0x02fd ; "FILLER"
02da 004d | M | .STRTAB 0x004d->0x0300 ; "LIST_HEADER"
02db 0056 | V | .STRTAB 0x0056->0x0306 ; "LIST_NOTES"
02dc 005e | ^ | .STRTAB 0x005e->0x030b ; "LIST_PARENT"
02dd 0067 | g | .STRTAB 0x0067->0x0310 ; "LIST_WORK_ORDERS"
02de 0075 | u | .STRTAB 0x0075->0x0318 ; "ORDER_HEADER"
02df 007f | | .STRTAB 0x007f->0x031e ; "ORDER_NOTES"
02e0 0088 | | .STRTAB 0x0088->0x0324 ; "ORDER_PARENT"
02e1 0092 | | .STRTAB 0x0092->0x032a ; "ORDER_STATUS"
02e2 009c | | .STRTAB 0x009c->0x0330 ; "ORDER_FIELDS"
02e3 00a6 | | .STRTAB 0x00a6->0x0336 ; "ORDER_COMMENTS"
02e4 00b2 | | .STRTAB 0x00b2->0x033d ; "ORDER_USERS"
02e5 00bb | | .STRTAB 0x00bb->0x0342 ; "ORDER_VERSIONS"
02e6 00c7 | | .STRTAB 0x00c7->0x0349 ; "ORDER_CONFIGURATIONS"
02e7 00d9 | | .STRTAB 0x00d9->0x0353 ; "VENTURE_HEADER"
02e8 00e5 | | .STRTAB 0x00e5->0x035a ; "VENTURE_NOTES"
02e9 00f0 | | .STRTAB 0x00f0->0x0361 ; "VENTURE_POLICY"
02ea 00fc | | .STRTAB 0x00fc->0x0368 ; "VENTURE_FIELDS"
02eb 0108 | | .STRTAB 0x0108->0x036f ; "VENTURE_ORDERS"
02ec 0114 | | .STRTAB 0x0114->0x0376 ; "VENTURE_DEFAULT_ORDERS"
02ed 0128 | ( | .STRTAB 0x0128->0x0381 ; "VENTURE_LISTS"
02ee 0133 | 3 | .STRTAB 0x0133->0x0387 ; "VENTURE_DEFAULT_LISTS"
02ef 0146 | F | .STREND 0x0146->0x0392
02f0 4c4f 5745 |LOWE| .STRTAB_STRINGS
0392 0000 0000 | | .BLANK 0000[0x6]
0398 ; --------------------------------------------------------------------------------------
0398 ; Debug Table
0398 ; --------------------------------------------------------------------------------------
0398 0003 0011 | | .CONST 0x0003,0x0011
039a 000b 0422 | "| .DEBUG 0x000b,0x0422,0x8000,0x0000,0x0059,0xec35,0x0000,0x0003
03a2 0103 044a | J| .DEBUG 0x0103,0x044a,0x0005,0x0000,0x0059,0xec35,0x0000,0x0004
03aa 011b 044c | L| .DEBUG 0x011b,0x044c,0x0005,0x0000,0x0059,0xec35,0x0000,0x0012
03b2 013b 044e | ; N| .DEBUG 0x013b,0x044e,0x0005,0x0000,0x0059,0xec35,0x0000,0x0034
03ba 0163 0450 | c P| .DEBUG 0x0163,0x0450,0x0005,0x0000,0x0059,0xec35,0x0000,0x0068
03c2 017b 0452 | { R| .DEBUG 0x017b,0x0452,0x0005,0x0000,0x0059,0xec35,0x0000,0x0078
03ca 019b 0454 | T| .DEBUG 0x019b,0x0454,0x0005,0x0000,0x0059,0xec35,0x0000,0x009a
03d2 01c3 0456 | V| .DEBUG 0x01c3,0x0456,0x0005,0x0000,0x0059,0xec35,0x0000,0x00ce
03da 01db 0458 | X| .DEBUG 0x01db,0x0458,0x0005,0x0000,0x0059,0xec35,0x0000,0x00e4
03e2 01fb 045a | Z| .DEBUG 0x01fb,0x045a,0x0005,0x0000,0x0059,0xec35,0x0000,0x01a2
03ea 022b 045c | + \| .DEBUG 0x022b,0x045c,0x0005,0x0000,0x0059,0xec35,0x0000,0x01b9
03f2 0243 045e | C ^| .DEBUG 0x0243,0x045e,0x0005,0x0000,0x0059,0xec35,0x0000,0x01c0
03fa 025b 0460 | [ `| .DEBUG 0x025b,0x0460,0x0005,0x0000,0x0059,0xec35,0x0000,0x01d2
0402 0273 0462 | s b| .DEBUG 0x0273,0x0462,0x0005,0x0000,0x0059,0xec35,0x0000,0x01da
040a 028b 0464 | d| .DEBUG 0x028b,0x0464,0x0005,0x0000,0x0059,0xec35,0x0000,0x01e3
0412 02a3 0466 | f| .DEBUG 0x02a3,0x0466,0x0005,0x0000,0x0059,0xec35,0x0000,0x01f9
041a 02bb 0468 | h| .DEBUG 0x02bb,0x0468,0x0005,0x0000,0x0059,0xec35,0x0000,0x0205
0422 ; --------------------------------------------------------------------------------------
0422 ; Debug3 Subtable 0x0
0422 ; --------------------------------------------------------------------------------------
0422 0013 0000 | | .DBG3TAB 0x0013,0x0000
0424 000b ffff | | .CONST 0x000b,0xffff
0426 0010 fffe | | .CONST 0x0010,0xfffe
0428 0014 fffd | | .CONST 0x0014,0xfffd
042a 001d fffc | | .CONST 0x001d,0xfffc
042c 0029 fffb | ) | .CONST 0x0029,0xfffb
042e 002f fffa | / | .CONST 0x002f,0xfffa
0430 0038 fff9 | 8 | .CONST 0x0038,0xfff9
0432 0044 fff8 | D | .CONST 0x0044,0xfff8
0434 004b fff7 | K | .CONST 0x004b,0xfff7
0436 0055 fff6 | U | .CONST 0x0055,0xfff6
0438 00c1 fff5 | | .CONST 0x00c1,0xfff5
043a 00cd fff4 | | .CONST 0x00cd,0xfff4
043c 00d2 fff3 | | .CONST 0x00d2,0xfff3
043e 00d8 fff2 | | .CONST 0x00d8,0xfff2
0440 00dd fff1 | | .CONST 0x00dd,0xfff1
0442 00e4 fff0 | | .CONST 0x00e4,0xfff0
0444 00e9 ffef | | .CONST 0x00e9,0xffef
0446 00ef ffee | | .CONST 0x00ef,0xffee
0448 00f4 ffed | | .CONST 0x00f4,0xffed
044a ; --------------------------------------------------------------------------------------
044a ; Debug3 Subtable 0x1
044a ; --------------------------------------------------------------------------------------
044a 0000 0000 | | .DBG3TAB 0x0000,0x0000
044c ; --------------------------------------------------------------------------------------
044c ; Debug3 Subtable 0x2
044c ; --------------------------------------------------------------------------------------
044c 0000 0000 | | .DBG3TAB 0x0000,0x0000
044e ; --------------------------------------------------------------------------------------
044e ; Debug3 Subtable 0x3
044e ; --------------------------------------------------------------------------------------
044e 0000 0000 | | .DBG3TAB 0x0000,0x0000
0450 ; --------------------------------------------------------------------------------------
0450 ; Debug3 Subtable 0x4
0450 ; --------------------------------------------------------------------------------------
0450 0000 0000 | | .DBG3TAB 0x0000,0x0000
0452 ; --------------------------------------------------------------------------------------
0452 ; Debug3 Subtable 0x5
0452 ; --------------------------------------------------------------------------------------
0452 0000 0000 | | .DBG3TAB 0x0000,0x0000
0454 ; --------------------------------------------------------------------------------------
0454 ; Debug3 Subtable 0x6
0454 ; --------------------------------------------------------------------------------------
0454 0000 0000 | | .DBG3TAB 0x0000,0x0000
0456 ; --------------------------------------------------------------------------------------
0456 ; Debug3 Subtable 0x7
0456 ; --------------------------------------------------------------------------------------
0456 0000 0000 | | .DBG3TAB 0x0000,0x0000
0458 ; --------------------------------------------------------------------------------------
0458 ; Debug3 Subtable 0x8
0458 ; --------------------------------------------------------------------------------------
0458 0000 0000 | | .DBG3TAB 0x0000,0x0000
045a ; --------------------------------------------------------------------------------------
045a ; Debug3 Subtable 0x9
045a ; --------------------------------------------------------------------------------------
045a 0000 0000 | | .DBG3TAB 0x0000,0x0000
045c ; --------------------------------------------------------------------------------------
045c ; Debug3 Subtable 0xa
045c ; --------------------------------------------------------------------------------------
045c 0000 0000 | | .DBG3TAB 0x0000,0x0000
045e ; --------------------------------------------------------------------------------------
045e ; Debug3 Subtable 0xb
045e ; --------------------------------------------------------------------------------------
045e 0000 0000 | | .DBG3TAB 0x0000,0x0000
0460 ; --------------------------------------------------------------------------------------
0460 ; Debug3 Subtable 0xc
0460 ; --------------------------------------------------------------------------------------
0460 0000 0000 | | .DBG3TAB 0x0000,0x0000
0462 ; --------------------------------------------------------------------------------------
0462 ; Debug3 Subtable 0xd
0462 ; --------------------------------------------------------------------------------------
0462 0000 0000 | | .DBG3TAB 0x0000,0x0000
0464 ; --------------------------------------------------------------------------------------
0464 ; Debug3 Subtable 0xe
0464 ; --------------------------------------------------------------------------------------
0464 0000 0000 | | .DBG3TAB 0x0000,0x0000
0466 ; --------------------------------------------------------------------------------------
0466 ; Debug3 Subtable 0xf
0466 ; --------------------------------------------------------------------------------------
0466 0000 0000 | | .DBG3TAB 0x0000,0x0000
0468 ; --------------------------------------------------------------------------------------
0468 ; Debug3 Subtable 0x10
0468 ; --------------------------------------------------------------------------------------
0468 0000 0000 | | .DBG3TAB 0x0000,0x0000
046a 0000 0000 | | .BLANK 0000[0x196]