|
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]