|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0564e2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0380 | | .CONST 0x0380 ; 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 0053 | S | .CONST 0x0053 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001c | | .CONST 0x001c ; Number of locals 000b INIT_0008: 000b e002 | | Load 0x0,0x2 000c e003 | | Load 0x0,0x3 000d 00d8 | | Load_Top At_Offset_0 000e e003 | | Load 0x0,0x3 000f 029f 032b | +| Declare_Subprogram INIT_0328,For_Call 0011 4804 |H | Short_Literal 0x4 0012 032e | . | Declare_Type Record,Defined,Visible 0013 e004 | | Load 0x0,0x4 0014 e005 | | Load 0x0,0x5 0015 00da | | Load_Top At_Offset_2 0016 e006 | | Load 0x0,0x6 0017 0386 | | Declare_Variable Package,Visible 0018 00d8 | | Load_Top At_Offset_0 0019 020f | | Execute Module,Activate 001a 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 001c 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 001e 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0020 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0022 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0024 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0026 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0028 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 002a 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 002c 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 002e 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 0030 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated 0032 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 0034 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 0036 00bf | | Action Accept_Activation 0037 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0038 00c7 | | Action Elaborate_Subprogram 0039 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003a 00c7 | | Action Elaborate_Subprogram 003b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 003c 00c7 | | Action Elaborate_Subprogram 003d 1d12 | | Execute_Immediate Reference_Lex_1,0x12 003e 00c7 | | Action Elaborate_Subprogram 003f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0040 00c7 | | Action Elaborate_Subprogram 0041 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0042 00c7 | | Action Elaborate_Subprogram 0043 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0044 00c7 | | Action Elaborate_Subprogram 0045 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0046 00c7 | | Action Elaborate_Subprogram 0047 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0048 00c7 | | Action Elaborate_Subprogram 0049 1d18 | | Execute_Immediate Reference_Lex_1,0x18 004a 00c7 | | Action Elaborate_Subprogram 004b 1d19 | | Execute_Immediate Reference_Lex_1,0x19 004c 00c7 | | Action Elaborate_Subprogram 004d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 004e 00c7 | | Action Elaborate_Subprogram 004f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0050 00c7 | | Action Elaborate_Subprogram 0051 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0052 00c7 | | Action Elaborate_Subprogram 0053 BODY_0008: 0053 00bc | | Action Signal_Activated 0054 00bb | | Action Signal_Completion 0055 0000 0000 | | .XXX[0x3] 0057 0000 | | 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b e20e | | Load 0x1,0xe 005c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 005d e20e | | Load 0x1,0xe 005e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 005f 003b | ; | Store_Top Access,At_Offset_3 0060 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0061 0000 0000 | | .BLANK 0000[0x7] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0073 | s | .CONST 0x0073 ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0004 | | .CONST 0x0004 ; Number of locals 006b INIT_0068: 006b e20e | | Load 0x1,0xe 006c 1b18 | | Execute Package,Field_Read,Field_Number 0x18 006d e20d | | Load 0x1,0xd 006e 0322 | " | Declare_Variable Record 006f 00d8 | | Load_Top At_Offset_0 0070 1c00 | | Execute_Immediate Run_Utility,0x0 0071 00e1 | | Load_Encached Boolean_Cache 0072 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0073 BODY_0068: 0073 e20e | | Load 0x1,0xe 0074 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0075 e5ff | | Load 0x2,-0x1 0076 e20e | | Load 0x1,0xe 0077 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0078 003b | ; | Store_Top Access,At_Offset_3 0079 00cf | | Action Mark_Auxiliary 007a 7811 |x | Jump 0x8c 007b 00db | | Load_Top At_Offset_3 007c e20e | | Load 0x1,0xe 007d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 007e 00db | | Load_Top At_Offset_3 007f 017d | } | Execute Record,Structure_Write 0080 00d9 | | Load_Top At_Offset_1 0081 00db | | Load_Top At_Offset_3 0082 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0083 e5fe | | Load 0x2,-0x2 0084 01df | | Execute Vector,Equal 0085 0278 | x | Execute Discrete,Or 0086 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0087 00db | | Load_Top At_Offset_3 0088 e20e | | Load 0x1,0xe 0089 181a | | Execute Package,Field_Execute,Field_Number 0x1a 008a c402 | | Store 0x2,0x2 008b 00c9 | | Action Pop_Auxiliary_Loop 008c 00db | | Load_Top At_Offset_3 008d e20e | | Load 0x1,0xe 008e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 008f 6feb |o | Jump_Zero 0x7b 0090 00ce | | Action Pop_Auxiliary 0091 00d8 | | Load_Top At_Offset_0 0092 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0093 0000 0000 | | .BLANK 0000[0x5] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009f | | .CONST 0x009f ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0002 | | .CONST 0x0002 ; Number of locals 009b INIT_0098: 009b e20d | | Load 0x1,0xd 009c 0322 | " | Declare_Variable Record 009d 00d8 | | Load_Top At_Offset_0 009e 1c00 | | Execute_Immediate Run_Utility,0x0 009f BODY_0098: 009f e5fe | | Load 0x2,-0x2 00a0 00d9 | | Load_Top At_Offset_1 00a1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00a2 e5fd | | Load 0x2,-0x3 00a3 00d9 | | Load_Top At_Offset_1 00a4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00a5 00db | | Load_Top At_Offset_3 00a6 00d9 | | Load_Top At_Offset_1 00a7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00a8 e5fc | | Load 0x2,-0x4 00a9 00d9 | | Load_Top At_Offset_1 00aa e20e | | Load 0x1,0xe 00ab 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00ac c5fc | | Store 0x2,-0x4 00ad 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00ae 0000 0000 | | .XXX[0x2] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00bb | | .CONST 0x00bb ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0004 | | .CONST 0x0004 ; Number of locals 00b3 INIT_00b0: 00b3 e20e | | Load 0x1,0xe 00b4 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00b5 e20d | | Load 0x1,0xd 00b6 0322 | " | Declare_Variable Record 00b7 00d8 | | Load_Top At_Offset_0 00b8 1c00 | | Execute_Immediate Run_Utility,0x0 00b9 00e1 | | Load_Encached Boolean_Cache 00ba 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00bb BODY_00b0: 00bb e20e | | Load 0x1,0xe 00bc 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00bd e5fe | | Load 0x2,-0x2 00be e20e | | Load 0x1,0xe 00bf 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00c0 003b | ; | Store_Top Access,At_Offset_3 00c1 00cf | | Action Mark_Auxiliary 00c2 7816 |x | Jump 0xd9 00c3 00db | | Load_Top At_Offset_3 00c4 e20e | | Load 0x1,0xe 00c5 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00c6 00db | | Load_Top At_Offset_3 00c7 017d | } | Execute Record,Structure_Write 00c8 00da | | Load_Top At_Offset_2 00c9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00ca e5ff | | Load 0x2,-0x1 00cb 01df | | Execute Vector,Equal 00cc 6807 |h | Jump_Zero 0xd4 00cd e5fe | | Load 0x2,-0x2 00ce 00db | | Load_Top At_Offset_3 00cf e20e | | Load 0x1,0xe 00d0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00d1 c5fe | | Store 0x2,-0x2 00d2 4801 |H | Short_Literal 0x1 00d3 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00d4 00db | | Load_Top At_Offset_3 00d5 e20e | | Load 0x1,0xe 00d6 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00d7 c402 | | Store 0x2,0x2 00d8 00c9 | | Action Pop_Auxiliary_Loop 00d9 00d9 | | Load_Top At_Offset_1 00da 0f00 | | Execute_Immediate Equal,0x0 00db e402 | | Load 0x2,0x2 00dc e20e | | Load 0x1,0xe 00dd 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00de 0f00 | | Execute_Immediate Equal,0x0 00df 0279 | y | Execute Discrete,And 00e0 77e2 |w | Jump_Nonzero 0xc3 00e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e2 0000 0000 | | .BLANK 0000[0x6] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00f3 | | .CONST 0x00f3 ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0004 | | .CONST 0x0004 ; Number of locals 00eb INIT_00e8: 00eb e20e | | Load 0x1,0xe 00ec 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00ed e20d | | Load 0x1,0xd 00ee 0322 | " | Declare_Variable Record 00ef 00d8 | | Load_Top At_Offset_0 00f0 1c00 | | Execute_Immediate Run_Utility,0x0 00f1 00e1 | | Load_Encached Boolean_Cache 00f2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00f3 BODY_00e8: 00f3 e20e | | Load 0x1,0xe 00f4 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00f5 e5fd | | Load 0x2,-0x3 00f6 e20e | | Load 0x1,0xe 00f7 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00f8 003b | ; | Store_Top Access,At_Offset_3 00f9 00cf | | Action Mark_Auxiliary 00fa 781e |x | Jump 0x119 00fb 00db | | Load_Top At_Offset_3 00fc e20e | | Load 0x1,0xe 00fd 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00fe 00db | | Load_Top At_Offset_3 00ff 017d | } | Execute Record,Structure_Write 0100 00da | | Load_Top At_Offset_2 0101 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0102 e5ff | | Load 0x2,-0x1 0103 01df | | Execute Vector,Equal 0104 680f |h | Jump_Zero 0x114 0105 e5fd | | Load 0x2,-0x3 0106 00db | | Load_Top At_Offset_3 0107 e20e | | Load 0x1,0xe 0108 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0109 c5fd | | Store 0x2,-0x3 010a e5fe | | Load 0x2,-0x2 010b 00db | | Load_Top At_Offset_3 010c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 010d e5fd | | Load 0x2,-0x3 010e 00db | | Load_Top At_Offset_3 010f e20e | | Load 0x1,0xe 0110 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0111 c5fd | | Store 0x2,-0x3 0112 4801 |H | Short_Literal 0x1 0113 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0114 00db | | Load_Top At_Offset_3 0115 e20e | | Load 0x1,0xe 0116 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0117 c402 | | Store 0x2,0x2 0118 00c9 | | Action Pop_Auxiliary_Loop 0119 00d9 | | Load_Top At_Offset_1 011a 0f00 | | Execute_Immediate Equal,0x0 011b e402 | | Load 0x2,0x2 011c e20e | | Load 0x1,0xe 011d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 011e 0f00 | | Execute_Immediate Equal,0x0 011f 0279 | y | Execute Discrete,And 0120 77da |w | Jump_Nonzero 0xfb 0121 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0122 0000 0000 | | .BLANK 0000[0x6] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 0134 | 4 | .CONST 0x0134 ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0005 | | .CONST 0x0005 ; Number of locals 012b INIT_0128: 012b e20e | | Load 0x1,0xe 012c 1b18 | | Execute Package,Field_Read,Field_Number 0x18 012d e20d | | Load 0x1,0xd 012e 0322 | " | Declare_Variable Record 012f 00d8 | | Load_Top At_Offset_0 0130 1c00 | | Execute_Immediate Run_Utility,0x0 0131 00e1 | | Load_Encached Boolean_Cache 0132 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0133 03e9 | | Declare_Variable Discrete,Duplicate 0134 BODY_0128: 0134 e20e | | Load 0x1,0xe 0135 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0136 e5ff | | Load 0x2,-0x1 0137 e20e | | Load 0x1,0xe 0138 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0139 c402 | | Store 0x2,0x2 013a 00cf | | Action Mark_Auxiliary 013b 781d |x | Jump 0x159 013c e402 | | Load 0x2,0x2 013d e20e | | Load 0x1,0xe 013e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 013f e403 | | Load 0x2,0x3 0140 017d | } | Execute Record,Structure_Write 0141 4801 |H | Short_Literal 0x1 0142 e5fe | | Load 0x2,-0x2 0143 e007 | | Load 0x0,0x7 0144 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0145 e403 | | Load 0x2,0x3 0146 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0147 e007 | | Load 0x0,0x7 0148 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0149 e008 | | Load 0x0,0x8 014a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 014b 6808 |h | Jump_Zero 0x154 014c 00db | | Load_Top At_Offset_3 014d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 014e e5fd | | Load 0x2,-0x3 014f 01d4 | | Execute Vector,Structure_Write 0150 4801 |H | Short_Literal 0x1 0151 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0152 4801 |H | Short_Literal 0x1 0153 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0154 e402 | | Load 0x2,0x2 0155 e20e | | Load 0x1,0xe 0156 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0157 c402 | | Store 0x2,0x2 0158 00c9 | | Action Pop_Auxiliary_Loop 0159 00d9 | | Load_Top At_Offset_1 015a 0f00 | | Execute_Immediate Equal,0x0 015b e402 | | Load 0x2,0x2 015c e20e | | Load 0x1,0xe 015d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 015e 0f00 | | Execute_Immediate Equal,0x0 015f 0279 | y | Execute Discrete,And 0160 77db |w | Jump_Nonzero 0x13c 0161 00ce | | Action Pop_Auxiliary 0162 00d9 | | Load_Top At_Offset_1 0163 a5fc | | Store_Unchecked 0x2,-0x4 0164 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0173 | s | .CONST 0x0173 ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0004 | | .CONST 0x0004 ; Number of locals 016b INIT_0168: 016b e20e | | Load 0x1,0xe 016c 1b18 | | Execute Package,Field_Read,Field_Number 0x18 016d e20d | | Load 0x1,0xd 016e 0322 | " | Declare_Variable Record 016f 00d8 | | Load_Top At_Offset_0 0170 1c00 | | Execute_Immediate Run_Utility,0x0 0171 00e1 | | Load_Encached Boolean_Cache 0172 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0173 BODY_0168: 0173 4800 |H | Short_Literal 0x0 0174 a5fc | | Store_Unchecked 0x2,-0x4 0175 e20e | | Load 0x1,0xe 0176 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0177 e5ff | | Load 0x2,-0x1 0178 e20e | | Load 0x1,0xe 0179 1819 | | Execute Package,Field_Execute,Field_Number 0x19 017a 003b | ; | Store_Top Access,At_Offset_3 017b 00cf | | Action Mark_Auxiliary 017c 7817 |x | Jump 0x194 017d 00db | | Load_Top At_Offset_3 017e e20e | | Load 0x1,0xe 017f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0180 00db | | Load_Top At_Offset_3 0181 017d | } | Execute Record,Structure_Write 0182 00da | | Load_Top At_Offset_2 0183 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0184 e5fe | | Load 0x2,-0x2 0185 01df | | Execute Vector,Equal 0186 6808 |h | Jump_Zero 0x18f 0187 00da | | Load_Top At_Offset_2 0188 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0189 e5fd | | Load 0x2,-0x3 018a 016d | m | Execute Variant_Record,Structure_Write 018b 4801 |H | Short_Literal 0x1 018c a5fc | | Store_Unchecked 0x2,-0x4 018d 4801 |H | Short_Literal 0x1 018e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 018f 00db | | Load_Top At_Offset_3 0190 e20e | | Load 0x1,0xe 0191 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0192 c402 | | Store 0x2,0x2 0193 00c9 | | Action Pop_Auxiliary_Loop 0194 00d9 | | Load_Top At_Offset_1 0195 0f00 | | Execute_Immediate Equal,0x0 0196 e402 | | Load 0x2,0x2 0197 e20e | | Load 0x1,0xe 0198 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0199 0f00 | | Execute_Immediate Equal,0x0 019a 0279 | y | Execute Discrete,And 019b 77e1 |w | Jump_Nonzero 0x17d 019c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 019d 0000 0000 | | .XXX[0x3] 019f 0000 | | 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01ab | | .CONST 0x01ab ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0004 | | .CONST 0x0004 ; Number of locals 01a3 INIT_01a0: 01a3 e20e | | Load 0x1,0xe 01a4 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01a5 e20d | | Load 0x1,0xd 01a6 0322 | " | Declare_Variable Record 01a7 00d8 | | Load_Top At_Offset_0 01a8 1c00 | | Execute_Immediate Run_Utility,0x0 01a9 00e1 | | Load_Encached Boolean_Cache 01aa 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01ab BODY_01a0: 01ab 4800 |H | Short_Literal 0x0 01ac a5fc | | Store_Unchecked 0x2,-0x4 01ad e20e | | Load 0x1,0xe 01ae 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01af e5ff | | Load 0x2,-0x1 01b0 e20e | | Load 0x1,0xe 01b1 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01b2 003b | ; | Store_Top Access,At_Offset_3 01b3 00cf | | Action Mark_Auxiliary 01b4 781d |x | Jump 0x1d2 01b5 00db | | Load_Top At_Offset_3 01b6 e20e | | Load 0x1,0xe 01b7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01b8 00db | | Load_Top At_Offset_3 01b9 017d | } | Execute Record,Structure_Write 01ba 4801 |H | Short_Literal 0x1 01bb 00db | | Load_Top At_Offset_3 01bc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01bd e007 | | Load 0x0,0x7 01be 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01bf e5fe | | Load 0x2,-0x2 01c0 e007 | | Load 0x0,0x7 01c1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c2 e008 | | Load 0x0,0x8 01c3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01c4 6808 |h | Jump_Zero 0x1cd 01c5 00da | | Load_Top At_Offset_2 01c6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01c7 e5fd | | Load 0x2,-0x3 01c8 01d4 | | Execute Vector,Structure_Write 01c9 4801 |H | Short_Literal 0x1 01ca a5fc | | Store_Unchecked 0x2,-0x4 01cb 4801 |H | Short_Literal 0x1 01cc 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01cd 00db | | Load_Top At_Offset_3 01ce e20e | | Load 0x1,0xe 01cf 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01d0 c402 | | Store 0x2,0x2 01d1 00c9 | | Action Pop_Auxiliary_Loop 01d2 00d9 | | Load_Top At_Offset_1 01d3 0f00 | | Execute_Immediate Equal,0x0 01d4 e402 | | Load 0x2,0x2 01d5 e20e | | Load 0x1,0xe 01d6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01d7 0f00 | | Execute_Immediate Equal,0x0 01d8 0279 | y | Execute Discrete,And 01d9 77db |w | Jump_Nonzero 0x1b5 01da 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01db 0000 0000 | | .BLANK 0000[0x5] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01eb | | .CONST 0x01eb ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0004 | | .CONST 0x0004 ; Number of locals 01e3 INIT_01e0: 01e3 e20e | | Load 0x1,0xe 01e4 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01e5 e20d | | Load 0x1,0xd 01e6 0322 | " | Declare_Variable Record 01e7 00d8 | | Load_Top At_Offset_0 01e8 1c00 | | Execute_Immediate Run_Utility,0x0 01e9 00e1 | | Load_Encached Boolean_Cache 01ea 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01eb BODY_01e0: 01eb 4800 |H | Short_Literal 0x0 01ec a5fc | | Store_Unchecked 0x2,-0x4 01ed e20e | | Load 0x1,0xe 01ee 1b18 | | Execute Package,Field_Read,Field_Number 0x18 01ef e5ff | | Load 0x2,-0x1 01f0 e20e | | Load 0x1,0xe 01f1 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01f2 003b | ; | Store_Top Access,At_Offset_3 01f3 00cf | | Action Mark_Auxiliary 01f4 7817 |x | Jump 0x20c 01f5 00db | | Load_Top At_Offset_3 01f6 e20e | | Load 0x1,0xe 01f7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01f8 00db | | Load_Top At_Offset_3 01f9 017d | } | Execute Record,Structure_Write 01fa 00da | | Load_Top At_Offset_2 01fb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01fc e5fe | | Load 0x2,-0x2 01fd 01df | | Execute Vector,Equal 01fe 6808 |h | Jump_Zero 0x207 01ff 00da | | Load_Top At_Offset_2 0200 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0201 e5fd | | Load 0x2,-0x3 0202 016d | m | Execute Variant_Record,Structure_Write 0203 4801 |H | Short_Literal 0x1 0204 a5fc | | Store_Unchecked 0x2,-0x4 0205 4801 |H | Short_Literal 0x1 0206 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0207 00db | | Load_Top At_Offset_3 0208 e20e | | Load 0x1,0xe 0209 181a | | Execute Package,Field_Execute,Field_Number 0x1a 020a c402 | | Store 0x2,0x2 020b 00c9 | | Action Pop_Auxiliary_Loop 020c 00d9 | | Load_Top At_Offset_1 020d 0f00 | | Execute_Immediate Equal,0x0 020e e402 | | Load 0x2,0x2 020f e20e | | Load 0x1,0xe 0210 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0211 0f00 | | Execute_Immediate Equal,0x0 0212 0279 | y | Execute Discrete,And 0213 77e1 |w | Jump_Nonzero 0x1f5 0214 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0215 0000 0000 | | .XXX[0x3] 0217 0000 | | 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 0223 | # | .CONST 0x0223 ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0004 | | .CONST 0x0004 ; Number of locals 021b INIT_0218: 021b e20e | | Load 0x1,0xe 021c 1b18 | | Execute Package,Field_Read,Field_Number 0x18 021d e20d | | Load 0x1,0xd 021e 0322 | " | Declare_Variable Record 021f 00d8 | | Load_Top At_Offset_0 0220 1c00 | | Execute_Immediate Run_Utility,0x0 0221 00e1 | | Load_Encached Boolean_Cache 0222 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0223 BODY_0218: 0223 4800 |H | Short_Literal 0x0 0224 a5fc | | Store_Unchecked 0x2,-0x4 0225 e20e | | Load 0x1,0xe 0226 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0227 e5ff | | Load 0x2,-0x1 0228 e20e | | Load 0x1,0xe 0229 1819 | | Execute Package,Field_Execute,Field_Number 0x19 022a 003b | ; | Store_Top Access,At_Offset_3 022b 00cf | | Action Mark_Auxiliary 022c 781d |x | Jump 0x24a 022d 00db | | Load_Top At_Offset_3 022e e20e | | Load 0x1,0xe 022f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0230 00db | | Load_Top At_Offset_3 0231 017d | } | Execute Record,Structure_Write 0232 4801 |H | Short_Literal 0x1 0233 00db | | Load_Top At_Offset_3 0234 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0235 e007 | | Load 0x0,0x7 0236 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0237 e5fe | | Load 0x2,-0x2 0238 e007 | | Load 0x0,0x7 0239 1813 | | Execute Package,Field_Execute,Field_Number 0x13 023a e008 | | Load 0x0,0x8 023b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 023c 6808 |h | Jump_Zero 0x245 023d 00da | | Load_Top At_Offset_2 023e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 023f e5fd | | Load 0x2,-0x3 0240 016d | m | Execute Variant_Record,Structure_Write 0241 4801 |H | Short_Literal 0x1 0242 a5fc | | Store_Unchecked 0x2,-0x4 0243 4801 |H | Short_Literal 0x1 0244 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0245 00db | | Load_Top At_Offset_3 0246 e20e | | Load 0x1,0xe 0247 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0248 c402 | | Store 0x2,0x2 0249 00c9 | | Action Pop_Auxiliary_Loop 024a 00d9 | | Load_Top At_Offset_1 024b 0f00 | | Execute_Immediate Equal,0x0 024c e402 | | Load 0x2,0x2 024d e20e | | Load 0x1,0xe 024e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 024f 0f00 | | Execute_Immediate Equal,0x0 0250 0279 | y | Execute Discrete,And 0251 77db |w | Jump_Nonzero 0x22d 0252 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0253 0000 0000 | | .BLANK 0000[0x5] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 0263 | c | .CONST 0x0263 ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0004 | | .CONST 0x0004 ; Number of locals 025b INIT_0258: 025b e20e | | Load 0x1,0xe 025c 1b18 | | Execute Package,Field_Read,Field_Number 0x18 025d e20d | | Load 0x1,0xd 025e 0322 | " | Declare_Variable Record 025f 00d8 | | Load_Top At_Offset_0 0260 1c00 | | Execute_Immediate Run_Utility,0x0 0261 00e1 | | Load_Encached Boolean_Cache 0262 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0263 BODY_0258: 0263 4800 |H | Short_Literal 0x0 0264 a5fc | | Store_Unchecked 0x2,-0x4 0265 e20e | | Load 0x1,0xe 0266 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0267 e5ff | | Load 0x2,-0x1 0268 e20e | | Load 0x1,0xe 0269 1819 | | Execute Package,Field_Execute,Field_Number 0x19 026a 003b | ; | Store_Top Access,At_Offset_3 026b 00cf | | Action Mark_Auxiliary 026c 7817 |x | Jump 0x284 026d 00db | | Load_Top At_Offset_3 026e e20e | | Load 0x1,0xe 026f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0270 00db | | Load_Top At_Offset_3 0271 017d | } | Execute Record,Structure_Write 0272 00da | | Load_Top At_Offset_2 0273 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0274 e5fe | | Load 0x2,-0x2 0275 01df | | Execute Vector,Equal 0276 6808 |h | Jump_Zero 0x27f 0277 00da | | Load_Top At_Offset_2 0278 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0279 e5fd | | Load 0x2,-0x3 027a 016d | m | Execute Variant_Record,Structure_Write 027b 4801 |H | Short_Literal 0x1 027c a5fc | | Store_Unchecked 0x2,-0x4 027d 4801 |H | Short_Literal 0x1 027e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 027f 00db | | Load_Top At_Offset_3 0280 e20e | | Load 0x1,0xe 0281 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0282 c402 | | Store 0x2,0x2 0283 00c9 | | Action Pop_Auxiliary_Loop 0284 00d9 | | Load_Top At_Offset_1 0285 0f00 | | Execute_Immediate Equal,0x0 0286 e402 | | Load 0x2,0x2 0287 e20e | | Load 0x1,0xe 0288 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0289 0f00 | | Execute_Immediate Equal,0x0 028a 0279 | y | Execute Discrete,And 028b 77e1 |w | Jump_Nonzero 0x26d 028c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 028d 0000 0000 | | .XXX[0x3] 028f 0000 | | 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 029b | | .CONST 0x029b ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0004 | | .CONST 0x0004 ; Number of locals 0293 INIT_0290: 0293 e20e | | Load 0x1,0xe 0294 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0295 e20d | | Load 0x1,0xd 0296 0322 | " | Declare_Variable Record 0297 00d8 | | Load_Top At_Offset_0 0298 1c00 | | Execute_Immediate Run_Utility,0x0 0299 00e1 | | Load_Encached Boolean_Cache 029a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 029b BODY_0290: 029b 4800 |H | Short_Literal 0x0 029c a5fc | | Store_Unchecked 0x2,-0x4 029d e20e | | Load 0x1,0xe 029e 1b18 | | Execute Package,Field_Read,Field_Number 0x18 029f e5ff | | Load 0x2,-0x1 02a0 e20e | | Load 0x1,0xe 02a1 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02a2 003b | ; | Store_Top Access,At_Offset_3 02a3 00cf | | Action Mark_Auxiliary 02a4 781d |x | Jump 0x2c2 02a5 00db | | Load_Top At_Offset_3 02a6 e20e | | Load 0x1,0xe 02a7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02a8 00db | | Load_Top At_Offset_3 02a9 017d | } | Execute Record,Structure_Write 02aa 4801 |H | Short_Literal 0x1 02ab 00db | | Load_Top At_Offset_3 02ac 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02ad e007 | | Load 0x0,0x7 02ae 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02af e5fe | | Load 0x2,-0x2 02b0 e007 | | Load 0x0,0x7 02b1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02b2 e008 | | Load 0x0,0x8 02b3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 02b4 6808 |h | Jump_Zero 0x2bd 02b5 00da | | Load_Top At_Offset_2 02b6 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02b7 e5fd | | Load 0x2,-0x3 02b8 016d | m | Execute Variant_Record,Structure_Write 02b9 4801 |H | Short_Literal 0x1 02ba a5fc | | Store_Unchecked 0x2,-0x4 02bb 4801 |H | Short_Literal 0x1 02bc 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 02bd 00db | | Load_Top At_Offset_3 02be e20e | | Load 0x1,0xe 02bf 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02c0 c402 | | Store 0x2,0x2 02c1 00c9 | | Action Pop_Auxiliary_Loop 02c2 00d9 | | Load_Top At_Offset_1 02c3 0f00 | | Execute_Immediate Equal,0x0 02c4 e402 | | Load 0x2,0x2 02c5 e20e | | Load 0x1,0xe 02c6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02c7 0f00 | | Execute_Immediate Equal,0x0 02c8 0279 | y | Execute Discrete,And 02c9 77db |w | Jump_Nonzero 0x2a5 02ca 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02cb 0000 0000 | | .BLANK 0000[0x5] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d3 | | .CONST 0x02d3 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0001 | | .CONST 0x0001 ; Number of locals 02d3 BODY_02d0: 02d3 INIT_02d0: 02d3 00da | | Load_Top At_Offset_2 02d4 e20e | | Load 0x1,0xe 02d5 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d7 0000 | | .XXX[0x1] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02e1 | | .CONST 0x02e1 ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0003 | | .CONST 0x0003 ; Number of locals 02db INIT_02d8: 02db e20e | | Load 0x1,0xe 02dc 1b18 | | Execute Package,Field_Read,Field_Number 0x18 02dd e20d | | Load 0x1,0xd 02de 0322 | " | Declare_Variable Record 02df 00d8 | | Load_Top At_Offset_0 02e0 1c00 | | Execute_Immediate Run_Utility,0x0 02e1 BODY_02d8: 02e1 e20e | | Load 0x1,0xe 02e2 1b18 | | Execute Package,Field_Read,Field_Number 0x18 02e3 e5ff | | Load 0x2,-0x1 02e4 e20e | | Load 0x1,0xe 02e5 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02e6 003a | : | Store_Top Access,At_Offset_2 02e7 00cf | | Action Mark_Auxiliary 02e8 7834 |x4 | Jump 0x31d 02e9 00da | | Load_Top At_Offset_2 02ea e20e | | Load 0x1,0xe 02eb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02ec 00da | | Load_Top At_Offset_2 02ed 017d | } | Execute Record,Structure_Write 02ee 0092 034b | K| Action Push_String_Extended,0x34b ; " adress : " 02f0 00da | | Load_Top At_Offset_2 02f1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02f2 01cc | | Execute Vector,Catenate 02f3 4801 |H | Short_Literal 0x1 02f4 e009 | | Load 0x0,0x9 02f5 e00a | | Load 0x0,0xa 02f6 00ad | | QQ_Action Package,Field_Execute_Dynamic 02f7 0092 034c | L| Action Push_String_Extended,0x34c ; " specification : " 02f9 00da | | Load_Top At_Offset_2 02fa 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02fb e007 | | Load 0x0,0x7 02fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02fd 01cc | | Execute Vector,Catenate 02fe 4801 |H | Short_Literal 0x1 02ff e009 | | Load 0x0,0x9 0300 e00a | | Load 0x0,0xa 0301 00ad | | QQ_Action Package,Field_Execute_Dynamic 0302 0092 034d | M| Action Push_String_Extended,0x34d ; " machine : " 0304 00da | | Load_Top At_Offset_2 0305 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0306 e007 | | Load 0x0,0x7 0307 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0308 01cc | | Execute Vector,Catenate 0309 4801 |H | Short_Literal 0x1 030a e009 | | Load 0x0,0x9 030b e00a | | Load 0x0,0xa 030c 00ad | | QQ_Action Package,Field_Execute_Dynamic 030d 0092 034e | N| Action Push_String_Extended,0x34e ; " appli_number : " 030f 00da | | Load_Top At_Offset_2 0310 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0311 e007 | | Load 0x0,0x7 0312 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0313 01cc | | Execute Vector,Catenate 0314 4801 |H | Short_Literal 0x1 0315 e009 | | Load 0x0,0x9 0316 e00a | | Load 0x0,0xa 0317 00ad | | QQ_Action Package,Field_Execute_Dynamic 0318 00da | | Load_Top At_Offset_2 0319 e20e | | Load 0x1,0xe 031a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 031b 003b | ; | Store_Top Access,At_Offset_3 031c 00c9 | | Action Pop_Auxiliary_Loop 031d 00da | | Load_Top At_Offset_2 031e e20e | | Load 0x1,0xe 031f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0320 6fc8 |o | Jump_Zero 0x2e9 0321 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0322 0000 0000 | | .BLANK 0000[0x6] 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 7813 |x | Jump 0x341 ; case 0x1 032e 00da | | Load_Top At_Offset_2 032f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0330 0125 | % | Execute Any,Set_Constraint 0331 00da | | Load_Top At_Offset_2 0332 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0333 1c00 | | Execute_Immediate Run_Utility,0x0 0334 00da | | Load_Top At_Offset_2 0335 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0336 0125 | % | Execute Any,Set_Constraint 0337 00da | | Load_Top At_Offset_2 0338 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0339 1c00 | | Execute_Immediate Run_Utility,0x0 033a 00da | | Load_Top At_Offset_2 033b 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 033c 0125 | % | Execute Any,Set_Constraint 033d 00da | | Load_Top At_Offset_2 033e 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 033f 1c00 | | Execute_Immediate Run_Utility,0x0 0340 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0341 00da | | Load_Top At_Offset_2 0342 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0343 0125 | % | Execute Any,Set_Constraint 0344 00da | | Load_Top At_Offset_2 0345 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0346 0125 | % | Execute Any,Set_Constraint 0347 00da | | Load_Top At_Offset_2 0348 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0349 0125 | % | Execute Any,Set_Constraint 034a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 034b ; -------------------------------------------------------------------------------------- 034b ; STRING TABLE 034b ; -------------------------------------------------------------------------------------- 034b 000a | | .STRTAB 0x000a->0x0350 ; " adress : " 034c 001b | | .STRTAB 0x001b->0x0359 ; " specification : " 034d 0033 | 3 | .STRTAB 0x0033->0x0366 ; " machine : " 034e 0045 | E | .STRTAB 0x0045->0x0370 ; " appli_number : " 034f 005c | \ | .STREND 0x005c->0x037d 0350 2020 2020 | | .STRTAB_STRINGS 037d 0000 0000 | | .XXX[0x3] 037f 0000 | | 0380 ; -------------------------------------------------------------------------------------- 0380 ; Debug Table 0380 ; -------------------------------------------------------------------------------------- 0380 0004 000a | | .DEBUG4 0x0004,0x000a,0x35b0,0x0000,0x0001,0x0011 0386 000b 03ca | | .DBG4T 0x000b,0x03ca,0x8000,0x0000 038a 0037 03dc | 7 | .DBG4T 0x0037,0x03dc,0x8000,0x0000 038e 005b 03ec | [ | .DBG4T 0x005b,0x03ec,0x0001,0x0000 0392 006b 03ef | k | .DBG4T 0x006b,0x03ef,0x0002,0x4000 0396 009b 0400 | | .DBG4T 0x009b,0x0400,0x0001,0x0000 039a 00b3 0407 | | .DBG4T 0x00b3,0x0407,0x0001,0x4000 039e 00eb 041a | | .DBG4T 0x00eb,0x041a,0x0001,0x4000 03a2 012b 0431 | + 1| .DBG4T 0x012b,0x0431,0x0001,0x4000 03a6 016b 0448 | k H| .DBG4T 0x016b,0x0448,0x0001,0x4000 03aa 01a3 045f | _| .DBG4T 0x01a3,0x045f,0x0001,0x4000 03ae 01e3 0476 | v| .DBG4T 0x01e3,0x0476,0x0001,0x4000 03b2 021b 048d | | .DBG4T 0x021b,0x048d,0x0001,0x4000 03b6 025b 04a4 | [ | .DBG4T 0x025b,0x04a4,0x0001,0x4000 03ba 0293 04bb | | .DBG4T 0x0293,0x04bb,0x0001,0x4000 03be 02d3 04d2 | | .DBG4T 0x02d3,0x04d2,0x0002,0x0000 03c2 02db 04d5 | | .DBG4T 0x02db,0x04d5,0x0001,0x4000 03c6 032b 0000 | + | .DBG4T 0x032b,0x0000,0x0005,0x0000 03ca ; -------------------------------------------------------------------------------------- 03ca ; Debug chain 03ca ; -------------------------------------------------------------------------------------- 03ca 0010 0000 | | .DBGLEN 0x0010,0x0000 03cc 000b 0013 | | .DBGLNO 0x000b,0x0013,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034 03dc ; -------------------------------------------------------------------------------------- 03dc ; Debug chain 03dc ; -------------------------------------------------------------------------------------- 03dc 000e 0000 | | .DBGLEN 0x000e,0x0000 03de 0037 0039 | 7 9| .DBGLNO 0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051 03ec ; -------------------------------------------------------------------------------------- 03ec ; Debug chain 03ec ; -------------------------------------------------------------------------------------- 03ec 0000 0001 | | .DBGLEN 0x0000,0x0001 03ee 005b | [ | .DBGLNO 0x005b 03ef ; -------------------------------------------------------------------------------------- 03ef ; Debug chain 03ef ; -------------------------------------------------------------------------------------- 03ef 0003 0006 | | .DBGLEN 0x0003,0x0006 03f1 006b 006d | k m| .DBGLNO 0x006b,0x006d,0x0071,0x0073,0x007b,0x0080,0x0087,0x008c,0x0091 03fa 0001 0003 | | .XXX[0x6] 03fc 0004 0005 | | 03fe 0002 0006 | | 0400 ; -------------------------------------------------------------------------------------- 0400 ; Debug chain 0400 ; -------------------------------------------------------------------------------------- 0400 0001 0004 | | .DBGLEN 0x0001,0x0004 0402 009b 009f | | .DBGLNO 0x009b,0x009f,0x00a2,0x00a5,0x00a8 0407 ; -------------------------------------------------------------------------------------- 0407 ; Debug chain 0407 ; -------------------------------------------------------------------------------------- 0407 0003 0007 | | .DBGLEN 0x0003,0x0007 0409 00b3 00b5 | | .DBGLNO 0x00b3,0x00b5,0x00b9,0x00bb,0x00c3,0x00c8,0x00cd,0x00d2,0x00d4,0x00d9 0413 0001 0003 | | .XXX[0x7] 0415 0004 0005 | | 0417 0006 0007 | | 0419 0002 | | 041a ; -------------------------------------------------------------------------------------- 041a ; Debug chain 041a ; -------------------------------------------------------------------------------------- 041a 0003 0009 | | .DBGLEN 0x0003,0x0009 041c 00eb 00ed | | .DBGLNO 0x00eb,0x00ed,0x00f1,0x00f3,0x00fb,0x0100,0x0105,0x010a,0x010d,0x0112,0x0114,0x0119 0428 0001 0003 | | .XXX[0x9] 042a 0004 0005 | | 042c 0006 0007 | | 042e 0008 0009 | | 0430 0002 | | 0431 ; -------------------------------------------------------------------------------------- 0431 ; Debug chain 0431 ; -------------------------------------------------------------------------------------- 0431 0003 0009 | | .DBGLEN 0x0003,0x0009 0433 012b 012d | + -| .DBGLNO 0x012b,0x012d,0x0131,0x0134,0x013c,0x0141,0x014c,0x0150,0x0152,0x0154,0x0159,0x0162 043f 0001 0003 | | .XXX[0x9] 0441 0004 0005 | | 0443 0006 0007 | | 0445 0008 0002 | | 0447 0009 | | 0448 ; -------------------------------------------------------------------------------------- 0448 ; Debug chain 0448 ; -------------------------------------------------------------------------------------- 0448 0003 0009 | | .DBGLEN 0x0003,0x0009 044a 016b 016d | k m| .DBGLNO 0x016b,0x016d,0x0171,0x0173,0x0175,0x017d,0x0182,0x0187,0x018b,0x018d,0x018f,0x0194 0456 0001 0002 | | .XXX[0x9] 0458 0004 0005 | | 045a 0006 0007 | | 045c 0008 0009 | | 045e 0003 | | 045f ; -------------------------------------------------------------------------------------- 045f ; Debug chain 045f ; -------------------------------------------------------------------------------------- 045f 0003 0009 | | .DBGLEN 0x0003,0x0009 0461 01a3 01a5 | | .DBGLNO 0x01a3,0x01a5,0x01a9,0x01ab,0x01ad,0x01b5,0x01ba,0x01c5,0x01c9,0x01cb,0x01cd,0x01d2 046d 0001 0002 | | .XXX[0x9] 046f 0004 0005 | | 0471 0006 0007 | | 0473 0008 0009 | | 0475 0003 | | 0476 ; -------------------------------------------------------------------------------------- 0476 ; Debug chain 0476 ; -------------------------------------------------------------------------------------- 0476 0003 0009 | | .DBGLEN 0x0003,0x0009 0478 01e3 01e5 | | .DBGLNO 0x01e3,0x01e5,0x01e9,0x01eb,0x01ed,0x01f5,0x01fa,0x01ff,0x0203,0x0205,0x0207,0x020c 0484 0001 0002 | | .XXX[0x9] 0486 0004 0005 | | 0488 0006 0007 | | 048a 0008 0009 | | 048c 0003 | | 048d ; -------------------------------------------------------------------------------------- 048d ; Debug chain 048d ; -------------------------------------------------------------------------------------- 048d 0003 0009 | | .DBGLEN 0x0003,0x0009 048f 021b 021d | | .DBGLNO 0x021b,0x021d,0x0221,0x0223,0x0225,0x022d,0x0232,0x023d,0x0241,0x0243,0x0245,0x024a 049b 0001 0002 | | .XXX[0x9] 049d 0004 0005 | | 049f 0006 0007 | | 04a1 0008 0009 | | 04a3 0003 | | 04a4 ; -------------------------------------------------------------------------------------- 04a4 ; Debug chain 04a4 ; -------------------------------------------------------------------------------------- 04a4 0003 0009 | | .DBGLEN 0x0003,0x0009 04a6 025b 025d | [ ]| .DBGLNO 0x025b,0x025d,0x0261,0x0263,0x0265,0x026d,0x0272,0x0277,0x027b,0x027d,0x027f,0x0284 04b2 0001 0002 | | .XXX[0x9] 04b4 0004 0005 | | 04b6 0006 0007 | | 04b8 0008 0009 | | 04ba 0003 | | 04bb ; -------------------------------------------------------------------------------------- 04bb ; Debug chain 04bb ; -------------------------------------------------------------------------------------- 04bb 0003 0009 | | .DBGLEN 0x0003,0x0009 04bd 0293 0295 | | .DBGLNO 0x0293,0x0295,0x0299,0x029b,0x029d,0x02a5,0x02aa,0x02b5,0x02b9,0x02bb,0x02bd,0x02c2 04c9 0001 0002 | | .XXX[0x9] 04cb 0004 0005 | | 04cd 0006 0007 | | 04cf 0008 0009 | | 04d1 0003 | | 04d2 ; -------------------------------------------------------------------------------------- 04d2 ; Debug chain 04d2 ; -------------------------------------------------------------------------------------- 04d2 0000 0001 | | .DBGLEN 0x0000,0x0001 04d4 02d3 | | .DBGLNO 0x02d3 04d5 ; -------------------------------------------------------------------------------------- 04d5 ; Debug chain 04d5 ; -------------------------------------------------------------------------------------- 04d5 0002 0008 | | .DBGLEN 0x0002,0x0008 04d7 02db 02dd | | .DBGLNO 0x02db,0x02dd,0x02e1,0x02e9,0x02ee,0x02f7,0x0302,0x030d,0x0318,0x031d 04e1 0001 0003 | | .XXX[0x8] 04e3 0004 0005 | | 04e5 0006 0007 | | 04e7 0008 0002 | | 04e9 0000 0000 | | .BLANK 0000[0x117]