|
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_5518c3
└─⟦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 0218 | | .CONST 0x0218 ; 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 0x1a6, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 0050 | P | .CONST 0x0050 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4803 |H | Short_Literal 0x3
000d 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4800 |H | Short_Literal 0x0
0011 4801 |H | Short_Literal 0x1
0012 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
0014 03fe | | Declare_Type Discrete,Defined,Visible
0015 4800 |H | Short_Literal 0x0
0016 0093 0133 | 3| push_full_address INIT_0130
0018 00f5 | | Load_Encached Unused21
0019 037b | { | Declare_Type Task,Defined,Visible,Not_Elaborated
001a 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
001c 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
001e 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0020 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0022 e20d | | Load 0x1,0xd
0023 0266 | f | Execute Discrete,Bounds
0024 00e7 | | Load_Encached Duration_Cache
0025 02a0 | | Declare_Subprogram Null_Subprogram
0026 4801 |H | Short_Literal 0x1
0027 035e | ^ | Declare_Type Array,Defined,Visible
0028 00d8 | | Load_Top At_Offset_0
0029 e20d | | Load 0x1,0xd
002a e20e | | Load 0x1,0xe
002b 00e3 | | Load_Encached Natural_Cache
002c 00e1 | | Load_Encached Boolean_Cache
002d 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
002f 4805 |H | Short_Literal 0x5
0030 032e | . | Declare_Type Record,Defined,Visible
0031 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0033 00bf | | Action Accept_Activation
0034 4800 |H | Short_Literal 0x0
0035 0093 01a3 | | push_full_address INIT_01a0
0037 00f5 | | Load_Encached Unused21
0038 037d | } | Declare_Type Task,Defined
0039 036f | o | Declare_Variable Task
003a e002 | | Load 0x0,0x2
003b 4801 |H | Short_Literal 0x1
003c 00da | | Load_Top At_Offset_2
003d 020e | | Execute Module,Augment_Imports
003e 0007 | | Action Break_Optional
003f 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0040 00c7 | | Action Elaborate_Subprogram
0041 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0042 00c7 | | Action Elaborate_Subprogram
0043 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0044 00c7 | | Action Elaborate_Subprogram
0045 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0046 00c7 | | Action Elaborate_Subprogram
0047 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0048 00c7 | | Action Elaborate_Subprogram
0049 00da | | Load_Top At_Offset_2
004a 1d16 | | Execute_Immediate Reference_Lex_1,0x16
004b 4802 |H | Short_Literal 0x2
004c e20f | | Load 0x1,0xf
004d 020e | | Execute Module,Augment_Imports
004e e20f | | Load 0x1,0xf
004f 020d | | Execute Module,Elaborate
0050 BODY_0008:
0050 BODY_0008:
0050 00be | | Action Activate_Tasks
0051 00bc | | Action Signal_Activated
0052 00bb | | Action Signal_Completion
0053 0000 0000 | | .BLANK 0000[0x5]
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 4607 |F | Jump_Case 0x8
005c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
005d 7807 |x | Jump 0x65 ; case 0x1
005e 780a |x | Jump 0x69 ; case 0x2
005f 780e |x | Jump 0x6e ; case 0x3
0060 7811 |x | Jump 0x72 ; case 0x4
0061 7812 |x | Jump 0x74 ; case 0x5
0062 7813 |x | Jump 0x76 ; case 0x6
0063 7816 |x | Jump 0x7a ; case 0x7
0064 4302 |C | .XXX[0x1]
0065 00da | | Load_Top At_Offset_2
0066 0091 01de | | Action Push_String_Extended_Indexed,0x1de ; "ROUGE"
0068 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0069 00db | | Load_Top At_Offset_3
006a 00db | | Load_Top At_Offset_3
006b 00e0 | | Load_Encached Standard_Cache
006c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
006d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
006e 00da | | Load_Top At_Offset_2
006f 00e0 | | Load_Encached Standard_Cache
0070 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0071 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0072 00db | | Load_Top At_Offset_3
0073 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0074 00db | | Load_Top At_Offset_3
0075 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0076 e20d | | Load 0x1,0xd
0077 00dc | | Load_Top At_Offset_4
0078 0267 | g | Execute Discrete,Predecessor
0079 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
007a e20d | | Load 0x1,0xd
007b 00dc | | Load_Top At_Offset_4
007c 0268 | h | Execute Discrete,Successor
007d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
007e 0000 0000 | | .XXX[0x2]
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 01e2 | | Action Push_String_Extended_Indexed,0x1e2 ; "JOUR"
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 e20e | | Load 0x1,0xe
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 e20e | | Load 0x1,0xe
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 4800 |H | Short_Literal 0x0
00ac 00db | | Load_Top At_Offset_3
00ad 170d | | Execute Task,Entry_Call,Field_Number 0xd
00ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00af 0000 | | .XXX[0x1]
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 00db | | Load_Top At_Offset_3
00b4 4801 |H | Short_Literal 0x1
00b5 e5ff | | Load 0x2,-0x1
00b6 170f | | Execute Task,Entry_Call,Field_Number 0xf
00b7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00db | | Load_Top At_Offset_3
00bc 4801 |H | Short_Literal 0x1
00bd e5ff | | Load 0x2,-0x1
00be 170e | | Execute Task,Entry_Call,Field_Number 0xe
00bf 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 e5fd | | Load 0x2,-0x3
00c4 e5fe | | Load 0x2,-0x2
00c5 4802 |H | Short_Literal 0x2
00c6 e5ff | | Load 0x2,-0x1
00c7 1710 | | Execute Task,Entry_Call,Field_Number 0x10
00c8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00c9 0000 0000 | | .BLANK 0000[0x7]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 00db | | Load_Top At_Offset_3
00d4 700f |p | Jump_Nonzero 0xe4
00d5 e5fd | | Load 0x2,-0x3
00d6 4603 |F | Jump_Case 0x4
00d7 7806 |x | Jump 0xde ; case 0x0
00d8 7808 |x | Jump 0xe1 ; case 0x1
00d9 7807 |x | Jump 0xe1 ; case 0x2
00da 7800 |x | Jump 0xdb ; case 0x3
00db 4801 |H | Short_Literal 0x1
00dc a5fd | | Store_Unchecked 0x2,-0x3
00dd 7808 |x | Jump 0xe6
00de 4803 |H | Short_Literal 0x3
00df a5fd | | Store_Unchecked 0x2,-0x3
00e0 7805 |x | Jump 0xe6
00e1 4800 |H | Short_Literal 0x0
00e2 a5fd | | Store_Unchecked 0x2,-0x3
00e3 7802 |x | Jump 0xe6
00e4 4802 |H | Short_Literal 0x2
00e5 a5fd | | Store_Unchecked 0x2,-0x3
00e6 e5fd | | Load 0x2,-0x3
00e7 00db | | Load_Top At_Offset_3
00e8 4802 |H | Short_Literal 0x2
00e9 e217 | | Load 0x1,0x17
00ea 170d | | Execute Task,Entry_Call,Field_Number 0xd
00eb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ec 0000 0000 | | .BLANK 0000[0x4]
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 4601 |F | Jump_Case 0x2
00f4 7801 |x | Jump 0xf6 ; case 0x0
00f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00f6 e215 | | Load 0x1,0x15
00f7 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
00f8 0337 | 7 | Declare_Variable Array
00f9 6032 |`2 | Indirect_Literal Discrete,0x12c,{0x00000000, 0x00040000}
00fa 4800 |H | Short_Literal 0x0
00fb 00da | | Load_Top At_Offset_2
00fc 01d6 | | Execute Vector,Field_Write
00fd 602a |`* | Indirect_Literal Discrete,0x128,{0x00000000, 0x00020000}
00fe 4801 |H | Short_Literal 0x1
00ff 00da | | Load_Top At_Offset_2
0100 01d6 | | Execute Vector,Field_Write
0101 6022 |`" | Indirect_Literal Discrete,0x124,{0x00000000, 0x00030000}
0102 4803 |H | Short_Literal 0x3
0103 00da | | Load_Top At_Offset_2
0104 01d6 | | Execute Vector,Field_Write
0105 601a |` | Indirect_Literal Discrete,0x120,{0x00000000, 0x001e0000}
0106 4802 |H | Short_Literal 0x2
0107 00da | | Load_Top At_Offset_2
0108 01d6 | | Execute Vector,Field_Write
0109 00db | | Load_Top At_Offset_3
010a 00d9 | | Load_Top At_Offset_1
010b 00d9 | | Load_Top At_Offset_1
010c 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
010d 0119 | | Execute Any,Check_In_Formal_Type
010e 00d1 | | Pop_Control Pop_Count_1
010f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0110 4800 |H | Short_Literal 0x0
0111 00db | | Load_Top At_Offset_3
0112 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0113 4800 |H | Short_Literal 0x0
0114 00db | | Load_Top At_Offset_3
0115 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0116 4801 |H | Short_Literal 0x1
0117 00db | | Load_Top At_Offset_3
0118 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0119 4801 |H | Short_Literal 0x1
011a 00db | | Load_Top At_Offset_3
011b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
011c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
011d 0000 0000 | | .XXX[0x3]
011f 0000 | |
0120 0000 0000 | | .LITERAL {0x00000000, 0x001e0000}
0124 0000 0000 | | .LITERAL {0x00000000, 0x00030000}
0128 0000 0000 | | .LITERAL {0x00000000, 0x00020000}
012c 0000 0000 | | .LITERAL {0x00000000, 0x00040000}
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 014e | N | .CONST 0x014e ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0012 | | .CONST 0x0012 ; Number of locals
0133 INIT_0130:
0133 4800 |H | Short_Literal 0x0
0134 02cb | | Declare_Variable Entry
0135 4801 |H | Short_Literal 0x1
0136 02cb | | Declare_Variable Entry
0137 4801 |H | Short_Literal 0x1
0138 02cb | | Declare_Variable Entry
0139 4802 |H | Short_Literal 0x2
013a 02cb | | Declare_Variable Entry
013b 00bf | | Action Accept_Activation
013c e001 | | Load 0x0,0x1
013d 0322 | " | Declare_Variable Record
013e 00d8 | | Load_Top At_Offset_0
013f 1c00 | | Execute_Immediate Run_Utility,0x0
0140 4810 482f |H H/| Declare_Variable Select 0x000, 0x004,
0142 480f 4831 |H H1| [0x001]: 0x000 = 0x0000,
0144 480e 4832 |H H2| [0x00d]: 0x033 = 0x0198,
0146 480d 4833 |H H3| [0x00e]: 0x032 = 0x0190,
0148 4801 4800 |H H | [0x00f]: 0x031 = 0x0188,
014a 4800 4804 |H H | [0x010]: 0x02f = 0x0178
014c 02cf | |
014d 00bc | | Action Signal_Activated
014e BODY_0130:
014e 00cf | | Action Mark_Auxiliary
014f 781c |x | Jump 0x16c
0150 00d9 | | Load_Top At_Offset_1
0151 013f | ? | Execute Select,Rendezvous
0152 4605 |F | Jump_Case 0x6
0153 7817 |x | Jump 0x16b ; case 0x0
0154 7816 |x | Jump 0x16b ; case 0x1
0155 7815 |x | Jump 0x16b ; case 0x2
0156 7814 |x | Jump 0x16b ; case 0x3
0157 7800 |x | Jump 0x158 ; case 0x4
0158 00da | | Load_Top At_Offset_2 ; case 0x5
0159 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
015a 0f01 | | Execute_Immediate Equal,0x1
015b 680f |h | Jump_Zero 0x16b
015c 00da | | Load_Top At_Offset_2
015d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
015e 00db | | Load_Top At_Offset_3
015f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0160 01d7 | | Execute Vector,Field_Read
0161 00ba | | Action Initiate_Delay
0162 00da | | Load_Top At_Offset_2
0163 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0164 00db | | Load_Top At_Offset_3
0165 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0166 e211 | | Load 0x1,0x11
0167 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0168 8002 | | Call 0x0,0x2
0169 00db | | Load_Top At_Offset_3
016a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
016b 00c9 | | Action Pop_Auxiliary_Loop
016c 00da | | Load_Top At_Offset_2
016d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
016e 0f01 | | Execute_Immediate Equal,0x1
016f 77e0 |w | Jump_Nonzero 0x150
0170 00ce | | Action Pop_Auxiliary
0171 00bb | | Action Signal_Completion
0172 0000 0000 | | .BLANK 0000[0x6]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; See instruction 0x02cf at 0x140, index=0x10
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 e5fd | | Load 0x2,-0x3
017c e5fe | | Load 0x2,-0x2
017d e211 | | Load 0x1,0x11
017e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
017f 01d6 | | Execute Vector,Field_Write
0180 4100 |A | End_Rendezvous 0x0
0181 0000 0000 | | .BLANK 0000[0x7]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; See instruction 0x02cf at 0x140, index=0xf
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 00db | | Load_Top At_Offset_3
018c e211 | | Load 0x1,0x11
018d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
018e 4100 |A | End_Rendezvous 0x0
018f 0000 | | .XXX[0x1]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; See instruction 0x02cf at 0x140, index=0xe
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00db | | Load_Top At_Offset_3
0194 e211 | | Load 0x1,0x11
0195 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0196 4100 |A | End_Rendezvous 0x0
0197 0000 | | .XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; See instruction 0x02cf at 0x140, index=0xd
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 4800 |H | Short_Literal 0x0
019c e211 | | Load 0x1,0x11
019d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
019e 4100 |A | End_Rendezvous 0x0
019f 0000 | | .XXX[0x1]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01ae | | .CONST 0x01ae ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 000e | | .CONST 0x000e ; Number of locals
01a3 INIT_01a0:
01a3 4802 |H | Short_Literal 0x2
01a4 02cb | | Declare_Variable Entry
01a5 00bf | | Action Accept_Activation
01a6 480d 4837 |H H7| Declare_Variable Select 0x000, 0x001,
01a8 4800 4801 |H H | [0x000]: 0x001 = 0x0008,
01aa 4800 4801 |H H | [0x00d]: 0x037 = 0x01b8
01ac 02cf | |
01ad 00bc | | Action Signal_Activated
01ae BODY_01a0:
01ae 00cf | | Action Mark_Auxiliary
01af 00d9 | | Load_Top At_Offset_1
01b0 013f | ? | Execute Select,Rendezvous
01b1 00d1 | | Pop_Control Pop_Count_1
01b2 00c9 | | Action Pop_Auxiliary_Loop
01b3 7ffb | | Jump 0x1af
01b4 0000 0000 | | .BLANK 0000[0x4]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; See instruction 0x02cf at 0x1a6, index=0xd
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 0092 01e4 | | Action Push_String_Extended,0x1e4 ; "feu "
01bd e001 | | Load 0x0,0x1
01be 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01bf 00db | | Load_Top At_Offset_3
01c0 00e0 | | Load_Encached Standard_Cache
01c1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01c2 e001 | | Load 0x0,0x1
01c3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01c4 e5fd | | Load 0x2,-0x3
01c5 4603 |F | Jump_Case 0x4
01c6 7808 |x | Jump 0x1cf ; case 0x0
01c7 780c |x | Jump 0x1d4 ; case 0x1
01c8 7810 |x | Jump 0x1d9 ; case 0x2
01c9 7800 |x | Jump 0x1ca ; case 0x3
01ca 0092 01e5 | | Action Push_String_Extended,0x1e5 ; " vert"
01cc e001 | | Load 0x0,0x1
01cd 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01ce 4100 |A | End_Rendezvous 0x0
01cf 0092 01e6 | | Action Push_String_Extended,0x1e6 ; " rouge"
01d1 e001 | | Load 0x0,0x1
01d2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01d3 4100 |A | End_Rendezvous 0x0
01d4 0092 01e7 | | Action Push_String_Extended,0x1e7 ; " orange"
01d6 e001 | | Load 0x0,0x1
01d7 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01d8 4100 |A | End_Rendezvous 0x0
01d9 0092 01e8 | | Action Push_String_Extended,0x1e8 ; " orange clignotant"
01db e001 | | Load 0x0,0x1
01dc 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01dd 4100 |A | End_Rendezvous 0x0
01de ; --------------------------------------------------------------------------------------
01de ; STRING TABLE
01de ; --------------------------------------------------------------------------------------
01de 0018 | | .STRTAB 0x0018->0x01ea ; "ROUGE"
01df 001b | | .STRTAB 0x001b->0x01ec ; "ORANGE"
01e0 001f | | .STRTAB 0x001f->0x01ef ; "ORANGE_CLIGNOTANT"
01e1 002e | . | .STRTAB 0x002e->0x01f8 ; "VERT"
01e2 0030 | 0 | .STRTAB 0x0030->0x01fa ; "JOUR"
01e3 0032 | 2 | .STRTAB 0x0032->0x01fc ; "NUIT"
01e4 0034 | 4 | .STRTAB 0x0034->0x01fe ; "feu "
01e5 0036 | 6 | .STRTAB 0x0036->0x0200 ; " vert"
01e6 0039 | 9 | .STRTAB 0x0039->0x0202 ; " rouge"
01e7 003d | = | .STRTAB 0x003d->0x0205 ; " orange"
01e8 0042 | B | .STRTAB 0x0042->0x0209 ; " orange clignotant"
01e9 0052 | R | .STREND 0x0052->0x0212
01ea 524f 5547 |ROUG| .STRTAB_STRINGS
0212 0000 0000 | | .BLANK 0000[0x6]
0218 ; --------------------------------------------------------------------------------------
0218 ; Debug Table
0218 ; --------------------------------------------------------------------------------------
0218 0004 000a | | .DEBUG4 0x0004,0x000a,0xdc71,0x0000,0x0001,0x0013
021e 000b 026a | j| .DBG4T 0x000b,0x026a,0x8000,0x8000
0222 0034 0280 | 4 | .DBG4T 0x0034,0x0280,0x8000,0x0000
0226 005b 0000 | [ | .DBG4T 0x005b,0x0000,0x0005,0x0000
022a 0083 0000 | | .DBG4T 0x0083,0x0000,0x0005,0x0000
022e 00ab 028a | | .DBG4T 0x00ab,0x028a,0x0001,0x0000
0232 00b3 028d | | .DBG4T 0x00b3,0x028d,0x0001,0x0000
0236 00bb 0290 | | .DBG4T 0x00bb,0x0290,0x0001,0x0000
023a 00c3 0293 | | .DBG4T 0x00c3,0x0293,0x0001,0x0000
023e 00d3 0296 | | .DBG4T 0x00d3,0x0296,0x0001,0x4000
0242 00f3 0000 | | .DBG4T 0x00f3,0x0000,0x0005,0x0000
0246 0133 02a6 | 3 | .DBG4T 0x0133,0x02a6,0x0000,0x0000
024a 013c 02ac | < | .DBG4T 0x013c,0x02ac,0x0000,0x4000
024e 017b 02b9 | { | .DBG4T 0x017b,0x02b9,0x0003,0x0000
0252 018b 02bc | | .DBG4T 0x018b,0x02bc,0x0003,0x0000
0256 0193 02bf | | .DBG4T 0x0193,0x02bf,0x0003,0x0000
025a 019b 02c2 | | .DBG4T 0x019b,0x02c2,0x0003,0x0000
025e 01a3 02c5 | | .DBG4T 0x01a3,0x02c5,0x0000,0x0000
0262 01a6 02c8 | | .DBG4T 0x01a6,0x02c8,0x0000,0x4000
0266 01bb 02cc | | .DBG4T 0x01bb,0x02cc,0x0003,0x4000
026a ; --------------------------------------------------------------------------------------
026a ; Debug chain
026a ; --------------------------------------------------------------------------------------
026a 000a 0000 | | .DBGLEN 0x000a,0x0000
026c 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x001a,0x001c,0x001e,0x0020,0x0022,0x0028,0x0031
0276 0001 0002 | | .XXX[0xa]
0278 0003 0004 | |
027a 0005 0006 | |
027c 0007 0008 | |
027e 0009 000b | |
0280 ; --------------------------------------------------------------------------------------
0280 ; Debug chain
0280 ; --------------------------------------------------------------------------------------
0280 0008 0000 | | .DBGLEN 0x0008,0x0000
0282 0034 003a | 4 :| .DBGLNO 0x0034,0x003a,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049
028a ; --------------------------------------------------------------------------------------
028a ; Debug chain
028a ; --------------------------------------------------------------------------------------
028a 0000 0001 | | .DBGLEN 0x0000,0x0001
028c 00ab | | .DBGLNO 0x00ab
028d ; --------------------------------------------------------------------------------------
028d ; Debug chain
028d ; --------------------------------------------------------------------------------------
028d 0000 0001 | | .DBGLEN 0x0000,0x0001
028f 00b3 | | .DBGLNO 0x00b3
0290 ; --------------------------------------------------------------------------------------
0290 ; Debug chain
0290 ; --------------------------------------------------------------------------------------
0290 0000 0001 | | .DBGLEN 0x0000,0x0001
0292 00bb | | .DBGLNO 0x00bb
0293 ; --------------------------------------------------------------------------------------
0293 ; Debug chain
0293 ; --------------------------------------------------------------------------------------
0293 0000 0001 | | .DBGLEN 0x0000,0x0001
0295 00c3 | | .DBGLNO 0x00c3
0296 ; --------------------------------------------------------------------------------------
0296 ; Debug chain
0296 ; --------------------------------------------------------------------------------------
0296 0000 0007 | | .DBGLEN 0x0000,0x0007
0298 00d3 00d5 | | .DBGLNO 0x00d3,0x00d5,0x00db,0x00de,0x00e1,0x00e4,0x00e6
029f 0001 0002 | | .XXX[0x7]
02a1 0005 0003 | |
02a3 0004 0006 | |
02a5 0007 | |
02a6 ; --------------------------------------------------------------------------------------
02a6 ; Debug chain
02a6 ; --------------------------------------------------------------------------------------
02a6 0004 0000 | | .DBGLEN 0x0004,0x0000
02a8 0133 0135 | 3 5| .DBGLNO 0x0133,0x0135,0x0137,0x0139
02ac ; --------------------------------------------------------------------------------------
02ac ; Debug chain
02ac ; --------------------------------------------------------------------------------------
02ac 0001 0005 | | .DBGLEN 0x0001,0x0005
02ae 013c 0150 | < P| .DBGLNO 0x013c,0x0150,0x0158,0x015c,0x0162,0x016c
02b4 0002 0007 | | .XXX[0x5]
02b6 0008 0009 | |
02b8 0001 | |
02b9 ; --------------------------------------------------------------------------------------
02b9 ; Debug chain
02b9 ; --------------------------------------------------------------------------------------
02b9 0000 0001 | | .DBGLEN 0x0000,0x0001
02bb 017b | { | .DBGLNO 0x017b
02bc ; --------------------------------------------------------------------------------------
02bc ; Debug chain
02bc ; --------------------------------------------------------------------------------------
02bc 0000 0001 | | .DBGLEN 0x0000,0x0001
02be 018b | | .DBGLNO 0x018b
02bf ; --------------------------------------------------------------------------------------
02bf ; Debug chain
02bf ; --------------------------------------------------------------------------------------
02bf 0000 0001 | | .DBGLEN 0x0000,0x0001
02c1 0193 | | .DBGLNO 0x0193
02c2 ; --------------------------------------------------------------------------------------
02c2 ; Debug chain
02c2 ; --------------------------------------------------------------------------------------
02c2 0000 0001 | | .DBGLEN 0x0000,0x0001
02c4 019b | | .DBGLNO 0x019b
02c5 ; --------------------------------------------------------------------------------------
02c5 ; Debug chain
02c5 ; --------------------------------------------------------------------------------------
02c5 0001 0000 | | .DBGLEN 0x0001,0x0000
02c7 01a3 | | .DBGLNO 0x01a3
02c8 ; --------------------------------------------------------------------------------------
02c8 ; Debug chain
02c8 ; --------------------------------------------------------------------------------------
02c8 0000 0001 | | .DBGLEN 0x0000,0x0001
02ca 01af | | .DBGLNO 0x01af
02cb 0002 | | .XXX[0x1]
02cc ; --------------------------------------------------------------------------------------
02cc ; Debug chain
02cc ; --------------------------------------------------------------------------------------
02cc 0000 0007 | | .DBGLEN 0x0000,0x0007
02ce 01bb 01bf | | .DBGLNO 0x01bb,0x01bf,0x01c4,0x01ca,0x01cf,0x01d4,0x01d9
02d5 0001 0002 | | .XXX[0x7]
02d7 0003 0006 | |
02d9 0004 0005 | |
02db 0007 | |
02dc 0000 0000 | | .BLANK 0000[0x124]