|
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_0a7cf5
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0248 | H | .CONST 0x0248 ; 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 00c2 | | .CONST 0x00c2 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 003e | > | .CONST 0x003e ; Number of locals 000b INIT_0008: 000b 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 000d 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 000f 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0011 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0013 e001 | | Load 0x0,0x1 0014 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0015 e002 | | Load 0x0,0x2 0016 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0017 e003 | | Load 0x0,0x3 0018 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0019 e004 | | Load 0x0,0x4 001a 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 001b e005 | | Load 0x0,0x5 001c 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 001d e006 | | Load 0x0,0x6 001e 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 001f e007 | | Load 0x0,0x7 0020 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0021 e008 | | Load 0x0,0x8 0022 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0023 e009 | | Load 0x0,0x9 0024 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0025 e00a | | Load 0x0,0xa 0026 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0027 e00b | | Load 0x0,0xb 0028 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0029 e00c | | Load 0x0,0xc 002a 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 002b e00d | | Load 0x0,0xd 002c 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 002d e00e | | Load 0x0,0xe 002e 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 002f e00f | | Load 0x0,0xf 0030 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0031 e010 | | Load 0x0,0x10 0032 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0033 e011 | | Load 0x0,0x11 0034 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0035 e012 | | Load 0x0,0x12 0036 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0037 e013 | | Load 0x0,0x13 0038 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0039 e014 | | Load 0x0,0x14 003a 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 003b e015 | | Load 0x0,0x15 003c 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 003d e016 | | Load 0x0,0x16 003e 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 003f e017 | | Load 0x0,0x17 0040 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0041 e018 | | Load 0x0,0x18 0042 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0043 e019 | | Load 0x0,0x19 0044 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0045 e01a | | Load 0x0,0x1a 0046 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0047 e01b | | Load 0x0,0x1b 0048 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0049 00bf | | Action Accept_Activation 004a e01c | | Load 0x0,0x1c 004b e01d | | Load 0x0,0x1d 004c 4814 |H | Short_Literal 0x14 004d e01e | | Load 0x0,0x1e 004e 0387 | | Declare_Variable Package 004f 00d8 | | Load_Top At_Offset_0 0050 020f | | Execute Module,Activate 0051 0092 021e | | Action Push_String_Extended,0x21e ; "........................................" 0053 e01f | | Load 0x0,0x1f 0054 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0055 191a | | Execute Package,Field_Reference,Field_Number 0x1a 0056 0007 | | Action Break_Optional 0057 e020 | | Load 0x0,0x20 0058 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 0059 1919 | | Execute Package,Field_Reference,Field_Number 0x19 005a 0007 | | Action Break_Optional 005b e021 | ! | Load 0x0,0x21 005c 1916 | | Execute Package,Field_Reference,Field_Number 0x16 005d 0007 | | Action Break_Optional 005e e022 | " | Load 0x0,0x22 005f 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0060 190d | | Execute Package,Field_Reference,Field_Number 0xd 0061 0007 | | Action Break_Optional 0062 e022 | " | Load 0x0,0x22 0063 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0064 190e | | Execute Package,Field_Reference,Field_Number 0xe 0065 0007 | | Action Break_Optional 0066 e022 | " | Load 0x0,0x22 0067 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0068 191b | | Execute Package,Field_Reference,Field_Number 0x1b 0069 0007 | | Action Break_Optional 006a e022 | " | Load 0x0,0x22 006b 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 006c 191c | | Execute Package,Field_Reference,Field_Number 0x1c 006d 0007 | | Action Break_Optional 006e 0092 021f | | Action Push_String_Extended,0x21f ; ",\x0a" 0070 0092 0220 | | Action Push_String_Extended,0x220 ; "*** Undefined" 0072 0092 0221 | !| Action Push_String_Extended,0x221 ; "*** Unused" 0074 0092 0222 | "| Action Push_String_Extended,0x222 ; "TBD" 0076 029b 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Unelaborated 0078 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39 0079 00c7 | | Action Elaborate_Subprogram 007a 029d 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call 007c 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call 007e 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call 0080 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call 0082 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call 0084 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0085 00c7 | | Action Elaborate_Subprogram 0086 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0087 00c7 | | Action Elaborate_Subprogram 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 1d20 | | Execute_Immediate Reference_Lex_1,0x20 008d 00c7 | | Action Elaborate_Subprogram 008e 1d18 | | Execute_Immediate Reference_Lex_1,0x18 008f 00c7 | | Action Elaborate_Subprogram 0090 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0091 00c7 | | Action Elaborate_Subprogram 0092 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0093 00c7 | | Action Elaborate_Subprogram 0094 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0095 00c7 | | Action Elaborate_Subprogram 0096 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0097 00c7 | | Action Elaborate_Subprogram 0098 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0099 00c7 | | Action Elaborate_Subprogram 009a 1d16 | | Execute_Immediate Reference_Lex_1,0x16 009b 00c7 | | Action Elaborate_Subprogram 009c 1d15 | | Execute_Immediate Reference_Lex_1,0x15 009d 00c7 | | Action Elaborate_Subprogram 009e 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 009f 00c7 | | Action Elaborate_Subprogram 00a0 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00a1 00c7 | | Action Elaborate_Subprogram 00a2 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00a3 00c7 | | Action Elaborate_Subprogram 00a4 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00a7 00c7 | | Action Elaborate_Subprogram 00a8 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00a9 00c7 | | Action Elaborate_Subprogram 00aa 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00ab 00c7 | | Action Elaborate_Subprogram 00ac 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00ad 00c7 | | Action Elaborate_Subprogram 00ae 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00af 00c7 | | Action Elaborate_Subprogram 00b0 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00b1 00c7 | | Action Elaborate_Subprogram 00b2 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00b3 00c7 | | Action Elaborate_Subprogram 00b4 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 00b5 00c7 | | Action Elaborate_Subprogram 00b6 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 00b7 00c7 | | Action Elaborate_Subprogram 00b8 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00b9 00c7 | | Action Elaborate_Subprogram 00ba 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 00bb 00c7 | | Action Elaborate_Subprogram 00bc 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 00bd 00c7 | | Action Elaborate_Subprogram 00be 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 00bf 00c7 | | Action Elaborate_Subprogram 00c0 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 00c1 00c7 | | Action Elaborate_Subprogram 00c2 BODY_0008: 00c2 00bc | | Action Signal_Activated 00c3 00bb | | Action Signal_Completion 00c4 0000 0000 | | .BLANK 0000[0x4] 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 e5fb | | Load 0x2,-0x5 00cc e5fc | | Load 0x2,-0x4 00cd e5fd | | Load 0x2,-0x3 00ce e5fe | | Load 0x2,-0x2 00cf e5ff | | Load 0x2,-0x1 00d0 e022 | " | Load 0x0,0x22 00d1 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00d2 e023 | # | Load 0x0,0x23 00d3 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 00d4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00d6 0000 0000 | | .XXX[0x2] 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 e5fb | | Load 0x2,-0x5 00dc e5fc | | Load 0x2,-0x4 00dd e5fd | | Load 0x2,-0x3 00de e5fe | | Load 0x2,-0x2 00df e5ff | | Load 0x2,-0x1 00e0 e022 | " | Load 0x0,0x22 00e1 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00e2 e023 | # | Load 0x0,0x23 00e3 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 00e4 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00e5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00e6 0000 0000 | | .XXX[0x2] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00ed | | .CONST 0x00ed ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0002 | | .CONST 0x0002 ; Number of locals 00eb INIT_00e8: 00eb 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 00ed BODY_00e8: 00ed e5fc | | Load 0x2,-0x4 00ee 6802 |h | Jump_Zero 0xf1 00ef 8402 | | Call 0x2,0x2 00f0 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00f1 e5fd | | Load 0x2,-0x3 00f2 e5fe | | Load 0x2,-0x2 00f3 e5ff | | Load 0x2,-0x1 00f4 e022 | " | Load 0x0,0x22 00f5 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00f6 e023 | # | Load 0x0,0x23 00f7 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 00f8 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00f9 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00fa 0000 0000 | | .BLANK 0000[0x6] 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 00db | | Load_Top At_Offset_3 0104 00db | | Load_Top At_Offset_3 0105 e022 | " | Load 0x0,0x22 0106 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0107 e023 | # | Load 0x0,0x23 0108 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 0109 181e | | Execute Package,Field_Execute,Field_Number 0x1e 010a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 4801 |H | Short_Literal 0x1 0114 e022 | " | Load 0x0,0x22 0115 1b89 | | Execute Package,Field_Read,Field_Number 0x89 0116 e5ff | | Load 0x2,-0x1 0117 e024 | $ | Load 0x0,0x24 0118 1878 | x | Execute Package,Field_Execute,Field_Number 0x78 0119 e025 | % | Load 0x0,0x25 011a 180f | | Execute Package,Field_Execute,Field_Number 0xf 011b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 011c 0000 0000 | | .BLANK 0000[0x4] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00cf | | Action Mark_Auxiliary 0124 7805 |x | Jump 0x12a 0125 00db | | Load_Top At_Offset_3 0126 e026 | & | Load 0x0,0x26 0127 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0128 c5ff | | Store 0x2,-0x1 0129 00c9 | | Action Pop_Auxiliary_Loop 012a 00db | | Load_Top At_Offset_3 012b e026 | & | Load 0x0,0x26 012c 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 012d 77f7 |w | Jump_Nonzero 0x125 012e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 012f 0000 | | .XXX[0x1] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0136 | 6 | .CONST 0x0136 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0002 | | .CONST 0x0002 ; Number of locals 0133 INIT_0130: 0133 e027 | ' | Load 0x0,0x27 0134 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0135 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0136 BODY_0130: 0136 e5fd | | Load 0x2,-0x3 0137 e028 | ( | Load 0x0,0x28 0138 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0139 e5ff | | Load 0x2,-0x1 013a e01f | | Load 0x0,0x1f 013b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 013c 180e | | Execute Package,Field_Execute,Field_Number 0xe 013d 0031 | 1 | Store_Top Heap_Access,At_Offset_1 013e 00d8 | | Load_Top At_Offset_0 013f e027 | ' | Load 0x0,0x27 0140 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0141 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0142 6809 |h | Jump_Zero 0x14c 0143 4801 |H | Short_Literal 0x1 0144 480d |H | Short_Literal 0xd 0145 e022 | " | Load 0x0,0x22 0146 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0147 e023 | # | Load 0x0,0x23 0148 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0149 00ea | | Load_Encached Null_String_Cache 014a 820f | | Call 0x1,0xf 014b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 014c 4801 |H | Short_Literal 0x1 014d 480d |H | Short_Literal 0xd 014e e022 | " | Load 0x0,0x22 014f 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0150 00ea | | Load_Encached Null_String_Cache 0151 4800 |H | Short_Literal 0x0 0152 e5fd | | Load 0x2,-0x3 0153 e022 | " | Load 0x0,0x22 0154 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0155 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0156 e5fe | | Load 0x2,-0x2 0157 e5fd | | Load 0x2,-0x3 0158 e022 | " | Load 0x0,0x22 0159 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 015a 180e | | Execute Package,Field_Execute,Field_Number 0xe 015b 820f | | Call 0x1,0xf 015c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 015d 0000 0000 | | .XXX[0x3] 015f 0000 | | 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 016d | m | .CONST 0x016d ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0003 | | .CONST 0x0003 ; Number of locals 0163 INIT_0160: 0163 e027 | ' | Load 0x0,0x27 0164 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0165 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0166 e020 | | Load 0x0,0x20 0167 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0168 02c7 | | Declare_Variable Any 0169 e5fd | | Load 0x2,-0x3 016a e026 | & | Load 0x0,0x26 016b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 016c a403 | | Store_Unchecked 0x2,0x3 016d BODY_0160: 016d e5fd | | Load 0x2,-0x3 016e e028 | ( | Load 0x0,0x28 016f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0170 e5ff | | Load 0x2,-0x1 0171 e01f | | Load 0x0,0x1f 0172 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0173 180e | | Execute Package,Field_Execute,Field_Number 0xe 0174 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0175 00d9 | | Load_Top At_Offset_1 0176 e027 | ' | Load 0x0,0x27 0177 1b20 | | Execute Package,Field_Read,Field_Number 0x20 0178 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0179 680a |h | Jump_Zero 0x184 017a 4801 |H | Short_Literal 0x1 017b 480d |H | Short_Literal 0xd 017c e022 | " | Load 0x0,0x22 017d 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 017e e5fc | | Load 0x2,-0x4 017f e5fe | | Load 0x2,-0x2 0180 e403 | | Load 0x2,0x3 0181 8232 | 2 | Call 0x1,0x32 0182 820f | | Call 0x1,0xf 0183 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0184 4801 |H | Short_Literal 0x1 0185 480d |H | Short_Literal 0xd 0186 e022 | " | Load 0x0,0x22 0187 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0188 00ea | | Load_Encached Null_String_Cache 0189 4800 |H | Short_Literal 0x0 018a e5fd | | Load 0x2,-0x3 018b e022 | " | Load 0x0,0x22 018c 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 018d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 018e 00ea | | Load_Encached Null_String_Cache 018f e402 | | Load 0x2,0x2 0190 e01f | | Load 0x0,0x1f 0191 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0192 180f | | Execute Package,Field_Execute,Field_Number 0xf 0193 820f | | Call 0x1,0xf 0194 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0195 0000 0000 | | .XXX[0x3] 0197 0000 | | 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019e | | .CONST 0x019e ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0002 | | .CONST 0x0002 ; Number of locals 019b INIT_0198: 019b e027 | ' | Load 0x0,0x27 019c 1b20 | | Execute Package,Field_Read,Field_Number 0x20 019d 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 019e BODY_0198: 019e e5fb | | Load 0x2,-0x5 019f e5ff | | Load 0x2,-0x1 01a0 e01f | | Load 0x0,0x1f 01a1 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01a2 180e | | Execute Package,Field_Execute,Field_Number 0xe 01a3 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01a4 00d8 | | Load_Top At_Offset_0 01a5 e027 | ' | Load 0x0,0x27 01a6 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01a7 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01a8 680a |h | Jump_Zero 0x1b3 01a9 4801 |H | Short_Literal 0x1 01aa 480d |H | Short_Literal 0xd 01ab e022 | " | Load 0x0,0x22 01ac 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01ad e5fa | | Load 0x2,-0x6 01ae e5fe | | Load 0x2,-0x2 01af e5fc | | Load 0x2,-0x4 01b0 8232 | 2 | Call 0x1,0x32 01b1 820f | | Call 0x1,0xf 01b2 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01b3 4801 |H | Short_Literal 0x1 01b4 480d |H | Short_Literal 0xd 01b5 e022 | " | Load 0x0,0x22 01b6 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01b7 00ea | | Load_Encached Null_String_Cache 01b8 4800 |H | Short_Literal 0x0 01b9 e5fd | | Load 0x2,-0x3 01ba e022 | " | Load 0x0,0x22 01bb 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01bc 00ea | | Load_Encached Null_String_Cache 01bd e402 | | Load 0x2,0x2 01be e01f | | Load 0x0,0x1f 01bf 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01c0 180f | | Execute Package,Field_Execute,Field_Number 0xf 01c1 820f | | Call 0x1,0xf 01c2 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01c3 0000 0000 | | .BLANK 0000[0x5] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01ce | | .CONST 0x01ce ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0002 | | .CONST 0x0002 ; Number of locals 01cb INIT_01c8: 01cb e027 | ' | Load 0x0,0x27 01cc 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01cd 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 01ce BODY_01c8: 01ce e5fb | | Load 0x2,-0x5 01cf e5ff | | Load 0x2,-0x1 01d0 e01f | | Load 0x0,0x1f 01d1 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01d2 180e | | Execute Package,Field_Execute,Field_Number 0xe 01d3 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01d4 00d8 | | Load_Top At_Offset_0 01d5 e027 | ' | Load 0x0,0x27 01d6 1b20 | | Execute Package,Field_Read,Field_Number 0x20 01d7 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01d8 680a |h | Jump_Zero 0x1e3 01d9 4801 |H | Short_Literal 0x1 01da 480d |H | Short_Literal 0xd 01db e022 | " | Load 0x0,0x22 01dc 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01dd e5fa | | Load 0x2,-0x6 01de e5fe | | Load 0x2,-0x2 01df e5fc | | Load 0x2,-0x4 01e0 8232 | 2 | Call 0x1,0x32 01e1 820f | | Call 0x1,0xf 01e2 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01e3 4801 |H | Short_Literal 0x1 01e4 480d |H | Short_Literal 0xd 01e5 e022 | " | Load 0x0,0x22 01e6 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 01e7 00ea | | Load_Encached Null_String_Cache 01e8 4800 |H | Short_Literal 0x0 01e9 e5fd | | Load 0x2,-0x3 01ea e022 | " | Load 0x0,0x22 01eb 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 01ec 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01ed 00ea | | Load_Encached Null_String_Cache 01ee e402 | | Load 0x2,0x2 01ef e01f | | Load 0x0,0x1f 01f0 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01f1 180f | | Execute Package,Field_Execute,Field_Number 0xf 01f2 820f | | Call 0x1,0xf 01f3 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01f4 0000 0000 | | .BLANK 0000[0x4] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 0204 | | .CONST 0x0204 ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0002 | | .CONST 0x0002 ; Number of locals 01fb INIT_01f8: 01fb e5ff | | Load 0x2,-0x1 01fc 01da | | Execute Vector,Bounds 01fd e023 | # | Load 0x0,0x23 01fe 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01ff 035b | [ | Declare_Type Array,Constrained 0200 0337 | 7 | Declare_Variable Array 0201 e5ff | | Load 0x2,-0x1 0202 00d9 | | Load_Top At_Offset_1 0203 01d4 | | Execute Vector,Structure_Write 0204 BODY_01f8: 0204 00cf | | Action Mark_Auxiliary 0205 00d9 | | Load_Top At_Offset_1 0206 01d9 | | Execute Vector,Reverse_Bounds 0207 0263 | c | Execute Discrete,Above_Bound 0208 700b |p | Jump_Nonzero 0x214 0209 00d8 | | Load_Top At_Offset_0 020a e602 | | Load 0x3,0x2 020b 01d7 | | Execute Vector,Field_Read 020c 0f0a | | Execute_Immediate Equal,0xa 020d 6804 |h | Jump_Zero 0x212 020e 4820 |H | Short_Literal 0x20 020f 00d9 | | Load_Top At_Offset_1 0210 e602 | | Load 0x3,0x2 0211 01d6 | | Execute Vector,Field_Write 0212 00c8 | | Action Pop_Auxiliary_Range 0213 3ff5 |? | Loop_Increasing 0x209 0214 00ce | | Action Pop_Auxiliary 0215 e5fd | | Load 0x2,-0x3 0216 e5fe | | Load 0x2,-0x2 0217 00da | | Load_Top At_Offset_2 0218 e022 | " | Load 0x0,0x22 0219 1819 | | Execute Package,Field_Execute,Field_Number 0x19 021a e023 | # | Load 0x0,0x23 021b 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 021c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 021d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 021e ; -------------------------------------------------------------------------------------- 021e ; STRING TABLE 021e ; -------------------------------------------------------------------------------------- 021e 000c | | .STRTAB 0x000c->0x0224 ; "........................................" 021f 0032 | 2 | .STRTAB 0x0032->0x0238 ; ",\x0a" 0220 0032 | 2 | .STRTAB 0x0032->0x0239 ; "*** Undefined" 0221 003d | = | .STRTAB 0x003d->0x023f ; "*** Unused" 0222 0045 | E | .STRTAB 0x0045->0x0244 ; "TBD" 0223 0046 | F | .STREND 0x0046->0x0246 0224 2e2e 2e2e |....| .STRTAB_STRINGS 0246 0000 0000 | | .XXX[0x2] 0248 ; -------------------------------------------------------------------------------------- 0248 ; Debug Table 0248 ; -------------------------------------------------------------------------------------- 0248 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc81,0x0000,0x0001,0x0000 024e d6ba a95b | [| .XXX[0x1b2] 0250 023a b55a | : Z| 0252 6b0f 0e38 |k 8| 0254 5a86 770e |Z w | 0256 d158 6687 | Xf | 0258 fc68 6e84 | hn | 025a 246e 8f0e |$n | 025c 85c0 5804 | X | 025e d403 3e3a | >:| 0260 cb0f 2d9b | - | 0262 030e af0d | | 0264 88f2 b70f | | 0266 255b 0568 |%[ h| 0268 a286 9f0c | | 026a 7038 fe84 |p8 | 026c c0ce 30d1 | 0 | 026e 0a86 d9c2 | | 0270 8420 c687 | | 0272 7850 ce87 |xP | 0274 8467 d717 | g | 0276 9e3a 204d | : M| 0278 8cf3 aa3b | ;| 027a 8844 e403 | D | 027c 9958 e46e | X n| 027e de25 2c6f | %,o| 0280 2b0c b01c |+ | 0282 f753 370c | S7 | 0284 c06e 8a8f | n | 0286 2198 f003 |! | 0288 4b0d 8c3b |K ;| 028a f639 fcf3 | 9 | 028c 5f0c 023e |_ >| 028e 0cf3 69c3 | i | 0290 6f0e a8cd |o | 0292 de23 a509 | # | 0294 99b8 d803 | | 0296 8b0f a05c | \| 0298 5c13 a838 |\ 8| 029a 919e c568 | h| 029c cc53 ab0e | S | 029e b439 7f0c | 9 | 02a0 b19d 7042 | pB| 02a2 70cc c19f |p | 02a4 f430 c99f | 0 | 02a6 df0e 0752 | R| 02a8 5621 ca87 |V! | 02aa 44cf f70d |D | 02ac 1037 54cf | 7T | 02ae 5cb1 7040 |\ p@| 02b0 7601 11d8 |v | 02b2 a03e be99 | > | 02b4 f287 442e | D.| 02b6 2076 f538 | v 8| 02b8 0c15 40ed | @ | 02ba 2d9c 5034 |- P4| 02bc cc53 a8cc | S | 02be 4b11 ff88 |K | 02c0 5312 be22 |S "| 02c2 1b88 5f12 | _ | 02c4 b43b eccc | ; | 02c6 cc50 6f13 | Po | 02c8 e8ce f834 | 4| 02ca 3dca 5286 |= R | 02cc 6ecb b4e2 |n | 02ce 7ac9 4050 |z @P| 02d0 9d3a 6e86 | :n | 02d2 0826 1565 | & e| 02d4 bc20 a710 | | 02d6 3208 38d1 |2 8 | 02d8 7042 9e84 |pB | 02da cf11 f5a2 | | 02dc aa85 d99f | | 02de 4a22 8f13 |J" | 02e0 d53b d710 | ; | 02e2 78d0 b99c |x | 02e4 fb0b f139 | 9| 02e6 030a da85 | | 02e8 60db 7e21 |` ~!| 02ea 1308 277a | 'z| 02ec ee87 eb12 | | 02ee f684 3b32 | ;2| 02f0 39a8 f024 |9 $| 02f2 2d3d 370b |-=7 | 02f4 aa21 3f0a | !? | 02f6 519f 1e84 |Q | 02f8 553d e093 |U= | 02fa 2a87 ca22 |* "| 02fc c03f 3684 | ?6 | 02fe 793c 1874 |y< t| 0300 7abf 322d |z 2-| 0302 770b 4e86 |w N | 0304 f82f 5684 | /V | 0306 673f 6285 |g?b | 0308 9f08 b53e | >| 030a dc37 a685 | 7 | 030c a30a c59d | | 030e ab0b 8284 | | 0310 2a25 b70b |*% | 0312 925b 9284 | [ | 0314 ed3c 31c6 | <1 | 0316 f19c 4a27 | J'| 0318 119f 019d | | 031a d70b a687 | | 031c ba85 e4d1 | | 031e eb08 6e27 | n'| 0320 a837 ce86 | 7 | 0322 04d3 d685 | | 0324 3abd d4c4 |: | 0326 930b 8886 | | 0328 3041 513f |0AQ?| 032a 3940 d465 |9@ e| 032c dc20 aa25 | %| 032e f458 b70b | X | 0330 319f c837 |1 7| 0332 759c c709 |u | 0334 8c5e 20c4 | ^ | 0336 2534 268b |%4& | 0338 c04b 770a | Kw | 033a 2ccd ecc4 |, | 033c 4a89 a69e |J | 033e 205d 0b12 | ] | 0340 2f15 1a25 |/ %| 0342 7a39 45a9 |z9E | 0344 1f12 0a8d | | 0346 2e9f 495d |. I]| 0348 2f13 f59d |/ | 034a e93f fd9d | ? | 034c 3f11 1034 |? 4| 034e 09a0 44d2 | D | 0350 a285 6310 | c | 0352 1da1 6b12 | k | 0354 c0d3 bcbc | | 0356 84d8 35a1 | 5 | 0358 58cf 0302 |X | 035a e0d0 ee89 | | 035c 1b83 5a80 | Z | 035e eb19 d33a | :| 0360 a1db fc8f | | 0362 0299 bb11 | | 0364 1a89 cb11 | | 0366 2289 e225 |" %| 0368 d02d db10 | - | 036a fe29 e311 | ) | 036c d89b bcbd | | 036e 4a8a 0a26 |J &| 0370 7d41 a381 |}A | 0372 0029 5e8a | )^ | 0374 a432 0b11 | 2 | 0376 1716 1312 | | 0378 9d4a 1b11 | J | 037a 98be 2310 | # | 037c f1a0 3a3a | ::| 037e 2f10 ae8d |/ | 0380 09a1 9e8a | | 0382 3f11 a68a |? | 0384 4711 b28b |G | 0386 293d 168d |)= | 0388 31a3 6c3b |1 l;| 038a 917e 3cc6 | ~< | 038c 30f3 513e |0 Q>| 038e 9627 cb8b | ' | 0390 613c 5c10 |a<\ | 0392 b5a3 ac3b | ;| 0394 713c 0b04 |q< | 0396 ae7c 1304 | | | 0398 b67c 1b06 | | | 039a 88c4 2305 | # | 039c 89a0 2b05 | + | 039e fc44 3307 | D3 | 03a0 564d a1a3 |VM | 03a2 1068 5f42 | h_B| 03a4 d0c4 ea7e | ~| 03a6 b5d5 c1a3 | | 03a8 6df8 56ac |m V | 03aa fe7c 6706 | |g | 03ac f4c7 81fa | | 03ae 8027 00c4 | ' | 03b0 7b07 cc41 |{ A| 03b2 227e 5308 |"~S | 03b4 0626 6708 | &g | 03b6 9706 5b09 | [ | 03b8 04d8 a707 | | 03ba c5f9 527e | R~| 03bc 49bb 6cc5 |I l | 03be 4455 667e |DUf~| 03c0 49a3 e4d1 |I | 03c2 767c d705 |v| | 03c4 7e7f 8c20 |~ | 03c6 01fd ac56 | V| 03c8 338c 0dfc |3 | 03ca fb07 c4c5 | | 03cc 2304 1dfd |# | 03ce cc3c f727 | < '| 03d0 8d55 1706 | U | 03d2 5780 35fd |W 5 | 03d4 f43e ac4c | > L| 03d6 32a3 d1a3 |2 | 03d8 0c75 d67e | u ~| 03da 75b9 6994 |u i | 03dc f438 e941 | 8 A| 03de b70f 2ea6 | . | 03e0 403c fd41 |@< A| 03e2 fe7c 75fd | |u | 03e4 402d 6f04 |@-o | 03e6 0025 7704 | %w | 03e8 7524 cc52 |u$ R| 03ea 1e7f d9cb | | 03ec f875 3729 | u7)| 03ee 9307 fd03 | | 03f0 21a1 9f04 |! | 03f2 a8c8 c9fd | | 03f4 5140 c5fc |Q@ | 03f6 bcc8 608b | ` | 03f8 e677 6c21 | wl!| 03fa bf05 78c9 | x | 03fc c704 e0c9 | | 03fe cf06 627c | b||