|
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_05d0f0
└─⟦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 0298 | | .CONST 0x0298 ; 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 005d | ] | .CONST 0x005d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001d | | .CONST 0x001d ; Number of locals 000b INIT_0008: 000b 4805 |H | Short_Literal 0x5 000c 032b | + | Declare_Type Record,Incomplete,Visible 000d 4801 |H | Short_Literal 0x1 000e 4807 |H | Short_Literal 0x7 000f 00e9 | | Load_Encached String_Cache 0010 035c | \ | Declare_Type Array,Constrained,Visible 0011 4800 |H | Short_Literal 0x0 0012 487f |H | Short_Literal 0x7f 0013 e002 | | Load 0x0,0x2 0014 03f9 | | Declare_Type Discrete,Constrained,Visible 0015 4801 |H | Short_Literal 0x1 0016 4808 |H | Short_Literal 0x8 0017 e002 | | Load 0x0,0x2 0018 03f9 | | Declare_Type Discrete,Constrained,Visible 0019 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 001b 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 001d 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 001f 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0021 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0023 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0025 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0027 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0029 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 002b 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated 002d 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 002f 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 0031 e210 | | Load 0x1,0x10 0032 e20d | | Load 0x1,0xd 0033 00d8 | | Load_Top At_Offset_0 0034 e20d | | Load 0x1,0xd 0035 029f 0273 | s| Declare_Subprogram INIT_0270,For_Call 0037 4804 |H | Short_Literal 0x4 0038 0328 | ( | Declare_Type Record,Defined_Incomplete,Visible 0039 e003 | | Load 0x0,0x3 003a 00d8 | | Load_Top At_Offset_0 003b e003 | | Load 0x0,0x3 003c 00d8 | | Load_Top At_Offset_0 003d e20f | | Load 0x1,0xf 003e 029f 0283 | | Declare_Subprogram INIT_0280,For_Call 0040 e20d | | Load 0x1,0xd 0041 0326 | & | Complete_Type Record,By_Defining 0042 00d8 | | Load_Top At_Offset_0 0043 0324 | $ | Complete_Type Record,By_Component_Completion 0044 00bf | | Action Accept_Activation 0045 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0046 00c7 | | Action Elaborate_Subprogram 0047 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0048 00c7 | | Action Elaborate_Subprogram 0049 1d13 | | Execute_Immediate Reference_Lex_1,0x13 004a 00c7 | | Action Elaborate_Subprogram 004b 1d14 | | Execute_Immediate Reference_Lex_1,0x14 004c 00c7 | | Action Elaborate_Subprogram 004d 1d17 | | Execute_Immediate Reference_Lex_1,0x17 004e 00c7 | | Action Elaborate_Subprogram 004f 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0050 00c7 | | Action Elaborate_Subprogram 0051 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0052 00c7 | | Action Elaborate_Subprogram 0053 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0054 00c7 | | Action Elaborate_Subprogram 0055 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0056 00c7 | | Action Elaborate_Subprogram 0057 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0058 00c7 | | Action Elaborate_Subprogram 0059 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 005a 00c7 | | Action Elaborate_Subprogram 005b 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 005c 00c7 | | Action Elaborate_Subprogram 005d BODY_0008: 005d 00bc | | Action Signal_Activated 005e 00bb | | Action Signal_Completion 005f 0000 | | .XXX[0x1] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 e21d | | Load 0x1,0x1d 0064 0322 | " | Declare_Variable Record 0065 00db | | Load_Top At_Offset_3 0066 00d9 | | Load_Top At_Offset_1 0067 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0068 e5fe | | Load 0x2,-0x2 0069 00d9 | | Load_Top At_Offset_1 006a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 006b e5fd | | Load 0x2,-0x3 006c 00d9 | | Load_Top At_Offset_1 006d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 006e e5fc | | Load 0x2,-0x4 006f 00d9 | | Load_Top At_Offset_1 0070 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0071 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0072 0000 0000 | | .BLANK 0000[0x6] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007d | } | .CONST 0x007d ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0002 | | .CONST 0x0002 ; Number of locals 007b INIT_0078: 007b e20f | | Load 0x1,0xf 007c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 007d BODY_0078: 007d 4801 |H | Short_Literal 0x1 007e e5fb | | Load 0x2,-0x5 007f 01d7 | | Execute Vector,Field_Read 0080 0f4c | L | Execute_Immediate Equal,0x4c 0081 6803 |h | Jump_Zero 0x85 0082 00d8 | | Load_Top At_Offset_0 0083 0a40 | @ | Execute_Immediate Plus,0x40 0084 0059 | Y | Store_Top Discrete,At_Offset_1 0085 4802 |H | Short_Literal 0x2 0086 e5fb | | Load 0x2,-0x5 0087 01d7 | | Execute Vector,Field_Read 0088 0f4d | M | Execute_Immediate Equal,0x4d 0089 6803 |h | Jump_Zero 0x8d 008a 00d8 | | Load_Top At_Offset_0 008b 0a20 | | Execute_Immediate Plus,0x20 008c 0059 | Y | Store_Top Discrete,At_Offset_1 008d 4803 |H | Short_Literal 0x3 008e e5fb | | Load 0x2,-0x5 008f 01d7 | | Execute Vector,Field_Read 0090 0f4d | M | Execute_Immediate Equal,0x4d 0091 6803 |h | Jump_Zero 0x95 0092 00d8 | | Load_Top At_Offset_0 0093 0a10 | | Execute_Immediate Plus,0x10 0094 0059 | Y | Store_Top Discrete,At_Offset_1 0095 4804 |H | Short_Literal 0x4 0096 e5fb | | Load 0x2,-0x5 0097 01d7 | | Execute Vector,Field_Read 0098 0f4a | J | Execute_Immediate Equal,0x4a 0099 6803 |h | Jump_Zero 0x9d 009a 00d8 | | Load_Top At_Offset_0 009b 0a08 | | Execute_Immediate Plus,0x8 009c 0059 | Y | Store_Top Discrete,At_Offset_1 009d 4805 |H | Short_Literal 0x5 009e e5fb | | Load 0x2,-0x5 009f 01d7 | | Execute Vector,Field_Read 00a0 0f56 | V | Execute_Immediate Equal,0x56 00a1 6803 |h | Jump_Zero 0xa5 00a2 00d8 | | Load_Top At_Offset_0 00a3 0a04 | | Execute_Immediate Plus,0x4 00a4 0059 | Y | Store_Top Discrete,At_Offset_1 00a5 4806 |H | Short_Literal 0x6 00a6 e5fb | | Load 0x2,-0x5 00a7 01d7 | | Execute Vector,Field_Read 00a8 0f53 | S | Execute_Immediate Equal,0x53 00a9 6803 |h | Jump_Zero 0xad 00aa 00d8 | | Load_Top At_Offset_0 00ab 0a02 | | Execute_Immediate Plus,0x2 00ac 0059 | Y | Store_Top Discrete,At_Offset_1 00ad 4807 |H | Short_Literal 0x7 00ae e5fb | | Load 0x2,-0x5 00af 01d7 | | Execute Vector,Field_Read 00b0 0f44 | D | Execute_Immediate Equal,0x44 00b1 6803 |h | Jump_Zero 0xb5 00b2 00d8 | | Load_Top At_Offset_0 00b3 0a01 | | Execute_Immediate Plus,0x1 00b4 0059 | Y | Store_Top Discrete,At_Offset_1 00b5 e20d | | Load 0x1,0xd 00b6 0322 | " | Declare_Variable Record 00b7 e5ff | | Load 0x2,-0x1 00b8 00d9 | | Load_Top At_Offset_1 00b9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00ba e5fe | | Load 0x2,-0x2 00bb 00d9 | | Load_Top At_Offset_1 00bc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00bd e5fd | | Load 0x2,-0x3 00be 00d9 | | Load_Top At_Offset_1 00bf 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00c0 e5fc | | Load 0x2,-0x4 00c1 00d9 | | Load_Top At_Offset_1 00c2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00c3 00d9 | | Load_Top At_Offset_1 00c4 00d9 | | Load_Top At_Offset_1 00c5 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 00c6 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 00c7 0000 | | .XXX[0x1] 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 4809 |H | Short_Literal 0x9 00cc 480a |H | Short_Literal 0xa 00cd 4809 |H | Short_Literal 0x9 00ce 480a |H | Short_Literal 0xa 00cf 4809 |H | Short_Literal 0x9 00d0 e5ff | | Load 0x2,-0x1 00d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00d2 00e0 | | Load_Encached Standard_Cache 00d3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00d4 01cb | | Execute Vector,Append 00d5 e5ff | | Load 0x2,-0x1 00d6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00d7 8214 | | Call 0x1,0x14 00d8 01cc | | Execute Vector,Catenate 00d9 01cb | | Execute Vector,Append 00da 01cb | | Execute Vector,Append 00db e5ff | | Load 0x2,-0x1 00dc 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 00dd 8214 | | Call 0x1,0x14 00de 01cc | | Execute Vector,Catenate 00df 01cb | | Execute Vector,Append 00e0 01cb | | Execute Vector,Append 00e1 00db | | Load_Top At_Offset_3 00e2 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 00e3 8214 | | Call 0x1,0x14 00e4 01cc | | Execute Vector,Catenate 00e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e6 0000 0000 | | .XXX[0x2] 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 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00ed 8004 | | Call 0x0,0x4 00ee 0092 0293 | | Action Push_String_Extended,0x293 ; "-" 00f0 01cc | | Execute Vector,Catenate 00f1 00db | | Load_Top At_Offset_3 00f2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00f3 8004 | | Call 0x0,0x4 00f4 01cc | | Execute Vector,Catenate 00f5 0092 0294 | | Action Push_String_Extended,0x294 ; " " 00f7 01cc | | Execute Vector,Catenate 00f8 00db | | Load_Top At_Offset_3 00f9 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 00fa 8004 | | Call 0x0,0x4 00fb 01cc | | Execute Vector,Catenate 00fc 0092 0293 | | Action Push_String_Extended,0x293 ; "-" 00fe 01cc | | Execute Vector,Catenate 00ff 00db | | Load_Top At_Offset_3 0100 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0101 8004 | | Call 0x0,0x4 0102 01cc | | Execute Vector,Catenate 0103 0092 0294 | | Action Push_String_Extended,0x294 ; " " 0105 01cc | | Execute Vector,Catenate 0106 00db | | Load_Top At_Offset_3 0107 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0108 8217 | | Call 0x1,0x17 0109 01cc | | Execute Vector,Catenate 010a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010b 0000 0000 | | .BLANK 0000[0x5] 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 00da | | Load_Top At_Offset_2 0114 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0115 00db | | Load_Top At_Offset_3 0116 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0117 8216 | | Call 0x1,0x16 0118 01ca | | Execute Vector,Prepend 0119 00db | | Load_Top At_Offset_3 011a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 011b 8216 | | Call 0x1,0x16 011c 01cc | | Execute Vector,Catenate 011d 00db | | Load_Top At_Offset_3 011e 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 011f 8216 | | Call 0x1,0x16 0120 01cc | | Execute Vector,Catenate 0121 e005 | | Load 0x0,0x5 0122 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0123 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0124 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 012c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 012d 00db | | Load_Top At_Offset_3 012e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 012f 8006 | | Call 0x0,0x6 0130 e5ff | | Load 0x2,-0x1 0131 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0132 8006 | | Call 0x0,0x6 0133 01cc | | Execute Vector,Catenate 0134 e5ff | | Load 0x2,-0x1 0135 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0136 8006 | | Call 0x0,0x6 0137 01cc | | Execute Vector,Catenate 0138 e5ff | | Load 0x2,-0x1 0139 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 013a 8006 | | Call 0x0,0x6 013b 01cc | | Execute Vector,Catenate 013c 01cb | | Execute Vector,Append 013d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013e 0000 0000 | | .XXX[0x2] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 018c | | .CONST 0x018c ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0004 | | .CONST 0x0004 ; Number of locals 0143 INIT_0140: 0143 00da | | Load_Top At_Offset_2 0144 e20f | | Load 0x1,0xf 0145 03f1 | | Declare_Variable Discrete,With_Value 0146 e20e | | Load 0x1,0xe 0147 0337 | 7 | Declare_Variable Array 0148 00d8 | | Load_Top At_Offset_0 0149 0335 | 5 | Declare_Variable Array,Duplicate 014a 00cd | | Action Spare6_Action 014b 482d |H- | Short_Literal 0x2d 014c 4801 |H | Short_Literal 0x1 014d 00da | | Load_Top At_Offset_2 014e 01d6 | | Execute Vector,Field_Write 014f 482d |H- | Short_Literal 0x2d 0150 4802 |H | Short_Literal 0x2 0151 00da | | Load_Top At_Offset_2 0152 01d6 | | Execute Vector,Field_Write 0153 482d |H- | Short_Literal 0x2d 0154 4803 |H | Short_Literal 0x3 0155 00da | | Load_Top At_Offset_2 0156 01d6 | | Execute Vector,Field_Write 0157 482d |H- | Short_Literal 0x2d 0158 4804 |H | Short_Literal 0x4 0159 00da | | Load_Top At_Offset_2 015a 01d6 | | Execute Vector,Field_Write 015b 482d |H- | Short_Literal 0x2d 015c 4805 |H | Short_Literal 0x5 015d 00da | | Load_Top At_Offset_2 015e 01d6 | | Execute Vector,Field_Write 015f 482d |H- | Short_Literal 0x2d 0160 4806 |H | Short_Literal 0x6 0161 00da | | Load_Top At_Offset_2 0162 01d6 | | Execute Vector,Field_Write 0163 482d |H- | Short_Literal 0x2d 0164 4807 |H | Short_Literal 0x7 0165 00da | | Load_Top At_Offset_2 0166 01d6 | | Execute Vector,Field_Write 0167 00d9 | | Load_Top At_Offset_1 0168 01d4 | | Execute Vector,Structure_Write 0169 e20e | | Load 0x1,0xe 016a 0337 | 7 | Declare_Variable Array 016b 00d8 | | Load_Top At_Offset_0 016c 0335 | 5 | Declare_Variable Array,Duplicate 016d 00cd | | Action Spare6_Action 016e 484c |HL | Short_Literal 0x4c 016f 4801 |H | Short_Literal 0x1 0170 00da | | Load_Top At_Offset_2 0171 01d6 | | Execute Vector,Field_Write 0172 484d |HM | Short_Literal 0x4d 0173 4802 |H | Short_Literal 0x2 0174 00da | | Load_Top At_Offset_2 0175 01d6 | | Execute Vector,Field_Write 0176 484d |HM | Short_Literal 0x4d 0177 4803 |H | Short_Literal 0x3 0178 00da | | Load_Top At_Offset_2 0179 01d6 | | Execute Vector,Field_Write 017a 484a |HJ | Short_Literal 0x4a 017b 4804 |H | Short_Literal 0x4 017c 00da | | Load_Top At_Offset_2 017d 01d6 | | Execute Vector,Field_Write 017e 4856 |HV | Short_Literal 0x56 017f 4805 |H | Short_Literal 0x5 0180 00da | | Load_Top At_Offset_2 0181 01d6 | | Execute Vector,Field_Write 0182 4853 |HS | Short_Literal 0x53 0183 4806 |H | Short_Literal 0x6 0184 00da | | Load_Top At_Offset_2 0185 01d6 | | Execute Vector,Field_Write 0186 4844 |HD | Short_Literal 0x44 0187 4807 |H | Short_Literal 0x7 0188 00da | | Load_Top At_Offset_2 0189 01d6 | | Execute Vector,Field_Write 018a 00d9 | | Load_Top At_Offset_1 018b 01d4 | | Execute Vector,Structure_Write 018c BODY_0140: 018c 00cf | | Action Mark_Auxiliary 018d 4807 |H | Short_Literal 0x7 018e 4801 |H | Short_Literal 0x1 018f 0007 | | Action Break_Optional 0190 e402 | | Load 0x2,0x2 0191 4801 |H | Short_Literal 0x1 0192 0279 | y | Execute Discrete,And 0193 680a |h | Jump_Zero 0x19e 0194 4808 |H | Short_Literal 0x8 0195 00d9 | | Load_Top At_Offset_1 0196 0272 | r | Execute Discrete,Minus 0197 e404 | | Load 0x2,0x4 0198 01d7 | | Execute Vector,Field_Read 0199 4808 |H | Short_Literal 0x8 019a 00da | | Load_Top At_Offset_2 019b 0272 | r | Execute Discrete,Minus 019c e403 | | Load 0x2,0x3 019d 01d6 | | Execute Vector,Field_Write 019e e402 | | Load 0x2,0x2 019f 09ff | | Execute_Immediate Binary_Scale,-0x1 01a0 c402 | | Store 0x2,0x2 01a1 00c8 | | Action Pop_Auxiliary_Range 01a2 3fed |? | Loop_Increasing 0x190 01a3 00ce | | Action Pop_Auxiliary 01a4 00d9 | | Load_Top At_Offset_1 01a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a6 0000 0000 | | .XXX[0x2] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 4801 |H | Short_Literal 0x1 01ac 4801 |H | Short_Literal 0x1 01ad e007 | | Load 0x0,0x7 01ae 035b | [ | Declare_Type Array,Constrained 01af 0337 | 7 | Declare_Variable Array 01b0 00db | | Load_Top At_Offset_3 01b1 4801 |H | Short_Literal 0x1 01b2 00da | | Load_Top At_Offset_2 01b3 01d6 | | Execute Vector,Field_Write 01b4 e005 | | Load 0x0,0x5 01b5 03b6 | | Declare_Variable Access,By_Allocation,With_Value 01b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b7 0000 | | .XXX[0x1] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01c4 | | .CONST 0x01c4 ; Address of begin 01b9 01ef | | .CONST 0x01ef ; Address of exception handler 01ba 0003 | | .CONST 0x0003 ; Number of locals 01bb INIT_01b8: 01bb e21d | | Load 0x1,0x1d 01bc 0322 | " | Declare_Variable Record 01bd 00d8 | | Load_Top At_Offset_0 01be 1c00 | | Execute_Immediate Run_Utility,0x0 01bf 4801 |H | Short_Literal 0x1 01c0 4809 |H | Short_Literal 0x9 01c1 e007 | | Load 0x0,0x7 01c2 035b | [ | Declare_Type Array,Constrained 01c3 0337 | 7 | Declare_Variable Array 01c4 BODY_01b8: 01c4 4801 |H | Short_Literal 0x1 01c5 e5ff | | Load 0x2,-0x1 01c6 01d7 | | Execute Vector,Field_Read 01c7 00da | | Load_Top At_Offset_2 01c8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01c9 4802 |H | Short_Literal 0x2 01ca 480a |H | Short_Literal 0xa 01cb e5ff | | Load 0x2,-0x1 01cc 01cf | | Execute Vector,Slice_Read 01cd 4801 |H | Short_Literal 0x1 01ce 4809 |H | Short_Literal 0x9 01cf 00db | | Load_Top At_Offset_3 01d0 01ce | | Execute Vector,Slice_Write 01d1 00d8 | | Load_Top At_Offset_0 01d2 821a | | Call 0x1,0x1a 01d3 00da | | Load_Top At_Offset_2 01d4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01d5 480b |H | Short_Literal 0xb 01d6 4813 |H | Short_Literal 0x13 01d7 e5ff | | Load 0x2,-0x1 01d8 01cf | | Execute Vector,Slice_Read 01d9 4801 |H | Short_Literal 0x1 01da 4809 |H | Short_Literal 0x9 01db 00db | | Load_Top At_Offset_3 01dc 01ce | | Execute Vector,Slice_Write 01dd 00d8 | | Load_Top At_Offset_0 01de 821a | | Call 0x1,0x1a 01df 00da | | Load_Top At_Offset_2 01e0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01e1 4814 |H | Short_Literal 0x14 01e2 481c |H | Short_Literal 0x1c 01e3 e5ff | | Load 0x2,-0x1 01e4 01cf | | Execute Vector,Slice_Read 01e5 4801 |H | Short_Literal 0x1 01e6 4809 |H | Short_Literal 0x9 01e7 00db | | Load_Top At_Offset_3 01e8 01ce | | Execute Vector,Slice_Write 01e9 00d8 | | Load_Top At_Offset_0 01ea 821a | | Call 0x1,0x1a 01eb 00da | | Load_Top At_Offset_2 01ec 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01ed 00d9 | | Load_Top At_Offset_1 01ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ef TRAP_01b8: 01ef 010e | | Execute Exception,Is_Constraint_Error 01f0 6802 |h | Jump_Zero 0x1f3 01f1 821c | | Call 0x1,0x1c 01f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f3 0100 | | Execute Exception,Raise 01f4 0000 0000 | | .BLANK 0000[0x4] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 0204 | | .CONST 0x0204 ; Address of begin 01f9 0236 | 6 | .CONST 0x0236 ; Address of exception handler 01fa 0003 | | .CONST 0x0003 ; Number of locals 01fb INIT_01f8: 01fb e20d | | Load 0x1,0xd 01fc 0322 | " | Declare_Variable Record 01fd 00d8 | | Load_Top At_Offset_0 01fe 1c00 | | Execute_Immediate Run_Utility,0x0 01ff 4801 |H | Short_Literal 0x1 0200 4802 |H | Short_Literal 0x2 0201 e007 | | Load 0x0,0x7 0202 035b | [ | Declare_Type Array,Constrained 0203 0337 | 7 | Declare_Variable Array 0204 BODY_01f8: 0204 4801 |H | Short_Literal 0x1 0205 4802 |H | Short_Literal 0x2 0206 e5ff | | Load 0x2,-0x1 0207 01cf | | Execute Vector,Slice_Read 0208 8008 | | Call 0x0,0x8 0209 00da | | Load_Top At_Offset_2 020a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 020b 4803 |H | Short_Literal 0x3 020c 4804 |H | Short_Literal 0x4 020d e5ff | | Load 0x2,-0x1 020e 01cf | | Execute Vector,Slice_Read 020f 4801 |H | Short_Literal 0x1 0210 4802 |H | Short_Literal 0x2 0211 00db | | Load_Top At_Offset_3 0212 01ce | | Execute Vector,Slice_Write 0213 00d8 | | Load_Top At_Offset_0 0214 8008 | | Call 0x0,0x8 0215 00da | | Load_Top At_Offset_2 0216 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0217 4805 |H | Short_Literal 0x5 0218 4806 |H | Short_Literal 0x6 0219 e5ff | | Load 0x2,-0x1 021a 01cf | | Execute Vector,Slice_Read 021b 4801 |H | Short_Literal 0x1 021c 4802 |H | Short_Literal 0x2 021d 00db | | Load_Top At_Offset_3 021e 01ce | | Execute Vector,Slice_Write 021f 00d8 | | Load_Top At_Offset_0 0220 8008 | | Call 0x0,0x8 0221 00da | | Load_Top At_Offset_2 0222 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0223 4807 |H | Short_Literal 0x7 0224 4808 |H | Short_Literal 0x8 0225 e5ff | | Load 0x2,-0x1 0226 01cf | | Execute Vector,Slice_Read 0227 4801 |H | Short_Literal 0x1 0228 4802 |H | Short_Literal 0x2 0229 00db | | Load_Top At_Offset_3 022a 01ce | | Execute Vector,Slice_Write 022b 00d8 | | Load_Top At_Offset_0 022c 8008 | | Call 0x0,0x8 022d 00da | | Load_Top At_Offset_2 022e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 022f 4809 |H | Short_Literal 0x9 0230 e5ff | | Load 0x2,-0x1 0231 01d7 | | Execute Vector,Field_Read 0232 00da | | Load_Top At_Offset_2 0233 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0234 00d9 | | Load_Top At_Offset_1 0235 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0236 TRAP_01f8: 0236 010e | | Execute Exception,Is_Constraint_Error 0237 6802 |h | Jump_Zero 0x23a 0238 821b | | Call 0x1,0x1b 0239 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 023a 0100 | | Execute Exception,Raise 023b 0000 0000 | | .BLANK 0000[0x5] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 e20d | | Load 0x1,0xd 0244 0322 | " | Declare_Variable Record 0245 8009 | | Call 0x0,0x9 0246 00d9 | | Load_Top At_Offset_1 0247 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0248 8009 | | Call 0x0,0x9 0249 00d9 | | Load_Top At_Offset_1 024a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 024b 8009 | | Call 0x0,0x9 024c 00d9 | | Load_Top At_Offset_1 024d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 024e 8009 | | Call 0x0,0x9 024f 00d9 | | Load_Top At_Offset_1 0250 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0251 4800 |H | Short_Literal 0x0 0252 00d9 | | Load_Top At_Offset_1 0253 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0254 00ca | | Action Exit_Nullary_Function 0255 0000 0000 | | .XXX[0x3] 0257 0000 | | 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b e21d | | Load 0x1,0x1d 025c 0322 | " | Declare_Variable Record 025d 4800 |H | Short_Literal 0x0 025e 00d9 | | Load_Top At_Offset_1 025f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0260 821b | | Call 0x1,0x1b 0261 00d9 | | Load_Top At_Offset_1 0262 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0263 821b | | Call 0x1,0x1b 0264 00d9 | | Load_Top At_Offset_1 0265 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0266 821b | | Call 0x1,0x1b 0267 00d9 | | Load_Top At_Offset_1 0268 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0269 00ca | | Action Exit_Nullary_Function 026a 0000 0000 | | .BLANK 0000[0x6] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 4601 |F | Jump_Case 0x2 0274 7801 |x | Jump 0x276 ; case 0x0 0275 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0276 00da | | Load_Top At_Offset_2 0277 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0278 1c00 | | Execute_Immediate Run_Utility,0x0 0279 00da | | Load_Top At_Offset_2 027a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 027b 1c00 | | Execute_Immediate Run_Utility,0x0 027c 00da | | Load_Top At_Offset_2 027d 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 027e 1c00 | | Execute_Immediate Run_Utility,0x0 027f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 4601 |F | Jump_Case 0x2 0284 7801 |x | Jump 0x286 ; case 0x0 0285 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0286 00da | | Load_Top At_Offset_2 0287 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0288 1c00 | | Execute_Immediate Run_Utility,0x0 0289 00da | | Load_Top At_Offset_2 028a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 028b 1c00 | | Execute_Immediate Run_Utility,0x0 028c 00da | | Load_Top At_Offset_2 028d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 028e 1c00 | | Execute_Immediate Run_Utility,0x0 028f 00da | | Load_Top At_Offset_2 0290 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0291 1c00 | | Execute_Immediate Run_Utility,0x0 0292 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0293 ; -------------------------------------------------------------------------------------- 0293 ; STRING TABLE 0293 ; -------------------------------------------------------------------------------------- 0293 0006 | | .STRTAB 0x0006->0x0296 ; "-" 0294 0005 | | .STRTAB 0x0005->0x0296 ; " " 0295 0004 | | .STREND 0x0004->0x0297 0296 2d20 |- | .STRTAB_STRINGS 0297 0000 | | .XXX[0x1] 0298 ; -------------------------------------------------------------------------------------- 0298 ; Debug Table 0298 ; -------------------------------------------------------------------------------------- 0298 0004 0009 | | .DEBUG4 0x0004,0x0009,0x553c,0x0000,0x0001,0x0010 029e 000b 02de | | .DBG4T 0x000b,0x02de,0x8000,0x8000 02a2 0045 0304 | E | .DBG4T 0x0045,0x0304,0x8000,0x0000 02a6 0063 0312 | c | .DBG4T 0x0063,0x0312,0x0002,0x0000 02aa 007b 0315 | { | .DBG4T 0x007b,0x0315,0x0002,0x0000 02ae 00cb 0327 | '| .DBG4T 0x00cb,0x0327,0x0002,0x0000 02b2 00eb 032a | *| .DBG4T 0x00eb,0x032a,0x0002,0x0000 02b6 0113 032d | -| .DBG4T 0x0113,0x032d,0x0002,0x0000 02ba 012b 0330 | + 0| .DBG4T 0x012b,0x0330,0x0002,0x0000 02be 0143 0333 | C 3| .DBG4T 0x0143,0x0333,0x0002,0x0000 02c2 01ab 033d | =| .DBG4T 0x01ab,0x033d,0x0002,0x0000 02c6 01bb 0340 | @| .DBG4T 0x01bb,0x0340,0x0002,0x0000 02ca 01fb 034d | M| .DBG4T 0x01fb,0x034d,0x0002,0x0000 02ce 0243 035b | C [| .DBG4T 0x0243,0x035b,0x0002,0x0000 02d2 025b 035e | [ ^| .DBG4T 0x025b,0x035e,0x0002,0x0000 02d6 0273 0000 | s | .DBG4T 0x0273,0x0000,0x0005,0x0000 02da 0283 0000 | | .DBG4T 0x0283,0x0000,0x0005,0x0000 02de ; -------------------------------------------------------------------------------------- 02de ; Debug chain 02de ; -------------------------------------------------------------------------------------- 02de 0012 0000 | | .DBGLEN 0x0012,0x0000 02e0 000b 000d | | .DBGLNO 0x000b,0x000d,0x0011,0x0015,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0039 02f2 0004 0005 | | .XXX[0x12] 02f4 0006 0007 | | 02f6 0008 0009 | | 02f8 000a 000b | | 02fa 000c 000d | | 02fc 000e 000f | | 02fe 0010 0011 | | 0300 0012 0013 | | 0302 0014 0015 | | 0304 ; -------------------------------------------------------------------------------------- 0304 ; Debug chain 0304 ; -------------------------------------------------------------------------------------- 0304 000c 0000 | | .DBGLEN 0x000c,0x0000 0306 0045 0047 | E G| .DBGLNO 0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b 0312 ; -------------------------------------------------------------------------------------- 0312 ; Debug chain 0312 ; -------------------------------------------------------------------------------------- 0312 0000 0001 | | .DBGLEN 0x0000,0x0001 0314 0063 | c | .DBGLNO 0x0063 0315 ; -------------------------------------------------------------------------------------- 0315 ; Debug chain 0315 ; -------------------------------------------------------------------------------------- 0315 0001 000f | | .DBGLEN 0x0001,0x000f 0317 007b 007d | { }| .DBGLNO 0x007b,0x007d,0x0082,0x0085,0x008a,0x008d,0x0092,0x0095,0x009a,0x009d,0x00a2,0x00a5,0x00aa,0x00ad,0x00b2,0x00b5 0327 ; -------------------------------------------------------------------------------------- 0327 ; Debug chain 0327 ; -------------------------------------------------------------------------------------- 0327 0000 0001 | | .DBGLEN 0x0000,0x0001 0329 00cb | | .DBGLNO 0x00cb 032a ; -------------------------------------------------------------------------------------- 032a ; Debug chain 032a ; -------------------------------------------------------------------------------------- 032a 0000 0001 | | .DBGLEN 0x0000,0x0001 032c 00eb | | .DBGLNO 0x00eb 032d ; -------------------------------------------------------------------------------------- 032d ; Debug chain 032d ; -------------------------------------------------------------------------------------- 032d 0000 0001 | | .DBGLEN 0x0000,0x0001 032f 0113 | | .DBGLNO 0x0113 0330 ; -------------------------------------------------------------------------------------- 0330 ; Debug chain 0330 ; -------------------------------------------------------------------------------------- 0330 0000 0001 | | .DBGLEN 0x0000,0x0001 0332 012b | + | .DBGLNO 0x012b 0333 ; -------------------------------------------------------------------------------------- 0333 ; Debug chain 0333 ; -------------------------------------------------------------------------------------- 0333 0003 0005 | | .DBGLEN 0x0003,0x0005 0335 0143 0146 | C F| .DBGLNO 0x0143,0x0146,0x0169,0x018d,0x0190,0x0194,0x019e,0x01a4 033d ; -------------------------------------------------------------------------------------- 033d ; Debug chain 033d ; -------------------------------------------------------------------------------------- 033d 0000 0001 | | .DBGLEN 0x0000,0x0001 033f 01ab | | .DBGLNO 0x01ab 0340 ; -------------------------------------------------------------------------------------- 0340 ; Debug chain 0340 ; -------------------------------------------------------------------------------------- 0340 0002 0009 | | .DBGLEN 0x0002,0x0009 0342 01bb 01bf | | .DBGLNO 0x01bb,0x01bf,0x01c4,0x01c9,0x01d1,0x01d5,0x01dd,0x01e1,0x01e9,0x01ed,0x01f1 034d ; -------------------------------------------------------------------------------------- 034d ; Debug chain 034d ; -------------------------------------------------------------------------------------- 034d 0002 000a | | .DBGLEN 0x0002,0x000a 034f 01fb 01ff | | .DBGLNO 0x01fb,0x01ff,0x0204,0x020b,0x0213,0x0217,0x021f,0x0223,0x022b,0x022f,0x0234,0x0238 035b ; -------------------------------------------------------------------------------------- 035b ; Debug chain 035b ; -------------------------------------------------------------------------------------- 035b 0000 0001 | | .DBGLEN 0x0000,0x0001 035d 0243 | C | .DBGLNO 0x0243 035e ; -------------------------------------------------------------------------------------- 035e ; Debug chain 035e ; -------------------------------------------------------------------------------------- 035e 0000 0001 | | .DBGLEN 0x0000,0x0001 0360 025b | [ | .DBGLNO 0x025b 0361 0000 0000 | | .BLANK 0000[0x9f]