|
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]