|
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_35b0c5
└─⟦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 0230 | 0 | .CONST 0x0230 ; 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 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0013 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0015 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0017 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0019 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 001b 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 001d 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 001f 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0021 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 0023 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0025 00c4 | | Action Make_Default 0026 e004 | | Load 0x0,0x4 0027 e005 | | Load 0x0,0x5 0028 029f 0203 | | Declare_Subprogram INIT_0200,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 008c | | .CONST 0x008c ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0002 | | .CONST 0x0002 ; Number of locals 008b INIT_0088: 008b 00e3 | | Load_Encached Natural_Cache 008c BODY_0088: 008c 00db | | Load_Top At_Offset_3 008d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 008e 8006 | | Call 0x0,0x6 008f 6855 |hU | Jump_Zero 0xe5 0090 00db | | Load_Top At_Offset_3 0091 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0092 8007 | | Call 0x0,0x7 0093 00d8 | | Load_Top At_Offset_0 0094 00e4 | | Load_Encached Positive_Cache 0095 0260 | ` | Execute Discrete,In_Type 0096 7001 |p | Jump_Nonzero 0x98 0097 0801 | | Execute_Immediate Raise,0x1 0098 e5ff | | Load 0x2,-0x1 0099 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 009a 8008 | | Call 0x0,0x8 009b 800a | | Call 0x0,0xa 009c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 009d 00db | | Load_Top At_Offset_3 009e 8213 | | Call 0x1,0x13 009f 00d9 | | Load_Top At_Offset_1 00a0 e5fe | | Load 0x2,-0x2 00a1 027f | | Execute Discrete,Equal 00a2 0279 | y | Execute Discrete,And 00a3 6813 |h | Jump_Zero 0xb7 00a4 00e1 | | Load_Encached Boolean_Cache 00a5 e5fd | | Load 0x2,-0x3 00a6 e5fe | | Load 0x2,-0x2 00a7 e5ff | | Load 0x2,-0x1 00a8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00a9 8007 | | Call 0x0,0x7 00aa 00d8 | | Load_Top At_Offset_0 00ab 00e4 | | Load_Encached Positive_Cache 00ac 0260 | ` | Execute Discrete,In_Type 00ad 7001 |p | Jump_Nonzero 0xaf 00ae 0801 | | Execute_Immediate Raise,0x1 00af e5ff | | Load 0x2,-0x1 00b0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00b1 8008 | | Call 0x0,0x8 00b2 800b | | Call 0x0,0xb 00b3 c5fc | | Store 0x2,-0x4 00b4 4801 |H | Short_Literal 0x1 00b5 a5fc | | Store_Unchecked 0x2,-0x4 00b6 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00b7 00d8 | | Load_Top At_Offset_0 00b8 0092 020d | | Action Push_String_Extended,0x20d ; "special" 00ba 800c | | Call 0x0,0xc 00bb 027f | | Execute Discrete,Equal 00bc 00d9 | | Load_Top At_Offset_1 00bd 0092 020e | | Action Push_String_Extended,0x20e ; "normal" 00bf 800c | | Call 0x0,0xc 00c0 027f | | Execute Discrete,Equal 00c1 0278 | x | Execute Discrete,Or 00c2 e5fe | | Load 0x2,-0x2 00c3 0092 020d | | Action Push_String_Extended,0x20d ; "special" 00c5 800c | | Call 0x0,0xc 00c6 027f | | Execute Discrete,Equal 00c7 e5fe | | Load 0x2,-0x2 00c8 0092 020e | | Action Push_String_Extended,0x20e ; "normal" 00ca 800c | | Call 0x0,0xc 00cb 027f | | Execute Discrete,Equal 00cc 0278 | x | Execute Discrete,Or 00cd 0279 | y | Execute Discrete,And 00ce 6813 |h | Jump_Zero 0xe2 00cf 00e1 | | Load_Encached Boolean_Cache 00d0 e5fd | | Load 0x2,-0x3 00d1 e5fe | | Load 0x2,-0x2 00d2 e5ff | | Load 0x2,-0x1 00d3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00d4 8007 | | Call 0x0,0x7 00d5 00d8 | | Load_Top At_Offset_0 00d6 00e4 | | Load_Encached Positive_Cache 00d7 0260 | ` | Execute Discrete,In_Type 00d8 7001 |p | Jump_Nonzero 0xda 00d9 0801 | | Execute_Immediate Raise,0x1 00da e5ff | | Load 0x2,-0x1 00db 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00dc 8008 | | Call 0x0,0x8 00dd 800b | | Call 0x0,0xb 00de c5fc | | Store 0x2,-0x4 00df 4801 |H | Short_Literal 0x1 00e0 a5fc | | Store_Unchecked 0x2,-0x4 00e1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00e2 4800 |H | Short_Literal 0x0 00e3 a5fc | | Store_Unchecked 0x2,-0x4 00e4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00e5 4800 |H | Short_Literal 0x0 00e6 a5fc | | Store_Unchecked 0x2,-0x4 00e7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 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 0092 020f | | Action Push_String_Extended,0x20f ; "Attribute :" 00ed e00d | | Load 0x0,0xd 00ee 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00ef 00da | | Load_Top At_Offset_2 00f0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00f1 800e | | Call 0x0,0xe 00f2 00da | | Load_Top At_Offset_2 00f3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00f4 800f | | Call 0x0,0xf 00f5 00da | | Load_Top At_Offset_2 00f6 8211 | | Call 0x1,0x11 00f7 6808 |h | Jump_Zero 0x100 00f8 0092 0210 | | Action Push_String_Extended,0x210 ; "Number : " 00fa 00db | | Load_Top At_Offset_3 00fb 8215 | | Call 0x1,0x15 00fc 01cc | | Execute Vector,Catenate 00fd e00d | | Load 0x0,0xd 00fe 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 00ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0100 00da | | Load_Top At_Offset_2 0101 8212 | | Call 0x1,0x12 0102 6808 |h | Jump_Zero 0x10b 0103 0092 0211 | | Action Push_String_Extended,0x211 ; "Sentence : " 0105 00db | | Load_Top At_Offset_3 0106 8215 | | Call 0x1,0x15 0107 01cc | | Execute Vector,Catenate 0108 e00d | | Load 0x0,0xd 0109 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 010a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 010b 00da | | Load_Top At_Offset_2 010c 8213 | | Call 0x1,0x13 010d 6808 |h | Jump_Zero 0x116 010e 0092 0212 | | Action Push_String_Extended,0x212 ; "Enumerate : " 0110 00db | | Load_Top At_Offset_3 0111 8215 | | Call 0x1,0x15 0112 01cc | | Execute Vector,Catenate 0113 e00d | | Load 0x0,0xd 0114 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0115 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0116 4801 |H | Short_Literal 0x1 0117 e00d | | Load 0x0,0xd 0118 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0119 4502 |E | Exit_Suprogram New_Top_Offset 0x2 011a 0000 0000 | | .BLANK 0000[0x6] 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 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0125 8006 | | Call 0x0,0x6 0126 680d |h | Jump_Zero 0x134 0127 00da | | Load_Top At_Offset_2 0128 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0129 8007 | | Call 0x0,0x7 012a 00d8 | | Load_Top At_Offset_0 012b 00e4 | | Load_Encached Positive_Cache 012c 0260 | ` | Execute Discrete,In_Type 012d 7001 |p | Jump_Nonzero 0x12f 012e 0801 | | Execute_Immediate Raise,0x1 012f 00db | | Load_Top At_Offset_3 0130 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0131 8008 | | Call 0x0,0x8 0132 8010 | | Call 0x0,0x10 0133 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0134 4800 |H | Short_Literal 0x0 0135 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0136 0000 0000 | | .XXX[0x2] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00da | | Load_Top At_Offset_2 013c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 013d 8006 | | Call 0x0,0x6 013e 680d |h | Jump_Zero 0x14c 013f 00da | | Load_Top At_Offset_2 0140 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0141 8007 | | Call 0x0,0x7 0142 00d8 | | Load_Top At_Offset_0 0143 00e4 | | Load_Encached Positive_Cache 0144 0260 | ` | Execute Discrete,In_Type 0145 7001 |p | Jump_Nonzero 0x147 0146 0801 | | Execute_Immediate Raise,0x1 0147 00db | | Load_Top At_Offset_3 0148 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0149 8008 | | Call 0x0,0x8 014a 8011 | | Call 0x0,0x11 014b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014c 4800 |H | Short_Literal 0x0 014d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014e 0000 0000 | | .XXX[0x2] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00da | | Load_Top At_Offset_2 0154 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0155 8006 | | Call 0x0,0x6 0156 680d |h | Jump_Zero 0x164 0157 00da | | Load_Top At_Offset_2 0158 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0159 8007 | | Call 0x0,0x7 015a 00d8 | | Load_Top At_Offset_0 015b 00e4 | | Load_Encached Positive_Cache 015c 0260 | ` | Execute Discrete,In_Type 015d 7001 |p | Jump_Nonzero 0x15f 015e 0801 | | Execute_Immediate Raise,0x1 015f 00db | | Load_Top At_Offset_3 0160 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0161 8008 | | Call 0x0,0x8 0162 8012 | | Call 0x0,0x12 0163 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0164 4800 |H | Short_Literal 0x0 0165 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0166 0000 0000 | | .XXX[0x2] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 016c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 016d 8006 | | Call 0x0,0x6 016e 680d |h | Jump_Zero 0x17c 016f 00da | | Load_Top At_Offset_2 0170 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0171 8007 | | Call 0x0,0x7 0172 00d8 | | Load_Top At_Offset_0 0173 00e4 | | Load_Encached Positive_Cache 0174 0260 | ` | Execute Discrete,In_Type 0175 7001 |p | Jump_Nonzero 0x177 0176 0801 | | Execute_Immediate Raise,0x1 0177 00db | | Load_Top At_Offset_3 0178 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0179 8008 | | Call 0x0,0x8 017a 8013 | | Call 0x0,0x13 017b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017c 4800 |H | Short_Literal 0x0 017d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017e 0000 0000 | | .XXX[0x2] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00da | | Load_Top At_Offset_2 0184 8211 | | Call 0x1,0x11 0185 6805 |h | Jump_Zero 0x18b 0186 00da | | Load_Top At_Offset_2 0187 8216 | | Call 0x1,0x16 0188 00e0 | | Load_Encached Standard_Cache 0189 1818 | | Execute Package,Field_Execute,Field_Number 0x18 018a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018b 00da | | Load_Top At_Offset_2 018c 8212 | | Call 0x1,0x12 018d 6803 |h | Jump_Zero 0x191 018e 00da | | Load_Top At_Offset_2 018f 8217 | | Call 0x1,0x17 0190 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0191 00da | | Load_Top At_Offset_2 0192 8213 | | Call 0x1,0x13 0193 6804 |h | Jump_Zero 0x198 0194 00da | | Load_Top At_Offset_2 0195 8219 | | Call 0x1,0x19 0196 8014 | | Call 0x0,0x14 0197 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0198 00ea | | Load_Encached Null_String_Cache 0199 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019a 0000 0000 | | .BLANK 0000[0x6] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01a5 8006 | | Call 0x0,0x6 01a6 680d |h | Jump_Zero 0x1b4 01a7 00da | | Load_Top At_Offset_2 01a8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01a9 8007 | | Call 0x0,0x7 01aa 00d8 | | Load_Top At_Offset_0 01ab 00e4 | | Load_Encached Positive_Cache 01ac 0260 | ` | Execute Discrete,In_Type 01ad 7001 |p | Jump_Nonzero 0x1af 01ae 0801 | | Execute_Immediate Raise,0x1 01af 00db | | Load_Top At_Offset_3 01b0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01b1 8008 | | Call 0x0,0x8 01b2 8015 | | Call 0x0,0x15 01b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b4 4800 |H | Short_Literal 0x0 01b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b6 0000 0000 | | .XXX[0x2] 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 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01bd 8006 | | Call 0x0,0x6 01be 680d |h | Jump_Zero 0x1cc 01bf 00da | | Load_Top At_Offset_2 01c0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01c1 8007 | | Call 0x0,0x7 01c2 00d8 | | Load_Top At_Offset_0 01c3 00e4 | | Load_Encached Positive_Cache 01c4 0260 | ` | Execute Discrete,In_Type 01c5 7001 |p | Jump_Nonzero 0x1c7 01c6 0801 | | Execute_Immediate Raise,0x1 01c7 00db | | Load_Top At_Offset_3 01c8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01c9 8008 | | Call 0x0,0x8 01ca 8016 | | Call 0x0,0x16 01cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01cc 00ea | | Load_Encached Null_String_Cache 01cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ce 0000 0000 | | .XXX[0x2] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 00da | | Load_Top At_Offset_2 01d4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01d5 8006 | | Call 0x0,0x6 01d6 680d |h | Jump_Zero 0x1e4 01d7 00da | | Load_Top At_Offset_2 01d8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01d9 8007 | | Call 0x0,0x7 01da 00d8 | | Load_Top At_Offset_0 01db 00e4 | | Load_Encached Positive_Cache 01dc 0260 | ` | Execute Discrete,In_Type 01dd 7001 |p | Jump_Nonzero 0x1df 01de 0801 | | Execute_Immediate Raise,0x1 01df 00db | | Load_Top At_Offset_3 01e0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01e1 8008 | | Call 0x0,0x8 01e2 800a | | Call 0x0,0xa 01e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e4 4800 |H | Short_Literal 0x0 01e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01e6 0000 0000 | | .XXX[0x2] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00da | | Load_Top At_Offset_2 01ec 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01ed 8006 | | Call 0x0,0x6 01ee 680d |h | Jump_Zero 0x1fc 01ef 00da | | Load_Top At_Offset_2 01f0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01f1 8007 | | Call 0x0,0x7 01f2 00d8 | | Load_Top At_Offset_0 01f3 00e4 | | Load_Encached Positive_Cache 01f4 0260 | ` | Execute Discrete,In_Type 01f5 7001 |p | Jump_Nonzero 0x1f7 01f6 0801 | | Execute_Immediate Raise,0x1 01f7 00db | | Load_Top At_Offset_3 01f8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01f9 8008 | | Call 0x0,0x8 01fa 8017 | | Call 0x0,0x17 01fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01fc 4800 |H | Short_Literal 0x0 01fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01fe 0000 0000 | | .XXX[0x2] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 4601 |F | Jump_Case 0x2 0204 7801 |x | Jump 0x206 ; case 0x0 0205 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0206 e002 | | Load 0x0,0x2 0207 00db | | Load_Top At_Offset_3 0208 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0209 e003 | | Load 0x0,0x3 020a 00db | | Load_Top At_Offset_3 020b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 020c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 020d ; -------------------------------------------------------------------------------------- 020d ; STRING TABLE 020d ; -------------------------------------------------------------------------------------- 020d 000e | | .STRTAB 0x000e->0x0214 ; "special" 020e 0013 | | .STRTAB 0x0013->0x0217 ; "normal" 020f 0017 | | .STRTAB 0x0017->0x021a ; "Attribute :" 0210 0020 | | .STRTAB 0x0020->0x0220 ; "Number : " 0211 0027 | ' | .STRTAB 0x0027->0x0224 ; "Sentence : " 0212 0030 | 0 | .STRTAB 0x0030->0x022a ; "Enumerate : " 0213 003a | : | .STREND 0x003a->0x0230 0214 7370 6563 |spec| .STRTAB_STRINGS 0230 ; -------------------------------------------------------------------------------------- 0230 ; Debug Table 0230 ; -------------------------------------------------------------------------------------- 0230 0004 0008 | | .DEBUG4 0x0004,0x0008,0xe312,0x0000,0x0001,0x0010 0236 000b 0276 | v| .DBG4T 0x000b,0x0276,0x8000,0x8000 023a 0037 0298 | 7 | .DBG4T 0x0037,0x0298,0x8000,0x0000 023e 005b 02a7 | [ | .DBG4T 0x005b,0x02a7,0x0001,0x0000 0242 006b 02ab | k | .DBG4T 0x006b,0x02ab,0x0001,0x0000 0246 008b 02b0 | | .DBG4T 0x008b,0x02b0,0x0001,0x0000 024a 00eb 02bd | | .DBG4T 0x00eb,0x02bd,0x0001,0x0000 024e 0123 02c9 | # | .DBG4T 0x0123,0x02c9,0x0002,0x0000 0252 013b 02ce | ; | .DBG4T 0x013b,0x02ce,0x0002,0x0000 0256 0153 02d3 | S | .DBG4T 0x0153,0x02d3,0x0002,0x0000 025a 016b 02d8 | k | .DBG4T 0x016b,0x02d8,0x0002,0x0000 025e 0183 02dd | | .DBG4T 0x0183,0x02dd,0x0002,0x0000 0262 01a3 02e6 | | .DBG4T 0x01a3,0x02e6,0x0002,0x0000 0266 01bb 02eb | | .DBG4T 0x01bb,0x02eb,0x0002,0x0000 026a 01d3 02f0 | | .DBG4T 0x01d3,0x02f0,0x0002,0x0000 026e 01eb 02f5 | | .DBG4T 0x01eb,0x02f5,0x0002,0x0000 0272 0203 0000 | | .DBG4T 0x0203,0x0000,0x0005,0x0000 0276 ; -------------------------------------------------------------------------------------- 0276 ; Debug chain 0276 ; -------------------------------------------------------------------------------------- 0276 0010 0000 | | .DBGLEN 0x0010,0x0000 0278 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0026,0x002c 0288 0002 0003 | | .XXX[0x10] 028a 0004 0005 | | 028c 0006 0007 | | 028e 0008 0009 | | 0290 000a 000b | | 0292 000c 000d | | 0294 000e 000f | | 0296 0010 0011 | | 0298 ; -------------------------------------------------------------------------------------- 0298 ; Debug chain 0298 ; -------------------------------------------------------------------------------------- 0298 000d 0000 | | .DBGLEN 0x000d,0x0000 029a 0037 0039 | 7 9| .DBGLNO 0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f 02a7 ; -------------------------------------------------------------------------------------- 02a7 ; Debug chain 02a7 ; -------------------------------------------------------------------------------------- 02a7 0000 0002 | | .DBGLEN 0x0000,0x0002 02a9 005b 005e | [ ^| .DBGLNO 0x005b,0x005e 02ab ; -------------------------------------------------------------------------------------- 02ab ; Debug chain 02ab ; -------------------------------------------------------------------------------------- 02ab 0000 0003 | | .DBGLEN 0x0000,0x0003 02ad 006b 0072 | k r| .DBGLNO 0x006b,0x0072,0x0082 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; Debug chain 02b0 ; -------------------------------------------------------------------------------------- 02b0 0001 000a | | .DBGLEN 0x0001,0x000a 02b2 008b 008c | | .DBGLNO 0x008b,0x008c,0x0090,0x009d,0x00a4,0x00b4,0x00b7,0x00cf,0x00df,0x00e2,0x00e5 02bd ; -------------------------------------------------------------------------------------- 02bd ; Debug chain 02bd ; -------------------------------------------------------------------------------------- 02bd 0000 000a | | .DBGLEN 0x0000,0x000a 02bf 00eb 00ef | | .DBGLNO 0x00eb,0x00ef,0x00f2,0x00f5,0x00f8,0x0100,0x0103,0x010b,0x010e,0x0116 02c9 ; -------------------------------------------------------------------------------------- 02c9 ; Debug chain 02c9 ; -------------------------------------------------------------------------------------- 02c9 0000 0003 | | .DBGLEN 0x0000,0x0003 02cb 0123 0127 | # '| .DBGLNO 0x0123,0x0127,0x0134 02ce ; -------------------------------------------------------------------------------------- 02ce ; Debug chain 02ce ; -------------------------------------------------------------------------------------- 02ce 0000 0003 | | .DBGLEN 0x0000,0x0003 02d0 013b 013f | ; ?| .DBGLNO 0x013b,0x013f,0x014c 02d3 ; -------------------------------------------------------------------------------------- 02d3 ; Debug chain 02d3 ; -------------------------------------------------------------------------------------- 02d3 0000 0003 | | .DBGLEN 0x0000,0x0003 02d5 0153 0157 | S W| .DBGLNO 0x0153,0x0157,0x0164 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; Debug chain 02d8 ; -------------------------------------------------------------------------------------- 02d8 0000 0003 | | .DBGLEN 0x0000,0x0003 02da 016b 016f | k o| .DBGLNO 0x016b,0x016f,0x017c 02dd ; -------------------------------------------------------------------------------------- 02dd ; Debug chain 02dd ; -------------------------------------------------------------------------------------- 02dd 0000 0007 | | .DBGLEN 0x0000,0x0007 02df 0183 0186 | | .DBGLNO 0x0183,0x0186,0x018b,0x018e,0x0191,0x0194,0x0198 02e6 ; -------------------------------------------------------------------------------------- 02e6 ; Debug chain 02e6 ; -------------------------------------------------------------------------------------- 02e6 0000 0003 | | .DBGLEN 0x0000,0x0003 02e8 01a3 01a7 | | .DBGLNO 0x01a3,0x01a7,0x01b4 02eb ; -------------------------------------------------------------------------------------- 02eb ; Debug chain 02eb ; -------------------------------------------------------------------------------------- 02eb 0000 0003 | | .DBGLEN 0x0000,0x0003 02ed 01bb 01bf | | .DBGLNO 0x01bb,0x01bf,0x01cc 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; Debug chain 02f0 ; -------------------------------------------------------------------------------------- 02f0 0000 0003 | | .DBGLEN 0x0000,0x0003 02f2 01d3 01d7 | | .DBGLNO 0x01d3,0x01d7,0x01e4 02f5 ; -------------------------------------------------------------------------------------- 02f5 ; Debug chain 02f5 ; -------------------------------------------------------------------------------------- 02f5 0000 0003 | | .DBGLEN 0x0000,0x0003 02f7 01eb 01ef | | .DBGLNO 0x01eb,0x01ef,0x01fc 02fa 0000 0000 | | .BLANK 0000[0x106]