|
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_07d8fa
└─⟦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 0288 | | .CONST 0x0288 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0025 | % | .CONST 0x0025 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 0093 0000 | | push_full_address 0x0 000d 6076 |`v | Indirect_Literal Discrete,0x84,{0x80000000, 0x00010000} 000e 0273 | s | Execute Discrete,Plus 000f 0129 | ) | Execute Any,Make_Visible 0010 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 0012 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0014 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0016 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0018 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated 001a 00bf | | Action Accept_Activation 001b 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001c 00c7 | | Action Elaborate_Subprogram 001d 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001e 00c7 | | Action Elaborate_Subprogram 001f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0020 00c7 | | Action Elaborate_Subprogram 0021 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0022 00c7 | | Action Elaborate_Subprogram 0023 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0024 00c7 | | Action Elaborate_Subprogram 0025 BODY_0008: 0025 00bc | | Action Signal_Activated 0026 00bb | | Action Signal_Completion 0027 0000 | | .XXX[0x1] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002f | / | .CONST 0x002f ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0003 | | .CONST 0x0003 ; Number of locals 002b INIT_0028: 002b e002 | | Load 0x0,0x2 002c 0007 | | Action Break_Optional 002d 00d8 | | Load_Top At_Offset_0 002e 0007 | | Action Break_Optional 002f BODY_0028: 002f e5ff | | Load 0x2,-0x1 0030 8003 | | Call 0x0,0x3 0031 003a | : | Store_Top Access,At_Offset_2 0032 00cf | | Action Mark_Auxiliary 0033 784b |xK | Jump 0x7f 0034 00da | | Load_Top At_Offset_2 0035 0227 | ' | Execute Access,All_Reference 0036 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0037 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0038 8004 | | Call 0x0,0x4 0039 0092 0251 | Q| Action Push_String_Extended,0x251 ; "fin_du_jeu" 003b 01df | | Execute Vector,Equal 003c 6802 |h | Jump_Zero 0x3f 003d e20d | | Load 0x1,0xd 003e 0257 | W | Execute Discrete,Raise 003f 00da | | Load_Top At_Offset_2 0040 0227 | ' | Execute Access,All_Reference 0041 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0042 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0043 8004 | | Call 0x0,0x4 0044 0092 0252 | R| Action Push_String_Extended,0x252 ; "afficher" 0046 01df | | Execute Vector,Equal 0047 6803 |h | Jump_Zero 0x4b 0048 00da | | Load_Top At_Offset_2 0049 820f | | Call 0x1,0xf 004a 782c |x, | Jump 0x77 004b 00da | | Load_Top At_Offset_2 004c 0227 | ' | Execute Access,All_Reference 004d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 004e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 004f 8004 | | Call 0x0,0x4 0050 0092 0253 | S| Action Push_String_Extended,0x253 ; "aller_a_la_ligne" 0052 01df | | Execute Vector,Equal 0053 6804 |h | Jump_Zero 0x58 0054 00ea | | Load_Encached Null_String_Cache 0055 e005 | | Load 0x0,0x5 0056 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0057 781f |x | Jump 0x77 0058 00da | | Load_Top At_Offset_2 0059 0227 | ' | Execute Access,All_Reference 005a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 005b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 005c 8004 | | Call 0x0,0x4 005d 0092 0254 | T| Action Push_String_Extended,0x254 ; "egal" 005f 01df | | Execute Vector,Equal 0060 680b |h | Jump_Zero 0x6c 0061 e5fe | | Load 0x2,-0x2 0062 00db | | Load_Top At_Offset_3 0063 8210 | | Call 0x1,0x10 0064 6812 |h | Jump_Zero 0x77 0065 e5fe | | Load 0x2,-0x2 0066 00db | | Load_Top At_Offset_3 0067 0227 | ' | Execute Access,All_Reference 0068 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0069 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 006a 820e | | Call 0x1,0xe 006b 780b |x | Jump 0x77 006c 00da | | Load_Top At_Offset_2 006d 0227 | ' | Execute Access,All_Reference 006e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 006f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0070 8004 | | Call 0x0,0x4 0071 0092 0255 | U| Action Push_String_Extended,0x255 ; "vaut" 0073 01df | | Execute Vector,Equal 0074 6802 |h | Jump_Zero 0x77 0075 00da | | Load_Top At_Offset_2 0076 8211 | | Call 0x1,0x11 0077 00da | | Load_Top At_Offset_2 0078 8006 | | Call 0x0,0x6 0079 8007 | | Call 0x0,0x7 007a 003a | : | Store_Top Access,At_Offset_2 007b 00d9 | | Load_Top At_Offset_1 007c 8003 | | Call 0x0,0x3 007d 003b | ; | Store_Top Access,At_Offset_3 007e 00c9 | | Action Pop_Auxiliary_Loop 007f 00da | | Load_Top At_Offset_2 0080 8008 | | Call 0x0,0x8 0081 77b2 |w | Jump_Nonzero 0x34 0082 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0083 0000 | | .XXX[0x1] 0084 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 00da | | Load_Top At_Offset_2 008c 0227 | ' | Execute Access,All_Reference 008d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 008e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 008f 8009 | | Call 0x0,0x9 0090 680b |h | Jump_Zero 0x9c 0091 00da | | Load_Top At_Offset_2 0092 0227 | ' | Execute Access,All_Reference 0093 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0094 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0095 8004 | | Call 0x0,0x4 0096 0092 0256 | V| Action Push_String_Extended,0x256 ; " " 0098 01cc | | Execute Vector,Catenate 0099 e005 | | Load 0x0,0x5 009a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 009b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 009c 00da | | Load_Top At_Offset_2 009d 0227 | ' | Execute Access,All_Reference 009e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 009f 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 00a0 8009 | | Call 0x0,0x9 00a1 6824 |h$ | Jump_Zero 0xc6 00a2 00da | | Load_Top At_Offset_2 00a3 0227 | ' | Execute Access,All_Reference 00a4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00a5 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 00a6 8004 | | Call 0x0,0x4 00a7 800a | | Call 0x0,0xa 00a8 00da | | Load_Top At_Offset_2 00a9 0227 | ' | Execute Access,All_Reference 00aa 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00ab 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 00ac 8009 | | Call 0x0,0x9 00ad 6812 |h | Jump_Zero 0xc0 00ae 00da | | Load_Top At_Offset_2 00af 0227 | ' | Execute Access,All_Reference 00b0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00b1 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 00b2 8004 | | Call 0x0,0x4 00b3 800b | | Call 0x0,0xb 00b4 00da | | Load_Top At_Offset_2 00b5 0227 | ' | Execute Access,All_Reference 00b6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00b7 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 00b8 8009 | | Call 0x0,0x9 00b9 6806 |h | Jump_Zero 0xc0 00ba 00da | | Load_Top At_Offset_2 00bb 0227 | ' | Execute Access,All_Reference 00bc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00bd 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 00be 8004 | | Call 0x0,0x4 00bf 800c | | Call 0x0,0xc 00c0 800d | | Call 0x0,0xd 00c1 0092 0256 | V| Action Push_String_Extended,0x256 ; " " 00c3 01cc | | Execute Vector,Catenate 00c4 e005 | | Load 0x0,0x5 00c5 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 00c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c7 0000 | | .XXX[0x1] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cf | | .CONST 0x00cf ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0003 | | .CONST 0x0003 ; Number of locals 00cb INIT_00c8: 00cb e00e | | Load 0x0,0xe 00cc 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00cd e00e | | Load 0x0,0xe 00ce 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00cf BODY_00c8: 00cf e5ff | | Load 0x2,-0x1 00d0 0227 | ' | Execute Access,All_Reference 00d1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00d2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00d3 8009 | | Call 0x0,0x9 00d4 6808 |h | Jump_Zero 0xdd 00d5 00d9 | | Load_Top At_Offset_1 00d6 e5ff | | Load 0x2,-0x1 00d7 0227 | ' | Execute Access,All_Reference 00d8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00d9 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00da 800f | | Call 0x0,0xf 00db 003a | : | Store_Top Access,At_Offset_2 00dc 7835 |x5 | Jump 0x112 00dd e5ff | | Load 0x2,-0x1 00de 0227 | ' | Execute Access,All_Reference 00df 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00e0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00e1 8004 | | Call 0x0,0x4 00e2 0092 0257 | W| Action Push_String_Extended,0x257 ; "entree_clavier" 00e4 01df | | Execute Vector,Equal 00e5 6804 |h | Jump_Zero 0xea 00e6 e5fe | | Load 0x2,-0x2 00e7 e5ff | | Load 0x2,-0x1 00e8 8212 | | Call 0x1,0x12 00e9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ea e5ff | | Load 0x2,-0x1 00eb 0227 | ' | Execute Access,All_Reference 00ec 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00ed 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 00ee 8009 | | Call 0x0,0x9 00ef 6822 |h" | Jump_Zero 0x112 00f0 e5ff | | Load 0x2,-0x1 00f1 0227 | ' | Execute Access,All_Reference 00f2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00f3 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 00f4 8004 | | Call 0x0,0x4 00f5 800a | | Call 0x0,0xa 00f6 e5ff | | Load 0x2,-0x1 00f7 0227 | ' | Execute Access,All_Reference 00f8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00f9 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 00fa 8009 | | Call 0x0,0x9 00fb 6812 |h | Jump_Zero 0x10e 00fc e5ff | | Load 0x2,-0x1 00fd 0227 | ' | Execute Access,All_Reference 00fe 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00ff 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0100 8004 | | Call 0x0,0x4 0101 800b | | Call 0x0,0xb 0102 e5ff | | Load 0x2,-0x1 0103 0227 | ' | Execute Access,All_Reference 0104 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0105 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0106 8009 | | Call 0x0,0x9 0107 6806 |h | Jump_Zero 0x10e 0108 e5ff | | Load 0x2,-0x1 0109 0227 | ' | Execute Access,All_Reference 010a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 010b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 010c 8004 | | Call 0x0,0x4 010d 800c | | Call 0x0,0xc 010e 00d9 | | Load_Top At_Offset_1 010f 800d | | Call 0x0,0xd 0110 8010 | | Call 0x0,0x10 0111 003a | : | Store_Top Access,At_Offset_2 0112 e5ff | | Load 0x2,-0x1 0113 0227 | ' | Execute Access,All_Reference 0114 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0115 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0116 8009 | | Call 0x0,0x9 0117 681e |h | Jump_Zero 0x136 0118 e5ff | | Load 0x2,-0x1 0119 0227 | ' | Execute Access,All_Reference 011a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 011b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 011c 8004 | | Call 0x0,0x4 011d 800a | | Call 0x0,0xa 011e e5ff | | Load 0x2,-0x1 011f 0227 | ' | Execute Access,All_Reference 0120 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0121 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0122 8009 | | Call 0x0,0x9 0123 6812 |h | Jump_Zero 0x136 0124 e5ff | | Load 0x2,-0x1 0125 0227 | ' | Execute Access,All_Reference 0126 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0127 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0128 8004 | | Call 0x0,0x4 0129 800b | | Call 0x0,0xb 012a e5ff | | Load 0x2,-0x1 012b 0227 | ' | Execute Access,All_Reference 012c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 012d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 012e 8009 | | Call 0x0,0x9 012f 6806 |h | Jump_Zero 0x136 0130 e5ff | | Load 0x2,-0x1 0131 0227 | ' | Execute Access,All_Reference 0132 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0133 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0134 8004 | | Call 0x0,0x4 0135 800c | | Call 0x0,0xc 0136 00d8 | | Load_Top At_Offset_0 0137 800d | | Call 0x0,0xd 0138 8010 | | Call 0x0,0x10 0139 0039 | 9 | Store_Top Access,At_Offset_1 013a 00d9 | | Load_Top At_Offset_1 013b 8004 | | Call 0x0,0x4 013c 00d9 | | Load_Top At_Offset_1 013d 8004 | | Call 0x0,0x4 013e 01df | | Execute Vector,Equal 013f 6802 |h | Jump_Zero 0x142 0140 4801 |H | Short_Literal 0x1 0141 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0142 4800 |H | Short_Literal 0x0 0143 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0144 0000 0000 | | .BLANK 0000[0x4] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014e | N | .CONST 0x014e ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0003 | | .CONST 0x0003 ; Number of locals 014b INIT_0148: 014b e00e | | Load 0x0,0xe 014c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 014d 00e2 | | Load_Encached Integer_Cache 014e BODY_0148: 014e e5ff | | Load 0x2,-0x1 014f 0227 | ' | Execute Access,All_Reference 0150 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0151 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0152 8009 | | Call 0x0,0x9 0153 6808 |h | Jump_Zero 0x15c 0154 00d9 | | Load_Top At_Offset_1 0155 e5ff | | Load 0x2,-0x1 0156 0227 | ' | Execute Access,All_Reference 0157 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0158 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0159 800f | | Call 0x0,0xf 015a 003a | : | Store_Top Access,At_Offset_2 015b 7828 |x( | Jump 0x184 015c e5ff | | Load 0x2,-0x1 015d 0227 | ' | Execute Access,All_Reference 015e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 015f 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0160 8009 | | Call 0x0,0x9 0161 6822 |h" | Jump_Zero 0x184 0162 e5ff | | Load 0x2,-0x1 0163 0227 | ' | Execute Access,All_Reference 0164 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0165 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0166 8004 | | Call 0x0,0x4 0167 800a | | Call 0x0,0xa 0168 e5ff | | Load 0x2,-0x1 0169 0227 | ' | Execute Access,All_Reference 016a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 016b 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 016c 8009 | | Call 0x0,0x9 016d 6812 |h | Jump_Zero 0x180 016e e5ff | | Load 0x2,-0x1 016f 0227 | ' | Execute Access,All_Reference 0170 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0171 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0172 8004 | | Call 0x0,0x4 0173 800b | | Call 0x0,0xb 0174 e5ff | | Load 0x2,-0x1 0175 0227 | ' | Execute Access,All_Reference 0176 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0177 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0178 8009 | | Call 0x0,0x9 0179 6806 |h | Jump_Zero 0x180 017a e5ff | | Load 0x2,-0x1 017b 0227 | ' | Execute Access,All_Reference 017c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 017d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 017e 8004 | | Call 0x0,0x4 017f 800c | | Call 0x0,0xc 0180 00d9 | | Load_Top At_Offset_1 0181 800d | | Call 0x0,0xd 0182 8010 | | Call 0x0,0x10 0183 003a | : | Store_Top Access,At_Offset_2 0184 e5ff | | Load 0x2,-0x1 0185 0227 | ' | Execute Access,All_Reference 0186 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0187 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0188 8009 | | Call 0x0,0x9 0189 6869 |hi | Jump_Zero 0x1f3 018a e5ff | | Load 0x2,-0x1 018b 0227 | ' | Execute Access,All_Reference 018c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 018d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 018e 8004 | | Call 0x0,0x4 018f 0092 0258 | X| Action Push_String_Extended,0x258 ; "plus" 0191 01df | | Execute Vector,Equal 0192 6810 |h | Jump_Zero 0x1a3 0193 00d9 | | Load_Top At_Offset_1 0194 8004 | | Call 0x0,0x4 0195 00e2 | | Load_Encached Integer_Cache 0196 00e0 | | Load_Encached Standard_Cache 0197 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0198 e5ff | | Load 0x2,-0x1 0199 0227 | ' | Execute Access,All_Reference 019a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 019b 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 019c 8004 | | Call 0x0,0x4 019d 00e2 | | Load_Encached Integer_Cache 019e 00e0 | | Load_Encached Standard_Cache 019f 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01a0 0273 | s | Execute Discrete,Plus 01a1 0059 | Y | Store_Top Discrete,At_Offset_1 01a2 784a |xJ | Jump 0x1ed 01a3 e5ff | | Load 0x2,-0x1 01a4 0227 | ' | Execute Access,All_Reference 01a5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01a6 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 01a7 8004 | | Call 0x0,0x4 01a8 0092 0259 | Y| Action Push_String_Extended,0x259 ; "moins" 01aa 01df | | Execute Vector,Equal 01ab 6810 |h | Jump_Zero 0x1bc 01ac 00d9 | | Load_Top At_Offset_1 01ad 8004 | | Call 0x0,0x4 01ae 00e2 | | Load_Encached Integer_Cache 01af 00e0 | | Load_Encached Standard_Cache 01b0 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01b1 e5ff | | Load 0x2,-0x1 01b2 0227 | ' | Execute Access,All_Reference 01b3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01b4 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 01b5 8004 | | Call 0x0,0x4 01b6 00e2 | | Load_Encached Integer_Cache 01b7 00e0 | | Load_Encached Standard_Cache 01b8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01b9 0272 | r | Execute Discrete,Minus 01ba 0059 | Y | Store_Top Discrete,At_Offset_1 01bb 7831 |x1 | Jump 0x1ed 01bc e5ff | | Load 0x2,-0x1 01bd 0227 | ' | Execute Access,All_Reference 01be 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01bf 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 01c0 8004 | | Call 0x0,0x4 01c1 0092 025a | Z| Action Push_String_Extended,0x25a ; "fois" 01c3 01df | | Execute Vector,Equal 01c4 6810 |h | Jump_Zero 0x1d5 01c5 00d9 | | Load_Top At_Offset_1 01c6 8004 | | Call 0x0,0x4 01c7 00e2 | | Load_Encached Integer_Cache 01c8 00e0 | | Load_Encached Standard_Cache 01c9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01ca e5ff | | Load 0x2,-0x1 01cb 0227 | ' | Execute Access,All_Reference 01cc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01cd 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 01ce 8004 | | Call 0x0,0x4 01cf 00e2 | | Load_Encached Integer_Cache 01d0 00e0 | | Load_Encached Standard_Cache 01d1 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01d2 0271 | q | Execute Discrete,Times 01d3 0059 | Y | Store_Top Discrete,At_Offset_1 01d4 7818 |x | Jump 0x1ed 01d5 e5ff | | Load 0x2,-0x1 01d6 0227 | ' | Execute Access,All_Reference 01d7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01d8 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 01d9 8004 | | Call 0x0,0x4 01da 0092 025b | [| Action Push_String_Extended,0x25b ; "divise" 01dc 01df | | Execute Vector,Equal 01dd 680f |h | Jump_Zero 0x1ed 01de 00d9 | | Load_Top At_Offset_1 01df 8004 | | Call 0x0,0x4 01e0 00e2 | | Load_Encached Integer_Cache 01e1 00e0 | | Load_Encached Standard_Cache 01e2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01e3 e5ff | | Load 0x2,-0x1 01e4 0227 | ' | Execute Access,All_Reference 01e5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01e6 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 01e7 8004 | | Call 0x0,0x4 01e8 00e2 | | Load_Encached Integer_Cache 01e9 00e0 | | Load_Encached Standard_Cache 01ea 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01eb 0270 | p | Execute Discrete,Divide 01ec 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 01ed 00d9 | | Load_Top At_Offset_1 01ee 00d9 | | Load_Top At_Offset_1 01ef 00e0 | | Load_Encached Standard_Cache 01f0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01f1 8010 | | Call 0x0,0x10 01f2 003a | : | Store_Top Access,At_Offset_2 01f3 e5ff | | Load 0x2,-0x1 01f4 0227 | ' | Execute Access,All_Reference 01f5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01f6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01f7 8009 | | Call 0x0,0x9 01f8 681e |h | Jump_Zero 0x217 01f9 e5ff | | Load 0x2,-0x1 01fa 0227 | ' | Execute Access,All_Reference 01fb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01fc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01fd 8004 | | Call 0x0,0x4 01fe 800a | | Call 0x0,0xa 01ff e5ff | | Load 0x2,-0x1 0200 0227 | ' | Execute Access,All_Reference 0201 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0202 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0203 8009 | | Call 0x0,0x9 0204 6812 |h | Jump_Zero 0x217 0205 e5ff | | Load 0x2,-0x1 0206 0227 | ' | Execute Access,All_Reference 0207 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0208 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0209 8004 | | Call 0x0,0x4 020a 800b | | Call 0x0,0xb 020b e5ff | | Load 0x2,-0x1 020c 0227 | ' | Execute Access,All_Reference 020d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 020e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 020f 8009 | | Call 0x0,0x9 0210 6806 |h | Jump_Zero 0x217 0211 e5ff | | Load 0x2,-0x1 0212 0227 | ' | Execute Access,All_Reference 0213 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0214 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0215 8004 | | Call 0x0,0x4 0216 800c | | Call 0x0,0xc 0217 00d9 | | Load_Top At_Offset_1 0218 8004 | | Call 0x0,0x4 0219 8011 | | Call 0x0,0x11 021a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 021b 0000 0000 | | .BLANK 0000[0x5] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0224 | $ | .CONST 0x0224 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0002 | | .CONST 0x0002 ; Number of locals 0223 INIT_0220: 0223 00e2 | | Load_Encached Integer_Cache 0224 BODY_0220: 0224 4801 |H | Short_Literal 0x1 0225 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0226 00db | | Load_Top At_Offset_3 0227 0227 | ' | Execute Access,All_Reference 0228 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0229 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 022a 8004 | | Call 0x0,0x4 022b 00d9 | | Load_Top At_Offset_1 022c e5fe | | Load 0x2,-0x2 022d 01d7 | | Execute Vector,Field_Read 022e 8004 | | Call 0x0,0x4 022f 01df | | Execute Vector,Equal 0230 681e |h | Jump_Zero 0x24f 0231 00d8 | | Load_Top At_Offset_0 0232 0a01 | | Execute_Immediate Plus,0x1 0233 0059 | Y | Store_Top Discrete,At_Offset_1 0234 00db | | Load_Top At_Offset_3 0235 0227 | ' | Execute Access,All_Reference 0236 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0237 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0238 8004 | | Call 0x0,0x4 0239 00d9 | | Load_Top At_Offset_1 023a e5fe | | Load 0x2,-0x2 023b 01d7 | | Execute Vector,Field_Read 023c 8004 | | Call 0x0,0x4 023d 01df | | Execute Vector,Equal 023e 6810 |h | Jump_Zero 0x24f 023f 00d8 | | Load_Top At_Offset_0 0240 0a01 | | Execute_Immediate Plus,0x1 0241 0059 | Y | Store_Top Discrete,At_Offset_1 0242 00db | | Load_Top At_Offset_3 0243 0227 | ' | Execute Access,All_Reference 0244 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0245 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0246 8004 | | Call 0x0,0x4 0247 00d9 | | Load_Top At_Offset_1 0248 e5fe | | Load 0x2,-0x2 0249 01d7 | | Execute Vector,Field_Read 024a 8004 | | Call 0x0,0x4 024b 01df | | Execute Vector,Equal 024c 6802 |h | Jump_Zero 0x24f 024d 4801 |H | Short_Literal 0x1 024e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 024f 4800 |H | Short_Literal 0x0 0250 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0251 ; -------------------------------------------------------------------------------------- 0251 ; STRING TABLE 0251 ; -------------------------------------------------------------------------------------- 0251 0018 | | .STRTAB 0x0018->0x025d ; "fin_du_jeu" 0252 0020 | | .STRTAB 0x0020->0x0262 ; "afficher" 0253 0026 | & | .STRTAB 0x0026->0x0266 ; "aller_a_la_ligne" 0254 0034 | 4 | .STRTAB 0x0034->0x026e ; "egal" 0255 0036 | 6 | .STRTAB 0x0036->0x0270 ; "vaut" 0256 0038 | 8 | .STRTAB 0x0038->0x0272 ; " " 0257 0037 | 7 | .STRTAB 0x0037->0x0272 ; "entree_clavier" 0258 0043 | C | .STRTAB 0x0043->0x0279 ; "plus" 0259 0045 | E | .STRTAB 0x0045->0x027b ; "moins" 025a 0048 | H | .STRTAB 0x0048->0x027e ; "fois" 025b 004a | J | .STRTAB 0x004a->0x0280 ; "divise" 025c 004e | N | .STREND 0x004e->0x0283 025d 6669 6e5f |fin_| .STRTAB_STRINGS 0283 0000 0000 | | .BLANK 0000[0x5] 0288 ; -------------------------------------------------------------------------------------- 0288 ; Debug Table 0288 ; -------------------------------------------------------------------------------------- 0288 0004 0008 | | .DEBUG4 0x0004,0x0008,0xdcf7,0x0000,0x0001,0x0007 028e 000b 02aa | | .DBG4T 0x000b,0x02aa,0x8000,0x0000 0292 001b 02b2 | | .DBG4T 0x001b,0x02b2,0x8000,0x0000 0296 002b 02b9 | + | .DBG4T 0x002b,0x02b9,0x0001,0x4000 029a 008b 02db | | .DBG4T 0x008b,0x02db,0x0001,0x0000 029e 00cb 02e6 | | .DBG4T 0x00cb,0x02e6,0x0002,0x0000 02a2 014b 02ff | K | .DBG4T 0x014b,0x02ff,0x0001,0x0000 02a6 0223 031d | # | .DBG4T 0x0223,0x031d,0x0002,0x0000 02aa ; -------------------------------------------------------------------------------------- 02aa ; Debug chain 02aa ; -------------------------------------------------------------------------------------- 02aa 0006 0000 | | .DBGLEN 0x0006,0x0000 02ac 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0014,0x0016,0x0018 02b2 ; -------------------------------------------------------------------------------------- 02b2 ; Debug chain 02b2 ; -------------------------------------------------------------------------------------- 02b2 0005 0000 | | .DBGLEN 0x0005,0x0000 02b4 001b 001d | | .DBGLNO 0x001b,0x001d,0x001f,0x0021,0x0023 02b9 ; -------------------------------------------------------------------------------------- 02b9 ; Debug chain 02b9 ; -------------------------------------------------------------------------------------- 02b9 0002 000f | | .DBGLEN 0x0002,0x000f 02bb 002b 002d | + -| .DBGLNO 0x002b,0x002d,0x002f,0x0034,0x003d,0x003f,0x0048,0x004b,0x0054,0x0058,0x0061,0x0065,0x006c,0x0075,0x0077,0x007b,0x007f 02cc 0001 0003 | | .XXX[0xf] 02ce 0004 0005 | | 02d0 0006 0007 | | 02d2 0008 0009 | | 02d4 000a 000b | | 02d6 000c 000d | | 02d8 000e 000f | | 02da 0002 | | 02db ; -------------------------------------------------------------------------------------- 02db ; Debug chain 02db ; -------------------------------------------------------------------------------------- 02db 0000 0009 | | .DBGLEN 0x0000,0x0009 02dd 008b 0091 | | .DBGLNO 0x008b,0x0091,0x009c,0x00a2,0x00a8,0x00ae,0x00b4,0x00ba,0x00c0 02e6 ; -------------------------------------------------------------------------------------- 02e6 ; Debug chain 02e6 ; -------------------------------------------------------------------------------------- 02e6 0002 0015 | | .DBGLEN 0x0002,0x0015 02e8 00cb 00cd | | .DBGLNO 0x00cb,0x00cd,0x00cf,0x00d5,0x00dd,0x00e6,0x00ea,0x00f0,0x00f6,0x00fc,0x0102,0x0108,0x010e,0x0112,0x0118,0x011e,0x0124,0x012a,0x0130,0x0136,0x013a,0x0140,0x0142 02ff ; -------------------------------------------------------------------------------------- 02ff ; Debug chain 02ff ; -------------------------------------------------------------------------------------- 02ff 0002 001a | | .DBGLEN 0x0002,0x001a 0301 014b 014d | K M| .DBGLNO 0x014b,0x014d,0x014e,0x0154,0x015c,0x0162,0x0168,0x016e,0x0174,0x017a,0x0180,0x0184,0x018a,0x0193,0x01a3,0x01ac,0x01bc,0x01c5,0x01d5,0x01de,0x01ed,0x01f3,0x01f9,0x01ff,0x0205,0x020b,0x0211,0x0217 031d ; -------------------------------------------------------------------------------------- 031d ; Debug chain 031d ; -------------------------------------------------------------------------------------- 031d 0001 0008 | | .DBGLEN 0x0001,0x0008 031f 0223 0224 | # $| .DBGLNO 0x0223,0x0224,0x0226,0x0231,0x0234,0x023f,0x0242,0x024d,0x024f 0328 0000 0000 | | .BLANK 0000[0xd8]