|
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_0a7cf5
└─⟦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 de57 0d0c | W | .XXX[0x132]
02d0 0c02 edc9 | |
02d2 e9a0 0303 | |
02d4 41fc 0c5d |A ]|
02d6 a19c 06cb | |
02d8 7d95 c201 |} |
02da a003 034c | L|
02dc b840 3401 | @4 |
02de 105c 3288 | \2 |
02e0 0601 9ae5 | |
02e2 38d4 00c1 |8 |
02e4 651e 23cb |e # |
02e6 4866 8a91 |Hf |
02e8 fa53 a993 | S |
02ea f2c8 b844 | D|
02ec 3401 305e |4 0^|
02ee c801 1dc1 | |
02f0 59fd 0672 |Y r|
02f2 5ab8 44f7 |Z D |
02f4 d50f 0734 | 4|
02f6 307f 4400 |0 D |
02f8 0119 ec92 | |
02fa e930 be58 | 0 X|
02fc ef0e 3fb5 | ? |
02fe 6600 b0e0 |f |
0300 8cf0 2c42 | ,B|
0302 400a ad5b |@ [|
0304 0c4f 84e9 | O |
0306 4484 7d28 |D }(|
0308 d454 fbb1 | T |
030a 9e15 0f4e | N|
030c 168a 53c2 | S |
030e 0401 4cd0 | L |
0310 0001 375c | 7\|
0312 0a93 0caf | |
0314 8549 45b0 | IE |
0316 e801 002f | /|
0318 4039 3edd |@9> |
031a 4d16 d7f5 |M |
031c 6800 d7e2 |h |
031e 095c 2d00 | \- |
0320 1e7f fa09 | |
0322 140c 0379 | y|
0324 fbaa 56e7 | V |
0326 fc7a 7976 | zyv|
0328 422d db4e |B- N|
032a 97f6 07c5 | |
032c 46e0 5b03 |F [ |
032e e877 9f58 | w X|
0330 0b33 12ec | 3 |
0332 2df7 4400 |- D |
0334 0277 ecc0 | w |
0336 a82f 7fd8 | / |
0338 6f0d 047a |o z|
033a 5fc5 77e1 |_ w |
033c 90d0 0081 | |
033e 86a2 307b | 0{|
0340 0e97 f72b | +|
0342 c1ae e058 | X|
0344 0248 38ff | H8 |
0346 7e33 eb0a |~3 |
0348 97f5 4fc2 | O |
034a c2f8 5b00 | [ |
034c 2b38 303e |+80>|
034e 34fb 0e97 |4 |
0350 f797 d3be | |
0352 085b 0066 | [ f|
0354 bbc3 3e0b | > |
0356 bfbd 668c | f |
0358 0603 c009 | |
035a b350 72fb | Pr |
035c b63e 2abf | >* |
035e 0db6 8c04 | |
0360 02a7 f6d8 | |
0362 fc51 fbcb | Q |
0364 7fa5 f6e9 | |
0366 e68f f1c1 | |
0368 a4fc aff2 | |
036a f280 16a2 | |
036c 364e eaa7 |6N |
036e 9c0b c607 | |
0370 01c0 d000 | |
0372 0045 3e39 | E>9|
0374 2b11 d7f8 |+ |
0376 79c2 2fe0 |y / |
0378 5900 ff3b |Y ;|
037a e481 f9ee | |
037c ef9e 8c06 | |
037e 019b ddf7 | |
0380 508e bbcc |P |
0382 fe30 2ff5 | 0/ |
0384 b78a f3d4 | |
0386 b602 eccb | |
0388 70f4 f6fe |p |
038a 111f f657 | W|
038c 8346 4208 | FB |
038e e186 6d08 | m |
0390 6801 a0bd |h |
0392 b006 5387 | S |
0394 a9b8 2ca5 | , |
0396 01f5 eafb | |
0398 e91b b5bc | |
039a 072b a62d | + -|
039c b447 a549 | G I|
039e 739f 3c14 |s < |
03a0 9cc5 b005 | |
03a2 638d 3dc4 |c = |
03a4 5fa5 59f1 |_ Y |
03a6 e87a 43ca | zC |
03a8 293f 3eaf |)?> |
03aa 8703 f4b5 | |
03ac 00a6 73c8 | s |
03ae c4f5 3e15 | > |
03b0 8ed9 ee91 | |
03b2 f58e 75fd | u |
03b4 b472 cf34 | r 4|
03b6 16c2 030f | |
03b8 1626 9006 | & |
03ba 039e ea4c | L|
03bc 5236 e49d |R6 |
03be 2734 b742 |'4 B|
03c0 e692 33fc | 3 |
03c2 d714 f470 | p|
03c4 a507 f359 | Y|
03c6 e9fc 800c | |
03c8 015d bcb9 | ] |
03ca 002e 72f3 | .r |
03cc bc9b 1632 | 2|
03ce bca4 3b8c | ; |
03d0 7fd0 d514 | |
03d2 bdf0 cf38 | 8|
03d4 14c2 1a1f | |
03d6 f82e 96ab | . |
03d8 c4d7 1447 | G|
03da 70a6 8413 |p |
03dc 3ed8 fd28 |> (|
03de f6e9 ee48 | H|
03e0 a5e3 356d | 5m|
03e2 4c68 02c1 |Lh |
03e4 edcc 055b | [|
03e6 7f3d c546 | = F|
03e8 a499 953d | =|
03ea 886a 5e39 | j^9|
03ec cc06 e382 | |
03ee 35bc b801 |5 |
03f0 ac73 caf4 | s |
03f2 a9b5 13bd | |
03f4 2409 4927 |$ I'|
03f6 d161 a401 | a |
03f8 00ae c74e | N|
03fa 6df7 3d28 |m =(|
03fc 0c02 a7bd | |
03fe 6da4 0182 |m |