|
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, 5811_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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0210 | | .CONST 0x0210 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0252,0x8000,0x0000,0x002c,0xbd14,0x0000,0x0019
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 004a | J | .CONST 0x004a ; Address of begin
0019 00c8 | | .CONST 0x00c8 ; Address of exception handler
001a 0011 | | .CONST 0x0011 ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x001b,0x0254,0x8001,0x0000,0x002c,0xbd14,0x0000,0x0019
; Debug Table 0x1.0x0 = 0x1b,0xffff
001c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
001d 02ff | | Declare_Variable Variant_Record
001e 00d8 | | Load_Top At_Offset_0
001f 1c00 | | Execute_Immediate Run_Utility,0x0
0020 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x1 = 0x20,0xfffe
0021 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0022 0322 | " | Declare_Variable Record
0023 00d8 | | Load_Top At_Offset_0
0024 1c00 | | Execute_Immediate Run_Utility,0x0
0025 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x2 = 0x25,0xfffd
0026 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0027 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x3 = 0x27,0xfffc
0028 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0029 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x4 = 0x29,0xfffb
002a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002b 0007 | | Action Break_Optional ; Debug Table 0x1.0x5 = 0x2b,0xfffa
002c 029e 00db | | Declare_Subprogram INIT_00d8,For_Call,Unelaborated ; Debug Table 0x1.0x6 = 0x2c,0xfff9
002e 4807 |H | Short_Literal 0x7 ; Debug Table 0x1.0x7 = 0x2e,0xfff8
002f 4802 |H | Short_Literal 0x2
0030 0099 | | Action Reference_Dynamic
0031 00c7 | | Action Elaborate_Subprogram
0032 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call ; Debug Table 0x1.0x8 = 0x32,0xfff7
0034 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call ; Debug Table 0x1.0x9 = 0x34,0xfff6
0036 4807 |H | Short_Literal 0x7 ; Debug Table 0x1.0xa = 0x36,0xfff5
0037 4802 |H | Short_Literal 0x2
0038 0099 | | Action Reference_Dynamic
0039 00c6 | | Action Check_Subprogram_Elaborated
003a e003 | | Load 0x0,0x3
003b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003c 4808 |H | Short_Literal 0x8
003d 4802 |H | Short_Literal 0x2
003e 0099 | | Action Reference_Dynamic
003f 4809 |H | Short_Literal 0x9
0040 4802 |H | Short_Literal 0x2
0041 0099 | | Action Reference_Dynamic
0042 6145 |aE | Indirect_Literal Discrete,0x188,{0x00000000, 0x002cbd14}
0043 48c3 |H | Short_Literal 0xc3
0044 480f |H | Short_Literal 0xf
0045 0007 | | Action Break_Optional
0046 029f 010b | | Declare_Subprogram INIT_0108,For_Call ; Debug Table 0x1.0xb = 0x46,0xfff4
0048 029f 011b | | Declare_Subprogram INIT_0118,For_Call ; Debug Table 0x1.0xc = 0x48,0xfff3
004a BODY_0018:
004a 0092 018c | | Action Push_String_Extended,0x18c ; "Test Object Management Backdoor Mechanism"
; Debug Table 0x1.0xd = 0x4a,0x1
004c 0092 018d | | Action Push_String_Extended,0x18d ; "OM:BACKDOOR"
004e e004 | | Load 0x0,0x4
004f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0050 0092 018e | | Action Push_String_Extended,0x18e ; "Create A User Via Backdoor"
; Debug Table 0x1.0xe = 0x50,0x2
0052 e004 | | Load 0x0,0x4
0053 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0054 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0xf = 0x54,0x3
0055 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0056 e402 | | Load 0x2,0x2
0057 e005 | | Load 0x0,0x5
0058 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0059 0162 | b | Execute Variant_Record,Check_In_Type
005a e006 | | Load 0x0,0x6
005b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005c 4800 |H | Short_Literal 0x0
005d 4800 |H | Short_Literal 0x0
005e e005 | | Load 0x0,0x5
005f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0060 4800 |H | Short_Literal 0x0
0061 4800 |H | Short_Literal 0x0
0062 e005 | | Load 0x0,0x5
0063 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0064 4800 |H | Short_Literal 0x0
0065 e007 | | Load 0x0,0x7
0066 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0067 e002 | | Load 0x0,0x2
0068 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0069 00d1 | | Pop_Control Pop_Count_1
006a c404 | | Store 0x2,0x4
006b e404 | | Load 0x2,0x4 ; Debug Table 0x1.0x10 = 0x6b,0x4
006c e40a | | Load 0x2,0xa
006d 480b |H | Short_Literal 0xb
006e 4802 |H | Short_Literal 0x2
006f 0099 | | Action Reference_Dynamic
0070 480c |H | Short_Literal 0xc
0071 4802 |H | Short_Literal 0x2
0072 0099 | | Action Reference_Dynamic
0073 480d |H | Short_Literal 0xd
0074 4802 |H | Short_Literal 0x2
0075 0099 | | Action Reference_Dynamic
0076 8407 | | Call 0x2,0x7
0077 0092 018f | | Action Push_String_Extended,0x18f ; "Get Time of Creation for User"
; Debug Table 0x1.0x11 = 0x77,0x5
0079 e004 | | Load 0x0,0x4
007a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
007b e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x12 = 0x7b,0x6
007c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
007d e403 | | Load 0x2,0x3
007e e006 | | Load 0x0,0x6
007f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0080 4800 |H | Short_Literal 0x0
0081 4800 |H | Short_Literal 0x0
0082 e402 | | Load 0x2,0x2
0083 e002 | | Load 0x0,0x2
0084 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0085 00d1 | | Pop_Control Pop_Count_1
0086 c405 | | Store 0x2,0x5
0087 0092 0190 | | Action Push_String_Extended,0x190 ; " Time = "
; Debug Table 0x1.0x13 = 0x87,0x7
0089 e403 | | Load 0x2,0x3
008a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
008b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
008c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
008d 8410 | | Call 0x2,0x10
008e 01cc | | Execute Vector,Catenate
008f e004 | | Load 0x0,0x4
0090 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0091 e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x14 = 0x91,0x8
0092 e40a | | Load 0x2,0xa
0093 480b |H | Short_Literal 0xb
0094 4802 |H | Short_Literal 0x2
0095 0099 | | Action Reference_Dynamic
0096 480c |H | Short_Literal 0xc
0097 4802 |H | Short_Literal 0x2
0098 0099 | | Action Reference_Dynamic
0099 480d |H | Short_Literal 0xd
009a 4802 |H | Short_Literal 0x2
009b 0099 | | Action Reference_Dynamic
009c 8407 | | Call 0x2,0x7
009d 0092 0191 | | Action Push_String_Extended,0x191 ; "Delete User Via Backdoor"
; Debug Table 0x1.0x15 = 0x9d,0x9
009f e004 | | Load 0x0,0x4
00a0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00a1 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x16 = 0xa1,0xa
00a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00a3 e006 | | Load 0x0,0x6
00a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a5 4800 |H | Short_Literal 0x0
00a6 e402 | | Load 0x2,0x2
00a7 e002 | | Load 0x0,0x2
00a8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00a9 c406 | | Store 0x2,0x6
00aa e406 | | Load 0x2,0x6 ; Debug Table 0x1.0x17 = 0xaa,0xb
00ab e40a | | Load 0x2,0xa
00ac 480b |H | Short_Literal 0xb
00ad 4802 |H | Short_Literal 0x2
00ae 0099 | | Action Reference_Dynamic
00af 480c |H | Short_Literal 0xc
00b0 4802 |H | Short_Literal 0x2
00b1 0099 | | Action Reference_Dynamic
00b2 480d |H | Short_Literal 0xd
00b3 4802 |H | Short_Literal 0x2
00b4 0099 | | Action Reference_Dynamic
00b5 8407 | | Call 0x2,0x7
00b6 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x1.0x18 = 0xb6,0xc
00b7 e004 | | Load 0x0,0x4
00b8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00b9 0092 0192 | | Action Push_String_Extended,0x192 ; "COUNT OF OBJECTS"
; Debug Table 0x1.0x19 = 0xb9,0xd
00bb e004 | | Load 0x0,0x4
00bc 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00bd 0092 0193 | | Action Push_String_Extended,0x193 ; "----------------"
; Debug Table 0x1.0x1a = 0xbd,0xe
00bf e004 | | Load 0x0,0x4
00c0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c1 8411 | | Call 0x2,0x11 ; Debug Table 0x1.0x1b = 0xc1,0xf
00c2 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x1.0x1c = 0xc2,0x10
00c3 e004 | | Load 0x0,0x4
00c4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c5 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x1d = 0xc5,0x11
00c6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c8 TRAP_0018:
00c8 0007 | | Action Break_Optional
00c9 0092 0194 | | Action Push_String_Extended,0x194 ; "unhandled exception: "
; Debug Table 0x1.0x1e = 0xc9,0x12
00cb e008 | | Load 0x0,0x8
00cc 180d | | Execute Package,Field_Execute,Field_Number 0xd
00cd 01cc | | Execute Vector,Catenate
00ce e004 | | Load 0x0,0x4
00cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d0 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x1f = 0xd0,0x13
00d1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d3 0000 0000 | | .BLANK 0000[0x5]
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 e7fb | | Load 0x3,-0x5 ; Debug Table 0x2 = .DEBUG 0x00db,0x0296,0x2801,0x0003,0x002c,0xbd14,0x0000,0x004f
; Debug Table 0x2.0x0 = 0xdb,0x1
00dc e7fc | | Load 0x3,-0x4
00dd 0119 | | Execute Any,Check_In_Formal_Type
00de 87fd | | Call 0x3,-0x3
00df 6809 |h | Jump_Zero 0xe9
00e0 0092 0195 | | Action Push_String_Extended,0x195 ; " Bad Status = "
; Debug Table 0x2.0x1 = 0xe0,0x2
00e2 e7fb | | Load 0x3,-0x5
00e3 e7fc | | Load 0x3,-0x4
00e4 0119 | | Execute Any,Check_In_Formal_Type
00e5 87fe | | Call 0x3,-0x2
00e6 01cc | | Execute Vector,Catenate
00e7 e004 | | Load 0x0,0x4
00e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e9 4506 |E | Exit_Suprogram New_Top_Offset 0x6
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x00f3,0x029c,0x0002,0x0000,0x002c,0xbd14,0x0000,0x0090
; Debug Table 0x3.0x0 = 0xf3,0x1
00f4 0f00 | | Execute_Immediate Equal,0x0
00f5 0f00 | | Execute_Immediate Equal,0x0
00f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f7 0000 | | .XXX[0x1]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x00fb,0x02a0,0x0002,0x0000,0x002c,0xbd14,0x0000,0x00ac
; Debug Table 0x4.0x0 = 0xfb,0x1
00fc e003 | | Load 0x0,0x3
00fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00fe 025e | ^ | Execute Discrete,Convert
00ff 1c01 | | Execute_Immediate Run_Utility,0x1
0100 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0101 0000 0000 | | .BLANK 0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 4800 |H | Short_Literal 0x0 ; Debug Table 0x5 = .DEBUG 0x010b,0x02a4,0x0002,0x0000,0x002c,0xbd14,0x0000,0x00cf
; Debug Table 0x5.0x0 = 0x10b,0x1
010c 4800 |H | Short_Literal 0x0
010d 4800 |H | Short_Literal 0x0
010e e7ff | | Load 0x3,-0x1
010f e009 | | Load 0x0,0x9
0110 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0111 e009 | | Load 0x0,0x9
0112 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0113 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0114 0000 0000 | | .BLANK 0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 012f | / | .CONST 0x012f ; Address of begin
0119 0166 | f | .CONST 0x0166 ; Address of exception handler
011a 0007 | | .CONST 0x0007 ; Number of locals
011b INIT_0118:
011b e002 | | Load 0x0,0x2 ; Debug Table 0x6 = .DEBUG 0x011b,0x02a8,0x0001,0x0000,0x002c,0xbd14,0x0000,0x00ea
; Debug Table 0x6.0x0 = 0x11b,0xffff
011c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
011d 02c7 | | Declare_Variable Any
011e 00d8 | | Load_Top At_Offset_0
011f 1c00 | | Execute_Immediate Run_Utility,0x0
0120 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x6.0x1 = 0x120,0xfffe
0121 e005 | | Load 0x0,0x5 ; Debug Table 0x6.0x2 = 0x121,0xfffd
0122 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0123 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0124 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0125 e005 | | Load 0x0,0x5 ; Debug Table 0x6.0x3 = 0x125,0xfffc
0126 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0127 02ff | | Declare_Variable Variant_Record
0128 00d8 | | Load_Top At_Offset_0
0129 1c00 | | Execute_Immediate Run_Utility,0x0
012a 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x6.0x4 = 0x12a,0xfffb
012b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
012c 0007 | | Action Break_Optional ; Debug Table 0x6.0x5 = 0x12c,0xfffa
012d 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call ; Debug Table 0x6.0x6 = 0x12d,0xfff9
012f BODY_0118:
012f 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x6.0x7 = 0x12f,0x1
0130 48de |H | Short_Literal 0xde
0131 e00a | | Load 0x0,0xa
0132 180d | | Execute Package,Field_Execute,Field_Number 0xd
0133 c603 | | Store 0x3,0x3
0134 e602 | | Load 0x3,0x2 ; Debug Table 0x6.0x8 = 0x134,0x2
0135 0120 | | Execute Any,Is_Value
0136 6803 |h | Jump_Zero 0x13a
0137 e002 | | Load 0x0,0x2
0138 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0139 7801 |x | Jump 0x13b
013a e602 | | Load 0x3,0x2
013b 4800 |H | Short_Literal 0x0
013c e603 | | Load 0x3,0x3
013d e002 | | Load 0x0,0x2
013e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
013f c602 | | Store 0x3,0x2
0140 781c |x | Jump 0x15d
0141 e602 | | Load 0x3,0x2 ; Debug Table 0x6.0x9 = 0x141,0x4
0142 e002 | | Load 0x0,0x2
0143 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0144 00db | | Load_Top At_Offset_3
0145 016d | m | Execute Variant_Record,Structure_Write
0146 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0xa = 0x146,0x5
0147 680a |h | Jump_Zero 0x152
0148 00db | | Load_Top At_Offset_3
0149 00db | | Load_Top At_Offset_3
014a e005 | | Load 0x0,0x5
014b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
014c 027f | | Execute Discrete,Equal
014d 7004 |p | Jump_Nonzero 0x152
014e 8607 | | Call 0x3,0x7 ; Debug Table 0x6.0xb = 0x14e,0x6
014f 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0xc = 0x14f,0x7
0150 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0151 7803 |x | Jump 0x155
0152 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0xd = 0x152,0x8
0153 0a01 | | Execute_Immediate Plus,0x1
0154 005a | Z | Store_Top Discrete,At_Offset_2
0155 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xe = 0x155,0x9
0156 e005 | | Load 0x0,0x5
0157 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0158 a604 | | Store_Unchecked 0x3,0x4
0159 e602 | | Load 0x3,0x2 ; Debug Table 0x6.0xf = 0x159,0xa
015a e002 | | Load 0x0,0x2
015b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
015c c602 | | Store 0x3,0x2
015d e602 | | Load 0x3,0x2 ; Debug Table 0x6.0x10 = 0x15d,0x3
015e e002 | | Load 0x0,0x2
015f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0160 6fe0 |o | Jump_Zero 0x141
0161 8607 | | Call 0x3,0x7 ; Debug Table 0x6.0x11 = 0x161,0xb
0162 e603 | | Load 0x3,0x3 ; Debug Table 0x6.0x12 = 0x162,0xc
0163 e00a | | Load 0x0,0xa
0164 180f | | Execute Package,Field_Execute,Field_Number 0xf
0165 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0166 TRAP_0118:
0166 0007 | | Action Break_Optional
0167 e603 | | Load 0x3,0x3 ; Debug Table 0x6.0x13 = 0x167,0xd
0168 00f0 | | Load_Encached Segment_Cache
0169 021f | | Execute Heap_Access,Equal
016a 7003 |p | Jump_Nonzero 0x16e
016b e603 | | Load 0x3,0x3 ; Debug Table 0x6.0x14 = 0x16b,0xe
016c e00a | | Load 0x0,0xa
016d 180f | | Execute Package,Field_Execute,Field_Number 0xf
016e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
016f 0000 | | .XXX[0x1]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 0092 0196 | | Action Push_String_Extended,0x196 ; "Class "
; Debug Table 0x7 = .DEBUG 0x0173,0x02d4,0x0001,0x0000,0x002c,0xbd14,0x0000,0x012a
; Debug Table 0x7.0x0 = 0x173,0x1
0175 e604 | | Load 0x3,0x4
0176 e002 | | Load 0x0,0x2
0177 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0178 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0179 01cc | | Execute Vector,Catenate
017a 0092 0197 | | Action Push_String_Extended,0x197 ; " has"
017c 01cc | | Execute Vector,Catenate
017d e606 | | Load 0x3,0x6
017e 00e0 | | Load_Encached Standard_Cache
017f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0180 01cc | | Execute Vector,Catenate
0181 0092 0198 | | Action Push_String_Extended,0x198 ; " objects"
0183 01cc | | Execute Vector,Catenate
0184 e004 | | Load 0x0,0x4
0185 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0186 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0187 0000 | | .XXX[0x1]
0188 0000 0000 | | .LITERAL {0x00000000, 0x002cbd14}
018c ; --------------------------------------------------------------------------------------
018c ; STRING TABLE
018c ; --------------------------------------------------------------------------------------
018c 001c | | .STRTAB 0x001c->0x019a ; "Test Object Management Backdoor Mechanism"
018d 0043 | C | .STRTAB 0x0043->0x01ae ; "OM:BACKDOOR"
018e 004c | L | .STRTAB 0x004c->0x01b4 ; "Create A User Via Backdoor"
018f 0064 | d | .STRTAB 0x0064->0x01c1 ; "Get Time of Creation for User"
0190 007f | | .STRTAB 0x007f->0x01cf ; " Time = "
0191 0088 | | .STRTAB 0x0088->0x01d5 ; "Delete User Via Backdoor"
0192 009e | | .STRTAB 0x009e->0x01e1 ; "COUNT OF OBJECTS"
0193 00ac | | .STRTAB 0x00ac->0x01e9 ; "----------------"
0194 00ba | | .STRTAB 0x00ba->0x01f1 ; "unhandled exception: "
0195 00cd | | .STRTAB 0x00cd->0x01fb ; " Bad Status = "
0196 00dc | | .STRTAB 0x00dc->0x0204 ; "Class "
0197 00e0 | | .STRTAB 0x00e0->0x0207 ; " has"
0198 00e2 | | .STRTAB 0x00e2->0x0209 ; " objects"
0199 00e8 | | .STREND 0x00e8->0x020d
019a 5465 7374 |Test| .STRTAB_STRINGS
020d 0000 0000 | | .XXX[0x3]
020f 0000 | |
0210 ; --------------------------------------------------------------------------------------
0210 ; Debug Table
0210 ; --------------------------------------------------------------------------------------
0210 0003 0008 | | .CONST 0x0003,0x0008
0212 000b 0252 | R| .DEBUG 0x000b,0x0252,0x8000,0x0000,0x002c,0xbd14,0x0000,0x0019
021a 001b 0254 | T| .DEBUG 0x001b,0x0254,0x8001,0x0000,0x002c,0xbd14,0x0000,0x0019
0222 00db 0296 | | .DEBUG 0x00db,0x0296,0x2801,0x0003,0x002c,0xbd14,0x0000,0x004f
022a 00f3 029c | | .DEBUG 0x00f3,0x029c,0x0002,0x0000,0x002c,0xbd14,0x0000,0x0090
0232 00fb 02a0 | | .DEBUG 0x00fb,0x02a0,0x0002,0x0000,0x002c,0xbd14,0x0000,0x00ac
023a 010b 02a4 | | .DEBUG 0x010b,0x02a4,0x0002,0x0000,0x002c,0xbd14,0x0000,0x00cf
0242 011b 02a8 | | .DEBUG 0x011b,0x02a8,0x0001,0x0000,0x002c,0xbd14,0x0000,0x00ea
024a 0173 02d4 | s | .DEBUG 0x0173,0x02d4,0x0001,0x0000,0x002c,0xbd14,0x0000,0x012a
0252 ; --------------------------------------------------------------------------------------
0252 ; Debug3 Subtable 0x0
0252 ; --------------------------------------------------------------------------------------
0252 0000 0000 | | .DBG3TAB 0x0000,0x0000
0254 ; --------------------------------------------------------------------------------------
0254 ; Debug3 Subtable 0x1
0254 ; --------------------------------------------------------------------------------------
0254 000d 0013 | | .DBG3TAB 0x000d,0x0013
0256 001b ffff | | .CONST 0x001b,0xffff
0258 0020 fffe | | .CONST 0x0020,0xfffe
025a 0025 fffd | % | .CONST 0x0025,0xfffd
025c 0027 fffc | ' | .CONST 0x0027,0xfffc
025e 0029 fffb | ) | .CONST 0x0029,0xfffb
0260 002b fffa | + | .CONST 0x002b,0xfffa
0262 002c fff9 | , | .CONST 0x002c,0xfff9
0264 002e fff8 | . | .CONST 0x002e,0xfff8
0266 0032 fff7 | 2 | .CONST 0x0032,0xfff7
0268 0034 fff6 | 4 | .CONST 0x0034,0xfff6
026a 0036 fff5 | 6 | .CONST 0x0036,0xfff5
026c 0046 fff4 | F | .CONST 0x0046,0xfff4
026e 0048 fff3 | H | .CONST 0x0048,0xfff3
0270 004a 0001 | J | .CONST 0x004a,0x0001
0272 0050 0002 | P | .CONST 0x0050,0x0002
0274 0054 0003 | T | .CONST 0x0054,0x0003
0276 006b 0004 | k | .CONST 0x006b,0x0004
0278 0077 0005 | w | .CONST 0x0077,0x0005
027a 007b 0006 | { | .CONST 0x007b,0x0006
027c 0087 0007 | | .CONST 0x0087,0x0007
027e 0091 0008 | | .CONST 0x0091,0x0008
0280 009d 0009 | | .CONST 0x009d,0x0009
0282 00a1 000a | | .CONST 0x00a1,0x000a
0284 00aa 000b | | .CONST 0x00aa,0x000b
0286 00b6 000c | | .CONST 0x00b6,0x000c
0288 00b9 000d | | .CONST 0x00b9,0x000d
028a 00bd 000e | | .CONST 0x00bd,0x000e
028c 00c1 000f | | .CONST 0x00c1,0x000f
028e 00c2 0010 | | .CONST 0x00c2,0x0010
0290 00c5 0011 | | .CONST 0x00c5,0x0011
0292 00c9 0012 | | .CONST 0x00c9,0x0012
0294 00d0 0013 | | .CONST 0x00d0,0x0013
0296 ; --------------------------------------------------------------------------------------
0296 ; Debug3 Subtable 0x2
0296 ; --------------------------------------------------------------------------------------
0296 0000 0002 | | .DBG3TAB 0x0000,0x0002
0298 00db 0001 | | .CONST 0x00db,0x0001
029a 00e0 0002 | | .CONST 0x00e0,0x0002
029c ; --------------------------------------------------------------------------------------
029c ; Debug3 Subtable 0x3
029c ; --------------------------------------------------------------------------------------
029c 0000 0001 | | .DBG3TAB 0x0000,0x0001
029e 00f3 0001 | | .CONST 0x00f3,0x0001
02a0 ; --------------------------------------------------------------------------------------
02a0 ; Debug3 Subtable 0x4
02a0 ; --------------------------------------------------------------------------------------
02a0 0000 0001 | | .DBG3TAB 0x0000,0x0001
02a2 00fb 0001 | | .CONST 0x00fb,0x0001
02a4 ; --------------------------------------------------------------------------------------
02a4 ; Debug3 Subtable 0x5
02a4 ; --------------------------------------------------------------------------------------
02a4 0000 0001 | | .DBG3TAB 0x0000,0x0001
02a6 010b 0001 | | .CONST 0x010b,0x0001
02a8 ; --------------------------------------------------------------------------------------
02a8 ; Debug3 Subtable 0x6
02a8 ; --------------------------------------------------------------------------------------
02a8 0007 000e | | .DBG3TAB 0x0007,0x000e
02aa 011b ffff | | .CONST 0x011b,0xffff
02ac 0120 fffe | | .CONST 0x0120,0xfffe
02ae 0121 fffd | ! | .CONST 0x0121,0xfffd
02b0 0125 fffc | % | .CONST 0x0125,0xfffc
02b2 012a fffb | * | .CONST 0x012a,0xfffb
02b4 012c fffa | , | .CONST 0x012c,0xfffa
02b6 012d fff9 | - | .CONST 0x012d,0xfff9
02b8 012f 0001 | / | .CONST 0x012f,0x0001
02ba 0134 0002 | 4 | .CONST 0x0134,0x0002
02bc 0141 0004 | A | .CONST 0x0141,0x0004
02be 0146 0005 | F | .CONST 0x0146,0x0005
02c0 014e 0006 | N | .CONST 0x014e,0x0006
02c2 014f 0007 | O | .CONST 0x014f,0x0007
02c4 0152 0008 | R | .CONST 0x0152,0x0008
02c6 0155 0009 | U | .CONST 0x0155,0x0009
02c8 0159 000a | Y | .CONST 0x0159,0x000a
02ca 015d 0003 | ] | .CONST 0x015d,0x0003
02cc 0161 000b | a | .CONST 0x0161,0x000b
02ce 0162 000c | b | .CONST 0x0162,0x000c
02d0 0167 000d | g | .CONST 0x0167,0x000d
02d2 016b 000e | k | .CONST 0x016b,0x000e
02d4 ; --------------------------------------------------------------------------------------
02d4 ; Debug3 Subtable 0x7
02d4 ; --------------------------------------------------------------------------------------
02d4 0000 0001 | | .DBG3TAB 0x0000,0x0001
02d6 0173 0001 | s | .CONST 0x0173,0x0001
02d8 0000 0000 | | .BLANK 0000[0x128]