|
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]