|
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_1e70ad
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02a8 | | .CONST 0x02a8 ; 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 0052 | R | .CONST 0x0052 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0021 | ! | .CONST 0x0021 ; Number of locals 000b INIT_0008: 000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000d 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 000f 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0011 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0013 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0015 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0017 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0019 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 001b 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 001d 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 001f 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0021 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0023 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0025 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0027 00bf | | Action Accept_Activation 0028 e002 | | Load 0x0,0x2 0029 0007 | | Action Break_Optional 002a 00d8 | | Load_Top At_Offset_0 002b 0007 | | Action Break_Optional 002c e002 | | Load 0x0,0x2 002d 0007 | | Action Break_Optional 002e 00d8 | | Load_Top At_Offset_0 002f 0007 | | Action Break_Optional 0030 e002 | | Load 0x0,0x2 0031 0007 | | Action Break_Optional 0032 00d8 | | Load_Top At_Offset_0 0033 0007 | | Action Break_Optional 0034 e003 | | Load 0x0,0x3 0035 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0036 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0037 00c7 | | Action Elaborate_Subprogram 0038 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0039 00c7 | | Action Elaborate_Subprogram 003a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 003b 00c7 | | Action Elaborate_Subprogram 003c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003d 00c7 | | Action Elaborate_Subprogram 003e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 003f 00c7 | | Action Elaborate_Subprogram 0040 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0041 00c7 | | Action Elaborate_Subprogram 0042 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0043 00c7 | | Action Elaborate_Subprogram 0044 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0045 00c7 | | Action Elaborate_Subprogram 0046 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0047 00c7 | | Action Elaborate_Subprogram 0048 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0049 00c7 | | Action Elaborate_Subprogram 004a 1d17 | | Execute_Immediate Reference_Lex_1,0x17 004b 00c7 | | Action Elaborate_Subprogram 004c 1d18 | | Execute_Immediate Reference_Lex_1,0x18 004d 00c7 | | Action Elaborate_Subprogram 004e 1d19 | | Execute_Immediate Reference_Lex_1,0x19 004f 00c7 | | Action Elaborate_Subprogram 0050 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0051 00c7 | | Action Elaborate_Subprogram 0052 BODY_0008: 0052 00bc | | Action Signal_Activated 0053 00bb | | Action Signal_Completion 0054 0000 0000 | | .BLANK 0000[0x4] 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 8004 | | Call 0x0,0x4 005c a21b | | Store_Unchecked 0x1,0x1b 005d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 005e 0000 0000 | | .XXX[0x2] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 e221 | ! | Load 0x1,0x21 0064 8005 | | Call 0x0,0x5 0065 c221 | ! | Store 0x1,0x21 0066 e221 | ! | Load 0x1,0x21 0067 00db | | Load_Top At_Offset_3 0068 8006 | | Call 0x0,0x6 0069 c221 | ! | Store 0x1,0x21 006a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 006b 0000 0000 | | .BLANK 0000[0x5] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 007b | { | .CONST 0x007b ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0007 | | .CONST 0x0007 ; Number of locals 0073 INIT_0070: 0073 e007 | | Load 0x0,0x7 0074 0322 | " | Declare_Variable Record 0075 e002 | | Load 0x0,0x2 0076 03bd | | Declare_Variable Access,Duplicate 0077 e002 | | Load 0x0,0x2 0078 03bd | | Declare_Variable Access,Duplicate 0079 e003 | | Load 0x0,0x3 007a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 007b BODY_0070: 007b e5ff | | Load 0x2,-0x1 007c 8008 | | Call 0x0,0x8 007d 8009 | | Call 0x0,0x9 007e 68b4 |h | Jump_Zero 0x133 007f e5ff | | Load 0x2,-0x1 0080 0092 028b | | Action Push_String_Extended,0x28b ; "string" 0082 01df | | Execute Vector,Equal 0083 e5ff | | Load 0x2,-0x1 0084 0092 028c | | Action Push_String_Extended,0x28c ; "boolean" 0086 01df | | Execute Vector,Equal 0087 0278 | x | Execute Discrete,Or 0088 e5ff | | Load 0x2,-0x1 0089 0092 028d | | Action Push_String_Extended,0x28d ; "integer" 008b 01df | | Execute Vector,Equal 008c 0278 | x | Execute Discrete,Or 008d e5ff | | Load 0x2,-0x1 008e 8008 | | Call 0x0,0x8 008f 800a | | Call 0x0,0xa 0090 0227 | ' | Execute Access,All_Reference 0091 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0092 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0093 800b | | Call 0x0,0xb 0094 0092 028e | | Action Push_String_Extended,0x28e ; "enum" 0096 01df | | Execute Vector,Equal 0097 0278 | x | Execute Discrete,Or 0098 680f |h | Jump_Zero 0xa8 0099 00ea | | Load_Encached Null_String_Cache 009a e5ff | | Load 0x2,-0x1 009b e221 | ! | Load 0x1,0x21 009c 800b | | Call 0x0,0xb 009d 800c | | Call 0x0,0xc 009e e402 | | Load 0x2,0x2 009f 017d | } | Execute Record,Structure_Write 00a0 e21b | | Load 0x1,0x1b 00a1 e402 | | Load 0x2,0x2 00a2 800d | | Call 0x0,0xd 00a3 c21b | | Store 0x1,0x1b 00a4 e21b | | Load 0x1,0x1b 00a5 800e | | Call 0x0,0xe 00a6 a21c | | Store_Unchecked 0x1,0x1c 00a7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a8 e5ff | | Load 0x2,-0x1 00a9 8008 | | Call 0x0,0x8 00aa 800a | | Call 0x0,0xa 00ab a403 | | Store_Unchecked 0x2,0x3 00ac e403 | | Load 0x2,0x3 00ad 0227 | ' | Execute Access,All_Reference 00ae 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00af 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00b0 800f | | Call 0x0,0xf 00b1 003b | ; | Store_Top Access,At_Offset_3 00b2 00da | | Load_Top At_Offset_2 00b3 a403 | | Store_Unchecked 0x2,0x3 00b4 00cf | | Action Mark_Auxiliary 00b5 7860 |x` | Jump 0x116 00b6 e403 | | Load 0x2,0x3 00b7 0229 | ) | Execute Access,All_Read 00b8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00b9 00d8 | | Load_Top At_Offset_0 00ba 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00bb 8010 | | Call 0x0,0x10 00bc 00d9 | | Load_Top At_Offset_1 00bd 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00be 00d1 | | Pop_Control Pop_Count_1 00bf 00d9 | | Load_Top At_Offset_1 00c0 8005 | | Call 0x0,0x5 00c1 003a | : | Store_Top Access,At_Offset_2 00c2 00d9 | | Load_Top At_Offset_1 00c3 e403 | | Load 0x2,0x3 00c4 0227 | ' | Execute Access,All_Reference 00c5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00c6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00c7 8011 | | Call 0x0,0x11 00c8 003a | : | Store_Top Access,At_Offset_2 00c9 00d9 | | Load_Top At_Offset_1 00ca 800b | | Call 0x0,0xb 00cb 0092 028b | | Action Push_String_Extended,0x28b ; "string" 00cd 01df | | Execute Vector,Equal 00ce 00da | | Load_Top At_Offset_2 00cf 800b | | Call 0x0,0xb 00d0 0092 028c | | Action Push_String_Extended,0x28c ; "boolean" 00d2 01df | | Execute Vector,Equal 00d3 0278 | x | Execute Discrete,Or 00d4 00da | | Load_Top At_Offset_2 00d5 800b | | Call 0x0,0xb 00d6 0092 028d | | Action Push_String_Extended,0x28d ; "integer" 00d8 01df | | Execute Vector,Equal 00d9 0278 | x | Execute Discrete,Or 00da 00da | | Load_Top At_Offset_2 00db 800b | | Call 0x0,0xb 00dc 8008 | | Call 0x0,0x8 00dd 800a | | Call 0x0,0xa 00de 0227 | ' | Execute Access,All_Reference 00df 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00e0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00e1 800b | | Call 0x0,0xb 00e2 0092 028e | | Action Push_String_Extended,0x28e ; "enum" 00e4 01df | | Execute Vector,Equal 00e5 0278 | x | Execute Discrete,Or 00e6 6801 |h | Jump_Zero 0xe8 00e7 7820 |x | Jump 0x108 00e8 00d9 | | Load_Top At_Offset_1 00e9 800b | | Call 0x0,0xb 00ea 8008 | | Call 0x0,0x8 00eb 800a | | Call 0x0,0xa 00ec a404 | | Store_Unchecked 0x2,0x4 00ed e404 | | Load 0x2,0x4 00ee 0227 | ' | Execute Access,All_Reference 00ef 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00f0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00f1 800f | | Call 0x0,0xf 00f2 003b | ; | Store_Top Access,At_Offset_3 00f3 00da | | Load_Top At_Offset_2 00f4 a404 | | Store_Unchecked 0x2,0x4 00f5 00cf | | Action Mark_Auxiliary 00f6 780d |x | Jump 0x104 00f7 e404 | | Load 0x2,0x4 00f8 0229 | ) | Execute Access,All_Read 00f9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00fa 00d8 | | Load_Top At_Offset_0 00fb 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00fc 8010 | | Call 0x0,0x10 00fd 00d9 | | Load_Top At_Offset_1 00fe 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00ff 00d1 | | Pop_Control Pop_Count_1 0100 e404 | | Load 0x2,0x4 0101 8012 | | Call 0x0,0x12 0102 c404 | | Store 0x2,0x4 0103 00c9 | | Action Pop_Auxiliary_Loop 0104 e404 | | Load 0x2,0x4 0105 8013 | | Call 0x0,0x13 0106 77f0 |w | Jump_Nonzero 0xf7 0107 00ce | | Action Pop_Auxiliary 0108 e403 | | Load 0x2,0x3 0109 0229 | ) | Execute Access,All_Read 010a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 010b 00d8 | | Load_Top At_Offset_0 010c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 010d e406 | | Load 0x2,0x6 010e 8014 | | Call 0x0,0x14 010f 00d9 | | Load_Top At_Offset_1 0110 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0111 00d1 | | Pop_Control Pop_Count_1 0112 e403 | | Load 0x2,0x3 0113 8012 | | Call 0x0,0x12 0114 c403 | | Store 0x2,0x3 0115 00c9 | | Action Pop_Auxiliary_Loop 0116 e403 | | Load 0x2,0x3 0117 8013 | | Call 0x0,0x13 0118 779d |w | Jump_Nonzero 0xb6 0119 00ce | | Action Pop_Auxiliary 011a 00ea | | Load_Encached Null_String_Cache 011b e5ff | | Load 0x2,-0x1 011c e221 | ! | Load 0x1,0x21 011d 800b | | Call 0x0,0xb 011e 800c | | Call 0x0,0xc 011f e402 | | Load 0x2,0x2 0120 017d | } | Execute Record,Structure_Write 0121 e21b | | Load 0x1,0x1b 0122 e402 | | Load 0x2,0x2 0123 800d | | Call 0x0,0xd 0124 c21b | | Store 0x1,0x1b 0125 e21c | | Load 0x1,0x1c 0126 8015 | | Call 0x0,0x15 0127 a21c | | Store_Unchecked 0x1,0x1c 0128 e21c | | Load 0x1,0x1c 0129 0229 | ) | Execute Access,All_Read 012a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 012b 00d8 | | Load_Top At_Offset_0 012c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 012d e405 | | Load 0x2,0x5 012e 8014 | | Call 0x0,0x14 012f 00d9 | | Load_Top At_Offset_1 0130 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0131 00d1 | | Pop_Control Pop_Count_1 0132 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0133 e5ff | | Load 0x2,-0x1 0134 0092 028f | | Action Push_String_Extended,0x28f ; " not yet declared)" 0136 01cc | | Execute Vector,Catenate 0137 e016 | | Load 0x0,0x16 0138 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0139 4502 |E | Exit_Suprogram New_Top_Offset 0x2 013a 0000 0000 | | .BLANK 0000[0x6] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0145 | E | .CONST 0x0145 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0002 | | .CONST 0x0002 ; Number of locals 0143 INIT_0140: 0143 e002 | | Load 0x0,0x2 0144 0007 | | Action Break_Optional 0145 BODY_0140: 0145 e5fe | | Load 0x2,-0x2 0146 e5ff | | Load 0x2,-0x1 0147 800a | | Call 0x0,0xa 0148 0039 | 9 | Store_Top Access,At_Offset_1 0149 00d8 | | Load_Top At_Offset_0 014a 0227 | ' | Execute Access,All_Reference 014b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 014c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 014d 800b | | Call 0x0,0xb 014e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 014f 0000 | | .XXX[0x1] 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 e21b | | Load 0x1,0x1b 0155 8210 | | Call 0x1,0x10 0156 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0157 0000 | | .XXX[0x1] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015d | ] | .CONST 0x015d ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0002 | | .CONST 0x0002 ; Number of locals 015b INIT_0158: 015b e002 | | Load 0x0,0x2 015c 0007 | | Action Break_Optional 015d BODY_0158: 015d e5fe | | Load 0x2,-0x2 015e e5ff | | Load 0x2,-0x1 015f 800a | | Call 0x0,0xa 0160 0039 | 9 | Store_Top Access,At_Offset_1 0161 00d8 | | Load_Top At_Offset_0 0162 0227 | ' | Execute Access,All_Reference 0163 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0164 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0165 800b | | Call 0x0,0xb 0166 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0167 0000 | | .XXX[0x1] 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 e21b | | Load 0x1,0x1b 016d 8212 | | Call 0x1,0x12 016e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016f 0000 | | .XXX[0x1] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 e21b | | Load 0x1,0x1b 0174 00ca | | Action Exit_Nullary_Function 0175 0000 0000 | | .XXX[0x3] 0177 0000 | | 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 e21b | | Load 0x1,0x1b 017c 8017 | | Call 0x0,0x17 017d 8018 | | Call 0x0,0x18 017e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 017f 0000 | | .XXX[0x1] 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 e21b | | Load 0x1,0x1b 0185 800a | | Call 0x0,0xa 0186 a21d | | Store_Unchecked 0x1,0x1d 0187 e21b | | Load 0x1,0x1b 0188 a220 | | Store_Unchecked 0x1,0x20 0189 e21d | | Load 0x1,0x1d 018a a21e | | Store_Unchecked 0x1,0x1e 018b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 018c 0000 0000 | | .BLANK 0000[0x4] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0195 | | .CONST 0x0195 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0002 | | .CONST 0x0002 ; Number of locals 0193 INIT_0190: 0193 e002 | | Load 0x0,0x2 0194 0007 | | Action Break_Optional 0195 BODY_0190: 0195 e21d | | Load 0x1,0x1d 0196 0227 | ' | Execute Access,All_Reference 0197 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0198 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0199 8017 | | Call 0x0,0x17 019a 8013 | | Call 0x0,0x13 019b 680d |h | Jump_Zero 0x1a9 019c e21d | | Load 0x1,0x1d 019d 0227 | ' | Execute Access,All_Reference 019e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 019f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01a0 a220 | | Store_Unchecked 0x1,0x20 01a1 00db | | Load_Top At_Offset_3 01a2 e220 | | Load 0x1,0x20 01a3 800a | | Call 0x0,0xa 01a4 0039 | 9 | Store_Top Access,At_Offset_1 01a5 00d8 | | Load_Top At_Offset_0 01a6 a21d | | Store_Unchecked 0x1,0x1d 01a7 e21d | | Load 0x1,0x1d 01a8 a21f | | Store_Unchecked 0x1,0x1f 01a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01aa 0000 0000 | | .BLANK 0000[0x6] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b5 | | .CONST 0x01b5 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0002 | | .CONST 0x0002 ; Number of locals 01b3 INIT_01b0: 01b3 e002 | | Load 0x0,0x2 01b4 0007 | | Action Break_Optional 01b5 BODY_01b0: 01b5 e21d | | Load 0x1,0x1d 01b6 0227 | ' | Execute Access,All_Reference 01b7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01b8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01b9 8017 | | Call 0x0,0x17 01ba 8013 | | Call 0x0,0x13 01bb 680b |h | Jump_Zero 0x1c7 01bc e21d | | Load 0x1,0x1d 01bd 0227 | ' | Execute Access,All_Reference 01be 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01bf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01c0 a220 | | Store_Unchecked 0x1,0x20 01c1 00db | | Load_Top At_Offset_3 01c2 e220 | | Load 0x1,0x20 01c3 800a | | Call 0x0,0xa 01c4 0039 | 9 | Store_Top Access,At_Offset_1 01c5 00d8 | | Load_Top At_Offset_0 01c6 a21d | | Store_Unchecked 0x1,0x1d 01c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cd | | .CONST 0x01cd ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0002 | | .CONST 0x0002 ; Number of locals 01cb INIT_01c8: 01cb e002 | | Load 0x0,0x2 01cc 0007 | | Action Break_Optional 01cd BODY_01c8: 01cd e5fe | | Load 0x2,-0x2 01ce e5ff | | Load 0x2,-0x1 01cf 8009 | | Call 0x0,0x9 01d0 682e |h. | Jump_Zero 0x1ff 01d1 00db | | Load_Top At_Offset_3 01d2 8017 | | Call 0x0,0x17 01d3 0039 | 9 | Store_Top Access,At_Offset_1 01d4 00d8 | | Load_Top At_Offset_0 01d5 0227 | ' | Execute Access,All_Reference 01d6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01d7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01d8 800b | | Call 0x0,0xb 01d9 e5fe | | Load 0x2,-0x2 01da 01df | | Execute Vector,Equal 01db 6812 |h | Jump_Zero 0x1ee 01dc e5fe | | Load 0x2,-0x2 01dd e21e | | Load 0x1,0x1e 01de 0227 | ' | Execute Access,All_Reference 01df 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01e0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01e1 8009 | | Call 0x0,0x9 01e2 6802 |h | Jump_Zero 0x1e5 01e3 e21e | | Load 0x1,0x1e 01e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01e5 e5fe | | Load 0x2,-0x2 01e6 e21f | | Load 0x1,0x1f 01e7 0227 | ' | Execute Access,All_Reference 01e8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01e9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01ea 8009 | | Call 0x0,0x9 01eb 6813 |h | Jump_Zero 0x1ff 01ec e21f | | Load 0x1,0x1f 01ed 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ee 00cf | | Action Mark_Auxiliary 01ef 7804 |x | Jump 0x1f4 01f0 00d9 | | Load_Top At_Offset_1 01f1 8012 | | Call 0x0,0x12 01f2 003a | : | Store_Top Access,At_Offset_2 01f3 00c9 | | Action Pop_Auxiliary_Loop 01f4 00d9 | | Load_Top At_Offset_1 01f5 8019 | | Call 0x0,0x19 01f6 8015 | | Call 0x0,0x15 01f7 0227 | ' | Execute Access,All_Reference 01f8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01f9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01fa 800b | | Call 0x0,0xb 01fb e5fe | | Load 0x2,-0x2 01fc 01df | | Execute Vector,Equal 01fd 6ff2 |o | Jump_Zero 0x1f0 01fe 00ce | | Action Pop_Auxiliary 01ff 00d8 | | Load_Top At_Offset_0 0200 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0201 0000 0000 | | .BLANK 0000[0x7] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0215 | | .CONST 0x0215 ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0006 | | .CONST 0x0006 ; Number of locals 020b INIT_0208: 020b e007 | | Load 0x0,0x7 020c 0322 | " | Declare_Variable Record 020d e002 | | Load 0x0,0x2 020e 0007 | | Action Break_Optional 020f 00d8 | | Load_Top At_Offset_0 0210 0007 | | Action Break_Optional 0211 e002 | | Load 0x0,0x2 0212 0007 | | Action Break_Optional 0213 e003 | | Load 0x0,0x3 0214 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0215 BODY_0208: 0215 00d8 | | Load_Top At_Offset_0 0216 e21d | | Load 0x1,0x1d 0217 0227 | ' | Execute Access,All_Reference 0218 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0219 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 021a 8011 | | Call 0x0,0x11 021b 0039 | 9 | Store_Top Access,At_Offset_1 021c 00d8 | | Load_Top At_Offset_0 021d 800b | | Call 0x0,0xb 021e e220 | | Load 0x1,0x20 021f 800a | | Call 0x0,0xa 0220 a403 | | Store_Unchecked 0x2,0x3 0221 e5ff | | Load 0x2,-0x1 0222 e403 | | Load 0x2,0x3 0223 0227 | ' | Execute Access,All_Reference 0224 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0225 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0226 800b | | Call 0x0,0xb 0227 e403 | | Load 0x2,0x3 0228 0227 | ' | Execute Access,All_Reference 0229 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 022a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 022b 800b | | Call 0x0,0xb 022c 800c | | Call 0x0,0xc 022d e402 | | Load 0x2,0x2 022e 017d | } | Execute Record,Structure_Write 022f 00d8 | | Load_Top At_Offset_0 0230 800b | | Call 0x0,0xb 0231 e220 | | Load 0x1,0x20 0232 8219 | | Call 0x1,0x19 0233 003b | ; | Store_Top Access,At_Offset_3 0234 00da | | Load_Top At_Offset_2 0235 0227 | ' | Execute Access,All_Reference 0236 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0237 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0238 800b | | Call 0x0,0xb 0239 e220 | | Load 0x1,0x20 023a 8009 | | Call 0x0,0x9 023b 6821 |h! | Jump_Zero 0x25d 023c 00db | | Load_Top At_Offset_3 023d 0227 | ' | Execute Access,All_Reference 023e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 023f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0240 8017 | | Call 0x0,0x17 0241 8013 | | Call 0x0,0x13 0242 6806 |h | Jump_Zero 0x249 0243 00db | | Load_Top At_Offset_3 0244 0227 | ' | Execute Access,All_Reference 0245 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0246 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0247 e402 | | Load 0x2,0x2 0248 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0249 e002 | | Load 0x0,0x2 024a 00db | | Load_Top At_Offset_3 024b 0227 | ' | Execute Access,All_Reference 024c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 024d e220 | | Load 0x1,0x20 024e e402 | | Load 0x2,0x2 024f 800d | | Call 0x0,0xd 0250 c220 | | Store 0x1,0x20 0251 00db | | Load_Top At_Offset_3 0252 8013 | | Call 0x0,0x13 0253 6808 |h | Jump_Zero 0x25c 0254 00db | | Load_Top At_Offset_3 0255 8019 | | Call 0x0,0x19 0256 8015 | | Call 0x0,0x15 0257 003a | : | Store_Top Access,At_Offset_2 0258 e220 | | Load 0x1,0x20 0259 00da | | Load_Top At_Offset_2 025a 8014 | | Call 0x0,0x14 025b c220 | | Store 0x1,0x20 025c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 025d 00db | | Load_Top At_Offset_3 025e 0227 | ' | Execute Access,All_Reference 025f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0260 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0261 8017 | | Call 0x0,0x17 0262 8013 | | Call 0x0,0x13 0263 6806 |h | Jump_Zero 0x26a 0264 00db | | Load_Top At_Offset_3 0265 0227 | ' | Execute Access,All_Reference 0266 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0267 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0268 e402 | | Load 0x2,0x2 0269 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 026a e002 | | Load 0x0,0x2 026b 00db | | Load_Top At_Offset_3 026c 0227 | ' | Execute Access,All_Reference 026d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 026e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 026f 00da | | Load_Top At_Offset_2 0270 0229 | ) | Execute Access,All_Read 0271 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0272 00d8 | | Load_Top At_Offset_0 0273 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0274 e402 | | Load 0x2,0x2 0275 800d | | Call 0x0,0xd 0276 00d9 | | Load_Top At_Offset_1 0277 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0278 00d1 | | Pop_Control Pop_Count_1 0279 00db | | Load_Top At_Offset_3 027a 8013 | | Call 0x0,0x13 027b 680e |h | Jump_Zero 0x28a 027c 00db | | Load_Top At_Offset_3 027d 8019 | | Call 0x0,0x19 027e 8015 | | Call 0x0,0x15 027f 003a | : | Store_Top Access,At_Offset_2 0280 00da | | Load_Top At_Offset_2 0281 0229 | ) | Execute Access,All_Read 0282 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0283 00d8 | | Load_Top At_Offset_0 0284 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0285 00db | | Load_Top At_Offset_3 0286 8014 | | Call 0x0,0x14 0287 00d9 | | Load_Top At_Offset_1 0288 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0289 00d1 | | Pop_Control Pop_Count_1 028a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 028b ; -------------------------------------------------------------------------------------- 028b ; STRING TABLE 028b ; -------------------------------------------------------------------------------------- 028b 000c | | .STRTAB 0x000c->0x0291 ; "string" 028c 0010 | | .STRTAB 0x0010->0x0294 ; "boolean" 028d 0015 | | .STRTAB 0x0015->0x0297 ; "integer" 028e 001a | | .STRTAB 0x001a->0x029b ; "enum" 028f 001c | | .STRTAB 0x001c->0x029d ; " not yet declared)" 0290 002c | , | .STREND 0x002c->0x02a6 0291 7374 7269 |stri| .STRTAB_STRINGS 02a6 0000 0000 | | .XXX[0x2] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; Debug Table 02a8 ; -------------------------------------------------------------------------------------- 02a8 0004 0008 | | .DEBUG4 0x0004,0x0008,0xa5c5,0x0000,0x0001,0x0010 02ae 000b 02ee | | .DBG4T 0x000b,0x02ee,0x8000,0x0000 02b2 0028 02fe | ( | .DBG4T 0x0028,0x02fe,0x8000,0x0000 02b6 005b 0315 | [ | .DBG4T 0x005b,0x0315,0x0001,0x0000 02ba 0063 0318 | c | .DBG4T 0x0063,0x0318,0x0001,0x0000 02be 0073 031c | s | .DBG4T 0x0073,0x031c,0x0001,0x4000 02c2 0143 0358 | C X| .DBG4T 0x0143,0x0358,0x0002,0x0000 02c6 0153 035d | S ]| .DBG4T 0x0153,0x035d,0x0002,0x0000 02ca 015b 0360 | [ `| .DBG4T 0x015b,0x0360,0x0002,0x0000 02ce 016b 0365 | k e| .DBG4T 0x016b,0x0365,0x0002,0x0000 02d2 0173 0368 | s h| .DBG4T 0x0173,0x0368,0x0002,0x0000 02d6 017b 036b | { k| .DBG4T 0x017b,0x036b,0x0001,0x0000 02da 0183 036e | n| .DBG4T 0x0183,0x036e,0x0001,0x0000 02de 0193 0373 | s| .DBG4T 0x0193,0x0373,0x0001,0x0000 02e2 01b3 037b | {| .DBG4T 0x01b3,0x037b,0x0001,0x0000 02e6 01cb 0382 | | .DBG4T 0x01cb,0x0382,0x0002,0x4000 02ea 020b 0399 | | .DBG4T 0x020b,0x0399,0x0001,0x0000 02ee ; -------------------------------------------------------------------------------------- 02ee ; Debug chain 02ee ; -------------------------------------------------------------------------------------- 02ee 000e 0000 | | .DBGLEN 0x000e,0x0000 02f0 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025 02fe ; -------------------------------------------------------------------------------------- 02fe ; Debug chain 02fe ; -------------------------------------------------------------------------------------- 02fe 0015 0000 | | .DBGLEN 0x0015,0x0000 0300 0028 002a | ( *| .DBGLNO 0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050 0315 ; -------------------------------------------------------------------------------------- 0315 ; Debug chain 0315 ; -------------------------------------------------------------------------------------- 0315 0000 0001 | | .DBGLEN 0x0000,0x0001 0317 005b | [ | .DBGLNO 0x005b 0318 ; -------------------------------------------------------------------------------------- 0318 ; Debug chain 0318 ; -------------------------------------------------------------------------------------- 0318 0000 0002 | | .DBGLEN 0x0000,0x0002 031a 0063 0066 | c f| .DBGLNO 0x0063,0x0066 031c ; -------------------------------------------------------------------------------------- 031c ; Debug chain 031c ; -------------------------------------------------------------------------------------- 031c 0004 001b | | .DBGLEN 0x0004,0x001b 031e 0073 0075 | s u| .DBGLNO 0x0073,0x0075,0x0077,0x0079,0x007b,0x007f,0x0099,0x00a0,0x00a4,0x00a8,0x00ac,0x00b2,0x00b6,0x00bf,0x00c2,0x00c9,0x00e7,0x00e8,0x00ed,0x00f3,0x00f7,0x0100,0x0104,0x0108,0x0112,0x0116,0x011a,0x0121,0x0125,0x0128,0x0133 033d 0001 0002 | | .XXX[0x1b] 033f 0003 0004 | | 0341 0005 0006 | | 0343 0007 0008 | | 0345 000a 000b | | 0347 000c 000d | | 0349 000e 000f | | 034b 0010 0011 | | 034d 0013 0014 | | 034f 0012 0015 | | 0351 0016 0009 | | 0353 0017 0018 | | 0355 0019 001a | | 0357 001b | | 0358 ; -------------------------------------------------------------------------------------- 0358 ; Debug chain 0358 ; -------------------------------------------------------------------------------------- 0358 0001 0002 | | .DBGLEN 0x0001,0x0002 035a 0143 0145 | C E| .DBGLNO 0x0143,0x0145,0x0149 035d ; -------------------------------------------------------------------------------------- 035d ; Debug chain 035d ; -------------------------------------------------------------------------------------- 035d 0000 0001 | | .DBGLEN 0x0000,0x0001 035f 0153 | S | .DBGLNO 0x0153 0360 ; -------------------------------------------------------------------------------------- 0360 ; Debug chain 0360 ; -------------------------------------------------------------------------------------- 0360 0001 0002 | | .DBGLEN 0x0001,0x0002 0362 015b 015d | [ ]| .DBGLNO 0x015b,0x015d,0x0161 0365 ; -------------------------------------------------------------------------------------- 0365 ; Debug chain 0365 ; -------------------------------------------------------------------------------------- 0365 0000 0001 | | .DBGLEN 0x0000,0x0001 0367 016b | k | .DBGLNO 0x016b 0368 ; -------------------------------------------------------------------------------------- 0368 ; Debug chain 0368 ; -------------------------------------------------------------------------------------- 0368 0000 0001 | | .DBGLEN 0x0000,0x0001 036a 0173 | s | .DBGLNO 0x0173 036b ; -------------------------------------------------------------------------------------- 036b ; Debug chain 036b ; -------------------------------------------------------------------------------------- 036b 0000 0001 | | .DBGLEN 0x0000,0x0001 036d 017b | { | .DBGLNO 0x017b 036e ; -------------------------------------------------------------------------------------- 036e ; Debug chain 036e ; -------------------------------------------------------------------------------------- 036e 0000 0003 | | .DBGLEN 0x0000,0x0003 0370 0183 0187 | | .DBGLNO 0x0183,0x0187,0x0189 0373 ; -------------------------------------------------------------------------------------- 0373 ; Debug chain 0373 ; -------------------------------------------------------------------------------------- 0373 0001 0005 | | .DBGLEN 0x0001,0x0005 0375 0193 0195 | | .DBGLNO 0x0193,0x0195,0x019c,0x01a1,0x01a5,0x01a7 037b ; -------------------------------------------------------------------------------------- 037b ; Debug chain 037b ; -------------------------------------------------------------------------------------- 037b 0001 0004 | | .DBGLEN 0x0001,0x0004 037d 01b3 01b5 | | .DBGLNO 0x01b3,0x01b5,0x01bc,0x01c1,0x01c5 0382 ; -------------------------------------------------------------------------------------- 0382 ; Debug chain 0382 ; -------------------------------------------------------------------------------------- 0382 0001 000a | | .DBGLEN 0x0001,0x000a 0384 01cb 01cd | | .DBGLNO 0x01cb,0x01cd,0x01d1,0x01d4,0x01dc,0x01e3,0x01e5,0x01ec,0x01f0,0x01f4,0x01ff 038f 0001 0002 | | .XXX[0xa] 0391 0003 0004 | | 0393 0005 0006 | | 0395 0007 0009 | | 0397 0008 000a | | 0399 ; -------------------------------------------------------------------------------------- 0399 ; Debug chain 0399 ; -------------------------------------------------------------------------------------- 0399 0005 0013 | | .DBGLEN 0x0005,0x0013 039b 020b 020d | | .DBGLNO 0x020b,0x020d,0x020f,0x0211,0x0213,0x0215,0x021c,0x0221,0x022f,0x0234,0x023c,0x0243,0x0249,0x024d,0x0251,0x0254,0x0258,0x025d,0x0264,0x026a,0x026f,0x0279,0x027c,0x0280 03b3 0000 0000 | | .BLANK 0000[0x4d]