|
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: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦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 0420 | | .CONST 0x0420 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00c5 | | .CONST 0x00c5 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 003d | = | .CONST 0x003d ; Number of locals 000b INIT_0008: 000b 00e5 | | Load_Encached Long_Integer_Cache 000c 0129 | ) | Execute Any,Make_Visible 000d 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 000f 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0011 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0013 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0015 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0017 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0019 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 001b 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 001d 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 001f 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0021 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0023 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0025 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0027 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0029 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 002b 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 002d 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 002f 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 0031 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 0033 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 0035 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 0037 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0039 0093 0000 | | push_full_address 0x0 003b 6098 |` | Indirect_Literal Discrete,0xd4,{0x80000000, 0x00010000} 003c 0273 | s | Execute Discrete,Plus 003d 0129 | ) | Execute Any,Make_Visible 003e 00bf | | Action Accept_Activation 003f 4800 |H | Short_Literal 0x0 0040 48ff |H | Short_Literal 0xff 0041 00e5 | | Load_Encached Long_Integer_Cache 0042 03f8 | | Declare_Type Discrete,Constrained 0043 4800 |H | Short_Literal 0x0 0044 48df |H | Short_Literal 0xdf 0045 00da | | Load_Top At_Offset_2 0046 03f8 | | Declare_Type Discrete,Constrained 0047 48e0 |H | Short_Literal 0xe0 0048 48ff |H | Short_Literal 0xff 0049 00db | | Load_Top At_Offset_3 004a 03f8 | | Declare_Type Discrete,Constrained 004b 4900 |I | Short_Literal 0x100 004c 497f |I | Short_Literal 0x17f 004d 00e5 | | Load_Encached Long_Integer_Cache 004e 03f8 | | Declare_Type Discrete,Constrained 004f 4980 |I | Short_Literal 0x180 0050 607f |` | Indirect_Literal Discrete,0xd0,{0x7fffffff, 0xffffffff} 0051 00e5 | | Load_Encached Long_Integer_Cache 0052 03f8 | | Declare_Type Discrete,Constrained 0053 4801 |H | Short_Literal 0x1 0054 481f |H | Short_Literal 0x1f 0055 e225 | % | Load 0x1,0x25 0056 03f8 | | Declare_Type Discrete,Constrained 0057 4820 |H | Short_Literal 0x20 0058 482f |H/ | Short_Literal 0x2f 0059 e225 | % | Load 0x1,0x25 005a 03f8 | | Declare_Type Discrete,Constrained 005b 4830 |H0 | Short_Literal 0x30 005c 483f |H? | Short_Literal 0x3f 005d e225 | % | Load 0x1,0x25 005e 03f8 | | Declare_Type Discrete,Constrained 005f 4840 |H@ | Short_Literal 0x40 0060 484f |HO | Short_Literal 0x4f 0061 e225 | % | Load 0x1,0x25 0062 03f8 | | Declare_Type Discrete,Constrained 0063 4850 |HP | Short_Literal 0x50 0064 485f |H_ | Short_Literal 0x5f 0065 e225 | % | Load 0x1,0x25 0066 03f8 | | Declare_Type Discrete,Constrained 0067 4860 |H` | Short_Literal 0x60 0068 487f |H | Short_Literal 0x7f 0069 e225 | % | Load 0x1,0x25 006a 03f8 | | Declare_Type Discrete,Constrained 006b 4880 |H | Short_Literal 0x80 006c 48df |H | Short_Literal 0xdf 006d e225 | % | Load 0x1,0x25 006e 03f8 | | Declare_Type Discrete,Constrained 006f 4900 |I | Short_Literal 0x100 0070 490f |I | Short_Literal 0x10f 0071 e228 | ( | Load 0x1,0x28 0072 03f8 | | Declare_Type Discrete,Constrained 0073 4910 |I | Short_Literal 0x110 0074 491f |I | Short_Literal 0x11f 0075 e228 | ( | Load 0x1,0x28 0076 03f8 | | Declare_Type Discrete,Constrained 0077 4920 |I | Short_Literal 0x120 0078 492f |I/ | Short_Literal 0x12f 0079 e228 | ( | Load 0x1,0x28 007a 03f8 | | Declare_Type Discrete,Constrained 007b 4930 |I0 | Short_Literal 0x130 007c 493f |I? | Short_Literal 0x13f 007d e228 | ( | Load 0x1,0x28 007e 03f8 | | Declare_Type Discrete,Constrained 007f 4940 |I@ | Short_Literal 0x140 0080 494f |IO | Short_Literal 0x14f 0081 e228 | ( | Load 0x1,0x28 0082 03f8 | | Declare_Type Discrete,Constrained 0083 4950 |IP | Short_Literal 0x150 0084 495f |I_ | Short_Literal 0x15f 0085 e228 | ( | Load 0x1,0x28 0086 03f8 | | Declare_Type Discrete,Constrained 0087 4960 |I` | Short_Literal 0x160 0088 496f |Io | Short_Literal 0x16f 0089 e228 | ( | Load 0x1,0x28 008a 03f8 | | Declare_Type Discrete,Constrained 008b 4970 |Ip | Short_Literal 0x170 008c 497f |I | Short_Literal 0x17f 008d e228 | ( | Load 0x1,0x28 008e 03f8 | | Declare_Type Discrete,Constrained 008f 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0090 00c7 | | Action Elaborate_Subprogram 0091 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0092 00c7 | | Action Elaborate_Subprogram 0093 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0094 00c7 | | Action Elaborate_Subprogram 0095 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0096 00c7 | | Action Elaborate_Subprogram 0097 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0098 00c7 | | Action Elaborate_Subprogram 0099 1d13 | | Execute_Immediate Reference_Lex_1,0x13 009a 00c7 | | Action Elaborate_Subprogram 009b 1d14 | | Execute_Immediate Reference_Lex_1,0x14 009c 00c7 | | Action Elaborate_Subprogram 009d 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call 009f 029d 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call 00a1 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00a2 00c7 | | Action Elaborate_Subprogram 00a3 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00a4 00c7 | | Action Elaborate_Subprogram 00a5 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00a6 00c7 | | Action Elaborate_Subprogram 00a7 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00a8 00c7 | | Action Elaborate_Subprogram 00a9 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00aa 00c7 | | Action Elaborate_Subprogram 00ab 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00ac 00c7 | | Action Elaborate_Subprogram 00ad 029d 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call 00af 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00b0 00c7 | | Action Elaborate_Subprogram 00b1 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call 00b3 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call 00b5 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00b6 00c7 | | Action Elaborate_Subprogram 00b7 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00b8 00c7 | | Action Elaborate_Subprogram 00b9 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00ba 00c7 | | Action Elaborate_Subprogram 00bb 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00bc 00c7 | | Action Elaborate_Subprogram 00bd 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00be 00c7 | | Action Elaborate_Subprogram 00bf 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00c0 00c7 | | Action Elaborate_Subprogram 00c1 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00c2 00c7 | | Action Elaborate_Subprogram 00c3 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00c4 00c7 | | Action Elaborate_Subprogram 00c5 BODY_0008: 00c5 00bc | | Action Signal_Activated 00c6 00bb | | Action Signal_Completion 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 4800 |H | Short_Literal 0x0 00cc 00ca | | Action Exit_Nullary_Function 00cd 0000 0000 | | .XXX[0x3] 00cf 0000 | | 00d0 7fff ffff | | .LITERAL {0x7fffffff, 0xffffffff} 00d4 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 00da | | Load_Top At_Offset_2 00dc 0f00 | | Execute_Immediate Equal,0x0 00dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00de 0000 0000 | | .XXX[0x2] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 4fff |O | Short_Literal -0x1 00e4 00ca | | Action Exit_Nullary_Function 00e5 0000 0000 | | .XXX[0x3] 00e7 0000 | | 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 4fff |O | Short_Literal -0x1 00ed 027f | | Execute Discrete,Equal 00ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ef 0000 | | .XXX[0x1] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 00f4 6007 |` | Indirect_Literal Discrete,0xfc,{0x00000000, 0x7fffffff} 00f5 026e | n | Execute Discrete,Modulo 00f6 00d8 | | Load_Top At_Offset_0 00f7 00e2 | | Load_Encached Integer_Cache 00f8 0260 | ` | Execute Discrete,In_Type 00f9 7001 |p | Jump_Nonzero 0xfb 00fa 0801 | | Execute_Immediate Raise,0x1 00fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fc 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0105 0000 0000 | | .XXX[0x3] 0107 0000 | | 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 00da | | Load_Top At_Offset_2 010c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010d 0000 0000 | | .XXX[0x3] 010f 0000 | | 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 820f | | Call 0x1,0xf 0115 6803 |h | Jump_Zero 0x119 0116 0092 03f3 | | Action Push_String_Extended,0x3f3 ; "ANY" 0118 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0119 00da | | Load_Top At_Offset_2 011a 8211 | | Call 0x1,0x11 011b 6803 |h | Jump_Zero 0x11f 011c 0092 03f4 | | Action Push_String_Extended,0x3f4 ; "IMPLICIT" 011e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 011f 00da | | Load_Top At_Offset_2 0120 823a | : | Call 0x1,0x3a 0121 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0122 0000 0000 | | .BLANK 0000[0x6] 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 821c | | Call 0x1,0x1c 012d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 012e 0000 0000 | | .XXX[0x2] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0134 | 4 | .CONST 0x0134 ; Address of begin 0131 014e | N | .CONST 0x014e ; Address of exception handler 0132 0002 | | .CONST 0x0002 ; Number of locals 0133 INIT_0130: 0133 00e5 | | Load_Encached Long_Integer_Cache 0134 BODY_0130: 0134 4801 |H | Short_Literal 0x1 0135 0092 03f5 | | Action Push_String_Extended,0x3f5 ; "null" 0137 e5ff | | Load 0x2,-0x1 0138 e002 | | Load 0x0,0x2 0139 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 013a 6805 |h | Jump_Zero 0x140 013b 820e | | Call 0x1,0xe 013c a5fe | | Store_Unchecked 0x2,-0x2 013d 4801 |H | Short_Literal 0x1 013e a5fd | | Store_Unchecked 0x2,-0x3 013f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0140 00db | | Load_Top At_Offset_3 0141 e003 | | Load 0x0,0x3 0142 180e | | Execute Package,Field_Execute,Field_Number 0xe 0143 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0144 00d8 | | Load_Top At_Offset_0 0145 a5fe | | Store_Unchecked 0x2,-0x2 0146 00d8 | | Load_Top At_Offset_0 0147 6803 |h | Jump_Zero 0x14b 0148 4801 |H | Short_Literal 0x1 0149 a5fd | | Store_Unchecked 0x2,-0x3 014a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 014b 4800 |H | Short_Literal 0x0 014c a5fd | | Store_Unchecked 0x2,-0x3 014d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 014e TRAP_0130: 014e 010e | | Execute Exception,Is_Constraint_Error 014f 6805 |h | Jump_Zero 0x155 0150 820e | | Call 0x1,0xe 0151 a5fe | | Store_Unchecked 0x2,-0x2 0152 4800 |H | Short_Literal 0x0 0153 a5fd | | Store_Unchecked 0x2,-0x3 0154 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0155 0100 | | Execute Exception,Raise 0156 0000 0000 | | .XXX[0x2] 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 820f | | Call 0x1,0xf 015d 6803 |h | Jump_Zero 0x161 015e 0092 03f5 | | Action Push_String_Extended,0x3f5 ; "null" 0160 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0161 00da | | Load_Top At_Offset_2 0162 8211 | | Call 0x1,0x11 0163 6803 |h | Jump_Zero 0x167 0164 0092 03f6 | | Action Push_String_Extended,0x3f6 ; "implicit" 0166 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0167 00da | | Load_Top At_Offset_2 0168 821a | | Call 0x1,0x1a 0169 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016a 0000 0000 | | .BLANK 0000[0x6] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0176 | v | .CONST 0x0176 ; Address of begin 0171 01a8 | | .CONST 0x01a8 ; Address of exception handler 0172 0004 | | .CONST 0x0004 ; Number of locals 0173 INIT_0170: 0173 00e5 | | Load_Encached Long_Integer_Cache 0174 00e5 | | Load_Encached Long_Integer_Cache 0175 00e1 | | Load_Encached Boolean_Cache 0176 BODY_0170: 0176 e5ff | | Load 0x2,-0x1 0177 01db | | Execute Vector,Length 0178 680e |h | Jump_Zero 0x187 0179 4801 |H | Short_Literal 0x1 017a 0092 03f7 | | Action Push_String_Extended,0x3f7 ; "NULL" 017c e5ff | | Load 0x2,-0x1 017d e002 | | Load 0x0,0x2 017e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 017f 7007 |p | Jump_Nonzero 0x187 0180 4801 |H | Short_Literal 0x1 0181 0092 03f3 | | Action Push_String_Extended,0x3f3 ; "ANY" 0183 e5ff | | Load 0x2,-0x1 0184 e002 | | Load 0x0,0x2 0185 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0186 6802 |h | Jump_Zero 0x189 0187 820e | | Call 0x1,0xe 0188 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0189 4801 |H | Short_Literal 0x1 018a 0092 03f4 | | Action Push_String_Extended,0x3f4 ; "IMPLICIT" 018c e5ff | | Load 0x2,-0x1 018d e002 | | Load 0x0,0x2 018e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 018f 6802 |h | Jump_Zero 0x192 0190 8210 | | Call 0x1,0x10 0191 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0192 00e5 | | Load_Encached Long_Integer_Cache 0193 00e5 | | Load_Encached Long_Integer_Cache 0194 4801 |H | Short_Literal 0x1 0195 e5ff | | Load 0x2,-0x1 0196 8004 | | Call 0x0,0x4 0197 c402 | | Store 0x2,0x2 0198 005a | Z | Store_Top Discrete,At_Offset_2 0199 00d9 | | Load_Top At_Offset_1 019a 4800 |H | Short_Literal 0x0 019b 48ff |H | Short_Literal 0xff 019c 0262 | b | Execute Discrete,In_Range 019d 7002 |p | Jump_Nonzero 0x1a0 019e 00da | | Load_Top At_Offset_2 019f 7005 |p | Jump_Nonzero 0x1a5 01a0 00da | | Load_Top At_Offset_2 01a1 0908 | | Execute_Immediate Binary_Scale,0x8 01a2 00da | | Load_Top At_Offset_2 01a3 0273 | s | Execute Discrete,Plus 01a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a5 e005 | | Load 0x0,0x5 01a6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01a7 0257 | W | Execute Discrete,Raise 01a8 TRAP_0170: 01a8 0007 | | Action Break_Optional 01a9 e005 | | Load 0x0,0x5 01aa 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01ab 0257 | W | Execute Discrete,Raise 01ac 0000 0000 | | .BLANK 0000[0x4] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 00da | | Load_Top At_Offset_2 01b4 e006 | | Load 0x0,0x6 01b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b7 0000 | | .XXX[0x1] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 00da | | Load_Top At_Offset_2 01bc e226 | & | Load 0x1,0x26 01bd 0260 | ` | Execute Discrete,In_Type 01be 6802 |h | Jump_Zero 0x1c1 01bf 4801 |H | Short_Literal 0x1 01c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c1 4800 |H | Short_Literal 0x0 01c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c3 0000 0000 | | .BLANK 0000[0x5] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 00da | | Load_Top At_Offset_2 01cc e225 | % | Load 0x1,0x25 01cd 0260 | ` | Execute Discrete,In_Type 01ce 7004 |p | Jump_Nonzero 0x1d3 01cf 00da | | Load_Top At_Offset_2 01d0 e228 | ( | Load 0x1,0x28 01d1 0260 | ` | Execute Discrete,In_Type 01d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d3 4801 |H | Short_Literal 0x1 01d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d5 0000 0000 | | .XXX[0x3] 01d7 0000 | | 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 00db | | Load_Top At_Offset_3 01dc 00d8 | | Load_Top At_Offset_0 01dd 48e0 |H | Short_Literal 0xe0 01de 48e4 |H | Short_Literal 0xe4 01df 0262 | b | Execute Discrete,In_Range 01e0 681f |h | Jump_Zero 0x200 01e1 0be0 | | Execute_Immediate Case_Compare,0xe0 01e2 700a |p | Jump_Nonzero 0x1ed 01e3 0be1 | | Execute_Immediate Case_Compare,0xe1 01e4 700d |p | Jump_Nonzero 0x1f2 01e5 0be2 | | Execute_Immediate Case_Compare,0xe2 01e6 7010 |p | Jump_Nonzero 0x1f7 01e7 0fe3 | | Execute_Immediate Equal,-0x1d 01e8 7013 |p | Jump_Nonzero 0x1fc 01e9 00da | | Load_Top At_Offset_2 01ea e22e | . | Load 0x1,0x2e 01eb 0260 | ` | Execute Discrete,In_Type 01ec 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ed 00d1 | | Pop_Control Pop_Count_1 01ee 00da | | Load_Top At_Offset_2 01ef e22a | * | Load 0x1,0x2a 01f0 0260 | ` | Execute Discrete,In_Type 01f1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01f2 00d1 | | Pop_Control Pop_Count_1 01f3 00da | | Load_Top At_Offset_2 01f4 e22b | + | Load 0x1,0x2b 01f5 0260 | ` | Execute Discrete,In_Type 01f6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01f7 00d1 | | Pop_Control Pop_Count_1 01f8 00da | | Load_Top At_Offset_2 01f9 e22c | , | Load 0x1,0x2c 01fa 0260 | ` | Execute Discrete,In_Type 01fb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01fc 00da | | Load_Top At_Offset_2 01fd e22d | - | Load 0x1,0x2d 01fe 0260 | ` | Execute Discrete,In_Type 01ff 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0200 00d1 | | Pop_Control Pop_Count_1 0201 00db | | Load_Top At_Offset_3 0202 00db | | Load_Top At_Offset_3 0203 027f | | Execute Discrete,Equal 0204 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0205 0000 0000 | | .XXX[0x3] 0207 0000 | | 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00db | | Load_Top At_Offset_3 020c 8214 | | Call 0x1,0x14 020d 8211 | | Call 0x1,0x11 020e 6803 |h | Jump_Zero 0x212 020f 00da | | Load_Top At_Offset_2 0210 821b | | Call 0x1,0x1b 0211 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0212 00da | | Load_Top At_Offset_2 0213 e5fe | | Load 0x2,-0x2 0214 027f | | Execute Discrete,Equal 0215 7004 |p | Jump_Nonzero 0x21a 0216 00db | | Load_Top At_Offset_3 0217 8214 | | Call 0x1,0x14 0218 820f | | Call 0x1,0xf 0219 6802 |h | Jump_Zero 0x21c 021a 4801 |H | Short_Literal 0x1 021b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 021c 00db | | Load_Top At_Offset_3 021d 823b | ; | Call 0x1,0x3b 021e 680d |h | Jump_Zero 0x22c 021f 00da | | Load_Top At_Offset_2 0220 e228 | ( | Load 0x1,0x28 0221 0260 | ` | Execute Discrete,In_Type 0222 6809 |h | Jump_Zero 0x22c 0223 00db | | Load_Top At_Offset_3 0224 00d8 | | Load_Top At_Offset_0 0225 e228 | ( | Load 0x1,0x28 0226 0260 | ` | Execute Discrete,In_Type 0227 7001 |p | Jump_Nonzero 0x229 0228 0801 | | Execute_Immediate Raise,0x1 0229 00db | | Load_Top At_Offset_3 022a 823d | = | Call 0x1,0x3d 022b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 022c 00db | | Load_Top At_Offset_3 022d 823c | < | Call 0x1,0x3c 022e 680d |h | Jump_Zero 0x23c 022f 00da | | Load_Top At_Offset_2 0230 821b | | Call 0x1,0x1b 0231 680a |h | Jump_Zero 0x23c 0232 00db | | Load_Top At_Offset_3 0233 e225 | % | Load 0x1,0x25 0234 0260 | ` | Execute Discrete,In_Type 0235 7002 |p | Jump_Nonzero 0x238 0236 4800 |H | Short_Literal 0x0 0237 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0238 00db | | Load_Top At_Offset_3 0239 00db | | Load_Top At_Offset_3 023a 821d | | Call 0x1,0x1d 023b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 023c 00da | | Load_Top At_Offset_2 023d 8007 | | Call 0x0,0x7 023e e5fe | | Load 0x2,-0x2 023f 027f | | Execute Discrete,Equal 0240 6802 |h | Jump_Zero 0x243 0241 4801 |H | Short_Literal 0x1 0242 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0243 4800 |H | Short_Literal 0x0 0244 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0245 0000 0000 | | .XXX[0x3] 0247 0000 | | 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 00db | | Load_Top At_Offset_3 024c 8213 | | Call 0x1,0x13 024d 00db | | Load_Top At_Offset_3 024e 8213 | | Call 0x1,0x13 024f 821e | | Call 0x1,0x1e 0250 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0251 0000 0000 | | .BLANK 0000[0x7] 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 00da | | Load_Top At_Offset_2 025c 0f31 | 1 | Execute_Immediate Equal,0x31 025d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 025e 0000 0000 | | .XXX[0x2] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 00da | | Load_Top At_Offset_2 0264 09f8 | | Execute_Immediate Binary_Scale,-0x8 0265 4801 |H | Short_Literal 0x1 0266 0279 | y | Execute Discrete,And 0267 0f01 | | Execute_Immediate Equal,0x1 0268 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0269 0000 0000 | | .BLANK 0000[0x7] 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 4820 |H | Short_Literal 0x20 0274 4800 |H | Short_Literal 0x0 0275 4810 |H | Short_Literal 0x10 0276 e5ff | | Load 0x2,-0x1 0277 e002 | | Load 0x0,0x2 0278 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0279 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 027a 0000 0000 | | .BLANK 0000[0x6] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0285 | | .CONST 0x0285 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0003 | | .CONST 0x0003 ; Number of locals 0283 INIT_0280: 0283 00e1 | | Load_Encached Boolean_Cache 0284 00e5 | | Load_Encached Long_Integer_Cache 0285 BODY_0280: 0285 00e1 | | Load_Encached Boolean_Cache 0286 00e5 | | Load_Encached Long_Integer_Cache 0287 4810 |H | Short_Literal 0x10 0288 e5ff | | Load 0x2,-0x1 0289 e002 | | Load 0x0,0x2 028a 1819 | | Execute Package,Field_Execute,Field_Number 0x19 028b 005a | Z | Store_Top Discrete,At_Offset_2 028c 005a | Z | Store_Top Discrete,At_Offset_2 028d 00d9 | | Load_Top At_Offset_1 028e 6802 |h | Jump_Zero 0x291 028f 00d8 | | Load_Top At_Offset_0 0290 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0291 e224 | $ | Load 0x1,0x24 0292 0257 | W | Execute Discrete,Raise 0293 0000 0000 | | .BLANK 0000[0x5] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 02a5 | | .CONST 0x02a5 ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0002 | | .CONST 0x0002 ; Number of locals 029b INIT_0298: 029b 0092 03f8 | | Action Push_String_Extended,0x3f8 ; "#" 029d 4820 |H | Short_Literal 0x20 029e 4800 |H | Short_Literal 0x0 029f 4810 |H | Short_Literal 0x10 02a0 e5fe | | Load 0x2,-0x2 02a1 e002 | | Load 0x0,0x2 02a2 1817 | | Execute Package,Field_Execute,Field_Number 0x17 02a3 01cc | | Execute Vector,Catenate 02a4 0007 | | Action Break_Optional 02a5 BODY_0298: 02a5 e5fe | | Load 0x2,-0x2 02a6 7004 |p | Jump_Nonzero 0x2ab 02a7 e5fd | | Load 0x2,-0x3 02a8 6802 |h | Jump_Zero 0x2ab 02a9 00ea | | Load_Encached Null_String_Cache 02aa 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02ab 00db | | Load_Top At_Offset_3 02ac 01db | | Execute Vector,Length 02ad 7002 |p | Jump_Nonzero 0x2b0 02ae 00d8 | | Load_Top At_Offset_0 02af 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02b0 00db | | Load_Top At_Offset_3 02b1 0092 03f9 | | Action Push_String_Extended,0x3f9 ; " = " 02b3 01cc | | Execute Vector,Catenate 02b4 00d9 | | Load_Top At_Offset_1 02b5 01cc | | Execute Vector,Catenate 02b6 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 02b7 0000 | | .XXX[0x1] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02c7 | | .CONST 0x02c7 ; Address of begin 02b9 02db | | .CONST 0x02db ; Address of exception handler 02ba 0006 | | .CONST 0x0006 ; Number of locals 02bb INIT_02b8: 02bb 00da | | Load_Top At_Offset_2 02bc 00e5 | | Load_Encached Long_Integer_Cache 02bd 03f1 | | Declare_Variable Discrete,With_Value 02be 00e4 | | Load_Encached Positive_Cache 02bf 00d9 | | Load_Top At_Offset_1 02c0 8008 | | Call 0x0,0x8 02c1 e009 | | Load 0x0,0x9 02c2 03f1 | | Declare_Variable Discrete,With_Value 02c3 029f 03b3 | | Declare_Subprogram INIT_03b0,For_Call 02c5 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call 02c7 BODY_02b8: 02c7 00da | | Load_Top At_Offset_2 02c8 4608 |F | Jump_Case 0x9 02c9 7808 |x | Jump 0x2d2 ; case 0x0 02ca 7807 |x | Jump 0x2d2 ; case 0x1 02cb 780b |x | Jump 0x2d7 ; case 0x2 02cc 7805 |x | Jump 0x2d2 ; case 0x3 02cd 780b |x | Jump 0x2d9 ; case 0x4 02ce 7803 |x | Jump 0x2d2 ; case 0x5 02cf 7802 |x | Jump 0x2d2 ; case 0x6 02d0 7801 |x | Jump 0x2d2 ; case 0x7 02d1 7800 |x | Jump 0x2d2 ; case 0x8 02d2 4800 |H | Short_Literal 0x0 02d3 e5ff | | Load 0x2,-0x1 02d4 00ea | | Load_Encached Null_String_Cache 02d5 8239 | 9 | Call 0x1,0x39 02d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02d7 8405 | | Call 0x2,0x5 02d8 7801 |x | Jump 0x2da 02d9 8406 | | Call 0x2,0x6 02da 0831 | 1 | Execute_Immediate Raise,0x31 02db TRAP_02b8: 02db 0007 | | Action Break_Optional 02dc 4800 |H | Short_Literal 0x0 02dd e5ff | | Load 0x2,-0x1 02de 00ea | | Load_Encached Null_String_Cache 02df 8239 | 9 | Call 0x1,0x39 02e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02e1 0000 0000 | | .BLANK 0000[0x7] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb 00da | | Load_Top At_Offset_2 02ec 00d8 | | Load_Top At_Offset_0 02ed 4931 |I1 | Short_Literal 0x131 02ee 027c | | | Execute Discrete,Less 02ef 701d |p | Jump_Nonzero 0x30d 02f0 00d8 | | Load_Top At_Offset_0 02f1 493f |I? | Short_Literal 0x13f 02f2 027d | } | Execute Discrete,Greater 02f3 7003 |p | Jump_Nonzero 0x2f7 02f4 00d1 | | Pop_Control Pop_Count_1 02f5 4800 |H | Short_Literal 0x0 02f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f7 00d8 | | Load_Top At_Offset_0 02f8 4951 |IQ | Short_Literal 0x151 02f9 027c | | | Execute Discrete,Less 02fa 700d |p | Jump_Nonzero 0x308 02fb 00d8 | | Load_Top At_Offset_0 02fc 495f |I_ | Short_Literal 0x15f 02fd 027d | } | Execute Discrete,Greater 02fe 7001 |p | Jump_Nonzero 0x300 02ff 7ff4 | | Jump 0x2f4 0300 00d8 | | Load_Top At_Offset_0 0301 4960 |I` | Short_Literal 0x160 0302 027f | | Execute Discrete,Equal 0303 7011 |p | Jump_Nonzero 0x315 0304 4970 |Ip | Short_Literal 0x170 0305 027f | | Execute Discrete,Equal 0306 700f |p | Jump_Nonzero 0x316 0307 7fed | | Jump 0x2f5 0308 4941 |IA | Short_Literal 0x141 0309 494f |IO | Short_Literal 0x14f 030a 0262 | b | Execute Discrete,In_Range 030b 77e9 |w | Jump_Nonzero 0x2f5 030c 7809 |x | Jump 0x316 030d 00d8 | | Load_Top At_Offset_0 030e 4910 |I | Short_Literal 0x110 030f 027c | | | Execute Discrete,Less 0310 700f |p | Jump_Nonzero 0x320 0311 00d8 | | Load_Top At_Offset_0 0312 4910 |I | Short_Literal 0x110 0313 027d | } | Execute Discrete,Greater 0314 7003 |p | Jump_Nonzero 0x318 0315 00d1 | | Pop_Control Pop_Count_1 0316 4801 |H | Short_Literal 0x1 0317 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0318 00d8 | | Load_Top At_Offset_0 0319 4920 |I | Short_Literal 0x120 031a 027f | | Execute Discrete,Equal 031b 77f9 |w | Jump_Nonzero 0x315 031c 4930 |I0 | Short_Literal 0x130 031d 027f | | Execute Discrete,Equal 031e 77f7 |w | Jump_Nonzero 0x316 031f 7fd5 | | Jump 0x2f5 0320 4900 |I | Short_Literal 0x100 0321 027f | | Execute Discrete,Equal 0322 77f3 |w | Jump_Nonzero 0x316 0323 7fd1 | | Jump 0x2f5 0324 0000 0000 | | .BLANK 0000[0x4] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 032b | + | .CONST 0x032b ; Address of begin 0329 0004 | | .CONST 0x0004 ; Address of exception handler 032a 0001 | | .CONST 0x0001 ; Number of locals 032b BODY_0328: 032b INIT_0328: 032b 00da | | Load_Top At_Offset_2 032c 00d8 | | Load_Top At_Offset_0 032d e228 | ( | Load 0x1,0x28 032e 0260 | ` | Execute Discrete,In_Type 032f 700b |p | Jump_Nonzero 0x33b 0330 00d8 | | Load_Top At_Offset_0 0331 e226 | & | Load 0x1,0x26 0332 0260 | ` | Execute Discrete,In_Type 0333 700a |p | Jump_Nonzero 0x33e 0334 600f |` | Indirect_Literal Discrete,0x344,{0x80000000, 0x00000000} 0335 4fff |O | Short_Literal -0x1 0336 0262 | b | Execute Discrete,In_Range 0337 7009 |p | Jump_Nonzero 0x341 0338 7800 |x | Jump 0x339 0339 4801 |H | Short_Literal 0x1 033a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 033b 00d1 | | Pop_Control Pop_Count_1 033c 4801 |H | Short_Literal 0x1 033d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 033e 00d1 | | Pop_Control Pop_Count_1 033f 4800 |H | Short_Literal 0x0 0340 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0341 4800 |H | Short_Literal 0x0 0342 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0343 0000 | | .XXX[0x1] 0344 8000 0000 | | .LITERAL {0x80000000, 0x00000000} 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 034b | K | .CONST 0x034b ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0001 | | .CONST 0x0001 ; Number of locals 034b BODY_0348: 034b INIT_0348: 034b 00db | | Load_Top At_Offset_3 034c 00d8 | | Load_Top At_Offset_0 034d 4931 |I1 | Short_Literal 0x131 034e 027c | | | Execute Discrete,Less 034f 7020 |p | Jump_Nonzero 0x370 0350 00d8 | | Load_Top At_Offset_0 0351 493f |I? | Short_Literal 0x13f 0352 027d | } | Execute Discrete,Greater 0353 7003 |p | Jump_Nonzero 0x357 0354 00d1 | | Pop_Control Pop_Count_1 0355 4800 |H | Short_Literal 0x0 0356 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0357 00d8 | | Load_Top At_Offset_0 0358 4951 |IQ | Short_Literal 0x151 0359 027c | | | Execute Discrete,Less 035a 700d |p | Jump_Nonzero 0x368 035b 00d8 | | Load_Top At_Offset_0 035c 495f |I_ | Short_Literal 0x15f 035d 027d | } | Execute Discrete,Greater 035e 7001 |p | Jump_Nonzero 0x360 035f 7ff4 | | Jump 0x354 0360 00d8 | | Load_Top At_Offset_0 0361 4960 |I` | Short_Literal 0x160 0362 027f | | Execute Discrete,Equal 0363 7040 |p@ | Jump_Nonzero 0x3a4 0364 4970 |Ip | Short_Literal 0x170 0365 027f | | Execute Discrete,Equal 0366 7042 |pB | Jump_Nonzero 0x3a9 0367 7fed | | Jump 0x355 0368 00d8 | | Load_Top At_Offset_0 0369 4940 |I@ | Short_Literal 0x140 036a 027f | | Execute Discrete,Equal 036b 702f |p/ | Jump_Nonzero 0x39b 036c 4950 |IP | Short_Literal 0x150 036d 027f | | Execute Discrete,Equal 036e 7031 |p1 | Jump_Nonzero 0x3a0 036f 7fe5 | | Jump 0x355 0370 00d8 | | Load_Top At_Offset_0 0371 4911 |I | Short_Literal 0x111 0372 027c | | | Execute Discrete,Less 0373 700d |p | Jump_Nonzero 0x381 0374 00d8 | | Load_Top At_Offset_0 0375 491f |I | Short_Literal 0x11f 0376 027d | } | Execute Discrete,Greater 0377 7001 |p | Jump_Nonzero 0x379 0378 7fdb | | Jump 0x354 0379 00d8 | | Load_Top At_Offset_0 037a 4920 |I | Short_Literal 0x120 037b 027f | | Execute Discrete,Equal 037c 7015 |p | Jump_Nonzero 0x392 037d 4930 |I0 | Short_Literal 0x130 037e 027f | | Execute Discrete,Equal 037f 7017 |p | Jump_Nonzero 0x397 0380 7fd4 | | Jump 0x355 0381 00d8 | | Load_Top At_Offset_0 0382 4900 |I | Short_Literal 0x100 0383 027f | | Execute Discrete,Equal 0384 7004 |p | Jump_Nonzero 0x389 0385 4910 |I | Short_Literal 0x110 0386 027f | | Execute Discrete,Equal 0387 7006 |p | Jump_Nonzero 0x38e 0388 7fcc | | Jump 0x355 0389 00d1 | | Pop_Control Pop_Count_1 038a 00da | | Load_Top At_Offset_2 038b e231 | 1 | Load 0x1,0x31 038c 0260 | ` | Execute Discrete,In_Type 038d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 038e 00da | | Load_Top At_Offset_2 038f e232 | 2 | Load 0x1,0x32 0390 0260 | ` | Execute Discrete,In_Type 0391 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0392 00d1 | | Pop_Control Pop_Count_1 0393 00da | | Load_Top At_Offset_2 0394 e233 | 3 | Load 0x1,0x33 0395 0260 | ` | Execute Discrete,In_Type 0396 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0397 00da | | Load_Top At_Offset_2 0398 e234 | 4 | Load 0x1,0x34 0399 0260 | ` | Execute Discrete,In_Type 039a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 039b 00d1 | | Pop_Control Pop_Count_1 039c 00da | | Load_Top At_Offset_2 039d e235 | 5 | Load 0x1,0x35 039e 0260 | ` | Execute Discrete,In_Type 039f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03a0 00da | | Load_Top At_Offset_2 03a1 e236 | 6 | Load 0x1,0x36 03a2 0260 | ` | Execute Discrete,In_Type 03a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03a4 00d1 | | Pop_Control Pop_Count_1 03a5 00da | | Load_Top At_Offset_2 03a6 e237 | 7 | Load 0x1,0x37 03a7 0260 | ` | Execute Discrete,In_Type 03a8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03a9 00da | | Load_Top At_Offset_2 03aa e238 | 8 | Load 0x1,0x38 03ab 0260 | ` | Execute Discrete,In_Type 03ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 03ad 0000 0000 | | .XXX[0x3] 03af 0000 | | 03b0 ; -------------------------------------------------------------------------------------- 03b0 ; SUBPROGRAM 03b0 ; -------------------------------------------------------------------------------------- 03b0 03b6 | | .CONST 0x03b6 ; Address of begin 03b1 0004 | | .CONST 0x0004 ; Address of exception handler 03b2 0003 | | .CONST 0x0003 ; Number of locals 03b3 INIT_03b0: 03b3 e00a | | Load 0x0,0xa 03b4 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03b5 00e1 | | Load_Encached Boolean_Cache 03b6 BODY_03b0: 03b6 00e1 | | Load_Encached Boolean_Cache 03b7 e00b | | Load 0x0,0xb 03b8 e00a | | Load 0x0,0xa 03b9 1b15 | | Execute Package,Field_Read,Field_Number 0x15 03ba e402 | | Load 0x2,0x2 03bb 800c | | Call 0x0,0xc 03bc c602 | | Store 0x3,0x2 03bd c403 | | Store 0x2,0x3 03be 0059 | Y | Store_Top Discrete,At_Offset_1 03bf 00d8 | | Load_Top At_Offset_0 03c0 6801 |h | Jump_Zero 0x3c2 03c1 0887 | | Execute_Immediate Raise,0x87 03c2 4800 |H | Short_Literal 0x0 03c3 00da | | Load_Top At_Offset_2 03c4 0092 03fa | | Action Push_String_Extended,0x3fa ; "Space" 03c6 8239 | 9 | Call 0x1,0x39 03c7 4800 |H | Short_Literal 0x0 03c8 e403 | | Load 0x2,0x3 03c9 0092 03fb | | Action Push_String_Extended,0x3fb ; ", Ordinal" 03cb 8239 | 9 | Call 0x1,0x39 03cc 01cc | | Execute Vector,Catenate 03cd 00cb | | Action Pop_Block_With_Result 03ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03cf 0000 | | .XXX[0x1] 03d0 ; -------------------------------------------------------------------------------------- 03d0 ; SUBPROGRAM 03d0 ; -------------------------------------------------------------------------------------- 03d0 03d7 | | .CONST 0x03d7 ; Address of begin 03d1 0004 | | .CONST 0x0004 ; Address of exception handler 03d2 0003 | | .CONST 0x0003 ; Number of locals 03d3 INIT_03d0: 03d3 e00a | | Load 0x0,0xa 03d4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03d5 e00d | | Load 0x0,0xd 03d6 0007 | | Action Break_Optional 03d7 BODY_03d0: 03d7 e00d | | Load 0x0,0xd 03d8 e00e | | Load 0x0,0xe 03d9 e00a | | Load 0x0,0xa 03da 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03db e402 | | Load 0x2,0x2 03dc 800f | | Call 0x0,0xf 03dd c602 | | Store 0x3,0x2 03de c403 | | Store 0x2,0x3 03df 0059 | Y | Store_Top Discrete,At_Offset_1 03e0 4800 |H | Short_Literal 0x0 03e1 00da | | Load_Top At_Offset_2 03e2 0092 03fc | | Action Push_String_Extended,0x3fc ; "Code Segment" 03e4 8239 | 9 | Call 0x1,0x39 03e5 4800 |H | Short_Literal 0x0 03e6 e403 | | Load 0x2,0x3 03e7 0092 03fb | | Action Push_String_Extended,0x3fb ; ", Ordinal" 03e9 8239 | 9 | Call 0x1,0x39 03ea 01cc | | Execute Vector,Catenate 03eb 4801 |H | Short_Literal 0x1 03ec 00da | | Load_Top At_Offset_2 03ed 0092 03fd | | Action Push_String_Extended,0x3fd ; ", Index" 03ef 8239 | 9 | Call 0x1,0x39 03f0 01cc | | Execute Vector,Catenate 03f1 00cb | | Action Pop_Block_With_Result 03f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03f3 ; -------------------------------------------------------------------------------------- 03f3 ; STRING TABLE 03f3 ; -------------------------------------------------------------------------------------- 03f3 0018 | | .STRTAB 0x0018->0x03ff ; "ANY" 03f4 0019 | | .STRTAB 0x0019->0x0400 ; "IMPLICIT" 03f5 001f | | .STRTAB 0x001f->0x0404 ; "null" 03f6 0021 | ! | .STRTAB 0x0021->0x0406 ; "implicit" 03f7 0027 | ' | .STRTAB 0x0027->0x040a ; "NULL" 03f8 0029 | ) | .STRTAB 0x0029->0x040c ; "#" 03f9 0028 | ( | .STRTAB 0x0028->0x040d ; " = " 03fa 0029 | ) | .STRTAB 0x0029->0x040e ; "Space" 03fb 002c | , | .STRTAB 0x002c->0x0411 ; ", Ordinal" 03fc 0033 | 3 | .STRTAB 0x0033->0x0415 ; "Code Segment" 03fd 003d | = | .STRTAB 0x003d->0x041b ; ", Index" 03fe 0042 | B | .STREND 0x0042->0x041f 03ff 414e 5949 |ANYI| .STRTAB_STRINGS 041f 0000 | | .XXX[0x1] 0420 ; -------------------------------------------------------------------------------------- 0420 ; Debug Table 0420 ; -------------------------------------------------------------------------------------- 0420 0004 000d | | .DEBUG4 0x0004,0x000d,0x786e,0x0000,0x0001,0x0000 0426 3239 9032 |29 2| .XXX[0x2f] 0428 3790 3737 |7 77| 042a ba10 36b0 | 6 | 042c ba31 b417 | 1 | 042e 0000 001b | | 0430 8000 0020 | | 0432 1031 b7b7 | 1 | 0434 39b4 b232 |9 2| 0436 b932 b210 | 2 | 0438 3a37 9031 |:7 1| 043a 3290 3090 |2 0 | 043c 36b0 ba31 |6 1| 043e b417 102b | +| 0440 b432 b710 | 2 | 0442 2330 b639 |#0 9| 0444 b296 103a | :| 0446 3432 b9b2 |42 | 0448 903b b7b9 | ; | 044a 3239 9032 |29 2| 044c 3790 3737 |7 77| 044e ba10 36b0 | 6 | 0450 ba31 b417 | 1 | 0452 0000 0000 | | 0454 8000 | | 0455 0000 0000 | | .BLANK 0000[0x4] 0459 003c 0000 | < | .XXX[0x8] 045b 0000 0000 | | 045d 003b 8000 | ; | 045f 0000 8000 | | 0461 0000 0000 | | .BLANK 0000[0x4] 0465 003c 8000 | < | .XXX[0x33] 0467 0000 0000 | | 0469 003c 0000 | < | 046b 003d 8000 | = | 046d 000a 2932 | )2| 046f b9ba b63a | :| 0471 101d 1027 | '| 0473 30b6 b290 |0 | 0475 1d1e 9011 | | 0477 111d 8000 | | 0479 003d 0000 | = | 047b 000a 9029 | )| 047d 32b9 bab6 |2 | 047f 3a10 1d10 |: | 0481 2730 b6b2 |'0 | 0483 901d 1e90 | | 0485 1111 1d80 | | 0487 0000 3d00 | = | 0489 0000 0a90 | | 048b 2932 b9ba |)2 | 048d b63a 101d | : | 048f 1027 30b6 | '0 | 0491 b290 1d1e | | 0493 9011 111d | | 0495 8000 0000 | | 0497 8000 | | 0498 0000 0000 | | .BLANK 0000[0x4] 049c 0008 0000 | | .XXX[0xf1] 049e 0000 0000 | | 04a0 0007 8000 | | 04a2 0009 0000 | | 04a4 0023 a9b8 | # | 04a6 32b1 b4b3 |2 | 04a8 34b2 b990 |4 | 04aa 3a34 3290 |:42 | 04ac 3334 b632 |34 2| 04ae 903a 3790 | :7 | 04b0 3bb4 34b1 |; 4 | 04b2 b410 3a37 | :7| 04b4 9032 34b9 | 24 | 04b6 32b1 ba10 |2 | 04b8 3a34 3290 |:42 | 04ba 3537 b110 |57 | 04bc 3932 b837 |92 7| 04be b93a 1710 | : | 04c0 2a34 3290 |*42 | 04c2 3232 b330 |22 0| 04c4 bab6 3a10 | : | 04c6 34b9 903a |4 :| 04c8 3780 0000 |7 | 04ca 0880 0000 | | 04cc 2410 29b8 |$ ) | 04ce 32b1 b4b3 |2 | 04d0 34b2 b990 |4 | 04d2 3a34 3290 |:42 | 04d4 3334 b632 |34 2| 04d6 903a 3790 | :7 | 04d8 3bb4 34b1 |; 4 | 04da b410 3a37 | :7| 04dc 9032 34b9 | 24 | 04de 32b1 ba10 |2 | 04e0 3a34 3290 |:42 | 04e2 3537 b110 |57 | 04e4 3932 b837 |92 7| 04e6 b93a 1710 | : | 04e8 2a34 3290 |*42 | 04ea 3232 b330 |22 0| 04ec bab6 3a10 | : | 04ee 34b9 903a |4 :| 04f0 3780 0000 |7 | 04f2 0880 0000 | | 04f4 2410 29b8 |$ ) | 04f6 32b1 b4b3 |2 | 04f8 34b2 b990 |4 | 04fa 3a34 3290 |:42 | 04fc 3334 b632 |34 2| 04fe 903a 3790 | :7 | 0500 3bb4 34b1 |; 4 | 0502 b410 3a37 | :7| 0504 9032 34b9 | 24 | 0506 32b1 ba10 |2 | 0508 3a34 3290 |:42 | 050a 3537 b110 |57 | 050c 3932 b837 |92 7| 050e b93a 1710 | : | 0510 2a34 3290 |*42 | 0512 3232 b330 |22 0| 0514 bab6 3a10 | : | 0516 34b9 903a |4 :| 0518 3780 0000 |7 | 051a 2d80 0000 |- | 051c 21bb b934 |! 4| 051e ba32 903a | 2 :| 0520 3790 21ba |7 ! | 0522 b939 32b7 | 92 | 0524 3a2f a7ba |:/ | 0526 ba38 3aba | 8: | 0528 1014 313c | 1<| 052a 9032 32b3 | 22 | 052c 30ba b63a |0 :| 052e 1610 30b7 | 0 | 0530 1022 b73b | " ;| 0532 34b9 37b7 |4 7 | 0534 36b2 b73a |6 :| 0536 1037 baba | 7 | 0538 383a ba10 |8: | 053a 3bb4 b732 |; 2| 053c 37bb 9497 |7 | 053e 0000 002d | -| 0540 0000 0022 | "| 0542 103b b934 | ; 4| 0544 ba32 903a | 2 :| 0546 3790 21ba |7 ! | 0548 b939 32b7 | 92 | 054a 3a2f a7ba |:/ | 054c ba38 3aba | 8: | 054e 1014 313c | 1<| 0550 9032 32b3 | 22 | 0552 30ba b63a |0 :| 0554 1610 30b7 | 0 | 0556 1022 b73b | " ;| 0558 34b9 37b7 |4 7 | 055a 36b2 b73a |6 :| 055c 1037 baba | 7 | 055e 383a ba10 |8: | 0560 3bb4 b732 |; 2| 0562 37bb 9497 |7 | 0564 0000 002d | -| 0566 0000 0022 | "| 0568 103b b934 | ; 4| 056a ba32 903a | 2 :| 056c 3790 21ba |7 ! | 056e b939 32b7 | 92 | 0570 3a2f a7ba |:/ | 0572 ba38 3aba | 8: | 0574 1014 313c | 1<| 0576 9032 32b3 | 22 | 0578 30ba b63a |0 :| 057a 1610 30b7 | 0 | 057c 1022 b73b | " ;| 057e 34b9 37b7 |4 7 | 0580 36b2 b73a |6 :| 0582 1037 baba | 7 | 0584 383a ba10 |8: | 0586 3bb4 b732 |; 2| 0588 37bb 9497 |7 | 058a 0000 0000 | | 058c 8000 | | 058d 0000 0000 | | .BLANK 0000[0x4] 0591 000f 8000 | | .XXX[0x6f] 0593 0000 0000 | | 0595 000f 0000 | | 0597 0010 8000 | | 0599 0024 2737 | $'7| 059b ba32 903a | 2 :| 059d 3430 ba10 |40 | 059f 32b9 3937 |2 97| 05a1 b939 9030 | 9 0| 05a3 b932 9034 | 2 4| 05a5 b732 34b1 | 24 | 05a7 b0ba 32b2 | 2 | 05a9 1034 b710 | 4 | 05ab 3637 b390 |67 | 05ad 36b2 b9b9 |6 | 05af b0b3 b2b9 | | 05b1 9610 3bb4 | ; | 05b3 34b1 b410 |4 | 05b5 30b9 3290 |0 2 | 05b7 3737 ba10 |77 | 05b9 3932 b234 |92 4| 05bb b932 b1ba | 2 | 05bd 32b2 0000 |2 | 05bf 0010 0000 | | 05c1 0024 9027 | $ '| 05c3 37ba 3290 |7 2 | 05c5 3a34 30ba |:40 | 05c7 1032 b939 | 2 9| 05c9 37b9 3990 |7 9 | 05cb 30b9 3290 |0 2 | 05cd 34b7 3234 |4 24| 05cf b1b0 ba32 | 2| 05d1 b210 34b7 | 4 | 05d3 1036 37b3 | 67 | 05d5 9036 b2b9 | 6 | 05d7 b9b0 b3b2 | | 05d9 b996 103b | ;| 05db b434 b1b4 | 4 | 05dd 1030 b932 | 0 2| 05df 9037 37ba | 77 | 05e1 1039 32b2 | 92 | 05e3 34b9 32b1 |4 2 | 05e5 ba32 b200 | 2 | 05e7 0000 1000 | | 05e9 0000 2490 | $ | 05eb 2737 ba32 |'7 2| 05ed 903a 3430 | :40| 05ef ba10 32b9 | 2 | 05f1 3937 b939 |97 9| 05f3 9030 b932 | 0 2| 05f5 9034 b732 | 4 2| 05f7 34b1 b0ba |4 | 05f9 32b2 1034 |2 4| 05fb b710 3637 | 67| 05fd b390 36b2 | 6 | 05ff b9b9 | |