|
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_0694fc
└─⟦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 0011 0000 | | .XXX[0x9] 02d0 0000 0800 | | 02d2 0000 5200 | R | 02d4 0010 5a18 | Z | 02d6 a000 | | 02d7 0000 0000 | | .BLANK 0000[0x1d] 02f4 0906 67e2 | g | .XXX[0x1c] 02f6 0002 c10d | | 02f8 2000 0200 | | 02fa 1800 1c60 | `| 02fc 0000 0056 | V| 02fe c800 0040 | @| 0300 0000 00e0 | | 0302 0500 0000 | | 0304 0100 0000 | | 0306 4000 0002 |@ | 0308 2000 0000 | | 030a 0100 0000 | | 030c 0a40 0002 | @ | 030e 0b42 e700 | B | 0310 0000 0000 | | .BLANK 0000[0x8] 0318 0040 0002 | @ | .XXX[0x4] 031a 0b3f fc00 | ? | 031c 0000 0000 | | .BLANK 0000[0x5] 0321 0040 0002 | @ | .XXX[0x4] 0323 0b42 e500 | B | 0325 0000 0000 | | .BLANK 0000[0x15] 033a 0004 00a0 | | .XXX[0xc] 033c 0000 0000 | | 033e 0000 0800 | | 0340 0000 4400 | D | 0342 0000 0020 | | 0344 0000 0140 | @| 0346 0000 0000 | | .BLANK 0000[0x2e] 0374 8014 0000 | | .XXX[0xb] 0376 0000 0000 | | 0378 0100 0000 | | 037a 0880 0000 | | 037c 0004 0000 | | 037e 0028 | ( | 037f 0000 0000 | | .BLANK 0000[0x2e] 03ad 1002 8000 | | .XXX[0xb] 03af 0000 0000 | | 03b1 0020 0000 | | 03b3 0110 0000 | | 03b5 0000 8000 | | 03b7 0005 | | 03b8 0000 0000 | | .BLANK 0000[0x48]