|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_220063
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01e8 | | .CONST 0x01e8 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0051 | Q | .CONST 0x0051 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001b | | .CONST 0x001b ; Number of locals 000b INIT_0008: 000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 000f 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0011 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0013 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0015 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0017 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0019 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 001b 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 001d 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 001f 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0021 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0023 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0025 00c4 | | Action Make_Default 0026 e004 | | Load 0x0,0x4 0027 e005 | | Load 0x0,0x5 0028 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 002a 4802 |H | Short_Literal 0x2 002b 032e | . | Declare_Type Record,Defined,Visible 002c 00d8 | | Load_Top At_Offset_0 002d 0322 | " | Declare_Variable Record 002e e002 | | Load 0x0,0x2 002f 00d9 | | Load_Top At_Offset_1 0030 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0031 e003 | | Load 0x0,0x3 0032 00d9 | | Load_Top At_Offset_1 0033 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0034 0129 | ) | Execute Any,Make_Visible 0035 c21a | | Store 0x1,0x1a 0036 00bf | | Action Accept_Activation 0037 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0038 00c7 | | Action Elaborate_Subprogram 0039 1d0e | | Execute_Immediate Reference_Lex_1,0xe 003a 00c7 | | Action Elaborate_Subprogram 003b 1d0f | | Execute_Immediate Reference_Lex_1,0xf 003c 00c7 | | Action Elaborate_Subprogram 003d 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003e 00c7 | | Action Elaborate_Subprogram 003f 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0040 00c7 | | Action Elaborate_Subprogram 0041 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0042 00c7 | | Action Elaborate_Subprogram 0043 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0044 00c7 | | Action Elaborate_Subprogram 0045 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0046 00c7 | | Action Elaborate_Subprogram 0047 1d15 | | Execute_Immediate Reference_Lex_1,0x15 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 BODY_0008: 0051 00bc | | Action Signal_Activated 0052 00bb | | Action Signal_Completion 0053 0000 0000 | | .BLANK 0000[0x5] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b 00da | | Load_Top At_Offset_2 005c e5fd | | Load 0x2,-0x3 005d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 005e 00db | | Load_Top At_Offset_3 005f e5fd | | Load 0x2,-0x3 0060 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0061 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0062 0000 0000 | | .BLANK 0000[0x6] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 00da | | Load_Top At_Offset_2 006c 8211 | | Call 0x1,0x11 006d 00db | | Load_Top At_Offset_3 006e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 006f 8006 | | Call 0x0,0x6 0070 0279 | y | Execute Discrete,And 0071 6810 |h | Jump_Zero 0x82 0072 00e1 | | Load_Encached Boolean_Cache 0073 e5fe | | Load 0x2,-0x2 0074 e5ff | | Load 0x2,-0x1 0075 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0076 8007 | | Call 0x0,0x7 0077 00d8 | | Load_Top At_Offset_0 0078 00e4 | | Load_Encached Positive_Cache 0079 0260 | ` | Execute Discrete,In_Type 007a 7001 |p | Jump_Nonzero 0x7c 007b 0801 | | Execute_Immediate Raise,0x1 007c e5ff | | Load 0x2,-0x1 007d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 007e 8008 | | Call 0x0,0x8 007f 8009 | | Call 0x0,0x9 0080 c5fd | | Store 0x2,-0x3 0081 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0082 4800 |H | Short_Literal 0x0 0083 a5fd | | Store_Unchecked 0x2,-0x3 0084 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0085 0000 0000 | | .XXX[0x3] 0087 0000 | | 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 00da | | Load_Top At_Offset_2 008c 8213 | | Call 0x1,0x13 008d 00db | | Load_Top At_Offset_3 008e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 008f 8006 | | Call 0x0,0x6 0090 0279 | y | Execute Discrete,And 0091 6811 |h | Jump_Zero 0xa3 0092 00e1 | | Load_Encached Boolean_Cache 0093 e5fd | | Load 0x2,-0x3 0094 e5fe | | Load 0x2,-0x2 0095 e5ff | | Load 0x2,-0x1 0096 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0097 8007 | | Call 0x0,0x7 0098 00d8 | | Load_Top At_Offset_0 0099 00e4 | | Load_Encached Positive_Cache 009a 0260 | ` | Execute Discrete,In_Type 009b 7001 |p | Jump_Nonzero 0x9d 009c 0801 | | Execute_Immediate Raise,0x1 009d e5ff | | Load 0x2,-0x1 009e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 009f 8008 | | Call 0x0,0x8 00a0 800a | | Call 0x0,0xa 00a1 c5fc | | Store 0x2,-0x4 00a2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00a3 4800 |H | Short_Literal 0x0 00a4 a5fc | | Store_Unchecked 0x2,-0x4 00a5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00a6 0000 0000 | | .XXX[0x2] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 0092 01cd | | Action Push_String_Extended,0x1cd ; "Attribute :" 00ad e00b | | Load 0x0,0xb 00ae 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00af 00da | | Load_Top At_Offset_2 00b0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00b1 800c | | Call 0x0,0xc 00b2 00da | | Load_Top At_Offset_2 00b3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00b4 800d | | Call 0x0,0xd 00b5 00da | | Load_Top At_Offset_2 00b6 8211 | | Call 0x1,0x11 00b7 6808 |h | Jump_Zero 0xc0 00b8 0092 01ce | | Action Push_String_Extended,0x1ce ; "Number : " 00ba 00db | | Load_Top At_Offset_3 00bb 8215 | | Call 0x1,0x15 00bc 01cc | | Execute Vector,Catenate 00bd e00b | | Load 0x0,0xb 00be 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00bf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c0 00da | | Load_Top At_Offset_2 00c1 8212 | | Call 0x1,0x12 00c2 6808 |h | Jump_Zero 0xcb 00c3 0092 01cf | | Action Push_String_Extended,0x1cf ; "Sentence : " 00c5 00db | | Load_Top At_Offset_3 00c6 8215 | | Call 0x1,0x15 00c7 01cc | | Execute Vector,Catenate 00c8 e00b | | Load 0x0,0xb 00c9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00ca 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00cb 00da | | Load_Top At_Offset_2 00cc 8213 | | Call 0x1,0x13 00cd 6808 |h | Jump_Zero 0xd6 00ce 0092 01d0 | | Action Push_String_Extended,0x1d0 ; "Enumerate : " 00d0 00db | | Load_Top At_Offset_3 00d1 8215 | | Call 0x1,0x15 00d2 01cc | | Execute Vector,Catenate 00d3 e00b | | Load 0x0,0xb 00d4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00d5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d6 4801 |H | Short_Literal 0x1 00d7 e00b | | Load 0x0,0xb 00d8 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00da 0000 0000 | | .BLANK 0000[0x6] 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 00da | | Load_Top At_Offset_2 00e4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00e5 8006 | | Call 0x0,0x6 00e6 680d |h | Jump_Zero 0xf4 00e7 00da | | Load_Top At_Offset_2 00e8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00e9 8007 | | Call 0x0,0x7 00ea 00d8 | | Load_Top At_Offset_0 00eb 00e4 | | Load_Encached Positive_Cache 00ec 0260 | ` | Execute Discrete,In_Type 00ed 7001 |p | Jump_Nonzero 0xef 00ee 0801 | | Execute_Immediate Raise,0x1 00ef 00db | | Load_Top At_Offset_3 00f0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00f1 8008 | | Call 0x0,0x8 00f2 800e | | Call 0x0,0xe 00f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f4 4800 |H | Short_Literal 0x0 00f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f6 0000 0000 | | .XXX[0x2] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 00da | | Load_Top At_Offset_2 00fc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00fd 8006 | | Call 0x0,0x6 00fe 680d |h | Jump_Zero 0x10c 00ff 00da | | Load_Top At_Offset_2 0100 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0101 8007 | | Call 0x0,0x7 0102 00d8 | | Load_Top At_Offset_0 0103 00e4 | | Load_Encached Positive_Cache 0104 0260 | ` | Execute Discrete,In_Type 0105 7001 |p | Jump_Nonzero 0x107 0106 0801 | | Execute_Immediate Raise,0x1 0107 00db | | Load_Top At_Offset_3 0108 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0109 8008 | | Call 0x0,0x8 010a 800f | | Call 0x0,0xf 010b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010c 4800 |H | Short_Literal 0x0 010d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010e 0000 0000 | | .XXX[0x2] 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 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0115 8006 | | Call 0x0,0x6 0116 680d |h | Jump_Zero 0x124 0117 00da | | Load_Top At_Offset_2 0118 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0119 8007 | | Call 0x0,0x7 011a 00d8 | | Load_Top At_Offset_0 011b 00e4 | | Load_Encached Positive_Cache 011c 0260 | ` | Execute Discrete,In_Type 011d 7001 |p | Jump_Nonzero 0x11f 011e 0801 | | Execute_Immediate Raise,0x1 011f 00db | | Load_Top At_Offset_3 0120 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0121 8008 | | Call 0x0,0x8 0122 8010 | | Call 0x0,0x10 0123 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0124 4800 |H | Short_Literal 0x0 0125 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0126 0000 0000 | | .XXX[0x2] 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 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 012d 8006 | | Call 0x0,0x6 012e 680d |h | Jump_Zero 0x13c 012f 00da | | Load_Top At_Offset_2 0130 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0131 8007 | | Call 0x0,0x7 0132 00d8 | | Load_Top At_Offset_0 0133 00e4 | | Load_Encached Positive_Cache 0134 0260 | ` | Execute Discrete,In_Type 0135 7001 |p | Jump_Nonzero 0x137 0136 0801 | | Execute_Immediate Raise,0x1 0137 00db | | Load_Top At_Offset_3 0138 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0139 8008 | | Call 0x0,0x8 013a 8011 | | Call 0x0,0x11 013b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013c 4800 |H | Short_Literal 0x0 013d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013e 0000 0000 | | .XXX[0x2] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 00da | | Load_Top At_Offset_2 0144 8211 | | Call 0x1,0x11 0145 6805 |h | Jump_Zero 0x14b 0146 00da | | Load_Top At_Offset_2 0147 8216 | | Call 0x1,0x16 0148 00e0 | | Load_Encached Standard_Cache 0149 1818 | | Execute Package,Field_Execute,Field_Number 0x18 014a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014b 00da | | Load_Top At_Offset_2 014c 8212 | | Call 0x1,0x12 014d 6803 |h | Jump_Zero 0x151 014e 00da | | Load_Top At_Offset_2 014f 8217 | | Call 0x1,0x17 0150 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0151 00da | | Load_Top At_Offset_2 0152 8213 | | Call 0x1,0x13 0153 6806 |h | Jump_Zero 0x15a 0154 00da | | Load_Top At_Offset_2 0155 8219 | | Call 0x1,0x19 0156 00db | | Load_Top At_Offset_3 0157 8218 | | Call 0x1,0x18 0158 8012 | | Call 0x0,0x12 0159 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015a 00ea | | Load_Encached Null_String_Cache 015b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015c 0000 0000 | | .BLANK 0000[0x4] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 0164 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0165 8006 | | Call 0x0,0x6 0166 680d |h | Jump_Zero 0x174 0167 00da | | Load_Top At_Offset_2 0168 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0169 8007 | | Call 0x0,0x7 016a 00d8 | | Load_Top At_Offset_0 016b 00e4 | | Load_Encached Positive_Cache 016c 0260 | ` | Execute Discrete,In_Type 016d 7001 |p | Jump_Nonzero 0x16f 016e 0801 | | Execute_Immediate Raise,0x1 016f 00db | | Load_Top At_Offset_3 0170 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0171 8008 | | Call 0x0,0x8 0172 8013 | | Call 0x0,0x13 0173 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0174 4800 |H | Short_Literal 0x0 0175 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0176 0000 0000 | | .XXX[0x2] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 00da | | Load_Top At_Offset_2 017c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 017d 8006 | | Call 0x0,0x6 017e 680d |h | Jump_Zero 0x18c 017f 00da | | Load_Top At_Offset_2 0180 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0181 8007 | | Call 0x0,0x7 0182 00d8 | | Load_Top At_Offset_0 0183 00e4 | | Load_Encached Positive_Cache 0184 0260 | ` | Execute Discrete,In_Type 0185 7001 |p | Jump_Nonzero 0x187 0186 0801 | | Execute_Immediate Raise,0x1 0187 00db | | Load_Top At_Offset_3 0188 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0189 8008 | | Call 0x0,0x8 018a 8014 | | Call 0x0,0x14 018b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018c 00ea | | Load_Encached Null_String_Cache 018d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018e 0000 0000 | | .XXX[0x2] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00da | | Load_Top At_Offset_2 0194 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0195 8006 | | Call 0x0,0x6 0196 680d |h | Jump_Zero 0x1a4 0197 00da | | Load_Top At_Offset_2 0198 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0199 8007 | | Call 0x0,0x7 019a 00d8 | | Load_Top At_Offset_0 019b 00e4 | | Load_Encached Positive_Cache 019c 0260 | ` | Execute Discrete,In_Type 019d 7001 |p | Jump_Nonzero 0x19f 019e 0801 | | Execute_Immediate Raise,0x1 019f 00db | | Load_Top At_Offset_3 01a0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01a1 8008 | | Call 0x0,0x8 01a2 8015 | | Call 0x0,0x15 01a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a4 4800 |H | Short_Literal 0x0 01a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a6 0000 0000 | | .XXX[0x2] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 00da | | Load_Top At_Offset_2 01ac 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01ad 8006 | | Call 0x0,0x6 01ae 680d |h | Jump_Zero 0x1bc 01af 00da | | Load_Top At_Offset_2 01b0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01b1 8007 | | Call 0x0,0x7 01b2 00d8 | | Load_Top At_Offset_0 01b3 00e4 | | Load_Encached Positive_Cache 01b4 0260 | ` | Execute Discrete,In_Type 01b5 7001 |p | Jump_Nonzero 0x1b7 01b6 0801 | | Execute_Immediate Raise,0x1 01b7 00db | | Load_Top At_Offset_3 01b8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01b9 8008 | | Call 0x0,0x8 01ba 8016 | | Call 0x0,0x16 01bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01bc 4800 |H | Short_Literal 0x0 01bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01be 0000 0000 | | .XXX[0x2] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 4601 |F | Jump_Case 0x2 01c4 7801 |x | Jump 0x1c6 ; case 0x0 01c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01c6 e002 | | Load 0x0,0x2 01c7 00db | | Load_Top At_Offset_3 01c8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01c9 e003 | | Load 0x0,0x3 01ca 00db | | Load_Top At_Offset_3 01cb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01cd ; -------------------------------------------------------------------------------------- 01cd ; STRING TABLE 01cd ; -------------------------------------------------------------------------------------- 01cd 000a | | .STRTAB 0x000a->0x01d2 ; "Attribute :" 01ce 0013 | | .STRTAB 0x0013->0x01d7 ; "Number : " 01cf 001a | | .STRTAB 0x001a->0x01dc ; "Sentence : " 01d0 0023 | # | .STRTAB 0x0023->0x01e1 ; "Enumerate : " 01d1 002d | - | .STREND 0x002d->0x01e7 01d2 4174 7472 |Attr| .STRTAB_STRINGS 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; Debug Table 01e8 ; -------------------------------------------------------------------------------------- 01e8 0004 0008 | | .DEBUG4 0x0004,0x0008,0x9896,0x0000,0x0001,0x0010 01ee 000b 022e | .| .DBG4T 0x000b,0x022e,0x8000,0x8000 01f2 0037 0250 | 7 P| .DBG4T 0x0037,0x0250,0x8000,0x0000 01f6 005b 025f | [ _| .DBG4T 0x005b,0x025f,0x0001,0x0000 01fa 006b 0263 | k c| .DBG4T 0x006b,0x0263,0x0001,0x0000 01fe 008b 0268 | h| .DBG4T 0x008b,0x0268,0x0001,0x0000 0202 00ab 026d | m| .DBG4T 0x00ab,0x026d,0x0001,0x0000 0206 00e3 0279 | y| .DBG4T 0x00e3,0x0279,0x0002,0x0000 020a 00fb 027e | ~| .DBG4T 0x00fb,0x027e,0x0002,0x0000 020e 0113 0283 | | .DBG4T 0x0113,0x0283,0x0002,0x0000 0212 012b 0288 | + | .DBG4T 0x012b,0x0288,0x0002,0x0000 0216 0143 028d | C | .DBG4T 0x0143,0x028d,0x0002,0x0000 021a 0163 0296 | c | .DBG4T 0x0163,0x0296,0x0002,0x0000 021e 017b 029b | { | .DBG4T 0x017b,0x029b,0x0002,0x0000 0222 0193 02a0 | | .DBG4T 0x0193,0x02a0,0x0002,0x0000 0226 01ab 02a5 | | .DBG4T 0x01ab,0x02a5,0x0002,0x0000 022a 01c3 0000 | | .DBG4T 0x01c3,0x0000,0x0005,0x0000 022e ; -------------------------------------------------------------------------------------- 022e ; Debug chain 022e ; -------------------------------------------------------------------------------------- 022e 0010 0000 | | .DBGLEN 0x0010,0x0000 0230 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0026,0x002c 0240 0002 0003 | | .XXX[0x10] 0242 0004 0005 | | 0244 0006 0007 | | 0246 0008 0009 | | 0248 000a 000b | | 024a 000c 000d | | 024c 000e 000f | | 024e 0010 0011 | | 0250 ; -------------------------------------------------------------------------------------- 0250 ; Debug chain 0250 ; -------------------------------------------------------------------------------------- 0250 000d 0000 | | .DBGLEN 0x000d,0x0000 0252 0037 0039 | 7 9| .DBGLNO 0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f 025f ; -------------------------------------------------------------------------------------- 025f ; Debug chain 025f ; -------------------------------------------------------------------------------------- 025f 0000 0002 | | .DBGLEN 0x0000,0x0002 0261 005b 005e | [ ^| .DBGLNO 0x005b,0x005e 0263 ; -------------------------------------------------------------------------------------- 0263 ; Debug chain 0263 ; -------------------------------------------------------------------------------------- 0263 0000 0003 | | .DBGLEN 0x0000,0x0003 0265 006b 0072 | k r| .DBGLNO 0x006b,0x0072,0x0082 0268 ; -------------------------------------------------------------------------------------- 0268 ; Debug chain 0268 ; -------------------------------------------------------------------------------------- 0268 0000 0003 | | .DBGLEN 0x0000,0x0003 026a 008b 0092 | | .DBGLNO 0x008b,0x0092,0x00a3 026d ; -------------------------------------------------------------------------------------- 026d ; Debug chain 026d ; -------------------------------------------------------------------------------------- 026d 0000 000a | | .DBGLEN 0x0000,0x000a 026f 00ab 00af | | .DBGLNO 0x00ab,0x00af,0x00b2,0x00b5,0x00b8,0x00c0,0x00c3,0x00cb,0x00ce,0x00d6 0279 ; -------------------------------------------------------------------------------------- 0279 ; Debug chain 0279 ; -------------------------------------------------------------------------------------- 0279 0000 0003 | | .DBGLEN 0x0000,0x0003 027b 00e3 00e7 | | .DBGLNO 0x00e3,0x00e7,0x00f4 027e ; -------------------------------------------------------------------------------------- 027e ; Debug chain 027e ; -------------------------------------------------------------------------------------- 027e 0000 0003 | | .DBGLEN 0x0000,0x0003 0280 00fb 00ff | | .DBGLNO 0x00fb,0x00ff,0x010c 0283 ; -------------------------------------------------------------------------------------- 0283 ; Debug chain 0283 ; -------------------------------------------------------------------------------------- 0283 0000 0003 | | .DBGLEN 0x0000,0x0003 0285 0113 0117 | | .DBGLNO 0x0113,0x0117,0x0124 0288 ; -------------------------------------------------------------------------------------- 0288 ; Debug chain 0288 ; -------------------------------------------------------------------------------------- 0288 0000 0003 | | .DBGLEN 0x0000,0x0003 028a 012b 012f | + /| .DBGLNO 0x012b,0x012f,0x013c 028d ; -------------------------------------------------------------------------------------- 028d ; Debug chain 028d ; -------------------------------------------------------------------------------------- 028d 0000 0007 | | .DBGLEN 0x0000,0x0007 028f 0143 0146 | C F| .DBGLNO 0x0143,0x0146,0x014b,0x014e,0x0151,0x0154,0x015a 0296 ; -------------------------------------------------------------------------------------- 0296 ; Debug chain 0296 ; -------------------------------------------------------------------------------------- 0296 0000 0003 | | .DBGLEN 0x0000,0x0003 0298 0163 0167 | c g| .DBGLNO 0x0163,0x0167,0x0174 029b ; -------------------------------------------------------------------------------------- 029b ; Debug chain 029b ; -------------------------------------------------------------------------------------- 029b 0000 0003 | | .DBGLEN 0x0000,0x0003 029d 017b 017f | { | .DBGLNO 0x017b,0x017f,0x018c 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; Debug chain 02a0 ; -------------------------------------------------------------------------------------- 02a0 0000 0003 | | .DBGLEN 0x0000,0x0003 02a2 0193 0197 | | .DBGLNO 0x0193,0x0197,0x01a4 02a5 ; -------------------------------------------------------------------------------------- 02a5 ; Debug chain 02a5 ; -------------------------------------------------------------------------------------- 02a5 0000 0003 | | .DBGLEN 0x0000,0x0003 02a7 01ab 01af | | .DBGLNO 0x01ab,0x01af,0x01bc 02aa 0000 0000 | | .BLANK 0000[0x156]