|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01d8 | | .CONST 0x01d8 ; 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 001c | | .CONST 0x001c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0011 | | .CONST 0x0011 ; Number of locals
000b INIT_0008:
000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0212,0x0000,0x0000,0x005a,0x12e5,0x0000,0x159b
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 00bf | | Action Accept_Activation
0012 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1 = .DEBUG 0x0012,0x021a,0x0000,0x0000,0x005a,0x2005,0x0000,0x0004
; Debug Table 0x1.0x0 = 0x12,0xffff
0013 00c7 | | Action Elaborate_Subprogram
0014 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call ; Debug Table 0x1.0x1 = 0x14,0xfffe
0016 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call ; Debug Table 0x1.0x2 = 0x16,0xfffd
0018 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x3 = 0x18,0xfffc
0019 00c7 | | Action Elaborate_Subprogram
001a 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x4 = 0x1a,0xfffb
001b 00c7 | | Action Elaborate_Subprogram
001c BODY_0008:
001c 00bc | | Action Signal_Activated
001d 00bb | | Action Signal_Completion
001e 0000 0000 | | .XXX[0x2]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0045 | E | .CONST 0x0045 ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 000a | | .CONST 0x000a ; Number of locals
0023 INIT_0020:
0023 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x2 = .DEBUG 0x0023,0x0226,0x0001,0x0000,0x005a,0x12e5,0x0000,0x159c
; Debug Table 0x2.0x0 = 0x23,0xffff
0024 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x2.0x1 = 0x24,0xfffe
0025 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x2 = 0x25,0xfffd
0026 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x3 = 0x26,0xfffc
0027 0007 | | Action Break_Optional
0028 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x2.0x4 = 0x28,0xfffb
0029 e5ff | | Load 0x2,-0x1
002a 00eb | | Load_Encached Diana_Cache
002b 18ec | | Execute Package,Field_Execute,Field_Number 0xec
002c 0031 | 1 | Store_Top Heap_Access,At_Offset_1
002d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x5 = 0x2d,0xfffa
002e 00eb | | Load_Encached Diana_Cache
002f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0030 0f84 | | Execute_Immediate Equal,-0x7c
0031 00e1 | | Load_Encached Boolean_Cache
0032 03f1 | | Declare_Variable Discrete,With_Value
0033 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x2.0x6 = 0x33,0xfff9
0034 e5ff | | Load 0x2,-0x1
0035 00eb | | Load_Encached Diana_Cache
0036 1888 | | Execute Package,Field_Execute,Field_Number 0x88
0037 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0038 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x2.0x7 = 0x38,0xfff8
0039 00d9 | | Load_Top At_Offset_1
003a 0031 | 1 | Store_Top Heap_Access,At_Offset_1
003b 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x8 = 0x3b,0xfff7
003c 00d9 | | Load_Top At_Offset_1
003d 4975 |Iu | Short_Literal 0x175
003e 00eb | | Load_Encached Diana_Cache
003f 0098 | | Execute Package,Field_Read_Dynamic
0040 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0041 49a0 |I | Short_Literal 0x1a0
0042 00eb | | Load_Encached Diana_Cache
0043 0098 | | Execute Package,Field_Read_Dynamic
0044 0334 | 4 | Declare_Variable Array,With_Constraint
0045 BODY_0020:
0045 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x9 = 0x45,0x1
0046 6816 |h | Jump_Zero 0x5d
0047 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0xa = 0x47,0x2
0048 e406 | | Load 0x2,0x6
0049 820f | | Call 0x1,0xf
004a a405 | | Store_Unchecked 0x2,0x5
004b 00cf | | Action Mark_Auxiliary
004c 780a |x | Jump 0x57
004d e405 | | Load 0x2,0x5 ; Debug Table 0x2.0xb = 0x4d,0x4
004e 00db | | Load_Top At_Offset_3
004f 00eb | | Load_Encached Diana_Cache
0050 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0051 8211 | | Call 0x1,0x11
0052 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0xc = 0x52,0x5
0053 00eb | | Load_Encached Diana_Cache
0054 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
0055 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0056 00c9 | | Action Pop_Auxiliary_Loop
0057 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0xd = 0x57,0x3
0058 00eb | | Load_Encached Diana_Cache
0059 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
005a 6ff2 |o | Jump_Zero 0x4d
005b 00ce | | Action Pop_Auxiliary
005c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x2.0xe = 0x5c,0x6
005d 00cf | | Action Mark_Auxiliary
005e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0xf = 0x5e,0x7
005f 01d9 | | Execute Vector,Reverse_Bounds
0060 0263 | c | Execute Discrete,Above_Bound
0061 700d |p | Jump_Nonzero 0x6f
0062 e409 | | Load 0x2,0x9 ; Debug Table 0x2.0x10 = 0x62,0x8
0063 00eb | | Load_Encached Diana_Cache
0064 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0065 8002 | | Call 0x0,0x2
0066 00d9 | | Load_Top At_Offset_1
0067 e40a | | Load 0x2,0xa
0068 01d6 | | Execute Vector,Field_Write
0069 e409 | | Load 0x2,0x9 ; Debug Table 0x2.0x11 = 0x69,0x9
006a 00eb | | Load_Encached Diana_Cache
006b 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
006c a409 | | Store_Unchecked 0x2,0x9
006d 00c8 | | Action Pop_Auxiliary_Range
006e 3ff3 |? | Loop_Increasing 0x62
006f 00ce | | Action Pop_Auxiliary
0070 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x12 = 0x70,0xa
0071 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0072 00cf | | Action Mark_Auxiliary
0073 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x13 = 0x73,0xb
0074 01d9 | | Execute Vector,Reverse_Bounds
0075 0263 | c | Execute Discrete,Above_Bound
0076 702d |p- | Jump_Nonzero 0xa4
0077 e409 | | Load 0x2,0x9 ; Debug Table 0x2.0x14 = 0x77,0xc
0078 00eb | | Load_Encached Diana_Cache
0079 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
007a a402 | | Store_Unchecked 0x2,0x2
007b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x15 = 0x7b,0xd
007c e40a | | Load 0x2,0xa
007d 01d7 | | Execute Vector,Field_Read
007e a403 | | Store_Unchecked 0x2,0x3
007f e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x16 = 0x7f,0xe
0080 00eb | | Load_Encached Diana_Cache
0081 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0082 6805 |h | Jump_Zero 0x88
0083 0092 0198 | | Action Push_String_Extended,0x198 ; "package"
; Debug Table 0x2.0x17 = 0x83,0xf
0085 e402 | | Load 0x2,0x2
0086 8003 | | Call 0x0,0x3
0087 7816 |x | Jump 0x9e
0088 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x18 = 0x88,0x10
0089 e004 | | Load 0x0,0x4
008a 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
008b 700d |p | Jump_Nonzero 0x99
008c 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x19 = 0x8c,0x11
008d e402 | | Load 0x2,0x2
008e e403 | | Load 0x2,0x3
008f 8210 | | Call 0x1,0x10
0090 c404 | | Store 0x2,0x4
0091 e404 | | Load 0x2,0x4 ; Debug Table 0x2.0x1a = 0x91,0x12
0092 680b |h | Jump_Zero 0x9e
0093 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x1b = 0x93,0x13
0094 4800 |H | Short_Literal 0x0
0095 e403 | | Load 0x2,0x3
0096 e004 | | Load 0x0,0x4
0097 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0098 7805 |x | Jump 0x9e
0099 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x1c = 0x99,0x14
009a e402 | | Load 0x2,0x2
009b e403 | | Load 0x2,0x3
009c 8210 | | Call 0x1,0x10
009d c404 | | Store 0x2,0x4
009e e409 | | Load 0x2,0x9 ; Debug Table 0x2.0x1d = 0x9e,0x15
009f 00eb | | Load_Encached Diana_Cache
00a0 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
00a1 a409 | | Store_Unchecked 0x2,0x9
00a2 00c8 | | Action Pop_Auxiliary_Range
00a3 3fd3 |? | Loop_Increasing 0x77
00a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a5 0000 0000 | | .XXX[0x3]
00a7 0000 | |
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b0 | | .CONST 0x00b0 ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0002 | | .CONST 0x0002 ; Number of locals
00ab INIT_00a8:
00ab 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x3 = .DEBUG 0x00ab,0x0264,0x0001,0x0000,0x005a,0x12e5,0x0000,0x15a6
; Debug Table 0x3.0x0 = 0xab,0xffff
00ac 00db | | Load_Top At_Offset_3
00ad 00eb | | Load_Encached Diana_Cache
00ae 1888 | | Execute Package,Field_Execute,Field_Number 0x88
00af 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00b0 BODY_00a8:
00b0 00cf | | Action Mark_Auxiliary
00b1 780a |x | Jump 0xbc
00b2 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x1 = 0xb2,0x2
00b3 00da | | Load_Top At_Offset_2
00b4 00eb | | Load_Encached Diana_Cache
00b5 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
00b6 8211 | | Call 0x1,0x11
00b7 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x2 = 0xb7,0x3
00b8 00eb | | Load_Encached Diana_Cache
00b9 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
00ba 0032 | 2 | Store_Top Heap_Access,At_Offset_2
00bb 00c9 | | Action Pop_Auxiliary_Loop
00bc 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x3 = 0xbc,0x1
00bd 00eb | | Load_Encached Diana_Cache
00be 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
00bf 6ff2 |o | Jump_Zero 0xb2
00c0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00c1 0000 0000 | | .BLANK 0000[0x7]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d6 | | .CONST 0x00d6 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0005 | | .CONST 0x0005 ; Number of locals
00cb INIT_00c8:
00cb 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x4 = .DEBUG 0x00cb,0x026e,0x0002,0x0000,0x005a,0x12e5,0x0000,0x15b4
; Debug Table 0x4.0x0 = 0xcb,0xffff
00cc 00db | | Load_Top At_Offset_3
00cd 00eb | | Load_Encached Diana_Cache
00ce 1888 | | Execute Package,Field_Execute,Field_Number 0x88
00cf 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00d0 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x4.0x1 = 0xd0,0xfffe
00d1 00ee | | Load_Encached Diana_Seq_Type_Cache ; Debug Table 0x4.0x2 = 0xd1,0xfffd
00d2 e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x3 = 0xd2,0xfffc
00d3 00eb | | Load_Encached Diana_Cache
00d4 1870 | p | Execute Package,Field_Execute,Field_Number 0x70
00d5 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00d6 BODY_00c8:
00d6 00cf | | Action Mark_Auxiliary
00d7 782a |x* | Jump 0x102
00d8 e402 | | Load 0x2,0x2 ; Debug Table 0x4.0x4 = 0xd8,0x2
00d9 00eb | | Load_Encached Diana_Cache
00da 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
00db a403 | | Store_Unchecked 0x2,0x3
00dc e402 | | Load 0x2,0x2 ; Debug Table 0x4.0x5 = 0xdc,0x3
00dd 00eb | | Load_Encached Diana_Cache
00de 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
00df a402 | | Store_Unchecked 0x2,0x2
00e0 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x6 = 0xe0,0x4
00e1 e403 | | Load 0x2,0x3
00e2 021f | | Execute Heap_Access,Equal
00e3 7022 |p" | Jump_Nonzero 0x106
00e4 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x7 = 0xe4,0x5
00e5 00eb | | Load_Encached Diana_Cache
00e6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00e7 0f85 | | Execute_Immediate Equal,-0x7b
00e8 6818 |h | Jump_Zero 0x101
00e9 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x8 = 0xe9,0x6
00ea 00eb | | Load_Encached Diana_Cache
00eb 1888 | | Execute Package,Field_Execute,Field_Number 0x88
00ec 0033 | 3 | Store_Top Heap_Access,At_Offset_3
00ed 00cf | | Action Mark_Auxiliary
00ee 0007 | | Action Break_Optional ; Debug Table 0x4.0x9 = 0xee,0x7
00ef 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0xa = 0xef,0x8
00f0 e404 | | Load 0x2,0x4
00f1 00eb | | Load_Encached Diana_Cache
00f2 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
00f3 00eb | | Load_Encached Diana_Cache
00f4 1874 | t | Execute Package,Field_Execute,Field_Number 0x74
00f5 0033 | 3 | Store_Top Heap_Access,At_Offset_3
00f6 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0xb = 0xf6,0x9
00f7 00eb | | Load_Encached Diana_Cache
00f8 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
00f9 a404 | | Store_Unchecked 0x2,0x4
00fa 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0xc = 0xfa,0xa
00fb 00eb | | Load_Encached Diana_Cache
00fc 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
00fd 7002 |p | Jump_Nonzero 0x100
00fe 00c9 | | Action Pop_Auxiliary_Loop
00ff 7fef | | Jump 0xef
0100 00ce | | Action Pop_Auxiliary
0101 00c9 | | Action Pop_Auxiliary_Loop
0102 e402 | | Load 0x2,0x2 ; Debug Table 0x4.0xd = 0x102,0x1
0103 00eb | | Load_Encached Diana_Cache
0104 1858 | X | Execute Package,Field_Execute,Field_Number 0x58
0105 6fd2 |o | Jump_Zero 0xd8
0106 00ce | | Action Pop_Auxiliary
0107 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0xe = 0x107,0xb
0108 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0109 0000 0000 | | .BLANK 0000[0x7]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0119 | | .CONST 0x0119 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0002 | | .CONST 0x0002 ; Number of locals
0113 INIT_0110:
0113 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x5 = .DEBUG 0x0113,0x028e,0x0001,0x0000,0x005a,0x2005,0x0000,0x0097
; Debug Table 0x5.0x0 = 0x113,0xffff
0114 00db | | Load_Top At_Offset_3
0115 4904 |I | Short_Literal 0x104
0116 00eb | | Load_Encached Diana_Cache
0117 0096 | | Execute Package,Entry
0118 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0119 BODY_0110:
0119 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x1 = 0x119,0x1
011a 00eb | | Load_Encached Diana_Cache
011b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
011c 6808 |h | Jump_Zero 0x125
011d 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x5.0x2 = 0x11d,0x2
011e 0092 0199 | | Action Push_String_Extended,0x199 ; "0757**SMUSE "
0120 e5fe | | Load 0x2,-0x2
0121 8005 | | Call 0x0,0x5
0122 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x3 = 0x122,0x3
0123 a5fd | | Store_Unchecked 0x2,-0x3
0124 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0125 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x4 = 0x125,0x4
0126 e5fe | | Load 0x2,-0x2
0127 e006 | | Load 0x0,0x6
0128 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0129 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x5 = 0x129,0x5
012a a5fd | | Store_Unchecked 0x2,-0x3
012b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
012c 0000 0000 | | .BLANK 0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 013c | < | .CONST 0x013c ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0006 | | .CONST 0x0006 ; Number of locals
0133 INIT_0130:
0133 e001 | | Load 0x0,0x1 ; Debug Table 0x6 = .DEBUG 0x0133,0x029c,0x0001,0x0000,0x005a,0x2005,0x0000,0x00db
; Debug Table 0x6.0x0 = 0x133,0xffff
0134 0007 | | Action Break_Optional
0135 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x6.0x1 = 0x135,0xfffe
0136 00ed | | Load_Encached Diana_Symbol_Rep_Cache ; Debug Table 0x6.0x2 = 0x136,0xfffd
0137 02c7 | | Declare_Variable Any
0138 00d8 | | Load_Top At_Offset_0
0139 1c00 | | Execute_Immediate Run_Utility,0x0
013a 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x6.0x3 = 0x13a,0xfffc
013b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x6.0x4 = 0x13b,0xfffb
013c BODY_0130:
013c e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0x5 = 0x13c,0x1
013d 00eb | | Load_Encached Diana_Cache
013e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
013f 0f17 | | Execute_Immediate Equal,0x17
0140 7007 |p | Jump_Nonzero 0x148
0141 0092 019a | | Action Push_String_Extended,0x19a ; "10.1.1 (3)"
; Debug Table 0x6.0x6 = 0x141,0x2
0143 0092 019b | | Action Push_String_Extended,0x19b ; " must be a simple name"
0145 e5ff | | Load 0x2,-0x1
0146 8005 | | Call 0x0,0x5
0147 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0148 e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x7 = 0x148,0x3
0149 a402 | | Store_Unchecked 0x2,0x2
014a e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0x8 = 0x14a,0x4
014b 00eb | | Load_Encached Diana_Cache
014c 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
014d c404 | | Store 0x2,0x4
014e 00cf | | Action Mark_Auxiliary
014f 783c |x< | Jump 0x18c
0150 e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x9 = 0x150,0x6
0151 00eb | | Load_Encached Diana_Cache
0152 1872 | r | Execute Package,Field_Execute,Field_Number 0x72
0153 a403 | | Store_Unchecked 0x2,0x3
0154 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0xa = 0x154,0x7
0155 e403 | | Load 0x2,0x3
0156 00eb | | Load_Encached Diana_Cache
0157 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0158 00eb | | Load_Encached Diana_Cache
0159 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
015a 682c |h, | Jump_Zero 0x187
015b e403 | | Load 0x2,0x3 ; Debug Table 0x6.0xb = 0x15b,0x8
015c e007 | | Load 0x0,0x7
015d 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
015e 0033 | 3 | Store_Top Heap_Access,At_Offset_3
015f 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xc = 0x15f,0x9
0160 00eb | | Load_Encached Diana_Cache
0161 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0162 701d |p | Jump_Nonzero 0x180
0163 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xd = 0x163,0xa
0164 00eb | | Load_Encached Diana_Cache
0165 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0166 0f29 | ) | Execute_Immediate Equal,0x29
0167 7007 |p | Jump_Nonzero 0x16f
0168 0092 019a | | Action Push_String_Extended,0x19a ; "10.1.1 (3)"
; Debug Table 0x6.0xe = 0x168,0xb
016a 0092 019c | | Action Push_String_Extended,0x19c ; " is not a package"
016c e5ff | | Load 0x2,-0x1
016d 8005 | | Call 0x0,0x5
016e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
016f 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xf = 0x16f,0xc
0170 e5ff | | Load 0x2,-0x1
0171 e007 | | Load 0x0,0x7
0172 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0173 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x6.0x10 = 0x173,0xd
0174 e5ff | | Load 0x2,-0x1
0175 e405 | | Load 0x2,0x5
0176 8210 | | Call 0x1,0x10
0177 005a | Z | Store_Top Discrete,At_Offset_2
0178 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x11 = 0x178,0xe
0179 6805 |h | Jump_Zero 0x17f
017a 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x12 = 0x17a,0xf
017b 4800 |H | Short_Literal 0x0
017c e405 | | Load 0x2,0x5
017d e004 | | Load 0x0,0x4
017e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
017f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0180 0092 019a | | Action Push_String_Extended,0x19a ; "10.1.1 (3)"
; Debug Table 0x6.0x13 = 0x180,0x10
0182 0092 019d | | Action Push_String_Extended,0x19d ; " denotes no library unit"
0184 e5ff | | Load 0x2,-0x1
0185 8005 | | Call 0x0,0x5
0186 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x6.0x14 = 0x186,0x11
0187 e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x15 = 0x187,0x12
0188 00eb | | Load_Encached Diana_Cache
0189 1873 | s | Execute Package,Field_Execute,Field_Number 0x73
018a a402 | | Store_Unchecked 0x2,0x2
018b 00c9 | | Action Pop_Auxiliary_Loop
018c e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x16 = 0x18c,0x5
018d 00eb | | Load_Encached Diana_Cache
018e 1871 | q | Execute Package,Field_Execute,Field_Number 0x71
018f 6fc0 |o | Jump_Zero 0x150
0190 00ce | | Action Pop_Auxiliary
0191 0092 019a | | Action Push_String_Extended,0x19a ; "10.1.1 (3)"
; Debug Table 0x6.0x17 = 0x191,0x13
0193 0092 019e | | Action Push_String_Extended,0x19e ; "0663**SMUSE "
0195 e5ff | | Load 0x2,-0x1
0196 8005 | | Call 0x0,0x5
0197 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0198 ; --------------------------------------------------------------------------------------
0198 ; STRING TABLE
0198 ; --------------------------------------------------------------------------------------
0198 0010 | | .STRTAB 0x0010->0x01a0 ; "package"
0199 0015 | | .STRTAB 0x0015->0x01a3 ; "0757**SMUSE "
019a 001f | | .STRTAB 0x001f->0x01a9 ; "10.1.1 (3)"
019b 0027 | ' | .STRTAB 0x0027->0x01ae ; " must be a simple name"
019c 003b | ; | .STRTAB 0x003b->0x01b9 ; " is not a package"
019d 004a | J | .STRTAB 0x004a->0x01c2 ; " denotes no library unit"
019e 0060 | ` | .STRTAB 0x0060->0x01ce ; "0663**SMUSE "
019f 006a | j | .STREND 0x006a->0x01d4
01a0 7061 636b |pack| .STRTAB_STRINGS
01d4 0000 0000 | | .BLANK 0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; Debug Table
01d8 ; --------------------------------------------------------------------------------------
01d8 0003 0007 | | .CONST 0x0003,0x0007
01da 000b 0212 | | .DEBUG 0x000b,0x0212,0x0000,0x0000,0x005a,0x12e5,0x0000,0x159b
01e2 0012 021a | | .DEBUG 0x0012,0x021a,0x0000,0x0000,0x005a,0x2005,0x0000,0x0004
01ea 0023 0226 | # &| .DEBUG 0x0023,0x0226,0x0001,0x0000,0x005a,0x12e5,0x0000,0x159c
01f2 00ab 0264 | d| .DEBUG 0x00ab,0x0264,0x0001,0x0000,0x005a,0x12e5,0x0000,0x15a6
01fa 00cb 026e | n| .DEBUG 0x00cb,0x026e,0x0002,0x0000,0x005a,0x12e5,0x0000,0x15b4
0202 0113 028e | | .DEBUG 0x0113,0x028e,0x0001,0x0000,0x005a,0x2005,0x0000,0x0097
020a 0133 029c | 3 | .DEBUG 0x0133,0x029c,0x0001,0x0000,0x005a,0x2005,0x0000,0x00db
0212 ; --------------------------------------------------------------------------------------
0212 ; Debug3 Subtable 0x0
0212 ; --------------------------------------------------------------------------------------
0212 0003 0000 | | .DBG3TAB 0x0003,0x0000
0214 000b ffff | | .CONST 0x000b,0xffff
0216 000d fffe | | .CONST 0x000d,0xfffe
0218 000f fffd | | .CONST 0x000f,0xfffd
021a ; --------------------------------------------------------------------------------------
021a ; Debug3 Subtable 0x1
021a ; --------------------------------------------------------------------------------------
021a 0005 0000 | | .DBG3TAB 0x0005,0x0000
021c 0012 ffff | | .CONST 0x0012,0xffff
021e 0014 fffe | | .CONST 0x0014,0xfffe
0220 0016 fffd | | .CONST 0x0016,0xfffd
0222 0018 fffc | | .CONST 0x0018,0xfffc
0224 001a fffb | | .CONST 0x001a,0xfffb
0226 ; --------------------------------------------------------------------------------------
0226 ; Debug3 Subtable 0x2
0226 ; --------------------------------------------------------------------------------------
0226 0009 0015 | | .DBG3TAB 0x0009,0x0015
0228 0023 ffff | # | .CONST 0x0023,0xffff
022a 0024 fffe | $ | .CONST 0x0024,0xfffe
022c 0025 fffd | % | .CONST 0x0025,0xfffd
022e 0026 fffc | & | .CONST 0x0026,0xfffc
0230 0028 fffb | ( | .CONST 0x0028,0xfffb
0232 002d fffa | - | .CONST 0x002d,0xfffa
0234 0033 fff9 | 3 | .CONST 0x0033,0xfff9
0236 0038 fff8 | 8 | .CONST 0x0038,0xfff8
0238 003b fff7 | ; | .CONST 0x003b,0xfff7
023a 0045 0001 | E | .CONST 0x0045,0x0001
023c 0047 0002 | G | .CONST 0x0047,0x0002
023e 004d 0004 | M | .CONST 0x004d,0x0004
0240 0052 0005 | R | .CONST 0x0052,0x0005
0242 0057 0003 | W | .CONST 0x0057,0x0003
0244 005c 0006 | \ | .CONST 0x005c,0x0006
0246 005e 0007 | ^ | .CONST 0x005e,0x0007
0248 0062 0008 | b | .CONST 0x0062,0x0008
024a 0069 0009 | i | .CONST 0x0069,0x0009
024c 0070 000a | p | .CONST 0x0070,0x000a
024e 0073 000b | s | .CONST 0x0073,0x000b
0250 0077 000c | w | .CONST 0x0077,0x000c
0252 007b 000d | { | .CONST 0x007b,0x000d
0254 007f 000e | | .CONST 0x007f,0x000e
0256 0083 000f | | .CONST 0x0083,0x000f
0258 0088 0010 | | .CONST 0x0088,0x0010
025a 008c 0011 | | .CONST 0x008c,0x0011
025c 0091 0012 | | .CONST 0x0091,0x0012
025e 0093 0013 | | .CONST 0x0093,0x0013
0260 0099 0014 | | .CONST 0x0099,0x0014
0262 009e 0015 | | .CONST 0x009e,0x0015
0264 ; --------------------------------------------------------------------------------------
0264 ; Debug3 Subtable 0x3
0264 ; --------------------------------------------------------------------------------------
0264 0001 0003 | | .DBG3TAB 0x0001,0x0003
0266 00ab ffff | | .CONST 0x00ab,0xffff
0268 00b2 0002 | | .CONST 0x00b2,0x0002
026a 00b7 0003 | | .CONST 0x00b7,0x0003
026c 00bc 0001 | | .CONST 0x00bc,0x0001
026e ; --------------------------------------------------------------------------------------
026e ; Debug3 Subtable 0x4
026e ; --------------------------------------------------------------------------------------
026e 0004 000b | | .DBG3TAB 0x0004,0x000b
0270 00cb ffff | | .CONST 0x00cb,0xffff
0272 00d0 fffe | | .CONST 0x00d0,0xfffe
0274 00d1 fffd | | .CONST 0x00d1,0xfffd
0276 00d2 fffc | | .CONST 0x00d2,0xfffc
0278 00d8 0002 | | .CONST 0x00d8,0x0002
027a 00dc 0003 | | .CONST 0x00dc,0x0003
027c 00e0 0004 | | .CONST 0x00e0,0x0004
027e 00e4 0005 | | .CONST 0x00e4,0x0005
0280 00e9 0006 | | .CONST 0x00e9,0x0006
0282 00ee 0007 | | .CONST 0x00ee,0x0007
0284 00ef 0008 | | .CONST 0x00ef,0x0008
0286 00f6 0009 | | .CONST 0x00f6,0x0009
0288 00fa 000a | | .CONST 0x00fa,0x000a
028a 0102 0001 | | .CONST 0x0102,0x0001
028c 0107 000b | | .CONST 0x0107,0x000b
028e ; --------------------------------------------------------------------------------------
028e ; Debug3 Subtable 0x5
028e ; --------------------------------------------------------------------------------------
028e 0001 0005 | | .DBG3TAB 0x0001,0x0005
0290 0113 ffff | | .CONST 0x0113,0xffff
0292 0119 0001 | | .CONST 0x0119,0x0001
0294 011d 0002 | | .CONST 0x011d,0x0002
0296 0122 0003 | " | .CONST 0x0122,0x0003
0298 0125 0004 | % | .CONST 0x0125,0x0004
029a 0129 0005 | ) | .CONST 0x0129,0x0005
029c ; --------------------------------------------------------------------------------------
029c ; Debug3 Subtable 0x6
029c ; --------------------------------------------------------------------------------------
029c 0005 0013 | | .DBG3TAB 0x0005,0x0013
029e 0133 ffff | 3 | .CONST 0x0133,0xffff
02a0 0135 fffe | 5 | .CONST 0x0135,0xfffe
02a2 0136 fffd | 6 | .CONST 0x0136,0xfffd
02a4 013a fffc | : | .CONST 0x013a,0xfffc
02a6 013b fffb | ; | .CONST 0x013b,0xfffb
02a8 013c 0001 | < | .CONST 0x013c,0x0001
02aa 0141 0002 | A | .CONST 0x0141,0x0002
02ac 0148 0003 | H | .CONST 0x0148,0x0003
02ae 014a 0004 | J | .CONST 0x014a,0x0004
02b0 0150 0006 | P | .CONST 0x0150,0x0006
02b2 0154 0007 | T | .CONST 0x0154,0x0007
02b4 015b 0008 | [ | .CONST 0x015b,0x0008
02b6 015f 0009 | _ | .CONST 0x015f,0x0009
02b8 0163 000a | c | .CONST 0x0163,0x000a
02ba 0168 000b | h | .CONST 0x0168,0x000b
02bc 016f 000c | o | .CONST 0x016f,0x000c
02be 0173 000d | s | .CONST 0x0173,0x000d
02c0 0178 000e | x | .CONST 0x0178,0x000e
02c2 017a 000f | z | .CONST 0x017a,0x000f
02c4 0180 0010 | | .CONST 0x0180,0x0010
02c6 0186 0011 | | .CONST 0x0186,0x0011
02c8 0187 0012 | | .CONST 0x0187,0x0012
02ca 018c 0005 | | .CONST 0x018c,0x0005
02cc 0191 0013 | | .CONST 0x0191,0x0013
02ce 0000 0000 | | .BLANK 0000[0x132]