|
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_03c8f4
└─⟦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 0360 | ` | .CONST 0x0360 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0092 | | .CONST 0x0092 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0030 | 0 | .CONST 0x0030 ; Number of locals
000b INIT_0008:
000b 0093 0000 | | push_full_address 0x0
000d 60ae |` | Indirect_Literal Discrete,0xbc,{0x80000000, 0x00010000}
000e 0273 | s | Execute Discrete,Plus
000f e20d | | Load 0x1,0xd
0010 60a7 |` | Indirect_Literal Discrete,0xb8,{0x00000000, 0x0000ffff}
0011 0279 | y | Execute Discrete,And
0012 0273 | s | Execute Discrete,Plus
0013 e002 | | Load 0x0,0x2
0014 0273 | s | Execute Discrete,Plus
0015 e20e | | Load 0x1,0xe
0016 e20f | | Load 0x1,0xf
0017 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0018 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0019 1d15 | | Execute_Immediate Reference_Lex_1,0x15
001a 1d16 | | Execute_Immediate Reference_Lex_1,0x16
001b e003 | | Load 0x0,0x3
001c 0386 | | Declare_Variable Package,Visible
001d 00d8 | | Load_Top At_Offset_0
001e 020f | | Execute Module,Activate
001f 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0021 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0023 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0025 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0027 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0029 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
002b 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
002d 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
002f 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0031 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0033 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0035 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
0037 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
0039 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
003b 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
003d 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated
003f 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
0041 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated
0043 0093 0000 | | push_full_address 0x0
0045 606e |`n | Indirect_Literal Discrete,0xb4,{0x80000000, 0x00010000}
0046 0273 | s | Execute Discrete,Plus
0047 e20d | | Load 0x1,0xd
0048 606f |`o | Indirect_Literal Discrete,0xb8,{0x00000000, 0x0000ffff}
0049 0279 | y | Execute Discrete,And
004a 0273 | s | Execute Discrete,Plus
004b 0129 | ) | Execute Any,Make_Visible
004c 0093 0000 | | push_full_address 0x0
004e 6061 |`a | Indirect_Literal Discrete,0xb0,{0x80000000, 0x00020000}
004f 0273 | s | Execute Discrete,Plus
0050 e20d | | Load 0x1,0xd
0051 6066 |`f | Indirect_Literal Discrete,0xb8,{0x00000000, 0x0000ffff}
0052 0279 | y | Execute Discrete,And
0053 0273 | s | Execute Discrete,Plus
0054 0129 | ) | Execute Any,Make_Visible
0055 00e3 | | Load_Encached Natural_Cache
0056 e004 | | Load 0x0,0x4
0057 e217 | | Load 0x1,0x17
0058 0098 | | Execute Package,Field_Read_Dynamic
0059 02a0 | | Declare_Subprogram Null_Subprogram
005a 4802 |H | Short_Literal 0x2
005b 032e | . | Declare_Type Record,Defined,Visible
005c 4800 |H | Short_Literal 0x0
005d e211 | | Load 0x1,0x11
005e 0aff | | Execute_Immediate Plus,-0x1
005f e005 | | Load 0x0,0x5
0060 e217 | | Load 0x1,0x17
0061 0098 | | Execute Package,Field_Read_Dynamic
0062 02a0 | | Declare_Subprogram Null_Subprogram
0063 4801 |H | Short_Literal 0x1
0064 035e | ^ | Declare_Type Array,Defined,Visible
0065 00d8 | | Load_Top At_Offset_0
0066 02a0 | | Declare_Subprogram Null_Subprogram
0067 4801 |H | Short_Literal 0x1
0068 032e | . | Declare_Type Record,Defined,Visible
0069 00bf | | Action Accept_Activation
006a 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call
006c 029d 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call
006e 1d18 | | Execute_Immediate Reference_Lex_1,0x18
006f 00c7 | | Action Elaborate_Subprogram
0070 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0071 00c7 | | Action Elaborate_Subprogram
0072 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0073 00c7 | | Action Elaborate_Subprogram
0074 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0075 00c7 | | Action Elaborate_Subprogram
0076 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0077 00c7 | | Action Elaborate_Subprogram
0078 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0079 00c7 | | Action Elaborate_Subprogram
007a 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
007b 00c7 | | Action Elaborate_Subprogram
007c 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
007d 00c7 | | Action Elaborate_Subprogram
007e 1d20 | | Execute_Immediate Reference_Lex_1,0x20
007f 00c7 | | Action Elaborate_Subprogram
0080 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0081 00c7 | | Action Elaborate_Subprogram
0082 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0083 00c7 | | Action Elaborate_Subprogram
0084 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0085 00c7 | | Action Elaborate_Subprogram
0086 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0087 00c7 | | Action Elaborate_Subprogram
0088 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0089 00c7 | | Action Elaborate_Subprogram
008a 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
008b 00c7 | | Action Elaborate_Subprogram
008c 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
008d 00c7 | | Action Elaborate_Subprogram
008e 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
008f 00c7 | | Action Elaborate_Subprogram
0090 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0091 00c7 | | Action Elaborate_Subprogram
0092 BODY_0008:
0092 00bc | | Action Signal_Activated
0093 00bb | | Action Signal_Completion
0094 0000 0000 | | .BLANK 0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 00cf | | Action Mark_Auxiliary
009c 00db | | Load_Top At_Offset_3
009d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
009e 01dc | | Execute Vector,Last
009f 4800 |H | Short_Literal 0x0
00a0 0263 | c | Execute Discrete,Above_Bound
00a1 700b |p | Jump_Nonzero 0xad
00a2 00d8 | | Load_Top At_Offset_0
00a3 e5ff | | Load 0x2,-0x1
00a4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00a5 01d5 | | Execute Vector,Field_Reference
00a6 00d8 | | Load_Top At_Offset_0
00a7 e006 | | Load 0x0,0x6
00a8 e217 | | Load 0x1,0x17
00a9 0096 | | Execute Package,Entry
00aa 00d2 | | Pop_Control Pop_Count_2
00ab 00c8 | | Action Pop_Auxiliary_Range
00ac 3ff5 |? | Loop_Increasing 0xa2
00ad 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ae 0000 0000 | | .XXX[0x2]
00b0 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00b4 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00b8 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
00bc 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 00cf | | Action Mark_Auxiliary
00c4 00db | | Load_Top At_Offset_3
00c5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00c6 01dc | | Execute Vector,Last
00c7 4800 |H | Short_Literal 0x0
00c8 0263 | c | Execute Discrete,Above_Bound
00c9 700b |p | Jump_Nonzero 0xd5
00ca 00d8 | | Load_Top At_Offset_0
00cb e5ff | | Load 0x2,-0x1
00cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00cd 01d5 | | Execute Vector,Field_Reference
00ce 00d8 | | Load_Top At_Offset_0
00cf e007 | | Load 0x0,0x7
00d0 e217 | | Load 0x1,0x17
00d1 0096 | | Execute Package,Entry
00d2 00d2 | | Pop_Control Pop_Count_2
00d3 00c8 | | Action Pop_Auxiliary_Range
00d4 3ff5 |? | Loop_Increasing 0xca
00d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d6 0000 0000 | | .XXX[0x2]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db e210 | | Load 0x1,0x10
00dc 6810 |h | Jump_Zero 0xed
00dd 00da | | Load_Top At_Offset_2
00de e20e | | Load 0x1,0xe
00df 0119 | | Execute Any,Check_In_Formal_Type
00e0 822f | / | Call 0x1,0x2f
00e1 e5fe | | Load 0x2,-0x2
00e2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00e3 01d5 | | Execute Vector,Field_Reference
00e4 00d8 | | Load_Top At_Offset_0
00e5 e5ff | | Load 0x2,-0x1
00e6 e20e | | Load 0x1,0xe
00e7 0119 | | Execute Any,Check_In_Formal_Type
00e8 e008 | | Load 0x0,0x8
00e9 e217 | | Load 0x1,0x17
00ea 0096 | | Execute Package,Entry
00eb 00d2 | | Pop_Control Pop_Count_2
00ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ed 00da | | Load_Top At_Offset_2
00ee 8212 | | Call 0x1,0x12
00ef e20f | | Load 0x1,0xf
00f0 0119 | | Execute Any,Check_In_Formal_Type
00f1 00db | | Load_Top At_Offset_3
00f2 e20e | | Load 0x1,0xe
00f3 0119 | | Execute Any,Check_In_Formal_Type
00f4 822f | / | Call 0x1,0x2f
00f5 e5fe | | Load 0x2,-0x2
00f6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00f7 01d5 | | Execute Vector,Field_Reference
00f8 e009 | | Load 0x0,0x9
00f9 e217 | | Load 0x1,0x17
00fa 0096 | | Execute Package,Entry
00fb 6801 |h | Jump_Zero 0xfd
00fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00fd 00da | | Load_Top At_Offset_2
00fe e20e | | Load 0x1,0xe
00ff 0119 | | Execute Any,Check_In_Formal_Type
0100 822f | / | Call 0x1,0x2f
0101 e5fe | | Load 0x2,-0x2
0102 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0103 01d5 | | Execute Vector,Field_Reference
0104 00d8 | | Load_Top At_Offset_0
0105 e5ff | | Load 0x2,-0x1
0106 e20e | | Load 0x1,0xe
0107 0119 | | Execute Any,Check_In_Formal_Type
0108 e008 | | Load 0x0,0x8
0109 e217 | | Load 0x1,0x17
010a 0096 | | Execute Package,Entry
010b 00d2 | | Pop_Control Pop_Count_2
010c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
010d 0000 0000 | | .XXX[0x3]
010f 0000 | |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2
0114 e20e | | Load 0x1,0xe
0115 0119 | | Execute Any,Check_In_Formal_Type
0116 822f | / | Call 0x1,0x2f
0117 e5fe | | Load 0x2,-0x2
0118 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0119 01d5 | | Execute Vector,Field_Reference
011a 00d8 | | Load_Top At_Offset_0
011b e5ff | | Load 0x2,-0x1
011c e20e | | Load 0x1,0xe
011d 0119 | | Execute Any,Check_In_Formal_Type
011e e00a | | Load 0x0,0xa
011f e217 | | Load 0x1,0x17
0120 0096 | | Execute Package,Entry
0121 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0122 0000 0000 | | .BLANK 0000[0x6]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 00da | | Load_Top At_Offset_2
012c e20f | | Load 0x1,0xf
012d 0119 | | Execute Any,Check_In_Formal_Type
012e 8230 | 0 | Call 0x1,0x30
012f e5fe | | Load 0x2,-0x2
0130 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0131 01d5 | | Execute Vector,Field_Reference
0132 00d8 | | Load_Top At_Offset_0
0133 e5ff | | Load 0x2,-0x1
0134 e20f | | Load 0x1,0xf
0135 0119 | | Execute Any,Check_In_Formal_Type
0136 e00b | | Load 0x0,0xb
0137 e217 | | Load 0x1,0x17
0138 0096 | | Execute Package,Entry
0139 4502 |E | Exit_Suprogram New_Top_Offset 0x2
013a 0000 0000 | | .BLANK 0000[0x6]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 e5fd | | Load 0x2,-0x3
0144 00db | | Load_Top At_Offset_3
0145 e20e | | Load 0x1,0xe
0146 0119 | | Execute Any,Check_In_Formal_Type
0147 821b | | Call 0x1,0x1b
0148 00d1 | | Pop_Control Pop_Count_1
0149 e5fd | | Load 0x2,-0x3
014a e5fe | | Load 0x2,-0x2
014b e20e | | Load 0x1,0xe
014c 0119 | | Execute Any,Check_In_Formal_Type
014d 821a | | Call 0x1,0x1a
014e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
014f 0000 | | .XXX[0x1]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00da | | Load_Top At_Offset_2
0154 e20e | | Load 0x1,0xe
0155 0119 | | Execute Any,Check_In_Formal_Type
0156 822f | / | Call 0x1,0x2f
0157 e5fe | | Load 0x2,-0x2
0158 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0159 01d5 | | Execute Vector,Field_Reference
015a 00d8 | | Load_Top At_Offset_0
015b e5ff | | Load 0x2,-0x1
015c e20e | | Load 0x1,0xe
015d 0119 | | Execute Any,Check_In_Formal_Type
015e e00c | | Load 0x0,0xc
015f e217 | | Load 0x1,0x17
0160 0096 | | Execute Package,Entry
0161 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0162 0000 0000 | | .BLANK 0000[0x6]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00db | | Load_Top At_Offset_3
016c e20e | | Load 0x1,0xe
016d 0119 | | Execute Any,Check_In_Formal_Type
016e e5fe | | Load 0x2,-0x2
016f e20e | | Load 0x1,0xe
0170 0119 | | Execute Any,Check_In_Formal_Type
0171 822f | / | Call 0x1,0x2f
0172 e5ff | | Load 0x2,-0x1
0173 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0174 01d5 | | Execute Vector,Field_Reference
0175 e00d | | Load 0x0,0xd
0176 e217 | | Load 0x1,0x17
0177 0096 | | Execute Package,Entry
0178 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0179 0000 0000 | | .BLANK 0000[0x7]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00db | | Load_Top At_Offset_3
0184 e20f | | Load 0x1,0xf
0185 0119 | | Execute Any,Check_In_Formal_Type
0186 e5fe | | Load 0x2,-0x2
0187 e20f | | Load 0x1,0xf
0188 0119 | | Execute Any,Check_In_Formal_Type
0189 8230 | 0 | Call 0x1,0x30
018a e5ff | | Load 0x2,-0x1
018b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
018c 01d5 | | Execute Vector,Field_Reference
018d e009 | | Load 0x0,0x9
018e e217 | | Load 0x1,0x17
018f 0096 | | Execute Package,Entry
0190 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0191 0000 0000 | | .BLANK 0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 01ab | | .CONST 0x01ab ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00db | | Load_Top At_Offset_3
019c e20f | | Load 0x1,0xf
019d 0119 | | Execute Any,Check_In_Formal_Type
019e e5fe | | Load 0x2,-0x2
019f e20f | | Load 0x1,0xf
01a0 0119 | | Execute Any,Check_In_Formal_Type
01a1 8230 | 0 | Call 0x1,0x30
01a2 e5ff | | Load 0x2,-0x1
01a3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01a4 01d5 | | Execute Vector,Field_Reference
01a5 e00e | | Load 0x0,0xe
01a6 e217 | | Load 0x1,0x17
01a7 0096 | | Execute Package,Entry
01a8 e20e | | Load 0x1,0xe
01a9 0119 | | Execute Any,Check_In_Formal_Type
01aa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ab TRAP_0198:
01ab e00f | | Load 0x0,0xf
01ac e217 | | Load 0x1,0x17
01ad 0098 | | Execute Package,Field_Read_Dynamic
01ae 010f | | Execute Exception,Equal
01af 6802 |h | Jump_Zero 0x1b2
01b0 e22b | + | Load 0x1,0x2b
01b1 0257 | W | Execute Discrete,Raise
01b2 0100 | | Execute Exception,Raise
01b3 0000 0000 | | .BLANK 0000[0x5]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01c0 | | .CONST 0x01c0 ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0003 | | .CONST 0x0003 ; Number of locals
01bb INIT_01b8:
01bb 00e3 | | Load_Encached Natural_Cache
01bc e004 | | Load 0x0,0x4
01bd e217 | | Load 0x1,0x17
01be 0098 | | Execute Package,Field_Read_Dynamic
01bf 0007 | | Action Break_Optional
01c0 BODY_01b8:
01c0 4800 |H | Short_Literal 0x0
01c1 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01c2 00d9 | | Load_Top At_Offset_1
01c3 e5ff | | Load 0x2,-0x1
01c4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01c5 01d5 | | Execute Vector,Field_Reference
01c6 e010 | | Load 0x0,0x10
01c7 e217 | | Load 0x1,0x17
01c8 0096 | | Execute Package,Entry
01c9 0039 | 9 | Store_Top Access,At_Offset_1
01ca 00cf | | Action Mark_Auxiliary
01cb 780c |x | Jump 0x1d8
01cc 00da | | Load_Top At_Offset_2
01cd 0a01 | | Execute_Immediate Plus,0x1
01ce 005b | [ | Store_Top Discrete,At_Offset_3
01cf 00da | | Load_Top At_Offset_2
01d0 e5ff | | Load 0x2,-0x1
01d1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01d2 01d5 | | Execute Vector,Field_Reference
01d3 e010 | | Load 0x0,0x10
01d4 e217 | | Load 0x1,0x17
01d5 0096 | | Execute Package,Entry
01d6 003a | : | Store_Top Access,At_Offset_2
01d7 00c9 | | Action Pop_Auxiliary_Loop
01d8 00da | | Load_Top At_Offset_2
01d9 e5ff | | Load 0x2,-0x1
01da 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01db 01dc | | Execute Vector,Last
01dc 027c | | | Execute Discrete,Less
01dd 6809 |h | Jump_Zero 0x1e7
01de 00d9 | | Load_Top At_Offset_1
01df 00db | | Load_Top At_Offset_3
01e0 e5ff | | Load 0x2,-0x1
01e1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01e2 01d5 | | Execute Vector,Field_Reference
01e3 e011 | | Load 0x0,0x11
01e4 e217 | | Load 0x1,0x17
01e5 0096 | | Execute Package,Entry
01e6 77e5 |w | Jump_Nonzero 0x1cc
01e7 00ce | | Action Pop_Auxiliary
01e8 00d9 | | Load_Top At_Offset_1
01e9 e5ff | | Load 0x2,-0x1
01ea 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01eb 01dc | | Execute Vector,Last
01ec 027f | | Execute Discrete,Equal
01ed 00d9 | | Load_Top At_Offset_1
01ee 00db | | Load_Top At_Offset_3
01ef e5ff | | Load 0x2,-0x1
01f0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01f1 01d5 | | Execute Vector,Field_Reference
01f2 e011 | | Load 0x0,0x11
01f3 e217 | | Load 0x1,0x17
01f4 0096 | | Execute Package,Entry
01f5 0279 | y | Execute Discrete,And
01f6 680a |h | Jump_Zero 0x201
01f7 e22c | , | Load 0x1,0x2c
01f8 0322 | " | Declare_Variable Record
01f9 00da | | Load_Top At_Offset_2
01fa 0a01 | | Execute_Immediate Plus,0x1
01fb 00d9 | | Load_Top At_Offset_1
01fc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01fd 00d9 | | Load_Top At_Offset_1
01fe 00d9 | | Load_Top At_Offset_1
01ff 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0200 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0201 e22c | , | Load 0x1,0x2c
0202 0322 | " | Declare_Variable Record
0203 00da | | Load_Top At_Offset_2
0204 00d9 | | Load_Top At_Offset_1
0205 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0206 00d9 | | Load_Top At_Offset_1
0207 00d9 | | Load_Top At_Offset_1
0208 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0209 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020a 0000 0000 | | .BLANK 0000[0x6]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0218 | | .CONST 0x0218 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0003 | | .CONST 0x0003 ; Number of locals
0213 INIT_0210:
0213 00e3 | | Load_Encached Natural_Cache
0214 e004 | | Load 0x0,0x4
0215 e217 | | Load 0x1,0x17
0216 0098 | | Execute Package,Field_Read_Dynamic
0217 0007 | | Action Break_Optional
0218 BODY_0210:
0218 e5fe | | Load 0x2,-0x2
0219 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
021a e5fe | | Load 0x2,-0x2
021b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
021c e5ff | | Load 0x2,-0x1
021d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
021e 01d5 | | Execute Vector,Field_Reference
021f e011 | | Load 0x0,0x11
0220 e217 | | Load 0x1,0x17
0221 0096 | | Execute Package,Entry
0222 685f |h_ | Jump_Zero 0x282
0223 e5fe | | Load 0x2,-0x2
0224 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0225 e5ff | | Load 0x2,-0x1
0226 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0227 01dc | | Execute Vector,Last
0228 027f | | Execute Discrete,Equal
0229 680c |h | Jump_Zero 0x236
022a e22c | , | Load 0x1,0x2c
022b 0322 | " | Declare_Variable Record
022c e5fe | | Load 0x2,-0x2
022d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
022e 0a01 | | Execute_Immediate Plus,0x1
022f 00d9 | | Load_Top At_Offset_1
0230 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0231 e5fe | | Load 0x2,-0x2
0232 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0233 00d9 | | Load_Top At_Offset_1
0234 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0235 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0236 e5fe | | Load 0x2,-0x2
0237 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0238 0a01 | | Execute_Immediate Plus,0x1
0239 005a | Z | Store_Top Discrete,At_Offset_2
023a 00d9 | | Load_Top At_Offset_1
023b e5ff | | Load 0x2,-0x1
023c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
023d 01d5 | | Execute Vector,Field_Reference
023e e010 | | Load 0x0,0x10
023f e217 | | Load 0x1,0x17
0240 0096 | | Execute Package,Entry
0241 0039 | 9 | Store_Top Access,At_Offset_1
0242 00cf | | Action Mark_Auxiliary
0243 780c |x | Jump 0x250
0244 00da | | Load_Top At_Offset_2
0245 0a01 | | Execute_Immediate Plus,0x1
0246 005b | [ | Store_Top Discrete,At_Offset_3
0247 00da | | Load_Top At_Offset_2
0248 e5ff | | Load 0x2,-0x1
0249 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
024a 01d5 | | Execute Vector,Field_Reference
024b e010 | | Load 0x0,0x10
024c e217 | | Load 0x1,0x17
024d 0096 | | Execute Package,Entry
024e 003a | : | Store_Top Access,At_Offset_2
024f 00c9 | | Action Pop_Auxiliary_Loop
0250 00da | | Load_Top At_Offset_2
0251 e5ff | | Load 0x2,-0x1
0252 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0253 01dc | | Execute Vector,Last
0254 027c | | | Execute Discrete,Less
0255 6809 |h | Jump_Zero 0x25f
0256 00d9 | | Load_Top At_Offset_1
0257 00db | | Load_Top At_Offset_3
0258 e5ff | | Load 0x2,-0x1
0259 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
025a 01d5 | | Execute Vector,Field_Reference
025b e011 | | Load 0x0,0x11
025c e217 | | Load 0x1,0x17
025d 0096 | | Execute Package,Entry
025e 77e5 |w | Jump_Nonzero 0x244
025f 00ce | | Action Pop_Auxiliary
0260 00d9 | | Load_Top At_Offset_1
0261 e5ff | | Load 0x2,-0x1
0262 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0263 01dc | | Execute Vector,Last
0264 027f | | Execute Discrete,Equal
0265 00d9 | | Load_Top At_Offset_1
0266 00db | | Load_Top At_Offset_3
0267 e5ff | | Load 0x2,-0x1
0268 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0269 01d5 | | Execute Vector,Field_Reference
026a e011 | | Load 0x0,0x11
026b e217 | | Load 0x1,0x17
026c 0096 | | Execute Package,Entry
026d 0279 | y | Execute Discrete,And
026e 680a |h | Jump_Zero 0x279
026f e22c | , | Load 0x1,0x2c
0270 0322 | " | Declare_Variable Record
0271 00da | | Load_Top At_Offset_2
0272 0a01 | | Execute_Immediate Plus,0x1
0273 00d9 | | Load_Top At_Offset_1
0274 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0275 00d9 | | Load_Top At_Offset_1
0276 00d9 | | Load_Top At_Offset_1
0277 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0278 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0279 e22c | , | Load 0x1,0x2c
027a 0322 | " | Declare_Variable Record
027b 00da | | Load_Top At_Offset_2
027c 00d9 | | Load_Top At_Offset_1
027d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
027e 00d9 | | Load_Top At_Offset_1
027f 00d9 | | Load_Top At_Offset_1
0280 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0281 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0282 e5fe | | Load 0x2,-0x2
0283 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0284 e5fe | | Load 0x2,-0x2
0285 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0286 e5ff | | Load 0x2,-0x1
0287 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0288 01d5 | | Execute Vector,Field_Reference
0289 e012 | | Load 0x0,0x12
028a e217 | | Load 0x1,0x17
028b 0096 | | Execute Package,Entry
028c 0039 | 9 | Store_Top Access,At_Offset_1
028d 00d8 | | Load_Top At_Offset_0
028e e5fe | | Load 0x2,-0x2
028f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0290 e5ff | | Load 0x2,-0x1
0291 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0292 01d5 | | Execute Vector,Field_Reference
0293 e011 | | Load 0x0,0x11
0294 e217 | | Load 0x1,0x17
0295 0096 | | Execute Package,Entry
0296 680c |h | Jump_Zero 0x2a3
0297 e22c | , | Load 0x1,0x2c
0298 0322 | " | Declare_Variable Record
0299 e5fe | | Load 0x2,-0x2
029a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
029b 00d9 | | Load_Top At_Offset_1
029c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
029d 00d9 | | Load_Top At_Offset_1
029e 00d9 | | Load_Top At_Offset_1
029f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02a0 e5ff | | Load 0x2,-0x1
02a1 8223 | # | Call 0x1,0x23
02a2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02a3 e22c | , | Load 0x1,0x2c
02a4 0322 | " | Declare_Variable Record
02a5 e5fe | | Load 0x2,-0x2
02a6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02a7 00d9 | | Load_Top At_Offset_1
02a8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02a9 00d9 | | Load_Top At_Offset_1
02aa 00d9 | | Load_Top At_Offset_1
02ab 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02ad 0000 0000 | | .XXX[0x3]
02af 0000 | |
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 00db | | Load_Top At_Offset_3
02b4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02b5 e5fe | | Load 0x2,-0x2
02b6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02b7 e5ff | | Load 0x2,-0x1
02b8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02b9 01d5 | | Execute Vector,Field_Reference
02ba e013 | | Load 0x0,0x13
02bb e217 | | Load 0x1,0x17
02bc 0096 | | Execute Package,Entry
02bd e20e | | Load 0x1,0xe
02be 0119 | | Execute Any,Check_In_Formal_Type
02bf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 00db | | Load_Top At_Offset_3
02c4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02c5 00db | | Load_Top At_Offset_3
02c6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02c7 01dc | | Execute Vector,Last
02c8 027d | } | Execute Discrete,Greater
02c9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02ca 0000 0000 | | .BLANK 0000[0x6]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 e22c | , | Load 0x1,0x2c
02d4 0322 | " | Declare_Variable Record
02d5 e5fe | | Load 0x2,-0x2
02d6 e20f | | Load 0x1,0xf
02d7 0119 | | Execute Any,Check_In_Formal_Type
02d8 8230 | 0 | Call 0x1,0x30
02d9 00d9 | | Load_Top At_Offset_1
02da 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02db e5fe | | Load 0x2,-0x2
02dc e20f | | Load 0x1,0xf
02dd 0119 | | Execute Any,Check_In_Formal_Type
02de e5fe | | Load 0x2,-0x2
02df e20f | | Load 0x1,0xf
02e0 0119 | | Execute Any,Check_In_Formal_Type
02e1 8230 | 0 | Call 0x1,0x30
02e2 e5ff | | Load 0x2,-0x1
02e3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02e4 01d5 | | Execute Vector,Field_Reference
02e5 e014 | | Load 0x0,0x14
02e6 e217 | | Load 0x1,0x17
02e7 0096 | | Execute Package,Entry
02e8 00d9 | | Load_Top At_Offset_1
02e9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02eb 0000 0000 | | .BLANK 0000[0x5]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 e22c | , | Load 0x1,0x2c
02f4 0322 | " | Declare_Variable Record
02f5 e5fd | | Load 0x2,-0x3
02f6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02f7 00d9 | | Load_Top At_Offset_1
02f8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02f9 e5fd | | Load 0x2,-0x3
02fa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02fb e5fe | | Load 0x2,-0x2
02fc e20f | | Load 0x1,0xf
02fd 0119 | | Execute Any,Check_In_Formal_Type
02fe e5fd | | Load 0x2,-0x3
02ff 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0300 e5ff | | Load 0x2,-0x1
0301 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0302 01d5 | | Execute Vector,Field_Reference
0303 e015 | | Load 0x0,0x15
0304 e217 | | Load 0x1,0x17
0305 0096 | | Execute Package,Entry
0306 00d9 | | Load_Top At_Offset_1
0307 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0308 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0309 0000 0000 | | .BLANK 0000[0x7]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 e5fd | | Load 0x2,-0x3
0314 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0315 e5fe | | Load 0x2,-0x2
0316 e20f | | Load 0x1,0xf
0317 0119 | | Execute Any,Check_In_Formal_Type
0318 e5fd | | Load 0x2,-0x3
0319 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
031a e5ff | | Load 0x2,-0x1
031b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
031c 01d5 | | Execute Vector,Field_Reference
031d e016 | | Load 0x0,0x16
031e e217 | | Load 0x1,0x17
031f 0096 | | Execute Package,Entry
0320 e20e | | Load 0x1,0xe
0321 0119 | | Execute Any,Check_In_Formal_Type
0322 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0323 0000 0000 | | .BLANK 0000[0x5]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b e5fd | | Load 0x2,-0x3
032c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
032d e5fe | | Load 0x2,-0x2
032e e20f | | Load 0x1,0xf
032f 0119 | | Execute Any,Check_In_Formal_Type
0330 e5fd | | Load 0x2,-0x3
0331 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0332 e5ff | | Load 0x2,-0x1
0333 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0334 01d5 | | Execute Vector,Field_Reference
0335 e017 | | Load 0x0,0x17
0336 e217 | | Load 0x1,0x17
0337 0096 | | Execute Package,Entry
0338 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0339 0000 0000 | | .BLANK 0000[0x7]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 00da | | Load_Top At_Offset_2
0344 8212 | | Call 0x1,0x12
0345 8213 | | Call 0x1,0x13
0346 e211 | | Load 0x1,0x11
0347 026e | n | Execute Discrete,Modulo
0348 00d8 | | Load_Top At_Offset_0
0349 00e3 | | Load_Encached Natural_Cache
034a 0260 | ` | Execute Discrete,In_Type
034b 7001 |p | Jump_Nonzero 0x34d
034c 0801 | | Execute_Immediate Raise,0x1
034d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
034e 0000 0000 | | .XXX[0x2]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 00da | | Load_Top At_Offset_2
0354 8213 | | Call 0x1,0x13
0355 e211 | | Load 0x1,0x11
0356 026e | n | Execute Discrete,Modulo
0357 00d8 | | Load_Top At_Offset_0
0358 00e3 | | Load_Encached Natural_Cache
0359 0260 | ` | Execute Discrete,In_Type
035a 7001 |p | Jump_Nonzero 0x35c
035b 0801 | | Execute_Immediate Raise,0x1
035c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
035d 0000 0000 | | .XXX[0x3]
035f 0000 | |
0360 ; --------------------------------------------------------------------------------------
0360 ; Debug Table
0360 ; --------------------------------------------------------------------------------------
0360 0004 0002 | | .DEBUG4 0x0004,0x0002,0xca61,0x0000,0x0001,0x0000
0366 0000 0000 | | .BLANK 0000[0x9a]