|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1188cd9
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0378 | x | .CONST 0x0378 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0045 | E | .CONST 0x0045 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0015 | | .CONST 0x0015 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 0093 014b | K| push_full_address INIT_0148
000e 00f5 | | Load_Encached Unused21
000f 037e | ~ | Declare_Type Task,Defined,Visible
0010 036e | n | Declare_Variable Task,Visible
0011 e001 | | Load 0x0,0x1
0012 0129 | ) | Execute Any,Make_Visible
0013 e002 | | Load 0x0,0x2
0014 0129 | ) | Execute Any,Make_Visible
0015 00bf | | Action Accept_Activation
0016 0007 | | Action Break_Optional
0017 0007 | | Action Break_Optional
0018 0007 | | Action Break_Optional
0019 0007 | | Action Break_Optional
001a 0007 | | Action Break_Optional
001b 00e4 | | Load_Encached Positive_Cache
001c 0266 | f | Execute Discrete,Bounds
001d e003 | | Load 0x0,0x3
001e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
001f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0020 02a0 | | Declare_Subprogram Null_Subprogram
0021 4801 |H | Short_Literal 0x1
0022 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
0023 0007 | | Action Break_Optional
0024 029d 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call
0026 e004 | | Load 0x0,0x4
0027 e005 | | Load 0x0,0x5
0028 e003 | | Load 0x0,0x3
0029 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002a e006 | | Load 0x0,0x6
002b 1913 | | Execute Package,Field_Reference,Field_Number 0x13
002c 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002d e007 | | Load 0x0,0x7
002e 0387 | | Declare_Variable Package
002f 00d8 | | Load_Top At_Offset_0
0030 020f | | Execute Module,Activate
0031 029d 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call
0033 029d 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call
0035 029d 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call
0037 e003 | | Load 0x0,0x3
0038 e212 | | Load 0x1,0x12
0039 e006 | | Load 0x0,0x6
003a e008 | | Load 0x0,0x8
003b e009 | | Load 0x0,0x9
003c e00a | | Load 0x0,0xa
003d e00b | | Load 0x0,0xb
003e e00c | | Load 0x0,0xc
003f 00b6 | | Action Make_Scope
0040 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0041 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0042 480b |H | Short_Literal 0xb
0043 e20d | | Load 0x1,0xd
0044 020e | | Execute Module,Augment_Imports
0045 BODY_0008:
0045 00be | | Action Activate_Tasks
0046 00bc | | Action Signal_Activated
0047 00bb | | Action Signal_Completion
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 00da | | Load_Top At_Offset_2
004c 4803 |H | Short_Literal 0x3
004d e00d | | Load 0x0,0xd
004e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
004f 01d7 | | Execute Vector,Field_Read
0050 027f | | Execute Discrete,Equal
0051 6802 |h | Jump_Zero 0x54
0052 4801 |H | Short_Literal 0x1
0053 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0054 4800 |H | Short_Literal 0x0
0055 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0056 0000 0000 | | .XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0066 | f | .CONST 0x0066 ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0005 | | .CONST 0x0005 ; Number of locals
005b INIT_0058:
005b e003 | | Load 0x0,0x3
005c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
005d 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
005e e003 | | Load 0x0,0x3
005f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0060 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0061 e003 | | Load 0x0,0x3
0062 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0063 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0064 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
0066 BODY_0058:
0066 e003 | | Load 0x0,0x3
0067 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0068 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0069 e003 | | Load 0x0,0x3
006a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
006b e003 | | Load 0x0,0x3
006c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
006d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
006e c402 | | Store 0x2,0x2
006f 00cf | | Action Mark_Auxiliary
0070 7821 |x! | Jump 0x92
0071 e402 | | Load 0x2,0x2
0072 e003 | | Load 0x0,0x3
0073 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0074 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0075 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0076 e006 | | Load 0x0,0x6
0077 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0078 e5ff | | Load 0x2,-0x1
0079 e006 | | Load 0x0,0x6
007a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
007b 01df | | Execute Vector,Equal
007c 680f |h | Jump_Zero 0x8c
007d e402 | | Load 0x2,0x2
007e e003 | | Load 0x0,0x3
007f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0080 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0081 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0082 003b | ; | Store_Top Access,At_Offset_3
0083 e003 | | Load 0x0,0x3
0084 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0085 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0086 00db | | Load_Top At_Offset_3
0087 e003 | | Load 0x0,0x3
0088 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0089 181b | | Execute Package,Field_Execute,Field_Number 0x1b
008a c403 | | Store 0x2,0x3
008b 8405 | | Call 0x2,0x5
008c e402 | | Load 0x2,0x2
008d e003 | | Load 0x0,0x3
008e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
008f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0090 c402 | | Store 0x2,0x2
0091 00c9 | | Action Pop_Auxiliary_Loop
0092 e402 | | Load 0x2,0x2
0093 e003 | | Load 0x0,0x3
0094 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0095 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0096 6fda |o | Jump_Zero 0x71
0097 00ce | | Action Pop_Auxiliary
0098 0831 | 1 | Execute_Immediate Raise,0x31
0099 0000 0000 | | .BLANK 0000[0x7]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a5 | | .CONST 0x00a5 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0002 | | .CONST 0x0002 ; Number of locals
00a3 INIT_00a0:
00a3 00e3 | | Load_Encached Natural_Cache
00a4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00a5 BODY_00a0:
00a5 e5fe | | Load 0x2,-0x2
00a6 6821 |h! | Jump_Zero 0xc8
00a7 00cf | | Action Mark_Auxiliary
00a8 e5ff | | Load 0x2,-0x1
00a9 01d9 | | Execute Vector,Reverse_Bounds
00aa 0263 | c | Execute Discrete,Above_Bound
00ab 7016 |p | Jump_Nonzero 0xc2
00ac 00d8 | | Load_Top At_Offset_0
00ad e5ff | | Load 0x2,-0x1
00ae 01d7 | | Execute Vector,Field_Read
00af 0f20 | | Execute_Immediate Equal,0x20
00b0 6803 |h | Jump_Zero 0xb4
00b1 00db | | Load_Top At_Offset_3
00b2 0a01 | | Execute_Immediate Plus,0x1
00b3 c402 | | Store 0x2,0x2
00b4 00db | | Load_Top At_Offset_3
00b5 0f05 | | Execute_Immediate Equal,0x5
00b6 6809 |h | Jump_Zero 0xc0
00b7 e5ff | | Load 0x2,-0x1
00b8 01dd | | Execute Vector,First
00b9 00d9 | | Load_Top At_Offset_1
00ba e5ff | | Load 0x2,-0x1
00bb 01cf | | Execute Vector,Slice_Read
00bc 0092 0324 | $| Action Push_String_Extended,0x324 ; "..."
00be 01cc | | Execute Vector,Catenate
00bf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00c0 00c8 | | Action Pop_Auxiliary_Range
00c1 3fea |? | Loop_Increasing 0xac
00c2 00ce | | Action Pop_Auxiliary
00c3 00db | | Load_Top At_Offset_3
00c4 0092 0324 | $| Action Push_String_Extended,0x324 ; "..."
00c6 01cc | | Execute Vector,Catenate
00c7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00c8 00db | | Load_Top At_Offset_3
00c9 0092 0324 | $| Action Push_String_Extended,0x324 ; "..."
00cb 01cc | | Execute Vector,Catenate
00cc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d6 | | .CONST 0x00d6 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0002 | | .CONST 0x0002 ; Number of locals
00d3 INIT_00d0:
00d3 e003 | | Load 0x0,0x3
00d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d5 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
00d6 BODY_00d0:
00d6 e003 | | Load 0x0,0x3
00d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d8 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
00d9 e5ff | | Load 0x2,-0x1
00da e003 | | Load 0x0,0x3
00db 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00dc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00dd 0039 | 9 | Store_Top Access,At_Offset_1
00de 00cf | | Action Mark_Auxiliary
00df 782f |x/ | Jump 0x10f
00e0 e5fe | | Load 0x2,-0x2
00e1 6815 |h | Jump_Zero 0xf7
00e2 4802 |H | Short_Literal 0x2
00e3 e00e | | Load 0x0,0xe
00e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e5 e5fd | | Load 0x2,-0x3
00e6 e402 | | Load 0x2,0x2
00e7 e003 | | Load 0x0,0x3
00e8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e9 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00ea e006 | | Load 0x0,0x6
00eb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ec 8214 | | Call 0x1,0x14
00ed e008 | | Load 0x0,0x8
00ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ef e00c | | Load 0x0,0xc
00f0 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00f1 4801 |H | Short_Literal 0x1
00f2 e008 | | Load 0x0,0x8
00f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f4 e00c | | Load 0x0,0xc
00f5 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
00f6 781d |x | Jump 0x114
00f7 4802 |H | Short_Literal 0x2
00f8 e00e | | Load 0x0,0xe
00f9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00fa 00db | | Load_Top At_Offset_3
00fb e003 | | Load 0x0,0x3
00fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00fd 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00fe e006 | | Load 0x0,0x6
00ff 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0100 e008 | | Load 0x0,0x8
0101 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0102 e00c | | Load 0x0,0xc
0103 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0104 4801 |H | Short_Literal 0x1
0105 e008 | | Load 0x0,0x8
0106 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0107 e00c | | Load 0x0,0xc
0108 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0109 00d9 | | Load_Top At_Offset_1
010a e003 | | Load 0x0,0x3
010b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
010c 181c | | Execute Package,Field_Execute,Field_Number 0x1c
010d 003a | : | Store_Top Access,At_Offset_2
010e 00c9 | | Action Pop_Auxiliary_Loop
010f 00d9 | | Load_Top At_Offset_1
0110 e003 | | Load 0x0,0x3
0111 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0112 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0113 6fcc |o | Jump_Zero 0xe0
0114 00ce | | Action Pop_Auxiliary
0115 4801 |H | Short_Literal 0x1
0116 e008 | | Load 0x0,0x8
0117 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0118 e00c | | Load 0x0,0xc
0119 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
011a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
011b 0000 0000 | | .BLANK 0000[0x5]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 012c | , | .CONST 0x012c ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0003 | | .CONST 0x0003 ; Number of locals
0123 INIT_0120:
0123 4801 |H | Short_Literal 0x1
0124 e404 | | Load 0x2,0x4
0125 e003 | | Load 0x0,0x3
0126 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0127 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0128 e210 | | Load 0x1,0x10
0129 0334 | 4 | Declare_Variable Array,With_Constraint
012a 00e4 | | Load_Encached Positive_Cache
012b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
012c BODY_0120:
012c 00cf | | Action Mark_Auxiliary
012d 7810 |x | Jump 0x13e
012e e403 | | Load 0x2,0x3
012f e003 | | Load 0x0,0x3
0130 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0131 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0132 00da | | Load_Top At_Offset_2
0133 e602 | | Load 0x3,0x2
0134 01d6 | | Execute Vector,Field_Write
0135 00d9 | | Load_Top At_Offset_1
0136 0a01 | | Execute_Immediate Plus,0x1
0137 005a | Z | Store_Top Discrete,At_Offset_2
0138 e403 | | Load 0x2,0x3
0139 e003 | | Load 0x0,0x3
013a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
013b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
013c c403 | | Store 0x2,0x3
013d 00c9 | | Action Pop_Auxiliary_Loop
013e e403 | | Load 0x2,0x3
013f e003 | | Load 0x0,0x3
0140 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0141 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0142 6feb |o | Jump_Zero 0x12e
0143 00ce | | Action Pop_Auxiliary
0144 00d9 | | Load_Top At_Offset_1
0145 00cb | | Action Pop_Block_With_Result
0146 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0147 0000 | | .XXX[0x1]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0173 | s | .CONST 0x0173 ; Address of begin
0149 018a | | .CONST 0x018a ; Address of exception handler
014a 0018 | | .CONST 0x0018 ; Number of locals
014b INIT_0148:
014b 4802 |H | Short_Literal 0x2
014c 02cb | | Declare_Variable Entry
014d 4800 |H | Short_Literal 0x0
014e 02cb | | Declare_Variable Entry
014f 4800 |H | Short_Literal 0x0
0150 02cb | | Declare_Variable Entry
0151 4801 |H | Short_Literal 0x1
0152 02cb | | Declare_Variable Entry
0153 4801 |H | Short_Literal 0x1
0154 02cb | | Declare_Variable Entry
0155 00bf | | Action Accept_Activation
0156 e001 | | Load 0x0,0x1
0157 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0158 02ff | | Declare_Variable Variant_Record
0159 00d8 | | Load_Top At_Offset_0
015a 1c00 | | Execute_Immediate Run_Utility,0x0
015b e002 | | Load 0x0,0x2
015c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
015d e001 | | Load 0x0,0x1
015e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
015f 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0160 e001 | | Load 0x0,0x1
0161 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0162 02ff | | Declare_Variable Variant_Record
0163 00d8 | | Load_Top At_Offset_0
0164 1c00 | | Execute_Immediate Run_Utility,0x0
0165 0092 0325 | %| Action Push_String_Extended,0x325 ; "Quit"
0167 480e 4835 |H H5| Declare_Variable Select 0x000, 0x002,
0169 480d 4836 |H H6| [0x000]: 0x000 = 0x0000,
016b 4800 4800 |H H | [0x00d]: 0x036 = 0x01b0,
016d 4800 4802 |H H | [0x00e]: 0x035 = 0x01a8
016f 02cf | |
0170 029f 020b | | Declare_Subprogram INIT_0208,For_Call
0172 00bc | | Action Signal_Activated
0173 BODY_0148:
0173 00db | | Load_Top At_Offset_3
0174 00db | | Load_Top At_Offset_3
0175 e003 | | Load 0x0,0x3
0176 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0177 00d1 | | Pop_Control Pop_Count_1
0178 00d9 | | Load_Top At_Offset_1
0179 013f | ? | Execute Select,Rendezvous
017a 00d1 | | Pop_Control Pop_Count_1
017b e212 | | Load 0x1,0x12
017c e003 | | Load 0x0,0x3
017d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
017e 00db | | Load_Top At_Offset_3
017f 01de | | Execute Vector,Not_Equal
0180 6808 |h | Jump_Zero 0x189
0181 00cf | | Action Mark_Auxiliary
0182 0007 | | Action Break_Optional
0183 e004 | | Load 0x0,0x4
0184 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0185 8218 | | Call 0x1,0x18
0186 00c9 | | Action Pop_Auxiliary_Loop
0187 7ffb | | Jump 0x183
0188 00ce | | Action Pop_Auxiliary
0189 00bb | | Action Signal_Completion
018a TRAP_0148:
018a e005 | | Load 0x0,0x5
018b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
018c 010f | | Execute Exception,Equal
018d 6814 |h | Jump_Zero 0x1a2
018e 0092 0326 | &| Action Push_String_Extended,0x326 ; "Could not find the script text file for a "
0190 e006 | | Load 0x0,0x6
0191 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0192 e006 | | Load 0x0,0x6
0193 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0194 e006 | | Load 0x0,0x6
0195 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0196 01cc | | Execute Vector,Catenate
0197 0092 0327 | '| Action Push_String_Extended,0x327 ; " terminal."
0199 01cc | | Execute Vector,Catenate
019a e007 | | Load 0x0,0x7
019b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
019c e007 | | Load 0x0,0x7
019d 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
019e 4800 |H | Short_Literal 0x0
019f 00b6 | | Action Make_Scope
01a0 170e | | Execute Task,Entry_Call,Field_Number 0xe
01a1 00bb | | Action Signal_Completion
01a2 0100 | | Execute Exception,Raise
01a3 0000 0000 | | .BLANK 0000[0x5]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; See instruction 0x02cf at 0x167, index=0xe
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab e215 | | Load 0x1,0x15
01ac e212 | | Load 0x1,0x12
01ad 016d | m | Execute Variant_Record,Structure_Write
01ae 4100 |A | End_Rendezvous 0x0
01af 0000 | | .XXX[0x1]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; See instruction 0x02cf at 0x167, index=0xd
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 029f 0273 | s| Declare_Subprogram INIT_0270,For_Call
01b5 e5fd | | Load 0x2,-0x3
01b6 e5fe | | Load 0x2,-0x2
01b7 e005 | | Load 0x0,0x5
01b8 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01b9 e001 | | Load 0x0,0x1
01ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01bb e001 | | Load 0x0,0x1
01bc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01bd 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
01be e001 | | Load 0x0,0x1
01bf 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01c0 e001 | | Load 0x0,0x1
01c1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01c2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01c3 c214 | | Store 0x1,0x14
01c4 00cf | | Action Mark_Auxiliary
01c5 780f |x | Jump 0x1d5
01c6 e213 | | Load 0x1,0x13
01c7 e214 | | Load 0x1,0x14
01c8 e001 | | Load 0x0,0x1
01c9 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01ca 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01cb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01cc e002 | | Load 0x0,0x2
01cd 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01ce c213 | | Store 0x1,0x13
01cf e214 | | Load 0x1,0x14
01d0 e001 | | Load 0x0,0x1
01d1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01d2 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01d3 c214 | | Store 0x1,0x14
01d4 00c9 | | Action Pop_Auxiliary_Loop
01d5 e214 | | Load 0x1,0x14
01d6 e001 | | Load 0x0,0x1
01d7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01d8 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01d9 6fec |o | Jump_Zero 0x1c6
01da 00ce | | Action Pop_Auxiliary
01db e213 | | Load 0x1,0x13
01dc e215 | | Load 0x1,0x15
01dd e002 | | Load 0x0,0x2
01de 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01df c213 | | Store 0x1,0x13
01e0 e004 | | Load 0x0,0x4
01e1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01e2 4800 |H | Short_Literal 0x0
01e3 480a |H | Short_Literal 0xa
01e4 4801 |H | Short_Literal 0x1
01e5 e004 | | Load 0x0,0x4
01e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e7 e008 | | Load 0x0,0x8
01e8 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01e9 4800 |H | Short_Literal 0x0
01ea e008 | | Load 0x0,0x8
01eb 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01ec 0092 0328 | (| Action Push_String_Extended,0x328 ; "Available Scripts:"
01ee e004 | | Load 0x0,0x4
01ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f0 e008 | | Load 0x0,0x8
01f1 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01f2 8402 | | Call 0x2,0x2
01f3 e212 | | Load 0x1,0x12
01f4 e003 | | Load 0x0,0x3
01f5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01f6 e004 | | Load 0x0,0x4
01f7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01f8 e212 | | Load 0x1,0x12
01f9 e003 | | Load 0x0,0x3
01fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01fb e216 | | Load 0x1,0x16
01fc 01df | | Execute Vector,Equal
01fd 6803 |h | Jump_Zero 0x201
01fe e009 | | Load 0x0,0x9
01ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0200 0257 | W | Execute Discrete,Raise
0201 4100 |A | End_Rendezvous 0x0
0202 0000 0000 | | .BLANK 0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 021e | | .CONST 0x021e ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0005 | | .CONST 0x0005 ; Number of locals
020b INIT_0208:
020b e212 | | Load 0x1,0x12
020c 800a | | Call 0x0,0xa
020d 00e3 | | Load_Encached Natural_Cache
020e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
020f 00e1 | | Load_Encached Boolean_Cache
0210 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0211 4811 4851 |H HQ| Declare_Variable Select 0x000, 0x004,
0213 4810 4854 |H HT| [0x000]: 0x000 = 0x0000,
0215 480e 485a |H HZ| [0x00f]: 0x05b = 0x02d8,
0217 480f 485b |H H[| [0x00e]: 0x05a = 0x02d0,
0219 4800 4800 |H H | [0x010]: 0x054 = 0x02a0,
021b 4800 4804 |H H | [0x011]: 0x051 = 0x0288
021d 02cf | |
021e BODY_0208:
021e 00cf | | Action Mark_Auxiliary
021f 0007 | | Action Break_Optional
0220 e004 | | Load 0x0,0x4
0221 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0222 00db | | Load_Top At_Offset_3
0223 e402 | | Load 0x2,0x2
0224 01dd | | Execute Vector,First
0225 027f | | Execute Discrete,Equal
0226 6807 |h | Jump_Zero 0x22e
0227 4800 |H | Short_Literal 0x0
0228 4800 |H | Short_Literal 0x0
0229 e403 | | Load 0x2,0x3
022a e402 | | Load 0x2,0x2
022b 01d7 | | Execute Vector,Field_Read
022c 800b | | Call 0x0,0xb
022d 7819 |x | Jump 0x247
022e 4800 |H | Short_Literal 0x0
022f 4801 |H | Short_Literal 0x1
0230 e403 | | Load 0x2,0x3
0231 0aff | | Execute_Immediate Plus,-0x1
0232 e402 | | Load 0x2,0x2
0233 01d7 | | Execute Vector,Field_Read
0234 800b | | Call 0x0,0xb
0235 4800 |H | Short_Literal 0x0
0236 4800 |H | Short_Literal 0x0
0237 e403 | | Load 0x2,0x3
0238 e402 | | Load 0x2,0x2
0239 01d7 | | Execute Vector,Field_Read
023a 800b | | Call 0x0,0xb
023b 00db | | Load_Top At_Offset_3
023c e402 | | Load 0x2,0x2
023d 01dc | | Execute Vector,Last
023e 027e | ~ | Execute Discrete,Not_Equal
023f 6807 |h | Jump_Zero 0x247
0240 4801 |H | Short_Literal 0x1
0241 4801 |H | Short_Literal 0x1
0242 e403 | | Load 0x2,0x3
0243 0a01 | | Execute_Immediate Plus,0x1
0244 e402 | | Load 0x2,0x2
0245 01d7 | | Execute Vector,Field_Read
0246 800b | | Call 0x0,0xb
0247 00cf | | Action Mark_Auxiliary
0248 0007 | | Action Break_Optional
0249 00da | | Load_Top At_Offset_2
024a 013f | ? | Execute Select,Rendezvous
024b 4604 |F | Jump_Case 0x5
024c 7813 |x | Jump 0x260 ; case 0x0
024d 7812 |x | Jump 0x260 ; case 0x1
024e 7801 |x | Jump 0x250 ; case 0x2
024f 7804 |x | Jump 0x254 ; case 0x3
0250 00ce | | Action Pop_Auxiliary ; case 0x4
0251 00ce | | Action Pop_Auxiliary
0252 00cc | | Action Pop_Block
0253 7f34 | 4 | Jump 0x188
0254 e212 | | Load 0x1,0x12
0255 e003 | | Load 0x0,0x3
0256 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0257 e216 | | Load 0x1,0x16
0258 01df | | Execute Vector,Equal
0259 6804 |h | Jump_Zero 0x25e
025a 00ce | | Action Pop_Auxiliary
025b 00ce | | Action Pop_Auxiliary
025c 00cc | | Action Pop_Block
025d 7f2a | * | Jump 0x188
025e 00ce | | Action Pop_Auxiliary
025f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0260 00db | | Load_Top At_Offset_3
0261 6803 |h | Jump_Zero 0x265
0262 4800 |H | Short_Literal 0x0
0263 a404 | | Store_Unchecked 0x2,0x4
0264 7802 |x | Jump 0x267
0265 00c9 | | Action Pop_Auxiliary_Loop
0266 7fe2 | | Jump 0x249
0267 00ce | | Action Pop_Auxiliary
0268 00c9 | | Action Pop_Auxiliary_Loop
0269 7fb6 | | Jump 0x220
026a 0000 0000 | | .BLANK 0000[0x6]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 027f | | .CONST 0x027f ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 60ac |` | Indirect_Literal Discrete,0x320,{0x00000000, 0x0e100000}
0274 4800 |H | Short_Literal 0x0
0275 4801 |H | Short_Literal 0x1
0276 480f |H | Short_Literal 0xf
0277 e213 | | Load 0x1,0x13
0278 e004 | | Load 0x0,0x4
0279 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027a e002 | | Load 0x0,0x2
027b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
027c e212 | | Load 0x1,0x12
027d 016d | m | Execute Variant_Record,Structure_Write
027e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
027f TRAP_0270:
027f e002 | | Load 0x0,0x2
0280 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0281 010f | | Execute Exception,Equal
0282 6803 |h | Jump_Zero 0x286
0283 e009 | | Load 0x0,0x9
0284 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0285 0257 | W | Execute Discrete,Raise
0286 0100 | | Execute Exception,Raise
0287 0000 | | .XXX[0x1]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; See instruction 0x02cf at 0x211, index=0x11
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 00db | | Load_Top At_Offset_3
028c e402 | | Load 0x2,0x2
028d 01dc | | Execute Vector,Last
028e 027d | } | Execute Discrete,Greater
028f 680b |h | Jump_Zero 0x29b
0290 e004 | | Load 0x0,0x4
0291 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0292 e008 | | Load 0x0,0x8
0293 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0294 0092 0329 | )| Action Push_String_Extended,0x329 ; "Cannot move after the last step"
0296 e007 | | Load 0x0,0x7
0297 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0298 e007 | | Load 0x0,0x7
0299 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
029a 4100 |A | End_Rendezvous 0x0
029b 00db | | Load_Top At_Offset_3
029c a403 | | Store_Unchecked 0x2,0x3
029d 4801 |H | Short_Literal 0x1
029e a404 | | Store_Unchecked 0x2,0x4
029f 4100 |A | End_Rendezvous 0x0
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; See instruction 0x02cf at 0x211, index=0x10
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 e403 | | Load 0x2,0x3
02a4 e7fe | | Load 0x3,-0x2
02a5 0273 | s | Execute Discrete,Plus
02a6 0d01 | | Execute_Immediate Less,0x1
02a7 680b |h | Jump_Zero 0x2b3
02a8 e004 | | Load 0x0,0x4
02a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02aa e008 | | Load 0x0,0x8
02ab 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
02ac 0092 032a | *| Action Push_String_Extended,0x32a ; "Cannot move before the first step"
02ae e007 | | Load 0x0,0x7
02af 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02b0 e007 | | Load 0x0,0x7
02b1 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
02b2 4100 |A | End_Rendezvous 0x0
02b3 e403 | | Load 0x2,0x3
02b4 e7fe | | Load 0x3,-0x2
02b5 0273 | s | Execute Discrete,Plus
02b6 e402 | | Load 0x2,0x2
02b7 01dc | | Execute Vector,Last
02b8 027d | } | Execute Discrete,Greater
02b9 680b |h | Jump_Zero 0x2c5
02ba e004 | | Load 0x0,0x4
02bb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02bc e008 | | Load 0x0,0x8
02bd 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
02be 0092 0329 | )| Action Push_String_Extended,0x329 ; "Cannot move after the last step"
02c0 e007 | | Load 0x0,0x7
02c1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
02c2 e007 | | Load 0x0,0x7
02c3 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
02c4 4100 |A | End_Rendezvous 0x0
02c5 e403 | | Load 0x2,0x3
02c6 e7fe | | Load 0x3,-0x2
02c7 0273 | s | Execute Discrete,Plus
02c8 c403 | | Store 0x2,0x3
02c9 4801 |H | Short_Literal 0x1
02ca a404 | | Store_Unchecked 0x2,0x4
02cb 4100 |A | End_Rendezvous 0x0
02cc 0000 0000 | | .BLANK 0000[0x4]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; See instruction 0x02cf at 0x211, index=0xe
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 4100 |A | End_Rendezvous 0x0
02d4 0000 0000 | | .BLANK 0000[0x4]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; See instruction 0x02cf at 0x211, index=0xf
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db 029f 030b | | Declare_Subprogram INIT_0308,For_Call
02dd e004 | | Load 0x0,0x4
02de 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02df 4800 |H | Short_Literal 0x0
02e0 480a |H | Short_Literal 0xa
02e1 4801 |H | Short_Literal 0x1
02e2 e004 | | Load 0x0,0x4
02e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e4 e008 | | Load 0x0,0x8
02e5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
02e6 4800 |H | Short_Literal 0x0
02e7 e008 | | Load 0x0,0x8
02e8 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
02e9 0092 0328 | (| Action Push_String_Extended,0x328 ; "Available Scripts:"
02eb e004 | | Load 0x0,0x4
02ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ed e008 | | Load 0x0,0x8
02ee 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
02ef 8602 | | Call 0x3,0x2
02f0 e212 | | Load 0x1,0x12
02f1 e003 | | Load 0x0,0x3
02f2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02f3 e004 | | Load 0x0,0x4
02f4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02f5 e212 | | Load 0x1,0x12
02f6 e003 | | Load 0x0,0x3
02f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02f8 e216 | | Load 0x1,0x16
02f9 01df | | Execute Vector,Equal
02fa 6803 |h | Jump_Zero 0x2fe
02fb e009 | | Load 0x0,0x9
02fc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02fd 0257 | W | Execute Discrete,Raise
02fe 4801 |H | Short_Literal 0x1
02ff a403 | | Store_Unchecked 0x2,0x3
0300 4100 |A | End_Rendezvous 0x0
0301 0000 0000 | | .BLANK 0000[0x7]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0317 | | .CONST 0x0317 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 6014 |` | Indirect_Literal Discrete,0x320,{0x00000000, 0x0e100000}
030c 4800 |H | Short_Literal 0x0
030d 4801 |H | Short_Literal 0x1
030e 480f |H | Short_Literal 0xf
030f e213 | | Load 0x1,0x13
0310 e004 | | Load 0x0,0x4
0311 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0312 e002 | | Load 0x0,0x2
0313 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0314 e212 | | Load 0x1,0x12
0315 016d | m | Execute Variant_Record,Structure_Write
0316 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0317 TRAP_0308:
0317 e002 | | Load 0x0,0x2
0318 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0319 010f | | Execute Exception,Equal
031a 6803 |h | Jump_Zero 0x31e
031b e009 | | Load 0x0,0x9
031c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
031d 0257 | W | Execute Discrete,Raise
031e 0100 | | Execute Exception,Raise
031f 0000 | | .XXX[0x1]
0320 0000 0000 | | .LITERAL {0x00000000, 0x0e100000}
0324 ; --------------------------------------------------------------------------------------
0324 ; STRING TABLE
0324 ; --------------------------------------------------------------------------------------
0324 0010 | | .STRTAB 0x0010->0x032c ; "..."
0325 0011 | | .STRTAB 0x0011->0x032d ; "Quit"
0326 0013 | | .STRTAB 0x0013->0x032f ; "Could not find the script text file for a "
0327 003b | ; | .STRTAB 0x003b->0x0344 ; " terminal."
0328 0043 | C | .STRTAB 0x0043->0x0349 ; "Available Scripts:"
0329 0053 | S | .STRTAB 0x0053->0x0352 ; "Cannot move after the last step"
032a 0070 | p | .STRTAB 0x0070->0x0362 ; "Cannot move before the first step"
032b 008f | | .STREND 0x008f->0x0372
032c 2e2e 2e51 |...Q| .STRTAB_STRINGS
0373 0000 0000 | | .BLANK 0000[0x5]
0378 ; --------------------------------------------------------------------------------------
0378 ; Debug Table
0378 ; --------------------------------------------------------------------------------------
0378 0004 0007 | | .DEBUG4 0x0004,0x0007,0x5425,0x0000,0x0001,0x0000
037e 0000 0000 | | .BLANK 0000[0x82]