|
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_6148f2
└─⟦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 01b0 | | .CONST 0x01b0 ; 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 008e | | .CONST 0x008e ; 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,0x0212,0x8000,0x0000,0x004c,0x50d6,0x0000,0x0014
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 0129 | ) | Execute Any,Make_Visible
000e 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xe,0xfffe
0010 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x10,0xfffd
0012 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x12,0xfffc
0014 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x4 = 0x14,0xfffb
0015 6176 |av | Indirect_Literal Discrete,0x18c,{0x00b53014, 0x000000b0}
0016 02a0 | | Declare_Subprogram Null_Subprogram
0017 038f | | Declare_Type Package,Defined,Visible
0018 e002 | | Load 0x0,0x2
0019 4801 |H | Short_Literal 0x1
001a 00da | | Load_Top At_Offset_2
001b 020e | | Execute Module,Augment_Imports
001c 0386 | | Declare_Variable Package,Visible
001d 480f |H | Short_Literal 0xf ; Debug Table 0x0.0x5 = 0x1d,0xfffa
001e 00d9 | | Load_Top At_Offset_1
001f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0020 1c07 | | Execute_Immediate Run_Utility,0x7
0021 0129 | ) | Execute Any,Make_Visible
0022 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x6 = 0x22,0xfff9
0023 6164 |ad | Indirect_Literal Discrete,0x188,{0x0030cc0c, 0x000000b0}
0024 02a0 | | Declare_Subprogram Null_Subprogram
0025 038f | | Declare_Type Package,Defined,Visible
0026 00b6 | | Action Make_Scope
0027 4801 |H | Short_Literal 0x1
0028 00da | | Load_Top At_Offset_2
0029 020e | | Execute Module,Augment_Imports
002a 0386 | | Declare_Variable Package,Visible
002b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x7 = 0x2b,0xfff8
002c 6157 |aW | Indirect_Literal Discrete,0x184,{0x0030d40c, 0x000000b0}
002d 02a0 | | Declare_Subprogram Null_Subprogram
002e 038f | | Declare_Type Package,Defined,Visible
002f 0386 | | Declare_Variable Package,Visible
0030 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x8 = 0x30,0xfff7
0031 614e |aN | Indirect_Literal Discrete,0x180,{0x00b37c14, 0x000000b0}
0032 02a0 | | Declare_Subprogram Null_Subprogram
0033 038f | | Declare_Type Package,Defined,Visible
0034 0386 | | Declare_Variable Package,Visible
0035 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x35,0xfff6
0037 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x37,0xfff5
0039 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x39,0xfff4
003b 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x3b,0xfff3
003d 0007 | | Action Break_Optional ; Debug Table 0x0.0xd = 0x3d,0xfff2
003e 0007 | | Action Break_Optional ; Debug Table 0x0.0xe = 0x3e,0xfff1
003f 00bf | | Action Accept_Activation ; Debug Table 0x0.0xf = 0x3f,0xfff0
0040 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0040,0x0234,0x8000,0x0000,0x004c,0x57e6,0x0000,0x001f
; Debug Table 0x1.0x0 = 0x40,0xffff
0041 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x41,0xfffe
0042 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x1.0x2 = 0x42,0xfffd
0043 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x3 = 0x43,0xfffc
0044 6137 |a7 | Indirect_Literal Discrete,0x17c,{0x0030a40c, 0x000000b0}
0045 02a0 | | Declare_Subprogram Null_Subprogram
0046 038e | | Declare_Type Package,Defined
0047 0387 | | Declare_Variable Package
0048 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x4 = 0x48,0xfffb
0049 00b6 | | Action Make_Scope
004a e004 | | Load 0x0,0x4
004b e005 | | Load 0x0,0x5
004c e001 | | Load 0x0,0x1
004d a006 | | Store_Unchecked 0x0,0x6
004e e007 | | Load 0x0,0x7
004f e008 | | Load 0x0,0x8
0050 e009 | | Load 0x0,0x9
0051 e00a | | Load 0x0,0xa
0052 480a |H | Short_Literal 0xa
0053 e21b | | Load 0x1,0x1b
0054 020e | | Execute Module,Augment_Imports
0055 00d8 | | Load_Top At_Offset_0
0056 020f | | Execute Module,Activate
0057 029d 011b | | Declare_Subprogram INIT_0118,For_Outer_Call ; Debug Table 0x1.0x5 = 0x57,0xfffa
0059 029d 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call ; Debug Table 0x1.0x6 = 0x59,0xfff9
005b 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x7 = 0x5b,0xfff8
005c 00c7 | | Action Elaborate_Subprogram
005d 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x8 = 0x5d,0xfff7
005e 00c7 | | Action Elaborate_Subprogram
005f e00b | | Load 0x0,0xb ; Debug Table 0x1.0x9 = 0x5f,0xfff6
0060 e001 | | Load 0x0,0x1
0061 e00c | | Load 0x0,0xc
0062 00b6 | | Action Make_Scope
0063 a00d | | Store_Unchecked 0x0,0xd
0064 e00e | | Load 0x0,0xe
0065 e008 | | Load 0x0,0x8
0066 e00a | | Load 0x0,0xa
0067 4808 |H | Short_Literal 0x8
0068 e211 | | Load 0x1,0x11
0069 020e | | Execute Module,Augment_Imports
006a e211 | | Load 0x1,0x11
006b 020f | | Execute Module,Activate
006c e001 | | Load 0x0,0x1 ; Debug Table 0x1.0xa = 0x6c,0xfff5
006d a00d | | Store_Unchecked 0x0,0xd
006e e00f | | Load 0x0,0xf
006f 4803 |H | Short_Literal 0x3
0070 e213 | | Load 0x1,0x13
0071 020e | | Execute Module,Augment_Imports
0072 e213 | | Load 0x1,0x13
0073 020f | | Execute Module,Activate
0074 00b6 | | Action Make_Scope ; Debug Table 0x1.0xb = 0x74,0xfff4
0075 e00f | | Load 0x0,0xf
0076 4802 |H | Short_Literal 0x2
0077 e215 | | Load 0x1,0x15
0078 020e | | Execute Module,Augment_Imports
0079 e215 | | Load 0x1,0x15
007a 020f | | Execute Module,Activate
007b e001 | | Load 0x0,0x1 ; Debug Table 0x1.0xc = 0x7b,0xfff3
007c 00b6 | | Action Make_Scope
007d 4802 |H | Short_Literal 0x2
007e e214 | | Load 0x1,0x14
007f 020e | | Execute Module,Augment_Imports
0080 e214 | | Load 0x1,0x14
0081 020f | | Execute Module,Activate
0082 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0xd = 0x82,0xfff2
0083 00c7 | | Action Elaborate_Subprogram
0084 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xe = 0x84,0xfff1
0085 00c7 | | Action Elaborate_Subprogram
0086 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0xf = 0x86,0xfff0
0087 00c7 | | Action Elaborate_Subprogram
0088 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x10 = 0x88,0xffef
0089 00c7 | | Action Elaborate_Subprogram
008a 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x11 = 0x8a,0xffee
008b 00c7 | | Action Elaborate_Subprogram
008c 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call
008e BODY_0008:
008e 821e | | Call 0x1,0x1e ; Debug Table 0x1.0x12 = 0x8e,0x1
008f 00bc | | Action Signal_Activated
0090 00bb | | Action Signal_Completion
0091 0000 0000 | | .BLANK 0000[0x7]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 00db | | Load_Top At_Offset_3 ; Debug Table 0x2 = .DEBUG 0x009b,0x025c,0x0001,0x0000,0x004c,0x50d6,0x0000,0x001b
; Debug Table 0x2.0x0 = 0x9b,0x1
009c e20d | | Load 0x1,0xd
009d 4800 |H | Short_Literal 0x0
009e 821d | | Call 0x1,0x1d
009f c5ff | | Store 0x2,-0x1
00a0 c5fe | | Store 0x2,-0x2
00a1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a2 0000 0000 | | .BLANK 0000[0x6]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x00ab,0x0260,0x0002,0x0000,0x004c,0x50d6,0x0000,0x0029
; Debug Table 0x3.0x0 = 0xab,0x1
00ac e21b | | Load 0x1,0x1b
00ad 180e | | Execute Package,Field_Execute,Field_Number 0xe
00ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00af 0000 | | .XXX[0x1]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 4800 |H | Short_Literal 0x0 ; Debug Table 0x4 = .DEBUG 0x00b3,0x0264,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0034
; Debug Table 0x4.0x0 = 0xb3,0x1
00b4 e21b | | Load 0x1,0x1b
00b5 180d | | Execute Package,Field_Execute,Field_Number 0xd
00b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00b7 0000 | | .XXX[0x1]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x00bb,0x0268,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0fd1
; Debug Table 0x5.0x0 = 0xbb,0x1
00bc e21b | | Load 0x1,0x1b
00bd 180d | | Execute Package,Field_Execute,Field_Number 0xd
00be 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00bf 0000 | | .XXX[0x1]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 4800 |H | Short_Literal 0x0 ; Debug Table 0x6 = .DEBUG 0x00c3,0x026c,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0fdb
; Debug Table 0x6.0x0 = 0xc3,0x1
00c4 a5fd | | Store_Unchecked 0x2,-0x3
00c5 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x1 = 0xc5,0x2
00c6 821c | | Call 0x1,0x1c
00c7 e5fe | | Load 0x2,-0x2
00c8 027d | } | Execute Discrete,Greater
00c9 6807 |h | Jump_Zero 0xd1
00ca 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x2 = 0xca,0x3
00cb 4801 |H | Short_Literal 0x1
00cc e21b | | Load 0x1,0x1b
00cd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ce 170e | | Execute Task,Entry_Call,Field_Number 0xe
00cf 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x3 = 0xcf,0x4
00d0 a5fd | | Store_Unchecked 0x2,-0x3
00d1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d2 0000 0000 | | .BLANK 0000[0x6]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db e21a | | Load 0x1,0x1a ; Debug Table 0x7 = .DEBUG 0x00db,0x0276,0x0002,0x0000,0x004c,0x50d6,0x0000,0x0fec
; Debug Table 0x7.0x0 = 0xdb,0x1
00dc 00ca | | Action Exit_Nullary_Function
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e6 | | .CONST 0x00e6 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0003 | | .CONST 0x0003 ; Number of locals
00e3 INIT_00e0:
00e3 e20d | | Load 0x1,0xd ; Debug Table 0x8 = .DEBUG 0x00e3,0x027a,0x2801,0x0002,0x004c,0x50d6,0x0000,0x0ff1
; Debug Table 0x8.0x0 = 0xe3,0xffff
00e4 0007 | | Action Break_Optional
00e5 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x8.0x1 = 0xe5,0xfffe
00e6 BODY_00e0:
00e6 e5fd | | Load 0x2,-0x3 ; Debug Table 0x8.0x2 = 0xe6,0x1
00e7 821c | | Call 0x1,0x1c
00e8 e5fc | | Load 0x2,-0x4
00e9 027d | } | Execute Discrete,Greater
00ea 6827 |h' | Jump_Zero 0x112
00eb e5fb | | Load 0x2,-0x5 ; Debug Table 0x8.0x3 = 0xeb,0x2
00ec e20d | | Load 0x1,0xd
00ed 4801 |H | Short_Literal 0x1
00ee 821d | | Call 0x1,0x1d
00ef 0033 | 3 | Store_Top Heap_Access,At_Offset_3
00f0 c5fb | | Store 0x2,-0x5
00f1 4802 |H | Short_Literal 0x2 ; Debug Table 0x8.0x4 = 0xf1,0x3
00f2 e5fb | | Load 0x2,-0x5
00f3 e005 | | Load 0x0,0x5
00f4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00f5 701c |p | Jump_Nonzero 0x112
00f6 e5fb | | Load 0x2,-0x5 ; Debug Table 0x8.0x5 = 0xf6,0x4
00f7 00da | | Load_Top At_Offset_2
00f8 e5fd | | Load 0x2,-0x3
00f9 85fe | | Call 0x2,-0x2
00fa c5fb | | Store 0x2,-0x5
00fb 4802 |H | Short_Literal 0x2 ; Debug Table 0x8.0x6 = 0xfb,0x5
00fc e5fb | | Load 0x2,-0x5
00fd e005 | | Load 0x0,0x5
00fe 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00ff 6806 |h | Jump_Zero 0x106
0100 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x8.0x7 = 0x100,0x6
0101 4800 |H | Short_Literal 0x0
0102 00db | | Load_Top At_Offset_3
0103 8217 | | Call 0x1,0x17
0104 0059 | Y | Store_Top Discrete,At_Offset_1
0105 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0106 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x8.0x8 = 0x106,0x7
0107 4800 |H | Short_Literal 0x0
0108 e5fd | | Load 0x2,-0x3
0109 8217 | | Call 0x1,0x17
010a 0059 | Y | Store_Top Discrete,At_Offset_1
010b 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x9 = 0x10b,0x8
010c a5fd | | Store_Unchecked 0x2,-0x3
010d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0xa = 0x10d,0x9
010e 821c | | Call 0x1,0x1c
010f 8218 | | Call 0x1,0x18
0110 0273 | s | Execute Discrete,Plus
0111 a5fc | | Store_Unchecked 0x2,-0x4
0112 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0113 0000 0000 | | .BLANK 0000[0x5]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x011b,0x0292,0x0002,0x0000,0x004c,0x57e6,0x0000,0x0075
; Debug Table 0x9.0x0 = 0x11b,0x1
011c 820f | | Call 0x1,0xf
011d e009 | | Load 0x0,0x9
011e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
011f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0133 | 3 | .CONST 0x0133 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 e5fd | | Load 0x2,-0x3 ; Debug Table 0xa = .DEBUG 0x0123,0x0296,0x0001,0x0000,0x004c,0x57e6,0x0000,0x008c
; Debug Table 0xa.0x0 = 0x123,0x1
0124 e005 | | Load 0x0,0x5
0125 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0126 c5fd | | Store 0x2,-0x3
0127 e5fd | | Load 0x2,-0x3 ; Debug Table 0xa.0x1 = 0x127,0x2
0128 e20d | | Load 0x1,0xd
0129 e5ff | | Load 0x2,-0x1
012a e003 | | Load 0x0,0x3
012b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
012c 4804 |H | Short_Literal 0x4
012d e21b | | Load 0x1,0x1b
012e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
012f 170d | | Execute Task,Entry_Call,Field_Number 0xd
0130 c5fe | | Store 0x2,-0x2
0131 c5fd | | Store 0x2,-0x3
0132 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0133 TRAP_0120:
0133 0007 | | Action Break_Optional
0134 e5fd | | Load 0x2,-0x3 ; Debug Table 0xa.0x2 = 0x134,0x3
0135 4802 |H | Short_Literal 0x2
0136 0092 0190 | | Action Push_String_Extended,0x190 ; "Transfer_Objects.Get_Heap"
0138 8006 | | Call 0x0,0x6
0139 0092 0191 | | Action Push_String_Extended,0x191 ; "Transfer Internal Error"
013b e005 | | Load 0x0,0x5
013c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
013d c5fd | | Store 0x2,-0x3
013e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
013f 0000 | | .XXX[0x1]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0150 | P | .CONST 0x0150 ; Address of begin
0141 0173 | s | .CONST 0x0173 ; Address of exception handler
0142 0005 | | .CONST 0x0005 ; Number of locals
0143 INIT_0140:
0143 e211 | | Load 0x1,0x11 ; Debug Table 0xb = .DEBUG 0x0143,0x029e,0x0004,0x0000,0x004c,0x57e6,0x0000,0x0225
; Debug Table 0xb.0x0 = 0x143,0xffff
0144 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0145 02ff | | Declare_Variable Variant_Record
0146 00d8 | | Load_Top At_Offset_0
0147 1c00 | | Execute_Immediate Run_Utility,0x0
0148 e20d | | Load 0x1,0xd ; Debug Table 0xb.0x1 = 0x148,0xfffe
0149 0007 | | Action Break_Optional
014a e005 | | Load 0x0,0x5 ; Debug Table 0xb.0x2 = 0x14a,0xfffd
014b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
014c 02c7 | | Declare_Variable Any
014d 00d8 | | Load_Top At_Offset_0
014e 1c00 | | Execute_Immediate Run_Utility,0x0
014f 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xb.0x3 = 0x14f,0xfffc
0150 BODY_0140:
0150 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xb.0x4 = 0x150,0x1
0151 e20d | | Load 0x1,0xd
0152 4800 |H | Short_Literal 0x0
0153 821d | | Call 0x1,0x1d
0154 c403 | | Store 0x2,0x3
0155 c404 | | Store 0x2,0x4
0156 4802 |H | Short_Literal 0x2 ; Debug Table 0xb.0x5 = 0x156,0x2
0157 00da | | Load_Top At_Offset_2
0158 e005 | | Load 0x0,0x5
0159 1817 | | Execute Package,Field_Execute,Field_Number 0x17
015a 6802 |h | Jump_Zero 0x15d
015b 601c |` | Indirect_Literal Discrete,0x178,{0x00000000, 0x000801f6} ; Debug Table 0xb.0x6 = 0x15b,0x3
015c a21a | | Store_Unchecked 0x1,0x1a
015d 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x7 = 0x15d,0x4
015e 480f |H | Short_Literal 0xf
015f e211 | | Load 0x1,0x11
0160 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0161 180e | | Execute Package,Field_Execute,Field_Number 0xe
0162 e402 | | Load 0x2,0x2
0163 016d | m | Execute Variant_Record,Structure_Write
0164 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x8 = 0x164,0x5
0165 821c | | Call 0x1,0x1c
0166 a21a | | Store_Unchecked 0x1,0x1a
0167 00db | | Load_Top At_Offset_3 ; Debug Table 0xb.0x9 = 0x167,0x6
0168 4801 |H | Short_Literal 0x1
0169 e211 | | Load 0x1,0x11
016a 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
016b 180f | | Execute Package,Field_Execute,Field_Number 0xf
016c 00d1 | | Pop_Control Pop_Count_1
016d 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xb.0xa = 0x16d,0x7
016e 4800 |H | Short_Literal 0x0
016f e403 | | Load 0x2,0x3
0170 8217 | | Call 0x1,0x17
0171 0059 | Y | Store_Top Discrete,At_Offset_1
0172 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0173 TRAP_0140:
0173 0007 | | Action Break_Optional
0174 6003 |` | Indirect_Literal Discrete,0x178,{0x00000000, 0x000801f6} ; Debug Table 0xb.0xb = 0x174,0x8
0175 a21a | | Store_Unchecked 0x1,0x1a
0176 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0177 0000 | | .XXX[0x1]
0178 0000 0000 | | .LITERAL {0x00000000, 0x000801f6}
017c 0030 a40c | 0 | .LITERAL {0x0030a40c, 0x000000b0}
0180 00b3 7c14 | | | .LITERAL {0x00b37c14, 0x000000b0}
0184 0030 d40c | 0 | .LITERAL {0x0030d40c, 0x000000b0}
0188 0030 cc0c | 0 | .LITERAL {0x0030cc0c, 0x000000b0}
018c 00b5 3014 | 0 | .LITERAL {0x00b53014, 0x000000b0}
0190 ; --------------------------------------------------------------------------------------
0190 ; STRING TABLE
0190 ; --------------------------------------------------------------------------------------
0190 0006 | | .STRTAB 0x0006->0x0193 ; "Transfer_Objects.Get_Heap"
0191 001d | | .STRTAB 0x001d->0x019f ; "Transfer Internal Error"
0192 0032 | 2 | .STREND 0x0032->0x01ab
0193 5472 616e |Tran| .STRTAB_STRINGS
01ab 0000 0000 | | .BLANK 0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; Debug Table
01b0 ; --------------------------------------------------------------------------------------
01b0 0003 000c | | .CONST 0x0003,0x000c
01b2 000b 0212 | | .DEBUG 0x000b,0x0212,0x8000,0x0000,0x004c,0x50d6,0x0000,0x0014
01ba 0040 0234 | @ 4| .DEBUG 0x0040,0x0234,0x8000,0x0000,0x004c,0x57e6,0x0000,0x001f
01c2 009b 025c | \| .DEBUG 0x009b,0x025c,0x0001,0x0000,0x004c,0x50d6,0x0000,0x001b
01ca 00ab 0260 | `| .DEBUG 0x00ab,0x0260,0x0002,0x0000,0x004c,0x50d6,0x0000,0x0029
01d2 00b3 0264 | d| .DEBUG 0x00b3,0x0264,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0034
01da 00bb 0268 | h| .DEBUG 0x00bb,0x0268,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0fd1
01e2 00c3 026c | l| .DEBUG 0x00c3,0x026c,0x0001,0x0000,0x004c,0x50d6,0x0000,0x0fdb
01ea 00db 0276 | v| .DEBUG 0x00db,0x0276,0x0002,0x0000,0x004c,0x50d6,0x0000,0x0fec
01f2 00e3 027a | z| .DEBUG 0x00e3,0x027a,0x2801,0x0002,0x004c,0x50d6,0x0000,0x0ff1
01fa 011b 0292 | | .DEBUG 0x011b,0x0292,0x0002,0x0000,0x004c,0x57e6,0x0000,0x0075
0202 0123 0296 | # | .DEBUG 0x0123,0x0296,0x0001,0x0000,0x004c,0x57e6,0x0000,0x008c
020a 0143 029e | C | .DEBUG 0x0143,0x029e,0x0004,0x0000,0x004c,0x57e6,0x0000,0x0225
0212 ; --------------------------------------------------------------------------------------
0212 ; Debug3 Subtable 0x0
0212 ; --------------------------------------------------------------------------------------
0212 0010 0000 | | .DBG3TAB 0x0010,0x0000
0214 000b ffff | | .CONST 0x000b,0xffff
0216 000e fffe | | .CONST 0x000e,0xfffe
0218 0010 fffd | | .CONST 0x0010,0xfffd
021a 0012 fffc | | .CONST 0x0012,0xfffc
021c 0014 fffb | | .CONST 0x0014,0xfffb
021e 001d fffa | | .CONST 0x001d,0xfffa
0220 0022 fff9 | " | .CONST 0x0022,0xfff9
0222 002b fff8 | + | .CONST 0x002b,0xfff8
0224 0030 fff7 | 0 | .CONST 0x0030,0xfff7
0226 0035 fff6 | 5 | .CONST 0x0035,0xfff6
0228 0037 fff5 | 7 | .CONST 0x0037,0xfff5
022a 0039 fff4 | 9 | .CONST 0x0039,0xfff4
022c 003b fff3 | ; | .CONST 0x003b,0xfff3
022e 003d fff2 | = | .CONST 0x003d,0xfff2
0230 003e fff1 | > | .CONST 0x003e,0xfff1
0232 003f fff0 | ? | .CONST 0x003f,0xfff0
0234 ; --------------------------------------------------------------------------------------
0234 ; Debug3 Subtable 0x1
0234 ; --------------------------------------------------------------------------------------
0234 0012 0001 | | .DBG3TAB 0x0012,0x0001
0236 0040 ffff | @ | .CONST 0x0040,0xffff
0238 0041 fffe | A | .CONST 0x0041,0xfffe
023a 0042 fffd | B | .CONST 0x0042,0xfffd
023c 0043 fffc | C | .CONST 0x0043,0xfffc
023e 0048 fffb | H | .CONST 0x0048,0xfffb
0240 0057 fffa | W | .CONST 0x0057,0xfffa
0242 0059 fff9 | Y | .CONST 0x0059,0xfff9
0244 005b fff8 | [ | .CONST 0x005b,0xfff8
0246 005d fff7 | ] | .CONST 0x005d,0xfff7
0248 005f fff6 | _ | .CONST 0x005f,0xfff6
024a 006c fff5 | l | .CONST 0x006c,0xfff5
024c 0074 fff4 | t | .CONST 0x0074,0xfff4
024e 007b fff3 | { | .CONST 0x007b,0xfff3
0250 0082 fff2 | | .CONST 0x0082,0xfff2
0252 0084 fff1 | | .CONST 0x0084,0xfff1
0254 0086 fff0 | | .CONST 0x0086,0xfff0
0256 0088 ffef | | .CONST 0x0088,0xffef
0258 008a ffee | | .CONST 0x008a,0xffee
025a 008e 0001 | | .CONST 0x008e,0x0001
025c ; --------------------------------------------------------------------------------------
025c ; Debug3 Subtable 0x2
025c ; --------------------------------------------------------------------------------------
025c 0000 0001 | | .DBG3TAB 0x0000,0x0001
025e 009b 0001 | | .CONST 0x009b,0x0001
0260 ; --------------------------------------------------------------------------------------
0260 ; Debug3 Subtable 0x3
0260 ; --------------------------------------------------------------------------------------
0260 0000 0001 | | .DBG3TAB 0x0000,0x0001
0262 00ab 0001 | | .CONST 0x00ab,0x0001
0264 ; --------------------------------------------------------------------------------------
0264 ; Debug3 Subtable 0x4
0264 ; --------------------------------------------------------------------------------------
0264 0000 0001 | | .DBG3TAB 0x0000,0x0001
0266 00b3 0001 | | .CONST 0x00b3,0x0001
0268 ; --------------------------------------------------------------------------------------
0268 ; Debug3 Subtable 0x5
0268 ; --------------------------------------------------------------------------------------
0268 0000 0001 | | .DBG3TAB 0x0000,0x0001
026a 00bb 0001 | | .CONST 0x00bb,0x0001
026c ; --------------------------------------------------------------------------------------
026c ; Debug3 Subtable 0x6
026c ; --------------------------------------------------------------------------------------
026c 0000 0004 | | .DBG3TAB 0x0000,0x0004
026e 00c3 0001 | | .CONST 0x00c3,0x0001
0270 00c5 0002 | | .CONST 0x00c5,0x0002
0272 00ca 0003 | | .CONST 0x00ca,0x0003
0274 00cf 0004 | | .CONST 0x00cf,0x0004
0276 ; --------------------------------------------------------------------------------------
0276 ; Debug3 Subtable 0x7
0276 ; --------------------------------------------------------------------------------------
0276 0000 0001 | | .DBG3TAB 0x0000,0x0001
0278 00db 0001 | | .CONST 0x00db,0x0001
027a ; --------------------------------------------------------------------------------------
027a ; Debug3 Subtable 0x8
027a ; --------------------------------------------------------------------------------------
027a 0002 0009 | | .DBG3TAB 0x0002,0x0009
027c 00e3 ffff | | .CONST 0x00e3,0xffff
027e 00e5 fffe | | .CONST 0x00e5,0xfffe
0280 00e6 0001 | | .CONST 0x00e6,0x0001
0282 00eb 0002 | | .CONST 0x00eb,0x0002
0284 00f1 0003 | | .CONST 0x00f1,0x0003
0286 00f6 0004 | | .CONST 0x00f6,0x0004
0288 00fb 0005 | | .CONST 0x00fb,0x0005
028a 0100 0006 | | .CONST 0x0100,0x0006
028c 0106 0007 | | .CONST 0x0106,0x0007
028e 010b 0008 | | .CONST 0x010b,0x0008
0290 010d 0009 | | .CONST 0x010d,0x0009
0292 ; --------------------------------------------------------------------------------------
0292 ; Debug3 Subtable 0x9
0292 ; --------------------------------------------------------------------------------------
0292 0000 0001 | | .DBG3TAB 0x0000,0x0001
0294 011b 0001 | | .CONST 0x011b,0x0001
0296 ; --------------------------------------------------------------------------------------
0296 ; Debug3 Subtable 0xa
0296 ; --------------------------------------------------------------------------------------
0296 0000 0003 | | .DBG3TAB 0x0000,0x0003
0298 0123 0001 | # | .CONST 0x0123,0x0001
029a 0127 0002 | ' | .CONST 0x0127,0x0002
029c 0134 0003 | 4 | .CONST 0x0134,0x0003
029e ; --------------------------------------------------------------------------------------
029e ; Debug3 Subtable 0xb
029e ; --------------------------------------------------------------------------------------
029e 0004 0008 | | .DBG3TAB 0x0004,0x0008
02a0 0143 ffff | C | .CONST 0x0143,0xffff
02a2 0148 fffe | H | .CONST 0x0148,0xfffe
02a4 014a fffd | J | .CONST 0x014a,0xfffd
02a6 014f fffc | O | .CONST 0x014f,0xfffc
02a8 0150 0001 | P | .CONST 0x0150,0x0001
02aa 0156 0002 | V | .CONST 0x0156,0x0002
02ac 015b 0003 | [ | .CONST 0x015b,0x0003
02ae 015d 0004 | ] | .CONST 0x015d,0x0004
02b0 0164 0005 | d | .CONST 0x0164,0x0005
02b2 0167 0006 | g | .CONST 0x0167,0x0006
02b4 016d 0007 | m | .CONST 0x016d,0x0007
02b6 0174 0008 | t | .CONST 0x0174,0x0008
02b8 0000 0000 | | .BLANK 0000[0x148]