|
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_7b78f4
└─⟦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 03f0 | | .CONST 0x03f0 ; 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 0066 | f | .CONST 0x0066 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001e | | .CONST 0x001e ; Number of locals 000b INIT_0008: 000b 4818 |H | Short_Literal 0x18 000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 000f 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0011 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0013 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0015 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0017 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0019 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 001b 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 001d 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 001f 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0021 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 0023 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 0025 00c4 | | Action Make_Default 0026 4800 |H | Short_Literal 0x0 0027 4809 |H | Short_Literal 0x9 0028 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call 002a 03fe | | Declare_Type Discrete,Defined,Visible 002b 00d8 | | Load_Top At_Offset_0 002c e20d | | Load 0x1,0xd 002d 4803 |H | Short_Literal 0x3 002e e007 | | Load 0x0,0x7 002f e20d | | Load 0x1,0xd 0030 00d8 | | Load_Top At_Offset_0 0031 4801 |H | Short_Literal 0x1 0032 e008 | | Load 0x0,0x8 0033 4801 |H | Short_Literal 0x1 0034 e009 | | Load 0x0,0x9 0035 4802 |H | Short_Literal 0x2 0036 e00a | | Load 0x0,0xa 0037 e00b | | Load 0x0,0xb 0038 4801 |H | Short_Literal 0x1 0039 e00a | | Load 0x0,0xa 003a 029f 0313 | | Declare_Subprogram INIT_0310,For_Call 003c 4808 |H | Short_Literal 0x8 003d 4801 |H | Short_Literal 0x1 003e 4805 |H | Short_Literal 0x5 003f 4800 |H | Short_Literal 0x0 0040 4801 |H | Short_Literal 0x1 0041 031e | | Declare_Type Variant_Record,Defined,Visible 0042 00d8 | | Load_Top At_Offset_0 0043 02a0 | | Declare_Subprogram Null_Subprogram 0044 e20d | | Load 0x1,0xd 0045 03c7 | | Complete_Type Access,By_Defining 0046 e20d | | Load 0x1,0xd 0047 0129 | ) | Execute Any,Make_Visible 0048 c21a | | Store 0x1,0x1a 0049 00bf | | Action Accept_Activation 004a 00e1 | | Load_Encached Boolean_Cache 004b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 004c 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call 004e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 004f 00c7 | | Action Elaborate_Subprogram 0050 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0051 00c7 | | Action Elaborate_Subprogram 0052 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0053 00c7 | | Action Elaborate_Subprogram 0054 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0055 00c7 | | Action Elaborate_Subprogram 0056 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0057 00c7 | | Action Elaborate_Subprogram 0058 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0059 00c7 | | Action Elaborate_Subprogram 005a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 005b 00c7 | | Action Elaborate_Subprogram 005c 1d15 | | Execute_Immediate Reference_Lex_1,0x15 005d 00c7 | | Action Elaborate_Subprogram 005e 1d16 | | Execute_Immediate Reference_Lex_1,0x16 005f 00c7 | | Action Elaborate_Subprogram 0060 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0061 00c7 | | Action Elaborate_Subprogram 0062 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0063 00c7 | | Action Elaborate_Subprogram 0064 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0065 00c7 | | Action Elaborate_Subprogram 0066 BODY_0008: 0066 00bc | | Action Signal_Activated 0067 00bb | | Action Signal_Completion 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006d | m | .CONST 0x006d ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0002 | | .CONST 0x0002 ; Number of locals 006b INIT_0068: 006b e20d | | Load 0x1,0xd 006c 0007 | | Action Break_Optional 006d BODY_0068: 006d e5fc | | Load 0x2,-0x4 006e e20d | | Load 0x1,0xd 006f 022f | / | Execute Access,Equal 0070 6813 |h | Jump_Zero 0x84 0071 4800 |H | Short_Literal 0x0 0072 e21c | | Load 0x1,0x1c 0073 1c08 | | Execute_Immediate Run_Utility,0x8 0074 e20d | | Load 0x1,0xd 0075 00d9 | | Load_Top At_Offset_1 0076 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0077 e5ff | | Load 0x2,-0x1 0078 00d9 | | Load_Top At_Offset_1 0079 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 007a e5fe | | Load 0x2,-0x2 007b 00d9 | | Load_Top At_Offset_1 007c 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 007d e5fd | | Load 0x2,-0x3 007e 00d9 | | Load_Top At_Offset_1 007f 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 0080 e20d | | Load 0x1,0xd 0081 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0082 a5fc | | Store_Unchecked 0x2,-0x4 0083 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0084 e5fc | | Load 0x2,-0x4 0085 821e | | Call 0x1,0x1e 0086 0039 | 9 | Store_Top Access,At_Offset_1 0087 4800 |H | Short_Literal 0x0 0088 e21c | | Load 0x1,0x1c 0089 1c08 | | Execute_Immediate Run_Utility,0x8 008a e20d | | Load 0x1,0xd 008b 00d9 | | Load_Top At_Offset_1 008c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 008d e5ff | | Load 0x2,-0x1 008e 00d9 | | Load_Top At_Offset_1 008f 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 0090 e5fe | | Load 0x2,-0x2 0091 00d9 | | Load_Top At_Offset_1 0092 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 0093 e5fd | | Load 0x2,-0x3 0094 00d9 | | Load_Top At_Offset_1 0095 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5 0096 e20d | | Load 0x1,0xd 0097 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0098 00d9 | | Load_Top At_Offset_1 0099 0227 | ' | Execute Access,All_Reference 009a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 009b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 009c 0000 0000 | | .BLANK 0000[0x4] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a5 | | .CONST 0x00a5 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0002 | | .CONST 0x0002 ; Number of locals 00a3 INIT_00a0: 00a3 e20d | | Load 0x1,0xd 00a4 0007 | | Action Break_Optional 00a5 BODY_00a0: 00a5 e5fe | | Load 0x2,-0x2 00a6 e20d | | Load 0x1,0xd 00a7 022f | / | Execute Access,Equal 00a8 680d |h | Jump_Zero 0xb6 00a9 4801 |H | Short_Literal 0x1 00aa e21c | | Load 0x1,0x1c 00ab 1c08 | | Execute_Immediate Run_Utility,0x8 00ac e20d | | Load 0x1,0xd 00ad 00d9 | | Load_Top At_Offset_1 00ae 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00af e5ff | | Load 0x2,-0x1 00b0 00d9 | | Load_Top At_Offset_1 00b1 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 00b2 e20d | | Load 0x1,0xd 00b3 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00b4 a5fe | | Store_Unchecked 0x2,-0x2 00b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b6 e5fe | | Load 0x2,-0x2 00b7 821e | | Call 0x1,0x1e 00b8 0039 | 9 | Store_Top Access,At_Offset_1 00b9 4801 |H | Short_Literal 0x1 00ba e21c | | Load 0x1,0x1c 00bb 1c08 | | Execute_Immediate Run_Utility,0x8 00bc e20d | | Load 0x1,0xd 00bd 00d9 | | Load_Top At_Offset_1 00be 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00bf e5ff | | Load 0x2,-0x1 00c0 00d9 | | Load_Top At_Offset_1 00c1 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 00c2 e20d | | Load 0x1,0xd 00c3 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00c4 00d9 | | Load_Top At_Offset_1 00c5 0227 | ' | Execute Access,All_Reference 00c6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cd | | .CONST 0x00cd ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0002 | | .CONST 0x0002 ; Number of locals 00cb INIT_00c8: 00cb e20d | | Load 0x1,0xd 00cc 0007 | | Action Break_Optional 00cd BODY_00c8: 00cd e5fe | | Load 0x2,-0x2 00ce e20d | | Load 0x1,0xd 00cf 022f | / | Execute Access,Equal 00d0 680d |h | Jump_Zero 0xde 00d1 4802 |H | Short_Literal 0x2 00d2 e21c | | Load 0x1,0x1c 00d3 1c08 | | Execute_Immediate Run_Utility,0x8 00d4 e20d | | Load 0x1,0xd 00d5 00d9 | | Load_Top At_Offset_1 00d6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00d7 e5ff | | Load 0x2,-0x1 00d8 00d9 | | Load_Top At_Offset_1 00d9 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 00da e20d | | Load 0x1,0xd 00db 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00dc a5fe | | Store_Unchecked 0x2,-0x2 00dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00de e5fe | | Load 0x2,-0x2 00df 821e | | Call 0x1,0x1e 00e0 0039 | 9 | Store_Top Access,At_Offset_1 00e1 4802 |H | Short_Literal 0x2 00e2 e21c | | Load 0x1,0x1c 00e3 1c08 | | Execute_Immediate Run_Utility,0x8 00e4 e20d | | Load 0x1,0xd 00e5 00d9 | | Load_Top At_Offset_1 00e6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00e7 e5ff | | Load 0x2,-0x1 00e8 00d9 | | Load_Top At_Offset_1 00e9 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 00ea e20d | | Load 0x1,0xd 00eb 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00ec 00d9 | | Load_Top At_Offset_1 00ed 0227 | ' | Execute Access,All_Reference 00ee 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f5 | | .CONST 0x00f5 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0002 | | .CONST 0x0002 ; Number of locals 00f3 INIT_00f0: 00f3 e20d | | Load 0x1,0xd 00f4 0007 | | Action Break_Optional 00f5 BODY_00f0: 00f5 00db | | Load_Top At_Offset_3 00f6 e20d | | Load 0x1,0xd 00f7 022f | / | Execute Access,Equal 00f8 680a |h | Jump_Zero 0x103 00f9 4803 |H | Short_Literal 0x3 00fa e21c | | Load 0x1,0x1c 00fb 1c08 | | Execute_Immediate Run_Utility,0x8 00fc e20d | | Load 0x1,0xd 00fd 00d9 | | Load_Top At_Offset_1 00fe 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00ff e20d | | Load 0x1,0xd 0100 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0101 a5ff | | Store_Unchecked 0x2,-0x1 0102 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0103 00db | | Load_Top At_Offset_3 0104 821e | | Call 0x1,0x1e 0105 0039 | 9 | Store_Top Access,At_Offset_1 0106 4803 |H | Short_Literal 0x3 0107 e21c | | Load 0x1,0x1c 0108 1c08 | | Execute_Immediate Run_Utility,0x8 0109 e20d | | Load 0x1,0xd 010a 00d9 | | Load_Top At_Offset_1 010b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 010c e20d | | Load 0x1,0xd 010d 03b6 | | Declare_Variable Access,By_Allocation,With_Value 010e 00d9 | | Load_Top At_Offset_1 010f 0227 | ' | Execute Access,All_Reference 0110 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0111 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0112 0000 0000 | | .BLANK 0000[0x6] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011d | | .CONST 0x011d ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b e20d | | Load 0x1,0xd 011c 0007 | | Action Break_Optional 011d BODY_0118: 011d 00db | | Load_Top At_Offset_3 011e e20d | | Load 0x1,0xd 011f 022f | / | Execute Access,Equal 0120 680a |h | Jump_Zero 0x12b 0121 4804 |H | Short_Literal 0x4 0122 e21c | | Load 0x1,0x1c 0123 1c08 | | Execute_Immediate Run_Utility,0x8 0124 e20d | | Load 0x1,0xd 0125 00d9 | | Load_Top At_Offset_1 0126 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0127 e20d | | Load 0x1,0xd 0128 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0129 a5ff | | Store_Unchecked 0x2,-0x1 012a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 012b 00db | | Load_Top At_Offset_3 012c 821e | | Call 0x1,0x1e 012d 0039 | 9 | Store_Top Access,At_Offset_1 012e 4804 |H | Short_Literal 0x4 012f e21c | | Load 0x1,0x1c 0130 1c08 | | Execute_Immediate Run_Utility,0x8 0131 e20d | | Load 0x1,0xd 0132 00d9 | | Load_Top At_Offset_1 0133 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0134 e20d | | Load 0x1,0xd 0135 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0136 00d9 | | Load_Top At_Offset_1 0137 0227 | ' | Execute Access,All_Reference 0138 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0139 4501 |E | Exit_Suprogram New_Top_Offset 0x1 013a 0000 0000 | | .BLANK 0000[0x6] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0145 | E | .CONST 0x0145 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0002 | | .CONST 0x0002 ; Number of locals 0143 INIT_0140: 0143 e20d | | Load 0x1,0xd 0144 0007 | | Action Break_Optional 0145 BODY_0140: 0145 e5fd | | Load 0x2,-0x3 0146 e20d | | Load 0x1,0xd 0147 022f | / | Execute Access,Equal 0148 6810 |h | Jump_Zero 0x159 0149 4805 |H | Short_Literal 0x5 014a e21c | | Load 0x1,0x1c 014b 1c08 | | Execute_Immediate Run_Utility,0x8 014c e20d | | Load 0x1,0xd 014d 00d9 | | Load_Top At_Offset_1 014e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 014f e5ff | | Load 0x2,-0x1 0150 00d9 | | Load_Top At_Offset_1 0151 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8 0152 e5fe | | Load 0x2,-0x2 0153 00d9 | | Load_Top At_Offset_1 0154 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9 0155 e20d | | Load 0x1,0xd 0156 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0157 a5fd | | Store_Unchecked 0x2,-0x3 0158 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0159 e5fd | | Load 0x2,-0x3 015a 821e | | Call 0x1,0x1e 015b 0039 | 9 | Store_Top Access,At_Offset_1 015c 4805 |H | Short_Literal 0x5 015d e21c | | Load 0x1,0x1c 015e 1c08 | | Execute_Immediate Run_Utility,0x8 015f e20d | | Load 0x1,0xd 0160 00d9 | | Load_Top At_Offset_1 0161 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0162 e5ff | | Load 0x2,-0x1 0163 00d9 | | Load_Top At_Offset_1 0164 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8 0165 e5fe | | Load 0x2,-0x2 0166 00d9 | | Load_Top At_Offset_1 0167 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9 0168 e20d | | Load 0x1,0xd 0169 03b6 | | Declare_Variable Access,By_Allocation,With_Value 016a 00d9 | | Load_Top At_Offset_1 016b 0227 | ' | Execute Access,All_Reference 016c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 016d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 016e 0000 0000 | | .XXX[0x2] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0175 | u | .CONST 0x0175 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0002 | | .CONST 0x0002 ; Number of locals 0173 INIT_0170: 0173 e20d | | Load 0x1,0xd 0174 0007 | | Action Break_Optional 0175 BODY_0170: 0175 00db | | Load_Top At_Offset_3 0176 e20d | | Load 0x1,0xd 0177 022f | / | Execute Access,Equal 0178 680a |h | Jump_Zero 0x183 0179 4806 |H | Short_Literal 0x6 017a e21c | | Load 0x1,0x1c 017b 1c08 | | Execute_Immediate Run_Utility,0x8 017c e20d | | Load 0x1,0xd 017d 00d9 | | Load_Top At_Offset_1 017e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 017f e20d | | Load 0x1,0xd 0180 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0181 a5ff | | Store_Unchecked 0x2,-0x1 0182 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0183 00db | | Load_Top At_Offset_3 0184 821e | | Call 0x1,0x1e 0185 0039 | 9 | Store_Top Access,At_Offset_1 0186 4806 |H | Short_Literal 0x6 0187 e21c | | Load 0x1,0x1c 0188 1c08 | | Execute_Immediate Run_Utility,0x8 0189 e20d | | Load 0x1,0xd 018a 00d9 | | Load_Top At_Offset_1 018b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 018c e20d | | Load 0x1,0xd 018d 03b6 | | Declare_Variable Access,By_Allocation,With_Value 018e 00d9 | | Load_Top At_Offset_1 018f 0227 | ' | Execute Access,All_Reference 0190 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0191 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0192 0000 0000 | | .BLANK 0000[0x6] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019d | | .CONST 0x019d ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0002 | | .CONST 0x0002 ; Number of locals 019b INIT_0198: 019b e20d | | Load 0x1,0xd 019c 0007 | | Action Break_Optional 019d BODY_0198: 019d e5fe | | Load 0x2,-0x2 019e e20d | | Load 0x1,0xd 019f 022f | / | Execute Access,Equal 01a0 680d |h | Jump_Zero 0x1ae 01a1 4807 |H | Short_Literal 0x7 01a2 e21c | | Load 0x1,0x1c 01a3 1c08 | | Execute_Immediate Run_Utility,0x8 01a4 e20d | | Load 0x1,0xd 01a5 00d9 | | Load_Top At_Offset_1 01a6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01a7 e5ff | | Load 0x2,-0x1 01a8 00d9 | | Load_Top At_Offset_1 01a9 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa 01aa e20d | | Load 0x1,0xd 01ab 03b6 | | Declare_Variable Access,By_Allocation,With_Value 01ac a5fe | | Store_Unchecked 0x2,-0x2 01ad 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ae e5fe | | Load 0x2,-0x2 01af 821e | | Call 0x1,0x1e 01b0 0039 | 9 | Store_Top Access,At_Offset_1 01b1 4807 |H | Short_Literal 0x7 01b2 e21c | | Load 0x1,0x1c 01b3 1c08 | | Execute_Immediate Run_Utility,0x8 01b4 e20d | | Load 0x1,0xd 01b5 00d9 | | Load_Top At_Offset_1 01b6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01b7 e5ff | | Load 0x2,-0x1 01b8 00d9 | | Load_Top At_Offset_1 01b9 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa 01ba e20d | | Load 0x1,0xd 01bb 03b6 | | Declare_Variable Access,By_Allocation,With_Value 01bc 00d9 | | Load_Top At_Offset_1 01bd 0227 | ' | Execute Access,All_Reference 01be 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01bf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c5 | | .CONST 0x01c5 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0002 | | .CONST 0x0002 ; Number of locals 01c3 INIT_01c0: 01c3 e20d | | Load 0x1,0xd 01c4 0007 | | Action Break_Optional 01c5 BODY_01c0: 01c5 00db | | Load_Top At_Offset_3 01c6 e20d | | Load 0x1,0xd 01c7 022f | / | Execute Access,Equal 01c8 680a |h | Jump_Zero 0x1d3 01c9 4808 |H | Short_Literal 0x8 01ca e21c | | Load 0x1,0x1c 01cb 1c08 | | Execute_Immediate Run_Utility,0x8 01cc e20d | | Load 0x1,0xd 01cd 00d9 | | Load_Top At_Offset_1 01ce 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01cf e20d | | Load 0x1,0xd 01d0 03b6 | | Declare_Variable Access,By_Allocation,With_Value 01d1 a5ff | | Store_Unchecked 0x2,-0x1 01d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01d3 00db | | Load_Top At_Offset_3 01d4 821e | | Call 0x1,0x1e 01d5 0039 | 9 | Store_Top Access,At_Offset_1 01d6 4808 |H | Short_Literal 0x8 01d7 e21c | | Load 0x1,0x1c 01d8 1c08 | | Execute_Immediate Run_Utility,0x8 01d9 e20d | | Load 0x1,0xd 01da 00d9 | | Load_Top At_Offset_1 01db 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01dc e20d | | Load 0x1,0xd 01dd 03b6 | | Declare_Variable Access,By_Allocation,With_Value 01de 00d9 | | Load_Top At_Offset_1 01df 0227 | ' | Execute Access,All_Reference 01e0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e2 0000 0000 | | .BLANK 0000[0x6] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01ee | | .CONST 0x01ee ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0002 | | .CONST 0x0002 ; Number of locals 01eb INIT_01e8: 01eb e20d | | Load 0x1,0xd 01ec 00db | | Load_Top At_Offset_3 01ed 0039 | 9 | Store_Top Access,At_Offset_1 01ee BODY_01e8: 01ee 00cf | | Action Mark_Auxiliary 01ef 784e |xN | Jump 0x23e 01f0 0092 03a2 | | Action Push_String_Extended,0x3a2 ; "Instruction : Kind : " 01f2 00da | | Load_Top At_Offset_2 01f3 0227 | ' | Execute Access,All_Reference 01f4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01f5 e21b | | Load 0x1,0x1b 01f6 011c | | Execute Any,Convert_Unchecked 01f7 1c01 | | Execute_Immediate Run_Utility,0x1 01f8 01cc | | Execute Vector,Catenate 01f9 e00c | | Load 0x0,0xc 01fa 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01fb 00d9 | | Load_Top At_Offset_1 01fc 0227 | ' | Execute Access,All_Reference 01fd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01fe 4609 |F | Jump_Case 0xa 01ff 780d |x | Jump 0x20d ; case 0x0 0200 7821 |x! | Jump 0x222 ; case 0x1 0201 7825 |x% | Jump 0x227 ; case 0x2 0202 7806 |x | Jump 0x209 ; case 0x3 0203 7805 |x | Jump 0x209 ; case 0x4 0204 7827 |x' | Jump 0x22c ; case 0x5 0205 7803 |x | Jump 0x209 ; case 0x6 0206 782e |x. | Jump 0x235 ; case 0x7 0207 7801 |x | Jump 0x209 ; case 0x8 0208 7800 |x | Jump 0x209 ; case 0x9 0209 4801 |H | Short_Literal 0x1 020a e00c | | Load 0x0,0xc 020b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 020c 782c |x, | Jump 0x239 020d 00d9 | | Load_Top At_Offset_1 020e 0227 | ' | Execute Access,All_Reference 020f 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 0210 800d | | Call 0x0,0xd 0211 0092 03a3 | | Action Push_String_Extended,0x3a3 ; "instruction pour condition vrai" 0213 e00c | | Load 0x0,0xc 0214 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0215 00d9 | | Load_Top At_Offset_1 0216 0227 | ' | Execute Access,All_Reference 0217 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 0218 8217 | | Call 0x1,0x17 0219 0092 03a4 | | Action Push_String_Extended,0x3a4 ; "instruction pour condition fausse" 021b e00c | | Load 0x0,0xc 021c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 021d 00d9 | | Load_Top At_Offset_1 021e 0227 | ' | Execute Access,All_Reference 021f 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 0220 8217 | | Call 0x1,0x17 0221 7817 |x | Jump 0x239 0222 00d9 | | Load_Top At_Offset_1 0223 0227 | ' | Execute Access,All_Reference 0224 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 0225 800e | | Call 0x0,0xe 0226 7812 |x | Jump 0x239 0227 00d9 | | Load_Top At_Offset_1 0228 0227 | ' | Execute Access,All_Reference 0229 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7 022a 800f | | Call 0x0,0xf 022b 780d |x | Jump 0x239 022c 00d9 | | Load_Top At_Offset_1 022d 0227 | ' | Execute Access,All_Reference 022e 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 022f 8010 | | Call 0x0,0x10 0230 00d9 | | Load_Top At_Offset_1 0231 0227 | ' | Execute Access,All_Reference 0232 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 0233 8011 | | Call 0x0,0x11 0234 7804 |x | Jump 0x239 0235 00d9 | | Load_Top At_Offset_1 0236 0227 | ' | Execute Access,All_Reference 0237 260a |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xa 0238 8010 | | Call 0x0,0x10 0239 00d9 | | Load_Top At_Offset_1 023a 0227 | ' | Execute Access,All_Reference 023b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 023c 003a | : | Store_Top Access,At_Offset_2 023d 00c9 | | Action Pop_Auxiliary_Loop 023e 00d9 | | Load_Top At_Offset_1 023f e20d | | Load 0x1,0xd 0240 022e | . | Execute Access,Not_Equal 0241 77ae |w | Jump_Nonzero 0x1f0 0242 4502 |E | Exit_Suprogram New_Top_Offset 0x2 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 0003 | | .CONST 0x0003 ; Number of locals 024b INIT_0248: 024b e20d | | Load 0x1,0xd 024c 00db | | Load_Top At_Offset_3 024d 0039 | 9 | Store_Top Access,At_Offset_1 024e 00e1 | | Load_Encached Boolean_Cache 024f BODY_0248: 024f 00cf | | Action Mark_Auxiliary 0250 7872 |xr | Jump 0x2c3 0251 00da | | Load_Top At_Offset_2 0252 0227 | ' | Execute Access,All_Reference 0253 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0254 4609 |F | Jump_Case 0xa 0255 785a |xZ | Jump 0x2b0 ; case 0x0 0256 7809 |x | Jump 0x260 ; case 0x1 0257 780d |x | Jump 0x265 ; case 0x2 0258 7811 |x | Jump 0x26a ; case 0x3 0259 7813 |x | Jump 0x26d ; case 0x4 025a 7825 |x% | Jump 0x280 ; case 0x5 025b 7830 |x0 | Jump 0x28c ; case 0x6 025c 7832 |x2 | Jump 0x28f ; case 0x7 025d 784f |xO | Jump 0x2ad ; case 0x8 025e 785f |x_ | Jump 0x2be ; case 0x9 025f 785e |x^ | .XXX[0x1] 0260 00da | | Load_Top At_Offset_2 0261 0227 | ' | Execute Access,All_Reference 0262 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6 0263 8012 | | Call 0x0,0x12 0264 7859 |xY | Jump 0x2be 0265 00da | | Load_Top At_Offset_2 0266 0227 | ' | Execute Access,All_Reference 0267 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7 0268 8013 | | Call 0x0,0x13 0269 7854 |xT | Jump 0x2be 026a 4801 |H | Short_Literal 0x1 026b 8014 | | Call 0x0,0x14 026c 7851 |xQ | Jump 0x2be 026d 8015 | | Call 0x0,0x15 026e 00cf | | Action Mark_Auxiliary 026f 780c |x | Jump 0x27c 0270 8016 | | Call 0x0,0x16 0271 8017 | | Call 0x0,0x17 0272 6807 |h | Jump_Zero 0x27a 0273 8016 | | Call 0x0,0x16 0274 8018 | | Call 0x0,0x18 0275 8019 | | Call 0x0,0x19 0276 6803 |h | Jump_Zero 0x27a 0277 8016 | | Call 0x0,0x16 0278 8018 | | Call 0x0,0x18 0279 801a | | Call 0x0,0x1a 027a 801b | | Call 0x0,0x1b 027b 00c9 | | Action Pop_Auxiliary_Loop 027c 801c | | Call 0x0,0x1c 027d 6ff2 |o | Jump_Zero 0x270 027e 00ce | | Action Pop_Auxiliary 027f 783e |x> | Jump 0x2be 0280 00e1 | | Load_Encached Boolean_Cache 0281 00db | | Load_Top At_Offset_3 0282 0227 | ' | Execute Access,All_Reference 0283 2609 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x9 0284 801d | | Call 0x0,0x1d 0285 e402 | | Load 0x2,0x2 0286 0227 | ' | Execute Access,All_Reference 0287 2608 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x8 0288 801e | | Call 0x0,0x1e 0289 801f | | Call 0x0,0x1f 028a 005a | Z | Store_Top Discrete,At_Offset_2 028b 7832 |x2 | Jump 0x2be 028c 4801 |H | Short_Literal 0x1 028d a21d | | Store_Unchecked 0x1,0x1d 028e 782f |x/ | Jump 0x2be 028f 00da | | Load_Top At_Offset_2 0290 0227 | ' | Execute Access,All_Reference 0291 260a |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xa 0292 801e | | Call 0x0,0x1e 0293 00d8 | | Load_Top At_Offset_0 0294 00e4 | | Load_Encached Positive_Cache 0295 0260 | ` | Execute Discrete,In_Type 0296 7001 |p | Jump_Nonzero 0x298 0297 0801 | | Execute_Immediate Raise,0x1 0298 8020 | | Call 0x0,0x20 0299 8021 | ! | Call 0x0,0x21 029a 6823 |h# | Jump_Zero 0x2be 029b 00da | | Load_Top At_Offset_2 029c 0227 | ' | Execute Access,All_Reference 029d 260a |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xa 029e 801e | | Call 0x0,0x1e 029f 00d8 | | Load_Top At_Offset_0 02a0 00e4 | | Load_Encached Positive_Cache 02a1 0260 | ` | Execute Discrete,In_Type 02a2 7001 |p | Jump_Nonzero 0x2a4 02a3 0801 | | Execute_Immediate Raise,0x1 02a4 8020 | | Call 0x0,0x20 02a5 8022 | " | Call 0x0,0x22 02a6 00d8 | | Load_Top At_Offset_0 02a7 00e4 | | Load_Encached Positive_Cache 02a8 0260 | ` | Execute Discrete,In_Type 02a9 7001 |p | Jump_Nonzero 0x2ab 02aa 0801 | | Execute_Immediate Raise,0x1 02ab 8023 | # | Call 0x0,0x23 02ac 7811 |x | Jump 0x2be 02ad 480a |H | Short_Literal 0xa 02ae 8014 | | Call 0x0,0x14 02af 780e |x | Jump 0x2be 02b0 00da | | Load_Top At_Offset_2 02b1 0227 | ' | Execute Access,All_Reference 02b2 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3 02b3 8024 | $ | Call 0x0,0x24 02b4 6805 |h | Jump_Zero 0x2ba 02b5 00da | | Load_Top At_Offset_2 02b6 0227 | ' | Execute Access,All_Reference 02b7 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 02b8 8218 | | Call 0x1,0x18 02b9 7804 |x | Jump 0x2be 02ba 00da | | Load_Top At_Offset_2 02bb 0227 | ' | Execute Access,All_Reference 02bc 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 02bd 8218 | | Call 0x1,0x18 02be 00da | | Load_Top At_Offset_2 02bf 0227 | ' | Execute Access,All_Reference 02c0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 02c1 003b | ; | Store_Top Access,At_Offset_3 02c2 00c9 | | Action Pop_Auxiliary_Loop 02c3 00da | | Load_Top At_Offset_2 02c4 e20d | | Load 0x1,0xd 02c5 022e | . | Execute Access,Not_Equal 02c6 778a |w | Jump_Nonzero 0x251 02c7 4502 |E | Exit_Suprogram New_Top_Offset 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 e21d | | Load 0x1,0x1d 02cc 00ca | | Action Exit_Nullary_Function 02cd 0000 0000 | | .XXX[0x3] 02cf 0000 | | 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 4607 |F | Jump_Case 0x8 02d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 02d5 7807 |x | Jump 0x2dd ; case 0x1 02d6 780a |x | Jump 0x2e1 ; case 0x2 02d7 780e |x | Jump 0x2e6 ; case 0x3 02d8 7811 |x | Jump 0x2ea ; case 0x4 02d9 7812 |x | Jump 0x2ec ; case 0x5 02da 7813 |x | Jump 0x2ee ; case 0x6 02db 7816 |x | Jump 0x2f2 ; case 0x7 02dc 4302 |C | .XXX[0x1] 02dd 00da | | Load_Top At_Offset_2 02de 0091 0398 | | Action Push_String_Extended_Indexed,0x398 ; "SI" 02e0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02e1 00db | | Load_Top At_Offset_3 02e2 00db | | Load_Top At_Offset_3 02e3 00e0 | | Load_Encached Standard_Cache 02e4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02e6 00da | | Load_Top At_Offset_2 02e7 00e0 | | Load_Encached Standard_Cache 02e8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02e9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 02ea 00db | | Load_Top At_Offset_3 02eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02ec 00db | | Load_Top At_Offset_3 02ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02ee e21b | | Load 0x1,0x1b 02ef 00dc | | Load_Top At_Offset_4 02f0 0267 | g | Execute Discrete,Predecessor 02f1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02f2 e21b | | Load 0x1,0x1b 02f3 00dc | | Load_Top At_Offset_4 02f4 0268 | h | Execute Discrete,Successor 02f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 02f6 0000 0000 | | .XXX[0x2] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fe | | .CONST 0x02fe ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0002 | | .CONST 0x0002 ; Number of locals 02fb INIT_02f8: 02fb e20d | | Load 0x1,0xd 02fc 00db | | Load_Top At_Offset_3 02fd 0039 | 9 | Store_Top Access,At_Offset_1 02fe BODY_02f8: 02fe 00cf | | Action Mark_Auxiliary 02ff 7805 |x | Jump 0x305 0300 00d9 | | Load_Top At_Offset_1 0301 0227 | ' | Execute Access,All_Reference 0302 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0303 003a | : | Store_Top Access,At_Offset_2 0304 00c9 | | Action Pop_Auxiliary_Loop 0305 00d9 | | Load_Top At_Offset_1 0306 0227 | ' | Execute Access,All_Reference 0307 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0308 e20d | | Load 0x1,0xd 0309 022e | . | Execute Access,Not_Equal 030a 77f5 |w | Jump_Nonzero 0x300 030b 00ce | | Action Pop_Auxiliary 030c 00d8 | | Load_Top At_Offset_0 030d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 030e 0000 0000 | | .XXX[0x2] 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 0313 | | .CONST 0x0313 ; Address of begin 0311 0004 | | .CONST 0x0004 ; Address of exception handler 0312 0001 | | .CONST 0x0001 ; Number of locals 0313 BODY_0310: 0313 INIT_0310: 0313 4609 |F | Jump_Case 0xa 0314 7809 |x | Jump 0x31e ; case 0x0 0315 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0316 7838 |x8 | Jump 0x34f ; case 0x2 0317 783b |x; | Jump 0x353 ; case 0x3 0318 787e |x~ | Jump 0x397 ; case 0x4 0319 787d |x} | Jump 0x397 ; case 0x5 031a 783e |x> | Jump 0x359 ; case 0x6 031b 7855 |xU | Jump 0x371 ; case 0x7 031c 786f |xo | Jump 0x38c ; case 0x8 031d 7875 |xu | Jump 0x393 ; case 0x9 031e 00da | | Load_Top At_Offset_2 031f 016c | l | Execute Variant_Record,Is_Constrained 0320 7009 |p | Jump_Nonzero 0x32a 0321 00cf | | Action Mark_Auxiliary 0322 4809 |H | Short_Literal 0x9 0323 e5ff | | Load 0x2,-0x1 0324 1c08 | | Execute_Immediate Run_Utility,0x8 0325 00d8 | | Load_Top At_Offset_0 0326 1c00 | | Execute_Immediate Run_Utility,0x0 0327 c5ff | | Store 0x2,-0x1 0328 00ce | | Action Pop_Auxiliary 0329 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 032a 00da | | Load_Top At_Offset_2 032b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 032c 4609 |F | Jump_Case 0xa 032d 780a |x | Jump 0x338 ; case 0x0 032e 780d |x | Jump 0x33c ; case 0x1 032f 7810 |x | Jump 0x340 ; case 0x2 0330 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0331 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0332 7811 |x | Jump 0x344 ; case 0x5 0333 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 0334 7816 |x | Jump 0x34b ; case 0x7 0335 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 0336 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x9 0337 4302 |C | .XXX[0x1] 0338 e002 | | Load 0x0,0x2 0339 00db | | Load_Top At_Offset_3 033a 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3 033b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 033c e003 | | Load 0x0,0x3 033d 00db | | Load_Top At_Offset_3 033e 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6 033f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0340 e004 | | Load 0x0,0x4 0341 00db | | Load_Top At_Offset_3 0342 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7 0343 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0344 e005 | | Load 0x0,0x5 0345 00db | | Load_Top At_Offset_3 0346 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8 0347 e006 | | Load 0x0,0x6 0348 00db | | Load_Top At_Offset_3 0349 2a09 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x9 034a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 034b e005 | | Load 0x0,0x5 034c 00db | | Load_Top At_Offset_3 034d 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa 034e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 034f 4801 |H | Short_Literal 0x1 0350 480a |H | Short_Literal 0xa 0351 0311 | | Declare_Type Variant_Record,Constrained_Incomplete 0352 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0353 e5fd | | Load 0x2,-0x3 0354 00db | | Load_Top At_Offset_3 0355 1c07 | | Execute_Immediate Run_Utility,0x7 0356 e5fe | | Load 0x2,-0x2 0357 0306 | | Complete_Type Variant_Record,By_Renaming 0358 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4 0359 00db | | Load_Top At_Offset_3 035a 4609 |F | Jump_Case 0xa 035b 780b |x | Jump 0x367 ; case 0x0 035c 780c |x | Jump 0x369 ; case 0x1 035d 780d |x | Jump 0x36b ; case 0x2 035e 7806 |x | Jump 0x365 ; case 0x3 035f 7805 |x | Jump 0x365 ; case 0x4 0360 780c |x | Jump 0x36d ; case 0x5 0361 7803 |x | Jump 0x365 ; case 0x6 0362 780c |x | Jump 0x36f ; case 0x7 0363 7801 |x | Jump 0x365 ; case 0x8 0364 7800 |x | Jump 0x365 ; case 0x9 0365 48ff |H | Short_Literal 0xff 0366 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0367 4801 |H | Short_Literal 0x1 0368 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0369 4802 |H | Short_Literal 0x2 036a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 036b 4803 |H | Short_Literal 0x3 036c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 036d 4804 |H | Short_Literal 0x4 036e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 036f 4805 |H | Short_Literal 0x5 0370 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0371 00db | | Load_Top At_Offset_3 0372 e5fe | | Load 0x2,-0x2 0373 4609 |F | Jump_Case 0xa 0374 780b |x | Jump 0x380 ; case 0x0 0375 780c |x | Jump 0x382 ; case 0x1 0376 780d |x | Jump 0x384 ; case 0x2 0377 7806 |x | Jump 0x37e ; case 0x3 0378 7805 |x | Jump 0x37e ; case 0x4 0379 780c |x | Jump 0x386 ; case 0x5 037a 7803 |x | Jump 0x37e ; case 0x6 037b 780c |x | Jump 0x388 ; case 0x7 037c 7801 |x | Jump 0x37e ; case 0x8 037d 7800 |x | Jump 0x37e ; case 0x9 037e 48ff |H | Short_Literal 0xff 037f 7809 |x | Jump 0x389 0380 4801 |H | Short_Literal 0x1 0381 7807 |x | Jump 0x389 0382 4802 |H | Short_Literal 0x2 0383 7805 |x | Jump 0x389 0384 4803 |H | Short_Literal 0x3 0385 7803 |x | Jump 0x389 0386 4804 |H | Short_Literal 0x4 0387 7801 |x | Jump 0x389 0388 4805 |H | Short_Literal 0x5 0389 e5ff | | Load 0x2,-0x1 038a 031b | | Declare_Type Variant_Record,Constrained 038b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 038c 00db | | Load_Top At_Offset_3 038d e5fe | | Load 0x2,-0x2 038e e5ff | | Load 0x2,-0x1 038f 1c06 | | Execute_Immediate Run_Utility,0x6 0390 e5ff | | Load 0x2,-0x1 0391 02fc | | Declare_Variable Variant_Record,With_Constraint 0392 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0393 4809 |H | Short_Literal 0x9 0394 00db | | Load_Top At_Offset_3 0395 1c07 | | Execute_Immediate Run_Utility,0x7 0396 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0397 0869 | i | Execute_Immediate Raise,0x69 0398 ; -------------------------------------------------------------------------------------- 0398 ; STRING TABLE 0398 ; -------------------------------------------------------------------------------------- 0398 001c | | .STRTAB 0x001c->0x03a6 ; "SI" 0399 001c | | .STRTAB 0x001c->0x03a7 ; "CHANGE" 039a 0020 | | .STRTAB 0x0020->0x03aa ; "DISPLAY" 039b 0025 | % | .STRTAB 0x0025->0x03ad ; "NEXT_LINE" 039c 002c | , | .STRTAB 0x002c->0x03b2 ; "MOVE" 039d 002e | . | .STRTAB 0x002e->0x03b4 ; "PUT" 039e 002f | / | .STRTAB 0x002f->0x03b5 ; "STOP" 039f 0031 | 1 | .STRTAB 0x0031->0x03b7 ; "GO" 03a0 0031 | 1 | .STRTAB 0x0031->0x03b8 ; "ERASE" 03a1 0034 | 4 | .STRTAB 0x0034->0x03bb ; "UNKNOWN" 03a2 0039 | 9 | .STRTAB 0x0039->0x03be ; "Instruction : Kind : " 03a3 004c | L | .STRTAB 0x004c->0x03c9 ; "instruction pour condition vrai" 03a4 0069 | i | .STRTAB 0x0069->0x03d8 ; "instruction pour condition fausse" 03a5 0088 | | .STREND 0x0088->0x03e9 03a6 5349 4348 |SICH| .STRTAB_STRINGS 03e9 0000 0000 | | .BLANK 0000[0x7] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; Debug Table 03f0 ; -------------------------------------------------------------------------------------- 03f0 0004 0008 | | .DEBUG4 0x0004,0x0008,0xffe2,0x0000,0x0001,0x0011 03f6 000b 043a | :| .DBG4T 0x000b,0x043a,0x8000,0x0000 03fa 004a 044e | J N| .DBG4T 0x004a,0x044e,0x8000,0x0000 03fe 006b 045e | k ^| .DBG4T 0x006b,0x045e,0x0001,0x0000 0402 00a3 0465 | e| .DBG4T 0x00a3,0x0465,0x0001,0x0000 0406 00cb 046c | l| .DBG4T 0x00cb,0x046c,0x0001,0x0000 040a 00f3 0473 | s| .DBG4T 0x00f3,0x0473,0x0001,0x0000 040e 011b 047a | z| .DBG4T 0x011b,0x047a,0x0001,0x0000 0412 0143 0481 | C | .DBG4T 0x0143,0x0481,0x0001,0x0000 0416 0173 0488 | s | .DBG4T 0x0173,0x0488,0x0001,0x0000 041a 019b 048f | | .DBG4T 0x019b,0x048f,0x0001,0x0000 041e 01c3 0496 | | .DBG4T 0x01c3,0x0496,0x0001,0x0000 0422 01eb 049d | | .DBG4T 0x01eb,0x049d,0x0001,0x4000 0426 024b 04be | K | .DBG4T 0x024b,0x04be,0x0001,0x4000 042a 02cb 04e8 | | .DBG4T 0x02cb,0x04e8,0x0002,0x0000 042e 02d3 0000 | | .DBG4T 0x02d3,0x0000,0x0005,0x0000 0432 02fb 04eb | | .DBG4T 0x02fb,0x04eb,0x0002,0x4000 0436 0313 0000 | | .DBG4T 0x0313,0x0000,0x0005,0x0000 043a ; -------------------------------------------------------------------------------------- 043a ; Debug chain 043a ; -------------------------------------------------------------------------------------- 043a 0012 0000 | | .DBGLEN 0x0012,0x0000 043c 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0026,0x002b,0x0042,0x0046 044e ; -------------------------------------------------------------------------------------- 044e ; Debug chain 044e ; -------------------------------------------------------------------------------------- 044e 000e 0000 | | .DBGLEN 0x000e,0x0000 0450 004a 004c | J L| .DBGLNO 0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064 045e ; -------------------------------------------------------------------------------------- 045e ; Debug chain 045e ; -------------------------------------------------------------------------------------- 045e 0001 0004 | | .DBGLEN 0x0001,0x0004 0460 006b 006d | k m| .DBGLNO 0x006b,0x006d,0x0071,0x0084,0x0087 0465 ; -------------------------------------------------------------------------------------- 0465 ; Debug chain 0465 ; -------------------------------------------------------------------------------------- 0465 0001 0004 | | .DBGLEN 0x0001,0x0004 0467 00a3 00a5 | | .DBGLNO 0x00a3,0x00a5,0x00a9,0x00b6,0x00b9 046c ; -------------------------------------------------------------------------------------- 046c ; Debug chain 046c ; -------------------------------------------------------------------------------------- 046c 0001 0004 | | .DBGLEN 0x0001,0x0004 046e 00cb 00cd | | .DBGLNO 0x00cb,0x00cd,0x00d1,0x00de,0x00e1 0473 ; -------------------------------------------------------------------------------------- 0473 ; Debug chain 0473 ; -------------------------------------------------------------------------------------- 0473 0001 0004 | | .DBGLEN 0x0001,0x0004 0475 00f3 00f5 | | .DBGLNO 0x00f3,0x00f5,0x00f9,0x0103,0x0106 047a ; -------------------------------------------------------------------------------------- 047a ; Debug chain 047a ; -------------------------------------------------------------------------------------- 047a 0001 0004 | | .DBGLEN 0x0001,0x0004 047c 011b 011d | | .DBGLNO 0x011b,0x011d,0x0121,0x012b,0x012e 0481 ; -------------------------------------------------------------------------------------- 0481 ; Debug chain 0481 ; -------------------------------------------------------------------------------------- 0481 0001 0004 | | .DBGLEN 0x0001,0x0004 0483 0143 0145 | C E| .DBGLNO 0x0143,0x0145,0x0149,0x0159,0x015c 0488 ; -------------------------------------------------------------------------------------- 0488 ; Debug chain 0488 ; -------------------------------------------------------------------------------------- 0488 0001 0004 | | .DBGLEN 0x0001,0x0004 048a 0173 0175 | s u| .DBGLNO 0x0173,0x0175,0x0179,0x0183,0x0186 048f ; -------------------------------------------------------------------------------------- 048f ; Debug chain 048f ; -------------------------------------------------------------------------------------- 048f 0001 0004 | | .DBGLEN 0x0001,0x0004 0491 019b 019d | | .DBGLNO 0x019b,0x019d,0x01a1,0x01ae,0x01b1 0496 ; -------------------------------------------------------------------------------------- 0496 ; Debug chain 0496 ; -------------------------------------------------------------------------------------- 0496 0001 0004 | | .DBGLEN 0x0001,0x0004 0498 01c3 01c5 | | .DBGLNO 0x01c3,0x01c5,0x01c9,0x01d3,0x01d6 049d ; -------------------------------------------------------------------------------------- 049d ; Debug chain 049d ; -------------------------------------------------------------------------------------- 049d 0001 000f | | .DBGLEN 0x0001,0x000f 049f 01eb 01f0 | | .DBGLNO 0x01eb,0x01f0,0x01fb,0x0209,0x020d,0x0211,0x0215,0x0219,0x021d,0x0222,0x0227,0x022c,0x0230,0x0235,0x0239,0x023e 04af 0002 0003 | | .XXX[0xf] 04b1 000e 0004 | | 04b3 0005 0006 | | 04b5 0007 0008 | | 04b7 0009 000a | | 04b9 000b 000c | | 04bb 000d 000f | | 04bd 0001 | | 04be ; -------------------------------------------------------------------------------------- 04be ; Debug chain 04be ; -------------------------------------------------------------------------------------- 04be 0002 0013 | | .DBGLEN 0x0002,0x0013 04c0 024b 024e | K N| .DBGLNO 0x024b,0x024e,0x0251,0x0260,0x0265,0x026a,0x026d,0x0270,0x0277,0x027a,0x027c,0x0280,0x028c,0x028f,0x029b,0x02ad,0x02b0,0x02b5,0x02ba,0x02be,0x02c3 04d5 0002 0006 | | .XXX[0x13] 04d7 0007 0008 | | 04d9 0009 000b | | 04db 000c 000d | | 04dd 000a 000e | | 04df 000f 0010 | | 04e1 0011 0012 | | 04e3 0003 0004 | | 04e5 0005 0014 | | 04e7 0001 | | 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; Debug chain 04e8 ; -------------------------------------------------------------------------------------- 04e8 0000 0001 | | .DBGLEN 0x0000,0x0001 04ea 02cb | | .DBGLNO 0x02cb 04eb ; -------------------------------------------------------------------------------------- 04eb ; Debug chain 04eb ; -------------------------------------------------------------------------------------- 04eb 0001 0003 | | .DBGLEN 0x0001,0x0003 04ed 02fb 0300 | | .DBGLNO 0x02fb,0x0300,0x0305,0x030c 04f1 0002 0001 | | .XXX[0x3] 04f3 0003 | | 04f4 0000 0000 | | .BLANK 0000[0x10c]