|
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 02a8 | | .CONST 0x02a8 ; 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 004a | J | .CONST 0x004a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0020 | | .CONST 0x0020 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
001c c217 | | Store 0x1,0x17
001d 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
001f c215 | | Store 0x1,0x15
0020 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0022 c216 | | Store 0x1,0x16
0023 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
0025 c21b | | Store 0x1,0x1b
0026 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0028 c218 | | Store 0x1,0x18
0029 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
002b c219 | | Store 0x1,0x19
002c 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
002e c21a | | Store 0x1,0x1a
002f 00bf | | Action Accept_Activation
0030 0092 0260 | `| Action Push_String_Extended,0x260 ; "\x1b]"
0032 0092 0261 | a| Action Push_String_Extended,0x261 ; "\x07"
0034 4802 |H | Short_Literal 0x2
0035 e001 | | Load 0x0,0x1
0036 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0037 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0038 00e1 | | Load_Encached Boolean_Cache
0039 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
003a 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call
003c 1d15 | | Execute_Immediate Reference_Lex_1,0x15
003d 00c7 | | Action Elaborate_Subprogram
003e 1d16 | | Execute_Immediate Reference_Lex_1,0x16
003f 00c7 | | Action Elaborate_Subprogram
0040 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0041 00c7 | | Action Elaborate_Subprogram
0042 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0043 00c7 | | Action Elaborate_Subprogram
0044 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0045 00c7 | | Action Elaborate_Subprogram
0046 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0047 00c7 | | Action Elaborate_Subprogram
0048 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0049 00c7 | | Action Elaborate_Subprogram
004a BODY_0008:
004a 00bc | | Action Signal_Activated
004b 00bb | | Action Signal_Completion
004c 0000 0000 | | .BLANK 0000[0x4]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0062 | b | .CONST 0x0062 ; Address of begin
0051 00be | | .CONST 0x00be ; Address of exception handler
0052 0007 | | .CONST 0x0007 ; Number of locals
0053 INIT_0050:
0053 e001 | | Load 0x0,0x1
0054 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0055 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0056 02c7 | | Declare_Variable Any
0057 00d8 | | Load_Top At_Offset_0
0058 1c00 | | Execute_Immediate Run_Utility,0x0
0059 e001 | | Load 0x0,0x1
005a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
005b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
005c 00e3 | | Load_Encached Natural_Cache
005d 00e3 | | Load_Encached Natural_Cache
005e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
005f 00e8 | | Load_Encached Character_Cache
0060 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call
0062 BODY_0050:
0062 e402 | | Load 0x2,0x2
0063 e001 | | Load 0x0,0x1
0064 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0065 180e | | Execute Package,Field_Execute,Field_Number 0xe
0066 c402 | | Store 0x2,0x2
0067 e001 | | Load 0x0,0x1
0068 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0069 1b11 | | Execute Package,Field_Read,Field_Number 0x11
006a e402 | | Load 0x2,0x2
006b e001 | | Load 0x0,0x1
006c 1b17 | | Execute Package,Field_Read,Field_Number 0x17
006d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
006e c403 | | Store 0x2,0x3
006f 4801 |H | Short_Literal 0x1
0070 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0071 e403 | | Load 0x2,0x3
0072 e21e | | Load 0x1,0x1e
0073 027f | | Execute Discrete,Equal
0074 7006 |p | Jump_Nonzero 0x7b
0075 0092 0262 | b| Action Push_String_Extended,0x262 ; "bad_lead in"
0077 e002 | | Load 0x0,0x2
0078 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0079 e003 | | Load 0x0,0x3
007a 0257 | W | Execute Discrete,Raise
007b 4800 |H | Short_Literal 0x0
007c a404 | | Store_Unchecked 0x2,0x4
007d 00cf | | Action Mark_Auxiliary
007e e001 | | Load 0x0,0x1
007f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0080 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0081 e402 | | Load 0x2,0x2
0082 e001 | | Load 0x0,0x1
0083 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0084 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0085 c403 | | Store 0x2,0x3
0086 00db | | Load_Top At_Offset_3
0087 0a01 | | Execute_Immediate Plus,0x1
0088 c405 | | Store 0x2,0x5
0089 e403 | | Load 0x2,0x3
008a e001 | | Load 0x0,0x1
008b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
008c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
008d 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
008e 00da | | Load_Top At_Offset_2
008f 0f3b | ; | Execute_Immediate Equal,0x3b
0090 7014 |p | Jump_Nonzero 0xa5
0091 00da | | Load_Top At_Offset_2
0092 4830 |H0 | Short_Literal 0x30
0093 4839 |H9 | Short_Literal 0x39
0094 0261 | a | Execute Discrete,Not_In_Range
0095 6806 |h | Jump_Zero 0x9c
0096 0092 0263 | c| Action Push_String_Extended,0x263 ; "Illegal char in length "
0098 e002 | | Load 0x0,0x2
0099 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
009a e003 | | Load 0x0,0x3
009b 0257 | W | Execute Discrete,Raise
009c e404 | | Load 0x2,0x4
009d 480a |H | Short_Literal 0xa
009e 0271 | q | Execute Discrete,Times
009f 00db | | Load_Top At_Offset_3
00a0 0273 | s | Execute Discrete,Plus
00a1 0ad0 | | Execute_Immediate Plus,-0x30
00a2 c404 | | Store 0x2,0x4
00a3 00c9 | | Action Pop_Auxiliary_Loop
00a4 7fd9 | | Jump 0x7e
00a5 00ce | | Action Pop_Auxiliary
00a6 00db | | Load_Top At_Offset_3
00a7 602c |`, | Indirect_Literal Discrete,0xd4,{0x00000000, 0x00002710}
00a8 027d | } | Execute Discrete,Greater
00a9 6806 |h | Jump_Zero 0xb0
00aa 0092 0264 | d| Action Push_String_Extended,0x264 ; "Excessive length"
00ac e002 | | Load 0x0,0x2
00ad 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00ae e003 | | Load 0x0,0x3
00af 0257 | W | Execute Discrete,Raise
00b0 8407 | | Call 0x2,0x7
00b1 00da | | Load_Top At_Offset_2
00b2 e404 | | Load 0x2,0x4
00b3 027e | ~ | Execute Discrete,Not_Equal
00b4 6802 |h | Jump_Zero 0xb7
00b5 e003 | | Load 0x0,0x3
00b6 0257 | W | Execute Discrete,Raise
00b7 e402 | | Load 0x2,0x2
00b8 4800 |H | Short_Literal 0x0
00b9 e001 | | Load 0x0,0x1
00ba 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00bb 180f | | Execute Package,Field_Execute,Field_Number 0xf
00bc c402 | | Store 0x2,0x2
00bd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00be TRAP_0050:
00be e003 | | Load 0x0,0x3
00bf 010f | | Execute Exception,Equal
00c0 680b |h | Jump_Zero 0xcc
00c1 e402 | | Load 0x2,0x2
00c2 4800 |H | Short_Literal 0x0
00c3 e001 | | Load 0x0,0x1
00c4 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00c5 180f | | Execute Package,Field_Execute,Field_Number 0xf
00c6 c402 | | Store 0x2,0x2
00c7 0092 0265 | e| Action Push_String_Extended,0x265 ; "Dialog Box response read error."
00c9 e002 | | Load 0x0,0x2
00ca 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00cb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00cc e402 | | Load 0x2,0x2
00cd 4800 |H | Short_Literal 0x0
00ce e001 | | Load 0x0,0x1
00cf 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00d0 180f | | Execute Package,Field_Execute,Field_Number 0xf
00d1 c402 | | Store 0x2,0x2
00d2 00d8 | | Load_Top At_Offset_0
00d3 0101 | | Execute Exception,Reraise
00d4 0000 0000 | | .LITERAL {0x00000000, 0x00002710}
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 0092 0266 | f| Action Push_String_Extended,0x266 ; "\x1b]9;\x07"
00dd e004 | | Load 0x0,0x4
00de 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00df 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 0092 0267 | g| Action Push_String_Extended,0x267 ; "\x1b]8;"
00e5 00db | | Load_Top At_Offset_3
00e6 01cc | | Execute Vector,Catenate
00e7 e21d | | Load 0x1,0x1d
00e8 01cc | | Execute Vector,Catenate
00e9 e004 | | Load 0x0,0x4
00ea 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ec 0000 0000 | | .BLANK 0000[0x4]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 0092 0268 | h| Action Push_String_Extended,0x268 ; "\x1b]62;"
00f5 00db | | Load_Top At_Offset_3
00f6 01cc | | Execute Vector,Catenate
00f7 e21d | | Load 0x1,0x1d
00f8 01cc | | Execute Vector,Catenate
00f9 e004 | | Load 0x0,0x4
00fa 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00fb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00fc 0000 0000 | | .BLANK 0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 010e | | .CONST 0x010e ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0002 | | .CONST 0x0002 ; Number of locals
0103 INIT_0100:
0103 e21c | | Load 0x1,0x1c
0104 00db | | Load_Top At_Offset_3
0105 8220 | | Call 0x1,0x20
0106 01cc | | Execute Vector,Catenate
0107 0092 0269 | i| Action Push_String_Extended,0x269 ; ";"
0109 01cc | | Execute Vector,Catenate
010a e5fe | | Load 0x2,-0x2
010b 8220 | | Call 0x1,0x20
010c 01cc | | Execute Vector,Catenate
010d 0007 | | Action Break_Optional
010e BODY_0100:
010e e5f6 | | Load 0x2,-0xa
010f 01db | | Execute Vector,Length
0110 6826 |h& | Jump_Zero 0x137
0111 4818 |H | Short_Literal 0x18
0112 4818 |H | Short_Literal 0x18
0113 4818 |H | Short_Literal 0x18
0114 4818 |H | Short_Literal 0x18
0115 4818 |H | Short_Literal 0x18
0116 4818 |H | Short_Literal 0x18
0117 4818 |H | Short_Literal 0x18
0118 4818 |H | Short_Literal 0x18
0119 e402 | | Load 0x2,0x2
011a 01cb | | Execute Vector,Append
011b e5fd | | Load 0x2,-0x3
011c 01cc | | Execute Vector,Catenate
011d 01cb | | Execute Vector,Append
011e e5fc | | Load 0x2,-0x4
011f 01cc | | Execute Vector,Catenate
0120 01cb | | Execute Vector,Append
0121 e5fb | | Load 0x2,-0x5
0122 01cc | | Execute Vector,Catenate
0123 01cb | | Execute Vector,Append
0124 e5fa | | Load 0x2,-0x6
0125 01cc | | Execute Vector,Catenate
0126 01cb | | Execute Vector,Append
0127 e5f9 | | Load 0x2,-0x7
0128 01cc | | Execute Vector,Catenate
0129 01cb | | Execute Vector,Append
012a e5f8 | | Load 0x2,-0x8
012b 01cc | | Execute Vector,Catenate
012c 01cb | | Execute Vector,Append
012d e5f7 | | Load 0x2,-0x9
012e 01cc | | Execute Vector,Catenate
012f 01cb | | Execute Vector,Append
0130 e5f6 | | Load 0x2,-0xa
0131 01cc | | Execute Vector,Catenate
0132 e21d | | Load 0x1,0x1d
0133 01cc | | Execute Vector,Catenate
0134 e004 | | Load 0x0,0x4
0135 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0136 450b |E | Exit_Suprogram New_Top_Offset 0xb
0137 e5f7 | | Load 0x2,-0x9
0138 01db | | Execute Vector,Length
0139 6822 |h" | Jump_Zero 0x15c
013a 4818 |H | Short_Literal 0x18
013b 4818 |H | Short_Literal 0x18
013c 4818 |H | Short_Literal 0x18
013d 4818 |H | Short_Literal 0x18
013e 4818 |H | Short_Literal 0x18
013f 4818 |H | Short_Literal 0x18
0140 4818 |H | Short_Literal 0x18
0141 e402 | | Load 0x2,0x2
0142 01cb | | Execute Vector,Append
0143 e5fd | | Load 0x2,-0x3
0144 01cc | | Execute Vector,Catenate
0145 01cb | | Execute Vector,Append
0146 e5fc | | Load 0x2,-0x4
0147 01cc | | Execute Vector,Catenate
0148 01cb | | Execute Vector,Append
0149 e5fb | | Load 0x2,-0x5
014a 01cc | | Execute Vector,Catenate
014b 01cb | | Execute Vector,Append
014c e5fa | | Load 0x2,-0x6
014d 01cc | | Execute Vector,Catenate
014e 01cb | | Execute Vector,Append
014f e5f9 | | Load 0x2,-0x7
0150 01cc | | Execute Vector,Catenate
0151 01cb | | Execute Vector,Append
0152 e5f8 | | Load 0x2,-0x8
0153 01cc | | Execute Vector,Catenate
0154 01cb | | Execute Vector,Append
0155 e5f7 | | Load 0x2,-0x9
0156 01cc | | Execute Vector,Catenate
0157 e21d | | Load 0x1,0x1d
0158 01cc | | Execute Vector,Catenate
0159 e004 | | Load 0x0,0x4
015a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
015b 450b |E | Exit_Suprogram New_Top_Offset 0xb
015c e5f8 | | Load 0x2,-0x8
015d 01db | | Execute Vector,Length
015e 681e |h | Jump_Zero 0x17d
015f 4818 |H | Short_Literal 0x18
0160 4818 |H | Short_Literal 0x18
0161 4818 |H | Short_Literal 0x18
0162 4818 |H | Short_Literal 0x18
0163 4818 |H | Short_Literal 0x18
0164 4818 |H | Short_Literal 0x18
0165 e402 | | Load 0x2,0x2
0166 01cb | | Execute Vector,Append
0167 e5fd | | Load 0x2,-0x3
0168 01cc | | Execute Vector,Catenate
0169 01cb | | Execute Vector,Append
016a e5fc | | Load 0x2,-0x4
016b 01cc | | Execute Vector,Catenate
016c 01cb | | Execute Vector,Append
016d e5fb | | Load 0x2,-0x5
016e 01cc | | Execute Vector,Catenate
016f 01cb | | Execute Vector,Append
0170 e5fa | | Load 0x2,-0x6
0171 01cc | | Execute Vector,Catenate
0172 01cb | | Execute Vector,Append
0173 e5f9 | | Load 0x2,-0x7
0174 01cc | | Execute Vector,Catenate
0175 01cb | | Execute Vector,Append
0176 e5f8 | | Load 0x2,-0x8
0177 01cc | | Execute Vector,Catenate
0178 e21d | | Load 0x1,0x1d
0179 01cc | | Execute Vector,Catenate
017a e004 | | Load 0x0,0x4
017b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
017c 450b |E | Exit_Suprogram New_Top_Offset 0xb
017d e5f9 | | Load 0x2,-0x7
017e 01db | | Execute Vector,Length
017f 681a |h | Jump_Zero 0x19a
0180 4818 |H | Short_Literal 0x18
0181 4818 |H | Short_Literal 0x18
0182 4818 |H | Short_Literal 0x18
0183 4818 |H | Short_Literal 0x18
0184 4818 |H | Short_Literal 0x18
0185 e402 | | Load 0x2,0x2
0186 01cb | | Execute Vector,Append
0187 e5fd | | Load 0x2,-0x3
0188 01cc | | Execute Vector,Catenate
0189 01cb | | Execute Vector,Append
018a e5fc | | Load 0x2,-0x4
018b 01cc | | Execute Vector,Catenate
018c 01cb | | Execute Vector,Append
018d e5fb | | Load 0x2,-0x5
018e 01cc | | Execute Vector,Catenate
018f 01cb | | Execute Vector,Append
0190 e5fa | | Load 0x2,-0x6
0191 01cc | | Execute Vector,Catenate
0192 01cb | | Execute Vector,Append
0193 e5f9 | | Load 0x2,-0x7
0194 01cc | | Execute Vector,Catenate
0195 e21d | | Load 0x1,0x1d
0196 01cc | | Execute Vector,Catenate
0197 e004 | | Load 0x0,0x4
0198 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0199 450b |E | Exit_Suprogram New_Top_Offset 0xb
019a e5fa | | Load 0x2,-0x6
019b 01db | | Execute Vector,Length
019c 6816 |h | Jump_Zero 0x1b3
019d 4818 |H | Short_Literal 0x18
019e 4818 |H | Short_Literal 0x18
019f 4818 |H | Short_Literal 0x18
01a0 4818 |H | Short_Literal 0x18
01a1 e402 | | Load 0x2,0x2
01a2 01cb | | Execute Vector,Append
01a3 e5fd | | Load 0x2,-0x3
01a4 01cc | | Execute Vector,Catenate
01a5 01cb | | Execute Vector,Append
01a6 e5fc | | Load 0x2,-0x4
01a7 01cc | | Execute Vector,Catenate
01a8 01cb | | Execute Vector,Append
01a9 e5fb | | Load 0x2,-0x5
01aa 01cc | | Execute Vector,Catenate
01ab 01cb | | Execute Vector,Append
01ac e5fa | | Load 0x2,-0x6
01ad 01cc | | Execute Vector,Catenate
01ae e21d | | Load 0x1,0x1d
01af 01cc | | Execute Vector,Catenate
01b0 e004 | | Load 0x0,0x4
01b1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01b2 450b |E | Exit_Suprogram New_Top_Offset 0xb
01b3 e5fb | | Load 0x2,-0x5
01b4 01db | | Execute Vector,Length
01b5 6812 |h | Jump_Zero 0x1c8
01b6 4818 |H | Short_Literal 0x18
01b7 4818 |H | Short_Literal 0x18
01b8 4818 |H | Short_Literal 0x18
01b9 00db | | Load_Top At_Offset_3
01ba 01cb | | Execute Vector,Append
01bb e5fd | | Load 0x2,-0x3
01bc 01cc | | Execute Vector,Catenate
01bd 01cb | | Execute Vector,Append
01be e5fc | | Load 0x2,-0x4
01bf 01cc | | Execute Vector,Catenate
01c0 01cb | | Execute Vector,Append
01c1 e5fb | | Load 0x2,-0x5
01c2 01cc | | Execute Vector,Catenate
01c3 e21d | | Load 0x1,0x1d
01c4 01cc | | Execute Vector,Catenate
01c5 e004 | | Load 0x0,0x4
01c6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c7 450b |E | Exit_Suprogram New_Top_Offset 0xb
01c8 e5fc | | Load 0x2,-0x4
01c9 01db | | Execute Vector,Length
01ca 680e |h | Jump_Zero 0x1d9
01cb 4818 |H | Short_Literal 0x18
01cc 4818 |H | Short_Literal 0x18
01cd 00da | | Load_Top At_Offset_2
01ce 01cb | | Execute Vector,Append
01cf e5fd | | Load 0x2,-0x3
01d0 01cc | | Execute Vector,Catenate
01d1 01cb | | Execute Vector,Append
01d2 e5fc | | Load 0x2,-0x4
01d3 01cc | | Execute Vector,Catenate
01d4 e21d | | Load 0x1,0x1d
01d5 01cc | | Execute Vector,Catenate
01d6 e004 | | Load 0x0,0x4
01d7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01d8 450b |E | Exit_Suprogram New_Top_Offset 0xb
01d9 e5fd | | Load 0x2,-0x3
01da 01db | | Execute Vector,Length
01db 680a |h | Jump_Zero 0x1e6
01dc 4818 |H | Short_Literal 0x18
01dd 00d9 | | Load_Top At_Offset_1
01de 01cb | | Execute Vector,Append
01df e5fd | | Load 0x2,-0x3
01e0 01cc | | Execute Vector,Catenate
01e1 e21d | | Load 0x1,0x1d
01e2 01cc | | Execute Vector,Catenate
01e3 e004 | | Load 0x0,0x4
01e4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01e5 450b |E | Exit_Suprogram New_Top_Offset 0xb
01e6 00d8 | | Load_Top At_Offset_0
01e7 e21d | | Load 0x1,0x1d
01e8 01cc | | Execute Vector,Catenate
01e9 e004 | | Load 0x0,0x4
01ea 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01eb 450b |E | Exit_Suprogram New_Top_Offset 0xb
01ec 0000 0000 | | .BLANK 0000[0x4]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 00ea | | Load_Encached Null_String_Cache
01f4 00ea | | Load_Encached Null_String_Cache
01f5 00ea | | Load_Encached Null_String_Cache
01f6 e5fa | | Load 0x2,-0x6
01f7 e5fb | | Load 0x2,-0x5
01f8 e5fc | | Load 0x2,-0x4
01f9 e5fd | | Load 0x2,-0x3
01fa e5fe | | Load 0x2,-0x2
01fb e5ff | | Load 0x2,-0x1
01fc 480a |H | Short_Literal 0xa
01fd 8218 | | Call 0x1,0x18
01fe 4507 |E | Exit_Suprogram New_Top_Offset 0x7
01ff 0000 | | .XXX[0x1]
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 00ea | | Load_Encached Null_String_Cache
0204 00ea | | Load_Encached Null_String_Cache
0205 00ea | | Load_Encached Null_String_Cache
0206 00ea | | Load_Encached Null_String_Cache
0207 00ea | | Load_Encached Null_String_Cache
0208 e5fc | | Load 0x2,-0x4
0209 e5fd | | Load 0x2,-0x3
020a e5fe | | Load 0x2,-0x2
020b e5ff | | Load 0x2,-0x1
020c 4816 |H | Short_Literal 0x16
020d 8218 | | Call 0x1,0x18
020e 4505 |E | Exit_Suprogram New_Top_Offset 0x5
020f 0000 | | .XXX[0x1]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 4820 |H | Short_Literal 0x20
0214 4800 |H | Short_Literal 0x0
0215 480a |H | Short_Literal 0xa
0216 e5ff | | Load 0x2,-0x1
0217 e005 | | Load 0x0,0x5
0218 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0219 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021a 0000 0000 | | .BLANK 0000[0x6]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 022a | * | .CONST 0x022a ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0003 | | .CONST 0x0003 ; Number of locals
0223 INIT_0220:
0223 4801 |H | Short_Literal 0x1
0224 e404 | | Load 0x2,0x4
0225 00e9 | | Load_Encached String_Cache
0226 035b | [ | Declare_Type Array,Constrained
0227 0337 | 7 | Declare_Variable Array
0228 00e3 | | Load_Encached Natural_Cache
0229 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
022a BODY_0220:
022a 00cf | | Action Mark_Auxiliary
022b e405 | | Load 0x2,0x5
022c e404 | | Load 0x2,0x4
022d 027d | } | Execute Discrete,Greater
022e 6806 |h | Jump_Zero 0x235
022f 0092 026a | j| Action Push_String_Extended,0x26a ; "read past end"
0231 e002 | | Load 0x0,0x2
0232 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0233 e003 | | Load 0x0,0x3
0234 0257 | W | Execute Discrete,Raise
0235 e001 | | Load 0x0,0x1
0236 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0237 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0238 e402 | | Load 0x2,0x2
0239 e001 | | Load 0x0,0x1
023a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
023b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
023c c403 | | Store 0x2,0x3
023d e403 | | Load 0x2,0x3
023e e001 | | Load 0x0,0x1
023f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0240 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0241 a406 | | Store_Unchecked 0x2,0x6
0242 e405 | | Load 0x2,0x5
0243 0a01 | | Execute_Immediate Plus,0x1
0244 c405 | | Store 0x2,0x5
0245 e406 | | Load 0x2,0x6
0246 0f18 | | Execute_Immediate Equal,0x18
0247 7003 |p | Jump_Nonzero 0x24b
0248 e406 | | Load 0x2,0x6
0249 0f01 | | Execute_Immediate Equal,0x1
024a 680b |h | Jump_Zero 0x256
024b 4801 |H | Short_Literal 0x1
024c 00da | | Load_Top At_Offset_2
024d e602 | | Load 0x3,0x2
024e 01cf | | Execute Vector,Slice_Read
024f 85fe | | Call 0x2,-0x2
0250 4800 |H | Short_Literal 0x0
0251 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0252 e406 | | Load 0x2,0x6
0253 0f01 | | Execute_Immediate Equal,0x1
0254 700a |p | Jump_Nonzero 0x25f
0255 7807 |x | Jump 0x25d
0256 00d9 | | Load_Top At_Offset_1
0257 0a01 | | Execute_Immediate Plus,0x1
0258 005a | Z | Store_Top Discrete,At_Offset_2
0259 e406 | | Load 0x2,0x6
025a 00da | | Load_Top At_Offset_2
025b e602 | | Load 0x3,0x2
025c 01d6 | | Execute Vector,Field_Write
025d 00c9 | | Action Pop_Auxiliary_Loop
025e 7fcc | | Jump 0x22b
025f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0260 ; --------------------------------------------------------------------------------------
0260 ; STRING TABLE
0260 ; --------------------------------------------------------------------------------------
0260 0018 | | .STRTAB 0x0018->0x026c ; "\x1b]"
0261 0018 | | .STRTAB 0x0018->0x026d ; "\x07"
0262 0017 | | .STRTAB 0x0017->0x026d ; "bad_lead in"
0263 0020 | | .STRTAB 0x0020->0x0273 ; "Illegal char in length "
0264 0035 | 5 | .STRTAB 0x0035->0x027e ; "Excessive length"
0265 0043 | C | .STRTAB 0x0043->0x0286 ; "Dialog Box response read error."
0266 0060 | ` | .STRTAB 0x0060->0x0296 ; "\x1b]9;\x07"
0267 0063 | c | .STRTAB 0x0063->0x0298 ; "\x1b]8;"
0268 0065 | e | .STRTAB 0x0065->0x029a ; "\x1b]62;"
0269 0068 | h | .STRTAB 0x0068->0x029d ; ";"
026a 0067 | g | .STRTAB 0x0067->0x029d ; "read past end"
026b 0072 | r | .STREND 0x0072->0x02a4
026c 1b5d 0762 | ] b| .STRTAB_STRINGS
02a4 0000 0000 | | .BLANK 0000[0x4]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; Debug Table
02a8 ; --------------------------------------------------------------------------------------
02a8 0004 0011 | | .DEBUG4 0x0004,0x0011,0xfc86,0x0000,0x0001,0x0000
02ae 0000 0000 | | .BLANK 0000[0x1a]
02c8 0100 2800 | ( | .XXX[0xc]
02ca 0000 0000 | |
02cc 0002 0000 | |
02ce 0011 0000 | |
02d0 0000 0800 | |
02d2 0000 5000 | P |
02d4 0000 0000 | | .BLANK 0000[0x2d]
0301 0020 0500 | | .XXX[0xc]
0303 0000 0000 | |
0305 0000 4000 | @ |
0307 0002 2000 | |
0309 0000 0100 | |
030b 0000 0a00 | |
030d 0000 0000 | | .BLANK 0000[0x2d]
033a 0004 00a0 | | .XXX[0xc]
033c 0000 0000 | |
033e 0000 0800 | |
0340 0000 4400 | D |
0342 0000 0020 | |
0344 0000 0140 | @|
0346 0000 0000 | | .BLANK 0000[0x2e]
0374 8014 0000 | | .XXX[0xb]
0376 0000 0000 | |
0378 0100 0000 | |
037a 0880 0000 | |
037c 0004 0000 | |
037e 0028 | ( |
037f 0000 0000 | | .BLANK 0000[0x2e]
03ad 1002 8000 | | .XXX[0xb]
03af 0000 0000 | |
03b1 0020 0000 | |
03b3 0110 0000 | |
03b5 0000 8000 | |
03b7 0005 | |
03b8 0000 0000 | | .BLANK 0000[0x48]