|
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_1c75ca7
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0238 | 8 | .CONST 0x0238 ; 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 0075 | u | .CONST 0x0075 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001e | | .CONST 0x001e ; Number of locals
000b INIT_0008:
000b 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
000d 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
000f 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0011 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0013 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0015 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0017 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0019 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
001b 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
001d 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
001f 4818 |H | Short_Literal 0x18
0020 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
0021 00bf | | Action Accept_Activation
0022 0093 0000 | | push_full_address 0x0
0024 607b |`{ | Indirect_Literal Discrete,0xa0,{0x80000000, 0x00030000}
0025 0273 | s | Execute Discrete,Plus
0026 e002 | | Load 0x0,0x2
0027 0273 | s | Execute Discrete,Plus
0028 e003 | | Load 0x0,0x3
0029 0273 | s | Execute Discrete,Plus
002a 00e3 | | Load_Encached Natural_Cache
002b e004 | | Load 0x0,0x4
002c 0387 | | Declare_Variable Package
002d 00d8 | | Load_Top At_Offset_0
002e 020f | | Execute Module,Activate
002f e005 | | Load 0x0,0x5
0030 00d9 | | Load_Top At_Offset_1
0031 0098 | | Execute Package,Field_Read_Dynamic
0032 00d8 | | Load_Top At_Offset_0
0033 02a0 | | Declare_Subprogram Null_Subprogram
0034 e217 | | Load 0x1,0x17
0035 03c7 | | Complete_Type Access,By_Defining
0036 0093 0000 | | push_full_address 0x0
0038 6063 |`c | Indirect_Literal Discrete,0x9c,{0x80000000, 0x00020000}
0039 0273 | s | Execute Discrete,Plus
003a e002 | | Load 0x0,0x2
003b 0273 | s | Execute Discrete,Plus
003c e006 | | Load 0x0,0x6
003d 0273 | s | Execute Discrete,Plus
003e 4864 |Hd | Short_Literal 0x64
003f e007 | | Load 0x0,0x7
0040 e218 | | Load 0x1,0x18
0041 0098 | | Execute Package,Field_Read_Dynamic
0042 4801 |H | Short_Literal 0x1
0043 e008 | | Load 0x0,0x8
0044 0387 | | Declare_Variable Package
0045 00d8 | | Load_Top At_Offset_0
0046 020f | | Execute Module,Activate
0047 0093 0000 | | push_full_address 0x0
0049 604e |`N | Indirect_Literal Discrete,0x98,{0x80000000, 0x00010000}
004a 0273 | s | Execute Discrete,Plus
004b e002 | | Load 0x0,0x2
004c 0273 | s | Execute Discrete,Plus
004d e009 | | Load 0x0,0x9
004e 0273 | s | Execute Discrete,Plus
004f 4864 |Hd | Short_Literal 0x64
0050 e007 | | Load 0x0,0x7
0051 e218 | | Load 0x1,0x18
0052 0098 | | Execute Package,Field_Read_Dynamic
0053 4801 |H | Short_Literal 0x1
0054 e008 | | Load 0x0,0x8
0055 0387 | | Declare_Variable Package
0056 00d8 | | Load_Top At_Offset_0
0057 020f | | Execute Module,Activate
0058 e00a | | Load 0x0,0xa
0059 00da | | Load_Top At_Offset_2
005a 0098 | | Execute Package,Field_Read_Dynamic
005b 0007 | | Action Break_Optional
005c e00a | | Load 0x0,0xa
005d 00da | | Load_Top At_Offset_2
005e 0098 | | Execute Package,Field_Read_Dynamic
005f 0007 | | Action Break_Optional
0060 00e1 | | Load_Encached Boolean_Cache
0061 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0062 00c7 | | Action Elaborate_Subprogram
0063 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0064 00c7 | | Action Elaborate_Subprogram
0065 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0066 00c7 | | Action Elaborate_Subprogram
0067 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0068 00c7 | | Action Elaborate_Subprogram
0069 1d0e | | Execute_Immediate Reference_Lex_1,0xe
006a 00c7 | | Action Elaborate_Subprogram
006b 1d0f | | Execute_Immediate Reference_Lex_1,0xf
006c 00c7 | | Action Elaborate_Subprogram
006d 1d13 | | Execute_Immediate Reference_Lex_1,0x13
006e 00c7 | | Action Elaborate_Subprogram
006f 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0070 00c7 | | Action Elaborate_Subprogram
0071 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0072 00c7 | | Action Elaborate_Subprogram
0073 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0074 00c7 | | Action Elaborate_Subprogram
0075 BODY_0008:
0075 e00a | | Load 0x0,0xa
0076 e21a | | Load 0x1,0x1a
0077 0098 | | Execute Package,Field_Read_Dynamic
0078 e00b | | Load 0x0,0xb
0079 e21a | | Load 0x1,0x1a
007a 0096 | | Execute Package,Entry
007b 003b | ; | Store_Top Access,At_Offset_3
007c e00a | | Load 0x0,0xa
007d e21b | | Load 0x1,0x1b
007e 0098 | | Execute Package,Field_Read_Dynamic
007f e00b | | Load 0x0,0xb
0080 e21b | | Load 0x1,0x1b
0081 0096 | | Execute Package,Entry
0082 003a | : | Store_Top Access,At_Offset_2
0083 00bc | | Action Signal_Activated
0084 00bb | | Action Signal_Completion
0085 0000 0000 | | .XXX[0x3]
0087 0000 | |
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 00da | | Load_Top At_Offset_2
008c 0229 | ) | Execute Access,All_Read
008d e005 | | Load 0x0,0x5
008e e218 | | Load 0x1,0x18
008f 0098 | | Execute Package,Field_Read_Dynamic
0090 0226 | & | Execute Access,Convert
0091 e00c | | Load 0x0,0xc
0092 e218 | | Load 0x1,0x18
0093 0096 | | Execute Package,Entry
0094 00db | | Load_Top At_Offset_3
0095 0228 | ( | Execute Access,All_Write
0096 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0097 0000 | | .XXX[0x1]
0098 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
009c 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00a0 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00da | | Load_Top At_Offset_2
00ac 0229 | ) | Execute Access,All_Read
00ad e00d | | Load 0x0,0xd
00ae e218 | | Load 0x1,0x18
00af 0096 | | Execute Package,Entry
00b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b1 0000 0000 | | .BLANK 0000[0x7]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00da | | Load_Top At_Offset_2
00bc 7002 |p | Jump_Nonzero 0xbf
00bd 4801 |H | Short_Literal 0x1
00be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00bf 00da | | Load_Top At_Offset_2
00c0 0229 | ) | Execute Access,All_Read
00c1 e00e | | Load 0x0,0xe
00c2 e218 | | Load 0x1,0x18
00c3 0096 | | Execute Package,Entry
00c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c5 0000 0000 | | .XXX[0x3]
00c7 0000 | |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cf | | .CONST 0x00cf ; Address of begin
00c9 00ed | | .CONST 0x00ed ; Address of exception handler
00ca 0002 | | .CONST 0x0002 ; Number of locals
00cb INIT_00c8:
00cb e007 | | Load 0x0,0x7
00cc e218 | | Load 0x1,0x18
00cd 0098 | | Execute Package,Field_Read_Dynamic
00ce 0007 | | Action Break_Optional
00cf BODY_00c8:
00cf e007 | | Load 0x0,0x7
00d0 e218 | | Load 0x1,0x18
00d1 0098 | | Execute Package,Field_Read_Dynamic
00d2 e00f | | Load 0x0,0xf
00d3 e218 | | Load 0x1,0x18
00d4 0096 | | Execute Package,Entry
00d5 0039 | 9 | Store_Top Access,At_Offset_1
00d6 e5fe | | Load 0x2,-0x2
00d7 8010 | | Call 0x0,0x10
00d8 e21c | | Load 0x1,0x1c
00d9 e011 | | Load 0x0,0x11
00da e21a | | Load 0x1,0x1a
00db 0096 | | Execute Package,Entry
00dc 0039 | 9 | Store_Top Access,At_Offset_1
00dd 00d8 | | Load_Top At_Offset_0
00de e5ff | | Load 0x2,-0x1
00df e012 | | Load 0x0,0x12
00e0 e218 | | Load 0x1,0x18
00e1 0096 | | Execute Package,Entry
00e2 0039 | 9 | Store_Top Access,At_Offset_1
00e3 e21c | | Load 0x1,0x1c
00e4 4800 |H | Short_Literal 0x0
00e5 00da | | Load_Top At_Offset_2
00e6 e5fe | | Load 0x2,-0x2
00e7 8010 | | Call 0x0,0x10
00e8 e013 | | Load 0x0,0x13
00e9 e21a | | Load 0x1,0x1a
00ea 0096 | | Execute Package,Entry
00eb c21c | | Store 0x1,0x1c
00ec 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ed TRAP_00c8:
00ed e014 | | Load 0x0,0x14
00ee e21a | | Load 0x1,0x1a
00ef 0098 | | Execute Package,Field_Read_Dynamic
00f0 010f | | Execute Exception,Equal
00f1 6810 |h | Jump_Zero 0x102
00f2 00d9 | | Load_Top At_Offset_1
00f3 e5ff | | Load 0x2,-0x1
00f4 e012 | | Load 0x0,0x12
00f5 e218 | | Load 0x1,0x18
00f6 0096 | | Execute Package,Entry
00f7 003a | : | Store_Top Access,At_Offset_2
00f8 e21c | | Load 0x1,0x1c
00f9 4801 |H | Short_Literal 0x1
00fa 00db | | Load_Top At_Offset_3
00fb e5fe | | Load 0x2,-0x2
00fc 8010 | | Call 0x0,0x10
00fd e013 | | Load 0x0,0x13
00fe e21a | | Load 0x1,0x1a
00ff 0096 | | Execute Package,Entry
0100 c21c | | Store 0x1,0x1c
0101 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0102 00d8 | | Load_Top At_Offset_0
0103 0101 | | Execute Exception,Reraise
0104 0000 0000 | | .BLANK 0000[0x4]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010f | | .CONST 0x010f ; Address of begin
0109 0126 | & | .CONST 0x0126 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b e007 | | Load 0x0,0x7
010c e218 | | Load 0x1,0x18
010d 0098 | | Execute Package,Field_Read_Dynamic
010e 0007 | | Action Break_Optional
010f BODY_0108:
010f e5fe | | Load 0x2,-0x2
0110 8010 | | Call 0x0,0x10
0111 e21c | | Load 0x1,0x1c
0112 e011 | | Load 0x0,0x11
0113 e21a | | Load 0x1,0x1a
0114 0096 | | Execute Package,Entry
0115 0039 | 9 | Store_Top Access,At_Offset_1
0116 00d8 | | Load_Top At_Offset_0
0117 e5ff | | Load 0x2,-0x1
0118 e015 | | Load 0x0,0x15
0119 e218 | | Load 0x1,0x18
011a 0096 | | Execute Package,Entry
011b 0039 | 9 | Store_Top Access,At_Offset_1
011c e21c | | Load 0x1,0x1c
011d 4800 |H | Short_Literal 0x0
011e 00da | | Load_Top At_Offset_2
011f e5fe | | Load 0x2,-0x2
0120 8010 | | Call 0x0,0x10
0121 e013 | | Load 0x0,0x13
0122 e21a | | Load 0x1,0x1a
0123 0096 | | Execute Package,Entry
0124 c21c | | Store 0x1,0x1c
0125 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0126 TRAP_0108:
0126 e014 | | Load 0x0,0x14
0127 e21a | | Load 0x1,0x1a
0128 0098 | | Execute Package,Field_Read_Dynamic
0129 010f | | Execute Exception,Equal
012a 6801 |h | Jump_Zero 0x12c
012b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
012c 00d8 | | Load_Top At_Offset_0
012d 0101 | | Execute Exception,Reraise
012e 0000 0000 | | .XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 013d | = | .CONST 0x013d ; Address of begin
0131 0151 | Q | .CONST 0x0151 ; Address of exception handler
0132 0004 | | .CONST 0x0004 ; Number of locals
0133 INIT_0130:
0133 e007 | | Load 0x0,0x7
0134 e218 | | Load 0x1,0x18
0135 0098 | | Execute Package,Field_Read_Dynamic
0136 0007 | | Action Break_Optional
0137 e005 | | Load 0x0,0x5
0138 e218 | | Load 0x1,0x18
0139 0098 | | Execute Package,Field_Read_Dynamic
013a 0007 | | Action Break_Optional
013b e217 | | Load 0x1,0x17
013c 03bc | | Declare_Variable Access,By_Allocation
013d BODY_0130:
013d e5ff | | Load 0x2,-0x1
013e 8010 | | Call 0x0,0x10
013f e21c | | Load 0x1,0x1c
0140 e011 | | Load 0x0,0x11
0141 e21a | | Load 0x1,0x1a
0142 0096 | | Execute Package,Entry
0143 003b | ; | Store_Top Access,At_Offset_3
0144 e005 | | Load 0x0,0x5
0145 e218 | | Load 0x1,0x18
0146 0098 | | Execute Package,Field_Read_Dynamic
0147 00db | | Load_Top At_Offset_3
0148 e016 | | Load 0x0,0x16
0149 e218 | | Load 0x1,0x18
014a 0096 | | Execute Package,Entry
014b 003a | : | Store_Top Access,At_Offset_2
014c 00d9 | | Load_Top At_Offset_1
014d 00d9 | | Load_Top At_Offset_1
014e 0228 | ( | Execute Access,All_Write
014f 00d8 | | Load_Top At_Offset_0
0150 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0151 TRAP_0130:
0151 e014 | | Load 0x0,0x14
0152 e21a | | Load 0x1,0x1a
0153 0098 | | Execute Package,Field_Read_Dynamic
0154 010f | | Execute Exception,Equal
0155 6802 |h | Jump_Zero 0x158
0156 e217 | | Load 0x1,0x17
0157 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0158 0100 | | Execute Exception,Raise
0159 0000 0000 | | .BLANK 0000[0x7]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0167 | g | .CONST 0x0167 ; Address of begin
0161 0185 | | .CONST 0x0185 ; Address of exception handler
0162 0002 | | .CONST 0x0002 ; Number of locals
0163 INIT_0160:
0163 e007 | | Load 0x0,0x7
0164 e218 | | Load 0x1,0x18
0165 0098 | | Execute Package,Field_Read_Dynamic
0166 0007 | | Action Break_Optional
0167 BODY_0160:
0167 e007 | | Load 0x0,0x7
0168 e218 | | Load 0x1,0x18
0169 0098 | | Execute Package,Field_Read_Dynamic
016a e00f | | Load 0x0,0xf
016b e218 | | Load 0x1,0x18
016c 0096 | | Execute Package,Entry
016d 0039 | 9 | Store_Top Access,At_Offset_1
016e e5fe | | Load 0x2,-0x2
016f 8010 | | Call 0x0,0x10
0170 e21d | | Load 0x1,0x1d
0171 e011 | | Load 0x0,0x11
0172 e21b | | Load 0x1,0x1b
0173 0096 | | Execute Package,Entry
0174 0039 | 9 | Store_Top Access,At_Offset_1
0175 00d8 | | Load_Top At_Offset_0
0176 e5ff | | Load 0x2,-0x1
0177 e012 | | Load 0x0,0x12
0178 e218 | | Load 0x1,0x18
0179 0096 | | Execute Package,Entry
017a 0039 | 9 | Store_Top Access,At_Offset_1
017b e21d | | Load 0x1,0x1d
017c 4800 |H | Short_Literal 0x0
017d 00da | | Load_Top At_Offset_2
017e e5fe | | Load 0x2,-0x2
017f 8010 | | Call 0x0,0x10
0180 e013 | | Load 0x0,0x13
0181 e21b | | Load 0x1,0x1b
0182 0096 | | Execute Package,Entry
0183 c21d | | Store 0x1,0x1d
0184 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0185 TRAP_0160:
0185 e014 | | Load 0x0,0x14
0186 e21b | | Load 0x1,0x1b
0187 0098 | | Execute Package,Field_Read_Dynamic
0188 010f | | Execute Exception,Equal
0189 6810 |h | Jump_Zero 0x19a
018a 00d9 | | Load_Top At_Offset_1
018b e5ff | | Load 0x2,-0x1
018c e012 | | Load 0x0,0x12
018d e218 | | Load 0x1,0x18
018e 0096 | | Execute Package,Entry
018f 003a | : | Store_Top Access,At_Offset_2
0190 e21d | | Load 0x1,0x1d
0191 4801 |H | Short_Literal 0x1
0192 00db | | Load_Top At_Offset_3
0193 e5fe | | Load 0x2,-0x2
0194 8010 | | Call 0x0,0x10
0195 e013 | | Load 0x0,0x13
0196 e21b | | Load 0x1,0x1b
0197 0096 | | Execute Package,Entry
0198 c21d | | Store 0x1,0x1d
0199 4503 |E | Exit_Suprogram New_Top_Offset 0x3
019a 00d8 | | Load_Top At_Offset_0
019b 0101 | | Execute Exception,Reraise
019c 0000 0000 | | .BLANK 0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a7 | | .CONST 0x01a7 ; Address of begin
01a1 01be | | .CONST 0x01be ; Address of exception handler
01a2 0002 | | .CONST 0x0002 ; Number of locals
01a3 INIT_01a0:
01a3 e007 | | Load 0x0,0x7
01a4 e218 | | Load 0x1,0x18
01a5 0098 | | Execute Package,Field_Read_Dynamic
01a6 0007 | | Action Break_Optional
01a7 BODY_01a0:
01a7 e5fe | | Load 0x2,-0x2
01a8 8010 | | Call 0x0,0x10
01a9 e21d | | Load 0x1,0x1d
01aa e011 | | Load 0x0,0x11
01ab e21b | | Load 0x1,0x1b
01ac 0096 | | Execute Package,Entry
01ad 0039 | 9 | Store_Top Access,At_Offset_1
01ae 00d8 | | Load_Top At_Offset_0
01af e5ff | | Load 0x2,-0x1
01b0 e015 | | Load 0x0,0x15
01b1 e218 | | Load 0x1,0x18
01b2 0096 | | Execute Package,Entry
01b3 0039 | 9 | Store_Top Access,At_Offset_1
01b4 e21d | | Load 0x1,0x1d
01b5 4800 |H | Short_Literal 0x0
01b6 00da | | Load_Top At_Offset_2
01b7 e5fe | | Load 0x2,-0x2
01b8 8010 | | Call 0x0,0x10
01b9 e013 | | Load 0x0,0x13
01ba e21b | | Load 0x1,0x1b
01bb 0096 | | Execute Package,Entry
01bc c21d | | Store 0x1,0x1d
01bd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01be TRAP_01a0:
01be e014 | | Load 0x0,0x14
01bf e21a | | Load 0x1,0x1a
01c0 0098 | | Execute Package,Field_Read_Dynamic
01c1 010f | | Execute Exception,Equal
01c2 6801 |h | Jump_Zero 0x1c4
01c3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01c4 00d8 | | Load_Top At_Offset_0
01c5 0101 | | Execute Exception,Reraise
01c6 0000 0000 | | .XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d5 | | .CONST 0x01d5 ; Address of begin
01c9 01e9 | | .CONST 0x01e9 ; Address of exception handler
01ca 0004 | | .CONST 0x0004 ; Number of locals
01cb INIT_01c8:
01cb e007 | | Load 0x0,0x7
01cc e218 | | Load 0x1,0x18
01cd 0098 | | Execute Package,Field_Read_Dynamic
01ce 0007 | | Action Break_Optional
01cf e005 | | Load 0x0,0x5
01d0 e218 | | Load 0x1,0x18
01d1 0098 | | Execute Package,Field_Read_Dynamic
01d2 0007 | | Action Break_Optional
01d3 e217 | | Load 0x1,0x17
01d4 03bc | | Declare_Variable Access,By_Allocation
01d5 BODY_01c8:
01d5 e5ff | | Load 0x2,-0x1
01d6 8010 | | Call 0x0,0x10
01d7 e21d | | Load 0x1,0x1d
01d8 e011 | | Load 0x0,0x11
01d9 e21b | | Load 0x1,0x1b
01da 0096 | | Execute Package,Entry
01db 003b | ; | Store_Top Access,At_Offset_3
01dc e005 | | Load 0x0,0x5
01dd e218 | | Load 0x1,0x18
01de 0098 | | Execute Package,Field_Read_Dynamic
01df 00db | | Load_Top At_Offset_3
01e0 e016 | | Load 0x0,0x16
01e1 e218 | | Load 0x1,0x18
01e2 0096 | | Execute Package,Entry
01e3 003a | : | Store_Top Access,At_Offset_2
01e4 00d9 | | Load_Top At_Offset_1
01e5 00d9 | | Load_Top At_Offset_1
01e6 0228 | ( | Execute Access,All_Write
01e7 00d8 | | Load_Top At_Offset_0
01e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e9 TRAP_01c8:
01e9 e014 | | Load 0x0,0x14
01ea e21b | | Load 0x1,0x1b
01eb 0098 | | Execute Package,Field_Read_Dynamic
01ec 010f | | Execute Exception,Equal
01ed 6802 |h | Jump_Zero 0x1f0
01ee e217 | | Load 0x1,0x17
01ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f0 0100 | | Execute Exception,Raise
01f1 0000 0000 | | .BLANK 0000[0x7]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0203 | | .CONST 0x0203 ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0003 | | .CONST 0x0003 ; Number of locals
01fb INIT_01f8:
01fb e017 | | Load 0x0,0x17
01fc e21b | | Load 0x1,0x1b
01fd 0098 | | Execute Package,Field_Read_Dynamic
01fe 0322 | " | Declare_Variable Record
01ff e017 | | Load 0x0,0x17
0200 e21a | | Load 0x1,0x1a
0201 0098 | | Execute Package,Field_Read_Dynamic
0202 0322 | " | Declare_Variable Record
0203 BODY_01f8:
0203 00d9 | | Load_Top At_Offset_1
0204 e21d | | Load 0x1,0x1d
0205 e018 | | Load 0x0,0x18
0206 e21b | | Load 0x1,0x1b
0207 0096 | | Execute Package,Entry
0208 00d1 | | Pop_Control Pop_Count_1
0209 00d8 | | Load_Top At_Offset_0
020a e21c | | Load 0x1,0x1c
020b e018 | | Load 0x0,0x18
020c e21a | | Load 0x1,0x1a
020d 0096 | | Execute Package,Entry
020e 00d1 | | Pop_Control Pop_Count_1
020f 00cf | | Action Mark_Auxiliary
0210 780d |x | Jump 0x21e
0211 00da | | Load_Top At_Offset_2
0212 e019 | | Load 0x0,0x19
0213 e21b | | Load 0x1,0x1b
0214 0096 | | Execute Package,Entry
0215 801a | | Call 0x0,0x1a
0216 e5ff | | Load 0x2,-0x1
0217 8214 | | Call 0x1,0x14
0218 00da | | Load_Top At_Offset_2
0219 e01b | | Load 0x0,0x1b
021a e21b | | Load 0x1,0x1b
021b 0096 | | Execute Package,Entry
021c 00d1 | | Pop_Control Pop_Count_1
021d 00c9 | | Action Pop_Auxiliary_Loop
021e 00da | | Load_Top At_Offset_2
021f e01c | | Load 0x0,0x1c
0220 e21b | | Load 0x1,0x1b
0221 0096 | | Execute Package,Entry
0222 6fee |o | Jump_Zero 0x211
0223 00c9 | | Action Pop_Auxiliary_Loop
0224 780d |x | Jump 0x232
0225 00d9 | | Load_Top At_Offset_1
0226 e019 | | Load 0x0,0x19
0227 e21a | | Load 0x1,0x1a
0228 0096 | | Execute Package,Entry
0229 801a | | Call 0x0,0x1a
022a e5ff | | Load 0x2,-0x1
022b 8214 | | Call 0x1,0x14
022c 00d9 | | Load_Top At_Offset_1
022d e01b | | Load 0x0,0x1b
022e e21a | | Load 0x1,0x1a
022f 0096 | | Execute Package,Entry
0230 00d1 | | Pop_Control Pop_Count_1
0231 00c9 | | Action Pop_Auxiliary_Loop
0232 00d9 | | Load_Top At_Offset_1
0233 e01c | | Load 0x0,0x1c
0234 e21a | | Load 0x1,0x1a
0235 0096 | | Execute Package,Entry
0236 6fee |o | Jump_Zero 0x225
0237 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0238 ; --------------------------------------------------------------------------------------
0238 ; Debug Table
0238 ; --------------------------------------------------------------------------------------
0238 0004 0009 | | .DEBUG4 0x0004,0x0009,0x010b,0x0000,0x0001,0x000c
023e 000b 026e | n| .DBG4T 0x000b,0x026e,0x8000,0x8000
0242 0022 0286 | " | .DBG4T 0x0022,0x0286,0x8000,0x8000
0246 008b 02ac | | .DBG4T 0x008b,0x02ac,0x0001,0x0000
024a 00ab 02af | | .DBG4T 0x00ab,0x02af,0x0002,0x0000
024e 00bb 02b2 | | .DBG4T 0x00bb,0x02b2,0x0002,0x0000
0252 00cb 02b7 | | .DBG4T 0x00cb,0x02b7,0x0001,0x0000
0256 010b 02c1 | | .DBG4T 0x010b,0x02c1,0x0001,0x0000
025a 0133 02c9 | 3 | .DBG4T 0x0133,0x02c9,0x0002,0x0000
025e 0163 02d3 | c | .DBG4T 0x0163,0x02d3,0x0001,0x0000
0262 01a3 02dd | | .DBG4T 0x01a3,0x02dd,0x0001,0x0000
0266 01cb 02e5 | | .DBG4T 0x01cb,0x02e5,0x0002,0x0000
026a 01fb 02ef | | .DBG4T 0x01fb,0x02ef,0x0001,0x4000
026e ; --------------------------------------------------------------------------------------
026e ; Debug chain
026e ; --------------------------------------------------------------------------------------
026e 000b 0000 | | .DBGLEN 0x000b,0x0000
0270 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f
027b 0002 0003 | | .XXX[0xb]
027d 0004 0005 | |
027f 0006 0007 | |
0281 0008 0009 | |
0283 000a 000b | |
0285 000d | |
0286 ; --------------------------------------------------------------------------------------
0286 ; Debug chain
0286 ; --------------------------------------------------------------------------------------
0286 0011 0002 | | .DBGLEN 0x0011,0x0002
0288 0022 002f | " /| .DBGLNO 0x0022,0x002f,0x0036,0x0047,0x0058,0x005c,0x0060,0x0061,0x0063,0x0065,0x0067,0x0069,0x006b,0x006d,0x006f,0x0071,0x0073,0x0075,0x007c
029b 0001 0002 | | .XXX[0x11]
029d 0004 0005 | |
029f 0006 0007 | |
02a1 0008 0009 | |
02a3 000a 000b | |
02a5 000c 000d | |
02a7 000e 000f | |
02a9 0010 0011 | |
02ab 0012 | |
02ac ; --------------------------------------------------------------------------------------
02ac ; Debug chain
02ac ; --------------------------------------------------------------------------------------
02ac 0000 0001 | | .DBGLEN 0x0000,0x0001
02ae 008b | | .DBGLNO 0x008b
02af ; --------------------------------------------------------------------------------------
02af ; Debug chain
02af ; --------------------------------------------------------------------------------------
02af 0000 0001 | | .DBGLEN 0x0000,0x0001
02b1 00ab | | .DBGLNO 0x00ab
02b2 ; --------------------------------------------------------------------------------------
02b2 ; Debug chain
02b2 ; --------------------------------------------------------------------------------------
02b2 0000 0003 | | .DBGLEN 0x0000,0x0003
02b4 00bb 00bd | | .DBGLNO 0x00bb,0x00bd,0x00bf
02b7 ; --------------------------------------------------------------------------------------
02b7 ; Debug chain
02b7 ; --------------------------------------------------------------------------------------
02b7 0001 0007 | | .DBGLEN 0x0001,0x0007
02b9 00cb 00cf | | .DBGLNO 0x00cb,0x00cf,0x00d6,0x00dd,0x00e3,0x00f2,0x00f8,0x0102
02c1 ; --------------------------------------------------------------------------------------
02c1 ; Debug chain
02c1 ; --------------------------------------------------------------------------------------
02c1 0001 0005 | | .DBGLEN 0x0001,0x0005
02c3 010b 010f | | .DBGLNO 0x010b,0x010f,0x0116,0x011c,0x012b,0x012c
02c9 ; --------------------------------------------------------------------------------------
02c9 ; Debug chain
02c9 ; --------------------------------------------------------------------------------------
02c9 0003 0005 | | .DBGLEN 0x0003,0x0005
02cb 0133 0137 | 3 7| .DBGLNO 0x0133,0x0137,0x013b,0x013d,0x0144,0x014c,0x014f,0x0156
02d3 ; --------------------------------------------------------------------------------------
02d3 ; Debug chain
02d3 ; --------------------------------------------------------------------------------------
02d3 0001 0007 | | .DBGLEN 0x0001,0x0007
02d5 0163 0167 | c g| .DBGLNO 0x0163,0x0167,0x016e,0x0175,0x017b,0x018a,0x0190,0x019a
02dd ; --------------------------------------------------------------------------------------
02dd ; Debug chain
02dd ; --------------------------------------------------------------------------------------
02dd 0001 0005 | | .DBGLEN 0x0001,0x0005
02df 01a3 01a7 | | .DBGLNO 0x01a3,0x01a7,0x01ae,0x01b4,0x01c3,0x01c4
02e5 ; --------------------------------------------------------------------------------------
02e5 ; Debug chain
02e5 ; --------------------------------------------------------------------------------------
02e5 0003 0005 | | .DBGLEN 0x0003,0x0005
02e7 01cb 01cf | | .DBGLNO 0x01cb,0x01cf,0x01d3,0x01d5,0x01dc,0x01e4,0x01e7,0x01ee
02ef ; --------------------------------------------------------------------------------------
02ef ; Debug chain
02ef ; --------------------------------------------------------------------------------------
02ef 0002 0008 | | .DBGLEN 0x0002,0x0008
02f1 01fb 01ff | | .DBGLNO 0x01fb,0x01ff,0x0203,0x0209,0x0211,0x0218,0x021e,0x0225,0x022c,0x0232
02fb 0001 0002 | | .XXX[0x8]
02fd 0004 0005 | |
02ff 0003 0007 | |
0301 0008 0006 | |
0303 0000 0000 | | .BLANK 0000[0xfd]