|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0288 | | .CONST 0x0288 ; 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 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x243, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 0064 | d | .CONST 0x0064 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001d | | .CONST 0x001d ; Number of locals
000b INIT_0008:
000b INIT_0008:
000b 4802 |H | Short_Literal 0x2
000c 032b | + | Declare_Type Record,Incomplete,Visible
000d 4800 |H | Short_Literal 0x0
000e 4801 |H | Short_Literal 0x1
000f 029f 006b | k| Declare_Subprogram INIT_0068,For_Call
0011 03fe | | Declare_Type Discrete,Defined,Visible
0012 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0014 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0016 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0018 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
001a 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
001c 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
001e e001 | | Load 0x0,0x1
001f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0020 00e1 | | Load_Encached Boolean_Cache
0021 029f 021b | | Declare_Subprogram INIT_0218,For_Call
0023 e20d | | Load 0x1,0xd
0024 0326 | & | Complete_Type Record,By_Defining
0025 00bf | | Action Accept_Activation
0026 4804 |H | Short_Literal 0x4
0027 48ff |H | Short_Literal 0xff
0028 00e1 | | Load_Encached Boolean_Cache
0029 02a0 | | Declare_Subprogram Null_Subprogram
002a 4801 |H | Short_Literal 0x1
002b 035d | ] | Declare_Type Array,Defined
002c 00d8 | | Load_Top At_Offset_0
002d 0337 | 7 | Declare_Variable Array
002e 00d8 | | Load_Top At_Offset_0
002f 0335 | 5 | Declare_Variable Array,Duplicate
0030 00cd | | Action Spare6_Action
0031 48ff |H | Short_Literal 0xff
0032 4804 |H | Short_Literal 0x4
0033 4800 |H | Short_Literal 0x0
0034 00d9 | | Load_Top At_Offset_1
0035 e217 | | Load 0x1,0x17
0036 01d6 | | Execute Vector,Field_Write
0037 3ffb |? | Loop_Increasing 0x33
0038 00d9 | | Load_Top At_Offset_1
0039 01d4 | | Execute Vector,Structure_Write
003a 029d 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call
003c 029d 010b | | Declare_Subprogram INIT_0108,For_Outer_Call
003e e002 | | Load 0x0,0x2
003f e003 | | Load 0x0,0x3
0040 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0041 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0042 e004 | | Load 0x0,0x4
0043 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
0044 0387 | | Declare_Variable Package
0045 00d8 | | Load_Top At_Offset_0
0046 020f | | Execute Module,Activate
0047 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call
0049 029d 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call
004b 1d0f | | Execute_Immediate Reference_Lex_1,0xf
004c 00c7 | | Action Elaborate_Subprogram
004d 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call
004f 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0050 00c7 | | Action Elaborate_Subprogram
0051 4800 |H | Short_Literal 0x0
0052 0093 0233 | 3| push_full_address INIT_0230
0054 00f5 | | Load_Encached Unused21
0055 037d | } | Declare_Type Task,Defined
0056 036f | o | Declare_Variable Task
0057 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0058 4801 |H | Short_Literal 0x1
0059 00da | | Load_Top At_Offset_2
005a 020e | | Execute Module,Augment_Imports
005b 0007 | | Action Break_Optional
005c 1d12 | | Execute_Immediate Reference_Lex_1,0x12
005d 00c7 | | Action Elaborate_Subprogram
005e 1d13 | | Execute_Immediate Reference_Lex_1,0x13
005f 00c7 | | Action Elaborate_Subprogram
0060 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0061 00c7 | | Action Elaborate_Subprogram
0062 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0063 00c7 | | Action Elaborate_Subprogram
0064 BODY_0008:
0064 BODY_0008:
0064 00be | | Action Activate_Tasks
0065 00bc | | Action Signal_Activated
0066 00bb | | Action Signal_Completion
0067 0000 | | .XXX[0x1]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 4607 |F | Jump_Case 0x8
006c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
006d 7806 |x | Jump 0x74 ; case 0x1
006e 7809 |x | Jump 0x78 ; case 0x2
006f 780d |x | Jump 0x7d ; case 0x3
0070 7810 |x | Jump 0x81 ; case 0x4
0071 7811 |x | Jump 0x83 ; case 0x5
0072 7812 |x | Jump 0x85 ; case 0x6
0073 7815 |x | Jump 0x89 ; case 0x7
0074 00da | | Load_Top At_Offset_2
0075 0091 0259 | Y| Action Push_String_Extended_Indexed,0x259 ; "READ"
0077 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0078 00db | | Load_Top At_Offset_3
0079 00db | | Load_Top At_Offset_3
007a 00e0 | | Load_Encached Standard_Cache
007b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
007c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
007d 00da | | Load_Top At_Offset_2
007e 00e0 | | Load_Encached Standard_Cache
007f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0080 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0081 00db | | Load_Top At_Offset_3
0082 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0083 00db | | Load_Top At_Offset_3
0084 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0085 e20e | | Load 0x1,0xe
0086 00dc | | Load_Top At_Offset_4
0087 0267 | g | Execute Discrete,Predecessor
0088 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0089 e20e | | Load 0x1,0xe
008a 00dc | | Load_Top At_Offset_4
008b 0268 | h | Execute Discrete,Successor
008c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 009c | | .CONST 0x009c ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0004 | | .CONST 0x0004 ; Number of locals
0093 INIT_0090:
0093 e005 | | Load 0x0,0x5
0094 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0095 02ff | | Declare_Variable Variant_Record
0096 00d8 | | Load_Top At_Offset_0
0097 1c00 | | Execute_Immediate Run_Utility,0x0
0098 00e1 | | Load_Encached Boolean_Cache
0099 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
009a 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
009c BODY_0090:
009c 00e1 | | Load_Encached Boolean_Cache
009d 00db | | Load_Top At_Offset_3
009e e5ff | | Load 0x2,-0x1
009f 821b | | Call 0x1,0x1b
00a0 00d1 | | Pop_Control Pop_Count_1
00a1 005a | Z | Store_Top Discrete,At_Offset_2
00a2 00d9 | | Load_Top At_Offset_1
00a3 7005 |p | Jump_Nonzero 0xa9
00a4 6007 |` | Indirect_Literal Discrete,0xac,{0x00000000, 0x7fffffff}
00a5 a5fe | | Store_Unchecked 0x2,-0x2
00a6 6005 |` | Indirect_Literal Discrete,0xac,{0x00000000, 0x7fffffff}
00a7 a5fd | | Store_Unchecked 0x2,-0x3
00a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a9 8404 | | Call 0x2,0x4
00aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ab 0000 | | .XXX[0x1]
00ac 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 e006 | | Load 0x0,0x6
00b4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00b5 e216 | | Load 0x1,0x16
00b6 01d7 | | Execute Vector,Field_Read
00b7 6808 |h | Jump_Zero 0xc0
00b8 e5fd | | Load 0x2,-0x3
00b9 e5fe | | Load 0x2,-0x2
00ba e5ff | | Load 0x2,-0x1
00bb 4803 |H | Short_Literal 0x3
00bc e21d | | Load 0x1,0x1d
00bd 170d | | Execute Task,Entry_Call,Field_Number 0xd
00be 00d1 | | Pop_Control Pop_Count_1
00bf 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00c0 e5fd | | Load 0x2,-0x3
00c1 4800 |H | Short_Literal 0x0
00c2 e5fe | | Load 0x2,-0x2
00c3 e5ff | | Load 0x2,-0x1
00c4 821c | | Call 0x1,0x1c
00c5 00d1 | | Pop_Control Pop_Count_1
00c6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00c7 0000 | | .XXX[0x1]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4800 |H | Short_Literal 0x0
00cc 00db | | Load_Top At_Offset_3
00cd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ce e001 | | Load 0x0,0x1
00cf 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d1 0000 0000 | | .BLANK 0000[0x7]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 4801 |H | Short_Literal 0x1
00dc e006 | | Load 0x0,0x6
00dd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00de e216 | | Load 0x1,0x16
00df 01d6 | | Execute Vector,Field_Write
00e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e1 0000 0000 | | .BLANK 0000[0x7]
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 4800 |H | Short_Literal 0x0
00ec e006 | | Load 0x0,0x6
00ed 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ee e216 | | Load 0x1,0x16
00ef 01d6 | | Execute Vector,Field_Write
00f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f1 0000 0000 | | .BLANK 0000[0x7]
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 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fe 0000 0000 | | .XXX[0x2]
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 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0104 0000 0000 | | .BLANK 0000[0x4]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 4800 |H | Short_Literal 0x0
010c 00db | | Load_Top At_Offset_3
010d e216 | | Load 0x1,0x16
010e 01d6 | | Execute Vector,Field_Write
010f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 011b | | .CONST 0x011b ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0005 | | .CONST 0x0005 ; Number of locals
0113 INIT_0110:
0113 00e2 | | Load_Encached Integer_Cache
0114 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0115 e007 | | Load 0x0,0x7
0116 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0117 e007 | | Load 0x0,0x7
0118 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0119 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
011b BODY_0110:
011b 00cf | | Action Mark_Auxiliary
011c e5ff | | Load 0x2,-0x1
011d 01d9 | | Execute Vector,Reverse_Bounds
011e 0263 | c | Execute Discrete,Above_Bound
011f 7003 |p | Jump_Nonzero 0x123
0120 8405 | | Call 0x2,0x5
0121 00c8 | | Action Pop_Auxiliary_Range
0122 3ffd |? | Loop_Increasing 0x120
0123 00ce | | Action Pop_Auxiliary
0124 00db | | Load_Top At_Offset_3
0125 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0126 0000 0000 | | .XXX[0x2]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0136 | 6 | .CONST 0x0136 ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0004 | | .CONST 0x0004 ; Number of locals
012b INIT_0128:
012b e005 | | Load 0x0,0x5
012c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
012d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
012e 02c7 | | Declare_Variable Any
012f 00d8 | | Load_Top At_Offset_0
0130 1c00 | | Execute_Immediate Run_Utility,0x0
0131 e005 | | Load 0x0,0x5
0132 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0133 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0134 e005 | | Load 0x0,0x5
0135 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0136 BODY_0128:
0136 e005 | | Load 0x0,0x5
0137 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0138 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0139 00db | | Load_Top At_Offset_3
013a 604d |`M | Indirect_Literal Discrete,0x188,{0x00000000, 0x00004000}
013b e008 | | Load 0x0,0x8
013c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
013d e009 | | Load 0x0,0x9
013e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
013f e00a | | Load 0x0,0xa
0140 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0141 4801 |H | Short_Literal 0x1
0142 4801 |H | Short_Literal 0x1
0143 e009 | | Load 0x0,0x9
0144 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0145 e005 | | Load 0x0,0x5
0146 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0147 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0148 e5ff | | Load 0x2,-0x1
0149 e005 | | Load 0x0,0x5
014a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
014b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
014c c402 | | Store 0x2,0x2
014d 005a | Z | Store_Top Discrete,At_Offset_2
014e 00d9 | | Load_Top At_Offset_1
014f 6811 |h | Jump_Zero 0x161
0150 e00b | | Load 0x0,0xb
0151 180e | | Execute Package,Field_Execute,Field_Number 0xe
0152 4802 |H | Short_Literal 0x2
0153 e5ff | | Load 0x2,-0x1
0154 e403 | | Load 0x2,0x3
0155 e005 | | Load 0x0,0x5
0156 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0157 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0158 e00c | | Load 0x0,0xc
0159 1813 | | Execute Package,Field_Execute,Field_Number 0x13
015a e005 | | Load 0x0,0x5
015b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
015c e5fe | | Load 0x2,-0x2
015d 016d | m | Execute Variant_Record,Structure_Write
015e 4800 |H | Short_Literal 0x0
015f a5fd | | Store_Unchecked 0x2,-0x3
0160 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0161 e005 | | Load 0x0,0x5
0162 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0163 e5fe | | Load 0x2,-0x2
0164 6023 |`# | Indirect_Literal Discrete,0x188,{0x00000000, 0x00004000}
0165 e008 | | Load 0x0,0x8
0166 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0167 e402 | | Load 0x2,0x2
0168 e005 | | Load 0x0,0x5
0169 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
016a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
016b 00d1 | | Pop_Control Pop_Count_1
016c 0059 | Y | Store_Top Discrete,At_Offset_1
016d 00d8 | | Load_Top At_Offset_0
016e 6813 |h | Jump_Zero 0x182
016f e00b | | Load 0x0,0xb
0170 180e | | Execute Package,Field_Execute,Field_Number 0xe
0171 4802 |H | Short_Literal 0x2
0172 0092 025b | [| Action Push_String_Extended,0x25b ; "Version of "
0174 e5ff | | Load 0x2,-0x1
0175 01cc | | Execute Vector,Catenate
0176 0092 025c | \| Action Push_String_Extended,0x25c ; " does not exist"
0178 01cc | | Execute Vector,Catenate
0179 e00c | | Load 0x0,0xc
017a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
017b e005 | | Load 0x0,0x5
017c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
017d e5fe | | Load 0x2,-0x2
017e 016d | m | Execute Variant_Record,Structure_Write
017f 4800 |H | Short_Literal 0x0
0180 a5fd | | Store_Unchecked 0x2,-0x3
0181 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0182 4801 |H | Short_Literal 0x1
0183 a5fd | | Store_Unchecked 0x2,-0x3
0184 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0185 0000 0000 | | .XXX[0x3]
0187 0000 | |
0188 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
018c 0000 0000 | | .BLANK 0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 01a1 | | .CONST 0x01a1 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0005 | | .CONST 0x0005 ; Number of locals
0193 INIT_0190:
0193 e005 | | Load 0x0,0x5
0194 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0195 02ff | | Declare_Variable Variant_Record
0196 00d8 | | Load_Top At_Offset_0
0197 1c00 | | Execute_Immediate Run_Utility,0x0
0198 00e1 | | Load_Encached Boolean_Cache
0199 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
019a e001 | | Load 0x0,0x1
019b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
019c 02c7 | | Declare_Variable Any
019d 00d8 | | Load_Top At_Offset_0
019e 1c00 | | Execute_Immediate Run_Utility,0x0
019f 00e1 | | Load_Encached Boolean_Cache
01a0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01a1 BODY_0190:
01a1 00e1 | | Load_Encached Boolean_Cache
01a2 e402 | | Load 0x2,0x2
01a3 e5ff | | Load 0x2,-0x1
01a4 821b | | Call 0x1,0x1b
01a5 00d1 | | Pop_Control Pop_Count_1
01a6 005b | [ | Store_Top Discrete,At_Offset_3
01a7 00da | | Load_Top At_Offset_2
01a8 6821 |h! | Jump_Zero 0x1ca
01a9 e007 | | Load 0x0,0x7
01aa 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01ab e001 | | Load 0x0,0x1
01ac 180f | | Execute Package,Field_Execute,Field_Number 0xf
01ad c404 | | Store 0x2,0x4
01ae e5fe | | Load 0x2,-0x2
01af 6809 |h | Jump_Zero 0x1b9
01b0 00e1 | | Load_Encached Boolean_Cache
01b1 602a |`* | Indirect_Literal Discrete,0x1dc,{0x00000000, 0x00050000}
01b2 4802 |H | Short_Literal 0x2
01b3 e402 | | Load 0x2,0x2
01b4 e404 | | Load 0x2,0x4
01b5 e001 | | Load 0x0,0x1
01b6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01b7 0059 | Y | Store_Top Discrete,At_Offset_1
01b8 7808 |x | Jump 0x1c1
01b9 00e1 | | Load_Encached Boolean_Cache
01ba 6021 |`! | Indirect_Literal Discrete,0x1dc,{0x00000000, 0x00050000}
01bb 4801 |H | Short_Literal 0x1
01bc e402 | | Load 0x2,0x2
01bd e404 | | Load 0x2,0x4
01be e001 | | Load 0x0,0x1
01bf 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01c0 0059 | Y | Store_Top Discrete,At_Offset_1
01c1 00d8 | | Load_Top At_Offset_0
01c2 700a |p | Jump_Nonzero 0x1cd
01c3 0092 025d | ]| Action Push_String_Extended,0x25d ; "Failure to Get_Lock, another writer holds lock"
01c5 e00d | | Load 0x0,0xd
01c6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01c7 e00d | | Load 0x0,0xd
01c8 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
01c9 7803 |x | Jump 0x1cd
01ca e001 | | Load 0x0,0x1
01cb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01cc c404 | | Store 0x2,0x4
01cd e20d | | Load 0x1,0xd
01ce 0322 | " | Declare_Variable Record
01cf 00da | | Load_Top At_Offset_2
01d0 e20d | | Load 0x1,0xd
01d1 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
01d2 0119 | | Execute Any,Check_In_Formal_Type
01d3 00d9 | | Load_Top At_Offset_1
01d4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01d5 e5fd | | Load 0x2,-0x3
01d6 00d9 | | Load_Top At_Offset_1
01d7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01d8 e5fc | | Load 0x2,-0x4
01d9 017d | } | Execute Record,Structure_Write
01da 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01db 0000 | | .XXX[0x1]
01dc 0000 0000 | | .LITERAL {0x00000000, 0x00050000}
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e7 | | .CONST 0x01e7 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 e402 | | Load 0x2,0x2
01e4 e001 | | Load 0x0,0x1
01e5 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
01e6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01e7 BODY_01e0:
01e7 00d8 | | Load_Top At_Offset_0
01e8 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
01e9 821a | | Call 0x1,0x1a
01ea a5fe | | Store_Unchecked 0x2,-0x2
01eb 00d8 | | Load_Top At_Offset_0
01ec 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6
01ed 821a | | Call 0x1,0x1a
01ee a5fd | | Store_Unchecked 0x2,-0x3
01ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f9 | | .CONST 0x01f9 ; Address of begin
01f1 020e | | .CONST 0x020e ; Address of exception handler
01f2 0003 | | .CONST 0x0003 ; Number of locals
01f3 INIT_01f0:
01f3 e408 | | Load 0x2,0x8
01f4 e5ff | | Load 0x2,-0x1
01f5 01d5 | | Execute Vector,Field_Reference
01f6 0007 | | Action Break_Optional
01f7 e004 | | Load 0x0,0x4
01f8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f9 BODY_01f0:
01f9 00d9 | | Load_Top At_Offset_1
01fa e001 | | Load 0x0,0x1
01fb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01fc 6810 |h | Jump_Zero 0x20d
01fd 00d9 | | Load_Top At_Offset_1
01fe e001 | | Load 0x0,0x1
01ff 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0200 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0201 a404 | | Store_Unchecked 0x2,0x4
0202 e404 | | Load 0x2,0x4
0203 e007 | | Load 0x0,0x7
0204 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0205 c403 | | Store 0x2,0x3
0206 e403 | | Load 0x2,0x3
0207 e004 | | Load 0x0,0x4
0208 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0209 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
020a e402 | | Load 0x2,0x2
020b 0a01 | | Execute_Immediate Plus,0x1
020c c402 | | Store 0x2,0x2
020d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
020e TRAP_01f0:
020e e004 | | Load 0x0,0x4
020f 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0210 010f | | Execute Exception,Equal
0211 6801 |h | Jump_Zero 0x213
0212 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0213 e402 | | Load 0x2,0x2
0214 0a01 | | Execute_Immediate Plus,0x1
0215 c402 | | Store 0x2,0x2
0216 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0217 0000 | | .XXX[0x1]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 4608 |F | Jump_Case 0x9
021c 7808 |x | Jump 0x225 ; case 0x0
021d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
021e 7810 |x | Jump 0x22f ; case 0x2
021f 780f |x | Jump 0x22f ; case 0x3
0220 780e |x | Jump 0x22f ; case 0x4
0221 780d |x | Jump 0x22f ; case 0x5
0222 780c |x | Jump 0x22f ; case 0x6
0223 780b |x | Jump 0x22f ; case 0x7
0224 780a |x | Jump 0x22f ; case 0x8
0225 00da | | Load_Top At_Offset_2
0226 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0227 0125 | % | Execute Any,Set_Constraint
0228 00da | | Load_Top At_Offset_2
0229 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
022a 1c00 | | Execute_Immediate Run_Utility,0x0
022b 4800 |H | Short_Literal 0x0
022c 00db | | Load_Top At_Offset_3
022d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
022e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
022f 0869 | i | Execute_Immediate Raise,0x69
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0239 | 9 | .CONST 0x0239 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 000e | | .CONST 0x000e ; Number of locals
0233 INIT_0230:
0233 4803 |H | Short_Literal 0x3
0234 02cb | | Declare_Variable Entry
0235 00bf | | Action Accept_Activation
0236 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
0238 00bc | | Action Signal_Activated
0239 BODY_0230:
0239 00cf | | Action Mark_Auxiliary
023a 820e | | Call 0x1,0xe
023b 00c9 | | Action Pop_Auxiliary_Loop
023c 7ffd | | Jump 0x23a
023d 0000 0000 | | .XXX[0x3]
023f 0000 | |
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 024a | J | .CONST 0x024a ; Address of begin
0241 024d | M | .CONST 0x024d ; Address of exception handler
0242 0002 | | .CONST 0x0002 ; Number of locals
0243 INIT_0240:
0243 480d 484a |H HJ| Declare_Variable Select 0x000, 0x001,
0245 4800 4801 |H H | [0x000]: 0x001 = 0x0008,
0247 4800 4801 |H H | [0x00d]: 0x04a = 0x0250
0249 02cf | |
024a BODY_0240:
024a 00d8 | | Load_Top At_Offset_0
024b 013f | ? | Execute Select,Rendezvous
024c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
024d TRAP_0240:
024d 0007 | | Action Break_Optional
024e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
024f 0000 | | .XXX[0x1]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; See instruction 0x02cf at 0x243, index=0xd
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 e7fc | | Load 0x3,-0x4
0254 4801 |H | Short_Literal 0x1
0255 e7fd | | Load 0x3,-0x3
0256 e7fe | | Load 0x3,-0x2
0257 8001 | | Call 0x0,0x1
0258 4101 |A | End_Rendezvous 0x1
0259 ; --------------------------------------------------------------------------------------
0259 ; STRING TABLE
0259 ; --------------------------------------------------------------------------------------
0259 000c | | .STRTAB 0x000c->0x025f ; "READ"
025a 000e | | .STRTAB 0x000e->0x0261 ; "UPDATE"
025b 0012 | | .STRTAB 0x0012->0x0264 ; "Version of "
025c 001b | | .STRTAB 0x001b->0x0269 ; " does not exist"
025d 0028 | ( | .STRTAB 0x0028->0x0271 ; "Failure to Get_Lock, another writer holds lock"
025e 0054 | T | .STREND 0x0054->0x0288
025f 5245 4144 |READ| .STRTAB_STRINGS
0288 ; --------------------------------------------------------------------------------------
0288 ; Debug Table
0288 ; --------------------------------------------------------------------------------------
0288 0004 000a | | .DEBUG4 0x0004,0x000a,0x91f9,0x0000,0x0001,0x0000
028e 0000 0000 | | .BLANK 0000[0x172]