|
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_779ce4
└─⟦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 02b0 | | .CONST 0x02b0 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0050 | P | .CONST 0x0050 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001b | | .CONST 0x001b ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 480b |H | Short_Literal 0xb 000d 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 00d8 | | Load_Top At_Offset_0 0011 0266 | f | Execute Discrete,Bounds 0012 00e3 | | Load_Encached Natural_Cache 0013 02a0 | | Declare_Subprogram Null_Subprogram 0014 4801 |H | Short_Literal 0x1 0015 035e | ^ | Declare_Type Array,Defined,Visible 0016 e002 | | Load 0x0,0x2 0017 e003 | | Load 0x0,0x3 0018 00db | | Load_Top At_Offset_3 0019 e004 | | Load 0x0,0x4 001a 0386 | | Declare_Variable Package,Visible 001b 00d8 | | Load_Top At_Offset_0 001c 020f | | Execute Module,Activate 001d 00e3 | | Load_Encached Natural_Cache 001e e005 | | Load 0x0,0x5 001f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0020 e006 | | Load 0x0,0x6 0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0022 e20e | | Load 0x1,0xe 0023 e20f | | Load 0x1,0xf 0024 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0025 029f 021b | | Declare_Subprogram INIT_0218,For_Call 0027 4805 |H | Short_Literal 0x5 0028 032e | . | Declare_Type Record,Defined,Visible 0029 00d8 | | Load_Top At_Offset_0 002a 0321 | ! | Declare_Variable Record,Visible 002b 00d8 | | Load_Top At_Offset_0 002c 1c00 | | Execute_Immediate Run_Utility,0x0 002d 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 002f 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0031 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0033 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0035 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0037 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0039 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 003b 00bf | | Action Accept_Activation 003c 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call 003e 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call 0040 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call 0042 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0043 00c7 | | Action Elaborate_Subprogram 0044 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0045 00c7 | | Action Elaborate_Subprogram 0046 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0047 00c7 | | Action Elaborate_Subprogram 0048 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0049 00c7 | | Action Elaborate_Subprogram 004a 1d16 | | Execute_Immediate Reference_Lex_1,0x16 004b 00c7 | | Action Elaborate_Subprogram 004c 1d17 | | Execute_Immediate Reference_Lex_1,0x17 004d 00c7 | | Action Elaborate_Subprogram 004e 1d18 | | Execute_Immediate Reference_Lex_1,0x18 004f 00c7 | | Action Elaborate_Subprogram 0050 BODY_0008: 0050 00bc | | Action Signal_Activated 0051 00bb | | Action Signal_Completion 0052 0000 0000 | | .BLANK 0000[0x6] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b 4607 |F | Jump_Case 0x8 005c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 005d 7807 |x | Jump 0x65 ; case 0x1 005e 780a |x | Jump 0x69 ; case 0x2 005f 780e |x | Jump 0x6e ; case 0x3 0060 7811 |x | Jump 0x72 ; case 0x4 0061 7812 |x | Jump 0x74 ; case 0x5 0062 7813 |x | Jump 0x76 ; case 0x6 0063 7816 |x | Jump 0x7a ; case 0x7 0064 4302 |C | .XXX[0x1] 0065 00da | | Load_Top At_Offset_2 0066 0091 022e | .| Action Push_String_Extended_Indexed,0x22e ; "AT_START" 0068 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0069 00db | | Load_Top At_Offset_3 006a 00db | | Load_Top At_Offset_3 006b 00e0 | | Load_Encached Standard_Cache 006c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 006d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006e 00da | | Load_Top At_Offset_2 006f 00e0 | | Load_Encached Standard_Cache 0070 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0071 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0072 00db | | Load_Top At_Offset_3 0073 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0074 00db | | Load_Top At_Offset_3 0075 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0076 e20d | | Load 0x1,0xd 0077 00dc | | Load_Top At_Offset_4 0078 0267 | g | Execute Discrete,Predecessor 0079 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007a e20d | | Load 0x1,0xd 007b 00dc | | Load_Top At_Offset_4 007c 0268 | h | Execute Discrete,Successor 007d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007e 0000 0000 | | .XXX[0x2] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 00da | | Load_Top At_Offset_2 0084 821b | | Call 0x1,0x1b 0085 e211 | | Load 0x1,0x11 0086 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0087 e211 | | Load 0x1,0x11 0088 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0089 00db | | Load_Top At_Offset_3 008a e20f | | Load 0x1,0xf 008b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 008c e211 | | Load 0x1,0x11 008d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 008e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 008f 0000 | | .XXX[0x1] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 e211 | | Load 0x1,0x11 0094 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0095 e20f | | Load 0x1,0xf 0096 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0097 e211 | | Load 0x1,0x11 0098 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0099 e211 | | Load 0x1,0x11 009a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 009b e20f | | Load 0x1,0xf 009c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 009d 6804 |h | Jump_Zero 0xa2 009e 4800 |H | Short_Literal 0x0 009f e211 | | Load 0x1,0x11 00a0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00a1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00a2 e211 | | Load 0x1,0x11 00a3 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00a4 e20f | | Load 0x1,0xf 00a5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00a6 821b | | Call 0x1,0x1b 00a7 e211 | | Load 0x1,0x11 00a8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00aa 0000 0000 | | .BLANK 0000[0x6] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00bb | | .CONST 0x00bb ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0003 | | .CONST 0x0003 ; Number of locals 00b3 INIT_00b0: 00b3 e211 | | Load 0x1,0x11 00b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00b5 00e4 | | Load_Encached Positive_Cache 00b6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 00b7 00db | | Load_Top At_Offset_3 00b8 01dd | | Execute Vector,First 00b9 00e3 | | Load_Encached Natural_Cache 00ba 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 00bb BODY_00b0: 00bb e211 | | Load 0x1,0x11 00bc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00bd 7001 |p | Jump_Nonzero 0xbf 00be 08e2 | | Execute_Immediate Raise,0xe2 00bf 00cf | | Action Mark_Auxiliary 00c0 e5ff | | Load 0x2,-0x1 00c1 01d9 | | Execute Vector,Reverse_Bounds 00c2 0263 | c | Execute Discrete,Above_Bound 00c3 7021 |p! | Jump_Nonzero 0xe5 00c4 00d8 | | Load_Top At_Offset_0 00c5 e5ff | | Load 0x2,-0x1 00c6 01d7 | | Execute Vector,Field_Read 00c7 0f0a | | Execute_Immediate Equal,0xa 00c8 681a |h | Jump_Zero 0xe3 00c9 e211 | | Load 0x1,0x11 00ca 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00cb 00d8 | | Load_Top At_Offset_0 00cc 00e4 | | Load_Encached Positive_Cache 00cd 0260 | ` | Execute Discrete,In_Type 00ce 7001 |p | Jump_Nonzero 0xd0 00cf 0801 | | Execute_Immediate Raise,0x1 00d0 e211 | | Load 0x1,0x11 00d1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00d2 e007 | | Load 0x0,0x7 00d3 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00d4 e403 | | Load 0x2,0x3 00d5 e406 | | Load 0x2,0x6 00d6 0aff | | Execute_Immediate Plus,-0x1 00d7 e5ff | | Load 0x2,-0x1 00d8 01cf | | Execute Vector,Slice_Read 00d9 e005 | | Load 0x0,0x5 00da 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 00db e211 | | Load 0x1,0x11 00dc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00dd 0a01 | | Execute_Immediate Plus,0x1 00de e211 | | Load 0x1,0x11 00df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00e0 00d8 | | Load_Top At_Offset_0 00e1 0a01 | | Execute_Immediate Plus,0x1 00e2 c403 | | Store 0x2,0x3 00e3 00c8 | | Action Pop_Auxiliary_Range 00e4 3fdf |? | Loop_Increasing 0xc4 00e5 00ce | | Action Pop_Auxiliary 00e6 e211 | | Load 0x1,0x11 00e7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00e8 00d8 | | Load_Top At_Offset_0 00e9 00e4 | | Load_Encached Positive_Cache 00ea 0260 | ` | Execute Discrete,In_Type 00eb 7001 |p | Jump_Nonzero 0xed 00ec 0801 | | Execute_Immediate Raise,0x1 00ed e211 | | Load 0x1,0x11 00ee 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ef e007 | | Load 0x0,0x7 00f0 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00f1 00db | | Load_Top At_Offset_3 00f2 e5ff | | Load 0x2,-0x1 00f3 01dc | | Execute Vector,Last 00f4 e5ff | | Load 0x2,-0x1 00f5 01cf | | Execute Vector,Slice_Read 00f6 e005 | | Load 0x0,0x5 00f7 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 00f8 e211 | | Load 0x1,0x11 00f9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00fa 0a01 | | Execute_Immediate Plus,0x1 00fb e211 | | Load 0x1,0x11 00fc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00fd e211 | | Load 0x1,0x11 00fe 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ff 00da | | Load_Top At_Offset_2 0100 0272 | r | Execute Discrete,Minus 0101 00d8 | | Load_Top At_Offset_0 0102 00e4 | | Load_Encached Positive_Cache 0103 0260 | ` | Execute Discrete,In_Type 0104 7001 |p | Jump_Nonzero 0x106 0105 0801 | | Execute_Immediate Raise,0x1 0106 00da | | Load_Top At_Offset_2 0107 821a | | Call 0x1,0x1a 0108 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0109 0000 0000 | | .BLANK 0000[0x7] 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 00cf | | Action Mark_Auxiliary 0114 00db | | Load_Top At_Offset_3 0115 4801 |H | Short_Literal 0x1 0116 0263 | c | Execute Discrete,Above_Bound 0117 7004 |p | Jump_Nonzero 0x11c 0118 00ea | | Load_Encached Null_String_Cache 0119 8214 | | Call 0x1,0x14 011a 00c8 | | Action Pop_Auxiliary_Range 011b 3ffc |? | Loop_Increasing 0x118 011c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 011d 0000 0000 | | .XXX[0x3] 011f 0000 | | 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 e008 | | Load 0x0,0x8 0124 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0125 e006 | | Load 0x0,0x6 0126 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0127 e211 | | Load 0x1,0x11 0128 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0129 e211 | | Load 0x1,0x11 012a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 012b 8009 | | Call 0x0,0x9 012c e211 | | Load 0x1,0x11 012d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 012e e211 | | Load 0x1,0x11 012f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0130 e20f | | Load 0x1,0xf 0131 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0132 e211 | | Load 0x1,0x11 0133 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0134 480b |H | Short_Literal 0xb 0135 8212 | | Call 0x1,0x12 0136 480f |H | Short_Literal 0xf 0137 8215 | | Call 0x1,0x15 0138 8213 | | Call 0x1,0x13 0139 00cf | | Action Mark_Auxiliary 013a e20e | | Load 0x1,0xe 013b 01d9 | | Execute Vector,Reverse_Bounds 013c 0007 | | Action Break_Optional 013d 00d8 | | Load_Top At_Offset_0 013e 0a02 | | Execute_Immediate Plus,0x2 013f 00d9 | | Load_Top At_Offset_1 0140 e211 | | Load 0x1,0x11 0141 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0142 01d6 | | Execute Vector,Field_Write 0143 00c8 | | Action Pop_Auxiliary_Range 0144 3ff8 |? | Loop_Increasing 0x13d 0145 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0146 0000 0000 | | .XXX[0x2] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b e211 | | Load 0x1,0x11 014c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 014d 4801 |H | Short_Literal 0x1 014e 4800 |H | Short_Literal 0x0 014f e006 | | Load 0x0,0x6 0150 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0151 e211 | | Load 0x1,0x11 0152 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0153 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0154 0000 0000 | | .BLANK 0000[0x4] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 016b | k | .CONST 0x016b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0007 | | .CONST 0x0007 ; Number of locals 015b INIT_0158: 015b 00e3 | | Load_Encached Natural_Cache 015c 4801 |H | Short_Literal 0x1 015d 48ff |H | Short_Literal 0xff 015e 00e9 | | Load_Encached String_Cache 015f 035b | [ | Declare_Type Array,Constrained 0160 0337 | 7 | Declare_Variable Array 0161 e00a | | Load 0x0,0xa 0162 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0163 02c7 | | Declare_Variable Any 0164 00d8 | | Load_Top At_Offset_0 0165 1c00 | | Execute_Immediate Run_Utility,0x0 0166 00e1 | | Load_Encached Boolean_Cache 0167 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 0169 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 016b BODY_0158: 016b 4800 |H | Short_Literal 0x0 016c 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 016d 8407 | | Call 0x2,0x7 016e 00cf | | Action Mark_Auxiliary 016f e211 | | Load 0x1,0x11 0170 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0171 e005 | | Load 0x0,0x5 0172 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0173 4801 |H | Short_Literal 0x1 0174 0263 | c | Execute Discrete,Above_Bound 0175 701f |p | Jump_Nonzero 0x195 0176 00e3 | | Load_Encached Natural_Cache 0177 e403 | | Load 0x2,0x3 0178 4801 |H | Short_Literal 0x1 0179 00db | | Load_Top At_Offset_3 017a e211 | | Load 0x1,0x11 017b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 017c e005 | | Load 0x0,0x5 017d 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 017e 00d1 | | Pop_Control Pop_Count_1 017f c402 | | Store 0x2,0x2 0180 e402 | | Load 0x2,0x2 0181 48ff |H | Short_Literal 0xff 0182 027a | z | Execute Discrete,Less_Equal 0183 6808 |h | Jump_Zero 0x18c 0184 4801 |H | Short_Literal 0x1 0185 e402 | | Load 0x2,0x2 0186 e403 | | Load 0x2,0x3 0187 01cf | | Execute Vector,Slice_Read 0188 e404 | | Load 0x2,0x4 0189 e00a | | Load 0x0,0xa 018a 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 018b 7807 |x | Jump 0x193 018c e403 | | Load 0x2,0x3 018d 0092 023a | :| Action Push_String_Extended,0x23a ; " ..." 018f 01cc | | Execute Vector,Catenate 0190 e404 | | Load 0x2,0x4 0191 e00a | | Load 0x0,0xa 0192 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0193 00c8 | | Action Pop_Auxiliary_Range 0194 3fe1 |? | Loop_Increasing 0x176 0195 00ce | | Action Pop_Auxiliary 0196 00da | | Load_Top At_Offset_2 0197 7004 |p | Jump_Nonzero 0x19c 0198 00db | | Load_Top At_Offset_3 0199 e00a | | Load 0x0,0xa 019a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 019b c404 | | Store 0x2,0x4 019c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 019d 0000 0000 | | .XXX[0x3] 019f 0000 | | 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 e5fd | | Load 0x2,-0x3 01a5 027a | z | Execute Discrete,Less_Equal 01a6 6804 |h | Jump_Zero 0x1ab 01a7 e5fd | | Load 0x2,-0x3 01a8 e5fe | | Load 0x2,-0x2 01a9 0273 | s | Execute Discrete,Plus 01aa c5fd | | Store 0x2,-0x3 01ab 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01ac 0000 0000 | | .BLANK 0000[0x4] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 00cf | | Action Mark_Auxiliary 01b4 e20e | | Load 0x1,0xe 01b5 01d9 | | Execute Vector,Reverse_Bounds 01b6 0007 | | Action Break_Optional 01b7 e211 | | Load 0x1,0x11 01b8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01b9 00d9 | | Load_Top At_Offset_1 01ba 00d8 | | Load_Top At_Offset_0 01bb 00da | | Load_Top At_Offset_2 01bc 01d7 | | Execute Vector,Field_Read 01bd e5fe | | Load 0x2,-0x2 01be e5ff | | Load 0x2,-0x1 01bf 8219 | | Call 0x1,0x19 01c0 00d9 | | Load_Top At_Offset_1 01c1 00db | | Load_Top At_Offset_3 01c2 01d6 | | Execute Vector,Field_Write 01c3 00d2 | | Pop_Control Pop_Count_2 01c4 00c8 | | Action Pop_Auxiliary_Range 01c5 3ff1 |? | Loop_Increasing 0x1b7 01c6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01c7 0000 | | .XXX[0x1] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 00da | | Load_Top At_Offset_2 01cc 7002 |p | Jump_Nonzero 0x1cf 01cd 4801 |H | Short_Literal 0x1 01ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cf 00da | | Load_Top At_Offset_2 01d0 0f0b | | Execute_Immediate Equal,0xb 01d1 680b |h | Jump_Zero 0x1dd 01d2 e211 | | Load 0x1,0x11 01d3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01d4 e005 | | Load 0x0,0x5 01d5 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01d6 0a01 | | Execute_Immediate Plus,0x1 01d7 00d8 | | Load_Top At_Offset_0 01d8 00e3 | | Load_Encached Natural_Cache 01d9 0260 | ` | Execute Discrete,In_Type 01da 7001 |p | Jump_Nonzero 0x1dc 01db 0801 | | Execute_Immediate Raise,0x1 01dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01dd 00da | | Load_Top At_Offset_2 01de e211 | | Load 0x1,0x11 01df 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 01e0 01d7 | | Execute Vector,Field_Read 01e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e2 0000 0000 | | .BLANK 0000[0x6] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb e5ff | | Load 0x2,-0x1 01ec 01db | | Execute Vector,Length 01ed 6804 |h | Jump_Zero 0x1f2 01ee e5ff | | Load 0x2,-0x1 01ef 0335 | 5 | Declare_Variable Array,Duplicate 01f0 00cd | | Action Spare6_Action 01f1 00ca | | Action Exit_Nullary_Function 01f2 0092 023b | ;| Action Push_String_Extended,0x23b ; "script_dump" 01f4 00ca | | Action Exit_Nullary_Function 01f5 0000 0000 | | .XXX[0x3] 01f7 0000 | | 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 020e | | .CONST 0x020e ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb e404 | | Load 0x2,0x4 01fc 00ea | | Load_Encached Null_String_Cache 01fd 8406 | | Call 0x2,0x6 01fe 4801 |H | Short_Literal 0x1 01ff e00a | | Load 0x0,0xa 0200 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0201 c404 | | Store 0x2,0x4 0202 4801 |H | Short_Literal 0x1 0203 e00a | | Load 0x0,0xa 0204 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0205 0092 023c | <| Action Push_String_Extended,0x23c ; " Unparsed script at: " 0207 e404 | | Load 0x2,0x4 0208 e00a | | Load 0x0,0xa 0209 1820 | | Execute Package,Field_Execute,Field_Number 0x20 020a 01cc | | Execute Vector,Catenate 020b e00a | | Load 0x0,0xa 020c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 020d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 020e TRAP_01f8: 020e 0007 | | Action Break_Optional 020f e00a | | Load 0x0,0xa 0210 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0211 c404 | | Store 0x2,0x4 0212 4801 |H | Short_Literal 0x1 0213 a405 | | Store_Unchecked 0x2,0x5 0214 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0215 0000 0000 | | .XXX[0x3] 0217 0000 | | 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 4601 |F | Jump_Case 0x2 021c 7801 |x | Jump 0x21e ; case 0x0 021d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 021e 4800 |H | Short_Literal 0x0 021f 00db | | Load_Top At_Offset_3 0220 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0221 00da | | Load_Top At_Offset_2 0222 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0223 0125 | % | Execute Any,Set_Constraint 0224 00da | | Load_Top At_Offset_2 0225 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0226 1c00 | | Execute_Immediate Run_Utility,0x0 0227 00da | | Load_Top At_Offset_2 0228 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0229 0125 | % | Execute Any,Set_Constraint 022a 00da | | Load_Top At_Offset_2 022b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 022c 1c00 | | Execute_Immediate Run_Utility,0x0 022d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 022e ; -------------------------------------------------------------------------------------- 022e ; STRING TABLE 022e ; -------------------------------------------------------------------------------------- 022e 0020 | | .STRTAB 0x0020->0x023e ; "AT_START" 022f 0026 | & | .STRTAB 0x0026->0x0242 ; "GENERAL_WITHS" 0230 0031 | 1 | .STRTAB 0x0031->0x0248 ; "USER_TEST_WITHS" 0231 003e | > | .STRTAB 0x003e->0x0250 ; "USER_SUPPLIED_ROUTINES_WITHS" 0232 0058 | X | .STRTAB 0x0058->0x025e ; "PREDEFINED_ROUTINE_WITHS" 0233 006e | n | .STRTAB 0x006e->0x026a ; "SCRIPT_HEADER" 0234 0079 | y | .STRTAB 0x0079->0x0270 ; "TEST_PRE_CONDITION" 0235 0089 | | .STRTAB 0x0089->0x0279 ; "TEST_CASE_CODE_BODY" 0236 009a | | .STRTAB 0x009a->0x0283 ; "SCRIPT_PROLOG" 0237 00a5 | | .STRTAB 0x00a5->0x0289 ; "SCRIPT_TEST_CALLS" 0238 00b4 | | .STRTAB 0x00b4->0x0292 ; "SCRIPT_EPILOG" 0239 00bf | | .STRTAB 0x00bf->0x0298 ; "AT_END" 023a 00c3 | | .STRTAB 0x00c3->0x029b ; " ..." 023b 00c5 | | .STRTAB 0x00c5->0x029d ; "script_dump" 023c 00ce | | .STRTAB 0x00ce->0x02a3 ; " Unparsed script at: " 023d 00e1 | | .STREND 0x00e1->0x02ad 023e 4154 5f53 |AT_S| .STRTAB_STRINGS 02ae 0000 0000 | | .XXX[0x2] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; Debug Table 02b0 ; -------------------------------------------------------------------------------------- 02b0 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5db0,0x0000,0x0001,0x0000 02b6 0000 0000 | | .BLANK 0000[0x14a]