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