|
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 0278 | x | .CONST 0x0278 ; 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 0044 | D | .CONST 0x0044 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0023 | # | .CONST 0x0023 ; Number of locals 000b INIT_0008: 000b 00e4 | | Load_Encached Positive_Cache 000c 0266 | f | Execute Discrete,Bounds 000d e20e | | Load 0x1,0xe 000e 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 0010 4801 |H | Short_Literal 0x1 0011 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0012 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0014 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0016 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0018 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 001a 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 001c 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 001e 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0020 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0022 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0024 0093 0000 | | push_full_address 0x0 0026 603d |`= | Indirect_Literal Discrete,0x64,{0x80000000, 0x00010000} 0027 0273 | s | Execute Discrete,Plus 0028 e20d | | Load 0x1,0xd 0029 6036 |`6 | Indirect_Literal Discrete,0x60,{0x00000000, 0x0000ffff} 002a 0279 | y | Execute Discrete,And 002b 0273 | s | Execute Discrete,Plus 002c 0129 | ) | Execute Any,Make_Visible 002d 00bf | | Action Accept_Activation 002e 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call 0030 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call 0032 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0033 00c7 | | Action Elaborate_Subprogram 0034 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0035 00c7 | | Action Elaborate_Subprogram 0036 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0037 00c7 | | Action Elaborate_Subprogram 0038 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0039 00c7 | | Action Elaborate_Subprogram 003a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 003b 00c7 | | Action Elaborate_Subprogram 003c 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 003d 00c7 | | Action Elaborate_Subprogram 003e 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 003f 00c7 | | Action Elaborate_Subprogram 0040 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0041 00c7 | | Action Elaborate_Subprogram 0042 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0043 00c7 | | Action Elaborate_Subprogram 0044 BODY_0008: 0044 00bc | | Action Signal_Activated 0045 00bb | | Action Signal_Completion 0046 0000 0000 | | .XXX[0x2] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 00d1 | | Pop_Control Pop_Count_1 004c 00da | | Load_Top At_Offset_2 004d 01dc | | Execute Vector,Last 004e 00db | | Load_Top At_Offset_3 004f 01dd | | Execute Vector,First 0050 0263 | c | Execute Discrete,Above_Bound 0051 700a |p | Jump_Nonzero 0x5c 0052 00d8 | | Load_Top At_Offset_0 0053 e5ff | | Load 0x2,-0x1 0054 01d5 | | Execute Vector,Field_Reference 0055 0125 | % | Execute Any,Set_Constraint 0056 00d8 | | Load_Top At_Offset_0 0057 e5ff | | Load 0x2,-0x1 0058 01d5 | | Execute Vector,Field_Reference 0059 1c00 | | Execute_Immediate Run_Utility,0x0 005a 0a01 | | Execute_Immediate Plus,0x1 005b 7ff4 | | Jump 0x50 005c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 005d 0000 0000 | | .XXX[0x3] 005f 0000 | | 0060 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 0064 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 00cf | | Action Mark_Auxiliary 006c 00db | | Load_Top At_Offset_3 006d 01da | | Execute Vector,Bounds 006e 0264 | d | Execute Discrete,Below_Bound 006f 700e |p | Jump_Nonzero 0x7e 0070 e5fe | | Load 0x2,-0x2 0071 00d8 | | Load_Top At_Offset_0 0072 0120 | | Execute Any,Is_Value 0073 6803 |h | Jump_Zero 0x77 0074 e20f | | Load 0x1,0xf 0075 0122 | " | Execute Any,Make_Root_Type 0076 011e | | Execute Any,Convert 0077 00d9 | | Load_Top At_Offset_1 0078 e5ff | | Load 0x2,-0x1 0079 01d7 | | Execute Vector,Field_Read 007a 8212 | | Call 0x1,0x12 007b c5fe | | Store 0x2,-0x2 007c 00c8 | | Action Pop_Auxiliary_Range 007d 37f2 |7 | Loop_Decreasing 0x70 007e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 007f 0000 | | .XXX[0x1] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0085 | | .CONST 0x0085 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0002 | | .CONST 0x0002 ; Number of locals 0083 INIT_0080: 0083 029f 020b | | Declare_Subprogram INIT_0208,For_Call 0085 BODY_0080: 0085 00db | | Load_Top At_Offset_3 0086 8214 | | Call 0x1,0x14 0087 6803 |h | Jump_Zero 0x8b 0088 e5fe | | Load 0x2,-0x2 0089 c5ff | | Store 0x2,-0x1 008a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 008b 8402 | | Call 0x2,0x2 008c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 009a | | .CONST 0x009a ; Address of begin 0091 00c1 | | .CONST 0x00c1 ; Address of exception handler 0092 0003 | | .CONST 0x0003 ; Number of locals 0093 INIT_0090: 0093 00db | | Load_Top At_Offset_3 0094 8216 | | Call 0x1,0x16 0095 e20f | | Load 0x1,0xf 0096 02c7 | | Declare_Variable Any 0097 00d9 | | Load_Top At_Offset_1 0098 8222 | " | Call 0x1,0x22 0099 c403 | | Store 0x2,0x3 009a BODY_0090: 009a e5fe | | Load 0x2,-0x2 009b e20f | | Load 0x1,0xf 009c 0119 | | Execute Any,Check_In_Formal_Type 009d e5ff | | Load 0x2,-0x1 009e 0aff | | Execute_Immediate Plus,-0x1 009f 00d8 | | Load_Top At_Offset_0 00a0 00e4 | | Load_Encached Positive_Cache 00a1 0260 | ` | Execute Discrete,In_Type 00a2 7001 |p | Jump_Nonzero 0xa4 00a3 0801 | | Execute_Immediate Raise,0x1 00a4 8223 | # | Call 0x1,0x23 00a5 c403 | | Store 0x2,0x3 00a6 e5fd | | Load 0x2,-0x3 00a7 00d8 | | Load_Top At_Offset_0 00a8 0120 | | Execute Any,Is_Value 00a9 6803 |h | Jump_Zero 0xad 00aa e20f | | Load 0x1,0xf 00ab 0122 | " | Execute Any,Make_Root_Type 00ac 011e | | Execute Any,Convert 00ad 8211 | | Call 0x1,0x11 00ae c5fd | | Store 0x2,-0x3 00af e5fd | | Load 0x2,-0x3 00b0 00d8 | | Load_Top At_Offset_0 00b1 0120 | | Execute Any,Is_Value 00b2 6803 |h | Jump_Zero 0xb6 00b3 e20f | | Load 0x1,0xf 00b4 0122 | " | Execute Any,Make_Root_Type 00b5 011e | | Execute Any,Convert 00b6 00d9 | | Load_Top At_Offset_1 00b7 00d8 | | Load_Top At_Offset_0 00b8 0120 | | Execute Any,Is_Value 00b9 6803 |h | Jump_Zero 0xbd 00ba e20f | | Load 0x1,0xf 00bb 0122 | " | Execute Any,Make_Root_Type 00bc 011e | | Execute Any,Convert 00bd 8213 | | Call 0x1,0x13 00be c403 | | Store 0x2,0x3 00bf c5fd | | Store 0x2,-0x3 00c0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c1 TRAP_0090: 00c1 010e | | Execute Exception,Is_Constraint_Error 00c2 6802 |h | Jump_Zero 0xc5 00c3 e221 | ! | Load 0x1,0x21 00c4 0257 | W | Execute Discrete,Raise 00c5 0100 | | Execute Exception,Raise 00c6 0000 0000 | | .XXX[0x2] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00d9 | | .CONST 0x00d9 ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0003 | | .CONST 0x0003 ; Number of locals 00cb INIT_00c8: 00cb e20f | | Load 0x1,0xf 00cc 02c7 | | Declare_Variable Any 00cd e5fd | | Load 0x2,-0x3 00ce e20f | | Load 0x1,0xf 00cf 0119 | | Execute Any,Check_In_Formal_Type 00d0 e5fe | | Load 0x2,-0x2 00d1 8223 | # | Call 0x1,0x23 00d2 c402 | | Store 0x2,0x2 00d3 e20f | | Load 0x1,0xf 00d4 02c7 | | Declare_Variable Any 00d5 e5fd | | Load 0x2,-0x3 00d6 8216 | | Call 0x1,0x16 00d7 8222 | " | Call 0x1,0x22 00d8 c403 | | Store 0x2,0x3 00d9 BODY_00c8: 00d9 00d8 | | Load_Top At_Offset_0 00da 00d8 | | Load_Top At_Offset_0 00db 0120 | | Execute Any,Is_Value 00dc 6803 |h | Jump_Zero 0xe0 00dd e20f | | Load 0x1,0xf 00de 0122 | " | Execute Any,Make_Root_Type 00df 011e | | Execute Any,Convert 00e0 e5ff | | Load 0x2,-0x1 00e1 8212 | | Call 0x1,0x12 00e2 c403 | | Store 0x2,0x3 00e3 00d8 | | Load_Top At_Offset_0 00e4 00d8 | | Load_Top At_Offset_0 00e5 0120 | | Execute Any,Is_Value 00e6 6803 |h | Jump_Zero 0xea 00e7 e20f | | Load 0x1,0xf 00e8 0122 | " | Execute Any,Make_Root_Type 00e9 011e | | Execute Any,Convert 00ea 00da | | Load_Top At_Offset_2 00eb 00d8 | | Load_Top At_Offset_0 00ec 0120 | | Execute Any,Is_Value 00ed 6803 |h | Jump_Zero 0xf1 00ee e20f | | Load 0x1,0xf 00ef 0122 | " | Execute Any,Make_Root_Type 00f0 011e | | Execute Any,Convert 00f1 8213 | | Call 0x1,0x13 00f2 c402 | | Store 0x2,0x2 00f3 c403 | | Store 0x2,0x3 00f4 00d9 | | Load_Top At_Offset_1 00f5 8215 | | Call 0x1,0x15 00f6 c402 | | Store 0x2,0x2 00f7 00d8 | | Load_Top At_Offset_0 00f8 00d8 | | Load_Top At_Offset_0 00f9 0120 | | Execute Any,Is_Value 00fa 6803 |h | Jump_Zero 0xfe 00fb e20f | | Load 0x1,0xf 00fc 0122 | " | Execute Any,Make_Root_Type 00fd 011e | | Execute Any,Convert 00fe 00da | | Load_Top At_Offset_2 00ff 00d8 | | Load_Top At_Offset_0 0100 0120 | | Execute Any,Is_Value 0101 6803 |h | Jump_Zero 0x105 0102 e20f | | Load 0x1,0xf 0103 0122 | " | Execute Any,Make_Root_Type 0104 011e | | Execute Any,Convert 0105 8213 | | Call 0x1,0x13 0106 c402 | | Store 0x2,0x2 0107 c403 | | Store 0x2,0x3 0108 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0109 0000 0000 | | .BLANK 0000[0x7] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0126 | & | .CONST 0x0126 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0004 | | .CONST 0x0004 ; Number of locals 0113 INIT_0110: 0113 e20f | | Load 0x1,0xf 0114 02c7 | | Declare_Variable Any 0115 e5fd | | Load 0x2,-0x3 0116 e20f | | Load 0x1,0xf 0117 0119 | | Execute Any,Check_In_Formal_Type 0118 e5ff | | Load 0x2,-0x1 0119 8223 | # | Call 0x1,0x23 011a c402 | | Store 0x2,0x2 011b e20f | | Load 0x1,0xf 011c 02c7 | | Declare_Variable Any 011d e5fe | | Load 0x2,-0x2 011e c403 | | Store 0x2,0x3 011f e20f | | Load 0x1,0xf 0120 02c7 | | Declare_Variable Any 0121 e5fe | | Load 0x2,-0x2 0122 e20f | | Load 0x1,0xf 0123 0119 | | Execute Any,Check_In_Formal_Type 0124 8220 | | Call 0x1,0x20 0125 c404 | | Store 0x2,0x4 0126 BODY_0110: 0126 00d9 | | Load_Top At_Offset_1 0127 00d8 | | Load_Top At_Offset_0 0128 0120 | | Execute Any,Is_Value 0129 6803 |h | Jump_Zero 0x12d 012a e20f | | Load 0x1,0xf 012b 0122 | " | Execute Any,Make_Root_Type 012c 011e | | Execute Any,Convert 012d 00db | | Load_Top At_Offset_3 012e 00d8 | | Load_Top At_Offset_0 012f 0120 | | Execute Any,Is_Value 0130 6803 |h | Jump_Zero 0x134 0131 e20f | | Load 0x1,0xf 0132 0122 | " | Execute Any,Make_Root_Type 0133 011e | | Execute Any,Convert 0134 8213 | | Call 0x1,0x13 0135 c402 | | Store 0x2,0x2 0136 c403 | | Store 0x2,0x3 0137 00d9 | | Load_Top At_Offset_1 0138 00d8 | | Load_Top At_Offset_0 0139 0120 | | Execute Any,Is_Value 013a 6803 |h | Jump_Zero 0x13e 013b e20f | | Load 0x1,0xf 013c 0122 | " | Execute Any,Make_Root_Type 013d 011e | | Execute Any,Convert 013e 00d9 | | Load_Top At_Offset_1 013f 00d8 | | Load_Top At_Offset_0 0140 0120 | | Execute Any,Is_Value 0141 6803 |h | Jump_Zero 0x145 0142 e20f | | Load 0x1,0xf 0143 0122 | " | Execute Any,Make_Root_Type 0144 011e | | Execute Any,Convert 0145 8213 | | Call 0x1,0x13 0146 c404 | | Store 0x2,0x4 0147 c403 | | Store 0x2,0x3 0148 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0149 0000 0000 | | .BLANK 0000[0x7] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0155 | U | .CONST 0x0155 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0002 | | .CONST 0x0002 ; Number of locals 0153 INIT_0150: 0153 029f 022b | +| Declare_Subprogram INIT_0228,For_Call 0155 BODY_0150: 0155 e5fe | | Load 0x2,-0x2 0156 8214 | | Call 0x1,0x14 0157 680b |h | Jump_Zero 0x163 0158 e5fe | | Load 0x2,-0x2 0159 00d8 | | Load_Top At_Offset_0 015a 0120 | | Execute Any,Is_Value 015b 6803 |h | Jump_Zero 0x15f 015c e20f | | Load 0x1,0xf 015d 0122 | " | Execute Any,Make_Root_Type 015e 011e | | Execute Any,Convert 015f e5ff | | Load 0x2,-0x1 0160 8212 | | Call 0x1,0x12 0161 c5fe | | Store 0x2,-0x2 0162 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0163 8402 | | Call 0x2,0x2 0164 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016d | m | .CONST 0x016d ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0002 | | .CONST 0x0002 ; Number of locals 016b INIT_0168: 016b 029f 025b | [| Declare_Subprogram INIT_0258,For_Call 016d BODY_0168: 016d 00db | | Load_Top At_Offset_3 016e 8214 | | Call 0x1,0x14 016f 7001 |p | Jump_Nonzero 0x171 0170 8402 | | Call 0x2,0x2 0171 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0172 0000 0000 | | .BLANK 0000[0x6] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 0183 | | .CONST 0x0183 ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0003 | | .CONST 0x0003 ; Number of locals 017b INIT_0178: 017b e20f | | Load 0x1,0xf 017c 02c7 | | Declare_Variable Any 017d 00d8 | | Load_Top At_Offset_0 017e 1c00 | | Execute_Immediate Run_Utility,0x0 017f e20f | | Load 0x1,0xf 0180 02c7 | | Declare_Variable Any 0181 00d8 | | Load_Top At_Offset_0 0182 1c00 | | Execute_Immediate Run_Utility,0x0 0183 BODY_0178: 0183 e5fe | | Load 0x2,-0x2 0184 8214 | | Call 0x1,0x14 0185 6801 |h | Jump_Zero 0x187 0186 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0187 e5ff | | Load 0x2,-0x1 0188 0f01 | | Execute_Immediate Equal,0x1 0189 6804 |h | Jump_Zero 0x18e 018a e5fe | | Load 0x2,-0x2 018b 8215 | | Call 0x1,0x15 018c c5fe | | Store 0x2,-0x2 018d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 018e 00d8 | | Load_Top At_Offset_0 018f 00d8 | | Load_Top At_Offset_0 0190 0120 | | Execute Any,Is_Value 0191 6803 |h | Jump_Zero 0x195 0192 e20f | | Load 0x1,0xf 0193 011e | | Execute Any,Convert 0194 7802 |x | Jump 0x197 0195 e20f | | Load 0x1,0xf 0196 0119 | | Execute Any,Check_In_Formal_Type 0197 e5fe | | Load 0x2,-0x2 0198 00d8 | | Load_Top At_Offset_0 0199 0120 | | Execute Any,Is_Value 019a 6803 |h | Jump_Zero 0x19e 019b e20f | | Load 0x1,0xf 019c 011e | | Execute Any,Convert 019d 7802 |x | Jump 0x1a0 019e e20f | | Load 0x1,0xf 019f 0119 | | Execute Any,Check_In_Formal_Type 01a0 e5ff | | Load 0x2,-0x1 01a1 821a | | Call 0x1,0x1a 01a2 c5fe | | Store 0x2,-0x2 01a3 c403 | | Store 0x2,0x3 01a4 00d8 | | Load_Top At_Offset_0 01a5 8215 | | Call 0x1,0x15 01a6 c402 | | Store 0x2,0x2 01a7 00d9 | | Load_Top At_Offset_1 01a8 00d8 | | Load_Top At_Offset_0 01a9 0120 | | Execute Any,Is_Value 01aa 6803 |h | Jump_Zero 0x1ae 01ab e20f | | Load 0x1,0xf 01ac 011e | | Execute Any,Convert 01ad 7802 |x | Jump 0x1b0 01ae e20f | | Load 0x1,0xf 01af 0119 | | Execute Any,Check_In_Formal_Type 01b0 e5fe | | Load 0x2,-0x2 01b1 00d8 | | Load_Top At_Offset_0 01b2 0120 | | Execute Any,Is_Value 01b3 6803 |h | Jump_Zero 0x1b7 01b4 e20f | | Load 0x1,0xf 01b5 011e | | Execute Any,Convert 01b6 7802 |x | Jump 0x1b9 01b7 e20f | | Load 0x1,0xf 01b8 0119 | | Execute Any,Check_In_Formal_Type 01b9 8219 | | Call 0x1,0x19 01ba c5fe | | Store 0x2,-0x2 01bb c402 | | Store 0x2,0x2 01bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01bd 0000 0000 | | .XXX[0x3] 01bf 0000 | | 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c7 | | .CONST 0x01c7 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0002 | | .CONST 0x0002 ; Number of locals 01c3 INIT_01c0: 01c3 e20f | | Load 0x1,0xf 01c4 02c7 | | Declare_Variable Any 01c5 00db | | Load_Top At_Offset_3 01c6 c402 | | Store 0x2,0x2 01c7 BODY_01c0: 01c7 00cf | | Action Mark_Auxiliary 01c8 7804 |x | Jump 0x1cd 01c9 00d9 | | Load_Top At_Offset_1 01ca 8215 | | Call 0x1,0x15 01cb c402 | | Store 0x2,0x2 01cc 00c9 | | Action Pop_Auxiliary_Loop 01cd 00d9 | | Load_Top At_Offset_1 01ce 8215 | | Call 0x1,0x15 01cf 8214 | | Call 0x1,0x14 01d0 6ff8 |o | Jump_Zero 0x1c9 01d1 00ce | | Action Pop_Auxiliary 01d2 00d8 | | Load_Top At_Offset_0 01d3 e20f | | Load 0x1,0xf 01d4 0119 | | Execute Any,Check_In_Formal_Type 01d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d6 0000 0000 | | .XXX[0x2] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 00da | | Load_Top At_Offset_2 01dc 8210 | | Call 0x1,0x10 01dd e20f | | Load 0x1,0xf 01de 0119 | | Execute Any,Check_In_Formal_Type 01df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e9 | | .CONST 0x01e9 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0002 | | .CONST 0x0002 ; Number of locals 01e3 INIT_01e0: 01e3 e20f | | Load 0x1,0xf 01e4 02c7 | | Declare_Variable Any 01e5 e5fe | | Load 0x2,-0x2 01e6 8216 | | Call 0x1,0x16 01e7 8222 | " | Call 0x1,0x22 01e8 c402 | | Store 0x2,0x2 01e9 BODY_01e0: 01e9 e5fe | | Load 0x2,-0x2 01ea 8214 | | Call 0x1,0x14 01eb 6802 |h | Jump_Zero 0x1ee 01ec e221 | ! | Load 0x1,0x21 01ed 0257 | W | Execute Discrete,Raise 01ee e5fe | | Load 0x2,-0x2 01ef c402 | | Store 0x2,0x2 01f0 00cf | | Action Mark_Auxiliary 01f1 e5ff | | Load 0x2,-0x1 01f2 4802 |H | Short_Literal 0x2 01f3 0263 | c | Execute Discrete,Above_Bound 01f4 700a |p | Jump_Nonzero 0x1ff 01f5 00db | | Load_Top At_Offset_3 01f6 8215 | | Call 0x1,0x15 01f7 c402 | | Store 0x2,0x2 01f8 00db | | Load_Top At_Offset_3 01f9 8214 | | Call 0x1,0x14 01fa 6802 |h | Jump_Zero 0x1fd 01fb e221 | ! | Load 0x1,0x21 01fc 0257 | W | Execute Discrete,Raise 01fd 00c8 | | Action Pop_Auxiliary_Range 01fe 3ff6 |? | Loop_Increasing 0x1f5 01ff 00ce | | Action Pop_Auxiliary 0200 00d8 | | Load_Top At_Offset_0 0201 e20f | | Load 0x1,0xf 0202 0119 | | Execute Any,Check_In_Formal_Type 0203 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0204 0000 0000 | | .BLANK 0000[0x4] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0216 | | .CONST 0x0216 ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0003 | | .CONST 0x0003 ; Number of locals 020b INIT_0208: 020b e20f | | Load 0x1,0xf 020c 02c7 | | Declare_Variable Any 020d e5ff | | Load 0x2,-0x1 020e e20f | | Load 0x1,0xf 020f 0119 | | Execute Any,Check_In_Formal_Type 0210 8220 | | Call 0x1,0x20 0211 c602 | | Store 0x3,0x2 0212 e20f | | Load 0x1,0xf 0213 02c7 | | Declare_Variable Any 0214 e5fe | | Load 0x2,-0x2 0215 c603 | | Store 0x3,0x3 0216 BODY_0208: 0216 00d8 | | Load_Top At_Offset_0 0217 00d8 | | Load_Top At_Offset_0 0218 0120 | | Execute Any,Is_Value 0219 6803 |h | Jump_Zero 0x21d 021a e20f | | Load 0x1,0xf 021b 0122 | " | Execute Any,Make_Root_Type 021c 011e | | Execute Any,Convert 021d 00da | | Load_Top At_Offset_2 021e 00d8 | | Load_Top At_Offset_0 021f 0120 | | Execute Any,Is_Value 0220 6803 |h | Jump_Zero 0x224 0221 e20f | | Load 0x1,0xf 0222 0122 | " | Execute Any,Make_Root_Type 0223 011e | | Execute Any,Convert 0224 8213 | | Call 0x1,0x13 0225 c602 | | Store 0x3,0x2 0226 c603 | | Store 0x3,0x3 0227 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 0238 | 8 | .CONST 0x0238 ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0003 | | .CONST 0x0003 ; Number of locals 022b INIT_0228: 022b e20f | | Load 0x1,0xf 022c 02c7 | | Declare_Variable Any 022d e5fe | | Load 0x2,-0x2 022e e20f | | Load 0x1,0xf 022f 0119 | | Execute Any,Check_In_Formal_Type 0230 8220 | | Call 0x1,0x20 0231 c602 | | Store 0x3,0x2 0232 e20f | | Load 0x1,0xf 0233 02c7 | | Declare_Variable Any 0234 e5fe | | Load 0x2,-0x2 0235 8216 | | Call 0x1,0x16 0236 8222 | " | Call 0x1,0x22 0237 c603 | | Store 0x3,0x3 0238 BODY_0228: 0238 00d8 | | Load_Top At_Offset_0 0239 00d8 | | Load_Top At_Offset_0 023a 0120 | | Execute Any,Is_Value 023b 6803 |h | Jump_Zero 0x23f 023c e20f | | Load 0x1,0xf 023d 0122 | " | Execute Any,Make_Root_Type 023e 011e | | Execute Any,Convert 023f e5ff | | Load 0x2,-0x1 0240 8212 | | Call 0x1,0x12 0241 c603 | | Store 0x3,0x3 0242 00d8 | | Load_Top At_Offset_0 0243 00d8 | | Load_Top At_Offset_0 0244 0120 | | Execute Any,Is_Value 0245 6803 |h | Jump_Zero 0x249 0246 e20f | | Load 0x1,0xf 0247 0122 | " | Execute Any,Make_Root_Type 0248 011e | | Execute Any,Convert 0249 00da | | Load_Top At_Offset_2 024a 00d8 | | Load_Top At_Offset_0 024b 0120 | | Execute Any,Is_Value 024c 6803 |h | Jump_Zero 0x250 024d e20f | | Load 0x1,0xf 024e 0122 | " | Execute Any,Make_Root_Type 024f 011e | | Execute Any,Convert 0250 8213 | | Call 0x1,0x13 0251 c602 | | Store 0x3,0x2 0252 c603 | | Store 0x3,0x3 0253 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0254 0000 0000 | | .BLANK 0000[0x4] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 0266 | f | .CONST 0x0266 ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0003 | | .CONST 0x0003 ; Number of locals 025b INIT_0258: 025b e20f | | Load 0x1,0xf 025c 02c7 | | Declare_Variable Any 025d e5fe | | Load 0x2,-0x2 025e e20f | | Load 0x1,0xf 025f 0119 | | Execute Any,Check_In_Formal_Type 0260 8220 | | Call 0x1,0x20 0261 c602 | | Store 0x3,0x2 0262 e20f | | Load 0x1,0xf 0263 02c7 | | Declare_Variable Any 0264 e5ff | | Load 0x2,-0x1 0265 c603 | | Store 0x3,0x3 0266 BODY_0258: 0266 00d8 | | Load_Top At_Offset_0 0267 00d8 | | Load_Top At_Offset_0 0268 0120 | | Execute Any,Is_Value 0269 6803 |h | Jump_Zero 0x26d 026a e20f | | Load 0x1,0xf 026b 0122 | " | Execute Any,Make_Root_Type 026c 011e | | Execute Any,Convert 026d 00da | | Load_Top At_Offset_2 026e 00d8 | | Load_Top At_Offset_0 026f 0120 | | Execute Any,Is_Value 0270 6803 |h | Jump_Zero 0x274 0271 e20f | | Load 0x1,0xf 0272 0122 | " | Execute Any,Make_Root_Type 0273 011e | | Execute Any,Convert 0274 8213 | | Call 0x1,0x13 0275 c602 | | Store 0x3,0x2 0276 c603 | | Store 0x3,0x3 0277 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0278 ; -------------------------------------------------------------------------------------- 0278 ; Debug Table 0278 ; -------------------------------------------------------------------------------------- 0278 0004 000a | | .DEBUG4 0x0004,0x000a,0x03ce,0x0000,0x0001,0x0000 027e 0000 0000 | | .BLANK 0000[0x182]