|
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_0ea8df
└─⟦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 01c8 | | .CONST 0x01c8 ; 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 0046 | F | .CONST 0x0046 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b 4802 |H | Short_Literal 0x2 ; Debug Table 0x0 = .DEBUG 0x000b,0x021a,0x8000,0x0000,0x005a,0x65c5,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 032b | + | Declare_Type Record,Incomplete,Visible
000d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x1 = 0xd,0xfffe
000e 02a0 | | Declare_Subprogram Null_Subprogram
000f 03ae | | Declare_Type Heap_Access,Defined,Visible
0010 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0x10,0xfffd
0011 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x19,0xfff8
001b 0007 | | Action Break_Optional ; Debug Table 0x0.0x8 = 0x1b,0xfff7
001c 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x9 = 0x1c,0xfff6
001d 481a |H | Short_Literal 0x1a
001e e001 | | Load 0x0,0x1
001f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0020 02a0 | | Declare_Subprogram Null_Subprogram
0021 4801 |H | Short_Literal 0x1
0022 035d | ] | Declare_Type Array,Defined
0023 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0xa = 0x23,0xfff5
0024 00d9 | | Load_Top At_Offset_1
0025 029f 0183 | | Declare_Subprogram INIT_0180,For_Call
0027 e20d | | Load 0x1,0xd
0028 0326 | & | Complete_Type Record,By_Defining
0029 00bf | | Action Accept_Activation
002a 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x002a,0x0232,0x8000,0x0000,0x005a,0x6795,0x0000,0x000d
; Debug Table 0x1.0x0 = 0x2a,0xffff
002b e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x1 = 0x2b,0xfffe
002c 190d | | Execute Package,Field_Reference,Field_Number 0xd
002d 0007 | | Action Break_Optional
002e e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x2 = 0x2e,0xfffd
002f 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0030 0007 | | Action Break_Optional
0031 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call ; Debug Table 0x1.0x3 = 0x31,0xfffc
0033 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x4 = 0x33,0xfffb
0034 00c7 | | Action Elaborate_Subprogram
0035 618e |a | Indirect_Literal Discrete,0x1c4,{0x00000000, 0x005a6795} ; Debug Table 0x1.0x5 = 0x35,0xfffa
0036 48c0 |H | Short_Literal 0xc0
0037 e20d | | Load 0x1,0xd
0038 e20e | | Load 0x1,0xe
0039 e003 | | Load 0x0,0x3
003a 1b18 | | Execute Package,Field_Read,Field_Number 0x18
003b 0387 | | Declare_Variable Package
003c 00d8 | | Load_Top At_Offset_0
003d 020f | | Execute Module,Activate
003e 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x6 = 0x3e,0xfff9
003f 00c7 | | Action Elaborate_Subprogram
0040 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x7 = 0x40,0xfff8
0041 00c7 | | Action Elaborate_Subprogram
0042 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x8 = 0x42,0xfff7
0043 00c7 | | Action Elaborate_Subprogram
0044 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x9 = 0x44,0xfff6
0045 00c7 | | Action Elaborate_Subprogram
0046 BODY_0008:
0046 00bc | | Action Signal_Activated
0047 00bb | | Action Signal_Completion
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004d | M | .CONST 0x004d ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0002 | | .CONST 0x0002 ; Number of locals
004b INIT_0048:
004b e001 | | Load 0x0,0x1 ; Debug Table 0x2 = .DEBUG 0x004b,0x0248,0x0001,0x0000,0x005a,0x65c5,0x0000,0x0018
; Debug Table 0x2.0x0 = 0x4b,0xffff
004c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
004d BODY_0048:
004d 487e |H~ | Short_Literal 0x7e ; Debug Table 0x2.0x1 = 0x4d,0x1
004e a5fa | | Store_Unchecked 0x2,-0x6
004f e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x2 = 0x4f,0x2
0050 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0051 a5fb | | Store_Unchecked 0x2,-0x5
0052 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x3 = 0x52,0x3
0053 8217 | | Call 0x1,0x17
0054 e5fd | | Load 0x2,-0x3
0055 0217 | | Execute Heap_Access,All_Reference
0056 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0057 01d7 | | Execute Vector,Field_Read
0058 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0059 00cf | | Action Mark_Auxiliary
005a 7805 |x | Jump 0x60
005b 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x4 = 0x5b,0x5
005c 0217 | | Execute Heap_Access,All_Reference
005d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
005e 0032 | 2 | Store_Top Heap_Access,At_Offset_2
005f 00c9 | | Action Pop_Auxiliary_Loop
0060 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x5 = 0x60,0x4
0061 6809 |h | Jump_Zero 0x6b
0062 e5fc | | Load 0x2,-0x4
0063 00da | | Load_Top At_Offset_2
0064 0217 | | Execute Heap_Access,All_Reference
0065 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0066 0217 | | Execute Heap_Access,All_Reference
0067 e5fe | | Load 0x2,-0x2
0068 e5ff | | Load 0x2,-0x1
0069 8215 | | Call 0x1,0x15
006a 6ff0 |o | Jump_Zero 0x5b
006b 00ce | | Action Pop_Auxiliary
006c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x6 = 0x6c,0x6
006d a5fb | | Store_Unchecked 0x2,-0x5
006e 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x7 = 0x6e,0x7
006f a5fa | | Store_Unchecked 0x2,-0x6
0070 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0071 0000 0000 | | .BLANK 0000[0x7]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0081 | | .CONST 0x0081 ; Address of begin
0079 00dc | | .CONST 0x00dc ; Address of exception handler
007a 0003 | | .CONST 0x0003 ; Number of locals
007b INIT_0078:
007b e001 | | Load 0x0,0x1 ; Debug Table 0x3 = .DEBUG 0x007b,0x025a,0x0001,0x0000,0x005a,0x65c5,0x0000,0x0038
; Debug Table 0x3.0x0 = 0x7b,0xffff
007c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
007d 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x1 = 0x7d,0xfffe
007e 8217 | | Call 0x1,0x17
007f 00e3 | | Load_Encached Natural_Cache
0080 03f1 | | Declare_Variable Discrete,With_Value
0081 BODY_0078:
0081 487e |H~ | Short_Literal 0x7e ; Debug Table 0x3.0x2 = 0x81,0x1
0082 a5fb | | Store_Unchecked 0x2,-0x5
0083 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x3 = 0x83,0x2
0084 e5fc | | Load 0x2,-0x4
0085 0217 | | Execute Heap_Access,All_Reference
0086 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0087 01d7 | | Execute Vector,Field_Read
0088 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0089 00cf | | Action Mark_Auxiliary
008a 7805 |x | Jump 0x90
008b 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x4 = 0x8b,0x4
008c 0217 | | Execute Heap_Access,All_Reference
008d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
008e 0033 | 3 | Store_Top Heap_Access,At_Offset_3
008f 00c9 | | Action Pop_Auxiliary_Loop
0090 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x5 = 0x90,0x3
0091 6809 |h | Jump_Zero 0x9b
0092 4800 |H | Short_Literal 0x0
0093 00db | | Load_Top At_Offset_3
0094 0217 | | Execute Heap_Access,All_Reference
0095 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0096 0217 | | Execute Heap_Access,All_Reference
0097 e5fe | | Load 0x2,-0x2
0098 e5ff | | Load 0x2,-0x1
0099 8215 | | Call 0x1,0x15
009a 6ff0 |o | Jump_Zero 0x8b
009b 00ce | | Action Pop_Auxiliary
009c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x6 = 0x9c,0x5
009d 6809 |h | Jump_Zero 0xa7
009e e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x7 = 0x9e,0x6
009f e001 | | Load 0x0,0x1
00a0 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00a1 e5fc | | Load 0x2,-0x4
00a2 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
00a3 00da | | Load_Top At_Offset_2
00a4 0217 | | Execute Heap_Access,All_Reference
00a5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00a6 7832 |x2 | Jump 0xd9 ; Debug Table 0x3.0x8 = 0xa6,0x7
00a7 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x9 = 0xa7,0x8
00a8 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00a9 e5fc | | Load 0x2,-0x4
00aa 039c | | Declare_Variable Heap_Access,By_Allocation
00ab 0032 | 2 | Store_Top Heap_Access,At_Offset_2
00ac 0007 | | Action Break_Optional ; Debug Table 0x3.0xa = 0xac,0x9
00ad e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0xb = 0xad,0xa
00ae e218 | | Load 0x1,0x18
00af 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b0 e5ff | | Load 0x2,-0x1
00b1 e002 | | Load 0x0,0x2
00b2 180f | | Execute Package,Field_Execute,Field_Number 0xf
00b3 e5fe | | Load 0x2,-0x2
00b4 e001 | | Load 0x0,0x1
00b5 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00b6 e002 | | Load 0x0,0x2
00b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b8 00da | | Load_Top At_Offset_2
00b9 0217 | | Execute Heap_Access,All_Reference
00ba 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00bb e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0xc = 0xbb,0xb
00bc e001 | | Load 0x0,0x1
00bd 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00be e5fc | | Load 0x2,-0x4
00bf 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
00c0 00da | | Load_Top At_Offset_2
00c1 0217 | | Execute Heap_Access,All_Reference
00c2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00c3 0007 | | Action Break_Optional ; Debug Table 0x3.0xd = 0xc3,0xc
00c4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0xe = 0xc4,0xd
00c5 e5fc | | Load 0x2,-0x4
00c6 0217 | | Execute Heap_Access,All_Reference
00c7 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00c8 01d7 | | Execute Vector,Field_Read
00c9 00da | | Load_Top At_Offset_2
00ca 0217 | | Execute Heap_Access,All_Reference
00cb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00cc 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xf = 0xcc,0xe
00cd 00d9 | | Load_Top At_Offset_1
00ce e5fc | | Load 0x2,-0x4
00cf 0217 | | Execute Heap_Access,All_Reference
00d0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00d1 01d6 | | Execute Vector,Field_Write
00d2 e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0x10 = 0xd2,0xf
00d3 0217 | | Execute Heap_Access,All_Reference
00d4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00d5 0a01 | | Execute_Immediate Plus,0x1
00d6 e5fc | | Load 0x2,-0x4
00d7 0217 | | Execute Heap_Access,All_Reference
00d8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00d9 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x11 = 0xd9,0x10
00da a5fb | | Store_Unchecked 0x2,-0x5
00db 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00dc TRAP_0078:
00dc 4885 |H | Short_Literal 0x85
00dd 010f | | Execute Exception,Equal
00de 6803 |h | Jump_Zero 0xe2
00df 4811 |H | Short_Literal 0x11 ; Debug Table 0x3.0x12 = 0xdf,0x11
00e0 a5fb | | Store_Unchecked 0x2,-0x5
00e1 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00e2 0100 | | Execute Exception,Raise
00e3 0000 0000 | | .BLANK 0000[0x5]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f7 | | .CONST 0x00f7 ; Address of begin
00e9 014a | J | .CONST 0x014a ; Address of exception handler
00ea 0004 | | .CONST 0x0004 ; Number of locals
00eb INIT_00e8:
00eb e004 | | Load 0x0,0x4 ; Debug Table 0x4 = .DEBUG 0x00eb,0x0282,0x0001,0x0000,0x005a,0x65c5,0x0000,0x0052
; Debug Table 0x4.0x0 = 0xeb,0xffff
00ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ed 067e | ~ | Execute_Immediate Set_Value_Unchecked,0x7e
00ee 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x1 = 0xee,0xfffe
00ef 8217 | | Call 0x1,0x17
00f0 e5fd | | Load 0x2,-0x3
00f1 0217 | | Execute Heap_Access,All_Reference
00f2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00f3 01d5 | | Execute Vector,Field_Reference
00f4 0007 | | Action Break_Optional
00f5 e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x2 = 0xf5,0xfffd
00f6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00f7 BODY_00e8:
00f7 487e |H~ | Short_Literal 0x7e ; Debug Table 0x4.0x3 = 0xf7,0x1
00f8 a5fc | | Store_Unchecked 0x2,-0x4
00f9 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x4 = 0xf9,0x2
00fa 7005 |p | Jump_Nonzero 0x100
00fb 4812 |H | Short_Literal 0x12 ; Debug Table 0x4.0x5 = 0xfb,0x3
00fc 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
00fd e004 | | Load 0x0,0x4 ; Debug Table 0x4.0x6 = 0xfd,0x4
00fe 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00ff 0257 | W | Execute Discrete,Raise
0100 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x7 = 0x100,0x5
0101 00da | | Load_Top At_Offset_2
0102 0217 | | Execute Heap_Access,All_Reference
0103 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0104 0217 | | Execute Heap_Access,All_Reference
0105 e5fe | | Load 0x2,-0x2
0106 e5ff | | Load 0x2,-0x1
0107 8215 | | Call 0x1,0x15
0108 680c |h | Jump_Zero 0x115
0109 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x8 = 0x109,0x6
010a 0217 | | Execute Heap_Access,All_Reference
010b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
010c a403 | | Store_Unchecked 0x2,0x3
010d e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x9 = 0x10d,0x7
010e 0217 | | Execute Heap_Access,All_Reference
010f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0110 0aff | | Execute_Immediate Plus,-0x1
0111 e5fd | | Load 0x2,-0x3
0112 0217 | | Execute Heap_Access,All_Reference
0113 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0114 7832 |x2 | Jump 0x147
0115 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0xa = 0x115,0x8
0116 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0117 00cf | | Action Mark_Auxiliary
0118 7805 |x | Jump 0x11e
0119 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0xb = 0x119,0xa
011a 0217 | | Execute Heap_Access,All_Reference
011b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
011c 0032 | 2 | Store_Top Heap_Access,At_Offset_2
011d 00c9 | | Action Pop_Auxiliary_Loop
011e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0xc = 0x11e,0x9
011f 0217 | | Execute Heap_Access,All_Reference
0120 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0121 680b |h | Jump_Zero 0x12d
0122 4800 |H | Short_Literal 0x0
0123 00da | | Load_Top At_Offset_2
0124 0217 | | Execute Heap_Access,All_Reference
0125 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0126 0217 | | Execute Heap_Access,All_Reference
0127 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0128 0217 | | Execute Heap_Access,All_Reference
0129 e5fe | | Load 0x2,-0x2
012a e5ff | | Load 0x2,-0x1
012b 8215 | | Call 0x1,0x15
012c 6fec |o | Jump_Zero 0x119
012d 00ce | | Action Pop_Auxiliary
012e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0xd = 0x12e,0xb
012f 0217 | | Execute Heap_Access,All_Reference
0130 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0131 6810 |h | Jump_Zero 0x142
0132 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0xe = 0x132,0xc
0133 0217 | | Execute Heap_Access,All_Reference
0134 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0135 0217 | | Execute Heap_Access,All_Reference
0136 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0137 00d9 | | Load_Top At_Offset_1
0138 0217 | | Execute Heap_Access,All_Reference
0139 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
013a e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0xf = 0x13a,0xd
013b 0217 | | Execute Heap_Access,All_Reference
013c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
013d 0aff | | Execute_Immediate Plus,-0x1
013e e5fd | | Load 0x2,-0x3
013f 0217 | | Execute Heap_Access,All_Reference
0140 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0141 7805 |x | Jump 0x147
0142 4812 |H | Short_Literal 0x12 ; Debug Table 0x4.0x10 = 0x142,0xe
0143 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0144 e004 | | Load 0x0,0x4 ; Debug Table 0x4.0x11 = 0x144,0xf
0145 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0146 0257 | W | Execute Discrete,Raise
0147 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x12 = 0x147,0x10
0148 a5fc | | Store_Unchecked 0x2,-0x4
0149 4504 |E | Exit_Suprogram New_Top_Offset 0x4
014a TRAP_00e8:
014a e004 | | Load 0x0,0x4
014b 1b16 | | Execute Package,Field_Read,Field_Number 0x16
014c 010f | | Execute Exception,Equal
014d 6803 |h | Jump_Zero 0x151
014e 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x13 = 0x14e,0x11
014f a5fc | | Store_Unchecked 0x2,-0x4
0150 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0151 4885 |H | Short_Literal 0x85
0152 010f | | Execute Exception,Equal
0153 6803 |h | Jump_Zero 0x157
0154 4811 |H | Short_Literal 0x11 ; Debug Table 0x4.0x14 = 0x154,0x12
0155 a5fc | | Store_Unchecked 0x2,-0x4
0156 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0157 487d |H} | Short_Literal 0x7d ; Debug Table 0x4.0x15 = 0x157,0x13
0158 a5fc | | Store_Unchecked 0x2,-0x4
0159 4504 |E | Exit_Suprogram New_Top_Offset 0x4
015a 0000 0000 | | .BLANK 0000[0x6]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x0163,0x02b0,0x0002,0x0000,0x005a,0x65c5,0x0000,0x0068
; Debug Table 0x5.0x0 = 0x163,0x1
0164 0217 | | Execute Heap_Access,All_Reference
0165 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0166 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0167 0000 | | .XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016d | m | .CONST 0x016d ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0002 | | .CONST 0x0002 ; Number of locals
016b INIT_0168:
016b 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call ; Debug Table 0x6 = .DEBUG 0x016b,0x02b4,0x2801,0x0002,0x005a,0x65c5,0x0000,0x0071
; Debug Table 0x6.0x0 = 0x16b,0xffff
016d BODY_0168:
016d 487e |H~ | Short_Literal 0x7e ; Debug Table 0x6.0x1 = 0x16d,0x1
016e a5fc | | Store_Unchecked 0x2,-0x4
016f 00cf | | Action Mark_Auxiliary
0170 e214 | | Load 0x1,0x14 ; Debug Table 0x6.0x2 = 0x170,0x2
0171 01d9 | | Execute Vector,Reverse_Bounds
0172 0007 | | Action Break_Optional
0173 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x3 = 0x173,0x3
0174 e5fd | | Load 0x2,-0x3
0175 0217 | | Execute Heap_Access,All_Reference
0176 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0177 01d7 | | Execute Vector,Field_Read
0178 8402 | | Call 0x2,0x2
0179 00c8 | | Action Pop_Auxiliary_Range
017a 3ff8 |? | Loop_Increasing 0x173
017b 00ce | | Action Pop_Auxiliary
017c 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x4 = 0x17c,0x4
017d a5fc | | Store_Unchecked 0x2,-0x4
017e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
017f 0000 | | .XXX[0x1]
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 4608 |F | Jump_Case 0x9 ; Debug Table 0x7 = .DEBUG 0x0183,0x02c0,0x0005,0x0000,0x005a,0x65c5,0x0000,0x00a8
0184 7808 |x | Jump 0x18d ; case 0x0
0185 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0186 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0187 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0188 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0189 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
018a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
018b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
018c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
018d 4800 |H | Short_Literal 0x0
018e 00db | | Load_Top At_Offset_3
018f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0190 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0191 0000 0000 | | .BLANK 0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x019b,0x02c2,0x0002,0x0000,0x005a,0x6795,0x0000,0x0046
; Debug Table 0x8.0x0 = 0x19b,0x1
019c 01dd | | Execute Vector,First
019d 00db | | Load_Top At_Offset_3
019e 01d7 | | Execute Vector,Field_Read
019f 8216 | | Call 0x1,0x16
01a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a1 0000 0000 | | .BLANK 0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01af | | .CONST 0x01af ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0002 | | .CONST 0x0002 ; Number of locals
01ab INIT_01a8:
01ab e001 | | Load 0x0,0x1 ; Debug Table 0x9 = .DEBUG 0x01ab,0x02c6,0x0801,0x0002,0x005a,0x6795,0x0000,0x029b
; Debug Table 0x9.0x0 = 0x1ab,0xffff
01ac 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01ad 00db | | Load_Top At_Offset_3
01ae 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01af BODY_01a8:
01af 00cf | | Action Mark_Auxiliary
01b0 780e |x | Jump 0x1bf
01b1 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x1 = 0x1b1,0x2
01b2 0217 | | Execute Heap_Access,All_Reference
01b3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01b4 0217 | | Execute Heap_Access,All_Reference
01b5 00da | | Load_Top At_Offset_2
01b6 0217 | | Execute Heap_Access,All_Reference
01b7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01b8 0217 | | Execute Heap_Access,All_Reference
01b9 85fe | | Call 0x2,-0x2
01ba 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x2 = 0x1ba,0x3
01bb 0217 | | Execute Heap_Access,All_Reference
01bc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01bd 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01be 00c9 | | Action Pop_Auxiliary_Loop
01bf 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x3 = 0x1bf,0x1
01c0 77f0 |w | Jump_Nonzero 0x1b1
01c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01c2 0000 0000 | | .XXX[0x2]
01c4 0000 0000 | | .LITERAL {0x00000000, 0x005a6795}
01c8 ; --------------------------------------------------------------------------------------
01c8 ; Debug Table
01c8 ; --------------------------------------------------------------------------------------
01c8 0003 000a | | .CONST 0x0003,0x000a
01ca 000b 021a | | .DEBUG 0x000b,0x021a,0x8000,0x0000,0x005a,0x65c5,0x0000,0x0009
01d2 002a 0232 | * 2| .DEBUG 0x002a,0x0232,0x8000,0x0000,0x005a,0x6795,0x0000,0x000d
01da 004b 0248 | K H| .DEBUG 0x004b,0x0248,0x0001,0x0000,0x005a,0x65c5,0x0000,0x0018
01e2 007b 025a | { Z| .DEBUG 0x007b,0x025a,0x0001,0x0000,0x005a,0x65c5,0x0000,0x0038
01ea 00eb 0282 | | .DEBUG 0x00eb,0x0282,0x0001,0x0000,0x005a,0x65c5,0x0000,0x0052
01f2 0163 02b0 | c | .DEBUG 0x0163,0x02b0,0x0002,0x0000,0x005a,0x65c5,0x0000,0x0068
01fa 016b 02b4 | k | .DEBUG 0x016b,0x02b4,0x2801,0x0002,0x005a,0x65c5,0x0000,0x0071
0202 0183 02c0 | | .DEBUG 0x0183,0x02c0,0x0005,0x0000,0x005a,0x65c5,0x0000,0x00a8
020a 019b 02c2 | | .DEBUG 0x019b,0x02c2,0x0002,0x0000,0x005a,0x6795,0x0000,0x0046
0212 01ab 02c6 | | .DEBUG 0x01ab,0x02c6,0x0801,0x0002,0x005a,0x6795,0x0000,0x029b
021a ; --------------------------------------------------------------------------------------
021a ; Debug3 Subtable 0x0
021a ; --------------------------------------------------------------------------------------
021a 000b 0000 | | .DBG3TAB 0x000b,0x0000
021c 000b ffff | | .CONST 0x000b,0xffff
021e 000d fffe | | .CONST 0x000d,0xfffe
0220 0010 fffd | | .CONST 0x0010,0xfffd
0222 0011 fffc | | .CONST 0x0011,0xfffc
0224 0013 fffb | | .CONST 0x0013,0xfffb
0226 0015 fffa | | .CONST 0x0015,0xfffa
0228 0017 fff9 | | .CONST 0x0017,0xfff9
022a 0019 fff8 | | .CONST 0x0019,0xfff8
022c 001b fff7 | | .CONST 0x001b,0xfff7
022e 001c fff6 | | .CONST 0x001c,0xfff6
0230 0023 fff5 | # | .CONST 0x0023,0xfff5
0232 ; --------------------------------------------------------------------------------------
0232 ; Debug3 Subtable 0x1
0232 ; --------------------------------------------------------------------------------------
0232 000a 0000 | | .DBG3TAB 0x000a,0x0000
0234 002a ffff | * | .CONST 0x002a,0xffff
0236 002b fffe | + | .CONST 0x002b,0xfffe
0238 002e fffd | . | .CONST 0x002e,0xfffd
023a 0031 fffc | 1 | .CONST 0x0031,0xfffc
023c 0033 fffb | 3 | .CONST 0x0033,0xfffb
023e 0035 fffa | 5 | .CONST 0x0035,0xfffa
0240 003e fff9 | > | .CONST 0x003e,0xfff9
0242 0040 fff8 | @ | .CONST 0x0040,0xfff8
0244 0042 fff7 | B | .CONST 0x0042,0xfff7
0246 0044 fff6 | D | .CONST 0x0044,0xfff6
0248 ; --------------------------------------------------------------------------------------
0248 ; Debug3 Subtable 0x2
0248 ; --------------------------------------------------------------------------------------
0248 0001 0007 | | .DBG3TAB 0x0001,0x0007
024a 004b ffff | K | .CONST 0x004b,0xffff
024c 004d 0001 | M | .CONST 0x004d,0x0001
024e 004f 0002 | O | .CONST 0x004f,0x0002
0250 0052 0003 | R | .CONST 0x0052,0x0003
0252 005b 0005 | [ | .CONST 0x005b,0x0005
0254 0060 0004 | ` | .CONST 0x0060,0x0004
0256 006c 0006 | l | .CONST 0x006c,0x0006
0258 006e 0007 | n | .CONST 0x006e,0x0007
025a ; --------------------------------------------------------------------------------------
025a ; Debug3 Subtable 0x3
025a ; --------------------------------------------------------------------------------------
025a 0002 0011 | | .DBG3TAB 0x0002,0x0011
025c 007b ffff | { | .CONST 0x007b,0xffff
025e 007d fffe | } | .CONST 0x007d,0xfffe
0260 0081 0001 | | .CONST 0x0081,0x0001
0262 0083 0002 | | .CONST 0x0083,0x0002
0264 008b 0004 | | .CONST 0x008b,0x0004
0266 0090 0003 | | .CONST 0x0090,0x0003
0268 009c 0005 | | .CONST 0x009c,0x0005
026a 009e 0006 | | .CONST 0x009e,0x0006
026c 00a6 0007 | | .CONST 0x00a6,0x0007
026e 00a7 0008 | | .CONST 0x00a7,0x0008
0270 00ac 0009 | | .CONST 0x00ac,0x0009
0272 00ad 000a | | .CONST 0x00ad,0x000a
0274 00bb 000b | | .CONST 0x00bb,0x000b
0276 00c3 000c | | .CONST 0x00c3,0x000c
0278 00c4 000d | | .CONST 0x00c4,0x000d
027a 00cc 000e | | .CONST 0x00cc,0x000e
027c 00d2 000f | | .CONST 0x00d2,0x000f
027e 00d9 0010 | | .CONST 0x00d9,0x0010
0280 00df 0011 | | .CONST 0x00df,0x0011
0282 ; --------------------------------------------------------------------------------------
0282 ; Debug3 Subtable 0x4
0282 ; --------------------------------------------------------------------------------------
0282 0003 0013 | | .DBG3TAB 0x0003,0x0013
0284 00eb ffff | | .CONST 0x00eb,0xffff
0286 00ee fffe | | .CONST 0x00ee,0xfffe
0288 00f5 fffd | | .CONST 0x00f5,0xfffd
028a 00f7 0001 | | .CONST 0x00f7,0x0001
028c 00f9 0002 | | .CONST 0x00f9,0x0002
028e 00fb 0003 | | .CONST 0x00fb,0x0003
0290 00fd 0004 | | .CONST 0x00fd,0x0004
0292 0100 0005 | | .CONST 0x0100,0x0005
0294 0109 0006 | | .CONST 0x0109,0x0006
0296 010d 0007 | | .CONST 0x010d,0x0007
0298 0115 0008 | | .CONST 0x0115,0x0008
029a 0119 000a | | .CONST 0x0119,0x000a
029c 011e 0009 | | .CONST 0x011e,0x0009
029e 012e 000b | . | .CONST 0x012e,0x000b
02a0 0132 000c | 2 | .CONST 0x0132,0x000c
02a2 013a 000d | : | .CONST 0x013a,0x000d
02a4 0142 000e | B | .CONST 0x0142,0x000e
02a6 0144 000f | D | .CONST 0x0144,0x000f
02a8 0147 0010 | G | .CONST 0x0147,0x0010
02aa 014e 0011 | N | .CONST 0x014e,0x0011
02ac 0154 0012 | T | .CONST 0x0154,0x0012
02ae 0157 0013 | W | .CONST 0x0157,0x0013
02b0 ; --------------------------------------------------------------------------------------
02b0 ; Debug3 Subtable 0x5
02b0 ; --------------------------------------------------------------------------------------
02b0 0000 0001 | | .DBG3TAB 0x0000,0x0001
02b2 0163 0001 | c | .CONST 0x0163,0x0001
02b4 ; --------------------------------------------------------------------------------------
02b4 ; Debug3 Subtable 0x6
02b4 ; --------------------------------------------------------------------------------------
02b4 0001 0004 | | .DBG3TAB 0x0001,0x0004
02b6 016b ffff | k | .CONST 0x016b,0xffff
02b8 016d 0001 | m | .CONST 0x016d,0x0001
02ba 0170 0002 | p | .CONST 0x0170,0x0002
02bc 0173 0003 | s | .CONST 0x0173,0x0003
02be 017c 0004 | | | .CONST 0x017c,0x0004
02c0 ; --------------------------------------------------------------------------------------
02c0 ; Debug3 Subtable 0x7
02c0 ; --------------------------------------------------------------------------------------
02c0 0000 0000 | | .DBG3TAB 0x0000,0x0000
02c2 ; --------------------------------------------------------------------------------------
02c2 ; Debug3 Subtable 0x8
02c2 ; --------------------------------------------------------------------------------------
02c2 0000 0001 | | .DBG3TAB 0x0000,0x0001
02c4 019b 0001 | | .CONST 0x019b,0x0001
02c6 ; --------------------------------------------------------------------------------------
02c6 ; Debug3 Subtable 0x9
02c6 ; --------------------------------------------------------------------------------------
02c6 0001 0003 | | .DBG3TAB 0x0001,0x0003
02c8 01ab ffff | | .CONST 0x01ab,0xffff
02ca 01b1 0002 | | .CONST 0x01b1,0x0002
02cc 01ba 0003 | | .CONST 0x01ba,0x0003
02ce 01bf 0001 | | .CONST 0x01bf,0x0001
02d0 0000 0000 | | .BLANK 0000[0x130]