|
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_779ce4
└─⟦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 0300 | | .CONST 0x0300 ; 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 003a | : | .CONST 0x003a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
000f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
0011 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0013 0093 0000 | | push_full_address 0x0
0015 604e |`N | Indirect_Literal Discrete,0x64,{0x80000000, 0x00010000}
0016 0273 | s | Execute Discrete,Plus
0017 0129 | ) | Execute Any,Make_Visible
0018 0093 0000 | | push_full_address 0x0
001a 6045 |`E | Indirect_Literal Discrete,0x60,{0x80000000, 0x00020000}
001b 0273 | s | Execute Discrete,Plus
001c 0129 | ) | Execute Any,Make_Visible
001d 00bf | | Action Accept_Activation
001e 0093 0000 | | push_full_address 0x0
0020 603b |`; | Indirect_Literal Discrete,0x5c,{0x80000000, 0x00030000}
0021 0273 | s | Execute Discrete,Plus
0022 0007 | | Action Break_Optional
0023 0093 0000 | | push_full_address 0x0
0025 6032 |`2 | Indirect_Literal Discrete,0x58,{0x80000000, 0x00040000}
0026 0273 | s | Execute Discrete,Plus
0027 0007 | | Action Break_Optional
0028 4800 |H | Short_Literal 0x0
0029 4880 |H | Short_Literal 0x80
002a 00e2 | | Load_Encached Integer_Cache
002b 02a0 | | Declare_Subprogram Null_Subprogram
002c 4801 |H | Short_Literal 0x1
002d 035d | ] | Declare_Type Array,Defined
002e 029d 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call
0030 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call
0032 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0033 00c7 | | Action Elaborate_Subprogram
0034 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0035 00c7 | | Action Elaborate_Subprogram
0036 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0037 00c7 | | Action Elaborate_Subprogram
0038 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0039 00c7 | | Action Elaborate_Subprogram
003a BODY_0008:
003a 00bc | | Action Signal_Activated
003b 00bb | | Action Signal_Completion
003c 0000 0000 | | .BLANK 0000[0x4]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0047 | G | .CONST 0x0047 ; Address of begin
0041 004b | K | .CONST 0x004b ; Address of exception handler
0042 0003 | | .CONST 0x0003 ; Number of locals
0043 INIT_0040:
0043 029f 018b | | Declare_Subprogram INIT_0188,For_Call
0045 029f 0193 | | Declare_Subprogram INIT_0190,For_Call
0047 BODY_0040:
0047 e5fe | | Load 0x2,-0x2
0048 e5ff | | Load 0x2,-0x1
0049 820f | | Call 0x1,0xf
004a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
004b TRAP_0040:
004b e212 | | Load 0x1,0x12
004c 010f | | Execute Exception,Equal
004d 6802 |h | Jump_Zero 0x50
004e 8402 | | Call 0x2,0x2
004f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0050 e211 | | Load 0x1,0x11
0051 010f | | Execute Exception,Equal
0052 6803 |h | Jump_Zero 0x56
0053 e5ff | | Load 0x2,-0x1
0054 8403 | | Call 0x2,0x3
0055 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0056 0100 | | Execute Exception,Raise
0057 0000 | | .XXX[0x1]
0058 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
005c 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
0060 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0064 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0072 | r | .CONST 0x0072 ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0005 | | .CONST 0x0005 ; Number of locals
006b INIT_0068:
006b e002 | | Load 0x0,0x2
006c 0007 | | Action Break_Optional
006d 00e3 | | Load_Encached Natural_Cache
006e 029f 019b | | Declare_Subprogram INIT_0198,For_Call
0070 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
0072 BODY_0068:
0072 e5ff | | Load 0x2,-0x1
0073 01db | | Execute Vector,Length
0074 7003 |p | Jump_Nonzero 0x78
0075 4800 |H | Short_Literal 0x0
0076 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0077 7801 |x | Jump 0x79
0078 8405 | | Call 0x2,0x5
0079 00da | | Load_Top At_Offset_2
007a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007b 0000 0000 | | .BLANK 0000[0x5]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0097 | | .CONST 0x0097 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0009 | | .CONST 0x0009 ; Number of locals
0083 INIT_0080:
0083 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
0085 029f 021b | | Declare_Subprogram INIT_0218,For_Call
0087 a003 | | Store_Unchecked 0x0,0x3
0088 00c6 | | Action Check_Subprogram_Elaborated
0089 e002 | | Load 0x0,0x2
008a a004 | | Store_Unchecked 0x0,0x4
008b 4800 |H | Short_Literal 0x0
008c 0093 0000 | | push_full_address 0x0
008e 600d |` | Indirect_Literal Discrete,0x9c,{0x80000000, 0x00010000}
008f 0273 | s | Execute Discrete,Plus
0090 e005 | | Load 0x0,0x5
0091 0273 | s | Execute Discrete,Plus
0092 e006 | | Load 0x0,0x6
0093 0273 | s | Execute Discrete,Plus
0094 4808 |H | Short_Literal 0x8
0095 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call
0097 BODY_0080:
0097 8409 | | Call 0x2,0x9
0098 0831 | 1 | Execute_Immediate Raise,0x31
0099 0000 0000 | | .XXX[0x3]
009b 0000 | |
009c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00ae | | .CONST 0x00ae ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0004 | | .CONST 0x0004 ; Number of locals
00a3 INIT_00a0:
00a3 4820 |H | Short_Literal 0x20
00a4 4820 |H | Short_Literal 0x20
00a5 e5ff | | Load 0x2,-0x1
00a6 e007 | | Load 0x0,0x7
00a7 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00a8 e007 | | Load 0x0,0x7
00a9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00aa 00e3 | | Load_Encached Natural_Cache
00ab 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00ac 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call
00ae BODY_00a0:
00ae e5fe | | Load 0x2,-0x2
00af 7002 |p | Jump_Nonzero 0xb2
00b0 00da | | Load_Top At_Offset_2
00b1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00b2 8404 | | Call 0x2,0x4
00b3 0831 | 1 | Execute_Immediate Raise,0x31
00b4 0000 0000 | | .BLANK 0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c8 | | .CONST 0x00c8 ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0007 | | .CONST 0x0007 ; Number of locals
00bb INIT_00b8:
00bb 00e2 | | Load_Encached Integer_Cache
00bc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00bd 00e3 | | Load_Encached Natural_Cache
00be 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00bf 00e1 | | Load_Encached Boolean_Cache
00c0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00c1 03e9 | | Declare_Variable Discrete,Duplicate
00c2 e5ff | | Load 0x2,-0x1
00c3 01dd | | Execute Vector,First
00c4 00e2 | | Load_Encached Integer_Cache
00c5 03f1 | | Declare_Variable Discrete,With_Value
00c6 029f 0283 | | Declare_Subprogram INIT_0280,For_Call
00c8 BODY_00b8:
00c8 00d9 | | Load_Top At_Offset_1
00c9 0aff | | Execute_Immediate Plus,-0x1
00ca 4800 |H | Short_Literal 0x0
00cb e5fd | | Load 0x2,-0x3
00cc 01d6 | | Execute Vector,Field_Write
00cd 00cf | | Action Mark_Auxiliary
00ce 00da | | Load_Top At_Offset_2
00cf e5ff | | Load 0x2,-0x1
00d0 01dc | | Execute Vector,Last
00d1 027d | } | Execute Discrete,Greater
00d2 704c |pL | Jump_Nonzero 0x11f
00d3 00da | | Load_Top At_Offset_2
00d4 e5ff | | Load 0x2,-0x1
00d5 01d7 | | Execute Vector,Field_Read
00d6 00d8 | | Load_Top At_Offset_0
00d7 4822 |H" | Short_Literal 0x22
00d8 482c |H, | Short_Literal 0x2c
00d9 0262 | b | Execute Discrete,In_Range
00da 681b |h | Jump_Zero 0xf6
00db 0ade | | Execute_Immediate Plus,-0x22
00dc 460a |F | Jump_Case 0xb
00dd 7822 |x" | Jump 0x100 ; case 0x0
00de 783b |x; | Jump 0x11a ; case 0x1
00df 783a |x: | Jump 0x11a ; case 0x2
00e0 7839 |x9 | Jump 0x11a ; case 0x3
00e1 7838 |x8 | Jump 0x11a ; case 0x4
00e2 7837 |x7 | Jump 0x11a ; case 0x5
00e3 7814 |x | Jump 0xf8 ; case 0x6
00e4 782c |x, | Jump 0x111 ; case 0x7
00e5 7834 |x4 | Jump 0x11a ; case 0x8
00e6 7833 |x3 | Jump 0x11a ; case 0x9
00e7 7800 |x | Jump 0xe8 ; case 0xa
00e8 e404 | | Load 0x2,0x4
00e9 0f00 | | Execute_Immediate Equal,0x0
00ea e405 | | Load 0x2,0x5
00eb 0f00 | | Execute_Immediate Equal,0x0
00ec 0279 | y | Execute Discrete,And
00ed 682c |h, | Jump_Zero 0x11a
00ee e403 | | Load 0x2,0x3
00ef 0a01 | | Execute_Immediate Plus,0x1
00f0 c403 | | Store 0x2,0x3
00f1 00da | | Load_Top At_Offset_2
00f2 e403 | | Load 0x2,0x3
00f3 e5fd | | Load 0x2,-0x3
00f4 01d6 | | Execute Vector,Field_Write
00f5 7824 |x$ | Jump 0x11a
00f6 00d1 | | Pop_Control Pop_Count_1
00f7 7822 |x" | Jump 0x11a
00f8 e404 | | Load 0x2,0x4
00f9 7020 |p | Jump_Nonzero 0x11a
00fa e402 | | Load 0x2,0x2
00fb 0a01 | | Execute_Immediate Plus,0x1
00fc c402 | | Store 0x2,0x2
00fd 4801 |H | Short_Literal 0x1
00fe a405 | | Store_Unchecked 0x2,0x5
00ff 781a |x | Jump 0x11a
0100 00db | | Load_Top At_Offset_3
0101 7018 |p | Jump_Nonzero 0x11a
0102 e404 | | Load 0x2,0x4
0103 7003 |p | Jump_Nonzero 0x107
0104 4801 |H | Short_Literal 0x1
0105 a404 | | Store_Unchecked 0x2,0x4
0106 7813 |x | Jump 0x11a
0107 00da | | Load_Top At_Offset_2
0108 e5ff | | Load 0x2,-0x1
0109 01dc | | Execute Vector,Last
010a e5ff | | Load 0x2,-0x1
010b 01cf | | Execute Vector,Slice_Read
010c 8407 | | Call 0x2,0x7
010d 680c |h | Jump_Zero 0x11a
010e 4800 |H | Short_Literal 0x0
010f a404 | | Store_Unchecked 0x2,0x4
0110 7809 |x | Jump 0x11a
0111 e404 | | Load 0x2,0x4
0112 7007 |p | Jump_Nonzero 0x11a
0113 e402 | | Load 0x2,0x2
0114 0aff | | Execute_Immediate Plus,-0x1
0115 c402 | | Store 0x2,0x2
0116 e402 | | Load 0x2,0x2
0117 7002 |p | Jump_Nonzero 0x11a
0118 4800 |H | Short_Literal 0x0
0119 a405 | | Store_Unchecked 0x2,0x5
011a 00da | | Load_Top At_Offset_2
011b 0a01 | | Execute_Immediate Plus,0x1
011c 005b | [ | Store_Top Discrete,At_Offset_3
011d 00c9 | | Action Pop_Auxiliary_Loop
011e 7faf | | Jump 0xce
011f 00ce | | Action Pop_Auxiliary
0120 e5fe | | Load 0x2,-0x2
0121 682e |h. | Jump_Zero 0x150
0122 00db | | Load_Top At_Offset_3
0123 00db | | Load_Top At_Offset_3
0124 e402 | | Load 0x2,0x2
0125 0e00 | | Execute_Immediate Not_Equal,0x0
0126 0278 | x | Execute Discrete,Or
0127 0279 | y | Execute Discrete,And
0128 680d |h | Jump_Zero 0x136
0129 e008 | | Load 0x0,0x8
012a 180e | | Execute Package,Field_Execute,Field_Number 0xe
012b 4806 |H | Short_Literal 0x6
012c 0092 02d2 | | Action Push_String_Extended,0x2d2 ; "Parameter string "
012e e5ff | | Load 0x2,-0x1
012f 01cc | | Execute Vector,Catenate
0130 0092 02d3 | | Action Push_String_Extended,0x2d3 ; " is malformed"
0132 01cc | | Execute Vector,Catenate
0133 e009 | | Load 0x0,0x9
0134 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0135 781a |x | Jump 0x150
0136 00db | | Load_Top At_Offset_3
0137 680a |h | Jump_Zero 0x142
0138 e008 | | Load 0x0,0x8
0139 180e | | Execute Package,Field_Execute,Field_Number 0xe
013a 4806 |H | Short_Literal 0x6
013b 0092 02d4 | | Action Push_String_Extended,0x2d4 ; "Quoted string mismatch in "
013d e5ff | | Load 0x2,-0x1
013e 01cc | | Execute Vector,Catenate
013f e009 | | Load 0x0,0x9
0140 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0141 780e |x | Jump 0x150
0142 00da | | Load_Top At_Offset_2
0143 e402 | | Load 0x2,0x2
0144 0e00 | | Execute_Immediate Not_Equal,0x0
0145 0278 | x | Execute Discrete,Or
0146 6809 |h | Jump_Zero 0x150
0147 e008 | | Load 0x0,0x8
0148 180e | | Execute Package,Field_Execute,Field_Number 0xe
0149 4806 |H | Short_Literal 0x6
014a 0092 02d5 | | Action Push_String_Extended,0x2d5 ; "Unbalanced parentheses in "
014c e5ff | | Load 0x2,-0x1
014d 01cc | | Execute Vector,Catenate
014e e009 | | Load 0x0,0x9
014f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0150 e403 | | Load 0x2,0x3
0151 0a01 | | Execute_Immediate Plus,0x1
0152 c5fc | | Store 0x2,-0x4
0153 e403 | | Load 0x2,0x3
0154 0c01 | | Execute_Immediate Greater_Equal,0x1
0155 6807 |h | Jump_Zero 0x15d
0156 e5ff | | Load 0x2,-0x1
0157 01dc | | Execute Vector,Last
0158 0a01 | | Execute_Immediate Plus,0x1
0159 e403 | | Load 0x2,0x3
015a 0a01 | | Execute_Immediate Plus,0x1
015b e5fd | | Load 0x2,-0x3
015c 01d6 | | Execute Vector,Field_Write
015d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
015e 0000 0000 | | .XXX[0x2]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2
0164 01db | | Execute Vector,Length
0165 681b |h | Jump_Zero 0x181
0166 00da | | Load_Top At_Offset_2
0167 01dd | | Execute Vector,First
0168 00db | | Load_Top At_Offset_3
0169 01d7 | | Execute Vector,Field_Read
016a 0f22 | " | Execute_Immediate Equal,0x22
016b 6813 |h | Jump_Zero 0x17f
016c 00da | | Load_Top At_Offset_2
016d 01dd | | Execute Vector,First
016e 0a01 | | Execute_Immediate Plus,0x1
016f 00d8 | | Load_Top At_Offset_0
0170 00e2 | | Load_Encached Integer_Cache
0171 0260 | ` | Execute Discrete,In_Type
0172 7001 |p | Jump_Nonzero 0x174
0173 0801 | | Execute_Immediate Raise,0x1
0174 00db | | Load_Top At_Offset_3
0175 01dc | | Execute Vector,Last
0176 0aff | | Execute_Immediate Plus,-0x1
0177 00d8 | | Load_Top At_Offset_0
0178 00e2 | | Load_Encached Integer_Cache
0179 0260 | ` | Execute Discrete,In_Type
017a 7001 |p | Jump_Nonzero 0x17c
017b 0801 | | Execute_Immediate Raise,0x1
017c e5ff | | Load 0x2,-0x1
017d 01cf | | Execute Vector,Slice_Read
017e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017f 00da | | Load_Top At_Offset_2
0180 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0181 00ea | | Load_Encached Null_String_Cache
0182 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0183 0000 0000 | | .BLANK 0000[0x5]
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 00ea | | Load_Encached Null_String_Cache
018c 00ca | | Action Exit_Nullary_Function
018d 0000 0000 | | .XXX[0x3]
018f 0000 | |
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00ea | | Load_Encached Null_String_Cache
0194 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0195 0000 0000 | | .XXX[0x3]
0197 0000 | |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 01c5 | | .CONST 0x01c5 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c 01db | | Execute Vector,Length
019d 6825 |h% | Jump_Zero 0x1c3
019e 00da | | Load_Top At_Offset_2
019f 01dd | | Execute Vector,First
01a0 00db | | Load_Top At_Offset_3
01a1 01d7 | | Execute Vector,Field_Read
01a2 0f3c | < | Execute_Immediate Equal,0x3c
01a3 00db | | Load_Top At_Offset_3
01a4 01dc | | Execute Vector,Last
01a5 e7ff | | Load 0x3,-0x1
01a6 01d7 | | Execute Vector,Field_Read
01a7 0f3e | > | Execute_Immediate Equal,0x3e
01a8 0279 | y | Execute Discrete,And
01a9 6819 |h | Jump_Zero 0x1c3
01aa 4870 |Hp | Short_Literal 0x70
01ab 00db | | Load_Top At_Offset_3
01ac 01dd | | Execute Vector,First
01ad 0a01 | | Execute_Immediate Plus,0x1
01ae 00d8 | | Load_Top At_Offset_0
01af 00e2 | | Load_Encached Integer_Cache
01b0 0260 | ` | Execute Discrete,In_Type
01b1 7001 |p | Jump_Nonzero 0x1b3
01b2 0801 | | Execute_Immediate Raise,0x1
01b3 e7ff | | Load 0x3,-0x1
01b4 01dc | | Execute Vector,Last
01b5 0aff | | Execute_Immediate Plus,-0x1
01b6 00d8 | | Load_Top At_Offset_0
01b7 00e2 | | Load_Encached Integer_Cache
01b8 0260 | ` | Execute Discrete,In_Type
01b9 7001 |p | Jump_Nonzero 0x1bb
01ba 0801 | | Execute_Immediate Raise,0x1
01bb e7ff | | Load 0x3,-0x1
01bc 01cf | | Execute Vector,Slice_Read
01bd 01ca | | Execute Vector,Prepend
01be e002 | | Load 0x0,0x2
01bf 1c02 | | Execute_Immediate Run_Utility,0x2
01c0 a402 | | Store_Unchecked 0x2,0x2
01c1 4801 |H | Short_Literal 0x1
01c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c3 4800 |H | Short_Literal 0x0
01c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c5 TRAP_0198:
01c5 0007 | | Action Break_Optional
01c6 4800 |H | Short_Literal 0x0
01c7 a402 | | Store_Unchecked 0x2,0x2
01c8 4800 |H | Short_Literal 0x0
01c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ca 0000 0000 | | .BLANK 0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01e1 | | .CONST 0x01e1 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0002 | | .CONST 0x0002 ; Number of locals
01d3 INIT_01d0:
01d3 e215 | | Load 0x1,0x15
01d4 0337 | 7 | Declare_Variable Array
01d5 00d8 | | Load_Top At_Offset_0
01d6 0335 | 5 | Declare_Variable Array,Duplicate
01d7 00cd | | Action Spare6_Action
01d8 4880 |H | Short_Literal 0x80
01d9 4800 |H | Short_Literal 0x0
01da 4800 |H | Short_Literal 0x0
01db 00d9 | | Load_Top At_Offset_1
01dc e603 | | Load 0x3,0x3
01dd 01d6 | | Execute Vector,Field_Write
01de 3ffb |? | Loop_Increasing 0x1da
01df 00d9 | | Load_Top At_Offset_1
01e0 01d4 | | Execute Vector,Structure_Write
01e1 BODY_01d0:
01e1 00e3 | | Load_Encached Natural_Cache
01e2 00d9 | | Load_Top At_Offset_1
01e3 4801 |H | Short_Literal 0x1
01e4 e5ff | | Load 0x2,-0x1
01e5 8216 | | Call 0x1,0x16
01e6 00d1 | | Pop_Control Pop_Count_1
01e7 c403 | | Store 0x2,0x3
01e8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01e9 0000 0000 | | .BLANK 0000[0x7]
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 00da | | Load_Top At_Offset_2
01f4 01db | | Execute Vector,Length
01f5 681c |h | Jump_Zero 0x212
01f6 00da | | Load_Top At_Offset_2
01f7 01dd | | Execute Vector,First
01f8 00db | | Load_Top At_Offset_3
01f9 01d7 | | Execute Vector,Field_Read
01fa 0f22 | " | Execute_Immediate Equal,0x22
01fb 00db | | Load_Top At_Offset_3
01fc 01dc | | Execute Vector,Last
01fd e7ff | | Load 0x3,-0x1
01fe 01d7 | | Execute Vector,Field_Read
01ff 0f22 | " | Execute_Immediate Equal,0x22
0200 0279 | y | Execute Discrete,And
0201 6802 |h | Jump_Zero 0x204
0202 4801 |H | Short_Literal 0x1
0203 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0204 00da | | Load_Top At_Offset_2
0205 01dd | | Execute Vector,First
0206 00db | | Load_Top At_Offset_3
0207 01d7 | | Execute Vector,Field_Read
0208 0f3c | < | Execute_Immediate Equal,0x3c
0209 00db | | Load_Top At_Offset_3
020a 01dc | | Execute Vector,Last
020b e7ff | | Load 0x3,-0x1
020c 01d7 | | Execute Vector,Field_Read
020d 0f3e | > | Execute_Immediate Equal,0x3e
020e 0279 | y | Execute Discrete,And
020f 6802 |h | Jump_Zero 0x212
0210 4801 |H | Short_Literal 0x1
0211 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0212 4800 |H | Short_Literal 0x0
0213 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0214 0000 0000 | | .BLANK 0000[0x4]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 00da | | Load_Top At_Offset_2
021c 01db | | Execute Vector,Length
021d 680e |h | Jump_Zero 0x22c
021e 00da | | Load_Top At_Offset_2
021f 01dd | | Execute Vector,First
0220 00db | | Load_Top At_Offset_3
0221 01d7 | | Execute Vector,Field_Read
0222 0f22 | " | Execute_Immediate Equal,0x22
0223 00db | | Load_Top At_Offset_3
0224 01dc | | Execute Vector,Last
0225 e7ff | | Load 0x3,-0x1
0226 01d7 | | Execute Vector,Field_Read
0227 0f22 | " | Execute_Immediate Equal,0x22
0228 0279 | y | Execute Discrete,And
0229 6802 |h | Jump_Zero 0x22c
022a 4801 |H | Short_Literal 0x1
022b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022c 4800 |H | Short_Literal 0x0
022d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022e 0000 0000 | | .XXX[0x2]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0236 | 6 | .CONST 0x0236 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0002 | | .CONST 0x0002 ; Number of locals
0233 INIT_0230:
0233 e5fe | | Load 0x2,-0x2
0234 e5ff | | Load 0x2,-0x1
0235 8210 | | Call 0x1,0x10
0236 BODY_0230:
0236 00d8 | | Load_Top At_Offset_0
0237 8402 | | Call 0x2,0x2
0238 7002 |p | Jump_Nonzero 0x23b
0239 e211 | | Load 0x1,0x11
023a 0257 | W | Execute Discrete,Raise
023b 00d8 | | Load_Top At_Offset_0
023c 8403 | | Call 0x2,0x3
023d 6804 |h | Jump_Zero 0x242
023e 00d8 | | Load_Top At_Offset_0
023f 8217 | | Call 0x1,0x17
0240 00cb | | Action Pop_Block_With_Result
0241 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0242 00d8 | | Load_Top At_Offset_0
0243 e404 | | Load 0x2,0x4
0244 4805 |H | Short_Literal 0x5
0245 4802 |H | Short_Literal 0x2
0246 0099 | | Action Reference_Dynamic
0247 e406 | | Load 0x2,0x6
0248 4807 |H | Short_Literal 0x7
0249 4802 |H | Short_Literal 0x2
024a 0099 | | Action Reference_Dynamic
024b 8003 | | Call 0x0,0x3
024c 00e9 | | Load_Encached String_Cache
024d 01c6 | | Execute Vector,Convert_To_Formal
024e 00cb | | Action Pop_Block_With_Result
024f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0263 | c | .CONST 0x0263 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0003 | | .CONST 0x0003 ; Number of locals
0253 INIT_0250:
0253 e215 | | Load 0x1,0x15
0254 0337 | 7 | Declare_Variable Array
0255 00d8 | | Load_Top At_Offset_0
0256 0335 | 5 | Declare_Variable Array,Duplicate
0257 00cd | | Action Spare6_Action
0258 4880 |H | Short_Literal 0x80
0259 4800 |H | Short_Literal 0x0
025a 4800 |H | Short_Literal 0x0
025b 00d9 | | Load_Top At_Offset_1
025c e603 | | Load 0x3,0x3
025d 01d6 | | Execute Vector,Field_Write
025e 3ffb |? | Loop_Increasing 0x25a
025f 00d9 | | Load_Top At_Offset_1
0260 01d4 | | Execute Vector,Structure_Write
0261 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call
0263 BODY_0250:
0263 00e3 | | Load_Encached Natural_Cache
0264 00da | | Load_Top At_Offset_2
0265 4800 |H | Short_Literal 0x0
0266 e402 | | Load 0x2,0x2
0267 8216 | | Call 0x1,0x16
0268 00d1 | | Pop_Control Pop_Count_1
0269 c403 | | Store 0x2,0x3
026a e403 | | Load 0x2,0x3
026b 0f01 | | Execute_Immediate Equal,0x1
026c 6808 |h | Jump_Zero 0x275
026d e5fe | | Load 0x2,-0x2
026e 0f01 | | Execute_Immediate Equal,0x1
026f 6803 |h | Jump_Zero 0x273
0270 e402 | | Load 0x2,0x2
0271 00cb | | Action Pop_Block_With_Result
0272 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0273 e212 | | Load 0x1,0x12
0274 0257 | W | Execute Discrete,Raise
0275 e5fe | | Load 0x2,-0x2
0276 e403 | | Load 0x2,0x3
0277 027d | } | Execute Discrete,Greater
0278 6802 |h | Jump_Zero 0x27b
0279 e212 | | Load 0x1,0x12
027a 0257 | W | Execute Discrete,Raise
027b 8603 | | Call 0x3,0x3
027c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
027d 0000 0000 | | .XXX[0x3]
027f 0000 | |
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0288 | | .CONST 0x0288 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0002 | | .CONST 0x0002 ; Number of locals
0283 INIT_0280:
0283 00da | | Load_Top At_Offset_2
0284 01dd | | Execute Vector,First
0285 0a01 | | Execute_Immediate Plus,0x1
0286 00e2 | | Load_Encached Integer_Cache
0287 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0288 BODY_0280:
0288 00cf | | Action Mark_Auxiliary
0289 00d9 | | Load_Top At_Offset_1
028a e7ff | | Load 0x3,-0x1
028b 01dc | | Execute Vector,Last
028c 027d | } | Execute Discrete,Greater
028d 7010 |p | Jump_Nonzero 0x29e
028e 00d9 | | Load_Top At_Offset_1
028f e7ff | | Load 0x3,-0x1
0290 01d7 | | Execute Vector,Field_Read
0291 0f20 | | Execute_Immediate Equal,0x20
0292 00da | | Load_Top At_Offset_2
0293 e7ff | | Load 0x3,-0x1
0294 01d7 | | Execute Vector,Field_Read
0295 0f09 | | Execute_Immediate Equal,0x9
0296 0278 | x | Execute Discrete,Or
0297 7001 |p | Jump_Nonzero 0x299
0298 7805 |x | Jump 0x29e
0299 00d9 | | Load_Top At_Offset_1
029a 0a01 | | Execute_Immediate Plus,0x1
029b 005a | Z | Store_Top Discrete,At_Offset_2
029c 00c9 | | Action Pop_Auxiliary_Loop
029d 7feb | | Jump 0x289
029e 00ce | | Action Pop_Auxiliary
029f 00d8 | | Load_Top At_Offset_0
02a0 e7ff | | Load 0x3,-0x1
02a1 01dc | | Execute Vector,Last
02a2 027d | } | Execute Discrete,Greater
02a3 6802 |h | Jump_Zero 0x2a6
02a4 4801 |H | Short_Literal 0x1
02a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a6 00d8 | | Load_Top At_Offset_0
02a7 e7ff | | Load 0x3,-0x1
02a8 01d7 | | Execute Vector,Field_Read
02a9 0f2c | , | Execute_Immediate Equal,0x2c
02aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ab 0000 0000 | | .BLANK 0000[0x5]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02ce | | .CONST 0x02ce ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0002 | | .CONST 0x0002 ; Number of locals
02b3 INIT_02b0:
02b3 4820 |H | Short_Literal 0x20
02b4 4820 |H | Short_Literal 0x20
02b5 e5fe | | Load 0x2,-0x2
02b6 0aff | | Execute_Immediate Plus,-0x1
02b7 e602 | | Load 0x3,0x2
02b8 01d7 | | Execute Vector,Field_Read
02b9 0a01 | | Execute_Immediate Plus,0x1
02ba 00d8 | | Load_Top At_Offset_0
02bb 00e2 | | Load_Encached Integer_Cache
02bc 0260 | ` | Execute Discrete,In_Type
02bd 7001 |p | Jump_Nonzero 0x2bf
02be 0801 | | Execute_Immediate Raise,0x1
02bf e5fe | | Load 0x2,-0x2
02c0 e602 | | Load 0x3,0x2
02c1 01d7 | | Execute Vector,Field_Read
02c2 0aff | | Execute_Immediate Plus,-0x1
02c3 00d8 | | Load_Top At_Offset_0
02c4 00e2 | | Load_Encached Integer_Cache
02c5 0260 | ` | Execute Discrete,In_Type
02c6 7001 |p | Jump_Nonzero 0x2c8
02c7 0801 | | Execute_Immediate Raise,0x1
02c8 e402 | | Load 0x2,0x2
02c9 01cf | | Execute Vector,Slice_Read
02ca e007 | | Load 0x0,0x7
02cb 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02cc e007 | | Load 0x0,0x7
02cd 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02ce BODY_02b0:
02ce 00d8 | | Load_Top At_Offset_0
02cf 00cb | | Action Pop_Block_With_Result
02d0 00cb | | Action Pop_Block_With_Result
02d1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02d2 ; --------------------------------------------------------------------------------------
02d2 ; STRING TABLE
02d2 ; --------------------------------------------------------------------------------------
02d2 000a | | .STRTAB 0x000a->0x02d7 ; "Parameter string "
02d3 0019 | | .STRTAB 0x0019->0x02df ; " is malformed"
02d4 0024 | $ | .STRTAB 0x0024->0x02e6 ; "Quoted string mismatch in "
02d5 003c | < | .STRTAB 0x003c->0x02f3 ; "Unbalanced parentheses in "
02d6 0054 | T | .STREND 0x0054->0x0300
02d7 5061 7261 |Para| .STRTAB_STRINGS
0300 ; --------------------------------------------------------------------------------------
0300 ; Debug Table
0300 ; --------------------------------------------------------------------------------------
0300 0004 000a | | .DEBUG4 0x0004,0x000a,0x7633,0x0000,0x0001,0x0000
0306 0000 0000 | | .BLANK 0000[0xfa]