|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0408 | | .CONST 0x0408 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 008e | | .CONST 0x008e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002d | - | .CONST 0x002d ; Number of locals 000b INIT_0008: 000b 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 000d 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 000f 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0011 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0013 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0015 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0017 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0019 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 001b 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 001d 029a 019b | | Declare_Subprogram INIT_0198,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 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0025 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 0027 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 0029 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated 002b 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 002d 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated 002f 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 0031 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 0033 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 0035 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated 0037 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated 0039 029a 031b | | Declare_Subprogram INIT_0318,For_Outer_Call,Visible,Unelaborated 003b 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated 003d 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated 003f 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated 0041 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated 0043 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated 0045 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated 0047 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated 0049 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated 004b 00bf | | Action Accept_Activation 004c 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call 004e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 004f 00c7 | | Action Elaborate_Subprogram 0050 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0051 00c7 | | Action Elaborate_Subprogram 0052 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0053 00c7 | | Action Elaborate_Subprogram 0054 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0055 00c7 | | Action Elaborate_Subprogram 0056 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0057 00c7 | | Action Elaborate_Subprogram 0058 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0059 00c7 | | Action Elaborate_Subprogram 005a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 005b 00c7 | | Action Elaborate_Subprogram 005c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 005d 00c7 | | Action Elaborate_Subprogram 005e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 005f 00c7 | | Action Elaborate_Subprogram 0060 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0061 00c7 | | Action Elaborate_Subprogram 0062 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0063 00c7 | | Action Elaborate_Subprogram 0064 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0065 00c7 | | Action Elaborate_Subprogram 0066 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0067 00c7 | | Action Elaborate_Subprogram 0068 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0069 00c7 | | Action Elaborate_Subprogram 006a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 006b 00c7 | | Action Elaborate_Subprogram 006c 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 006d 00c7 | | Action Elaborate_Subprogram 006e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 006f 00c7 | | Action Elaborate_Subprogram 0070 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0071 00c7 | | Action Elaborate_Subprogram 0072 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0073 00c7 | | Action Elaborate_Subprogram 0074 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0075 00c7 | | Action Elaborate_Subprogram 0076 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0077 00c7 | | Action Elaborate_Subprogram 0078 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 0079 00c7 | | Action Elaborate_Subprogram 007a 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 007b 00c7 | | Action Elaborate_Subprogram 007c 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 007d 00c7 | | Action Elaborate_Subprogram 007e 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 007f 00c7 | | Action Elaborate_Subprogram 0080 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0081 00c7 | | Action Elaborate_Subprogram 0082 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0083 00c7 | | Action Elaborate_Subprogram 0084 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0085 00c7 | | Action Elaborate_Subprogram 0086 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0087 00c7 | | Action Elaborate_Subprogram 0088 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 0089 00c7 | | Action Elaborate_Subprogram 008a 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b 008b 00c7 | | Action Elaborate_Subprogram 008c 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c 008d 00c7 | | Action Elaborate_Subprogram 008e BODY_0008: 008e 00bc | | Action Signal_Activated 008f 00bb | | Action Signal_Completion 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 e5f9 | | Load 0x2,-0x7 0094 e003 | | Load 0x0,0x3 0095 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0096 c5f9 | | Store 0x2,-0x7 0097 e5f9 | | Load 0x2,-0x7 0098 e5fa | | Load 0x2,-0x6 0099 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 009a e5fb | | Load 0x2,-0x5 009b e5fc | | Load 0x2,-0x4 009c e5fd | | Load 0x2,-0x3 009d e5ff | | Load 0x2,-0x1 009e e5fe | | Load 0x2,-0x2 009f e5fa | | Load 0x2,-0x6 00a0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00a1 e5fa | | Load 0x2,-0x6 00a2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00a3 8004 | | Call 0x0,0x4 00a4 e5fa | | Load 0x2,-0x6 00a5 380d |8 | Execute Record,Field_Write,Field_Number 0xd 00a6 c5f9 | | Store 0x2,-0x7 00a7 4506 |E | Exit_Suprogram New_Top_Offset 0x6 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 e5fa | | Load 0x2,-0x6 00ac e003 | | Load 0x0,0x3 00ad 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00ae c5fa | | Store 0x2,-0x6 00af e5fa | | Load 0x2,-0x6 00b0 e5fb | | Load 0x2,-0x5 00b1 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 00b2 e5fc | | Load 0x2,-0x4 00b3 e5fd | | Load 0x2,-0x3 00b4 e5fe | | Load 0x2,-0x2 00b5 e5ff | | Load 0x2,-0x1 00b6 e5fb | | Load 0x2,-0x5 00b7 8005 | | Call 0x0,0x5 00b8 8006 | | Call 0x0,0x6 00b9 e5fb | | Load 0x2,-0x5 00ba 380d |8 | Execute Record,Field_Write,Field_Number 0xd 00bb c5fa | | Store 0x2,-0x6 00bc 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00bd 0000 0000 | | .XXX[0x3] 00bf 0000 | | 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 e5fa | | Load 0x2,-0x6 00c4 e003 | | Load 0x0,0x3 00c5 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00c6 c5fa | | Store 0x2,-0x6 00c7 e5fa | | Load 0x2,-0x6 00c8 e5fb | | Load 0x2,-0x5 00c9 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 00ca e5fc | | Load 0x2,-0x4 00cb e5fd | | Load 0x2,-0x3 00cc e5fb | | Load 0x2,-0x5 00cd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00ce e5fe | | Load 0x2,-0x2 00cf e5ff | | Load 0x2,-0x1 00d0 8007 | | Call 0x0,0x7 00d1 e5fb | | Load 0x2,-0x5 00d2 380d |8 | Execute Record,Field_Write,Field_Number 0xd 00d3 c5fa | | Store 0x2,-0x6 00d4 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00d5 0000 0000 | | .XXX[0x3] 00d7 0000 | | 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00e3 | | .CONST 0x00e3 ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0002 | | .CONST 0x0002 ; Number of locals 00db INIT_00d8: 00db 00db | | Load_Top At_Offset_3 00dc e5fa | | Load 0x2,-0x6 00dd 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 00de e5ff | | Load 0x2,-0x1 00df 8008 | | Call 0x0,0x8 00e0 e009 | | Load 0x0,0x9 00e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e2 03f1 | | Declare_Variable Discrete,With_Value 00e3 BODY_00d8: 00e3 e5f9 | | Load 0x2,-0x7 00e4 e003 | | Load 0x0,0x3 00e5 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00e6 c5f9 | | Store 0x2,-0x7 00e7 e5f9 | | Load 0x2,-0x7 00e8 e5fa | | Load 0x2,-0x6 00e9 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 00ea e5fb | | Load 0x2,-0x5 00eb e5fc | | Load 0x2,-0x4 00ec e5fd | | Load 0x2,-0x3 00ed e402 | | Load 0x2,0x2 00ee e5fe | | Load 0x2,-0x2 00ef e5ff | | Load 0x2,-0x1 00f0 800a | | Call 0x0,0xa 00f1 e5fa | | Load 0x2,-0x6 00f2 380d |8 | Execute Record,Field_Write,Field_Number 0xd 00f3 c5f9 | | Store 0x2,-0x7 00f4 4506 |E | Exit_Suprogram New_Top_Offset 0x6 00f5 0000 0000 | | .XXX[0x3] 00f7 0000 | | 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0103 | | .CONST 0x0103 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0002 | | .CONST 0x0002 ; Number of locals 00fb INIT_00f8: 00fb 00db | | Load_Top At_Offset_3 00fc e5fa | | Load 0x2,-0x6 00fd 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 00fe e5ff | | Load 0x2,-0x1 00ff 8008 | | Call 0x0,0x8 0100 e009 | | Load 0x0,0x9 0101 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0102 03f1 | | Declare_Variable Discrete,With_Value 0103 BODY_00f8: 0103 e5f9 | | Load 0x2,-0x7 0104 e003 | | Load 0x0,0x3 0105 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0106 c5f9 | | Store 0x2,-0x7 0107 e5f9 | | Load 0x2,-0x7 0108 e5fa | | Load 0x2,-0x6 0109 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 010a e5fb | | Load 0x2,-0x5 010b e5fc | | Load 0x2,-0x4 010c e5fd | | Load 0x2,-0x3 010d e402 | | Load 0x2,0x2 010e e5fe | | Load 0x2,-0x2 010f e5ff | | Load 0x2,-0x1 0110 800b | | Call 0x0,0xb 0111 e5fa | | Load 0x2,-0x6 0112 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0113 c5f9 | | Store 0x2,-0x7 0114 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0115 0000 0000 | | .XXX[0x3] 0117 0000 | | 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0123 | # | .CONST 0x0123 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b 00db | | Load_Top At_Offset_3 011c e5fa | | Load 0x2,-0x6 011d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 011e e5ff | | Load 0x2,-0x1 011f 8008 | | Call 0x0,0x8 0120 e009 | | Load 0x0,0x9 0121 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0122 03f1 | | Declare_Variable Discrete,With_Value 0123 BODY_0118: 0123 e5f9 | | Load 0x2,-0x7 0124 e003 | | Load 0x0,0x3 0125 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0126 c5f9 | | Store 0x2,-0x7 0127 e5f9 | | Load 0x2,-0x7 0128 e5fa | | Load 0x2,-0x6 0129 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 012a e5fb | | Load 0x2,-0x5 012b e5fc | | Load 0x2,-0x4 012c e5fd | | Load 0x2,-0x3 012d e402 | | Load 0x2,0x2 012e e5fe | | Load 0x2,-0x2 012f e5ff | | Load 0x2,-0x1 0130 800c | | Call 0x0,0xc 0131 e5fa | | Load 0x2,-0x6 0132 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0133 c5f9 | | Store 0x2,-0x7 0134 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0135 0000 0000 | | .XXX[0x3] 0137 0000 | | 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 0143 | C | .CONST 0x0143 ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0002 | | .CONST 0x0002 ; Number of locals 013b INIT_0138: 013b 00db | | Load_Top At_Offset_3 013c e5fa | | Load 0x2,-0x6 013d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 013e e5ff | | Load 0x2,-0x1 013f 8008 | | Call 0x0,0x8 0140 e009 | | Load 0x0,0x9 0141 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0142 03f1 | | Declare_Variable Discrete,With_Value 0143 BODY_0138: 0143 e5f9 | | Load 0x2,-0x7 0144 e003 | | Load 0x0,0x3 0145 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0146 c5f9 | | Store 0x2,-0x7 0147 e5f9 | | Load 0x2,-0x7 0148 e5fa | | Load 0x2,-0x6 0149 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 014a e5fb | | Load 0x2,-0x5 014b e5fc | | Load 0x2,-0x4 014c e5fd | | Load 0x2,-0x3 014d e402 | | Load 0x2,0x2 014e e5fe | | Load 0x2,-0x2 014f e5ff | | Load 0x2,-0x1 0150 800d | | Call 0x0,0xd 0151 e5fa | | Load 0x2,-0x6 0152 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0153 c5f9 | | Store 0x2,-0x7 0154 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0155 0000 0000 | | .XXX[0x3] 0157 0000 | | 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0164 | d | .CONST 0x0164 ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0003 | | .CONST 0x0003 ; Number of locals 015b INIT_0158: 015b 00db | | Load_Top At_Offset_3 015c e5fa | | Load 0x2,-0x6 015d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 015e e5ff | | Load 0x2,-0x1 015f 8008 | | Call 0x0,0x8 0160 e009 | | Load 0x0,0x9 0161 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0162 03f1 | | Declare_Variable Discrete,With_Value 0163 00e1 | | Load_Encached Boolean_Cache 0164 BODY_0158: 0164 e5f9 | | Load 0x2,-0x7 0165 e003 | | Load 0x0,0x3 0166 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0167 c5f9 | | Store 0x2,-0x7 0168 e5f9 | | Load 0x2,-0x7 0169 e5fa | | Load 0x2,-0x6 016a 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 016b e5fb | | Load 0x2,-0x5 016c e5fc | | Load 0x2,-0x4 016d e5fd | | Load 0x2,-0x3 016e e402 | | Load 0x2,0x2 016f e5fe | | Load 0x2,-0x2 0170 e5ff | | Load 0x2,-0x1 0171 800d | | Call 0x0,0xd 0172 e5fa | | Load 0x2,-0x6 0173 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0174 c5f9 | | Store 0x2,-0x7 0175 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0176 0000 0000 | | .XXX[0x2] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 0183 | | .CONST 0x0183 ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0002 | | .CONST 0x0002 ; Number of locals 017b INIT_0178: 017b 00db | | Load_Top At_Offset_3 017c e5fa | | Load 0x2,-0x6 017d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 017e e5ff | | Load 0x2,-0x1 017f 8008 | | Call 0x0,0x8 0180 e009 | | Load 0x0,0x9 0181 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0182 03f1 | | Declare_Variable Discrete,With_Value 0183 BODY_0178: 0183 e5f9 | | Load 0x2,-0x7 0184 e003 | | Load 0x0,0x3 0185 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0186 c5f9 | | Store 0x2,-0x7 0187 e5f9 | | Load 0x2,-0x7 0188 e5fa | | Load 0x2,-0x6 0189 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 018a e5fb | | Load 0x2,-0x5 018b e5fc | | Load 0x2,-0x4 018c e5fd | | Load 0x2,-0x3 018d e402 | | Load 0x2,0x2 018e e5fe | | Load 0x2,-0x2 018f e5ff | | Load 0x2,-0x1 0190 800a | | Call 0x0,0xa 0191 e5fa | | Load 0x2,-0x6 0192 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0193 c5f9 | | Store 0x2,-0x7 0194 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0195 0000 0000 | | .XXX[0x3] 0197 0000 | | 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 01a3 | | .CONST 0x01a3 ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0002 | | .CONST 0x0002 ; Number of locals 019b INIT_0198: 019b 00db | | Load_Top At_Offset_3 019c e5fa | | Load 0x2,-0x6 019d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 019e e5ff | | Load 0x2,-0x1 019f 8008 | | Call 0x0,0x8 01a0 e009 | | Load 0x0,0x9 01a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01a2 03f1 | | Declare_Variable Discrete,With_Value 01a3 BODY_0198: 01a3 e5f9 | | Load 0x2,-0x7 01a4 e003 | | Load 0x0,0x3 01a5 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01a6 c5f9 | | Store 0x2,-0x7 01a7 e5f9 | | Load 0x2,-0x7 01a8 e5fa | | Load 0x2,-0x6 01a9 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 01aa e5fb | | Load 0x2,-0x5 01ab e5fc | | Load 0x2,-0x4 01ac e5fd | | Load 0x2,-0x3 01ad e402 | | Load 0x2,0x2 01ae e5fe | | Load 0x2,-0x2 01af e5ff | | Load 0x2,-0x1 01b0 800c | | Call 0x0,0xc 01b1 e5fa | | Load 0x2,-0x6 01b2 380d |8 | Execute Record,Field_Write,Field_Number 0xd 01b3 c5f9 | | Store 0x2,-0x7 01b4 4506 |E | Exit_Suprogram New_Top_Offset 0x6 01b5 0000 0000 | | .XXX[0x3] 01b7 0000 | | 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 e5fa | | Load 0x2,-0x6 01bc e003 | | Load 0x0,0x3 01bd 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01be c5fa | | Store 0x2,-0x6 01bf e5fa | | Load 0x2,-0x6 01c0 e5fb | | Load 0x2,-0x5 01c1 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 01c2 e5fc | | Load 0x2,-0x4 01c3 e5fd | | Load 0x2,-0x3 01c4 e5fb | | Load 0x2,-0x5 01c5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01c6 e5ff | | Load 0x2,-0x1 01c7 800e | | Call 0x0,0xe 01c8 e5fb | | Load 0x2,-0x5 01c9 380d |8 | Execute Record,Field_Write,Field_Number 0xd 01ca c5fa | | Store 0x2,-0x6 01cb 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01cc 0000 0000 | | .BLANK 0000[0x4] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01db | | .CONST 0x01db ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0002 | | .CONST 0x0002 ; Number of locals 01d3 INIT_01d0: 01d3 00db | | Load_Top At_Offset_3 01d4 e5fb | | Load 0x2,-0x5 01d5 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 01d6 e5ff | | Load 0x2,-0x1 01d7 8008 | | Call 0x0,0x8 01d8 e009 | | Load 0x0,0x9 01d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01da 03f1 | | Declare_Variable Discrete,With_Value 01db BODY_01d0: 01db e5fa | | Load 0x2,-0x6 01dc e003 | | Load 0x0,0x3 01dd 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01de c5fa | | Store 0x2,-0x6 01df e5fa | | Load 0x2,-0x6 01e0 e5fb | | Load 0x2,-0x5 01e1 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 01e2 e5fc | | Load 0x2,-0x4 01e3 e5fd | | Load 0x2,-0x3 01e4 e402 | | Load 0x2,0x2 01e5 e5fe | | Load 0x2,-0x2 01e6 e5ff | | Load 0x2,-0x1 01e7 800f | | Call 0x0,0xf 01e8 e5fb | | Load 0x2,-0x5 01e9 380d |8 | Execute Record,Field_Write,Field_Number 0xd 01ea c5fa | | Store 0x2,-0x6 01eb 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01ec 0000 0000 | | .BLANK 0000[0x4] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01fb | | .CONST 0x01fb ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0002 | | .CONST 0x0002 ; Number of locals 01f3 INIT_01f0: 01f3 00db | | Load_Top At_Offset_3 01f4 e5fa | | Load 0x2,-0x6 01f5 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 01f6 e5ff | | Load 0x2,-0x1 01f7 8008 | | Call 0x0,0x8 01f8 e009 | | Load 0x0,0x9 01f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01fa 03f1 | | Declare_Variable Discrete,With_Value 01fb BODY_01f0: 01fb e5f9 | | Load 0x2,-0x7 01fc e003 | | Load 0x0,0x3 01fd 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01fe c5f9 | | Store 0x2,-0x7 01ff e5f9 | | Load 0x2,-0x7 0200 e5fa | | Load 0x2,-0x6 0201 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 0202 e5fb | | Load 0x2,-0x5 0203 e5fc | | Load 0x2,-0x4 0204 e5fd | | Load 0x2,-0x3 0205 e402 | | Load 0x2,0x2 0206 e5fe | | Load 0x2,-0x2 0207 e5ff | | Load 0x2,-0x1 0208 8010 | | Call 0x0,0x10 0209 e5fa | | Load 0x2,-0x6 020a 380d |8 | Execute Record,Field_Write,Field_Number 0xd 020b c5f9 | | Store 0x2,-0x7 020c 4506 |E | Exit_Suprogram New_Top_Offset 0x6 020d 0000 0000 | | .XXX[0x3] 020f 0000 | | 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 021b | | .CONST 0x021b ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0002 | | .CONST 0x0002 ; Number of locals 0213 INIT_0210: 0213 00db | | Load_Top At_Offset_3 0214 e5fb | | Load 0x2,-0x5 0215 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0216 e5ff | | Load 0x2,-0x1 0217 8008 | | Call 0x0,0x8 0218 e009 | | Load 0x0,0x9 0219 1b0d | | Execute Package,Field_Read,Field_Number 0xd 021a 03f1 | | Declare_Variable Discrete,With_Value 021b BODY_0210: 021b e5fa | | Load 0x2,-0x6 021c e003 | | Load 0x0,0x3 021d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 021e c5fa | | Store 0x2,-0x6 021f e5fa | | Load 0x2,-0x6 0220 e5fb | | Load 0x2,-0x5 0221 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 0222 e5fc | | Load 0x2,-0x4 0223 e5fd | | Load 0x2,-0x3 0224 e402 | | Load 0x2,0x2 0225 e5fb | | Load 0x2,-0x5 0226 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0227 e5fe | | Load 0x2,-0x2 0228 e5ff | | Load 0x2,-0x1 0229 8011 | | Call 0x0,0x11 022a e5fb | | Load 0x2,-0x5 022b 380d |8 | Execute Record,Field_Write,Field_Number 0xd 022c c5fa | | Store 0x2,-0x6 022d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 022e 0000 0000 | | .XXX[0x2] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 023b | ; | .CONST 0x023b ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0002 | | .CONST 0x0002 ; Number of locals 0233 INIT_0230: 0233 00db | | Load_Top At_Offset_3 0234 e5fb | | Load 0x2,-0x5 0235 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0236 e5ff | | Load 0x2,-0x1 0237 8008 | | Call 0x0,0x8 0238 e009 | | Load 0x0,0x9 0239 1b0d | | Execute Package,Field_Read,Field_Number 0xd 023a 03f1 | | Declare_Variable Discrete,With_Value 023b BODY_0230: 023b e5fa | | Load 0x2,-0x6 023c e003 | | Load 0x0,0x3 023d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 023e c5fa | | Store 0x2,-0x6 023f e5fa | | Load 0x2,-0x6 0240 e5fb | | Load 0x2,-0x5 0241 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 0242 e5fc | | Load 0x2,-0x4 0243 e5fd | | Load 0x2,-0x3 0244 e402 | | Load 0x2,0x2 0245 e5fe | | Load 0x2,-0x2 0246 e5ff | | Load 0x2,-0x1 0247 8012 | | Call 0x0,0x12 0248 e5fb | | Load 0x2,-0x5 0249 380d |8 | Execute Record,Field_Write,Field_Number 0xd 024a c5fa | | Store 0x2,-0x6 024b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 024c 0000 0000 | | .BLANK 0000[0x4] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 025b | [ | .CONST 0x025b ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0002 | | .CONST 0x0002 ; Number of locals 0253 INIT_0250: 0253 00db | | Load_Top At_Offset_3 0254 e5fa | | Load 0x2,-0x6 0255 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0256 e5ff | | Load 0x2,-0x1 0257 8008 | | Call 0x0,0x8 0258 e009 | | Load 0x0,0x9 0259 1b0d | | Execute Package,Field_Read,Field_Number 0xd 025a 03f1 | | Declare_Variable Discrete,With_Value 025b BODY_0250: 025b e5f9 | | Load 0x2,-0x7 025c e003 | | Load 0x0,0x3 025d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 025e c5f9 | | Store 0x2,-0x7 025f e5f9 | | Load 0x2,-0x7 0260 e5fa | | Load 0x2,-0x6 0261 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 0262 e5fb | | Load 0x2,-0x5 0263 e5fc | | Load 0x2,-0x4 0264 e5fd | | Load 0x2,-0x3 0265 e402 | | Load 0x2,0x2 0266 e5fe | | Load 0x2,-0x2 0267 e5ff | | Load 0x2,-0x1 0268 8013 | | Call 0x0,0x13 0269 e5fa | | Load 0x2,-0x6 026a 380d |8 | Execute Record,Field_Write,Field_Number 0xd 026b c5f9 | | Store 0x2,-0x7 026c 4506 |E | Exit_Suprogram New_Top_Offset 0x6 026d 0000 0000 | | .XXX[0x3] 026f 0000 | | 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 027b | { | .CONST 0x027b ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0002 | | .CONST 0x0002 ; Number of locals 0273 INIT_0270: 0273 00db | | Load_Top At_Offset_3 0274 e5fa | | Load 0x2,-0x6 0275 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0276 e5ff | | Load 0x2,-0x1 0277 8008 | | Call 0x0,0x8 0278 e009 | | Load 0x0,0x9 0279 1b0d | | Execute Package,Field_Read,Field_Number 0xd 027a 03f1 | | Declare_Variable Discrete,With_Value 027b BODY_0270: 027b e5f9 | | Load 0x2,-0x7 027c e003 | | Load 0x0,0x3 027d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 027e c5f9 | | Store 0x2,-0x7 027f e5f9 | | Load 0x2,-0x7 0280 e5fa | | Load 0x2,-0x6 0281 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 0282 e5fb | | Load 0x2,-0x5 0283 e5fc | | Load 0x2,-0x4 0284 e5fd | | Load 0x2,-0x3 0285 e402 | | Load 0x2,0x2 0286 e5fe | | Load 0x2,-0x2 0287 e5fa | | Load 0x2,-0x6 0288 8005 | | Call 0x0,0x5 0289 e5ff | | Load 0x2,-0x1 028a 8014 | | Call 0x0,0x14 028b e5fa | | Load 0x2,-0x6 028c 380d |8 | Execute Record,Field_Write,Field_Number 0xd 028d c5f9 | | Store 0x2,-0x7 028e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 028f 0000 | | .XXX[0x1] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 029b | | .CONST 0x029b ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0002 | | .CONST 0x0002 ; Number of locals 0293 INIT_0290: 0293 00db | | Load_Top At_Offset_3 0294 e5fa | | Load 0x2,-0x6 0295 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0296 e5ff | | Load 0x2,-0x1 0297 8008 | | Call 0x0,0x8 0298 e009 | | Load 0x0,0x9 0299 1b0d | | Execute Package,Field_Read,Field_Number 0xd 029a 03f1 | | Declare_Variable Discrete,With_Value 029b BODY_0290: 029b e5f9 | | Load 0x2,-0x7 029c e003 | | Load 0x0,0x3 029d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 029e c5f9 | | Store 0x2,-0x7 029f e5f9 | | Load 0x2,-0x7 02a0 e5fa | | Load 0x2,-0x6 02a1 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 02a2 e5fb | | Load 0x2,-0x5 02a3 e5fc | | Load 0x2,-0x4 02a4 e5fd | | Load 0x2,-0x3 02a5 e402 | | Load 0x2,0x2 02a6 e5fe | | Load 0x2,-0x2 02a7 e5fa | | Load 0x2,-0x6 02a8 8005 | | Call 0x0,0x5 02a9 e5ff | | Load 0x2,-0x1 02aa 8014 | | Call 0x0,0x14 02ab e5fa | | Load 0x2,-0x6 02ac 380d |8 | Execute Record,Field_Write,Field_Number 0xd 02ad c5f9 | | Store 0x2,-0x7 02ae 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02af 0000 | | .XXX[0x1] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 e5fc | | Load 0x2,-0x4 02b4 e003 | | Load 0x0,0x3 02b5 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02b6 c5fc | | Store 0x2,-0x4 02b7 e5fc | | Load 0x2,-0x4 02b8 e5fd | | Load 0x2,-0x3 02b9 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 02ba 8015 | | Call 0x0,0x15 02bb e5fd | | Load 0x2,-0x3 02bc 380d |8 | Execute Record,Field_Write,Field_Number 0xd 02bd c5fc | | Store 0x2,-0x4 02be 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02bf 0000 | | .XXX[0x1] 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 e5fc | | Load 0x2,-0x4 02c4 e003 | | Load 0x0,0x3 02c5 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02c6 c5fc | | Store 0x2,-0x4 02c7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02ce | | .CONST 0x02ce ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0002 | | .CONST 0x0002 ; Number of locals 02cb INIT_02c8: 02cb e5fc | | Load 0x2,-0x4 02cc 8016 | | Call 0x0,0x16 02cd 8017 | | Call 0x0,0x17 02ce BODY_02c8: 02ce e5fb | | Load 0x2,-0x5 02cf e003 | | Load 0x0,0x3 02d0 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02d1 c5fb | | Store 0x2,-0x5 02d2 e5fb | | Load 0x2,-0x5 02d3 e5fc | | Load 0x2,-0x4 02d4 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 02d5 e5fd | | Load 0x2,-0x3 02d6 e5fc | | Load 0x2,-0x4 02d7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02d8 e5fe | | Load 0x2,-0x2 02d9 e5ff | | Load 0x2,-0x1 02da e5fc | | Load 0x2,-0x4 02db 8016 | | Call 0x0,0x16 02dc 8018 | | Call 0x0,0x18 02dd e5fc | | Load 0x2,-0x4 02de 380d |8 | Execute Record,Field_Write,Field_Number 0xd 02df c5fb | | Store 0x2,-0x5 02e0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02e1 0000 0000 | | .BLANK 0000[0x7] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb e5fb | | Load 0x2,-0x5 02ec e003 | | Load 0x0,0x3 02ed 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02ee c5fb | | Store 0x2,-0x5 02ef e5fb | | Load 0x2,-0x5 02f0 e5fc | | Load 0x2,-0x4 02f1 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 02f2 e5fd | | Load 0x2,-0x3 02f3 e5fe | | Load 0x2,-0x2 02f4 e5fc | | Load 0x2,-0x4 02f5 8019 | | Call 0x0,0x19 02f6 e5ff | | Load 0x2,-0x1 02f7 801a | | Call 0x0,0x1a 02f8 e5fc | | Load 0x2,-0x4 02f9 380d |8 | Execute Record,Field_Write,Field_Number 0xd 02fa c5fb | | Store 0x2,-0x5 02fb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02fc 0000 0000 | | .BLANK 0000[0x4] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0303 | | .CONST 0x0303 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0001 | | .CONST 0x0001 ; Number of locals 0303 BODY_0300: 0303 INIT_0300: 0303 e5fc | | Load 0x2,-0x4 0304 e003 | | Load 0x0,0x3 0305 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0306 c5fc | | Store 0x2,-0x4 0307 e5fc | | Load 0x2,-0x4 0308 e5fd | | Load 0x2,-0x3 0309 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 030a 4800 |H | Short_Literal 0x0 030b e5fe | | Load 0x2,-0x2 030c e5ff | | Load 0x2,-0x1 030d 801b | | Call 0x0,0x1b 030e e5fd | | Load 0x2,-0x3 030f 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0310 c5fc | | Store 0x2,-0x4 0311 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0312 0000 0000 | | .BLANK 0000[0x6] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 031b | | .CONST 0x031b ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0001 | | .CONST 0x0001 ; Number of locals 031b BODY_0318: 031b INIT_0318: 031b e5f7 | | Load 0x2,-0x9 031c e003 | | Load 0x0,0x3 031d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 031e c5f7 | | Store 0x2,-0x9 031f e5f7 | | Load 0x2,-0x9 0320 00e5 | | Load_Encached Long_Integer_Cache 0321 00e5 | | Load_Encached Long_Integer_Cache 0322 00e1 | | Load_Encached Boolean_Cache 0323 e5fb | | Load 0x2,-0x5 0324 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 0325 e5fc | | Load 0x2,-0x4 0326 4800 |H | Short_Literal 0x0 0327 e5fd | | Load 0x2,-0x3 0328 e5fe | | Load 0x2,-0x2 0329 e5ff | | Load 0x2,-0x1 032a e5fb | | Load 0x2,-0x5 032b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 032c 801c | | Call 0x0,0x1c 032d e5fb | | Load 0x2,-0x5 032e 380d |8 | Execute Record,Field_Write,Field_Number 0xd 032f c5fa | | Store 0x2,-0x6 0330 c5f9 | | Store 0x2,-0x7 0331 c5f8 | | Store 0x2,-0x8 0332 c5f7 | | Store 0x2,-0x9 0333 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0334 0000 0000 | | .BLANK 0000[0x4] 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033b | ; | .CONST 0x033b ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0001 | | .CONST 0x0001 ; Number of locals 033b BODY_0338: 033b INIT_0338: 033b e5fc | | Load 0x2,-0x4 033c e003 | | Load 0x0,0x3 033d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 033e c5fc | | Store 0x2,-0x4 033f e5fc | | Load 0x2,-0x4 0340 e5fd | | Load 0x2,-0x3 0341 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 0342 e5fe | | Load 0x2,-0x2 0343 e5ff | | Load 0x2,-0x1 0344 e5fd | | Load 0x2,-0x3 0345 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0346 822d | - | Call 0x1,0x2d 0347 801d | | Call 0x0,0x1d 0348 e5fd | | Load 0x2,-0x3 0349 380d |8 | Execute Record,Field_Write,Field_Number 0xd 034a c5fc | | Store 0x2,-0x4 034b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 034c 0000 0000 | | .BLANK 0000[0x4] 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0353 | S | .CONST 0x0353 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0001 | | .CONST 0x0001 ; Number of locals 0353 BODY_0350: 0353 INIT_0350: 0353 e5fb | | Load 0x2,-0x5 0354 e003 | | Load 0x0,0x3 0355 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0356 c5fb | | Store 0x2,-0x5 0357 e5fb | | Load 0x2,-0x5 0358 e5fc | | Load 0x2,-0x4 0359 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 035a e5fd | | Load 0x2,-0x3 035b 801e | | Call 0x0,0x1e 035c e5fc | | Load 0x2,-0x4 035d 380d |8 | Execute Record,Field_Write,Field_Number 0xd 035e c5fb | | Store 0x2,-0x5 035f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 e5fc | | Load 0x2,-0x4 0364 e003 | | Load 0x0,0x3 0365 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0366 c5fc | | Store 0x2,-0x4 0367 e5fc | | Load 0x2,-0x4 0368 e5fd | | Load 0x2,-0x3 0369 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 036a e5fe | | Load 0x2,-0x2 036b 4800 |H | Short_Literal 0x0 036c e5ff | | Load 0x2,-0x1 036d 801f | | Call 0x0,0x1f 036e e5fd | | Load 0x2,-0x3 036f 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0370 c5fc | | Store 0x2,-0x4 0371 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0372 0000 0000 | | .BLANK 0000[0x6] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b e5fa | | Load 0x2,-0x6 037c e003 | | Load 0x0,0x3 037d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 037e c5fa | | Store 0x2,-0x6 037f e5fa | | Load 0x2,-0x6 0380 e5fb | | Load 0x2,-0x5 0381 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 0382 e5fc | | Load 0x2,-0x4 0383 e5fd | | Load 0x2,-0x3 0384 e5fe | | Load 0x2,-0x2 0385 e5ff | | Load 0x2,-0x1 0386 8020 | | Call 0x0,0x20 0387 e5fb | | Load 0x2,-0x5 0388 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0389 c5fa | | Store 0x2,-0x6 038a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 038b 0000 0000 | | .BLANK 0000[0x5] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 e5fd | | Load 0x2,-0x3 0394 e003 | | Load 0x0,0x3 0395 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0396 c5fd | | Store 0x2,-0x3 0397 e5fd | | Load 0x2,-0x3 0398 e5fe | | Load 0x2,-0x2 0399 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 039a e5ff | | Load 0x2,-0x1 039b 8021 | ! | Call 0x0,0x21 039c e5fe | | Load 0x2,-0x2 039d 380d |8 | Execute Record,Field_Write,Field_Number 0xd 039e c5fd | | Store 0x2,-0x3 039f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 e5f9 | | Load 0x2,-0x7 03a4 e003 | | Load 0x0,0x3 03a5 181a | | Execute Package,Field_Execute,Field_Number 0x1a 03a6 c5f9 | | Store 0x2,-0x7 03a7 e5f9 | | Load 0x2,-0x7 03a8 e5fa | | Load 0x2,-0x6 03a9 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 03aa e5fb | | Load 0x2,-0x5 03ab e5fc | | Load 0x2,-0x4 03ac e5fd | | Load 0x2,-0x3 03ad e5fe | | Load 0x2,-0x2 03ae e5ff | | Load 0x2,-0x1 03af 8022 | " | Call 0x0,0x22 03b0 e5fa | | Load 0x2,-0x6 03b1 380d |8 | Execute Record,Field_Write,Field_Number 0xd 03b2 c5f9 | | Store 0x2,-0x7 03b3 4506 |E | Exit_Suprogram New_Top_Offset 0x6 03b4 0000 0000 | | .BLANK 0000[0x4] 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03bb | | .CONST 0x03bb ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0001 | | .CONST 0x0001 ; Number of locals 03bb BODY_03b8: 03bb INIT_03b8: 03bb 00da | | Load_Top At_Offset_2 03bc 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 03bd 8023 | # | Call 0x0,0x23 03be 00db | | Load_Top At_Offset_3 03bf 380d |8 | Execute Record,Field_Write,Field_Number 0xd 03c0 00db | | Load_Top At_Offset_3 03c1 e003 | | Load 0x0,0x3 03c2 181a | | Execute Package,Field_Execute,Field_Number 0x1a 03c3 c5fe | | Store 0x2,-0x2 03c4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03c5 0000 0000 | | .XXX[0x3] 03c7 0000 | | 03c8 ; -------------------------------------------------------------------------------------- 03c8 ; SUBPROGRAM 03c8 ; -------------------------------------------------------------------------------------- 03c8 03cb | | .CONST 0x03cb ; Address of begin 03c9 0004 | | .CONST 0x0004 ; Address of exception handler 03ca 0001 | | .CONST 0x0001 ; Number of locals 03cb BODY_03c8: 03cb INIT_03c8: 03cb 00db | | Load_Top At_Offset_3 03cc e003 | | Load 0x0,0x3 03cd 181a | | Execute Package,Field_Execute,Field_Number 0x1a 03ce c5fe | | Store 0x2,-0x2 03cf 00db | | Load_Top At_Offset_3 03d0 00db | | Load_Top At_Offset_3 03d1 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 03d2 8024 | $ | Call 0x0,0x24 03d3 e5ff | | Load 0x2,-0x1 03d4 380d |8 | Execute Record,Field_Write,Field_Number 0xd 03d5 c5fe | | Store 0x2,-0x2 03d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03d7 0000 | | .XXX[0x1] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03db | | .CONST 0x03db ; Address of begin 03d9 0004 | | .CONST 0x0004 ; Address of exception handler 03da 0001 | | .CONST 0x0001 ; Number of locals 03db BODY_03d8: 03db INIT_03d8: 03db 00da | | Load_Top At_Offset_2 03dc 00eb | | Load_Encached Diana_Cache 03dd 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03de 00d8 | | Load_Top At_Offset_0 03df 4864 |Hd | Short_Literal 0x64 03e0 4876 |Hv | Short_Literal 0x76 03e1 0262 | b | Execute Discrete,In_Range 03e2 6821 |h! | Jump_Zero 0x404 03e3 0a9c | | Execute_Immediate Plus,-0x64 03e4 4612 |F | Jump_Case 0x13 03e5 7818 |x | Jump 0x3fe ; case 0x0 03e6 7811 |x | Jump 0x3f8 ; case 0x1 03e7 781d |x | Jump 0x405 ; case 0x2 03e8 781c |x | Jump 0x405 ; case 0x3 03e9 781b |x | Jump 0x405 ; case 0x4 03ea 781a |x | Jump 0x405 ; case 0x5 03eb 7819 |x | Jump 0x405 ; case 0x6 03ec 7813 |x | Jump 0x400 ; case 0x7 03ed 7817 |x | Jump 0x405 ; case 0x8 03ee 7816 |x | Jump 0x405 ; case 0x9 03ef 780c |x | Jump 0x3fc ; case 0xa 03f0 7809 |x | Jump 0x3fa ; case 0xb 03f1 7813 |x | Jump 0x405 ; case 0xc 03f2 7812 |x | Jump 0x405 ; case 0xd 03f3 7811 |x | Jump 0x405 ; case 0xe 03f4 780d |x | Jump 0x402 ; case 0xf 03f5 7804 |x | Jump 0x3fa ; case 0x10 03f6 7807 |x | Jump 0x3fe ; case 0x11 03f7 7800 |x | Jump 0x3f8 ; case 0x12 03f8 4802 |H | Short_Literal 0x2 03f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03fa 4800 |H | Short_Literal 0x0 03fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03fc 4801 |H | Short_Literal 0x1 03fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03fe 4804 |H | Short_Literal 0x4 03ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0400 4803 |H | Short_Literal 0x3 0401 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0402 4805 |H | Short_Literal 0x5 0403 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0404 00d1 | | Pop_Control Pop_Count_1 0405 4806 |H | Short_Literal 0x6 0406 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0407 0000 | | .XXX[0x1] 0408 ; -------------------------------------------------------------------------------------- 0408 ; Debug Table 0408 ; -------------------------------------------------------------------------------------- 0408 0004 0009 | | .DEBUG4 0x0004,0x0009,0x1664,0x0000,0x0001,0x0000 040e 6d75 7374 |must| .XXX[0x3d] 0410 2062 6520 | be | 0412 6669 7865 |fixe| 0414 6420 6265 |d be| 0416 666f 7265 |fore| 0418 2070 726f | pro| 041a 6365 6564 |ceed| 041c 696e 672e |ing.| 041e 204c 6f67 | Log| 0420 696e 7330 |ins0| 0422 312f 3031 |1/01| 0424 2f39 3056 |/90V| 0426 616c 7565 |alue| 0428 206d 7573 | mus| 042a 7420 6265 |t be| 042c 2069 6e20 | in | 042e 7468 6520 |the | 0430 7261 6e67 |rang| 0432 6520 2e2e |e ..| 0434 4e75 6d65 |Nume| 0436 7269 6320 |ric | 0438 7661 6c75 |valu| 043a 6520 6973 |e is| 043c 2072 6571 | req| 043e 7569 7265 |uire| 0440 642e 416c |d.Al| 0442 6c20 616e |l an| 0444 7377 6572 |swer| 0446 7320 636f |s co| 0448 7272 6563 |rrec| 044a 7459 |tY | 044b 0000 0000 | | .BLANK 0000[0x5] 0450 0004 000d | | .XXX[0x5] 0452 6346 0000 |cF | 0454 0001 | | 0455 0000 0000 | | .BLANK 0000[0x1ab]