|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0190 | | .CONST 0x0190 ; 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 0032 | 2 | .CONST 0x0032 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0212,0x0000,0x0000,0x0056,0xda95,0x0000,0x2b32
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x5 = 0x15,0xfffa
0016 60b5 |` | Indirect_Literal Discrete,0xcc,{0x0048140e, 0x00000d30}
0017 02a0 | | Declare_Subprogram Null_Subprogram
0018 038f | | Declare_Type Package,Defined,Visible
0019 e001 | | Load 0x0,0x1
001a 4801 |H | Short_Literal 0x1
001b 00da | | Load_Top At_Offset_2
001c 020e | | Execute Module,Augment_Imports
001d 0386 | | Declare_Variable Package,Visible
001e 00bf | | Action Accept_Activation
001f 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x001f,0x0220,0x0000,0x0000,0x0056,0xdad5,0x0000,0x0006
; Debug Table 0x1.0x0 = 0x1f,0xfffe
0020 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x1 = 0x20,0xfffd
0021 4801 |H | Short_Literal 0x1
0022 00da | | Load_Top At_Offset_2
0023 020e | | Execute Module,Augment_Imports
0024 00d8 | | Load_Top At_Offset_0
0025 020f | | Execute Module,Activate
0026 029d 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call ; Debug Table 0x1.0x2 = 0x26,0xfffc
0028 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x3 = 0x28,0xfffb
0029 00c7 | | Action Elaborate_Subprogram
002a 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x4 = 0x2a,0xfffa
002b 00c7 | | Action Elaborate_Subprogram
002c 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x5 = 0x2c,0xfff9
002d 00c7 | | Action Elaborate_Subprogram
002e 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x6 = 0x2e,0xfff8
002f 00c7 | | Action Elaborate_Subprogram
0030 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x7 = 0x30,0xfff7
0031 00c7 | | Action Elaborate_Subprogram
0032 BODY_0008:
0032 00bc | | Action Signal_Activated
0033 00bb | | Action Signal_Completion
0034 0000 0000 | | .BLANK 0000[0x4]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b e5fd | | Load 0x2,-0x3 ; Debug Table 0x2 = .DEBUG 0x003b,0x0232,0x0001,0x0000,0x0056,0xda95,0x0000,0x2b33
; Debug Table 0x2.0x0 = 0x3b,0x1
003c e5fe | | Load 0x2,-0x2
003d e5ff | | Load 0x2,-0x1
003e e5ff | | Load 0x2,-0x1
003f 8213 | | Call 0x1,0x13
0040 e003 | | Load 0x0,0x3
0041 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0042 00d8 | | Load_Top At_Offset_0
0043 e003 | | Load 0x0,0x3
0044 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0045 7003 |p | Jump_Nonzero 0x49
0046 e001 | | Load 0x0,0x1
0047 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0048 0257 | W | Execute Discrete,Raise
0049 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004a c5fd | | Store 0x2,-0x3
004b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
004c 0000 0000 | | .BLANK 0000[0x4]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3 = .DEBUG 0x0053,0x0236,0x0001,0x0000,0x0056,0xda95,0x0000,0x2b47
; Debug Table 0x3.0x0 = 0x53,0x1
0054 e5fe | | Load 0x2,-0x2
0055 e5ff | | Load 0x2,-0x1
0056 e5ff | | Load 0x2,-0x1
0057 8213 | | Call 0x1,0x13
0058 e003 | | Load 0x0,0x3
0059 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
005a 00d8 | | Load_Top At_Offset_0
005b e003 | | Load 0x0,0x3
005c 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
005d 7003 |p | Jump_Nonzero 0x61
005e e001 | | Load 0x0,0x1
005f 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0060 0257 | W | Execute Discrete,Raise
0061 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0062 c5fd | | Store 0x2,-0x3
0063 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0064 0000 0000 | | .BLANK 0000[0x4]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b e5f9 | | Load 0x2,-0x7 ; Debug Table 0x4 = .DEBUG 0x006b,0x023a,0x0001,0x0000,0x0056,0xda95,0x0000,0x2b5b
; Debug Table 0x4.0x0 = 0x6b,0x1
006c 0120 | | Execute Any,Is_Value
006d 6803 |h | Jump_Zero 0x71
006e e004 | | Load 0x0,0x4
006f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0070 7801 |x | Jump 0x72
0071 e5f9 | | Load 0x2,-0x7
0072 e5fa | | Load 0x2,-0x6
0073 e5fb | | Load 0x2,-0x5
0074 e5fc | | Load 0x2,-0x4
0075 e5fd | | Load 0x2,-0x3
0076 e5fe | | Load 0x2,-0x2
0077 e5ff | | Load 0x2,-0x1
0078 e5ff | | Load 0x2,-0x1
0079 e212 | | Load 0x1,0x12
007a 180f | | Execute Package,Field_Execute,Field_Number 0xf
007b e003 | | Load 0x0,0x3
007c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
007d 00d8 | | Load_Top At_Offset_0
007e e003 | | Load 0x0,0x3
007f 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0080 7003 |p | Jump_Nonzero 0x84
0081 e001 | | Load 0x0,0x1
0082 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0083 0257 | W | Execute Discrete,Raise
0084 180f | | Execute Package,Field_Execute,Field_Number 0xf
0085 c5f9 | | Store 0x2,-0x7
0086 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0087 0000 | | .XXX[0x1]
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 e5f9 | | Load 0x2,-0x7 ; Debug Table 0x5 = .DEBUG 0x008b,0x023e,0x0001,0x0000,0x0056,0xda95,0x0000,0x2b8b
; Debug Table 0x5.0x0 = 0x8b,0x1
008c 0120 | | Execute Any,Is_Value
008d 6803 |h | Jump_Zero 0x91
008e e004 | | Load 0x0,0x4
008f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0090 7801 |x | Jump 0x92
0091 e5f9 | | Load 0x2,-0x7
0092 e5fa | | Load 0x2,-0x6
0093 e5fb | | Load 0x2,-0x5
0094 e5fc | | Load 0x2,-0x4
0095 e5fd | | Load 0x2,-0x3
0096 e5fe | | Load 0x2,-0x2
0097 e5ff | | Load 0x2,-0x1
0098 e5ff | | Load 0x2,-0x1
0099 e212 | | Load 0x1,0x12
009a 180f | | Execute Package,Field_Execute,Field_Number 0xf
009b e003 | | Load 0x0,0x3
009c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
009d 00d8 | | Load_Top At_Offset_0
009e e003 | | Load 0x0,0x3
009f 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
00a0 7003 |p | Jump_Nonzero 0xa4
00a1 e001 | | Load 0x0,0x1
00a2 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00a3 0257 | W | Execute Discrete,Raise
00a4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a5 c5f9 | | Store 0x2,-0x7
00a6 4507 |E | Exit_Suprogram New_Top_Offset 0x7
00a7 0000 | | .XXX[0x1]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab e5fd | | Load 0x2,-0x3 ; Debug Table 0x6 = .DEBUG 0x00ab,0x0242,0x0002,0x0000,0x0056,0xda95,0x0000,0x2bbb
; Debug Table 0x6.0x0 = 0xab,0x1
00ac e5fe | | Load 0x2,-0x2
00ad e5ff | | Load 0x2,-0x1
00ae e5fe | | Load 0x2,-0x2
00af e212 | | Load 0x1,0x12
00b0 180f | | Execute Package,Field_Execute,Field_Number 0xf
00b1 e003 | | Load 0x0,0x3
00b2 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00b3 00d8 | | Load_Top At_Offset_0
00b4 e003 | | Load 0x0,0x3
00b5 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
00b6 7003 |p | Jump_Nonzero 0xba
00b7 e001 | | Load 0x0,0x1
00b8 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00b9 0257 | W | Execute Discrete,Raise
00ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00bb 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x00c3,0x0246,0x0002,0x0000,0x0056,0xdad5,0x0000,0x01a3
; Debug Table 0x7.0x0 = 0xc3,0x1
00c4 0217 | | Execute Heap_Access,All_Reference
00c5 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
00c6 e212 | | Load 0x1,0x12
00c7 180f | | Execute Package,Field_Execute,Field_Number 0xf
00c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c9 0000 0000 | | .XXX[0x3]
00cb 0000 | |
00cc 0048 140e | H | .LITERAL {0x0048140e, 0x00000d30}
00d0 0109 0004 | | .XXX[0x3]
00d2 0015 | |
00d3 e001 | | Load 0x0,0x1 ; Debug Table 0x8 = .DEBUG 0x00d3,0x024a,0x0000,0x0000,0x0056,0xda95,0x0000,0x2bcf
; Debug Table 0x8.0x0 = 0xd3,0xffff
00d4 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
00d5 0129 | ) | Execute Any,Make_Visible
00d6 4808 |H | Short_Literal 0x8 ; Debug Table 0x8.0x1 = 0xd6,0xfffe
00d7 6090 |` | Indirect_Literal Discrete,0x168,{0x0048140e, 0x00001730}
00d8 02a0 | | Declare_Subprogram Null_Subprogram
00d9 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
00da 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x8.0x2 = 0xda,0xfffd
00dc 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x8.0x3 = 0xdc,0xfffc
00de 00c4 | | Action Make_Default ; Debug Table 0x8.0x4 = 0xde,0xfffb
00df 0007 | | Action Break_Optional ; Debug Table 0x8.0x5 = 0xdf,0xfffa
00e0 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x6 = 0xe0,0xfff9
00e1 e20d | | Load 0x1,0xd
00e2 03f0 | | Declare_Variable Discrete,Visible,With_Value
00e3 c211 | | Store 0x1,0x11
00e4 00bf | | Action Accept_Activation
00e5 e002 | | Load 0x0,0x2 ; Debug Table 0x9 = .DEBUG 0x00e5,0x025a,0x0000,0x0000,0x0056,0xdad5,0x0000,0x00d9
; Debug Table 0x9.0x0 = 0xe5,0xffff
00e6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00e7 0007 | | Action Break_Optional ; Debug Table 0x9.0x1 = 0xe7,0xfffe
00e8 e002 | | Load 0x0,0x2 ; Debug Table 0x9.0x2 = 0xe8,0xfffd
00e9 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00ea 0266 | f | Execute Discrete,Bounds
00eb e20d | | Load 0x1,0xd
00ec 02a0 | | Declare_Subprogram Null_Subprogram
00ed 4801 |H | Short_Literal 0x1
00ee 035d | ] | Declare_Type Array,Defined
00ef 00d8 | | Load_Top At_Offset_0
00f0 0337 | 7 | Declare_Variable Array
00f1 00d8 | | Load_Top At_Offset_0
00f2 0337 | 7 | Declare_Variable Array
00f3 480f |H | Short_Literal 0xf
00f4 4800 |H | Short_Literal 0x0
00f5 e211 | | Load 0x1,0x11
00f6 00d9 | | Load_Top At_Offset_1
00f7 e215 | | Load 0x1,0x15
00f8 01d6 | | Execute Vector,Field_Write
00f9 3ffb |? | Loop_Increasing 0xf5
00fa 00d9 | | Load_Top At_Offset_1
00fb 01d4 | | Execute Vector,Structure_Write
00fc 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call ; Debug Table 0x9.0x3 = 0xfc,0xfffc
00fe 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x9.0x4 = 0xfe,0xfffb
00ff 4801 |H | Short_Literal 0x1
0100 e20e | | Load 0x1,0xe
0101 020e | | Execute Module,Augment_Imports
0102 e20e | | Load 0x1,0xe
0103 020d | | Execute Module,Elaborate
0104 0007 | | Action Break_Optional
0105 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x9.0x5 = 0x105,0xfffa
0106 00c7 | | Action Elaborate_Subprogram
0107 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x9.0x6 = 0x107,0xfff9
0108 00c7 | | Action Elaborate_Subprogram
0109 00bc | | Action Signal_Activated
010a 00bb | | Action Signal_Completion
010b 0000 0000 | | .BLANK 0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x0113,0x026a,0x0002,0x0000,0x0056,0xda95,0x0000,0x2c88
; Debug Table 0xa.0x0 = 0x113,0x1
0114 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0115 e214 | | Load 0x1,0x14
0116 01d7 | | Execute Vector,Field_Read
0117 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00cf | | Action Mark_Auxiliary ; Debug Table 0xb = .DEBUG 0x011b,0x026e,0x0001,0x0000,0x0056,0xda95,0x0000,0x2c93
; Debug Table 0xb.0x0 = 0x11b,0xffff
011c e002 | | Load 0x0,0x2 ; Debug Table 0xb.0x1 = 0x11c,0x1
011d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
011e 0265 | e | Execute Discrete,Reverse_Bounds
011f 0007 | | Action Break_Optional
0120 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x2 = 0x120,0x2
0121 e214 | | Load 0x1,0x14
0122 01d7 | | Execute Vector,Field_Read
0123 e5ff | | Load 0x2,-0x1
0124 027f | | Execute Discrete,Equal
0125 6804 |h | Jump_Zero 0x12a
0126 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x3 = 0x126,0x3
0127 e5fe | | Load 0x2,-0x2
0128 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0129 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0xb.0x4 = 0x129,0x4
012a 00c8 | | Action Pop_Auxiliary_Range
012b 3ff4 |? | Loop_Increasing 0x120
012c 00ce | | Action Pop_Auxiliary
012d 6036 |`6 | Indirect_Literal Discrete,0x164,{0x00000000, 0x56dad503} ; Debug Table 0xb.0x5 = 0x12d,0x5
012e 0257 | W | Execute Discrete,Raise
012f 0000 | | .XXX[0x1]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0136 | 6 | .CONST 0x0136 ; Address of begin
0131 0154 | T | .CONST 0x0154 ; Address of exception handler
0132 0002 | | .CONST 0x0002 ; Number of locals
0133 INIT_0130:
0133 e212 | | Load 0x1,0x12 ; Debug Table 0xc = .DEBUG 0x0133,0x027c,0x0001,0x0000,0x0056,0xdad5,0x0000,0x00fc
; Debug Table 0xc.0x0 = 0x133,0xffff
0134 0007 | | Action Break_Optional
0135 0007 | | Action Break_Optional ; Debug Table 0xc.0x1 = 0x135,0xfffe
0136 BODY_0130:
0136 00db | | Load_Top At_Offset_3 ; Debug Table 0xc.0x2 = 0x136,0x1
0137 0092 0186 | | Action Push_String_Extended,0x186 ; "Rational-R1000"
0139 01df | | Execute Vector,Equal
013a 6803 |h | Jump_Zero 0x13e
013b 4801 |H | Short_Literal 0x1 ; Debug Table 0xc.0x3 = 0x13b,0x2
013c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
013d 7806 |x | Jump 0x144
013e 00db | | Load_Top At_Offset_3 ; Debug Table 0xc.0x4 = 0x13e,0x3
013f e212 | | Load 0x1,0x12
0140 0122 | " | Execute Any,Make_Root_Type
0141 00e0 | | Load_Encached Standard_Cache
0142 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0143 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0144 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x5 = 0x144,0x4
0145 e214 | | Load 0x1,0x14
0146 01d7 | | Execute Vector,Field_Read
0147 e211 | | Load 0x1,0x11
0148 027f | | Execute Discrete,Equal
0149 7003 |p | Jump_Nonzero 0x14d
014a 00d8 | | Load_Top At_Offset_0
014b 0c02 | | Execute_Immediate Greater_Equal,0x2
014c 6805 |h | Jump_Zero 0x152
014d e5fe | | Load 0x2,-0x2 ; Debug Table 0xc.0x6 = 0x14d,0x5
014e 00d9 | | Load_Top At_Offset_1
014f e214 | | Load 0x1,0x14
0150 01d6 | | Execute Vector,Field_Write
0151 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0152 600d |` | Indirect_Literal Discrete,0x160,{0x00000000, 0x56dad502} ; Debug Table 0xc.0x7 = 0x152,0x6
0153 0257 | W | Execute Discrete,Raise
0154 TRAP_0130:
0154 010e | | Execute Exception,Is_Constraint_Error
0155 6802 |h | Jump_Zero 0x158
0156 6005 |` | Indirect_Literal Discrete,0x15c,{0x00000000, 0x56dad501} ; Debug Table 0xc.0x8 = 0x156,0x7
0157 0257 | W | Execute Discrete,Raise
0158 0100 | | Execute Exception,Raise
0159 0000 0000 | | .XXX[0x3]
015b 0000 | |
015c 0000 0000 | | .LITERAL {0x00000000, 0x56dad501}
0160 0000 0000 | | .LITERAL {0x00000000, 0x56dad502}
0164 0000 0000 | | .LITERAL {0x00000000, 0x56dad503}
0168 0048 140e | H | .LITERAL {0x0048140e, 0x00001730}
016c 0000 0000 | | .BLANK 0000[0x4]
0170 0176 0004 | v | .XXX[0x3]
0172 0015 | |
0173 029c 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible ; Debug Table 0xd = .DEBUG 0x0173,0x0290,0x4000,0x0000,0x0056,0xda95,0x0000,0x2bd4
; Debug Table 0xd.0x0 = 0x173,0xffff
0175 00bf | | Action Accept_Activation ; Debug Table 0xd.0x1 = 0x175,0xfffe
0176 8215 | | Call 0x1,0x15 ; Debug Table 0xe = .DEBUG 0x0176,0x0296,0x4000,0x0000,0x0056,0xdad5,0x0000,0x014f
; Debug Table 0xe.0x0 = 0x176,0x1
0177 00da | | Load_Top At_Offset_2
0178 8001 | | Call 0x0,0x1
0179 00bc | | Action Signal_Activated
017a 00bb | | Action Signal_Completion
017b 0000 0000 | | .BLANK 0000[0x5]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00b6 | | Action Make_Scope ; Debug Table 0xf = .DEBUG 0x0183,0x029a,0x1002,0x0000,0x0056,0xda95,0x0000,0x2c7b
0184 020a | | Execute Module,Get_Name
0185 00ca | | Action Exit_Nullary_Function
0186 ; --------------------------------------------------------------------------------------
0186 ; STRING TABLE
0186 ; --------------------------------------------------------------------------------------
0186 0004 | | .STRTAB 0x0004->0x0188 ; "Rational-R1000"
0187 0010 | | .STREND 0x0010->0x018f
0188 5261 7469 |Rati| .STRTAB_STRINGS
018f 0000 | | .XXX[0x1]
0190 ; --------------------------------------------------------------------------------------
0190 ; Debug Table
0190 ; --------------------------------------------------------------------------------------
0190 0003 0010 | | .CONST 0x0003,0x0010
0192 000b 0212 | | .DEBUG 0x000b,0x0212,0x0000,0x0000,0x0056,0xda95,0x0000,0x2b32
019a 001f 0220 | | .DEBUG 0x001f,0x0220,0x0000,0x0000,0x0056,0xdad5,0x0000,0x0006
01a2 003b 0232 | ; 2| .DEBUG 0x003b,0x0232,0x0001,0x0000,0x0056,0xda95,0x0000,0x2b33
01aa 0053 0236 | S 6| .DEBUG 0x0053,0x0236,0x0001,0x0000,0x0056,0xda95,0x0000,0x2b47
01b2 006b 023a | k :| .DEBUG 0x006b,0x023a,0x0001,0x0000,0x0056,0xda95,0x0000,0x2b5b
01ba 008b 023e | >| .DEBUG 0x008b,0x023e,0x0001,0x0000,0x0056,0xda95,0x0000,0x2b8b
01c2 00ab 0242 | B| .DEBUG 0x00ab,0x0242,0x0002,0x0000,0x0056,0xda95,0x0000,0x2bbb
01ca 00c3 0246 | F| .DEBUG 0x00c3,0x0246,0x0002,0x0000,0x0056,0xdad5,0x0000,0x01a3
01d2 00d3 024a | J| .DEBUG 0x00d3,0x024a,0x0000,0x0000,0x0056,0xda95,0x0000,0x2bcf
01da 00e5 025a | Z| .DEBUG 0x00e5,0x025a,0x0000,0x0000,0x0056,0xdad5,0x0000,0x00d9
01e2 0113 026a | j| .DEBUG 0x0113,0x026a,0x0002,0x0000,0x0056,0xda95,0x0000,0x2c88
01ea 011b 026e | n| .DEBUG 0x011b,0x026e,0x0001,0x0000,0x0056,0xda95,0x0000,0x2c93
01f2 0133 027c | 3 || .DEBUG 0x0133,0x027c,0x0001,0x0000,0x0056,0xdad5,0x0000,0x00fc
01fa 0173 0290 | s | .DEBUG 0x0173,0x0290,0x4000,0x0000,0x0056,0xda95,0x0000,0x2bd4
0202 0176 0296 | v | .DEBUG 0x0176,0x0296,0x4000,0x0000,0x0056,0xdad5,0x0000,0x014f
020a 0183 029a | | .DEBUG 0x0183,0x029a,0x1002,0x0000,0x0056,0xda95,0x0000,0x2c7b
0212 ; --------------------------------------------------------------------------------------
0212 ; Debug3 Subtable 0x0
0212 ; --------------------------------------------------------------------------------------
0212 0006 0000 | | .DBG3TAB 0x0006,0x0000
0214 000b ffff | | .CONST 0x000b,0xffff
0216 000d fffe | | .CONST 0x000d,0xfffe
0218 000f fffd | | .CONST 0x000f,0xfffd
021a 0011 fffc | | .CONST 0x0011,0xfffc
021c 0013 fffb | | .CONST 0x0013,0xfffb
021e 0015 fffa | | .CONST 0x0015,0xfffa
0220 ; --------------------------------------------------------------------------------------
0220 ; Debug3 Subtable 0x1
0220 ; --------------------------------------------------------------------------------------
0220 0008 0000 | | .DBG3TAB 0x0008,0x0000
0222 001f fffe | | .CONST 0x001f,0xfffe
0224 0020 fffd | | .CONST 0x0020,0xfffd
0226 0026 fffc | & | .CONST 0x0026,0xfffc
0228 0028 fffb | ( | .CONST 0x0028,0xfffb
022a 002a fffa | * | .CONST 0x002a,0xfffa
022c 002c fff9 | , | .CONST 0x002c,0xfff9
022e 002e fff8 | . | .CONST 0x002e,0xfff8
0230 0030 fff7 | 0 | .CONST 0x0030,0xfff7
0232 ; --------------------------------------------------------------------------------------
0232 ; Debug3 Subtable 0x2
0232 ; --------------------------------------------------------------------------------------
0232 0000 0001 | | .DBG3TAB 0x0000,0x0001
0234 003b 0001 | ; | .CONST 0x003b,0x0001
0236 ; --------------------------------------------------------------------------------------
0236 ; Debug3 Subtable 0x3
0236 ; --------------------------------------------------------------------------------------
0236 0000 0001 | | .DBG3TAB 0x0000,0x0001
0238 0053 0001 | S | .CONST 0x0053,0x0001
023a ; --------------------------------------------------------------------------------------
023a ; Debug3 Subtable 0x4
023a ; --------------------------------------------------------------------------------------
023a 0000 0001 | | .DBG3TAB 0x0000,0x0001
023c 006b 0001 | k | .CONST 0x006b,0x0001
023e ; --------------------------------------------------------------------------------------
023e ; Debug3 Subtable 0x5
023e ; --------------------------------------------------------------------------------------
023e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0240 008b 0001 | | .CONST 0x008b,0x0001
0242 ; --------------------------------------------------------------------------------------
0242 ; Debug3 Subtable 0x6
0242 ; --------------------------------------------------------------------------------------
0242 0000 0001 | | .DBG3TAB 0x0000,0x0001
0244 00ab 0001 | | .CONST 0x00ab,0x0001
0246 ; --------------------------------------------------------------------------------------
0246 ; Debug3 Subtable 0x7
0246 ; --------------------------------------------------------------------------------------
0246 0000 0001 | | .DBG3TAB 0x0000,0x0001
0248 00c3 0001 | | .CONST 0x00c3,0x0001
024a ; --------------------------------------------------------------------------------------
024a ; Debug3 Subtable 0x8
024a ; --------------------------------------------------------------------------------------
024a 0007 0000 | | .DBG3TAB 0x0007,0x0000
024c 00d3 ffff | | .CONST 0x00d3,0xffff
024e 00d6 fffe | | .CONST 0x00d6,0xfffe
0250 00da fffd | | .CONST 0x00da,0xfffd
0252 00dc fffc | | .CONST 0x00dc,0xfffc
0254 00de fffb | | .CONST 0x00de,0xfffb
0256 00df fffa | | .CONST 0x00df,0xfffa
0258 00e0 fff9 | | .CONST 0x00e0,0xfff9
025a ; --------------------------------------------------------------------------------------
025a ; Debug3 Subtable 0x9
025a ; --------------------------------------------------------------------------------------
025a 0007 0000 | | .DBG3TAB 0x0007,0x0000
025c 00e5 ffff | | .CONST 0x00e5,0xffff
025e 00e7 fffe | | .CONST 0x00e7,0xfffe
0260 00e8 fffd | | .CONST 0x00e8,0xfffd
0262 00fc fffc | | .CONST 0x00fc,0xfffc
0264 00fe fffb | | .CONST 0x00fe,0xfffb
0266 0105 fffa | | .CONST 0x0105,0xfffa
0268 0107 fff9 | | .CONST 0x0107,0xfff9
026a ; --------------------------------------------------------------------------------------
026a ; Debug3 Subtable 0xa
026a ; --------------------------------------------------------------------------------------
026a 0000 0001 | | .DBG3TAB 0x0000,0x0001
026c 0113 0001 | | .CONST 0x0113,0x0001
026e ; --------------------------------------------------------------------------------------
026e ; Debug3 Subtable 0xb
026e ; --------------------------------------------------------------------------------------
026e 0001 0005 | | .DBG3TAB 0x0001,0x0005
0270 011b ffff | | .CONST 0x011b,0xffff
0272 011c 0001 | | .CONST 0x011c,0x0001
0274 0120 0002 | | .CONST 0x0120,0x0002
0276 0126 0003 | & | .CONST 0x0126,0x0003
0278 0129 0004 | ) | .CONST 0x0129,0x0004
027a 012d 0005 | - | .CONST 0x012d,0x0005
027c ; --------------------------------------------------------------------------------------
027c ; Debug3 Subtable 0xc
027c ; --------------------------------------------------------------------------------------
027c 0002 0007 | | .DBG3TAB 0x0002,0x0007
027e 0133 ffff | 3 | .CONST 0x0133,0xffff
0280 0135 fffe | 5 | .CONST 0x0135,0xfffe
0282 0136 0001 | 6 | .CONST 0x0136,0x0001
0284 013b 0002 | ; | .CONST 0x013b,0x0002
0286 013e 0003 | > | .CONST 0x013e,0x0003
0288 0144 0004 | D | .CONST 0x0144,0x0004
028a 014d 0005 | M | .CONST 0x014d,0x0005
028c 0152 0006 | R | .CONST 0x0152,0x0006
028e 0156 0007 | V | .CONST 0x0156,0x0007
0290 ; --------------------------------------------------------------------------------------
0290 ; Debug3 Subtable 0xd
0290 ; --------------------------------------------------------------------------------------
0290 0002 0000 | | .DBG3TAB 0x0002,0x0000
0292 0173 ffff | s | .CONST 0x0173,0xffff
0294 0175 fffe | u | .CONST 0x0175,0xfffe
0296 ; --------------------------------------------------------------------------------------
0296 ; Debug3 Subtable 0xe
0296 ; --------------------------------------------------------------------------------------
0296 0000 0001 | | .DBG3TAB 0x0000,0x0001
0298 0176 0001 | v | .CONST 0x0176,0x0001
029a ; --------------------------------------------------------------------------------------
029a ; Debug3 Subtable 0xf
029a ; --------------------------------------------------------------------------------------
029a 0000 0000 | | .DBG3TAB 0x0000,0x0000
029c 0000 0000 | | .BLANK 0000[0x164]