|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_4decfa
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0208 | | .CONST 0x0208 ; 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 00a6 | | .CONST 0x00a6 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0022 | " | .CONST 0x0022 ; Number of locals 000b INIT_0008: 000b 4801 |H | Short_Literal 0x1 000c 4805 |H | Short_Literal 0x5 000d 00e4 | | Load_Encached Positive_Cache 000e 03f9 | | Declare_Type Discrete,Constrained,Visible 000f 4801 |H | Short_Literal 0x1 0010 4805 |H | Short_Literal 0x5 0011 00da | | Load_Top At_Offset_2 0012 02a0 | | Declare_Subprogram Null_Subprogram 0013 4801 |H | Short_Literal 0x1 0014 035e | ^ | Declare_Type Array,Defined,Visible 0015 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0017 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0019 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 001b 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 001d 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 001f 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0021 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0023 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0025 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0027 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0029 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 002b 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 002d 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 002f 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0031 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 0033 00c4 | | Action Make_Default 0034 e20e | | Load 0x1,0xe 0035 0336 | 6 | Declare_Variable Array,Visible 0036 00d8 | | Load_Top At_Offset_0 0037 0335 | 5 | Declare_Variable Array,Duplicate 0038 00cd | | Action Spare6_Action 0039 4801 |H | Short_Literal 0x1 003a 4801 |H | Short_Literal 0x1 003b 00da | | Load_Top At_Offset_2 003c 01d6 | | Execute Vector,Field_Write 003d 4802 |H | Short_Literal 0x2 003e 4802 |H | Short_Literal 0x2 003f 00da | | Load_Top At_Offset_2 0040 01d6 | | Execute Vector,Field_Write 0041 4803 |H | Short_Literal 0x3 0042 4803 |H | Short_Literal 0x3 0043 00da | | Load_Top At_Offset_2 0044 01d6 | | Execute Vector,Field_Write 0045 4804 |H | Short_Literal 0x4 0046 4804 |H | Short_Literal 0x4 0047 00da | | Load_Top At_Offset_2 0048 01d6 | | Execute Vector,Field_Write 0049 4805 |H | Short_Literal 0x5 004a 4805 |H | Short_Literal 0x5 004b 00da | | Load_Top At_Offset_2 004c 01d6 | | Execute Vector,Field_Write 004d 00d9 | | Load_Top At_Offset_1 004e 01d4 | | Execute Vector,Structure_Write 004f 4801 |H | Short_Literal 0x1 0050 4805 |H | Short_Literal 0x5 0051 e002 | | Load 0x0,0x2 0052 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call 0054 4801 |H | Short_Literal 0x1 0055 035e | ^ | Declare_Type Array,Defined,Visible 0056 00d8 | | Load_Top At_Offset_0 0057 0336 | 6 | Declare_Variable Array,Visible 0058 00d8 | | Load_Top At_Offset_0 0059 0335 | 5 | Declare_Variable Array,Duplicate 005a 00cd | | Action Spare6_Action 005b e003 | | Load 0x0,0x3 005c 4801 |H | Short_Literal 0x1 005d 00da | | Load_Top At_Offset_2 005e 01d6 | | Execute Vector,Field_Write 005f e003 | | Load 0x0,0x3 0060 4802 |H | Short_Literal 0x2 0061 00da | | Load_Top At_Offset_2 0062 01d6 | | Execute Vector,Field_Write 0063 e003 | | Load 0x0,0x3 0064 4803 |H | Short_Literal 0x3 0065 00da | | Load_Top At_Offset_2 0066 01d6 | | Execute Vector,Field_Write 0067 e003 | | Load 0x0,0x3 0068 4804 |H | Short_Literal 0x4 0069 00da | | Load_Top At_Offset_2 006a 01d6 | | Execute Vector,Field_Write 006b e003 | | Load 0x0,0x3 006c 4805 |H | Short_Literal 0x5 006d 00da | | Load_Top At_Offset_2 006e 01d6 | | Execute Vector,Field_Write 006f 00d9 | | Load_Top At_Offset_1 0070 01d4 | | Execute Vector,Structure_Write 0071 00d9 | | Load_Top At_Offset_1 0072 e20e | | Load 0x1,0xe 0073 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 0075 4802 |H | Short_Literal 0x2 0076 032e | . | Declare_Type Record,Defined,Visible 0077 00d8 | | Load_Top At_Offset_0 0078 0322 | " | Declare_Variable Record 0079 00da | | Load_Top At_Offset_2 007a 00da | | Load_Top At_Offset_2 007b 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 007c 0119 | | Execute Any,Check_In_Formal_Type 007d 00d9 | | Load_Top At_Offset_1 007e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 007f e21f | | Load 0x1,0x1f 0080 00da | | Load_Top At_Offset_2 0081 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 0082 0119 | | Execute Any,Check_In_Formal_Type 0083 00d9 | | Load_Top At_Offset_1 0084 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0085 0129 | ) | Execute Any,Make_Visible 0086 c21e | | Store 0x1,0x1e 0087 00bf | | Action Accept_Activation 0088 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0089 00c7 | | Action Elaborate_Subprogram 008a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 008b 00c7 | | Action Elaborate_Subprogram 008c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 008d 00c7 | | Action Elaborate_Subprogram 008e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 008f 00c7 | | Action Elaborate_Subprogram 0090 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0091 00c7 | | Action Elaborate_Subprogram 0092 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0093 00c7 | | Action Elaborate_Subprogram 0094 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0095 00c7 | | Action Elaborate_Subprogram 0096 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0097 00c7 | | Action Elaborate_Subprogram 0098 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0099 00c7 | | Action Elaborate_Subprogram 009a 1d18 | | Execute_Immediate Reference_Lex_1,0x18 009b 00c7 | | Action Elaborate_Subprogram 009c 1d19 | | Execute_Immediate Reference_Lex_1,0x19 009d 00c7 | | Action Elaborate_Subprogram 009e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 009f 00c7 | | Action Elaborate_Subprogram 00a0 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00a1 00c7 | | Action Elaborate_Subprogram 00a2 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00a3 00c7 | | Action Elaborate_Subprogram 00a4 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00a5 00c7 | | Action Elaborate_Subprogram 00a6 BODY_0008: 00a6 00bc | | Action Signal_Activated 00a7 00bb | | Action Signal_Completion 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 00ac 8004 | | Call 0x0,0x4 00ad 4801 |H | Short_Literal 0x1 00ae e5fe | | Load 0x2,-0x2 00af 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00b0 01d6 | | Execute Vector,Field_Write 00b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b2 0000 0000 | | .BLANK 0000[0x6] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 00da | | Load_Top At_Offset_2 00bc 8004 | | Call 0x0,0x4 00bd 4802 |H | Short_Literal 0x2 00be e5fe | | Load 0x2,-0x2 00bf 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00c0 01d6 | | Execute Vector,Field_Write 00c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c2 0000 0000 | | .BLANK 0000[0x6] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00da | | Load_Top At_Offset_2 00cc 8004 | | Call 0x0,0x4 00cd 4803 |H | Short_Literal 0x3 00ce e5fe | | Load 0x2,-0x2 00cf 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00d0 01d6 | | Execute Vector,Field_Write 00d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d2 0000 0000 | | .BLANK 0000[0x6] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 00da | | Load_Top At_Offset_2 00dc 8004 | | Call 0x0,0x4 00dd 4804 |H | Short_Literal 0x4 00de e5fe | | Load 0x2,-0x2 00df 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00e0 01d6 | | Execute Vector,Field_Write 00e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e2 0000 0000 | | .BLANK 0000[0x6] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 00da | | Load_Top At_Offset_2 00ec 8004 | | Call 0x0,0x4 00ed 4805 |H | Short_Literal 0x5 00ee e5fe | | Load 0x2,-0x2 00ef 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00f0 01d6 | | Execute Vector,Field_Write 00f1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f2 0000 0000 | | .BLANK 0000[0x6] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 00da | | Load_Top At_Offset_2 00fc e5fe | | Load 0x2,-0x2 00fd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ff 0000 | | .XXX[0x1] 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 e5fd | | Load 0x2,-0x3 0105 821a | | Call 0x1,0x1a 0106 6807 |h | Jump_Zero 0x10e 0107 00da | | Load_Top At_Offset_2 0108 e5fd | | Load 0x2,-0x3 0109 8219 | | Call 0x1,0x19 010a e5fe | | Load 0x2,-0x2 010b e5fd | | Load 0x2,-0x3 010c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 010d 01d6 | | Execute Vector,Field_Write 010e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 010f 0000 | | .XXX[0x1] 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 4805 |H | Short_Literal 0x5 0115 4801 |H | Short_Literal 0x1 0116 0007 | | Action Break_Optional 0117 00d8 | | Load_Top At_Offset_0 0118 e5ff | | Load 0x2,-0x1 0119 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 011a 01d5 | | Execute Vector,Field_Reference 011b 00d8 | | Load_Top At_Offset_0 011c 8005 | | Call 0x0,0x5 011d 00d2 | | Pop_Control Pop_Count_2 011e 00c8 | | Action Pop_Auxiliary_Range 011f 3ff7 |? | Loop_Increasing 0x117 0120 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0121 0000 0000 | | .BLANK 0000[0x7] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 0092 01f7 | | Action Push_String_Extended,0x1f7 ; "Order : " 012d 00db | | Load_Top At_Offset_3 012e 8218 | | Call 0x1,0x18 012f 01cc | | Execute Vector,Catenate 0130 e006 | | Load 0x0,0x6 0131 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0132 00cf | | Action Mark_Auxiliary 0133 4805 |H | Short_Literal 0x5 0134 4801 |H | Short_Literal 0x1 0135 0007 | | Action Break_Optional 0136 0092 01f8 | | Action Push_String_Extended,0x1f8 ; " " 0138 00d9 | | Load_Top At_Offset_1 0139 e5ff | | Load 0x2,-0x1 013a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 013b 01d7 | | Execute Vector,Field_Read 013c 00e0 | | Load_Encached Standard_Cache 013d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 013e 01cc | | Execute Vector,Catenate 013f e006 | | Load 0x0,0x6 0140 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0141 00c8 | | Action Pop_Auxiliary_Range 0142 3ff3 |? | Loop_Increasing 0x136 0143 00ce | | Action Pop_Auxiliary 0144 4801 |H | Short_Literal 0x1 0145 e006 | | Load 0x0,0x6 0146 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0147 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014f | O | .CONST 0x014f ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0002 | | .CONST 0x0002 ; Number of locals 014b INIT_0148: 014b e002 | | Load 0x0,0x2 014c 0322 | " | Declare_Variable Record 014d 00d8 | | Load_Top At_Offset_0 014e 1c00 | | Execute_Immediate Run_Utility,0x0 014f BODY_0148: 014f 4805 |H | Short_Literal 0x5 0150 e5ff | | Load 0x2,-0x1 0151 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0152 01d5 | | Execute Vector,Field_Reference 0153 0092 01f8 | | Action Push_String_Extended,0x1f8 ; " " 0155 4804 |H | Short_Literal 0x4 0156 e5ff | | Load 0x2,-0x1 0157 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0158 01d5 | | Execute Vector,Field_Reference 0159 0092 01f8 | | Action Push_String_Extended,0x1f8 ; " " 015b 4803 |H | Short_Literal 0x3 015c e5ff | | Load 0x2,-0x1 015d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 015e 01d5 | | Execute Vector,Field_Reference 015f 0092 01f9 | | Action Push_String_Extended,0x1f9 ; " " 0161 4802 |H | Short_Literal 0x2 0162 e5ff | | Load 0x2,-0x1 0163 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0164 01d5 | | Execute Vector,Field_Reference 0165 0092 01f8 | | Action Push_String_Extended,0x1f8 ; " " 0167 4801 |H | Short_Literal 0x1 0168 e5ff | | Load 0x2,-0x1 0169 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 016a 01d5 | | Execute Vector,Field_Reference 016b e402 | | Load 0x2,0x2 016c 8007 | | Call 0x0,0x7 016d 8008 | | Call 0x0,0x8 016e 8007 | | Call 0x0,0x7 016f 8008 | | Call 0x0,0x8 0170 8007 | | Call 0x0,0x7 0171 8008 | | Call 0x0,0x8 0172 8007 | | Call 0x0,0x7 0173 8008 | | Call 0x0,0x8 0174 8007 | | Call 0x0,0x7 0175 00d9 | | Load_Top At_Offset_1 0176 017d | } | Execute Record,Structure_Write 0177 00d8 | | Load_Top At_Offset_0 0178 8009 | | Call 0x0,0x9 0179 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017a 0000 0000 | | .BLANK 0000[0x6] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0185 | | .CONST 0x0185 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0002 | | .CONST 0x0002 ; Number of locals 0183 INIT_0180: 0183 00e3 | | Load_Encached Natural_Cache 0184 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0185 BODY_0180: 0185 00cf | | Action Mark_Auxiliary 0186 4805 |H | Short_Literal 0x5 0187 4801 |H | Short_Literal 0x1 0188 0007 | | Action Break_Optional 0189 00d8 | | Load_Top At_Offset_0 018a e5ff | | Load 0x2,-0x1 018b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 018c 01d5 | | Execute Vector,Field_Reference 018d 8009 | | Call 0x0,0x9 018e e5fe | | Load 0x2,-0x2 018f 01df | | Execute Vector,Equal 0190 6802 |h | Jump_Zero 0x193 0191 00d8 | | Load_Top At_Offset_0 0192 a402 | | Store_Unchecked 0x2,0x2 0193 00c8 | | Action Pop_Auxiliary_Range 0194 3ff4 |? | Loop_Increasing 0x189 0195 00ce | | Action Pop_Auxiliary 0196 00d8 | | Load_Top At_Offset_0 0197 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00db | | Load_Top At_Offset_3 019c 00db | | Load_Top At_Offset_3 019d 8219 | | Call 0x1,0x19 019e 0e00 | | Execute_Immediate Not_Equal,0x0 019f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 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 00db | | Load_Top At_Offset_3 01a4 00db | | Load_Top At_Offset_3 01a5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01a6 01d5 | | Execute Vector,Field_Reference 01a7 8009 | | Call 0x0,0x9 01a8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a9 0000 0000 | | .BLANK 0000[0x7] 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 00db | | Load_Top At_Offset_3 01b4 00db | | Load_Top At_Offset_3 01b5 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01b6 01d7 | | Execute Vector,Field_Read 01b7 00db | | Load_Top At_Offset_3 01b8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01b9 01d5 | | Execute Vector,Field_Reference 01ba 8009 | | Call 0x0,0x9 01bb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01bc 0000 0000 | | .BLANK 0000[0x4] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 00da | | Load_Top At_Offset_2 01c4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01c5 0335 | 5 | Declare_Variable Array,Duplicate 01c6 00cd | | Action Spare6_Action 01c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 00d1 | | Pop_Control Pop_Count_1 01cc 00da | | Load_Top At_Offset_2 01cd 01dc | | Execute Vector,Last 01ce 00db | | Load_Top At_Offset_3 01cf 01dd | | Execute Vector,First 01d0 0263 | c | Execute Discrete,Above_Bound 01d1 7006 |p | Jump_Nonzero 0x1d8 01d2 00d8 | | Load_Top At_Offset_0 01d3 e5ff | | Load 0x2,-0x1 01d4 01d5 | | Execute Vector,Field_Reference 01d5 1c00 | | Execute_Immediate Run_Utility,0x0 01d6 0a01 | | Execute_Immediate Plus,0x1 01d7 7ff8 | | Jump 0x1d0 01d8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01d9 0000 0000 | | .BLANK 0000[0x7] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 4601 |F | Jump_Case 0x2 01e4 7801 |x | Jump 0x1e6 ; case 0x0 01e5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01e6 e221 | ! | Load 0x1,0x21 01e7 00db | | Load_Top At_Offset_3 01e8 00d9 | | Load_Top At_Offset_1 01e9 00d9 | | Load_Top At_Offset_1 01ea 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 01eb 0119 | | Execute Any,Check_In_Formal_Type 01ec 00d1 | | Pop_Control Pop_Count_1 01ed 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01ee e21f | | Load 0x1,0x1f 01ef 00db | | Load_Top At_Offset_3 01f0 00d9 | | Load_Top At_Offset_1 01f1 00d9 | | Load_Top At_Offset_1 01f2 3001 |0 | Execute Record,Field_Type,Field_Number 0x1 01f3 0119 | | Execute Any,Check_In_Formal_Type 01f4 00d1 | | Pop_Control Pop_Count_1 01f5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01f6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01f7 ; -------------------------------------------------------------------------------------- 01f7 ; STRING TABLE 01f7 ; -------------------------------------------------------------------------------------- 01f7 0008 | | .STRTAB 0x0008->0x01fb ; "Order : " 01f8 000e | | .STRTAB 0x000e->0x01ff ; " " 01f9 000d | | .STRTAB 0x000d->0x01ff ; " " 01fa 000d | | .STREND 0x000d->0x0200 01fb 4f72 6465 |Orde| .STRTAB_STRINGS 0201 0000 0000 | | .BLANK 0000[0x7] 0208 ; -------------------------------------------------------------------------------------- 0208 ; Debug Table 0208 ; -------------------------------------------------------------------------------------- 0208 0004 0008 | | .DEBUG4 0x0004,0x0008,0xe7df,0x0000,0x0001,0x0013 020e 000b 025a | Z| .DBG4T 0x000b,0x025a,0x8000,0x8000 0212 0088 028a | | .DBG4T 0x0088,0x028a,0x8000,0x0000 0216 00ab 029b | | .DBG4T 0x00ab,0x029b,0x0001,0x0000 021a 00bb 029e | | .DBG4T 0x00bb,0x029e,0x0001,0x0000 021e 00cb 02a1 | | .DBG4T 0x00cb,0x02a1,0x0001,0x0000 0222 00db 02a4 | | .DBG4T 0x00db,0x02a4,0x0001,0x0000 0226 00eb 02a7 | | .DBG4T 0x00eb,0x02a7,0x0001,0x0000 022a 00fb 02aa | | .DBG4T 0x00fb,0x02aa,0x0001,0x0000 022e 0103 02ad | | .DBG4T 0x0103,0x02ad,0x0001,0x0000 0232 0113 02b1 | | .DBG4T 0x0113,0x02b1,0x0001,0x0000 0236 012b 02b5 | + | .DBG4T 0x012b,0x02b5,0x0001,0x0000 023a 014b 02bb | K | .DBG4T 0x014b,0x02bb,0x0002,0x0000 023e 0183 02c0 | | .DBG4T 0x0183,0x02c0,0x0002,0x0000 0242 019b 02c7 | | .DBG4T 0x019b,0x02c7,0x0002,0x0000 0246 01a3 02ca | | .DBG4T 0x01a3,0x02ca,0x0002,0x0000 024a 01b3 02cd | | .DBG4T 0x01b3,0x02cd,0x0002,0x0000 024e 01c3 02d0 | | .DBG4T 0x01c3,0x02d0,0x0002,0x0000 0252 01cb 0000 | | .DBG4T 0x01cb,0x0000,0x0005,0x0000 0256 01e3 0000 | | .DBG4T 0x01e3,0x0000,0x0005,0x0000 025a ; -------------------------------------------------------------------------------------- 025a ; Debug chain 025a ; -------------------------------------------------------------------------------------- 025a 0017 0000 | | .DBGLEN 0x0017,0x0000 025c 000b 000f | | .DBGLNO 0x000b,0x000f,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0034,0x004f,0x0056,0x0071,0x0077 0273 0001 0002 | | .XXX[0x17] 0275 0004 0005 | | 0277 0006 0007 | | 0279 0008 0009 | | 027b 000a 000b | | 027d 000c 000d | | 027f 000e 000f | | 0281 0010 0011 | | 0283 0012 0013 | | 0285 0014 0015 | | 0287 0016 0017 | | 0289 0018 | | 028a ; -------------------------------------------------------------------------------------- 028a ; Debug chain 028a ; -------------------------------------------------------------------------------------- 028a 000f 0000 | | .DBGLEN 0x000f,0x0000 028c 0088 008a | | .DBGLNO 0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2,0x00a4 029b ; -------------------------------------------------------------------------------------- 029b ; Debug chain 029b ; -------------------------------------------------------------------------------------- 029b 0000 0001 | | .DBGLEN 0x0000,0x0001 029d 00ab | | .DBGLNO 0x00ab 029e ; -------------------------------------------------------------------------------------- 029e ; Debug chain 029e ; -------------------------------------------------------------------------------------- 029e 0000 0001 | | .DBGLEN 0x0000,0x0001 02a0 00bb | | .DBGLNO 0x00bb 02a1 ; -------------------------------------------------------------------------------------- 02a1 ; Debug chain 02a1 ; -------------------------------------------------------------------------------------- 02a1 0000 0001 | | .DBGLEN 0x0000,0x0001 02a3 00cb | | .DBGLNO 0x00cb 02a4 ; -------------------------------------------------------------------------------------- 02a4 ; Debug chain 02a4 ; -------------------------------------------------------------------------------------- 02a4 0000 0001 | | .DBGLEN 0x0000,0x0001 02a6 00db | | .DBGLNO 0x00db 02a7 ; -------------------------------------------------------------------------------------- 02a7 ; Debug chain 02a7 ; -------------------------------------------------------------------------------------- 02a7 0000 0001 | | .DBGLEN 0x0000,0x0001 02a9 00eb | | .DBGLNO 0x00eb 02aa ; -------------------------------------------------------------------------------------- 02aa ; Debug chain 02aa ; -------------------------------------------------------------------------------------- 02aa 0000 0001 | | .DBGLEN 0x0000,0x0001 02ac 00fb | | .DBGLNO 0x00fb 02ad ; -------------------------------------------------------------------------------------- 02ad ; Debug chain 02ad ; -------------------------------------------------------------------------------------- 02ad 0000 0002 | | .DBGLEN 0x0000,0x0002 02af 0103 0107 | | .DBGLNO 0x0103,0x0107 02b1 ; -------------------------------------------------------------------------------------- 02b1 ; Debug chain 02b1 ; -------------------------------------------------------------------------------------- 02b1 0000 0002 | | .DBGLEN 0x0000,0x0002 02b3 0114 0117 | | .DBGLNO 0x0114,0x0117 02b5 ; -------------------------------------------------------------------------------------- 02b5 ; Debug chain 02b5 ; -------------------------------------------------------------------------------------- 02b5 0000 0004 | | .DBGLEN 0x0000,0x0004 02b7 012b 0133 | + 3| .DBGLNO 0x012b,0x0133,0x0136,0x0144 02bb ; -------------------------------------------------------------------------------------- 02bb ; Debug chain 02bb ; -------------------------------------------------------------------------------------- 02bb 0001 0002 | | .DBGLEN 0x0001,0x0002 02bd 014b 014f | K O| .DBGLNO 0x014b,0x014f,0x0177 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; Debug chain 02c0 ; -------------------------------------------------------------------------------------- 02c0 0001 0004 | | .DBGLEN 0x0001,0x0004 02c2 0183 0186 | | .DBGLNO 0x0183,0x0186,0x0189,0x0191,0x0196 02c7 ; -------------------------------------------------------------------------------------- 02c7 ; Debug chain 02c7 ; -------------------------------------------------------------------------------------- 02c7 0000 0001 | | .DBGLEN 0x0000,0x0001 02c9 019b | | .DBGLNO 0x019b 02ca ; -------------------------------------------------------------------------------------- 02ca ; Debug chain 02ca ; -------------------------------------------------------------------------------------- 02ca 0000 0001 | | .DBGLEN 0x0000,0x0001 02cc 01a3 | | .DBGLNO 0x01a3 02cd ; -------------------------------------------------------------------------------------- 02cd ; Debug chain 02cd ; -------------------------------------------------------------------------------------- 02cd 0000 0001 | | .DBGLEN 0x0000,0x0001 02cf 01b3 | | .DBGLNO 0x01b3 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; Debug chain 02d0 ; -------------------------------------------------------------------------------------- 02d0 0000 0001 | | .DBGLEN 0x0000,0x0001 02d2 01c3 | | .DBGLNO 0x01c3 02d3 0000 0000 | | .BLANK 0000[0x12d]