|
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 02f0 | | .CONST 0x02f0 ; 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 0029 | ) | .CONST 0x0029 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0008 | | .CONST 0x0008 ; Number of locals 001b INIT_0018: 001b 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 001d 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 001f 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call 0021 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call 0023 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 0025 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 0027 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 0029 BODY_0018: 0029 0092 0260 | `| Action Push_String_Extended,0x260 ; "Null_DB" 002b 4800 |H | Short_Literal 0x0 002c 00e5 | | Load_Encached Long_Integer_Cache 002d 00d9 | | Load_Top At_Offset_1 002e 0267 | g | Execute Discrete,Predecessor 002f e002 | | Load 0x0,0x2 0030 0334 | 4 | Declare_Variable Array,With_Constraint 0031 8408 | | Call 0x2,0x8 0032 0092 0261 | a| Action Push_String_Extended,0x261 ; "Empty_DB" 0034 4800 |H | Short_Literal 0x0 0035 4812 |H | Short_Literal 0x12 0036 e002 | | Load 0x0,0x2 0037 0334 | 4 | Declare_Variable Array,With_Constraint 0038 5067 |Pg | Indirect_Literal Any,0xa0,{0x2120416e, 0x20656d70} 0039 8408 | | Call 0x2,0x8 003a 0092 0262 | b| Action Push_String_Extended,0x262 ; "Simple_DB" 003c 4800 |H | Short_Literal 0x0 003d 4805 |H | Short_Literal 0x5 003e e002 | | Load 0x0,0x2 003f 0334 | 4 | Declare_Variable Array,With_Constraint 0040 506b |Pk | Indirect_Literal Any,0xac,{0x2a613a20, 0x2a610000} 0041 8408 | | Call 0x2,0x8 0042 0092 0263 | c| Action Push_String_Extended,0x263 ; "Short_DB" 0044 480a |H | Short_Literal 0xa 0045 480a |H | Short_Literal 0xa 0046 480a |H | Short_Literal 0xa 0047 480a |H | Short_Literal 0xa 0048 4800 |H | Short_Literal 0x0 0049 4811 |H | Short_Literal 0x11 004a e002 | | Load 0x0,0x2 004b 0334 | 4 | Declare_Variable Array,With_Constraint 004c 5063 |Pc | Indirect_Literal Any,0xb0,{0x21204120, 0x73686f72} 004d 01cb | | Execute Vector,Append 004e 4800 |H | Short_Literal 0x0 004f 00e5 | | Load_Encached Long_Integer_Cache 0050 00d9 | | Load_Top At_Offset_1 0051 0267 | g | Execute Discrete,Predecessor 0052 e002 | | Load 0x0,0x2 0053 0334 | 4 | Declare_Variable Array,With_Constraint 0054 01cc | | Execute Vector,Catenate 0055 01cb | | Execute Vector,Append 0056 4800 |H | Short_Literal 0x0 0057 4805 |H | Short_Literal 0x5 0058 e002 | | Load 0x0,0x2 0059 0334 | 4 | Declare_Variable Array,With_Constraint 005a 5061 |Pa | Indirect_Literal Any,0xbc,{0x2e613a20, 0x2e610000} 005b 01cc | | Execute Vector,Catenate 005c 01cb | | Execute Vector,Append 005d 4800 |H | Short_Literal 0x0 005e 4805 |H | Short_Literal 0x5 005f e002 | | Load 0x0,0x2 0060 0334 | 4 | Declare_Variable Array,With_Constraint 0061 505e |P^ | Indirect_Literal Any,0xc0,{0x2a623a20, 0x2a620000} 0062 01cc | | Execute Vector,Catenate 0063 01cb | | Execute Vector,Append 0064 8408 | | Call 0x2,0x8 0065 0092 0264 | d| Action Push_String_Extended,0x264 ; "Multi-Level_DB" 0067 480a |H | Short_Literal 0xa 0068 480a |H | Short_Literal 0xa 0069 480a |H | Short_Literal 0xa 006a 480a |H | Short_Literal 0xa 006b 480a |H | Short_Literal 0xa 006c 480a |H | Short_Literal 0xa 006d 4800 |H | Short_Literal 0x0 006e 4817 |H | Short_Literal 0x17 006f e002 | | Load 0x0,0x2 0070 0334 | 4 | Declare_Variable Array,With_Constraint 0071 5052 |PR | Indirect_Literal Any,0xc4,{0x21204120, 0x6d756c74} 0072 01cb | | Execute Vector,Append 0073 4800 |H | Short_Literal 0x0 0074 480d |H | Short_Literal 0xd 0075 e002 | | Load 0x0,0x2 0076 0334 | 4 | Declare_Variable Array,With_Constraint 0077 5058 |PX | Indirect_Literal Any,0xd0,{0x20202020, 0x20202020} 0078 01cc | | Execute Vector,Catenate 0079 01cb | | Execute Vector,Append 007a 4800 |H | Short_Literal 0x0 007b 480d |H | Short_Literal 0xd 007c e002 | | Load 0x0,0x2 007d 0334 | 4 | Declare_Variable Array,With_Constraint 007e 5059 |PY | Indirect_Literal Any,0xd8,{0x612e623a, 0x20202020} 007f 01cc | | Execute Vector,Catenate 0080 01cb | | Execute Vector,Append 0081 4800 |H | Short_Literal 0x0 0082 480d |H | Short_Literal 0xd 0083 e002 | | Load 0x0,0x2 0084 0334 | 4 | Declare_Variable Array,With_Constraint 0085 505a |PZ | Indirect_Literal Any,0xe0,{0x215c3030, 0x303a2049} 0086 01cc | | Execute Vector,Catenate 0087 01cb | | Execute Vector,Append 0088 4800 |H | Short_Literal 0x0 0089 480f |H | Short_Literal 0xf 008a e002 | | Load 0x0,0x2 008b 0334 | 4 | Declare_Variable Array,With_Constraint 008c 505b |P[ | Indirect_Literal Any,0xe8,{0x2a633a20, 0x20202020} 008d 01cc | | Execute Vector,Catenate 008e 01cb | | Execute Vector,Append 008f 4800 |H | Short_Literal 0x0 0090 480b |H | Short_Literal 0xb 0091 e002 | | Load 0x0,0x2 0092 0334 | 4 | Declare_Variable Array,With_Constraint 0093 505c |P\ | Indirect_Literal Any,0xf0,{0x2a643a20, 0x20202020} 0094 01cc | | Execute Vector,Catenate 0095 01cb | | Execute Vector,Append 0096 4800 |H | Short_Literal 0x0 0097 480c |H | Short_Literal 0xc 0098 e002 | | Load 0x0,0x2 0099 0334 | 4 | Declare_Variable Array,With_Constraint 009a 505d |P] | Indirect_Literal Any,0xf8,{0x20202020, 0x20202020} 009b 01cc | | Execute Vector,Catenate 009c 8408 | | Call 0x2,0x8 009d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 009e 0000 0000 | | .XXX[0x2] 00a0 2120 416e |! An| .LITERAL {0x2120416e, 0x20656d70} 00a4 7479 2064 |ty d| .XXX[0x8] 00a6 6174 6162 |atab| 00a8 6173 6500 |ase | 00aa 0000 0000 | | 00ac 2a61 3a20 |*a: | .LITERAL {0x2a613a20, 0x2a610000} 00b0 2120 4120 |! A | .LITERAL {0x21204120, 0x73686f72} 00b4 7420 6461 |t da| .XXX[0x8] 00b6 7461 6261 |taba| 00b8 7365 0000 |se | 00ba 0000 0000 | | 00bc 2e61 3a20 |.a: | .LITERAL {0x2e613a20, 0x2e610000} 00c0 2a62 3a20 |*b: | .LITERAL {0x2a623a20, 0x2a620000} 00c4 2120 4120 |! A | .LITERAL {0x21204120, 0x6d756c74} 00c8 692d 6c65 |i-le| .XXX[0x8] 00ca 7665 6c20 |vel | 00cc 6461 7461 |data| 00ce 6261 7365 |base| 00d0 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 00d4 2020 2020 | | .XXX[0x3] 00d6 2020 | | 00d7 0000 | | .XXX[0x1] 00d8 612e 623a |a.b:| .LITERAL {0x612e623a, 0x20202020} 00dc 2020 2061 | a| .XXX[0x4] 00de 2e62 0000 |.b | 00e0 215c 3030 |!\00| .LITERAL {0x215c3030, 0x303a2049} 00e4 676e 6f72 |gnor| .XXX[0x4] 00e6 6564 0000 |ed | 00e8 2a63 3a20 |*c: | .LITERAL {0x2a633a20, 0x20202020} 00ec 2020 202a | *| .XXX[0x4] 00ee 5c31 3433 |\143| 00f0 2a64 3a20 |*d: | .LITERAL {0x2a643a20, 0x20202020} 00f4 2020 205c | \| .XXX[0x4] 00f6 0000 0000 | | 00f8 2020 2020 | | .LITERAL {0x20202020, 0x20202020} 00fc 2020 202a | *| .XXX[0x4] 00fe 6400 0000 |d | 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 700a |p | Jump_Nonzero 0x10f 0105 00db | | Load_Top At_Offset_3 0106 8003 | | Call 0x0,0x3 0107 0092 0265 | e| Action Push_String_Extended,0x265 ; "Test section " 0109 e7fd | | Load 0x3,-0x3 010a 01cc | | Execute Vector,Catenate 010b 0092 0266 | f| Action Push_String_Extended,0x266 ; " failed." 010d 01cc | | Execute Vector,Catenate 010e 8004 | | Call 0x0,0x4 010f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 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 0092 0267 | g| Action Push_String_Extended,0x267 ; "RM error" 0116 e7ff | | Load 0x3,-0x1 0117 0f00 | | Execute_Immediate Equal,0x0 0118 8402 | | Call 0x2,0x2 0119 4503 |E | Exit_Suprogram New_Top_Offset 0x3 011a 0000 0000 | | .BLANK 0000[0x6] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0125 | % | .CONST 0x0125 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0002 | | .CONST 0x0002 ; Number of locals 0123 INIT_0120: 0123 e005 | | Load 0x0,0x5 0124 0007 | | Action Break_Optional 0125 BODY_0120: 0125 4822 |H" | Short_Literal 0x22 0126 0092 0268 | h| Action Push_String_Extended,0x268 ; "Adding \x22" 0128 e7ff | | Load 0x3,-0x1 0129 8006 | | Call 0x0,0x6 012a 01cc | | Execute Vector,Catenate 012b 01cb | | Execute Vector,Append 012c 8003 | | Call 0x0,0x3 012d e005 | | Load 0x0,0x5 012e e7fd | | Load 0x3,-0x3 012f e7ff | | Load 0x3,-0x1 0130 8007 | | Call 0x0,0x7 0131 c7fd | | Store 0x3,-0x3 0132 0059 | Y | Store_Top Discrete,At_Offset_1 0133 e7fe | | Load 0x3,-0x2 0134 00d9 | | Load_Top At_Offset_1 0135 8403 | | Call 0x2,0x3 0136 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0137 0000 | | .XXX[0x1] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 0143 | C | .CONST 0x0143 ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0003 | | .CONST 0x0003 ; Number of locals 013b INIT_0138: 013b e008 | | Load 0x0,0x8 013c 0322 | " | Declare_Variable Record 013d 00d8 | | Load_Top At_Offset_0 013e 1c00 | | Execute_Immediate Run_Utility,0x0 013f e009 | | Load 0x0,0x9 0140 02ff | | Declare_Variable Variant_Record 0141 00d8 | | Load_Top At_Offset_0 0142 1c00 | | Execute_Immediate Run_Utility,0x0 0143 BODY_0138: 0143 4800 |H | Short_Literal 0x0 0144 4801 |H | Short_Literal 0x1 0145 e002 | | Load 0x0,0x2 0146 0334 | 4 | Declare_Variable Array,With_Constraint 0147 501c |P | Indirect_Literal Any,0x164,{0x28220000, 0x00000000} 0148 e7fe | | Load 0x3,-0x2 0149 01cc | | Execute Vector,Catenate 014a 4800 |H | Short_Literal 0x0 014b 4803 |H | Short_Literal 0x3 014c e002 | | Load 0x0,0x2 014d 0334 | 4 | Declare_Variable Array,With_Constraint 014e 5019 |P | Indirect_Literal Any,0x168,{0x222c2022, 0x00000000} 014f 01cc | | Execute Vector,Catenate 0150 e7fd | | Load 0x3,-0x3 0151 01cc | | Execute Vector,Catenate 0152 4800 |H | Short_Literal 0x0 0153 4805 |H | Short_Literal 0x5 0154 e002 | | Load 0x0,0x2 0155 0334 | 4 | Declare_Variable Array,With_Constraint 0156 5015 |P | Indirect_Literal Any,0x16c,{0x2229203d, 0x3e200000} 0157 01cc | | Execute Vector,Catenate 0158 800a | | Call 0x0,0xa 0159 00d8 | | Load_Top At_Offset_0 015a 00da | | Load_Top At_Offset_2 015b e7fd | | Load 0x3,-0x3 015c e7fe | | Load 0x3,-0x2 015d e7ff | | Load 0x3,-0x1 015e 800b | | Call 0x0,0xb 015f 00d2 | | Pop_Control Pop_Count_2 0160 00d8 | | Load_Top At_Offset_0 0161 800c | | Call 0x0,0xc 0162 800d | | Call 0x0,0xd 0163 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0164 2822 0000 |(" | .LITERAL {0x28220000, 0x00000000} 0168 222c 2022 |", "| .LITERAL {0x222c2022, 0x00000000} 016c 2229 203d |") =| .LITERAL {0x2229203d, 0x3e200000} 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0181 | | .CONST 0x0181 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0005 | | .CONST 0x0005 ; Number of locals 0173 INIT_0170: 0173 0092 0269 | i| Action Push_String_Extended,0x269 ; "TMP" 0175 0092 026a | j| Action Push_String_Extended,0x26a ; "RM_080_1" 0177 800e | | Call 0x0,0xe 0178 0092 0269 | i| Action Push_String_Extended,0x269 ; "TMP" 017a 0092 026b | k| Action Push_String_Extended,0x26b ; "RM_080_2" 017c 800e | | Call 0x0,0xe 017d e00f | | Load 0x0,0xf 017e 0007 | | Action Break_Optional 017f e005 | | Load 0x0,0x5 0180 0007 | | Action Break_Optional 0181 BODY_0170: 0181 0092 026c | l| Action Push_String_Extended,0x26c ; "Write db_1 ... " 0183 800d | | Call 0x0,0xd 0184 e005 | | Load 0x0,0x5 0185 e7ff | | Load 0x3,-0x1 0186 e602 | | Load 0x3,0x2 0187 8010 | | Call 0x0,0x10 0188 0059 | Y | Store_Top Discrete,At_Offset_1 0189 e7fe | | Load 0x3,-0x2 018a 00d9 | | Load_Top At_Offset_1 018b 8403 | | Call 0x2,0x3 018c 0092 026d | m| Action Push_String_Extended,0x26d ; "read db_2 ... " 018e 800d | | Call 0x0,0xd 018f e005 | | Load 0x0,0x5 0190 e00f | | Load 0x0,0xf 0191 e602 | | Load 0x3,0x2 0192 8011 | | Call 0x0,0x11 0193 003b | ; | Store_Top Access,At_Offset_3 0194 0059 | Y | Store_Top Discrete,At_Offset_1 0195 e7fe | | Load 0x3,-0x2 0196 00d9 | | Load_Top At_Offset_1 0197 8403 | | Call 0x2,0x3 0198 0092 026e | n| Action Push_String_Extended,0x26e ; "write db_2 ... " 019a 800d | | Call 0x0,0xd 019b e005 | | Load 0x0,0x5 019c 00da | | Load_Top At_Offset_2 019d e603 | | Load 0x3,0x3 019e 8010 | | Call 0x0,0x10 019f 0059 | Y | Store_Top Discrete,At_Offset_1 01a0 e7fe | | Load 0x3,-0x2 01a1 00d9 | | Load_Top At_Offset_1 01a2 8403 | | Call 0x2,0x3 01a3 0092 026f | o| Action Push_String_Extended,0x26f ; "compare dumps ... " 01a5 800d | | Call 0x0,0xd 01a6 4800 |H | Short_Literal 0x0 01a7 4800 |H | Short_Literal 0x0 01a8 e603 | | Load 0x3,0x3 01a9 e602 | | Load 0x3,0x2 01aa 8012 | | Call 0x0,0x12 01ab 700a |p | Jump_Nonzero 0x1b6 01ac e7fe | | Load 0x3,-0x2 01ad 0092 0270 | p| Action Push_String_Extended,0x270 ; "Database dumps differ." 01af 4800 |H | Short_Literal 0x0 01b0 8402 | | Call 0x2,0x2 01b1 4800 |H | Short_Literal 0x0 01b2 4800 |H | Short_Literal 0x0 01b3 e603 | | Load 0x3,0x3 01b4 e602 | | Load 0x3,0x2 01b5 8013 | | Call 0x0,0x13 01b6 0092 0271 | q| Action Push_String_Extended,0x271 ; "done." 01b8 8003 | | Call 0x0,0x3 01b9 00db | | Load_Top At_Offset_3 01ba 8014 | | Call 0x0,0x14 01bb 00da | | Load_Top At_Offset_2 01bc 8014 | | Call 0x0,0x14 01bd 00d9 | | Load_Top At_Offset_1 01be 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01bf 0000 | | .XXX[0x1] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c9 | | .CONST 0x01c9 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0004 | | .CONST 0x0004 ; Number of locals 01c3 INIT_01c0: 01c3 e005 | | Load 0x0,0x5 01c4 0007 | | Action Break_Optional 01c5 e00f | | Load 0x0,0xf 01c6 0007 | | Action Break_Optional 01c7 e00f | | Load 0x0,0xf 01c8 0007 | | Action Break_Optional 01c9 BODY_01c0: 01c9 0092 0272 | r| Action Push_String_Extended,0x272 ; "Create database from string:" 01cb 8003 | | Call 0x0,0x3 01cc 4822 |H" | Short_Literal 0x22 01cd 4822 |H" | Short_Literal 0x22 01ce e7ff | | Load 0x3,-0x1 01cf 01ca | | Execute Vector,Prepend 01d0 01cb | | Execute Vector,Append 01d1 8015 | | Call 0x0,0x15 01d2 e005 | | Load 0x0,0x5 01d3 e00f | | Load 0x0,0xf 01d4 e7ff | | Load 0x3,-0x1 01d5 8016 | | Call 0x0,0x16 01d6 003b | ; | Store_Top Access,At_Offset_3 01d7 005b | [ | Store_Top Discrete,At_Offset_3 01d8 e7fe | | Load 0x3,-0x2 01d9 00db | | Load_Top At_Offset_3 01da 8403 | | Call 0x2,0x3 01db e7fe | | Load 0x3,-0x2 01dc 00da | | Load_Top At_Offset_2 01dd 8406 | | Call 0x2,0x6 01de 0039 | 9 | Store_Top Access,At_Offset_1 01df 00d9 | | Load_Top At_Offset_1 01e0 8017 | | Call 0x0,0x17 01e1 003a | : | Store_Top Access,At_Offset_2 01e2 00d8 | | Load_Top At_Offset_0 01e3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01e4 0000 0000 | | .BLANK 0000[0x4] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01ed | | .CONST 0x01ed ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0002 | | .CONST 0x0002 ; Number of locals 01eb INIT_01e8: 01eb e00f | | Load 0x0,0xf 01ec 0007 | | Action Break_Optional 01ed BODY_01e8: 01ed 0092 0273 | s| Action Push_String_Extended,0x273 ; "String database " 01ef e7fe | | Load 0x3,-0x2 01f0 01cc | | Execute Vector,Catenate 01f1 8018 | | Call 0x0,0x18 01f2 e7fe | | Load 0x3,-0x2 01f3 e7ff | | Load 0x3,-0x1 01f4 8407 | | Call 0x2,0x7 01f5 0039 | 9 | Store_Top Access,At_Offset_1 01f6 e7fe | | Load 0x3,-0x2 01f7 4800 |H | Short_Literal 0x0 01f8 00e5 | | Load_Encached Long_Integer_Cache 01f9 00d9 | | Load_Top At_Offset_1 01fa 0267 | g | Execute Discrete,Predecessor 01fb e002 | | Load 0x0,0x2 01fc 0334 | 4 | Declare_Variable Array,With_Constraint 01fd 4800 |H | Short_Literal 0x0 01fe 00e5 | | Load_Encached Long_Integer_Cache 01ff 00d9 | | Load_Top At_Offset_1 0200 0267 | g | Execute Discrete,Predecessor 0201 e002 | | Load 0x0,0x2 0202 0334 | 4 | Declare_Variable Array,With_Constraint 0203 00db | | Load_Top At_Offset_3 0204 8405 | | Call 0x2,0x5 0205 e7fe | | Load 0x3,-0x2 0206 4800 |H | Short_Literal 0x0 0207 4800 |H | Short_Literal 0x0 0208 e002 | | Load 0x0,0x2 0209 0334 | 4 | Declare_Variable Array,With_Constraint 020a 5035 |P5 | Indirect_Literal Any,0x240,{0x41000000, 0x00000000} 020b 4800 |H | Short_Literal 0x0 020c 4800 |H | Short_Literal 0x0 020d e002 | | Load 0x0,0x2 020e 0334 | 4 | Declare_Variable Array,With_Constraint 020f 5034 |P4 | Indirect_Literal Any,0x244,{0x61000000, 0x00000000} 0210 00db | | Load_Top At_Offset_3 0211 8405 | | Call 0x2,0x5 0212 e7fe | | Load 0x3,-0x2 0213 4800 |H | Short_Literal 0x0 0214 4802 |H | Short_Literal 0x2 0215 e002 | | Load 0x0,0x2 0216 0334 | 4 | Declare_Variable Array,With_Constraint 0217 5030 |P0 | Indirect_Literal Any,0x248,{0x412e4200, 0x00000000} 0218 4800 |H | Short_Literal 0x0 0219 4802 |H | Short_Literal 0x2 021a e002 | | Load 0x0,0x2 021b 0334 | 4 | Declare_Variable Array,With_Constraint 021c 502f |P/ | Indirect_Literal Any,0x24c,{0x612e6200, 0x00000000} 021d 00db | | Load_Top At_Offset_3 021e 8405 | | Call 0x2,0x5 021f e7fe | | Load 0x3,-0x2 0220 4800 |H | Short_Literal 0x0 0221 4804 |H | Short_Literal 0x4 0222 e002 | | Load 0x0,0x2 0223 0334 | 4 | Declare_Variable Array,With_Constraint 0224 502b |P+ | Indirect_Literal Any,0x250,{0x412e422e, 0x43000000} 0225 4800 |H | Short_Literal 0x0 0226 4804 |H | Short_Literal 0x4 0227 e002 | | Load 0x0,0x2 0228 0334 | 4 | Declare_Variable Array,With_Constraint 0229 502a |P* | Indirect_Literal Any,0x254,{0x612e622e, 0x63000000} 022a 00db | | Load_Top At_Offset_3 022b 8405 | | Call 0x2,0x5 022c e7fe | | Load 0x3,-0x2 022d 4800 |H | Short_Literal 0x0 022e 4806 |H | Short_Literal 0x6 022f e002 | | Load 0x0,0x2 0230 0334 | 4 | Declare_Variable Array,With_Constraint 0231 5026 |P& | Indirect_Literal Any,0x258,{0x412e422e, 0x432e4400} 0232 4800 |H | Short_Literal 0x0 0233 4806 |H | Short_Literal 0x6 0234 e002 | | Load 0x0,0x2 0235 0334 | 4 | Declare_Variable Array,With_Constraint 0236 5025 |P% | Indirect_Literal Any,0x25c,{0x612e622e, 0x632e6400} 0237 00db | | Load_Top At_Offset_3 0238 8405 | | Call 0x2,0x5 0239 00d8 | | Load_Top At_Offset_0 023a 8017 | | Call 0x0,0x17 023b 0039 | 9 | Store_Top Access,At_Offset_1 023c 4801 |H | Short_Literal 0x1 023d 8019 | | Call 0x0,0x19 023e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 023f 0000 | | .XXX[0x1] 0240 4100 0000 |A | .LITERAL {0x41000000, 0x00000000} 0244 6100 0000 |a | .LITERAL {0x61000000, 0x00000000} 0248 412e 4200 |A.B | .LITERAL {0x412e4200, 0x00000000} 024c 612e 6200 |a.b | .LITERAL {0x612e6200, 0x00000000} 0250 412e 422e |A.B.| .LITERAL {0x412e422e, 0x43000000} 0254 612e 622e |a.b.| .LITERAL {0x612e622e, 0x63000000} 0258 412e 422e |A.B.| .LITERAL {0x412e422e, 0x432e4400} 025c 612e 622e |a.b.| .LITERAL {0x612e622e, 0x632e6400} 0260 ; -------------------------------------------------------------------------------------- 0260 ; STRING TABLE 0260 ; -------------------------------------------------------------------------------------- 0260 002a | * | .STRTAB 0x002a->0x0275 ; "Null_DB" 0261 002f | / | .STRTAB 0x002f->0x0278 ; "Empty_DB" 0262 0035 | 5 | .STRTAB 0x0035->0x027c ; "Simple_DB" 0263 003c | < | .STRTAB 0x003c->0x0281 ; "Short_DB" 0264 0042 | B | .STRTAB 0x0042->0x0285 ; "Multi-Level_DB" 0265 004e | N | .STRTAB 0x004e->0x028c ; "Test section " 0266 0059 | Y | .STRTAB 0x0059->0x0292 ; " failed." 0267 005f | _ | .STRTAB 0x005f->0x0296 ; "RM error" 0268 0065 | e | .STRTAB 0x0065->0x029a ; "Adding \x22" 0269 006b | k | .STRTAB 0x006b->0x029e ; "TMP" 026a 006c | l | .STRTAB 0x006c->0x02a0 ; "RM_080_1" 026b 0072 | r | .STRTAB 0x0072->0x02a4 ; "RM_080_2" 026c 0078 | x | .STRTAB 0x0078->0x02a8 ; "Write db_1 ... " 026d 0085 | | .STRTAB 0x0085->0x02af ; "read db_2 ... " 026e 0091 | | .STRTAB 0x0091->0x02b6 ; "write db_2 ... " 026f 009e | | .STRTAB 0x009e->0x02be ; "compare dumps ... " 0270 00ae | | .STRTAB 0x00ae->0x02c7 ; "Database dumps differ." 0271 00c2 | | .STRTAB 0x00c2->0x02d2 ; "done." 0272 00c5 | | .STRTAB 0x00c5->0x02d4 ; "Create database from string:" 0273 00df | | .STRTAB 0x00df->0x02e2 ; "String database " 0274 00ed | | .STREND 0x00ed->0x02ea 0275 4e75 6c6c |Null| .STRTAB_STRINGS 02eb 0000 0000 | | .BLANK 0000[0x5] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; Debug Table 02f0 ; -------------------------------------------------------------------------------------- 02f0 0004 0000 | | .DEBUG4 0x0004,0x0000,0x6846,0x0000,0x0001,0x0009 02f6 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 02fa 001b 031a | | .DBG4T 0x001b,0x031a,0x8001,0x0000 02fe 0103 0328 | (| .DBG4T 0x0103,0x0328,0x0001,0x0000 0302 0113 032d | -| .DBG4T 0x0113,0x032d,0x0001,0x0000 0306 0123 0330 | # 0| .DBG4T 0x0123,0x0330,0x0001,0x0000 030a 013b 0336 | ; 6| .DBG4T 0x013b,0x0336,0x0001,0x0000 030e 0173 033d | s =| .DBG4T 0x0173,0x033d,0x0002,0x0000 0312 01c3 0354 | T| .DBG4T 0x01c3,0x0354,0x0002,0x0000 0316 01eb 0360 | `| .DBG4T 0x01eb,0x0360,0x0001,0x0000 031a ; -------------------------------------------------------------------------------------- 031a ; Debug chain 031a ; -------------------------------------------------------------------------------------- 031a 0007 0005 | | .DBGLEN 0x0007,0x0005 031c 001b 001d | | .DBGLNO 0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x0032,0x003a,0x0042,0x0065 0328 ; -------------------------------------------------------------------------------------- 0328 ; Debug chain 0328 ; -------------------------------------------------------------------------------------- 0328 0000 0003 | | .DBGLEN 0x0000,0x0003 032a 0103 0105 | | .DBGLNO 0x0103,0x0105,0x0107 032d ; -------------------------------------------------------------------------------------- 032d ; Debug chain 032d ; -------------------------------------------------------------------------------------- 032d 0000 0001 | | .DBGLEN 0x0000,0x0001 032f 0113 | | .DBGLNO 0x0113 0330 ; -------------------------------------------------------------------------------------- 0330 ; Debug chain 0330 ; -------------------------------------------------------------------------------------- 0330 0001 0003 | | .DBGLEN 0x0001,0x0003 0332 0123 0125 | # %| .DBGLNO 0x0123,0x0125,0x012d,0x0133 0336 ; -------------------------------------------------------------------------------------- 0336 ; Debug chain 0336 ; -------------------------------------------------------------------------------------- 0336 0002 0003 | | .DBGLEN 0x0002,0x0003 0338 013b 013f | ; ?| .DBGLNO 0x013b,0x013f,0x0143,0x0159,0x0160 033d ; -------------------------------------------------------------------------------------- 033d ; Debug chain 033d ; -------------------------------------------------------------------------------------- 033d 0004 0011 | | .DBGLEN 0x0004,0x0011 033f 0173 0178 | s x| .DBGLNO 0x0173,0x0178,0x017d,0x017f,0x0181,0x0184,0x0189,0x018c,0x018f,0x0195,0x0198,0x019b,0x01a0,0x01a3,0x01a6,0x01ac,0x01b1,0x01b6,0x01b9,0x01bb,0x01bd 0354 ; -------------------------------------------------------------------------------------- 0354 ; Debug chain 0354 ; -------------------------------------------------------------------------------------- 0354 0003 0007 | | .DBGLEN 0x0003,0x0007 0356 01c3 01c5 | | .DBGLNO 0x01c3,0x01c5,0x01c7,0x01c9,0x01cc,0x01d2,0x01d8,0x01db,0x01df,0x01e2 0360 ; -------------------------------------------------------------------------------------- 0360 ; Debug chain 0360 ; -------------------------------------------------------------------------------------- 0360 0001 0009 | | .DBGLEN 0x0001,0x0009 0362 01eb 01ed | | .DBGLNO 0x01eb,0x01ed,0x01f2,0x01f6,0x0205,0x0212,0x021f,0x022c,0x0239,0x023c 036c 0000 0000 | | .BLANK 0000[0x94]