|
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: 3072 (0xc00)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0390 | | .CONST 0x0390 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00ae | | .CONST 0x00ae ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0031 | 1 | .CONST 0x0031 ; Number of locals
000b INIT_0008:
000b 4805 |H | Short_Literal 0x5
000c 032b | + | Declare_Type Record,Incomplete,Visible
000d 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
000f 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0011 4803 |H | Short_Literal 0x3
0012 032b | + | Declare_Type Record,Incomplete,Visible
0013 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0015 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0017 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0019 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
001b 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
001d 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
001f 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0021 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0023 4805 |H | Short_Literal 0x5
0024 032b | + | Declare_Type Record,Incomplete,Visible
0025 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0027 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0029 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
002b 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
002d 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
002f e001 | | Load 0x0,0x1
0030 e002 | | Load 0x0,0x2
0031 4850 |HP | Short_Literal 0x50
0032 e003 | | Load 0x0,0x3
0033 0387 | | Declare_Variable Package
0034 00d8 | | Load_Top At_Offset_0
0035 020f | | Execute Module,Activate
0036 00e4 | | Load_Encached Positive_Cache
0037 e004 | | Load 0x0,0x4
0038 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0039 00e1 | | Load_Encached Boolean_Cache
003a 00db | | Load_Top At_Offset_3
003b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
003c e004 | | Load 0x0,0x4
003d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
003e e211 | | Load 0x1,0x11
003f 029f 031b | | Declare_Subprogram INIT_0318,For_Call
0041 4806 |H | Short_Literal 0x6
0042 032d | - | Declare_Type Record,Defined
0043 029b 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Unelaborated
0045 e005 | | Load 0x0,0x5
0046 e006 | | Load 0x0,0x6
0047 e20f | | Load 0x1,0xf
0048 00e5 | | Load_Encached Long_Integer_Cache
0049 e226 | & | Load 0x1,0x26
004a 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
004b e007 | | Load 0x0,0x7
004c 0387 | | Declare_Variable Package
004d 00d8 | | Load_Top At_Offset_0
004e 020f | | Execute Module,Activate
004f e008 | | Load 0x0,0x8
0050 e009 | | Load 0x0,0x9
0051 e20f | | Load 0x1,0xf
0052 00e5 | | Load_Encached Long_Integer_Cache
0053 e004 | | Load 0x0,0x4
0054 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0055 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0056 e007 | | Load 0x0,0x7
0057 0387 | | Declare_Variable Package
0058 00d8 | | Load_Top At_Offset_0
0059 020f | | Execute Module,Activate
005a e00a | | Load 0x0,0xa
005b e00b | | Load 0x0,0xb
005c e20f | | Load 0x1,0xf
005d 00e3 | | Load_Encached Natural_Cache
005e 4801 |H | Short_Literal 0x1
005f e00c | | Load 0x0,0xc
0060 0387 | | Declare_Variable Package
0061 00d8 | | Load_Top At_Offset_0
0062 020f | | Execute Module,Activate
0063 00e3 | | Load_Encached Natural_Cache
0064 00db | | Load_Top At_Offset_3
0065 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0066 00da | | Load_Top At_Offset_2
0067 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0068 e229 | ) | Load 0x1,0x29
0069 1b13 | | Execute Package,Field_Read,Field_Number 0x13
006a e229 | ) | Load 0x1,0x29
006b 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
006c 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call
006e e213 | | Load 0x1,0x13
006f 0326 | & | Complete_Type Record,By_Defining
0070 4801 |H | Short_Literal 0x1
0071 e20f | | Load 0x1,0xf
0072 e226 | & | Load 0x1,0x26
0073 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
0075 4801 |H | Short_Literal 0x1
0076 035d | ] | Declare_Type Array,Defined
0077 00e4 | | Load_Encached Positive_Cache
0078 00e4 | | Load_Encached Positive_Cache
0079 00da | | Load_Top At_Offset_2
007a 029f 035b | [| Declare_Subprogram INIT_0358,For_Call
007c e216 | | Load 0x1,0x16
007d 0326 | & | Complete_Type Record,By_Defining
007e e213 | | Load 0x1,0x13
007f e21f | | Load 0x1,0x1f
0080 0325 | % | Complete_Type Record,By_Renaming
0081 00bf | | Action Accept_Activation
0082 0092 036a | j| Action Push_String_Extended,0x36a ; "\x22*\x22"
0084 0092 036b | k| Action Push_String_Extended,0x36b ; "\x22=\x22"
0086 0092 036c | l| Action Push_String_Extended,0x36c ; "\x22+\x22"
0088 0092 036d | m| Action Push_String_Extended,0x36d ; "\x22-\x22"
008a 1d14 | | Execute_Immediate Reference_Lex_1,0x14
008b 00c7 | | Action Elaborate_Subprogram
008c 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call
008e 1d15 | | Execute_Immediate Reference_Lex_1,0x15
008f 00c7 | | Action Elaborate_Subprogram
0090 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call
0092 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0093 00c7 | | Action Elaborate_Subprogram
0094 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0095 00c7 | | Action Elaborate_Subprogram
0096 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0097 00c7 | | Action Elaborate_Subprogram
0098 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0099 00c7 | | Action Elaborate_Subprogram
009a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
009b 00c7 | | Action Elaborate_Subprogram
009c 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
009d 00c7 | | Action Elaborate_Subprogram
009e 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
009f 00c7 | | Action Elaborate_Subprogram
00a0 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00a1 00c7 | | Action Elaborate_Subprogram
00a2 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00a3 00c7 | | Action Elaborate_Subprogram
00a4 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00a5 00c7 | | Action Elaborate_Subprogram
00a6 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00a7 00c7 | | Action Elaborate_Subprogram
00a8 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00a9 00c7 | | Action Elaborate_Subprogram
00aa 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00ab 00c7 | | Action Elaborate_Subprogram
00ac 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00ad 00c7 | | Action Elaborate_Subprogram
00ae BODY_0008:
00ae 00bc | | Action Signal_Activated
00af 00bb | | Action Signal_Completion
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 e228 | ( | Load 0x1,0x28
00b4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00b5 e228 | ( | Load 0x1,0x28
00b6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00b7 00db | | Load_Top At_Offset_3
00b8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00b9 e22a | * | Load 0x1,0x2a
00ba 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00bb e22a | * | Load 0x1,0x2a
00bc 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00bd 00db | | Load_Top At_Offset_3
00be 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00bf e229 | ) | Load 0x1,0x29
00c0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00c1 e229 | ) | Load 0x1,0x29
00c2 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00c3 00db | | Load_Top At_Offset_3
00c4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c6 0000 0000 | | .XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00db | | .CONST 0x00db ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0006 | | .CONST 0x0006 ; Number of locals
00cb INIT_00c8:
00cb e226 | & | Load 0x1,0x26
00cc 0322 | " | Declare_Variable Record
00cd 00d8 | | Load_Top At_Offset_0
00ce 1c00 | | Execute_Immediate Run_Utility,0x0
00cf 00db | | Load_Top At_Offset_3
00d0 e004 | | Load 0x0,0x4
00d1 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
00d2 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00d3 00e5 | | Load_Encached Long_Integer_Cache
00d4 03f1 | | Declare_Variable Discrete,With_Value
00d5 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
00d7 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call
00d9 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call
00db BODY_00c8:
00db 8404 | | Call 0x2,0x4
00dc 8405 | | Call 0x2,0x5
00dd e5fe | | Load 0x2,-0x2
00de 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00df 4800 |H | Short_Literal 0x0
00e0 e402 | | Load 0x2,0x2
00e1 e403 | | Load 0x2,0x3
00e2 e228 | ( | Load 0x1,0x28
00e3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00e4 e5fe | | Load 0x2,-0x2
00e5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00e6 8406 | | Call 0x2,0x6
00e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f2 | | .CONST 0x00f2 ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0003 | | .CONST 0x0003 ; Number of locals
00eb INIT_00e8:
00eb e228 | ( | Load 0x1,0x28
00ec 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
00ed 0322 | " | Declare_Variable Record
00ee e226 | & | Load 0x1,0x26
00ef 0322 | " | Declare_Variable Record
00f0 00d8 | | Load_Top At_Offset_0
00f1 1c00 | | Execute_Immediate Run_Utility,0x0
00f2 BODY_00e8:
00f2 00d9 | | Load_Top At_Offset_1
00f3 e5ff | | Load 0x2,-0x1
00f4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00f5 e228 | ( | Load 0x1,0x28
00f6 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00f7 00d1 | | Pop_Control Pop_Count_1
00f8 00cf | | Action Mark_Auxiliary
00f9 781b |x | Jump 0x115
00fa 00da | | Load_Top At_Offset_2
00fb e228 | ( | Load 0x1,0x28
00fc 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00fd e5ff | | Load 0x2,-0x1
00fe 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ff e228 | ( | Load 0x1,0x28
0100 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0101 00da | | Load_Top At_Offset_2
0102 017d | } | Execute Record,Structure_Write
0103 00d9 | | Load_Top At_Offset_1
0104 00da | | Load_Top At_Offset_2
0105 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0106 e5fe | | Load 0x2,-0x2
0107 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0108 01d6 | | Execute Vector,Field_Write
0109 00d9 | | Load_Top At_Offset_1
010a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010b e5fe | | Load 0x2,-0x2
010c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010d 8231 | 1 | Call 0x1,0x31
010e e5fe | | Load 0x2,-0x2
010f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0110 00da | | Load_Top At_Offset_2
0111 e228 | ( | Load 0x1,0x28
0112 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0113 00d1 | | Pop_Control Pop_Count_1
0114 00c9 | | Action Pop_Auxiliary_Loop
0115 00da | | Load_Top At_Offset_2
0116 e228 | ( | Load 0x1,0x28
0117 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0118 6fe1 |o | Jump_Zero 0xfa
0119 00ce | | Action Pop_Auxiliary
011a 4801 |H | Short_Literal 0x1
011b e5fe | | Load 0x2,-0x2
011c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
011d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
011e 0000 0000 | | .XXX[0x2]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00da | | Load_Top At_Offset_2
0124 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0125 00db | | Load_Top At_Offset_3
0126 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0127 027d | } | Execute Discrete,Greater
0128 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0129 0000 0000 | | .BLANK 0000[0x7]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2
0134 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0135 0a01 | | Execute_Immediate Plus,0x1
0136 00db | | Load_Top At_Offset_3
0137 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0138 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0139 0000 0000 | | .BLANK 0000[0x7]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2
0144 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0145 00db | | Load_Top At_Offset_3
0146 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0147 01d5 | | Execute Vector,Field_Reference
0148 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0149 00d8 | | Load_Top At_Offset_0
014a 0120 | | Execute Any,Is_Value
014b 7002 |p | Jump_Nonzero 0x14e
014c 00d8 | | Load_Top At_Offset_0
014d 011e | | Execute Any,Convert
014e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
014f 0000 | | .XXX[0x1]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00da | | Load_Top At_Offset_2
0154 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0155 00db | | Load_Top At_Offset_3
0156 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0157 01d5 | | Execute Vector,Field_Reference
0158 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0159 00d8 | | Load_Top At_Offset_0
015a 0120 | | Execute Any,Is_Value
015b 7002 |p | Jump_Nonzero 0x15e
015c 00d8 | | Load_Top At_Offset_0
015d 011e | | Execute Any,Convert
015e e211 | | Load 0x1,0x11
015f 0119 | | Execute Any,Check_In_Formal_Type
0160 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0161 0000 0000 | | .BLANK 0000[0x7]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00da | | Load_Top At_Offset_2
016c 821a | | Call 0x1,0x1a
016d e00d | | Load 0x0,0xd
016e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
016f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00da | | Load_Top At_Offset_2
0174 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0175 00db | | Load_Top At_Offset_3
0176 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0177 01d5 | | Execute Vector,Field_Reference
0178 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0179 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017a 0000 0000 | | .BLANK 0000[0x6]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00da | | Load_Top At_Offset_2
0184 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0185 00db | | Load_Top At_Offset_3
0186 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0187 01d5 | | Execute Vector,Field_Reference
0188 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0189 e225 | % | Load 0x1,0x25
018a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
018b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018c 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
0194 e5fe | | Load 0x2,-0x2
0195 017d | } | Execute Record,Structure_Write
0196 00db | | Load_Top At_Offset_3
0197 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0198 00db | | Load_Top At_Offset_3
0199 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
019a e229 | ) | Load 0x1,0x29
019b 181f | | Execute Package,Field_Execute,Field_Number 0x1f
019c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
019d 0000 0000 | | .XXX[0x3]
019f 0000 | |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00da | | Load_Top At_Offset_2
01a4 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
01a5 e229 | ) | Load 0x1,0x29
01a6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00da | | Load_Top At_Offset_2
01ac 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
01ad e229 | ) | Load 0x1,0x29
01ae 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01af 00db | | Load_Top At_Offset_3
01b0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01b1 e229 | ) | Load 0x1,0x29
01b2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b4 0000 0000 | | .BLANK 0000[0x4]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
01bd e229 | ) | Load 0x1,0x29
01be 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01bf 00db | | Load_Top At_Offset_3
01c0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01c1 e229 | ) | Load 0x1,0x29
01c2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01c3 e00e | | Load 0x0,0xe
01c4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c5 e00d | | Load 0x0,0xd
01c6 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00da | | Load_Top At_Offset_2
01cc 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01cd e229 | ) | Load 0x1,0x29
01ce 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01cf 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 00da | | Load_Top At_Offset_2
01d4 6007 |` | Indirect_Literal Discrete,0x1dc,{0x00000000, 0x7fffffff}
01d5 026e | n | Execute Discrete,Modulo
01d6 00d8 | | Load_Top At_Offset_0
01d7 00e2 | | Load_Encached Integer_Cache
01d8 0260 | ` | Execute Discrete,In_Type
01d9 7001 |p | Jump_Nonzero 0x1db
01da 0801 | | Execute_Immediate Raise,0x1
01db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01dc 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00d1 | | Pop_Control Pop_Count_1
01e4 00da | | Load_Top At_Offset_2
01e5 01dc | | Execute Vector,Last
01e6 00db | | Load_Top At_Offset_3
01e7 01dd | | Execute Vector,First
01e8 0263 | c | Execute Discrete,Above_Bound
01e9 7006 |p | Jump_Nonzero 0x1f0
01ea 00d8 | | Load_Top At_Offset_0
01eb e5ff | | Load 0x2,-0x1
01ec 01d5 | | Execute Vector,Field_Reference
01ed 1c00 | | Execute_Immediate Run_Utility,0x0
01ee 0a01 | | Execute_Immediate Plus,0x1
01ef 7ff8 | | Jump 0x1e8
01f0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01f1 0000 0000 | | .BLANK 0000[0x7]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fe | | .CONST 0x01fe ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0002 | | .CONST 0x0002 ; Number of locals
01fb INIT_01f8:
01fb 00da | | Load_Top At_Offset_2
01fc e00d | | Load 0x0,0xd
01fd 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01fe BODY_01f8:
01fe 00db | | Load_Top At_Offset_3
01ff e00d | | Load 0x0,0xd
0200 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0201 6829 |h) | Jump_Zero 0x22b
0202 00db | | Load_Top At_Offset_3
0203 e00d | | Load 0x0,0xd
0204 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0205 6825 |h% | Jump_Zero 0x22b
0206 4801 |H | Short_Literal 0x1
0207 e22c | , | Load 0x1,0x2c
0208 00da | | Load_Top At_Offset_2
0209 e00f | | Load 0x0,0xf
020a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
020b 6803 |h | Jump_Zero 0x20f
020c 0092 036e | n| Action Push_String_Extended,0x36e ; "Mult_Op"
020e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020f 4801 |H | Short_Literal 0x1
0210 e22d | - | Load 0x1,0x2d
0211 00da | | Load_Top At_Offset_2
0212 e00f | | Load 0x0,0xf
0213 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0214 6803 |h | Jump_Zero 0x218
0215 0092 036f | o| Action Push_String_Extended,0x36f ; "Equality_Op"
0217 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0218 4801 |H | Short_Literal 0x1
0219 e22e | . | Load 0x1,0x2e
021a 00da | | Load_Top At_Offset_2
021b e00f | | Load 0x0,0xf
021c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
021d 6803 |h | Jump_Zero 0x221
021e 0092 0370 | p| Action Push_String_Extended,0x370 ; "Plus_Op"
0220 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0221 4801 |H | Short_Literal 0x1
0222 e22f | / | Load 0x1,0x2f
0223 00da | | Load_Top At_Offset_2
0224 e00f | | Load 0x0,0xf
0225 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0226 6803 |h | Jump_Zero 0x22a
0227 0092 0371 | q| Action Push_String_Extended,0x371 ; "Minus_Op"
0229 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022a 08e2 | | Execute_Immediate Raise,0xe2
022b 00d8 | | Load_Top At_Offset_0
022c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022d 0000 0000 | | .XXX[0x3]
022f 0000 | |
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 00da | | Load_Top At_Offset_2
0234 e5fe | | Load 0x2,-0x2
0235 027d | } | Execute Discrete,Greater
0236 6802 |h | Jump_Zero 0x239
0237 00da | | Load_Top At_Offset_2
0238 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0239 00db | | Load_Top At_Offset_3
023a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
023b 0000 0000 | | .BLANK 0000[0x5]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 026c | l | .CONST 0x026c ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 e403 | | Load 0x2,0x3
0244 e5fe | | Load 0x2,-0x2
0245 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0246 e228 | ( | Load 0x1,0x28
0247 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0248 e402 | | Load 0x2,0x2
0249 017d | } | Execute Record,Structure_Write
024a e5fd | | Load 0x2,-0x3
024b 00d8 | | Load_Top At_Offset_0
024c 0120 | | Execute Any,Is_Value
024d 6803 |h | Jump_Zero 0x251
024e e210 | | Load 0x1,0x10
024f 011e | | Execute Any,Convert
0250 7802 |x | Jump 0x253
0251 e210 | | Load 0x1,0x10
0252 0119 | | Execute Any,Check_In_Formal_Type
0253 e402 | | Load 0x2,0x2
0254 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0255 00d8 | | Load_Top At_Offset_0
0256 0120 | | Execute Any,Is_Value
0257 6803 |h | Jump_Zero 0x25b
0258 e211 | | Load 0x1,0x11
0259 011e | | Execute Any,Convert
025a 7802 |x | Jump 0x25d
025b e211 | | Load 0x1,0x11
025c 0119 | | Execute Any,Check_In_Formal_Type
025d e5ff | | Load 0x2,-0x1
025e 8212 | | Call 0x1,0x12
025f e402 | | Load 0x2,0x2
0260 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0261 c5fd | | Store 0x2,-0x3
0262 e5fe | | Load 0x2,-0x2
0263 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0264 4800 |H | Short_Literal 0x0
0265 e402 | | Load 0x2,0x2
0266 e403 | | Load 0x2,0x3
0267 e228 | ( | Load 0x1,0x28
0268 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0269 e5fe | | Load 0x2,-0x2
026a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
026b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
026c TRAP_0240:
026c e228 | ( | Load 0x1,0x28
026d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
026e 010f | | Execute Exception,Equal
026f 682a |h* | Jump_Zero 0x29a
0270 e5fe | | Load 0x2,-0x2
0271 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0272 0a01 | | Execute_Immediate Plus,0x1
0273 e5fe | | Load 0x2,-0x2
0274 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0275 e5fe | | Load 0x2,-0x2
0276 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0277 e402 | | Load 0x2,0x2
0278 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0279 e5ff | | Load 0x2,-0x1
027a e402 | | Load 0x2,0x2
027b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
027c e5ff | | Load 0x2,-0x1
027d e00e | | Load 0x0,0xe
027e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
027f e402 | | Load 0x2,0x2
0280 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0281 e5fd | | Load 0x2,-0x3
0282 00d8 | | Load_Top At_Offset_0
0283 0120 | | Execute Any,Is_Value
0284 6803 |h | Jump_Zero 0x288
0285 e210 | | Load 0x1,0x10
0286 011e | | Execute Any,Convert
0287 7802 |x | Jump 0x28a
0288 e210 | | Load 0x1,0x10
0289 0119 | | Execute Any,Check_In_Formal_Type
028a e402 | | Load 0x2,0x2
028b 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
028c 00d8 | | Load_Top At_Offset_0
028d 0120 | | Execute Any,Is_Value
028e 6803 |h | Jump_Zero 0x292
028f e211 | | Load 0x1,0x11
0290 011e | | Execute Any,Convert
0291 7802 |x | Jump 0x294
0292 e211 | | Load 0x1,0x11
0293 0119 | | Execute Any,Check_In_Formal_Type
0294 e5ff | | Load 0x2,-0x1
0295 8212 | | Call 0x1,0x12
0296 e402 | | Load 0x2,0x2
0297 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0298 c5fd | | Store 0x2,-0x3
0299 4501 |E | Exit_Suprogram New_Top_Offset 0x1
029a 0100 | | Execute Exception,Raise
029b 0000 0000 | | .BLANK 0000[0x5]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a6 | | .CONST 0x02a6 ; Address of begin
02a1 02d6 | | .CONST 0x02d6 ; Address of exception handler
02a2 0003 | | .CONST 0x0003 ; Number of locals
02a3 INIT_02a0:
02a3 00e3 | | Load_Encached Natural_Cache
02a4 e5ff | | Load 0x2,-0x1
02a5 8230 | 0 | Call 0x1,0x30
02a6 BODY_02a0:
02a6 00d8 | | Load_Top At_Offset_0
02a7 e5fe | | Load 0x2,-0x2
02a8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02a9 e22a | * | Load 0x1,0x2a
02aa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02ab 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
02ac 4801 |H | Short_Literal 0x1
02ad e402 | | Load 0x2,0x2
02ae 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02af e402 | | Load 0x2,0x2
02b0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02b1 00d9 | | Load_Top At_Offset_1
02b2 0092 0372 | r| Action Push_String_Extended,0x372 ; "_"
02b4 01cc | | Execute Vector,Catenate
02b5 4820 |H | Short_Literal 0x20
02b6 e602 | | Load 0x3,0x2
02b7 0a01 | | Execute_Immediate Plus,0x1
02b8 00d8 | | Load_Top At_Offset_0
02b9 00e2 | | Load_Encached Integer_Cache
02ba 0260 | ` | Execute Discrete,In_Type
02bb 7001 |p | Jump_Nonzero 0x2bd
02bc 0801 | | Execute_Immediate Raise,0x1
02bd 00e0 | | Load_Encached Standard_Cache
02be 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02bf e00f | | Load 0x0,0xf
02c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02c1 01cc | | Execute Vector,Catenate
02c2 e225 | % | Load 0x1,0x25
02c3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02c4 e402 | | Load 0x2,0x2
02c5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02c6 e5fe | | Load 0x2,-0x2
02c7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02c8 4800 |H | Short_Literal 0x0
02c9 00db | | Load_Top At_Offset_3
02ca 0a01 | | Execute_Immediate Plus,0x1
02cb 00d8 | | Load_Top At_Offset_0
02cc 00e3 | | Load_Encached Natural_Cache
02cd 0260 | ` | Execute Discrete,In_Type
02ce 7001 |p | Jump_Nonzero 0x2d0
02cf 0801 | | Execute_Immediate Raise,0x1
02d0 00db | | Load_Top At_Offset_3
02d1 e22a | * | Load 0x1,0x2a
02d2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02d3 e5fe | | Load 0x2,-0x2
02d4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02d6 TRAP_02a0:
02d6 e22a | * | Load 0x1,0x2a
02d7 1b20 | | Execute Package,Field_Read,Field_Number 0x20
02d8 010f | | Execute Exception,Equal
02d9 6811 |h | Jump_Zero 0x2eb
02da e5fe | | Load 0x2,-0x2
02db 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02dc 4800 |H | Short_Literal 0x0
02dd 4801 |H | Short_Literal 0x1
02de e603 | | Load 0x3,0x3
02df e22a | * | Load 0x1,0x2a
02e0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02e1 e5fe | | Load 0x2,-0x2
02e2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02e3 e402 | | Load 0x2,0x2
02e4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02e5 00da | | Load_Top At_Offset_2
02e6 e225 | % | Load 0x1,0x25
02e7 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02e8 e402 | | Load 0x2,0x2
02e9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02eb 0100 | | Execute Exception,Raise
02ec 0000 0000 | | .BLANK 0000[0x4]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 030e | | .CONST 0x030e ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 4801 |H | Short_Literal 0x1
02f4 e402 | | Load 0x2,0x2
02f5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02f6 e00e | | Load 0x0,0xe
02f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02f8 e00d | | Load 0x0,0xd
02f9 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02fa 0092 0373 | s| Action Push_String_Extended,0x373 ; "Standard"
02fc e00f | | Load 0x0,0xf
02fd 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02fe 700e |p | Jump_Nonzero 0x30d
02ff e5fe | | Load 0x2,-0x2
0300 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0301 4801 |H | Short_Literal 0x1
0302 e402 | | Load 0x2,0x2
0303 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0304 e402 | | Load 0x2,0x2
0305 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0306 e004 | | Load 0x0,0x4
0307 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
0308 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0309 e229 | ) | Load 0x1,0x29
030a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
030b e5fe | | Load 0x2,-0x2
030c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
030d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
030e TRAP_02f0:
030e e229 | ) | Load 0x1,0x29
030f 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0310 010f | | Execute Exception,Equal
0311 6801 |h | Jump_Zero 0x313
0312 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0313 0100 | | Execute Exception,Raise
0314 0000 0000 | | .BLANK 0000[0x4]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b 4608 |F | Jump_Case 0x9
031c 7808 |x | Jump 0x325 ; case 0x0
031d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
031e 7819 |x | Jump 0x338 ; case 0x2
031f 7818 |x | Jump 0x338 ; case 0x3
0320 7817 |x | Jump 0x338 ; case 0x4
0321 7816 |x | Jump 0x338 ; case 0x5
0322 7815 |x | Jump 0x338 ; case 0x6
0323 7814 |x | Jump 0x338 ; case 0x7
0324 7813 |x | Jump 0x338 ; case 0x8
0325 00da | | Load_Top At_Offset_2
0326 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0327 0125 | % | Execute Any,Set_Constraint
0328 00da | | Load_Top At_Offset_2
0329 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
032a 1c00 | | Execute_Immediate Run_Utility,0x0
032b 00da | | Load_Top At_Offset_2
032c 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
032d 0125 | % | Execute Any,Set_Constraint
032e 00da | | Load_Top At_Offset_2
032f 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0330 1c00 | | Execute_Immediate Run_Utility,0x0
0331 00da | | Load_Top At_Offset_2
0332 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0333 0125 | % | Execute Any,Set_Constraint
0334 00da | | Load_Top At_Offset_2
0335 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0336 1c00 | | Execute_Immediate Run_Utility,0x0
0337 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0338 0869 | i | Execute_Immediate Raise,0x69
0339 0000 0000 | | .BLANK 0000[0x7]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 4608 |F | Jump_Case 0x9
0344 7808 |x | Jump 0x34d ; case 0x0
0345 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0346 780a |x | Jump 0x351 ; case 0x2
0347 7809 |x | Jump 0x351 ; case 0x3
0348 7808 |x | Jump 0x351 ; case 0x4
0349 7807 |x | Jump 0x351 ; case 0x5
034a 7806 |x | Jump 0x351 ; case 0x6
034b 7805 |x | Jump 0x351 ; case 0x7
034c 7804 |x | Jump 0x351 ; case 0x8
034d 4800 |H | Short_Literal 0x0
034e 00db | | Load_Top At_Offset_3
034f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0350 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0351 0869 | i | Execute_Immediate Raise,0x69
0352 0000 0000 | | .BLANK 0000[0x6]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 4608 |F | Jump_Case 0x9
035c 7808 |x | Jump 0x365 ; case 0x0
035d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
035e 780a |x | Jump 0x369 ; case 0x2
035f 7809 |x | Jump 0x369 ; case 0x3
0360 7808 |x | Jump 0x369 ; case 0x4
0361 7807 |x | Jump 0x369 ; case 0x5
0362 7806 |x | Jump 0x369 ; case 0x6
0363 7805 |x | Jump 0x369 ; case 0x7
0364 7804 |x | Jump 0x369 ; case 0x8
0365 00da | | Load_Top At_Offset_2
0366 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0367 1c00 | | Execute_Immediate Run_Utility,0x0
0368 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0369 0869 | i | Execute_Immediate Raise,0x69
036a ; --------------------------------------------------------------------------------------
036a ; STRING TABLE
036a ; --------------------------------------------------------------------------------------
036a 0016 | | .STRTAB 0x0016->0x0375 ; "\x22*\x22"
036b 0017 | | .STRTAB 0x0017->0x0376 ; "\x22=\x22"
036c 0018 | | .STRTAB 0x0018->0x0378 ; "\x22+\x22"
036d 0019 | | .STRTAB 0x0019->0x0379 ; "\x22-\x22"
036e 001a | | .STRTAB 0x001a->0x037b ; "Mult_Op"
036f 001f | | .STRTAB 0x001f->0x037e ; "Equality_Op"
0370 0028 | ( | .STRTAB 0x0028->0x0384 ; "Plus_Op"
0371 002d | - | .STRTAB 0x002d->0x0387 ; "Minus_Op"
0372 0033 | 3 | .STRTAB 0x0033->0x038b ; "_"
0373 0032 | 2 | .STRTAB 0x0032->0x038c ; "Standard"
0374 0038 | 8 | .STREND 0x0038->0x0390
0375 222a 2222 |"*""| .STRTAB_STRINGS
0390 ; --------------------------------------------------------------------------------------
0390 ; Debug Table
0390 ; --------------------------------------------------------------------------------------
0390 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2e9f,0x0000,0x0001,0x001b
0396 000b 0402 | | .DBG4T 0x000b,0x0402,0xc000,0x0000
039a 0082 0420 | | .DBG4T 0x0082,0x0420,0xc000,0x0000
039e 00b3 0438 | 8| .DBG4T 0x00b3,0x0438,0x1001,0x0000
03a2 00cb 043d | =| .DBG4T 0x00cb,0x043d,0x1001,0x0000
03a6 00eb 0445 | E| .DBG4T 0x00eb,0x0445,0x1001,0x4000
03aa 0123 0457 | # W| .DBG4T 0x0123,0x0457,0x1002,0x0000
03ae 0133 045a | 3 Z| .DBG4T 0x0133,0x045a,0x1001,0x0000
03b2 0143 045d | C ]| .DBG4T 0x0143,0x045d,0x1002,0x0000
03b6 0153 0460 | S `| .DBG4T 0x0153,0x0460,0x1002,0x0000
03ba 016b 0463 | k c| .DBG4T 0x016b,0x0463,0x1002,0x0000
03be 0173 0466 | s f| .DBG4T 0x0173,0x0466,0x1002,0x0000
03c2 0183 0469 | i| .DBG4T 0x0183,0x0469,0x1002,0x0000
03c6 0193 046c | l| .DBG4T 0x0193,0x046c,0x1001,0x0000
03ca 01a3 0470 | p| .DBG4T 0x01a3,0x0470,0x1002,0x0000
03ce 01ab 0473 | s| .DBG4T 0x01ab,0x0473,0x1002,0x0000
03d2 01bb 0476 | v| .DBG4T 0x01bb,0x0476,0x1002,0x0000
03d6 01cb 0479 | y| .DBG4T 0x01cb,0x0479,0x1001,0x0000
03da 01d3 047c | || .DBG4T 0x01d3,0x047c,0x1002,0x0000
03de 01e3 0000 | | .DBG4T 0x01e3,0x0000,0x1005,0x0000
03e2 01fb 047f | | .DBG4T 0x01fb,0x047f,0x1002,0x0000
03e6 0233 048d | 3 | .DBG4T 0x0233,0x048d,0x1002,0x0000
03ea 0243 0492 | C | .DBG4T 0x0243,0x0492,0x1004,0x0000
03ee 02a3 049c | | .DBG4T 0x02a3,0x049c,0x1004,0x0000
03f2 02f3 04a6 | | .DBG4T 0x02f3,0x04a6,0x1004,0x0000
03f6 031b 0000 | | .DBG4T 0x031b,0x0000,0x1005,0x0000
03fa 0343 0000 | C | .DBG4T 0x0343,0x0000,0x1005,0x0000
03fe 035b 0000 | [ | .DBG4T 0x035b,0x0000,0x1005,0x0000
0402 ; --------------------------------------------------------------------------------------
0402 ; Debug chain
0402 ; --------------------------------------------------------------------------------------
0402 001c 0000 | | .DBGLEN 0x001c,0x0000
0404 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0036,0x0043,0x0045,0x004f,0x005a,0x0063,0x0070,0x0077,0x007e
0420 ; --------------------------------------------------------------------------------------
0420 ; Debug chain
0420 ; --------------------------------------------------------------------------------------
0420 0016 0000 | | .DBGLEN 0x0016,0x0000
0422 0082 0084 | | .DBGLNO 0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac
0438 ; --------------------------------------------------------------------------------------
0438 ; Debug chain
0438 ; --------------------------------------------------------------------------------------
0438 0000 0003 | | .DBGLEN 0x0000,0x0003
043a 00b3 00b9 | | .DBGLNO 0x00b3,0x00b9,0x00bf
043d ; --------------------------------------------------------------------------------------
043d ; Debug chain
043d ; --------------------------------------------------------------------------------------
043d 0002 0004 | | .DBGLEN 0x0002,0x0004
043f 00cb 00cf | | .DBGLNO 0x00cb,0x00cf,0x00db,0x00dc,0x00dd,0x00e6
0445 ; --------------------------------------------------------------------------------------
0445 ; Debug chain
0445 ; --------------------------------------------------------------------------------------
0445 0002 0007 | | .DBGLEN 0x0002,0x0007
0447 00eb 00ee | | .DBGLNO 0x00eb,0x00ee,0x00f2,0x00fa,0x0103,0x0109,0x0110,0x0115,0x011a
0450 0001 0003 | | .XXX[0x7]
0452 0004 0005 | |
0454 0006 0002 | |
0456 0007 | |
0457 ; --------------------------------------------------------------------------------------
0457 ; Debug chain
0457 ; --------------------------------------------------------------------------------------
0457 0000 0001 | | .DBGLEN 0x0000,0x0001
0459 0123 | # | .DBGLNO 0x0123
045a ; --------------------------------------------------------------------------------------
045a ; Debug chain
045a ; --------------------------------------------------------------------------------------
045a 0000 0001 | | .DBGLEN 0x0000,0x0001
045c 0133 | 3 | .DBGLNO 0x0133
045d ; --------------------------------------------------------------------------------------
045d ; Debug chain
045d ; --------------------------------------------------------------------------------------
045d 0000 0001 | | .DBGLEN 0x0000,0x0001
045f 0143 | C | .DBGLNO 0x0143
0460 ; --------------------------------------------------------------------------------------
0460 ; Debug chain
0460 ; --------------------------------------------------------------------------------------
0460 0000 0001 | | .DBGLEN 0x0000,0x0001
0462 0153 | S | .DBGLNO 0x0153
0463 ; --------------------------------------------------------------------------------------
0463 ; Debug chain
0463 ; --------------------------------------------------------------------------------------
0463 0000 0001 | | .DBGLEN 0x0000,0x0001
0465 016b | k | .DBGLNO 0x016b
0466 ; --------------------------------------------------------------------------------------
0466 ; Debug chain
0466 ; --------------------------------------------------------------------------------------
0466 0000 0001 | | .DBGLEN 0x0000,0x0001
0468 0173 | s | .DBGLNO 0x0173
0469 ; --------------------------------------------------------------------------------------
0469 ; Debug chain
0469 ; --------------------------------------------------------------------------------------
0469 0000 0001 | | .DBGLEN 0x0000,0x0001
046b 0183 | | .DBGLNO 0x0183
046c ; --------------------------------------------------------------------------------------
046c ; Debug chain
046c ; --------------------------------------------------------------------------------------
046c 0000 0002 | | .DBGLEN 0x0000,0x0002
046e 0193 0196 | | .DBGLNO 0x0193,0x0196
0470 ; --------------------------------------------------------------------------------------
0470 ; Debug chain
0470 ; --------------------------------------------------------------------------------------
0470 0000 0001 | | .DBGLEN 0x0000,0x0001
0472 01a3 | | .DBGLNO 0x01a3
0473 ; --------------------------------------------------------------------------------------
0473 ; Debug chain
0473 ; --------------------------------------------------------------------------------------
0473 0000 0001 | | .DBGLEN 0x0000,0x0001
0475 01ab | | .DBGLNO 0x01ab
0476 ; --------------------------------------------------------------------------------------
0476 ; Debug chain
0476 ; --------------------------------------------------------------------------------------
0476 0000 0001 | | .DBGLEN 0x0000,0x0001
0478 01bb | | .DBGLNO 0x01bb
0479 ; --------------------------------------------------------------------------------------
0479 ; Debug chain
0479 ; --------------------------------------------------------------------------------------
0479 0000 0001 | | .DBGLEN 0x0000,0x0001
047b 01cb | | .DBGLNO 0x01cb
047c ; --------------------------------------------------------------------------------------
047c ; Debug chain
047c ; --------------------------------------------------------------------------------------
047c 0000 0001 | | .DBGLEN 0x0000,0x0001
047e 01d3 | | .DBGLNO 0x01d3
047f ; --------------------------------------------------------------------------------------
047f ; Debug chain
047f ; --------------------------------------------------------------------------------------
047f 0001 000b | | .DBGLEN 0x0001,0x000b
0481 01fb 01fe | | .DBGLNO 0x01fb,0x01fe,0x0206,0x020c,0x020f,0x0215,0x0218,0x021e,0x0221,0x0227,0x022a,0x022b
048d ; --------------------------------------------------------------------------------------
048d ; Debug chain
048d ; --------------------------------------------------------------------------------------
048d 0000 0003 | | .DBGLEN 0x0000,0x0003
048f 0233 0237 | 3 7| .DBGLNO 0x0233,0x0237,0x0239
0492 ; --------------------------------------------------------------------------------------
0492 ; Debug chain
0492 ; --------------------------------------------------------------------------------------
0492 0000 0008 | | .DBGLEN 0x0000,0x0008
0494 0243 024a | C J| .DBGLNO 0x0243,0x024a,0x0262,0x0270,0x0275,0x0279,0x027c,0x0281
049c ; --------------------------------------------------------------------------------------
049c ; Debug chain
049c ; --------------------------------------------------------------------------------------
049c 0002 0006 | | .DBGLEN 0x0002,0x0006
049e 02a3 02a4 | | .DBGLNO 0x02a3,0x02a4,0x02a6,0x02ac,0x02af,0x02c6,0x02da,0x02e3
04a6 ; --------------------------------------------------------------------------------------
04a6 ; Debug chain
04a6 ; --------------------------------------------------------------------------------------
04a6 0000 0003 | | .DBGLEN 0x0000,0x0003
04a8 02f3 02ff | | .DBGLNO 0x02f3,0x02ff,0x0312
04ab 0000 0000 | | .BLANK 0000[0x155]