|
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_0418f8
└─⟦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 0250 | P | .CONST 0x0250 ; 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 008a | | .CONST 0x008a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0036 | 6 | .CONST 0x0036 ; 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 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0011 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0013 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0015 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0017 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0019 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 001b 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 001d 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 001f 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0021 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0023 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0025 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 0027 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0029 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 002b 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 002d 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 002f 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated 0031 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 0033 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 0035 00bf | | Action Accept_Activation 0036 e002 | | Load 0x0,0x2 0037 0007 | | Action Break_Optional 0038 00d8 | | Load_Top At_Offset_0 0039 0007 | | Action Break_Optional 003a e002 | | Load 0x0,0x2 003b 0007 | | Action Break_Optional 003c 00d8 | | Load_Top At_Offset_0 003d 0007 | | Action Break_Optional 003e e002 | | Load 0x0,0x2 003f 0007 | | Action Break_Optional 0040 00d8 | | Load_Top At_Offset_0 0041 0007 | | Action Break_Optional 0042 e002 | | Load 0x0,0x2 0043 0007 | | Action Break_Optional 0044 00e1 | | Load_Encached Boolean_Cache 0045 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0046 00e1 | | Load_Encached Boolean_Cache 0047 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0048 e003 | | Load 0x0,0x3 0049 0322 | " | Declare_Variable Record 004a e004 | | Load 0x0,0x4 004b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 004c e004 | | Load 0x0,0x4 004d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 004e e004 | | Load 0x0,0x4 004f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0050 e004 | | Load 0x0,0x4 0051 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0052 e004 | | Load 0x0,0x4 0053 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0054 e004 | | Load 0x0,0x4 0055 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0056 e004 | | Load 0x0,0x4 0057 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0058 e004 | | Load 0x0,0x4 0059 1b11 | | Execute Package,Field_Read,Field_Number 0x11 005a e004 | | Load 0x0,0x4 005b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 005c e004 | | Load 0x0,0x4 005d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 005e 00e3 | | Load_Encached Natural_Cache 005f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0060 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0061 00c7 | | Action Elaborate_Subprogram 0062 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0063 00c7 | | Action Elaborate_Subprogram 0064 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0065 00c7 | | Action Elaborate_Subprogram 0066 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0067 00c7 | | Action Elaborate_Subprogram 0068 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0069 00c7 | | Action Elaborate_Subprogram 006a 1d12 | | Execute_Immediate Reference_Lex_1,0x12 006b 00c7 | | Action Elaborate_Subprogram 006c 1d13 | | Execute_Immediate Reference_Lex_1,0x13 006d 00c7 | | Action Elaborate_Subprogram 006e 1d14 | | Execute_Immediate Reference_Lex_1,0x14 006f 00c7 | | Action Elaborate_Subprogram 0070 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0071 00c7 | | Action Elaborate_Subprogram 0072 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0073 00c7 | | Action Elaborate_Subprogram 0074 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0075 00c7 | | Action Elaborate_Subprogram 0076 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0077 00c7 | | Action Elaborate_Subprogram 0078 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0079 00c7 | | Action Elaborate_Subprogram 007a 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 007b 00c7 | | Action Elaborate_Subprogram 007c 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 007d 00c7 | | Action Elaborate_Subprogram 007e 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 007f 00c7 | | Action Elaborate_Subprogram 0080 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0081 00c7 | | Action Elaborate_Subprogram 0082 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0083 00c7 | | Action Elaborate_Subprogram 0084 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0085 00c7 | | Action Elaborate_Subprogram 0086 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0087 00c7 | | Action Elaborate_Subprogram 0088 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0089 00c7 | | Action Elaborate_Subprogram 008a BODY_0008: 008a 00bc | | Action Signal_Activated 008b 00bb | | Action Signal_Completion 008c 0000 0000 | | .BLANK 0000[0x4] 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 e229 | ) | Load 0x1,0x29 0094 7007 |p | Jump_Nonzero 0x9c 0095 e22c | , | Load 0x1,0x2c 0096 00db | | Load_Top At_Offset_3 0097 8005 | | Call 0x0,0x5 0098 c22c | , | Store 0x1,0x2c 0099 4800 |H | Short_Literal 0x0 009a a22a | * | Store_Unchecked 0x1,0x2a 009b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 009c e231 | 1 | Load 0x1,0x31 009d 00db | | Load_Top At_Offset_3 009e 8005 | | Call 0x0,0x5 009f c231 | 1 | Store 0x1,0x31 00a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a1 0000 0000 | | .BLANK 0000[0x7] 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 e229 | ) | Load 0x1,0x29 00ac 7005 |p | Jump_Nonzero 0xb2 00ad e22d | - | Load 0x1,0x2d 00ae 00db | | Load_Top At_Offset_3 00af 8005 | | Call 0x0,0x5 00b0 c22d | - | Store 0x1,0x2d 00b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b2 e232 | 2 | Load 0x1,0x32 00b3 00db | | Load_Top At_Offset_3 00b4 8005 | | Call 0x0,0x5 00b5 c232 | 2 | Store 0x1,0x32 00b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b7 0000 | | .XXX[0x1] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb e229 | ) | Load 0x1,0x29 00bc 7005 |p | Jump_Nonzero 0xc2 00bd e22e | . | Load 0x1,0x2e 00be 00db | | Load_Top At_Offset_3 00bf 8005 | | Call 0x0,0x5 00c0 c22e | . | Store 0x1,0x2e 00c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c2 e233 | 3 | Load 0x1,0x33 00c3 00db | | Load_Top At_Offset_3 00c4 8005 | | Call 0x0,0x5 00c5 c233 | 3 | Store 0x1,0x33 00c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c7 0000 | | .XXX[0x1] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb e22f | / | Load 0x1,0x2f 00cc 00db | | Load_Top At_Offset_3 00cd 8005 | | Call 0x0,0x5 00ce c22f | / | Store 0x1,0x2f 00cf 4801 |H | Short_Literal 0x1 00d0 a229 | ) | Store_Unchecked 0x1,0x29 00d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d2 0000 0000 | | .BLANK 0000[0x6] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db e230 | 0 | Load 0x1,0x30 00dc 00db | | Load_Top At_Offset_3 00dd 8005 | | Call 0x0,0x5 00de c230 | 0 | Store 0x1,0x30 00df 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 e234 | 4 | Load 0x1,0x34 00e4 00db | | Load_Top At_Offset_3 00e5 8005 | | Call 0x0,0x5 00e6 c234 | 4 | Store 0x1,0x34 00e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 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 e235 | 5 | Load 0x1,0x35 00ec 00db | | Load_Top At_Offset_3 00ed 8005 | | Call 0x0,0x5 00ee c235 | 5 | Store 0x1,0x35 00ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 e229 | ) | Load 0x1,0x29 00f4 00ca | | Action Exit_Nullary_Function 00f5 0000 0000 | | .XXX[0x3] 00f7 0000 | | 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 4801 |H | Short_Literal 0x1 00fc a229 | ) | Store_Unchecked 0x1,0x29 00fd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00fe 0000 0000 | | .XXX[0x2] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 e235 | 5 | Load 0x1,0x35 0104 8006 | | Call 0x0,0x6 0105 e234 | 4 | Load 0x1,0x34 0106 8006 | | Call 0x0,0x6 0107 e233 | 3 | Load 0x1,0x33 0108 8006 | | Call 0x0,0x6 0109 e232 | 2 | Load 0x1,0x32 010a 8006 | | Call 0x0,0x6 010b e231 | 1 | Load 0x1,0x31 010c 8006 | | Call 0x0,0x6 010d e230 | 0 | Load 0x1,0x30 010e 8006 | | Call 0x0,0x6 010f e22f | / | Load 0x1,0x2f 0110 8006 | | Call 0x0,0x6 0111 e22e | . | Load 0x1,0x2e 0112 8006 | | Call 0x0,0x6 0113 e22d | - | Load 0x1,0x2d 0114 8006 | | Call 0x0,0x6 0115 e22c | , | Load 0x1,0x2c 0116 8006 | | Call 0x0,0x6 0117 8007 | | Call 0x0,0x7 0118 e22b | + | Load 0x1,0x2b 0119 017d | } | Execute Record,Structure_Write 011a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 011b 0000 0000 | | .BLANK 0000[0x5] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0125 | % | .CONST 0x0125 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0002 | | .CONST 0x0002 ; Number of locals 0123 INIT_0120: 0123 e002 | | Load 0x0,0x2 0124 0007 | | Action Break_Optional 0125 BODY_0120: 0125 e236 | 6 | Load 0x1,0x36 0126 700b |p | Jump_Nonzero 0x132 0127 e222 | " | Load 0x1,0x22 0128 e22b | + | Load 0x1,0x2b 0129 8008 | | Call 0x0,0x8 012a c222 | " | Store 0x1,0x22 012b e222 | " | Load 0x1,0x22 012c 8009 | | Call 0x0,0x9 012d 0039 | 9 | Store_Top Access,At_Offset_1 012e 00d8 | | Load_Top At_Offset_0 012f 800a | | Call 0x0,0xa 0130 a223 | # | Store_Unchecked 0x1,0x23 0131 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0132 e236 | 6 | Load 0x1,0x36 0133 0f01 | | Execute_Immediate Equal,0x1 0134 6814 |h | Jump_Zero 0x149 0135 e223 | # | Load 0x1,0x23 0136 0229 | ) | Execute Access,All_Read 0137 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0138 00d8 | | Load_Top At_Offset_0 0139 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 013a e22b | + | Load 0x1,0x2b 013b 8008 | | Call 0x0,0x8 013c 00d9 | | Load_Top At_Offset_1 013d 380a |8 | Execute Record,Field_Write,Field_Number 0xa 013e 00d1 | | Pop_Control Pop_Count_1 013f e223 | # | Load 0x1,0x23 0140 0227 | ' | Execute Access,All_Reference 0141 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0142 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0143 8009 | | Call 0x0,0x9 0144 0039 | 9 | Store_Top Access,At_Offset_1 0145 00d8 | | Load_Top At_Offset_0 0146 800a | | Call 0x0,0xa 0147 a224 | $ | Store_Unchecked 0x1,0x24 0148 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0149 e236 | 6 | Load 0x1,0x36 014a 0f02 | | Execute_Immediate Equal,0x2 014b 6814 |h | Jump_Zero 0x160 014c e224 | $ | Load 0x1,0x24 014d 0229 | ) | Execute Access,All_Read 014e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 014f 00d8 | | Load_Top At_Offset_0 0150 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0151 e22b | + | Load 0x1,0x2b 0152 8008 | | Call 0x0,0x8 0153 00d9 | | Load_Top At_Offset_1 0154 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0155 00d1 | | Pop_Control Pop_Count_1 0156 e224 | $ | Load 0x1,0x24 0157 0227 | ' | Execute Access,All_Reference 0158 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0159 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 015a 8009 | | Call 0x0,0x9 015b 0039 | 9 | Store_Top Access,At_Offset_1 015c 00d8 | | Load_Top At_Offset_0 015d 800a | | Call 0x0,0xa 015e a225 | % | Store_Unchecked 0x1,0x25 015f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0160 e236 | 6 | Load 0x1,0x36 0161 0f03 | | Execute_Immediate Equal,0x3 0162 6814 |h | Jump_Zero 0x177 0163 e225 | % | Load 0x1,0x25 0164 0229 | ) | Execute Access,All_Read 0165 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0166 00d8 | | Load_Top At_Offset_0 0167 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0168 e22b | + | Load 0x1,0x2b 0169 8008 | | Call 0x0,0x8 016a 00d9 | | Load_Top At_Offset_1 016b 380a |8 | Execute Record,Field_Write,Field_Number 0xa 016c 00d1 | | Pop_Control Pop_Count_1 016d e225 | % | Load 0x1,0x25 016e 0227 | ' | Execute Access,All_Reference 016f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0170 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0171 8009 | | Call 0x0,0x9 0172 0039 | 9 | Store_Top Access,At_Offset_1 0173 00d8 | | Load_Top At_Offset_0 0174 800a | | Call 0x0,0xa 0175 a226 | & | Store_Unchecked 0x1,0x26 0176 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0177 e236 | 6 | Load 0x1,0x36 0178 0f04 | | Execute_Immediate Equal,0x4 0179 6814 |h | Jump_Zero 0x18e 017a e226 | & | Load 0x1,0x26 017b 0229 | ) | Execute Access,All_Read 017c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 017d 00d8 | | Load_Top At_Offset_0 017e 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 017f e22b | + | Load 0x1,0x2b 0180 8008 | | Call 0x0,0x8 0181 00d9 | | Load_Top At_Offset_1 0182 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0183 00d1 | | Pop_Control Pop_Count_1 0184 e226 | & | Load 0x1,0x26 0185 0227 | ' | Execute Access,All_Reference 0186 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0187 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0188 8009 | | Call 0x0,0x9 0189 0039 | 9 | Store_Top Access,At_Offset_1 018a 00d8 | | Load_Top At_Offset_0 018b 800a | | Call 0x0,0xa 018c a227 | ' | Store_Unchecked 0x1,0x27 018d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 018e e236 | 6 | Load 0x1,0x36 018f 0f05 | | Execute_Immediate Equal,0x5 0190 680a |h | Jump_Zero 0x19b 0191 e227 | ' | Load 0x1,0x27 0192 0229 | ) | Execute Access,All_Read 0193 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0194 00d8 | | Load_Top At_Offset_0 0195 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0196 e22b | + | Load 0x1,0x2b 0197 8008 | | Call 0x0,0x8 0198 00d9 | | Load_Top At_Offset_1 0199 380a |8 | Execute Record,Field_Write,Field_Number 0xa 019a 00d1 | | Pop_Control Pop_Count_1 019b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 019c 0000 0000 | | .BLANK 0000[0x4] 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 e236 | 6 | Load 0x1,0x36 01a4 0a01 | | Execute_Immediate Plus,0x1 01a5 c236 | 6 | Store 0x1,0x36 01a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01a7 0000 | | .XXX[0x1] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab e236 | 6 | Load 0x1,0x36 01ac 0aff | | Execute_Immediate Plus,-0x1 01ad c236 | 6 | Store 0x1,0x36 01ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01af 0000 | | .XXX[0x1] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b3 | | .CONST 0x01b3 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0001 | | .CONST 0x0001 ; Number of locals 01b3 BODY_01b0: 01b3 INIT_01b0: 01b3 e236 | 6 | Load 0x1,0x36 01b4 00ca | | Action Exit_Nullary_Function 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 e228 | ( | Load 0x1,0x28 01bc 0227 | ' | Execute Access,All_Reference 01bd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01be 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01bf 8006 | | Call 0x0,0x6 01c0 800b | | Call 0x0,0xb 01c1 e228 | ( | Load 0x1,0x28 01c2 0227 | ' | Execute Access,All_Reference 01c3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01c4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01c5 8006 | | Call 0x0,0x6 01c6 01db | | Execute Vector,Length 01c7 6813 |h | Jump_Zero 0x1db 01c8 e228 | ( | Load 0x1,0x28 01c9 0227 | ' | Execute Access,All_Reference 01ca 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01cb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01cc 8006 | | Call 0x0,0x6 01cd 800c | | Call 0x0,0xc 01ce e228 | ( | Load 0x1,0x28 01cf 0227 | ' | Execute Access,All_Reference 01d0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01d1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01d2 8006 | | Call 0x0,0x6 01d3 01db | | Execute Vector,Length 01d4 6806 |h | Jump_Zero 0x1db 01d5 e228 | ( | Load 0x1,0x28 01d6 0227 | ' | Execute Access,All_Reference 01d7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01d8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01d9 8006 | | Call 0x0,0x6 01da 800d | | Call 0x0,0xd 01db 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01dc 0000 0000 | | .BLANK 0000[0x4] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 e228 | ( | Load 0x1,0x28 01e4 0227 | ' | Execute Access,All_Reference 01e5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01e6 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 01e7 8006 | | Call 0x0,0x6 01e8 800b | | Call 0x0,0xb 01e9 e228 | ( | Load 0x1,0x28 01ea 0227 | ' | Execute Access,All_Reference 01eb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01ec 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 01ed 8006 | | Call 0x0,0x6 01ee 01db | | Execute Vector,Length 01ef 6813 |h | Jump_Zero 0x203 01f0 e228 | ( | Load 0x1,0x28 01f1 0227 | ' | Execute Access,All_Reference 01f2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01f3 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 01f4 8006 | | Call 0x0,0x6 01f5 800c | | Call 0x0,0xc 01f6 e228 | ( | Load 0x1,0x28 01f7 0227 | ' | Execute Access,All_Reference 01f8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01f9 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 01fa 8006 | | Call 0x0,0x6 01fb 01db | | Execute Vector,Length 01fc 6806 |h | Jump_Zero 0x203 01fd e228 | ( | Load 0x1,0x28 01fe 0227 | ' | Execute Access,All_Reference 01ff 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0200 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0201 8006 | | Call 0x0,0x6 0202 800d | | Call 0x0,0xd 0203 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0204 0000 0000 | | .BLANK 0000[0x4] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 4800 |H | Short_Literal 0x0 020c a229 | ) | Store_Unchecked 0x1,0x29 020d e22c | , | Load 0x1,0x2c 020e 800e | | Call 0x0,0xe 020f c22c | , | Store 0x1,0x2c 0210 e22d | - | Load 0x1,0x2d 0211 800e | | Call 0x0,0xe 0212 c22d | - | Store 0x1,0x2d 0213 e22e | . | Load 0x1,0x2e 0214 800e | | Call 0x0,0xe 0215 c22e | . | Store 0x1,0x2e 0216 e22f | / | Load 0x1,0x2f 0217 800e | | Call 0x0,0xe 0218 c22f | / | Store 0x1,0x2f 0219 e230 | 0 | Load 0x1,0x30 021a 800e | | Call 0x0,0xe 021b c230 | 0 | Store 0x1,0x30 021c e231 | 1 | Load 0x1,0x31 021d 800e | | Call 0x0,0xe 021e c231 | 1 | Store 0x1,0x31 021f e232 | 2 | Load 0x1,0x32 0220 800e | | Call 0x0,0xe 0221 c232 | 2 | Store 0x1,0x32 0222 e233 | 3 | Load 0x1,0x33 0223 800e | | Call 0x0,0xe 0224 c233 | 3 | Store 0x1,0x33 0225 e234 | 4 | Load 0x1,0x34 0226 800e | | Call 0x0,0xe 0227 c234 | 4 | Store 0x1,0x34 0228 e235 | 5 | Load 0x1,0x35 0229 800e | | Call 0x0,0xe 022a c235 | 5 | Store 0x1,0x35 022b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 022c 0000 0000 | | .BLANK 0000[0x4] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 4801 |H | Short_Literal 0x1 0234 a22a | * | Store_Unchecked 0x1,0x2a 0235 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0236 0000 0000 | | .XXX[0x2] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b e22a | * | Load 0x1,0x2a 023c 00ca | | Action Exit_Nullary_Function 023d 0000 0000 | | .XXX[0x3] 023f 0000 | | 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 e222 | " | Load 0x1,0x22 0244 800a | | Call 0x0,0xa 0245 800f | | Call 0x0,0xf 0246 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0247 0000 | | .XXX[0x1] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b e222 | " | Load 0x1,0x22 024c 00ca | | Action Exit_Nullary_Function 024d 0000 0000 | | .XXX[0x3] 024f 0000 | | 0250 ; -------------------------------------------------------------------------------------- 0250 ; Debug Table 0250 ; -------------------------------------------------------------------------------------- 0250 0004 0008 | | .DEBUG4 0x0004,0x0008,0xda60,0x0000,0x0001,0x0017 0256 000b 02b2 | | .DBG4T 0x000b,0x02b2,0x8000,0x0000 025a 0036 02c9 | 6 | .DBG4T 0x0036,0x02c9,0x8000,0x0000 025e 0093 02f5 | | .DBG4T 0x0093,0x02f5,0x0001,0x0000 0262 00ab 02fb | | .DBG4T 0x00ab,0x02fb,0x0001,0x0000 0266 00bb 0300 | | .DBG4T 0x00bb,0x0300,0x0001,0x0000 026a 00cb 0305 | | .DBG4T 0x00cb,0x0305,0x0001,0x0000 026e 00db 0309 | | .DBG4T 0x00db,0x0309,0x0001,0x0000 0272 00e3 030c | | .DBG4T 0x00e3,0x030c,0x0001,0x0000 0276 00eb 030f | | .DBG4T 0x00eb,0x030f,0x0001,0x0000 027a 00f3 0312 | | .DBG4T 0x00f3,0x0312,0x0002,0x0000 027e 00fb 0315 | | .DBG4T 0x00fb,0x0315,0x0001,0x0000 0282 0103 0318 | | .DBG4T 0x0103,0x0318,0x0001,0x0000 0286 0123 031b | # | .DBG4T 0x0123,0x031b,0x0001,0x0000 028a 01a3 0334 | 4| .DBG4T 0x01a3,0x0334,0x0001,0x0000 028e 01ab 0337 | 7| .DBG4T 0x01ab,0x0337,0x0001,0x0000 0292 01b3 033a | :| .DBG4T 0x01b3,0x033a,0x0002,0x0000 0296 01bb 033d | =| .DBG4T 0x01bb,0x033d,0x0001,0x0000 029a 01e3 0344 | D| .DBG4T 0x01e3,0x0344,0x0001,0x0000 029e 020b 034b | K| .DBG4T 0x020b,0x034b,0x0001,0x0000 02a2 0233 0358 | 3 X| .DBG4T 0x0233,0x0358,0x0001,0x0000 02a6 023b 035b | ; [| .DBG4T 0x023b,0x035b,0x0002,0x0000 02aa 0243 035e | C ^| .DBG4T 0x0243,0x035e,0x0001,0x0000 02ae 024b 0361 | K a| .DBG4T 0x024b,0x0361,0x0002,0x0000 02b2 ; -------------------------------------------------------------------------------------- 02b2 ; Debug chain 02b2 ; -------------------------------------------------------------------------------------- 02b2 0015 0000 | | .DBGLEN 0x0015,0x0000 02b4 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033 02c9 ; -------------------------------------------------------------------------------------- 02c9 ; Debug chain 02c9 ; -------------------------------------------------------------------------------------- 02c9 002a 0000 | * | .DBGLEN 0x002a,0x0000 02cb 0036 0038 | 6 8| .DBGLNO 0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088 02f5 ; -------------------------------------------------------------------------------------- 02f5 ; Debug chain 02f5 ; -------------------------------------------------------------------------------------- 02f5 0000 0004 | | .DBGLEN 0x0000,0x0004 02f7 0093 0095 | | .DBGLNO 0x0093,0x0095,0x0099,0x009c 02fb ; -------------------------------------------------------------------------------------- 02fb ; Debug chain 02fb ; -------------------------------------------------------------------------------------- 02fb 0000 0003 | | .DBGLEN 0x0000,0x0003 02fd 00ab 00ad | | .DBGLNO 0x00ab,0x00ad,0x00b2 0300 ; -------------------------------------------------------------------------------------- 0300 ; Debug chain 0300 ; -------------------------------------------------------------------------------------- 0300 0000 0003 | | .DBGLEN 0x0000,0x0003 0302 00bb 00bd | | .DBGLNO 0x00bb,0x00bd,0x00c2 0305 ; -------------------------------------------------------------------------------------- 0305 ; Debug chain 0305 ; -------------------------------------------------------------------------------------- 0305 0000 0002 | | .DBGLEN 0x0000,0x0002 0307 00cb 00cf | | .DBGLNO 0x00cb,0x00cf 0309 ; -------------------------------------------------------------------------------------- 0309 ; Debug chain 0309 ; -------------------------------------------------------------------------------------- 0309 0000 0001 | | .DBGLEN 0x0000,0x0001 030b 00db | | .DBGLNO 0x00db 030c ; -------------------------------------------------------------------------------------- 030c ; Debug chain 030c ; -------------------------------------------------------------------------------------- 030c 0000 0001 | | .DBGLEN 0x0000,0x0001 030e 00e3 | | .DBGLNO 0x00e3 030f ; -------------------------------------------------------------------------------------- 030f ; Debug chain 030f ; -------------------------------------------------------------------------------------- 030f 0000 0001 | | .DBGLEN 0x0000,0x0001 0311 00eb | | .DBGLNO 0x00eb 0312 ; -------------------------------------------------------------------------------------- 0312 ; Debug chain 0312 ; -------------------------------------------------------------------------------------- 0312 0000 0001 | | .DBGLEN 0x0000,0x0001 0314 00f3 | | .DBGLNO 0x00f3 0315 ; -------------------------------------------------------------------------------------- 0315 ; Debug chain 0315 ; -------------------------------------------------------------------------------------- 0315 0000 0001 | | .DBGLEN 0x0000,0x0001 0317 00fb | | .DBGLNO 0x00fb 0318 ; -------------------------------------------------------------------------------------- 0318 ; Debug chain 0318 ; -------------------------------------------------------------------------------------- 0318 0000 0001 | | .DBGLEN 0x0000,0x0001 031a 0103 | | .DBGLNO 0x0103 031b ; -------------------------------------------------------------------------------------- 031b ; Debug chain 031b ; -------------------------------------------------------------------------------------- 031b 0001 0016 | | .DBGLEN 0x0001,0x0016 031d 0123 0125 | # %| .DBGLNO 0x0123,0x0125,0x0127,0x012b,0x012e,0x0132,0x0135,0x013f,0x0145,0x0149,0x014c,0x0156,0x015c,0x0160,0x0163,0x016d,0x0173,0x0177,0x017a,0x0184,0x018a,0x018e,0x0191 0334 ; -------------------------------------------------------------------------------------- 0334 ; Debug chain 0334 ; -------------------------------------------------------------------------------------- 0334 0000 0001 | | .DBGLEN 0x0000,0x0001 0336 01a3 | | .DBGLNO 0x01a3 0337 ; -------------------------------------------------------------------------------------- 0337 ; Debug chain 0337 ; -------------------------------------------------------------------------------------- 0337 0000 0001 | | .DBGLEN 0x0000,0x0001 0339 01ab | | .DBGLNO 0x01ab 033a ; -------------------------------------------------------------------------------------- 033a ; Debug chain 033a ; -------------------------------------------------------------------------------------- 033a 0000 0001 | | .DBGLEN 0x0000,0x0001 033c 01b3 | | .DBGLNO 0x01b3 033d ; -------------------------------------------------------------------------------------- 033d ; Debug chain 033d ; -------------------------------------------------------------------------------------- 033d 0000 0005 | | .DBGLEN 0x0000,0x0005 033f 01bb 01c1 | | .DBGLNO 0x01bb,0x01c1,0x01c8,0x01ce,0x01d5 0344 ; -------------------------------------------------------------------------------------- 0344 ; Debug chain 0344 ; -------------------------------------------------------------------------------------- 0344 0000 0005 | | .DBGLEN 0x0000,0x0005 0346 01e3 01e9 | | .DBGLNO 0x01e3,0x01e9,0x01f0,0x01f6,0x01fd 034b ; -------------------------------------------------------------------------------------- 034b ; Debug chain 034b ; -------------------------------------------------------------------------------------- 034b 0000 000b | | .DBGLEN 0x0000,0x000b 034d 020b 020d | | .DBGLNO 0x020b,0x020d,0x0210,0x0213,0x0216,0x0219,0x021c,0x021f,0x0222,0x0225,0x0228 0358 ; -------------------------------------------------------------------------------------- 0358 ; Debug chain 0358 ; -------------------------------------------------------------------------------------- 0358 0000 0001 | | .DBGLEN 0x0000,0x0001 035a 0233 | 3 | .DBGLNO 0x0233 035b ; -------------------------------------------------------------------------------------- 035b ; Debug chain 035b ; -------------------------------------------------------------------------------------- 035b 0000 0001 | | .DBGLEN 0x0000,0x0001 035d 023b | ; | .DBGLNO 0x023b 035e ; -------------------------------------------------------------------------------------- 035e ; Debug chain 035e ; -------------------------------------------------------------------------------------- 035e 0000 0001 | | .DBGLEN 0x0000,0x0001 0360 0243 | C | .DBGLNO 0x0243 0361 ; -------------------------------------------------------------------------------------- 0361 ; Debug chain 0361 ; -------------------------------------------------------------------------------------- 0361 0000 0001 | | .DBGLEN 0x0000,0x0001 0363 024b | K | .DBGLNO 0x024b 0364 0000 0000 | | .BLANK 0000[0x9c]