|
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_6148f2
└─⟦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 0200 | | .CONST 0x0200 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 008a | | .CONST 0x008a ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0011 | | .CONST 0x0011 ; Number of locals
001b INIT_0018:
001b 0093 0000 | | push_full_address 0x0
001d 60da |` | Indirect_Literal Discrete,0xf8,{0x80000000, 0x00010000}
001e 0273 | s | Execute Discrete,Plus
001f 0007 | | Action Break_Optional
0020 e002 | | Load 0x0,0x2
0021 0007 | | Action Break_Optional
0022 e003 | | Load 0x0,0x3
0023 02ff | | Declare_Variable Variant_Record
0024 00d8 | | Load_Top At_Offset_0
0025 1c00 | | Execute_Immediate Run_Utility,0x0
0026 e003 | | Load 0x0,0x3
0027 02ff | | Declare_Variable Variant_Record
0028 00d8 | | Load_Top At_Offset_0
0029 1c00 | | Execute_Immediate Run_Utility,0x0
002a e004 | | Load 0x0,0x4
002b 0322 | " | Declare_Variable Record
002c 4801 |H | Short_Literal 0x1
002d 4800 |H | Short_Literal 0x0
002e 4806 |H | Short_Literal 0x6
002f e005 | | Load 0x0,0x5
0030 0334 | 4 | Declare_Variable Array,With_Constraint
0031 50ca |P | Indirect_Literal Any,0xfc,{0x426f6f6c, 0x65616e00}
0032 8006 | | Call 0x0,0x6
0033 00d9 | | Load_Top At_Offset_1
0034 017d | } | Execute Record,Structure_Write
0035 e004 | | Load 0x0,0x4
0036 0322 | " | Declare_Variable Record
0037 4801 |H | Short_Literal 0x1
0038 4800 |H | Short_Literal 0x0
0039 4805 |H | Short_Literal 0x5
003a e005 | | Load 0x0,0x5
003b 0334 | 4 | Declare_Variable Array,With_Constraint
003c 50c3 |P | Indirect_Literal Any,0x100,{0x535f4c6f, 0x6e670000}
003d 8006 | | Call 0x0,0x6
003e 00d9 | | Load_Top At_Offset_1
003f 017d | } | Execute Record,Structure_Write
0040 e004 | | Load 0x0,0x4
0041 0322 | " | Declare_Variable Record
0042 4801 |H | Short_Literal 0x1
0043 4800 |H | Short_Literal 0x0
0044 4805 |H | Short_Literal 0x5
0045 e005 | | Load 0x0,0x5
0046 0334 | 4 | Declare_Variable Array,With_Constraint
0047 50bc |P | Indirect_Literal Any,0x104,{0x555f4c6f, 0x6e670000}
0048 8006 | | Call 0x0,0x6
0049 00d9 | | Load_Top At_Offset_1
004a 017d | } | Execute Record,Structure_Write
004b e004 | | Load 0x0,0x4
004c 0322 | " | Declare_Variable Record
004d 4801 |H | Short_Literal 0x1
004e 4800 |H | Short_Literal 0x0
004f 4805 |H | Short_Literal 0x5
0050 e005 | | Load 0x0,0x5
0051 0334 | 4 | Declare_Variable Array,With_Constraint
0052 50b5 |P | Indirect_Literal Any,0x108,{0x53747269, 0x6e670000}
0053 8006 | | Call 0x0,0x6
0054 00d9 | | Load_Top At_Offset_1
0055 017d | } | Execute Record,Structure_Write
0056 e004 | | Load 0x0,0x4
0057 0322 | " | Declare_Variable Record
0058 4801 |H | Short_Literal 0x1
0059 4800 |H | Short_Literal 0x0
005a 4806 |H | Short_Literal 0x6
005b e005 | | Load 0x0,0x5
005c 0334 | 4 | Declare_Variable Array,With_Constraint
005d 50ae |P | Indirect_Literal Any,0x10c,{0x53747269, 0x6e673800}
005e 8006 | | Call 0x0,0x6
005f 00d9 | | Load_Top At_Offset_1
0060 017d | } | Execute Record,Structure_Write
0061 e004 | | Load 0x0,0x4
0062 0322 | " | Declare_Variable Record
0063 4801 |H | Short_Literal 0x1
0064 4800 |H | Short_Literal 0x0
0065 4807 |H | Short_Literal 0x7
0066 e005 | | Load 0x0,0x5
0067 0334 | 4 | Declare_Variable Array,With_Constraint
0068 50a7 |P | Indirect_Literal Any,0x110,{0x53747269, 0x6e673136}
0069 8006 | | Call 0x0,0x6
006a 00d9 | | Load_Top At_Offset_1
006b 017d | } | Execute Record,Structure_Write
006c e004 | | Load 0x0,0x4
006d 0322 | " | Declare_Variable Record
006e 4801 |H | Short_Literal 0x1
006f 4800 |H | Short_Literal 0x0
0070 480b |H | Short_Literal 0xb
0071 e005 | | Load 0x0,0x5
0072 0334 | 4 | Declare_Variable Array,With_Constraint
0073 50a0 |P | Indirect_Literal Any,0x114,{0x555f4368, 0x61725f41}
0074 8006 | | Call 0x0,0x6
0075 00d9 | | Load_Top At_Offset_1
0076 017d | } | Execute Record,Structure_Write
0077 e004 | | Load 0x0,0x4
0078 0322 | " | Declare_Variable Record
0079 4801 |H | Short_Literal 0x1
007a 4800 |H | Short_Literal 0x0
007b 4808 |H | Short_Literal 0x8
007c e005 | | Load 0x0,0x5
007d 0334 | 4 | Declare_Variable Array,With_Constraint
007e 509d |P | Indirect_Literal Any,0x11c,{0x556e6976, 0x65727361}
007f 8006 | | Call 0x0,0x6
0080 00d9 | | Load_Top At_Offset_1
0081 017d | } | Execute Record,Structure_Write
0082 029f 012b | +| Declare_Subprogram INIT_0128,For_Call
0084 029f 015b | [| Declare_Subprogram INIT_0158,For_Call
0086 029f 018b | | Declare_Subprogram INIT_0188,For_Call
0088 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call
008a BODY_0018:
008a 8007 | | Call 0x0,0x7
008b 0092 01e2 | | Action Push_String_Extended,0x1e2 ; "Store/Fetch X_Rm_Entry values"
008d 8008 | | Call 0x0,0x8
008e 4802 |H | Short_Literal 0x2
008f e003 | | Load 0x0,0x3
0090 1c08 | | Execute_Immediate Run_Utility,0x8
0091 4801 |H | Short_Literal 0x1
0092 00d9 | | Load_Top At_Offset_1
0093 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0094 e404 | | Load 0x2,0x4
0095 016d | m | Execute Variant_Record,Structure_Write
0096 4802 |H | Short_Literal 0x2
0097 e003 | | Load 0x0,0x3
0098 1c08 | | Execute_Immediate Run_Utility,0x8
0099 4800 |H | Short_Literal 0x0
009a 00d9 | | Load_Top At_Offset_1
009b 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
009c e405 | | Load 0x2,0x5
009d 016d | m | Execute Variant_Record,Structure_Write
009e e405 | | Load 0x2,0x5
009f 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
00a0 6802 |h | Jump_Zero 0xa3
00a1 e402 | | Load 0x2,0x2
00a2 0257 | W | Execute Discrete,Raise
00a3 e404 | | Load 0x2,0x4
00a4 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
00a5 0e01 | | Execute_Immediate Not_Equal,0x1
00a6 6802 |h | Jump_Zero 0xa9
00a7 e402 | | Load 0x2,0x2
00a8 0257 | W | Execute Discrete,Raise
00a9 4809 |H | Short_Literal 0x9
00aa e003 | | Load 0x0,0x3
00ab 1c08 | | Execute_Immediate Run_Utility,0x8
00ac 4801 |H | Short_Literal 0x1
00ad 00d9 | | Load_Top At_Offset_1
00ae 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
00af e404 | | Load 0x2,0x4
00b0 016d | m | Execute Variant_Record,Structure_Write
00b1 4809 |H | Short_Literal 0x9
00b2 e003 | | Load 0x0,0x3
00b3 1c08 | | Execute_Immediate Run_Utility,0x8
00b4 4fec |O | Short_Literal -0x14
00b5 00d9 | | Load_Top At_Offset_1
00b6 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
00b7 e405 | | Load 0x2,0x5
00b8 016d | m | Execute Variant_Record,Structure_Write
00b9 e405 | | Load 0x2,0x5
00ba 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
00bb 4fec |O | Short_Literal -0x14
00bc 027e | ~ | Execute Discrete,Not_Equal
00bd 6802 |h | Jump_Zero 0xc0
00be e402 | | Load 0x2,0x2
00bf 0257 | W | Execute Discrete,Raise
00c0 e404 | | Load 0x2,0x4
00c1 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
00c2 0e01 | | Execute_Immediate Not_Equal,0x1
00c3 6802 |h | Jump_Zero 0xc6
00c4 e402 | | Load 0x2,0x2
00c5 0257 | W | Execute Discrete,Raise
00c6 4809 |H | Short_Literal 0x9
00c7 e003 | | Load 0x0,0x3
00c8 1c08 | | Execute_Immediate Run_Utility,0x8
00c9 4801 |H | Short_Literal 0x1
00ca 00d9 | | Load_Top At_Offset_1
00cb 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
00cc e404 | | Load 0x2,0x4
00cd 016d | m | Execute Variant_Record,Structure_Write
00ce 4809 |H | Short_Literal 0x9
00cf e003 | | Load 0x0,0x3
00d0 1c08 | | Execute_Immediate Run_Utility,0x8
00d1 4814 |H | Short_Literal 0x14
00d2 00d9 | | Load_Top At_Offset_1
00d3 2a0a |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xa
00d4 e405 | | Load 0x2,0x5
00d5 016d | m | Execute Variant_Record,Structure_Write
00d6 e405 | | Load 0x2,0x5
00d7 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
00d8 0e14 | | Execute_Immediate Not_Equal,0x14
00d9 6802 |h | Jump_Zero 0xdc
00da e402 | | Load 0x2,0x2
00db 0257 | W | Execute Discrete,Raise
00dc e404 | | Load 0x2,0x4
00dd 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
00de 0e01 | | Execute_Immediate Not_Equal,0x1
00df 6802 |h | Jump_Zero 0xe2
00e0 e402 | | Load 0x2,0x2
00e1 0257 | W | Execute Discrete,Raise
00e2 840e | | Call 0x2,0xe
00e3 840f | | Call 0x2,0xf
00e4 8410 | | Call 0x2,0x10
00e5 8411 | | Call 0x2,0x11
00e6 480d |H | Short_Literal 0xd
00e7 e003 | | Load 0x0,0x3
00e8 1c08 | | Execute_Immediate Run_Utility,0x8
00e9 e009 | | Load 0x0,0x9
00ea 00d9 | | Load_Top At_Offset_1
00eb 2a0e |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xe
00ec e404 | | Load 0x2,0x4
00ed 016d | m | Execute Variant_Record,Structure_Write
00ee e404 | | Load 0x2,0x4
00ef 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
00f0 e009 | | Load 0x0,0x9
00f1 017f | | Execute Record,Equal
00f2 7002 |p | Jump_Nonzero 0xf5
00f3 e402 | | Load 0x2,0x2
00f4 0257 | W | Execute Discrete,Raise
00f5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f6 0000 0000 | | .XXX[0x2]
00f8 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00fc 426f 6f6c |Bool| .LITERAL {0x426f6f6c, 0x65616e00}
0100 535f 4c6f |S_Lo| .LITERAL {0x535f4c6f, 0x6e670000}
0104 555f 4c6f |U_Lo| .LITERAL {0x555f4c6f, 0x6e670000}
0108 5374 7269 |Stri| .LITERAL {0x53747269, 0x6e670000}
010c 5374 7269 |Stri| .LITERAL {0x53747269, 0x6e673800}
0110 5374 7269 |Stri| .LITERAL {0x53747269, 0x6e673136}
0114 555f 4368 |U_Ch| .LITERAL {0x555f4368, 0x61725f41}
0118 7272 6179 |rray| .XXX[0x4]
011a 0000 0000 | |
011c 556e 6976 |Univ| .LITERAL {0x556e6976, 0x65727361}
0120 6c00 |l | .XXX[0x1]
0121 0000 0000 | | .BLANK 0000[0x7]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0133 | 3 | .CONST 0x0133 ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0003 | | .CONST 0x0003 ; Number of locals
012b INIT_0128:
012b 0092 01e3 | | Action Push_String_Extended,0x1e3 ; "Abcd"
012d e00a | | Load 0x0,0xa
012e 03b6 | | Declare_Variable Access,By_Allocation,With_Value
012f 0092 01e4 | | Action Push_String_Extended,0x1e4 ; "Quadro"
0131 e00a | | Load 0x0,0xa
0132 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0133 BODY_0128:
0133 480a |H | Short_Literal 0xa
0134 e003 | | Load 0x0,0x3
0135 1c08 | | Execute_Immediate Run_Utility,0x8
0136 00da | | Load_Top At_Offset_2
0137 00d9 | | Load_Top At_Offset_1
0138 2a0b |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb
0139 e404 | | Load 0x2,0x4
013a 016d | m | Execute Variant_Record,Structure_Write
013b 480a |H | Short_Literal 0xa
013c e003 | | Load 0x0,0x3
013d 1c08 | | Execute_Immediate Run_Utility,0x8
013e 00d9 | | Load_Top At_Offset_1
013f 00d9 | | Load_Top At_Offset_1
0140 2a0b |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xb
0141 e405 | | Load 0x2,0x5
0142 016d | m | Execute Variant_Record,Structure_Write
0143 e405 | | Load 0x2,0x5
0144 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
0145 00d9 | | Load_Top At_Offset_1
0146 022e | . | Execute Access,Not_Equal
0147 6802 |h | Jump_Zero 0x14a
0148 e402 | | Load 0x2,0x2
0149 0257 | W | Execute Discrete,Raise
014a e404 | | Load 0x2,0x4
014b 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
014c 00da | | Load_Top At_Offset_2
014d 022e | . | Execute Access,Not_Equal
014e 6802 |h | Jump_Zero 0x151
014f e402 | | Load 0x2,0x2
0150 0257 | W | Execute Discrete,Raise
0151 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0152 0000 0000 | | .BLANK 0000[0x6]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0163 | c | .CONST 0x0163 ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0003 | | .CONST 0x0003 ; Number of locals
015b INIT_0158:
015b 4801 |H | Short_Literal 0x1
015c 480a |H | Short_Literal 0xa
015d e00b | | Load 0x0,0xb
015e 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
015f 4814 |H | Short_Literal 0x14
0160 4823 |H# | Short_Literal 0x23
0161 e00b | | Load 0x0,0xb
0162 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
0163 BODY_0158:
0163 480b |H | Short_Literal 0xb
0164 e003 | | Load 0x0,0x3
0165 1c08 | | Execute_Immediate Run_Utility,0x8
0166 00da | | Load_Top At_Offset_2
0167 00d9 | | Load_Top At_Offset_1
0168 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
0169 e404 | | Load 0x2,0x4
016a 016d | m | Execute Variant_Record,Structure_Write
016b 480b |H | Short_Literal 0xb
016c e003 | | Load 0x0,0x3
016d 1c08 | | Execute_Immediate Run_Utility,0x8
016e 00d9 | | Load_Top At_Offset_1
016f 00d9 | | Load_Top At_Offset_1
0170 2a0c |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xc
0171 e405 | | Load 0x2,0x5
0172 016d | m | Execute Variant_Record,Structure_Write
0173 e405 | | Load 0x2,0x5
0174 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
0175 00d9 | | Load_Top At_Offset_1
0176 022e | . | Execute Access,Not_Equal
0177 6802 |h | Jump_Zero 0x17a
0178 e402 | | Load 0x2,0x2
0179 0257 | W | Execute Discrete,Raise
017a e404 | | Load 0x2,0x4
017b 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
017c 00da | | Load_Top At_Offset_2
017d 022e | . | Execute Access,Not_Equal
017e 6802 |h | Jump_Zero 0x181
017f e402 | | Load 0x2,0x2
0180 0257 | W | Execute Discrete,Raise
0181 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0182 0000 0000 | | .BLANK 0000[0x6]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 0193 | | .CONST 0x0193 ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0003 | | .CONST 0x0003 ; Number of locals
018b INIT_0188:
018b 4801 |H | Short_Literal 0x1
018c 480a |H | Short_Literal 0xa
018d e00c | | Load 0x0,0xc
018e 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
018f 4814 |H | Short_Literal 0x14
0190 4823 |H# | Short_Literal 0x23
0191 e00c | | Load 0x0,0xc
0192 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
0193 BODY_0188:
0193 480c |H | Short_Literal 0xc
0194 e003 | | Load 0x0,0x3
0195 1c08 | | Execute_Immediate Run_Utility,0x8
0196 00da | | Load_Top At_Offset_2
0197 00d9 | | Load_Top At_Offset_1
0198 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
0199 e404 | | Load 0x2,0x4
019a 016d | m | Execute Variant_Record,Structure_Write
019b 480c |H | Short_Literal 0xc
019c e003 | | Load 0x0,0x3
019d 1c08 | | Execute_Immediate Run_Utility,0x8
019e 00d9 | | Load_Top At_Offset_1
019f 00d9 | | Load_Top At_Offset_1
01a0 2a0d |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0xd
01a1 e405 | | Load 0x2,0x5
01a2 016d | m | Execute Variant_Record,Structure_Write
01a3 e405 | | Load 0x2,0x5
01a4 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
01a5 00d9 | | Load_Top At_Offset_1
01a6 022e | . | Execute Access,Not_Equal
01a7 6802 |h | Jump_Zero 0x1aa
01a8 e402 | | Load 0x2,0x2
01a9 0257 | W | Execute Discrete,Raise
01aa e404 | | Load 0x2,0x4
01ab 2e0d |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xd
01ac 00da | | Load_Top At_Offset_2
01ad 022e | . | Execute Access,Not_Equal
01ae 6802 |h | Jump_Zero 0x1b1
01af e402 | | Load 0x2,0x2
01b0 0257 | W | Execute Discrete,Raise
01b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01b2 0000 0000 | | .BLANK 0000[0x6]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01c3 | | .CONST 0x01c3 ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0003 | | .CONST 0x0003 ; Number of locals
01bb INIT_01b8:
01bb 4801 |H | Short_Literal 0x1
01bc 480a |H | Short_Literal 0xa
01bd e00d | | Load 0x0,0xd
01be 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
01bf 4814 |H | Short_Literal 0x14
01c0 4823 |H# | Short_Literal 0x23
01c1 e00d | | Load 0x0,0xd
01c2 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
01c3 BODY_01b8:
01c3 4804 |H | Short_Literal 0x4
01c4 e003 | | Load 0x0,0x3
01c5 1c08 | | Execute_Immediate Run_Utility,0x8
01c6 00da | | Load_Top At_Offset_2
01c7 00d9 | | Load_Top At_Offset_1
01c8 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01c9 e404 | | Load 0x2,0x4
01ca 016d | m | Execute Variant_Record,Structure_Write
01cb 4804 |H | Short_Literal 0x4
01cc e003 | | Load 0x0,0x3
01cd 1c08 | | Execute_Immediate Run_Utility,0x8
01ce 00d9 | | Load_Top At_Offset_1
01cf 00d9 | | Load_Top At_Offset_1
01d0 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01d1 e405 | | Load 0x2,0x5
01d2 016d | m | Execute Variant_Record,Structure_Write
01d3 e405 | | Load 0x2,0x5
01d4 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
01d5 00d9 | | Load_Top At_Offset_1
01d6 022e | . | Execute Access,Not_Equal
01d7 6802 |h | Jump_Zero 0x1da
01d8 e402 | | Load 0x2,0x2
01d9 0257 | W | Execute Discrete,Raise
01da e404 | | Load 0x2,0x4
01db 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
01dc 00da | | Load_Top At_Offset_2
01dd 022e | . | Execute Access,Not_Equal
01de 6802 |h | Jump_Zero 0x1e1
01df e402 | | Load 0x2,0x2
01e0 0257 | W | Execute Discrete,Raise
01e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01e2 ; --------------------------------------------------------------------------------------
01e2 ; STRING TABLE
01e2 ; --------------------------------------------------------------------------------------
01e2 0008 | | .STRTAB 0x0008->0x01e6 ; "Store/Fetch X_Rm_Entry values"
01e3 0023 | # | .STRTAB 0x0023->0x01f4 ; "Abcd"
01e4 0025 | % | .STRTAB 0x0025->0x01f6 ; "Quadro"
01e5 0029 | ) | .STREND 0x0029->0x01f9
01e6 5374 6f72 |Stor| .STRTAB_STRINGS
01fa 0000 0000 | | .BLANK 0000[0x6]
0200 ; --------------------------------------------------------------------------------------
0200 ; Debug Table
0200 ; --------------------------------------------------------------------------------------
0200 0004 0000 | | .DEBUG4 0x0004,0x0000,0x6809,0x0000,0x0001,0x0006
0206 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
020a 001b 021e | | .DBG4T 0x001b,0x021e,0x8001,0x0000
020e 012b 0247 | + G| .DBG4T 0x012b,0x0247,0x0004,0x0000
0212 015b 0251 | [ Q| .DBG4T 0x015b,0x0251,0x0004,0x0000
0216 018b 025b | [| .DBG4T 0x018b,0x025b,0x0004,0x0000
021a 01bb 0265 | e| .DBG4T 0x01bb,0x0265,0x0004,0x0000
021e ; --------------------------------------------------------------------------------------
021e ; Debug chain
021e ; --------------------------------------------------------------------------------------
021e 000c 001b | | .DBGLEN 0x000c,0x001b
0220 001b 0020 | | .DBGLNO 0x001b,0x0020,0x0022,0x0026,0x002a,0x0035,0x0040,0x004b,0x0056,0x0061,0x006c,0x0077,0x008a,0x008b,0x008e,0x0096,0x009e,0x00a1,0x00a3,0x00a7,0x00a9,0x00b1,0x00b9,0x00be,0x00c0,0x00c4,0x00c6,0x00ce,0x00d6,0x00da,0x00dc,0x00e0,0x00e2,0x00e3,0x00e4,0x00e5,0x00e6,0x00ee,0x00f3
0247 ; --------------------------------------------------------------------------------------
0247 ; Debug chain
0247 ; --------------------------------------------------------------------------------------
0247 0002 0006 | | .DBGLEN 0x0002,0x0006
0249 012b 012f | + /| .DBGLNO 0x012b,0x012f,0x0133,0x013b,0x0143,0x0148,0x014a,0x014f
0251 ; --------------------------------------------------------------------------------------
0251 ; Debug chain
0251 ; --------------------------------------------------------------------------------------
0251 0002 0006 | | .DBGLEN 0x0002,0x0006
0253 015b 015f | [ _| .DBGLNO 0x015b,0x015f,0x0163,0x016b,0x0173,0x0178,0x017a,0x017f
025b ; --------------------------------------------------------------------------------------
025b ; Debug chain
025b ; --------------------------------------------------------------------------------------
025b 0002 0006 | | .DBGLEN 0x0002,0x0006
025d 018b 018f | | .DBGLNO 0x018b,0x018f,0x0193,0x019b,0x01a3,0x01a8,0x01aa,0x01af
0265 ; --------------------------------------------------------------------------------------
0265 ; Debug chain
0265 ; --------------------------------------------------------------------------------------
0265 0002 0006 | | .DBGLEN 0x0002,0x0006
0267 01bb 01bf | | .DBGLNO 0x01bb,0x01bf,0x01c3,0x01cb,0x01d3,0x01d8,0x01da,0x01df
026f 0000 0000 | | .BLANK 0000[0x191]