|
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_0eacf9
└─⟦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 01d8 | | .CONST 0x01d8 ; 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 ; --------------------------------------------------------------------------------------
0008 0057 | W | .CONST 0x0057 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001e | | .CONST 0x001e ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4807 |H | Short_Literal 0x7
000d 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4800 |H | Short_Literal 0x0
0011 4807 |H | Short_Literal 0x7
0012 e002 | | Load 0x0,0x2
0013 03f9 | | Declare_Type Discrete,Constrained,Visible
0014 4800 |H | Short_Literal 0x0
0015 4817 |H | Short_Literal 0x17
0016 e002 | | Load 0x0,0x2
0017 03f9 | | Declare_Type Discrete,Constrained,Visible
0018 4800 |H | Short_Literal 0x0
0019 483b |H; | Short_Literal 0x3b
001a e002 | | Load 0x0,0x2
001b 03f9 | | Declare_Type Discrete,Constrained,Visible
001c 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
001e 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0020 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0022 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0024 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0026 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0028 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
002a 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
002c 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
002e 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0030 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0032 e20f | | Load 0x1,0xf
0033 e210 | | Load 0x1,0x10
0034 029f 0193 | | Declare_Subprogram INIT_0190,For_Call
0036 4802 |H | Short_Literal 0x2
0037 032e | . | Declare_Type Record,Defined,Visible
0038 e20e | | Load 0x1,0xe
0039 00d9 | | Load_Top At_Offset_1
003a 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call
003c 4802 |H | Short_Literal 0x2
003d 032e | . | Declare_Type Record,Defined,Visible
003e 00bf | | Action Accept_Activation
003f 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0040 00c7 | | Action Elaborate_Subprogram
0041 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0042 00c7 | | Action Elaborate_Subprogram
0043 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0044 00c7 | | Action Elaborate_Subprogram
0045 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0046 00c7 | | Action Elaborate_Subprogram
0047 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0048 00c7 | | Action Elaborate_Subprogram
0049 1d18 | | Execute_Immediate Reference_Lex_1,0x18
004a 00c7 | | Action Elaborate_Subprogram
004b 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call
004d 1d16 | | Execute_Immediate Reference_Lex_1,0x16
004e 00c7 | | Action Elaborate_Subprogram
004f 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0050 00c7 | | Action Elaborate_Subprogram
0051 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0052 00c7 | | Action Elaborate_Subprogram
0053 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0054 00c7 | | Action Elaborate_Subprogram
0055 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0056 00c7 | | Action Elaborate_Subprogram
0057 BODY_0008:
0057 00bc | | Action Signal_Activated
0058 00bb | | Action Signal_Completion
0059 0000 0000 | | .BLANK 0000[0x7]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 4607 |F | Jump_Case 0x8
0064 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0065 7807 |x | Jump 0x6d ; case 0x1
0066 780a |x | Jump 0x71 ; case 0x2
0067 780e |x | Jump 0x76 ; case 0x3
0068 7811 |x | Jump 0x7a ; case 0x4
0069 7812 |x | Jump 0x7c ; case 0x5
006a 7813 |x | Jump 0x7e ; case 0x6
006b 7816 |x | Jump 0x82 ; case 0x7
006c 4302 |C | .XXX[0x1]
006d 00da | | Load_Top At_Offset_2
006e 0091 01ad | | Action Push_String_Extended_Indexed,0x1ad ; "LE_36_DU_MOIS"
0070 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0071 00db | | Load_Top At_Offset_3
0072 00db | | Load_Top At_Offset_3
0073 00e0 | | Load_Encached Standard_Cache
0074 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0075 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0076 00da | | Load_Top At_Offset_2
0077 00e0 | | Load_Encached Standard_Cache
0078 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0079 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
007a 00db | | Load_Top At_Offset_3
007b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
007c 00db | | Load_Top At_Offset_3
007d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
007e e20d | | Load 0x1,0xd
007f 00dc | | Load_Top At_Offset_4
0080 0267 | g | Execute Discrete,Predecessor
0081 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0082 e20d | | Load 0x1,0xd
0083 00dc | | Load_Top At_Offset_4
0084 0268 | h | Execute Discrete,Successor
0085 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0086 0000 0000 | | .XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0093 | | .CONST 0x0093 ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0005 | | .CONST 0x0005 ; Number of locals
008b INIT_0088:
008b e003 | | Load 0x0,0x3
008c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
008d 0322 | " | Declare_Variable Record
008e e20f | | Load 0x1,0xf
008f 0007 | | Action Break_Optional
0090 e20e | | Load 0x1,0xe
0091 029f 0183 | | Declare_Subprogram INIT_0180,For_Call
0093 BODY_0088:
0093 e003 | | Load 0x0,0x3
0094 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0095 e402 | | Load 0x2,0x2
0096 017d | } | Execute Record,Structure_Write
0097 00db | | Load_Top At_Offset_3
0098 e003 | | Load 0x0,0x3
0099 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
009a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
009b 00db | | Load_Top At_Offset_3
009c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
009d 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
009e 8405 | | Call 0x2,0x5
009f 00db | | Load_Top At_Offset_3
00a0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00a1 00db | | Load_Top At_Offset_3
00a2 00db | | Load_Top At_Offset_3
00a3 8212 | | Call 0x1,0x12
00a4 00ca | | Action Exit_Nullary_Function
00a5 0000 0000 | | .XXX[0x3]
00a7 0000 | |
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 e21d | | Load 0x1,0x1d
00ac 0322 | " | Declare_Variable Record
00ad 00db | | Load_Top At_Offset_3
00ae 00d9 | | Load_Top At_Offset_1
00af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00b0 e5fd | | Load 0x2,-0x3
00b1 e5fe | | Load 0x2,-0x2
00b2 8213 | | Call 0x1,0x13
00b3 00d9 | | Load_Top At_Offset_1
00b4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00b5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00b6 0000 0000 | | .XXX[0x2]
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 e21c | | Load 0x1,0x1c
00bc 0322 | " | Declare_Variable Record
00bd 00db | | Load_Top At_Offset_3
00be 00d9 | | Load_Top At_Offset_1
00bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00c0 e5fe | | Load 0x2,-0x2
00c1 00d9 | | Load_Top At_Offset_1
00c2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00c3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00c4 0000 0000 | | .BLANK 0000[0x4]
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 e21d | | Load 0x1,0x1d
00cc 0322 | " | Declare_Variable Record
00cd 4800 |H | Short_Literal 0x0
00ce 00d9 | | Load_Top At_Offset_1
00cf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00d0 8215 | | Call 0x1,0x15
00d1 00d9 | | Load_Top At_Offset_1
00d2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00d3 00ca | | Action Exit_Nullary_Function
00d4 0000 0000 | | .BLANK 0000[0x4]
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 e21c | | Load 0x1,0x1c
00dc 0322 | " | Declare_Variable Record
00dd 4800 |H | Short_Literal 0x0
00de 00d9 | | Load_Top At_Offset_1
00df 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e0 4800 |H | Short_Literal 0x0
00e1 00d9 | | Load_Top At_Offset_1
00e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00e3 00ca | | Action Exit_Nullary_Function
00e4 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
00ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ed 821e | | Call 0x1,0x1e
00ee 0092 01b5 | | Action Push_String_Extended,0x1b5 ; " "
00f0 01cc | | Execute Vector,Catenate
00f1 00db | | Load_Top At_Offset_3
00f2 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00f3 8219 | | Call 0x1,0x19
00f4 01cc | | Execute Vector,Catenate
00f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f6 0000 0000 | | .XXX[0x2]
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 4801 |H | Short_Literal 0x1
00fc 4802 |H | Short_Literal 0x2
00fd e004 | | Load 0x0,0x4
00fe 035b | [ | Declare_Type Array,Constrained
00ff 0337 | 7 | Declare_Variable Array
0100 00db | | Load_Top At_Offset_3
0101 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0102 4801 |H | Short_Literal 0x1
0103 00da | | Load_Top At_Offset_2
0104 01d6 | | Execute Vector,Field_Write
0105 00db | | Load_Top At_Offset_3
0106 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0107 4802 |H | Short_Literal 0x2
0108 00da | | Load_Top At_Offset_2
0109 01d6 | | Execute Vector,Field_Write
010a e004 | | Load 0x0,0x4
010b 01c6 | | Execute Vector,Convert_To_Formal
010c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010d 0000 0000 | | .XXX[0x3]
010f 0000 | |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0120 | | .CONST 0x0120 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 e21c | | Load 0x1,0x1c
0114 0322 | " | Declare_Variable Record
0115 4801 |H | Short_Literal 0x1
0116 e5ff | | Load 0x2,-0x1
0117 01d7 | | Execute Vector,Field_Read
0118 00d9 | | Load_Top At_Offset_1
0119 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
011a 4802 |H | Short_Literal 0x2
011b e5ff | | Load 0x2,-0x1
011c 01d7 | | Execute Vector,Field_Read
011d 00d9 | | Load_Top At_Offset_1
011e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
011f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0120 TRAP_0110:
0120 010e | | Execute Exception,Is_Constraint_Error
0121 6802 |h | Jump_Zero 0x124
0122 8215 | | Call 0x1,0x15
0123 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0124 0100 | | Execute Exception,Raise
0125 0000 0000 | | .XXX[0x3]
0127 0000 | |
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 4830 |H0 | Short_Literal 0x30
012c 4802 |H | Short_Literal 0x2
012d 480a |H | Short_Literal 0xa
012e e5ff | | Load 0x2,-0x1
012f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0130 e005 | | Load 0x0,0x5
0131 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0132 0092 01b6 | | Action Push_String_Extended,0x1b6 ; ":"
0134 01cc | | Execute Vector,Catenate
0135 4830 |H0 | Short_Literal 0x30
0136 4802 |H | Short_Literal 0x2
0137 480a |H | Short_Literal 0xa
0138 e5ff | | Load 0x2,-0x1
0139 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
013a e005 | | Load 0x0,0x5
013b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
013c 01cc | | Execute Vector,Catenate
013d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
013e 0000 0000 | | .XXX[0x2]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 4800 |H | Short_Literal 0x0
0144 4802 |H | Short_Literal 0x2
0145 e004 | | Load 0x0,0x4
0146 035b | [ | Declare_Type Array,Constrained
0147 0337 | 7 | Declare_Variable Array
0148 00db | | Load_Top At_Offset_3
0149 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
014a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
014b 4800 |H | Short_Literal 0x0
014c 00da | | Load_Top At_Offset_2
014d 01d6 | | Execute Vector,Field_Write
014e 00db | | Load_Top At_Offset_3
014f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0150 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0151 4801 |H | Short_Literal 0x1
0152 00da | | Load_Top At_Offset_2
0153 01d6 | | Execute Vector,Field_Write
0154 00db | | Load_Top At_Offset_3
0155 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0156 4802 |H | Short_Literal 0x2
0157 00da | | Load_Top At_Offset_2
0158 01d6 | | Execute Vector,Field_Write
0159 e006 | | Load 0x0,0x6
015a 03b6 | | Declare_Variable Access,By_Allocation,With_Value
015b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0172 | r | .CONST 0x0172 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 e21d | | Load 0x1,0x1d
0164 0322 | " | Declare_Variable Record
0165 4803 |H | Short_Literal 0x3
0166 e5ff | | Load 0x2,-0x1
0167 01d7 | | Execute Vector,Field_Read
0168 00d9 | | Load_Top At_Offset_1
0169 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
016a 4801 |H | Short_Literal 0x1
016b 4802 |H | Short_Literal 0x2
016c e5ff | | Load 0x2,-0x1
016d 01cf | | Execute Vector,Slice_Read
016e 8218 | | Call 0x1,0x18
016f 00d9 | | Load_Top At_Offset_1
0170 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0171 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0172 TRAP_0160:
0172 010e | | Execute Exception,Is_Constraint_Error
0173 6802 |h | Jump_Zero 0x176
0174 8214 | | Call 0x1,0x14
0175 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0176 0100 | | Execute Exception,Raise
0177 0000 | | .XXX[0x1]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
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 00da | | Load_Top At_Offset_2
017c e20d | | Load 0x1,0xd
017d 011c | | Execute Any,Convert_Unchecked
017e 1c01 | | Execute_Immediate Run_Utility,0x1
017f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 e402 | | Load 0x2,0x2
0184 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0185 0f01 | | Execute_Immediate Equal,0x1
0186 6805 |h | Jump_Zero 0x18c
0187 e403 | | Load 0x2,0x3
0188 480c |H | Short_Literal 0xc
0189 026e | n | Execute Discrete,Modulo
018a 0a0c | | Execute_Immediate Plus,0xc
018b c403 | | Store 0x2,0x3
018c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
018d 0000 0000 | | .XXX[0x3]
018f 0000 | |
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
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 4601 |F | Jump_Case 0x2
0194 7801 |x | Jump 0x196 ; case 0x0
0195 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0196 4800 |H | Short_Literal 0x0
0197 00db | | Load_Top At_Offset_3
0198 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0199 4800 |H | Short_Literal 0x0
019a 00db | | Load_Top At_Offset_3
019b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
019c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
019d 0000 0000 | | .XXX[0x3]
019f 0000 | |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
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 4601 |F | Jump_Case 0x2
01a4 7801 |x | Jump 0x1a6 ; case 0x0
01a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01a6 4801 |H | Short_Literal 0x1
01a7 00db | | Load_Top At_Offset_3
01a8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01a9 00da | | Load_Top At_Offset_2
01aa 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01ab 1c00 | | Execute_Immediate Run_Utility,0x0
01ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01ad ; --------------------------------------------------------------------------------------
01ad ; STRING TABLE
01ad ; --------------------------------------------------------------------------------------
01ad 0016 | | .STRTAB 0x0016->0x01b8 ; "LE_36_DU_MOIS"
01ae 0021 | ! | .STRTAB 0x0021->0x01be ; "LUNDI"
01af 0024 | $ | .STRTAB 0x0024->0x01c1 ; "MARDI"
01b0 0027 | ' | .STRTAB 0x0027->0x01c3 ; "MECREDI"
01b1 002c | , | .STRTAB 0x002c->0x01c7 ; "JEUDI"
01b2 002f | / | .STRTAB 0x002f->0x01c9 ; "VENDREDI"
01b3 0035 | 5 | .STRTAB 0x0035->0x01cd ; "SAMEDI"
01b4 0039 | 9 | .STRTAB 0x0039->0x01d0 ; "DIMANCHE"
01b5 003f | ? | .STRTAB 0x003f->0x01d4 ; " "
01b6 003e | > | .STRTAB 0x003e->0x01d5 ; ":"
01b7 003d | = | .STREND 0x003d->0x01d5
01b8 4c45 5f33 |LE_3| .STRTAB_STRINGS
01d6 0000 0000 | | .XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; Debug Table
01d8 ; --------------------------------------------------------------------------------------
01d8 0004 0009 | | .DEBUG4 0x0004,0x0009,0x55b8,0x0000,0x0001,0x0012
01de 000b 0226 | &| .DBG4T 0x000b,0x0226,0x8000,0x8000
01e2 003f 024a | ? J| .DBG4T 0x003f,0x024a,0x8000,0x8000
01e6 0063 0000 | c | .DBG4T 0x0063,0x0000,0x0005,0x0000
01ea 008b 0264 | d| .DBG4T 0x008b,0x0264,0x0002,0x0000
01ee 00ab 026e | n| .DBG4T 0x00ab,0x026e,0x0002,0x0000
01f2 00bb 0271 | q| .DBG4T 0x00bb,0x0271,0x0002,0x0000
01f6 00cb 0274 | t| .DBG4T 0x00cb,0x0274,0x0002,0x0000
01fa 00db 0277 | w| .DBG4T 0x00db,0x0277,0x0002,0x0000
01fe 00eb 027a | z| .DBG4T 0x00eb,0x027a,0x0002,0x0000
0202 00fb 027d | }| .DBG4T 0x00fb,0x027d,0x0002,0x0000
0206 0113 0280 | | .DBG4T 0x0113,0x0280,0x0002,0x0000
020a 012b 0284 | + | .DBG4T 0x012b,0x0284,0x0002,0x0000
020e 0143 0287 | C | .DBG4T 0x0143,0x0287,0x0002,0x0000
0212 0163 028a | c | .DBG4T 0x0163,0x028a,0x0002,0x0000
0216 017b 028e | { | .DBG4T 0x017b,0x028e,0x0002,0x0000
021a 0183 0291 | | .DBG4T 0x0183,0x0291,0x0004,0x0000
021e 0193 0000 | | .DBG4T 0x0193,0x0000,0x0005,0x0000
0222 01a3 0000 | | .DBG4T 0x01a3,0x0000,0x0005,0x0000
0226 ; --------------------------------------------------------------------------------------
0226 ; Debug chain
0226 ; --------------------------------------------------------------------------------------
0226 0011 0000 | | .DBGLEN 0x0011,0x0000
0228 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0014,0x0018,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0038
0239 0004 0005 | | .XXX[0x11]
023b 0006 0007 | |
023d 0008 0009 | |
023f 000a 000b | |
0241 000c 000d | |
0243 000e 000f | |
0245 0010 0011 | |
0247 0012 0013 | |
0249 0014 | |
024a ; --------------------------------------------------------------------------------------
024a ; Debug chain
024a ; --------------------------------------------------------------------------------------
024a 000c 0000 | | .DBGLEN 0x000c,0x0000
024c 003f 0041 | ? A| .DBGLNO 0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055
0258 0003 0004 | | .XXX[0xc]
025a 0005 0006 | |
025c 0007 0008 | |
025e 0009 000a | |
0260 000b 000c | |
0262 000d 000e | |
0264 ; --------------------------------------------------------------------------------------
0264 ; Debug chain
0264 ; --------------------------------------------------------------------------------------
0264 0003 0005 | | .DBGLEN 0x0003,0x0005
0266 008b 008e | | .DBGLNO 0x008b,0x008e,0x0090,0x0093,0x0097,0x009b,0x009e,0x009f
026e ; --------------------------------------------------------------------------------------
026e ; Debug chain
026e ; --------------------------------------------------------------------------------------
026e 0000 0001 | | .DBGLEN 0x0000,0x0001
0270 00ab | | .DBGLNO 0x00ab
0271 ; --------------------------------------------------------------------------------------
0271 ; Debug chain
0271 ; --------------------------------------------------------------------------------------
0271 0000 0001 | | .DBGLEN 0x0000,0x0001
0273 00bb | | .DBGLNO 0x00bb
0274 ; --------------------------------------------------------------------------------------
0274 ; Debug chain
0274 ; --------------------------------------------------------------------------------------
0274 0000 0001 | | .DBGLEN 0x0000,0x0001
0276 00cb | | .DBGLNO 0x00cb
0277 ; --------------------------------------------------------------------------------------
0277 ; Debug chain
0277 ; --------------------------------------------------------------------------------------
0277 0000 0001 | | .DBGLEN 0x0000,0x0001
0279 00db | | .DBGLNO 0x00db
027a ; --------------------------------------------------------------------------------------
027a ; Debug chain
027a ; --------------------------------------------------------------------------------------
027a 0000 0001 | | .DBGLEN 0x0000,0x0001
027c 00eb | | .DBGLNO 0x00eb
027d ; --------------------------------------------------------------------------------------
027d ; Debug chain
027d ; --------------------------------------------------------------------------------------
027d 0000 0001 | | .DBGLEN 0x0000,0x0001
027f 00fb | | .DBGLNO 0x00fb
0280 ; --------------------------------------------------------------------------------------
0280 ; Debug chain
0280 ; --------------------------------------------------------------------------------------
0280 0000 0002 | | .DBGLEN 0x0000,0x0002
0282 0113 0122 | "| .DBGLNO 0x0113,0x0122
0284 ; --------------------------------------------------------------------------------------
0284 ; Debug chain
0284 ; --------------------------------------------------------------------------------------
0284 0000 0001 | | .DBGLEN 0x0000,0x0001
0286 012b | + | .DBGLNO 0x012b
0287 ; --------------------------------------------------------------------------------------
0287 ; Debug chain
0287 ; --------------------------------------------------------------------------------------
0287 0000 0001 | | .DBGLEN 0x0000,0x0001
0289 0143 | C | .DBGLNO 0x0143
028a ; --------------------------------------------------------------------------------------
028a ; Debug chain
028a ; --------------------------------------------------------------------------------------
028a 0000 0002 | | .DBGLEN 0x0000,0x0002
028c 0163 0174 | c t| .DBGLNO 0x0163,0x0174
028e ; --------------------------------------------------------------------------------------
028e ; Debug chain
028e ; --------------------------------------------------------------------------------------
028e 0000 0001 | | .DBGLEN 0x0000,0x0001
0290 017b | { | .DBGLNO 0x017b
0291 ; --------------------------------------------------------------------------------------
0291 ; Debug chain
0291 ; --------------------------------------------------------------------------------------
0291 0000 0002 | | .DBGLEN 0x0000,0x0002
0293 0183 0187 | | .DBGLNO 0x0183,0x0187
0295 0000 0000 | | .BLANK 0000[0x16b]