|
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_65acc1
└─⟦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 5900 |Y | .CONST 0x5900 ; 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 007a | z | .CONST 0x007a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0029 | ) | .CONST 0x0029 ; Number of locals
000b INIT_0008:
000b 0093 0000 | | push_full_address 0x0
000d 607a |`z | Indirect_Literal Discrete,0x88,{0x80000000, 0x00010000}
000e 0273 | s | Execute Discrete,Plus
000f 0129 | ) | Execute Any,Make_Visible
0010 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
0012 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0014 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0016 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0018 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
001a 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
001c 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
001e 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0020 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0022 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0024 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0026 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0028 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
002a 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
002c 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
002e 4818 |H | Short_Literal 0x18
002f 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
0030 00e9 | | Load_Encached String_Cache
0031 02a0 | | Declare_Subprogram Null_Subprogram
0032 4818 |H | Short_Literal 0x18
0033 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
0034 4818 |H | Short_Literal 0x18
0035 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
0036 00da | | Load_Top At_Offset_2
0037 00e2 | | Load_Encached Integer_Cache
0038 00da | | Load_Top At_Offset_2
0039 02a0 | | Declare_Subprogram Null_Subprogram
003a 4803 |H | Short_Literal 0x3
003b 032e | . | Declare_Type Record,Defined,Visible
003c 00bf | | Action Accept_Activation
003d a002 | | Store_Unchecked 0x0,0x2
003e 00c6 | | Action Check_Subprogram_Elaborated
003f 00da | | Load_Top At_Offset_2
0040 00e2 | | Load_Encached Integer_Cache
0041 e003 | | Load 0x0,0x3
0042 e004 | | Load 0x0,0x4
0043 4800 |H | Short_Literal 0x0
0044 0007 | | Action Break_Optional
0045 e21e | | Load 0x1,0x1e
0046 e21f | | Load 0x1,0x1f
0047 02a0 | | Declare_Subprogram Null_Subprogram
0048 4802 |H | Short_Literal 0x2
0049 032d | - | Declare_Type Record,Defined
004a 00d8 | | Load_Top At_Offset_0
004b 02a0 | | Declare_Subprogram Null_Subprogram
004c e21f | | Load 0x1,0x1f
004d 03c7 | | Complete_Type Access,By_Defining
004e 00e2 | | Load_Encached Integer_Cache
004f 0266 | f | Execute Discrete,Bounds
0050 e21f | | Load 0x1,0x1f
0051 02a0 | | Declare_Subprogram Null_Subprogram
0052 4801 |H | Short_Literal 0x1
0053 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
0054 00d8 | | Load_Top At_Offset_0
0055 02a0 | | Declare_Subprogram Null_Subprogram
0056 e21d | | Load 0x1,0x1d
0057 03c7 | | Complete_Type Access,By_Defining
0058 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0059 00c7 | | Action Elaborate_Subprogram
005a 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call
005c 1d0e | | Execute_Immediate Reference_Lex_1,0xe
005d 00c7 | | Action Elaborate_Subprogram
005e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
005f 00c7 | | Action Elaborate_Subprogram
0060 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0061 00c7 | | Action Elaborate_Subprogram
0062 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0063 00c7 | | Action Elaborate_Subprogram
0064 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0065 00c7 | | Action Elaborate_Subprogram
0066 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0067 00c7 | | Action Elaborate_Subprogram
0068 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0069 00c7 | | Action Elaborate_Subprogram
006a 1d16 | | Execute_Immediate Reference_Lex_1,0x16
006b 00c7 | | Action Elaborate_Subprogram
006c 1d17 | | Execute_Immediate Reference_Lex_1,0x17
006d 00c7 | | Action Elaborate_Subprogram
006e 1d18 | | Execute_Immediate Reference_Lex_1,0x18
006f 00c7 | | Action Elaborate_Subprogram
0070 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call
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 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0077 00c7 | | Action Elaborate_Subprogram
0078 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0079 00c7 | | Action Elaborate_Subprogram
007a BODY_0008:
007a 00bc | | Action Signal_Activated
007b 00bb | | Action Signal_Completion
007c 0000 0000 | | .BLANK 0000[0x4]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 4800 |H | Short_Literal 0x0
0084 00db | | Load_Top At_Offset_3
0085 e21d | | Load 0x1,0x1d
0086 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
0087 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0088 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
008c 0000 0000 | | .BLANK 0000[0x4]
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 e21e | | Load 0x1,0x1e
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 8228 | ( | Call 0x1,0x28
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 e21e | | Load 0x1,0x1e
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 e21f | | Load 0x1,0x1f
00cb 03bc | | Declare_Variable Access,By_Allocation
00cc 003a | : | Store_Top Access,At_Offset_2
00cd e5ff | | Load 0x2,-0x1
00ce e21e | | Load 0x1,0x1e
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 8228 | ( | Call 0x1,0x28
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 e21e | | Load 0x1,0x1e
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 e21e | | Load 0x1,0x1e
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 e21e | | Load 0x1,0x1e
0121 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0122 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0123 820f | | Call 0x1,0xf
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 820f | | Call 0x1,0xf
0131 022e | . | Execute Access,Not_Equal
0132 680a |h | Jump_Zero 0x13d
0133 00db | | Load_Top At_Offset_3
0134 820f | | Call 0x1,0xf
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 e221 | ! | Load 0x1,0x21
014d e222 | " | Load 0x1,0x22
014e 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
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 820f | | Call 0x1,0xf
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 820f | | Call 0x1,0xf
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 820f | | Call 0x1,0xf
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 e220 | | Load 0x1,0x20
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 8229 | ) | Call 0x1,0x29
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 8229 | ) | Call 0x1,0x29
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 8005 | | Call 0x0,0x5
01e5 e5fe | | Load 0x2,-0x2
01e6 026e | n | Execute Discrete,Modulo
01e7 0274 | t | Execute Discrete,Absolute_Value
01e8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01e9 0000 0000 | | .BLANK 0000[0x7]
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 0215 | | .CONST 0x0215 ; 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 8006 | | Call 0x0,0x6
0215 BODY_0210:
0215 00cf | | Action Mark_Auxiliary
0216 7812 |x | Jump 0x229
0217 e403 | | Load 0x2,0x3
0218 0227 | ' | Execute Access,All_Reference
0219 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
021a 0227 | ' | Execute Access,All_Reference
021b 8006 | | Call 0x0,0x6
021c 00da | | Load_Top At_Offset_2
021d 01df | | Execute Vector,Equal
021e 6805 |h | Jump_Zero 0x224
021f e403 | | Load 0x2,0x3
0220 0227 | ' | Execute Access,All_Reference
0221 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0222 00cb | | Action Pop_Block_With_Result
0223 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0224 e403 | | Load 0x2,0x3
0225 0227 | ' | Execute Access,All_Reference
0226 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0227 a403 | | Store_Unchecked 0x2,0x3
0228 00c9 | | Action Pop_Auxiliary_Loop
0229 e403 | | Load 0x2,0x3
022a 77ec |w | Jump_Nonzero 0x217
022b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
022c 0000 0000 | | .BLANK 0000[0x4]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0235 | 5 | .CONST 0x0235 ; 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 8006 | | Call 0x0,0x6
0235 BODY_0230:
0235 00cf | | Action Mark_Auxiliary
0236 7812 |x | Jump 0x249
0237 e402 | | Load 0x2,0x2
0238 0227 | ' | Execute Access,All_Reference
0239 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
023a 0227 | ' | Execute Access,All_Reference
023b 8006 | | Call 0x0,0x6
023c 00da | | Load_Top At_Offset_2
023d 01df | | Execute Vector,Equal
023e 6805 |h | Jump_Zero 0x244
023f e402 | | Load 0x2,0x2
0240 0227 | ' | Execute Access,All_Reference
0241 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0242 00cb | | Action Pop_Block_With_Result
0243 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0244 e402 | | Load 0x2,0x2
0245 0227 | ' | Execute Access,All_Reference
0246 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0247 a402 | | Store_Unchecked 0x2,0x2
0248 00c9 | | Action Pop_Auxiliary_Loop
0249 e402 | | Load 0x2,0x2
024a 77ec |w | Jump_Nonzero 0x237
024b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
024c 0000 0000 | | .BLANK 0000[0x4]
0250 ; --------------------------------------------------------------------------------------
0250 ; Debug Table
0250 ; --------------------------------------------------------------------------------------
0250 0004 0001 | | .DEBUG4 0x0004,0x0001,0x97ce,0x0000,0x0001,0x0015
0256 000b 02aa | | .DBG4T 0x000b,0x02aa,0x8000,0x8000
025a 003d 02d4 | = | .DBG4T 0x003d,0x02d4,0x8000,0x8000
025e 0083 02fe | | .DBG4T 0x0083,0x02fe,0x0002,0x0000
0262 0093 0301 | | .DBG4T 0x0093,0x0301,0x0002,0x0000
0266 009b 0304 | | .DBG4T 0x009b,0x0304,0x0002,0x4000
026a 00e3 0322 | "| .DBG4T 0x00e3,0x0322,0x0002,0x4000
026e 011b 0337 | 7| .DBG4T 0x011b,0x0337,0x0002,0x0000
0272 012b 033c | + <| .DBG4T 0x012b,0x033c,0x0002,0x0000
0276 014b 033f | K ?| .DBG4T 0x014b,0x033f,0x0002,0x0000
027a 015b 0342 | [ B| .DBG4T 0x015b,0x0342,0x0002,0x0000
027e 016b 0345 | k E| .DBG4T 0x016b,0x0345,0x0002,0x0000
0282 017b 034a | { J| .DBG4T 0x017b,0x034a,0x0002,0x0000
0286 0193 034f | O| .DBG4T 0x0193,0x034f,0x0002,0x0000
028a 019b 0352 | R| .DBG4T 0x019b,0x0352,0x0001,0x0000
028e 01b3 0359 | Y| .DBG4T 0x01b3,0x0359,0x0001,0x0000
0292 01d3 035f | _| .DBG4T 0x01d3,0x035f,0x0002,0x0000
0296 01db 0362 | b| .DBG4T 0x01db,0x0362,0x0002,0x0000
029a 01e3 0365 | e| .DBG4T 0x01e3,0x0365,0x0002,0x0000
029e 01f3 0368 | h| .DBG4T 0x01f3,0x0368,0x0001,0x4000
02a2 0213 0370 | p| .DBG4T 0x0213,0x0370,0x0004,0x4000
02a6 0233 037b | 3 {| .DBG4T 0x0233,0x037b,0x0004,0x4000
02aa ; --------------------------------------------------------------------------------------
02aa ; Debug chain
02aa ; --------------------------------------------------------------------------------------
02aa 0014 0000 | | .DBGLEN 0x0014,0x0000
02ac 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0034,0x0036
02c0 0003 0004 | | .XXX[0x14]
02c2 0005 0006 | |
02c4 0007 0008 | |
02c6 0009 000a | |
02c8 000b 000c | |
02ca 000d 000e | |
02cc 0010 0011 | |
02ce 0012 0013 | |
02d0 0015 0016 | |
02d2 0018 001b | |
02d4 ; --------------------------------------------------------------------------------------
02d4 ; Debug chain
02d4 ; --------------------------------------------------------------------------------------
02d4 0014 0000 | | .DBGLEN 0x0014,0x0000
02d6 003d 0045 | = E| .DBGLNO 0x003d,0x0045,0x004e,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078
02ea 0001 0003 | | .XXX[0x14]
02ec 0004 0005 | |
02ee 0006 0008 | |
02f0 0009 000a | |
02f2 000b 000c | |
02f4 000d 000e | |
02f6 000f 0010 | |
02f8 0011 0012 | |
02fa 0013 0014 | |
02fc 0015 0016 | |
02fe ; --------------------------------------------------------------------------------------
02fe ; Debug chain
02fe ; --------------------------------------------------------------------------------------
02fe 0000 0001 | | .DBGLEN 0x0000,0x0001
0300 0083 | | .DBGLNO 0x0083
0301 ; --------------------------------------------------------------------------------------
0301 ; Debug chain
0301 ; --------------------------------------------------------------------------------------
0301 0000 0001 | | .DBGLEN 0x0000,0x0001
0303 0093 | | .DBGLNO 0x0093
0304 ; --------------------------------------------------------------------------------------
0304 ; Debug chain
0304 ; --------------------------------------------------------------------------------------
0304 0002 000d | | .DBGLEN 0x0002,0x000d
0306 009b 00a9 | | .DBGLNO 0x009b,0x00a9,0x00ac,0x00af,0x00b1,0x00b3,0x00b7,0x00be,0x00c2,0x00c7,0x00ca,0x00cd,0x00d3,0x00d7,0x00d9
0315 0001 0002 | | .XXX[0xd]
0317 0003 0004 | |
0319 0006 0007 | |
031b 0008 0005 | |
031d 0009 000a | |
031f 000b 000c | |
0321 000d | |
0322 ; --------------------------------------------------------------------------------------
0322 ; Debug chain
0322 ; --------------------------------------------------------------------------------------
0322 0001 0009 | | .DBGLEN 0x0001,0x0009
0324 00e3 00f2 | | .DBGLNO 0x00e3,0x00f2,0x00f5,0x00f7,0x00f9,0x00fd,0x0104,0x0108,0x010d,0x0110
032e 0001 0002 | | .XXX[0x9]
0330 0003 0004 | |
0332 0006 0007 | |
0334 0008 0005 | |
0336 0009 | |
0337 ; --------------------------------------------------------------------------------------
0337 ; Debug chain
0337 ; --------------------------------------------------------------------------------------
0337 0000 0003 | | .DBGLEN 0x0000,0x0003
0339 011b 011f | | .DBGLNO 0x011b,0x011f,0x0123
033c ; --------------------------------------------------------------------------------------
033c ; Debug chain
033c ; --------------------------------------------------------------------------------------
033c 0000 0001 | | .DBGLEN 0x0000,0x0001
033e 012b | + | .DBGLNO 0x012b
033f ; --------------------------------------------------------------------------------------
033f ; Debug chain
033f ; --------------------------------------------------------------------------------------
033f 0000 0001 | | .DBGLEN 0x0000,0x0001
0341 014b | K | .DBGLNO 0x014b
0342 ; --------------------------------------------------------------------------------------
0342 ; Debug chain
0342 ; --------------------------------------------------------------------------------------
0342 0000 0001 | | .DBGLEN 0x0000,0x0001
0344 015b | [ | .DBGLNO 0x015b
0345 ; --------------------------------------------------------------------------------------
0345 ; Debug chain
0345 ; --------------------------------------------------------------------------------------
0345 0000 0003 | | .DBGLEN 0x0000,0x0003
0347 016b 016f | k o| .DBGLNO 0x016b,0x016f,0x0171
034a ; --------------------------------------------------------------------------------------
034a ; Debug chain
034a ; --------------------------------------------------------------------------------------
034a 0000 0003 | | .DBGLEN 0x0000,0x0003
034c 017b 017f | { | .DBGLNO 0x017b,0x017f,0x0181
034f ; --------------------------------------------------------------------------------------
034f ; Debug chain
034f ; --------------------------------------------------------------------------------------
034f 0000 0001 | | .DBGLEN 0x0000,0x0001
0351 0193 | | .DBGLNO 0x0193
0352 ; --------------------------------------------------------------------------------------
0352 ; Debug chain
0352 ; --------------------------------------------------------------------------------------
0352 0001 0004 | | .DBGLEN 0x0001,0x0004
0354 019b 019d | | .DBGLNO 0x019b,0x019d,0x01a0,0x01a3,0x01a6
0359 ; --------------------------------------------------------------------------------------
0359 ; Debug chain
0359 ; --------------------------------------------------------------------------------------
0359 0000 0004 | | .DBGLEN 0x0000,0x0004
035b 01b3 01b9 | | .DBGLNO 0x01b3,0x01b9,0x01c4,0x01c9
035f ; --------------------------------------------------------------------------------------
035f ; Debug chain
035f ; --------------------------------------------------------------------------------------
035f 0000 0001 | | .DBGLEN 0x0000,0x0001
0361 01d3 | | .DBGLNO 0x01d3
0362 ; --------------------------------------------------------------------------------------
0362 ; Debug chain
0362 ; --------------------------------------------------------------------------------------
0362 0000 0001 | | .DBGLEN 0x0000,0x0001
0364 01db | | .DBGLNO 0x01db
0365 ; --------------------------------------------------------------------------------------
0365 ; Debug chain
0365 ; --------------------------------------------------------------------------------------
0365 0000 0001 | | .DBGLEN 0x0000,0x0001
0367 01e3 | | .DBGLNO 0x01e3
0368 ; --------------------------------------------------------------------------------------
0368 ; Debug chain
0368 ; --------------------------------------------------------------------------------------
0368 0000 0003 | | .DBGLEN 0x0000,0x0003
036a 01f4 01fc | | .DBGLNO 0x01f4,0x01fc,0x0207
036d 0002 0003 | | .XXX[0x3]
036f 0004 | |
0370 ; --------------------------------------------------------------------------------------
0370 ; Debug chain
0370 ; --------------------------------------------------------------------------------------
0370 0001 0004 | | .DBGLEN 0x0001,0x0004
0372 0213 0217 | | .DBGLNO 0x0213,0x0217,0x021f,0x0224,0x0229
0377 0002 0003 | | .XXX[0x4]
0379 0004 0001 | |
037b ; --------------------------------------------------------------------------------------
037b ; Debug chain
037b ; --------------------------------------------------------------------------------------
037b 0001 0004 | | .DBGLEN 0x0001,0x0004
037d 0233 0237 | 3 7| .DBGLNO 0x0233,0x0237,0x023f,0x0244,0x0249
0382 0002 0003 | | .XXX[0x4]
0384 0004 0001 | |
0386 0000 0000 | | .BLANK 0000[0x7a]