|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1060f5
└─⟦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 02c8 | | .CONST 0x02c8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 001e | | .CONST 0x001e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0016 | | .CONST 0x0016 ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 029d 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call 0012 029d 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call 0014 029d 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call 0016 029b 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Unelaborated 0018 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0019 00c7 | | Action Elaborate_Subprogram 001a 1d11 | | Execute_Immediate Reference_Lex_1,0x11 001b 00c7 | | Action Elaborate_Subprogram 001c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 001d 00c7 | | Action Elaborate_Subprogram 001e BODY_0008: 001e 00bc | | Action Signal_Activated 001f 00bb | | Action Signal_Completion 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 002a | * | .CONST 0x002a ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0005 | | .CONST 0x0005 ; Number of locals 0023 INIT_0020: 0023 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0024 00c6 | | Action Check_Subprogram_Elaborated 0025 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0026 e001 | | Load 0x0,0x1 0027 e002 | | Load 0x0,0x2 0028 4805 |H | Short_Literal 0x5 0029 0007 | | Action Break_Optional 002a BODY_0020: 002a e5fe | | Load 0x2,-0x2 002b e5ff | | Load 0x2,-0x1 002c 4802 |H | Short_Literal 0x2 002d 4802 |H | Short_Literal 0x2 002e 0099 | | Action Reference_Dynamic 002f 4803 |H | Short_Literal 0x3 0030 4802 |H | Short_Literal 0x2 0031 0099 | | Action Reference_Dynamic 0032 8216 | | Call 0x1,0x16 0033 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0034 0000 0000 | | .BLANK 0000[0x4] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 0042 | B | .CONST 0x0042 ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0005 | | .CONST 0x0005 ; Number of locals 003b INIT_0038: 003b 1d16 | | Execute_Immediate Reference_Lex_1,0x16 003c 00c6 | | Action Check_Subprogram_Elaborated 003d 1d15 | | Execute_Immediate Reference_Lex_1,0x15 003e e003 | | Load 0x0,0x3 003f e004 | | Load 0x0,0x4 0040 4805 |H | Short_Literal 0x5 0041 0007 | | Action Break_Optional 0042 BODY_0038: 0042 e5fe | | Load 0x2,-0x2 0043 e5ff | | Load 0x2,-0x1 0044 4802 |H | Short_Literal 0x2 0045 4802 |H | Short_Literal 0x2 0046 0099 | | Action Reference_Dynamic 0047 4803 |H | Short_Literal 0x3 0048 4802 |H | Short_Literal 0x2 0049 0099 | | Action Reference_Dynamic 004a 8216 | | Call 0x1,0x16 004b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 004c 0000 0000 | | .BLANK 0000[0x4] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 00c0 | | .CONST 0x00c0 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0004 | | .CONST 0x0004 ; Number of locals 0053 INIT_0050: 0053 e005 | | Load 0x0,0x5 0054 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0055 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0056 0266 | f | Execute Discrete,Bounds 0057 e006 | | Load 0x0,0x6 0058 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 0059 02a0 | | Declare_Subprogram Null_Subprogram 005a 4801 |H | Short_Literal 0x1 005b 035d | ] | Declare_Type Array,Defined 005c 00d8 | | Load_Top At_Offset_0 005d 0337 | 7 | Declare_Variable Array 005e 00d8 | | Load_Top At_Offset_0 005f 0335 | 5 | Declare_Variable Array,Duplicate 0060 00cd | | Action Spare6_Action 0061 4803 |H | Short_Literal 0x3 0062 4802 |H | Short_Literal 0x2 0063 00da | | Load_Top At_Offset_2 0064 01d6 | | Execute Vector,Field_Write 0065 4803 |H | Short_Literal 0x3 0066 4804 |H | Short_Literal 0x4 0067 00da | | Load_Top At_Offset_2 0068 01d6 | | Execute Vector,Field_Write 0069 4803 |H | Short_Literal 0x3 006a 4808 |H | Short_Literal 0x8 006b 00da | | Load_Top At_Offset_2 006c 01d6 | | Execute Vector,Field_Write 006d 4803 |H | Short_Literal 0x3 006e 4809 |H | Short_Literal 0x9 006f 00da | | Load_Top At_Offset_2 0070 01d6 | | Execute Vector,Field_Write 0071 4803 |H | Short_Literal 0x3 0072 480e |H | Short_Literal 0xe 0073 00da | | Load_Top At_Offset_2 0074 01d6 | | Execute Vector,Field_Write 0075 4803 |H | Short_Literal 0x3 0076 480f |H | Short_Literal 0xf 0077 00da | | Load_Top At_Offset_2 0078 01d6 | | Execute Vector,Field_Write 0079 4804 |H | Short_Literal 0x4 007a 480b |H | Short_Literal 0xb 007b 00da | | Load_Top At_Offset_2 007c 01d6 | | Execute Vector,Field_Write 007d 4804 |H | Short_Literal 0x4 007e 480c |H | Short_Literal 0xc 007f 00da | | Load_Top At_Offset_2 0080 01d6 | | Execute Vector,Field_Write 0081 4805 |H | Short_Literal 0x5 0082 4803 |H | Short_Literal 0x3 0083 00da | | Load_Top At_Offset_2 0084 01d6 | | Execute Vector,Field_Write 0085 4805 |H | Short_Literal 0x5 0086 4805 |H | Short_Literal 0x5 0087 00da | | Load_Top At_Offset_2 0088 01d6 | | Execute Vector,Field_Write 0089 4806 |H | Short_Literal 0x6 008a 4806 |H | Short_Literal 0x6 008b 00da | | Load_Top At_Offset_2 008c 01d6 | | Execute Vector,Field_Write 008d 4806 |H | Short_Literal 0x6 008e 480a |H | Short_Literal 0xa 008f 00da | | Load_Top At_Offset_2 0090 01d6 | | Execute Vector,Field_Write 0091 4806 |H | Short_Literal 0x6 0092 4810 |H | Short_Literal 0x10 0093 00da | | Load_Top At_Offset_2 0094 01d6 | | Execute Vector,Field_Write 0095 4807 |H | Short_Literal 0x7 0096 480d |H | Short_Literal 0xd 0097 00da | | Load_Top At_Offset_2 0098 01d6 | | Execute Vector,Field_Write 0099 4808 |H | Short_Literal 0x8 009a 4807 |H | Short_Literal 0x7 009b 00da | | Load_Top At_Offset_2 009c 01d6 | | Execute Vector,Field_Write 009d 4809 |H | Short_Literal 0x9 009e 4811 |H | Short_Literal 0x11 009f 00da | | Load_Top At_Offset_2 00a0 01d6 | | Execute Vector,Field_Write 00a1 4809 |H | Short_Literal 0x9 00a2 4812 |H | Short_Literal 0x12 00a3 00da | | Load_Top At_Offset_2 00a4 01d6 | | Execute Vector,Field_Write 00a5 480a |H | Short_Literal 0xa 00a6 4813 |H | Short_Literal 0x13 00a7 00da | | Load_Top At_Offset_2 00a8 01d6 | | Execute Vector,Field_Write 00a9 480b |H | Short_Literal 0xb 00aa 4800 |H | Short_Literal 0x0 00ab 00da | | Load_Top At_Offset_2 00ac 01d6 | | Execute Vector,Field_Write 00ad 480b |H | Short_Literal 0xb 00ae 4801 |H | Short_Literal 0x1 00af 00da | | Load_Top At_Offset_2 00b0 01d6 | | Execute Vector,Field_Write 00b1 480b |H | Short_Literal 0xb 00b2 4814 |H | Short_Literal 0x14 00b3 00da | | Load_Top At_Offset_2 00b4 01d6 | | Execute Vector,Field_Write 00b5 00d9 | | Load_Top At_Offset_1 00b6 01d4 | | Execute Vector,Structure_Write 00b7 e5ff | | Load 0x2,-0x1 00b8 e007 | | Load 0x0,0x7 00b9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00ba e005 | | Load 0x0,0x5 00bb 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00bc 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00bd 00d9 | | Load_Top At_Offset_1 00be 01d7 | | Execute Vector,Field_Read 00bf 0007 | | Action Break_Optional 00c0 BODY_0050: 00c0 00d8 | | Load_Top At_Offset_0 00c1 0f0b | | Execute_Immediate Equal,0xb 00c2 6810 |h | Jump_Zero 0xd3 00c3 e5ff | | Load 0x2,-0x1 00c4 e007 | | Load 0x0,0x7 00c5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00c6 e008 | | Load 0x0,0x8 00c7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00c8 6802 |h | Jump_Zero 0xcb 00c9 4801 |H | Short_Literal 0x1 00ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00cb e5ff | | Load 0x2,-0x1 00cc e007 | | Load 0x0,0x7 00cd 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00ce e009 | | Load 0x0,0x9 00cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d0 6810 |h | Jump_Zero 0xe1 00d1 4815 |H | Short_Literal 0x15 00d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d3 00d8 | | Load_Top At_Offset_0 00d4 0f03 | | Execute_Immediate Equal,0x3 00d5 00d9 | | Load_Top At_Offset_1 00d6 0f05 | | Execute_Immediate Equal,0x5 00d7 0278 | x | Execute Discrete,Or 00d8 6808 |h | Jump_Zero 0xe1 00d9 e5ff | | Load 0x2,-0x1 00da e007 | | Load 0x0,0x7 00db 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00dc e00a | | Load 0x0,0xa 00dd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00de 6802 |h | Jump_Zero 0xe1 00df 4802 |H | Short_Literal 0x2 00e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e1 00d8 | | Load_Top At_Offset_0 00e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e3 0000 0000 | | .BLANK 0000[0x5] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00f1 | | .CONST 0x00f1 ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0004 | | .CONST 0x0004 ; Number of locals 00eb INIT_00e8: 00eb 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call 00ed 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call 00ef 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 00f1 BODY_00e8: 00f1 e00b | | Load 0x0,0xb 00f2 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f3 8404 | | Call 0x2,0x4 00f4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00f5 0000 0000 | | .XXX[0x3] 00f7 0000 | | 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0100 | | .CONST 0x0100 ; 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 00db | | Load_Top At_Offset_3 00fd 01d7 | | Execute Vector,Field_Read 00fe e007 | | Load 0x0,0x7 00ff 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0100 BODY_00f8: 0100 00cf | | Action Mark_Auxiliary 0101 00d9 | | Load_Top At_Offset_1 0102 01d9 | | Execute Vector,Reverse_Bounds 0103 0263 | c | Execute Discrete,Above_Bound 0104 7010 |p | Jump_Nonzero 0x115 0105 00d8 | | Load_Top At_Offset_0 0106 e402 | | Load 0x2,0x2 0107 01d7 | | Execute Vector,Field_Read 0108 e007 | | Load 0x0,0x7 0109 1814 | | Execute Package,Field_Execute,Field_Number 0x14 010a e5fe | | Load 0x2,-0x2 010b e5ff | | Load 0x2,-0x1 010c 01d7 | | Execute Vector,Field_Read 010d e007 | | Load 0x0,0x7 010e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 010f 4801 |H | Short_Literal 0x1 0110 e5fd | | Load 0x2,-0x3 0111 e006 | | Load 0x0,0x6 0112 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0113 00c8 | | Action Pop_Auxiliary_Range 0114 3ff0 |? | Loop_Increasing 0x105 0115 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0116 0000 0000 | | .XXX[0x2] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 00cf | | Action Mark_Auxiliary 011c e5fd | | Load 0x2,-0x3 011d 01d9 | | Execute Vector,Reverse_Bounds 011e 0263 | c | Execute Discrete,Above_Bound 011f 700a |p | Jump_Nonzero 0x12a 0120 00d8 | | Load_Top At_Offset_0 0121 e5fd | | Load 0x2,-0x3 0122 820f | | Call 0x1,0xf 0123 6804 |h | Jump_Zero 0x128 0124 e5fc | | Load 0x2,-0x4 0125 00d9 | | Load_Top At_Offset_1 0126 e5fd | | Load 0x2,-0x3 0127 85fe | | Call 0x2,-0x2 0128 00c8 | | Action Pop_Auxiliary_Range 0129 3ff6 |? | Loop_Increasing 0x120 012a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 012b 0000 0000 | | .BLANK 0000[0x5] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0135 | 5 | .CONST 0x0135 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0002 | | .CONST 0x0002 ; Number of locals 0133 INIT_0130: 0133 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 0135 BODY_0130: 0135 00db | | Load_Top At_Offset_3 0136 e008 | | Load 0x0,0x8 0137 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0138 6802 |h | Jump_Zero 0x13b 0139 8602 | | Call 0x3,0x2 013a 7802 |x | Jump 0x13d 013b 00db | | Load_Top At_Offset_3 013c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 013d 0831 | 1 | Execute_Immediate Raise,0x31 013e 0000 0000 | | .XXX[0x2] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0149 | I | .CONST 0x0149 ; Address of begin 0141 0150 | P | .CONST 0x0150 ; Address of exception handler 0142 0004 | | .CONST 0x0004 ; Number of locals 0143 INIT_0140: 0143 029f 020b | | Declare_Subprogram INIT_0208,For_Call 0145 029f 021b | | Declare_Subprogram INIT_0218,For_Call 0147 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call 0149 BODY_0140: 0149 4801 |H | Short_Literal 0x1 014a e7fd | | Load 0x3,-0x3 014b e7fe | | Load 0x3,-0x2 014c e7ff | | Load 0x3,-0x1 014d e006 | | Load 0x0,0x6 014e 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 014f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0150 TRAP_0140: 0150 e006 | | Load 0x0,0x6 0151 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b 0152 010f | | Execute Exception,Equal 0153 6814 |h | Jump_Zero 0x168 0154 e7fc | | Load 0x3,-0x4 0155 7010 |p | Jump_Nonzero 0x166 0156 0092 025a | Z| Action Push_String_Extended,0x25a ; "Subsystem label " 0158 e7fd | | Load 0x3,-0x3 0159 01cc | | Execute Vector,Catenate 015a 0092 025b | [| Action Push_String_Extended,0x25b ; " could not be further expanded; this label may be duplicated with other modules" 015c 01cc | | Execute Vector,Catenate 015d e00c | | Load 0x0,0xc 015e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 015f 4800 |H | Short_Literal 0x0 0160 e7fd | | Load 0x3,-0x3 0161 e7fe | | Load 0x3,-0x2 0162 e7ff | | Load 0x3,-0x1 0163 e006 | | Load 0x0,0x6 0164 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0165 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0166 8604 | | Call 0x3,0x4 0167 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0168 0100 | | Execute Exception,Raise 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0184 | | .CONST 0x0184 ; Address of begin 0171 01ce | | .CONST 0x01ce ; Address of exception handler 0172 0003 | | .CONST 0x0003 ; Number of locals 0173 INIT_0170: 0173 e005 | | Load 0x0,0x5 0174 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0175 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0176 02c7 | | Declare_Variable Any 0177 e5fe | | Load 0x2,-0x2 0178 e5ff | | Load 0x2,-0x1 0179 01d7 | | Execute Vector,Field_Read 017a e007 | | Load 0x0,0x7 017b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 017c a602 | | Store_Unchecked 0x3,0x2 017d e5fe | | Load 0x2,-0x2 017e e5ff | | Load 0x2,-0x1 017f 01d7 | | Execute Vector,Field_Read 0180 8213 | | Call 0x1,0x13 0181 e006 | | Load 0x0,0x6 0182 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31 0183 03f1 | | Declare_Variable Discrete,With_Value 0184 BODY_0170: 0184 e00b | | Load 0x0,0xb 0185 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0186 e00b | | Load 0x0,0xb 0187 180f | | Execute Package,Field_Execute,Field_Number 0xf 0188 e006 | | Load 0x0,0x6 0189 1b14 | | Execute Package,Field_Read,Field_Number 0x14 018a 0337 | 7 | Declare_Variable Array 018b e006 | | Load 0x0,0x6 018c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 018d 4801 |H | Short_Literal 0x1 018e 00da | | Load_Top At_Offset_2 018f 01d6 | | Execute Vector,Field_Write 0190 e006 | | Load 0x0,0x6 0191 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0192 4802 |H | Short_Literal 0x2 0193 00da | | Load_Top At_Offset_2 0194 01d6 | | Execute Vector,Field_Write 0195 e006 | | Load 0x0,0x6 0196 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0197 4803 |H | Short_Literal 0x3 0198 00da | | Load_Top At_Offset_2 0199 01d6 | | Execute Vector,Field_Write 019a e006 | | Load 0x0,0x6 019b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 019c 01c3 | | Execute Vector,Check_In_Type 019d e5fe | | Load 0x2,-0x2 019e 00d8 | | Load_Top At_Offset_0 019f 0aff | | Execute_Immediate Plus,-0x1 01a0 00d8 | | Load_Top At_Offset_0 01a1 00e3 | | Load_Encached Natural_Cache 01a2 0260 | ` | Execute Discrete,In_Type 01a3 7001 |p | Jump_Nonzero 0x1a5 01a4 0801 | | Execute_Immediate Raise,0x1 01a5 e5ff | | Load 0x2,-0x1 01a6 8210 | | Call 0x1,0x10 01a7 e602 | | Load 0x3,0x2 01a8 8402 | | Call 0x2,0x2 01a9 e603 | | Load 0x3,0x3 01aa e602 | | Load 0x3,0x2 01ab e5fd | | Load 0x2,-0x3 01ac e006 | | Load 0x0,0x6 01ad 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 01ae 00d8 | | Load_Top At_Offset_0 01af 0f15 | | Execute_Immediate Equal,0x15 01b0 6809 |h | Jump_Zero 0x1ba 01b1 4800 |H | Short_Literal 0x0 01b2 00da | | Load_Top At_Offset_2 01b3 e00d | | Load 0x0,0xd 01b4 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01b5 00db | | Load_Top At_Offset_3 01b6 e5fd | | Load 0x2,-0x3 01b7 e006 | | Load 0x0,0x6 01b8 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 01b9 7807 |x | Jump 0x1c1 01ba 4801 |H | Short_Literal 0x1 01bb 00da | | Load_Top At_Offset_2 01bc e00d | | Load 0x0,0xd 01bd 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01be 00db | | Load_Top At_Offset_3 01bf e5fd | | Load 0x2,-0x3 01c0 8403 | | Call 0x2,0x3 01c1 0092 025c | \| Action Push_String_Extended,0x25c ; "Saved module " 01c3 00da | | Load_Top At_Offset_2 01c4 e00d | | Load 0x0,0xd 01c5 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01c6 01cc | | Execute Vector,Catenate 01c7 00da | | Load_Top At_Offset_2 01c8 e00d | | Load 0x0,0xd 01c9 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01ca 01cc | | Execute Vector,Catenate 01cb e00c | | Load 0x0,0xc 01cc 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ce TRAP_0170: 01ce e006 | | Load 0x0,0x6 01cf 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 01d0 010f | | Execute Exception,Equal 01d1 6818 |h | Jump_Zero 0x1ea 01d2 0092 025d | ]| Action Push_String_Extended,0x25d ; "Ignoring " 01d4 e5fe | | Load 0x2,-0x2 01d5 e5ff | | Load 0x2,-0x1 01d6 01d7 | | Execute Vector,Field_Read 01d7 e007 | | Load 0x0,0x7 01d8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01d9 e00d | | Load 0x0,0xd 01da 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01db 01cc | | Execute Vector,Catenate 01dc e5fe | | Load 0x2,-0x2 01dd e5ff | | Load 0x2,-0x1 01de 01d7 | | Execute Vector,Field_Read 01df e007 | | Load 0x0,0x7 01e0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01e1 e00d | | Load 0x0,0xd 01e2 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01e3 01cc | | Execute Vector,Catenate 01e4 0092 025e | ^| Action Push_String_Extended,0x25e ; " because it has already been generated" 01e6 01cc | | Execute Vector,Catenate 01e7 e00c | | Load 0x0,0xc 01e8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ea 0100 | | Execute Exception,Raise 01eb 0000 0000 | | .BLANK 0000[0x5] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01fc | | .CONST 0x01fc ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0002 | | .CONST 0x0002 ; Number of locals 01f3 INIT_01f0: 01f3 e005 | | Load 0x0,0x5 01f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01f5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01f6 02c7 | | Declare_Variable Any 01f7 4800 |H | Short_Literal 0x0 01f8 e7ff | | Load 0x3,-0x1 01f9 e008 | | Load 0x0,0x8 01fa 181a | | Execute Package,Field_Execute,Field_Number 0x1a 01fb a802 | | Store_Unchecked 0x4,0x2 01fc BODY_01f0: 01fc 00d8 | | Load_Top At_Offset_0 01fd e005 | | Load 0x0,0x5 01fe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ff 180f | | Execute Package,Field_Execute,Field_Number 0xf 0200 6803 |h | Jump_Zero 0x204 0201 e7ff | | Load 0x3,-0x1 0202 00cb | | Action Pop_Block_With_Result 0203 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0204 00d8 | | Load_Top At_Offset_0 0205 00cb | | Action Pop_Block_With_Result 0206 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0207 0000 | | .XXX[0x1] 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 00db | | Load_Top At_Offset_3 020c 00db | | Load_Top At_Offset_3 020d e006 | | Load 0x0,0x6 020e 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 020f e9fd | | Load 0x4,-0x3 0210 01de | | Execute Vector,Not_Equal 0211 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0212 0000 0000 | | .BLANK 0000[0x6] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 0227 | ' | .CONST 0x0227 ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0003 | | .CONST 0x0003 ; Number of locals 021b INIT_0218: 021b 0092 025f | _| Action Push_String_Extended,0x25f ; "_" 021d e9fe | | Load 0x4,-0x2 021e e008 | | Load 0x0,0x8 021f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0220 e00d | | Load 0x0,0xd 0221 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0222 00d9 | | Load_Top At_Offset_1 0223 01cc | | Execute Vector,Catenate 0224 e9fd | | Load 0x4,-0x3 0225 01cc | | Execute Vector,Catenate 0226 0007 | | Action Break_Optional 0227 BODY_0218: 0227 4800 |H | Short_Literal 0x0 0228 00d9 | | Load_Top At_Offset_1 0229 e9fe | | Load 0x4,-0x2 022a e9ff | | Load 0x4,-0x1 022b 8403 | | Call 0x2,0x3 022c 0092 0260 | `| Action Push_String_Extended,0x260 ; "Expanding duplicate subsystem label " 022e e9fd | | Load 0x4,-0x3 022f 01cc | | Execute Vector,Catenate 0230 0092 0261 | a| Action Push_String_Extended,0x261 ; " to " 0232 01cc | | Execute Vector,Catenate 0233 00d9 | | Load_Top At_Offset_1 0234 01cc | | Execute Vector,Catenate 0235 e00c | | Load 0x0,0xc 0236 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0237 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 0241 | A | .CONST 0x0241 ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0002 | | .CONST 0x0002 ; Number of locals 023b INIT_0238: 023b e00d | | Load 0x0,0xd 023c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 023d 02c7 | | Declare_Variable Any 023e e006 | | Load 0x0,0x6 023f 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0240 a802 | | Store_Unchecked 0x4,0x2 0241 BODY_0238: 0241 00d8 | | Load_Top At_Offset_0 0242 e008 | | Load 0x0,0x8 0243 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0244 680e |h | Jump_Zero 0x253 0245 e7fd | | Load 0x3,-0x3 0246 00d9 | | Load_Top At_Offset_1 0247 e7ff | | Load 0x3,-0x1 0248 8602 | | Call 0x3,0x2 0249 7004 |p | Jump_Nonzero 0x24e 024a e7fd | | Load 0x3,-0x3 024b 00d9 | | Load_Top At_Offset_1 024c e7ff | | Load 0x3,-0x1 024d 8603 | | Call 0x3,0x3 024e e7fd | | Load 0x3,-0x3 024f e7fe | | Load 0x3,-0x2 0250 e7ff | | Load 0x3,-0x1 0251 8603 | | Call 0x3,0x3 0252 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0253 4800 |H | Short_Literal 0x0 0254 e7fd | | Load 0x3,-0x3 0255 e7fe | | Load 0x3,-0x2 0256 e7ff | | Load 0x3,-0x1 0257 e006 | | Load 0x0,0x6 0258 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0259 4501 |E | Exit_Suprogram New_Top_Offset 0x1 025a ; -------------------------------------------------------------------------------------- 025a ; STRING TABLE 025a ; -------------------------------------------------------------------------------------- 025a 0012 | | .STRTAB 0x0012->0x0263 ; "Subsystem label " 025b 0020 | | .STRTAB 0x0020->0x026b ; " could not be further expanded; this label may be duplicated with other modules" 025c 006d | m | .STRTAB 0x006d->0x0292 ; "Saved module " 025d 0078 | x | .STRTAB 0x0078->0x0299 ; "Ignoring " 025e 007f | | .STRTAB 0x007f->0x029d ; " because it has already been generated" 025f 00a3 | | .STRTAB 0x00a3->0x02b0 ; "_" 0260 00a2 | | .STRTAB 0x00a2->0x02b1 ; "Expanding duplicate subsystem label " 0261 00c4 | | .STRTAB 0x00c4->0x02c3 ; " to " 0262 00c6 | | .STREND 0x00c6->0x02c5 0263 5375 6273 |Subs| .STRTAB_STRINGS 02c5 0000 0000 | | .XXX[0x3] 02c7 0000 | | 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; Debug Table 02c8 ; -------------------------------------------------------------------------------------- 02c8 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0eec,0x0000,0x0001,0x0000 02ce 0081 20e0 | | .XXX[0x132] 02d0 0014 e858 | X| 02d2 080d e400 | | 02d4 0000 00aa | | 02d6 0480 1a76 | v| 02d8 3090 06c4 |0 | 02da 3f51 0000 |?Q | 02dc 0000 80d0 | | 02de d844 5010 | DP | 02e0 1906 0000 | | 02e2 0001 01b5 | | 02e4 e000 0002 | | 02e6 0cb6 0409 | | 02e8 0700 0000 | | 02ea 0040 7810 | @x | 02ec 1023 5e06 | #^ | 02ee ca15 0000 | | 02f0 6662 4040 |fb@@| 02f2 72f0 0000 |r | 02f4 0004 07d3 | | 02f6 0102 2700 | ' | 02f8 0000 0000 | | 02fa 0266 2404 | f$ | 02fc 0781 0000 | | 02fe 0000 4082 | @ | 0300 5010 2182 |P ! | 0302 0000 0000 | | 0304 0027 62e0 | 'b | 0306 407d 3000 |@}0 | 0308 0000 0098 | | 030a 1000 67a8 | g | 030c 4ec5 c080 |N | 030e fa60 0000 | ` | 0310 0005 5820 | X | 0312 04e9 d99d | | 0314 8b81 01e0 | | 0316 4000 0000 |@ | 0318 1550 400a | P@ | 031a 5e0d 0893 |^ | 031c 0203 9780 | | 031e 0000 0000 | | 0320 0002 132e | .| 0322 0406 4180 | A | 0324 0000 0040 | @| 0326 7218 0004 |r | 0328 040c 4a41 | JA| 032a 27c0 c959 |' Y| 032c 2000 0000 | | 032e 0813 fa02 | | 0330 0609 0000 | | 0332 53a1 6020 |S ` | 0334 4fe8 0000 |O | 0336 0002 ac12 | | 0338 006a ed82 | j | 033a 401b 10fd |@ | 033c 5c00 0000 |\ | 033e 0204 c8e1 | | 0340 1140 4094 | @@ | 0342 c800 0000 | | 0344 0409 e280 | | 0346 0000 0832 | 2| 0348 d810 3048 | 0H| 034a 0000 0001 | | 034c 02a3 0040 | @| 034e be28 1b29 | ( )| 0350 c000 0199 | | 0352 8901 028e | | 0354 8000 0000 | | 0356 102b 7804 | +x | 0358 0ba7 0000 | | 035a 0000 0009 | | 035c 9890 102a | *| 035e 3000 0000 |0 | 0360 0102 cc00 | | 0362 40b6 b800 |@ | 0364 0000 0000 | | 0366 9d8b 8102 | | 0368 b780 0000 | | 036a 0002 6040 | `@| 036c 019e a13b | ;| 036e 1702 056f | o| 0370 0000 0000 | | 0372 00e0 800e | | 0374 2dbe 762e |- v.| 0376 040a 8c00 | | 0378 0000 0028 | (| 037a c100 1ec0 | | 037c 4422 4c08 |D"L | 037e 1474 0000 | t | 0380 0000 0000 | | 0382 084c b810 | L | 0384 2532 0000 |%2 | 0386 0001 028b | | 0388 2000 1010 | | 038a 3d55 049f |=U | 038c 0325 6480 | %d | 038e 0000 0020 | | 0390 6840 081e |h@ | 0392 3a00 014e |: N| 0394 8580 81a1 | | 0396 0000 0000 | | 0398 0ab8 4801 | H | 039a ad27 0900 | ' | 039c 6c43 f590 |lC | 039e 0000 0008 | | 03a0 1939 8445 | 9 E| 03a2 0103 15e0 | | 03a4 0000 0010 | | 03a6 33b6 0000 |3 | 03a8 0020 cb60 | `| 03aa 40f1 d000 |@ | 03ac 0000 040d | | 03ae 9701 03bb | | 03b0 606c acb0 |`l | 03b2 0006 6624 | f$| 03b4 040d 4500 | E | 03b6 0000 0040 | @| 03b8 de90 103a | :| 03ba c800 0000 | | 03bc 0000 2662 | &b| 03be 4040 d970 |@@ p| 03c0 0000 0004 | | 03c2 0e3b 0103 | ; | 03c4 9da0 0000 | | 03c6 0000 0276 | v| 03c8 2e04 0de9 |. | 03ca 0000 0000 | | 03cc 0981 0006 | | 03ce 7a84 ec5c |z \| 03d0 081b d200 | | 03d2 0000 0040 | @| 03d4 0002 7df4 | } | 03d6 00d8 1555 | U| 03d8 3925 514c |9%QL| 03da 014c 1d7d | L }| 03dc 0511 057c | || 03de c57c 0128 | | (| 03e0 1d25 394d | %9M| 03e2 251d 2150 |% !P| 03e4 0164 1d7d | d }| 03e6 0511 057c | || 03e8 c97c 00bc | | | 03ea 3525 394d |5%9M| 03ec 251d 2151 |% !Q| 03ee 7d09 0551 |} Q| 03f0 0d20 8202 | | 03f2 6020 8cd4 |` | 03f4 0005 3a16 | : | 03f6 0208 0980 | | 03f8 0000 002b | +| 03fa 0120 06ba | | 03fc 6024 01b1 |`$ | 03fe 0fd6 c000 | |