|
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_1060f5
└─⟦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 0260 | ` | .CONST 0x0260 ; 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 0057 | W | .CONST 0x0057 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001e | | .CONST 0x001e ; 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 e001 | | Load 0x0,0x1 001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001e 0129 | ) | Execute Any,Make_Visible 001f c211 | | Store 0x1,0x11 0020 e001 | | Load 0x0,0x1 0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0022 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0023 0129 | ) | Execute Any,Make_Visible 0024 c212 | | Store 0x1,0x12 0025 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 0027 c215 | | Store 0x1,0x15 0028 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 002a c213 | | Store 0x1,0x13 002b 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 002d c216 | | Store 0x1,0x16 002e 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0030 c217 | | Store 0x1,0x17 0031 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0033 c218 | | Store 0x1,0x18 0034 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0036 c219 | | Store 0x1,0x19 0037 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0039 c21a | | Store 0x1,0x1a 003a 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 003c c21b | | Store 0x1,0x1b 003d 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 003f c21c | | Store 0x1,0x1c 0040 00bf | | Action Accept_Activation 0041 029d 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call 0043 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call 0045 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0046 00c7 | | Action Elaborate_Subprogram 0047 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0048 00c7 | | Action Elaborate_Subprogram 0049 1d16 | | Execute_Immediate Reference_Lex_1,0x16 004a 00c7 | | Action Elaborate_Subprogram 004b 1d17 | | Execute_Immediate Reference_Lex_1,0x17 004c 00c7 | | Action Elaborate_Subprogram 004d 1d18 | | Execute_Immediate Reference_Lex_1,0x18 004e 00c7 | | Action Elaborate_Subprogram 004f 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0050 00c7 | | Action Elaborate_Subprogram 0051 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0052 00c7 | | Action Elaborate_Subprogram 0053 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0054 00c7 | | Action Elaborate_Subprogram 0055 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0056 00c7 | | Action Elaborate_Subprogram 0057 BODY_0008: 0057 00bc | | Action Signal_Activated 0058 00bb | | Action Signal_Completion 0059 0000 0000 | | .BLANK 0000[0x7] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0071 | q | .CONST 0x0071 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0004 | | .CONST 0x0004 ; Number of locals 0063 INIT_0060: 0063 00da | | Load_Top At_Offset_2 0064 e001 | | Load 0x0,0x1 0065 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0066 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0067 0f02 | | Execute_Immediate Equal,0x2 0068 0007 | | Action Break_Optional 0069 00db | | Load_Top At_Offset_3 006a e001 | | Load 0x0,0x1 006b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 006c 180e | | Execute Package,Field_Execute,Field_Number 0xe 006d 0c02 | | Execute_Immediate Greater_Equal,0x2 006e 0007 | | Action Break_Optional 006f 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 0071 BODY_0060: 0071 00da | | Load_Top At_Offset_2 0072 e5ff | | Load 0x2,-0x1 0073 821d | | Call 0x1,0x1d 0074 e5ff | | Load 0x2,-0x1 0075 821e | | Call 0x1,0x1e 0076 0278 | x | Execute Discrete,Or 0077 0279 | y | Execute Discrete,And 0078 00da | | Load_Top At_Offset_2 0079 0279 | y | Execute Discrete,And 007a 6803 |h | Jump_Zero 0x7e 007b e5ff | | Load 0x2,-0x1 007c 8404 | | Call 0x2,0x4 007d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007e 4800 |H | Short_Literal 0x0 007f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 e001 | | Load 0x0,0x1 0084 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0085 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0086 4800 |H | Short_Literal 0x0 0087 4801 |H | Short_Literal 0x1 0088 4800 |H | Short_Literal 0x0 0089 e5ff | | Load 0x2,-0x1 008a e002 | | Load 0x0,0x2 008b 180f | | Execute Package,Field_Execute,Field_Number 0xf 008c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0099 | | .CONST 0x0099 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0003 | | .CONST 0x0003 ; Number of locals 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 0094 e003 | | Load 0x0,0x3 0095 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0096 e5fe | | Load 0x2,-0x2 0097 e003 | | Load 0x0,0x3 0098 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0099 BODY_0090: 0099 00d9 | | Load_Top At_Offset_1 009a 00d9 | | Load_Top At_Offset_1 009b 01de | | Execute Vector,Not_Equal 009c 6802 |h | Jump_Zero 0x9f 009d 4800 |H | Short_Literal 0x0 009e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 009f 4801 |H | Short_Literal 0x1 00a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00a1 0000 0000 | | .BLANK 0000[0x7] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00b1 | | .CONST 0x00b1 ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0003 | | .CONST 0x0003 ; Number of locals 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 00ac e003 | | Load 0x0,0x3 00ad 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00ae e5fe | | Load 0x2,-0x2 00af e003 | | Load 0x0,0x3 00b0 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00b1 BODY_00a8: 00b1 00d9 | | Load_Top At_Offset_1 00b2 00d9 | | Load_Top At_Offset_1 00b3 01de | | Execute Vector,Not_Equal 00b4 6806 |h | Jump_Zero 0xbb 00b5 4801 |H | Short_Literal 0x1 00b6 00d9 | | Load_Top At_Offset_1 00b7 00db | | Load_Top At_Offset_3 00b8 e004 | | Load 0x0,0x4 00b9 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00ba 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00bb e5ff | | Load 0x2,-0x1 00bc 821e | | Call 0x1,0x1e 00bd e5fe | | Load 0x2,-0x2 00be 821d | | Call 0x1,0x1d 00bf 0279 | y | Execute Discrete,And 00c0 6802 |h | Jump_Zero 0xc3 00c1 4800 |H | Short_Literal 0x0 00c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00c3 4801 |H | Short_Literal 0x1 00c4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00c5 0000 0000 | | .XXX[0x3] 00c7 0000 | | 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00d0 | | .CONST 0x00d0 ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0002 | | .CONST 0x0002 ; Number of locals 00cb INIT_00c8: 00cb 00da | | Load_Top At_Offset_2 00cc e001 | | Load 0x0,0x1 00cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ce 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 00cf 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00d0 BODY_00c8: 00d0 00d8 | | Load_Top At_Offset_0 00d1 e005 | | Load 0x0,0x5 00d2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00d3 027f | | Execute Discrete,Equal 00d4 00d9 | | Load_Top At_Offset_1 00d5 e005 | | Load 0x0,0x5 00d6 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00d7 027f | | Execute Discrete,Equal 00d8 0278 | x | Execute Discrete,Or 00d9 00d9 | | Load_Top At_Offset_1 00da e005 | | Load 0x0,0x5 00db 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 00dc 027f | | Execute Discrete,Equal 00dd 0278 | x | Execute Discrete,Or 00de 00d9 | | Load_Top At_Offset_1 00df e005 | | Load 0x0,0x5 00e0 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00e1 027f | | Execute Discrete,Equal 00e2 0278 | x | Execute Discrete,Or 00e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e4 0000 0000 | | .BLANK 0000[0x4] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00f3 | | .CONST 0x00f3 ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0002 | | .CONST 0x0002 ; Number of locals 00eb INIT_00e8: 00eb 00da | | Load_Top At_Offset_2 00ec e001 | | Load 0x0,0x1 00ed 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00ee 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00ef e001 | | Load 0x0,0x1 00f0 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00f1 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00f2 03f1 | | Declare_Variable Discrete,With_Value 00f3 BODY_00e8: 00f3 00db | | Load_Top At_Offset_3 00f4 8215 | | Call 0x1,0x15 00f5 6803 |h | Jump_Zero 0xf9 00f6 00d8 | | Load_Top At_Offset_0 00f7 0f04 | | Execute_Immediate Equal,0x4 00f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f9 4800 |H | Short_Literal 0x0 00fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fb 0000 0000 | | .BLANK 0000[0x5] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0107 | | .CONST 0x0107 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0002 | | .CONST 0x0002 ; Number of locals 0103 INIT_0100: 0103 e211 | | Load 0x1,0x11 0104 02c7 | | Declare_Variable Any 0105 00d8 | | Load_Top At_Offset_0 0106 1c00 | | Execute_Immediate Run_Utility,0x0 0107 BODY_0100: 0107 00db | | Load_Top At_Offset_3 0108 8219 | | Call 0x1,0x19 0109 680d |h | Jump_Zero 0x117 010a 00db | | Load_Top At_Offset_3 010b e001 | | Load 0x0,0x1 010c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 010d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 010e c402 | | Store 0x2,0x2 010f 00d8 | | Load_Top At_Offset_0 0110 8219 | | Call 0x1,0x19 0111 6803 |h | Jump_Zero 0x115 0112 00d8 | | Load_Top At_Offset_0 0113 821a | | Call 0x1,0x1a 0114 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0115 00d8 | | Load_Top At_Offset_0 0116 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0117 e001 | | Load 0x0,0x1 0118 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0119 180e | | Execute Package,Field_Execute,Field_Number 0xe 011a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 011b 0000 0000 | | .BLANK 0000[0x5] 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 00da | | Load_Top At_Offset_2 0124 e006 | | Load 0x0,0x6 0125 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0126 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0127 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 0139 | 9 | .CONST 0x0139 ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0006 | | .CONST 0x0006 ; Number of locals 012b INIT_0128: 012b e211 | | Load 0x1,0x11 012c 02c7 | | Declare_Variable Any 012d 00db | | Load_Top At_Offset_3 012e a402 | | Store_Unchecked 0x2,0x2 012f e211 | | Load 0x1,0x11 0130 02c7 | | Declare_Variable Any 0131 00d8 | | Load_Top At_Offset_0 0132 1c00 | | Execute_Immediate Run_Utility,0x0 0133 029f 018b | | Declare_Subprogram INIT_0188,For_Call 0135 029f 019b | | Declare_Subprogram INIT_0198,For_Call 0137 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 0139 BODY_0128: 0139 e402 | | Load 0x2,0x2 013a 821d | | Call 0x1,0x1d 013b 6804 |h | Jump_Zero 0x140 013c 8405 | | Call 0x2,0x5 013d 6802 |h | Jump_Zero 0x140 013e 8406 | | Call 0x2,0x6 013f 7807 |x | Jump 0x147 0140 e5ff | | Load 0x2,-0x1 0141 00d8 | | Load_Top At_Offset_0 0142 0120 | | Execute Any,Is_Value 0143 7002 |p | Jump_Nonzero 0x146 0144 00d8 | | Load_Top At_Offset_0 0145 011e | | Execute Any,Convert 0146 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0147 0831 | 1 | Execute_Immediate Raise,0x31 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 00da | | Load_Top At_Offset_2 014c e001 | | Load 0x0,0x1 014d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 014e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 014f 0f02 | | Execute_Immediate Equal,0x2 0150 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0151 0000 0000 | | .BLANK 0000[0x7] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 00da | | Load_Top At_Offset_2 015c e001 | | Load 0x0,0x1 015d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 015e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 015f 0f03 | | Execute_Immediate Equal,0x3 0160 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0161 0000 0000 | | .BLANK 0000[0x7] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016e | n | .CONST 0x016e ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0002 | | .CONST 0x0002 ; Number of locals 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 016c e003 | | Load 0x0,0x3 016d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 016e BODY_0168: 016e 00d8 | | Load_Top At_Offset_0 016f 01db | | Execute Vector,Length 0170 0c01 | | Execute_Immediate Greater_Equal,0x1 0171 6812 |h | Jump_Zero 0x184 0172 00d8 | | Load_Top At_Offset_0 0173 01dd | | Execute Vector,First 0174 00d9 | | Load_Top At_Offset_1 0175 01d7 | | Execute Vector,Field_Read 0176 0e5f | _ | Execute_Immediate Not_Equal,0x5f 0177 6802 |h | Jump_Zero 0x17a 0178 4801 |H | Short_Literal 0x1 0179 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017a 0092 0254 | T| Action Push_String_Extended,0x254 ; "Ignoring " 017c e7ff | | Load 0x3,-0x1 017d e003 | | Load 0x0,0x3 017e 181e | | Execute Package,Field_Execute,Field_Number 0x1e 017f 01cc | | Execute Vector,Catenate 0180 e007 | | Load 0x0,0x7 0181 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0182 4800 |H | Short_Literal 0x0 0183 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0184 4800 |H | Short_Literal 0x0 0185 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0186 0000 0000 | | .XXX[0x2] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018d | | .CONST 0x018d ; Address of begin 0189 018f | | .CONST 0x018f ; Address of exception handler 018a 0002 | | .CONST 0x0002 ; Number of locals 018b INIT_0188: 018b 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 018d BODY_0188: 018d 8602 | | Call 0x3,0x2 018e 0831 | 1 | Execute_Immediate Raise,0x31 018f TRAP_0188: 018f 0007 | | Action Break_Optional 0190 e001 | | Load 0x0,0x1 0191 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0192 180e | | Execute Package,Field_Execute,Field_Number 0xe 0193 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0194 0000 0000 | | .BLANK 0000[0x4] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019d | | .CONST 0x019d ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0002 | | .CONST 0x0002 ; Number of locals 019b INIT_0198: 019b e008 | | Load 0x0,0x8 019c 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 019d BODY_0198: 019d 00cf | | Action Mark_Auxiliary 019e e402 | | Load 0x2,0x2 019f e001 | | Load 0x0,0x1 01a0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01a1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01a2 c402 | | Store 0x2,0x2 01a3 e402 | | Load 0x2,0x2 01a4 e001 | | Load 0x0,0x1 01a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a6 1b56 | V | Execute Package,Field_Read,Field_Number 0x56 01a7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01a8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01a9 00d9 | | Load_Top At_Offset_1 01aa e005 | | Load 0x0,0x5 01ab 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01ac 027f | | Execute Discrete,Equal 01ad 6802 |h | Jump_Zero 0x1b0 01ae 4801 |H | Short_Literal 0x1 01af 00ca | | Action Exit_Nullary_Function 01b0 00d9 | | Load_Top At_Offset_1 01b1 e005 | | Load 0x0,0x5 01b2 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01b3 027f | | Execute Discrete,Equal 01b4 6802 |h | Jump_Zero 0x1b7 01b5 4800 |H | Short_Literal 0x0 01b6 00ca | | Action Exit_Nullary_Function 01b7 00d9 | | Load_Top At_Offset_1 01b8 e005 | | Load 0x0,0x5 01b9 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01ba 027f | | Execute Discrete,Equal 01bb 6802 |h | Jump_Zero 0x1be 01bc 4800 |H | Short_Literal 0x0 01bd 00ca | | Action Exit_Nullary_Function 01be 00d9 | | Load_Top At_Offset_1 01bf e005 | | Load 0x0,0x5 01c0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01c1 027f | | Execute Discrete,Equal 01c2 6802 |h | Jump_Zero 0x1c5 01c3 4800 |H | Short_Literal 0x0 01c4 00ca | | Action Exit_Nullary_Function 01c5 00d9 | | Load_Top At_Offset_1 01c6 e005 | | Load 0x0,0x5 01c7 180f | | Execute Package,Field_Execute,Field_Number 0xf 01c8 027f | | Execute Discrete,Equal 01c9 6802 |h | Jump_Zero 0x1cc 01ca 4800 |H | Short_Literal 0x0 01cb 00ca | | Action Exit_Nullary_Function 01cc 00d9 | | Load_Top At_Offset_1 01cd e005 | | Load 0x0,0x5 01ce 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01cf 027f | | Execute Discrete,Equal 01d0 6802 |h | Jump_Zero 0x1d3 01d1 4800 |H | Short_Literal 0x0 01d2 00ca | | Action Exit_Nullary_Function 01d3 00d9 | | Load_Top At_Offset_1 01d4 e005 | | Load 0x0,0x5 01d5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01d6 027f | | Execute Discrete,Equal 01d7 6802 |h | Jump_Zero 0x1da 01d8 4800 |H | Short_Literal 0x0 01d9 00ca | | Action Exit_Nullary_Function 01da 00c9 | | Action Pop_Auxiliary_Loop 01db 7fc2 | | Jump 0x19e 01dc 0000 0000 | | .BLANK 0000[0x4] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01f1 | | .CONST 0x01f1 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0003 | | .CONST 0x0003 ; Number of locals 01e3 INIT_01e0: 01e3 e211 | | Load 0x1,0x11 01e4 02c7 | | Declare_Variable Any 01e5 e402 | | Load 0x2,0x2 01e6 e001 | | Load 0x0,0x1 01e7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01e8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01e9 a602 | | Store_Unchecked 0x3,0x2 01ea e211 | | Load 0x1,0x11 01eb 02c7 | | Declare_Variable Any 01ec 4800 |H | Short_Literal 0x0 01ed 00da | | Load_Top At_Offset_2 01ee e009 | | Load 0x0,0x9 01ef 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01f0 a603 | | Store_Unchecked 0x3,0x3 01f1 BODY_01e0: 01f1 00d8 | | Load_Top At_Offset_0 01f2 e001 | | Load 0x0,0x1 01f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01f4 180f | | Execute Package,Field_Execute,Field_Number 0xf 01f5 00da | | Load_Top At_Offset_2 01f6 00da | | Load_Top At_Offset_2 01f7 e001 | | Load 0x0,0x1 01f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01f9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01fa 0278 | x | Execute Discrete,Or 01fb 6808 |h | Jump_Zero 0x204 01fc e5ff | | Load 0x2,-0x1 01fd 00d8 | | Load_Top At_Offset_0 01fe 0120 | | Execute Any,Is_Value 01ff 7002 |p | Jump_Nonzero 0x202 0200 00d8 | | Load_Top At_Offset_0 0201 011e | | Execute Any,Convert 0202 00cb | | Action Pop_Block_With_Result 0203 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0204 00d8 | | Load_Top At_Offset_0 0205 e402 | | Load 0x2,0x2 0206 e5ff | | Load 0x2,-0x1 0207 8404 | | Call 0x2,0x4 0208 c403 | | Store 0x2,0x3 0209 e403 | | Load 0x2,0x3 020a e001 | | Load 0x0,0x1 020b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 020c 180f | | Execute Package,Field_Execute,Field_Number 0xf 020d 6808 |h | Jump_Zero 0x216 020e e5ff | | Load 0x2,-0x1 020f 00d8 | | Load_Top At_Offset_0 0210 0120 | | Execute Any,Is_Value 0211 7002 |p | Jump_Nonzero 0x214 0212 00d8 | | Load_Top At_Offset_0 0213 011e | | Execute Any,Convert 0214 00cb | | Action Pop_Block_With_Result 0215 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0216 e403 | | Load 0x2,0x3 0217 00cb | | Action Pop_Block_With_Result 0218 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0219 0000 0000 | | .BLANK 0000[0x7] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0251 | Q | .CONST 0x0251 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0007 | | .CONST 0x0007 ; Number of locals 0223 INIT_0220: 0223 e7ff | | Load 0x3,-0x1 0224 e001 | | Load 0x0,0x1 0225 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0226 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0227 e7fe | | Load 0x3,-0x2 0228 e001 | | Load 0x0,0x1 0229 1b0e | | Execute Package,Field_Read,Field_Number 0xe 022a 1820 | | Execute Package,Field_Execute,Field_Number 0x20 022b 0092 0255 | U| Action Push_String_Extended,0x255 ; ".UNITS" 022d 01cc | | Execute Vector,Catenate 022e 0007 | | Action Break_Optional 022f 00d9 | | Load_Top At_Offset_1 0230 01dd | | Execute Vector,First 0231 00d9 | | Load_Top At_Offset_1 0232 01db | | Execute Vector,Length 0233 0273 | s | Execute Discrete,Plus 0234 00d8 | | Load_Top At_Offset_0 0235 00e2 | | Load_Encached Integer_Cache 0236 0260 | ` | Execute Discrete,In_Type 0237 7001 |p | Jump_Nonzero 0x239 0238 0801 | | Execute_Immediate Raise,0x1 0239 00da | | Load_Top At_Offset_2 023a 01dc | | Execute Vector,Last 023b 00db | | Load_Top At_Offset_3 023c 01cf | | Execute Vector,Slice_Read 023d 0007 | | Action Break_Optional 023e e7fd | | Load 0x3,-0x3 023f e001 | | Load 0x0,0x1 0240 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0241 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0242 00d8 | | Load_Top At_Offset_0 0243 00da | | Load_Top At_Offset_2 0244 01cc | | Execute Vector,Catenate 0245 0007 | | Action Break_Optional 0246 e211 | | Load 0x1,0x11 0247 02c7 | | Declare_Variable Any 0248 4801 |H | Short_Literal 0x1 0249 e001 | | Load 0x0,0x1 024a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 024b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 024c 00db | | Load_Top At_Offset_3 024d e001 | | Load 0x0,0x1 024e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 024f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0250 a807 | | Store_Unchecked 0x4,0x7 0251 BODY_0220: 0251 00d8 | | Load_Top At_Offset_0 0252 00cb | | Action Pop_Block_With_Result 0253 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0254 ; -------------------------------------------------------------------------------------- 0254 ; STRING TABLE 0254 ; -------------------------------------------------------------------------------------- 0254 0006 | | .STRTAB 0x0006->0x0257 ; "Ignoring " 0255 000d | | .STRTAB 0x000d->0x025b ; ".UNITS" 0256 0011 | | .STREND 0x0011->0x025e 0257 4967 6e6f |Igno| .STRTAB_STRINGS 025f 0000 | | .XXX[0x1] 0260 ; -------------------------------------------------------------------------------------- 0260 ; Debug Table 0260 ; -------------------------------------------------------------------------------------- 0260 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0ec8,0x0000,0x0001,0x0000 0266 ffff ffff | | .XXX[0x3] 0268 ffff | | 0269 fcfc 03fb | | .XXX[0x2] 026b ffff ffff | | .BLANK ffff[0x4] 026f fffc 3c03 | < | .XXX[0x2] 0271 ffff ffff | | .BLANK ffff[0x5] 0276 fc3c 03ff | < | .XXX[0x2] 0278 ffff ffff | | .BLANK ffff[0x4] 027c fffc 1c03 | | .XXX[0x2] 027e ffff ffff | | .BLANK ffff[0x5] 0283 fc1c 03ff | | .XXX[0x2] 0285 ffff ffff | | .BLANK ffff[0x4] 0289 fffc 0c03 | | .XXX[0x3] 028b fbff | | 028c ffff ffff | | .BLANK ffff[0x4] 0290 fc0c 03e3 | | .XXX[0x2] 0292 ffff ffff | | .BLANK ffff[0x4] 0296 fffc 0c03 | | .XXX[0x3] 0298 c3ff | | 0299 ffff ffff | | .BLANK ffff[0x4] 029d fc04 03c3 | | .XXX[0x2] 029f ffff ffff | | .BLANK ffff[0x4] 02a3 fffc 0403 | | .XXX[0x3] 02a5 c3ff | | 02a6 ffff ffff | | .BLANK ffff[0x4] 02aa fc0c 0383 | | .XXX[0x2] 02ac ffff ffff | | .BLANK ffff[0x4] 02b0 fffc 0c00 | | .XXX[0x3] 02b2 03ff | | 02b3 ffff ffff | | .BLANK ffff[0x4] 02b7 fc0c 0003 | | .XXX[0x9] 02b9 e3ff ffff | | 02bb ffff ffff | | 02bd fffc 0c00 | | 02bf 0383 | | 02c0 ffff ffff | | .BLANK ffff[0x4] 02c4 fc0c 0000 | | .XXX[0x87] 02c6 03ff ffff | | 02c8 ffff ffff | | 02ca fffc 0c00 | | 02cc 0003 f3ff | | 02ce ffff ffff | | 02d0 ffff fc0c | | 02d2 0000 03e3 | | 02d4 ffff ffff | | 02d6 ffff fffc | | 02d8 0c00 0003 | | 02da c3ff ffff | | 02dc ffff ffff | | 02de fc0c 0000 | | 02e0 0303 ffff | | 02e2 ffff ffff | | 02e4 fffc 0c00 | | 02e6 0002 03ff | | 02e8 ffff ffff | | 02ea ffff fc0c | | 02ec 0000 0203 | | 02ee ffff ffff | | 02f0 ffff fffc | | 02f2 0c00 0002 | | 02f4 03ff ffff | | 02f6 ffff ffff | | 02f8 fc0c 0000 | | 02fa 0003 ffff | | 02fc ffff ffff | | 02fe fffc 0c00 | | 0300 0000 03ff | | 0302 ffff ffff | | 0304 ffff fc0c | | 0306 0000 0003 | | 0308 ffff ffff | | 030a ffff fffc | | 030c 0c00 0000 | | 030e 03ff ffff | | 0310 ffff ffff | | 0312 fc04 0000 | | 0314 0003 ffff | | 0316 ffff ffff | | 0318 fffc 0400 | | 031a 0000 03ff | | 031c ffff ffff | | 031e ffff fc00 | | 0320 0000 0003 | | 0322 ffff ffff | | 0324 ffff fdfc | | 0326 0000 0000 | | 0328 03ff ffff | | 032a ffff 8ffc | | 032c 7c00 0000 || | 032e 0003 ffff | | 0330 fffc 7c03 | | | 0332 f81c 0000 | | 0334 0000 03ff | | 0336 ffff fc1c | | 0338 0000 0000 | | 033a 0000 0003 | | 033c ffff fffc | | 033e 0400 0000 | | 0340 0000 0000 | | 0342 03ff fffc | | 0344 fc00 0000 | | 0346 0000 0000 | | 0348 0003 fbff | | 034a fc7c | | | 034b 0000 0000 | | .BLANK 0000[0x4] 034f 03fb fffc | | .XXX[0x9] 0351 1c00 0000 | | 0353 0000 0000 | | 0355 0003 fbff | | 0357 fc00 | | 0358 0000 0000 | | .BLANK 0000[0x4] 035c 03fb fc7c | || .XXX[0x2] 035e 0000 0000 | | .BLANK 0000[0x4] 0362 0003 f3fc | | .XXX[0x3] 0364 1c00 | | 0365 0000 0000 | | .BLANK 0000[0x4] 0369 03e0 fc00 | | .XXX[0x2] 036b 0000 0000 | | .BLANK 0000[0x4] 036f 0002 000c | | .XXX[0x2] 0371 0000 0000 | | .BLANK 0000[0x8] 0379 0003 c004 | | .XXX[0x2] 037b 0000 0000 | | .BLANK 0000[0xc] 0387 0420 0000 | | .XXX[0x1a] 0389 0000 0002 | | 038b 023c 0c03 | < | 038d 0004 6000 | ` | 038f 0000 0000 | | 0391 0000 0018 | | 0393 0180 01c0 | | 0395 0000 0000 | | 0397 0000 3003 | 0 | 0399 000c 0001 | | 039b 0000 0000 | | 039d 0000 0010 | | 039f 0000 1800 | | 03a1 0000 0000 | | .BLANK 0000[0x4] 03a5 1800 0300 | | .XXX[0xb] 03a7 1c00 0000 | | 03a9 0000 0000 | | 03ab 0008 0000 | | 03ad 0000 0000 | | 03af 7800 |x | 03b0 0000 0000 | | .BLANK 0000[0x5] 03b5 00c0 1800 | | .XXX[0x2] 03b7 0000 0000 | | .BLANK 0000[0x5] 03bc 00f0 0000 | | .XXX[0x3] 03be 0300 | | 03bf 0000 0000 | | .BLANK 0000[0x5] 03c4 0001 | | .XXX[0x1] 03c5 0000 0000 | | .BLANK 0000[0x5] 03ca 1c00 0180 | | .XXX[0x2] 03cc 0000 0000 | | .BLANK 0000[0x4] 03d0 0030 0000 | 0 | .XXX[0x30] 03d2 0000 0040 | @| 03d4 0002 7dc0 | } | 03d6 00bc 3525 | 5%| 03d8 394d 251d |9M% | 03da 2151 7d09 |!Q} | 03dc 0551 0d20 | Q | 03de 0028 5d0d | (] | 03e0 4915 0551 |I Q| 03e2 157d 1115 | } | 03e4 1925 3925 | %9%| 03e6 391d 7d11 |9 } | 03e8 2505 1d49 |% I| 03ea 0534 012c | 4 ,| 03ec 613d 0929 |a= )| 03ee 150d 517d | Q}| 03f0 3905 3525 |9 5%| 03f2 391d 7d15 |9 } | 03f4 6141 4915 |aAI | 03f6 4d4d 253d |MM%=| 03f8 3800 2c19 |8 , | 03fa 4d51 4925 |MQI%| 03fc 391c 01e0 |9 | 03fe 0000 6431 | d1|