|
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 01d0 | | .CONST 0x01d0 ; 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,0x023a,0x8000,0x0000,0x002c,0xbcd4,0x0000,0x000f 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 0068 | h | .CONST 0x0068 ; Address of begin 0019 0099 | | .CONST 0x0099 ; Address of exception handler 001a 001e | | .CONST 0x001e ; Number of locals 001b INIT_0018: 001b 00e9 | | Load_Encached String_Cache ; Debug Table 0x1 = .DEBUG 0x001b,0x023c,0x8001,0x0000,0x002c,0xbcd4,0x0000,0x000f ; Debug Table 0x1.0x0 = 0x1b,0xffff 001c 02a0 | | Declare_Subprogram Null_Subprogram 001d 4818 |H | Short_Literal 0x18 001e 03d3 | | Declare_Type Access,Defined,Accesses_Protected 001f e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x1 = 0x1f,0xfffe 0020 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0021 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0022 e002 | | Load 0x0,0x2 0023 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0024 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call 0026 4802 |H | Short_Literal 0x2 0027 032d | - | Declare_Type Record,Defined 0028 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call ; Debug Table 0x1.0x2 = 0x28,0xfffd 002a 029f 00db | | Declare_Subprogram INIT_00d8,For_Call ; Debug Table 0x1.0x3 = 0x2a,0xfffc 002c 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call ; Debug Table 0x1.0x4 = 0x2c,0xfffb 002e 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call ; Debug Table 0x1.0x5 = 0x2e,0xfffa 0030 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call ; Debug Table 0x1.0x6 = 0x30,0xfff9 0032 029f 011b | | Declare_Subprogram INIT_0118,For_Call ; Debug Table 0x1.0x7 = 0x32,0xfff8 0034 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call ; Debug Table 0x1.0x8 = 0x34,0xfff7 0036 029f 012b | +| Declare_Subprogram INIT_0128,For_Call ; Debug Table 0x1.0x9 = 0x36,0xfff6 0038 029f 015b | [| Declare_Subprogram INIT_0158,For_Call ; Debug Table 0x1.0xa = 0x38,0xfff5 003a 029f 017b | {| Declare_Subprogram INIT_0178,For_Call ; Debug Table 0x1.0xb = 0x3a,0xfff4 003c a003 | | Store_Unchecked 0x0,0x3 ; Debug Table 0x1.0xc = 0x3c,0xfff3 003d 00c6 | | Action Check_Subprogram_Elaborated 003e e001 | | Load 0x0,0x1 003f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0040 e001 | | Load 0x0,0x1 0041 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0042 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0043 e403 | | Load 0x2,0x3 0044 00e0 | | Load_Encached Standard_Cache 0045 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21 0046 4804 |H | Short_Literal 0x4 0047 4802 |H | Short_Literal 0x2 0048 0099 | | Action Reference_Dynamic 0049 4805 |H | Short_Literal 0x5 004a 4802 |H | Short_Literal 0x2 004b 0099 | | Action Reference_Dynamic 004c 4806 |H | Short_Literal 0x6 004d 4802 |H | Short_Literal 0x2 004e 0099 | | Action Reference_Dynamic 004f 4807 |H | Short_Literal 0x7 0050 4802 |H | Short_Literal 0x2 0051 0099 | | Action Reference_Dynamic 0052 480b |H | Short_Literal 0xb 0053 4802 |H | Short_Literal 0x2 0054 0099 | | Action Reference_Dynamic 0055 4808 |H | Short_Literal 0x8 0056 4802 |H | Short_Literal 0x2 0057 0099 | | Action Reference_Dynamic 0058 4809 |H | Short_Literal 0x9 0059 4802 |H | Short_Literal 0x2 005a 0099 | | Action Reference_Dynamic 005b 480a |H | Short_Literal 0xa 005c 4802 |H | Short_Literal 0x2 005d 0099 | | Action Reference_Dynamic 005e 480c |H | Short_Literal 0xc 005f 4802 |H | Short_Literal 0x2 0060 0099 | | Action Reference_Dynamic 0061 480d |H | Short_Literal 0xd 0062 4802 |H | Short_Literal 0x2 0063 0099 | | Action Reference_Dynamic 0064 611f |a | Indirect_Literal Discrete,0x184,{0x00000000, 0x002cbcd4} 0065 49e7 |I | Short_Literal 0x1e7 0066 481e |H | Short_Literal 0x1e 0067 0007 | | Action Break_Optional 0068 BODY_0018: 0068 0092 0188 | | Action Push_String_Extended,0x188 ; "Comprehensive User Manager Test" ; Debug Table 0x1.0xd = 0x68,0x1 006a 0092 0189 | | Action Push_String_Extended,0x189 ; "Test_User" 006c e004 | | Load 0x0,0x4 006d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 006e e40e | | Load 0x2,0xe ; Debug Table 0x1.0xe = 0x6e,0x2 006f e40f | | Load 0x2,0xf 0070 e410 | | Load 0x2,0x10 0071 4811 |H | Short_Literal 0x11 0072 4802 |H | Short_Literal 0x2 0073 0099 | | Action Reference_Dynamic 0074 4812 |H | Short_Literal 0x12 0075 4802 |H | Short_Literal 0x2 0076 0099 | | Action Reference_Dynamic 0077 4813 |H | Short_Literal 0x13 0078 4802 |H | Short_Literal 0x2 0079 0099 | | Action Reference_Dynamic 007a 4814 |H | Short_Literal 0x14 007b 4802 |H | Short_Literal 0x2 007c 0099 | | Action Reference_Dynamic 007d 4815 |H | Short_Literal 0x15 007e 4802 |H | Short_Literal 0x2 007f 0099 | | Action Reference_Dynamic 0080 4816 |H | Short_Literal 0x16 0081 4802 |H | Short_Literal 0x2 0082 0099 | | Action Reference_Dynamic 0083 4817 |H | Short_Literal 0x17 0084 4802 |H | Short_Literal 0x2 0085 0099 | | Action Reference_Dynamic 0086 4818 |H | Short_Literal 0x18 0087 4802 |H | Short_Literal 0x2 0088 0099 | | Action Reference_Dynamic 0089 4819 |H | Short_Literal 0x19 008a 4802 |H | Short_Literal 0x2 008b 0099 | | Action Reference_Dynamic 008c 481a |H | Short_Literal 0x1a 008d 4802 |H | Short_Literal 0x2 008e 0099 | | Action Reference_Dynamic 008f 481b |H | Short_Literal 0x1b 0090 4802 |H | Short_Literal 0x2 0091 0099 | | Action Reference_Dynamic 0092 481c |H | Short_Literal 0x1c 0093 4802 |H | Short_Literal 0x2 0094 0099 | | Action Reference_Dynamic 0095 8003 | | Call 0x0,0x3 0096 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0xf = 0x96,0x3 0097 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0098 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0099 TRAP_0018: 0099 0007 | | Action Break_Optional 009a 0092 018a | | Action Push_String_Extended,0x18a ; "Unhandled Exception reached Test_User" ; Debug Table 0x1.0x10 = 0x9a,0x4 009c e004 | | Load 0x0,0x4 009d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 009e e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x11 = 0x9e,0x5 009f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00a0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00a1 0000 0000 | | .BLANK 0000[0x7] 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 4608 |F | Jump_Case 0x9 ; Debug Table 0x2 = .DEBUG 0x00ab,0x0262,0x0005,0x0000,0x002c,0xbcd4,0x0000,0x0018 00ac 7808 |x | Jump 0xb5 ; case 0x0 00ad 780e |x | Jump 0xbc ; case 0x1 00ae 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 00af 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 00b0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 00b1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 00b2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 00b3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 00b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 00b5 00da | | Load_Top At_Offset_2 00b6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00b7 0125 | % | Execute Any,Set_Constraint 00b8 00da | | Load_Top At_Offset_2 00b9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00ba 1c00 | | Execute_Immediate Run_Utility,0x0 00bb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00bc 00da | | Load_Top At_Offset_2 00bd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00be 0125 | % | Execute Any,Set_Constraint 00bf 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00d0 | | .CONST 0x00d0 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0003 | | .CONST 0x0003 ; Number of locals 00c3 INIT_00c0: 00c3 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x00c3,0x0264,0x0001,0x0000,0x002c,0xbcd4,0x0000,0x002c ; Debug Table 0x3.0x0 = 0xc3,0xffff 00c4 e005 | | Load 0x0,0x5 00c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c6 e005 | | Load 0x0,0x5 00c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c8 03f1 | | Declare_Variable Discrete,With_Value 00c9 e005 | | Load 0x0,0x5 ; Debug Table 0x3.0x1 = 0xc9,0xfffe 00ca 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00cb 00d9 | | Load_Top At_Offset_1 00cc 0268 | h | Execute Discrete,Successor 00cd e005 | | Load 0x0,0x5 00ce 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00cf 03f1 | | Declare_Variable Discrete,With_Value 00d0 BODY_00c0: 00d0 e7ff | | Load 0x3,-0x1 ; Debug Table 0x3.0x2 = 0xd0,0x1 00d1 4800 |H | Short_Literal 0x0 00d2 00da | | Load_Top At_Offset_2 00d3 e005 | | Load 0x0,0x5 00d4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00d6 0000 0000 | | .XXX[0x2] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00e1 | | .CONST 0x00e1 ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0002 | | .CONST 0x0002 ; Number of locals 00db INIT_00d8: 00db 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x00db,0x026c,0x0002,0x0000,0x002c,0xbcd4,0x0000,0x0062 ; Debug Table 0x4.0x0 = 0xdb,0xffff 00dc e005 | | Load 0x0,0x5 00dd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00de e005 | | Load 0x0,0x5 00df 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e0 03f1 | | Declare_Variable Discrete,With_Value 00e1 BODY_00d8: 00e1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x1 = 0xe1,0x1 00e2 00e0 | | Load_Encached Standard_Cache 00e3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e5 0000 0000 | | .XXX[0x3] 00e7 0000 | | 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x00eb,0x0272,0x0001,0x0000,0x002c,0xbcd4,0x0000,0x008a ; Debug Table 0x5.0x0 = 0xeb,0x1 00ec e7fe | | Load 0x3,-0x2 00ed 016d | m | Execute Variant_Record,Structure_Write 00ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ef 0000 | | .XXX[0x1] 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 0x6 = .DEBUG 0x00f3,0x0276,0x0001,0x0000,0x002c,0xbcd4,0x0000,0x00a5 ; Debug Table 0x6.0x0 = 0xf3,0x1 00f4 e7fe | | Load 0x3,-0x2 00f5 017d | } | Execute Record,Structure_Write 00f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f7 0000 | | .XXX[0x1] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0100 | | .CONST 0x0100 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0003 | | .CONST 0x0003 ; Number of locals 00fb INIT_00f8: 00fb e403 | | Load 0x2,0x3 ; Debug Table 0x7 = .DEBUG 0x00fb,0x027a,0x0002,0x0000,0x002c,0xbcd4,0x0000,0x00b8 ; Debug Table 0x7.0x0 = 0xfb,0xffff 00fc 0322 | " | Declare_Variable Record 00fd 00d8 | | Load_Top At_Offset_0 00fe 1c00 | | Execute_Immediate Run_Utility,0x0 00ff 00e7 | | Load_Encached Duration_Cache ; Debug Table 0x7.0x1 = 0xff,0xfffe 0100 BODY_00f8: 0100 e7fd | | Load 0x3,-0x3 ; Debug Table 0x7.0x2 = 0x100,0x1 0101 6804 |h | Jump_Zero 0x106 0102 00e7 | | Load_Encached Duration_Cache ; Debug Table 0x7.0x3 = 0x102,0x2 0103 0269 | i | Execute Discrete,Last 0104 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0105 7802 |x | Jump 0x108 0106 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x4 = 0x106,0x3 0107 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0108 e002 | | Load 0x0,0x2 ; Debug Table 0x7.0x5 = 0x108,0x4 0109 1b10 | | Execute Package,Field_Read,Field_Number 0x10 010a 00da | | Load_Top At_Offset_2 010b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 010c e7fe | | Load 0x3,-0x2 010d 00db | | Load_Top At_Offset_3 010e e7ff | | Load 0x3,-0x1 010f e001 | | Load 0x0,0x1 0110 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0111 00d1 | | Pop_Control Pop_Count_1 0112 00da | | Load_Top At_Offset_2 0113 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0114 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x6 = 0x114,0x5 0115 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0116 0000 0000 | | .XXX[0x2] 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 0x8 = .DEBUG 0x011b,0x028a,0x0002,0x0000,0x002c,0xbcd4,0x0000,0x00fa ; Debug Table 0x8.0x0 = 0x11b,0x1 011c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 011d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 011e 0000 0000 | | .XXX[0x2] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x0123,0x028e,0x0002,0x0000,0x002c,0xbcd4,0x0000,0x010f ; Debug Table 0x9.0x0 = 0x123,0x1 0124 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0125 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0126 0000 0000 | | .XXX[0x2] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012e | . | .CONST 0x012e ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0002 | | .CONST 0x0002 ; Number of locals 012b INIT_0128: 012b e002 | | Load 0x0,0x2 ; Debug Table 0xa = .DEBUG 0x012b,0x0292,0x0001,0x0000,0x002c,0xbcd4,0x0000,0x0122 ; Debug Table 0xa.0x0 = 0x12b,0xffff 012c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 012d 0007 | | Action Break_Optional ; Debug Table 0xa.0x1 = 0x12d,0xfffe 012e BODY_0128: 012e e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x2 = 0x12e,0x1 012f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0130 e7fe | | Load 0x3,-0x2 0131 e7ff | | Load 0x3,-0x1 0132 4800 |H | Short_Literal 0x0 0133 4800 |H | Short_Literal 0x0 0134 4800 |H | Short_Literal 0x0 0135 e005 | | Load 0x0,0x5 0136 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0137 e001 | | Load 0x0,0x1 0138 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0139 00d1 | | Pop_Control Pop_Count_1 013a 0059 | Y | Store_Top Discrete,At_Offset_1 013b 0092 018b | | Action Push_String_Extended,0x18b ; "Created New User, Instance =" ; Debug Table 0xa.0x3 = 0x13b,0x2 013d e7fe | | Load 0x3,-0x2 013e e005 | | Load 0x0,0x5 013f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0140 00e0 | | Load_Encached Standard_Cache 0141 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0142 01cc | | Execute Vector,Catenate 0143 e004 | | Load 0x0,0x4 0144 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0145 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x4 = 0x145,0x3 0146 0b00 | | Execute_Immediate Case_Compare,0x0 0147 700d |p | Jump_Nonzero 0x155 0148 0092 018c | | Action Push_String_Extended,0x18c ; "Bad Status = " ; Debug Table 0xa.0x5 = 0x148,0x5 014a 00da | | Load_Top At_Offset_2 014b e002 | | Load 0x0,0x2 014c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 014d 0122 | " | Execute Any,Make_Root_Type 014e 025e | ^ | Execute Discrete,Convert 014f 1c01 | | Execute_Immediate Run_Utility,0x1 0150 01cc | | Execute Vector,Catenate 0151 e004 | | Load 0x0,0x4 0152 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0153 602c |`, | Indirect_Literal Discrete,0x180,{0x00000000, 0x2cbcd401} ; Debug Table 0xa.0x6 = 0x153,0x6 0154 0257 | W | Execute Discrete,Raise 0155 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0156 0000 0000 | | .XXX[0x2] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015e | ^ | .CONST 0x015e ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0003 | | .CONST 0x0003 ; Number of locals 015b INIT_0158: 015b e002 | | Load 0x0,0x2 ; Debug Table 0xb = .DEBUG 0x015b,0x02a2,0x0002,0x0000,0x002c,0xbcd4,0x0000,0x0186 ; Debug Table 0xb.0x0 = 0x15b,0xffff 015c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 015d 00e7 | | Load_Encached Duration_Cache ; Debug Table 0xb.0x1 = 0x15d,0xfffe 015e BODY_0158: 015e e7fc | | Load 0x3,-0x4 ; Debug Table 0xb.0x2 = 0x15e,0x1 015f 6804 |h | Jump_Zero 0x164 0160 00e7 | | Load_Encached Duration_Cache ; Debug Table 0xb.0x3 = 0x160,0x2 0161 0269 | i | Execute Discrete,Last 0162 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0163 7802 |x | Jump 0x166 0164 4800 |H | Short_Literal 0x0 ; Debug Table 0xb.0x4 = 0x164,0x3 0165 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0166 e002 | | Load 0x0,0x2 ; Debug Table 0xb.0x5 = 0x166,0x4 0167 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0168 e7fd | | Load 0x3,-0x3 0169 00da | | Load_Top At_Offset_2 016a e7fe | | Load 0x3,-0x2 016b e7ff | | Load 0x3,-0x1 016c e001 | | Load 0x0,0x1 016d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 016e 005a | Z | Store_Top Discrete,At_Offset_2 016f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xb.0x6 = 0x16f,0x5 0170 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0171 0000 0000 | | .BLANK 0000[0x7] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x017b,0x02b2,0x0002,0x0000,0x002c,0xbcd4,0x0000,0x01cf ; Debug Table 0xc.0x0 = 0x17b,0x1 017c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 0000 0000 | | .LITERAL {0x00000000, 0x2cbcd401} 0184 0000 0000 | | .LITERAL {0x00000000, 0x002cbcd4} 0188 ; -------------------------------------------------------------------------------------- 0188 ; STRING TABLE 0188 ; -------------------------------------------------------------------------------------- 0188 000c | | .STRTAB 0x000c->0x018e ; "Comprehensive User Manager Test" 0189 0029 | ) | .STRTAB 0x0029->0x019d ; "Test_User" 018a 0030 | 0 | .STRTAB 0x0030->0x01a2 ; "Unhandled Exception reached Test_User" 018b 0053 | S | .STRTAB 0x0053->0x01b4 ; "Created New User, Instance =" 018c 006d | m | .STRTAB 0x006d->0x01c2 ; "Bad Status = " 018d 0078 | x | .STREND 0x0078->0x01c9 018e 436f 6d70 |Comp| .STRTAB_STRINGS 01c9 0000 0000 | | .BLANK 0000[0x7] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; Debug Table 01d0 ; -------------------------------------------------------------------------------------- 01d0 0003 000d | | .CONST 0x0003,0x000d 01d2 000b 023a | :| .DEBUG 0x000b,0x023a,0x8000,0x0000,0x002c,0xbcd4,0x0000,0x000f 01da 001b 023c | <| .DEBUG 0x001b,0x023c,0x8001,0x0000,0x002c,0xbcd4,0x0000,0x000f 01e2 00ab 0262 | b| .DEBUG 0x00ab,0x0262,0x0005,0x0000,0x002c,0xbcd4,0x0000,0x0018 01ea 00c3 0264 | d| .DEBUG 0x00c3,0x0264,0x0001,0x0000,0x002c,0xbcd4,0x0000,0x002c 01f2 00db 026c | l| .DEBUG 0x00db,0x026c,0x0002,0x0000,0x002c,0xbcd4,0x0000,0x0062 01fa 00eb 0272 | r| .DEBUG 0x00eb,0x0272,0x0001,0x0000,0x002c,0xbcd4,0x0000,0x008a 0202 00f3 0276 | v| .DEBUG 0x00f3,0x0276,0x0001,0x0000,0x002c,0xbcd4,0x0000,0x00a5 020a 00fb 027a | z| .DEBUG 0x00fb,0x027a,0x0002,0x0000,0x002c,0xbcd4,0x0000,0x00b8 0212 011b 028a | | .DEBUG 0x011b,0x028a,0x0002,0x0000,0x002c,0xbcd4,0x0000,0x00fa 021a 0123 028e | # | .DEBUG 0x0123,0x028e,0x0002,0x0000,0x002c,0xbcd4,0x0000,0x010f 0222 012b 0292 | + | .DEBUG 0x012b,0x0292,0x0001,0x0000,0x002c,0xbcd4,0x0000,0x0122 022a 015b 02a2 | [ | .DEBUG 0x015b,0x02a2,0x0002,0x0000,0x002c,0xbcd4,0x0000,0x0186 0232 017b 02b2 | { | .DEBUG 0x017b,0x02b2,0x0002,0x0000,0x002c,0xbcd4,0x0000,0x01cf 023a ; -------------------------------------------------------------------------------------- 023a ; Debug3 Subtable 0x0 023a ; -------------------------------------------------------------------------------------- 023a 0000 0000 | | .DBG3TAB 0x0000,0x0000 023c ; -------------------------------------------------------------------------------------- 023c ; Debug3 Subtable 0x1 023c ; -------------------------------------------------------------------------------------- 023c 000d 0005 | | .DBG3TAB 0x000d,0x0005 023e 001b ffff | | .CONST 0x001b,0xffff 0240 001f fffe | | .CONST 0x001f,0xfffe 0242 0028 fffd | ( | .CONST 0x0028,0xfffd 0244 002a fffc | * | .CONST 0x002a,0xfffc 0246 002c fffb | , | .CONST 0x002c,0xfffb 0248 002e fffa | . | .CONST 0x002e,0xfffa 024a 0030 fff9 | 0 | .CONST 0x0030,0xfff9 024c 0032 fff8 | 2 | .CONST 0x0032,0xfff8 024e 0034 fff7 | 4 | .CONST 0x0034,0xfff7 0250 0036 fff6 | 6 | .CONST 0x0036,0xfff6 0252 0038 fff5 | 8 | .CONST 0x0038,0xfff5 0254 003a fff4 | : | .CONST 0x003a,0xfff4 0256 003c fff3 | < | .CONST 0x003c,0xfff3 0258 0068 0001 | h | .CONST 0x0068,0x0001 025a 006e 0002 | n | .CONST 0x006e,0x0002 025c 0096 0003 | | .CONST 0x0096,0x0003 025e 009a 0004 | | .CONST 0x009a,0x0004 0260 009e 0005 | | .CONST 0x009e,0x0005 0262 ; -------------------------------------------------------------------------------------- 0262 ; Debug3 Subtable 0x2 0262 ; -------------------------------------------------------------------------------------- 0262 0000 0000 | | .DBG3TAB 0x0000,0x0000 0264 ; -------------------------------------------------------------------------------------- 0264 ; Debug3 Subtable 0x3 0264 ; -------------------------------------------------------------------------------------- 0264 0002 0001 | | .DBG3TAB 0x0002,0x0001 0266 00c3 ffff | | .CONST 0x00c3,0xffff 0268 00c9 fffe | | .CONST 0x00c9,0xfffe 026a 00d0 0001 | | .CONST 0x00d0,0x0001 026c ; -------------------------------------------------------------------------------------- 026c ; Debug3 Subtable 0x4 026c ; -------------------------------------------------------------------------------------- 026c 0001 0001 | | .DBG3TAB 0x0001,0x0001 026e 00db ffff | | .CONST 0x00db,0xffff 0270 00e1 0001 | | .CONST 0x00e1,0x0001 0272 ; -------------------------------------------------------------------------------------- 0272 ; Debug3 Subtable 0x5 0272 ; -------------------------------------------------------------------------------------- 0272 0000 0001 | | .DBG3TAB 0x0000,0x0001 0274 00eb 0001 | | .CONST 0x00eb,0x0001 0276 ; -------------------------------------------------------------------------------------- 0276 ; Debug3 Subtable 0x6 0276 ; -------------------------------------------------------------------------------------- 0276 0000 0001 | | .DBG3TAB 0x0000,0x0001 0278 00f3 0001 | | .CONST 0x00f3,0x0001 027a ; -------------------------------------------------------------------------------------- 027a ; Debug3 Subtable 0x7 027a ; -------------------------------------------------------------------------------------- 027a 0002 0005 | | .DBG3TAB 0x0002,0x0005 027c 00fb ffff | | .CONST 0x00fb,0xffff 027e 00ff fffe | | .CONST 0x00ff,0xfffe 0280 0100 0001 | | .CONST 0x0100,0x0001 0282 0102 0002 | | .CONST 0x0102,0x0002 0284 0106 0003 | | .CONST 0x0106,0x0003 0286 0108 0004 | | .CONST 0x0108,0x0004 0288 0114 0005 | | .CONST 0x0114,0x0005 028a ; -------------------------------------------------------------------------------------- 028a ; Debug3 Subtable 0x8 028a ; -------------------------------------------------------------------------------------- 028a 0000 0001 | | .DBG3TAB 0x0000,0x0001 028c 011b 0001 | | .CONST 0x011b,0x0001 028e ; -------------------------------------------------------------------------------------- 028e ; Debug3 Subtable 0x9 028e ; -------------------------------------------------------------------------------------- 028e 0000 0001 | | .DBG3TAB 0x0000,0x0001 0290 0123 0001 | # | .CONST 0x0123,0x0001 0292 ; -------------------------------------------------------------------------------------- 0292 ; Debug3 Subtable 0xa 0292 ; -------------------------------------------------------------------------------------- 0292 0002 0005 | | .DBG3TAB 0x0002,0x0005 0294 012b ffff | + | .CONST 0x012b,0xffff 0296 012d fffe | - | .CONST 0x012d,0xfffe 0298 012e 0001 | . | .CONST 0x012e,0x0001 029a 013b 0002 | ; | .CONST 0x013b,0x0002 029c 0145 0003 | E | .CONST 0x0145,0x0003 029e 0148 0005 | H | .CONST 0x0148,0x0005 02a0 0153 0006 | S | .CONST 0x0153,0x0006 02a2 ; -------------------------------------------------------------------------------------- 02a2 ; Debug3 Subtable 0xb 02a2 ; -------------------------------------------------------------------------------------- 02a2 0002 0005 | | .DBG3TAB 0x0002,0x0005 02a4 015b ffff | [ | .CONST 0x015b,0xffff 02a6 015d fffe | ] | .CONST 0x015d,0xfffe 02a8 015e 0001 | ^ | .CONST 0x015e,0x0001 02aa 0160 0002 | ` | .CONST 0x0160,0x0002 02ac 0164 0003 | d | .CONST 0x0164,0x0003 02ae 0166 0004 | f | .CONST 0x0166,0x0004 02b0 016f 0005 | o | .CONST 0x016f,0x0005 02b2 ; -------------------------------------------------------------------------------------- 02b2 ; Debug3 Subtable 0xc 02b2 ; -------------------------------------------------------------------------------------- 02b2 0000 0001 | | .DBG3TAB 0x0000,0x0001 02b4 017b 0001 | { | .CONST 0x017b,0x0001 02b6 0000 0000 | | .BLANK 0000[0x14a]