|
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: 2048 (0x800) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c8f4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0368 | h | .CONST 0x0368 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00a3 | | .CONST 0x00a3 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002d | - | .CONST 0x002d ; Number of locals 000b INIT_0008: 000b 4832 |H2 | Short_Literal 0x32 000c e002 | | Load 0x0,0x2 000d 1c07 | | Execute_Immediate Run_Utility,0x7 000e 0129 | ) | Execute Any,Make_Visible 000f 4832 |H2 | Short_Literal 0x32 0010 e002 | | Load 0x0,0x2 0011 1c07 | | Execute_Immediate Run_Utility,0x7 0012 0129 | ) | Execute Any,Make_Visible 0013 4864 |Hd | Short_Literal 0x64 0014 e002 | | Load 0x0,0x2 0015 1c07 | | Execute_Immediate Run_Utility,0x7 0016 0129 | ) | Execute Any,Make_Visible 0017 4832 |H2 | Short_Literal 0x32 0018 e002 | | Load 0x0,0x2 0019 1c07 | | Execute_Immediate Run_Utility,0x7 001a 0129 | ) | Execute Any,Make_Visible 001b 00d8 | | Load_Top At_Offset_0 001c e20d | | Load 0x1,0xd 001d e20e | | Load 0x1,0xe 001e e20f | | Load 0x1,0xf 001f 029f 032b | +| Declare_Subprogram INIT_0328,For_Call 0021 4804 |H | Short_Literal 0x4 0022 032e | . | Declare_Type Record,Defined,Visible 0023 00d8 | | Load_Top At_Offset_0 0024 00e3 | | Load_Encached Natural_Cache 0025 029f 035b | [| Declare_Subprogram INIT_0358,For_Call 0027 4802 |H | Short_Literal 0x2 0028 032e | . | Declare_Type Record,Defined,Visible 0029 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 002b 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 002d 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 002f 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0031 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0033 0093 0000 | | push_full_address 0x0 0035 6082 |` | Indirect_Literal Discrete,0xb8,{0x80000000, 0x00010000} 0036 0273 | s | Execute Discrete,Plus 0037 e003 | | Load 0x0,0x3 0038 0273 | s | Execute Discrete,Plus 0039 e004 | | Load 0x0,0x4 003a 0273 | s | Execute Discrete,Plus 003b e212 | | Load 0x1,0x12 003c e211 | | Load 0x1,0x11 003d 4801 |H | Short_Literal 0x1 003e 4832 |H2 | Short_Literal 0x32 003f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0040 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0041 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0042 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0043 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0044 e005 | | Load 0x0,0x5 0045 0386 | | Declare_Variable Package,Visible 0046 00d8 | | Load_Top At_Offset_0 0047 020f | | Execute Module,Activate 0048 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 004a 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 004c 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 004e 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0050 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0052 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0054 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0056 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0058 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 005a 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 005c 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 005e 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 0060 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 0062 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated 0064 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated 0066 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated 0068 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 006a 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 006c 00bf | | Action Accept_Activation 006d e006 | | Load 0x0,0x6 006e e218 | | Load 0x1,0x18 006f 0098 | | Execute Package,Field_Read_Dynamic 0070 0322 | " | Declare_Variable Record 0071 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0072 00c7 | | Action Elaborate_Subprogram 0073 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0074 00c7 | | Action Elaborate_Subprogram 0075 029d 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call 0077 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call 0079 1d19 | | Execute_Immediate Reference_Lex_1,0x19 007a 00c7 | | Action Elaborate_Subprogram 007b 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 007c 00c7 | | Action Elaborate_Subprogram 007d 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 007e 00c7 | | Action Elaborate_Subprogram 007f 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0080 00c7 | | Action Elaborate_Subprogram 0081 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0082 00c7 | | Action Elaborate_Subprogram 0083 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0084 00c7 | | Action Elaborate_Subprogram 0085 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0086 00c7 | | Action Elaborate_Subprogram 0087 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0088 00c7 | | Action Elaborate_Subprogram 0089 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 008a 00c7 | | Action Elaborate_Subprogram 008b 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 008c 00c7 | | Action Elaborate_Subprogram 008d 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 008e 00c7 | | Action Elaborate_Subprogram 008f 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0090 00c7 | | Action Elaborate_Subprogram 0091 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0092 00c7 | | Action Elaborate_Subprogram 0093 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0094 00c7 | | Action Elaborate_Subprogram 0095 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0096 00c7 | | Action Elaborate_Subprogram 0097 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0098 00c7 | | Action Elaborate_Subprogram 0099 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 009a 00c7 | | Action Elaborate_Subprogram 009b 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 009c 00c7 | | Action Elaborate_Subprogram 009d 1d15 | | Execute_Immediate Reference_Lex_1,0x15 009e 00c7 | | Action Elaborate_Subprogram 009f 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00a0 00c7 | | Action Elaborate_Subprogram 00a1 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00a2 00c7 | | Action Elaborate_Subprogram 00a3 BODY_0008: 00a3 00da | | Load_Top At_Offset_2 00a4 e007 | | Load 0x0,0x7 00a5 e218 | | Load 0x1,0x18 00a6 0096 | | Execute Package,Entry 00a7 00d1 | | Pop_Control Pop_Count_1 00a8 00bc | | Action Signal_Activated 00a9 00bb | | Action Signal_Completion 00aa 0000 0000 | | .BLANK 0000[0x6] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 00da | | Load_Top At_Offset_2 00b4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00b5 0320 | | Declare_Variable Record,Duplicate 00b6 00cd | | Action Spare6_Action 00b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b8 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00bc 0000 0000 | | .BLANK 0000[0x4] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c4 | | .CONST 0x00c4 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0002 | | .CONST 0x0002 ; Number of locals 00c3 INIT_00c0: 00c3 00e2 | | Load_Encached Integer_Cache 00c4 BODY_00c0: 00c4 00db | | Load_Top At_Offset_3 00c5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00c6 8008 | | Call 0x0,0x8 00c7 e5ff | | Load 0x2,-0x1 00c8 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 00c9 8008 | | Call 0x0,0x8 00ca 01cc | | Execute Vector,Catenate 00cb e5ff | | Load 0x2,-0x1 00cc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00cd 8008 | | Call 0x0,0x8 00ce 01cc | | Execute Vector,Catenate 00cf e5ff | | Load 0x2,-0x1 00d0 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 00d1 8008 | | Call 0x0,0x8 00d2 01cc | | Execute Vector,Catenate 00d3 8009 | | Call 0x0,0x9 00d4 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00d5 00d8 | | Load_Top At_Offset_0 00d6 0d00 | | Execute_Immediate Less,0x0 00d7 6804 |h | Jump_Zero 0xdc 00d8 00d8 | | Load_Top At_Offset_0 00d9 4fff |O | Short_Literal -0x1 00da 0271 | q | Execute Discrete,Times 00db 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00dc 00d8 | | Load_Top At_Offset_0 00dd 600a |` | Indirect_Literal Discrete,0xe8,{0x00000000, 0x7fffffff} 00de 026e | n | Execute Discrete,Modulo 00df 00d8 | | Load_Top At_Offset_0 00e0 00e3 | | Load_Encached Natural_Cache 00e1 0260 | ` | Execute Discrete,In_Type 00e2 7001 |p | Jump_Nonzero 0xe4 00e3 0801 | | Execute_Immediate Raise,0x1 00e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e5 0000 0000 | | .XXX[0x3] 00e7 0000 | | 00e8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 00ec 0000 0000 | | .BLANK 0000[0x4] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 00f4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00f5 e5fe | | Load 0x2,-0x2 00f6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00f7 00db | | Load_Top At_Offset_3 00f8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00f9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00fa 00d8 | | Load_Top At_Offset_0 00fb e5ff | | Load 0x2,-0x1 00fc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00fd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00fe 800a | | Call 0x0,0xa 00ff 00d2 | | Pop_Control Pop_Count_2 0100 00db | | Load_Top At_Offset_3 0101 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0102 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0103 00d8 | | Load_Top At_Offset_0 0104 e5ff | | Load 0x2,-0x1 0105 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0106 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0107 800a | | Call 0x0,0xa 0108 00d2 | | Pop_Control Pop_Count_2 0109 00db | | Load_Top At_Offset_3 010a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 010b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 010c 00d8 | | Load_Top At_Offset_0 010d e5ff | | Load 0x2,-0x1 010e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 010f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0110 800a | | Call 0x0,0xa 0111 00d2 | | Pop_Control Pop_Count_2 0112 00db | | Load_Top At_Offset_3 0113 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0114 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0115 00d8 | | Load_Top At_Offset_0 0116 e5ff | | Load 0x2,-0x1 0117 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0118 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0119 800a | | Call 0x0,0xa 011a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 011b 0000 0000 | | .BLANK 0000[0x5] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00da | | Load_Top At_Offset_2 0124 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0125 e5fe | | Load 0x2,-0x2 0126 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0127 027f | | Execute Discrete,Equal 0128 6806 |h | Jump_Zero 0x12f 0129 00db | | Load_Top At_Offset_3 012a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 012b 00db | | Load_Top At_Offset_3 012c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 012d 8217 | | Call 0x1,0x17 012e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 012f 4800 |H | Short_Literal 0x0 0130 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0131 0000 0000 | | .BLANK 0000[0x7] 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 4801 |H | Short_Literal 0x1 013c e5fe | | Load 0x2,-0x2 013d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 013e 8008 | | Call 0x0,0x8 013f e5ff | | Load 0x2,-0x1 0140 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0141 8008 | | Call 0x0,0x8 0142 800b | | Call 0x0,0xb 0143 681f |h | Jump_Zero 0x163 0144 4801 |H | Short_Literal 0x1 0145 e5fe | | Load 0x2,-0x2 0146 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0147 8008 | | Call 0x0,0x8 0148 e5ff | | Load 0x2,-0x1 0149 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 014a 8008 | | Call 0x0,0x8 014b 800b | | Call 0x0,0xb 014c 6814 |h | Jump_Zero 0x161 014d 4801 |H | Short_Literal 0x1 014e e5fe | | Load 0x2,-0x2 014f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0150 8008 | | Call 0x0,0x8 0151 e5ff | | Load 0x2,-0x1 0152 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0153 8008 | | Call 0x0,0x8 0154 800b | | Call 0x0,0xb 0155 6809 |h | Jump_Zero 0x15f 0156 4801 |H | Short_Literal 0x1 0157 e5fe | | Load 0x2,-0x2 0158 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0159 8008 | | Call 0x0,0x8 015a e5ff | | Load 0x2,-0x1 015b 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 015c 8008 | | Call 0x0,0x8 015d 800b | | Call 0x0,0xb 015e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 015f 4800 |H | Short_Literal 0x0 0160 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0161 4800 |H | Short_Literal 0x0 0162 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0163 4800 |H | Short_Literal 0x0 0164 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016f | o | .CONST 0x016f ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0002 | | .CONST 0x0002 ; Number of locals 016b INIT_0168: 016b e212 | | Load 0x1,0x12 016c 0322 | " | Declare_Variable Record 016d 00d8 | | Load_Top At_Offset_0 016e 1c00 | | Execute_Immediate Run_Utility,0x0 016f BODY_0168: 016f e5fb | | Load 0x2,-0x5 0170 e5fc | | Load 0x2,-0x4 0171 e5fd | | Load 0x2,-0x3 0172 e5fe | | Load 0x2,-0x2 0173 e5ff | | Load 0x2,-0x1 0174 822d | - | Call 0x1,0x2d 0175 00d9 | | Load_Top At_Offset_1 0176 017d | } | Execute Record,Structure_Write 0177 00d8 | | Load_Top At_Offset_0 0178 e22b | + | Load 0x1,0x2b 0179 e00c | | Load 0x0,0xc 017a e218 | | Load 0x1,0x18 017b 0096 | | Execute Package,Entry 017c 7006 |p | Jump_Nonzero 0x183 017d e22b | + | Load 0x1,0x2b 017e 00d9 | | Load_Top At_Offset_1 017f e00d | | Load 0x0,0xd 0180 e218 | | Load 0x1,0x18 0181 0096 | | Execute Package,Entry 0182 00d1 | | Pop_Control Pop_Count_1 0183 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0184 0000 0000 | | .BLANK 0000[0x4] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018f | | .CONST 0x018f ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0002 | | .CONST 0x0002 ; Number of locals 018b INIT_0188: 018b e212 | | Load 0x1,0x12 018c 0322 | " | Declare_Variable Record 018d 00d8 | | Load_Top At_Offset_0 018e 1c00 | | Execute_Immediate Run_Utility,0x0 018f BODY_0188: 018f e5fb | | Load 0x2,-0x5 0190 e5fc | | Load 0x2,-0x4 0191 e5fd | | Load 0x2,-0x3 0192 e5fe | | Load 0x2,-0x2 0193 e5ff | | Load 0x2,-0x1 0194 822d | - | Call 0x1,0x2d 0195 00d9 | | Load_Top At_Offset_1 0196 017d | } | Execute Record,Structure_Write 0197 e22b | + | Load 0x1,0x2b 0198 00d9 | | Load_Top At_Offset_1 0199 e00e | | Load 0x0,0xe 019a e218 | | Load 0x1,0x18 019b 0096 | | Execute Package,Entry 019c 4506 |E | Exit_Suprogram New_Top_Offset 0x6 019d 0000 0000 | | .XXX[0x3] 019f 0000 | | 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a7 | | .CONST 0x01a7 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0002 | | .CONST 0x0002 ; Number of locals 01a3 INIT_01a0: 01a3 e211 | | Load 0x1,0x11 01a4 0322 | " | Declare_Variable Record 01a5 00d8 | | Load_Top At_Offset_0 01a6 1c00 | | Execute_Immediate Run_Utility,0x0 01a7 BODY_01a0: 01a7 e5fc | | Load 0x2,-0x4 01a8 e5fd | | Load 0x2,-0x3 01a9 e5fe | | Load 0x2,-0x2 01aa e5ff | | Load 0x2,-0x1 01ab 822c | , | Call 0x1,0x2c 01ac 00d9 | | Load_Top At_Offset_1 01ad 017d | } | Execute Record,Structure_Write 01ae e22b | + | Load 0x1,0x2b 01af 00d9 | | Load_Top At_Offset_1 01b0 e00f | | Load 0x0,0xf 01b1 e218 | | Load 0x1,0x18 01b2 0096 | | Execute Package,Entry 01b3 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01b4 0000 0000 | | .BLANK 0000[0x4] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bf | | .CONST 0x01bf ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0002 | | .CONST 0x0002 ; Number of locals 01bb INIT_01b8: 01bb e212 | | Load 0x1,0x12 01bc 0322 | " | Declare_Variable Record 01bd 00d8 | | Load_Top At_Offset_0 01be 1c00 | | Execute_Immediate Run_Utility,0x0 01bf BODY_01b8: 01bf e5fb | | Load 0x2,-0x5 01c0 e5fc | | Load 0x2,-0x4 01c1 e5fd | | Load 0x2,-0x3 01c2 e5fe | | Load 0x2,-0x2 01c3 e5ff | | Load 0x2,-0x1 01c4 822d | - | Call 0x1,0x2d 01c5 00d9 | | Load_Top At_Offset_1 01c6 017d | } | Execute Record,Structure_Write 01c7 00d8 | | Load_Top At_Offset_0 01c8 e22b | + | Load 0x1,0x2b 01c9 e00c | | Load 0x0,0xc 01ca e218 | | Load 0x1,0x18 01cb 0096 | | Execute Package,Entry 01cc 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 01cd 0000 0000 | | .XXX[0x3] 01cf 0000 | | 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01db | | .CONST 0x01db ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0003 | | .CONST 0x0003 ; Number of locals 01d3 INIT_01d0: 01d3 e211 | | Load 0x1,0x11 01d4 0322 | " | Declare_Variable Record 01d5 00d8 | | Load_Top At_Offset_0 01d6 1c00 | | Execute_Immediate Run_Utility,0x0 01d7 e212 | | Load 0x1,0x12 01d8 0322 | " | Declare_Variable Record 01d9 00d8 | | Load_Top At_Offset_0 01da 1c00 | | Execute_Immediate Run_Utility,0x0 01db BODY_01d0: 01db e5fc | | Load 0x2,-0x4 01dc e5fd | | Load 0x2,-0x3 01dd e5fe | | Load 0x2,-0x2 01de e5ff | | Load 0x2,-0x1 01df 822c | , | Call 0x1,0x2c 01e0 00da | | Load_Top At_Offset_2 01e1 017d | } | Execute Record,Structure_Write 01e2 00d9 | | Load_Top At_Offset_1 01e3 e22b | + | Load 0x1,0x2b 01e4 e010 | | Load 0x0,0x10 01e5 e218 | | Load 0x1,0x18 01e6 0096 | | Execute Package,Entry 01e7 00d9 | | Load_Top At_Offset_1 01e8 017d | } | Execute Record,Structure_Write 01e9 00d8 | | Load_Top At_Offset_0 01ea 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01eb 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 01ec 0000 0000 | | .BLANK 0000[0x4] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f7 | | .CONST 0x01f7 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0002 | | .CONST 0x0002 ; Number of locals 01f3 INIT_01f0: 01f3 e212 | | Load 0x1,0x12 01f4 0322 | " | Declare_Variable Record 01f5 00d8 | | Load_Top At_Offset_0 01f6 1c00 | | Execute_Immediate Run_Utility,0x0 01f7 BODY_01f0: 01f7 e5fb | | Load 0x2,-0x5 01f8 e5fc | | Load 0x2,-0x4 01f9 e5fd | | Load 0x2,-0x3 01fa e5fe | | Load 0x2,-0x2 01fb e5ff | | Load 0x2,-0x1 01fc 822d | - | Call 0x1,0x2d 01fd 00d9 | | Load_Top At_Offset_1 01fe 017d | } | Execute Record,Structure_Write 01ff e22b | + | Load 0x1,0x2b 0200 00d9 | | Load_Top At_Offset_1 0201 e011 | | Load 0x0,0x11 0202 e218 | | Load 0x1,0x18 0203 0096 | | Execute Package,Entry 0204 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0205 0000 0000 | | .XXX[0x3] 0207 0000 | | 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b e22b | + | Load 0x1,0x2b 020c e012 | | Load 0x0,0x12 020d e218 | | Load 0x1,0x18 020e 0096 | | Execute Package,Entry 020f 00ca | | Action Exit_Nullary_Function 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00da | | Load_Top At_Offset_2 0214 e22b | + | Load 0x1,0x2b 0215 e013 | | Load 0x0,0x13 0216 e218 | | Load 0x1,0x18 0217 0096 | | Execute Package,Entry 0218 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0219 0000 0000 | | .BLANK 0000[0x7] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 00da | | Load_Top At_Offset_2 0224 e22b | + | Load 0x1,0x2b 0225 e014 | | Load 0x0,0x14 0226 e218 | | Load 0x1,0x18 0227 0096 | | Execute Package,Entry 0228 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0229 0000 0000 | | .BLANK 0000[0x7] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0237 | 7 | .CONST 0x0237 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0002 | | .CONST 0x0002 ; Number of locals 0233 INIT_0230: 0233 e212 | | Load 0x1,0x12 0234 0322 | " | Declare_Variable Record 0235 00d8 | | Load_Top At_Offset_0 0236 1c00 | | Execute_Immediate Run_Utility,0x0 0237 BODY_0230: 0237 00db | | Load_Top At_Offset_3 0238 e22b | + | Load 0x1,0x2b 0239 e015 | | Load 0x0,0x15 023a e218 | | Load 0x1,0x18 023b 0096 | | Execute Package,Entry 023c 00d9 | | Load_Top At_Offset_1 023d 017d | } | Execute Record,Structure_Write 023e 00d8 | | Load_Top At_Offset_0 023f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0240 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0241 8008 | | Call 0x0,0x8 0242 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0243 0000 0000 | | .BLANK 0000[0x5] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024f | O | .CONST 0x024f ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0002 | | .CONST 0x0002 ; Number of locals 024b INIT_0248: 024b e212 | | Load 0x1,0x12 024c 0322 | " | Declare_Variable Record 024d 00d8 | | Load_Top At_Offset_0 024e 1c00 | | Execute_Immediate Run_Utility,0x0 024f BODY_0248: 024f 00db | | Load_Top At_Offset_3 0250 e22b | + | Load 0x1,0x2b 0251 e015 | | Load 0x0,0x15 0252 e218 | | Load 0x1,0x18 0253 0096 | | Execute Package,Entry 0254 00d9 | | Load_Top At_Offset_1 0255 017d | } | Execute Record,Structure_Write 0256 00d8 | | Load_Top At_Offset_0 0257 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0258 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0259 8008 | | Call 0x0,0x8 025a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025b 0000 0000 | | .BLANK 0000[0x5] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0267 | g | .CONST 0x0267 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0002 | | .CONST 0x0002 ; Number of locals 0263 INIT_0260: 0263 e212 | | Load 0x1,0x12 0264 0322 | " | Declare_Variable Record 0265 00d8 | | Load_Top At_Offset_0 0266 1c00 | | Execute_Immediate Run_Utility,0x0 0267 BODY_0260: 0267 00db | | Load_Top At_Offset_3 0268 e22b | + | Load 0x1,0x2b 0269 e015 | | Load 0x0,0x15 026a e218 | | Load 0x1,0x18 026b 0096 | | Execute Package,Entry 026c 00d9 | | Load_Top At_Offset_1 026d 017d | } | Execute Record,Structure_Write 026e 00d8 | | Load_Top At_Offset_0 026f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0270 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0271 8008 | | Call 0x0,0x8 0272 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0273 0000 0000 | | .BLANK 0000[0x5] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027f | | .CONST 0x027f ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0002 | | .CONST 0x0002 ; Number of locals 027b INIT_0278: 027b e212 | | Load 0x1,0x12 027c 0322 | " | Declare_Variable Record 027d 00d8 | | Load_Top At_Offset_0 027e 1c00 | | Execute_Immediate Run_Utility,0x0 027f BODY_0278: 027f 00db | | Load_Top At_Offset_3 0280 e22b | + | Load 0x1,0x2b 0281 e015 | | Load 0x0,0x15 0282 e218 | | Load 0x1,0x18 0283 0096 | | Execute Package,Entry 0284 00d9 | | Load_Top At_Offset_1 0285 017d | } | Execute Record,Structure_Write 0286 00d8 | | Load_Top At_Offset_0 0287 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0288 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0289 0000 0000 | | .BLANK 0000[0x7] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0297 | | .CONST 0x0297 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0002 | | .CONST 0x0002 ; Number of locals 0293 INIT_0290: 0293 e212 | | Load 0x1,0x12 0294 0322 | " | Declare_Variable Record 0295 00d8 | | Load_Top At_Offset_0 0296 1c00 | | Execute_Immediate Run_Utility,0x0 0297 BODY_0290: 0297 00db | | Load_Top At_Offset_3 0298 e22b | + | Load 0x1,0x2b 0299 e015 | | Load 0x0,0x15 029a e218 | | Load 0x1,0x18 029b 0096 | | Execute Package,Entry 029c 00d9 | | Load_Top At_Offset_1 029d 017d | } | Execute Record,Structure_Write 029e 00d8 | | Load_Top At_Offset_0 029f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02a0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02a1 8008 | | Call 0x0,0x8 02a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a3 0000 0000 | | .BLANK 0000[0x5] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab e5fc | | Load 0x2,-0x4 02ac e5fd | | Load 0x2,-0x3 02ad e5fe | | Load 0x2,-0x2 02ae e5ff | | Load 0x2,-0x1 02af 822c | , | Call 0x1,0x2c 02b0 e22b | + | Load 0x1,0x2b 02b1 e016 | | Load 0x0,0x16 02b2 e218 | | Load 0x1,0x18 02b3 0096 | | Execute Package,Entry 02b4 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 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 00da | | Load_Top At_Offset_2 02bc e5fb | | Load 0x2,-0x5 02bd e5fc | | Load 0x2,-0x4 02be e5fd | | Load 0x2,-0x3 02bf e5fe | | Load 0x2,-0x2 02c0 822c | , | Call 0x1,0x2c 02c1 e22b | + | Load 0x1,0x2b 02c2 e017 | | Load 0x0,0x17 02c3 e218 | | Load 0x1,0x18 02c4 0096 | | Execute Package,Entry 02c5 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 02c6 0000 0000 | | .XXX[0x2] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cb | | .CONST 0x02cb ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0001 | | .CONST 0x0001 ; Number of locals 02cb BODY_02c8: 02cb INIT_02c8: 02cb 00da | | Load_Top At_Offset_2 02cc e5fb | | Load 0x2,-0x5 02cd e5fc | | Load 0x2,-0x4 02ce e5fd | | Load 0x2,-0x3 02cf e5fe | | Load 0x2,-0x2 02d0 822c | , | Call 0x1,0x2c 02d1 e22b | + | Load 0x1,0x2b 02d2 e018 | | Load 0x0,0x18 02d3 e218 | | Load 0x1,0x18 02d4 0096 | | Execute Package,Entry 02d5 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 02d6 0000 0000 | | .XXX[0x2] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02df | | .CONST 0x02df ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0002 | | .CONST 0x0002 ; Number of locals 02db INIT_02d8: 02db e212 | | Load 0x1,0x12 02dc 0322 | " | Declare_Variable Record 02dd 00d8 | | Load_Top At_Offset_0 02de 1c00 | | Execute_Immediate Run_Utility,0x0 02df BODY_02d8: 02df 00db | | Load_Top At_Offset_3 02e0 e5fb | | Load 0x2,-0x5 02e1 e5fc | | Load 0x2,-0x4 02e2 e5fd | | Load 0x2,-0x3 02e3 e5fe | | Load 0x2,-0x2 02e4 822c | , | Call 0x1,0x2c 02e5 e22b | + | Load 0x1,0x2b 02e6 e019 | | Load 0x0,0x19 02e7 e218 | | Load 0x1,0x18 02e8 0096 | | Execute Package,Entry 02e9 00d9 | | Load_Top At_Offset_1 02ea 017d | } | Execute Record,Structure_Write 02eb 00d8 | | Load_Top At_Offset_0 02ec 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02ed 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 02ee 0000 0000 | | .XXX[0x2] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02f7 | | .CONST 0x02f7 ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0002 | | .CONST 0x0002 ; Number of locals 02f3 INIT_02f0: 02f3 e211 | | Load 0x1,0x11 02f4 0322 | " | Declare_Variable Record 02f5 00d8 | | Load_Top At_Offset_0 02f6 1c00 | | Execute_Immediate Run_Utility,0x0 02f7 BODY_02f0: 02f7 00d8 | | Load_Top At_Offset_0 02f8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02f9 e5ff | | Load 0x2,-0x1 02fa 801a | | Call 0x0,0x1a 02fb 00d1 | | Pop_Control Pop_Count_1 02fc 00d8 | | Load_Top At_Offset_0 02fd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02fe e5fe | | Load 0x2,-0x2 02ff 801a | | Call 0x0,0x1a 0300 00d1 | | Pop_Control Pop_Count_1 0301 00d8 | | Load_Top At_Offset_0 0302 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0303 e5fd | | Load 0x2,-0x3 0304 801a | | Call 0x0,0x1a 0305 00d1 | | Pop_Control Pop_Count_1 0306 00d8 | | Load_Top At_Offset_0 0307 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0308 e5fc | | Load 0x2,-0x4 0309 801a | | Call 0x0,0x1a 030a 00d1 | | Pop_Control Pop_Count_1 030b 00d8 | | Load_Top At_Offset_0 030c 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 030d 0000 0000 | | .XXX[0x3] 030f 0000 | | 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0317 | | .CONST 0x0317 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0002 | | .CONST 0x0002 ; Number of locals 0313 INIT_0310: 0313 e212 | | Load 0x1,0x12 0314 0322 | " | Declare_Variable Record 0315 00d8 | | Load_Top At_Offset_0 0316 1c00 | | Execute_Immediate Run_Utility,0x0 0317 BODY_0310: 0317 e5fc | | Load 0x2,-0x4 0318 e5fd | | Load 0x2,-0x3 0319 e5fe | | Load 0x2,-0x2 031a e5ff | | Load 0x2,-0x1 031b 822c | , | Call 0x1,0x2c 031c 00d9 | | Load_Top At_Offset_1 031d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 031e e5fb | | Load 0x2,-0x5 031f 00d9 | | Load_Top At_Offset_1 0320 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0321 00d8 | | Load_Top At_Offset_0 0322 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0323 0000 0000 | | .BLANK 0000[0x5] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b 4601 |F | Jump_Case 0x2 032c 7801 |x | Jump 0x32e ; case 0x0 032d 7819 |x | Jump 0x347 ; case 0x1 032e 00da | | Load_Top At_Offset_2 032f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0330 0125 | % | Execute Any,Set_Constraint 0331 00da | | Load_Top At_Offset_2 0332 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0333 1c00 | | Execute_Immediate Run_Utility,0x0 0334 00da | | Load_Top At_Offset_2 0335 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0336 0125 | % | Execute Any,Set_Constraint 0337 00da | | Load_Top At_Offset_2 0338 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0339 1c00 | | Execute_Immediate Run_Utility,0x0 033a 00da | | Load_Top At_Offset_2 033b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 033c 0125 | % | Execute Any,Set_Constraint 033d 00da | | Load_Top At_Offset_2 033e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 033f 1c00 | | Execute_Immediate Run_Utility,0x0 0340 00da | | Load_Top At_Offset_2 0341 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0342 0125 | % | Execute Any,Set_Constraint 0343 00da | | Load_Top At_Offset_2 0344 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0345 1c00 | | Execute_Immediate Run_Utility,0x0 0346 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0347 00da | | Load_Top At_Offset_2 0348 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0349 0125 | % | Execute Any,Set_Constraint 034a 00da | | Load_Top At_Offset_2 034b 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 034c 0125 | % | Execute Any,Set_Constraint 034d 00da | | Load_Top At_Offset_2 034e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 034f 0125 | % | Execute Any,Set_Constraint 0350 00da | | Load_Top At_Offset_2 0351 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0352 0125 | % | Execute Any,Set_Constraint 0353 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0354 0000 0000 | | .BLANK 0000[0x4] 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035b | [ | .CONST 0x035b ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0001 | | .CONST 0x0001 ; Number of locals 035b BODY_0358: 035b INIT_0358: 035b 4601 |F | Jump_Case 0x2 035c 7801 |x | Jump 0x35e ; case 0x0 035d 7804 |x | Jump 0x362 ; case 0x1 035e 00da | | Load_Top At_Offset_2 035f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0360 1c00 | | Execute_Immediate Run_Utility,0x0 0361 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0362 00da | | Load_Top At_Offset_2 0363 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0364 1c01 | | Execute_Immediate Run_Utility,0x1 0365 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0366 0000 0000 | | .XXX[0x2] 0368 ; -------------------------------------------------------------------------------------- 0368 ; Debug Table 0368 ; -------------------------------------------------------------------------------------- 0368 0004 0002 | | .DEBUG4 0x0004,0x0002,0xd1cf,0x0000,0x0001,0x0000 036e 0004 8000 | | .XXX[0x57] 0370 0000 0000 | | 0372 0001 a37d | }| 0374 8000 0000 | | 0376 1000 0001 | | 0378 2000 0000 | | 037a 0000 0000 | | 037c 68df 6000 |h ` | 037e 0000 0400 | | 0380 0000 4800 | H | 0382 0000 0000 | | 0384 0000 1a37 | 7| 0386 d800 0000 | | 0388 0100 0000 | | 038a 1200 0000 | | 038c 0000 0000 | | 038e 068d f600 | | 0390 0000 0040 | @| 0392 0000 0480 | | 0394 0000 0000 | | 0396 0000 01a3 | | 0398 7d80 0000 |} | 039a 0010 0000 | | 039c 0120 0000 | | 039e 0000 0000 | | 03a0 0060 0000 | ` | 03a2 0240 0000 | @ | 03a4 0000 0000 | | 03a6 00c0 0000 | | 03a8 0480 0000 | | 03aa 0400 0000 | | 03ac 0100 0000 | | 03ae 0201 2150 | !P| 03b0 0000 0120 | | 03b2 0000 0100 | | 03b4 0000 0040 | @| 03b6 0040 0000 | @ | 03b8 0240 0000 | @ | 03ba 0000 0000 | | 03bc 008d 2600 | & | 03be 9800 0000 | | 03c0 0000 0000 | | 03c2 0003 4f80 | O | 03c4 3a00 |: | 03c5 0000 0000 | | .BLANK 0000[0x5] 03ca 0048 0028 | H (| .XXX[0x2d] 03cc ac20 0000 | | 03ce 0010 a000 | | 03d0 0002 4000 | @ | 03d2 0000 0000 | | 03d4 0000 c000 | | 03d6 0004 8000 | | 03d8 0004 0000 | | 03da 0001 0000 | | 03dc 0002 0121 | !| 03de 5000 0001 |P | 03e0 2000 0001 | | 03e2 0000 0000 | | 03e4 4000 4000 |@ @ | 03e6 0006 0000 | | 03e8 0001 0000 | | 03ea 0001 0011 | | 03ec d2b6 0000 | | 03ee 0002 8000 | | 03f0 0002 4000 | @ | 03f2 0000 0000 | | 03f4 0000 8d26 | &| 03f6 0098 | | 03f7 0000 0000 | | .BLANK 0000[0x4] 03fb 034f 803a | O :| .XXX[0x5] 03fd 0000 0000 | | 03ff 0000 | |