|
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 - metrics - download
Length: 3072 (0xc00)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_20b24b7
└─⟦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 0408 | | .CONST 0x0408 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00dd | | .CONST 0x00dd ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002d | - | .CONST 0x002d ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional
000c 4800 |H | Short_Literal 0x0
000d 4804 |H | Short_Literal 0x4
000e 029f 00eb | | Declare_Subprogram For_Call,INIT_00e8
0010 03fe | | Declare_Type Discrete,Defined,Visible
0011 4800 |H | Short_Literal 0x0
0012 4803 |H | Short_Literal 0x3
0013 029f 0113 | | Declare_Subprogram For_Call,INIT_0110
0015 03fe | | Declare_Type Discrete,Defined,Visible
0016 0007 | | Action Break_Optional
0017 0007 | | Action Break_Optional
0018 029a 013b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0138
001a 029a 017b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0178
001c 029a 018b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0188
001e 029a 01ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a8
0020 029a 01db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d8
0022 029a 01f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01f0
0024 029a 025b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0258
0026 029a 0273 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0270
0028 00e2 | | Load_Encached Integer_Cache
0029 00e2 | | Load_Encached Integer_Cache
002a 02a0 | | Declare_Subprogram Null_Subprogram
002b 4802 |H | Short_Literal 0x2
002c 032e | . | Declare_Type Record,Defined,Visible
002d 4fff |O | Short_Literal 0x7ff
002e 00e2 | | Load_Encached Integer_Cache
002f 03f0 | | Declare_Variable Discrete,Visible,With_Value
0030 00d9 | | Load_Top At_Offset_1
0031 029f 03ab | | Declare_Subprogram For_Call,INIT_03a8
0033 4801 |H | Short_Literal 0x1
0034 032e | . | Declare_Type Record,Defined,Visible
0035 00bf | | Action Accept_Activation
0036 00e2 | | Load_Encached Integer_Cache
0037 060c | | Execute_Immediate Set_Value_Unchecked,0xc
0038 00e2 | | Load_Encached Integer_Cache
0039 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
003a 00e2 | | Load_Encached Integer_Cache
003b 0606 | | Execute_Immediate Set_Value_Unchecked,0x6
003c 00e2 | | Load_Encached Integer_Cache
003d 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
003e e219 | | Load 0x1,0x19
003f 0322 | " | Declare_Variable Record
0040 00d8 | | Load_Top At_Offset_0
0041 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0042 e21b | | Load 0x1,0x1b
0043 00d9 | | Load_Top At_Offset_1
0044 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0045 00da | | Load_Top At_Offset_2
0046 00d0 | | Action Swap_Control
0047 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0048 e219 | | Load 0x1,0x19
0049 0322 | " | Declare_Variable Record
004a 00d8 | | Load_Top At_Offset_0
004b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
004c e21b | | Load 0x1,0x1b
004d 00d9 | | Load_Top At_Offset_1
004e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
004f 00db | | Load_Top At_Offset_3
0050 00d0 | | Action Swap_Control
0051 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0052 e219 | | Load 0x1,0x19
0053 0322 | " | Declare_Variable Record
0054 00d8 | | Load_Top At_Offset_0
0055 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0056 e21b | | Load 0x1,0x1b
0057 00d9 | | Load_Top At_Offset_1
0058 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0059 e21d | | Load 0x1,0x1d
005a 00d0 | | Action Swap_Control
005b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
005c e219 | | Load 0x1,0x19
005d 0322 | " | Declare_Variable Record
005e 00d8 | | Load_Top At_Offset_0
005f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0060 e21b | | Load 0x1,0x1b
0061 00d9 | | Load_Top At_Offset_1
0062 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0063 e21d | | Load 0x1,0x1d
0064 00d0 | | Action Swap_Control
0065 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0066 e219 | | Load 0x1,0x19
0067 0322 | " | Declare_Variable Record
0068 00d8 | | Load_Top At_Offset_0
0069 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
006a e21b | | Load 0x1,0x1b
006b 00d9 | | Load_Top At_Offset_1
006c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
006d e21d | | Load 0x1,0x1d
006e 00d0 | | Action Swap_Control
006f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0070 e20d | | Load 0x1,0xd
0071 0266 | f | Execute Discrete,Bounds
0072 e219 | | Load 0x1,0x19
0073 029f 028b | | Declare_Subprogram For_Call,INIT_0288
0075 4801 |H | Short_Literal 0x1
0076 035d | ] | Declare_Type Array,Defined
0077 00d8 | | Load_Top At_Offset_0
0078 0337 | 7 | Declare_Variable Array
0079 00d8 | | Load_Top At_Offset_0
007a 0335 | 5 | Declare_Variable Array,Duplicate
007b 00cd | | Action Spare6_Action
007c e21e | | Load 0x1,0x1e
007d 4800 |H | Short_Literal 0x0
007e 00da | | Load_Top At_Offset_2
007f 01d6 | | Execute Vector,Field_Write
0080 e21f | | Load 0x1,0x1f
0081 4801 |H | Short_Literal 0x1
0082 00da | | Load_Top At_Offset_2
0083 01d6 | | Execute Vector,Field_Write
0084 e220 | | Load 0x1,0x20
0085 4802 |H | Short_Literal 0x2
0086 00da | | Load_Top At_Offset_2
0087 01d6 | | Execute Vector,Field_Write
0088 e221 | ! | Load 0x1,0x21
0089 4803 |H | Short_Literal 0x3
008a 00da | | Load_Top At_Offset_2
008b 01d6 | | Execute Vector,Field_Write
008c 00db | | Load_Top At_Offset_3
008d 4804 |H | Short_Literal 0x4
008e 00da | | Load_Top At_Offset_2
008f 01d6 | | Execute Vector,Field_Write
0090 00d9 | | Load_Top At_Offset_1
0091 01d4 | | Execute Vector,Structure_Write
0092 4800 |H | Short_Literal 0x0
0093 4801 |H | Short_Literal 0x1
0094 029f 02a3 | | Declare_Subprogram For_Call,INIT_02a0
0096 03fd | | Declare_Type Discrete,Defined
0097 e21b | | Load 0x1,0x1b
0098 e21a | | Load 0x1,0x1a
0099 e21d | | Load 0x1,0x1d
009a e21c | | Load 0x1,0x1c
009b 00e8 | | Load_Encached Character_Cache
009c 02a0 | | Declare_Subprogram Null_Subprogram
009d 4802 |H | Short_Literal 0x2
009e 035d | ] | Declare_Type Array,Defined
009f e21b | | Load 0x1,0x1b
00a0 e21a | | Load 0x1,0x1a
00a1 e21d | | Load 0x1,0x1d
00a2 e21c | | Load 0x1,0x1c
00a3 e225 | % | Load 0x1,0x25
00a4 02a0 | | Declare_Subprogram Null_Subprogram
00a5 4802 |H | Short_Literal 0x2
00a6 035d | ] | Declare_Type Array,Defined
00a7 00d9 | | Load_Top At_Offset_1
00a8 00d9 | | Load_Top At_Offset_1
00a9 02a0 | | Declare_Subprogram Null_Subprogram
00aa 4802 |H | Short_Literal 0x2
00ab 032d | - | Declare_Type Record,Defined
00ac 00d8 | | Load_Top At_Offset_0
00ad 0322 | " | Declare_Variable Record
00ae 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00af 00c7 | | Action Elaborate_Subprogram
00b0 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00b1 00c7 | | Action Elaborate_Subprogram
00b2 029d 02cb | | Declare_Subprogram For_Outer_Call,INIT_02c8
00b4 4800 |H | Short_Literal 0x0
00b5 4802 |H | Short_Literal 0x2
00b6 e001 | | Load 0x0,0x1
00b7 01d7 | | Execute Vector,Field_Read
00b8 02a0 | | Declare_Subprogram Null_Subprogram
00b9 038e | | Declare_Type Package,Defined
00ba e001 | | Load 0x0,0x1
00bb 4801 |H | Short_Literal 0x1
00bc e001 | | Load 0x0,0x1
00bd 01d7 | | Execute Vector,Field_Read
00be 4802 |H | Short_Literal 0x2
00bf 00db | | Load_Top At_Offset_3
00c0 020e | | Execute Module,Augment_Imports
00c1 0387 | | Declare_Variable Package
00c2 e002 | | Load 0x0,0x2
00c3 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00c4 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00c5 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00c6 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00c7 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00c8 4806 |H | Short_Literal 0x6
00c9 e22b | + | Load 0x1,0x2b
00ca 020e | | Execute Module,Augment_Imports
00cb 00d8 | | Load_Top At_Offset_0
00cc 020f | | Execute Module,Activate
00cd 029d 02db | | Declare_Subprogram For_Outer_Call,INIT_02d8
00cf 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00d0 00c7 | | Action Elaborate_Subprogram
00d1 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00d2 00c7 | | Action Elaborate_Subprogram
00d3 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00d4 00c7 | | Action Elaborate_Subprogram
00d5 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00d6 00c7 | | Action Elaborate_Subprogram
00d7 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00d8 00c7 | | Action Elaborate_Subprogram
00d9 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00da 00c7 | | Action Elaborate_Subprogram
00db 029d 02eb | | Declare_Subprogram For_Outer_Call,INIT_02e8
00dd BODY_0008:
00dd 00da | | Load_Top At_Offset_2
00de 180d | | Execute Package,Field_Execute,Field_Number 0xd
00df 822d | - | Call 0x1,0x2d
00e0 00da | | Load_Top At_Offset_2
00e1 180e | | Execute Package,Field_Execute,Field_Number 0xe
00e2 00bc | | Action Signal_Activated
00e3 00bb | | Action Signal_Completion
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 4607 |F | Jump_Case 0x7
00ec 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00ed 7807 |x | Jump 0xf5 ; case 0x1
00ee 780a |x | Jump 0xf9 ; case 0x2
00ef 780e |x | Jump 0xfe ; case 0x3
00f0 7811 |x | Jump 0x102 ; case 0x4
00f1 7812 |x | Jump 0x104 ; case 0x5
00f2 7813 |x | Jump 0x106 ; case 0x6
00f3 7816 |x | Jump 0x10a ; case 0x7
00f4 4302 |C | .XXX[0x1]
00f5 00da | | Load_Top At_Offset_2
00f6 0091 03b9 | | Action Push_String_Extended_Indexed,0x3b9 ; "MODEL_MARKER_ID"
00f8 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00f9 00db | | Load_Top At_Offset_3
00fa 00db | | Load_Top At_Offset_3
00fb 00e0 | | Load_Encached Standard_Cache
00fc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00fe 00da | | Load_Top At_Offset_2
00ff 00e0 | | Load_Encached Standard_Cache
0100 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0101 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0102 00db | | Load_Top At_Offset_3
0103 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0104 00db | | Load_Top At_Offset_3
0105 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0106 e20d | | Load 0x1,0xd
0107 00dc | | Load_Top At_Offset_4
0108 0267 | g | Execute Discrete,Predecessor
0109 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
010a e20d | | Load 0x1,0xd
010b 00dc | | Load_Top At_Offset_4
010c 0268 | h | Execute Discrete,Successor
010d 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
010e 0000 0000 | | .XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 4607 |F | Jump_Case 0x7
0114 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
0115 7807 |x | Jump 0x11d ; case 0x1
0116 780a |x | Jump 0x121 ; case 0x2
0117 780e |x | Jump 0x126 ; case 0x3
0118 7811 |x | Jump 0x12a ; case 0x4
0119 7812 |x | Jump 0x12c ; case 0x5
011a 7813 |x | Jump 0x12e ; case 0x6
011b 7816 |x | Jump 0x132 ; case 0x7
011c 4302 |C | .XXX[0x1]
011d 00da | | Load_Top At_Offset_2
011e 0091 03be | | Action Push_String_Extended_Indexed,0x3be ; "RIGHT"
0120 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0121 00db | | Load_Top At_Offset_3
0122 00db | | Load_Top At_Offset_3
0123 00e0 | | Load_Encached Standard_Cache
0124 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0125 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0126 00da | | Load_Top At_Offset_2
0127 00e0 | | Load_Encached Standard_Cache
0128 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0129 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
012a 00db | | Load_Top At_Offset_3
012b 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
012c 00db | | Load_Top At_Offset_3
012d 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
012e e20e | | Load 0x1,0xe
012f 00dc | | Load_Top At_Offset_4
0130 0267 | g | Execute Discrete,Predecessor
0131 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0132 e20e | | Load 0x1,0xe
0133 00dc | | Load_Top At_Offset_4
0134 0268 | h | Execute Discrete,Successor
0135 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0136 0000 0000 | | .XXX[0x2]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013c | < | .CONST 0x013c ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0002 | | .CONST 0x0002 ; Number of locals
013b INIT_0138:
013b 00e8 | | Load_Encached Character_Cache
013c BODY_0138:
013c 00db | | Load_Top At_Offset_3
013d e224 | $ | Load 0x1,0x24
013e 01d5 | | Execute Vector,Field_Reference
013f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0140 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0141 e5ff | | Load 0x2,-0x1
0142 e224 | $ | Load 0x1,0x24
0143 01d5 | | Execute Vector,Field_Reference
0144 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0145 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0146 822a | * | Call 0x1,0x2a
0147 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0148 00db | | Load_Top At_Offset_3
0149 e224 | $ | Load 0x1,0x24
014a 01d5 | | Execute Vector,Field_Reference
014b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
014c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
014d e5ff | | Load 0x2,-0x1
014e e224 | $ | Load 0x1,0x24
014f 01d5 | | Execute Vector,Field_Reference
0150 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0151 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0152 4820 |H | Short_Literal 0x20
0153 822c | , | Call 0x1,0x2c
0154 e5fe | | Load 0x2,-0x2
0155 e224 | $ | Load 0x1,0x24
0156 01d5 | | Execute Vector,Field_Reference
0157 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0158 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0159 e5fe | | Load 0x2,-0x2
015a e224 | $ | Load 0x1,0x24
015b 01d5 | | Execute Vector,Field_Reference
015c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
015d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
015e 00da | | Load_Top At_Offset_2
015f 822c | , | Call 0x1,0x2c
0160 e5fe | | Load 0x2,-0x2
0161 e224 | $ | Load 0x1,0x24
0162 01d5 | | Execute Vector,Field_Reference
0163 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0164 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0165 e5ff | | Load 0x2,-0x1
0166 e224 | $ | Load 0x1,0x24
0167 01d5 | | Execute Vector,Field_Reference
0168 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0169 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
016a e5fe | | Load 0x2,-0x2
016b e224 | $ | Load 0x1,0x24
016c 01d5 | | Execute Vector,Field_Reference
016d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
016e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
016f e5ff | | Load 0x2,-0x1
0170 e224 | $ | Load 0x1,0x24
0171 01d5 | | Execute Vector,Field_Reference
0172 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0173 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0174 4503 |E | Exit_Subprogram 0x3
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
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 e224 | $ | Load 0x1,0x24
017d 01d5 | | Execute Vector,Field_Reference
017e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
017f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0180 00db | | Load_Top At_Offset_3
0181 e224 | $ | Load 0x1,0x24
0182 01d5 | | Execute Vector,Field_Reference
0183 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0184 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0185 822a | * | Call 0x1,0x2a
0186 4401 |D | Exit_Subprogram With_Result,0x1
0187 0000 | | .XXX[0x1]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00da | | Load_Top At_Offset_2
018c e224 | $ | Load 0x1,0x24
018d 01d5 | | Execute Vector,Field_Reference
018e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
018f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0190 e5fe | | Load 0x2,-0x2
0191 e224 | $ | Load 0x1,0x24
0192 01d5 | | Execute Vector,Field_Reference
0193 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0194 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0195 027f | | Execute Discrete,Equal
0196 00db | | Load_Top At_Offset_3
0197 e224 | $ | Load 0x1,0x24
0198 01d5 | | Execute Vector,Field_Reference
0199 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
019a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
019b e5fe | | Load 0x2,-0x2
019c e224 | $ | Load 0x1,0x24
019d 01d5 | | Execute Vector,Field_Reference
019e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
019f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01a0 027f | | Execute Discrete,Equal
01a1 0279 | y | Execute Discrete,And
01a2 4402 |D | Exit_Subprogram With_Result,0x2
01a3 0000 0000 | | .BLANK 0000[0x5]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
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 00cf | | Action Mark_Auxiliary
01ac e21a | | Load 0x1,0x1a
01ad e21b | | Load 0x1,0x1b
01ae 0263 | c | Execute Discrete,Above_Bound
01af 7024 |p$ | Jump_Nonzero 0x1d4
01b0 00cf | | Action Mark_Auxiliary
01b1 e21c | | Load 0x1,0x1c
01b2 e21d | | Load 0x1,0x1d
01b3 0263 | c | Execute Discrete,Above_Bound
01b4 701c |p | Jump_Nonzero 0x1d1
01b5 00d8 | | Load_Top At_Offset_0
01b6 e404 | | Load 0x2,0x4
01b7 e229 | ) | Load 0x1,0x29
01b8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01b9 01a7 | | Execute Matrix,Field_Read
01ba 6814 |h | Jump_Zero 0x1cf
01bb 00d8 | | Load_Top At_Offset_0
01bc e404 | | Load 0x2,0x4
01bd 822a | * | Call 0x1,0x2a
01be e5ff | | Load 0x2,-0x1
01bf 027f | | Execute Discrete,Equal
01c0 680e |h | Jump_Zero 0x1cf
01c1 00db | | Load_Top At_Offset_3
01c2 e5fe | | Load 0x2,-0x2
01c3 e224 | $ | Load 0x1,0x24
01c4 01d5 | | Execute Vector,Field_Reference
01c5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01c6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01c7 00d8 | | Load_Top At_Offset_0
01c8 e5fe | | Load 0x2,-0x2
01c9 e224 | $ | Load 0x1,0x24
01ca 01d5 | | Execute Vector,Field_Reference
01cb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01cc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01cd 4801 |H | Short_Literal 0x1
01ce 4402 |D | Exit_Subprogram With_Result,0x2
01cf 00c8 | | Action Pop_Auxiliary_Range
01d0 3fe4 |? | Loop_Increasing 0x1b5
01d1 00ce | | Action Pop_Auxiliary
01d2 00c8 | | Action Pop_Auxiliary_Range
01d3 3fdc |? | Loop_Increasing 0x1b0
01d4 00ce | | Action Pop_Auxiliary
01d5 4800 |H | Short_Literal 0x0
01d6 4402 |D | Exit_Subprogram With_Result,0x2
01d7 0000 | | .XXX[0x1]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00db | | Load_Top At_Offset_3
01dc e224 | $ | Load 0x1,0x24
01dd 01d5 | | Execute Vector,Field_Reference
01de 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01df 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01e0 00db | | Load_Top At_Offset_3
01e1 e224 | $ | Load 0x1,0x24
01e2 01d5 | | Execute Vector,Field_Reference
01e3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01e4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01e5 00db | | Load_Top At_Offset_3
01e6 e224 | $ | Load 0x1,0x24
01e7 01d5 | | Execute Vector,Field_Reference
01e8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01e9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ea 00db | | Load_Top At_Offset_3
01eb e224 | $ | Load 0x1,0x24
01ec 01d5 | | Execute Vector,Field_Reference
01ed 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01ee 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01ef 4503 |E | Exit_Subprogram 0x3
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 00db | | Load_Top At_Offset_3
01f4 4603 |F | Jump_Case 0x3
01f5 7819 |x | Jump 0x20f ; case 0x0
01f6 782e |x. | Jump 0x225 ; case 0x1
01f7 7843 |xC | Jump 0x23b ; case 0x2
01f8 7800 |x | Jump 0x1f9 ; case 0x3
01f9 00da | | Load_Top At_Offset_2
01fa e224 | $ | Load 0x1,0x24
01fb 01d5 | | Execute Vector,Field_Reference
01fc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01fd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01fe e21d | | Load 0x1,0x1d
01ff 027f | | Execute Discrete,Equal
0200 6802 |h | Jump_Zero 0x203
0201 4800 |H | Short_Literal 0x0
0202 4402 |D | Exit_Subprogram With_Result,0x2
0203 00da | | Load_Top At_Offset_2
0204 e224 | $ | Load 0x1,0x24
0205 01d5 | | Execute Vector,Field_Reference
0206 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0207 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0208 0aff | | Execute_Immediate Plus,-0x1
0209 00db | | Load_Top At_Offset_3
020a e224 | $ | Load 0x1,0x24
020b 01d5 | | Execute Vector,Field_Reference
020c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
020d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
020e 7841 |xA | Jump 0x250
020f 00da | | Load_Top At_Offset_2
0210 e224 | $ | Load 0x1,0x24
0211 01d5 | | Execute Vector,Field_Reference
0212 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0213 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0214 e21a | | Load 0x1,0x1a
0215 027f | | Execute Discrete,Equal
0216 6802 |h | Jump_Zero 0x219
0217 4800 |H | Short_Literal 0x0
0218 4402 |D | Exit_Subprogram With_Result,0x2
0219 00da | | Load_Top At_Offset_2
021a e224 | $ | Load 0x1,0x24
021b 01d5 | | Execute Vector,Field_Reference
021c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
021d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
021e 0a01 | | Execute_Immediate Plus,0x1
021f 00db | | Load_Top At_Offset_3
0220 e224 | $ | Load 0x1,0x24
0221 01d5 | | Execute Vector,Field_Reference
0222 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0223 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0224 782b |x+ | Jump 0x250
0225 00da | | Load_Top At_Offset_2
0226 e224 | $ | Load 0x1,0x24
0227 01d5 | | Execute Vector,Field_Reference
0228 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0229 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
022a e21b | | Load 0x1,0x1b
022b 027f | | Execute Discrete,Equal
022c 6802 |h | Jump_Zero 0x22f
022d 4800 |H | Short_Literal 0x0
022e 4402 |D | Exit_Subprogram With_Result,0x2
022f 00da | | Load_Top At_Offset_2
0230 e224 | $ | Load 0x1,0x24
0231 01d5 | | Execute Vector,Field_Reference
0232 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0233 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0234 0aff | | Execute_Immediate Plus,-0x1
0235 00db | | Load_Top At_Offset_3
0236 e224 | $ | Load 0x1,0x24
0237 01d5 | | Execute Vector,Field_Reference
0238 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0239 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
023a 7815 |x | Jump 0x250
023b 00da | | Load_Top At_Offset_2
023c e224 | $ | Load 0x1,0x24
023d 01d5 | | Execute Vector,Field_Reference
023e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
023f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0240 e21c | | Load 0x1,0x1c
0241 027f | | Execute Discrete,Equal
0242 6802 |h | Jump_Zero 0x245
0243 4800 |H | Short_Literal 0x0
0244 4402 |D | Exit_Subprogram With_Result,0x2
0245 00da | | Load_Top At_Offset_2
0246 e224 | $ | Load 0x1,0x24
0247 01d5 | | Execute Vector,Field_Reference
0248 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0249 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
024a 0a01 | | Execute_Immediate Plus,0x1
024b 00db | | Load_Top At_Offset_3
024c e224 | $ | Load 0x1,0x24
024d 01d5 | | Execute Vector,Field_Reference
024e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
024f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0250 4801 |H | Short_Literal 0x1
0251 4402 |D | Exit_Subprogram With_Result,0x2
0252 0000 0000 | | .BLANK 0000[0x6]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00cf | | Action Mark_Auxiliary
025c e21c | | Load 0x1,0x1c
025d e21d | | Load 0x1,0x1d
025e 0263 | c | Execute Discrete,Above_Bound
025f 700c |p | Jump_Nonzero 0x26c
0260 4800 |H | Short_Literal 0x0
0261 00d9 | | Load_Top At_Offset_1
0262 e5ff | | Load 0x2,-0x1
0263 e224 | $ | Load 0x1,0x24
0264 01d5 | | Execute Vector,Field_Reference
0265 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0266 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0267 e229 | ) | Load 0x1,0x29
0268 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0269 01a6 | | Execute Matrix,Field_Write
026a 00c8 | | Action Pop_Auxiliary_Range
026b 3ff4 |? | Loop_Increasing 0x260
026c 4502 |E | Exit_Subprogram 0x2
026d 0000 0000 | | .XXX[0x3]
026f 0000 | |
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 00cf | | Action Mark_Auxiliary
0274 e21c | | Load 0x1,0x1c
0275 e21d | | Load 0x1,0x1d
0276 0263 | c | Execute Discrete,Above_Bound
0277 700c |p | Jump_Nonzero 0x284
0278 4801 |H | Short_Literal 0x1
0279 00d9 | | Load_Top At_Offset_1
027a e5ff | | Load 0x2,-0x1
027b e224 | $ | Load 0x1,0x24
027c 01d5 | | Execute Vector,Field_Reference
027d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
027e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
027f e229 | ) | Load 0x1,0x29
0280 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0281 01a6 | | Execute Matrix,Field_Write
0282 00c8 | | Action Pop_Auxiliary_Range
0283 3ff4 |? | Loop_Increasing 0x278
0284 4502 |E | Exit_Subprogram 0x2
0285 0000 0000 | | .XXX[0x3]
0287 0000 | |
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
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 00d1 | | Pop_Control Pop_Count_1
028c 00da | | Load_Top At_Offset_2
028d 01dc | | Execute Vector,Last
028e 00db | | Load_Top At_Offset_3
028f 01dd | | Execute Vector,First
0290 0263 | c | Execute Discrete,Above_Bound
0291 7006 |p | Jump_Nonzero 0x298
0292 00d8 | | Load_Top At_Offset_0
0293 e5ff | | Load 0x2,-0x1
0294 01d5 | | Execute Vector,Field_Reference
0295 1c00 | | Execute_Immediate Run_Utility,0x0
0296 0a01 | | Execute_Immediate Plus,0x1
0297 7ff8 | | Jump 0x290
0298 4302 |C | Exit_Subprogram From_Utility,0x2
0299 0000 0000 | | .BLANK 0000[0x7]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
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 4607 |F | Jump_Case 0x7
02a4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
02a5 7807 |x | Jump 0x2ad ; case 0x1
02a6 780a |x | Jump 0x2b1 ; case 0x2
02a7 780e |x | Jump 0x2b6 ; case 0x3
02a8 7811 |x | Jump 0x2ba ; case 0x4
02a9 7812 |x | Jump 0x2bc ; case 0x5
02aa 7813 |x | Jump 0x2be ; case 0x6
02ab 7816 |x | Jump 0x2c2 ; case 0x7
02ac 4302 |C | .XXX[0x1]
02ad 00da | | Load_Top At_Offset_2
02ae 0091 03c2 | | Action Push_String_Extended_Indexed,0x3c2 ; "PROTECTED"
02b0 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
02b1 00db | | Load_Top At_Offset_3
02b2 00db | | Load_Top At_Offset_3
02b3 00e0 | | Load_Encached Standard_Cache
02b4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02b5 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02b6 00da | | Load_Top At_Offset_2
02b7 00e0 | | Load_Encached Standard_Cache
02b8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02b9 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
02ba 00db | | Load_Top At_Offset_3
02bb 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02bc 00db | | Load_Top At_Offset_3
02bd 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02be e225 | % | Load 0x1,0x25
02bf 00dc | | Load_Top At_Offset_4
02c0 0267 | g | Execute Discrete,Predecessor
02c1 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02c2 e225 | % | Load 0x1,0x25
02c3 00dc | | Load_Top At_Offset_4
02c4 0268 | h | Execute Discrete,Successor
02c5 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02c6 0000 0000 | | .XXX[0x2]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 00db | | Load_Top At_Offset_3
02cc 00db | | Load_Top At_Offset_3
02cd e229 | ) | Load 0x1,0x29
02ce 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02cf 01a7 | | Execute Matrix,Field_Read
02d0 4402 |D | Exit_Subprogram With_Result,0x2
02d1 0000 0000 | | .BLANK 0000[0x7]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
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 00da | | Load_Top At_Offset_2
02dc e5fd | | Load 0x2,-0x3
02dd e5fe | | Load 0x2,-0x2
02de e229 | ) | Load 0x1,0x29
02df 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02e0 01a6 | | Execute Matrix,Field_Write
02e1 00da | | Load_Top At_Offset_2
02e2 e5fd | | Load 0x2,-0x3
02e3 e5fe | | Load 0x2,-0x2
02e4 e22b | + | Load 0x1,0x2b
02e5 180f | | Execute Package,Field_Execute,Field_Number 0xf
02e6 4504 |E | Exit_Subprogram 0x4
02e7 0000 | | .XXX[0x1]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb 00cf | | Action Mark_Auxiliary
02ec e21a | | Load 0x1,0x1a
02ed e21b | | Load 0x1,0x1b
02ee 0263 | c | Execute Discrete,Above_Bound
02ef 7016 |p | Jump_Nonzero 0x306
02f0 00cf | | Action Mark_Auxiliary
02f1 e21c | | Load 0x1,0x1c
02f2 e21d | | Load 0x1,0x1d
02f3 0263 | c | Execute Discrete,Above_Bound
02f4 700e |p | Jump_Nonzero 0x303
02f5 4820 |H | Short_Literal 0x20
02f6 00d9 | | Load_Top At_Offset_1
02f7 e404 | | Load 0x2,0x4
02f8 e229 | ) | Load 0x1,0x29
02f9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02fa 01a6 | | Execute Matrix,Field_Write
02fb 4801 |H | Short_Literal 0x1
02fc 00d9 | | Load_Top At_Offset_1
02fd e404 | | Load 0x2,0x4
02fe e229 | ) | Load 0x1,0x29
02ff 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0300 01a6 | | Execute Matrix,Field_Write
0301 00c8 | | Action Pop_Auxiliary_Range
0302 3ff2 |? | Loop_Increasing 0x2f5
0303 00ce | | Action Pop_Auxiliary
0304 00c8 | | Action Pop_Auxiliary_Range
0305 3fea |? | Loop_Increasing 0x2f0
0306 00ce | | Action Pop_Auxiliary
0307 4855 |HU | Short_Literal 0x55
0308 e21d | | Load 0x1,0x1d
0309 e21a | | Load 0x1,0x1a
030a e229 | ) | Load 0x1,0x29
030b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
030c 01a6 | | Execute Matrix,Field_Write
030d 484f |HO | Short_Literal 0x4f
030e e21d | | Load 0x1,0x1d
030f 0a01 | | Execute_Immediate Plus,0x1
0310 e21a | | Load 0x1,0x1a
0311 e229 | ) | Load 0x1,0x29
0312 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0313 01a6 | | Execute Matrix,Field_Write
0314 4843 |HC | Short_Literal 0x43
0315 e21d | | Load 0x1,0x1d
0316 0a02 | | Execute_Immediate Plus,0x2
0317 e21a | | Load 0x1,0x1a
0318 e229 | ) | Load 0x1,0x29
0319 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
031a 01a6 | | Execute Matrix,Field_Write
031b 4855 |HU | Short_Literal 0x55
031c e21d | | Load 0x1,0x1d
031d 0a03 | | Execute_Immediate Plus,0x3
031e e21a | | Load 0x1,0x1a
031f e229 | ) | Load 0x1,0x29
0320 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0321 01a6 | | Execute Matrix,Field_Write
0322 484f |HO | Short_Literal 0x4f
0323 e21d | | Load 0x1,0x1d
0324 0a04 | | Execute_Immediate Plus,0x4
0325 e21a | | Load 0x1,0x1a
0326 e229 | ) | Load 0x1,0x29
0327 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0328 01a6 | | Execute Matrix,Field_Write
0329 4843 |HC | Short_Literal 0x43
032a e21d | | Load 0x1,0x1d
032b 0a05 | | Execute_Immediate Plus,0x5
032c e21a | | Load 0x1,0x1a
032d e229 | ) | Load 0x1,0x29
032e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
032f 01a6 | | Execute Matrix,Field_Write
0330 4854 |HT | Short_Literal 0x54
0331 e21d | | Load 0x1,0x1d
0332 e21b | | Load 0x1,0x1b
0333 0a01 | | Execute_Immediate Plus,0x1
0334 e229 | ) | Load 0x1,0x29
0335 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0336 01a6 | | Execute Matrix,Field_Write
0337 4841 |HA | Short_Literal 0x41
0338 e21d | | Load 0x1,0x1d
0339 0a01 | | Execute_Immediate Plus,0x1
033a e21b | | Load 0x1,0x1b
033b 0a01 | | Execute_Immediate Plus,0x1
033c e229 | ) | Load 0x1,0x29
033d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
033e 01a6 | | Execute Matrix,Field_Write
033f 484f |HO | Short_Literal 0x4f
0340 e21d | | Load 0x1,0x1d
0341 e21b | | Load 0x1,0x1b
0342 0a02 | | Execute_Immediate Plus,0x2
0343 e229 | ) | Load 0x1,0x29
0344 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0345 01a6 | | Execute Matrix,Field_Write
0346 4845 |HE | Short_Literal 0x45
0347 e21d | | Load 0x1,0x1d
0348 0a01 | | Execute_Immediate Plus,0x1
0349 e21b | | Load 0x1,0x1b
034a 0a02 | | Execute_Immediate Plus,0x2
034b e229 | ) | Load 0x1,0x29
034c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
034d 01a6 | | Execute Matrix,Field_Write
034e 4854 |HT | Short_Literal 0x54
034f e21d | | Load 0x1,0x1d
0350 e21b | | Load 0x1,0x1b
0351 0a03 | | Execute_Immediate Plus,0x3
0352 e229 | ) | Load 0x1,0x29
0353 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0354 01a6 | | Execute Matrix,Field_Write
0355 4842 |HB | Short_Literal 0x42
0356 e21d | | Load 0x1,0x1d
0357 0a01 | | Execute_Immediate Plus,0x1
0358 e21b | | Load 0x1,0x1b
0359 0a03 | | Execute_Immediate Plus,0x3
035a e229 | ) | Load 0x1,0x29
035b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
035c 01a6 | | Execute Matrix,Field_Write
035d 4843 |HC | Short_Literal 0x43
035e e21d | | Load 0x1,0x1d
035f 0a02 | | Execute_Immediate Plus,0x2
0360 e21b | | Load 0x1,0x1b
0361 0a03 | | Execute_Immediate Plus,0x3
0362 e229 | ) | Load 0x1,0x29
0363 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0364 01a6 | | Execute Matrix,Field_Write
0365 484f |HO | Short_Literal 0x4f
0366 e21d | | Load 0x1,0x1d
0367 0a03 | | Execute_Immediate Plus,0x3
0368 e21b | | Load 0x1,0x1b
0369 0a03 | | Execute_Immediate Plus,0x3
036a e229 | ) | Load 0x1,0x29
036b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
036c 01a6 | | Execute Matrix,Field_Write
036d 4845 |HE | Short_Literal 0x45
036e e21d | | Load 0x1,0x1d
036f e21b | | Load 0x1,0x1b
0370 0a04 | | Execute_Immediate Plus,0x4
0371 e229 | ) | Load 0x1,0x29
0372 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0373 01a6 | | Execute Matrix,Field_Write
0374 4855 |HU | Short_Literal 0x55
0375 e21d | | Load 0x1,0x1d
0376 0a01 | | Execute_Immediate Plus,0x1
0377 e21b | | Load 0x1,0x1b
0378 0a04 | | Execute_Immediate Plus,0x4
0379 e229 | ) | Load 0x1,0x29
037a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
037b 01a6 | | Execute Matrix,Field_Write
037c 4847 |HG | Short_Literal 0x47
037d e21d | | Load 0x1,0x1d
037e 0a02 | | Execute_Immediate Plus,0x2
037f e21b | | Load 0x1,0x1b
0380 0a04 | | Execute_Immediate Plus,0x4
0381 e229 | ) | Load 0x1,0x29
0382 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0383 01a6 | | Execute Matrix,Field_Write
0384 4843 |HC | Short_Literal 0x43
0385 e21d | | Load 0x1,0x1d
0386 0a03 | | Execute_Immediate Plus,0x3
0387 e21b | | Load 0x1,0x1b
0388 0a04 | | Execute_Immediate Plus,0x4
0389 e229 | ) | Load 0x1,0x29
038a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
038b 01a6 | | Execute Matrix,Field_Write
038c 484e |HN | Short_Literal 0x4e
038d e21d | | Load 0x1,0x1d
038e 0a04 | | Execute_Immediate Plus,0x4
038f e21b | | Load 0x1,0x1b
0390 0a04 | | Execute_Immediate Plus,0x4
0391 e229 | ) | Load 0x1,0x29
0392 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0393 01a6 | | Execute Matrix,Field_Write
0394 484d |HM | Short_Literal 0x4d
0395 e21d | | Load 0x1,0x1d
0396 0a05 | | Execute_Immediate Plus,0x5
0397 e21b | | Load 0x1,0x1b
0398 0a04 | | Execute_Immediate Plus,0x4
0399 e229 | ) | Load 0x1,0x29
039a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
039b 01a6 | | Execute Matrix,Field_Write
039c 4855 |HU | Short_Literal 0x55
039d e21d | | Load 0x1,0x1d
039e e21b | | Load 0x1,0x1b
039f 0a0a | | Execute_Immediate Plus,0xa
03a0 e229 | ) | Load 0x1,0x29
03a1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03a2 01a6 | | Execute Matrix,Field_Write
03a3 4501 |E | Exit_Subprogram 0x1
03a4 0000 0000 | | .BLANK 0000[0x4]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab | | .CONST 0x03ab ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0001 | | .CONST 0x0001 ; Number of locals
03ab BODY_03a8:
03ab INIT_03a8:
03ab 4601 |F | Jump_Case 0x1
03ac 7801 |x | Jump 0x3ae ; case 0x0
03ad 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
03ae e217 | | Load 0x1,0x17
03af 0322 | " | Declare_Variable Record
03b0 e218 | | Load 0x1,0x18
03b1 00d9 | | Load_Top At_Offset_1
03b2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03b3 e218 | | Load 0x1,0x18
03b4 00d9 | | Load_Top At_Offset_1
03b5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03b6 00db | | Load_Top At_Offset_3
03b7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03b8 4302 |C | Exit_Subprogram From_Utility,0x2
03b9 ; --------------------------------------------------------------------------------------
03b9 ; STRING TABLE
03b9 ; --------------------------------------------------------------------------------------
03b9 0018 | | .STRTAB 0x0018->0x03c5 ; "MODEL_MARKER_ID"
03ba 0025 | % | .STRTAB 0x0025->0x03cc ; "SELECTED_BLOCK_MARKER_ID"
03bb 003b | ; | .STRTAB 0x003b->0x03d8 ; "TOP_BLOCK_MARKER_ID"
03bc 004c | L | .STRTAB 0x004c->0x03e2 ; "TOP_COPIED_MODEL_MARKER_ID"
03bd 0064 | d | .STRTAB 0x0064->0x03ef ; "ON_TABLE_MARKER_ID"
03be 0074 | t | .STRTAB 0x0074->0x03f8 ; "RIGHT"
03bf 0077 | w | .STRTAB 0x0077->0x03fa ; "LEFT"
03c0 0079 | y | .STRTAB 0x0079->0x03fc ; "UP"
03c1 0079 | y | .STRTAB 0x0079->0x03fd ; "DOWN"
03c2 007b | { | .STRTAB 0x007b->0x03ff ; "PROTECTED"
03c3 0082 | | .STRTAB 0x0082->0x0404 ; "FREE"
03c4 0084 | | .STREND 0x0084->0x0406
03c5 4d4f 4445 |MODE| .STRTAB_STRINGS
0406 0000 0000 | | .XXX[0x2]
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug Table
0408 ; --------------------------------------------------------------------------------------
0408 0004 0009 | | .DEBUG4 0x0004,0x0009,0x1f1f,0x0000,0x0001,0x0012
040e 000b 0456 | V| .DBG4T 0x000b,0x0456,0x8000,0x0000
0412 0036 0468 | 6 h| .DBG4T 0x0036,0x0468,0x8000,0x0000
0416 00eb 0000 | | .DBG4T 0x00eb,0x0000,0x0005,0x0000
041a 0113 0000 | | .DBG4T 0x0113,0x0000,0x0005,0x0000
041e 013b 0485 | ; | .DBG4T 0x013b,0x0485,0x0001,0x0000
0422 017b 048d | { | .DBG4T 0x017b,0x048d,0x0002,0x0000
0426 018b 0490 | | .DBG4T 0x018b,0x0490,0x0002,0x0000
042a 01ab 0493 | | .DBG4T 0x01ab,0x0493,0x0002,0x0000
042e 01db 049d | | .DBG4T 0x01db,0x049d,0x0001,0x0000
0432 01f3 04a1 | | .DBG4T 0x01f3,0x04a1,0x0002,0x4000
0436 025b 04bf | [ | .DBG4T 0x025b,0x04bf,0x0001,0x0000
043a 0273 04c3 | s | .DBG4T 0x0273,0x04c3,0x0001,0x0000
043e 028b 0000 | | .DBG4T 0x028b,0x0000,0x0005,0x0000
0442 02a3 0000 | | .DBG4T 0x02a3,0x0000,0x0005,0x0000
0446 02cb 04c7 | | .DBG4T 0x02cb,0x04c7,0x0002,0x0000
044a 02db 04ca | | .DBG4T 0x02db,0x04ca,0x0001,0x0000
044e 02eb 04ce | | .DBG4T 0x02eb,0x04ce,0x0001,0x0000
0452 03ab 0000 | | .DBG4T 0x03ab,0x0000,0x0005,0x0000
0456 ; --------------------------------------------------------------------------------------
0456 ; Debug chain
0456 ; --------------------------------------------------------------------------------------
0456 0010 0000 | | .DBGLEN 0x0010,0x0000
0458 000b 000c | | .DBGLNO 0x000b,0x000c,0x0011,0x0016,0x0017,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002d,0x0030
0468 ; --------------------------------------------------------------------------------------
0468 ; Debug chain
0468 ; --------------------------------------------------------------------------------------
0468 0018 0003 | | .DBGLEN 0x0018,0x0003
046a 0036 0038 | 6 8| .DBGLNO 0x0036,0x0038,0x003a,0x003c,0x003e,0x0070,0x0092,0x0097,0x009f,0x00a7,0x00ac,0x00ae,0x00b0,0x00b2,0x00b4,0x00c2,0x00cd,0x00cf,0x00d1,0x00d3,0x00d5,0x00d7,0x00d9,0x00db,0x00dd,0x00df,0x00e0
0485 ; --------------------------------------------------------------------------------------
0485 ; Debug chain
0485 ; --------------------------------------------------------------------------------------
0485 0001 0005 | | .DBGLEN 0x0001,0x0005
0487 013b 013c | ; <| .DBGLNO 0x013b,0x013c,0x0148,0x0154,0x0160,0x016a
048d ; --------------------------------------------------------------------------------------
048d ; Debug chain
048d ; --------------------------------------------------------------------------------------
048d 0000 0001 | | .DBGLEN 0x0000,0x0001
048f 017b | { | .DBGLNO 0x017b
0490 ; --------------------------------------------------------------------------------------
0490 ; Debug chain
0490 ; --------------------------------------------------------------------------------------
0490 0000 0001 | | .DBGLEN 0x0000,0x0001
0492 018b | | .DBGLNO 0x018b
0493 ; --------------------------------------------------------------------------------------
0493 ; Debug chain
0493 ; --------------------------------------------------------------------------------------
0493 0000 0008 | | .DBGLEN 0x0000,0x0008
0495 01ac 01b1 | | .DBGLNO 0x01ac,0x01b1,0x01b5,0x01bb,0x01c1,0x01c7,0x01cd,0x01d5
049d ; --------------------------------------------------------------------------------------
049d ; Debug chain
049d ; --------------------------------------------------------------------------------------
049d 0000 0002 | | .DBGLEN 0x0000,0x0002
049f 01db 01e5 | | .DBGLNO 0x01db,0x01e5
04a1 ; --------------------------------------------------------------------------------------
04a1 ; Debug chain
04a1 ; --------------------------------------------------------------------------------------
04a1 0000 000e | | .DBGLEN 0x0000,0x000e
04a3 01f3 01f9 | | .DBGLNO 0x01f3,0x01f9,0x0201,0x0203,0x020f,0x0217,0x0219,0x0225,0x022d,0x022f,0x023b,0x0243,0x0245,0x0250
04b1 0001 000b | | .XXX[0xe]
04b3 000c 000d | |
04b5 0002 0003 | |
04b7 0004 0005 | |
04b9 0006 0007 | |
04bb 0008 0009 | |
04bd 000a 000e | |
04bf ; --------------------------------------------------------------------------------------
04bf ; Debug chain
04bf ; --------------------------------------------------------------------------------------
04bf 0000 0002 | | .DBGLEN 0x0000,0x0002
04c1 025c 0260 | \ `| .DBGLNO 0x025c,0x0260
04c3 ; --------------------------------------------------------------------------------------
04c3 ; Debug chain
04c3 ; --------------------------------------------------------------------------------------
04c3 0000 0002 | | .DBGLEN 0x0000,0x0002
04c5 0274 0278 | t x| .DBGLNO 0x0274,0x0278
04c7 ; --------------------------------------------------------------------------------------
04c7 ; Debug chain
04c7 ; --------------------------------------------------------------------------------------
04c7 0000 0001 | | .DBGLEN 0x0000,0x0001
04c9 02cb | | .DBGLNO 0x02cb
04ca ; --------------------------------------------------------------------------------------
04ca ; Debug chain
04ca ; --------------------------------------------------------------------------------------
04ca 0000 0002 | | .DBGLEN 0x0000,0x0002
04cc 02db 02e1 | | .DBGLNO 0x02db,0x02e1
04ce ; --------------------------------------------------------------------------------------
04ce ; Debug chain
04ce ; --------------------------------------------------------------------------------------
04ce 0000 0019 | | .DBGLEN 0x0000,0x0019
04d0 02ec 02f1 | | .DBGLNO 0x02ec,0x02f1,0x02f5,0x02fb,0x0307,0x030d,0x0314,0x031b,0x0322,0x0329,0x0330,0x0337,0x033f,0x0346,0x034e,0x0355,0x035d,0x0365,0x036d,0x0374,0x037c,0x0384,0x038c,0x0394,0x039c
04e9 0000 0000 | | .BLANK 0000[0x117]