|
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 0240 | @ | .CONST 0x0240 ; 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 006b | k | .CONST 0x006b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001e | | .CONST 0x001e ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x029a,0x8000,0x0000,0x0057,0x9575,0x0000,0x000d
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
000d 00e3 | | Load_Encached Natural_Cache
000e 02a0 | | Declare_Subprogram Null_Subprogram
000f 4802 |H | Short_Literal 0x2
0010 032e | . | Declare_Type Record,Defined,Visible
0011 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x1 = 0x11,0xfffe
0012 02a0 | | Declare_Subprogram Null_Subprogram
0013 4818 |H | Short_Literal 0x18
0014 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
0015 e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x2 = 0x15,0xfffd
0016 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0017 0129 | ) | Execute Any,Make_Visible
0018 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible ; Debug Table 0x0.0x3 = 0x18,0xfffc
0019 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x19,0xfffb
001b 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x1b,0xfffa
001d 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x1d,0xfff9
001f 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1f,0xfff8
0021 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x21,0xfff7
0023 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x23,0xfff6
0025 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x25,0xfff5
0027 029b 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Unelaborated ; Debug Table 0x0.0xb = 0x27,0xfff4
0029 61e6 |a | Indirect_Literal Discrete,0x210,{0x00000000, 0x00579575} ; Debug Table 0x0.0xc = 0x29,0xfff3
002a 4894 |H | Short_Literal 0x94
002b 00e3 | | Load_Encached Natural_Cache
002c e20e | | Load 0x1,0xe
002d 1d18 | | Execute_Immediate Reference_Lex_1,0x18
002e 4801 |H | Short_Literal 0x1
002f 4806 |H | Short_Literal 0x6
0030 4be9 |K | Short_Literal 0x3e9
0031 e003 | | Load 0x0,0x3
0032 0387 | | Declare_Variable Package
0033 00d8 | | Load_Top At_Offset_0
0034 020f | | Execute Module,Activate
0035 0007 | | Action Break_Optional ; Debug Table 0x0.0xd = 0x35,0xfff2
0036 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0xe = 0x36,0xfff1
0037 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0038 e210 | | Load 0x1,0x10
0039 03a2 | | Complete_Type Heap_Access,By_Renaming
003a 00bf | | Action Accept_Activation
003b 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x003b,0x02ba,0x8000,0x0000,0x0057,0x9605,0x0000,0x0013
; Debug Table 0x1.0x0 = 0x3b,0xffff
003c 61cf |a | Indirect_Literal Discrete,0x20c,{0x00000000, 0x00579605} ; Debug Table 0x1.0x1 = 0x3c,0xfffe
003d 4818 |H | Short_Literal 0x18
003e 00e3 | | Load_Encached Natural_Cache
003f e002 | | Load 0x0,0x2
0040 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
0041 0387 | | Declare_Variable Package
0042 00d8 | | Load_Top At_Offset_0
0043 020f | | Execute Module,Activate
0044 61c7 |a | Indirect_Literal Discrete,0x20c,{0x00000000, 0x00579605} ; Debug Table 0x1.0x2 = 0x44,0xfffd
0045 4820 |H | Short_Literal 0x20
0046 00e9 | | Load_Encached String_Cache
0047 e002 | | Load 0x0,0x2
0048 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
0049 0387 | | Declare_Variable Package
004a 00d8 | | Load_Top At_Offset_0
004b 020f | | Execute Module,Activate
004c 61bf |a | Indirect_Literal Discrete,0x20c,{0x00000000, 0x00579605} ; Debug Table 0x1.0x3 = 0x4c,0xfffc
004d 4828 |H( | Short_Literal 0x28
004e 00e9 | | Load_Encached String_Cache
004f e001 | | Load 0x0,0x1
0050 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0051 e002 | | Load 0x0,0x2
0052 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0053 0387 | | Declare_Variable Package
0054 00d8 | | Load_Top At_Offset_0
0055 020f | | Execute Module,Activate
0056 0092 0214 | | Action Push_String_Extended,0x214 ; "_there"
; Debug Table 0x1.0x4 = 0x56,0xfffb
0058 0007 | | Action Break_Optional ; Debug Table 0x1.0x5 = 0x58,0xfffa
0059 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call ; Debug Table 0x1.0x6 = 0x59,0xfff9
005b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x7 = 0x5b,0xfff8
005c 00c7 | | Action Elaborate_Subprogram
005d 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x8 = 0x5d,0xfff7
005e 00c7 | | Action Elaborate_Subprogram
005f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x9 = 0x5f,0xfff6
0060 00c7 | | Action Elaborate_Subprogram
0061 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0xa = 0x61,0xfff5
0062 00c7 | | Action Elaborate_Subprogram
0063 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0xb = 0x63,0xfff4
0064 00c7 | | Action Elaborate_Subprogram
0065 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xc = 0x65,0xfff3
0066 00c7 | | Action Elaborate_Subprogram
0067 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0xd = 0x67,0xfff2
0068 00c7 | | Action Elaborate_Subprogram
0069 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0xe = 0x69,0xfff1
006a 00c7 | | Action Elaborate_Subprogram
006b BODY_0008:
006b 00bc | | Action Signal_Activated
006c 00bb | | Action Signal_Completion
006d 0000 0000 | | .XXX[0x3]
006f 0000 | |
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0083 | | .CONST 0x0083 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0006 | | .CONST 0x0006 ; Number of locals
0073 INIT_0070:
0073 e002 | | Load 0x0,0x2 ; Debug Table 0x2 = .DEBUG 0x0073,0x02da,0x0001,0x0000,0x0057,0x9575,0x0000,0x002a
; Debug Table 0x2.0x0 = 0x73,0xffff
0074 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0075 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x1 = 0x75,0xfffe
0076 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0077 02ff | | Declare_Variable Variant_Record
0078 00d8 | | Load_Top At_Offset_0
0079 1c00 | | Execute_Immediate Run_Utility,0x0
007a e004 | | Load 0x0,0x4 ; Debug Table 0x2.0x2 = 0x7a,0xfffd
007b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007c 02c7 | | Declare_Variable Any
007d 00d8 | | Load_Top At_Offset_0
007e 1c00 | | Execute_Immediate Run_Utility,0x0
007f e005 | | Load 0x0,0x5 ; Debug Table 0x2.0x3 = 0x7f,0xfffc
0080 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0081 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0082 00f1 | | Load_Encached Diana_Temp_Seq ; Debug Table 0x2.0x4 = 0x82,0xfffb
0083 BODY_0070:
0083 e005 | | Load 0x0,0x5 ; Debug Table 0x2.0x5 = 0x83,0x1
0084 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0085 00f1 | | Load_Encached Diana_Temp_Seq
0086 e005 | | Load 0x0,0x5
0087 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0088 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0089 e404 | | Load 0x2,0x4
008a 0120 | | Execute Any,Is_Value
008b 6803 |h | Jump_Zero 0x8f
008c e004 | | Load 0x0,0x4
008d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008e 7801 |x | Jump 0x90
008f e404 | | Load 0x2,0x4
0090 e403 | | Load 0x2,0x3
0091 6176 |av | Indirect_Literal Discrete,0x208,{0x00000000, 0x00004000}
0092 e006 | | Load 0x0,0x6
0093 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0094 4800 |H | Short_Literal 0x0
0095 e005 | | Load 0x0,0x5
0096 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0097 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0098 e005 | | Load 0x0,0x5
0099 1815 | | Execute Package,Field_Execute,Field_Number 0x15
009a 6169 |ai | Indirect_Literal Discrete,0x204,{0x00000000, 0x7fffffff}
009b 4ffc |O | Short_Literal -0x4
009c 4ffd |O | Short_Literal -0x3
009d e007 | | Load 0x0,0x7
009e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
009f e005 | | Load 0x0,0x5
00a0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00a1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00a2 e005 | | Load 0x0,0x5
00a3 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00a4 e002 | | Load 0x0,0x2
00a5 180f | | Execute Package,Field_Execute,Field_Number 0xf
00a6 e5ff | | Load 0x2,-0x1
00a7 e21d | | Load 0x1,0x1d
00a8 01cc | | Execute Vector,Catenate
00a9 e005 | | Load 0x0,0x5
00aa 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
00ab 180f | | Execute Package,Field_Execute,Field_Number 0xf
00ac 00d1 | | Pop_Control Pop_Count_1
00ad c404 | | Store 0x2,0x4
00ae c405 | | Store 0x2,0x5
00af 0032 | 2 | Store_Top Heap_Access,At_Offset_2
00b0 c402 | | Store 0x2,0x2
00b1 0092 0215 | | Action Push_String_Extended,0x215 ; "unable to create there file"
; Debug Table 0x2.0x6 = 0xb1,0x2
00b3 e402 | | Load 0x2,0x2
00b4 821e | | Call 0x1,0x1e
00b5 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x7 = 0xb5,0x3
00b6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00b7 e5fe | | Load 0x2,-0x2
00b8 e002 | | Load 0x0,0x2
00b9 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00ba 011e | | Execute Any,Convert
00bb 4800 |H | Short_Literal 0x0
00bc 614b |aK | Indirect_Literal Discrete,0x208,{0x00000000, 0x00004000}
00bd e006 | | Load 0x0,0x6
00be 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00bf e007 | | Load 0x0,0x7
00c0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c1 e002 | | Load 0x0,0x2
00c2 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00c3 4800 |H | Short_Literal 0x0
00c4 e5ff | | Load 0x2,-0x1
00c5 e21d | | Load 0x1,0x1d
00c6 01cc | | Execute Vector,Catenate
00c7 4801 |H | Short_Literal 0x1
00c8 e002 | | Load 0x0,0x2
00c9 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00ca e20f | | Load 0x1,0xf
00cb 011e | | Execute Any,Convert
00cc c5fe | | Store 0x2,-0x2
00cd c402 | | Store 0x2,0x2
00ce 0092 0216 | | Action Push_String_Extended,0x216 ; "unable to open there file"
; Debug Table 0x2.0x8 = 0xce,0x4
00d0 e402 | | Load 0x2,0x2
00d1 821e | | Call 0x1,0x1e
00d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d3 0000 0000 | | .BLANK 0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00dd | | .CONST 0x00dd ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0002 | | .CONST 0x0002 ; Number of locals
00db INIT_00d8:
00db e002 | | Load 0x0,0x2 ; Debug Table 0x3 = .DEBUG 0x00db,0x02ee,0x0001,0x0000,0x0057,0x9575,0x0000,0x0036
; Debug Table 0x3.0x0 = 0xdb,0xffff
00dc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00dd BODY_00d8:
00dd e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x1 = 0xdd,0x1
00de 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00df e5ff | | Load 0x2,-0x1
00e0 e002 | | Load 0x0,0x2
00e1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00e2 011e | | Execute Any,Convert
00e3 e002 | | Load 0x0,0x2
00e4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00e5 e20f | | Load 0x1,0xf
00e6 011e | | Execute Any,Convert
00e7 c5ff | | Store 0x2,-0x1
00e8 0059 | Y | Store_Top Discrete,At_Offset_1
00e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ea 0000 0000 | | .BLANK 0000[0x6]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00db | | Load_Top At_Offset_3 ; Debug Table 0x4 = .DEBUG 0x00f3,0x02f4,0x0001,0x0000,0x0057,0x9575,0x0000,0x003e
; Debug Table 0x4.0x0 = 0xf3,0x1
00f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00f5 0217 | | Execute Heap_Access,All_Reference
00f6 00db | | Load_Top At_Offset_3
00f7 e002 | | Load 0x0,0x2
00f8 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
00f9 e5ff | | Load 0x2,-0x1
00fa e21b | | Load 0x1,0x1b
00fb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00fc 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x1 = 0xfc,0x2
00fd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00fe 00db | | Load_Top At_Offset_3
00ff e002 | | Load 0x0,0x2
0100 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0101 e5ff | | Load 0x2,-0x1
0102 e21a | | Load 0x1,0x1a
0103 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0104 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0105 0000 0000 | | .XXX[0x3]
0107 0000 | |
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b e210 | | Load 0x1,0x10 ; Debug Table 0x5 = .DEBUG 0x010b,0x02fa,0x0001,0x0000,0x0057,0x9575,0x0000,0x004a
; Debug Table 0x5.0x0 = 0x10b,0x1
010c 00db | | Load_Top At_Offset_3
010d 039c | | Declare_Variable Heap_Access,By_Allocation
010e 00d8 | | Load_Top At_Offset_0
010f 0217 | | Execute Heap_Access,All_Reference
0110 1c00 | | Execute_Immediate Run_Utility,0x0
0111 a5fe | | Store_Unchecked 0x2,-0x2
0112 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x5.0x1 = 0x112,0x2
0113 0000 0000 | | .BLANK 0000[0x5]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 012d | - | .CONST 0x012d ; Address of begin
0119 018f | | .CONST 0x018f ; Address of exception handler
011a 0007 | | .CONST 0x0007 ; Number of locals
011b INIT_0118:
011b e002 | | Load 0x0,0x2 ; Debug Table 0x6 = .DEBUG 0x011b,0x0300,0x0001,0x0000,0x0057,0x9575,0x0000,0x0058
; Debug Table 0x6.0x0 = 0x11b,0xffff
011c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
011d 02c7 | | Declare_Variable Any
011e 00d8 | | Load_Top At_Offset_0
011f 1c00 | | Execute_Immediate Run_Utility,0x0
0120 e20e | | Load 0x1,0xe ; Debug Table 0x6.0x1 = 0x120,0xfffe
0121 0007 | | Action Break_Optional
0122 e219 | | Load 0x1,0x19 ; Debug Table 0x6.0x2 = 0x122,0xfffd
0123 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0124 e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x3 = 0x124,0xfffc
0125 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0126 e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x4 = 0x126,0xfffb
0127 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0128 02c7 | | Declare_Variable Any
0129 e002 | | Load 0x0,0x2
012a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
012b c406 | | Store 0x2,0x6
012c 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x6.0x5 = 0x12c,0xfffa
012d BODY_0118:
012d 00be | | Action Activate_Tasks
012e e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x6 = 0x12e,0x1
012f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0130 e402 | | Load 0x2,0x2
0131 4800 |H | Short_Literal 0x0
0132 60d5 |` | Indirect_Literal Discrete,0x208,{0x00000000, 0x00004000}
0133 e006 | | Load 0x0,0x6
0134 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0135 e007 | | Load 0x0,0x7
0136 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0137 e002 | | Load 0x0,0x2
0138 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0139 4800 |H | Short_Literal 0x0
013a e5ff | | Load 0x2,-0x1
013b e21d | | Load 0x1,0x1d
013c 01cc | | Execute Vector,Catenate
013d 4800 |H | Short_Literal 0x0
013e e002 | | Load 0x0,0x2
013f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0140 c402 | | Store 0x2,0x2
0141 005b | [ | Store_Top Discrete,At_Offset_3
0142 783f |x? | Jump 0x182
0143 e20e | | Load 0x1,0xe ; Debug Table 0x6.0x7 = 0x143,0x3
0144 03bc | | Declare_Variable Access,By_Allocation
0145 a403 | | Store_Unchecked 0x2,0x3
0146 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x8 = 0x146,0x4
0147 e402 | | Load 0x2,0x2
0148 e21c | | Load 0x1,0x1c
0149 1811 | | Execute Package,Field_Execute,Field_Number 0x11
014a e403 | | Load 0x2,0x3
014b 0227 | ' | Execute Access,All_Reference
014c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
014d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x9 = 0x14d,0x5
014e e402 | | Load 0x2,0x2
014f e21b | | Load 0x1,0x1b
0150 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0151 c406 | | Store 0x2,0x6
0152 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0xa = 0x152,0x6
0153 e402 | | Load 0x2,0x2
0154 e21a | | Load 0x1,0x1a
0155 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0156 e5fd | | Load 0x2,-0x3
0157 0273 | s | Execute Discrete,Plus
0158 e403 | | Load 0x2,0x3
0159 0227 | ' | Execute Access,All_Reference
015a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
015b 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0xb = 0x15b,0x7
015c e402 | | Load 0x2,0x2
015d e21a | | Load 0x1,0x1a
015e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
015f c406 | | Store 0x2,0x6
0160 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x6.0xc = 0x160,0x8
0161 e219 | | Load 0x1,0x19
0162 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0163 e403 | | Load 0x2,0x3
0164 0227 | ' | Execute Access,All_Reference
0165 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0166 e5fc | | Load 0x2,-0x4
0167 e219 | | Load 0x1,0x19
0168 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0169 c404 | | Store 0x2,0x4
016a 0059 | Y | Store_Top Discrete,At_Offset_1
016b e403 | | Load 0x2,0x3 ; Debug Table 0x6.0xd = 0x16b,0x9
016c 0227 | ' | Execute Access,All_Reference
016d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
016e e404 | | Load 0x2,0x4
016f 0217 | | Execute Heap_Access,All_Reference
0170 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0171 e20d | | Load 0x1,0xd ; Debug Table 0x6.0xe = 0x171,0xa
0172 0322 | " | Declare_Variable Record
0173 e403 | | Load 0x2,0x3
0174 0227 | ' | Execute Access,All_Reference
0175 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0176 00d9 | | Load_Top At_Offset_1
0177 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0178 e403 | | Load 0x2,0x3
0179 0227 | ' | Execute Access,All_Reference
017a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
017b 00d9 | | Load_Top At_Offset_1
017c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
017d e20e | | Load 0x1,0xe
017e 03b6 | | Declare_Variable Access,By_Allocation,With_Value
017f e404 | | Load 0x2,0x4
0180 0217 | | Execute Heap_Access,All_Reference
0181 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0182 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0xf = 0x182,0x2
0183 e402 | | Load 0x2,0x2
0184 e002 | | Load 0x0,0x2
0185 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0186 6fbc |o | Jump_Zero 0x143
0187 e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x10 = 0x187,0xb
0188 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0189 e402 | | Load 0x2,0x2
018a e002 | | Load 0x0,0x2
018b 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
018c c402 | | Store 0x2,0x2
018d 005b | [ | Store_Top Discrete,At_Offset_3
018e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
018f TRAP_0118:
018f 0007 | | Action Break_Optional
0190 e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x11 = 0x190,0xc
0191 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0192 e402 | | Load 0x2,0x2
0193 e002 | | Load 0x0,0x2
0194 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0195 c402 | | Store 0x2,0x2
0196 c405 | | Store 0x2,0x5
0197 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x12 = 0x197,0xd
0198 0101 | | Execute Exception,Reraise
0199 0000 0000 | | .BLANK 0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a5 | | .CONST 0x01a5 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0002 | | .CONST 0x0002 ; Number of locals
01a3 INIT_01a0:
01a3 e219 | | Load 0x1,0x19 ; Debug Table 0x7 = .DEBUG 0x01a3,0x0328,0x0001,0x0000,0x0057,0x9575,0x0000,0x006e
; Debug Table 0x7.0x0 = 0x1a3,0xffff
01a4 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01a5 BODY_01a0:
01a5 e5fe | | Load 0x2,-0x2 ; Debug Table 0x7.0x1 = 0x1a5,0x1
01a6 0219 | | Execute Heap_Access,All_Read
01a7 e219 | | Load 0x1,0x19
01a8 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01a9 00d9 | | Load_Top At_Offset_1
01aa e5ff | | Load 0x2,-0x1
01ab e219 | | Load 0x1,0x19
01ac 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01ad 00d1 | | Pop_Control Pop_Count_1
01ae 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01af 00d1 | | Pop_Control Pop_Count_1
01b0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x2 = 0x1b0,0x2
01b1 0217 | | Execute Heap_Access,All_Reference
01b2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01b3 a5fd | | Store_Unchecked 0x2,-0x3
01b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b5 0000 0000 | | .XXX[0x3]
01b7 0000 | |
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01be | | .CONST 0x01be ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0003 | | .CONST 0x0003 ; Number of locals
01bb INIT_01b8:
01bb e219 | | Load 0x1,0x19 ; Debug Table 0x8 = .DEBUG 0x01bb,0x0330,0x0001,0x0000,0x0057,0x9575,0x0000,0x007e
; Debug Table 0x8.0x0 = 0x1bb,0xffff
01bc 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01bd 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x8.0x1 = 0x1bd,0xfffe
01be BODY_01b8:
01be 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x8.0x2 = 0x1be,0x1
01bf e219 | | Load 0x1,0x19
01c0 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01c1 e5ff | | Load 0x2,-0x1
01c2 0227 | ' | Execute Access,All_Reference
01c3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01c4 e5fe | | Load 0x2,-0x2
01c5 e219 | | Load 0x1,0x19
01c6 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01c7 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01c8 0059 | Y | Store_Top Discrete,At_Offset_1
01c9 e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0x3 = 0x1c9,0x2
01ca 0227 | ' | Execute Access,All_Reference
01cb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01cc 00da | | Load_Top At_Offset_2
01cd 0217 | | Execute Heap_Access,All_Reference
01ce 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01cf e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0x4 = 0x1cf,0x3
01d0 00da | | Load_Top At_Offset_2
01d1 0217 | | Execute Heap_Access,All_Reference
01d2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d4 0000 0000 | | .BLANK 0000[0x4]
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 ; Debug Table 0x9 = .DEBUG 0x01db,0x033c,0x0002,0x0000,0x0057,0x9575,0x0000,0x008b
; Debug Table 0x9.0x0 = 0x1db,0x1
01dc 4be9 |K | Short_Literal 0x3e9
01dd 026e | n | Execute Discrete,Modulo
01de 00e3 | | Load_Encached Natural_Cache
01df 025b | [ | Execute Discrete,Check_In_Type
01e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e1 0000 0000 | | .BLANK 0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x01eb,0x0340,0x0001,0x0000,0x0057,0x9605,0x0000,0x003a
; Debug Table 0xa.0x0 = 0x1eb,0x1
01ec 6812 |h | Jump_Zero 0x1ff
01ed 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x1 = 0x1ed,0x2
01ee 0092 0217 | | Action Push_String_Extended,0x217 ; " ("
01f0 01cc | | Execute Vector,Catenate
01f1 00db | | Load_Top At_Offset_3
01f2 e002 | | Load 0x0,0x2
01f3 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01f4 0122 | " | Execute Any,Make_Root_Type
01f5 025e | ^ | Execute Discrete,Convert
01f6 1c01 | | Execute_Immediate Run_Utility,0x1
01f7 01cc | | Execute Vector,Catenate
01f8 0092 0218 | | Action Push_String_Extended,0x218 ; ")"
01fa 01cc | | Execute Vector,Catenate
01fb e008 | | Load 0x0,0x8
01fc 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01fd 6002 |` | Indirect_Literal Discrete,0x200,{0x00000000, 0x57960501} ; Debug Table 0xa.0x2 = 0x1fd,0x3
01fe 0257 | W | Execute Discrete,Raise
01ff 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0200 0000 0000 | | .LITERAL {0x00000000, 0x57960501}
0204 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0208 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
020c 0000 0000 | | .LITERAL {0x00000000, 0x00579605}
0210 0000 0000 | | .LITERAL {0x00000000, 0x00579575}
0214 ; --------------------------------------------------------------------------------------
0214 ; STRING TABLE
0214 ; --------------------------------------------------------------------------------------
0214 000c | | .STRTAB 0x000c->0x021a ; "_there"
0215 0010 | | .STRTAB 0x0010->0x021d ; "unable to create there file"
0216 0029 | ) | .STRTAB 0x0029->0x022a ; "unable to open there file"
0217 0040 | @ | .STRTAB 0x0040->0x0237 ; " ("
0218 0040 | @ | .STRTAB 0x0040->0x0238 ; ")"
0219 003f | ? | .STREND 0x003f->0x0238
021a 5f74 6865 |_the| .STRTAB_STRINGS
0239 0000 0000 | | .BLANK 0000[0x7]
0240 ; --------------------------------------------------------------------------------------
0240 ; Debug Table
0240 ; --------------------------------------------------------------------------------------
0240 0003 000b | | .CONST 0x0003,0x000b
0242 000b 029a | | .DEBUG 0x000b,0x029a,0x8000,0x0000,0x0057,0x9575,0x0000,0x000d
024a 003b 02ba | ; | .DEBUG 0x003b,0x02ba,0x8000,0x0000,0x0057,0x9605,0x0000,0x0013
0252 0073 02da | s | .DEBUG 0x0073,0x02da,0x0001,0x0000,0x0057,0x9575,0x0000,0x002a
025a 00db 02ee | | .DEBUG 0x00db,0x02ee,0x0001,0x0000,0x0057,0x9575,0x0000,0x0036
0262 00f3 02f4 | | .DEBUG 0x00f3,0x02f4,0x0001,0x0000,0x0057,0x9575,0x0000,0x003e
026a 010b 02fa | | .DEBUG 0x010b,0x02fa,0x0001,0x0000,0x0057,0x9575,0x0000,0x004a
0272 011b 0300 | | .DEBUG 0x011b,0x0300,0x0001,0x0000,0x0057,0x9575,0x0000,0x0058
027a 01a3 0328 | (| .DEBUG 0x01a3,0x0328,0x0001,0x0000,0x0057,0x9575,0x0000,0x006e
0282 01bb 0330 | 0| .DEBUG 0x01bb,0x0330,0x0001,0x0000,0x0057,0x9575,0x0000,0x007e
028a 01db 033c | <| .DEBUG 0x01db,0x033c,0x0002,0x0000,0x0057,0x9575,0x0000,0x008b
0292 01eb 0340 | @| .DEBUG 0x01eb,0x0340,0x0001,0x0000,0x0057,0x9605,0x0000,0x003a
029a ; --------------------------------------------------------------------------------------
029a ; Debug3 Subtable 0x0
029a ; --------------------------------------------------------------------------------------
029a 000f 0000 | | .DBG3TAB 0x000f,0x0000
029c 000b ffff | | .CONST 0x000b,0xffff
029e 0011 fffe | | .CONST 0x0011,0xfffe
02a0 0015 fffd | | .CONST 0x0015,0xfffd
02a2 0018 fffc | | .CONST 0x0018,0xfffc
02a4 0019 fffb | | .CONST 0x0019,0xfffb
02a6 001b fffa | | .CONST 0x001b,0xfffa
02a8 001d fff9 | | .CONST 0x001d,0xfff9
02aa 001f fff8 | | .CONST 0x001f,0xfff8
02ac 0021 fff7 | ! | .CONST 0x0021,0xfff7
02ae 0023 fff6 | # | .CONST 0x0023,0xfff6
02b0 0025 fff5 | % | .CONST 0x0025,0xfff5
02b2 0027 fff4 | ' | .CONST 0x0027,0xfff4
02b4 0029 fff3 | ) | .CONST 0x0029,0xfff3
02b6 0035 fff2 | 5 | .CONST 0x0035,0xfff2
02b8 0036 fff1 | 6 | .CONST 0x0036,0xfff1
02ba ; --------------------------------------------------------------------------------------
02ba ; Debug3 Subtable 0x1
02ba ; --------------------------------------------------------------------------------------
02ba 000f 0000 | | .DBG3TAB 0x000f,0x0000
02bc 003b ffff | ; | .CONST 0x003b,0xffff
02be 003c fffe | < | .CONST 0x003c,0xfffe
02c0 0044 fffd | D | .CONST 0x0044,0xfffd
02c2 004c fffc | L | .CONST 0x004c,0xfffc
02c4 0056 fffb | V | .CONST 0x0056,0xfffb
02c6 0058 fffa | X | .CONST 0x0058,0xfffa
02c8 0059 fff9 | Y | .CONST 0x0059,0xfff9
02ca 005b fff8 | [ | .CONST 0x005b,0xfff8
02cc 005d fff7 | ] | .CONST 0x005d,0xfff7
02ce 005f fff6 | _ | .CONST 0x005f,0xfff6
02d0 0061 fff5 | a | .CONST 0x0061,0xfff5
02d2 0063 fff4 | c | .CONST 0x0063,0xfff4
02d4 0065 fff3 | e | .CONST 0x0065,0xfff3
02d6 0067 fff2 | g | .CONST 0x0067,0xfff2
02d8 0069 fff1 | i | .CONST 0x0069,0xfff1
02da ; --------------------------------------------------------------------------------------
02da ; Debug3 Subtable 0x2
02da ; --------------------------------------------------------------------------------------
02da 0005 0004 | | .DBG3TAB 0x0005,0x0004
02dc 0073 ffff | s | .CONST 0x0073,0xffff
02de 0075 fffe | u | .CONST 0x0075,0xfffe
02e0 007a fffd | z | .CONST 0x007a,0xfffd
02e2 007f fffc | | .CONST 0x007f,0xfffc
02e4 0082 fffb | | .CONST 0x0082,0xfffb
02e6 0083 0001 | | .CONST 0x0083,0x0001
02e8 00b1 0002 | | .CONST 0x00b1,0x0002
02ea 00b5 0003 | | .CONST 0x00b5,0x0003
02ec 00ce 0004 | | .CONST 0x00ce,0x0004
02ee ; --------------------------------------------------------------------------------------
02ee ; Debug3 Subtable 0x3
02ee ; --------------------------------------------------------------------------------------
02ee 0001 0001 | | .DBG3TAB 0x0001,0x0001
02f0 00db ffff | | .CONST 0x00db,0xffff
02f2 00dd 0001 | | .CONST 0x00dd,0x0001
02f4 ; --------------------------------------------------------------------------------------
02f4 ; Debug3 Subtable 0x4
02f4 ; --------------------------------------------------------------------------------------
02f4 0000 0002 | | .DBG3TAB 0x0000,0x0002
02f6 00f3 0001 | | .CONST 0x00f3,0x0001
02f8 00fc 0002 | | .CONST 0x00fc,0x0002
02fa ; --------------------------------------------------------------------------------------
02fa ; Debug3 Subtable 0x5
02fa ; --------------------------------------------------------------------------------------
02fa 0000 0002 | | .DBG3TAB 0x0000,0x0002
02fc 010b 0001 | | .CONST 0x010b,0x0001
02fe 0112 0002 | | .CONST 0x0112,0x0002
0300 ; --------------------------------------------------------------------------------------
0300 ; Debug3 Subtable 0x6
0300 ; --------------------------------------------------------------------------------------
0300 0006 000d | | .DBG3TAB 0x0006,0x000d
0302 011b ffff | | .CONST 0x011b,0xffff
0304 0120 fffe | | .CONST 0x0120,0xfffe
0306 0122 fffd | " | .CONST 0x0122,0xfffd
0308 0124 fffc | $ | .CONST 0x0124,0xfffc
030a 0126 fffb | & | .CONST 0x0126,0xfffb
030c 012c fffa | , | .CONST 0x012c,0xfffa
030e 012e 0001 | . | .CONST 0x012e,0x0001
0310 0143 0003 | C | .CONST 0x0143,0x0003
0312 0146 0004 | F | .CONST 0x0146,0x0004
0314 014d 0005 | M | .CONST 0x014d,0x0005
0316 0152 0006 | R | .CONST 0x0152,0x0006
0318 015b 0007 | [ | .CONST 0x015b,0x0007
031a 0160 0008 | ` | .CONST 0x0160,0x0008
031c 016b 0009 | k | .CONST 0x016b,0x0009
031e 0171 000a | q | .CONST 0x0171,0x000a
0320 0182 0002 | | .CONST 0x0182,0x0002
0322 0187 000b | | .CONST 0x0187,0x000b
0324 0190 000c | | .CONST 0x0190,0x000c
0326 0197 000d | | .CONST 0x0197,0x000d
0328 ; --------------------------------------------------------------------------------------
0328 ; Debug3 Subtable 0x7
0328 ; --------------------------------------------------------------------------------------
0328 0001 0002 | | .DBG3TAB 0x0001,0x0002
032a 01a3 ffff | | .CONST 0x01a3,0xffff
032c 01a5 0001 | | .CONST 0x01a5,0x0001
032e 01b0 0002 | | .CONST 0x01b0,0x0002
0330 ; --------------------------------------------------------------------------------------
0330 ; Debug3 Subtable 0x8
0330 ; --------------------------------------------------------------------------------------
0330 0002 0003 | | .DBG3TAB 0x0002,0x0003
0332 01bb ffff | | .CONST 0x01bb,0xffff
0334 01bd fffe | | .CONST 0x01bd,0xfffe
0336 01be 0001 | | .CONST 0x01be,0x0001
0338 01c9 0002 | | .CONST 0x01c9,0x0002
033a 01cf 0003 | | .CONST 0x01cf,0x0003
033c ; --------------------------------------------------------------------------------------
033c ; Debug3 Subtable 0x9
033c ; --------------------------------------------------------------------------------------
033c 0000 0001 | | .DBG3TAB 0x0000,0x0001
033e 01db 0001 | | .CONST 0x01db,0x0001
0340 ; --------------------------------------------------------------------------------------
0340 ; Debug3 Subtable 0xa
0340 ; --------------------------------------------------------------------------------------
0340 0000 0003 | | .DBG3TAB 0x0000,0x0003
0342 01eb 0001 | | .CONST 0x01eb,0x0001
0344 01ed 0002 | | .CONST 0x01ed,0x0002
0346 01fd 0003 | | .CONST 0x01fd,0x0003
0348 0000 0000 | | .BLANK 0000[0xb8]