|
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_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 0260 | ` | .CONST 0x0260 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0046 | F | .CONST 0x0046 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0020 | | .CONST 0x0020 ; Number of locals
000b INIT_0008:
000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
000f 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0011 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0013 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0015 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0017 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0019 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
001b 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
001d e001 | | Load 0x0,0x1
001e 191f | | Execute Package,Field_Reference,Field_Number 0x1f
001f 0129 | ) | Execute Any,Make_Visible
0020 00bf | | Action Accept_Activation
0021 00ea | | Load_Encached Null_String_Cache
0022 029d 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call
0024 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call
0026 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call
0028 029d 018b | | Declare_Subprogram INIT_0188,For_Outer_Call
002a 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call
002c 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call
002e 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call
0030 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0031 00c7 | | Action Elaborate_Subprogram
0032 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0033 00c7 | | Action Elaborate_Subprogram
0034 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0035 00c7 | | Action Elaborate_Subprogram
0036 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0037 00c7 | | Action Elaborate_Subprogram
0038 029d 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call
003a 1d11 | | Execute_Immediate Reference_Lex_1,0x11
003b 00c7 | | Action Elaborate_Subprogram
003c 1d12 | | Execute_Immediate Reference_Lex_1,0x12
003d 00c7 | | Action Elaborate_Subprogram
003e 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call
0040 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0041 00c7 | | Action Elaborate_Subprogram
0042 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0043 00c7 | | Action Elaborate_Subprogram
0044 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0045 00c7 | | Action Elaborate_Subprogram
0046 BODY_0008:
0046 00bc | | Action Signal_Activated
0047 00bb | | Action Signal_Completion
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0061 | a | .CONST 0x0061 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 00da | | Load_Top At_Offset_2
004c 8219 | | Call 0x1,0x19
004d 6811 |h | Jump_Zero 0x5f
004e 00da | | Load_Top At_Offset_2
004f 821a | | Call 0x1,0x1a
0050 680e |h | Jump_Zero 0x5f
0051 00da | | Load_Top At_Offset_2
0052 821b | | Call 0x1,0x1b
0053 680b |h | Jump_Zero 0x5f
0054 00da | | Load_Top At_Offset_2
0055 821c | | Call 0x1,0x1c
0056 6808 |h | Jump_Zero 0x5f
0057 00da | | Load_Top At_Offset_2
0058 821d | | Call 0x1,0x1d
0059 6805 |h | Jump_Zero 0x5f
005a 00da | | Load_Top At_Offset_2
005b 821e | | Call 0x1,0x1e
005c 6802 |h | Jump_Zero 0x5f
005d 4801 |H | Short_Literal 0x1
005e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
005f 4800 |H | Short_Literal 0x0
0060 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0061 TRAP_0048:
0061 0007 | | Action Break_Optional
0062 4800 |H | Short_Literal 0x0
0063 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0064 0000 0000 | | .BLANK 0000[0x4]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0073 | s | .CONST 0x0073 ; Address of begin
0069 00a2 | | .CONST 0x00a2 ; Address of exception handler
006a 0003 | | .CONST 0x0003 ; Number of locals
006b INIT_0068:
006b 00da | | Load_Top At_Offset_2
006c 01dd | | Execute Vector,First
006d 00e2 | | Load_Encached Integer_Cache
006e 03f1 | | Declare_Variable Discrete,With_Value
006f 00db | | Load_Top At_Offset_3
0070 01dd | | Execute Vector,First
0071 00e2 | | Load_Encached Integer_Cache
0072 03f1 | | Declare_Variable Discrete,With_Value
0073 BODY_0068:
0073 00cf | | Action Mark_Auxiliary
0074 00cf | | Action Mark_Auxiliary
0075 7804 |x | Jump 0x7a
0076 00da | | Load_Top At_Offset_2
0077 0a01 | | Execute_Immediate Plus,0x1
0078 005b | [ | Store_Top Discrete,At_Offset_3
0079 00c9 | | Action Pop_Auxiliary_Loop
007a 00da | | Load_Top At_Offset_2
007b e5ff | | Load 0x2,-0x1
007c 01dc | | Execute Vector,Last
007d 027a | z | Execute Discrete,Less_Equal
007e 6805 |h | Jump_Zero 0x84
007f 00da | | Load_Top At_Offset_2
0080 e5ff | | Load 0x2,-0x1
0081 01d7 | | Execute Vector,Field_Read
0082 0e2e | . | Execute_Immediate Not_Equal,0x2e
0083 77f2 |w | Jump_Nonzero 0x76
0084 00ce | | Action Pop_Auxiliary
0085 00da | | Load_Top At_Offset_2
0086 00da | | Load_Top At_Offset_2
0087 0aff | | Execute_Immediate Plus,-0x1
0088 00d8 | | Load_Top At_Offset_0
0089 00e2 | | Load_Encached Integer_Cache
008a 0260 | ` | Execute Discrete,In_Type
008b 7001 |p | Jump_Nonzero 0x8d
008c 0801 | | Execute_Immediate Raise,0x1
008d e5ff | | Load 0x2,-0x1
008e 01cf | | Execute Vector,Slice_Read
008f 820d | | Call 0x1,0xd
0090 7002 |p | Jump_Nonzero 0x93
0091 4800 |H | Short_Literal 0x0
0092 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0093 00d9 | | Load_Top At_Offset_1
0094 0a01 | | Execute_Immediate Plus,0x1
0095 005b | [ | Store_Top Discrete,At_Offset_3
0096 00d9 | | Load_Top At_Offset_1
0097 0a01 | | Execute_Immediate Plus,0x1
0098 005a | Z | Store_Top Discrete,At_Offset_2
0099 00da | | Load_Top At_Offset_2
009a e5ff | | Load 0x2,-0x1
009b 01dc | | Execute Vector,Last
009c 027d | } | Execute Discrete,Greater
009d 6802 |h | Jump_Zero 0xa0
009e 4801 |H | Short_Literal 0x1
009f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a0 00c9 | | Action Pop_Auxiliary_Loop
00a1 7fd2 | | Jump 0x74
00a2 TRAP_0068:
00a2 0007 | | Action Break_Optional
00a3 4800 |H | Short_Literal 0x0
00a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a5 0000 0000 | | .XXX[0x3]
00a7 0000 | |
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00da | | Load_Top At_Offset_2
00ac 820d | | Call 0x1,0xd
00ad 7003 |p | Jump_Nonzero 0xb1
00ae 00da | | Load_Top At_Offset_2
00af 820e | | Call 0x1,0xe
00b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b1 4801 |H | Short_Literal 0x1
00b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b3 0000 0000 | | .BLANK 0000[0x5]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 00cf | | .CONST 0x00cf ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00da | | Load_Top At_Offset_2
00bc e002 | | Load 0x0,0x2
00bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00be 7002 |p | Jump_Nonzero 0xc1
00bf 4800 |H | Short_Literal 0x0
00c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c1 00da | | Load_Top At_Offset_2
00c2 8218 | | Call 0x1,0x18
00c3 6802 |h | Jump_Zero 0xc6
00c4 4800 |H | Short_Literal 0x0
00c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c6 00da | | Load_Top At_Offset_2
00c7 e003 | | Load 0x0,0x3
00c8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ca 7002 |p | Jump_Nonzero 0xcd
00cb 4800 |H | Short_Literal 0x0
00cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00cd 4801 |H | Short_Literal 0x1
00ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00cf TRAP_00b8:
00cf 0007 | | Action Break_Optional
00d0 4800 |H | Short_Literal 0x0
00d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d2 0000 0000 | | .BLANK 0000[0x6]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 00f3 | | .CONST 0x00f3 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2
00dc 8218 | | Call 0x1,0x18
00dd 6802 |h | Jump_Zero 0xe0
00de 4800 |H | Short_Literal 0x0
00df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e0 00da | | Load_Top At_Offset_2
00e1 821f | | Call 0x1,0x1f
00e2 6802 |h | Jump_Zero 0xe5
00e3 4800 |H | Short_Literal 0x0
00e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e5 00da | | Load_Top At_Offset_2
00e6 01dd | | Execute Vector,First
00e7 0a01 | | Execute_Immediate Plus,0x1
00e8 00d8 | | Load_Top At_Offset_0
00e9 00e2 | | Load_Encached Integer_Cache
00ea 0260 | ` | Execute Discrete,In_Type
00eb 7001 |p | Jump_Nonzero 0xed
00ec 0801 | | Execute_Immediate Raise,0x1
00ed 00db | | Load_Top At_Offset_3
00ee 01dc | | Execute Vector,Last
00ef e5ff | | Load 0x2,-0x1
00f0 01cf | | Execute Vector,Slice_Read
00f1 820e | | Call 0x1,0xe
00f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f3 TRAP_00d8:
00f3 0007 | | Action Break_Optional
00f4 4800 |H | Short_Literal 0x0
00f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f6 0000 0000 | | .XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2
00fc 820d | | Call 0x1,0xd
00fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fe 0000 0000 | | .XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0114 | | .CONST 0x0114 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0005 | | .CONST 0x0005 ; Number of locals
0103 INIT_0100:
0103 0092 0238 | 8| Action Push_String_Extended,0x238 ; "!MACHINE.TEMPORARY.UNIQUE_TEMPORARY_FILE_"
0105 e004 | | Load 0x0,0x4
0106 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0107 e004 | | Load 0x0,0x4
0108 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0109 e004 | | Load 0x0,0x4
010a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
010b e004 | | Load 0x0,0x4
010c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
010d 4800 |H | Short_Literal 0x0
010e 4803 |H | Short_Literal 0x3
010f 4804 |H | Short_Literal 0x4
0110 e001 | | Load 0x0,0x1
0111 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0112 e001 | | Load 0x0,0x1
0113 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0114 BODY_0100:
0114 00db | | Load_Top At_Offset_3
0115 00db | | Load_Top At_Offset_3
0116 01cc | | Execute Vector,Catenate
0117 0092 0239 | 9| Action Push_String_Extended,0x239 ; "_"
0119 01cc | | Execute Vector,Catenate
011a 00da | | Load_Top At_Offset_2
011b 01cc | | Execute Vector,Catenate
011c 0092 0239 | 9| Action Push_String_Extended,0x239 ; "_"
011e 01cc | | Execute Vector,Catenate
011f 00d9 | | Load_Top At_Offset_1
0120 01cc | | Execute Vector,Catenate
0121 0092 0239 | 9| Action Push_String_Extended,0x239 ; "_"
0123 01cc | | Execute Vector,Catenate
0124 8220 | | Call 0x1,0x20
0125 01cc | | Execute Vector,Catenate
0126 00ca | | Action Exit_Nullary_Function
0127 0000 | | .XXX[0x1]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 0092 0239 | 9| Action Push_String_Extended,0x239 ; "_"
012d 00db | | Load_Top At_Offset_3
012e e005 | | Load 0x0,0x5
012f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0130 01cc | | Execute Vector,Catenate
0131 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0132 0000 0000 | | .BLANK 0000[0x6]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b e5fd | | Load 0x2,-0x3
013c 6810 |h | Jump_Zero 0x14d
013d 00db | | Load_Top At_Offset_3
013e 6807 |h | Jump_Zero 0x146
013f 00da | | Load_Top At_Offset_2
0140 e005 | | Load 0x0,0x5
0141 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0142 0092 023a | :| Action Push_String_Extended,0x23a ; "??"
0144 01cc | | Execute Vector,Catenate
0145 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0146 00da | | Load_Top At_Offset_2
0147 e005 | | Load 0x0,0x5
0148 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0149 0092 023b | ;| Action Push_String_Extended,0x23b ; ".@??"
014b 01cc | | Execute Vector,Catenate
014c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
014d 00db | | Load_Top At_Offset_3
014e 6811 |h | Jump_Zero 0x160
014f 0092 023c | <| Action Push_String_Extended,0x23c ; "["
0151 00db | | Load_Top At_Offset_3
0152 e005 | | Load 0x0,0x5
0153 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0154 01cc | | Execute Vector,Catenate
0155 0092 023d | =| Action Push_String_Extended,0x23d ; ","
0157 01cc | | Execute Vector,Catenate
0158 00db | | Load_Top At_Offset_3
0159 e005 | | Load 0x0,0x5
015a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
015b 01cc | | Execute Vector,Catenate
015c 0092 023e | >| Action Push_String_Extended,0x23e ; ".@]"
015e 01cc | | Execute Vector,Catenate
015f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0160 00da | | Load_Top At_Offset_2
0161 e005 | | Load 0x0,0x5
0162 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0163 0092 023f | ?| Action Push_String_Extended,0x23f ; ".@"
0165 01cc | | Execute Vector,Catenate
0166 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0167 0000 | | .XXX[0x1]
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 e217 | | Load 0x1,0x17
016d 01df | | Execute Vector,Equal
016e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016f 0000 | | .XXX[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 e217 | | Load 0x1,0x17
0175 01de | | Execute Vector,Not_Equal
0176 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0177 0000 | | .XXX[0x1]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c 01dd | | Execute Vector,First
017d 00db | | Load_Top At_Offset_3
017e 01d7 | | Execute Vector,Field_Read
017f 0e5f | _ | Execute_Immediate Not_Equal,0x5f
0180 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0181 0000 0000 | | .BLANK 0000[0x7]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00da | | Load_Top At_Offset_2
018c 01dc | | Execute Vector,Last
018d 00db | | Load_Top At_Offset_3
018e 01d7 | | Execute Vector,Field_Read
018f 0e5f | _ | Execute_Immediate Not_Equal,0x5f
0190 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0191 0000 0000 | | .BLANK 0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c 01dd | | Execute Vector,First
019d 00db | | Load_Top At_Offset_3
019e 01d7 | | Execute Vector,Field_Read
019f 00d8 | | Load_Top At_Offset_0
01a0 4841 |HA | Short_Literal 0x41
01a1 485a |HZ | Short_Literal 0x5a
01a2 0262 | b | Execute Discrete,In_Range
01a3 7006 |p | Jump_Nonzero 0x1aa
01a4 4861 |Ha | Short_Literal 0x61
01a5 487a |Hz | Short_Literal 0x7a
01a6 0262 | b | Execute Discrete,In_Range
01a7 7003 |p | Jump_Nonzero 0x1ab
01a8 4800 |H | Short_Literal 0x0
01a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01aa 00d1 | | Pop_Control Pop_Count_1
01ab 4801 |H | Short_Literal 0x1
01ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ad 0000 0000 | | .XXX[0x3]
01af 0000 | |
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00cf | | Action Mark_Auxiliary
01b4 00db | | Load_Top At_Offset_3
01b5 01dc | | Execute Vector,Last
01b6 e5ff | | Load 0x2,-0x1
01b7 01dd | | Execute Vector,First
01b8 0263 | c | Execute Discrete,Above_Bound
01b9 701f |p | Jump_Nonzero 0x1d9
01ba 00d8 | | Load_Top At_Offset_0
01bb e5ff | | Load 0x2,-0x1
01bc 01d7 | | Execute Vector,Field_Read
01bd 00d8 | | Load_Top At_Offset_0
01be 0d5b | [ | Execute_Immediate Less,0x5b
01bf 7009 |p | Jump_Nonzero 0x1c9
01c0 00d8 | | Load_Top At_Offset_0
01c1 0c61 | a | Execute_Immediate Greater_Equal,0x61
01c2 7003 |p | Jump_Nonzero 0x1c6
01c3 0f5f | _ | Execute_Immediate Equal,0x5f
01c4 7012 |p | Jump_Nonzero 0x1d7
01c5 780f |x | Jump 0x1d5
01c6 0c7b | { | Execute_Immediate Greater_Equal,0x7b
01c7 680f |h | Jump_Zero 0x1d7
01c8 780c |x | Jump 0x1d5
01c9 00d8 | | Load_Top At_Offset_0
01ca 4830 |H0 | Short_Literal 0x30
01cb 4839 |H9 | Short_Literal 0x39
01cc 0262 | b | Execute Discrete,In_Range
01cd 7005 |p | Jump_Nonzero 0x1d3
01ce 4841 |HA | Short_Literal 0x41
01cf 485a |HZ | Short_Literal 0x5a
01d0 0262 | b | Execute Discrete,In_Range
01d1 7005 |p | Jump_Nonzero 0x1d7
01d2 7802 |x | Jump 0x1d5
01d3 00d1 | | Pop_Control Pop_Count_1
01d4 7802 |x | Jump 0x1d7
01d5 4800 |H | Short_Literal 0x0
01d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d7 00c8 | | Action Pop_Auxiliary_Range
01d8 3fe1 |? | Loop_Increasing 0x1ba
01d9 00ce | | Action Pop_Auxiliary
01da 4801 |H | Short_Literal 0x1
01db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01dc 0000 0000 | | .BLANK 0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e5 | | .CONST 0x01e5 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 00e1 | | Load_Encached Boolean_Cache
01e4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01e5 BODY_01e0:
01e5 00cf | | Action Mark_Auxiliary
01e6 e5ff | | Load 0x2,-0x1
01e7 01dc | | Execute Vector,Last
01e8 e5ff | | Load 0x2,-0x1
01e9 01dd | | Execute Vector,First
01ea 0263 | c | Execute Discrete,Above_Bound
01eb 7010 |p | Jump_Nonzero 0x1fc
01ec 00d8 | | Load_Top At_Offset_0
01ed e5ff | | Load 0x2,-0x1
01ee 01d7 | | Execute Vector,Field_Read
01ef 0f5f | _ | Execute_Immediate Equal,0x5f
01f0 6807 |h | Jump_Zero 0x1f8
01f1 00db | | Load_Top At_Offset_3
01f2 6802 |h | Jump_Zero 0x1f5
01f3 4800 |H | Short_Literal 0x0
01f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f5 4801 |H | Short_Literal 0x1
01f6 a402 | | Store_Unchecked 0x2,0x2
01f7 7802 |x | Jump 0x1fa
01f8 4800 |H | Short_Literal 0x0
01f9 a402 | | Store_Unchecked 0x2,0x2
01fa 4801 |H | Short_Literal 0x1
01fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01fc 00ce | | Action Pop_Auxiliary
01fd 0831 | 1 | Execute_Immediate Raise,0x31
01fe 0000 0000 | | .XXX[0x2]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 00da | | Load_Top At_Offset_2
0204 01dd | | Execute Vector,First
0205 00db | | Load_Top At_Offset_3
0206 01d7 | | Execute Vector,Field_Read
0207 0e21 | ! | Execute_Immediate Not_Equal,0x21
0208 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0209 0000 0000 | | .BLANK 0000[0x7]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0219 | | .CONST 0x0219 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0003 | | .CONST 0x0003 ; Number of locals
0213 INIT_0210:
0213 e006 | | Load 0x0,0x6
0214 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0215 02c7 | | Declare_Variable Any
0216 00d8 | | Load_Top At_Offset_0
0217 1c00 | | Execute_Immediate Run_Utility,0x0
0218 00e3 | | Load_Encached Natural_Cache
0219 BODY_0210:
0219 00d9 | | Load_Top At_Offset_1
021a 0120 | | Execute Any,Is_Value
021b 6803 |h | Jump_Zero 0x21f
021c e006 | | Load 0x0,0x6
021d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
021e 7801 |x | Jump 0x220
021f 00d9 | | Load_Top At_Offset_1
0220 e007 | | Load 0x0,0x7
0221 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0222 e006 | | Load 0x0,0x6
0223 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0224 e006 | | Load 0x0,0x6
0225 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0226 c402 | | Store 0x2,0x2
0227 600c |` | Indirect_Literal Discrete,0x234,{0x00000000, 0x7fffffff}
0228 00da | | Load_Top At_Offset_2
0229 e006 | | Load 0x0,0x6
022a 180f | | Execute Package,Field_Execute,Field_Number 0xf
022b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
022c 4820 |H | Short_Literal 0x20
022d 00d9 | | Load_Top At_Offset_1
022e 00e0 | | Load_Encached Standard_Cache
022f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0230 e005 | | Load 0x0,0x5
0231 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0232 00ca | | Action Exit_Nullary_Function
0233 0000 | | .XXX[0x1]
0234 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0238 ; --------------------------------------------------------------------------------------
0238 ; STRING TABLE
0238 ; --------------------------------------------------------------------------------------
0238 0012 | | .STRTAB 0x0012->0x0241 ; "!MACHINE.TEMPORARY.UNIQUE_TEMPORARY_FILE_"
0239 0039 | 9 | .STRTAB 0x0039->0x0255 ; "_"
023a 0038 | 8 | .STRTAB 0x0038->0x0256 ; "??"
023b 0038 | 8 | .STRTAB 0x0038->0x0257 ; ".@??"
023c 003a | : | .STRTAB 0x003a->0x0259 ; "["
023d 0039 | 9 | .STRTAB 0x0039->0x0259 ; ","
023e 0038 | 8 | .STRTAB 0x0038->0x025a ; ".@]"
023f 0039 | 9 | .STRTAB 0x0039->0x025b ; ".@"
0240 0039 | 9 | .STREND 0x0039->0x025c
0241 214d 4143 |!MAC| .STRTAB_STRINGS
025d 0000 0000 | | .XXX[0x3]
025f 0000 | |
0260 ; --------------------------------------------------------------------------------------
0260 ; Debug Table
0260 ; --------------------------------------------------------------------------------------
0260 0004 0001 | | .DEBUG4 0x0004,0x0001,0x7132,0x0000,0x0001,0x0014
0266 000b 02b6 | | .DBG4T 0x000b,0x02b6,0x8000,0x0000
026a 0021 02c2 | ! | .DBG4T 0x0021,0x02c2,0x8000,0x8000
026e 004b 02ea | K | .DBG4T 0x004b,0x02ea,0x0002,0x0000
0272 006b 02f0 | k | .DBG4T 0x006b,0x02f0,0x0002,0xc000
0276 00ab 030a | | .DBG4T 0x00ab,0x030a,0x0002,0x0000
027a 00bb 030d | | .DBG4T 0x00bb,0x030d,0x0002,0x0000
027e 00db 0317 | | .DBG4T 0x00db,0x0317,0x0002,0x0000
0282 00fb 031f | | .DBG4T 0x00fb,0x031f,0x0002,0x0000
0286 0103 0322 | "| .DBG4T 0x0103,0x0322,0x0002,0x0000
028a 012b 0329 | + )| .DBG4T 0x012b,0x0329,0x0002,0x0000
028e 013b 032c | ; ,| .DBG4T 0x013b,0x032c,0x0002,0x0000
0292 016b 0335 | k 5| .DBG4T 0x016b,0x0335,0x0002,0x0000
0296 0173 0338 | s 8| .DBG4T 0x0173,0x0338,0x0002,0x0000
029a 017b 033b | { ;| .DBG4T 0x017b,0x033b,0x0002,0x0000
029e 018b 033e | >| .DBG4T 0x018b,0x033e,0x0002,0x0000
02a2 019b 0341 | A| .DBG4T 0x019b,0x0341,0x0002,0x4000
02a6 01b3 0349 | I| .DBG4T 0x01b3,0x0349,0x0002,0x4000
02aa 01e3 0353 | S| .DBG4T 0x01e3,0x0353,0x0002,0x0000
02ae 0203 035d | ]| .DBG4T 0x0203,0x035d,0x0002,0x0000
02b2 0213 0360 | `| .DBG4T 0x0213,0x0360,0x0002,0x0000
02b6 ; --------------------------------------------------------------------------------------
02b6 ; Debug chain
02b6 ; --------------------------------------------------------------------------------------
02b6 000a 0000 | | .DBGLEN 0x000a,0x0000
02b8 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d
02c2 ; --------------------------------------------------------------------------------------
02c2 ; Debug chain
02c2 ; --------------------------------------------------------------------------------------
02c2 0013 0000 | | .DBGLEN 0x0013,0x0000
02c4 0021 0022 | ! "| .DBGLNO 0x0021,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044
02d7 0001 0004 | | .XXX[0x13]
02d9 0005 0006 | |
02db 0007 0008 | |
02dd 0009 000a | |
02df 000b 000c | |
02e1 000d 000e | |
02e3 000f 0010 | |
02e5 0011 0012 | |
02e7 0013 0014 | |
02e9 0015 | |
02ea ; --------------------------------------------------------------------------------------
02ea ; Debug chain
02ea ; --------------------------------------------------------------------------------------
02ea 0000 0004 | | .DBGLEN 0x0000,0x0004
02ec 004b 005d | K ]| .DBGLNO 0x004b,0x005d,0x005f,0x0062
02f0 ; --------------------------------------------------------------------------------------
02f0 ; Debug chain
02f0 ; --------------------------------------------------------------------------------------
02f0 0002 000a | | .DBGLEN 0x0002,0x000a
02f2 006b 006f | k o| .DBGLNO 0x006b,0x006f,0x0074,0x0076,0x007a,0x0085,0x0091,0x0093,0x0096,0x0099,0x009e,0x00a3
02fe 0002 0003 | | .XXX[0xc]
0300 0001 0003 | |
0302 0002 0004 | |
0304 0005 0006 | |
0306 0007 0008 | |
0308 0009 000a | |
030a ; --------------------------------------------------------------------------------------
030a ; Debug chain
030a ; --------------------------------------------------------------------------------------
030a 0000 0001 | | .DBGLEN 0x0000,0x0001
030c 00ab | | .DBGLNO 0x00ab
030d ; --------------------------------------------------------------------------------------
030d ; Debug chain
030d ; --------------------------------------------------------------------------------------
030d 0000 0008 | | .DBGLEN 0x0000,0x0008
030f 00bb 00bf | | .DBGLNO 0x00bb,0x00bf,0x00c1,0x00c4,0x00c6,0x00cb,0x00cd,0x00d0
0317 ; --------------------------------------------------------------------------------------
0317 ; Debug chain
0317 ; --------------------------------------------------------------------------------------
0317 0000 0006 | | .DBGLEN 0x0000,0x0006
0319 00db 00de | | .DBGLNO 0x00db,0x00de,0x00e0,0x00e3,0x00e5,0x00f4
031f ; --------------------------------------------------------------------------------------
031f ; Debug chain
031f ; --------------------------------------------------------------------------------------
031f 0000 0001 | | .DBGLEN 0x0000,0x0001
0321 00fb | | .DBGLNO 0x00fb
0322 ; --------------------------------------------------------------------------------------
0322 ; Debug chain
0322 ; --------------------------------------------------------------------------------------
0322 0004 0001 | | .DBGLEN 0x0004,0x0001
0324 0103 0105 | | .DBGLNO 0x0103,0x0105,0x0109,0x010d,0x0114
0329 ; --------------------------------------------------------------------------------------
0329 ; Debug chain
0329 ; --------------------------------------------------------------------------------------
0329 0000 0001 | | .DBGLEN 0x0000,0x0001
032b 012b | + | .DBGLNO 0x012b
032c ; --------------------------------------------------------------------------------------
032c ; Debug chain
032c ; --------------------------------------------------------------------------------------
032c 0000 0007 | | .DBGLEN 0x0000,0x0007
032e 013b 013d | ; =| .DBGLNO 0x013b,0x013d,0x013f,0x0146,0x014d,0x014f,0x0160
0335 ; --------------------------------------------------------------------------------------
0335 ; Debug chain
0335 ; --------------------------------------------------------------------------------------
0335 0000 0001 | | .DBGLEN 0x0000,0x0001
0337 016b | k | .DBGLNO 0x016b
0338 ; --------------------------------------------------------------------------------------
0338 ; Debug chain
0338 ; --------------------------------------------------------------------------------------
0338 0000 0001 | | .DBGLEN 0x0000,0x0001
033a 0173 | s | .DBGLNO 0x0173
033b ; --------------------------------------------------------------------------------------
033b ; Debug chain
033b ; --------------------------------------------------------------------------------------
033b 0000 0001 | | .DBGLEN 0x0000,0x0001
033d 017b | { | .DBGLNO 0x017b
033e ; --------------------------------------------------------------------------------------
033e ; Debug chain
033e ; --------------------------------------------------------------------------------------
033e 0000 0001 | | .DBGLEN 0x0000,0x0001
0340 018b | | .DBGLNO 0x018b
0341 ; --------------------------------------------------------------------------------------
0341 ; Debug chain
0341 ; --------------------------------------------------------------------------------------
0341 0000 0003 | | .DBGLEN 0x0000,0x0003
0343 019b 01a8 | | .DBGLNO 0x019b,0x01a8,0x01ab
0346 0001 0003 | | .XXX[0x3]
0348 0002 | |
0349 ; --------------------------------------------------------------------------------------
0349 ; Debug chain
0349 ; --------------------------------------------------------------------------------------
0349 0000 0004 | | .DBGLEN 0x0000,0x0004
034b 01b4 01ba | | .DBGLNO 0x01b4,0x01ba,0x01d5,0x01da
034f 0001 0002 | | .XXX[0x4]
0351 0003 0005 | |
0353 ; --------------------------------------------------------------------------------------
0353 ; Debug chain
0353 ; --------------------------------------------------------------------------------------
0353 0001 0007 | | .DBGLEN 0x0001,0x0007
0355 01e3 01e6 | | .DBGLNO 0x01e3,0x01e6,0x01ec,0x01f1,0x01f3,0x01f5,0x01f8,0x01fa
035d ; --------------------------------------------------------------------------------------
035d ; Debug chain
035d ; --------------------------------------------------------------------------------------
035d 0000 0001 | | .DBGLEN 0x0000,0x0001
035f 0203 | | .DBGLNO 0x0203
0360 ; --------------------------------------------------------------------------------------
0360 ; Debug chain
0360 ; --------------------------------------------------------------------------------------
0360 0002 0003 | | .DBGLEN 0x0002,0x0003
0362 0213 0218 | | .DBGLNO 0x0213,0x0218,0x0219,0x0227,0x022c
0367 0000 0000 | | .BLANK 0000[0x99]