|
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_0658fb
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦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 0350 | P | .CONST 0x0350 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 002c | , | .CONST 0x002c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0015 | | .CONST 0x0015 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c e002 | | Load 0x0,0x2
000d e003 | | Load 0x0,0x3
000e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
000f 49fb |I | Short_Literal 0x1fb
0010 4800 |H | Short_Literal 0x0
0011 e004 | | Load 0x0,0x4
0012 0386 | | Declare_Variable Package,Visible
0013 00d8 | | Load_Top At_Offset_0
0014 020f | | Execute Module,Activate
0015 00d8 | | Load_Top At_Offset_0
0016 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0017 0129 | ) | Execute Any,Make_Visible
0018 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
001a 00bf | | Action Accept_Activation
001b 00da | | Load_Top At_Offset_2
001c 191d | | Execute Package,Field_Reference,Field_Number 0x1d
001d 0007 | | Action Break_Optional
001e 029b 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Unelaborated
0020 029d 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call
0022 e005 | | Load 0x0,0x5
0023 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
0024 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call
0026 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0027 00c7 | | Action Elaborate_Subprogram
0028 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call
002a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002b 00c7 | | Action Elaborate_Subprogram
002c BODY_0008:
002c e20d | | Load 0x1,0xd
002d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
002e e20d | | Load 0x1,0xd
002f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0030 c20e | | Store 0x1,0xe
0031 00bc | | Action Signal_Activated
0032 00bb | | Action Signal_Completion
0033 0000 0000 | | .BLANK 0000[0x5]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003d | = | .CONST 0x003d ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0002 | | .CONST 0x0002 ; Number of locals
003b INIT_0038:
003b e006 | | Load 0x0,0x6
003c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
003d BODY_0038:
003d 8212 | | Call 0x1,0x12
003e 8213 | | Call 0x1,0x13
003f 00db | | Load_Top At_Offset_3
0040 01db | | Execute Vector,Length
0041 00d8 | | Load_Top At_Offset_0
0042 00e3 | | Load_Encached Natural_Cache
0043 0260 | ` | Execute Discrete,In_Type
0044 7001 |p | Jump_Nonzero 0x46
0045 0801 | | Execute_Immediate Raise,0x1
0046 e007 | | Load 0x0,0x7
0047 180d | | Execute Package,Field_Execute,Field_Number 0xd
0048 0039 | 9 | Store_Top Access,At_Offset_1
0049 00db | | Load_Top At_Offset_3
004a 00d9 | | Load_Top At_Offset_1
004b e008 | | Load 0x0,0x8
004c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
004d 00d8 | | Load_Top At_Offset_0
004e 8215 | | Call 0x1,0x15
004f 00d8 | | Load_Top At_Offset_0
0050 e007 | | Load 0x0,0x7
0051 180e | | Execute Package,Field_Execute,Field_Number 0xe
0052 0039 | 9 | Store_Top Access,At_Offset_1
0053 e009 | | Load 0x0,0x9
0054 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0055 6803 |h | Jump_Zero 0x59
0056 e00a | | Load 0x0,0xa
0057 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0058 0257 | W | Execute Discrete,Raise
0059 4502 |E | Exit_Suprogram New_Top_Offset 0x2
005a 0000 0000 | | .BLANK 0000[0x6]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0072 | r | .CONST 0x0072 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0005 | | .CONST 0x0005 ; Number of locals
0063 INIT_0060:
0063 e003 | | Load 0x0,0x3
0064 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0065 e006 | | Load 0x0,0x6
0066 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0067 4840 |H@ | Short_Literal 0x40
0068 e007 | | Load 0x0,0x7
0069 180d | | Execute Package,Field_Execute,Field_Number 0xd
006a 0039 | 9 | Store_Top Access,At_Offset_1
006b e003 | | Load 0x0,0x3
006c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
006d 02ff | | Declare_Variable Variant_Record
006e 00d8 | | Load_Top At_Offset_0
006f 1c00 | | Execute_Immediate Run_Utility,0x0
0070 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call
0072 BODY_0060:
0072 00da | | Load_Top At_Offset_2
0073 e00b | | Load 0x0,0xb
0074 180e | | Execute Package,Field_Execute,Field_Number 0xe
0075 00d9 | | Load_Top At_Offset_1
0076 00db | | Load_Top At_Offset_3
0077 e402 | | Load 0x2,0x2
0078 e5ff | | Load 0x2,-0x1
0079 e003 | | Load 0x0,0x3
007a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
007b c402 | | Store 0x2,0x2
007c c403 | | Store 0x2,0x3
007d 00d1 | | Pop_Control Pop_Count_1
007e 00db | | Load_Top At_Offset_3
007f 0f14 | | Execute_Immediate Equal,0x14
0080 7003 |p | Jump_Nonzero 0x84
0081 00db | | Load_Top At_Offset_3
0082 0f0f | | Execute_Immediate Equal,0xf
0083 6813 |h | Jump_Zero 0x97
0084 e5fe | | Load 0x2,-0x2
0085 6804 |h | Jump_Zero 0x8a
0086 0092 02a4 | | Action Push_String_Extended,0x2a4 ; "Expected another parameter name at end of Additonal_Parameters string."
0088 e009 | | Load 0x0,0x9
0089 180d | | Execute Package,Field_Execute,Field_Number 0xd
008a 4801 |H | Short_Literal 0x1
008b e003 | | Load 0x0,0x3
008c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
008d 1c08 | | Execute_Immediate Run_Utility,0x8
008e 4800 |H | Short_Literal 0x0
008f 00d9 | | Load_Top At_Offset_1
0090 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0091 4801 |H | Short_Literal 0x1
0092 00d9 | | Load_Top At_Offset_1
0093 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0094 e5fd | | Load 0x2,-0x3
0095 016d | m | Execute Variant_Record,Structure_Write
0096 7825 |x% | Jump 0xbc
0097 00db | | Load_Top At_Offset_3
0098 0f05 | | Execute_Immediate Equal,0x5
0099 680b |h | Jump_Zero 0xa5
009a 00d9 | | Load_Top At_Offset_1
009b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
009c 6808 |h | Jump_Zero 0xa5
009d 0092 02a5 | | Action Push_String_Extended,0x2a5 ; "Not allowed to change the value for symbol: "
009f 00db | | Load_Top At_Offset_3
00a0 e00b | | Load 0x0,0xb
00a1 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00a2 01cc | | Execute Vector,Catenate
00a3 e009 | | Load 0x0,0x9
00a4 180d | | Execute Package,Field_Execute,Field_Number 0xd
00a5 00db | | Load_Top At_Offset_3
00a6 0f05 | | Execute_Immediate Equal,0x5
00a7 7003 |p | Jump_Nonzero 0xab
00a8 00db | | Load_Top At_Offset_3
00a9 0f06 | | Execute_Immediate Equal,0x6
00aa 6810 |h | Jump_Zero 0xbb
00ab 00d9 | | Load_Top At_Offset_1
00ac e5ff | | Load 0x2,-0x1
00ad 8214 | | Call 0x1,0x14
00ae 00d1 | | Pop_Control Pop_Count_1
00af 4801 |H | Short_Literal 0x1
00b0 00da | | Load_Top At_Offset_2
00b1 e403 | | Load 0x2,0x3
00b2 e00b | | Load 0x0,0xb
00b3 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00b4 e20e | | Load 0x1,0xe
00b5 e20d | | Load 0x1,0xd
00b6 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00b7 00d9 | | Load_Top At_Offset_1
00b8 e5fd | | Load 0x2,-0x3
00b9 016d | m | Execute Variant_Record,Structure_Write
00ba 7801 |x | Jump 0xbc
00bb 8405 | | Call 0x2,0x5
00bc 00da | | Load_Top At_Offset_2
00bd e007 | | Load 0x0,0x7
00be 180e | | Execute Package,Field_Execute,Field_Number 0xe
00bf 003b | ; | Store_Top Access,At_Offset_3
00c0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00c1 0000 0000 | | .BLANK 0000[0x7]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4800 |H | Short_Literal 0x0
00cc 4800 |H | Short_Literal 0x0
00cd e003 | | Load 0x0,0x3
00ce 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00cf 1c08 | | Execute_Immediate Run_Utility,0x8
00d0 4801 |H | Short_Literal 0x1
00d1 00d9 | | Load_Top At_Offset_1
00d2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00d3 4800 |H | Short_Literal 0x0
00d4 00d9 | | Load_Top At_Offset_1
00d5 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00d6 0092 02a6 | | Action Push_String_Extended,0x2a6 ; "IF"
00d8 e20e | | Load 0x1,0xe
00d9 8210 | | Call 0x1,0x10
00da 4800 |H | Short_Literal 0x0
00db 4800 |H | Short_Literal 0x0
00dc e003 | | Load 0x0,0x3
00dd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00de 1c08 | | Execute_Immediate Run_Utility,0x8
00df 4801 |H | Short_Literal 0x1
00e0 00d9 | | Load_Top At_Offset_1
00e1 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00e2 4801 |H | Short_Literal 0x1
00e3 00d9 | | Load_Top At_Offset_1
00e4 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00e5 0092 02a7 | | Action Push_String_Extended,0x2a7 ; "THEN"
00e7 e20e | | Load 0x1,0xe
00e8 8210 | | Call 0x1,0x10
00e9 4800 |H | Short_Literal 0x0
00ea 4800 |H | Short_Literal 0x0
00eb e003 | | Load 0x0,0x3
00ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ed 1c08 | | Execute_Immediate Run_Utility,0x8
00ee 4801 |H | Short_Literal 0x1
00ef 00d9 | | Load_Top At_Offset_1
00f0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00f1 4802 |H | Short_Literal 0x2
00f2 00d9 | | Load_Top At_Offset_1
00f3 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00f4 0092 02a8 | | Action Push_String_Extended,0x2a8 ; "ELSIF"
00f6 e20e | | Load 0x1,0xe
00f7 8210 | | Call 0x1,0x10
00f8 4800 |H | Short_Literal 0x0
00f9 4800 |H | Short_Literal 0x0
00fa e003 | | Load 0x0,0x3
00fb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00fc 1c08 | | Execute_Immediate Run_Utility,0x8
00fd 4801 |H | Short_Literal 0x1
00fe 00d9 | | Load_Top At_Offset_1
00ff 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0100 4803 |H | Short_Literal 0x3
0101 00d9 | | Load_Top At_Offset_1
0102 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0103 0092 02a9 | | Action Push_String_Extended,0x2a9 ; "ELSE"
0105 e20e | | Load 0x1,0xe
0106 8210 | | Call 0x1,0x10
0107 4800 |H | Short_Literal 0x0
0108 4800 |H | Short_Literal 0x0
0109 e003 | | Load 0x0,0x3
010a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
010b 1c08 | | Execute_Immediate Run_Utility,0x8
010c 4801 |H | Short_Literal 0x1
010d 00d9 | | Load_Top At_Offset_1
010e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
010f 4804 |H | Short_Literal 0x4
0110 00d9 | | Load_Top At_Offset_1
0111 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0112 0092 02aa | | Action Push_String_Extended,0x2aa ; "END"
0114 e20e | | Load 0x1,0xe
0115 8210 | | Call 0x1,0x10
0116 4800 |H | Short_Literal 0x0
0117 4800 |H | Short_Literal 0x0
0118 e003 | | Load 0x0,0x3
0119 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011a 1c08 | | Execute_Immediate Run_Utility,0x8
011b 4801 |H | Short_Literal 0x1
011c 00d9 | | Load_Top At_Offset_1
011d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
011e 4807 |H | Short_Literal 0x7
011f 00d9 | | Load_Top At_Offset_1
0120 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0121 0092 02ab | | Action Push_String_Extended,0x2ab ; "NOT"
0123 e20e | | Load 0x1,0xe
0124 8210 | | Call 0x1,0x10
0125 4800 |H | Short_Literal 0x0
0126 4800 |H | Short_Literal 0x0
0127 e003 | | Load 0x0,0x3
0128 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0129 1c08 | | Execute_Immediate Run_Utility,0x8
012a 4801 |H | Short_Literal 0x1
012b 00d9 | | Load_Top At_Offset_1
012c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
012d 4808 |H | Short_Literal 0x8
012e 00d9 | | Load_Top At_Offset_1
012f 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0130 0092 02ac | | Action Push_String_Extended,0x2ac ; "AND"
0132 e20e | | Load 0x1,0xe
0133 8210 | | Call 0x1,0x10
0134 4800 |H | Short_Literal 0x0
0135 4800 |H | Short_Literal 0x0
0136 e003 | | Load 0x0,0x3
0137 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0138 1c08 | | Execute_Immediate Run_Utility,0x8
0139 4801 |H | Short_Literal 0x1
013a 00d9 | | Load_Top At_Offset_1
013b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
013c 4809 |H | Short_Literal 0x9
013d 00d9 | | Load_Top At_Offset_1
013e 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
013f 0092 02ad | | Action Push_String_Extended,0x2ad ; "OR"
0141 e20e | | Load 0x1,0xe
0142 8210 | | Call 0x1,0x10
0143 4800 |H | Short_Literal 0x0
0144 4800 |H | Short_Literal 0x0
0145 e003 | | Load 0x0,0x3
0146 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0147 1c08 | | Execute_Immediate Run_Utility,0x8
0148 4801 |H | Short_Literal 0x1
0149 00d9 | | Load_Top At_Offset_1
014a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
014b 480a |H | Short_Literal 0xa
014c 00d9 | | Load_Top At_Offset_1
014d 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
014e 0092 02ae | | Action Push_String_Extended,0x2ae ; "XOR"
0150 e20e | | Load 0x1,0xe
0151 8210 | | Call 0x1,0x10
0152 4800 |H | Short_Literal 0x0
0153 4801 |H | Short_Literal 0x1
0154 e003 | | Load 0x0,0x3
0155 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0156 1c08 | | Execute_Immediate Run_Utility,0x8
0157 4801 |H | Short_Literal 0x1
0158 00d9 | | Load_Top At_Offset_1
0159 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
015a 4800 |H | Short_Literal 0x0
015b 00d9 | | Load_Top At_Offset_1
015c 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
015d 0092 02af | | Action Push_String_Extended,0x2af ; "FALSE"
015f e20e | | Load 0x1,0xe
0160 8210 | | Call 0x1,0x10
0161 4800 |H | Short_Literal 0x0
0162 4801 |H | Short_Literal 0x1
0163 e003 | | Load 0x0,0x3
0164 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0165 1c08 | | Execute_Immediate Run_Utility,0x8
0166 4801 |H | Short_Literal 0x1
0167 00d9 | | Load_Top At_Offset_1
0168 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0169 4801 |H | Short_Literal 0x1
016a 00d9 | | Load_Top At_Offset_1
016b 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
016c 0092 02b0 | | Action Push_String_Extended,0x2b0 ; "TRUE"
016e e20e | | Load 0x1,0xe
016f 8210 | | Call 0x1,0x10
0170 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0171 0000 0000 | | .BLANK 0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 018e | | .CONST 0x018e ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0007 | | .CONST 0x0007 ; Number of locals
017b INIT_0178:
017b e003 | | Load 0x0,0x3
017c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
017d e006 | | Load 0x0,0x6
017e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
017f 4840 |H@ | Short_Literal 0x40
0180 e007 | | Load 0x0,0x7
0181 180d | | Execute Package,Field_Execute,Field_Number 0xd
0182 0039 | 9 | Store_Top Access,At_Offset_1
0183 e006 | | Load 0x0,0x6
0184 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0185 e003 | | Load 0x0,0x3
0186 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0187 02ff | | Declare_Variable Variant_Record
0188 00d8 | | Load_Top At_Offset_0
0189 1c00 | | Execute_Immediate Run_Utility,0x0
018a 029f 025b | [| Declare_Subprogram INIT_0258,For_Call
018c 029f 0283 | | Declare_Subprogram INIT_0280,For_Call
018e BODY_0178:
018e e403 | | Load 0x2,0x3
018f e00b | | Load 0x0,0xb
0190 180e | | Execute Package,Field_Execute,Field_Number 0xe
0191 00da | | Load_Top At_Offset_2
0192 e403 | | Load 0x2,0x3
0193 e402 | | Load 0x2,0x2
0194 e5ff | | Load 0x2,-0x1
0195 e003 | | Load 0x0,0x3
0196 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0197 c402 | | Store 0x2,0x2
0198 c403 | | Store 0x2,0x3
0199 00d1 | | Pop_Control Pop_Count_1
019a e402 | | Load 0x2,0x2
019b 0f14 | | Execute_Immediate Equal,0x14
019c 7003 |p | Jump_Nonzero 0x1a0
019d e402 | | Load 0x2,0x2
019e 0f0f | | Execute_Immediate Equal,0xf
019f 680d |h | Jump_Zero 0x1ad
01a0 4801 |H | Short_Literal 0x1
01a1 e003 | | Load 0x0,0x3
01a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01a3 1c08 | | Execute_Immediate Run_Utility,0x8
01a4 4800 |H | Short_Literal 0x0
01a5 00d9 | | Load_Top At_Offset_1
01a6 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01a7 4801 |H | Short_Literal 0x1
01a8 00d9 | | Load_Top At_Offset_1
01a9 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01aa e5fe | | Load 0x2,-0x2
01ab 016d | m | Execute Variant_Record,Structure_Write
01ac 7858 |xX | Jump 0x205
01ad e402 | | Load 0x2,0x2
01ae 0f0d | | Execute_Immediate Equal,0xd
01af 6811 |h | Jump_Zero 0x1c1
01b0 00da | | Load_Top At_Offset_2
01b1 4801 |H | Short_Literal 0x1
01b2 e5ff | | Load 0x2,-0x1
01b3 8211 | | Call 0x1,0x11
01b4 00d1 | | Pop_Control Pop_Count_1
01b5 4801 |H | Short_Literal 0x1
01b6 00db | | Load_Top At_Offset_3
01b7 e403 | | Load 0x2,0x3
01b8 e00b | | Load 0x0,0xb
01b9 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01ba e20e | | Load 0x1,0xe
01bb e20d | | Load 0x1,0xd
01bc 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01bd 00da | | Load_Top At_Offset_2
01be e5fe | | Load 0x2,-0x2
01bf 016d | m | Execute Variant_Record,Structure_Write
01c0 7844 |xD | Jump 0x205
01c1 e402 | | Load 0x2,0x2
01c2 0f0e | | Execute_Immediate Equal,0xe
01c3 6840 |h@ | Jump_Zero 0x204
01c4 4840 |H@ | Short_Literal 0x40
01c5 e007 | | Load 0x0,0x7
01c6 180d | | Execute Package,Field_Execute,Field_Number 0xd
01c7 a404 | | Store_Unchecked 0x2,0x4
01c8 00da | | Load_Top At_Offset_2
01c9 e404 | | Load 0x2,0x4
01ca e402 | | Load 0x2,0x2
01cb e5ff | | Load 0x2,-0x1
01cc e003 | | Load 0x0,0x3
01cd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01ce c402 | | Store 0x2,0x2
01cf c404 | | Store 0x2,0x4
01d0 00d1 | | Pop_Control Pop_Count_1
01d1 00db | | Load_Top At_Offset_3
01d2 e007 | | Load 0x0,0x7
01d3 180e | | Execute Package,Field_Execute,Field_Number 0xe
01d4 c404 | | Store 0x2,0x4
01d5 e402 | | Load 0x2,0x2
01d6 0f05 | | Execute_Immediate Equal,0x5
01d7 681b |h | Jump_Zero 0x1f3
01d8 00da | | Load_Top At_Offset_2
01d9 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01da 7025 |p% | Jump_Nonzero 0x200
01db 0092 02b1 | | Action Push_String_Extended,0x2b1 ; "The keyword "
01dd e403 | | Load 0x2,0x3
01de e00b | | Load 0x0,0xb
01df 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01e0 01cc | | Execute Vector,Catenate
01e1 0092 02b2 | | Action Push_String_Extended,0x2b2 ; " is not the name of a parameter."
01e3 01cc | | Execute Vector,Catenate
01e4 e009 | | Load 0x0,0x9
01e5 180d | | Execute Package,Field_Execute,Field_Number 0xd
01e6 4801 |H | Short_Literal 0x1
01e7 e003 | | Load 0x0,0x3
01e8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e9 1c08 | | Execute_Immediate Run_Utility,0x8
01ea 4800 |H | Short_Literal 0x0
01eb 00d9 | | Load_Top At_Offset_1
01ec 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01ed 4800 |H | Short_Literal 0x0
01ee 00d9 | | Load_Top At_Offset_1
01ef 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01f0 00db | | Load_Top At_Offset_3
01f1 016d | m | Execute Variant_Record,Structure_Write
01f2 780d |x | Jump 0x200
01f3 8406 | | Call 0x2,0x6
01f4 4801 |H | Short_Literal 0x1
01f5 e003 | | Load 0x0,0x3
01f6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f7 1c08 | | Execute_Immediate Run_Utility,0x8
01f8 4800 |H | Short_Literal 0x0
01f9 00d9 | | Load_Top At_Offset_1
01fa 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01fb 4800 |H | Short_Literal 0x0
01fc 00d9 | | Load_Top At_Offset_1
01fd 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01fe 00db | | Load_Top At_Offset_3
01ff 016d | m | Execute Variant_Record,Structure_Write
0200 00da | | Load_Top At_Offset_2
0201 e5fe | | Load 0x2,-0x2
0202 016d | m | Execute Variant_Record,Structure_Write
0203 7801 |x | Jump 0x205
0204 8407 | | Call 0x2,0x7
0205 e403 | | Load 0x2,0x3
0206 e007 | | Load 0x0,0x7
0207 180e | | Execute Package,Field_Execute,Field_Number 0xe
0208 c403 | | Store 0x2,0x3
0209 4502 |E | Exit_Suprogram New_Top_Offset 0x2
020a 0000 0000 | | .BLANK 0000[0x6]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0218 | | .CONST 0x0218 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0002 | | .CONST 0x0002 ; Number of locals
0213 INIT_0210:
0213 e003 | | Load 0x0,0x3
0214 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0215 02ff | | Declare_Variable Variant_Record
0216 00d8 | | Load_Top At_Offset_0
0217 1c00 | | Execute_Immediate Run_Utility,0x0
0218 BODY_0210:
0218 00cf | | Action Mark_Auxiliary
0219 7806 |x | Jump 0x220
021a 00d9 | | Load_Top At_Offset_1
021b 4800 |H | Short_Literal 0x0
021c e5ff | | Load 0x2,-0x1
021d 8211 | | Call 0x1,0x11
021e 00d1 | | Pop_Control Pop_Count_1
021f 00c9 | | Action Pop_Auxiliary_Loop
0220 e5ff | | Load 0x2,-0x1
0221 e00b | | Load 0x0,0xb
0222 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0223 0c01 | | Execute_Immediate Greater_Equal,0x1
0224 6803 |h | Jump_Zero 0x228
0225 e009 | | Load 0x0,0x9
0226 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0227 6ff2 |o | Jump_Zero 0x21a
0228 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0229 0000 0000 | | .BLANK 0000[0x7]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0238 | 8 | .CONST 0x0238 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0002 | | .CONST 0x0002 ; Number of locals
0233 INIT_0230:
0233 e402 | | Load 0x2,0x2
0234 e003 | | Load 0x0,0x3
0235 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0236 011c | | Execute Any,Convert_Unchecked
0237 1c01 | | Execute_Immediate Run_Utility,0x1
0238 BODY_0230:
0238 0092 02b3 | | Action Push_String_Extended,0x2b3 ; "Found a "
023a 00d9 | | Load_Top At_Offset_1
023b 01dd | | Execute Vector,First
023c 0a03 | | Execute_Immediate Plus,0x3
023d 00d8 | | Load_Top At_Offset_0
023e 00e2 | | Load_Encached Integer_Cache
023f 0260 | ` | Execute Discrete,In_Type
0240 7001 |p | Jump_Nonzero 0x242
0241 0801 | | Execute_Immediate Raise,0x1
0242 00da | | Load_Top At_Offset_2
0243 01dc | | Execute Vector,Last
0244 00db | | Load_Top At_Offset_3
0245 01cf | | Execute Vector,Slice_Read
0246 01cc | | Execute Vector,Catenate
0247 0092 02b4 | | Action Push_String_Extended,0x2b4 ; " ("
0249 01cc | | Execute Vector,Catenate
024a e403 | | Load 0x2,0x3
024b e00b | | Load 0x0,0xb
024c 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
024d 01cc | | Execute Vector,Catenate
024e 0092 02b5 | | Action Push_String_Extended,0x2b5 ; ") in the Additional_Parameters argument?"
0250 01cc | | Execute Vector,Catenate
0251 e009 | | Load 0x0,0x9
0252 180d | | Execute Package,Field_Execute,Field_Number 0xd
0253 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0254 0000 0000 | | .BLANK 0000[0x4]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0260 | ` | .CONST 0x0260 ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0002 | | .CONST 0x0002 ; Number of locals
025b INIT_0258:
025b e402 | | Load 0x2,0x2
025c e003 | | Load 0x0,0x3
025d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
025e 011c | | Execute Any,Convert_Unchecked
025f 1c01 | | Execute_Immediate Run_Utility,0x1
0260 BODY_0258:
0260 0092 02b3 | | Action Push_String_Extended,0x2b3 ; "Found a "
0262 00d9 | | Load_Top At_Offset_1
0263 01dd | | Execute Vector,First
0264 0a03 | | Execute_Immediate Plus,0x3
0265 00d8 | | Load_Top At_Offset_0
0266 00e2 | | Load_Encached Integer_Cache
0267 0260 | ` | Execute Discrete,In_Type
0268 7001 |p | Jump_Nonzero 0x26a
0269 0801 | | Execute_Immediate Raise,0x1
026a 00da | | Load_Top At_Offset_2
026b 01dc | | Execute Vector,Last
026c 00db | | Load_Top At_Offset_3
026d 01cf | | Execute Vector,Slice_Read
026e 01cc | | Execute Vector,Catenate
026f 0092 02b6 | | Action Push_String_Extended,0x2b6 ; " after "
0271 01cc | | Execute Vector,Catenate
0272 e403 | | Load 0x2,0x3
0273 e00b | | Load 0x0,0xb
0274 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0275 01cc | | Execute Vector,Catenate
0276 0092 02b7 | | Action Push_String_Extended,0x2b7 ; "=> in Additonal_Parameters argument?"
0278 01cc | | Execute Vector,Catenate
0279 e009 | | Load 0x0,0x9
027a 180d | | Execute Package,Field_Execute,Field_Number 0xd
027b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
027c 0000 0000 | | .BLANK 0000[0x4]
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 e402 | | Load 0x2,0x2
0284 e003 | | Load 0x0,0x3
0285 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0286 011c | | Execute Any,Convert_Unchecked
0287 1c01 | | Execute_Immediate Run_Utility,0x1
0288 BODY_0280:
0288 0092 02b3 | | Action Push_String_Extended,0x2b3 ; "Found a "
028a 00d9 | | Load_Top At_Offset_1
028b 01dd | | Execute Vector,First
028c 0a03 | | Execute_Immediate Plus,0x3
028d 00d8 | | Load_Top At_Offset_0
028e 00e2 | | Load_Encached Integer_Cache
028f 0260 | ` | Execute Discrete,In_Type
0290 7001 |p | Jump_Nonzero 0x292
0291 0801 | | Execute_Immediate Raise,0x1
0292 00da | | Load_Top At_Offset_2
0293 01dc | | Execute Vector,Last
0294 00db | | Load_Top At_Offset_3
0295 01cf | | Execute Vector,Slice_Read
0296 01cc | | Execute Vector,Catenate
0297 0092 02b4 | | Action Push_String_Extended,0x2b4 ; " ("
0299 01cc | | Execute Vector,Catenate
029a e403 | | Load 0x2,0x3
029b e00b | | Load 0x0,0xb
029c 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
029d 01cc | | Execute Vector,Catenate
029e 0092 02b5 | | Action Push_String_Extended,0x2b5 ; ") in the Additional_Parameters argument?"
02a0 01cc | | Execute Vector,Catenate
02a1 e009 | | Load 0x0,0x9
02a2 180d | | Execute Package,Field_Execute,Field_Number 0xd
02a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02a4 ; --------------------------------------------------------------------------------------
02a4 ; STRING TABLE
02a4 ; --------------------------------------------------------------------------------------
02a4 002a | * | .STRTAB 0x002a->0x02b9 ; "Expected another parameter name at end of Additonal_Parameters string."
02a5 006e | n | .STRTAB 0x006e->0x02dc ; "Not allowed to change the value for symbol: "
02a6 0098 | | .STRTAB 0x0098->0x02f2 ; "IF"
02a7 0098 | | .STRTAB 0x0098->0x02f3 ; "THEN"
02a8 009a | | .STRTAB 0x009a->0x02f5 ; "ELSIF"
02a9 009d | | .STRTAB 0x009d->0x02f7 ; "ELSE"
02aa 009f | | .STRTAB 0x009f->0x02f9 ; "END"
02ab 00a0 | | .STRTAB 0x00a0->0x02fb ; "NOT"
02ac 00a1 | | .STRTAB 0x00a1->0x02fc ; "AND"
02ad 00a2 | | .STRTAB 0x00a2->0x02fe ; "OR"
02ae 00a2 | | .STRTAB 0x00a2->0x02ff ; "XOR"
02af 00a3 | | .STRTAB 0x00a3->0x0300 ; "FALSE"
02b0 00a6 | | .STRTAB 0x00a6->0x0303 ; "TRUE"
02b1 00a8 | | .STRTAB 0x00a8->0x0305 ; "The keyword "
02b2 00b2 | | .STRTAB 0x00b2->0x030b ; " is not the name of a parameter."
02b3 00d0 | | .STRTAB 0x00d0->0x031b ; "Found a "
02b4 00d6 | | .STRTAB 0x00d6->0x031f ; " ("
02b5 00d6 | | .STRTAB 0x00d6->0x0320 ; ") in the Additional_Parameters argument?"
02b6 00fc | | .STRTAB 0x00fc->0x0334 ; " after "
02b7 0101 | | .STRTAB 0x0101->0x0337 ; "=> in Additonal_Parameters argument?"
02b8 0123 | # | .STREND 0x0123->0x0349
02b9 4578 7065 |Expe| .STRTAB_STRINGS
034a 0000 0000 | | .BLANK 0000[0x6]
0350 ; --------------------------------------------------------------------------------------
0350 ; Debug Table
0350 ; --------------------------------------------------------------------------------------
0350 0004 0008 | | .DEBUG4 0x0004,0x0008,0xaca0,0x0000,0x0001,0x0000
0356 0000 0000 | | .XXX[0x36]
0358 0010 5a16 | Z |
035a 0000 0100 | |
035c 0010 7a16 | z |
035e 0000 0100 | |
0360 0000 1081 | |
0362 0002 0f42 | B|
0364 c000 0020 | |
0366 102a ee0a | * |
0368 5ee1 a000 |^ |
036a 0080 0000 | |
036c 0120 0009 | |
036e 6cc0 0000 |l |
0370 0040 0000 | @ |
0372 0040 0002 | @ |
0374 1020 0000 | |
0376 0000 0000 | |
0378 0002 055d | ]|
037a c149 cef0 | I |
037c 0000 1000 | |
037e 0000 2400 | $ |
0380 012d 9800 | - |
0382 0000 0800 | |
0384 0000 0800 | |
0386 0000 0800 | |
0388 01cd 5800 | X |
038a 42a3 2000 |B |
038c 0000 0000 | | .BLANK 0000[0x4]
0390 2164 e400 |!d | .XXX[0xd]
0392 0014 ee9e | |
0394 da93 c2a0 | |
0396 0000 0000 | |
0398 5013 ac10 |P |
039a 78ba 6000 |x ` |
039c 0084 | |
039d 0000 0000 | | .BLANK 0000[0x4]
03a1 0042 da80 | B | .XXX[0x1d]
03a3 0000 0040 | @|
03a5 00f5 3e80 | > |
03a7 0000 0040 | @|
03a9 0000 01c3 | |
03ab 2008 5b50 | [P|
03ad 0000 0008 | |
03af 03ed 0c6c | l|
03b1 aa92 2000 | |
03b3 0008 0000 | |
03b5 0048 0000 | H |
03b7 1010 0000 | |
03b9 0010 0000 | |
03bb 0020 0000 | |
03bd 0208 | |
03be 0000 0000 | | .BLANK 0000[0x4]
03c2 7b6a 4f0b |{jO | .XXX[0x13]
03c4 8000 0000 | |
03c6 0100 0000 | |
03c8 0900 0002 | |
03ca 0200 0000 | |
03cc 0200 0000 | |
03ce 0200 0000 | |
03d0 0200 0004 | |
03d2 fc00 10b1 | |
03d4 ec00 | |
03d5 0000 0000 | | .BLANK 0000[0x4]
03d9 085d cb00 | ] | .XXX[0xd]
03db 000f 52c7 | R |
03dd da16 1e10 | |
03df 0000 0000 | |
03e1 440a c342 |D B|
03e3 9247 a800 | G |
03e5 0009 | |
03e6 0000 0000 | | .BLANK 0000[0x4]
03ea 0036 1ea0 | 6 | .XXX[0x16]
03ec 0000 0010 | |
03ee 004d 9aa0 | M |
03f0 0000 0010 | |
03f2 0000 009d | |
03f4 d806 c3d4 | |
03f6 0000 0002 | |
03f8 0100 0d12 | |
03fa 2942 7c00 |)B| |
03fc 0008 0000 | |
03fe 0012 0000 | |