|
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_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0218 | | .CONST 0x0218 ; 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 0086 | | .CONST 0x0086 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0027 | ' | .CONST 0x0027 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0026 c21d | | Store 0x1,0x1d 0027 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0029 c21e | | Store 0x1,0x1e 002a 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 002c c225 | % | Store 0x1,0x25 002d 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 002f c221 | ! | Store 0x1,0x21 0030 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0032 c217 | | Store 0x1,0x17 0033 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0035 c222 | " | Store 0x1,0x22 0036 00bf | | Action Accept_Activation 0037 4800 |H | Short_Literal 0x0 0038 e001 | | Load 0x0,0x1 0039 02a0 | | Declare_Subprogram Null_Subprogram 003a 038e | | Declare_Type Package,Defined 003b 0387 | | Declare_Variable Package 003c e002 | | Load 0x0,0x2 003d e003 | | Load 0x0,0x3 003e e004 | | Load 0x0,0x4 003f e005 | | Load 0x0,0x5 0040 e006 | | Load 0x0,0x6 0041 e007 | | Load 0x0,0x7 0042 e008 | | Load 0x0,0x8 0043 e009 | | Load 0x0,0x9 0044 e00a | | Load 0x0,0xa 0045 e00b | | Load 0x0,0xb 0046 e00c | | Load 0x0,0xc 0047 e00d | | Load 0x0,0xd 0048 4800 |H | Short_Literal 0x0 0049 e00f | | Load 0x0,0xf 004a e010 | | Load 0x0,0x10 004b e011 | | Load 0x0,0x11 004c e012 | | Load 0x0,0x12 004d e013 | | Load 0x0,0x13 004e e014 | | Load 0x0,0x14 004f e015 | | Load 0x0,0x15 0050 e016 | | Load 0x0,0x16 0051 e017 | | Load 0x0,0x17 0052 e018 | | Load 0x0,0x18 0053 e019 | | Load 0x0,0x19 0054 e01a | | Load 0x0,0x1a 0055 e01b | | Load 0x0,0x1b 0056 e020 | | Load 0x0,0x20 0057 481b |H | Short_Literal 0x1b 0058 e226 | & | Load 0x1,0x26 0059 020e | | Execute Module,Augment_Imports 005a 00d8 | | Load_Top At_Offset_0 005b 020f | | Execute Module,Activate 005c 4800 |H | Short_Literal 0x0 005d e01c | | Load 0x0,0x1c 005e 02a0 | | Declare_Subprogram Null_Subprogram 005f 038e | | Declare_Type Package,Defined 0060 0387 | | Declare_Variable Package 0061 e007 | | Load 0x0,0x7 0062 e002 | | Load 0x0,0x2 0063 e006 | | Load 0x0,0x6 0064 e008 | | Load 0x0,0x8 0065 e004 | | Load 0x0,0x4 0066 e003 | | Load 0x0,0x3 0067 e00b | | Load 0x0,0xb 0068 e013 | | Load 0x0,0x13 0069 e00c | | Load 0x0,0xc 006a e011 | | Load 0x0,0x11 006b e00a | | Load 0x0,0xa 006c e01d | | Load 0x0,0x1d 006d e009 | | Load 0x0,0x9 006e e012 | | Load 0x0,0x12 006f e010 | | Load 0x0,0x10 0070 e015 | | Load 0x0,0x15 0071 e016 | | Load 0x0,0x16 0072 e01a | | Load 0x0,0x1a 0073 e019 | | Load 0x0,0x19 0074 e018 | | Load 0x0,0x18 0075 4814 |H | Short_Literal 0x14 0076 e227 | ' | Load 0x1,0x27 0077 020e | | Execute Module,Augment_Imports 0078 00d8 | | Load_Top At_Offset_0 0079 020f | | Execute Module,Activate 007a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 007b 00c7 | | Action Elaborate_Subprogram 007c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 007d 00c7 | | Action Elaborate_Subprogram 007e 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 007f 00c7 | | Action Elaborate_Subprogram 0080 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0081 00c7 | | Action Elaborate_Subprogram 0082 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0083 00c7 | | Action Elaborate_Subprogram 0084 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0085 00c7 | | Action Elaborate_Subprogram 0086 BODY_0008: 0086 00bc | | Action Signal_Activated 0087 00bb | | Action Signal_Completion 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 00a3 | | .CONST 0x00a3 ; Address of begin 0089 00b2 | | .CONST 0x00b2 ; Address of exception handler 008a 0006 | | .CONST 0x0006 ; Number of locals 008b INIT_0088: 008b e003 | | Load 0x0,0x3 008c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 008e e007 | | Load 0x0,0x7 008f 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 0090 0322 | " | Declare_Variable Record 0091 e5fe | | Load 0x2,-0x2 0092 e007 | | Load 0x0,0x7 0093 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0094 00d9 | | Load_Top At_Offset_1 0095 017d | } | Execute Record,Structure_Write 0096 e002 | | Load 0x0,0x2 0097 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0098 02c7 | | Declare_Variable Any 0099 00d8 | | Load_Top At_Offset_0 009a 1c00 | | Execute_Immediate Run_Utility,0x0 009b e002 | | Load 0x0,0x2 009c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 009d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 009e 02c7 | | Declare_Variable Any 009f 00d8 | | Load_Top At_Offset_0 00a0 1c00 | | Execute_Immediate Run_Utility,0x0 00a1 e002 | | Load 0x0,0x2 00a2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a3 BODY_0088: 00a3 e5fd | | Load 0x2,-0x3 00a4 4801 |H | Short_Literal 0x1 00a5 e5ff | | Load 0x2,-0x1 00a6 e006 | | Load 0x0,0x6 00a7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00a8 c404 | | Store 0x2,0x4 00a9 e003 | | Load 0x0,0x3 00aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ab e5fd | | Load 0x2,-0x3 00ac e403 | | Load 0x2,0x3 00ad e5ff | | Load 0x2,-0x1 00ae e226 | & | Load 0x1,0x26 00af 180d | | Execute Package,Field_Execute,Field_Number 0xd 00b0 c5fc | | Store 0x2,-0x4 00b1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00b2 TRAP_0088: 00b2 e003 | | Load 0x0,0x3 00b3 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00b4 010f | | Execute Exception,Equal 00b5 6804 |h | Jump_Zero 0xba 00b6 e003 | | Load 0x0,0x3 00b7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00b8 a5fc | | Store_Unchecked 0x2,-0x4 00b9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00ba 0092 01e5 | | Action Push_String_Extended,0x1e5 ; "Promote" 00bc e010 | | Load 0x0,0x10 00bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00be a5fc | | Store_Unchecked 0x2,-0x4 00bf 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00d3 | | .CONST 0x00d3 ; Address of begin 00c1 00ff | | .CONST 0x00ff ; Address of exception handler 00c2 0004 | | .CONST 0x0004 ; Number of locals 00c3 INIT_00c0: 00c3 e003 | | Load 0x0,0x3 00c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00c6 e007 | | Load 0x0,0x7 00c7 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 00c8 0322 | " | Declare_Variable Record 00c9 e5fe | | Load 0x2,-0x2 00ca e007 | | Load 0x0,0x7 00cb 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 00cc 00d9 | | Load_Top At_Offset_1 00cd 017d | } | Execute Record,Structure_Write 00ce e002 | | Load 0x0,0x2 00cf 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00d0 02c7 | | Declare_Variable Any 00d1 00d8 | | Load_Top At_Offset_0 00d2 1c00 | | Execute_Immediate Run_Utility,0x0 00d3 BODY_00c0: 00d3 e5fd | | Load 0x2,-0x3 00d4 0092 01e6 | | Action Push_String_Extended,0x1e6 ; "Rcf_Compilation.Demote" 00d6 e010 | | Load 0x0,0x10 00d7 180e | | Execute Package,Field_Execute,Field_Number 0xe 00d8 4800 |H | Short_Literal 0x0 00d9 a5fc | | Store_Unchecked 0x2,-0x4 00da e5fd | | Load 0x2,-0x3 00db 4800 |H | Short_Literal 0x0 00dc e5ff | | Load 0x2,-0x1 00dd e006 | | Load 0x0,0x6 00de 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00df c404 | | Store 0x2,0x4 00e0 00d8 | | Load_Top At_Offset_0 00e1 e002 | | Load 0x0,0x2 00e2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e3 6812 |h | Jump_Zero 0xf6 00e4 e5fd | | Load 0x2,-0x3 00e5 4800 |H | Short_Literal 0x0 00e6 e5ff | | Load 0x2,-0x1 00e7 e006 | | Load 0x0,0x6 00e8 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00e9 e002 | | Load 0x0,0x2 00ea 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00eb 7003 |p | Jump_Nonzero 0xef 00ec 4800 |H | Short_Literal 0x0 00ed a5fc | | Store_Unchecked 0x2,-0x4 00ee 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00ef e5fd | | Load 0x2,-0x3 00f0 4801 |H | Short_Literal 0x1 00f1 e5ff | | Load 0x2,-0x1 00f2 e006 | | Load 0x0,0x6 00f3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00f4 c404 | | Store 0x2,0x4 00f5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00f6 e003 | | Load 0x0,0x3 00f7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f8 e5fd | | Load 0x2,-0x3 00f9 00db | | Load_Top At_Offset_3 00fa e5ff | | Load 0x2,-0x1 00fb e226 | & | Load 0x1,0x26 00fc 180e | | Execute Package,Field_Execute,Field_Number 0xe 00fd c5fc | | Store 0x2,-0x4 00fe 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00ff TRAP_00c0: 00ff e003 | | Load 0x0,0x3 0100 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0101 010f | | Execute Exception,Equal 0102 6804 |h | Jump_Zero 0x107 0103 e003 | | Load 0x0,0x3 0104 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0105 a5fc | | Store_Unchecked 0x2,-0x4 0106 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0107 0092 01e7 | | Action Push_String_Extended,0x1e7 ; "Demote" 0109 e010 | | Load 0x0,0x10 010a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 010b a5fc | | Store_Unchecked 0x2,-0x4 010c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 010d 0000 0000 | | .XXX[0x3] 010f 0000 | | 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0120 | | .CONST 0x0120 ; Address of begin 0111 012b | + | .CONST 0x012b ; Address of exception handler 0112 0003 | | .CONST 0x0003 ; Number of locals 0113 INIT_0110: 0113 e007 | | Load 0x0,0x7 0114 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 0115 0322 | " | Declare_Variable Record 0116 e5fd | | Load 0x2,-0x3 0117 e007 | | Load 0x0,0x7 0118 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0119 00d9 | | Load_Top At_Offset_1 011a 017d | } | Execute Record,Structure_Write 011b e01e | | Load 0x0,0x1e 011c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 011d 02c7 | | Declare_Variable Any 011e 00d8 | | Load_Top At_Offset_0 011f 1c00 | | Execute_Immediate Run_Utility,0x0 0120 BODY_0110: 0120 e003 | | Load 0x0,0x3 0121 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0122 e5fa | | Load 0x2,-0x6 0123 00db | | Load_Top At_Offset_3 0124 e5fb | | Load 0x2,-0x5 0125 e5fe | | Load 0x2,-0x2 0126 e5ff | | Load 0x2,-0x1 0127 e227 | ' | Load 0x1,0x27 0128 180d | | Execute Package,Field_Execute,Field_Number 0xd 0129 c5f9 | | Store 0x2,-0x7 012a 4507 |E | Exit_Suprogram New_Top_Offset 0x7 012b TRAP_0110: 012b e003 | | Load 0x0,0x3 012c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 012d 010f | | Execute Exception,Equal 012e 6804 |h | Jump_Zero 0x133 012f e003 | | Load 0x0,0x3 0130 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0131 a5f9 | | Store_Unchecked 0x2,-0x7 0132 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0133 0092 01e8 | | Action Push_String_Extended,0x1e8 ; "Link" 0135 e010 | | Load 0x0,0x10 0136 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0137 a5f9 | | Store_Unchecked 0x2,-0x7 0138 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0139 0000 0000 | | .BLANK 0000[0x7] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 014b | K | .CONST 0x014b ; Address of begin 0141 0156 | V | .CONST 0x0156 ; Address of exception handler 0142 0002 | | .CONST 0x0002 ; Number of locals 0143 INIT_0140: 0143 e007 | | Load 0x0,0x7 0144 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 0145 0322 | " | Declare_Variable Record 0146 e5fd | | Load 0x2,-0x3 0147 e007 | | Load 0x0,0x7 0148 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0149 00d9 | | Load_Top At_Offset_1 014a 017d | } | Execute Record,Structure_Write 014b BODY_0140: 014b e003 | | Load 0x0,0x3 014c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 014d e5fc | | Load 0x2,-0x4 014e 00da | | Load_Top At_Offset_2 014f e5fe | | Load 0x2,-0x2 0150 e5ff | | Load 0x2,-0x1 0151 e009 | | Load 0x0,0x9 0152 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0153 180e | | Execute Package,Field_Execute,Field_Number 0xe 0154 c5fb | | Store 0x2,-0x5 0155 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0156 TRAP_0140: 0156 e003 | | Load 0x0,0x3 0157 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0158 010f | | Execute Exception,Equal 0159 6804 |h | Jump_Zero 0x15e 015a e003 | | Load 0x0,0x3 015b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 015c a5fb | | Store_Unchecked 0x2,-0x5 015d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 015e 0092 01e9 | | Action Push_String_Extended,0x1e9 ; "Unregister_Unit" 0160 e010 | | Load 0x0,0x10 0161 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0162 a5fb | | Store_Unchecked 0x2,-0x5 0163 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0164 0000 0000 | | .BLANK 0000[0x4] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016d | m | .CONST 0x016d ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0002 | | .CONST 0x0002 ; Number of locals 016b INIT_0168: 016b e01f | | Load 0x0,0x1f 016c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 016d BODY_0168: 016d 4800 |H | Short_Literal 0x0 016e e5ff | | Load 0x2,-0x1 016f e003 | | Load 0x0,0x3 0170 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0171 702b |p+ | Jump_Nonzero 0x19d 0172 00db | | Load_Top At_Offset_3 0173 e003 | | Load 0x0,0x3 0174 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0175 e003 | | Load 0x0,0x3 0176 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0177 460b |F | Jump_Case 0xc 0178 780b |x | Jump 0x184 ; case 0x0 0179 780a |x | Jump 0x184 ; case 0x1 017a 7809 |x | Jump 0x184 ; case 0x2 017b 7808 |x | Jump 0x184 ; case 0x3 017c 7807 |x | Jump 0x184 ; case 0x4 017d 7809 |x | Jump 0x187 ; case 0x5 017e 780b |x | Jump 0x18a ; case 0x6 017f 780d |x | Jump 0x18d ; case 0x7 0180 780f |x | Jump 0x190 ; case 0x8 0181 7802 |x | Jump 0x184 ; case 0x9 0182 7801 |x | Jump 0x184 ; case 0xa 0183 7800 |x | Jump 0x184 ; case 0xb 0184 4800 |H | Short_Literal 0x0 0185 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0186 780b |x | Jump 0x192 0187 4803 |H | Short_Literal 0x3 0188 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0189 7808 |x | Jump 0x192 018a 4801 |H | Short_Literal 0x1 018b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 018c 7805 |x | Jump 0x192 018d 4803 |H | Short_Literal 0x3 018e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 018f 7802 |x | Jump 0x192 0190 4803 |H | Short_Literal 0x3 0191 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0192 e5fe | | Load 0x2,-0x2 0193 00d9 | | Load_Top At_Offset_1 0194 e5ff | | Load 0x2,-0x1 0195 e003 | | Load 0x0,0x3 0196 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0197 0092 01ea | | Action Push_String_Extended,0x1ea ; "RCI error" 0199 e01f | | Load 0x0,0x1f 019a 181a | | Execute Package,Field_Execute,Field_Number 0x1a 019b c5fe | | Store 0x2,-0x2 019c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 019d 00db | | Load_Top At_Offset_3 019e e003 | | Load 0x0,0x3 019f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01a0 e003 | | Load 0x0,0x3 01a1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 01a2 0f06 | | Execute_Immediate Equal,0x6 01a3 680b |h | Jump_Zero 0x1af 01a4 e5fe | | Load 0x2,-0x2 01a5 4801 |H | Short_Literal 0x1 01a6 e5ff | | Load 0x2,-0x1 01a7 e003 | | Load 0x0,0x3 01a8 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01a9 0092 01eb | | Action Push_String_Extended,0x1eb ; "RCI warning" 01ab e01f | | Load 0x0,0x1f 01ac 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01ad c5fe | | Store 0x2,-0x2 01ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01af e5fe | | Load 0x2,-0x2 01b0 e01f | | Load 0x0,0x1f 01b1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01b2 c5fe | | Store 0x2,-0x2 01b3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b4 0000 0000 | | .BLANK 0000[0x4] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01c6 | | .CONST 0x01c6 ; Address of begin 01b9 01d7 | | .CONST 0x01d7 ; Address of exception handler 01ba 0003 | | .CONST 0x0003 ; Number of locals 01bb INIT_01b8: 01bb e007 | | Load 0x0,0x7 01bc 1b62 | b | Execute Package,Field_Read,Field_Number 0x62 01bd 0322 | " | Declare_Variable Record 01be e5fd | | Load 0x2,-0x3 01bf e007 | | Load 0x0,0x7 01c0 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 01c1 00d9 | | Load_Top At_Offset_1 01c2 017d | } | Execute Record,Structure_Write 01c3 e003 | | Load 0x0,0x3 01c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01c6 BODY_01b8: 01c6 4800 |H | Short_Literal 0x0 01c7 a5fb | | Store_Unchecked 0x2,-0x5 01c8 e5ff | | Load 0x2,-0x1 01c9 e006 | | Load 0x0,0x6 01ca 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01cb 700a |p | Jump_Nonzero 0x1d6 01cc e003 | | Load 0x0,0x3 01cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ce e5fc | | Load 0x2,-0x4 01cf 00db | | Load_Top At_Offset_3 01d0 e5fe | | Load 0x2,-0x2 01d1 e5ff | | Load 0x2,-0x1 01d2 e009 | | Load 0x0,0x9 01d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01d4 180d | | Execute Package,Field_Execute,Field_Number 0xd 01d5 c5fb | | Store 0x2,-0x5 01d6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01d7 TRAP_01b8: 01d7 e003 | | Load 0x0,0x3 01d8 1b17 | | Execute Package,Field_Read,Field_Number 0x17 01d9 010f | | Execute Exception,Equal 01da 6804 |h | Jump_Zero 0x1df 01db e003 | | Load 0x0,0x3 01dc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01dd a5fb | | Store_Unchecked 0x2,-0x5 01de 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01df 0092 01ec | | Action Push_String_Extended,0x1ec ; "Register" 01e1 e010 | | Load 0x0,0x10 01e2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01e3 a5fb | | Store_Unchecked 0x2,-0x5 01e4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01e5 ; -------------------------------------------------------------------------------------- 01e5 ; STRING TABLE 01e5 ; -------------------------------------------------------------------------------------- 01e5 0012 | | .STRTAB 0x0012->0x01ee ; "Promote" 01e6 0017 | | .STRTAB 0x0017->0x01f1 ; "Rcf_Compilation.Demote" 01e7 002b | + | .STRTAB 0x002b->0x01fc ; "Demote" 01e8 002f | / | .STRTAB 0x002f->0x01ff ; "Link" 01e9 0031 | 1 | .STRTAB 0x0031->0x0201 ; "Unregister_Unit" 01ea 003e | > | .STRTAB 0x003e->0x0209 ; "RCI error" 01eb 0045 | E | .STRTAB 0x0045->0x020d ; "RCI warning" 01ec 004e | N | .STRTAB 0x004e->0x0213 ; "Register" 01ed 0054 | T | .STREND 0x0054->0x0217 01ee 5072 6f6d |Prom| .STRTAB_STRINGS 0217 0000 | | .XXX[0x1] 0218 ; -------------------------------------------------------------------------------------- 0218 ; Debug Table 0218 ; -------------------------------------------------------------------------------------- 0218 0004 000f | | .DEBUG4 0x0004,0x000f,0x2bdd,0x0000,0x0001,0x0000 021e 0808 0808 | | .BLANK 0808[0x19] 0237 0800 0000 | | .XXX[0x3] 0239 0009 | | 023a 0101 0101 | | .BLANK 0101[0x4f] 0289 0100 0000 | | .XXX[0x4] 028b 0001 3c3d | <=| 028d 2020 2020 | | .BLANK 2020[0x63] 02f0 0000 0001 | | .XXX[0xf] 02f2 0000 0002 | | 02f4 3c3d 0000 |<= | 02f6 0001 0000 | | 02f8 0002 3c3d | <=| 02fa 0000 0001 | | 02fc 0000 0002 | | 02fe 3c3d |<= | 02ff 0000 0000 | | .BLANK 0000[0x4] 0303 0400 0000 | | .XXX[0x3] 0305 0090 | | 0306 1010 1010 | | .BLANK 1010[0xc7] 03cd 1000 0000 | | .XXX[0x19] 03cf 0060 0000 | ` | 03d1 000c 0000 | | 03d3 0001 8000 | | 03d5 0000 3000 | 0 | 03d7 0000 0600 | | 03d9 0000 00c0 | | 03db 0000 0018 | | 03dd 0000 0003 | | 03df 0000 0000 | | 03e1 6000 0000 |` | 03e3 0c00 0000 | | 03e5 0248 | H | 03e6 0808 0808 | | .BLANK 0808[0x1a]