|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1884fe
└─⟦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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 004f | O | .CONST 0x004f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000c | | .CONST 0x000c ; Number of locals
000b INIT_0008:
000b e238 | 8 | Load 0x1,0x38
000c 1914 | | Execute Package,Field_Reference,Field_Number 0x14
000d 00c6 | | Action Check_Subprogram_Elaborated
000e 4ff4 |O | Short_Literal -0xc
000f 4802 |H | Short_Literal 0x2
0010 0099 | | Action Reference_Dynamic
0011 e017 | | Load 0x0,0x17
0012 e018 | | Load 0x0,0x18
0013 4805 |H | Short_Literal 0x5
0014 0007 | | Action Break_Optional
0015 029f 006b | k| Declare_Subprogram INIT_0068,For_Call
0017 4800 |H | Short_Literal 0x0
0018 e019 | | Load 0x0,0x19
0019 02a0 | | Declare_Subprogram Null_Subprogram
001a 038e | | Declare_Type Package,Defined
001b 0387 | | Declare_Variable Package
001c 4800 |H | Short_Literal 0x0
001d e01a | | Load 0x0,0x1a
001e 02a0 | | Declare_Subprogram Null_Subprogram
001f 038e | | Declare_Type Package,Defined
0020 0387 | | Declare_Variable Package
0021 029e 0093 | | Declare_Subprogram INIT_0090,For_Call,Unelaborated
0023 029f 0183 | | Declare_Subprogram INIT_0180,For_Call
0025 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
0027 4809 |H | Short_Literal 0x9
0028 4802 |H | Short_Literal 0x2
0029 0099 | | Action Reference_Dynamic
002a 00c7 | | Action Elaborate_Subprogram
002b e00c | | Load 0x0,0xc
002c e01b | | Load 0x0,0x1b
002d 00b6 | | Action Make_Scope
002e e01c | | Load 0x0,0x1c
002f e01d | | Load 0x0,0x1d
0030 e238 | 8 | Load 0x1,0x38
0031 e5ed | | Load 0x2,-0x13
0032 e01e | | Load 0x0,0x1e
0033 4ff3 |O | Short_Literal -0xd
0034 4802 |H | Short_Literal 0x2
0035 0099 | | Action Reference_Dynamic
0036 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
0037 e22e | . | Load 0x1,0x2e
0038 4fef |O | Short_Literal -0x11
0039 4802 |H | Short_Literal 0x2
003a 0099 | | Action Reference_Dynamic
003b e01f | | Load 0x0,0x1f
003c 480d |H | Short_Literal 0xd
003d e407 | | Load 0x2,0x7
003e 020e | | Execute Module,Augment_Imports
003f e407 | | Load 0x2,0x7
0040 020f | | Execute Module,Activate
0041 00b6 | | Action Make_Scope
0042 e007 | | Load 0x0,0x7
0043 e239 | 9 | Load 0x1,0x39
0044 e238 | 8 | Load 0x1,0x38
0045 4ff7 |O | Short_Literal -0x9
0046 4802 |H | Short_Literal 0x2
0047 0099 | | Action Reference_Dynamic
0048 4805 |H | Short_Literal 0x5
0049 e408 | | Load 0x2,0x8
004a 020e | | Execute Module,Augment_Imports
004b 00db | | Load_Top At_Offset_3
004c 020f | | Execute Module,Activate
004d 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
004f BODY_0008:
004f e5ed | | Load 0x2,-0x13
0050 e238 | 8 | Load 0x1,0x38
0051 180d | | Execute Package,Field_Execute,Field_Number 0xd
0052 840a | | Call 0x2,0xa
0053 e5ec | | Load 0x2,-0x14
0054 8223 | # | Call 0x1,0x23
0055 01de | | Execute Vector,Not_Equal
0056 6803 |h | Jump_Zero 0x5a
0057 e5ec | | Load 0x2,-0x14
0058 e407 | | Load 0x2,0x7
0059 180d | | Execute Package,Field_Execute,Field_Number 0xd
005a 00cf | | Action Mark_Auxiliary
005b 840c | | Call 0x2,0xc
005c 00c9 | | Action Pop_Auxiliary_Loop
005d 7ffd | | Jump 0x5b
005e 00ce | | Action Pop_Auxiliary
005f e238 | 8 | Load 0x1,0x38
0060 180e | | Execute Package,Field_Execute,Field_Number 0xe
0061 4515 |E | Exit_Suprogram New_Top_Offset 0x15
0062 0000 0000 | | .BLANK 0000[0x6]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 007a | z | .CONST 0x007a ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b e5fd | | Load 0x2,-0x3
006c 6802 |h | Jump_Zero 0x6f
006d 85ee | | Call 0x2,-0x12
006e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
006f 0092 02c5 | | Action Push_String_Extended,0x2c5 ; " ...computing"
0071 4801 |H | Short_Literal 0x1
0072 e238 | 8 | Load 0x1,0x38
0073 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0074 85ee | | Call 0x2,-0x12
0075 00ea | | Load_Encached Null_String_Cache
0076 4801 |H | Short_Literal 0x1
0077 e238 | 8 | Load 0x1,0x38
0078 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0079 4501 |E | Exit_Suprogram New_Top_Offset 0x1
007a TRAP_0068:
007a 0007 | | Action Break_Optional
007b 4802 |H | Short_Literal 0x2
007c 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "Exception during Computation: "
007e 4800 |H | Short_Literal 0x0
007f 4800 |H | Short_Literal 0x0
0080 e020 | | Load 0x0,0x20
0081 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0082 01cc | | Execute Vector,Catenate
0083 e21a | | Load 0x1,0x1a
0084 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0085 00ea | | Load_Encached Null_String_Cache
0086 4801 |H | Short_Literal 0x1
0087 e238 | 8 | Load 0x1,0x38
0088 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0089 4501 |E | Exit_Suprogram New_Top_Offset 0x1
008a 0000 0000 | | .BLANK 0000[0x6]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 009a | | .CONST 0x009a ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0005 | | .CONST 0x0005 ; Number of locals
0093 INIT_0090:
0093 e239 | 9 | Load 0x1,0x39
0094 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0095 00e8 | | Load_Encached Character_Cache
0096 029f 021b | | Declare_Subprogram INIT_0218,For_Call
0098 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call
009a BODY_0090:
009a e7ff | | Load 0x3,-0x1
009b 461f |F | Jump_Case 0x20
009c 78b7 |x | Jump 0x154 ; case 0x0
009d 78b6 |x | Jump 0x154 ; case 0x1
009e 78b5 |x | Jump 0x154 ; case 0x2
009f 78b4 |x | Jump 0x154 ; case 0x3
00a0 78b3 |x | Jump 0x154 ; case 0x4
00a1 78b2 |x | Jump 0x154 ; case 0x5
00a2 78b1 |x | Jump 0x154 ; case 0x6
00a3 78b0 |x | Jump 0x154 ; case 0x7
00a4 781f |x | Jump 0xc4 ; case 0x8
00a5 781b |x | Jump 0xc1 ; case 0x9
00a6 7846 |xF | Jump 0xed ; case 0xa
00a7 788c |x | Jump 0x134 ; case 0xb
00a8 7813 |x | Jump 0xbc ; case 0xc
00a9 78a0 |x | Jump 0x14a ; case 0xd
00aa 786f |xo | Jump 0x11a ; case 0xe
00ab 787b |x{ | Jump 0x127 ; case 0xf
00ac 7892 |x | Jump 0x13f ; case 0x10
00ad 789f |x | Jump 0x14d ; case 0x11
00ae 7887 |x | Jump 0x136 ; case 0x12
00af 7832 |x2 | Jump 0xe2 ; case 0x13
00b0 78c8 |x | Jump 0x179 ; case 0x14
00b1 78c4 |x | Jump 0x176 ; case 0x15
00b2 7862 |xb | Jump 0x115 ; case 0x16
00b3 7812 |x | Jump 0xc6 ; case 0x17
00b4 7807 |x | Jump 0xbc ; case 0x18
00b5 7806 |x | Jump 0xbc ; case 0x19
00b6 7805 |x | Jump 0xbc ; case 0x1a
00b7 7804 |x | Jump 0xbc ; case 0x1b
00b8 788d |x | Jump 0x146 ; case 0x1c
00b9 789c |x | Jump 0x156 ; case 0x1d
00ba 789b |x | Jump 0x156 ; case 0x1e
00bb 7800 |x | Jump 0xbc ; case 0x1f
00bc 4801 |H | Short_Literal 0x1
00bd 00ea | | Load_Encached Null_String_Cache
00be e21a | | Load 0x1,0x1a
00bf 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00c0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c1 e408 | | Load 0x2,0x8
00c2 180d | | Execute Package,Field_Execute,Field_Number 0xd
00c3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c4 8604 | | Call 0x3,0x4
00c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c6 4800 |H | Short_Literal 0x0
00c7 0092 02c7 | | Action Push_String_Extended,0x2c7 ; "OBJECT. ? (G to abandon, U to reset)"
00c9 e21a | | Load 0x1,0x1a
00ca 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00cb e239 | 9 | Load 0x1,0x39
00cc 180f | | Execute Package,Field_Execute,Field_Number 0xf
00cd 0f1e | | Execute_Immediate Equal,0x1e
00ce 6812 |h | Jump_Zero 0xe1
00cf e239 | 9 | Load 0x1,0x39
00d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00d1 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
00d2 00da | | Load_Top At_Offset_2
00d3 0f67 | g | Execute_Immediate Equal,0x67
00d4 00db | | Load_Top At_Offset_3
00d5 0f47 | G | Execute_Immediate Equal,0x47
00d6 0278 | x | Execute Discrete,Or
00d7 6802 |h | Jump_Zero 0xda
00d8 e00a | | Load 0x0,0xa
00d9 0257 | W | Execute Discrete,Raise
00da 00da | | Load_Top At_Offset_2
00db 0f75 | u | Execute_Immediate Equal,0x75
00dc 00db | | Load_Top At_Offset_3
00dd 0f55 | U | Execute_Immediate Equal,0x55
00de 0278 | x | Execute Discrete,Or
00df 6801 |h | Jump_Zero 0xe1
00e0 840a | | Call 0x2,0xa
00e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e2 4801 |H | Short_Literal 0x1
00e3 0092 02c8 | | Action Push_String_Extended,0x2c8 ; "Press again to confirm reset"
00e5 e21a | | Load 0x1,0x1a
00e6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00e7 e239 | 9 | Load 0x1,0x39
00e8 180f | | Execute Package,Field_Execute,Field_Number 0xf
00e9 0f13 | | Execute_Immediate Equal,0x13
00ea 6801 |h | Jump_Zero 0xec
00eb 840a | | Call 0x2,0xa
00ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ed e233 | 3 | Load 0x1,0x33
00ee 00d8 | | Load_Top At_Offset_0
00ef e210 | | Load 0x1,0x10
00f0 0260 | ` | Execute Discrete,In_Type
00f1 7001 |p | Jump_Nonzero 0xf3
00f2 0801 | | Execute_Immediate Raise,0x1
00f3 e232 | 2 | Load 0x1,0x32
00f4 00d8 | | Load_Top At_Offset_0
00f5 e20f | | Load 0x1,0xf
00f6 0260 | ` | Execute Discrete,In_Type
00f7 7001 |p | Jump_Nonzero 0xf9
00f8 0801 | | Execute_Immediate Raise,0x1
00f9 85f3 | | Call 0x2,-0xd
00fa 6815 |h | Jump_Zero 0x110
00fb e233 | 3 | Load 0x1,0x33
00fc 00d8 | | Load_Top At_Offset_0
00fd e210 | | Load 0x1,0x10
00fe 0260 | ` | Execute Discrete,In_Type
00ff 7001 |p | Jump_Nonzero 0x101
0100 0801 | | Execute_Immediate Raise,0x1
0101 e232 | 2 | Load 0x1,0x32
0102 00d8 | | Load_Top At_Offset_0
0103 e20f | | Load 0x1,0xf
0104 0260 | ` | Execute Discrete,In_Type
0105 7001 |p | Jump_Nonzero 0x107
0106 0801 | | Execute_Immediate Raise,0x1
0107 85f5 | | Call 0x2,-0xb
0108 e238 | 8 | Load 0x1,0x38
0109 1812 | | Execute Package,Field_Execute,Field_Number 0x12
010a e237 | 7 | Load 0x1,0x37
010b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
010c 840b | | Call 0x2,0xb
010d e238 | 8 | Load 0x1,0x38
010e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
010f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0110 4801 |H | Short_Literal 0x1
0111 00ea | | Load_Encached Null_String_Cache
0112 e21a | | Load 0x1,0x1a
0113 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0114 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0115 4801 |H | Short_Literal 0x1
0116 e021 | ! | Load 0x0,0x21
0117 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0118 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0119 4502 |E | Exit_Suprogram New_Top_Offset 0x2
011a 0092 02c9 | | Action Push_String_Extended,0x2c9 ; "...saving"
011c 4801 |H | Short_Literal 0x1
011d e238 | 8 | Load 0x1,0x38
011e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
011f 85f9 | | Call 0x2,-0x7
0120 e407 | | Load 0x2,0x7
0121 180e | | Execute Package,Field_Execute,Field_Number 0xe
0122 00ea | | Load_Encached Null_String_Cache
0123 4801 |H | Short_Literal 0x1
0124 e238 | 8 | Load 0x1,0x38
0125 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0126 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0127 0092 02ca | | Action Push_String_Extended,0x2ca ; "...loading"
0129 4801 |H | Short_Literal 0x1
012a e238 | 8 | Load 0x1,0x38
012b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
012c 85fa | | Call 0x2,-0x6
012d e407 | | Load 0x2,0x7
012e 180d | | Execute Package,Field_Execute,Field_Number 0xd
012f 00ea | | Load_Encached Null_String_Cache
0130 4801 |H | Short_Literal 0x1
0131 e238 | 8 | Load 0x1,0x38
0132 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0133 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0134 85fb | | Call 0x2,-0x5
0135 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0136 4802 |H | Short_Literal 0x2
0137 4802 |H | Short_Literal 0x2
0138 0099 | | Action Reference_Dynamic
0139 4803 |H | Short_Literal 0x3
013a 4802 |H | Short_Literal 0x2
013b 0099 | | Action Reference_Dynamic
013c e238 | 8 | Load 0x1,0x38
013d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
013e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
013f 840b | | Call 0x2,0xb
0140 8406 | | Call 0x2,0x6
0141 e5fe | | Load 0x2,-0x2
0142 6838 |h8 | Jump_Zero 0x17b
0143 e238 | 8 | Load 0x1,0x38
0144 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0145 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0146 840b | | Call 0x2,0xb
0147 e238 | 8 | Load 0x1,0x38
0148 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0149 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014a e022 | " | Load 0x0,0x22
014b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
014c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014d e237 | 7 | Load 0x1,0x37
014e 180d | | Execute Package,Field_Execute,Field_Number 0xd
014f e238 | 8 | Load 0x1,0x38
0150 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0151 e238 | 8 | Load 0x1,0x38
0152 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0153 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0154 8605 | | Call 0x3,0x5
0155 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0156 e239 | 9 | Load 0x1,0x39
0157 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0158 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0159 00da | | Load_Top At_Offset_2
015a 0f0d | | Execute_Immediate Equal,0xd
015b 6803 |h | Jump_Zero 0x15f
015c 4801 |H | Short_Literal 0x1
015d 8409 | | Call 0x2,0x9
015e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
015f e233 | 3 | Load 0x1,0x33
0160 00d8 | | Load_Top At_Offset_0
0161 e210 | | Load 0x1,0x10
0162 0260 | ` | Execute Discrete,In_Type
0163 7001 |p | Jump_Nonzero 0x165
0164 0801 | | Execute_Immediate Raise,0x1
0165 e232 | 2 | Load 0x1,0x32
0166 00d8 | | Load_Top At_Offset_0
0167 e20f | | Load 0x1,0xf
0168 0260 | ` | Execute Discrete,In_Type
0169 7001 |p | Jump_Nonzero 0x16b
016a 0801 | | Execute_Immediate Raise,0x1
016b 85f3 | | Call 0x2,-0xd
016c 6804 |h | Jump_Zero 0x171
016d 00da | | Load_Top At_Offset_2
016e e237 | 7 | Load 0x1,0x37
016f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0170 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0171 4801 |H | Short_Literal 0x1
0172 00ea | | Load_Encached Null_String_Cache
0173 e21a | | Load 0x1,0x1a
0174 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0175 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0176 e237 | 7 | Load 0x1,0x37
0177 180e | | Execute Package,Field_Execute,Field_Number 0xe
0178 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0179 e237 | 7 | Load 0x1,0x37
017a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
017b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
017c 0000 0000 | | .BLANK 0000[0x4]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0186 | | .CONST 0x0186 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0003 | | .CONST 0x0003 ; Number of locals
0183 INIT_0180:
0183 00e4 | | Load_Encached Positive_Cache
0184 00e3 | | Load_Encached Natural_Cache
0185 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0186 BODY_0180:
0186 00cf | | Action Mark_Auxiliary
0187 e210 | | Load 0x1,0x10
0188 0265 | e | Execute Discrete,Reverse_Bounds
0189 0263 | c | Execute Discrete,Above_Bound
018a 703b |p; | Jump_Nonzero 0x1c6
018b 00d8 | | Load_Top At_Offset_0
018c 00d8 | | Load_Top At_Offset_0
018d e210 | | Load 0x1,0x10
018e 0260 | ` | Execute Discrete,In_Type
018f 7001 |p | Jump_Nonzero 0x191
0190 0801 | | Execute_Immediate Raise,0x1
0191 85f2 | | Call 0x2,-0xe
0192 a602 | | Store_Unchecked 0x3,0x2
0193 e602 | | Load 0x3,0x2
0194 00d9 | | Load_Top At_Offset_1
0195 00d8 | | Load_Top At_Offset_0
0196 e210 | | Load 0x1,0x10
0197 0260 | ` | Execute Discrete,In_Type
0198 7001 |p | Jump_Nonzero 0x19a
0199 0801 | | Execute_Immediate Raise,0x1
019a 8236 | 6 | Call 0x1,0x36
019b e22d | - | Load 0x1,0x2d
019c 01d6 | | Execute Vector,Field_Write
019d 00cf | | Action Mark_Auxiliary
019e e22a | * | Load 0x1,0x2a
019f 0269 | i | Execute Discrete,Last
01a0 4801 |H | Short_Literal 0x1
01a1 0263 | c | Execute Discrete,Above_Bound
01a2 7012 |p | Jump_Nonzero 0x1b5
01a3 4820 |H | Short_Literal 0x20
01a4 e602 | | Load 0x3,0x2
01a5 e21a | | Load 0x1,0x1a
01a6 180d | | Execute Package,Field_Execute,Field_Number 0xd
01a7 e22f | / | Load 0x1,0x2f
01a8 03b6 | | Declare_Variable Access,By_Allocation,With_Value
01a9 e606 | | Load 0x3,0x6
01aa 00d8 | | Load_Top At_Offset_0
01ab e210 | | Load 0x1,0x10
01ac 0260 | ` | Execute Discrete,In_Type
01ad 7001 |p | Jump_Nonzero 0x1af
01ae 0801 | | Execute_Immediate Raise,0x1
01af 8236 | 6 | Call 0x1,0x36
01b0 00da | | Load_Top At_Offset_2
01b1 e231 | 1 | Load 0x1,0x31
01b2 01a6 | | Execute Matrix,Field_Write
01b3 00c8 | | Action Pop_Auxiliary_Range
01b4 3fee |? | Loop_Increasing 0x1a3
01b5 00ce | | Action Pop_Auxiliary
01b6 00db | | Load_Top At_Offset_3
01b7 00d9 | | Load_Top At_Offset_1
01b8 00d8 | | Load_Top At_Offset_0
01b9 e210 | | Load 0x1,0x10
01ba 0260 | ` | Execute Discrete,In_Type
01bb 7001 |p | Jump_Nonzero 0x1bd
01bc 0801 | | Execute_Immediate Raise,0x1
01bd 8236 | 6 | Call 0x1,0x36
01be e22e | . | Load 0x1,0x2e
01bf 01d6 | | Execute Vector,Field_Write
01c0 00db | | Load_Top At_Offset_3
01c1 e602 | | Load 0x3,0x2
01c2 0273 | s | Execute Discrete,Plus
01c3 c603 | | Store 0x3,0x3
01c4 00c8 | | Action Pop_Auxiliary_Range
01c5 3fc5 |? | Loop_Increasing 0x18b
01c6 00ce | | Action Pop_Auxiliary
01c7 85f0 | | Call 0x2,-0x10
01c8 4807 |H | Short_Literal 0x7
01c9 8409 | | Call 0x2,0x9
01ca e238 | 8 | Load 0x1,0x38
01cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01cc e238 | 8 | Load 0x1,0x38
01cd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01cf 0000 | | .XXX[0x1]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01db | | .CONST 0x01db ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0005 | | .CONST 0x0005 ; Number of locals
01d3 INIT_01d0:
01d3 00e1 | | Load_Encached Boolean_Cache
01d4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01d5 e237 | 7 | Load 0x1,0x37
01d6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01d7 029f 029b | | Declare_Subprogram INIT_0298,For_Call
01d9 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call
01db BODY_01d0:
01db e237 | 7 | Load 0x1,0x37
01dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01dd 6801 |h | Jump_Zero 0x1df
01de 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01df 00da | | Load_Top At_Offset_2
01e0 01db | | Execute Vector,Length
01e1 0c01 | | Execute_Immediate Greater_Equal,0x1
01e2 6808 |h | Jump_Zero 0x1eb
01e3 8604 | | Call 0x3,0x4
01e4 00db | | Load_Top At_Offset_3
01e5 6804 |h | Jump_Zero 0x1ea
01e6 e5fd | | Load 0x2,-0x3
01e7 6803 |h | Jump_Zero 0x1eb
01e8 8406 | | Call 0x2,0x6
01e9 7801 |x | Jump 0x1eb
01ea 8605 | | Call 0x3,0x5
01eb e238 | 8 | Load 0x1,0x38
01ec 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01ed e237 | 7 | Load 0x1,0x37
01ee 180d | | Execute Package,Field_Execute,Field_Number 0xd
01ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 01f7 | | .CONST 0x01f7 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 e239 | 9 | Load 0x1,0x39
01f4 180f | | Execute Package,Field_Execute,Field_Number 0xf
01f5 8409 | | Call 0x2,0x9
01f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01f7 TRAP_01f0:
01f7 e00a | | Load 0x0,0xa
01f8 010f | | Execute Exception,Equal
01f9 680d |h | Jump_Zero 0x207
01fa 4800 |H | Short_Literal 0x0
01fb 0092 02cb | | Action Push_String_Extended,0x2cb ; "Exit from "
01fd e211 | | Load 0x1,0x11
01fe e21a | | Load 0x1,0x1a
01ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0200 01cc | | Execute Vector,Catenate
0201 e21a | | Load 0x1,0x1a
0202 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0203 e238 | 8 | Load 0x1,0x38
0204 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0205 00cc | | Action Pop_Block
0206 7e57 |~W | Jump 0x5e
0207 4800 |H | Short_Literal 0x0
0208 0092 02cc | | Action Push_String_Extended,0x2cc ; "Fatal exception in Spreadsheet.Engine "
020a 4800 |H | Short_Literal 0x0
020b 4801 |H | Short_Literal 0x1
020c e020 | | Load 0x0,0x20
020d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
020e 01cc | | Execute Vector,Catenate
020f e21a | | Load 0x1,0x1a
0210 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0211 00cc | | Action Pop_Block
0212 7e4b |~K | Jump 0x5e
0213 0000 0000 | | .BLANK 0000[0x5]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0228 | ( | .CONST 0x0228 ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0002 | | .CONST 0x0002 ; Number of locals
021b INIT_0218:
021b e233 | 3 | Load 0x1,0x33
021c 00d8 | | Load_Top At_Offset_0
021d e210 | | Load 0x1,0x10
021e 0260 | ` | Execute Discrete,In_Type
021f 7001 |p | Jump_Nonzero 0x221
0220 0801 | | Execute_Immediate Raise,0x1
0221 e232 | 2 | Load 0x1,0x32
0222 00d8 | | Load_Top At_Offset_0
0223 e20f | | Load 0x1,0xf
0224 0260 | ` | Execute Discrete,In_Type
0225 7001 |p | Jump_Nonzero 0x227
0226 0801 | | Execute_Immediate Raise,0x1
0227 85f6 | | Call 0x2,-0xa
0228 BODY_0218:
0228 00d8 | | Load_Top At_Offset_0
0229 01db | | Execute Vector,Length
022a 0c01 | | Execute_Immediate Greater_Equal,0x1
022b 6804 |h | Jump_Zero 0x230
022c 4800 |H | Short_Literal 0x0
022d 00d9 | | Load_Top At_Offset_1
022e e21a | | Load 0x1,0x1a
022f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0230 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0231 0000 0000 | | .BLANK 0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023f | ? | .CONST 0x023f ; Address of begin
0239 028f | | .CONST 0x028f ; Address of exception handler
023a 0003 | | .CONST 0x0003 ; Number of locals
023b INIT_0238:
023b e232 | 2 | Load 0x1,0x32
023c 0007 | | Action Break_Optional
023d e233 | 3 | Load 0x1,0x33
023e 0007 | | Action Break_Optional
023f BODY_0238:
023f e7ff | | Load 0x3,-0x1
0240 e239 | 9 | Load 0x1,0x39
0241 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0242 00d9 | | Load_Top At_Offset_1
0243 00d0 | | Action Swap_Control
0244 0260 | ` | Execute Discrete,In_Type
0245 7001 |p | Jump_Nonzero 0x247
0246 0801 | | Execute_Immediate Raise,0x1
0247 4607 |F | Jump_Case 0x8
0248 780d |x | Jump 0x256 ; case 0x0
0249 7812 |x | Jump 0x25c ; case 0x1
024a 781d |x | Jump 0x268 ; case 0x2
024b 7816 |x | Jump 0x262 ; case 0x3
024c 7821 |x! | Jump 0x26e ; case 0x4
024d 7824 |x$ | Jump 0x272 ; case 0x5
024e 7827 |x' | Jump 0x276 ; case 0x6
024f 7800 |x | Jump 0x250 ; case 0x7
0250 e210 | | Load 0x1,0x10
0251 e20f | | Load 0x1,0xf
0252 85f1 | | Call 0x2,-0xf
0253 005b | [ | Store_Top Discrete,At_Offset_3
0254 0059 | Y | Store_Top Discrete,At_Offset_1
0255 7823 |x# | Jump 0x279
0256 e20f | | Load 0x1,0xf
0257 0122 | " | Execute Any,Make_Root_Type
0258 e232 | 2 | Load 0x1,0x32
0259 0267 | g | Execute Discrete,Predecessor
025a 005a | Z | Store_Top Discrete,At_Offset_2
025b 781d |x | Jump 0x279
025c e20f | | Load 0x1,0xf
025d 0122 | " | Execute Any,Make_Root_Type
025e e232 | 2 | Load 0x1,0x32
025f 0268 | h | Execute Discrete,Successor
0260 005a | Z | Store_Top Discrete,At_Offset_2
0261 7817 |x | Jump 0x279
0262 e210 | | Load 0x1,0x10
0263 0122 | " | Execute Any,Make_Root_Type
0264 e233 | 3 | Load 0x1,0x33
0265 0267 | g | Execute Discrete,Predecessor
0266 0059 | Y | Store_Top Discrete,At_Offset_1
0267 7811 |x | Jump 0x279
0268 e210 | | Load 0x1,0x10
0269 0122 | " | Execute Any,Make_Root_Type
026a e233 | 3 | Load 0x1,0x33
026b 0268 | h | Execute Discrete,Successor
026c 0059 | Y | Store_Top Discrete,At_Offset_1
026d 780b |x | Jump 0x279
026e e210 | | Load 0x1,0x10
026f 026a | j | Execute Discrete,First
0270 0059 | Y | Store_Top Discrete,At_Offset_1
0271 7807 |x | Jump 0x279
0272 e210 | | Load 0x1,0x10
0273 0269 | i | Execute Discrete,Last
0274 0059 | Y | Store_Top Discrete,At_Offset_1
0275 7803 |x | Jump 0x279
0276 e20f | | Load 0x1,0xf
0277 0269 | i | Execute Discrete,Last
0278 005a | Z | Store_Top Discrete,At_Offset_2
0279 e5fc | | Load 0x2,-0x4
027a 6802 |h | Jump_Zero 0x27d
027b 840b | | Call 0x2,0xb
027c 7802 |x | Jump 0x27f
027d e237 | 7 | Load 0x1,0x37
027e 180d | | Execute Package,Field_Execute,Field_Number 0xd
027f e238 | 8 | Load 0x1,0x38
0280 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0281 00d9 | | Load_Top At_Offset_1
0282 c232 | 2 | Store 0x1,0x32
0283 00d8 | | Load_Top At_Offset_0
0284 c233 | 3 | Store 0x1,0x33
0285 4800 |H | Short_Literal 0x0
0286 e238 | 8 | Load 0x1,0x38
0287 180f | | Execute Package,Field_Execute,Field_Number 0xf
0288 e238 | 8 | Load 0x1,0x38
0289 1816 | | Execute Package,Field_Execute,Field_Number 0x16
028a 00ea | | Load_Encached Null_String_Cache
028b 4800 |H | Short_Literal 0x0
028c e238 | 8 | Load 0x1,0x38
028d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
028e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
028f TRAP_0238:
028f 010e | | Execute Exception,Is_Constraint_Error
0290 6805 |h | Jump_Zero 0x296
0291 4801 |H | Short_Literal 0x1
0292 00ea | | Load_Encached Null_String_Cache
0293 e21a | | Load 0x1,0x1a
0294 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0295 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0296 0100 | | Execute Exception,Raise
0297 0000 | | .XXX[0x1]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 02ac | | .CONST 0x02ac ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 00e1 | | Load_Encached Boolean_Cache
029c e603 | | Load 0x3,0x3
029d e233 | 3 | Load 0x1,0x33
029e 00d8 | | Load_Top At_Offset_0
029f e210 | | Load 0x1,0x10
02a0 0260 | ` | Execute Discrete,In_Type
02a1 7001 |p | Jump_Nonzero 0x2a3
02a2 0801 | | Execute_Immediate Raise,0x1
02a3 e232 | 2 | Load 0x1,0x32
02a4 00d8 | | Load_Top At_Offset_0
02a5 e20f | | Load 0x1,0xf
02a6 0260 | ` | Execute Discrete,In_Type
02a7 7001 |p | Jump_Nonzero 0x2a9
02a8 0801 | | Execute_Immediate Raise,0x1
02a9 85ef | | Call 0x2,-0x11
02aa c602 | | Store 0x3,0x2
02ab 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02ac TRAP_0298:
02ac 0007 | | Action Break_Optional
02ad 4800 |H | Short_Literal 0x0
02ae a602 | | Store_Unchecked 0x3,0x2
02af 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b4 | | .CONST 0x02b4 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0002 | | .CONST 0x0002 ; Number of locals
02b3 INIT_02b0:
02b3 85f8 | | Call 0x2,-0x8
02b4 BODY_02b0:
02b4 00d8 | | Load_Top At_Offset_0
02b5 8220 | | Call 0x1,0x20
02b6 01df | | Execute Vector,Equal
02b7 6808 |h | Jump_Zero 0x2c0
02b8 4802 |H | Short_Literal 0x2
02b9 0092 02cd | | Action Push_String_Extended,0x2cd ; "Invalid entry:"
02bb e603 | | Load 0x3,0x3
02bc 01cc | | Execute Vector,Catenate
02bd e21a | | Load 0x1,0x1a
02be 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02bf 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02c0 4802 |H | Short_Literal 0x2
02c1 00d9 | | Load_Top At_Offset_1
02c2 e21a | | Load 0x1,0x1a
02c3 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02c4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02c5 ; --------------------------------------------------------------------------------------
02c5 ; STRING TABLE
02c5 ; --------------------------------------------------------------------------------------
02c5 0014 | | .STRTAB 0x0014->0x02cf ; " ...computing"
02c6 001f | | .STRTAB 0x001f->0x02d5 ; "Exception during Computation: "
02c7 003b | ; | .STRTAB 0x003b->0x02e4 ; "OBJECT. ? (G to abandon, U to reset)"
02c8 005e | ^ | .STRTAB 0x005e->0x02f7 ; "Press again to confirm reset"
02c9 0078 | x | .STRTAB 0x0078->0x0305 ; "...saving"
02ca 007f | | .STRTAB 0x007f->0x0309 ; "...loading"
02cb 0087 | | .STRTAB 0x0087->0x030e ; "Exit from "
02cc 008f | | .STRTAB 0x008f->0x0313 ; "Fatal exception in Spreadsheet.Engine "
02cd 00b3 | | .STRTAB 0x00b3->0x0326 ; "Invalid entry:"
02ce 00bf | | .STREND 0x00bf->0x032d
02cf 202e 2e2e | ...| .STRTAB_STRINGS
032e 0000 0000 | | .XXX[0x2]
0330 ; --------------------------------------------------------------------------------------
0330 ; Debug Table
0330 ; --------------------------------------------------------------------------------------
0330 0004 0001 | | .DEBUG4 0x0004,0x0001,0x715c,0x0000,0x0001,0x000a
0336 000b 035e | ^| .DBG4T 0x000b,0x035e,0x3801,0x4002
033a 006b 0376 | k v| .DBG4T 0x006b,0x0376,0x1801,0x0002
033e 0093 037f | | .DBG4T 0x0093,0x037f,0x1801,0x4002
0342 0183 03e1 | | .DBG4T 0x0183,0x03e1,0x1801,0x0002
0346 01d3 03f0 | | .DBG4T 0x01d3,0x03f0,0x1801,0x0002
034a 01f3 03fe | | .DBG4T 0x01f3,0x03fe,0x1804,0x0002
034e 021b 0406 | | .DBG4T 0x021b,0x0406,0x1804,0x0002
0352 023b 040b | ; | .DBG4T 0x023b,0x040b,0x1804,0x4002
0356 029b 0435 | 5| .DBG4T 0x029b,0x0435,0x1804,0x0002
035a 02b3 0439 | 9| .DBG4T 0x02b3,0x0439,0x1804,0x0002
035e ; --------------------------------------------------------------------------------------
035e ; Debug chain
035e ; --------------------------------------------------------------------------------------
035e 000a 0006 | | .DBGLEN 0x000a,0x0006
0360 000b 0015 | | .DBGLNO 0x000b,0x0015,0x0017,0x001c,0x0021,0x0023,0x0025,0x0027,0x002b,0x0041,0x004f,0x0052,0x0053,0x0057,0x005b,0x005f
0370 0001 0002 | | .XXX[0x6]
0372 0003 0004 | |
0374 0006 0007 | |
0376 ; --------------------------------------------------------------------------------------
0376 ; Debug chain
0376 ; --------------------------------------------------------------------------------------
0376 0000 0007 | | .DBGLEN 0x0000,0x0007
0378 006b 006d | k m| .DBGLNO 0x006b,0x006d,0x006f,0x0074,0x0075,0x007b,0x0085
037f ; --------------------------------------------------------------------------------------
037f ; Debug chain
037f ; --------------------------------------------------------------------------------------
037f 0002 002f | /| .DBGLEN 0x0002,0x002f
0381 0093 0095 | | .DBGLNO 0x0093,0x0095,0x009a,0x00bc,0x00c1,0x00c4,0x00c6,0x00cb,0x00cf,0x00d2,0x00d8,0x00da,0x00e0,0x00e2,0x00e7,0x00eb,0x00ed,0x00fb,0x010c,0x010d,0x0110,0x0115,0x011a,0x011f,0x0122,0x0127,0x012c,0x012f,0x0134,0x0136,0x013f,0x0140,0x0141,0x0143,0x0146,0x0147,0x014a,0x014d,0x014f,0x0151,0x0154,0x0156,0x0159,0x015c,0x015f,0x016d,0x0171,0x0176,0x0179
03b2 0001 002f | /| .XXX[0x2f]
03b4 0002 0003 | |
03b6 0004 0005 | |
03b8 0006 0007 | |
03ba 0008 0009 | |
03bc 000a 000b | |
03be 000c 000d | |
03c0 000e 000f | |
03c2 0010 0011 | |
03c4 0012 0013 | |
03c6 0014 0015 | |
03c8 0016 0017 | |
03ca 0018 0019 | |
03cc 001a 001b | |
03ce 001c 001d | |
03d0 001e 001f | |
03d2 0020 0021 | !|
03d4 0022 0023 | " #|
03d6 0024 0025 | $ %|
03d8 0026 0027 | & '|
03da 0028 0029 | ( )|
03dc 002a 002b | * +|
03de 002c 002d | , -|
03e0 002e | . |
03e1 ; --------------------------------------------------------------------------------------
03e1 ; Debug chain
03e1 ; --------------------------------------------------------------------------------------
03e1 0002 000b | | .DBGLEN 0x0002,0x000b
03e3 0183 0184 | | .DBGLNO 0x0183,0x0184,0x0187,0x018b,0x0193,0x019e,0x01a3,0x01b6,0x01c0,0x01c7,0x01c8,0x01ca,0x01cc
03f0 ; --------------------------------------------------------------------------------------
03f0 ; Debug chain
03f0 ; --------------------------------------------------------------------------------------
03f0 0002 000a | | .DBGLEN 0x0002,0x000a
03f2 01d3 01d5 | | .DBGLNO 0x01d3,0x01d5,0x01db,0x01de,0x01df,0x01e3,0x01e4,0x01e6,0x01e8,0x01ea,0x01eb,0x01ed
03fe ; --------------------------------------------------------------------------------------
03fe ; Debug chain
03fe ; --------------------------------------------------------------------------------------
03fe 0000 0006 | | .DBGLEN 0x0000,0x0006
0400 01f3 01fa | | .DBGLNO 0x01f3,0x01fa,0x0203,0x0205,0x0207,0x0211
0406 ; --------------------------------------------------------------------------------------
0406 ; Debug chain
0406 ; --------------------------------------------------------------------------------------
0406 0001 0002 | | .DBGLEN 0x0001,0x0002
0408 021b 0228 | (| .DBGLNO 0x021b,0x0228,0x022c
040b ; --------------------------------------------------------------------------------------
040b ; Debug chain
040b ; --------------------------------------------------------------------------------------
040b 0002 0013 | | .DBGLEN 0x0002,0x0013
040d 023b 023d | ; =| .DBGLNO 0x023b,0x023d,0x023f,0x0250,0x0256,0x025c,0x0262,0x0268,0x026e,0x0272,0x0276,0x0279,0x027b,0x027d,0x027f,0x0281,0x0283,0x0285,0x0288,0x028a,0x0291
0422 0001 0008 | | .XXX[0x13]
0424 0002 0003 | |
0426 0004 0005 | |
0428 0006 0007 | |
042a 0009 000a | |
042c 000b 000c | |
042e 000d 000e | |
0430 000f 0010 | |
0432 0011 0012 | |
0434 0013 | |
0435 ; --------------------------------------------------------------------------------------
0435 ; Debug chain
0435 ; --------------------------------------------------------------------------------------
0435 0000 0002 | | .DBGLEN 0x0000,0x0002
0437 029b 02ad | | .DBGLNO 0x029b,0x02ad
0439 ; --------------------------------------------------------------------------------------
0439 ; Debug chain
0439 ; --------------------------------------------------------------------------------------
0439 0001 0003 | | .DBGLEN 0x0001,0x0003
043b 02b3 02b4 | | .DBGLNO 0x02b3,0x02b4,0x02b8,0x02c0
043f 0000 0000 | | .BLANK 0000[0x1c1]