|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0334fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0208 | | .CONST 0x0208 ; 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 004d | M | .CONST 0x004d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001b | | .CONST 0x001b ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4809 |H | Short_Literal 0x9
000d 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0012 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0014 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0016 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0018 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
001a 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
001c 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
001e 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0020 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0022 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0024 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0026 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0028 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
002a e20d | | Load 0x1,0xd
002b 00e3 | | Load_Encached Natural_Cache
002c 00e3 | | Load_Encached Natural_Cache
002d e002 | | Load 0x0,0x2
002e 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call
0030 4804 |H | Short_Literal 0x4
0031 032e | . | Declare_Type Record,Defined,Visible
0032 00bf | | Action Accept_Activation
0033 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0034 00c7 | | Action Elaborate_Subprogram
0035 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0036 00c7 | | Action Elaborate_Subprogram
0037 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0038 00c7 | | Action Elaborate_Subprogram
0039 1d17 | | Execute_Immediate Reference_Lex_1,0x17
003a 00c7 | | Action Elaborate_Subprogram
003b 1d18 | | Execute_Immediate Reference_Lex_1,0x18
003c 00c7 | | Action Elaborate_Subprogram
003d 1d19 | | Execute_Immediate Reference_Lex_1,0x19
003e 00c7 | | Action Elaborate_Subprogram
003f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0040 00c7 | | Action Elaborate_Subprogram
0041 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0042 00c7 | | Action Elaborate_Subprogram
0043 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0044 00c7 | | Action Elaborate_Subprogram
0045 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0046 00c7 | | Action Elaborate_Subprogram
0047 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0048 00c7 | | Action Elaborate_Subprogram
0049 1d13 | | Execute_Immediate Reference_Lex_1,0x13
004a 00c7 | | Action Elaborate_Subprogram
004b 1d14 | | Execute_Immediate Reference_Lex_1,0x14
004c 00c7 | | Action Elaborate_Subprogram
004d BODY_0008:
004d 00bc | | Action Signal_Activated
004e 00bb | | Action Signal_Completion
004f 0000 | | .XXX[0x1]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 4607 |F | Jump_Case 0x8
0054 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0055 7807 |x | Jump 0x5d ; case 0x1
0056 780a |x | Jump 0x61 ; case 0x2
0057 780e |x | Jump 0x66 ; case 0x3
0058 7811 |x | Jump 0x6a ; case 0x4
0059 7812 |x | Jump 0x6c ; case 0x5
005a 7813 |x | Jump 0x6e ; case 0x6
005b 7816 |x | Jump 0x72 ; case 0x7
005c 4302 |C | .XXX[0x1]
005d 00da | | Load_Top At_Offset_2
005e 0091 01c2 | | Action Push_String_Extended_Indexed,0x1c2 ; "REGISTRATION"
0060 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0061 00db | | Load_Top At_Offset_3
0062 00db | | Load_Top At_Offset_3
0063 00e0 | | Load_Encached Standard_Cache
0064 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0065 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0066 00da | | Load_Top At_Offset_2
0067 00e0 | | Load_Encached Standard_Cache
0068 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0069 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
006a 00db | | Load_Top At_Offset_3
006b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
006c 00db | | Load_Top At_Offset_3
006d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
006e e20d | | Load 0x1,0xd
006f 00dc | | Load_Top At_Offset_4
0070 0267 | g | Execute Discrete,Predecessor
0071 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0072 e20d | | Load 0x1,0xd
0073 00dc | | Load_Top At_Offset_4
0074 0268 | h | Execute Discrete,Successor
0075 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0076 0000 0000 | | .XXX[0x2]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b e21b | | Load 0x1,0x1b
007c 0322 | " | Declare_Variable Record
007d 00db | | Load_Top At_Offset_3
007e 00d9 | | Load_Top At_Offset_1
007f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0080 e5fe | | Load 0x2,-0x2
0081 00d9 | | Load_Top At_Offset_1
0082 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0083 e5fd | | Load 0x2,-0x3
0084 00d9 | | Load_Top At_Offset_1
0085 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0086 e5fc | | Load 0x2,-0x4
0087 00d9 | | Load_Top At_Offset_1
0088 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0089 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
008a 0000 0000 | | .BLANK 0000[0x6]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0098 | | .CONST 0x0098 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0002 | | .CONST 0x0002 ; Number of locals
0093 INIT_0090:
0093 e003 | | Load 0x0,0x3
0094 0337 | 7 | Declare_Variable Array
0095 8004 | | Call 0x0,0x4
0096 00d9 | | Load_Top At_Offset_1
0097 01d4 | | Execute Vector,Structure_Write
0098 BODY_0090:
0098 00d8 | | Load_Top At_Offset_0
0099 4801 |H | Short_Literal 0x1
009a e5f9 | | Load 0x2,-0x7
009b e5fa | | Load 0x2,-0x6
009c e5fb | | Load 0x2,-0x5
009d 8005 | | Call 0x0,0x5
009e 8006 | | Call 0x0,0x6
009f 00d1 | | Pop_Control Pop_Count_1
00a0 00d8 | | Load_Top At_Offset_0
00a1 e5fc | | Load 0x2,-0x4
00a2 8007 | | Call 0x0,0x7
00a3 e5fd | | Load 0x2,-0x3
00a4 e5fe | | Load 0x2,-0x2
00a5 e5ff | | Load 0x2,-0x1
00a6 820e | | Call 0x1,0xe
00a7 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
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 e003 | | Load 0x0,0x3
00ac 0337 | 7 | Declare_Variable Array
00ad 8004 | | Call 0x0,0x4
00ae 00d9 | | Load_Top At_Offset_1
00af 01d4 | | Execute Vector,Structure_Write
00b0 BODY_00a8:
00b0 00d8 | | Load_Top At_Offset_0
00b1 4801 |H | Short_Literal 0x1
00b2 e5f9 | | Load 0x2,-0x7
00b3 e5fa | | Load 0x2,-0x6
00b4 e5fb | | Load 0x2,-0x5
00b5 8005 | | Call 0x0,0x5
00b6 8006 | | Call 0x0,0x6
00b7 00d1 | | Pop_Control Pop_Count_1
00b8 00d8 | | Load_Top At_Offset_0
00b9 4802 |H | Short_Literal 0x2
00ba e5f6 | | Load 0x2,-0xa
00bb e5f7 | | Load 0x2,-0x9
00bc e5f8 | | Load 0x2,-0x8
00bd 8005 | | Call 0x0,0x5
00be 8006 | | Call 0x0,0x6
00bf 00d1 | | Pop_Control Pop_Count_1
00c0 00d8 | | Load_Top At_Offset_0
00c1 e5fc | | Load 0x2,-0x4
00c2 8007 | | Call 0x0,0x7
00c3 e5fd | | Load 0x2,-0x3
00c4 e5fe | | Load 0x2,-0x2
00c5 e5ff | | Load 0x2,-0x1
00c6 820e | | Call 0x1,0xe
00c7 440a |D | Exit_Subprogram With_Value,New_Top_Offset 0xa
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d0 | | .CONST 0x00d0 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0002 | | .CONST 0x0002 ; Number of locals
00cb INIT_00c8:
00cb e003 | | Load 0x0,0x3
00cc 0337 | 7 | Declare_Variable Array
00cd 8004 | | Call 0x0,0x4
00ce 00d9 | | Load_Top At_Offset_1
00cf 01d4 | | Execute Vector,Structure_Write
00d0 BODY_00c8:
00d0 00d8 | | Load_Top At_Offset_0
00d1 4801 |H | Short_Literal 0x1
00d2 e5f9 | | Load 0x2,-0x7
00d3 e5fa | | Load 0x2,-0x6
00d4 e5fb | | Load 0x2,-0x5
00d5 8005 | | Call 0x0,0x5
00d6 8006 | | Call 0x0,0x6
00d7 00d1 | | Pop_Control Pop_Count_1
00d8 00d8 | | Load_Top At_Offset_0
00d9 4802 |H | Short_Literal 0x2
00da e5f6 | | Load 0x2,-0xa
00db e5f7 | | Load 0x2,-0x9
00dc e5f8 | | Load 0x2,-0x8
00dd 8005 | | Call 0x0,0x5
00de 8006 | | Call 0x0,0x6
00df 00d1 | | Pop_Control Pop_Count_1
00e0 00d8 | | Load_Top At_Offset_0
00e1 4803 |H | Short_Literal 0x3
00e2 e5f3 | | Load 0x2,-0xd
00e3 e5f4 | | Load 0x2,-0xc
00e4 e5f5 | | Load 0x2,-0xb
00e5 8005 | | Call 0x0,0x5
00e6 8006 | | Call 0x0,0x6
00e7 00d1 | | Pop_Control Pop_Count_1
00e8 00d8 | | Load_Top At_Offset_0
00e9 e5fc | | Load 0x2,-0x4
00ea 8007 | | Call 0x0,0x7
00eb e5fd | | Load 0x2,-0x3
00ec e5fe | | Load 0x2,-0x2
00ed e5ff | | Load 0x2,-0x1
00ee 820e | | Call 0x1,0xe
00ef 440d |D | Exit_Subprogram With_Value,New_Top_Offset 0xd
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
00f4 e5fe | | Load 0x2,-0x2
00f5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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
00fc e5fe | | Load 0x2,-0x2
00fd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ff 0000 | | .XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2
0104 e5fe | | Load 0x2,-0x2
0105 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0106 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0107 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
010c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010e 0000 0000 | | .XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2
0114 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0115 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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
011c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
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
0124 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0125 0320 | | Declare_Variable Record,Duplicate
0126 00cd | | Action Spare6_Action
0127 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 4823 |H# | Short_Literal 0x23
012c 4823 |H# | Short_Literal 0x23
012d 4823 |H# | Short_Literal 0x23
012e e5ff | | Load 0x2,-0x1
012f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0130 e20d | | Load 0x1,0xd
0131 011c | | Execute Any,Convert_Unchecked
0132 1c01 | | Execute_Immediate Run_Utility,0x1
0133 01cb | | Execute Vector,Append
0134 e5ff | | Load 0x2,-0x1
0135 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0136 00e0 | | Load_Encached Standard_Cache
0137 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0138 01cc | | Execute Vector,Catenate
0139 01cb | | Execute Vector,Append
013a e5ff | | Load 0x2,-0x1
013b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
013c 00e0 | | Load_Encached Standard_Cache
013d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
013e 01cc | | Execute Vector,Catenate
013f 01cb | | Execute Vector,Append
0140 00db | | Load_Top At_Offset_3
0141 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0142 8008 | | Call 0x0,0x8
0143 01cc | | Execute Vector,Catenate
0144 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0145 0000 0000 | | .XXX[0x3]
0147 0000 | |
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0151 | Q | .CONST 0x0151 ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0004 | | .CONST 0x0004 ; Number of locals
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2
014c 01dd | | Execute Vector,First
014d 00e4 | | Load_Encached Positive_Cache
014e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
014f 00e4 | | Load_Encached Positive_Cache
0150 00e4 | | Load_Encached Positive_Cache
0151 BODY_0148:
0151 00cf | | Action Mark_Auxiliary
0152 00db | | Load_Top At_Offset_3
0153 e5ff | | Load 0x2,-0x1
0154 01d7 | | Execute Vector,Field_Read
0155 0f23 | # | Execute_Immediate Equal,0x23
0156 7005 |p | Jump_Nonzero 0x15c
0157 00db | | Load_Top At_Offset_3
0158 0a01 | | Execute_Immediate Plus,0x1
0159 c402 | | Store 0x2,0x2
015a 00c9 | | Action Pop_Auxiliary_Loop
015b 7ff6 | | Jump 0x152
015c 00ce | | Action Pop_Auxiliary
015d 00da | | Load_Top At_Offset_2
015e 0a01 | | Execute_Immediate Plus,0x1
015f 005a | Z | Store_Top Discrete,At_Offset_2
0160 00cf | | Action Mark_Auxiliary
0161 00da | | Load_Top At_Offset_2
0162 e5ff | | Load 0x2,-0x1
0163 01d7 | | Execute Vector,Field_Read
0164 0f23 | # | Execute_Immediate Equal,0x23
0165 7005 |p | Jump_Nonzero 0x16b
0166 00da | | Load_Top At_Offset_2
0167 0a01 | | Execute_Immediate Plus,0x1
0168 005b | [ | Store_Top Discrete,At_Offset_3
0169 00c9 | | Action Pop_Auxiliary_Loop
016a 7ff6 | | Jump 0x161
016b 00ce | | Action Pop_Auxiliary
016c 00d9 | | Load_Top At_Offset_1
016d 0a01 | | Execute_Immediate Plus,0x1
016e 0059 | Y | Store_Top Discrete,At_Offset_1
016f 00cf | | Action Mark_Auxiliary
0170 00d9 | | Load_Top At_Offset_1
0171 e5ff | | Load 0x2,-0x1
0172 01d7 | | Execute Vector,Field_Read
0173 0f23 | # | Execute_Immediate Equal,0x23
0174 7005 |p | Jump_Nonzero 0x17a
0175 00d9 | | Load_Top At_Offset_1
0176 0a01 | | Execute_Immediate Plus,0x1
0177 005a | Z | Store_Top Discrete,At_Offset_2
0178 00c9 | | Action Pop_Auxiliary_Loop
0179 7ff6 | | Jump 0x170
017a 00ce | | Action Pop_Auxiliary
017b e21b | | Load 0x1,0x1b
017c 0322 | " | Declare_Variable Record
017d e5ff | | Load 0x2,-0x1
017e 01dd | | Execute Vector,First
017f e402 | | Load 0x2,0x2
0180 0aff | | Execute_Immediate Plus,-0x1
0181 e5ff | | Load 0x2,-0x1
0182 01cf | | Execute Vector,Slice_Read
0183 e20d | | Load 0x1,0xd
0184 1c02 | | Execute_Immediate Run_Utility,0x2
0185 00d9 | | Load_Top At_Offset_1
0186 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0187 00db | | Load_Top At_Offset_3
0188 0a01 | | Execute_Immediate Plus,0x1
0189 00d8 | | Load_Top At_Offset_0
018a 00e2 | | Load_Encached Integer_Cache
018b 0260 | ` | Execute Discrete,In_Type
018c 7001 |p | Jump_Nonzero 0x18e
018d 0801 | | Execute_Immediate Raise,0x1
018e 00db | | Load_Top At_Offset_3
018f 0aff | | Execute_Immediate Plus,-0x1
0190 e5ff | | Load 0x2,-0x1
0191 01cf | | Execute Vector,Slice_Read
0192 00e2 | | Load_Encached Integer_Cache
0193 00e0 | | Load_Encached Standard_Cache
0194 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0195 00d9 | | Load_Top At_Offset_1
0196 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0197 00da | | Load_Top At_Offset_2
0198 0a01 | | Execute_Immediate Plus,0x1
0199 00d8 | | Load_Top At_Offset_0
019a 00e2 | | Load_Encached Integer_Cache
019b 0260 | ` | Execute Discrete,In_Type
019c 7001 |p | Jump_Nonzero 0x19e
019d 0801 | | Execute_Immediate Raise,0x1
019e 00da | | Load_Top At_Offset_2
019f 0aff | | Execute_Immediate Plus,-0x1
01a0 e5ff | | Load 0x2,-0x1
01a1 01cf | | Execute Vector,Slice_Read
01a2 00e2 | | Load_Encached Integer_Cache
01a3 00e0 | | Load_Encached Standard_Cache
01a4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01a5 00d9 | | Load_Top At_Offset_1
01a6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01a7 00d9 | | Load_Top At_Offset_1
01a8 0a01 | | Execute_Immediate Plus,0x1
01a9 00d8 | | Load_Top At_Offset_0
01aa 00e2 | | Load_Encached Integer_Cache
01ab 0260 | ` | Execute Discrete,In_Type
01ac 7001 |p | Jump_Nonzero 0x1ae
01ad 0801 | | Execute_Immediate Raise,0x1
01ae e5ff | | Load 0x2,-0x1
01af 01dc | | Execute Vector,Last
01b0 e5ff | | Load 0x2,-0x1
01b1 01cf | | Execute Vector,Slice_Read
01b2 8009 | | Call 0x0,0x9
01b3 00d9 | | Load_Top At_Offset_1
01b4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b6 0000 0000 | | .XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 4601 |F | Jump_Case 0x2
01bc 7801 |x | Jump 0x1be ; case 0x0
01bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01be 00da | | Load_Top At_Offset_2
01bf 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
01c0 1c00 | | Execute_Immediate Run_Utility,0x0
01c1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01c2 ; --------------------------------------------------------------------------------------
01c2 ; STRING TABLE
01c2 ; --------------------------------------------------------------------------------------
01c2 0016 | | .STRTAB 0x0016->0x01cd ; "REGISTRATION"
01c3 0020 | | .STRTAB 0x0020->0x01d3 ; "UNREGISTRATION"
01c4 002c | , | .STRTAB 0x002c->0x01da ; "QUERY"
01c5 002f | / | .STRTAB 0x002f->0x01dc ; "REQUEST"
01c6 0034 | 4 | .STRTAB 0x0034->0x01e0 ; "NOTIFICATION"
01c7 003e | > | .STRTAB 0x003e->0x01e6 ; "FORWARD"
01c8 0043 | C | .STRTAB 0x0043->0x01e9 ; "PUBLICATION"
01c9 004c | L | .STRTAB 0x004c->0x01ef ; "UNPUBLICATION"
01ca 0057 | W | .STRTAB 0x0057->0x01f5 ; "SUBSCRIPTION"
01cb 0061 | a | .STRTAB 0x0061->0x01fb ; "UNSUBSCRIPTION"
01cc 006d | m | .STREND 0x006d->0x0202
01cd 5245 4749 |REGI| .STRTAB_STRINGS
0203 0000 0000 | | .BLANK 0000[0x5]
0208 ; --------------------------------------------------------------------------------------
0208 ; Debug Table
0208 ; --------------------------------------------------------------------------------------
0208 0004 0009 | | .DEBUG4 0x0004,0x0009,0x912e,0x0000,0x0001,0x0011
020e 000b 0252 | R| .DBG4T 0x000b,0x0252,0x8000,0x8000
0212 0033 0272 | 3 r| .DBG4T 0x0033,0x0272,0x8000,0x8000
0216 0053 0000 | S | .DBG4T 0x0053,0x0000,0x0005,0x0000
021a 007b 028e | { | .DBG4T 0x007b,0x028e,0x0002,0x0000
021e 0093 0291 | | .DBG4T 0x0093,0x0291,0x0002,0x0000
0222 00ab 0296 | | .DBG4T 0x00ab,0x0296,0x0002,0x0000
0226 00cb 029c | | .DBG4T 0x00cb,0x029c,0x0002,0x0000
022a 00f3 02a3 | | .DBG4T 0x00f3,0x02a3,0x0001,0x0000
022e 00fb 02a6 | | .DBG4T 0x00fb,0x02a6,0x0001,0x0000
0232 0103 02a9 | | .DBG4T 0x0103,0x02a9,0x0001,0x0000
0236 010b 02ac | | .DBG4T 0x010b,0x02ac,0x0002,0x0000
023a 0113 02af | | .DBG4T 0x0113,0x02af,0x0002,0x0000
023e 011b 02b2 | | .DBG4T 0x011b,0x02b2,0x0002,0x0000
0242 0123 02b5 | # | .DBG4T 0x0123,0x02b5,0x0002,0x0000
0246 012b 02b8 | + | .DBG4T 0x012b,0x02b8,0x0002,0x0000
024a 014b 02bb | K | .DBG4T 0x014b,0x02bb,0x0002,0xc000
024e 01bb 0000 | | .DBG4T 0x01bb,0x0000,0x0005,0x0000
0252 ; --------------------------------------------------------------------------------------
0252 ; Debug chain
0252 ; --------------------------------------------------------------------------------------
0252 000f 0000 | | .DBGLEN 0x000f,0x0000
0254 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a
0263 0002 0003 | | .XXX[0xf]
0265 0004 0005 | |
0267 0006 0007 | |
0269 0008 0009 | |
026b 000a 000b | |
026d 000c 000d | |
026f 000e 000f | |
0271 0010 | |
0272 ; --------------------------------------------------------------------------------------
0272 ; Debug chain
0272 ; --------------------------------------------------------------------------------------
0272 000d 0000 | | .DBGLEN 0x000d,0x0000
0274 0033 0035 | 3 5| .DBGLNO 0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b
0281 0003 0004 | | .XXX[0xd]
0283 0005 0006 | |
0285 0007 0008 | |
0287 0009 000a | |
0289 000b 000c | |
028b 000d 000e | |
028d 000f | |
028e ; --------------------------------------------------------------------------------------
028e ; Debug chain
028e ; --------------------------------------------------------------------------------------
028e 0000 0001 | | .DBGLEN 0x0000,0x0001
0290 007b | { | .DBGLNO 0x007b
0291 ; --------------------------------------------------------------------------------------
0291 ; Debug chain
0291 ; --------------------------------------------------------------------------------------
0291 0001 0002 | | .DBGLEN 0x0001,0x0002
0293 0093 0098 | | .DBGLNO 0x0093,0x0098,0x00a0
0296 ; --------------------------------------------------------------------------------------
0296 ; Debug chain
0296 ; --------------------------------------------------------------------------------------
0296 0001 0003 | | .DBGLEN 0x0001,0x0003
0298 00ab 00b0 | | .DBGLNO 0x00ab,0x00b0,0x00b8,0x00c0
029c ; --------------------------------------------------------------------------------------
029c ; Debug chain
029c ; --------------------------------------------------------------------------------------
029c 0001 0004 | | .DBGLEN 0x0001,0x0004
029e 00cb 00d0 | | .DBGLNO 0x00cb,0x00d0,0x00d8,0x00e0,0x00e8
02a3 ; --------------------------------------------------------------------------------------
02a3 ; Debug chain
02a3 ; --------------------------------------------------------------------------------------
02a3 0000 0001 | | .DBGLEN 0x0000,0x0001
02a5 00f3 | | .DBGLNO 0x00f3
02a6 ; --------------------------------------------------------------------------------------
02a6 ; Debug chain
02a6 ; --------------------------------------------------------------------------------------
02a6 0000 0001 | | .DBGLEN 0x0000,0x0001
02a8 00fb | | .DBGLNO 0x00fb
02a9 ; --------------------------------------------------------------------------------------
02a9 ; Debug chain
02a9 ; --------------------------------------------------------------------------------------
02a9 0000 0001 | | .DBGLEN 0x0000,0x0001
02ab 0103 | | .DBGLNO 0x0103
02ac ; --------------------------------------------------------------------------------------
02ac ; Debug chain
02ac ; --------------------------------------------------------------------------------------
02ac 0000 0001 | | .DBGLEN 0x0000,0x0001
02ae 010b | | .DBGLNO 0x010b
02af ; --------------------------------------------------------------------------------------
02af ; Debug chain
02af ; --------------------------------------------------------------------------------------
02af 0000 0001 | | .DBGLEN 0x0000,0x0001
02b1 0113 | | .DBGLNO 0x0113
02b2 ; --------------------------------------------------------------------------------------
02b2 ; Debug chain
02b2 ; --------------------------------------------------------------------------------------
02b2 0000 0001 | | .DBGLEN 0x0000,0x0001
02b4 011b | | .DBGLNO 0x011b
02b5 ; --------------------------------------------------------------------------------------
02b5 ; Debug chain
02b5 ; --------------------------------------------------------------------------------------
02b5 0000 0001 | | .DBGLEN 0x0000,0x0001
02b7 0123 | # | .DBGLNO 0x0123
02b8 ; --------------------------------------------------------------------------------------
02b8 ; Debug chain
02b8 ; --------------------------------------------------------------------------------------
02b8 0000 0001 | | .DBGLEN 0x0000,0x0001
02ba 012b | + | .DBGLNO 0x012b
02bb ; --------------------------------------------------------------------------------------
02bb ; Debug chain
02bb ; --------------------------------------------------------------------------------------
02bb 0003 0009 | | .DBGLEN 0x0003,0x0009
02bd 014b 014f | K O| .DBGLNO 0x014b,0x014f,0x0150,0x0152,0x0157,0x015d,0x0161,0x0166,0x016c,0x0170,0x0175,0x017b
02c9 0002 0003 | | .XXX[0xc]
02cb 0004 0002 | |
02cd 0003 0004 | |
02cf 0006 0007 | |
02d1 0008 000a | |
02d3 000b 000c | |
02d5 0000 0000 | | .BLANK 0000[0x12b]