|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_bdfc99
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0308 | | .CONST 0x0308 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0043 | C | .CONST 0x0043 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000c | | .CONST 0x000c ; Number of locals
001b INIT_0018:
001b 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
001d 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call
001f a002 | | Store_Unchecked 0x0,0x2
0020 00c6 | | Action Check_Subprogram_Elaborated
0021 4802 |H | Short_Literal 0x2
0022 4802 |H | Short_Literal 0x2
0023 0099 | | Action Reference_Dynamic
0024 4803 |H | Short_Literal 0x3
0025 4802 |H | Short_Literal 0x2
0026 0099 | | Action Reference_Dynamic
0027 0093 0000 | | push_full_address 0x0
0029 602a |`* | Indirect_Literal Discrete,0x54,{0x80000000, 0x00020000}
002a 0273 | s | Execute Discrete,Plus
002b e003 | | Load 0x0,0x3
002c 0273 | s | Execute Discrete,Plus
002d e004 | | Load 0x0,0x4
002e 0273 | s | Execute Discrete,Plus
002f 4807 |H | Short_Literal 0x7
0030 0007 | | Action Break_Optional
0031 4800 |H | Short_Literal 0x0
0032 4815 |H | Short_Literal 0x15
0033 00e5 | | Load_Encached Long_Integer_Cache
0034 03f8 | | Declare_Type Discrete,Constrained
0035 e005 | | Load 0x0,0x5
0036 e006 | | Load 0x0,0x6
0037 00da | | Load_Top At_Offset_2
0038 e007 | | Load 0x0,0x7
0039 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
003a 0387 | | Declare_Variable Package
003b 00d8 | | Load_Top At_Offset_0
003c 020f | | Execute Module,Activate
003d 00d9 | | Load_Top At_Offset_1
003e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
003f 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
0041 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
0043 BODY_0018:
0043 00cf | | Action Mark_Auxiliary
0044 0007 | | Action Break_Optional
0045 8008 | | Call 0x0,0x8
0046 4801 |H | Short_Literal 0x1
0047 e007 | | Load 0x0,0x7
0048 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0049 0092 020f | | Action Push_String_Extended,0x20f ; "Choisissez une configuration de depart [1..21] (0 -> Quit)"
004b e007 | | Load 0x0,0x7
004c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
004d 840c | | Call 0x2,0xc
004e 00db | | Load_Top At_Offset_3
004f 6802 |h | Jump_Zero 0x52
0050 00c9 | | Action Pop_Auxiliary_Loop
0051 7ff3 | | Jump 0x45
0052 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0053 0000 | | .XXX[0x1]
0054 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 00db | | Load_Top At_Offset_3
005c 00db | | Load_Top At_Offset_3
005d 00d8 | | Load_Top At_Offset_0
005e 00e3 | | Load_Encached Natural_Cache
005f 0260 | ` | Execute Discrete,In_Type
0060 7001 |p | Jump_Nonzero 0x62
0061 0801 | | Execute_Immediate Raise,0x1
0062 e009 | | Load 0x0,0x9
0063 e00a | | Load 0x0,0xa
0064 a00b | | Store_Unchecked 0x0,0xb
0065 a00c | | Store_Unchecked 0x0,0xc
0066 a00d | | Store_Unchecked 0x0,0xd
0067 a00e | | Store_Unchecked 0x0,0xe
0068 800f | | Call 0x0,0xf
0069 4503 |E | Exit_Suprogram New_Top_Offset 0x3
006a 0000 0000 | | .BLANK 0000[0x6]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 00db | | Load_Top At_Offset_3
0074 00db | | Load_Top At_Offset_3
0075 00d8 | | Load_Top At_Offset_0
0076 00e3 | | Load_Encached Natural_Cache
0077 0260 | ` | Execute Discrete,In_Type
0078 7001 |p | Jump_Nonzero 0x7a
0079 0801 | | Execute_Immediate Raise,0x1
007a 8010 | | Call 0x0,0x10
007b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
007c 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
0084 4615 |F | Jump_Case 0x16
0085 7825 |x% | Jump 0xab ; case 0x0
0086 7826 |x& | Jump 0xad ; case 0x1
0087 7835 |x5 | Jump 0xbd ; case 0x2
0088 7844 |xD | Jump 0xcd ; case 0x3
0089 7853 |xS | Jump 0xdd ; case 0x4
008a 7862 |xb | Jump 0xed ; case 0x5
008b 7871 |xq | Jump 0xfd ; case 0x6
008c 7880 |x | Jump 0x10d ; case 0x7
008d 788f |x | Jump 0x11d ; case 0x8
008e 789e |x | Jump 0x12d ; case 0x9
008f 78ad |x | Jump 0x13d ; case 0xa
0090 78bc |x | Jump 0x14d ; case 0xb
0091 78cb |x | Jump 0x15d ; case 0xc
0092 78da |x | Jump 0x16d ; case 0xd
0093 78e9 |x | Jump 0x17d ; case 0xe
0094 78f8 |x | Jump 0x18d ; case 0xf
0095 7907 |y | Jump 0x19d ; case 0x10
0096 7916 |y | Jump 0x1ad ; case 0x11
0097 7925 |y% | Jump 0x1bd ; case 0x12
0098 7934 |y4 | Jump 0x1cd ; case 0x13
0099 7943 |yC | Jump 0x1dd ; case 0x14
009a 7800 |x | Jump 0x9b ; case 0x15
009b e011 | | Load 0x0,0x11
009c 0337 | 7 | Declare_Variable Array
009d e012 | | Load 0x0,0x12
009e 4800 |H | Short_Literal 0x0
009f 00da | | Load_Top At_Offset_2
00a0 01d6 | | Execute Vector,Field_Write
00a1 0092 0210 | | Action Push_String_Extended,0x210 ; "at_object_holds"
00a3 8013 | | Call 0x0,0x13
00a4 4801 |H | Short_Literal 0x1
00a5 00da | | Load_Top At_Offset_2
00a6 01d6 | | Execute Vector,Field_Write
00a7 e011 | | Load 0x0,0x11
00a8 01c3 | | Execute Vector,Check_In_Type
00a9 8014 | | Call 0x0,0x14
00aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ab 0008 | | Action Idle
00ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ad e011 | | Load 0x0,0x11
00ae 0337 | 7 | Declare_Variable Array
00af e015 | | Load 0x0,0x15
00b0 4800 |H | Short_Literal 0x0
00b1 00da | | Load_Top At_Offset_2
00b2 01d6 | | Execute Vector,Field_Write
00b3 0092 0211 | | Action Push_String_Extended,0x211 ; "start"
00b5 8013 | | Call 0x0,0x13
00b6 4801 |H | Short_Literal 0x1
00b7 00da | | Load_Top At_Offset_2
00b8 01d6 | | Execute Vector,Field_Write
00b9 e011 | | Load 0x0,0x11
00ba 01c3 | | Execute Vector,Check_In_Type
00bb 8014 | | Call 0x0,0x14
00bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00bd e011 | | Load 0x0,0x11
00be 0337 | 7 | Declare_Variable Array
00bf e015 | | Load 0x0,0x15
00c0 4800 |H | Short_Literal 0x0
00c1 00da | | Load_Top At_Offset_2
00c2 01d6 | | Execute Vector,Field_Write
00c3 0092 0212 | | Action Push_String_Extended,0x212 ; "on_ladder"
00c5 8013 | | Call 0x0,0x13
00c6 4801 |H | Short_Literal 0x1
00c7 00da | | Load_Top At_Offset_2
00c8 01d6 | | Execute Vector,Field_Write
00c9 e011 | | Load 0x0,0x11
00ca 01c3 | | Execute Vector,Check_In_Type
00cb 8014 | | Call 0x0,0x14
00cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00cd e011 | | Load 0x0,0x11
00ce 0337 | 7 | Declare_Variable Array
00cf e016 | | Load 0x0,0x16
00d0 4800 |H | Short_Literal 0x0
00d1 00da | | Load_Top At_Offset_2
00d2 01d6 | | Execute Vector,Field_Write
00d3 0092 0213 | | Action Push_String_Extended,0x213 ; "on_floor"
00d5 8013 | | Call 0x0,0x13
00d6 4801 |H | Short_Literal 0x1
00d7 00da | | Load_Top At_Offset_2
00d8 01d6 | | Execute Vector,Field_Write
00d9 e011 | | Load 0x0,0x11
00da 01c3 | | Execute Vector,Check_In_Type
00db 8014 | | Call 0x0,0x14
00dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00dd e011 | | Load 0x0,0x11
00de 0337 | 7 | Declare_Variable Array
00df e016 | | Load 0x0,0x16
00e0 4800 |H | Short_Literal 0x0
00e1 00da | | Load_Top At_Offset_2
00e2 01d6 | | Execute Vector,Field_Write
00e3 0092 0214 | | Action Push_String_Extended,0x214 ; "on_floor_satisfied"
00e5 8013 | | Call 0x0,0x13
00e6 4801 |H | Short_Literal 0x1
00e7 00da | | Load_Top At_Offset_2
00e8 01d6 | | Execute Vector,Field_Write
00e9 e011 | | Load 0x0,0x11
00ea 01c3 | | Execute Vector,Check_In_Type
00eb 8014 | | Call 0x0,0x14
00ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ed e011 | | Load 0x0,0x11
00ee 0337 | 7 | Declare_Variable Array
00ef e016 | | Load 0x0,0x16
00f0 4800 |H | Short_Literal 0x0
00f1 00da | | Load_Top At_Offset_2
00f2 01d6 | | Execute Vector,Field_Write
00f3 0092 0215 | | Action Push_String_Extended,0x215 ; "on_phys_object"
00f5 8013 | | Call 0x0,0x13
00f6 4801 |H | Short_Literal 0x1
00f7 00da | | Load_Top At_Offset_2
00f8 01d6 | | Execute Vector,Field_Write
00f9 e011 | | Load 0x0,0x11
00fa 01c3 | | Execute Vector,Check_In_Type
00fb 8014 | | Call 0x0,0x14
00fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00fd e011 | | Load 0x0,0x11
00fe 0337 | 7 | Declare_Variable Array
00ff e016 | | Load 0x0,0x16
0100 4800 |H | Short_Literal 0x0
0101 00da | | Load_Top At_Offset_2
0102 01d6 | | Execute Vector,Field_Write
0103 0092 0216 | | Action Push_String_Extended,0x216 ; "on_phys_object_holds"
0105 8013 | | Call 0x0,0x13
0106 4801 |H | Short_Literal 0x1
0107 00da | | Load_Top At_Offset_2
0108 01d6 | | Execute Vector,Field_Write
0109 e011 | | Load 0x0,0x11
010a 01c3 | | Execute Vector,Check_In_Type
010b 8014 | | Call 0x0,0x14
010c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
010d e011 | | Load 0x0,0x11
010e 0337 | 7 | Declare_Variable Array
010f e016 | | Load 0x0,0x16
0110 4800 |H | Short_Literal 0x0
0111 00da | | Load_Top At_Offset_2
0112 01d6 | | Execute Vector,Field_Write
0113 0092 0217 | | Action Push_String_Extended,0x217 ; "on_phys_object_at_monkey"
0115 8013 | | Call 0x0,0x13
0116 4801 |H | Short_Literal 0x1
0117 00da | | Load_Top At_Offset_2
0118 01d6 | | Execute Vector,Field_Write
0119 e011 | | Load 0x0,0x11
011a 01c3 | | Execute Vector,Check_In_Type
011b 8014 | | Call 0x0,0x14
011c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
011d e011 | | Load 0x0,0x11
011e 0337 | 7 | Declare_Variable Array
011f e016 | | Load 0x0,0x16
0120 4800 |H | Short_Literal 0x0
0121 00da | | Load_Top At_Offset_2
0122 01d6 | | Execute Vector,Field_Write
0123 0092 0218 | | Action Push_String_Extended,0x218 ; "on_phys_object_satisfied"
0125 8013 | | Call 0x0,0x13
0126 4801 |H | Short_Literal 0x1
0127 00da | | Load_Top At_Offset_2
0128 01d6 | | Execute Vector,Field_Write
0129 e011 | | Load 0x0,0x11
012a 01c3 | | Execute Vector,Check_In_Type
012b 8014 | | Call 0x0,0x14
012c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
012d e011 | | Load 0x0,0x11
012e 0337 | 7 | Declare_Variable Array
012f e017 | | Load 0x0,0x17
0130 4800 |H | Short_Literal 0x0
0131 00da | | Load_Top At_Offset_2
0132 01d6 | | Execute Vector,Field_Write
0133 0092 0219 | | Action Push_String_Extended,0x219 ; "holds_nil"
0135 8013 | | Call 0x0,0x13
0136 4801 |H | Short_Literal 0x1
0137 00da | | Load_Top At_Offset_2
0138 01d6 | | Execute Vector,Field_Write
0139 e011 | | Load 0x0,0x11
013a 01c3 | | Execute Vector,Check_In_Type
013b 8014 | | Call 0x0,0x14
013c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
013d e011 | | Load 0x0,0x11
013e 0337 | 7 | Declare_Variable Array
013f e017 | | Load 0x0,0x17
0140 4800 |H | Short_Literal 0x0
0141 00da | | Load_Top At_Offset_2
0142 01d6 | | Execute Vector,Field_Write
0143 0092 021a | | Action Push_String_Extended,0x21a ; "holds_nil_satisfied"
0145 8013 | | Call 0x0,0x13
0146 4801 |H | Short_Literal 0x1
0147 00da | | Load_Top At_Offset_2
0148 01d6 | | Execute Vector,Field_Write
0149 e011 | | Load 0x0,0x11
014a 01c3 | | Execute Vector,Check_In_Type
014b 8014 | | Call 0x0,0x14
014c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014d e011 | | Load 0x0,0x11
014e 0337 | 7 | Declare_Variable Array
014f e017 | | Load 0x0,0x17
0150 4800 |H | Short_Literal 0x0
0151 00da | | Load_Top At_Offset_2
0152 01d6 | | Execute Vector,Field_Write
0153 0092 021b | | Action Push_String_Extended,0x21b ; "holds_object_ceil"
0155 8013 | | Call 0x0,0x13
0156 4801 |H | Short_Literal 0x1
0157 00da | | Load_Top At_Offset_2
0158 01d6 | | Execute Vector,Field_Write
0159 e011 | | Load 0x0,0x11
015a 01c3 | | Execute Vector,Check_In_Type
015b 8014 | | Call 0x0,0x14
015c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
015d e011 | | Load 0x0,0x11
015e 0337 | 7 | Declare_Variable Array
015f e017 | | Load 0x0,0x17
0160 4800 |H | Short_Literal 0x0
0161 00da | | Load_Top At_Offset_2
0162 01d6 | | Execute Vector,Field_Write
0163 0092 021c | | Action Push_String_Extended,0x21c ; "holds_object_ceil_at_obj"
0165 8013 | | Call 0x0,0x13
0166 4801 |H | Short_Literal 0x1
0167 00da | | Load_Top At_Offset_2
0168 01d6 | | Execute Vector,Field_Write
0169 e011 | | Load 0x0,0x11
016a 01c3 | | Execute Vector,Check_In_Type
016b 8014 | | Call 0x0,0x14
016c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
016d e011 | | Load 0x0,0x11
016e 0337 | 7 | Declare_Variable Array
016f e017 | | Load 0x0,0x17
0170 4800 |H | Short_Literal 0x0
0171 00da | | Load_Top At_Offset_2
0172 01d6 | | Execute Vector,Field_Write
0173 0092 021d | | Action Push_String_Extended,0x21d ; "holds_object_not_ceil_on_ladder"
0175 8013 | | Call 0x0,0x13
0176 4801 |H | Short_Literal 0x1
0177 00da | | Load_Top At_Offset_2
0178 01d6 | | Execute Vector,Field_Write
0179 e011 | | Load 0x0,0x11
017a 01c3 | | Execute Vector,Check_In_Type
017b 8014 | | Call 0x0,0x14
017c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
017d e011 | | Load 0x0,0x11
017e 0337 | 7 | Declare_Variable Array
017f e017 | | Load 0x0,0x17
0180 4800 |H | Short_Literal 0x0
0181 00da | | Load_Top At_Offset_2
0182 01d6 | | Execute Vector,Field_Write
0183 0092 021e | | Action Push_String_Extended,0x21e ; "holds_object_not_ceil_at"
0185 8013 | | Call 0x0,0x13
0186 4801 |H | Short_Literal 0x1
0187 00da | | Load_Top At_Offset_2
0188 01d6 | | Execute Vector,Field_Write
0189 e011 | | Load 0x0,0x11
018a 01c3 | | Execute Vector,Check_In_Type
018b 8014 | | Call 0x0,0x14
018c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
018d e011 | | Load 0x0,0x11
018e 0337 | 7 | Declare_Variable Array
018f e017 | | Load 0x0,0x17
0190 4800 |H | Short_Literal 0x0
0191 00da | | Load_Top At_Offset_2
0192 01d6 | | Execute Vector,Field_Write
0193 0092 021f | | Action Push_String_Extended,0x21f ; "holds_object_satisfied"
0195 8013 | | Call 0x0,0x13
0196 4801 |H | Short_Literal 0x1
0197 00da | | Load_Top At_Offset_2
0198 01d6 | | Execute Vector,Field_Write
0199 e011 | | Load 0x0,0x11
019a 01c3 | | Execute Vector,Check_In_Type
019b 8014 | | Call 0x0,0x14
019c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
019d e011 | | Load 0x0,0x11
019e 0337 | 7 | Declare_Variable Array
019f e012 | | Load 0x0,0x12
01a0 4800 |H | Short_Literal 0x0
01a1 00da | | Load_Top At_Offset_2
01a2 01d6 | | Execute Vector,Field_Write
01a3 0092 0220 | | Action Push_String_Extended,0x220 ; "at_monkey"
01a5 8013 | | Call 0x0,0x13
01a6 4801 |H | Short_Literal 0x1
01a7 00da | | Load_Top At_Offset_2
01a8 01d6 | | Execute Vector,Field_Write
01a9 e011 | | Load 0x0,0x11
01aa 01c3 | | Execute Vector,Check_In_Type
01ab 8014 | | Call 0x0,0x14
01ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ad e011 | | Load 0x0,0x11
01ae 0337 | 7 | Declare_Variable Array
01af e012 | | Load 0x0,0x12
01b0 4800 |H | Short_Literal 0x0
01b1 00da | | Load_Top At_Offset_2
01b2 01d6 | | Execute Vector,Field_Write
01b3 0092 0221 | !| Action Push_String_Extended,0x221 ; "at_monkey_object"
01b5 8013 | | Call 0x0,0x13
01b6 4801 |H | Short_Literal 0x1
01b7 00da | | Load_Top At_Offset_2
01b8 01d6 | | Execute Vector,Field_Write
01b9 e011 | | Load 0x0,0x11
01ba 01c3 | | Execute Vector,Check_In_Type
01bb 8014 | | Call 0x0,0x14
01bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01bd e011 | | Load 0x0,0x11
01be 0337 | 7 | Declare_Variable Array
01bf e012 | | Load 0x0,0x12
01c0 4800 |H | Short_Literal 0x0
01c1 00da | | Load_Top At_Offset_2
01c2 01d6 | | Execute Vector,Field_Write
01c3 0092 0222 | "| Action Push_String_Extended,0x222 ; "at_monkey_on"
01c5 8013 | | Call 0x0,0x13
01c6 4801 |H | Short_Literal 0x1
01c7 00da | | Load_Top At_Offset_2
01c8 01d6 | | Execute Vector,Field_Write
01c9 e011 | | Load 0x0,0x11
01ca 01c3 | | Execute Vector,Check_In_Type
01cb 8014 | | Call 0x0,0x14
01cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01cd e011 | | Load 0x0,0x11
01ce 0337 | 7 | Declare_Variable Array
01cf e012 | | Load 0x0,0x12
01d0 4800 |H | Short_Literal 0x0
01d1 00da | | Load_Top At_Offset_2
01d2 01d6 | | Execute Vector,Field_Write
01d3 0092 0223 | #| Action Push_String_Extended,0x223 ; "at_object"
01d5 8013 | | Call 0x0,0x13
01d6 4801 |H | Short_Literal 0x1
01d7 00da | | Load_Top At_Offset_2
01d8 01d6 | | Execute Vector,Field_Write
01d9 e011 | | Load 0x0,0x11
01da 01c3 | | Execute Vector,Check_In_Type
01db 8014 | | Call 0x0,0x14
01dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01dd e011 | | Load 0x0,0x11
01de 0337 | 7 | Declare_Variable Array
01df e012 | | Load 0x0,0x12
01e0 4800 |H | Short_Literal 0x0
01e1 00da | | Load_Top At_Offset_2
01e2 01d6 | | Execute Vector,Field_Write
01e3 0092 0224 | $| Action Push_String_Extended,0x224 ; "at_object_on_floor"
01e5 8013 | | Call 0x0,0x13
01e6 4801 |H | Short_Literal 0x1
01e7 00da | | Load_Top At_Offset_2
01e8 01d6 | | Execute Vector,Field_Write
01e9 e011 | | Load 0x0,0x11
01ea 01c3 | | Execute Vector,Check_In_Type
01eb 8014 | | Call 0x0,0x14
01ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ed 0000 0000 | | .XXX[0x3]
01ef 0000 | |
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0207 | | .CONST 0x0207 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 e409 | | Load 0x2,0x9
01f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f5 4800 |H | Short_Literal 0x0
01f6 e409 | | Load 0x2,0x9
01f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01f8 c40a | | Store 0x2,0xa
01f9 e40a | | Load 0x2,0xa
01fa 840b | | Call 0x2,0xb
01fb e018 | | Load 0x0,0x18
01fc 4804 |H | Short_Literal 0x4
01fd 4802 |H | Short_Literal 0x2
01fe 0099 | | Action Reference_Dynamic
01ff 4805 |H | Short_Literal 0x5
0200 4802 |H | Short_Literal 0x2
0201 0099 | | Action Reference_Dynamic
0202 4806 |H | Short_Literal 0x6
0203 4802 |H | Short_Literal 0x2
0204 0099 | | Action Reference_Dynamic
0205 8002 | | Call 0x0,0x2
0206 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0207 TRAP_01f0:
0207 010e | | Execute Exception,Is_Constraint_Error
0208 6805 |h | Jump_Zero 0x20e
0209 0092 0225 | %| Action Push_String_Extended,0x225 ; "Mauvais choix !! Recommencez..."
020b e007 | | Load 0x0,0x7
020c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
020d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
020e 0100 | | Execute Exception,Raise
020f ; --------------------------------------------------------------------------------------
020f ; STRING TABLE
020f ; --------------------------------------------------------------------------------------
020f 0030 | 0 | .STRTAB 0x0030->0x0227 ; "Choisissez une configuration de depart [1..21] (0 -> Quit)"
0210 0069 | i | .STRTAB 0x0069->0x0244 ; "at_object_holds"
0211 0076 | v | .STRTAB 0x0076->0x024c ; "start"
0212 0079 | y | .STRTAB 0x0079->0x024e ; "on_ladder"
0213 0080 | | .STRTAB 0x0080->0x0253 ; "on_floor"
0214 0086 | | .STRTAB 0x0086->0x0257 ; "on_floor_satisfied"
0215 0096 | | .STRTAB 0x0096->0x0260 ; "on_phys_object"
0216 00a2 | | .STRTAB 0x00a2->0x0267 ; "on_phys_object_holds"
0217 00b4 | | .STRTAB 0x00b4->0x0271 ; "on_phys_object_at_monkey"
0218 00ca | | .STRTAB 0x00ca->0x027d ; "on_phys_object_satisfied"
0219 00e0 | | .STRTAB 0x00e0->0x0289 ; "holds_nil"
021a 00e7 | | .STRTAB 0x00e7->0x028d ; "holds_nil_satisfied"
021b 00f8 | | .STRTAB 0x00f8->0x0297 ; "holds_object_ceil"
021c 0107 | | .STRTAB 0x0107->0x029f ; "holds_object_ceil_at_obj"
021d 011d | | .STRTAB 0x011d->0x02ab ; "holds_object_not_ceil_on_ladder"
021e 013a | : | .STRTAB 0x013a->0x02bb ; "holds_object_not_ceil_at"
021f 0150 | P | .STRTAB 0x0150->0x02c7 ; "holds_object_satisfied"
0220 0164 | d | .STRTAB 0x0164->0x02d2 ; "at_monkey"
0221 016b | k | .STRTAB 0x016b->0x02d6 ; "at_monkey_object"
0222 0179 | y | .STRTAB 0x0179->0x02de ; "at_monkey_on"
0223 0183 | | .STRTAB 0x0183->0x02e4 ; "at_object"
0224 018a | | .STRTAB 0x018a->0x02e9 ; "at_object_on_floor"
0225 019a | | .STRTAB 0x019a->0x02f2 ; "Mauvais choix !! Recommencez..."
0226 01b8 | | .STREND 0x01b8->0x0302
0227 4368 6f69 |Choi| .STRTAB_STRINGS
0302 0000 0000 | | .BLANK 0000[0x6]
0308 ; --------------------------------------------------------------------------------------
0308 ; Debug Table
0308 ; --------------------------------------------------------------------------------------
0308 0004 0009 | | .DEBUG4 0x0004,0x0009,0x0e95,0x0000,0x0001,0x0006
030e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
0312 001b 0326 | &| .DBG4T 0x001b,0x0326,0x8001,0x0000
0316 005b 0000 | [ | .DBG4T 0x005b,0x0000,0x000b,0x0000
031a 0073 0000 | s | .DBG4T 0x0073,0x0000,0x000b,0x0000
031e 0083 0333 | 3| .DBG4T 0x0083,0x0333,0x0001,0x4000
0322 01f3 0363 | c| .DBG4T 0x01f3,0x0363,0x0004,0x0000
0326 ; --------------------------------------------------------------------------------------
0326 ; Debug chain
0326 ; --------------------------------------------------------------------------------------
0326 0005 0006 | | .DBGLEN 0x0005,0x0006
0328 001b 0031 | 1| .DBGLNO 0x001b,0x0031,0x0035,0x003d,0x003f,0x0044,0x0045,0x0046,0x0049,0x004d,0x004e
0333 ; --------------------------------------------------------------------------------------
0333 ; Debug chain
0333 ; --------------------------------------------------------------------------------------
0333 0000 0017 | | .DBGLEN 0x0000,0x0017
0335 0083 009b | | .DBGLNO 0x0083,0x009b,0x00ab,0x00ad,0x00bd,0x00cd,0x00dd,0x00ed,0x00fd,0x010d,0x011d,0x012d,0x013d,0x014d,0x015d,0x016d,0x017d,0x018d,0x019d,0x01ad,0x01bd,0x01cd,0x01dd
034c 0001 0017 | | .XXX[0x17]
034e 0002 0003 | |
0350 0004 0005 | |
0352 0006 0007 | |
0354 0008 0009 | |
0356 000a 000b | |
0358 000c 000d | |
035a 000e 000f | |
035c 0010 0011 | |
035e 0012 0013 | |
0360 0014 0015 | |
0362 0016 | |
0363 ; --------------------------------------------------------------------------------------
0363 ; Debug chain
0363 ; --------------------------------------------------------------------------------------
0363 0000 0004 | | .DBGLEN 0x0000,0x0004
0365 01f3 01f9 | | .DBGLNO 0x01f3,0x01f9,0x01fb,0x0209
0369 0000 0000 | | .BLANK 0000[0x97]