|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0320 | | .CONST 0x0320 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 002b | + | .CONST 0x002b ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0009 | | .CONST 0x0009 ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c 0007 | | Action Break_Optional 001d 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 001f 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 0021 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call 0023 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 0025 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0027 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call 0029 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 002b BODY_0018: 002b e402 | | Load 0x2,0x2 002c 8408 | | Call 0x2,0x8 002d c402 | | Store 0x2,0x2 002e 4800 |H | Short_Literal 0x0 002f 00e5 | | Load_Encached Long_Integer_Cache 0030 00d9 | | Load_Top At_Offset_1 0031 0267 | g | Execute Discrete,Predecessor 0032 e003 | | Load 0x0,0x3 0033 0334 | 4 | Declare_Variable Array,With_Constraint 0034 4800 |H | Short_Literal 0x0 0035 00e5 | | Load_Encached Long_Integer_Cache 0036 00d9 | | Load_Top At_Offset_1 0037 0267 | g | Execute Discrete,Predecessor 0038 e003 | | Load 0x0,0x3 0039 0334 | 4 | Declare_Variable Array,With_Constraint 003a e402 | | Load 0x2,0x2 003b 8409 | | Call 0x2,0x9 003c 4800 |H | Short_Literal 0x0 003d 4804 |H | Short_Literal 0x4 003e e003 | | Load 0x0,0x3 003f 0334 | 4 | Declare_Variable Array,With_Constraint 0040 5047 |PG | Indirect_Literal Any,0x88,{0x782e412e, 0x7a000000} 0041 4800 |H | Short_Literal 0x0 0042 4804 |H | Short_Literal 0x4 0043 e003 | | Load 0x0,0x3 0044 0334 | 4 | Declare_Variable Array,With_Constraint 0045 5046 |PF | Indirect_Literal Any,0x8c,{0x752e762e, 0x77000000} 0046 e402 | | Load 0x2,0x2 0047 8409 | | Call 0x2,0x9 0048 4800 |H | Short_Literal 0x0 0049 4804 |H | Short_Literal 0x4 004a e003 | | Load 0x0,0x3 004b 0334 | 4 | Declare_Variable Array,With_Constraint 004c 5043 |PC | Indirect_Literal Any,0x90,{0x782e792e, 0x7a000000} 004d 4800 |H | Short_Literal 0x0 004e 4804 |H | Short_Literal 0x4 004f e003 | | Load 0x0,0x3 0050 0334 | 4 | Declare_Variable Array,With_Constraint 0051 5042 |PB | Indirect_Literal Any,0x94,{0x752e612e, 0x77000000} 0052 e402 | | Load 0x2,0x2 0053 8409 | | Call 0x2,0x9 0054 4800 |H | Short_Literal 0x0 0055 4800 |H | Short_Literal 0x0 0056 e003 | | Load 0x0,0x3 0057 0334 | 4 | Declare_Variable Array,With_Constraint 0058 503f |P? | Indirect_Literal Any,0x98,{0x41000000, 0x00000000} 0059 4800 |H | Short_Literal 0x0 005a 4800 |H | Short_Literal 0x0 005b e003 | | Load 0x0,0x3 005c 0334 | 4 | Declare_Variable Array,With_Constraint 005d 503e |P> | Indirect_Literal Any,0x9c,{0x61000000, 0x00000000} 005e e402 | | Load 0x2,0x2 005f 8409 | | Call 0x2,0x9 0060 4800 |H | Short_Literal 0x0 0061 4802 |H | Short_Literal 0x2 0062 e003 | | Load 0x0,0x3 0063 0334 | 4 | Declare_Variable Array,With_Constraint 0064 503b |P; | Indirect_Literal Any,0xa0,{0x412e4100, 0x00000000} 0065 4800 |H | Short_Literal 0x0 0066 4802 |H | Short_Literal 0x2 0067 e003 | | Load 0x0,0x3 0068 0334 | 4 | Declare_Variable Array,With_Constraint 0069 503a |P: | Indirect_Literal Any,0xa4,{0x612e6100, 0x00000000} 006a e402 | | Load 0x2,0x2 006b 8409 | | Call 0x2,0x9 006c 4800 |H | Short_Literal 0x0 006d 4809 |H | Short_Literal 0x9 006e e003 | | Load 0x0,0x3 006f 0334 | 4 | Declare_Variable Array,With_Constraint 0070 5037 |P7 | Indirect_Literal Any,0xa8,{0x412e4465, 0x7461696c} 0071 4800 |H | Short_Literal 0x0 0072 4809 |H | Short_Literal 0x9 0073 e003 | | Load 0x0,0x3 0074 0334 | 4 | Declare_Variable Array,With_Constraint 0075 503a |P: | Indirect_Literal Any,0xb0,{0x612e6465, 0x7461696c} 0076 e402 | | Load 0x2,0x2 0077 8409 | | Call 0x2,0x9 0078 4800 |H | Short_Literal 0x0 0079 4807 |H | Short_Literal 0x7 007a e003 | | Load 0x0,0x3 007b 0334 | 4 | Declare_Variable Array,With_Constraint 007c 503b |P; | Indirect_Literal Any,0xb8,{0x456d7074, 0x795f4442} 007d 4800 |H | Short_Literal 0x0 007e 4807 |H | Short_Literal 0x7 007f e003 | | Load 0x0,0x3 0080 0334 | 4 | Declare_Variable Array,With_Constraint 0081 503a |P: | Indirect_Literal Any,0xbc,{0x656d7074, 0x795f6462} 0082 e002 | | Load 0x0,0x2 0083 8409 | | Call 0x2,0x9 0084 e402 | | Load 0x2,0x2 0085 8004 | | Call 0x0,0x4 0086 c402 | | Store 0x2,0x2 0087 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0088 782e 412e |x.A.| .LITERAL {0x782e412e, 0x7a000000} 008c 752e 762e |u.v.| .LITERAL {0x752e762e, 0x77000000} 0090 782e 792e |x.y.| .LITERAL {0x782e792e, 0x7a000000} 0094 752e 612e |u.a.| .LITERAL {0x752e612e, 0x77000000} 0098 4100 0000 |A | .LITERAL {0x41000000, 0x00000000} 009c 6100 0000 |a | .LITERAL {0x61000000, 0x00000000} 00a0 412e 4100 |A.A | .LITERAL {0x412e4100, 0x00000000} 00a4 612e 6100 |a.a | .LITERAL {0x612e6100, 0x00000000} 00a8 412e 4465 |A.De| .LITERAL {0x412e4465, 0x7461696c} 00ac 6564 0000 |ed | .XXX[0x4] 00ae 0000 0000 | | 00b0 612e 6465 |a.de| .LITERAL {0x612e6465, 0x7461696c} 00b4 6564 0000 |ed | .XXX[0x4] 00b6 0000 0000 | | 00b8 456d 7074 |Empt| .LITERAL {0x456d7074, 0x795f4442} 00bc 656d 7074 |empt| .LITERAL {0x656d7074, 0x795f6462} 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 00da | | Load_Top At_Offset_2 00c4 7005 |p | Jump_Nonzero 0xca 00c5 00db | | Load_Top At_Offset_3 00c6 8005 | | Call 0x0,0x5 00c7 0092 02f4 | | Action Push_String_Extended,0x2f4 ; "Test failed." 00c9 8006 | | Call 0x0,0x6 00ca 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00cb 0000 0000 | | .BLANK 0000[0x5] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 0092 02f5 | | Action Push_String_Extended,0x2f5 ; "RM error" 00d5 00db | | Load_Top At_Offset_3 00d6 0f00 | | Execute_Immediate Equal,0x0 00d7 8403 | | Call 0x2,0x3 00d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d9 0000 0000 | | .BLANK 0000[0x7] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e5 | | .CONST 0x00e5 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0002 | | .CONST 0x0002 ; Number of locals 00e3 INIT_00e0: 00e3 e007 | | Load 0x0,0x7 00e4 0007 | | Action Break_Optional 00e5 BODY_00e0: 00e5 4822 |H" | Short_Literal 0x22 00e6 0092 02f6 | | Action Push_String_Extended,0x2f6 ; "Adding \x22" 00e8 e7ff | | Load 0x3,-0x1 00e9 8008 | | Call 0x0,0x8 00ea 01cc | | Execute Vector,Catenate 00eb 01cb | | Execute Vector,Append 00ec 8005 | | Call 0x0,0x5 00ed e007 | | Load 0x0,0x7 00ee e7fe | | Load 0x3,-0x2 00ef e7ff | | Load 0x3,-0x1 00f0 8009 | | Call 0x0,0x9 00f1 c7fe | | Store 0x3,-0x2 00f2 0059 | Y | Store_Top Discrete,At_Offset_1 00f3 00d8 | | Load_Top At_Offset_0 00f4 8404 | | Call 0x2,0x4 00f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f6 0000 0000 | | .XXX[0x2] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0104 | | .CONST 0x0104 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0002 | | .CONST 0x0002 ; Number of locals 00fb INIT_00f8: 00fb 4801 |H | Short_Literal 0x1 00fc 00db | | Load_Top At_Offset_3 00fd 01db | | Execute Vector,Length 00fe 0a02 | | Execute_Immediate Plus,0x2 00ff e00a | | Load 0x0,0xa 0100 035b | [ | Declare_Type Array,Constrained 0101 0337 | 7 | Declare_Variable Array 0102 00d8 | | Load_Top At_Offset_0 0103 1c00 | | Execute_Immediate Run_Utility,0x0 0104 BODY_00f8: 0104 00d8 | | Load_Top At_Offset_0 0105 e7ff | | Load 0x3,-0x1 0106 e00b | | Load 0x0,0xb 0107 e00c | | Load 0x0,0xc 0108 e00d | | Load 0x0,0xd 0109 a00e | | Store_Unchecked 0x0,0xe 010a a00f | | Store_Unchecked 0x0,0xf 010b 8010 | | Call 0x0,0x10 010c 00d1 | | Pop_Control Pop_Count_1 010d 00d8 | | Load_Top At_Offset_0 010e e00a | | Load 0x0,0xa 010f 01c6 | | Execute Vector,Convert_To_Formal 0110 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0111 0000 0000 | | .BLANK 0000[0x7] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0124 | $ | .CONST 0x0124 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b 4801 |H | Short_Literal 0x1 011c 00db | | Load_Top At_Offset_3 011d 01db | | Execute Vector,Length 011e 0a02 | | Execute_Immediate Plus,0x2 011f e011 | | Load 0x0,0x11 0120 035b | [ | Declare_Type Array,Constrained 0121 0337 | 7 | Declare_Variable Array 0122 00d8 | | Load_Top At_Offset_0 0123 1c00 | | Execute_Immediate Run_Utility,0x0 0124 BODY_0118: 0124 00d8 | | Load_Top At_Offset_0 0125 e7ff | | Load 0x3,-0x1 0126 e012 | | Load 0x0,0x12 0127 e013 | | Load 0x0,0x13 0128 e014 | | Load 0x0,0x14 0129 a015 | | Store_Unchecked 0x0,0x15 012a a016 | | Store_Unchecked 0x0,0x16 012b 8010 | | Call 0x0,0x10 012c 00d1 | | Pop_Control Pop_Count_1 012d 00d8 | | Load_Top At_Offset_0 012e e011 | | Load 0x0,0x11 012f 01c6 | | Execute Vector,Convert_To_Formal 0130 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0131 0000 0000 | | .BLANK 0000[0x7] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 0092 02f7 | | Action Push_String_Extended,0x2f7 ; "Creating a sample database" 013d 8017 | | Call 0x0,0x17 013e 00da | | Load_Top At_Offset_2 013f 4800 |H | Short_Literal 0x0 0140 481a |H | Short_Literal 0x1a 0141 e003 | | Load 0x0,0x3 0142 0334 | 4 | Declare_Variable Array,With_Constraint 0143 5038 |P8 | Indirect_Literal Any,0x17c,{0x2a416e79, 0x7468696e} 0144 8405 | | Call 0x2,0x5 0145 003b | ; | Store_Top Access,At_Offset_3 0146 00da | | Load_Top At_Offset_2 0147 4800 |H | Short_Literal 0x0 0148 481a |H | Short_Literal 0x1a 0149 e003 | | Load 0x0,0x3 014a 0334 | 4 | Declare_Variable Array,With_Constraint 014b 5040 |P@ | Indirect_Literal Any,0x18c,{0x2a616e79, 0x7468696e} 014c 8405 | | Call 0x2,0x5 014d 003b | ; | Store_Top Access,At_Offset_3 014e 00da | | Load_Top At_Offset_2 014f 4800 |H | Short_Literal 0x0 0150 4821 |H! | Short_Literal 0x21 0151 e003 | | Load 0x0,0x3 0152 0334 | 4 | Declare_Variable Array,With_Constraint 0153 5048 |PH | Indirect_Literal Any,0x19c,{0x412e4465, 0x7461696c} 0154 8405 | | Call 0x2,0x5 0155 003b | ; | Store_Top Access,At_Offset_3 0156 00da | | Load_Top At_Offset_2 0157 4800 |H | Short_Literal 0x0 0158 4820 |H | Short_Literal 0x20 0159 e003 | | Load 0x0,0x3 015a 0334 | 4 | Declare_Variable Array,With_Constraint 015b 5054 |PT | Indirect_Literal Any,0x1b0,{0x612e6465, 0x7461696c} 015c 8405 | | Call 0x2,0x5 015d 003b | ; | Store_Top Access,At_Offset_3 015e 00da | | Load_Top At_Offset_2 015f 4800 |H | Short_Literal 0x0 0160 4819 |H | Short_Literal 0x19 0161 e003 | | Load 0x0,0x3 0162 0334 | 4 | Declare_Variable Array,With_Constraint 0163 5060 |P` | Indirect_Literal Any,0x1c4,{0x2a412a43, 0x6c617373} 0164 8405 | | Call 0x2,0x5 0165 003b | ; | Store_Top Access,At_Offset_3 0166 00da | | Load_Top At_Offset_2 0167 4800 |H | Short_Literal 0x0 0168 4818 |H | Short_Literal 0x18 0169 e003 | | Load 0x0,0x3 016a 0334 | 4 | Declare_Variable Array,With_Constraint 016b 5068 |Ph | Indirect_Literal Any,0x1d4,{0x2a612a6e, 0x616d653a} 016c 8405 | | Call 0x2,0x5 016d 003b | ; | Store_Top Access,At_Offset_3 016e 00da | | Load_Top At_Offset_2 016f 4800 |H | Short_Literal 0x0 0170 4819 |H | Short_Literal 0x19 0171 e003 | | Load 0x0,0x3 0172 0334 | 4 | Declare_Variable Array,With_Constraint 0173 5070 |Pp | Indirect_Literal Any,0x1e4,{0x2e612a43, 0x6c617373} 0174 8405 | | Call 0x2,0x5 0175 003b | ; | Store_Top Access,At_Offset_3 0176 4801 |H | Short_Literal 0x1 0177 8018 | | Call 0x0,0x18 0178 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0179 0000 0000 | | .XXX[0x3] 017b 0000 | | 017c 2a41 6e79 |*Any| .LITERAL {0x2a416e79, 0x7468696e} 0180 673a |g: | .XXX[0x1] 0181 2020 2020 | | .BLANK 2020[0x4] 0185 2a41 6e79 |*Any| .XXX[0x7] 0187 7468 696e |thin| 0189 6700 0000 |g | 018b 0000 | | 018c 2a61 6e79 |*any| .LITERAL {0x2a616e79, 0x7468696e} 0190 673a |g: | .XXX[0x1] 0191 2020 2020 | | .BLANK 2020[0x4] 0195 2a61 6e79 |*any| .XXX[0x7] 0197 7468 696e |thin| 0199 6700 0000 |g | 019b 0000 | | 019c 412e 4465 |A.De| .LITERAL {0x412e4465, 0x7461696c} 01a0 6564 2e43 |ed.C| .XXX[0x10] 01a2 6c61 7373 |lass| 01a4 3a20 412e |: A.| 01a6 4465 7461 |Deta| 01a8 696c 6564 |iled| 01aa 2e43 6c61 |.Cla| 01ac 7373 0000 |ss | 01ae 0000 0000 | | 01b0 612e 6465 |a.de| .LITERAL {0x612e6465, 0x7461696c} 01b4 6564 2e6e |ed.n| .XXX[0x10] 01b6 616d 653a |ame:| 01b8 2020 612e | a.| 01ba 6465 7461 |deta| 01bc 696c 6564 |iled| 01be 2e6e 616d |.nam| 01c0 6500 0000 |e | 01c2 0000 0000 | | 01c4 2a41 2a43 |*A*C| .LITERAL {0x2a412a43, 0x6c617373} 01c8 3a20 |: | .XXX[0x1] 01c9 2020 2020 | | .BLANK 2020[0x4] 01cd 2a41 2a43 |*A*C| .XXX[0x7] 01cf 6c61 7373 |lass| 01d1 0000 0000 | | 01d3 0000 | | 01d4 2a61 2a6e |*a*n| .LITERAL {0x2a612a6e, 0x616d653a} 01d8 2020 2020 | | .BLANK 2020[0x5] 01dd 2a61 2a6e |*a*n| .XXX[0x7] 01df 616d 6500 |ame | 01e1 0000 0000 | | 01e3 0000 | | 01e4 2e61 2a43 |.a*C| .LITERAL {0x2e612a43, 0x6c617373} 01e8 3a20 |: | .XXX[0x1] 01e9 2020 2020 | | .BLANK 2020[0x4] 01ed 2e61 2a43 |.a*C| .XXX[0x4] 01ef 6c61 7373 |lass| 01f1 0000 0000 | | .BLANK 0000[0x7] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 0203 | | .CONST 0x0203 ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0003 | | .CONST 0x0003 ; Number of locals 01fb INIT_01f8: 01fb e7fd | | Load 0x3,-0x3 01fc 8407 | | Call 0x2,0x7 01fd e7fe | | Load 0x3,-0x2 01fe 8406 | | Call 0x2,0x6 01ff e7ff | | Load 0x3,-0x1 0200 8019 | | Call 0x0,0x19 0201 029f 0293 | | Declare_Subprogram INIT_0290,For_Call 0203 BODY_01f8: 0203 4800 |H | Short_Literal 0x0 0204 4806 |H | Short_Literal 0x6 0205 e003 | | Load 0x0,0x3 0206 0334 | 4 | Declare_Variable Array,With_Constraint 0207 504c |PL | Indirect_Literal Any,0x254,{0x50617468, 0x20282200} 0208 e7fe | | Load 0x3,-0x2 0209 01cc | | Execute Vector,Catenate 020a 4800 |H | Short_Literal 0x0 020b 4803 |H | Short_Literal 0x3 020c e003 | | Load 0x0,0x3 020d 0334 | 4 | Declare_Variable Array,With_Constraint 020e 5049 |PI | Indirect_Literal Any,0x258,{0x222c2022, 0x00000000} 020f 01cc | | Execute Vector,Catenate 0210 e7fd | | Load 0x3,-0x3 0211 01cc | | Execute Vector,Catenate 0212 4800 |H | Short_Literal 0x0 0213 4801 |H | Short_Literal 0x1 0214 e003 | | Load 0x0,0x3 0215 0334 | 4 | Declare_Variable Array,With_Constraint 0216 5045 |PE | Indirect_Literal Any,0x25c,{0x22290000, 0x00000000} 0217 01cc | | Execute Vector,Catenate 0218 8008 | | Call 0x0,0x8 0219 8017 | | Call 0x0,0x17 021a 4800 |H | Short_Literal 0x0 021b 4803 |H | Short_Literal 0x3 021c e003 | | Load 0x0,0x3 021d 0334 | 4 | Declare_Variable Array,With_Constraint 021e 5041 |PA | Indirect_Literal Any,0x260,{0x4a756e6b, 0x00000000} 021f 4800 |H | Short_Literal 0x0 0220 4803 |H | Short_Literal 0x3 0221 e003 | | Load 0x0,0x3 0222 0334 | 4 | Declare_Variable Array,With_Constraint 0223 5040 |P@ | Indirect_Literal Any,0x264,{0x6e616d65, 0x00000000} 0224 8603 | | Call 0x3,0x3 0225 4800 |H | Short_Literal 0x0 0226 4804 |H | Short_Literal 0x4 0227 e003 | | Load 0x0,0x3 0228 0334 | 4 | Declare_Variable Array,With_Constraint 0229 503e |P> | Indirect_Literal Any,0x268,{0x436c6173, 0x73000000} 022a 4800 |H | Short_Literal 0x0 022b 4803 |H | Short_Literal 0x3 022c e003 | | Load 0x0,0x3 022d 0334 | 4 | Declare_Variable Array,With_Constraint 022e 503d |P= | Indirect_Literal Any,0x26c,{0x6a756e6b, 0x00000000} 022f 8603 | | Call 0x3,0x3 0230 4800 |H | Short_Literal 0x0 0231 4804 |H | Short_Literal 0x4 0232 e003 | | Load 0x0,0x3 0233 0334 | 4 | Declare_Variable Array,With_Constraint 0234 503b |P; | Indirect_Literal Any,0x270,{0x436c6173, 0x73000000} 0235 4800 |H | Short_Literal 0x0 0236 4803 |H | Short_Literal 0x3 0237 e003 | | Load 0x0,0x3 0238 0334 | 4 | Declare_Variable Array,With_Constraint 0239 503a |P: | Indirect_Literal Any,0x274,{0x6e616d65, 0x00000000} 023a 8603 | | Call 0x3,0x3 023b 4800 |H | Short_Literal 0x0 023c 4807 |H | Short_Literal 0x7 023d e003 | | Load 0x0,0x3 023e 0334 | 4 | Declare_Variable Array,With_Constraint 023f 5038 |P8 | Indirect_Literal Any,0x278,{0x416e7974, 0x68696e67} 0240 4800 |H | Short_Literal 0x0 0241 4808 |H | Short_Literal 0x8 0242 e003 | | Load 0x0,0x3 0243 0334 | 4 | Declare_Variable Array,With_Constraint 0244 5037 |P7 | Indirect_Literal Any,0x27c,{0x736f6d65, 0x7468696e} 0245 8603 | | Call 0x3,0x3 0246 4800 |H | Short_Literal 0x0 0247 4803 |H | Short_Literal 0x3 0248 e003 | | Load 0x0,0x3 0249 0334 | 4 | Declare_Variable Array,With_Constraint 024a 5039 |P9 | Indirect_Literal Any,0x284,{0x4a756e6b, 0x00000000} 024b 4800 |H | Short_Literal 0x0 024c 4803 |H | Short_Literal 0x3 024d e003 | | Load 0x0,0x3 024e 0334 | 4 | Declare_Variable Array,With_Constraint 024f 5038 |P8 | Indirect_Literal Any,0x288,{0x6a756e6b, 0x00000000} 0250 8603 | | Call 0x3,0x3 0251 4801 |H | Short_Literal 0x1 0252 8018 | | Call 0x0,0x18 0253 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0254 5061 7468 |Path| .LITERAL {0x50617468, 0x20282200} 0258 222c 2022 |", "| .LITERAL {0x222c2022, 0x00000000} 025c 2229 0000 |") | .LITERAL {0x22290000, 0x00000000} 0260 4a75 6e6b |Junk| .LITERAL {0x4a756e6b, 0x00000000} 0264 6e61 6d65 |name| .LITERAL {0x6e616d65, 0x00000000} 0268 436c 6173 |Clas| .LITERAL {0x436c6173, 0x73000000} 026c 6a75 6e6b |junk| .LITERAL {0x6a756e6b, 0x00000000} 0270 436c 6173 |Clas| .LITERAL {0x436c6173, 0x73000000} 0274 6e61 6d65 |name| .LITERAL {0x6e616d65, 0x00000000} 0278 416e 7974 |Anyt| .LITERAL {0x416e7974, 0x68696e67} 027c 736f 6d65 |some| .LITERAL {0x736f6d65, 0x7468696e} 0280 6700 0000 |g | .XXX[0x4] 0282 0000 0000 | | 0284 4a75 6e6b |Junk| .LITERAL {0x4a756e6b, 0x00000000} 0288 6a75 6e6b |junk| .LITERAL {0x6a756e6b, 0x00000000} 028c 0000 0000 | | .BLANK 0000[0x4] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 02a3 | | .CONST 0x02a3 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0005 | | .CONST 0x0005 ; Number of locals 0293 INIT_0290: 0293 e01a | | Load 0x0,0x1a 0294 0322 | " | Declare_Variable Record 0295 00d8 | | Load_Top At_Offset_0 0296 1c00 | | Execute_Immediate Run_Utility,0x0 0297 e01b | | Load 0x0,0x1b 0298 02ff | | Declare_Variable Variant_Record 0299 00d8 | | Load_Top At_Offset_0 029a 1c00 | | Execute_Immediate Run_Utility,0x0 029b e01a | | Load 0x0,0x1a 029c 0322 | " | Declare_Variable Record 029d 00d8 | | Load_Top At_Offset_0 029e 1c00 | | Execute_Immediate Run_Utility,0x0 029f e01b | | Load 0x0,0x1b 02a0 02ff | | Declare_Variable Variant_Record 02a1 00d8 | | Load_Top At_Offset_0 02a2 1c00 | | Execute_Immediate Run_Utility,0x0 02a3 BODY_0290: 02a3 4800 |H | Short_Literal 0x0 02a4 4801 |H | Short_Literal 0x1 02a5 e003 | | Load 0x0,0x3 02a6 0334 | 4 | Declare_Variable Array,With_Constraint 02a7 5040 |P@ | Indirect_Literal Any,0x2e8,{0x28220000, 0x00000000} 02a8 e9ff | | Load 0x4,-0x1 02a9 01cc | | Execute Vector,Catenate 02aa 4800 |H | Short_Literal 0x0 02ab 4803 |H | Short_Literal 0x3 02ac e003 | | Load 0x0,0x3 02ad 0334 | 4 | Declare_Variable Array,With_Constraint 02ae 503d |P= | Indirect_Literal Any,0x2ec,{0x222c2022, 0x00000000} 02af 01cc | | Execute Vector,Catenate 02b0 e9fe | | Load 0x4,-0x2 02b1 01cc | | Execute Vector,Catenate 02b2 4800 |H | Short_Literal 0x0 02b3 4805 |H | Short_Literal 0x5 02b4 e003 | | Load 0x0,0x3 02b5 0334 | 4 | Declare_Variable Array,With_Constraint 02b6 5039 |P9 | Indirect_Literal Any,0x2f0,{0x2229203d, 0x3e200000} 02b7 01cc | | Execute Vector,Catenate 02b8 801c | | Call 0x0,0x1c 02b9 00da | | Load_Top At_Offset_2 02ba e802 | | Load 0x4,0x2 02bb 4801 |H | Short_Literal 0x1 02bc e9fe | | Load 0x4,-0x2 02bd 801d | | Call 0x0,0x1d 02be 4801 |H | Short_Literal 0x1 02bf e9ff | | Load 0x4,-0x1 02c0 801e | | Call 0x0,0x1e 02c1 e602 | | Load 0x3,0x2 02c2 801f | | Call 0x0,0x1f 02c3 00d2 | | Pop_Control Pop_Count_2 02c4 00da | | Load_Top At_Offset_2 02c5 8020 | | Call 0x0,0x20 02c6 8005 | | Call 0x0,0x5 02c7 00d8 | | Load_Top At_Offset_0 02c8 00da | | Load_Top At_Offset_2 02c9 482e |H. | Short_Literal 0x2e 02ca e7fd | | Load 0x3,-0x3 02cb 01cb | | Execute Vector,Append 02cc e9fe | | Load 0x4,-0x2 02cd 01cc | | Execute Vector,Catenate 02ce 482e |H. | Short_Literal 0x2e 02cf e7fe | | Load 0x3,-0x2 02d0 01cb | | Execute Vector,Append 02d1 e9ff | | Load 0x4,-0x1 02d2 01cc | | Execute Vector,Catenate 02d3 e7ff | | Load 0x3,-0x1 02d4 8021 | ! | Call 0x0,0x21 02d5 00d2 | | Pop_Control Pop_Count_2 02d6 0092 02f8 | | Action Push_String_Extended,0x2f8 ; "Expected: " 02d8 00d9 | | Load_Top At_Offset_1 02d9 8020 | | Call 0x0,0x20 02da 01cc | | Execute Vector,Catenate 02db 00db | | Load_Top At_Offset_3 02dc 00da | | Load_Top At_Offset_2 02dd 016f | o | Execute Variant_Record,Equal 02de 6804 |h | Jump_Zero 0x2e3 02df e802 | | Load 0x4,0x2 02e0 00db | | Load_Top At_Offset_3 02e1 017f | | Execute Record,Equal 02e2 7801 |x | Jump 0x2e4 02e3 4800 |H | Short_Literal 0x0 02e4 8403 | | Call 0x2,0x3 02e5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02e6 0000 0000 | | .XXX[0x2] 02e8 2822 0000 |(" | .LITERAL {0x28220000, 0x00000000} 02ec 222c 2022 |", "| .LITERAL {0x222c2022, 0x00000000} 02f0 2229 203d |") =| .LITERAL {0x2229203d, 0x3e200000} 02f4 ; -------------------------------------------------------------------------------------- 02f4 ; STRING TABLE 02f4 ; -------------------------------------------------------------------------------------- 02f4 000c | | .STRTAB 0x000c->0x02fa ; "Test failed." 02f5 0016 | | .STRTAB 0x0016->0x0300 ; "RM error" 02f6 001c | | .STRTAB 0x001c->0x0304 ; "Adding \x22" 02f7 0022 | " | .STRTAB 0x0022->0x0308 ; "Creating a sample database" 02f8 003a | : | .STRTAB 0x003a->0x0315 ; "Expected: " 02f9 0042 | B | .STREND 0x0042->0x031a 02fa 5465 7374 |Test| .STRTAB_STRINGS 031a 0000 0000 | | .BLANK 0000[0x6] 0320 ; -------------------------------------------------------------------------------------- 0320 ; Debug Table 0320 ; -------------------------------------------------------------------------------------- 0320 0004 0000 | | .DEBUG4 0x0004,0x0000,0x6845,0x0000,0x0001,0x000a 0326 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 032a 001b 034e | N| .DBG4T 0x001b,0x034e,0x8001,0x0000 032e 00c3 0361 | a| .DBG4T 0x00c3,0x0361,0x0001,0x0000 0332 00d3 0366 | f| .DBG4T 0x00d3,0x0366,0x0001,0x0000 0336 00e3 0369 | i| .DBG4T 0x00e3,0x0369,0x0001,0x0000 033a 00fb 036f | o| .DBG4T 0x00fb,0x036f,0x0002,0x0000 033e 011b 0374 | t| .DBG4T 0x011b,0x0374,0x0002,0x0000 0342 013b 0379 | ; y| .DBG4T 0x013b,0x0379,0x0001,0x0000 0346 01fb 0384 | | .DBG4T 0x01fb,0x0384,0x0001,0x0000 034a 0293 038f | | .DBG4T 0x0293,0x038f,0x0001,0x0000 034e ; -------------------------------------------------------------------------------------- 034e ; Debug chain 034e ; -------------------------------------------------------------------------------------- 034e 0008 0009 | | .DBGLEN 0x0008,0x0009 0350 001b 001d | | .DBGLNO 0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002e,0x003c,0x0048,0x0054,0x0060,0x006c,0x0078,0x0084 0361 ; -------------------------------------------------------------------------------------- 0361 ; Debug chain 0361 ; -------------------------------------------------------------------------------------- 0361 0000 0003 | | .DBGLEN 0x0000,0x0003 0363 00c3 00c5 | | .DBGLNO 0x00c3,0x00c5,0x00c7 0366 ; -------------------------------------------------------------------------------------- 0366 ; Debug chain 0366 ; -------------------------------------------------------------------------------------- 0366 0000 0001 | | .DBGLEN 0x0000,0x0001 0368 00d3 | | .DBGLNO 0x00d3 0369 ; -------------------------------------------------------------------------------------- 0369 ; Debug chain 0369 ; -------------------------------------------------------------------------------------- 0369 0001 0003 | | .DBGLEN 0x0001,0x0003 036b 00e3 00e5 | | .DBGLNO 0x00e3,0x00e5,0x00ed,0x00f3 036f ; -------------------------------------------------------------------------------------- 036f ; Debug chain 036f ; -------------------------------------------------------------------------------------- 036f 0001 0002 | | .DBGLEN 0x0001,0x0002 0371 00fb 0104 | | .DBGLNO 0x00fb,0x0104,0x010d 0374 ; -------------------------------------------------------------------------------------- 0374 ; Debug chain 0374 ; -------------------------------------------------------------------------------------- 0374 0001 0002 | | .DBGLEN 0x0001,0x0002 0376 011b 0124 | $| .DBGLNO 0x011b,0x0124,0x012d 0379 ; -------------------------------------------------------------------------------------- 0379 ; Debug chain 0379 ; -------------------------------------------------------------------------------------- 0379 0000 0009 | | .DBGLEN 0x0000,0x0009 037b 013b 013e | ; >| .DBGLNO 0x013b,0x013e,0x0146,0x014e,0x0156,0x015e,0x0166,0x016e,0x0176 0384 ; -------------------------------------------------------------------------------------- 0384 ; Debug chain 0384 ; -------------------------------------------------------------------------------------- 0384 0002 0007 | | .DBGLEN 0x0002,0x0007 0386 01fb 0201 | | .DBGLNO 0x01fb,0x0201,0x0203,0x021a,0x0225,0x0230,0x023b,0x0246,0x0251 038f ; -------------------------------------------------------------------------------------- 038f ; Debug chain 038f ; -------------------------------------------------------------------------------------- 038f 0004 0005 | | .DBGLEN 0x0004,0x0005 0391 0293 0297 | | .DBGLNO 0x0293,0x0297,0x029b,0x029f,0x02a3,0x02b9,0x02c4,0x02c7,0x02d6 039a 0000 0000 | | .BLANK 0000[0x66]