|
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_0a7cf5
└─⟦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 0228 | ( | .CONST 0x0228 ; 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 0034 | 4 | .CONST 0x0034 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b 00e1 | | Load_Encached Boolean_Cache
000c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
000d e00f | | Load 0x0,0xf
000e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000f 02c7 | | Declare_Variable Any
0010 00d8 | | Load_Top At_Offset_0
0011 1c00 | | Execute_Immediate Run_Utility,0x0
0012 029f 004b | K| Declare_Subprogram INIT_0048,For_Call
0014 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
0016 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
0018 029e 00bb | | Declare_Subprogram INIT_00b8,For_Call,Unelaborated
001a 029e 0143 | C| Declare_Subprogram INIT_0140,For_Call,Unelaborated
001c e00f | | Load 0x0,0xf
001d 1928 | ( | Execute Package,Field_Reference,Field_Number 0x28
001e 00c6 | | Action Check_Subprogram_Elaborated
001f 00e1 | | Load_Encached Boolean_Cache
0020 4807 |H | Short_Literal 0x7
0021 4805 |H | Short_Literal 0x5
0022 0099 | | Action Reference_Dynamic
0023 4808 |H | Short_Literal 0x8
0024 4805 |H | Short_Literal 0x5
0025 0099 | | Action Reference_Dynamic
0026 e019 | | Load 0x0,0x19
0027 e01a | | Load 0x0,0x1a
0028 480e |H | Short_Literal 0xe
0029 0007 | | Action Break_Optional
002a 4807 |H | Short_Literal 0x7
002b 4805 |H | Short_Literal 0x5
002c 0099 | | Action Reference_Dynamic
002d 00c7 | | Action Elaborate_Subprogram
002e 4808 |H | Short_Literal 0x8
002f 4805 |H | Short_Literal 0x5
0030 0099 | | Action Reference_Dynamic
0031 00c7 | | Action Elaborate_Subprogram
0032 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
0034 BODY_0008:
0034 ebff | | Load 0x5,-0x1
0035 e015 | | Load 0x0,0x15
0036 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0037 ca03 | | Store 0x5,0x3
0038 ea03 | | Load 0x5,0x3
0039 e01b | | Load 0x0,0x1b
003a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
003b 8a05 | | Call 0x5,0x5
003c ea03 | | Load 0x5,0x3
003d e00f | | Load 0x0,0xf
003e 180f | | Execute Package,Field_Execute,Field_Number 0xf
003f 7001 |p | Jump_Nonzero 0x41
0040 8a0f | | Call 0x5,0xf
0041 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0042 0000 0000 | | .BLANK 0000[0x6]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004d | M | .CONST 0x004d ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0002 | | .CONST 0x0002 ; Number of locals
004b INIT_0048:
004b 029f 0193 | | Declare_Subprogram INIT_0190,For_Call
004d BODY_0048:
004d 00db | | Load_Top At_Offset_3
004e e00f | | Load 0x0,0xf
004f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0050 7001 |p | Jump_Nonzero 0x52
0051 8c02 | | Call 0x6,0x2
0052 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0053 0000 0000 | | .BLANK 0000[0x5]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0069 | i | .CONST 0x0069 ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0004 | | .CONST 0x0004 ; Number of locals
005b INIT_0058:
005b e00f | | Load 0x0,0xf
005c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
005d 02c7 | | Declare_Variable Any
005e 00db | | Load_Top At_Offset_3
005f e01b | | Load 0x0,0x1b
0060 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0061 ac02 | | Store_Unchecked 0x6,0x2
0062 e00f | | Load 0x0,0xf
0063 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0064 02c7 | | Declare_Variable Any
0065 00d8 | | Load_Top At_Offset_0
0066 1c00 | | Execute_Immediate Run_Utility,0x0
0067 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call
0069 BODY_0058:
0069 00cf | | Action Mark_Auxiliary
006a 7810 |x | Jump 0x7b
006b 00db | | Load_Top At_Offset_3
006c e00f | | Load 0x0,0xf
006d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
006e e01b | | Load 0x0,0x1b
006f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0070 4801 |H | Short_Literal 0x1
0071 4802 |H | Short_Literal 0x2
0072 0262 | b | Execute Discrete,In_Range
0073 7002 |p | Jump_Nonzero 0x76
0074 7800 |x | Jump 0x75
0075 8c04 | | Call 0x6,0x4
0076 00db | | Load_Top At_Offset_3
0077 e00f | | Load 0x0,0xf
0078 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0079 cc02 | | Store 0x6,0x2
007a 00c9 | | Action Pop_Auxiliary_Loop
007b 00db | | Load_Top At_Offset_3
007c e00f | | Load 0x0,0xf
007d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
007e 6fec |o | Jump_Zero 0x6b
007f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0091 | | .CONST 0x0091 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0004 | | .CONST 0x0004 ; Number of locals
0083 INIT_0080:
0083 e00f | | Load 0x0,0xf
0084 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0085 02c7 | | Declare_Variable Any
0086 00db | | Load_Top At_Offset_3
0087 e01c | | Load 0x0,0x1c
0088 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0089 ac02 | | Store_Unchecked 0x6,0x2
008a e00f | | Load 0x0,0xf
008b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008c 02c7 | | Declare_Variable Any
008d 00d8 | | Load_Top At_Offset_0
008e 1c00 | | Execute_Immediate Run_Utility,0x0
008f e01c | | Load 0x0,0x1c
0090 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0091 BODY_0080:
0091 00cf | | Action Mark_Auxiliary
0092 7820 |x | Jump 0xb3
0093 00db | | Load_Top At_Offset_3
0094 e00f | | Load 0x0,0xf
0095 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0096 cc03 | | Store 0x6,0x3
0097 00da | | Load_Top At_Offset_2
0098 e01c | | Load 0x0,0x1c
0099 1818 | | Execute Package,Field_Execute,Field_Number 0x18
009a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
009b 00d9 | | Load_Top At_Offset_1
009c 6803 |h | Jump_Zero 0xa0
009d 00d9 | | Load_Top At_Offset_1
009e 0f04 | | Execute_Immediate Equal,0x4
009f 680e |h | Jump_Zero 0xae
00a0 4801 |H | Short_Literal 0x1
00a1 00db | | Load_Top At_Offset_3
00a2 e00f | | Load 0x0,0xf
00a3 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
00a4 cc03 | | Store 0x6,0x3
00a5 00da | | Load_Top At_Offset_2
00a6 e018 | | Load 0x0,0x18
00a7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00a8 0f0c | | Execute_Immediate Equal,0xc
00a9 6804 |h | Jump_Zero 0xae
00aa 00da | | Load_Top At_Offset_2
00ab e018 | | Load 0x0,0x18
00ac 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00ad 8a04 | | Call 0x5,0x4
00ae 00db | | Load_Top At_Offset_3
00af e00f | | Load 0x0,0xf
00b0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00b1 cc02 | | Store 0x6,0x2
00b2 00c9 | | Action Pop_Auxiliary_Loop
00b3 00db | | Load_Top At_Offset_3
00b4 e00f | | Load 0x0,0xf
00b5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00b6 6fdc |o | Jump_Zero 0x93
00b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c6 | | .CONST 0x00c6 ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0005 | | .CONST 0x0005 ; Number of locals
00bb INIT_00b8:
00bb e018 | | Load 0x0,0x18
00bc 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00bd e00f | | Load 0x0,0xf
00be 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bf 02c7 | | Declare_Variable Any
00c0 00d8 | | Load_Top At_Offset_0
00c1 1c00 | | Execute_Immediate Run_Utility,0x0
00c2 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
00c4 029f 020b | | Declare_Subprogram INIT_0208,For_Call
00c6 BODY_00b8:
00c6 4800 |H | Short_Literal 0x0
00c7 adfd | | Store_Unchecked 0x6,-0x3
00c8 edff | | Load 0x6,-0x1
00c9 e00f | | Load 0x0,0xf
00ca 180f | | Execute Package,Field_Execute,Field_Number 0xf
00cb 706c |pl | Jump_Nonzero 0x138
00cc edff | | Load 0x6,-0x1
00cd e018 | | Load 0x0,0x18
00ce 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00cf ac02 | | Store_Unchecked 0x6,0x2
00d0 00db | | Load_Top At_Offset_3
00d1 4626 |F& | Jump_Case 0x27
00d2 785d |x] | Jump 0x130 ; case 0x0
00d3 7825 |x% | Jump 0xf9 ; case 0x1
00d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x2
00d5 7823 |x# | Jump 0xf9 ; case 0x3
00d6 7822 |x" | Jump 0xf9 ; case 0x4
00d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x5
00d8 7820 |x | Jump 0xf9 ; case 0x6
00d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7
00da 7832 |x2 | Jump 0x10d ; case 0x8
00db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x9
00dc 7830 |x0 | Jump 0x10d ; case 0xa
00dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xb
00de 782e |x. | Jump 0x10d ; case 0xc
00df 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xd
00e0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xe
00e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0xf
00e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x10
00e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x11
00e4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x12
00e5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x13
00e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x14
00e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x15
00e8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x16
00e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x17
00ea 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x18
00eb 7821 |x! | Jump 0x10d ; case 0x19
00ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1a
00ed 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1b
00ee 780a |x | Jump 0xf9 ; case 0x1c
00ef 7809 |x | Jump 0xf9 ; case 0x1d
00f0 7808 |x | Jump 0xf9 ; case 0x1e
00f1 7807 |x | Jump 0xf9 ; case 0x1f
00f2 7806 |x | Jump 0xf9 ; case 0x20
00f3 7805 |x | Jump 0xf9 ; case 0x21
00f4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x22
00f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x23
00f6 7802 |x | Jump 0xf9 ; case 0x24
00f7 7801 |x | Jump 0xf9 ; case 0x25
00f8 7800 |x | Jump 0xf9 ; case 0x26
00f9 edff | | Load 0x6,-0x1
00fa e01d | | Load 0x0,0x1d
00fb 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00fc 0b02 | | Execute_Immediate Case_Compare,0x2
00fd 7008 |p | Jump_Nonzero 0x106
00fe 0f01 | | Execute_Immediate Equal,0x1
00ff 7001 |p | Jump_Nonzero 0x101
0100 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0101 edff | | Load 0x6,-0x1
0102 e01d | | Load 0x0,0x1d
0103 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0104 8a06 | | Call 0x5,0x6
0105 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0106 00d1 | | Pop_Control Pop_Count_1
0107 edff | | Load 0x6,-0x1
0108 e01d | | Load 0x0,0x1d
0109 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
010a 8a04 | | Call 0x5,0x4
010b 8c05 | | Call 0x6,0x5
010c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
010d edff | | Load 0x6,-0x1
010e e018 | | Load 0x0,0x18
010f 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0110 cc03 | | Store 0x6,0x3
0111 00da | | Load_Top At_Offset_2
0112 e00f | | Load 0x0,0xf
0113 180f | | Execute Package,Field_Execute,Field_Number 0xf
0114 7014 |p | Jump_Nonzero 0x129
0115 00da | | Load_Top At_Offset_2
0116 e01b | | Load 0x0,0x1b
0117 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0118 8a05 | | Call 0x5,0x5
0119 ea02 | | Load 0x5,0x2
011a 4801 |H | Short_Literal 0x1
011b ec03 | | Load 0x6,0x3
011c ea09 | | Load 0x5,0x9
011d 480a |H | Short_Literal 0xa
011e 4805 |H | Short_Literal 0x5
011f 0099 | | Action Reference_Dynamic
0120 480b |H | Short_Literal 0xb
0121 4805 |H | Short_Literal 0x5
0122 0099 | | Action Reference_Dynamic
0123 480c |H | Short_Literal 0xc
0124 4805 |H | Short_Literal 0x5
0125 0099 | | Action Reference_Dynamic
0126 e00f | | Load 0x0,0xf
0127 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0128 ca02 | | Store 0x5,0x2
0129 edff | | Load 0x6,-0x1
012a e018 | | Load 0x0,0x18
012b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
012c 0e08 | | Execute_Immediate Not_Equal,0x8
012d 6801 |h | Jump_Zero 0x12f
012e 8c04 | | Call 0x6,0x4
012f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0130 edff | | Load 0x6,-0x1
0131 e018 | | Load 0x0,0x18
0132 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0133 6804 |h | Jump_Zero 0x138
0134 edff | | Load 0x6,-0x1
0135 e018 | | Load 0x0,0x18
0136 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0137 8a06 | | Call 0x5,0x6
0138 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 4800 |H | Short_Literal 0x0
0144 adfd | | Store_Unchecked 0x6,-0x3
0145 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0146 0000 0000 | | .XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0156 | V | .CONST 0x0156 ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0003 | | .CONST 0x0003 ; Number of locals
014b INIT_0148:
014b e00f | | Load 0x0,0xf
014c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014d 02c7 | | Declare_Variable Any
014e 00d8 | | Load_Top At_Offset_0
014f 1c00 | | Execute_Immediate Run_Utility,0x0
0150 ea03 | | Load 0x5,0x3
0151 e018 | | Load 0x0,0x18
0152 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0153 e018 | | Load 0x0,0x18
0154 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0155 03f1 | | Declare_Variable Discrete,With_Value
0156 BODY_0148:
0156 00d8 | | Load_Top At_Offset_0
0157 4626 |F& | Jump_Case 0x27
0158 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x0
0159 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1
015a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x2
015b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3
015c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x4
015d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x5
015e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x6
015f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x7
0160 781e |x | Jump 0x17f ; case 0x8
0161 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x9
0162 781c |x | Jump 0x17f ; case 0xa
0163 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xb
0164 781a |x | Jump 0x17f ; case 0xc
0165 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xd
0166 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xe
0167 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xf
0168 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x10
0169 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x11
016a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x12
016b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x13
016c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x14
016d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x15
016e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x16
016f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x17
0170 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x18
0171 780d |x | Jump 0x17f ; case 0x19
0172 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1a
0173 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1b
0174 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1c
0175 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1d
0176 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1e
0177 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1f
0178 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x20
0179 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x21
017a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x22
017b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x23
017c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x24
017d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x25
017e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x26
017f ea03 | | Load 0x5,0x3
0180 e018 | | Load 0x0,0x18
0181 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0182 cc02 | | Store 0x6,0x2
0183 00d9 | | Load_Top At_Offset_1
0184 e00f | | Load 0x0,0xf
0185 180f | | Execute Package,Field_Execute,Field_Number 0xf
0186 7004 |p | Jump_Nonzero 0x18b
0187 00d9 | | Load_Top At_Offset_1
0188 e01b | | Load 0x0,0x1b
0189 1818 | | Execute Package,Field_Execute,Field_Number 0x18
018a 8a05 | | Call 0x5,0x5
018b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
018c 0000 0000 | | .BLANK 0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0196 | | .CONST 0x0196 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0002 | | .CONST 0x0002 ; Number of locals
0193 INIT_0190:
0193 edff | | Load 0x6,-0x1
0194 e018 | | Load 0x0,0x18
0195 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0196 BODY_0190:
0196 ebfe | | Load 0x5,-0x2
0197 e00f | | Load 0x0,0xf
0198 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0199 cbfe | | Store 0x5,-0x2
019a 00cf | | Action Mark_Auxiliary
019b 780f |x | Jump 0x1ab
019c ebfe | | Load 0x5,-0x2
019d e00f | | Load 0x0,0xf
019e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
019f e00f | | Load 0x0,0xf
01a0 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01a1 00da | | Load_Top At_Offset_2
01a2 01df | | Execute Vector,Equal
01a3 6802 |h | Jump_Zero 0x1a6
01a4 00cc | | Action Pop_Block
01a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a6 ebfe | | Load 0x5,-0x2
01a7 e00f | | Load 0x0,0xf
01a8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01a9 cbfe | | Store 0x5,-0x2
01aa 00c9 | | Action Pop_Auxiliary_Loop
01ab ebfe | | Load 0x5,-0x2
01ac e00f | | Load 0x0,0xf
01ad 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01ae 6fed |o | Jump_Zero 0x19c
01af 00ce | | Action Pop_Auxiliary
01b0 ebfe | | Load 0x5,-0x2
01b1 edff | | Load 0x6,-0x1
01b2 e00f | | Load 0x0,0xf
01b3 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01b4 cbfe | | Store 0x5,-0x2
01b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01b6 0000 0000 | | .XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01c4 | | .CONST 0x01c4 ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0002 | | .CONST 0x0002 ; Number of locals
01bb INIT_01b8:
01bb e00f | | Load 0x0,0xf
01bc 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01bd 02c7 | | Declare_Variable Any
01be ec02 | | Load 0x6,0x2
01bf e00f | | Load 0x0,0xf
01c0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01c1 e01b | | Load 0x0,0x1b
01c2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01c3 ae02 | | Store_Unchecked 0x7,0x2
01c4 BODY_01b8:
01c4 00cf | | Action Mark_Auxiliary
01c5 7814 |x | Jump 0x1da
01c6 4801 |H | Short_Literal 0x1
01c7 00da | | Load_Top At_Offset_2
01c8 e00f | | Load 0x0,0xf
01c9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01ca e00f | | Load 0x0,0xf
01cb 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
01cc cc03 | | Store 0x6,0x3
01cd ec03 | | Load 0x6,0x3
01ce e00f | | Load 0x0,0xf
01cf 180f | | Execute Package,Field_Execute,Field_Number 0xf
01d0 7004 |p | Jump_Nonzero 0x1d5
01d1 ec03 | | Load 0x6,0x3
01d2 e018 | | Load 0x0,0x18
01d3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01d4 8a04 | | Call 0x5,0x4
01d5 00d9 | | Load_Top At_Offset_1
01d6 e00f | | Load 0x0,0xf
01d7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01d8 ce02 | | Store 0x7,0x2
01d9 00c9 | | Action Pop_Auxiliary_Loop
01da 00d9 | | Load_Top At_Offset_1
01db e00f | | Load 0x0,0xf
01dc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01dd 6fe8 |o | Jump_Zero 0x1c6
01de 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01df 0000 | | .XXX[0x1]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01ef | | .CONST 0x01ef ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0003 | | .CONST 0x0003 ; Number of locals
01e3 INIT_01e0:
01e3 e00f | | Load 0x0,0xf
01e4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01e5 02c7 | | Declare_Variable Any
01e6 edff | | Load 0x6,-0x1
01e7 e018 | | Load 0x0,0x18
01e8 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01e9 ae02 | | Store_Unchecked 0x7,0x2
01ea e00f | | Load 0x0,0xf
01eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ec 02c7 | | Declare_Variable Any
01ed 00d8 | | Load_Top At_Offset_0
01ee 1c00 | | Execute_Immediate Run_Utility,0x0
01ef BODY_01e0:
01ef 00cf | | Action Mark_Auxiliary
01f0 7811 |x | Jump 0x202
01f1 00da | | Load_Top At_Offset_2
01f2 e00f | | Load 0x0,0xf
01f3 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01f4 ce03 | | Store 0x7,0x3
01f5 00d9 | | Load_Top At_Offset_1
01f6 e018 | | Load 0x0,0x18
01f7 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01f8 6804 |h | Jump_Zero 0x1fd
01f9 00d9 | | Load_Top At_Offset_1
01fa e018 | | Load 0x0,0x18
01fb 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01fc 8a06 | | Call 0x5,0x6
01fd 00da | | Load_Top At_Offset_2
01fe e00f | | Load 0x0,0xf
01ff 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0200 ce02 | | Store 0x7,0x2
0201 00c9 | | Action Pop_Auxiliary_Loop
0202 00da | | Load_Top At_Offset_2
0203 e00f | | Load 0x0,0xf
0204 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0205 6feb |o | Jump_Zero 0x1f1
0206 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0207 0000 | | .XXX[0x1]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0213 | | .CONST 0x0213 ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0002 | | .CONST 0x0002 ; Number of locals
020b INIT_0208:
020b e00f | | Load 0x0,0xf
020c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
020d 02c7 | | Declare_Variable Any
020e 4800 |H | Short_Literal 0x0
020f edff | | Load 0x6,-0x1
0210 e01d | | Load 0x0,0x1d
0211 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0212 ae02 | | Store_Unchecked 0x7,0x2
0213 BODY_0208:
0213 00cf | | Action Mark_Auxiliary
0214 780b |x | Jump 0x220
0215 00d9 | | Load_Top At_Offset_1
0216 e00f | | Load 0x0,0xf
0217 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0218 e01d | | Load 0x0,0x1d
0219 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
021a 8a06 | | Call 0x5,0x6
021b 00d9 | | Load_Top At_Offset_1
021c e00f | | Load 0x0,0xf
021d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
021e ce02 | | Store 0x7,0x2
021f 00c9 | | Action Pop_Auxiliary_Loop
0220 00d9 | | Load_Top At_Offset_1
0221 e00f | | Load 0x0,0xf
0222 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0223 6ff1 |o | Jump_Zero 0x215
0224 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0225 0000 0000 | | .XXX[0x3]
0227 0000 | |
0228 ; --------------------------------------------------------------------------------------
0228 ; Debug Table
0228 ; --------------------------------------------------------------------------------------
0228 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfcc7,0x0000,0x0001,0x0000
022e fa1e 2e88 | . | .XXX[0x1d2]
0230 6a1e 3822 |j 8"|
0232 656c 45cb |elE |
0234 9d0f 41c6 | A |
0236 6022 5289 |`"R |
0238 84ab 9517 | |
023a c5a8 69cb | i |
023c c9c1 9ca8 | |
023e 79c8 c61d |y |
0240 b4aa b420 | |
0242 b21e 8a88 | |
0244 adcb f569 | i|
0246 d4a9 aa19 | |
0248 061f a40a | |
024a 796c b9cb |yl |
024c ee18 de1c | |
024e 2110 e61f |! |
0250 b219 9014 | |
0252 f21e d288 | |
0254 fa1e 0caa | |
0256 28a9 121f |( |
0258 7c23 40aa ||#@ |
025a f28b d822 | "|
025c 54ab c423 |T #|
025e 5289 261c |R & |
0260 4513 edcd |E |
0262 19c9 a94f | O|
0264 5214 4911 |R I |
0266 c68b 81c5 | |
0268 35c8 b110 |5 |
026a 1426 a4a9 | & |
026c 49c9 7a57 |I zW|
026e 468a 6a84 |F j |
0270 c16d 6e1d | mn |
0272 61ca ccaa |a |
0274 d4a8 6c24 | l$|
0276 f511 fd6d | m|
0278 7e1c b68a |~ |
027a 0d6d e96a | m j|
027c 156f c80b | o |
027e 0ca9 2113 | ! |
0280 928b 20aa | |
0282 316e d9cf |1n |
0284 9289 b9c8 | |
0286 b14c f68a | L |
0288 4d6e 696d |Mnim|
028a da1f c68a | |
028c 716f 60a9 |qo` |
028e ea1f aacd | |
0290 1911 36d6 | 6 |
0292 816f 88ab | o |
0294 cca6 01c8 | |
0296 1a8f d209 | |
0298 3e89 a5af |> |
029a b8a8 028e | |
029c 22bd b825 |" %|
029e c026 2e1d | &. |
02a0 9406 c56e | n|
02a2 35c9 b825 |5 %|
02a4 668b 6d0f |f m |
02a6 f8aa 0c24 | $|
02a8 5c1a e96d |\ m|
02aa 0a8e 59c8 | Y |
02ac 60ad c56e |` n|
02ae fd6e a1c8 | n |
02b0 74ad 0e8d |t |
02b2 8d10 c21c | |
02b4 3cae 861c |< |
02b6 88ac 50ac | P |
02b8 c68e a28a | |
02ba ac26 6513 | &e |
02bc 3ad7 5426 |: T&|
02be c5c8 8caf | |
02c0 6ad6 ba1f |j |
02c2 1d6c ce8e | l |
02c4 1d10 acac | |
02c6 86d7 72d4 | r |
02c8 b68f 75d2 | u |
02ca e61e edc9 | |
02cc 068f 9d6e | n|
02ce f9ca 0e8a | |
02d0 fe1f 5a1f | Z |
02d2 b828 fcaf | ( |
02d4 bd6f b14f | o O|
02d6 c2d5 34af | 4 |
02d8 bc27 29c9 | ') |
02da 2293 f1d7 |" |
02dc ed6f f425 | o %|
02de 5e91 3a90 |^ : |
02e0 5029 5cac |P)\ |
02e2 0d70 2604 | p& |
02e4 e274 4d70 | tMp|
02e6 40b2 d16f |@ o|
02e8 3c91 8292 |< |
02ea c2bf 6e1c | n |
02ec 12da dd10 | |
02ee 8c2b 8dca | + |
02f0 debc 2ed9 | . |
02f2 c0ac 9d18 | |
02f4 5d73 7d11 |]s} |
02f6 dcaf bdc8 | |
02f8 7173 a8b2 |qs |
02fa b41b f1cc | |
02fc 8173 9cb0 | s |
02fe 6e91 8c2a |n *|
0300 0cae a1af | |
0302 c61d b68b | |
0304 556f e9c8 |Uo |
0306 1517 de1e | |
0308 b16f f5b8 | o |
030a a691 ee01 | |
030c 6c2a 58af |l*X |
030e fa1c be91 | |
0310 1973 1289 | s |
0312 4501 2153 |E !S|
0314 921d cc28 | (|
0316 fd70 de93 | p |
0318 3a89 0d70 |: p|
031a 3220 e173 |2 s|
031c f510 3e20 | > |
031e 5221 1116 |R! |
0320 2828 6dcd |((m |
0322 1293 b56f | o|
0324 4495 9691 |D |
0326 8553 34af | S4 |
0328 04ac 7220 | r |
032a 6222 0291 |b" |
032c 31d4 e804 |1 |
032e a5cd c690 | |
0330 fada b828 | (|
0332 b5cd 3ad9 | : |
0334 2ad8 7115 |* q |
0336 e690 f514 | |
0338 fadb 70ac | p |
033a b221 5ad9 | !Z |
033c 2adb 8cac |* |
033e c222 1690 | " |
0340 65cf a4ac |e |
0342 d222 2690 | "& |
0344 5621 3021 |V!0!|
0346 e970 15b2 | p |
0348 2570 e573 |%p s|
034a 9c29 21ce | )! |
034c 0570 75cf | pu |
034e ecad 0620 | |
0350 8ac3 9428 | (|
0352 4025 8116 |@% |
0354 0a05 7115 | q |
0356 da93 2828 | ((|
0358 28b0 242d |( $-|
035a 4221 9cad |B! |
035c 4515 75cf |E u |
035e ecf1 3223 | 2#|
0360 e829 5d16 | )] |
0362 ae93 e56c | l|
0364 6a20 942c |j ,|
0366 e2c0 88b1 | |
0368 6a21 adce |j! |
036a d291 f914 | |
036c a8b1 7e21 | ~!|
036e 7221 e430 |r! 0|
0370 bcb1 d1cf | |
0372 1291 d9ce | |
0374 b621 a571 | ! q|
0376 aa21 e9cf | ! |
0378 1a93 5292 | R |
037a 4ed9 5c2e |N \.|
037c f971 ca23 | q #|
037e 3691 18b3 |6 |
0380 2115 fd15 |! |
0382 24b2 1dce |$ |
0384 7515 ea23 |u #|
0386 b692 242d | $-|
0388 c42e 8917 | . |
038a ae0a 2516 | % |
038c 49ce 08b5 |I |
038e 3627 3972 |6'9r|
0390 96d9 8c2e | .|
0392 4d17 6572 |M er|
0394 65cd a0b2 |e |
0396 d516 7ed9 | ~ |
0398 b0b2 79ce | y |
039a 3dd1 fcb3 |= |
039c c096 f916 | |
039e f433 ce92 | 3 |
03a0 beda f42d | -|
03a2 e4b2 6222 | b"|
03a4 a1ce b622 | "|
03a6 00b2 adcf | |
03a8 fa92 d172 | r|
03aa 20b3 4116 | A |
03ac 2cb0 0e96 |, |
03ae 906f 1d17 | o |
03b0 12da 48b2 | H |
03b2 aa22 54b0 | "T |
03b4 75d5 c8b2 |u |
03b6 60b0 1d74 |` t|
03b8 3a94 1a8a |: |
03ba 74b2 550a |t U |
03bc d620 744e | tN|
03be 8c2e 8cb0 | . |
03c0 5e97 5026 |^ P&|
03c2 ea23 d82e | # .|
03c4 a8b3 ad16 | |
03c6 441a fe22 |D "|
03c8 bcb0 6176 | av|
03ca ad6b 8d6b | k k|
03cc 7edb 45ce |~ E |
03ce e0b1 a830 | 0|
03d0 8177 2a23 | w*#|
03d2 5dcf 9117 |] |
03d4 65cd c977 |e w|
03d6 6dcc 011b |m |
03d8 5d71 a833 |]q 3|
03da 4e23 d6d8 |N# |
03dc c577 0a8d | w |
03de a833 6222 | 3b"|
03e0 9407 48b2 | H |
03e2 e024 e977 | $ w|
03e4 b9cf e1cb | |
03e6 60b1 7e23 |` ~#|
03e8 7623 74b1 |v#t |
03ea f109 1575 | u|
03ec 3697 74b3 |6 t |
03ee 90b3 be1f | |
03f0 ae23 b21f | # |
03f2 b620 f42a | *|
03f4 187f f1cd | |
03f6 2c31 6a94 |,1j |
03f8 6a1e ba21 |j !|
03fa 4833 d621 |H3 !|
03fc a296 8e7b | {|
03fe e8b2 e4b3 | |