|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_664cf7
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0318 | | .CONST 0x0318 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0108 | | .CONST 0x0108 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 4800 |H | Short_Literal 0x0 000f 4803 |H | Short_Literal 0x3 0010 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call 0012 03fd | | Declare_Type Discrete,Defined 0013 4800 |H | Short_Literal 0x0 0014 0093 026b | k| push_full_address INIT_0268 0016 02a0 | | Declare_Subprogram Null_Subprogram 0017 038e | | Declare_Type Package,Defined 0018 0387 | | Declare_Variable Package 0019 e002 | | Load 0x0,0x2 001a e003 | | Load 0x0,0x3 001b a004 | | Store_Unchecked 0x0,0x4 001c a005 | | Store_Unchecked 0x0,0x5 001d a006 | | Store_Unchecked 0x0,0x6 001e a007 | | Store_Unchecked 0x0,0x7 001f a008 | | Store_Unchecked 0x0,0x8 0020 a009 | | Store_Unchecked 0x0,0x9 0021 a00a | | Store_Unchecked 0x0,0xa 0022 a00b | | Store_Unchecked 0x0,0xb 0023 a00c | | Store_Unchecked 0x0,0xc 0024 a00d | | Store_Unchecked 0x0,0xd 0025 480c |H | Short_Literal 0xc 0026 e20f | | Load 0x1,0xf 0027 020e | | Execute Module,Augment_Imports 0028 00d8 | | Load_Top At_Offset_0 0029 020f | | Execute Module,Activate 002a 4800 |H | Short_Literal 0x0 002b 0093 01cb | | push_full_address INIT_01c8 002d 02a0 | | Declare_Subprogram Null_Subprogram 002e 038e | | Declare_Type Package,Defined 002f 0387 | | Declare_Variable Package 0030 e002 | | Load 0x0,0x2 0031 e003 | | Load 0x0,0x3 0032 a00e | | Store_Unchecked 0x0,0xe 0033 a00f | | Store_Unchecked 0x0,0xf 0034 a010 | | Store_Unchecked 0x0,0x10 0035 a011 | | Store_Unchecked 0x0,0x11 0036 a012 | | Store_Unchecked 0x0,0x12 0037 a007 | | Store_Unchecked 0x0,0x7 0038 a013 | | Store_Unchecked 0x0,0x13 0039 a014 | | Store_Unchecked 0x0,0x14 003a a015 | | Store_Unchecked 0x0,0x15 003b a005 | | Store_Unchecked 0x0,0x5 003c a006 | | Store_Unchecked 0x0,0x6 003d a016 | | Store_Unchecked 0x0,0x16 003e a017 | | Store_Unchecked 0x0,0x17 003f e018 | | Load 0x0,0x18 0040 a019 | | Store_Unchecked 0x0,0x19 0041 a008 | | Store_Unchecked 0x0,0x8 0042 a009 | | Store_Unchecked 0x0,0x9 0043 a00a | | Store_Unchecked 0x0,0xa 0044 a01a | | Store_Unchecked 0x0,0x1a 0045 a00c | | Store_Unchecked 0x0,0xc 0046 a00d | | Store_Unchecked 0x0,0xd 0047 4817 |H | Short_Literal 0x17 0048 e210 | | Load 0x1,0x10 0049 020e | | Execute Module,Augment_Imports 004a 00d8 | | Load_Top At_Offset_0 004b 020f | | Execute Module,Activate 004c 4800 |H | Short_Literal 0x0 004d 0093 014b | K| push_full_address INIT_0148 004f 02a0 | | Declare_Subprogram Null_Subprogram 0050 038e | | Declare_Type Package,Defined 0051 0387 | | Declare_Variable Package 0052 e002 | | Load 0x0,0x2 0053 e003 | | Load 0x0,0x3 0054 a00e | | Store_Unchecked 0x0,0xe 0055 a005 | | Store_Unchecked 0x0,0x5 0056 a006 | | Store_Unchecked 0x0,0x6 0057 a007 | | Store_Unchecked 0x0,0x7 0058 a013 | | Store_Unchecked 0x0,0x13 0059 a014 | | Store_Unchecked 0x0,0x14 005a a01b | | Store_Unchecked 0x0,0x1b 005b a012 | | Store_Unchecked 0x0,0x12 005c a017 | | Store_Unchecked 0x0,0x17 005d a01c | | Store_Unchecked 0x0,0x1c 005e a008 | | Store_Unchecked 0x0,0x8 005f a009 | | Store_Unchecked 0x0,0x9 0060 a00a | | Store_Unchecked 0x0,0xa 0061 e01d | | Load 0x0,0x1d 0062 a00b | | Store_Unchecked 0x0,0xb 0063 a01e | | Store_Unchecked 0x0,0x1e 0064 a00d | | Store_Unchecked 0x0,0xd 0065 a01f | | Store_Unchecked 0x0,0x1f 0066 4814 |H | Short_Literal 0x14 0067 e211 | | Load 0x1,0x11 0068 020e | | Execute Module,Augment_Imports 0069 00d8 | | Load_Top At_Offset_0 006a 020f | | Execute Module,Activate 006b 0093 0000 | | push_full_address 0x0 006d 60ae |` | Indirect_Literal Discrete,0x11c,{0x80000000, 0x00010000} 006e 0273 | s | Execute Discrete,Plus 006f e020 | | Load 0x0,0x20 0070 0273 | s | Execute Discrete,Plus 0071 e021 | ! | Load 0x0,0x21 0072 0273 | s | Execute Discrete,Plus 0073 4800 |H | Short_Literal 0x0 0074 e20e | | Load 0x1,0xe 0075 4803 |H | Short_Literal 0x3 0076 4800 |H | Short_Literal 0x0 0077 0092 02b5 | | Action Push_String_Extended,0x2b5 ; "STOP_CONDITION" 0079 e20f | | Load 0x1,0xf 007a 180d | | Execute Package,Field_Execute,Field_Number 0xd 007b e20f | | Load 0x1,0xf 007c 190e | | Execute Package,Field_Reference,Field_Number 0xe 007d 4801 |H | Short_Literal 0x1 007e 0092 02b6 | | Action Push_String_Extended,0x2b6 ; "RESOLVE_SUB_GOALS" 0080 e210 | | Load 0x1,0x10 0081 180d | | Execute Package,Field_Execute,Field_Number 0xd 0082 e210 | | Load 0x1,0x10 0083 190e | | Execute Package,Field_Reference,Field_Number 0xe 0084 4802 |H | Short_Literal 0x2 0085 0092 02b7 | | Action Push_String_Extended,0x2b7 ; "MAKE_SUB_GOALS" 0087 e211 | | Load 0x1,0x11 0088 180d | | Execute Package,Field_Execute,Field_Number 0xd 0089 e211 | | Load 0x1,0x11 008a 190e | | Execute Package,Field_Reference,Field_Number 0xe 008b 4803 |H | Short_Literal 0x3 008c 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "NO_MORE" 008e 00c4 | | Action Make_Default 008f a022 | " | Store_Unchecked 0x0,0x22 0090 4803 |H | Short_Literal 0x3 0091 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "NO_MORE" 0093 00c4 | | Action Make_Default 0094 a022 | " | Store_Unchecked 0x0,0x22 0095 4803 |H | Short_Literal 0x3 0096 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "NO_MORE" 0098 00c4 | | Action Make_Default 0099 a022 | " | Store_Unchecked 0x0,0x22 009a 4803 |H | Short_Literal 0x3 009b 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "NO_MORE" 009d 00c4 | | Action Make_Default 009e a022 | " | Store_Unchecked 0x0,0x22 009f 4803 |H | Short_Literal 0x3 00a0 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "NO_MORE" 00a2 00c4 | | Action Make_Default 00a3 a022 | " | Store_Unchecked 0x0,0x22 00a4 4803 |H | Short_Literal 0x3 00a5 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "NO_MORE" 00a7 00c4 | | Action Make_Default 00a8 a022 | " | Store_Unchecked 0x0,0x22 00a9 4803 |H | Short_Literal 0x3 00aa 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "NO_MORE" 00ac 00c4 | | Action Make_Default 00ad a022 | " | Store_Unchecked 0x0,0x22 00ae 4803 |H | Short_Literal 0x3 00af 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "NO_MORE" 00b1 00c4 | | Action Make_Default 00b2 a022 | " | Store_Unchecked 0x0,0x22 00b3 4803 |H | Short_Literal 0x3 00b4 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "NO_MORE" 00b6 00c4 | | Action Make_Default 00b7 a022 | " | Store_Unchecked 0x0,0x22 00b8 4803 |H | Short_Literal 0x3 00b9 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "NO_MORE" 00bb 00c4 | | Action Make_Default 00bc a022 | " | Store_Unchecked 0x0,0x22 00bd 4803 |H | Short_Literal 0x3 00be 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "NO_MORE" 00c0 00c4 | | Action Make_Default 00c1 a022 | " | Store_Unchecked 0x0,0x22 00c2 4803 |H | Short_Literal 0x3 00c3 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "NO_MORE" 00c5 00c4 | | Action Make_Default 00c6 a022 | " | Store_Unchecked 0x0,0x22 00c7 4803 |H | Short_Literal 0x3 00c8 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "NO_MORE" 00ca 00c4 | | Action Make_Default 00cb a022 | " | Store_Unchecked 0x0,0x22 00cc 4803 |H | Short_Literal 0x3 00cd 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "NO_MORE" 00cf 00c4 | | Action Make_Default 00d0 a022 | " | Store_Unchecked 0x0,0x22 00d1 4803 |H | Short_Literal 0x3 00d2 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "NO_MORE" 00d4 00c4 | | Action Make_Default 00d5 a022 | " | Store_Unchecked 0x0,0x22 00d6 4803 |H | Short_Literal 0x3 00d7 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "NO_MORE" 00d9 00c4 | | Action Make_Default 00da a022 | " | Store_Unchecked 0x0,0x22 00db 4803 |H | Short_Literal 0x3 00dc 0092 02b8 | | Action Push_String_Extended,0x2b8 ; "NO_MORE" 00de 00c4 | | Action Make_Default 00df a022 | " | Store_Unchecked 0x0,0x22 00e0 e023 | # | Load 0x0,0x23 00e1 c224 | $ | Store 0x1,0x24 00e2 e023 | # | Load 0x0,0x23 00e3 c228 | ( | Store 0x1,0x28 00e4 e023 | # | Load 0x0,0x23 00e5 c22c | , | Store 0x1,0x2c 00e6 e023 | # | Load 0x0,0x23 00e7 c230 | 0 | Store 0x1,0x30 00e8 e023 | # | Load 0x0,0x23 00e9 c234 | 4 | Store 0x1,0x34 00ea e023 | # | Load 0x0,0x23 00eb c238 | 8 | Store 0x1,0x38 00ec e023 | # | Load 0x0,0x23 00ed c23c | < | Store 0x1,0x3c 00ee e023 | # | Load 0x0,0x23 00ef c240 | @ | Store 0x1,0x40 00f0 e023 | # | Load 0x0,0x23 00f1 c244 | D | Store 0x1,0x44 00f2 e023 | # | Load 0x0,0x23 00f3 c248 | H | Store 0x1,0x48 00f4 e023 | # | Load 0x0,0x23 00f5 c24c | L | Store 0x1,0x4c 00f6 e023 | # | Load 0x0,0x23 00f7 c250 | P | Store 0x1,0x50 00f8 e023 | # | Load 0x0,0x23 00f9 c254 | T | Store 0x1,0x54 00fa e023 | # | Load 0x0,0x23 00fb c258 | X | Store 0x1,0x58 00fc e023 | # | Load 0x0,0x23 00fd c25c | \ | Store 0x1,0x5c 00fe e023 | # | Load 0x0,0x23 00ff c260 | ` | Store 0x1,0x60 0100 e023 | # | Load 0x0,0x23 0101 c264 | d | Store 0x1,0x64 0102 e024 | $ | Load 0x0,0x24 0103 0387 | | Declare_Variable Package 0104 00d8 | | Load_Top At_Offset_0 0105 020f | | Execute Module,Activate 0106 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0107 00c7 | | Action Elaborate_Subprogram 0108 BODY_0008: 0108 00bc | | Action Signal_Activated 0109 00bb | | Action Signal_Completion 010a 0000 0000 | | .BLANK 0000[0x6] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00db | | Load_Top At_Offset_3 0114 00db | | Load_Top At_Offset_3 0115 e025 | % | Load 0x0,0x25 0116 e212 | | Load 0x1,0x12 0117 0096 | | Execute Package,Entry 0118 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0119 0000 0000 | | .XXX[0x3] 011b 0000 | | 011c 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 4607 |F | Jump_Case 0x8 0124 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0125 7807 |x | Jump 0x12d ; case 0x1 0126 780a |x | Jump 0x131 ; case 0x2 0127 780e |x | Jump 0x136 ; case 0x3 0128 7811 |x | Jump 0x13a ; case 0x4 0129 7812 |x | Jump 0x13c ; case 0x5 012a 7813 |x | Jump 0x13e ; case 0x6 012b 7816 |x | Jump 0x142 ; case 0x7 012c 4302 |C | .XXX[0x1] 012d 00da | | Load_Top At_Offset_2 012e 0091 02b5 | | Action Push_String_Extended_Indexed,0x2b5 ; "STOP_CONDITION" 0130 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0131 00db | | Load_Top At_Offset_3 0132 00db | | Load_Top At_Offset_3 0133 00e0 | | Load_Encached Standard_Cache 0134 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0135 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0136 00da | | Load_Top At_Offset_2 0137 00e0 | | Load_Encached Standard_Cache 0138 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0139 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 013a 00db | | Load_Top At_Offset_3 013b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013c 00db | | Load_Top At_Offset_3 013d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013e e20e | | Load 0x1,0xe 013f 00dc | | Load_Top At_Offset_4 0140 0267 | g | Execute Discrete,Predecessor 0141 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0142 e20e | | Load 0x1,0xe 0143 00dc | | Load_Top At_Offset_4 0144 0268 | h | Execute Discrete,Successor 0145 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0146 0000 0000 | | .XXX[0x2] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0154 | T | .CONST 0x0154 ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 000e | | .CONST 0x000e ; Number of locals 014b INIT_0148: 014b 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 014d 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 014f 00bf | | Action Accept_Activation 0150 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0151 00c7 | | Action Elaborate_Subprogram 0152 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0153 00c7 | | Action Elaborate_Subprogram 0154 BODY_0148: 0154 00bc | | Action Signal_Activated 0155 00bb | | Action Signal_Completion 0156 0000 0000 | | .XXX[0x2] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 4801 |H | Short_Literal 0x1 015c 4802 |H | Short_Literal 0x2 015d e001 | | Load 0x0,0x1 015e 035b | [ | Declare_Type Array,Constrained 015f 0337 | 7 | Declare_Variable Array 0160 e002 | | Load 0x0,0x2 0161 0337 | 7 | Declare_Variable Array 0162 480d |H | Short_Literal 0xd 0163 8003 | | Call 0x0,0x3 0164 4800 |H | Short_Literal 0x0 0165 00da | | Load_Top At_Offset_2 0166 01d6 | | Execute Vector,Field_Write 0167 8004 | | Call 0x0,0x4 0168 4801 |H | Short_Literal 0x1 0169 00da | | Load_Top At_Offset_2 016a 01d6 | | Execute Vector,Field_Write 016b 8005 | | Call 0x0,0x5 016c 4802 |H | Short_Literal 0x2 016d 00da | | Load_Top At_Offset_2 016e 01d6 | | Execute Vector,Field_Write 016f e002 | | Load 0x0,0x2 0170 01c3 | | Execute Vector,Check_In_Type 0171 8006 | | Call 0x0,0x6 0172 4801 |H | Short_Literal 0x1 0173 00da | | Load_Top At_Offset_2 0174 01d6 | | Execute Vector,Field_Write 0175 e002 | | Load 0x0,0x2 0176 0337 | 7 | Declare_Variable Array 0177 4801 |H | Short_Literal 0x1 0178 8007 | | Call 0x0,0x7 0179 480d |H | Short_Literal 0xd 017a 8008 | | Call 0x0,0x8 017b 8009 | | Call 0x0,0x9 017c 800a | | Call 0x0,0xa 017d 4800 |H | Short_Literal 0x0 017e 00da | | Load_Top At_Offset_2 017f 01d6 | | Execute Vector,Field_Write 0180 8005 | | Call 0x0,0x5 0181 4801 |H | Short_Literal 0x1 0182 00da | | Load_Top At_Offset_2 0183 01d6 | | Execute Vector,Field_Write 0184 8005 | | Call 0x0,0x5 0185 4802 |H | Short_Literal 0x2 0186 00da | | Load_Top At_Offset_2 0187 01d6 | | Execute Vector,Field_Write 0188 e002 | | Load 0x0,0x2 0189 01c3 | | Execute Vector,Check_In_Type 018a 800b | | Call 0x0,0xb 018b 4802 |H | Short_Literal 0x2 018c 00da | | Load_Top At_Offset_2 018d 01d6 | | Execute Vector,Field_Write 018e e001 | | Load 0x0,0x1 018f 01c6 | | Execute Vector,Convert_To_Formal 0190 00ca | | Action Exit_Nullary_Function 0191 0000 0000 | | .BLANK 0000[0x7] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 01a4 | | .CONST 0x01a4 ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0003 | | .CONST 0x0003 ; Number of locals 019b INIT_0198: 019b 4801 |H | Short_Literal 0x1 019c 00db | | Load_Top At_Offset_3 019d 01d5 | | Execute Vector,Field_Reference 019e 0007 | | Action Break_Optional 019f 4800 |H | Short_Literal 0x0 01a0 00d9 | | Load_Top At_Offset_1 01a1 800c | | Call 0x0,0xc 01a2 00e2 | | Load_Encached Integer_Cache 01a3 03f1 | | Declare_Variable Discrete,With_Value 01a4 BODY_0198: 01a4 4801 |H | Short_Literal 0x1 01a5 800d | | Call 0x0,0xd 01a6 800e | | Call 0x0,0xe 01a7 800d | | Call 0x0,0xd 01a8 0092 02b9 | | Action Push_String_Extended,0x2b9 ; "---- Make sub-goals rule -----" 01aa 800f | | Call 0x0,0xf 01ab 4801 |H | Short_Literal 0x1 01ac 800d | | Call 0x0,0xd 01ad 800e | | Call 0x0,0xe 01ae 00d8 | | Load_Top At_Offset_0 01af 0aff | | Execute_Immediate Plus,-0x1 01b0 0059 | Y | Store_Top Discrete,At_Offset_1 01b1 e010 | | Load 0x0,0x10 01b2 0337 | 7 | Declare_Variable Array 01b3 00d9 | | Load_Top At_Offset_1 01b4 8011 | | Call 0x0,0x11 01b5 4800 |H | Short_Literal 0x0 01b6 00da | | Load_Top At_Offset_2 01b7 01d6 | | Execute Vector,Field_Write 01b8 8012 | | Call 0x0,0x12 01b9 4801 |H | Short_Literal 0x1 01ba 00da | | Load_Top At_Offset_2 01bb 01d6 | | Execute Vector,Field_Write 01bc 0092 02ba | | Action Push_String_Extended,0x2ba ; " " 01be 8013 | | Call 0x0,0x13 01bf 4802 |H | Short_Literal 0x2 01c0 00da | | Load_Top At_Offset_2 01c1 01d6 | | Execute Vector,Field_Write 01c2 e010 | | Load 0x0,0x10 01c3 01c3 | | Execute Vector,Check_In_Type 01c4 8014 | | Call 0x0,0x14 01c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c6 0000 0000 | | .XXX[0x2] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01d4 | | .CONST 0x01d4 ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 000e | | .CONST 0x000e ; Number of locals 01cb INIT_01c8: 01cb 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 01cd 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 01cf 00bf | | Action Accept_Activation 01d0 1d0d | | Execute_Immediate Reference_Lex_1,0xd 01d1 00c7 | | Action Elaborate_Subprogram 01d2 1d0e | | Execute_Immediate Reference_Lex_1,0xe 01d3 00c7 | | Action Elaborate_Subprogram 01d4 BODY_01c8: 01d4 00bc | | Action Signal_Activated 01d5 00bb | | Action Signal_Completion 01d6 0000 0000 | | .XXX[0x2] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 4801 |H | Short_Literal 0x1 01dc 4803 |H | Short_Literal 0x3 01dd e001 | | Load 0x0,0x1 01de 035b | [ | Declare_Type Array,Constrained 01df 0337 | 7 | Declare_Variable Array 01e0 e002 | | Load 0x0,0x2 01e1 0337 | 7 | Declare_Variable Array 01e2 480d |H | Short_Literal 0xd 01e3 8003 | | Call 0x0,0x3 01e4 4800 |H | Short_Literal 0x0 01e5 00da | | Load_Top At_Offset_2 01e6 01d6 | | Execute Vector,Field_Write 01e7 8004 | | Call 0x0,0x4 01e8 4801 |H | Short_Literal 0x1 01e9 00da | | Load_Top At_Offset_2 01ea 01d6 | | Execute Vector,Field_Write 01eb 0092 02bb | | Action Push_String_Extended,0x2bb ; "world" 01ed 8005 | | Call 0x0,0x5 01ee 0092 02bc | | Action Push_String_Extended,0x2bc ; "Hello " 01f0 8005 | | Call 0x0,0x5 01f1 8006 | | Call 0x0,0x6 01f2 8007 | | Call 0x0,0x7 01f3 4802 |H | Short_Literal 0x2 01f4 00da | | Load_Top At_Offset_2 01f5 01d6 | | Execute Vector,Field_Write 01f6 e002 | | Load 0x0,0x2 01f7 01c3 | | Execute Vector,Check_In_Type 01f8 8008 | | Call 0x0,0x8 01f9 4801 |H | Short_Literal 0x1 01fa 00da | | Load_Top At_Offset_2 01fb 01d6 | | Execute Vector,Field_Write 01fc e002 | | Load 0x0,0x2 01fd 0337 | 7 | Declare_Variable Array 01fe 4801 |H | Short_Literal 0x1 01ff 8009 | | Call 0x0,0x9 0200 480d |H | Short_Literal 0xd 0201 800a | | Call 0x0,0xa 0202 800b | | Call 0x0,0xb 0203 8007 | | Call 0x0,0x7 0204 4800 |H | Short_Literal 0x0 0205 00da | | Load_Top At_Offset_2 0206 01d6 | | Execute Vector,Field_Write 0207 800c | | Call 0x0,0xc 0208 4801 |H | Short_Literal 0x1 0209 00da | | Load_Top At_Offset_2 020a 01d6 | | Execute Vector,Field_Write 020b 800d | | Call 0x0,0xd 020c 4802 |H | Short_Literal 0x2 020d 00da | | Load_Top At_Offset_2 020e 01d6 | | Execute Vector,Field_Write 020f e002 | | Load 0x0,0x2 0210 01c3 | | Execute Vector,Check_In_Type 0211 8008 | | Call 0x0,0x8 0212 4802 |H | Short_Literal 0x2 0213 00da | | Load_Top At_Offset_2 0214 01d6 | | Execute Vector,Field_Write 0215 e002 | | Load 0x0,0x2 0216 0337 | 7 | Declare_Variable Array 0217 480d |H | Short_Literal 0xd 0218 800e | | Call 0x0,0xe 0219 4800 |H | Short_Literal 0x0 021a 00da | | Load_Top At_Offset_2 021b 01d6 | | Execute Vector,Field_Write 021c 800c | | Call 0x0,0xc 021d 4801 |H | Short_Literal 0x1 021e 00da | | Load_Top At_Offset_2 021f 01d6 | | Execute Vector,Field_Write 0220 800d | | Call 0x0,0xd 0221 4802 |H | Short_Literal 0x2 0222 00da | | Load_Top At_Offset_2 0223 01d6 | | Execute Vector,Field_Write 0224 e002 | | Load 0x0,0x2 0225 01c3 | | Execute Vector,Check_In_Type 0226 800f | | Call 0x0,0xf 0227 4803 |H | Short_Literal 0x3 0228 00da | | Load_Top At_Offset_2 0229 01d6 | | Execute Vector,Field_Write 022a e001 | | Load 0x0,0x1 022b 01c6 | | Execute Vector,Convert_To_Formal 022c 00ca | | Action Exit_Nullary_Function 022d 0000 0000 | | .XXX[0x3] 022f 0000 | | 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0249 | I | .CONST 0x0249 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0005 | | .CONST 0x0005 ; Number of locals 0233 INIT_0230: 0233 4801 |H | Short_Literal 0x1 0234 00db | | Load_Top At_Offset_3 0235 01d5 | | Execute Vector,Field_Reference 0236 0007 | | Action Break_Optional 0237 4802 |H | Short_Literal 0x2 0238 e5ff | | Load 0x2,-0x1 0239 01d5 | | Execute Vector,Field_Reference 023a 0007 | | Action Break_Optional 023b e010 | | Load 0x0,0x10 023c 02ff | | Declare_Variable Variant_Record 023d 4800 |H | Short_Literal 0x0 023e 00da | | Load_Top At_Offset_2 023f 8011 | | Call 0x0,0x11 0240 00d9 | | Load_Top At_Offset_1 0241 016d | m | Execute Variant_Record,Structure_Write 0242 e010 | | Load 0x0,0x10 0243 02ff | | Declare_Variable Variant_Record 0244 4801 |H | Short_Literal 0x1 0245 e402 | | Load 0x2,0x2 0246 8011 | | Call 0x0,0x11 0247 00d9 | | Load_Top At_Offset_1 0248 016d | m | Execute Variant_Record,Structure_Write 0249 BODY_0230: 0249 4801 |H | Short_Literal 0x1 024a 8012 | | Call 0x0,0x12 024b 8013 | | Call 0x0,0x13 024c 8012 | | Call 0x0,0x12 024d 0092 02bd | | Action Push_String_Extended,0x2bd ; "---- Resolve sub-goals rule -----" 024f 8014 | | Call 0x0,0x14 0250 4801 |H | Short_Literal 0x1 0251 8012 | | Call 0x0,0x12 0252 8013 | | Call 0x0,0x13 0253 00d8 | | Load_Top At_Offset_0 0254 00da | | Load_Top At_Offset_2 0255 8015 | | Call 0x0,0x15 0256 4801 |H | Short_Literal 0x1 0257 e403 | | Load 0x2,0x3 0258 8016 | | Call 0x0,0x16 0259 0092 02be | | Action Push_String_Extended,0x2be ; "Hello world" 025b 8017 | | Call 0x0,0x17 025c 4802 |H | Short_Literal 0x2 025d e403 | | Load 0x2,0x3 025e 8016 | | Call 0x0,0x16 025f 4801 |H | Short_Literal 0x1 0260 8012 | | Call 0x0,0x12 0261 8013 | | Call 0x0,0x13 0262 4801 |H | Short_Literal 0x1 0263 8012 | | Call 0x0,0x12 0264 8013 | | Call 0x0,0x13 0265 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0266 0000 0000 | | .XXX[0x2] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 0274 | t | .CONST 0x0274 ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 000e | | .CONST 0x000e ; Number of locals 026b INIT_0268: 026b 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated 026d 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated 026f 00bf | | Action Accept_Activation 0270 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0271 00c7 | | Action Elaborate_Subprogram 0272 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0273 00c7 | | Action Elaborate_Subprogram 0274 BODY_0268: 0274 00bc | | Action Signal_Activated 0275 00bb | | Action Signal_Completion 0276 0000 0000 | | .XXX[0x2] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 4801 |H | Short_Literal 0x1 027c 4801 |H | Short_Literal 0x1 027d e001 | | Load 0x0,0x1 027e 035b | [ | Declare_Type Array,Constrained 027f 0337 | 7 | Declare_Variable Array 0280 e002 | | Load 0x0,0x2 0281 0337 | 7 | Declare_Variable Array 0282 4801 |H | Short_Literal 0x1 0283 8003 | | Call 0x0,0x3 0284 4800 |H | Short_Literal 0x0 0285 00da | | Load_Top At_Offset_2 0286 01d6 | | Execute Vector,Field_Write 0287 8004 | | Call 0x0,0x4 0288 4801 |H | Short_Literal 0x1 0289 00da | | Load_Top At_Offset_2 028a 01d6 | | Execute Vector,Field_Write 028b 8005 | | Call 0x0,0x5 028c 4802 |H | Short_Literal 0x2 028d 00da | | Load_Top At_Offset_2 028e 01d6 | | Execute Vector,Field_Write 028f e002 | | Load 0x0,0x2 0290 01c3 | | Execute Vector,Check_In_Type 0291 8006 | | Call 0x0,0x6 0292 4801 |H | Short_Literal 0x1 0293 00da | | Load_Top At_Offset_2 0294 01d6 | | Execute Vector,Field_Write 0295 e001 | | Load 0x0,0x1 0296 01c6 | | Execute Vector,Convert_To_Formal 0297 00ca | | Action Exit_Nullary_Function 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029f | | .CONST 0x029f ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0002 | | .CONST 0x0002 ; Number of locals 029b INIT_0298: 029b 4801 |H | Short_Literal 0x1 029c 00db | | Load_Top At_Offset_3 029d 01d5 | | Execute Vector,Field_Reference 029e 0007 | | Action Break_Optional 029f BODY_0298: 029f 4801 |H | Short_Literal 0x1 02a0 8007 | | Call 0x0,0x7 02a1 8008 | | Call 0x0,0x8 02a2 8007 | | Call 0x0,0x7 02a3 0092 02bf | | Action Push_String_Extended,0x2bf ; "---- Stop condition rule -----" 02a5 8009 | | Call 0x0,0x9 02a6 4801 |H | Short_Literal 0x1 02a7 800a | | Call 0x0,0xa 02a8 4801 |H | Short_Literal 0x1 02a9 00da | | Load_Top At_Offset_2 02aa 800b | | Call 0x0,0xb 02ab 0092 02be | | Action Push_String_Extended,0x2be ; "Hello world" 02ad 800c | | Call 0x0,0xc 02ae 4802 |H | Short_Literal 0x2 02af 00da | | Load_Top At_Offset_2 02b0 800b | | Call 0x0,0xb 02b1 4801 |H | Short_Literal 0x1 02b2 8007 | | Call 0x0,0x7 02b3 8008 | | Call 0x0,0x8 02b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02b5 ; -------------------------------------------------------------------------------------- 02b5 ; STRING TABLE 02b5 ; -------------------------------------------------------------------------------------- 02b5 0018 | | .STRTAB 0x0018->0x02c1 ; "STOP_CONDITION" 02b6 0024 | $ | .STRTAB 0x0024->0x02c8 ; "RESOLVE_SUB_GOALS" 02b7 0033 | 3 | .STRTAB 0x0033->0x02d0 ; "MAKE_SUB_GOALS" 02b8 003f | ? | .STRTAB 0x003f->0x02d7 ; "NO_MORE" 02b9 0044 | D | .STRTAB 0x0044->0x02db ; "---- Make sub-goals rule -----" 02ba 0060 | ` | .STRTAB 0x0060->0x02ea ; " " 02bb 005f | _ | .STRTAB 0x005f->0x02ea ; "world" 02bc 0062 | b | .STRTAB 0x0062->0x02ed ; "Hello " 02bd 0066 | f | .STRTAB 0x0066->0x02f0 ; "---- Resolve sub-goals rule -----" 02be 0085 | | .STRTAB 0x0085->0x0300 ; "Hello world" 02bf 008e | | .STRTAB 0x008e->0x0306 ; "---- Stop condition rule -----" 02c0 00aa | | .STREND 0x00aa->0x0315 02c1 5354 4f50 |STOP| .STRTAB_STRINGS 0315 0000 0000 | | .XXX[0x3] 0317 0000 | | 0318 ; -------------------------------------------------------------------------------------- 0318 ; Debug Table 0318 ; -------------------------------------------------------------------------------------- 0318 0004 0006 | | .DEBUG4 0x0004,0x0006,0xac8d,0x0000,0x0001,0x0010 031e 000b 035e | ^| .DBG4T 0x000b,0x035e,0x8000,0x0000 0322 000e 0361 | a| .DBG4T 0x000e,0x0361,0x8000,0x0000 0326 0113 036c | l| .DBG4T 0x0113,0x036c,0x0001,0x0000 032a 0123 0000 | # | .DBG4T 0x0123,0x0000,0x0005,0x0000 032e 014b 036f | K o| .DBG4T 0x014b,0x036f,0x0000,0x0000 0332 0150 0373 | P s| .DBG4T 0x0150,0x0373,0x0000,0x0000 0336 015b 0377 | [ w| .DBG4T 0x015b,0x0377,0x0002,0x0000 033a 019b 037a | z| .DBG4T 0x019b,0x037a,0x0001,0x0000 033e 01cb 0383 | | .DBG4T 0x01cb,0x0383,0x0000,0x0000 0342 01d0 0387 | | .DBG4T 0x01d0,0x0387,0x0000,0x0000 0346 01db 038b | | .DBG4T 0x01db,0x038b,0x0002,0x0000 034a 0233 038e | 3 | .DBG4T 0x0233,0x038e,0x0001,0x0000 034e 026b 039b | k | .DBG4T 0x026b,0x039b,0x0000,0x0000 0352 0270 039f | p | .DBG4T 0x0270,0x039f,0x0000,0x0000 0356 027b 03a3 | { | .DBG4T 0x027b,0x03a3,0x0002,0x0000 035a 029b 03a6 | | .DBG4T 0x029b,0x03a6,0x0001,0x0000 035e ; -------------------------------------------------------------------------------------- 035e ; Debug chain 035e ; -------------------------------------------------------------------------------------- 035e 0001 0000 | | .DBGLEN 0x0001,0x0000 0360 000b | | .DBGLNO 0x000b 0361 ; -------------------------------------------------------------------------------------- 0361 ; Debug chain 0361 ; -------------------------------------------------------------------------------------- 0361 0009 0000 | | .DBGLEN 0x0009,0x0000 0363 000e 0013 | | .DBGLNO 0x000e,0x0013,0x0019,0x002a,0x0030,0x004c,0x0052,0x006b,0x0106 036c ; -------------------------------------------------------------------------------------- 036c ; Debug chain 036c ; -------------------------------------------------------------------------------------- 036c 0000 0001 | | .DBGLEN 0x0000,0x0001 036e 0113 | | .DBGLNO 0x0113 036f ; -------------------------------------------------------------------------------------- 036f ; Debug chain 036f ; -------------------------------------------------------------------------------------- 036f 0002 0000 | | .DBGLEN 0x0002,0x0000 0371 014b 014d | K M| .DBGLNO 0x014b,0x014d 0373 ; -------------------------------------------------------------------------------------- 0373 ; Debug chain 0373 ; -------------------------------------------------------------------------------------- 0373 0002 0000 | | .DBGLEN 0x0002,0x0000 0375 0150 0152 | P R| .DBGLNO 0x0150,0x0152 0377 ; -------------------------------------------------------------------------------------- 0377 ; Debug chain 0377 ; -------------------------------------------------------------------------------------- 0377 0000 0001 | | .DBGLEN 0x0000,0x0001 0379 015b | [ | .DBGLNO 0x015b 037a ; -------------------------------------------------------------------------------------- 037a ; Debug chain 037a ; -------------------------------------------------------------------------------------- 037a 0002 0005 | | .DBGLEN 0x0002,0x0005 037c 019b 019f | | .DBGLNO 0x019b,0x019f,0x01a4,0x01a7,0x01ab,0x01ae,0x01b1 0383 ; -------------------------------------------------------------------------------------- 0383 ; Debug chain 0383 ; -------------------------------------------------------------------------------------- 0383 0002 0000 | | .DBGLEN 0x0002,0x0000 0385 01cb 01cd | | .DBGLNO 0x01cb,0x01cd 0387 ; -------------------------------------------------------------------------------------- 0387 ; Debug chain 0387 ; -------------------------------------------------------------------------------------- 0387 0002 0000 | | .DBGLEN 0x0002,0x0000 0389 01d0 01d2 | | .DBGLNO 0x01d0,0x01d2 038b ; -------------------------------------------------------------------------------------- 038b ; Debug chain 038b ; -------------------------------------------------------------------------------------- 038b 0000 0001 | | .DBGLEN 0x0000,0x0001 038d 01db | | .DBGLNO 0x01db 038e ; -------------------------------------------------------------------------------------- 038e ; Debug chain 038e ; -------------------------------------------------------------------------------------- 038e 0004 0007 | | .DBGLEN 0x0004,0x0007 0390 0233 0237 | 3 7| .DBGLNO 0x0233,0x0237,0x023b,0x0242,0x0249,0x024c,0x0250,0x0253,0x0259,0x025f,0x0262 039b ; -------------------------------------------------------------------------------------- 039b ; Debug chain 039b ; -------------------------------------------------------------------------------------- 039b 0002 0000 | | .DBGLEN 0x0002,0x0000 039d 026b 026d | k m| .DBGLNO 0x026b,0x026d 039f ; -------------------------------------------------------------------------------------- 039f ; Debug chain 039f ; -------------------------------------------------------------------------------------- 039f 0002 0000 | | .DBGLEN 0x0002,0x0000 03a1 0270 0272 | p r| .DBGLNO 0x0270,0x0272 03a3 ; -------------------------------------------------------------------------------------- 03a3 ; Debug chain 03a3 ; -------------------------------------------------------------------------------------- 03a3 0000 0001 | | .DBGLEN 0x0000,0x0001 03a5 027b | { | .DBGLNO 0x027b 03a6 ; -------------------------------------------------------------------------------------- 03a6 ; Debug chain 03a6 ; -------------------------------------------------------------------------------------- 03a6 0001 0005 | | .DBGLEN 0x0001,0x0005 03a8 029b 029f | | .DBGLNO 0x029b,0x029f,0x02a2,0x02a6,0x02ab,0x02b1 03ae 0000 0000 | | .BLANK 0000[0x52]