|
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_6148f2
└─⟦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 0330 | 0 | .CONST 0x0330 ; 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 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Unelaborated
0020 029d 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call
0022 e005 | | Load 0x0,0x5
0023 02a5 | | Declare_Subprogram For_Outer_Call,With_Address
0024 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call
0026 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0027 00c7 | | Action Elaborate_Subprogram
0028 029d 020b | | Declare_Subprogram INIT_0208,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 1b0e | | Execute Package,Field_Read,Field_Number 0xe
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 00e3 | | Load_Encached Natural_Cache
0042 025b | [ | Execute Discrete,Check_In_Type
0043 e007 | | Load 0x0,0x7
0044 180d | | Execute Package,Field_Execute,Field_Number 0xd
0045 0039 | 9 | Store_Top Access,At_Offset_1
0046 00db | | Load_Top At_Offset_3
0047 00d9 | | Load_Top At_Offset_1
0048 e008 | | Load 0x0,0x8
0049 1814 | | Execute Package,Field_Execute,Field_Number 0x14
004a 00d8 | | Load_Top At_Offset_0
004b 8215 | | Call 0x1,0x15
004c 00d8 | | Load_Top At_Offset_0
004d e007 | | Load 0x0,0x7
004e 180e | | Execute Package,Field_Execute,Field_Number 0xe
004f 0039 | 9 | Store_Top Access,At_Offset_1
0050 e009 | | Load 0x0,0x9
0051 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0052 6803 |h | Jump_Zero 0x56
0053 e00a | | Load 0x0,0xa
0054 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0055 0257 | W | Execute Discrete,Raise
0056 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0057 0000 | | .XXX[0x1]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 006a | j | .CONST 0x006a ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0005 | | .CONST 0x0005 ; Number of locals
005b INIT_0058:
005b e003 | | Load 0x0,0x3
005c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005d e006 | | Load 0x0,0x6
005e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005f 4840 |H@ | Short_Literal 0x40
0060 e007 | | Load 0x0,0x7
0061 180d | | Execute Package,Field_Execute,Field_Number 0xd
0062 0039 | 9 | Store_Top Access,At_Offset_1
0063 e003 | | Load 0x0,0x3
0064 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0065 02ff | | Declare_Variable Variant_Record
0066 00d8 | | Load_Top At_Offset_0
0067 1c00 | | Execute_Immediate Run_Utility,0x0
0068 029f 022b | +| Declare_Subprogram INIT_0228,For_Call
006a BODY_0058:
006a 00da | | Load_Top At_Offset_2
006b e00b | | Load 0x0,0xb
006c 180e | | Execute Package,Field_Execute,Field_Number 0xe
006d 00d9 | | Load_Top At_Offset_1
006e 00db | | Load_Top At_Offset_3
006f e402 | | Load 0x2,0x2
0070 e5ff | | Load 0x2,-0x1
0071 e003 | | Load 0x0,0x3
0072 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0073 c402 | | Store 0x2,0x2
0074 c403 | | Store 0x2,0x3
0075 00d1 | | Pop_Control Pop_Count_1
0076 00db | | Load_Top At_Offset_3
0077 0f14 | | Execute_Immediate Equal,0x14
0078 7003 |p | Jump_Nonzero 0x7c
0079 00db | | Load_Top At_Offset_3
007a 0f0f | | Execute_Immediate Equal,0xf
007b 6813 |h | Jump_Zero 0x8f
007c e5fe | | Load 0x2,-0x2
007d 6804 |h | Jump_Zero 0x82
007e 0092 0287 | | Action Push_String_Extended,0x287 ; "Expected another parameter name at end of Additonal_Parameters string."
0080 e009 | | Load 0x0,0x9
0081 180d | | Execute Package,Field_Execute,Field_Number 0xd
0082 4801 |H | Short_Literal 0x1
0083 e003 | | Load 0x0,0x3
0084 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0085 1c08 | | Execute_Immediate Run_Utility,0x8
0086 4800 |H | Short_Literal 0x0
0087 00d9 | | Load_Top At_Offset_1
0088 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0089 4801 |H | Short_Literal 0x1
008a 00d9 | | Load_Top At_Offset_1
008b 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
008c e5fd | | Load 0x2,-0x3
008d 016d | m | Execute Variant_Record,Structure_Write
008e 7825 |x% | Jump 0xb4
008f 00db | | Load_Top At_Offset_3
0090 0f05 | | Execute_Immediate Equal,0x5
0091 680b |h | Jump_Zero 0x9d
0092 00d9 | | Load_Top At_Offset_1
0093 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0094 6808 |h | Jump_Zero 0x9d
0095 0092 0288 | | Action Push_String_Extended,0x288 ; "Not allowed to change the value for symbol: "
0097 00db | | Load_Top At_Offset_3
0098 e00b | | Load 0x0,0xb
0099 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
009a 01cc | | Execute Vector,Catenate
009b e009 | | Load 0x0,0x9
009c 180d | | Execute Package,Field_Execute,Field_Number 0xd
009d 00db | | Load_Top At_Offset_3
009e 0f05 | | Execute_Immediate Equal,0x5
009f 7003 |p | Jump_Nonzero 0xa3
00a0 00db | | Load_Top At_Offset_3
00a1 0f06 | | Execute_Immediate Equal,0x6
00a2 6810 |h | Jump_Zero 0xb3
00a3 00d9 | | Load_Top At_Offset_1
00a4 e5ff | | Load 0x2,-0x1
00a5 8214 | | Call 0x1,0x14
00a6 00d1 | | Pop_Control Pop_Count_1
00a7 4801 |H | Short_Literal 0x1
00a8 00da | | Load_Top At_Offset_2
00a9 e403 | | Load 0x2,0x3
00aa e00b | | Load 0x0,0xb
00ab 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00ac e20e | | Load 0x1,0xe
00ad e20d | | Load 0x1,0xd
00ae 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00af 00d9 | | Load_Top At_Offset_1
00b0 e5fd | | Load 0x2,-0x3
00b1 016d | m | Execute Variant_Record,Structure_Write
00b2 7801 |x | Jump 0xb4
00b3 8405 | | Call 0x2,0x5
00b4 00da | | Load_Top At_Offset_2
00b5 e007 | | Load 0x0,0x7
00b6 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b7 003b | ; | Store_Top Access,At_Offset_3
00b8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00b9 0000 0000 | | .BLANK 0000[0x7]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 4800 |H | Short_Literal 0x0
00c4 4800 |H | Short_Literal 0x0
00c5 e003 | | Load 0x0,0x3
00c6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00c7 1c08 | | Execute_Immediate Run_Utility,0x8
00c8 4801 |H | Short_Literal 0x1
00c9 00d9 | | Load_Top At_Offset_1
00ca 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00cb 4800 |H | Short_Literal 0x0
00cc 00d9 | | Load_Top At_Offset_1
00cd 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00ce 0092 0289 | | Action Push_String_Extended,0x289 ; "IF"
00d0 e20e | | Load 0x1,0xe
00d1 8210 | | Call 0x1,0x10
00d2 4800 |H | Short_Literal 0x0
00d3 4800 |H | Short_Literal 0x0
00d4 e003 | | Load 0x0,0x3
00d5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00d6 1c08 | | Execute_Immediate Run_Utility,0x8
00d7 4801 |H | Short_Literal 0x1
00d8 00d9 | | Load_Top At_Offset_1
00d9 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00da 4801 |H | Short_Literal 0x1
00db 00d9 | | Load_Top At_Offset_1
00dc 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00dd 0092 028a | | Action Push_String_Extended,0x28a ; "THEN"
00df e20e | | Load 0x1,0xe
00e0 8210 | | Call 0x1,0x10
00e1 4800 |H | Short_Literal 0x0
00e2 4800 |H | Short_Literal 0x0
00e3 e003 | | Load 0x0,0x3
00e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00e5 1c08 | | Execute_Immediate Run_Utility,0x8
00e6 4801 |H | Short_Literal 0x1
00e7 00d9 | | Load_Top At_Offset_1
00e8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00e9 4802 |H | Short_Literal 0x2
00ea 00d9 | | Load_Top At_Offset_1
00eb 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00ec 0092 028b | | Action Push_String_Extended,0x28b ; "ELSIF"
00ee e20e | | Load 0x1,0xe
00ef 8210 | | Call 0x1,0x10
00f0 4800 |H | Short_Literal 0x0
00f1 4800 |H | Short_Literal 0x0
00f2 e003 | | Load 0x0,0x3
00f3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f4 1c08 | | Execute_Immediate Run_Utility,0x8
00f5 4801 |H | Short_Literal 0x1
00f6 00d9 | | Load_Top At_Offset_1
00f7 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00f8 4803 |H | Short_Literal 0x3
00f9 00d9 | | Load_Top At_Offset_1
00fa 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00fb 0092 028c | | Action Push_String_Extended,0x28c ; "ELSE"
00fd e20e | | Load 0x1,0xe
00fe 8210 | | Call 0x1,0x10
00ff 4800 |H | Short_Literal 0x0
0100 4800 |H | Short_Literal 0x0
0101 e003 | | Load 0x0,0x3
0102 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0103 1c08 | | Execute_Immediate Run_Utility,0x8
0104 4801 |H | Short_Literal 0x1
0105 00d9 | | Load_Top At_Offset_1
0106 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0107 4804 |H | Short_Literal 0x4
0108 00d9 | | Load_Top At_Offset_1
0109 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
010a 0092 028d | | Action Push_String_Extended,0x28d ; "END"
010c e20e | | Load 0x1,0xe
010d 8210 | | Call 0x1,0x10
010e 4800 |H | Short_Literal 0x0
010f 4800 |H | Short_Literal 0x0
0110 e003 | | Load 0x0,0x3
0111 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0112 1c08 | | Execute_Immediate Run_Utility,0x8
0113 4801 |H | Short_Literal 0x1
0114 00d9 | | Load_Top At_Offset_1
0115 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0116 4807 |H | Short_Literal 0x7
0117 00d9 | | Load_Top At_Offset_1
0118 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0119 0092 028e | | Action Push_String_Extended,0x28e ; "NOT"
011b e20e | | Load 0x1,0xe
011c 8210 | | Call 0x1,0x10
011d 4800 |H | Short_Literal 0x0
011e 4800 |H | Short_Literal 0x0
011f e003 | | Load 0x0,0x3
0120 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0121 1c08 | | Execute_Immediate Run_Utility,0x8
0122 4801 |H | Short_Literal 0x1
0123 00d9 | | Load_Top At_Offset_1
0124 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0125 4808 |H | Short_Literal 0x8
0126 00d9 | | Load_Top At_Offset_1
0127 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0128 0092 028f | | Action Push_String_Extended,0x28f ; "AND"
012a e20e | | Load 0x1,0xe
012b 8210 | | Call 0x1,0x10
012c 4800 |H | Short_Literal 0x0
012d 4800 |H | Short_Literal 0x0
012e e003 | | Load 0x0,0x3
012f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0130 1c08 | | Execute_Immediate Run_Utility,0x8
0131 4801 |H | Short_Literal 0x1
0132 00d9 | | Load_Top At_Offset_1
0133 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0134 4809 |H | Short_Literal 0x9
0135 00d9 | | Load_Top At_Offset_1
0136 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0137 0092 0290 | | Action Push_String_Extended,0x290 ; "OR"
0139 e20e | | Load 0x1,0xe
013a 8210 | | Call 0x1,0x10
013b 4800 |H | Short_Literal 0x0
013c 4800 |H | Short_Literal 0x0
013d e003 | | Load 0x0,0x3
013e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
013f 1c08 | | Execute_Immediate Run_Utility,0x8
0140 4801 |H | Short_Literal 0x1
0141 00d9 | | Load_Top At_Offset_1
0142 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0143 480a |H | Short_Literal 0xa
0144 00d9 | | Load_Top At_Offset_1
0145 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0146 0092 0291 | | Action Push_String_Extended,0x291 ; "XOR"
0148 e20e | | Load 0x1,0xe
0149 8210 | | Call 0x1,0x10
014a 4800 |H | Short_Literal 0x0
014b 4801 |H | Short_Literal 0x1
014c e003 | | Load 0x0,0x3
014d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
014e 1c08 | | Execute_Immediate Run_Utility,0x8
014f 4801 |H | Short_Literal 0x1
0150 00d9 | | Load_Top At_Offset_1
0151 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0152 4800 |H | Short_Literal 0x0
0153 00d9 | | Load_Top At_Offset_1
0154 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0155 0092 0292 | | Action Push_String_Extended,0x292 ; "FALSE"
0157 e20e | | Load 0x1,0xe
0158 8210 | | Call 0x1,0x10
0159 4800 |H | Short_Literal 0x0
015a 4801 |H | Short_Literal 0x1
015b e003 | | Load 0x0,0x3
015c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
015d 1c08 | | Execute_Immediate Run_Utility,0x8
015e 4801 |H | Short_Literal 0x1
015f 00d9 | | Load_Top At_Offset_1
0160 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0161 4801 |H | Short_Literal 0x1
0162 00d9 | | Load_Top At_Offset_1
0163 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0164 0092 0293 | | Action Push_String_Extended,0x293 ; "TRUE"
0166 e20e | | Load 0x1,0xe
0167 8210 | | Call 0x1,0x10
0168 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0169 0000 0000 | | .BLANK 0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0186 | | .CONST 0x0186 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0007 | | .CONST 0x0007 ; Number of locals
0173 INIT_0170:
0173 e003 | | Load 0x0,0x3
0174 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0175 e006 | | Load 0x0,0x6
0176 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0177 4840 |H@ | Short_Literal 0x40
0178 e007 | | Load 0x0,0x7
0179 180d | | Execute Package,Field_Execute,Field_Number 0xd
017a 0039 | 9 | Store_Top Access,At_Offset_1
017b e006 | | Load 0x0,0x6
017c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
017d e003 | | Load 0x0,0x3
017e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
017f 02ff | | Declare_Variable Variant_Record
0180 00d8 | | Load_Top At_Offset_0
0181 1c00 | | Execute_Immediate Run_Utility,0x0
0182 029f 024b | K| Declare_Subprogram INIT_0248,For_Call
0184 029f 026b | k| Declare_Subprogram INIT_0268,For_Call
0186 BODY_0170:
0186 e403 | | Load 0x2,0x3
0187 e00b | | Load 0x0,0xb
0188 180e | | Execute Package,Field_Execute,Field_Number 0xe
0189 00da | | Load_Top At_Offset_2
018a e403 | | Load 0x2,0x3
018b e402 | | Load 0x2,0x2
018c e5ff | | Load 0x2,-0x1
018d e003 | | Load 0x0,0x3
018e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
018f c402 | | Store 0x2,0x2
0190 c403 | | Store 0x2,0x3
0191 00d1 | | Pop_Control Pop_Count_1
0192 e402 | | Load 0x2,0x2
0193 0f14 | | Execute_Immediate Equal,0x14
0194 7003 |p | Jump_Nonzero 0x198
0195 e402 | | Load 0x2,0x2
0196 0f0f | | Execute_Immediate Equal,0xf
0197 680d |h | Jump_Zero 0x1a5
0198 4801 |H | Short_Literal 0x1
0199 e003 | | Load 0x0,0x3
019a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
019b 1c08 | | Execute_Immediate Run_Utility,0x8
019c 4800 |H | Short_Literal 0x0
019d 00d9 | | Load_Top At_Offset_1
019e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
019f 4801 |H | Short_Literal 0x1
01a0 00d9 | | Load_Top At_Offset_1
01a1 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01a2 e5fe | | Load 0x2,-0x2
01a3 016d | m | Execute Variant_Record,Structure_Write
01a4 7858 |xX | Jump 0x1fd
01a5 e402 | | Load 0x2,0x2
01a6 0f0d | | Execute_Immediate Equal,0xd
01a7 6811 |h | Jump_Zero 0x1b9
01a8 00da | | Load_Top At_Offset_2
01a9 4801 |H | Short_Literal 0x1
01aa e5ff | | Load 0x2,-0x1
01ab 8211 | | Call 0x1,0x11
01ac 00d1 | | Pop_Control Pop_Count_1
01ad 4801 |H | Short_Literal 0x1
01ae 00db | | Load_Top At_Offset_3
01af e403 | | Load 0x2,0x3
01b0 e00b | | Load 0x0,0xb
01b1 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01b2 e20e | | Load 0x1,0xe
01b3 e20d | | Load 0x1,0xd
01b4 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01b5 00da | | Load_Top At_Offset_2
01b6 e5fe | | Load 0x2,-0x2
01b7 016d | m | Execute Variant_Record,Structure_Write
01b8 7844 |xD | Jump 0x1fd
01b9 e402 | | Load 0x2,0x2
01ba 0f0e | | Execute_Immediate Equal,0xe
01bb 6840 |h@ | Jump_Zero 0x1fc
01bc 4840 |H@ | Short_Literal 0x40
01bd e007 | | Load 0x0,0x7
01be 180d | | Execute Package,Field_Execute,Field_Number 0xd
01bf a404 | | Store_Unchecked 0x2,0x4
01c0 00da | | Load_Top At_Offset_2
01c1 e404 | | Load 0x2,0x4
01c2 e402 | | Load 0x2,0x2
01c3 e5ff | | Load 0x2,-0x1
01c4 e003 | | Load 0x0,0x3
01c5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01c6 c402 | | Store 0x2,0x2
01c7 c404 | | Store 0x2,0x4
01c8 00d1 | | Pop_Control Pop_Count_1
01c9 00db | | Load_Top At_Offset_3
01ca e007 | | Load 0x0,0x7
01cb 180e | | Execute Package,Field_Execute,Field_Number 0xe
01cc c404 | | Store 0x2,0x4
01cd e402 | | Load 0x2,0x2
01ce 0f05 | | Execute_Immediate Equal,0x5
01cf 681b |h | Jump_Zero 0x1eb
01d0 00da | | Load_Top At_Offset_2
01d1 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01d2 700b |p | Jump_Nonzero 0x1de
01d3 0092 0294 | | Action Push_String_Extended,0x294 ; "The keyword "
01d5 e403 | | Load 0x2,0x3
01d6 e00b | | Load 0x0,0xb
01d7 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01d8 01cc | | Execute Vector,Catenate
01d9 0092 0295 | | Action Push_String_Extended,0x295 ; " is not the name of a parameter."
01db 01cc | | Execute Vector,Catenate
01dc e009 | | Load 0x0,0x9
01dd 180d | | Execute Package,Field_Execute,Field_Number 0xd
01de 4801 |H | Short_Literal 0x1
01df e003 | | Load 0x0,0x3
01e0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e1 1c08 | | Execute_Immediate Run_Utility,0x8
01e2 4800 |H | Short_Literal 0x0
01e3 00d9 | | Load_Top At_Offset_1
01e4 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01e5 4800 |H | Short_Literal 0x0
01e6 00d9 | | Load_Top At_Offset_1
01e7 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01e8 00db | | Load_Top At_Offset_3
01e9 016d | m | Execute Variant_Record,Structure_Write
01ea 780d |x | Jump 0x1f8
01eb 8406 | | Call 0x2,0x6
01ec 4801 |H | Short_Literal 0x1
01ed e003 | | Load 0x0,0x3
01ee 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ef 1c08 | | Execute_Immediate Run_Utility,0x8
01f0 4800 |H | Short_Literal 0x0
01f1 00d9 | | Load_Top At_Offset_1
01f2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01f3 4800 |H | Short_Literal 0x0
01f4 00d9 | | Load_Top At_Offset_1
01f5 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01f6 00db | | Load_Top At_Offset_3
01f7 016d | m | Execute Variant_Record,Structure_Write
01f8 00da | | Load_Top At_Offset_2
01f9 e5fe | | Load 0x2,-0x2
01fa 016d | m | Execute Variant_Record,Structure_Write
01fb 7801 |x | Jump 0x1fd
01fc 8407 | | Call 0x2,0x7
01fd e403 | | Load 0x2,0x3
01fe e007 | | Load 0x0,0x7
01ff 180e | | Execute Package,Field_Execute,Field_Number 0xe
0200 c403 | | Store 0x2,0x3
0201 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0202 0000 0000 | | .BLANK 0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0210 | | .CONST 0x0210 ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0002 | | .CONST 0x0002 ; Number of locals
020b INIT_0208:
020b e003 | | Load 0x0,0x3
020c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
020d 02ff | | Declare_Variable Variant_Record
020e 00d8 | | Load_Top At_Offset_0
020f 1c00 | | Execute_Immediate Run_Utility,0x0
0210 BODY_0208:
0210 00cf | | Action Mark_Auxiliary
0211 7806 |x | Jump 0x218
0212 00d9 | | Load_Top At_Offset_1
0213 4800 |H | Short_Literal 0x0
0214 e5ff | | Load 0x2,-0x1
0215 8211 | | Call 0x1,0x11
0216 00d1 | | Pop_Control Pop_Count_1
0217 00c9 | | Action Pop_Auxiliary_Loop
0218 e5ff | | Load 0x2,-0x1
0219 e00b | | Load 0x0,0xb
021a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
021b 0c01 | | Execute_Immediate Greater_Equal,0x1
021c 6803 |h | Jump_Zero 0x220
021d e009 | | Load 0x0,0x9
021e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
021f 6ff2 |o | Jump_Zero 0x212
0220 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0221 0000 0000 | | .BLANK 0000[0x7]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0230 | 0 | .CONST 0x0230 ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0002 | | .CONST 0x0002 ; Number of locals
022b INIT_0228:
022b e402 | | Load 0x2,0x2
022c e003 | | Load 0x0,0x3
022d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022e 025e | ^ | Execute Discrete,Convert
022f 1c01 | | Execute_Immediate Run_Utility,0x1
0230 BODY_0228:
0230 0092 0296 | | Action Push_String_Extended,0x296 ; "Found a "
0232 00d9 | | Load_Top At_Offset_1
0233 01dd | | Execute Vector,First
0234 0a03 | | Execute_Immediate Plus,0x3
0235 00da | | Load_Top At_Offset_2
0236 01dc | | Execute Vector,Last
0237 00db | | Load_Top At_Offset_3
0238 01cf | | Execute Vector,Slice_Read
0239 01cc | | Execute Vector,Catenate
023a 0092 0297 | | Action Push_String_Extended,0x297 ; " ("
023c 01cc | | Execute Vector,Catenate
023d e403 | | Load 0x2,0x3
023e e00b | | Load 0x0,0xb
023f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0240 01cc | | Execute Vector,Catenate
0241 0092 0298 | | Action Push_String_Extended,0x298 ; ") in the Additional_Parameters argument?"
0243 01cc | | Execute Vector,Catenate
0244 e009 | | Load 0x0,0x9
0245 180d | | Execute Package,Field_Execute,Field_Number 0xd
0246 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0247 0000 | | .XXX[0x1]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0250 | P | .CONST 0x0250 ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0002 | | .CONST 0x0002 ; Number of locals
024b INIT_0248:
024b e402 | | Load 0x2,0x2
024c e003 | | Load 0x0,0x3
024d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
024e 025e | ^ | Execute Discrete,Convert
024f 1c01 | | Execute_Immediate Run_Utility,0x1
0250 BODY_0248:
0250 0092 0296 | | Action Push_String_Extended,0x296 ; "Found a "
0252 00d9 | | Load_Top At_Offset_1
0253 01dd | | Execute Vector,First
0254 0a03 | | Execute_Immediate Plus,0x3
0255 00da | | Load_Top At_Offset_2
0256 01dc | | Execute Vector,Last
0257 00db | | Load_Top At_Offset_3
0258 01cf | | Execute Vector,Slice_Read
0259 01cc | | Execute Vector,Catenate
025a 0092 0299 | | Action Push_String_Extended,0x299 ; " after "
025c 01cc | | Execute Vector,Catenate
025d e403 | | Load 0x2,0x3
025e e00b | | Load 0x0,0xb
025f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0260 01cc | | Execute Vector,Catenate
0261 0092 029a | | Action Push_String_Extended,0x29a ; "=> in Additonal_Parameters argument?"
0263 01cc | | Execute Vector,Catenate
0264 e009 | | Load 0x0,0x9
0265 180d | | Execute Package,Field_Execute,Field_Number 0xd
0266 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0267 0000 | | .XXX[0x1]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0270 | p | .CONST 0x0270 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0002 | | .CONST 0x0002 ; Number of locals
026b INIT_0268:
026b e402 | | Load 0x2,0x2
026c e003 | | Load 0x0,0x3
026d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
026e 025e | ^ | Execute Discrete,Convert
026f 1c01 | | Execute_Immediate Run_Utility,0x1
0270 BODY_0268:
0270 0092 0296 | | Action Push_String_Extended,0x296 ; "Found a "
0272 00d9 | | Load_Top At_Offset_1
0273 01dd | | Execute Vector,First
0274 0a03 | | Execute_Immediate Plus,0x3
0275 00da | | Load_Top At_Offset_2
0276 01dc | | Execute Vector,Last
0277 00db | | Load_Top At_Offset_3
0278 01cf | | Execute Vector,Slice_Read
0279 01cc | | Execute Vector,Catenate
027a 0092 0297 | | Action Push_String_Extended,0x297 ; " ("
027c 01cc | | Execute Vector,Catenate
027d e403 | | Load 0x2,0x3
027e e00b | | Load 0x0,0xb
027f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0280 01cc | | Execute Vector,Catenate
0281 0092 0298 | | Action Push_String_Extended,0x298 ; ") in the Additional_Parameters argument?"
0283 01cc | | Execute Vector,Catenate
0284 e009 | | Load 0x0,0x9
0285 180d | | Execute Package,Field_Execute,Field_Number 0xd
0286 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0287 ; --------------------------------------------------------------------------------------
0287 ; STRING TABLE
0287 ; --------------------------------------------------------------------------------------
0287 002a | * | .STRTAB 0x002a->0x029c ; "Expected another parameter name at end of Additonal_Parameters string."
0288 006e | n | .STRTAB 0x006e->0x02bf ; "Not allowed to change the value for symbol: "
0289 0098 | | .STRTAB 0x0098->0x02d5 ; "IF"
028a 0098 | | .STRTAB 0x0098->0x02d6 ; "THEN"
028b 009a | | .STRTAB 0x009a->0x02d8 ; "ELSIF"
028c 009d | | .STRTAB 0x009d->0x02da ; "ELSE"
028d 009f | | .STRTAB 0x009f->0x02dc ; "END"
028e 00a0 | | .STRTAB 0x00a0->0x02de ; "NOT"
028f 00a1 | | .STRTAB 0x00a1->0x02df ; "AND"
0290 00a2 | | .STRTAB 0x00a2->0x02e1 ; "OR"
0291 00a2 | | .STRTAB 0x00a2->0x02e2 ; "XOR"
0292 00a3 | | .STRTAB 0x00a3->0x02e3 ; "FALSE"
0293 00a6 | | .STRTAB 0x00a6->0x02e6 ; "TRUE"
0294 00a8 | | .STRTAB 0x00a8->0x02e8 ; "The keyword "
0295 00b2 | | .STRTAB 0x00b2->0x02ee ; " is not the name of a parameter."
0296 00d0 | | .STRTAB 0x00d0->0x02fe ; "Found a "
0297 00d6 | | .STRTAB 0x00d6->0x0302 ; " ("
0298 00d6 | | .STRTAB 0x00d6->0x0303 ; ") in the Additional_Parameters argument?"
0299 00fc | | .STRTAB 0x00fc->0x0317 ; " after "
029a 0101 | | .STRTAB 0x0101->0x031a ; "=> in Additonal_Parameters argument?"
029b 0123 | # | .STREND 0x0123->0x032c
029c 4578 7065 |Expe| .STRTAB_STRINGS
032d 0000 0000 | | .XXX[0x3]
032f 0000 | |
0330 ; --------------------------------------------------------------------------------------
0330 ; Debug Table
0330 ; --------------------------------------------------------------------------------------
0330 0004 0004 | | .DEBUG4 0x0004,0x0004,0xa941,0x0000,0x0001,0x0000
0336 073b 029d | ; | .XXX[0xca]
0338 0753 029d | S |
033a 077b 029d | { |
033c 07bb 029d | |
033e 07fb 1d45 | E|
0340 00c7 0092 | |
0342 1369 0092 | i |
0344 136a 0092 | j |
0346 136b 0092 | k |
0348 136c 1d46 | l F|
034a 00c7 1d47 | G|
034c 00c7 1d48 | H|
034e 00c7 1d49 | I|
0350 00c7 1d4a | J|
0352 00c7 00bc | |
0354 00bb 0000 | |
0356 0000 0000 | |
0358 015b 0004 | [ |
035a 0001 e238 | 8|
035c 182b 4501 | +E |
035e 0000 0000 | |
0360 0163 0004 | c |
0362 0001 e238 | 8|
0364 182c 4501 | ,E |
0366 0000 0000 | |
0368 016b 0004 | k |
036a 0001 e234 | 4|
036c e239 1816 | 9 |
036e 824b 4501 | KE |
0370 0173 0004 | s |
0372 0001 4603 | F |
0374 4302 7802 |C x |
0376 7805 7809 |x x |
0378 00da 0091 | |
037a 12e4 4201 | B |
037c 00db 00db | |
037e 00e0 181b | |
0380 4202 00da |B |
0382 00e0 181c | |
0384 4201 0000 |B |
0386 0000 0000 | |
0388 018b 0004 | |
038a 0001 4603 | F |
038c 4302 7802 |C x |
038e 7805 7809 |x x |
0390 00da 0091 | |
0392 1301 4201 | B |
0394 00db 00db | |
0396 00e0 181b | |
0398 4202 00da |B |
039a 00e0 181c | |
039c 4201 0000 |B |
039e 0000 0000 | |
03a0 01a3 0217 | |
03a2 0001 00da | |
03a4 461c 781c |F x |
03a6 781e 7820 |x x |
03a8 7825 7827 |x%x'|
03aa 7820 7828 |x x(|
03ac 782a 782c |x*x,|
03ae 782e 7830 |x.x0|
03b0 7832 7834 |x2x4|
03b2 7836 7861 |x6xa|
03b4 7840 7836 |x@x6|
03b6 7838 783a |x8x:|
03b8 783f 7841 |x?xA|
03ba 7843 7845 |xCxE|
03bc 7847 7849 |xGxI|
03be 7854 784a |xTxJ|
03c0 784c 784e |xLxN|
03c2 e229 180d | ) |
03c4 4502 e229 |E )|
03c6 180e 4502 | E |
03c8 e229 180f | ) |
03ca 4502 e229 |E )|
03cc 1810 4502 | E |
03ce e229 1826 | ) &|
03d0 4502 e229 |E )|
03d2 1811 4502 | E |
03d4 e229 1812 | ) |
03d6 4502 e229 |E )|
03d8 1813 4502 | E |
03da e229 1814 | ) |
03dc 4502 e229 |E )|
03de 1815 4502 | E |
03e0 e229 1816 | ) |
03e2 4502 e229 |E )|
03e4 1817 4502 | E |
03e6 e229 1818 | ) |
03e8 4502 e229 |E )|
03ea 1819 4502 | E |
03ec e229 181b | ) |
03ee 4502 e229 |E )|
03f0 181c 4502 | E |
03f2 e229 181d | ) |
03f4 4502 e229 |E )|
03f6 181a 4502 | E |
03f8 e229 1827 | ) '|
03fa 4502 e229 |E )|
03fc 181e 4502 | E |
03fe e229 181f | ) |