|
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_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0250 | P | .CONST 0x0250 ; 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 0080 | | .CONST 0x0080 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002b | + | .CONST 0x002b ; Number of locals
000b INIT_0008:
000b 4818 |H | Short_Literal 0x18
000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
000d 4818 |H | Short_Literal 0x18
000e 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
000f e001 | | Load 0x0,0x1
0010 0129 | ) | Execute Any,Make_Visible
0011 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0013 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0015 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0017 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0019 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
001b 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
001d 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
001f 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0021 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0023 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0025 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0027 4803 |H | Short_Literal 0x3
0028 032b | + | Declare_Type Record,Incomplete,Visible
0029 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
002b 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
002d 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
002f 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
0031 4801 |H | Short_Literal 0x1
0032 034b | K | Declare_Type Array,Incomplete,Bounds_With_Object
0033 00d8 | | Load_Top At_Offset_0
0034 02a0 | | Declare_Subprogram Null_Subprogram
0035 e20e | | Load 0x1,0xe
0036 03c7 | | Complete_Type Access,By_Defining
0037 00e9 | | Load_Encached String_Cache
0038 02a0 | | Declare_Subprogram Null_Subprogram
0039 e20d | | Load 0x1,0xd
003a 03c7 | | Complete_Type Access,By_Defining
003b 4802 |H | Short_Literal 0x2
003c 032a | * | Declare_Type Record,Incomplete
003d 00d8 | | Load_Top At_Offset_0
003e 02a0 | | Declare_Subprogram Null_Subprogram
003f 4818 |H | Short_Literal 0x18
0040 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0041 00d8 | | Load_Top At_Offset_0
0042 0007 | | Action Break_Optional
0043 00e2 | | Load_Encached Integer_Cache
0044 e20e | | Load 0x1,0xe
0045 00d9 | | Load_Top At_Offset_1
0046 e222 | " | Load 0x1,0x22
0047 02a0 | | Declare_Subprogram Null_Subprogram
0048 e21b | | Load 0x1,0x1b
0049 0326 | & | Complete_Type Record,By_Defining
004a 00bf | | Action Accept_Activation
004b a002 | | Store_Unchecked 0x0,0x2
004c 00c6 | | Action Check_Subprogram_Elaborated
004d e20d | | Load 0x1,0xd
004e 00e2 | | Load_Encached Integer_Cache
004f e003 | | Load 0x0,0x3
0050 e004 | | Load 0x0,0x4
0051 4800 |H | Short_Literal 0x0
0052 0007 | | Action Break_Optional
0053 e20d | | Load 0x1,0xd
0054 e223 | # | Load 0x1,0x23
0055 02a0 | | Declare_Subprogram Null_Subprogram
0056 e221 | ! | Load 0x1,0x21
0057 0326 | & | Complete_Type Record,By_Defining
0058 e224 | $ | Load 0x1,0x24
0059 0266 | f | Execute Discrete,Bounds
005a e223 | # | Load 0x1,0x23
005b 02a0 | | Declare_Subprogram Null_Subprogram
005c e220 | | Load 0x1,0x20
005d 0343 | C | Complete_Type Array,By_Defining
005e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
005f 00c7 | | Action Elaborate_Subprogram
0060 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call
0062 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0063 00c7 | | Action Elaborate_Subprogram
0064 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0065 00c7 | | Action Elaborate_Subprogram
0066 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0067 00c7 | | Action Elaborate_Subprogram
0068 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0069 00c7 | | Action Elaborate_Subprogram
006a 1d15 | | Execute_Immediate Reference_Lex_1,0x15
006b 00c7 | | Action Elaborate_Subprogram
006c 1d16 | | Execute_Immediate Reference_Lex_1,0x16
006d 00c7 | | Action Elaborate_Subprogram
006e 1d17 | | Execute_Immediate Reference_Lex_1,0x17
006f 00c7 | | Action Elaborate_Subprogram
0070 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0071 00c7 | | Action Elaborate_Subprogram
0072 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0073 00c7 | | Action Elaborate_Subprogram
0074 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0075 00c7 | | Action Elaborate_Subprogram
0076 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call
0078 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0079 00c7 | | Action Elaborate_Subprogram
007a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
007b 00c7 | | Action Elaborate_Subprogram
007c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
007d 00c7 | | Action Elaborate_Subprogram
007e 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
007f 00c7 | | Action Elaborate_Subprogram
0080 BODY_0008:
0080 00bc | | Action Signal_Activated
0081 00bb | | Action Signal_Completion
0082 0000 0000 | | .BLANK 0000[0x6]
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 4800 |H | Short_Literal 0x0
008c 00db | | Load_Top At_Offset_3
008d e20e | | Load 0x1,0xe
008e 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
008f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 e20d | | Load 0x1,0xd
0094 00ca | | Action Exit_Nullary_Function
0095 0000 0000 | | .XXX[0x3]
0097 0000 | |
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00ac | | .CONST 0x00ac ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0004 | | .CONST 0x0004 ; Number of locals
009b INIT_0098:
009b 00db | | Load_Top At_Offset_3
009c 0227 | ' | Execute Access,All_Reference
009d 01db | | Execute Vector,Length
009e 00d8 | | Load_Top At_Offset_0
009f 00e4 | | Load_Encached Positive_Cache
00a0 0260 | ` | Execute Discrete,In_Type
00a1 7001 |p | Jump_Nonzero 0xa3
00a2 0801 | | Execute_Immediate Raise,0x1
00a3 00db | | Load_Top At_Offset_3
00a4 822a | * | Call 0x1,0x2a
00a5 e5fe | | Load 0x2,-0x2
00a6 0227 | ' | Execute Access,All_Reference
00a7 01d5 | | Execute Vector,Field_Reference
00a8 0007 | | Action Break_Optional
00a9 00d8 | | Load_Top At_Offset_0
00aa 029f 0213 | | Declare_Subprogram INIT_0210,For_Call
00ac BODY_0098:
00ac e5ff | | Load 0x2,-0x1
00ad 01db | | Execute Vector,Length
00ae 7002 |p | Jump_Nonzero 0xb1
00af e20d | | Load 0x1,0xd
00b0 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00b1 e5fd | | Load 0x2,-0x3
00b2 6802 |h | Jump_Zero 0xb5
00b3 8404 | | Call 0x2,0x4
00b4 7815 |x | Jump 0xca
00b5 00cf | | Action Mark_Auxiliary
00b6 7810 |x | Jump 0xc7
00b7 00da | | Load_Top At_Offset_2
00b8 0227 | ' | Execute Access,All_Reference
00b9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ba 0227 | ' | Execute Access,All_Reference
00bb e5ff | | Load 0x2,-0x1
00bc 01df | | Execute Vector,Equal
00bd 6804 |h | Jump_Zero 0xc2
00be 00da | | Load_Top At_Offset_2
00bf 0227 | ' | Execute Access,All_Reference
00c0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00c1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00c2 00da | | Load_Top At_Offset_2
00c3 0227 | ' | Execute Access,All_Reference
00c4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00c5 003b | ; | Store_Top Access,At_Offset_3
00c6 00c9 | | Action Pop_Auxiliary_Loop
00c7 00da | | Load_Top At_Offset_2
00c8 77ee |w | Jump_Nonzero 0xb7
00c9 00ce | | Action Pop_Auxiliary
00ca e222 | " | Load 0x1,0x22
00cb 03bc | | Declare_Variable Access,By_Allocation
00cc 003a | : | Store_Top Access,At_Offset_2
00cd e5ff | | Load 0x2,-0x1
00ce e20d | | Load 0x1,0xd
00cf 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00d0 00da | | Load_Top At_Offset_2
00d1 0227 | ' | Execute Access,All_Reference
00d2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00d3 00da | | Load_Top At_Offset_2
00d4 00da | | Load_Top At_Offset_2
00d5 0227 | ' | Execute Access,All_Reference
00d6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00d7 00d9 | | Load_Top At_Offset_1
00d8 a402 | | Store_Unchecked 0x2,0x2
00d9 00d9 | | Load_Top At_Offset_1
00da 0227 | ' | Execute Access,All_Reference
00db 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00dc 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00f2 | | .CONST 0x00f2 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0003 | | .CONST 0x0003 ; Number of locals
00e3 INIT_00e0:
00e3 00db | | Load_Top At_Offset_3
00e4 0227 | ' | Execute Access,All_Reference
00e5 01db | | Execute Vector,Length
00e6 00d8 | | Load_Top At_Offset_0
00e7 00e4 | | Load_Encached Positive_Cache
00e8 0260 | ` | Execute Discrete,In_Type
00e9 7001 |p | Jump_Nonzero 0xeb
00ea 0801 | | Execute_Immediate Raise,0x1
00eb 00db | | Load_Top At_Offset_3
00ec 822a | * | Call 0x1,0x2a
00ed e5fe | | Load 0x2,-0x2
00ee 0227 | ' | Execute Access,All_Reference
00ef 01d7 | | Execute Vector,Field_Read
00f0 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call
00f2 BODY_00e0:
00f2 e5ff | | Load 0x2,-0x1
00f3 01db | | Execute Vector,Length
00f4 7002 |p | Jump_Nonzero 0xf7
00f5 e20d | | Load 0x1,0xd
00f6 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00f7 e5fd | | Load 0x2,-0x3
00f8 6802 |h | Jump_Zero 0xfb
00f9 8403 | | Call 0x2,0x3
00fa 7815 |x | Jump 0x110
00fb 00cf | | Action Mark_Auxiliary
00fc 7810 |x | Jump 0x10d
00fd 00da | | Load_Top At_Offset_2
00fe 0227 | ' | Execute Access,All_Reference
00ff 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0100 0227 | ' | Execute Access,All_Reference
0101 e5ff | | Load 0x2,-0x1
0102 01df | | Execute Vector,Equal
0103 6804 |h | Jump_Zero 0x108
0104 00da | | Load_Top At_Offset_2
0105 0227 | ' | Execute Access,All_Reference
0106 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0107 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0108 00da | | Load_Top At_Offset_2
0109 0227 | ' | Execute Access,All_Reference
010a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
010b 003b | ; | Store_Top Access,At_Offset_3
010c 00c9 | | Action Pop_Auxiliary_Loop
010d 00da | | Load_Top At_Offset_2
010e 77ee |w | Jump_Nonzero 0xfd
010f 00ce | | Action Pop_Auxiliary
0110 e20d | | Load 0x1,0xd
0111 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0112 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2
011c 01db | | Execute Vector,Length
011d 0c01 | | Execute_Immediate Greater_Equal,0x1
011e 6804 |h | Jump_Zero 0x123
011f 00da | | Load_Top At_Offset_2
0120 e20d | | Load 0x1,0xd
0121 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0122 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0123 8211 | | Call 0x1,0x11
0124 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0125 0000 0000 | | .XXX[0x3]
0127 0000 | |
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 e5fe | | Load 0x2,-0x2
012d 022f | / | Execute Access,Equal
012e 7010 |p | Jump_Nonzero 0x13f
012f 00da | | Load_Top At_Offset_2
0130 8211 | | Call 0x1,0x11
0131 022e | . | Execute Access,Not_Equal
0132 680a |h | Jump_Zero 0x13d
0133 00db | | Load_Top At_Offset_3
0134 8211 | | Call 0x1,0x11
0135 022e | . | Execute Access,Not_Equal
0136 6806 |h | Jump_Zero 0x13d
0137 00da | | Load_Top At_Offset_2
0138 0227 | ' | Execute Access,All_Reference
0139 e5fe | | Load 0x2,-0x2
013a 0227 | ' | Execute Access,All_Reference
013b 01df | | Execute Vector,Equal
013c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
013d 4800 |H | Short_Literal 0x0
013e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
013f 4801 |H | Short_Literal 0x1
0140 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0141 0000 0000 | | .BLANK 0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2
014c e225 | % | Load 0x1,0x25
014d e226 | & | Load 0x1,0x26
014e 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
014f 8002 | | Call 0x0,0x2
0150 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0151 0000 0000 | | .BLANK 0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00db | | Load_Top At_Offset_3
015c 0aff | | Execute_Immediate Plus,-0x1
015d 00db | | Load_Top At_Offset_3
015e 0227 | ' | Execute Access,All_Reference
015f 01dd | | Execute Vector,First
0160 0273 | s | Execute Discrete,Plus
0161 00db | | Load_Top At_Offset_3
0162 0227 | ' | Execute Access,All_Reference
0163 01d7 | | Execute Vector,Field_Read
0164 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0165 0000 0000 | | .XXX[0x3]
0167 0000 | |
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 00da | | Load_Top At_Offset_2
016c 8211 | | Call 0x1,0x11
016d 022f | / | Execute Access,Equal
016e 6802 |h | Jump_Zero 0x171
016f 00ea | | Load_Encached Null_String_Cache
0170 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0171 00da | | Load_Top At_Offset_2
0172 0227 | ' | Execute Access,All_Reference
0173 0335 | 5 | Declare_Variable Array,Duplicate
0174 00cd | | Action Spare6_Action
0175 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0176 0000 0000 | | .XXX[0x2]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c 8211 | | Call 0x1,0x11
017d 022f | / | Execute Access,Equal
017e 6802 |h | Jump_Zero 0x181
017f 4800 |H | Short_Literal 0x0
0180 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0181 00da | | Load_Top At_Offset_2
0182 0227 | ' | Execute Access,All_Reference
0183 01db | | Execute Vector,Length
0184 00d8 | | Load_Top At_Offset_0
0185 00e3 | | Load_Encached Natural_Cache
0186 0260 | ` | Execute Discrete,In_Type
0187 7001 |p | Jump_Nonzero 0x189
0188 0801 | | Execute_Immediate Raise,0x1
0189 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018a 0000 0000 | | .BLANK 0000[0x6]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00da | | Load_Top At_Offset_2
0194 8211 | | Call 0x1,0x11
0195 022f | / | Execute Access,Equal
0196 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0197 0000 | | .XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019d | | .CONST 0x019d ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b e21b | | Load 0x1,0x1b
019c 0322 | " | Declare_Variable Record
019d BODY_0198:
019d 00db | | Load_Top At_Offset_3
019e 00d9 | | Load_Top At_Offset_1
019f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01a0 4800 |H | Short_Literal 0x0
01a1 00d9 | | Load_Top At_Offset_1
01a2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01a3 00d8 | | Load_Top At_Offset_0
01a4 822b | + | Call 0x1,0x2b
01a5 00d1 | | Pop_Control Pop_Count_1
01a6 00d8 | | Load_Top At_Offset_0
01a7 e5fe | | Load 0x2,-0x2
01a8 017d | } | Execute Record,Structure_Write
01a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01aa 0000 0000 | | .BLANK 0000[0x6]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00da | | Load_Top At_Offset_2
01b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01b5 0227 | ' | Execute Access,All_Reference
01b6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01b7 00db | | Load_Top At_Offset_3
01b8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01b9 00da | | Load_Top At_Offset_2
01ba 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01bb 7010 |p | Jump_Nonzero 0x1cc
01bc 00da | | Load_Top At_Offset_2
01bd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01be 00db | | Load_Top At_Offset_3
01bf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01c0 0227 | ' | Execute Access,All_Reference
01c1 01dc | | Execute Vector,Last
01c2 027e | ~ | Execute Discrete,Not_Equal
01c3 6808 |h | Jump_Zero 0x1cc
01c4 00da | | Load_Top At_Offset_2
01c5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01c6 0a01 | | Execute_Immediate Plus,0x1
01c7 00db | | Load_Top At_Offset_3
01c8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01c9 00da | | Load_Top At_Offset_2
01ca 822b | + | Call 0x1,0x2b
01cb 00d1 | | Pop_Control Pop_Count_1
01cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01cd 0000 0000 | | .XXX[0x3]
01cf 0000 | |
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 00da | | Load_Top At_Offset_2
01d4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01d5 0227 | ' | Execute Access,All_Reference
01d6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00da | | Load_Top At_Offset_2
01dc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01dd 022d | - | Execute Access,Is_Null
01de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01df 0000 | | .XXX[0x1]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 e005 | | Load 0x0,0x5
01e5 180d | | Execute Package,Field_Execute,Field_Number 0xd
01e6 e5fe | | Load 0x2,-0x2
01e7 026e | n | Execute Discrete,Modulo
01e8 0274 | t | Execute Discrete,Absolute_Value
01e9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ea 0000 0000 | | .BLANK 0000[0x6]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 00cf | | Action Mark_Auxiliary
01f4 00db | | Load_Top At_Offset_3
01f5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01f6 e5ff | | Load 0x2,-0x1
01f7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01f8 0227 | ' | Execute Access,All_Reference
01f9 01d7 | | Execute Vector,Field_Read
01fa e5ff | | Load 0x2,-0x1
01fb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01fc 00db | | Load_Top At_Offset_3
01fd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01fe 700f |p | Jump_Nonzero 0x20e
01ff 00db | | Load_Top At_Offset_3
0200 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0201 e5ff | | Load 0x2,-0x1
0202 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0203 0227 | ' | Execute Access,All_Reference
0204 01dc | | Execute Vector,Last
0205 027f | | Execute Discrete,Equal
0206 7007 |p | Jump_Nonzero 0x20e
0207 00db | | Load_Top At_Offset_3
0208 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0209 0a01 | | Execute_Immediate Plus,0x1
020a e5ff | | Load 0x2,-0x1
020b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
020c 00c9 | | Action Pop_Auxiliary_Loop
020d 7fe6 | | Jump 0x1f4
020e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
020f 0000 | | .XXX[0x1]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0216 | | .CONST 0x0216 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0002 | | .CONST 0x0002 ; Number of locals
0213 INIT_0210:
0213 e5ff | | Load 0x2,-0x1
0214 e005 | | Load 0x0,0x5
0215 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0216 BODY_0210:
0216 00cf | | Action Mark_Auxiliary
0217 7813 |x | Jump 0x22b
0218 e403 | | Load 0x2,0x3
0219 0227 | ' | Execute Access,All_Reference
021a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
021b 0227 | ' | Execute Access,All_Reference
021c e005 | | Load 0x0,0x5
021d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
021e 00da | | Load_Top At_Offset_2
021f 01df | | Execute Vector,Equal
0220 6805 |h | Jump_Zero 0x226
0221 e403 | | Load 0x2,0x3
0222 0227 | ' | Execute Access,All_Reference
0223 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0224 00cb | | Action Pop_Block_With_Result
0225 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0226 e403 | | Load 0x2,0x3
0227 0227 | ' | Execute Access,All_Reference
0228 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0229 a403 | | Store_Unchecked 0x2,0x3
022a 00c9 | | Action Pop_Auxiliary_Loop
022b e403 | | Load 0x2,0x3
022c 77eb |w | Jump_Nonzero 0x218
022d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
022e 0000 0000 | | .XXX[0x2]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0236 | 6 | .CONST 0x0236 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0002 | | .CONST 0x0002 ; Number of locals
0233 INIT_0230:
0233 e5ff | | Load 0x2,-0x1
0234 e005 | | Load 0x0,0x5
0235 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0236 BODY_0230:
0236 00cf | | Action Mark_Auxiliary
0237 7813 |x | Jump 0x24b
0238 e402 | | Load 0x2,0x2
0239 0227 | ' | Execute Access,All_Reference
023a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
023b 0227 | ' | Execute Access,All_Reference
023c e005 | | Load 0x0,0x5
023d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
023e 00da | | Load_Top At_Offset_2
023f 01df | | Execute Vector,Equal
0240 6805 |h | Jump_Zero 0x246
0241 e402 | | Load 0x2,0x2
0242 0227 | ' | Execute Access,All_Reference
0243 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0244 00cb | | Action Pop_Block_With_Result
0245 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0246 e402 | | Load 0x2,0x2
0247 0227 | ' | Execute Access,All_Reference
0248 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0249 a402 | | Store_Unchecked 0x2,0x2
024a 00c9 | | Action Pop_Auxiliary_Loop
024b e402 | | Load 0x2,0x2
024c 77eb |w | Jump_Nonzero 0x238
024d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
024e 0000 0000 | | .XXX[0x2]
0250 ; --------------------------------------------------------------------------------------
0250 ; Debug Table
0250 ; --------------------------------------------------------------------------------------
0250 0004 0001 | | .DEBUG4 0x0004,0x0001,0x2e93,0x0000,0x0001,0x0015
0256 000b 02aa | | .DBG4T 0x000b,0x02aa,0x8000,0x0000
025a 004b 02c7 | K | .DBG4T 0x004b,0x02c7,0x8000,0x8000
025e 008b 02f1 | | .DBG4T 0x008b,0x02f1,0x0002,0x0000
0262 0093 02f4 | | .DBG4T 0x0093,0x02f4,0x0002,0x0000
0266 009b 02f7 | | .DBG4T 0x009b,0x02f7,0x0002,0x4000
026a 00e3 0315 | | .DBG4T 0x00e3,0x0315,0x0002,0x4000
026e 011b 032a | *| .DBG4T 0x011b,0x032a,0x0002,0x0000
0272 012b 032f | + /| .DBG4T 0x012b,0x032f,0x0002,0x0000
0276 014b 0332 | K 2| .DBG4T 0x014b,0x0332,0x0002,0x0000
027a 015b 0335 | [ 5| .DBG4T 0x015b,0x0335,0x0002,0x0000
027e 016b 0338 | k 8| .DBG4T 0x016b,0x0338,0x0002,0x0000
0282 017b 033d | { =| .DBG4T 0x017b,0x033d,0x0002,0x0000
0286 0193 0342 | B| .DBG4T 0x0193,0x0342,0x0002,0x0000
028a 019b 0345 | E| .DBG4T 0x019b,0x0345,0x0001,0x0000
028e 01b3 034c | L| .DBG4T 0x01b3,0x034c,0x0001,0x0000
0292 01d3 0352 | R| .DBG4T 0x01d3,0x0352,0x0002,0x0000
0296 01db 0355 | U| .DBG4T 0x01db,0x0355,0x0002,0x0000
029a 01e3 0358 | X| .DBG4T 0x01e3,0x0358,0x0002,0x0000
029e 01f3 035b | [| .DBG4T 0x01f3,0x035b,0x0001,0x4000
02a2 0213 0363 | c| .DBG4T 0x0213,0x0363,0x0004,0x4000
02a6 0233 036e | 3 n| .DBG4T 0x0233,0x036e,0x0004,0x4000
02aa ; --------------------------------------------------------------------------------------
02aa ; Debug chain
02aa ; --------------------------------------------------------------------------------------
02aa 001b 0000 | | .DBGLEN 0x001b,0x0000
02ac 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0037,0x003b,0x003d,0x0041,0x0043,0x0044
02c7 ; --------------------------------------------------------------------------------------
02c7 ; Debug chain
02c7 ; --------------------------------------------------------------------------------------
02c7 0014 0000 | | .DBGLEN 0x0014,0x0000
02c9 004b 0053 | K S| .DBGLNO 0x004b,0x0053,0x0058,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e
02dd 0001 0003 | | .XXX[0x14]
02df 0004 0005 | |
02e1 0006 0008 | |
02e3 0009 000a | |
02e5 000b 000c | |
02e7 000d 000e | |
02e9 000f 0010 | |
02eb 0011 0012 | |
02ed 0013 0014 | |
02ef 0015 0016 | |
02f1 ; --------------------------------------------------------------------------------------
02f1 ; Debug chain
02f1 ; --------------------------------------------------------------------------------------
02f1 0000 0001 | | .DBGLEN 0x0000,0x0001
02f3 008b | | .DBGLNO 0x008b
02f4 ; --------------------------------------------------------------------------------------
02f4 ; Debug chain
02f4 ; --------------------------------------------------------------------------------------
02f4 0000 0001 | | .DBGLEN 0x0000,0x0001
02f6 0093 | | .DBGLNO 0x0093
02f7 ; --------------------------------------------------------------------------------------
02f7 ; Debug chain
02f7 ; --------------------------------------------------------------------------------------
02f7 0002 000d | | .DBGLEN 0x0002,0x000d
02f9 009b 00a9 | | .DBGLNO 0x009b,0x00a9,0x00ac,0x00af,0x00b1,0x00b3,0x00b7,0x00be,0x00c2,0x00c7,0x00ca,0x00cd,0x00d3,0x00d7,0x00d9
0308 0001 0002 | | .XXX[0xd]
030a 0003 0004 | |
030c 0006 0007 | |
030e 0008 0005 | |
0310 0009 000a | |
0312 000b 000c | |
0314 000d | |
0315 ; --------------------------------------------------------------------------------------
0315 ; Debug chain
0315 ; --------------------------------------------------------------------------------------
0315 0001 0009 | | .DBGLEN 0x0001,0x0009
0317 00e3 00f2 | | .DBGLNO 0x00e3,0x00f2,0x00f5,0x00f7,0x00f9,0x00fd,0x0104,0x0108,0x010d,0x0110
0321 0001 0002 | | .XXX[0x9]
0323 0003 0004 | |
0325 0006 0007 | |
0327 0008 0005 | |
0329 0009 | |
032a ; --------------------------------------------------------------------------------------
032a ; Debug chain
032a ; --------------------------------------------------------------------------------------
032a 0000 0003 | | .DBGLEN 0x0000,0x0003
032c 011b 011f | | .DBGLNO 0x011b,0x011f,0x0123
032f ; --------------------------------------------------------------------------------------
032f ; Debug chain
032f ; --------------------------------------------------------------------------------------
032f 0000 0001 | | .DBGLEN 0x0000,0x0001
0331 012b | + | .DBGLNO 0x012b
0332 ; --------------------------------------------------------------------------------------
0332 ; Debug chain
0332 ; --------------------------------------------------------------------------------------
0332 0000 0001 | | .DBGLEN 0x0000,0x0001
0334 014b | K | .DBGLNO 0x014b
0335 ; --------------------------------------------------------------------------------------
0335 ; Debug chain
0335 ; --------------------------------------------------------------------------------------
0335 0000 0001 | | .DBGLEN 0x0000,0x0001
0337 015b | [ | .DBGLNO 0x015b
0338 ; --------------------------------------------------------------------------------------
0338 ; Debug chain
0338 ; --------------------------------------------------------------------------------------
0338 0000 0003 | | .DBGLEN 0x0000,0x0003
033a 016b 016f | k o| .DBGLNO 0x016b,0x016f,0x0171
033d ; --------------------------------------------------------------------------------------
033d ; Debug chain
033d ; --------------------------------------------------------------------------------------
033d 0000 0003 | | .DBGLEN 0x0000,0x0003
033f 017b 017f | { | .DBGLNO 0x017b,0x017f,0x0181
0342 ; --------------------------------------------------------------------------------------
0342 ; Debug chain
0342 ; --------------------------------------------------------------------------------------
0342 0000 0001 | | .DBGLEN 0x0000,0x0001
0344 0193 | | .DBGLNO 0x0193
0345 ; --------------------------------------------------------------------------------------
0345 ; Debug chain
0345 ; --------------------------------------------------------------------------------------
0345 0001 0004 | | .DBGLEN 0x0001,0x0004
0347 019b 019d | | .DBGLNO 0x019b,0x019d,0x01a0,0x01a3,0x01a6
034c ; --------------------------------------------------------------------------------------
034c ; Debug chain
034c ; --------------------------------------------------------------------------------------
034c 0000 0004 | | .DBGLEN 0x0000,0x0004
034e 01b3 01b9 | | .DBGLNO 0x01b3,0x01b9,0x01c4,0x01c9
0352 ; --------------------------------------------------------------------------------------
0352 ; Debug chain
0352 ; --------------------------------------------------------------------------------------
0352 0000 0001 | | .DBGLEN 0x0000,0x0001
0354 01d3 | | .DBGLNO 0x01d3
0355 ; --------------------------------------------------------------------------------------
0355 ; Debug chain
0355 ; --------------------------------------------------------------------------------------
0355 0000 0001 | | .DBGLEN 0x0000,0x0001
0357 01db | | .DBGLNO 0x01db
0358 ; --------------------------------------------------------------------------------------
0358 ; Debug chain
0358 ; --------------------------------------------------------------------------------------
0358 0000 0001 | | .DBGLEN 0x0000,0x0001
035a 01e3 | | .DBGLNO 0x01e3
035b ; --------------------------------------------------------------------------------------
035b ; Debug chain
035b ; --------------------------------------------------------------------------------------
035b 0000 0003 | | .DBGLEN 0x0000,0x0003
035d 01f4 01fc | | .DBGLNO 0x01f4,0x01fc,0x0207
0360 0002 0003 | | .XXX[0x3]
0362 0004 | |
0363 ; --------------------------------------------------------------------------------------
0363 ; Debug chain
0363 ; --------------------------------------------------------------------------------------
0363 0001 0004 | | .DBGLEN 0x0001,0x0004
0365 0213 0218 | | .DBGLNO 0x0213,0x0218,0x0221,0x0226,0x022b
036a 0002 0003 | | .XXX[0x4]
036c 0004 0001 | |
036e ; --------------------------------------------------------------------------------------
036e ; Debug chain
036e ; --------------------------------------------------------------------------------------
036e 0001 0004 | | .DBGLEN 0x0001,0x0004
0370 0233 0238 | 3 8| .DBGLNO 0x0233,0x0238,0x0241,0x0246,0x024b
0375 0002 0003 | | .XXX[0x4]
0377 0004 0001 | |
0379 0000 0000 | | .BLANK 0000[0x87]