|
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_bdfc99
└─⟦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 0228 | ( | .CONST 0x0228 ; 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 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x130, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 0052 | R | .CONST 0x0052 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0015 | | .CONST 0x0015 ; Number of locals
000b INIT_0008:
000b INIT_0008:
000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
000f 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0011 00bf | | Action Accept_Activation
0012 4800 |H | Short_Literal 0x0
0013 4803 |H | Short_Literal 0x3
0014 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
0016 03fd | | Declare_Type Discrete,Defined
0017 00d8 | | Load_Top At_Offset_0
0018 e002 | | Load 0x0,0x2
0019 4801 |H | Short_Literal 0x1
001a e003 | | Load 0x0,0x3
001b 4801 |H | Short_Literal 0x1
001c e004 | | Load 0x0,0x4
001d 4803 |H | Short_Literal 0x3
001e e004 | | Load 0x0,0x4
001f e003 | | Load 0x0,0x3
0020 e005 | | Load 0x0,0x5
0021 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call
0023 4805 |H | Short_Literal 0x5
0024 4801 |H | Short_Literal 0x1
0025 4803 |H | Short_Literal 0x3
0026 4800 |H | Short_Literal 0x0
0027 4801 |H | Short_Literal 0x1
0028 031d | | Declare_Type Variant_Record,Defined
0029 00d8 | | Load_Top At_Offset_0
002a 02a0 | | Declare_Subprogram Null_Subprogram
002b 4818 |H | Short_Literal 0x18
002c 03d3 | | Declare_Type Access,Defined,Accesses_Protected
002d e006 | | Load 0x0,0x6
002e e007 | | Load 0x0,0x7
002f 00da | | Load_Top At_Offset_2
0030 e008 | | Load 0x0,0x8
0031 0387 | | Declare_Variable Package
0032 00d8 | | Load_Top At_Offset_0
0033 020f | | Execute Module,Activate
0034 4800 |H | Short_Literal 0x0
0035 0093 0123 | #| push_full_address INIT_0120
0037 00f5 | | Load_Encached Unused21
0038 037d | } | Declare_Type Task,Defined
0039 036f | o | Declare_Variable Task
003a 00d9 | | Load_Top At_Offset_1
003b 00db | | Load_Top At_Offset_3
003c e211 | | Load 0x1,0x11
003d a009 | | Store_Unchecked 0x0,0x9
003e a00a | | Store_Unchecked 0x0,0xa
003f a00b | | Store_Unchecked 0x0,0xb
0040 e00c | | Load 0x0,0xc
0041 a00d | | Store_Unchecked 0x0,0xd
0042 e00e | | Load 0x0,0xe
0043 a00f | | Store_Unchecked 0x0,0xf
0044 e010 | | Load 0x0,0x10
0045 a011 | | Store_Unchecked 0x0,0x11
0046 480c |H | Short_Literal 0xc
0047 e214 | | Load 0x1,0x14
0048 020e | | Execute Module,Augment_Imports
0049 0007 | | Action Break_Optional
004a 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call
004c 1d0d | | Execute_Immediate Reference_Lex_1,0xd
004d 00c7 | | Action Elaborate_Subprogram
004e 1d0e | | Execute_Immediate Reference_Lex_1,0xe
004f 00c7 | | Action Elaborate_Subprogram
0050 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0051 00c7 | | Action Elaborate_Subprogram
0052 BODY_0008:
0052 BODY_0008:
0052 00be | | Action Activate_Tasks
0053 00bc | | Action Signal_Activated
0054 00bb | | Action Signal_Completion
0055 0000 0000 | | .XXX[0x3]
0057 0000 | |
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 00db | | Load_Top At_Offset_3
005c 00db | | Load_Top At_Offset_3
005d 4802 |H | Short_Literal 0x2
005e e214 | | Load 0x1,0x14
005f 170e | | Execute Task,Entry_Call,Field_Number 0xe
0060 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0061 0000 0000 | | .BLANK 0000[0x7]
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 e5fc | | Load 0x2,-0x4
006c e5fd | | Load 0x2,-0x3
006d e5fe | | Load 0x2,-0x2
006e e5ff | | Load 0x2,-0x1
006f 4804 |H | Short_Literal 0x4
0070 e214 | | Load 0x1,0x14
0071 170f | | Execute Task,Entry_Call,Field_Number 0xf
0072 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0073 0000 0000 | | .BLANK 0000[0x5]
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 4800 |H | Short_Literal 0x0
007c e214 | | Load 0x1,0x14
007d 1710 | | Execute Task,Entry_Call,Field_Number 0x10
007e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
007f 0000 | | .XXX[0x1]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 4607 |F | Jump_Case 0x8
0084 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0085 7807 |x | Jump 0x8d ; case 0x1
0086 780a |x | Jump 0x91 ; case 0x2
0087 780e |x | Jump 0x96 ; case 0x3
0088 7811 |x | Jump 0x9a ; case 0x4
0089 7812 |x | Jump 0x9c ; case 0x5
008a 7813 |x | Jump 0x9e ; case 0x6
008b 7816 |x | Jump 0xa2 ; case 0x7
008c 4302 |C | .XXX[0x1]
008d 00da | | Load_Top At_Offset_2
008e 0091 0211 | | Action Push_String_Extended_Indexed,0x211 ; "ADD"
0090 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0091 00db | | Load_Top At_Offset_3
0092 00db | | Load_Top At_Offset_3
0093 00e0 | | Load_Encached Standard_Cache
0094 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0095 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0096 00da | | Load_Top At_Offset_2
0097 00e0 | | Load_Encached Standard_Cache
0098 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0099 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
009a 00db | | Load_Top At_Offset_3
009b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009c 00db | | Load_Top At_Offset_3
009d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009e e210 | | Load 0x1,0x10
009f 00dc | | Load_Top At_Offset_4
00a0 0267 | g | Execute Discrete,Predecessor
00a1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a2 e210 | | Load 0x1,0x10
00a3 00dc | | Load_Top At_Offset_4
00a4 0268 | h | Execute Discrete,Successor
00a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a6 0000 0000 | | .XXX[0x2]
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 4609 |F | Jump_Case 0xa
00ac 7809 |x | Jump 0xb6 ; case 0x0
00ad 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00ae 7826 |x& | Jump 0xd5 ; case 0x2
00af 7829 |x) | Jump 0xd9 ; case 0x3
00b0 7858 |xX | Jump 0x109 ; case 0x4
00b1 7857 |xW | Jump 0x109 ; case 0x5
00b2 782c |x, | Jump 0xdf ; case 0x6
00b3 7839 |x9 | Jump 0xed ; case 0x7
00b4 7849 |xI | Jump 0xfe ; case 0x8
00b5 784f |xO | Jump 0x105 ; case 0x9
00b6 00da | | Load_Top At_Offset_2
00b7 016c | l | Execute Variant_Record,Is_Constrained
00b8 7009 |p | Jump_Nonzero 0xc2
00b9 00cf | | Action Mark_Auxiliary
00ba 4803 |H | Short_Literal 0x3
00bb e5ff | | Load 0x2,-0x1
00bc 1c08 | | Execute_Immediate Run_Utility,0x8
00bd 00d8 | | Load_Top At_Offset_0
00be 1c00 | | Execute_Immediate Run_Utility,0x0
00bf c5ff | | Store 0x2,-0x1
00c0 00ce | | Action Pop_Auxiliary
00c1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00c2 00da | | Load_Top At_Offset_2
00c3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00c4 4603 |F | Jump_Case 0x4
00c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00c6 7803 |x | Jump 0xca ; case 0x1
00c7 7806 |x | Jump 0xce ; case 0x2
00c8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
00c9 4302 |C | .XXX[0x1]
00ca 00da | | Load_Top At_Offset_2
00cb 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
00cc 1c00 | | Execute_Immediate Run_Utility,0x0
00cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00ce 00da | | Load_Top At_Offset_2
00cf 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
00d0 1c00 | | Execute_Immediate Run_Utility,0x0
00d1 00da | | Load_Top At_Offset_2
00d2 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
00d3 1c00 | | Execute_Immediate Run_Utility,0x0
00d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00d5 4801 |H | Short_Literal 0x1
00d6 4807 |H | Short_Literal 0x7
00d7 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
00d8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00d9 e5fd | | Load 0x2,-0x3
00da 00db | | Load_Top At_Offset_3
00db 1c07 | | Execute_Immediate Run_Utility,0x7
00dc e5fe | | Load 0x2,-0x2
00dd 0306 | | Complete_Type Variant_Record,By_Renaming
00de 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
00df 00db | | Load_Top At_Offset_3
00e0 4603 |F | Jump_Case 0x4
00e1 7805 |x | Jump 0xe7 ; case 0x0
00e2 7806 |x | Jump 0xe9 ; case 0x1
00e3 7807 |x | Jump 0xeb ; case 0x2
00e4 7800 |x | Jump 0xe5 ; case 0x3
00e5 48ff |H | Short_Literal 0xff
00e6 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e7 4801 |H | Short_Literal 0x1
00e8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e9 4802 |H | Short_Literal 0x2
00ea 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00eb 4803 |H | Short_Literal 0x3
00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ed 00db | | Load_Top At_Offset_3
00ee e5fe | | Load 0x2,-0x2
00ef 4603 |F | Jump_Case 0x4
00f0 7805 |x | Jump 0xf6 ; case 0x0
00f1 7806 |x | Jump 0xf8 ; case 0x1
00f2 7807 |x | Jump 0xfa ; case 0x2
00f3 7800 |x | Jump 0xf4 ; case 0x3
00f4 48ff |H | Short_Literal 0xff
00f5 7805 |x | Jump 0xfb
00f6 4801 |H | Short_Literal 0x1
00f7 7803 |x | Jump 0xfb
00f8 4802 |H | Short_Literal 0x2
00f9 7801 |x | Jump 0xfb
00fa 4803 |H | Short_Literal 0x3
00fb e5ff | | Load 0x2,-0x1
00fc 031b | | Declare_Type Variant_Record,Constrained
00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fe 00db | | Load_Top At_Offset_3
00ff e5fe | | Load 0x2,-0x2
0100 e5ff | | Load 0x2,-0x1
0101 1c06 | | Execute_Immediate Run_Utility,0x6
0102 e5ff | | Load 0x2,-0x1
0103 02fc | | Declare_Variable Variant_Record,With_Constraint
0104 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0105 4803 |H | Short_Literal 0x3
0106 00db | | Load_Top At_Offset_3
0107 1c07 | | Execute_Immediate Run_Utility,0x7
0108 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0109 0869 | i | Execute_Immediate Raise,0x69
010a 0000 0000 | | .BLANK 0000[0x6]
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 00db | | Load_Top At_Offset_3
0114 00db | | Load_Top At_Offset_3
0115 4802 |H | Short_Literal 0x2
0116 e214 | | Load 0x1,0x14
0117 170d | | Execute Task,Entry_Call,Field_Number 0xd
0118 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0119 0000 0000 | | .BLANK 0000[0x7]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 013e | > | .CONST 0x013e ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0013 | | .CONST 0x0013 ; Number of locals
0123 INIT_0120:
0123 4802 |H | Short_Literal 0x2
0124 02cb | | Declare_Variable Entry
0125 4802 |H | Short_Literal 0x2
0126 02cb | | Declare_Variable Entry
0127 4804 |H | Short_Literal 0x4
0128 02cb | | Declare_Variable Entry
0129 4800 |H | Short_Literal 0x0
012a 02cb | | Declare_Variable Entry
012b 00bf | | Action Accept_Activation
012c e001 | | Load 0x0,0x1
012d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
012e 0322 | " | Declare_Variable Record
012f e002 | | Load 0x0,0x2
0130 480f 482c |H H,| Declare_Variable Select 0x000, 0x004,
0132 480e 482f |H H/| [0x000]: 0x001 = 0x0008,
0134 480d 4831 |H H1| [0x010]: 0x034 = 0x01a0,
0136 4810 4834 |H H4| [0x00d]: 0x031 = 0x0188,
0138 4800 4801 |H H | [0x00e]: 0x02f = 0x0178,
013a 4800 4804 |H H | [0x00f]: 0x02c = 0x0160
013c 02cf | |
013d 00bc | | Action Signal_Activated
013e BODY_0120:
013e 00da | | Load_Top At_Offset_2
013f e001 | | Load 0x0,0x1
0140 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0141 00d1 | | Pop_Control Pop_Count_1
0142 00cf | | Action Mark_Auxiliary
0143 0007 | | Action Break_Optional
0144 00d9 | | Load_Top At_Offset_1
0145 013f | ? | Execute Select,Rendezvous
0146 4604 |F | Jump_Case 0x5
0147 7803 |x | Jump 0x14b ; case 0x0
0148 7808 |x | Jump 0x151 ; case 0x1
0149 780d |x | Jump 0x157 ; case 0x2
014a 7811 |x | Jump 0x15c ; case 0x3
014b 00db | | Load_Top At_Offset_3 ; case 0x4
014c 00db | | Load_Top At_Offset_3
014d e001 | | Load 0x0,0x1
014e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
014f 00d1 | | Pop_Control Pop_Count_1
0150 780b |x | Jump 0x15c
0151 00db | | Load_Top At_Offset_3
0152 00db | | Load_Top At_Offset_3
0153 e001 | | Load 0x0,0x1
0154 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0155 00d1 | | Pop_Control Pop_Count_1
0156 7805 |x | Jump 0x15c
0157 00db | | Load_Top At_Offset_3
0158 00db | | Load_Top At_Offset_3
0159 e001 | | Load 0x0,0x1
015a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
015b 00d1 | | Pop_Control Pop_Count_1
015c 00c9 | | Action Pop_Auxiliary_Loop
015d 7fe6 | | Jump 0x144
015e 0000 0000 | | .XXX[0x2]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; See instruction 0x02cf at 0x130, index=0xf
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 4802 |H | Short_Literal 0x2
0164 e003 | | Load 0x0,0x3
0165 1c08 | | Execute_Immediate Run_Utility,0x8
0166 e5fe | | Load 0x2,-0x2
0167 00d9 | | Load_Top At_Offset_1
0168 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0169 e5fd | | Load 0x2,-0x3
016a 00d9 | | Load_Top At_Offset_1
016b 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
016c e5fc | | Load 0x2,-0x4
016d 00d9 | | Load_Top At_Offset_1
016e 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
016f e5fb | | Load 0x2,-0x5
0170 00d9 | | Load_Top At_Offset_1
0171 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0172 e002 | | Load 0x0,0x2
0173 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0174 a212 | | Store_Unchecked 0x1,0x12
0175 4100 |A | End_Rendezvous 0x0
0176 0000 0000 | | .XXX[0x2]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; See instruction 0x02cf at 0x130, index=0xe
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 4801 |H | Short_Literal 0x1
017c e003 | | Load 0x0,0x3
017d 1c08 | | Execute_Immediate Run_Utility,0x8
017e e5fe | | Load 0x2,-0x2
017f 00d9 | | Load_Top At_Offset_1
0180 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0181 e5fd | | Load 0x2,-0x3
0182 00d9 | | Load_Top At_Offset_1
0183 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0184 e002 | | Load 0x0,0x2
0185 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0186 a212 | | Store_Unchecked 0x1,0x12
0187 4100 |A | End_Rendezvous 0x0
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; See instruction 0x02cf at 0x130, index=0xd
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 4800 |H | Short_Literal 0x0
018c e003 | | Load 0x0,0x3
018d 1c08 | | Execute_Immediate Run_Utility,0x8
018e e5fe | | Load 0x2,-0x2
018f 00d9 | | Load_Top At_Offset_1
0190 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0191 e5fd | | Load 0x2,-0x3
0192 00d9 | | Load_Top At_Offset_1
0193 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0194 e002 | | Load 0x0,0x2
0195 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0196 a212 | | Store_Unchecked 0x1,0x12
0197 0008 | | Action Idle
0198 4100 |A | End_Rendezvous 0x0
0199 0000 0000 | | .BLANK 0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; See instruction 0x02cf at 0x130, index=0x10
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00cf | | Action Mark_Auxiliary
01a4 7867 |xg | Jump 0x20c
01a5 e211 | | Load 0x1,0x11
01a6 e001 | | Load 0x0,0x1
01a7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01a8 a212 | | Store_Unchecked 0x1,0x12
01a9 e212 | | Load 0x1,0x12
01aa 0227 | ' | Execute Access,All_Reference
01ab 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01ac 4603 |F | Jump_Case 0x4
01ad 7805 |x | Jump 0x1b3 ; case 0x0
01ae 7806 |x | Jump 0x1b5 ; case 0x1
01af 781e |x | Jump 0x1ce ; case 0x2
01b0 7800 |x | Jump 0x1b1 ; case 0x3
01b1 0008 | | Action Idle
01b2 7854 |xT | Jump 0x207
01b3 0008 | | Action Idle
01b4 7852 |xR | Jump 0x207
01b5 e212 | | Load 0x1,0x12
01b6 0227 | ' | Execute Access,All_Reference
01b7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01b8 4603 |F | Jump_Case 0x4
01b9 780a |x | Jump 0x1c4 ; case 0x0
01ba 7804 |x | Jump 0x1bf ; case 0x1
01bb 780d |x | Jump 0x1c9 ; case 0x2
01bc 7800 |x | Jump 0x1bd ; case 0x3
01bd 0008 | | Action Idle
01be 7848 |xH | Jump 0x207
01bf e212 | | Load 0x1,0x12
01c0 0227 | ' | Execute Access,All_Reference
01c1 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01c2 8004 | | Call 0x0,0x4
01c3 7843 |xC | Jump 0x207
01c4 e212 | | Load 0x1,0x12
01c5 0227 | ' | Execute Access,All_Reference
01c6 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01c7 8005 | | Call 0x0,0x5
01c8 783e |x> | Jump 0x207
01c9 e212 | | Load 0x1,0x12
01ca 0227 | ' | Execute Access,All_Reference
01cb 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01cc 8006 | | Call 0x0,0x6
01cd 7839 |x9 | Jump 0x207
01ce e212 | | Load 0x1,0x12
01cf 0227 | ' | Execute Access,All_Reference
01d0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01d1 4603 |F | Jump_Case 0x4
01d2 7815 |x | Jump 0x1e8 ; case 0x0
01d3 7804 |x | Jump 0x1d8 ; case 0x1
01d4 7823 |x# | Jump 0x1f8 ; case 0x2
01d5 7800 |x | Jump 0x1d6 ; case 0x3
01d6 0008 | | Action Idle
01d7 782f |x/ | Jump 0x207
01d8 e212 | | Load 0x1,0x12
01d9 0227 | ' | Execute Access,All_Reference
01da 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
01db e212 | | Load 0x1,0x12
01dc 0227 | ' | Execute Access,All_Reference
01dd 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
01de 00d8 | | Load_Top At_Offset_0
01df e007 | | Load 0x0,0x7
01e0 0260 | ` | Execute Discrete,In_Type
01e1 7001 |p | Jump_Nonzero 0x1e3
01e2 0801 | | Execute_Immediate Raise,0x1
01e3 e212 | | Load 0x1,0x12
01e4 0227 | ' | Execute Access,All_Reference
01e5 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
01e6 8008 | | Call 0x0,0x8
01e7 781f |x | Jump 0x207
01e8 e212 | | Load 0x1,0x12
01e9 0227 | ' | Execute Access,All_Reference
01ea 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
01eb e212 | | Load 0x1,0x12
01ec 0227 | ' | Execute Access,All_Reference
01ed 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
01ee 00d8 | | Load_Top At_Offset_0
01ef e009 | | Load 0x0,0x9
01f0 0260 | ` | Execute Discrete,In_Type
01f1 7001 |p | Jump_Nonzero 0x1f3
01f2 0801 | | Execute_Immediate Raise,0x1
01f3 e212 | | Load 0x1,0x12
01f4 0227 | ' | Execute Access,All_Reference
01f5 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
01f6 800a | | Call 0x0,0xa
01f7 780f |x | Jump 0x207
01f8 e212 | | Load 0x1,0x12
01f9 0227 | ' | Execute Access,All_Reference
01fa 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
01fb e212 | | Load 0x1,0x12
01fc 0227 | ' | Execute Access,All_Reference
01fd 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
01fe 00d8 | | Load_Top At_Offset_0
01ff e00b | | Load 0x0,0xb
0200 0260 | ` | Execute Discrete,In_Type
0201 7001 |p | Jump_Nonzero 0x203
0202 0801 | | Execute_Immediate Raise,0x1
0203 e212 | | Load 0x1,0x12
0204 0227 | ' | Execute Access,All_Reference
0205 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0206 800c | | Call 0x0,0xc
0207 e211 | | Load 0x1,0x11
0208 e001 | | Load 0x0,0x1
0209 1816 | | Execute Package,Field_Execute,Field_Number 0x16
020a 00d1 | | Pop_Control Pop_Count_1
020b 00c9 | | Action Pop_Auxiliary_Loop
020c e211 | | Load 0x1,0x11
020d e001 | | Load 0x0,0x1
020e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
020f 6f95 |o | Jump_Zero 0x1a5
0210 4100 |A | End_Rendezvous 0x0
0211 ; --------------------------------------------------------------------------------------
0211 ; STRING TABLE
0211 ; --------------------------------------------------------------------------------------
0211 000a | | .STRTAB 0x000a->0x0216 ; "ADD"
0212 000b | | .STRTAB 0x000b->0x0217 ; "DELETE"
0213 000f | | .STRTAB 0x000f->0x021a ; "CHANGE"
0214 0013 | | .STRTAB 0x0013->0x021d ; "UNKNOWN"
0215 0018 | | .STREND 0x0018->0x0221
0216 4144 4444 |ADDD| .STRTAB_STRINGS
0221 0000 0000 | | .BLANK 0000[0x7]
0228 ; --------------------------------------------------------------------------------------
0228 ; Debug Table
0228 ; --------------------------------------------------------------------------------------
0228 0004 0009 | | .DEBUG4 0x0004,0x0009,0x0eb1,0x0000,0x0001,0x000e
022e 000b 0266 | f| .DBG4T 0x000b,0x0266,0x8000,0x0000
0232 0012 026b | k| .DBG4T 0x0012,0x026b,0x8000,0x0000
0236 005b 0277 | [ w| .DBG4T 0x005b,0x0277,0x0001,0x0000
023a 006b 027a | k z| .DBG4T 0x006b,0x027a,0x0001,0x0000
023e 007b 027d | { }| .DBG4T 0x007b,0x027d,0x0001,0x0000
0242 0083 0000 | | .DBG4T 0x0083,0x0000,0x0005,0x0000
0246 00ab 0000 | | .DBG4T 0x00ab,0x0000,0x0005,0x0000
024a 0113 0280 | | .DBG4T 0x0113,0x0280,0x0001,0x0000
024e 0123 0283 | # | .DBG4T 0x0123,0x0283,0x0000,0x0000
0252 012c 0289 | , | .DBG4T 0x012c,0x0289,0x0000,0x4000
0256 0163 0299 | c | .DBG4T 0x0163,0x0299,0x0003,0x0000
025a 017b 029c | { | .DBG4T 0x017b,0x029c,0x0003,0x0000
025e 018b 029f | | .DBG4T 0x018b,0x029f,0x0003,0x0000
0262 01a3 02a3 | | .DBG4T 0x01a3,0x02a3,0x0003,0x4000
0266 ; --------------------------------------------------------------------------------------
0266 ; Debug chain
0266 ; --------------------------------------------------------------------------------------
0266 0003 0000 | | .DBGLEN 0x0003,0x0000
0268 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f
026b ; --------------------------------------------------------------------------------------
026b ; Debug chain
026b ; --------------------------------------------------------------------------------------
026b 000a 0000 | | .DBGLEN 0x000a,0x0000
026d 0012 0017 | | .DBGLNO 0x0012,0x0017,0x0029,0x002d,0x0034,0x003a,0x004a,0x004c,0x004e,0x0050
0277 ; --------------------------------------------------------------------------------------
0277 ; Debug chain
0277 ; --------------------------------------------------------------------------------------
0277 0000 0001 | | .DBGLEN 0x0000,0x0001
0279 005b | [ | .DBGLNO 0x005b
027a ; --------------------------------------------------------------------------------------
027a ; Debug chain
027a ; --------------------------------------------------------------------------------------
027a 0000 0001 | | .DBGLEN 0x0000,0x0001
027c 006b | k | .DBGLNO 0x006b
027d ; --------------------------------------------------------------------------------------
027d ; Debug chain
027d ; --------------------------------------------------------------------------------------
027d 0000 0001 | | .DBGLEN 0x0000,0x0001
027f 007b | { | .DBGLNO 0x007b
0280 ; --------------------------------------------------------------------------------------
0280 ; Debug chain
0280 ; --------------------------------------------------------------------------------------
0280 0000 0001 | | .DBGLEN 0x0000,0x0001
0282 0113 | | .DBGLNO 0x0113
0283 ; --------------------------------------------------------------------------------------
0283 ; Debug chain
0283 ; --------------------------------------------------------------------------------------
0283 0004 0000 | | .DBGLEN 0x0004,0x0000
0285 0123 0125 | # %| .DBGLNO 0x0123,0x0125,0x0127,0x0129
0289 ; --------------------------------------------------------------------------------------
0289 ; Debug chain
0289 ; --------------------------------------------------------------------------------------
0289 0002 0006 | | .DBGLEN 0x0002,0x0006
028b 012c 012f | , /| .DBGLNO 0x012c,0x012f,0x013e,0x0143,0x0144,0x014b,0x0151,0x0157
0293 0001 0002 | | .XXX[0x6]
0295 0003 000a | |
0297 0008 0006 | |
0299 ; --------------------------------------------------------------------------------------
0299 ; Debug chain
0299 ; --------------------------------------------------------------------------------------
0299 0000 0001 | | .DBGLEN 0x0000,0x0001
029b 0163 | c | .DBGLNO 0x0163
029c ; --------------------------------------------------------------------------------------
029c ; Debug chain
029c ; --------------------------------------------------------------------------------------
029c 0000 0001 | | .DBGLEN 0x0000,0x0001
029e 017b | { | .DBGLNO 0x017b
029f ; --------------------------------------------------------------------------------------
029f ; Debug chain
029f ; --------------------------------------------------------------------------------------
029f 0000 0002 | | .DBGLEN 0x0000,0x0002
02a1 018b 0197 | | .DBGLNO 0x018b,0x0197
02a3 ; --------------------------------------------------------------------------------------
02a3 ; Debug chain
02a3 ; --------------------------------------------------------------------------------------
02a3 0000 0010 | | .DBGLEN 0x0000,0x0010
02a5 01a5 01a9 | | .DBGLNO 0x01a5,0x01a9,0x01b1,0x01b3,0x01b5,0x01bd,0x01bf,0x01c4,0x01c9,0x01ce,0x01d6,0x01d8,0x01e8,0x01f8,0x0207,0x020c
02b5 0002 0003 | | .XXX[0x10]
02b7 000f 0004 | |
02b9 0005 0009 | |
02bb 0006 0007 | |
02bd 0008 000a | |
02bf 000e 000b | |
02c1 000c 000d | |
02c3 0010 0001 | |
02c5 0000 0000 | | .BLANK 0000[0x13b]