|
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 0248 | H | .CONST 0x0248 ; 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 00c2 | | .CONST 0x00c2 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003e | > | .CONST 0x003e ; Number of locals
000b INIT_0008:
000b 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
000d 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
000f 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0011 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0013 e001 | | Load 0x0,0x1
0014 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0015 e002 | | Load 0x0,0x2
0016 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0017 e003 | | Load 0x0,0x3
0018 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0019 e004 | | Load 0x0,0x4
001a 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
001b e005 | | Load 0x0,0x5
001c 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
001d e006 | | Load 0x0,0x6
001e 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
001f e007 | | Load 0x0,0x7
0020 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0021 e008 | | Load 0x0,0x8
0022 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0023 e009 | | Load 0x0,0x9
0024 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0025 e00a | | Load 0x0,0xa
0026 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0027 e00b | | Load 0x0,0xb
0028 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0029 e00c | | Load 0x0,0xc
002a 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
002b e00d | | Load 0x0,0xd
002c 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
002d e00e | | Load 0x0,0xe
002e 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
002f e00f | | Load 0x0,0xf
0030 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0031 e010 | | Load 0x0,0x10
0032 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0033 e011 | | Load 0x0,0x11
0034 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0035 e012 | | Load 0x0,0x12
0036 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0037 e013 | | Load 0x0,0x13
0038 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0039 e014 | | Load 0x0,0x14
003a 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
003b e015 | | Load 0x0,0x15
003c 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
003d e016 | | Load 0x0,0x16
003e 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
003f e017 | | Load 0x0,0x17
0040 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0041 e018 | | Load 0x0,0x18
0042 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0043 e019 | | Load 0x0,0x19
0044 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0045 e01a | | Load 0x0,0x1a
0046 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0047 e01b | | Load 0x0,0x1b
0048 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0049 00bf | | Action Accept_Activation
004a e01c | | Load 0x0,0x1c
004b e01d | | Load 0x0,0x1d
004c 4814 |H | Short_Literal 0x14
004d e01e | | Load 0x0,0x1e
004e 0387 | | Declare_Variable Package
004f 00d8 | | Load_Top At_Offset_0
0050 020f | | Execute Module,Activate
0051 0092 021e | | Action Push_String_Extended,0x21e ; "........................................"
0053 e01f | | Load 0x0,0x1f
0054 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0055 191a | | Execute Package,Field_Reference,Field_Number 0x1a
0056 0007 | | Action Break_Optional
0057 e020 | | Load 0x0,0x20
0058 1b58 | X | Execute Package,Field_Read,Field_Number 0x58
0059 1919 | | Execute Package,Field_Reference,Field_Number 0x19
005a 0007 | | Action Break_Optional
005b e021 | ! | Load 0x0,0x21
005c 1916 | | Execute Package,Field_Reference,Field_Number 0x16
005d 0007 | | Action Break_Optional
005e e022 | " | Load 0x0,0x22
005f 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0060 190d | | Execute Package,Field_Reference,Field_Number 0xd
0061 0007 | | Action Break_Optional
0062 e022 | " | Load 0x0,0x22
0063 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0064 190e | | Execute Package,Field_Reference,Field_Number 0xe
0065 0007 | | Action Break_Optional
0066 e022 | " | Load 0x0,0x22
0067 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0068 191b | | Execute Package,Field_Reference,Field_Number 0x1b
0069 0007 | | Action Break_Optional
006a e022 | " | Load 0x0,0x22
006b 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
006c 191c | | Execute Package,Field_Reference,Field_Number 0x1c
006d 0007 | | Action Break_Optional
006e 0092 021f | | Action Push_String_Extended,0x21f ; ",\x0a"
0070 0092 0220 | | Action Push_String_Extended,0x220 ; "*** Undefined"
0072 0092 0221 | !| Action Push_String_Extended,0x221 ; "*** Unused"
0074 0092 0222 | "| Action Push_String_Extended,0x222 ; "TBD"
0076 029b 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Unelaborated
0078 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
0079 00c7 | | Action Elaborate_Subprogram
007a 029d 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call
007c 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call
007e 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call
0080 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call
0082 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call
0084 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0085 00c7 | | Action Elaborate_Subprogram
0086 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0087 00c7 | | Action Elaborate_Subprogram
0088 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0089 00c7 | | Action Elaborate_Subprogram
008a 1d10 | | Execute_Immediate Reference_Lex_1,0x10
008b 00c7 | | Action Elaborate_Subprogram
008c 1d20 | | Execute_Immediate Reference_Lex_1,0x20
008d 00c7 | | Action Elaborate_Subprogram
008e 1d18 | | Execute_Immediate Reference_Lex_1,0x18
008f 00c7 | | Action Elaborate_Subprogram
0090 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0091 00c7 | | Action Elaborate_Subprogram
0092 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0093 00c7 | | Action Elaborate_Subprogram
0094 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0095 00c7 | | Action Elaborate_Subprogram
0096 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0097 00c7 | | Action Elaborate_Subprogram
0098 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0099 00c7 | | Action Elaborate_Subprogram
009a 1d16 | | Execute_Immediate Reference_Lex_1,0x16
009b 00c7 | | Action Elaborate_Subprogram
009c 1d15 | | Execute_Immediate Reference_Lex_1,0x15
009d 00c7 | | Action Elaborate_Subprogram
009e 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
009f 00c7 | | Action Elaborate_Subprogram
00a0 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00a1 00c7 | | Action Elaborate_Subprogram
00a2 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00a3 00c7 | | Action Elaborate_Subprogram
00a4 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00a5 00c7 | | Action Elaborate_Subprogram
00a6 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00a7 00c7 | | Action Elaborate_Subprogram
00a8 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00a9 00c7 | | Action Elaborate_Subprogram
00aa 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00ab 00c7 | | Action Elaborate_Subprogram
00ac 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00ad 00c7 | | Action Elaborate_Subprogram
00ae 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00af 00c7 | | Action Elaborate_Subprogram
00b0 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00b1 00c7 | | Action Elaborate_Subprogram
00b2 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00b3 00c7 | | Action Elaborate_Subprogram
00b4 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00b5 00c7 | | Action Elaborate_Subprogram
00b6 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00b7 00c7 | | Action Elaborate_Subprogram
00b8 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00b9 00c7 | | Action Elaborate_Subprogram
00ba 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00bb 00c7 | | Action Elaborate_Subprogram
00bc 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00bd 00c7 | | Action Elaborate_Subprogram
00be 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00bf 00c7 | | Action Elaborate_Subprogram
00c0 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00c1 00c7 | | Action Elaborate_Subprogram
00c2 BODY_0008:
00c2 00bc | | Action Signal_Activated
00c3 00bb | | Action Signal_Completion
00c4 0000 0000 | | .BLANK 0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb e5fb | | Load 0x2,-0x5
00cc e5fc | | Load 0x2,-0x4
00cd e5fd | | Load 0x2,-0x3
00ce e5fe | | Load 0x2,-0x2
00cf e5ff | | Load 0x2,-0x1
00d0 e022 | " | Load 0x0,0x22
00d1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00d2 e023 | # | Load 0x0,0x23
00d3 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
00d4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00d5 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00d6 0000 0000 | | .XXX[0x2]
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 e5fb | | Load 0x2,-0x5
00dc e5fc | | Load 0x2,-0x4
00dd e5fd | | Load 0x2,-0x3
00de e5fe | | Load 0x2,-0x2
00df e5ff | | Load 0x2,-0x1
00e0 e022 | " | Load 0x0,0x22
00e1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00e2 e023 | # | Load 0x0,0x23
00e3 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
00e4 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e5 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00e6 0000 0000 | | .XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00ed | | .CONST 0x00ed ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0002 | | .CONST 0x0002 ; Number of locals
00eb INIT_00e8:
00eb 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call
00ed BODY_00e8:
00ed e5fc | | Load 0x2,-0x4
00ee 6802 |h | Jump_Zero 0xf1
00ef 8402 | | Call 0x2,0x2
00f0 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00f1 e5fd | | Load 0x2,-0x3
00f2 e5fe | | Load 0x2,-0x2
00f3 e5ff | | Load 0x2,-0x1
00f4 e022 | " | Load 0x0,0x22
00f5 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00f6 e023 | # | Load 0x0,0x23
00f7 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
00f8 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00f9 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00fa 0000 0000 | | .BLANK 0000[0x6]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00db | | Load_Top At_Offset_3
0104 00db | | Load_Top At_Offset_3
0105 e022 | " | Load 0x0,0x22
0106 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0107 e023 | # | Load 0x0,0x23
0108 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0109 181e | | Execute Package,Field_Execute,Field_Number 0x1e
010a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
010b 0000 0000 | | .BLANK 0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 4801 |H | Short_Literal 0x1
0114 e022 | " | Load 0x0,0x22
0115 1b89 | | Execute Package,Field_Read,Field_Number 0x89
0116 e5ff | | Load 0x2,-0x1
0117 e024 | $ | Load 0x0,0x24
0118 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
0119 e025 | % | Load 0x0,0x25
011a 180f | | Execute Package,Field_Execute,Field_Number 0xf
011b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
011c 0000 0000 | | .BLANK 0000[0x4]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00cf | | Action Mark_Auxiliary
0124 7805 |x | Jump 0x12a
0125 00db | | Load_Top At_Offset_3
0126 e026 | & | Load 0x0,0x26
0127 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0128 c5ff | | Store 0x2,-0x1
0129 00c9 | | Action Pop_Auxiliary_Loop
012a 00db | | Load_Top At_Offset_3
012b e026 | & | Load 0x0,0x26
012c 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
012d 77f7 |w | Jump_Nonzero 0x125
012e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
012f 0000 | | .XXX[0x1]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0136 | 6 | .CONST 0x0136 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0002 | | .CONST 0x0002 ; Number of locals
0133 INIT_0130:
0133 e027 | ' | Load 0x0,0x27
0134 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0135 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0136 BODY_0130:
0136 e5fd | | Load 0x2,-0x3
0137 e028 | ( | Load 0x0,0x28
0138 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0139 e5ff | | Load 0x2,-0x1
013a e01f | | Load 0x0,0x1f
013b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
013c 180e | | Execute Package,Field_Execute,Field_Number 0xe
013d 0031 | 1 | Store_Top Heap_Access,At_Offset_1
013e 00d8 | | Load_Top At_Offset_0
013f e027 | ' | Load 0x0,0x27
0140 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0141 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0142 6809 |h | Jump_Zero 0x14c
0143 4801 |H | Short_Literal 0x1
0144 480d |H | Short_Literal 0xd
0145 e022 | " | Load 0x0,0x22
0146 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0147 e023 | # | Load 0x0,0x23
0148 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0149 00ea | | Load_Encached Null_String_Cache
014a 820f | | Call 0x1,0xf
014b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
014c 4801 |H | Short_Literal 0x1
014d 480d |H | Short_Literal 0xd
014e e022 | " | Load 0x0,0x22
014f 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0150 00ea | | Load_Encached Null_String_Cache
0151 4800 |H | Short_Literal 0x0
0152 e5fd | | Load 0x2,-0x3
0153 e022 | " | Load 0x0,0x22
0154 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0155 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0156 e5fe | | Load 0x2,-0x2
0157 e5fd | | Load 0x2,-0x3
0158 e022 | " | Load 0x0,0x22
0159 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
015a 180e | | Execute Package,Field_Execute,Field_Number 0xe
015b 820f | | Call 0x1,0xf
015c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
015d 0000 0000 | | .XXX[0x3]
015f 0000 | |
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 016d | m | .CONST 0x016d ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0003 | | .CONST 0x0003 ; Number of locals
0163 INIT_0160:
0163 e027 | ' | Load 0x0,0x27
0164 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0165 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0166 e020 | | Load 0x0,0x20
0167 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0168 02c7 | | Declare_Variable Any
0169 e5fd | | Load 0x2,-0x3
016a e026 | & | Load 0x0,0x26
016b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
016c a403 | | Store_Unchecked 0x2,0x3
016d BODY_0160:
016d e5fd | | Load 0x2,-0x3
016e e028 | ( | Load 0x0,0x28
016f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0170 e5ff | | Load 0x2,-0x1
0171 e01f | | Load 0x0,0x1f
0172 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0173 180e | | Execute Package,Field_Execute,Field_Number 0xe
0174 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0175 00d9 | | Load_Top At_Offset_1
0176 e027 | ' | Load 0x0,0x27
0177 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0178 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0179 680a |h | Jump_Zero 0x184
017a 4801 |H | Short_Literal 0x1
017b 480d |H | Short_Literal 0xd
017c e022 | " | Load 0x0,0x22
017d 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
017e e5fc | | Load 0x2,-0x4
017f e5fe | | Load 0x2,-0x2
0180 e403 | | Load 0x2,0x3
0181 8232 | 2 | Call 0x1,0x32
0182 820f | | Call 0x1,0xf
0183 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0184 4801 |H | Short_Literal 0x1
0185 480d |H | Short_Literal 0xd
0186 e022 | " | Load 0x0,0x22
0187 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0188 00ea | | Load_Encached Null_String_Cache
0189 4800 |H | Short_Literal 0x0
018a e5fd | | Load 0x2,-0x3
018b e022 | " | Load 0x0,0x22
018c 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
018d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
018e 00ea | | Load_Encached Null_String_Cache
018f e402 | | Load 0x2,0x2
0190 e01f | | Load 0x0,0x1f
0191 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0192 180f | | Execute Package,Field_Execute,Field_Number 0xf
0193 820f | | Call 0x1,0xf
0194 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0195 0000 0000 | | .XXX[0x3]
0197 0000 | |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019e | | .CONST 0x019e ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b e027 | ' | Load 0x0,0x27
019c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
019d 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
019e BODY_0198:
019e e5fb | | Load 0x2,-0x5
019f e5ff | | Load 0x2,-0x1
01a0 e01f | | Load 0x0,0x1f
01a1 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01a2 180e | | Execute Package,Field_Execute,Field_Number 0xe
01a3 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01a4 00d8 | | Load_Top At_Offset_0
01a5 e027 | ' | Load 0x0,0x27
01a6 1b20 | | Execute Package,Field_Read,Field_Number 0x20
01a7 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01a8 680a |h | Jump_Zero 0x1b3
01a9 4801 |H | Short_Literal 0x1
01aa 480d |H | Short_Literal 0xd
01ab e022 | " | Load 0x0,0x22
01ac 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
01ad e5fa | | Load 0x2,-0x6
01ae e5fe | | Load 0x2,-0x2
01af e5fc | | Load 0x2,-0x4
01b0 8232 | 2 | Call 0x1,0x32
01b1 820f | | Call 0x1,0xf
01b2 4507 |E | Exit_Suprogram New_Top_Offset 0x7
01b3 4801 |H | Short_Literal 0x1
01b4 480d |H | Short_Literal 0xd
01b5 e022 | " | Load 0x0,0x22
01b6 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
01b7 00ea | | Load_Encached Null_String_Cache
01b8 4800 |H | Short_Literal 0x0
01b9 e5fd | | Load 0x2,-0x3
01ba e022 | " | Load 0x0,0x22
01bb 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01bc 00ea | | Load_Encached Null_String_Cache
01bd e402 | | Load 0x2,0x2
01be e01f | | Load 0x0,0x1f
01bf 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01c0 180f | | Execute Package,Field_Execute,Field_Number 0xf
01c1 820f | | Call 0x1,0xf
01c2 4507 |E | Exit_Suprogram New_Top_Offset 0x7
01c3 0000 0000 | | .BLANK 0000[0x5]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01ce | | .CONST 0x01ce ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0002 | | .CONST 0x0002 ; Number of locals
01cb INIT_01c8:
01cb e027 | ' | Load 0x0,0x27
01cc 1b20 | | Execute Package,Field_Read,Field_Number 0x20
01cd 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
01ce BODY_01c8:
01ce e5fb | | Load 0x2,-0x5
01cf e5ff | | Load 0x2,-0x1
01d0 e01f | | Load 0x0,0x1f
01d1 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01d2 180e | | Execute Package,Field_Execute,Field_Number 0xe
01d3 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01d4 00d8 | | Load_Top At_Offset_0
01d5 e027 | ' | Load 0x0,0x27
01d6 1b20 | | Execute Package,Field_Read,Field_Number 0x20
01d7 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01d8 680a |h | Jump_Zero 0x1e3
01d9 4801 |H | Short_Literal 0x1
01da 480d |H | Short_Literal 0xd
01db e022 | " | Load 0x0,0x22
01dc 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
01dd e5fa | | Load 0x2,-0x6
01de e5fe | | Load 0x2,-0x2
01df e5fc | | Load 0x2,-0x4
01e0 8232 | 2 | Call 0x1,0x32
01e1 820f | | Call 0x1,0xf
01e2 4507 |E | Exit_Suprogram New_Top_Offset 0x7
01e3 4801 |H | Short_Literal 0x1
01e4 480d |H | Short_Literal 0xd
01e5 e022 | " | Load 0x0,0x22
01e6 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
01e7 00ea | | Load_Encached Null_String_Cache
01e8 4800 |H | Short_Literal 0x0
01e9 e5fd | | Load 0x2,-0x3
01ea e022 | " | Load 0x0,0x22
01eb 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
01ec 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01ed 00ea | | Load_Encached Null_String_Cache
01ee e402 | | Load 0x2,0x2
01ef e01f | | Load 0x0,0x1f
01f0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01f1 180f | | Execute Package,Field_Execute,Field_Number 0xf
01f2 820f | | Call 0x1,0xf
01f3 4507 |E | Exit_Suprogram New_Top_Offset 0x7
01f4 0000 0000 | | .BLANK 0000[0x4]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0204 | | .CONST 0x0204 ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0002 | | .CONST 0x0002 ; Number of locals
01fb INIT_01f8:
01fb e5ff | | Load 0x2,-0x1
01fc 01da | | Execute Vector,Bounds
01fd e023 | # | Load 0x0,0x23
01fe 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01ff 035b | [ | Declare_Type Array,Constrained
0200 0337 | 7 | Declare_Variable Array
0201 e5ff | | Load 0x2,-0x1
0202 00d9 | | Load_Top At_Offset_1
0203 01d4 | | Execute Vector,Structure_Write
0204 BODY_01f8:
0204 00cf | | Action Mark_Auxiliary
0205 00d9 | | Load_Top At_Offset_1
0206 01d9 | | Execute Vector,Reverse_Bounds
0207 0263 | c | Execute Discrete,Above_Bound
0208 700b |p | Jump_Nonzero 0x214
0209 00d8 | | Load_Top At_Offset_0
020a e602 | | Load 0x3,0x2
020b 01d7 | | Execute Vector,Field_Read
020c 0f0a | | Execute_Immediate Equal,0xa
020d 6804 |h | Jump_Zero 0x212
020e 4820 |H | Short_Literal 0x20
020f 00d9 | | Load_Top At_Offset_1
0210 e602 | | Load 0x3,0x2
0211 01d6 | | Execute Vector,Field_Write
0212 00c8 | | Action Pop_Auxiliary_Range
0213 3ff5 |? | Loop_Increasing 0x209
0214 00ce | | Action Pop_Auxiliary
0215 e5fd | | Load 0x2,-0x3
0216 e5fe | | Load 0x2,-0x2
0217 00da | | Load_Top At_Offset_2
0218 e022 | " | Load 0x0,0x22
0219 1819 | | Execute Package,Field_Execute,Field_Number 0x19
021a e023 | # | Load 0x0,0x23
021b 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
021c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
021d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
021e ; --------------------------------------------------------------------------------------
021e ; STRING TABLE
021e ; --------------------------------------------------------------------------------------
021e 000c | | .STRTAB 0x000c->0x0224 ; "........................................"
021f 0032 | 2 | .STRTAB 0x0032->0x0238 ; ",\x0a"
0220 0032 | 2 | .STRTAB 0x0032->0x0239 ; "*** Undefined"
0221 003d | = | .STRTAB 0x003d->0x023f ; "*** Unused"
0222 0045 | E | .STRTAB 0x0045->0x0244 ; "TBD"
0223 0046 | F | .STREND 0x0046->0x0246
0224 2e2e 2e2e |....| .STRTAB_STRINGS
0246 0000 0000 | | .XXX[0x2]
0248 ; --------------------------------------------------------------------------------------
0248 ; Debug Table
0248 ; --------------------------------------------------------------------------------------
0248 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc81,0x0000,0x0001,0x0000
024e d6ba a95b | [| .XXX[0x1b2]
0250 023a b55a | : Z|
0252 6b0f 0e38 |k 8|
0254 5a86 770e |Z w |
0256 d158 6687 | Xf |
0258 fc68 6e84 | hn |
025a 246e 8f0e |$n |
025c 85c0 5804 | X |
025e d403 3e3a | >:|
0260 cb0f 2d9b | - |
0262 030e af0d | |
0264 88f2 b70f | |
0266 255b 0568 |%[ h|
0268 a286 9f0c | |
026a 7038 fe84 |p8 |
026c c0ce 30d1 | 0 |
026e 0a86 d9c2 | |
0270 8420 c687 | |
0272 7850 ce87 |xP |
0274 8467 d717 | g |
0276 9e3a 204d | : M|
0278 8cf3 aa3b | ;|
027a 8844 e403 | D |
027c 9958 e46e | X n|
027e de25 2c6f | %,o|
0280 2b0c b01c |+ |
0282 f753 370c | S7 |
0284 c06e 8a8f | n |
0286 2198 f003 |! |
0288 4b0d 8c3b |K ;|
028a f639 fcf3 | 9 |
028c 5f0c 023e |_ >|
028e 0cf3 69c3 | i |
0290 6f0e a8cd |o |
0292 de23 a509 | # |
0294 99b8 d803 | |
0296 8b0f a05c | \|
0298 5c13 a838 |\ 8|
029a 919e c568 | h|
029c cc53 ab0e | S |
029e b439 7f0c | 9 |
02a0 b19d 7042 | pB|
02a2 70cc c19f |p |
02a4 f430 c99f | 0 |
02a6 df0e 0752 | R|
02a8 5621 ca87 |V! |
02aa 44cf f70d |D |
02ac 1037 54cf | 7T |
02ae 5cb1 7040 |\ p@|
02b0 7601 11d8 |v |
02b2 a03e be99 | > |
02b4 f287 442e | D.|
02b6 2076 f538 | v 8|
02b8 0c15 40ed | @ |
02ba 2d9c 5034 |- P4|
02bc cc53 a8cc | S |
02be 4b11 ff88 |K |
02c0 5312 be22 |S "|
02c2 1b88 5f12 | _ |
02c4 b43b eccc | ; |
02c6 cc50 6f13 | Po |
02c8 e8ce f834 | 4|
02ca 3dca 5286 |= R |
02cc 6ecb b4e2 |n |
02ce 7ac9 4050 |z @P|
02d0 9d3a 6e86 | :n |
02d2 0826 1565 | & e|
02d4 bc20 a710 | |
02d6 3208 38d1 |2 8 |
02d8 7042 9e84 |pB |
02da cf11 f5a2 | |
02dc aa85 d99f | |
02de 4a22 8f13 |J" |
02e0 d53b d710 | ; |
02e2 78d0 b99c |x |
02e4 fb0b f139 | 9|
02e6 030a da85 | |
02e8 60db 7e21 |` ~!|
02ea 1308 277a | 'z|
02ec ee87 eb12 | |
02ee f684 3b32 | ;2|
02f0 39a8 f024 |9 $|
02f2 2d3d 370b |-=7 |
02f4 aa21 3f0a | !? |
02f6 519f 1e84 |Q |
02f8 553d e093 |U= |
02fa 2a87 ca22 |* "|
02fc c03f 3684 | ?6 |
02fe 793c 1874 |y< t|
0300 7abf 322d |z 2-|
0302 770b 4e86 |w N |
0304 f82f 5684 | /V |
0306 673f 6285 |g?b |
0308 9f08 b53e | >|
030a dc37 a685 | 7 |
030c a30a c59d | |
030e ab0b 8284 | |
0310 2a25 b70b |*% |
0312 925b 9284 | [ |
0314 ed3c 31c6 | <1 |
0316 f19c 4a27 | J'|
0318 119f 019d | |
031a d70b a687 | |
031c ba85 e4d1 | |
031e eb08 6e27 | n'|
0320 a837 ce86 | 7 |
0322 04d3 d685 | |
0324 3abd d4c4 |: |
0326 930b 8886 | |
0328 3041 513f |0AQ?|
032a 3940 d465 |9@ e|
032c dc20 aa25 | %|
032e f458 b70b | X |
0330 319f c837 |1 7|
0332 759c c709 |u |
0334 8c5e 20c4 | ^ |
0336 2534 268b |%4& |
0338 c04b 770a | Kw |
033a 2ccd ecc4 |, |
033c 4a89 a69e |J |
033e 205d 0b12 | ] |
0340 2f15 1a25 |/ %|
0342 7a39 45a9 |z9E |
0344 1f12 0a8d | |
0346 2e9f 495d |. I]|
0348 2f13 f59d |/ |
034a e93f fd9d | ? |
034c 3f11 1034 |? 4|
034e 09a0 44d2 | D |
0350 a285 6310 | c |
0352 1da1 6b12 | k |
0354 c0d3 bcbc | |
0356 84d8 35a1 | 5 |
0358 58cf 0302 |X |
035a e0d0 ee89 | |
035c 1b83 5a80 | Z |
035e eb19 d33a | :|
0360 a1db fc8f | |
0362 0299 bb11 | |
0364 1a89 cb11 | |
0366 2289 e225 |" %|
0368 d02d db10 | - |
036a fe29 e311 | ) |
036c d89b bcbd | |
036e 4a8a 0a26 |J &|
0370 7d41 a381 |}A |
0372 0029 5e8a | )^ |
0374 a432 0b11 | 2 |
0376 1716 1312 | |
0378 9d4a 1b11 | J |
037a 98be 2310 | # |
037c f1a0 3a3a | ::|
037e 2f10 ae8d |/ |
0380 09a1 9e8a | |
0382 3f11 a68a |? |
0384 4711 b28b |G |
0386 293d 168d |)= |
0388 31a3 6c3b |1 l;|
038a 917e 3cc6 | ~< |
038c 30f3 513e |0 Q>|
038e 9627 cb8b | ' |
0390 613c 5c10 |a<\ |
0392 b5a3 ac3b | ;|
0394 713c 0b04 |q< |
0396 ae7c 1304 | | |
0398 b67c 1b06 | | |
039a 88c4 2305 | # |
039c 89a0 2b05 | + |
039e fc44 3307 | D3 |
03a0 564d a1a3 |VM |
03a2 1068 5f42 | h_B|
03a4 d0c4 ea7e | ~|
03a6 b5d5 c1a3 | |
03a8 6df8 56ac |m V |
03aa fe7c 6706 | |g |
03ac f4c7 81fa | |
03ae 8027 00c4 | ' |
03b0 7b07 cc41 |{ A|
03b2 227e 5308 |"~S |
03b4 0626 6708 | &g |
03b6 9706 5b09 | [ |
03b8 04d8 a707 | |
03ba c5f9 527e | R~|
03bc 49bb 6cc5 |I l |
03be 4455 667e |DUf~|
03c0 49a3 e4d1 |I |
03c2 767c d705 |v| |
03c4 7e7f 8c20 |~ |
03c6 01fd ac56 | V|
03c8 338c 0dfc |3 |
03ca fb07 c4c5 | |
03cc 2304 1dfd |# |
03ce cc3c f727 | < '|
03d0 8d55 1706 | U |
03d2 5780 35fd |W 5 |
03d4 f43e ac4c | > L|
03d6 32a3 d1a3 |2 |
03d8 0c75 d67e | u ~|
03da 75b9 6994 |u i |
03dc f438 e941 | 8 A|
03de b70f 2ea6 | . |
03e0 403c fd41 |@< A|
03e2 fe7c 75fd | |u |
03e4 402d 6f04 |@-o |
03e6 0025 7704 | %w |
03e8 7524 cc52 |u$ R|
03ea 1e7f d9cb | |
03ec f875 3729 | u7)|
03ee 9307 fd03 | |
03f0 21a1 9f04 |! |
03f2 a8c8 c9fd | |
03f4 5140 c5fc |Q@ |
03f6 bcc8 608b | ` |
03f8 e677 6c21 | wl!|
03fa bf05 78c9 | x |
03fc c704 e0c9 | |
03fe cf06 627c | b||