|
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_08cccf
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0220 | | .CONST 0x0220 ; 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 0023 | # | .CONST 0x0023 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b a002 | | Store_Unchecked 0x0,0x2 000c 00c6 | | Action Check_Subprogram_Elaborated 000d a003 | | Store_Unchecked 0x0,0x3 000e 0129 | ) | Execute Any,Make_Visible 000f 0093 0000 | | push_full_address 0x0 0011 601e |` | Indirect_Literal Discrete,0x30,{0x80000000, 0x00010000} 0012 0273 | s | Execute Discrete,Plus 0013 e004 | | Load 0x0,0x4 0014 0273 | s | Execute Discrete,Plus 0015 e005 | | Load 0x0,0x5 0016 0273 | s | Execute Discrete,Plus 0017 0129 | ) | Execute Any,Make_Visible 0018 4800 |H | Short_Literal 0x0 0019 0129 | ) | Execute Any,Make_Visible 001a 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 001c 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 001e 00bf | | Action Accept_Activation 001f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0020 00c7 | | Action Elaborate_Subprogram 0021 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0022 00c7 | | Action Elaborate_Subprogram 0023 BODY_0008: 0023 00bc | | Action Signal_Activated 0024 00bb | | Action Signal_Completion 0025 0000 0000 | | .XXX[0x3] 0027 0000 | | 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b 8006 | | Call 0x0,0x6 002c 8007 | | Call 0x0,0x7 002d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 002e 0000 0000 | | .XXX[0x2] 0030 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0034 0000 0000 | | .BLANK 0000[0x4] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 0047 | G | .CONST 0x0047 ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0007 | | .CONST 0x0007 ; Number of locals 003b INIT_0038: 003b 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 003d 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 003f 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 0041 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call 0043 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call 0045 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 0047 BODY_0038: 0047 8403 | | Call 0x2,0x3 0048 8402 | | Call 0x2,0x2 0049 8404 | | Call 0x2,0x4 004a 8405 | | Call 0x2,0x5 004b 8406 | | Call 0x2,0x6 004c 8407 | | Call 0x2,0x7 004d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 004e 0000 0000 | | .XXX[0x2] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 e008 | | Load 0x0,0x8 0054 0337 | 7 | Declare_Variable Array 0055 485a |HZ | Short_Literal 0x5a 0056 8009 | | Call 0x0,0x9 0057 4800 |H | Short_Literal 0x0 0058 00da | | Load_Top At_Offset_2 0059 01d6 | | Execute Vector,Field_Write 005a 4801 |H | Short_Literal 0x1 005b 800a | | Call 0x0,0xa 005c e00b | | Load 0x0,0xb 005d 800c | | Call 0x0,0xc 005e 4801 |H | Short_Literal 0x1 005f 00da | | Load_Top At_Offset_2 0060 01d6 | | Execute Vector,Field_Write 0061 e00d | | Load 0x0,0xd 0062 4802 |H | Short_Literal 0x2 0063 00da | | Load_Top At_Offset_2 0064 01d6 | | Execute Vector,Field_Write 0065 e008 | | Load 0x0,0x8 0066 01c3 | | Execute Vector,Check_In_Type 0067 800e | | Call 0x0,0xe 0068 e008 | | Load 0x0,0x8 0069 0337 | 7 | Declare_Variable Array 006a 4855 |HU | Short_Literal 0x55 006b 8009 | | Call 0x0,0x9 006c 4800 |H | Short_Literal 0x0 006d 00da | | Load_Top At_Offset_2 006e 01d6 | | Execute Vector,Field_Write 006f 4803 |H | Short_Literal 0x3 0070 800a | | Call 0x0,0xa 0071 e00b | | Load 0x0,0xb 0072 800c | | Call 0x0,0xc 0073 4801 |H | Short_Literal 0x1 0074 00da | | Load_Top At_Offset_2 0075 01d6 | | Execute Vector,Field_Write 0076 e00d | | Load 0x0,0xd 0077 4802 |H | Short_Literal 0x2 0078 00da | | Load_Top At_Offset_2 0079 01d6 | | Execute Vector,Field_Write 007a e008 | | Load 0x0,0x8 007b 01c3 | | Execute Vector,Check_In_Type 007c 800e | | Call 0x0,0xe 007d e008 | | Load 0x0,0x8 007e 0337 | 7 | Declare_Variable Array 007f 4854 |HT | Short_Literal 0x54 0080 8009 | | Call 0x0,0x9 0081 4800 |H | Short_Literal 0x0 0082 00da | | Load_Top At_Offset_2 0083 01d6 | | Execute Vector,Field_Write 0084 4802 |H | Short_Literal 0x2 0085 800a | | Call 0x0,0xa 0086 e00b | | Load 0x0,0xb 0087 800c | | Call 0x0,0xc 0088 4801 |H | Short_Literal 0x1 0089 00da | | Load_Top At_Offset_2 008a 01d6 | | Execute Vector,Field_Write 008b e00d | | Load 0x0,0xd 008c 4802 |H | Short_Literal 0x2 008d 00da | | Load_Top At_Offset_2 008e 01d6 | | Execute Vector,Field_Write 008f e008 | | Load 0x0,0x8 0090 01c3 | | Execute Vector,Check_In_Type 0091 800e | | Call 0x0,0xe 0092 e008 | | Load 0x0,0x8 0093 0337 | 7 | Declare_Variable Array 0094 4841 |HA | Short_Literal 0x41 0095 8009 | | Call 0x0,0x9 0096 4800 |H | Short_Literal 0x0 0097 00da | | Load_Top At_Offset_2 0098 01d6 | | Execute Vector,Field_Write 0099 4802 |H | Short_Literal 0x2 009a 800a | | Call 0x0,0xa 009b e00b | | Load 0x0,0xb 009c 800c | | Call 0x0,0xc 009d 4801 |H | Short_Literal 0x1 009e 00da | | Load_Top At_Offset_2 009f 01d6 | | Execute Vector,Field_Write 00a0 4801 |H | Short_Literal 0x1 00a1 800a | | Call 0x0,0xa 00a2 e00d | | Load 0x0,0xd 00a3 800c | | Call 0x0,0xc 00a4 4802 |H | Short_Literal 0x2 00a5 00da | | Load_Top At_Offset_2 00a6 01d6 | | Execute Vector,Field_Write 00a7 e008 | | Load 0x0,0x8 00a8 01c3 | | Execute Vector,Check_In_Type 00a9 800e | | Call 0x0,0xe 00aa e008 | | Load 0x0,0x8 00ab 0337 | 7 | Declare_Variable Array 00ac 4850 |HP | Short_Literal 0x50 00ad 8009 | | Call 0x0,0x9 00ae 4800 |H | Short_Literal 0x0 00af 00da | | Load_Top At_Offset_2 00b0 01d6 | | Execute Vector,Field_Write 00b1 4802 |H | Short_Literal 0x2 00b2 800a | | Call 0x0,0xa 00b3 e00b | | Load 0x0,0xb 00b4 800c | | Call 0x0,0xc 00b5 4801 |H | Short_Literal 0x1 00b6 00da | | Load_Top At_Offset_2 00b7 01d6 | | Execute Vector,Field_Write 00b8 4802 |H | Short_Literal 0x2 00b9 800a | | Call 0x0,0xa 00ba e00d | | Load 0x0,0xd 00bb 800c | | Call 0x0,0xc 00bc 4802 |H | Short_Literal 0x2 00bd 00da | | Load_Top At_Offset_2 00be 01d6 | | Execute Vector,Field_Write 00bf e008 | | Load 0x0,0x8 00c0 01c3 | | Execute Vector,Check_In_Type 00c1 800e | | Call 0x0,0xe 00c2 e008 | | Load 0x0,0x8 00c3 0337 | 7 | Declare_Variable Array 00c4 484f |HO | Short_Literal 0x4f 00c5 8009 | | Call 0x0,0x9 00c6 4800 |H | Short_Literal 0x0 00c7 00da | | Load_Top At_Offset_2 00c8 01d6 | | Execute Vector,Field_Write 00c9 4806 |H | Short_Literal 0x6 00ca 800a | | Call 0x0,0xa 00cb e00b | | Load 0x0,0xb 00cc 800c | | Call 0x0,0xc 00cd 4801 |H | Short_Literal 0x1 00ce 00da | | Load_Top At_Offset_2 00cf 01d6 | | Execute Vector,Field_Write 00d0 e00d | | Load 0x0,0xd 00d1 4802 |H | Short_Literal 0x2 00d2 00da | | Load_Top At_Offset_2 00d3 01d6 | | Execute Vector,Field_Write 00d4 e008 | | Load 0x0,0x8 00d5 01c3 | | Execute Vector,Check_In_Type 00d6 800e | | Call 0x0,0xe 00d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 00cf | | Action Mark_Auxiliary 00dc e00f | | Load 0x0,0xf 00dd 8010 | | Call 0x0,0x10 00de e00b | | Load 0x0,0xb 00df 8010 | | Call 0x0,0x10 00e0 0263 | c | Execute Discrete,Above_Bound 00e1 700c |p | Jump_Nonzero 0xee 00e2 e011 | | Load 0x0,0x11 00e3 0337 | 7 | Declare_Variable Array 00e4 00d9 | | Load_Top At_Offset_1 00e5 800a | | Call 0x0,0xa 00e6 4800 |H | Short_Literal 0x0 00e7 00da | | Load_Top At_Offset_2 00e8 01d6 | | Execute Vector,Field_Write 00e9 e011 | | Load 0x0,0x11 00ea 01c3 | | Execute Vector,Check_In_Type 00eb 8012 | | Call 0x0,0x12 00ec 00c8 | | Action Pop_Auxiliary_Range 00ed 3ff4 |? | Loop_Increasing 0xe2 00ee 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ef 0000 | | .XXX[0x1] 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 e008 | | Load 0x0,0x8 00f4 0337 | 7 | Declare_Variable Array 00f5 485a |HZ | Short_Literal 0x5a 00f6 8009 | | Call 0x0,0x9 00f7 4800 |H | Short_Literal 0x0 00f8 00da | | Load_Top At_Offset_2 00f9 01d6 | | Execute Vector,Field_Write 00fa e00f | | Load 0x0,0xf 00fb 4801 |H | Short_Literal 0x1 00fc 00da | | Load_Top At_Offset_2 00fd 01d6 | | Execute Vector,Field_Write 00fe 4802 |H | Short_Literal 0x2 00ff 800a | | Call 0x0,0xa 0100 e00d | | Load 0x0,0xd 0101 800c | | Call 0x0,0xc 0102 4802 |H | Short_Literal 0x2 0103 00da | | Load_Top At_Offset_2 0104 01d6 | | Execute Vector,Field_Write 0105 e008 | | Load 0x0,0x8 0106 01c3 | | Execute Vector,Check_In_Type 0107 800e | | Call 0x0,0xe 0108 e008 | | Load 0x0,0x8 0109 0337 | 7 | Declare_Variable Array 010a 4855 |HU | Short_Literal 0x55 010b 8009 | | Call 0x0,0x9 010c 4800 |H | Short_Literal 0x0 010d 00da | | Load_Top At_Offset_2 010e 01d6 | | Execute Vector,Field_Write 010f e00f | | Load 0x0,0xf 0110 4801 |H | Short_Literal 0x1 0111 00da | | Load_Top At_Offset_2 0112 01d6 | | Execute Vector,Field_Write 0113 4801 |H | Short_Literal 0x1 0114 800a | | Call 0x0,0xa 0115 e00d | | Load 0x0,0xd 0116 800c | | Call 0x0,0xc 0117 4802 |H | Short_Literal 0x2 0118 00da | | Load_Top At_Offset_2 0119 01d6 | | Execute Vector,Field_Write 011a e008 | | Load 0x0,0x8 011b 01c3 | | Execute Vector,Check_In_Type 011c 800e | | Call 0x0,0xe 011d e008 | | Load 0x0,0x8 011e 0337 | 7 | Declare_Variable Array 011f 4854 |HT | Short_Literal 0x54 0120 8009 | | Call 0x0,0x9 0121 4800 |H | Short_Literal 0x0 0122 00da | | Load_Top At_Offset_2 0123 01d6 | | Execute Vector,Field_Write 0124 e00f | | Load 0x0,0xf 0125 4801 |H | Short_Literal 0x1 0126 00da | | Load_Top At_Offset_2 0127 01d6 | | Execute Vector,Field_Write 0128 e00d | | Load 0x0,0xd 0129 4802 |H | Short_Literal 0x2 012a 00da | | Load_Top At_Offset_2 012b 01d6 | | Execute Vector,Field_Write 012c e008 | | Load 0x0,0x8 012d 01c3 | | Execute Vector,Check_In_Type 012e 800e | | Call 0x0,0xe 012f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 e013 | | Load 0x0,0x13 0134 0337 | 7 | Declare_Variable Array 0135 e014 | | Load 0x0,0x14 0136 4800 |H | Short_Literal 0x0 0137 00da | | Load_Top At_Offset_2 0138 01d6 | | Execute Vector,Field_Write 0139 e00b | | Load 0x0,0xb 013a 4801 |H | Short_Literal 0x1 013b 00da | | Load_Top At_Offset_2 013c 01d6 | | Execute Vector,Field_Write 013d e015 | | Load 0x0,0x15 013e 4802 |H | Short_Literal 0x2 013f 00da | | Load_Top At_Offset_2 0140 01d6 | | Execute Vector,Field_Write 0141 e013 | | Load 0x0,0x13 0142 01c3 | | Execute Vector,Check_In_Type 0143 8016 | | Call 0x0,0x16 0144 e013 | | Load 0x0,0x13 0145 0337 | 7 | Declare_Variable Array 0146 e017 | | Load 0x0,0x17 0147 4800 |H | Short_Literal 0x0 0148 00da | | Load_Top At_Offset_2 0149 01d6 | | Execute Vector,Field_Write 014a e00b | | Load 0x0,0xb 014b 4801 |H | Short_Literal 0x1 014c 00da | | Load_Top At_Offset_2 014d 01d6 | | Execute Vector,Field_Write 014e e015 | | Load 0x0,0x15 014f 4802 |H | Short_Literal 0x2 0150 00da | | Load_Top At_Offset_2 0151 01d6 | | Execute Vector,Field_Write 0152 e013 | | Load 0x0,0x13 0153 01c3 | | Execute Vector,Check_In_Type 0154 8016 | | Call 0x0,0x16 0155 e013 | | Load 0x0,0x13 0156 0337 | 7 | Declare_Variable Array 0157 e018 | | Load 0x0,0x18 0158 4800 |H | Short_Literal 0x0 0159 00da | | Load_Top At_Offset_2 015a 01d6 | | Execute Vector,Field_Write 015b e00b | | Load 0x0,0xb 015c 4801 |H | Short_Literal 0x1 015d 00da | | Load_Top At_Offset_2 015e 01d6 | | Execute Vector,Field_Write 015f e015 | | Load 0x0,0x15 0160 4802 |H | Short_Literal 0x2 0161 00da | | Load_Top At_Offset_2 0162 01d6 | | Execute Vector,Field_Write 0163 e013 | | Load 0x0,0x13 0164 01c3 | | Execute Vector,Check_In_Type 0165 8016 | | Call 0x0,0x16 0166 e013 | | Load 0x0,0x13 0167 0337 | 7 | Declare_Variable Array 0168 e019 | | Load 0x0,0x19 0169 4800 |H | Short_Literal 0x0 016a 00da | | Load_Top At_Offset_2 016b 01d6 | | Execute Vector,Field_Write 016c e00b | | Load 0x0,0xb 016d 4801 |H | Short_Literal 0x1 016e 00da | | Load_Top At_Offset_2 016f 01d6 | | Execute Vector,Field_Write 0170 e015 | | Load 0x0,0x15 0171 4802 |H | Short_Literal 0x2 0172 00da | | Load_Top At_Offset_2 0173 01d6 | | Execute Vector,Field_Write 0174 e013 | | Load 0x0,0x13 0175 01c3 | | Execute Vector,Check_In_Type 0176 8016 | | Call 0x0,0x16 0177 e013 | | Load 0x0,0x13 0178 0337 | 7 | Declare_Variable Array 0179 e01a | | Load 0x0,0x1a 017a 4800 |H | Short_Literal 0x0 017b 00da | | Load_Top At_Offset_2 017c 01d6 | | Execute Vector,Field_Write 017d e00b | | Load 0x0,0xb 017e 4801 |H | Short_Literal 0x1 017f 00da | | Load_Top At_Offset_2 0180 01d6 | | Execute Vector,Field_Write 0181 e015 | | Load 0x0,0x15 0182 4802 |H | Short_Literal 0x2 0183 00da | | Load_Top At_Offset_2 0184 01d6 | | Execute Vector,Field_Write 0185 e013 | | Load 0x0,0x13 0186 01c3 | | Execute Vector,Check_In_Type 0187 8016 | | Call 0x0,0x16 0188 e013 | | Load 0x0,0x13 0189 0337 | 7 | Declare_Variable Array 018a e01b | | Load 0x0,0x1b 018b 4800 |H | Short_Literal 0x0 018c 00da | | Load_Top At_Offset_2 018d 01d6 | | Execute Vector,Field_Write 018e e00b | | Load 0x0,0xb 018f 4801 |H | Short_Literal 0x1 0190 00da | | Load_Top At_Offset_2 0191 01d6 | | Execute Vector,Field_Write 0192 e015 | | Load 0x0,0x15 0193 4802 |H | Short_Literal 0x2 0194 00da | | Load_Top At_Offset_2 0195 01d6 | | Execute Vector,Field_Write 0196 e013 | | Load 0x0,0x13 0197 01c3 | | Execute Vector,Check_In_Type 0198 8016 | | Call 0x0,0x16 0199 e013 | | Load 0x0,0x13 019a 0337 | 7 | Declare_Variable Array 019b e01c | | Load 0x0,0x1c 019c 4800 |H | Short_Literal 0x0 019d 00da | | Load_Top At_Offset_2 019e 01d6 | | Execute Vector,Field_Write 019f e00b | | Load 0x0,0xb 01a0 4801 |H | Short_Literal 0x1 01a1 00da | | Load_Top At_Offset_2 01a2 01d6 | | Execute Vector,Field_Write 01a3 e015 | | Load 0x0,0x15 01a4 4802 |H | Short_Literal 0x2 01a5 00da | | Load_Top At_Offset_2 01a6 01d6 | | Execute Vector,Field_Write 01a7 e013 | | Load 0x0,0x13 01a8 01c3 | | Execute Vector,Check_In_Type 01a9 8016 | | Call 0x0,0x16 01aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ab 0000 0000 | | .BLANK 0000[0x5] 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 e01d | | Load 0x0,0x1d 01b4 0337 | 7 | Declare_Variable Array 01b5 e01e | | Load 0x0,0x1e 01b6 4800 |H | Short_Literal 0x0 01b7 00da | | Load_Top At_Offset_2 01b8 01d6 | | Execute Vector,Field_Write 01b9 e014 | | Load 0x0,0x14 01ba 4801 |H | Short_Literal 0x1 01bb 00da | | Load_Top At_Offset_2 01bc 01d6 | | Execute Vector,Field_Write 01bd e01f | | Load 0x0,0x1f 01be 4802 |H | Short_Literal 0x2 01bf 00da | | Load_Top At_Offset_2 01c0 01d6 | | Execute Vector,Field_Write 01c1 e015 | | Load 0x0,0x15 01c2 4803 |H | Short_Literal 0x3 01c3 00da | | Load_Top At_Offset_2 01c4 01d6 | | Execute Vector,Field_Write 01c5 e01d | | Load 0x0,0x1d 01c6 01c3 | | Execute Vector,Check_In_Type 01c7 8020 | | Call 0x0,0x20 01c8 e01d | | Load 0x0,0x1d 01c9 0337 | 7 | Declare_Variable Array 01ca e01e | | Load 0x0,0x1e 01cb 4800 |H | Short_Literal 0x0 01cc 00da | | Load_Top At_Offset_2 01cd 01d6 | | Execute Vector,Field_Write 01ce e014 | | Load 0x0,0x14 01cf 4801 |H | Short_Literal 0x1 01d0 00da | | Load_Top At_Offset_2 01d1 01d6 | | Execute Vector,Field_Write 01d2 e021 | ! | Load 0x0,0x21 01d3 4802 |H | Short_Literal 0x2 01d4 00da | | Load_Top At_Offset_2 01d5 01d6 | | Execute Vector,Field_Write 01d6 e00f | | Load 0x0,0xf 01d7 4803 |H | Short_Literal 0x3 01d8 00da | | Load_Top At_Offset_2 01d9 01d6 | | Execute Vector,Field_Write 01da e01d | | Load 0x0,0x1d 01db 01c3 | | Execute Vector,Check_In_Type 01dc 8020 | | Call 0x0,0x20 01dd e022 | " | Load 0x0,0x22 01de 0337 | 7 | Declare_Variable Array 01df e014 | | Load 0x0,0x14 01e0 4800 |H | Short_Literal 0x0 01e1 00da | | Load_Top At_Offset_2 01e2 01d6 | | Execute Vector,Field_Write 01e3 e022 | " | Load 0x0,0x22 01e4 01c3 | | Execute Vector,Check_In_Type 01e5 8023 | # | Call 0x0,0x23 01e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e7 0000 | | .XXX[0x1] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb e01d | | Load 0x0,0x1d 01ec 0337 | 7 | Declare_Variable Array 01ed e01e | | Load 0x0,0x1e 01ee 4800 |H | Short_Literal 0x0 01ef 00da | | Load_Top At_Offset_2 01f0 01d6 | | Execute Vector,Field_Write 01f1 e017 | | Load 0x0,0x17 01f2 4801 |H | Short_Literal 0x1 01f3 00da | | Load_Top At_Offset_2 01f4 01d6 | | Execute Vector,Field_Write 01f5 e01f | | Load 0x0,0x1f 01f6 4802 |H | Short_Literal 0x2 01f7 00da | | Load_Top At_Offset_2 01f8 01d6 | | Execute Vector,Field_Write 01f9 e015 | | Load 0x0,0x15 01fa 4803 |H | Short_Literal 0x3 01fb 00da | | Load_Top At_Offset_2 01fc 01d6 | | Execute Vector,Field_Write 01fd e01d | | Load 0x0,0x1d 01fe 01c3 | | Execute Vector,Check_In_Type 01ff 8020 | | Call 0x0,0x20 0200 e01d | | Load 0x0,0x1d 0201 0337 | 7 | Declare_Variable Array 0202 e01e | | Load 0x0,0x1e 0203 4800 |H | Short_Literal 0x0 0204 00da | | Load_Top At_Offset_2 0205 01d6 | | Execute Vector,Field_Write 0206 e017 | | Load 0x0,0x17 0207 4801 |H | Short_Literal 0x1 0208 00da | | Load_Top At_Offset_2 0209 01d6 | | Execute Vector,Field_Write 020a e024 | $ | Load 0x0,0x24 020b 4802 |H | Short_Literal 0x2 020c 00da | | Load_Top At_Offset_2 020d 01d6 | | Execute Vector,Field_Write 020e e00f | | Load 0x0,0xf 020f 4803 |H | Short_Literal 0x3 0210 00da | | Load_Top At_Offset_2 0211 01d6 | | Execute Vector,Field_Write 0212 e01d | | Load 0x0,0x1d 0213 01c3 | | Execute Vector,Check_In_Type 0214 8020 | | Call 0x0,0x20 0215 e022 | " | Load 0x0,0x22 0216 0337 | 7 | Declare_Variable Array 0217 e017 | | Load 0x0,0x17 0218 4800 |H | Short_Literal 0x0 0219 00da | | Load_Top At_Offset_2 021a 01d6 | | Execute Vector,Field_Write 021b e022 | " | Load 0x0,0x22 021c 01c3 | | Execute Vector,Check_In_Type 021d 8023 | # | Call 0x0,0x23 021e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 021f 0000 | | .XXX[0x1] 0220 ; -------------------------------------------------------------------------------------- 0220 ; Debug Table 0220 ; -------------------------------------------------------------------------------------- 0220 0004 0009 | | .DEBUG4 0x0004,0x0009,0x3156,0x0000,0x0001,0x000a 0226 000b 024e | N| .DBG4T 0x000b,0x024e,0x8000,0x0000 022a 001f 0253 | S| .DBG4T 0x001f,0x0253,0x8000,0x0000 022e 002b 0257 | + W| .DBG4T 0x002b,0x0257,0x0001,0x0000 0232 003b 025a | ; Z| .DBG4T 0x003b,0x025a,0x0001,0x0000 0236 0053 0268 | S h| .DBG4T 0x0053,0x0268,0x0001,0x0000 023a 00db 0270 | p| .DBG4T 0x00db,0x0270,0x0001,0x0000 023e 00f3 0274 | t| .DBG4T 0x00f3,0x0274,0x0001,0x0000 0242 0133 0279 | 3 y| .DBG4T 0x0133,0x0279,0x0001,0x0000 0246 01b3 0282 | | .DBG4T 0x01b3,0x0282,0x0001,0x0000 024a 01eb 0287 | | .DBG4T 0x01eb,0x0287,0x0001,0x0000 024e ; -------------------------------------------------------------------------------------- 024e ; Debug chain 024e ; -------------------------------------------------------------------------------------- 024e 0003 0000 | | .DBGLEN 0x0003,0x0000 0250 000b 001a | | .DBGLNO 0x000b,0x001a,0x001c 0253 ; -------------------------------------------------------------------------------------- 0253 ; Debug chain 0253 ; -------------------------------------------------------------------------------------- 0253 0002 0000 | | .DBGLEN 0x0002,0x0000 0255 001f 0021 | !| .DBGLNO 0x001f,0x0021 0257 ; -------------------------------------------------------------------------------------- 0257 ; Debug chain 0257 ; -------------------------------------------------------------------------------------- 0257 0000 0001 | | .DBGLEN 0x0000,0x0001 0259 002b | + | .DBGLNO 0x002b 025a ; -------------------------------------------------------------------------------------- 025a ; Debug chain 025a ; -------------------------------------------------------------------------------------- 025a 0006 0006 | | .DBGLEN 0x0006,0x0006 025c 003b 003d | ; =| .DBGLNO 0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0048,0x0049,0x004a,0x004b,0x004c 0268 ; -------------------------------------------------------------------------------------- 0268 ; Debug chain 0268 ; -------------------------------------------------------------------------------------- 0268 0000 0006 | | .DBGLEN 0x0000,0x0006 026a 0053 0068 | S h| .DBGLNO 0x0053,0x0068,0x007d,0x0092,0x00aa,0x00c2 0270 ; -------------------------------------------------------------------------------------- 0270 ; Debug chain 0270 ; -------------------------------------------------------------------------------------- 0270 0000 0002 | | .DBGLEN 0x0000,0x0002 0272 00dc 00e2 | | .DBGLNO 0x00dc,0x00e2 0274 ; -------------------------------------------------------------------------------------- 0274 ; Debug chain 0274 ; -------------------------------------------------------------------------------------- 0274 0000 0003 | | .DBGLEN 0x0000,0x0003 0276 00f3 0108 | | .DBGLNO 0x00f3,0x0108,0x011d 0279 ; -------------------------------------------------------------------------------------- 0279 ; Debug chain 0279 ; -------------------------------------------------------------------------------------- 0279 0000 0007 | | .DBGLEN 0x0000,0x0007 027b 0133 0144 | 3 D| .DBGLNO 0x0133,0x0144,0x0155,0x0166,0x0177,0x0188,0x0199 0282 ; -------------------------------------------------------------------------------------- 0282 ; Debug chain 0282 ; -------------------------------------------------------------------------------------- 0282 0000 0003 | | .DBGLEN 0x0000,0x0003 0284 01b3 01c8 | | .DBGLNO 0x01b3,0x01c8,0x01dd 0287 ; -------------------------------------------------------------------------------------- 0287 ; Debug chain 0287 ; -------------------------------------------------------------------------------------- 0287 0000 0003 | | .DBGLEN 0x0000,0x0003 0289 01eb 0200 | | .DBGLNO 0x01eb,0x0200,0x0215 028c 0000 0000 | | .BLANK 0000[0x174]