|
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 0250 | P | .CONST 0x0250 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 006a | j | .CONST 0x006a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001d | | .CONST 0x001d ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x02a2,0x8000,0x0000,0x0057,0x9525,0x0000,0x000d
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
000d 00e3 | | Load_Encached Natural_Cache
000e e001 | | Load 0x0,0x1
000f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0010 02a0 | | Declare_Subprogram Null_Subprogram
0011 4803 |H | Short_Literal 0x3
0012 032e | . | Declare_Type Record,Defined,Visible
0013 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x1 = 0x13,0xfffe
0014 02a0 | | Declare_Subprogram Null_Subprogram
0015 4818 |H | Short_Literal 0x18
0016 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
0017 e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x2 = 0x17,0xfffd
0018 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0019 0129 | ) | Execute Any,Make_Visible
001a 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible ; Debug Table 0x0.0x3 = 0x1a,0xfffc
001b 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x1b,0xfffb
001d 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x1d,0xfffa
001f 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x1f,0xfff9
0021 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x21,0xfff8
0023 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x23,0xfff7
0025 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x25,0xfff6
0027 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x27,0xfff5
0029 61fe |a | Indirect_Literal Discrete,0x228,{0x00000000, 0x00579525} ; Debug Table 0x0.0xb = 0x29,0xfff4
002a 4890 |H | Short_Literal 0x90
002b e001 | | Load 0x0,0x1
002c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
002d e20e | | Load 0x1,0xe
002e e001 | | Load 0x0,0x1
002f 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0030 4801 |H | Short_Literal 0x1
0031 4806 |H | Short_Literal 0x6
0032 4be9 |K | Short_Literal 0x3e9
0033 e003 | | Load 0x0,0x3
0034 0387 | | Declare_Variable Package
0035 00d8 | | Load_Top At_Offset_0
0036 020f | | Execute Module,Activate
0037 0007 | | Action Break_Optional ; Debug Table 0x0.0xc = 0x37,0xfff3
0038 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0xd = 0x38,0xfff2
0039 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
003a 02a0 | | Declare_Subprogram Null_Subprogram
003b e210 | | Load 0x1,0x10
003c 03a3 | | Complete_Type Heap_Access,By_Defining
003d 00bf | | Action Accept_Activation ; Debug Table 0x0.0xe = 0x3d,0xfff1
003e 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x003e,0x02c2,0x8000,0x0000,0x0057,0x9535,0x0000,0x0013
; Debug Table 0x1.0x0 = 0x3e,0xffff
003f 61e4 |a | Indirect_Literal Discrete,0x224,{0x00000000, 0x00579535} ; Debug Table 0x1.0x1 = 0x3f,0xfffe
0040 4818 |H | Short_Literal 0x18
0041 00e3 | | Load_Encached Natural_Cache
0042 e002 | | Load 0x0,0x2
0043 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
0044 0387 | | Declare_Variable Package
0045 00d8 | | Load_Top At_Offset_0
0046 020f | | Execute Module,Activate
0047 61dc |a | Indirect_Literal Discrete,0x224,{0x00000000, 0x00579535} ; Debug Table 0x1.0x2 = 0x47,0xfffd
0048 4820 |H | Short_Literal 0x20
0049 00e9 | | Load_Encached String_Cache
004a e002 | | Load 0x0,0x2
004b 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
004c 0387 | | Declare_Variable Package
004d 00d8 | | Load_Top At_Offset_0
004e 020f | | Execute Module,Activate
004f 61d4 |a | Indirect_Literal Discrete,0x224,{0x00000000, 0x00579535} ; Debug Table 0x1.0x3 = 0x4f,0xfffc
0050 4828 |H( | Short_Literal 0x28
0051 00e9 | | Load_Encached String_Cache
0052 e002 | | Load 0x0,0x2
0053 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
0054 0387 | | Declare_Variable Package
0055 00d8 | | Load_Top At_Offset_0
0056 020f | | Execute Module,Activate
0057 0092 022c | ,| Action Push_String_Extended,0x22c ; "_here"
; Debug Table 0x1.0x4 = 0x57,0xfffb
0059 0007 | | Action Break_Optional ; Debug Table 0x1.0x5 = 0x59,0xfffa
005a 029d 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call ; Debug Table 0x1.0x6 = 0x5a,0xfff9
005c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x7 = 0x5c,0xfff8
005d 00c7 | | Action Elaborate_Subprogram
005e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x8 = 0x5e,0xfff7
005f 00c7 | | Action Elaborate_Subprogram
0060 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x9 = 0x60,0xfff6
0061 00c7 | | Action Elaborate_Subprogram
0062 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0xa = 0x62,0xfff5
0063 00c7 | | Action Elaborate_Subprogram
0064 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0xb = 0x64,0xfff4
0065 00c7 | | Action Elaborate_Subprogram
0066 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xc = 0x66,0xfff3
0067 00c7 | | Action Elaborate_Subprogram
0068 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0xd = 0x68,0xfff2
0069 00c7 | | Action Elaborate_Subprogram
006a BODY_0008:
006a 00bc | | Action Signal_Activated
006b 00bb | | Action Signal_Completion
006c 0000 0000 | | .BLANK 0000[0x4]
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,0x02e0,0x0001,0x0000,0x0057,0x9525,0x0000,0x002f
; 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 618e |a | Indirect_Literal Discrete,0x220,{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 6181 |a | Indirect_Literal Discrete,0x21c,{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 e21c | | Load 0x1,0x1c
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 022d | -| Action Push_String_Extended,0x22d ; "unable to create here file"
; Debug Table 0x2.0x6 = 0xb1,0x2
00b3 e402 | | Load 0x2,0x2
00b4 821d | | Call 0x1,0x1d
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 6163 |ac | Indirect_Literal Discrete,0x220,{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 e21c | | Load 0x1,0x1c
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 022e | .| Action Push_String_Extended,0x22e ; "unable to open here file"
; Debug Table 0x2.0x8 = 0xce,0x4
00d0 e402 | | Load 0x2,0x2
00d1 821d | | Call 0x1,0x1d
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,0x02f4,0x0001,0x0000,0x0057,0x9525,0x0000,0x003b
; 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,0x02fa,0x0001,0x0000,0x0057,0x9525,0x0000,0x0043
; 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 e21a | | Load 0x1,0x1a
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 e219 | | Load 0x1,0x19
0103 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0104 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x2 = 0x104,0x3
0105 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0106 0217 | | Execute Heap_Access,All_Reference
0107 00db | | Load_Top At_Offset_3
0108 e002 | | Load 0x0,0x2
0109 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
010a e5ff | | Load 0x2,-0x1
010b e21a | | Load 0x1,0x1a
010c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
010d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
010e 0000 0000 | | .XXX[0x2]
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 e210 | | Load 0x1,0x10 ; Debug Table 0x5 = .DEBUG 0x0113,0x0302,0x0001,0x0000,0x0057,0x9525,0x0000,0x004f
; Debug Table 0x5.0x0 = 0x113,0x1
0114 00db | | Load_Top At_Offset_3
0115 039c | | Declare_Variable Heap_Access,By_Allocation
0116 a5fe | | Store_Unchecked 0x2,-0x2
0117 0007 | | Action Break_Optional ; Debug Table 0x5.0x1 = 0x117,0x2
0118 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x2 = 0x118,0x3
0119 0219 | | Execute Heap_Access,All_Read
011a 00d8 | | Load_Top At_Offset_0
011b e5ff | | Load 0x2,-0x1
011c e218 | | Load 0x1,0x18
011d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
011e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
011f 0000 | | .XXX[0x1]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 013a | : | .CONST 0x013a ; Address of begin
0121 01b0 | | .CONST 0x01b0 ; Address of exception handler
0122 0008 | | .CONST 0x0008 ; Number of locals
0123 INIT_0120:
0123 e002 | | Load 0x0,0x2 ; Debug Table 0x6 = .DEBUG 0x0123,0x030a,0x0001,0x0000,0x0057,0x9525,0x0000,0x005d
; Debug Table 0x6.0x0 = 0x123,0xffff
0124 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0125 02c7 | | Declare_Variable Any
0126 00d8 | | Load_Top At_Offset_0
0127 1c00 | | Execute_Immediate Run_Utility,0x0
0128 e218 | | Load 0x1,0x18 ; Debug Table 0x6.0x1 = 0x128,0xfffe
0129 1b16 | | Execute Package,Field_Read,Field_Number 0x16
012a e20e | | Load 0x1,0xe ; Debug Table 0x6.0x2 = 0x12a,0xfffd
012b 0007 | | Action Break_Optional
012c e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x3 = 0x12c,0xfffc
012d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
012e e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x4 = 0x12e,0xfffb
012f 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0130 02c7 | | Declare_Variable Any
0131 e002 | | Load 0x0,0x2
0132 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0133 c406 | | Store 0x2,0x6
0134 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x6.0x5 = 0x134,0xfffa
0135 e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x6 = 0x135,0xfff9
0136 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0137 02ff | | Declare_Variable Variant_Record
0138 00d8 | | Load_Top At_Offset_0
0139 1c00 | | Execute_Immediate Run_Utility,0x0
013a BODY_0120:
013a 00be | | Action Activate_Tasks
013b e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x7 = 0x13b,0x1
013c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
013d e402 | | Load 0x2,0x2
013e e002 | | Load 0x0,0x2
013f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0140 011e | | Execute Any,Convert
0141 4800 |H | Short_Literal 0x0
0142 60dd |` | Indirect_Literal Discrete,0x220,{0x00000000, 0x00004000}
0143 e006 | | Load 0x0,0x6
0144 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0145 e007 | | Load 0x0,0x7
0146 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0147 e002 | | Load 0x0,0x2
0148 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0149 4800 |H | Short_Literal 0x0
014a e5ff | | Load 0x2,-0x1
014b e21c | | Load 0x1,0x1c
014c 01cc | | Execute Vector,Catenate
014d 4800 |H | Short_Literal 0x0
014e e002 | | Load 0x0,0x2
014f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0150 e002 | | Load 0x0,0x2
0151 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0152 011e | | Execute Any,Convert
0153 c402 | | Store 0x2,0x2
0154 c405 | | Store 0x2,0x5
0155 784d |xM | Jump 0x1a3
0156 e20e | | Load 0x1,0xe ; Debug Table 0x6.0x8 = 0x156,0x3
0157 03bc | | Declare_Variable Access,By_Allocation
0158 a404 | | Store_Unchecked 0x2,0x4
0159 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x9 = 0x159,0x4
015a e402 | | Load 0x2,0x2
015b e21b | | Load 0x1,0x1b
015c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
015d e001 | | Load 0x0,0x1
015e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
015f e5fe | | Load 0x2,-0x2
0160 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0161 e404 | | Load 0x2,0x4
0162 0227 | ' | Execute Access,All_Reference
0163 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0164 0007 | | Action Break_Optional ; Debug Table 0x6.0xa = 0x164,0x5
0165 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xb = 0x165,0x6
0166 e402 | | Load 0x2,0x2
0167 e21a | | Load 0x1,0x1a
0168 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0169 c406 | | Store 0x2,0x6
016a 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xc = 0x16a,0x7
016b e402 | | Load 0x2,0x2
016c e219 | | Load 0x1,0x19
016d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
016e e5fd | | Load 0x2,-0x3
016f 0273 | s | Execute Discrete,Plus
0170 e404 | | Load 0x2,0x4
0171 0227 | ' | Execute Access,All_Reference
0172 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0173 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xd = 0x173,0x8
0174 e402 | | Load 0x2,0x2
0175 e219 | | Load 0x1,0x19
0176 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0177 c406 | | Store 0x2,0x6
0178 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xe = 0x178,0x9
0179 e402 | | Load 0x2,0x2
017a e21b | | Load 0x1,0x1b
017b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
017c e001 | | Load 0x0,0x1
017d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
017e e5fe | | Load 0x2,-0x2
017f 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0180 e404 | | Load 0x2,0x4
0181 0227 | ' | Execute Access,All_Reference
0182 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0183 0007 | | Action Break_Optional ; Debug Table 0x6.0xf = 0x183,0xa
0184 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x10 = 0x184,0xb
0185 e402 | | Load 0x2,0x2
0186 e21a | | Load 0x1,0x1a
0187 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0188 c406 | | Store 0x2,0x6
0189 e5fc | | Load 0x2,-0x4 ; Debug Table 0x6.0x11 = 0x189,0xc
018a 0219 | | Execute Heap_Access,All_Read
018b 00e1 | | Load_Encached Boolean_Cache
018c e218 | | Load 0x1,0x18
018d 1b16 | | Execute Package,Field_Read,Field_Number 0x16
018e 00da | | Load_Top At_Offset_2
018f e404 | | Load 0x2,0x4
0190 0227 | ' | Execute Access,All_Reference
0191 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0192 0217 | | Execute Heap_Access,All_Reference
0193 e218 | | Load 0x1,0x18
0194 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0195 00d1 | | Pop_Control Pop_Count_1
0196 c403 | | Store 0x2,0x3
0197 005b | [ | Store_Top Discrete,At_Offset_3
0198 00d1 | | Pop_Control Pop_Count_1
0199 e404 | | Load 0x2,0x4 ; Debug Table 0x6.0x12 = 0x199,0xd
019a 0227 | ' | Execute Access,All_Reference
019b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
019c e403 | | Load 0x2,0x3
019d 0217 | | Execute Heap_Access,All_Reference
019e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
019f e404 | | Load 0x2,0x4 ; Debug Table 0x6.0x13 = 0x19f,0xe
01a0 e403 | | Load 0x2,0x3
01a1 0217 | | Execute Heap_Access,All_Reference
01a2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01a3 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x14 = 0x1a3,0x2
01a4 e402 | | Load 0x2,0x2
01a5 e002 | | Load 0x0,0x2
01a6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01a7 6fae |o | Jump_Zero 0x156
01a8 e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x15 = 0x1a8,0xf
01a9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01aa e402 | | Load 0x2,0x2
01ab e002 | | Load 0x0,0x2
01ac 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01ad c402 | | Store 0x2,0x2
01ae c405 | | Store 0x2,0x5
01af 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01b0 TRAP_0120:
01b0 0007 | | Action Break_Optional
01b1 e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x16 = 0x1b1,0x10
01b2 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01b3 e402 | | Load 0x2,0x2
01b4 e002 | | Load 0x0,0x2
01b5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01b6 c402 | | Store 0x2,0x2
01b7 c405 | | Store 0x2,0x5
01b8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x17 = 0x1b8,0x11
01b9 0101 | | Execute Exception,Reraise
01ba 0000 0000 | | .BLANK 0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c5 | | .CONST 0x01c5 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0002 | | .CONST 0x0002 ; Number of locals
01c3 INIT_01c0:
01c3 e218 | | Load 0x1,0x18 ; Debug Table 0x7 = .DEBUG 0x01c3,0x033c,0x0001,0x0000,0x0057,0x9525,0x0000,0x0073
; Debug Table 0x7.0x0 = 0x1c3,0xffff
01c4 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01c5 BODY_01c0:
01c5 e5fe | | Load 0x2,-0x2 ; Debug Table 0x7.0x1 = 0x1c5,0x1
01c6 0219 | | Execute Heap_Access,All_Read
01c7 e218 | | Load 0x1,0x18
01c8 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01c9 00d9 | | Load_Top At_Offset_1
01ca e5ff | | Load 0x2,-0x1
01cb e218 | | Load 0x1,0x18
01cc 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01cd 00d1 | | Pop_Control Pop_Count_1
01ce 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01cf 00d1 | | Pop_Control Pop_Count_1
01d0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x2 = 0x1d0,0x2
01d1 0217 | | Execute Heap_Access,All_Reference
01d2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01d3 a5fd | | Store_Unchecked 0x2,-0x3
01d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d5 0000 0000 | | .XXX[0x3]
01d7 0000 | |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01de | | .CONST 0x01de ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0003 | | .CONST 0x0003 ; Number of locals
01db INIT_01d8:
01db e218 | | Load 0x1,0x18 ; Debug Table 0x8 = .DEBUG 0x01db,0x0344,0x0001,0x0000,0x0057,0x9525,0x0000,0x0083
; Debug Table 0x8.0x0 = 0x1db,0xffff
01dc 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01dd 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x8.0x1 = 0x1dd,0xfffe
01de BODY_01d8:
01de e5fe | | Load 0x2,-0x2 ; Debug Table 0x8.0x2 = 0x1de,0x1
01df 0219 | | Execute Heap_Access,All_Read
01e0 00e1 | | Load_Encached Boolean_Cache
01e1 e218 | | Load 0x1,0x18
01e2 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01e3 00da | | Load_Top At_Offset_2
01e4 e5ff | | Load 0x2,-0x1
01e5 0227 | ' | Execute Access,All_Reference
01e6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01e7 0217 | | Execute Heap_Access,All_Reference
01e8 e218 | | Load 0x1,0x18
01e9 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01ea 00d1 | | Pop_Control Pop_Count_1
01eb c402 | | Store 0x2,0x2
01ec 005a | Z | Store_Top Discrete,At_Offset_2
01ed 00d1 | | Pop_Control Pop_Count_1
01ee e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0x3 = 0x1ee,0x2
01ef 0227 | ' | Execute Access,All_Reference
01f0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01f1 00da | | Load_Top At_Offset_2
01f2 0217 | | Execute Heap_Access,All_Reference
01f3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01f4 e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0x4 = 0x1f4,0x3
01f5 00da | | Load_Top At_Offset_2
01f6 0217 | | Execute Heap_Access,All_Reference
01f7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01f9 0000 0000 | | .BLANK 0000[0x7]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x0203,0x0350,0x0001,0x0000,0x0057,0x9535,0x0000,0x0039
; Debug Table 0x9.0x0 = 0x203,0x1
0204 6812 |h | Jump_Zero 0x217
0205 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x1 = 0x205,0x2
0206 0092 022f | /| Action Push_String_Extended,0x22f ; " ("
0208 01cc | | Execute Vector,Catenate
0209 00db | | Load_Top At_Offset_3
020a e002 | | Load 0x0,0x2
020b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
020c 0122 | " | Execute Any,Make_Root_Type
020d 025e | ^ | Execute Discrete,Convert
020e 1c01 | | Execute_Immediate Run_Utility,0x1
020f 01cc | | Execute Vector,Catenate
0210 0092 0230 | 0| Action Push_String_Extended,0x230 ; ")"
0212 01cc | | Execute Vector,Catenate
0213 e008 | | Load 0x0,0x8
0214 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0215 6002 |` | Indirect_Literal Discrete,0x218,{0x00000000, 0x57953501} ; Debug Table 0x9.0x2 = 0x215,0x3
0216 0257 | W | Execute Discrete,Raise
0217 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0218 0000 0000 | | .LITERAL {0x00000000, 0x57953501}
021c 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0220 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0224 0000 0000 | | .LITERAL {0x00000000, 0x00579535}
0228 0000 0000 | | .LITERAL {0x00000000, 0x00579525}
022c ; --------------------------------------------------------------------------------------
022c ; STRING TABLE
022c ; --------------------------------------------------------------------------------------
022c 000c | | .STRTAB 0x000c->0x0232 ; "_here"
022d 000f | | .STRTAB 0x000f->0x0234 ; "unable to create here file"
022e 0027 | ' | .STRTAB 0x0027->0x0241 ; "unable to open here file"
022f 003d | = | .STRTAB 0x003d->0x024d ; " ("
0230 003d | = | .STRTAB 0x003d->0x024e ; ")"
0231 003c | < | .STREND 0x003c->0x024f
0232 5f68 6572 |_her| .STRTAB_STRINGS
024f 0000 | | .XXX[0x1]
0250 ; --------------------------------------------------------------------------------------
0250 ; Debug Table
0250 ; --------------------------------------------------------------------------------------
0250 0003 000a | | .CONST 0x0003,0x000a
0252 000b 02a2 | | .DEBUG 0x000b,0x02a2,0x8000,0x0000,0x0057,0x9525,0x0000,0x000d
025a 003e 02c2 | > | .DEBUG 0x003e,0x02c2,0x8000,0x0000,0x0057,0x9535,0x0000,0x0013
0262 0073 02e0 | s | .DEBUG 0x0073,0x02e0,0x0001,0x0000,0x0057,0x9525,0x0000,0x002f
026a 00db 02f4 | | .DEBUG 0x00db,0x02f4,0x0001,0x0000,0x0057,0x9525,0x0000,0x003b
0272 00f3 02fa | | .DEBUG 0x00f3,0x02fa,0x0001,0x0000,0x0057,0x9525,0x0000,0x0043
027a 0113 0302 | | .DEBUG 0x0113,0x0302,0x0001,0x0000,0x0057,0x9525,0x0000,0x004f
0282 0123 030a | # | .DEBUG 0x0123,0x030a,0x0001,0x0000,0x0057,0x9525,0x0000,0x005d
028a 01c3 033c | <| .DEBUG 0x01c3,0x033c,0x0001,0x0000,0x0057,0x9525,0x0000,0x0073
0292 01db 0344 | D| .DEBUG 0x01db,0x0344,0x0001,0x0000,0x0057,0x9525,0x0000,0x0083
029a 0203 0350 | P| .DEBUG 0x0203,0x0350,0x0001,0x0000,0x0057,0x9535,0x0000,0x0039
02a2 ; --------------------------------------------------------------------------------------
02a2 ; Debug3 Subtable 0x0
02a2 ; --------------------------------------------------------------------------------------
02a2 000f 0000 | | .DBG3TAB 0x000f,0x0000
02a4 000b ffff | | .CONST 0x000b,0xffff
02a6 0013 fffe | | .CONST 0x0013,0xfffe
02a8 0017 fffd | | .CONST 0x0017,0xfffd
02aa 001a fffc | | .CONST 0x001a,0xfffc
02ac 001b fffb | | .CONST 0x001b,0xfffb
02ae 001d fffa | | .CONST 0x001d,0xfffa
02b0 001f fff9 | | .CONST 0x001f,0xfff9
02b2 0021 fff8 | ! | .CONST 0x0021,0xfff8
02b4 0023 fff7 | # | .CONST 0x0023,0xfff7
02b6 0025 fff6 | % | .CONST 0x0025,0xfff6
02b8 0027 fff5 | ' | .CONST 0x0027,0xfff5
02ba 0029 fff4 | ) | .CONST 0x0029,0xfff4
02bc 0037 fff3 | 7 | .CONST 0x0037,0xfff3
02be 0038 fff2 | 8 | .CONST 0x0038,0xfff2
02c0 003d fff1 | = | .CONST 0x003d,0xfff1
02c2 ; --------------------------------------------------------------------------------------
02c2 ; Debug3 Subtable 0x1
02c2 ; --------------------------------------------------------------------------------------
02c2 000e 0000 | | .DBG3TAB 0x000e,0x0000
02c4 003e ffff | > | .CONST 0x003e,0xffff
02c6 003f fffe | ? | .CONST 0x003f,0xfffe
02c8 0047 fffd | G | .CONST 0x0047,0xfffd
02ca 004f fffc | O | .CONST 0x004f,0xfffc
02cc 0057 fffb | W | .CONST 0x0057,0xfffb
02ce 0059 fffa | Y | .CONST 0x0059,0xfffa
02d0 005a fff9 | Z | .CONST 0x005a,0xfff9
02d2 005c fff8 | \ | .CONST 0x005c,0xfff8
02d4 005e fff7 | ^ | .CONST 0x005e,0xfff7
02d6 0060 fff6 | ` | .CONST 0x0060,0xfff6
02d8 0062 fff5 | b | .CONST 0x0062,0xfff5
02da 0064 fff4 | d | .CONST 0x0064,0xfff4
02dc 0066 fff3 | f | .CONST 0x0066,0xfff3
02de 0068 fff2 | h | .CONST 0x0068,0xfff2
02e0 ; --------------------------------------------------------------------------------------
02e0 ; Debug3 Subtable 0x2
02e0 ; --------------------------------------------------------------------------------------
02e0 0005 0004 | | .DBG3TAB 0x0005,0x0004
02e2 0073 ffff | s | .CONST 0x0073,0xffff
02e4 0075 fffe | u | .CONST 0x0075,0xfffe
02e6 007a fffd | z | .CONST 0x007a,0xfffd
02e8 007f fffc | | .CONST 0x007f,0xfffc
02ea 0082 fffb | | .CONST 0x0082,0xfffb
02ec 0083 0001 | | .CONST 0x0083,0x0001
02ee 00b1 0002 | | .CONST 0x00b1,0x0002
02f0 00b5 0003 | | .CONST 0x00b5,0x0003
02f2 00ce 0004 | | .CONST 0x00ce,0x0004
02f4 ; --------------------------------------------------------------------------------------
02f4 ; Debug3 Subtable 0x3
02f4 ; --------------------------------------------------------------------------------------
02f4 0001 0001 | | .DBG3TAB 0x0001,0x0001
02f6 00db ffff | | .CONST 0x00db,0xffff
02f8 00dd 0001 | | .CONST 0x00dd,0x0001
02fa ; --------------------------------------------------------------------------------------
02fa ; Debug3 Subtable 0x4
02fa ; --------------------------------------------------------------------------------------
02fa 0000 0003 | | .DBG3TAB 0x0000,0x0003
02fc 00f3 0001 | | .CONST 0x00f3,0x0001
02fe 00fc 0002 | | .CONST 0x00fc,0x0002
0300 0104 0003 | | .CONST 0x0104,0x0003
0302 ; --------------------------------------------------------------------------------------
0302 ; Debug3 Subtable 0x5
0302 ; --------------------------------------------------------------------------------------
0302 0000 0003 | | .DBG3TAB 0x0000,0x0003
0304 0113 0001 | | .CONST 0x0113,0x0001
0306 0117 0002 | | .CONST 0x0117,0x0002
0308 0118 0003 | | .CONST 0x0118,0x0003
030a ; --------------------------------------------------------------------------------------
030a ; Debug3 Subtable 0x6
030a ; --------------------------------------------------------------------------------------
030a 0007 0011 | | .DBG3TAB 0x0007,0x0011
030c 0123 ffff | # | .CONST 0x0123,0xffff
030e 0128 fffe | ( | .CONST 0x0128,0xfffe
0310 012a fffd | * | .CONST 0x012a,0xfffd
0312 012c fffc | , | .CONST 0x012c,0xfffc
0314 012e fffb | . | .CONST 0x012e,0xfffb
0316 0134 fffa | 4 | .CONST 0x0134,0xfffa
0318 0135 fff9 | 5 | .CONST 0x0135,0xfff9
031a 013b 0001 | ; | .CONST 0x013b,0x0001
031c 0156 0003 | V | .CONST 0x0156,0x0003
031e 0159 0004 | Y | .CONST 0x0159,0x0004
0320 0164 0005 | d | .CONST 0x0164,0x0005
0322 0165 0006 | e | .CONST 0x0165,0x0006
0324 016a 0007 | j | .CONST 0x016a,0x0007
0326 0173 0008 | s | .CONST 0x0173,0x0008
0328 0178 0009 | x | .CONST 0x0178,0x0009
032a 0183 000a | | .CONST 0x0183,0x000a
032c 0184 000b | | .CONST 0x0184,0x000b
032e 0189 000c | | .CONST 0x0189,0x000c
0330 0199 000d | | .CONST 0x0199,0x000d
0332 019f 000e | | .CONST 0x019f,0x000e
0334 01a3 0002 | | .CONST 0x01a3,0x0002
0336 01a8 000f | | .CONST 0x01a8,0x000f
0338 01b1 0010 | | .CONST 0x01b1,0x0010
033a 01b8 0011 | | .CONST 0x01b8,0x0011
033c ; --------------------------------------------------------------------------------------
033c ; Debug3 Subtable 0x7
033c ; --------------------------------------------------------------------------------------
033c 0001 0002 | | .DBG3TAB 0x0001,0x0002
033e 01c3 ffff | | .CONST 0x01c3,0xffff
0340 01c5 0001 | | .CONST 0x01c5,0x0001
0342 01d0 0002 | | .CONST 0x01d0,0x0002
0344 ; --------------------------------------------------------------------------------------
0344 ; Debug3 Subtable 0x8
0344 ; --------------------------------------------------------------------------------------
0344 0002 0003 | | .DBG3TAB 0x0002,0x0003
0346 01db ffff | | .CONST 0x01db,0xffff
0348 01dd fffe | | .CONST 0x01dd,0xfffe
034a 01de 0001 | | .CONST 0x01de,0x0001
034c 01ee 0002 | | .CONST 0x01ee,0x0002
034e 01f4 0003 | | .CONST 0x01f4,0x0003
0350 ; --------------------------------------------------------------------------------------
0350 ; Debug3 Subtable 0x9
0350 ; --------------------------------------------------------------------------------------
0350 0000 0003 | | .DBG3TAB 0x0000,0x0003
0352 0203 0001 | | .CONST 0x0203,0x0001
0354 0205 0002 | | .CONST 0x0205,0x0002
0356 0215 0003 | | .CONST 0x0215,0x0003
0358 0000 0000 | | .BLANK 0000[0xa8]