|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5e40f2
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0280 | | .CONST 0x0280 ; 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 8001 | | .CONST 0x8001 ; 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 For_Outer_Call,Visible,Unelaborated,INIT_0018
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 004b | K | .CONST 0x004b ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000c | | .CONST 0x000c ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1
001c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
001d e5fd | | Load 0x2,-0x3
001e 8002 | | Call 0x0,0x2
001f 485f |H_ | Short_Literal 0x5f
0020 4800 |H | Short_Literal 0x0
0021 4803 |H | Short_Literal 0x3
0022 4804 |H | Short_Literal 0x4
0023 e003 | | Load 0x0,0x3
0024 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0025 e003 | | Load 0x0,0x3
0026 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0027 01ca | | Execute Vector,Prepend
0028 0007 | | Action Break_Optional
0029 0092 016e | n| Action Push_String_Extended,0x16e ; "$$.Lists.Demote_Specs"
002b 00d9 | | Load_Top At_Offset_1
002c 01cc | | Execute Vector,Catenate
002d 0007 | | Action Break_Optional
002e 0092 016f | o| Action Push_String_Extended,0x16f ; "$$.Lists.Install_Specs"
0030 00da | | Load_Top At_Offset_2
0031 01cc | | Execute Vector,Catenate
0032 0007 | | Action Break_Optional
0033 0092 0170 | p| Action Push_String_Extended,0x170 ; "$$.Lists.Code_Specs"
0035 00db | | Load_Top At_Offset_3
0036 01cc | | Execute Vector,Catenate
0037 0007 | | Action Break_Optional
0038 0092 0171 | q| Action Push_String_Extended,0x171 ; "$$.Lists.Freeze_Specs"
003a e404 | | Load 0x2,0x4
003b 01cc | | Execute Vector,Catenate
003c 0007 | | Action Break_Optional
003d 0092 0172 | r| Action Push_String_Extended,0x172 ; "$$.Lists.Acls_list"
003f e404 | | Load 0x2,0x4
0040 01cc | | Execute Vector,Catenate
0041 0007 | | Action Break_Optional
0042 e5ff | | Load 0x2,-0x1
0043 e004 | | Load 0x0,0x4
0044 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0045 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0046 4801 |H | Short_Literal 0x1
0047 e5ff | | Load 0x2,-0x1
0048 8005 | | Call 0x0,0x5
0049 029f 0133 | 3| Declare_Subprogram For_Call,INIT_0130
004b BODY_0018:
004b 0092 0173 | s| Action Push_String_Extended,0x173 ; "$$[D_@].Logs.Install_Universe"
004d e404 | | Load 0x2,0x4
004e 01cc | | Execute Vector,Catenate
004f e006 | | Load 0x0,0x6
0050 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0051 e007 | | Load 0x0,0x7
0052 180e | | Execute Package,Field_Execute,Field_Number 0xe
0053 4803 |H | Short_Literal 0x3
0054 0092 0174 | t| Action Push_String_Extended,0x174 ; "Installing the units listed in "
0056 e40a | | Load 0x2,0xa
0057 01cc | | Execute Vector,Catenate
0058 e006 | | Load 0x0,0x6
0059 1813 | | Execute Package,Field_Execute,Field_Number 0x13
005a 00d9 | | Load_Top At_Offset_1
005b 0092 0175 | u| Action Push_String_Extended,0x175 ; "[]"
005d 01df | | Execute Vector,Equal
005e 680b |h | Jump_Zero 0x6a
005f 4801 |H | Short_Literal 0x1
0060 0092 0176 | v| Action Push_String_Extended,0x176 ; "No units to be Restored"
0062 8008 | | Call 0x0,0x8
0063 e007 | | Load 0x0,0x7
0064 180e | | Execute Package,Field_Execute,Field_Number 0xe
0065 e007 | | Load 0x0,0x7
0066 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0067 e006 | | Load 0x0,0x6
0068 180f | | Execute Package,Field_Execute,Field_Number 0xf
0069 4504 |E | Exit_Subprogram 0x4
006a 0092 0177 | w| Action Push_String_Extended,0x177 ; "Install_Universe"
006c 8009 | | Call 0x0,0x9
006d 68b3 |h | Jump_Zero 0x121
006e 4800 |H | Short_Literal 0x0
006f 0092 0178 | x| Action Push_String_Extended,0x178 ; "Computing demotions for updating "
0071 e40a | | Load 0x2,0xa
0072 01cc | | Execute Vector,Catenate
0073 8008 | | Call 0x0,0x8
0074 0092 0179 | y| Action Push_String_Extended,0x179 ; "<PROFILE>"
0076 e408 | | Load 0x2,0x8
0077 e407 | | Load 0x2,0x7
0078 e406 | | Load 0x2,0x6
0079 e405 | | Load 0x2,0x5
007a 0092 017a | z| Action Push_String_Extended,0x17a ; "!"
007c e40b | | Load 0x2,0xb
007d 01cc | | Execute Vector,Catenate
007e 800a | | Call 0x0,0xa
007f 4800 |H | Short_Literal 0x0
0080 0092 017b | {| Action Push_String_Extended,0x17b ; "Saving ACLs on "
0082 e40a | | Load 0x2,0xa
0083 01cc | | Execute Vector,Catenate
0084 8008 | | Call 0x0,0x8
0085 0092 0179 | y| Action Push_String_Extended,0x179 ; "<PROFILE>"
0087 e409 | | Load 0x2,0x9
0088 0092 017a | z| Action Push_String_Extended,0x17a ; "!"
008a e40b | | Load 0x2,0xb
008b 01cc | | Execute Vector,Catenate
008c 800b | | Call 0x0,0xb
008d e408 | | Load 0x2,0x8
008e 840c | | Call 0x2,0xc
008f 700f |p | Jump_Nonzero 0x9f
0090 4800 |H | Short_Literal 0x0
0091 0092 017c | || Action Push_String_Extended,0x17c ; "Unfreezing clients of "
0093 e40a | | Load 0x2,0xa
0094 01cc | | Execute Vector,Catenate
0095 8008 | | Call 0x0,0x8
0096 0092 0179 | y| Action Push_String_Extended,0x179 ; "<PROFILE>"
0098 4800 |H | Short_Literal 0x0
0099 0092 017d | }| Action Push_String_Extended,0x17d ; "_"
009b e408 | | Load 0x2,0x8
009c 01cc | | Execute Vector,Catenate
009d e00c | | Load 0x0,0xc
009e 181f | | Execute Package,Field_Execute,Field_Number 0x1f
009f e405 | | Load 0x2,0x5
00a0 840c | | Call 0x2,0xc
00a1 7012 |p | Jump_Nonzero 0xb4
00a2 4800 |H | Short_Literal 0x0
00a3 0092 017e | ~| Action Push_String_Extended,0x17e ; "Demoting clients of "
00a5 e40a | | Load 0x2,0xa
00a6 01cc | | Execute Vector,Catenate
00a7 8008 | | Call 0x0,0x8
00a8 0092 0179 | y| Action Push_String_Extended,0x179 ; "<PROFILE>"
00aa 4800 |H | Short_Literal 0x0
00ab 0092 017f | | Action Push_String_Extended,0x17f ; "<ALL_WORLDS>"
00ad 4801 |H | Short_Literal 0x1
00ae 0092 017d | }| Action Push_String_Extended,0x17d ; "_"
00b0 e405 | | Load 0x2,0x5
00b1 01cc | | Execute Vector,Catenate
00b2 e00d | | Load 0x0,0xd
00b3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00b4 4800 |H | Short_Literal 0x0
00b5 0092 0180 | | Action Push_String_Extended,0x180 ; "Replacing "
00b7 e40a | | Load 0x2,0xa
00b8 01cc | | Execute Vector,Catenate
00b9 8008 | | Call 0x0,0x8
00ba 0092 0179 | y| Action Push_String_Extended,0x179 ; "<PROFILE>"
00bc e5fe | | Load 0x2,-0x2
00bd 0092 0181 | | Action Push_String_Extended,0x181 ; "Replace, Remake"
00bf 0092 0182 | | Action Push_String_Extended,0x182 ; "*"
00c1 0092 017a | z| Action Push_String_Extended,0x17a ; "!"
00c3 0092 0183 | | Action Push_String_Extended,0x183 ; "?"
00c5 e40b | | Load 0x2,0xb
00c6 01cc | | Execute Vector,Catenate
00c7 e00e | | Load 0x0,0xe
00c8 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c9 e406 | | Load 0x2,0x6
00ca 840c | | Call 0x2,0xc
00cb 7016 |p | Jump_Nonzero 0xe2
00cc 4800 |H | Short_Literal 0x0
00cd 0092 0184 | | Action Push_String_Extended,0x184 ; "Installing demoted clients of "
00cf e40a | | Load 0x2,0xa
00d0 01cc | | Execute Vector,Catenate
00d1 8008 | | Call 0x0,0x8
00d2 0092 0179 | y| Action Push_String_Extended,0x179 ; "<PROFILE>"
00d4 4800 |H | Short_Literal 0x0
00d5 0092 017f | | Action Push_String_Extended,0x17f ; "<ALL_WORLDS>"
00d7 4802 |H | Short_Literal 0x2
00d8 4801 |H | Short_Literal 0x1
00d9 0092 0185 | | Action Push_String_Extended,0x185 ; "[_"
00db e406 | | Load 0x2,0x6
00dc 01cc | | Execute Vector,Catenate
00dd 0092 0186 | | Action Push_String_Extended,0x186 ; ", ~!tools.rpc.rev9_1_5??]"
00df 01cc | | Execute Vector,Catenate
00e0 e00d | | Load 0x0,0xd
00e1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00e2 e407 | | Load 0x2,0x7
00e3 840c | | Call 0x2,0xc
00e4 7016 |p | Jump_Nonzero 0xfb
00e5 4800 |H | Short_Literal 0x0
00e6 0092 0187 | | Action Push_String_Extended,0x187 ; "Coding demoted clients of "
00e8 e40a | | Load 0x2,0xa
00e9 01cc | | Execute Vector,Catenate
00ea 8008 | | Call 0x0,0x8
00eb 0092 0179 | y| Action Push_String_Extended,0x179 ; "<PROFILE>"
00ed 4800 |H | Short_Literal 0x0
00ee 0092 017f | | Action Push_String_Extended,0x17f ; "<ALL_WORLDS>"
00f0 4803 |H | Short_Literal 0x3
00f1 4801 |H | Short_Literal 0x1
00f2 0092 0185 | | Action Push_String_Extended,0x185 ; "[_"
00f4 e407 | | Load 0x2,0x7
00f5 01cc | | Execute Vector,Catenate
00f6 0092 0186 | | Action Push_String_Extended,0x186 ; ", ~!tools.rpc.rev9_1_5??]"
00f8 01cc | | Execute Vector,Catenate
00f9 e00d | | Load 0x0,0xd
00fa 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00fb e408 | | Load 0x2,0x8
00fc 840c | | Call 0x2,0xc
00fd 700f |p | Jump_Nonzero 0x10d
00fe 4800 |H | Short_Literal 0x0
00ff 0092 0188 | | Action Push_String_Extended,0x188 ; "Refreezing clients of "
0101 e40a | | Load 0x2,0xa
0102 01cc | | Execute Vector,Catenate
0103 8008 | | Call 0x0,0x8
0104 0092 0179 | y| Action Push_String_Extended,0x179 ; "<PROFILE>"
0106 4800 |H | Short_Literal 0x0
0107 0092 017d | }| Action Push_String_Extended,0x17d ; "_"
0109 e408 | | Load 0x2,0x8
010a 01cc | | Execute Vector,Catenate
010b e00c | | Load 0x0,0xc
010c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
010d 4800 |H | Short_Literal 0x0
010e 0092 0189 | | Action Push_String_Extended,0x189 ; "Restoring Acls on "
0110 e40a | | Load 0x2,0xa
0111 01cc | | Execute Vector,Catenate
0112 8008 | | Call 0x0,0x8
0113 0092 0179 | y| Action Push_String_Extended,0x179 ; "<PROFILE>"
0115 e409 | | Load 0x2,0x9
0116 800f | | Call 0x0,0xf
0117 e007 | | Load 0x0,0x7
0118 180e | | Execute Package,Field_Execute,Field_Number 0xe
0119 e006 | | Load 0x0,0x6
011a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
011b 0092 0179 | y| Action Push_String_Extended,0x179 ; "<PROFILE>"
011d 0092 018a | | Action Push_String_Extended,0x18a ; "snapshot"
011f e010 | | Load 0x0,0x10
0120 180e | | Execute Package,Field_Execute,Field_Number 0xe
0121 e007 | | Load 0x0,0x7
0122 180e | | Execute Package,Field_Execute,Field_Number 0xe
0123 e007 | | Load 0x0,0x7
0124 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0125 e006 | | Load 0x0,0x6
0126 180f | | Execute Package,Field_Execute,Field_Number 0xf
0127 0092 0173 | s| Action Push_String_Extended,0x173 ; "$$[D_@].Logs.Install_Universe"
0129 e404 | | Load 0x2,0x4
012a 01cc | | Execute Vector,Catenate
012b 8011 | | Call 0x0,0x11
012c e402 | | Load 0x2,0x2
012d e001 | | Load 0x0,0x1
012e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
012f 4504 |E | Exit_Subprogram 0x4
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0141 | A | .CONST 0x0141 ; Address of begin
0131 0163 | c | .CONST 0x0163 ; Address of exception handler
0132 0007 | | .CONST 0x0007 ; Number of locals
0133 INIT_0130:
0133 e012 | | Load 0x0,0x12
0134 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0135 02c7 | | Declare_Variable Any
0136 00d8 | | Load_Top At_Offset_0
0137 1c00 | | Execute_Immediate Run_Utility,0x0
0138 4801 |H | Short_Literal 0x1
0139 4801 |H | Short_Literal 0x1
013a 00e9 | | Load_Encached String_Cache
013b 035b | [ | Declare_Type Array,Constrained
013c 0337 | 7 | Declare_Variable Array
013d 00e3 | | Load_Encached Natural_Cache
013e 00e1 | | Load_Encached Boolean_Cache
013f 03e9 | | Declare_Variable Discrete,Duplicate
0140 03e9 | | Declare_Variable Discrete,Duplicate
0141 BODY_0130:
0141 e602 | | Load 0x3,0x2
0142 00ea | | Load_Encached Null_String_Cache
0143 e7ff | | Load 0x3,-0x1
0144 4800 |H | Short_Literal 0x0
0145 e012 | | Load 0x0,0x12
0146 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0147 c602 | | Store 0x3,0x2
0148 00e1 | | Load_Encached Boolean_Cache
0149 00e1 | | Load_Encached Boolean_Cache
014a 00e1 | | Load_Encached Boolean_Cache
014b 00e3 | | Load_Encached Natural_Cache
014c e603 | | Load 0x3,0x3
014d e602 | | Load 0x3,0x2
014e e012 | | Load 0x0,0x12
014f 1868 | h | Execute Package,Field_Execute,Field_Number 0x68
0150 00d1 | | Pop_Control Pop_Count_1
0151 c604 | | Store 0x3,0x4
0152 c605 | | Store 0x3,0x5
0153 005b | [ | Store_Top Discrete,At_Offset_3
0154 0059 | Y | Store_Top Discrete,At_Offset_1
0155 e602 | | Load 0x3,0x2
0156 e012 | | Load 0x0,0x12
0157 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0158 c602 | | Store 0x3,0x2
0159 00da | | Load_Top At_Offset_2
015a 7006 |p | Jump_Nonzero 0x161
015b 00d9 | | Load_Top At_Offset_1
015c 7002 |p | Jump_Nonzero 0x15f
015d 00d8 | | Load_Top At_Offset_0
015e 4401 |D | Exit_Subprogram With_Result,0x1
015f 4801 |H | Short_Literal 0x1
0160 4401 |D | Exit_Subprogram With_Result,0x1
0161 4801 |H | Short_Literal 0x1
0162 4401 |D | Exit_Subprogram With_Result,0x1
0163 TRAP_0130:
0163 0007 | | Action Break_Optional
0164 e602 | | Load 0x3,0x2
0165 e012 | | Load 0x0,0x12
0166 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0167 6804 |h | Jump_Zero 0x16c
0168 e602 | | Load 0x3,0x2
0169 e012 | | Load 0x0,0x12
016a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
016b c602 | | Store 0x3,0x2
016c 4801 |H | Short_Literal 0x1
016d 4401 |D | Exit_Subprogram With_Result,0x1
016e ; --------------------------------------------------------------------------------------
016e ; STRING TABLE
016e ; --------------------------------------------------------------------------------------
016e 003c | < | .STRTAB 0x003c->0x018c ; "$$.Lists.Demote_Specs"
016f 004f | O | .STRTAB 0x004f->0x0196 ; "$$.Lists.Install_Specs"
0170 0063 | c | .STRTAB 0x0063->0x01a1 ; "$$.Lists.Code_Specs"
0171 0074 | t | .STRTAB 0x0074->0x01ab ; "$$.Lists.Freeze_Specs"
0172 0087 | | .STRTAB 0x0087->0x01b5 ; "$$.Lists.Acls_list"
0173 0097 | | .STRTAB 0x0097->0x01be ; "$$[D_@].Logs.Install_Universe"
; "$$[D_@].Logs.Install_Universe"
0174 00b2 | | .STRTAB 0x00b2->0x01cd ; "Installing the units listed in "
0175 00cf | | .STRTAB 0x00cf->0x01dc ; "[]"
0176 00cf | | .STRTAB 0x00cf->0x01dd ; "No units to be Restored"
0177 00e4 | | .STRTAB 0x00e4->0x01e9 ; "Install_Universe"
0178 00f2 | | .STRTAB 0x00f2->0x01f1 ; "Computing demotions for updating "
0179 0111 | | .STRTAB 0x0111->0x0201 ; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
; "<PROFILE>"
017a 0118 | | .STRTAB 0x0118->0x0206 ; "!"
; "!"
; "!"
017b 0117 | | .STRTAB 0x0117->0x0206 ; "Saving ACLs on "
017c 0124 | $ | .STRTAB 0x0124->0x020e ; "Unfreezing clients of "
017d 0138 | 8 | .STRTAB 0x0138->0x0219 ; "_"
; "_"
; "_"
017e 0137 | 7 | .STRTAB 0x0137->0x0219 ; "Demoting clients of "
017f 0149 | I | .STRTAB 0x0149->0x0223 ; "<ALL_WORLDS>"
; "<ALL_WORLDS>"
; "<ALL_WORLDS>"
0180 0153 | S | .STRTAB 0x0153->0x0229 ; "Replacing "
0181 015b | [ | .STRTAB 0x015b->0x022e ; "Replace, Remake"
0182 0168 | h | .STRTAB 0x0168->0x0236 ; "*"
0183 0167 | g | .STRTAB 0x0167->0x0236 ; "?"
0184 0166 | f | .STRTAB 0x0166->0x0237 ; "Installing demoted clients of "
0185 0182 | | .STRTAB 0x0182->0x0246 ; "[_"
; "[_"
0186 0182 | | .STRTAB 0x0182->0x0247 ; ", ~!tools.rpc.rev9_1_5??]"
; ", ~!tools.rpc.rev9_1_5??]"
0187 0199 | | .STRTAB 0x0199->0x0253 ; "Coding demoted clients of "
0188 01b1 | | .STRTAB 0x01b1->0x0260 ; "Refreezing clients of "
0189 01c5 | | .STRTAB 0x01c5->0x026b ; "Restoring Acls on "
018a 01d5 | | .STRTAB 0x01d5->0x0274 ; "snapshot"
018b 01db | | .STREND 0x01db->0x0278
018c 2424 2e4c |$$.L| .STRTAB_STRINGS
0279 0000 0000 | | .BLANK 0000[0x7]
0280 ; --------------------------------------------------------------------------------------
0280 ; Debug Table
0280 ; --------------------------------------------------------------------------------------
0280 0004 000d | | .DEBUG4 0x0004,0x000d,0xffc7,0x0000,0x0001,0x0000
0286 bf7b 81fa | { | .XXX[0x17a]
0288 0006 ffab | |
028a 0a3d 4e61 | =Na|
028c 7475 7261 |tura|
028e 6c2c 133d |l, =|
0290 4a6f 625f |Job_|
0292 5365 676d |Segm|
0294 656e 742e |ent.|
0296 4765 7429 |Get)|
0298 3b48 0470 |;H p|
029a 6163 6b61 |acka|
029c 6765 2045 |ge E|
029e 7273 6174 |rsat|
02a0 7a5f 5265 |z_Re|
02a2 6665 7265 |fere|
02a4 6e63 6573 |nces|
02a6 2069 7320 | is |
02a8 6e65 7720 |new |
02aa 4572 7361 |Ersa|
02ac 747a 5f41 |tz_A|
02ae 7272 6179 |rray|
02b0 5f47 656e |_Gen|
02b2 6572 6963 |eric|
02b4 2028 5265 | (Re|
02b6 6665 7265 |fere|
02b8 6e63 655f |nce_|
02ba 4461 7461 |Data|
02bc 2c10 3b52 |, ;R|
02be 6566 6572 |efer|
02c0 656e 6365 |ence|
02c2 5f50 7472 |_Ptr|
02c4 2c0c 3b52 |, ;R|
02c6 6566 6572 |efer|
02c8 656e 6365 |ence|
02ca 2c13 3b4a |, ;J|
02cc 6f62 5f53 |ob_S|
02ce 6567 6d65 |egme|
02d0 6e74 2e47 |nt.G|
02d2 6574 293b |et);|
02d4 0200 2204 | " |
02d6 7061 636b |pack|
02d8 6167 6520 |age |
02da 5365 676d |Segm|
02dc 656e 745f |ent_|
02de 546f 5f48 |To_H|
02e0 616e 646c |andl|
02e2 655f 4d61 |e_Ma|
02e4 7020 6973 |p is|
02e6 3e07 6e65 |> ne|
02e8 7720 436f |w Co|
02ea 6d70 6163 |mpac|
02ec 745f 4865 |t_He|
02ee 6170 5f4d |ap_M|
02f0 6170 5f47 |ap_G|
02f2 656e 6572 |ener|
02f4 6963 2028 |ic (|
02f6 446f 6d61 |Doma|
02f8 696e 5f54 |in_T|
02fa 7970 6520 |ype |
02fc 3d3e 2053 |=> S|
02fe 7973 7465 |yste|
0300 6d2e 5365 |m.Se|
0302 676d 656e |gmen|
0304 742c 2025 |t, %|
0306 5261 6e67 |Rang|
0308 655f 5479 |e_Ty|
030a 7065 203d |pe =|
030c 3e20 4164 |> Ad|
030e 615f 5465 |a_Te|
0310 7874 2e48 |xt.H|
0312 616e 646c |andl|
0314 652c 1b25 |e, %|
0316 4b65 795f |Key_|
0318 5479 7065 |Type|
031a 203d 3e20 | => |
031c 4c6f 6e67 |Long|
031e 5f49 6e74 |_Int|
0320 6567 6572 |eger|
0322 2c2b 2545 |,+%E|
0324 6e63 6f64 |ncod|
0326 6520 3d3e |e =>|
0328 2053 6567 | Seg|
032a 6d65 6e74 |ment|
032c 6564 5f48 |ed_H|
032e 6561 705f |eap_|
0330 496e 7465 |Inte|
0332 7266 6163 |rfac|
0334 652e 4861 |e.Ha|
0336 7368 293b |sh);|
0338 0200 3a04 | : |
033a 5374 7269 |Stri|
033c 6e67 5f54 |ng_T|
033e 6162 203a |ab :|
0340 2053 742e | St.|
0342 5461 626c |Tabl|
0344 6520 3a3d |e :=|
0346 2053 742e | St.|
0348 4e65 775f |New_|
034a 5461 626c |Tabl|
034c 6520 2853 |e (S|
034e 7472 696e |trin|
0350 675f 5461 |g_Ta|
0352 625f 5369 |b_Si|
0354 7a65 293b |ze);|
0356 2904 4861 |) Ha|
0358 6e64 6c65 |ndle|
035a 5f4d 6170 |_Map|
035c 203a 2053 | : S|
035e 6567 6d65 |egme|
0360 6e74 5f54 |nt_T|
0362 6f5f 4861 |o_Ha|
0364 6e64 6c65 |ndle|
0366 5f4d 6170 |_Map|
0368 2e4d 6170 |.Map|
036a 3b02 0044 |; D|
036c 0466 756e | fun|
036e 6374 696f |ctio|
0370 6e20 4361 |n Ca|
0372 6c6c 6564 |lled|
0374 5f4e 616d |_Nam|
0376 6573 2028 |es (|
0378 4e20 3a20 |N : |
037a 4e61 7475 |Natu|
037c 7261 6c29 |ral)|
037e 2072 6574 | ret|
0380 7572 6e20 |urn |
0382 4e61 6d65 |Name|
0384 5f52 6563 |_Rec|
0386 6f72 645f |ord_|
0388 5074 7220 |Ptr |
038a 7265 6e61 |rena|
038c 6d65 731c |mes |
038e 0745 7273 | Ers|
0390 6174 7a5f |atz_|
0392 4361 6c6c |Call|
0394 6564 5f4e |ed_N|
0396 616d 6573 |ames|
0398 2e46 6574 |.Fet|
039a 6368 3b44 |ch;D|
039c 0466 756e | fun|
039e 6374 696f |ctio|
03a0 6e20 4361 |n Ca|
03a2 6c6c 6572 |ller|
03a4 5f4e 616d |_Nam|
03a6 6573 2028 |es (|
03a8 4e20 3a20 |N : |
03aa 4e61 7475 |Natu|
03ac 7261 6c29 |ral)|
03ae 2072 6574 | ret|
03b0 7572 6e20 |urn |
03b2 4e61 6d65 |Name|
03b4 5f52 6563 |_Rec|
03b6 6f72 645f |ord_|
03b8 5074 7220 |Ptr |
03ba 7265 6e61 |rena|
03bc 6d65 731c |mes |
03be 0745 7273 | Ers|
03c0 6174 7a5f |atz_|
03c2 4361 6c6c |Call|
03c4 6572 5f4e |er_N|
03c6 616d 6573 |ames|
03c8 2e46 6574 |.Fet|
03ca 6368 3b02 |ch; |
03cc 0041 0466 | A f|
03ce 756e 6374 |unct|
03d0 696f 6e20 |ion |
03d2 5265 665f |Ref_|
03d4 4172 7261 |Arra|
03d6 7920 284e |y (N|
03d8 203a 2052 | : R|
03da 6566 6572 |efer|
03dc 656e 6365 |ence|
03de 2920 7265 |) re|
03e0 7475 726e |turn|
03e2 2052 6566 | Ref|
03e4 6572 656e |eren|
03e6 6365 5f50 |ce_P|
03e8 7472 2072 |tr r|
03ea 656e 616d |enam|
03ec 6573 1a07 |es |
03ee 4572 7361 |Ersa|
03f0 747a 5f52 |tz_R|
03f2 6566 6572 |efer|
03f4 656e 6365 |ence|
03f6 732e 4665 |s.Fe|
03f8 7463 683b |tch;|
03fa 0200 2e04 | . |
03fc 4865 6164 |Head|
03fe 203a 2046 | : F|