|
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_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 02b0 | | .CONST 0x02b0 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0050 | P | .CONST 0x0050 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000d | | .CONST 0x000d ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
001d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
001e 02c7 | | Declare_Variable Any
001f 00d8 | | Load_Top At_Offset_0
0020 1c00 | | Execute_Immediate Run_Utility,0x0
0021 e002 | | Load 0x0,0x2
0022 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0023 02c7 | | Declare_Variable Any
0024 00d8 | | Load_Top At_Offset_0
0025 1c00 | | Execute_Immediate Run_Utility,0x0
0026 00ec | | Load_Encached Diana_Tree_Cache
0027 e002 | | Load 0x0,0x2
0028 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0029 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002a e002 | | Load 0x0,0x2
002b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002c 4800 |H | Short_Literal 0x0
002d 6066 |`f | Indirect_Literal Discrete,0x94,{0x00000000, 0x0000ffff}
002e 00e5 | | Load_Encached Long_Integer_Cache
002f 03f8 | | Declare_Type Discrete,Constrained
0030 4800 |H | Short_Literal 0x0
0031 4802 |H | Short_Literal 0x2
0032 e001 | | Load 0x0,0x1
0033 01d7 | | Execute Vector,Field_Read
0034 02a0 | | Declare_Subprogram Null_Subprogram
0035 038e | | Declare_Type Package,Defined
0036 e001 | | Load 0x0,0x1
0037 4801 |H | Short_Literal 0x1
0038 e001 | | Load 0x0,0x1
0039 01d7 | | Execute Vector,Field_Read
003a 4802 |H | Short_Literal 0x2
003b 00db | | Load_Top At_Offset_3
003c 020e | | Execute Module,Augment_Imports
003d 0387 | | Declare_Variable Package
003e 00d9 | | Load_Top At_Offset_1
003f e003 | | Load 0x0,0x3
0040 e004 | | Load 0x0,0x4
0041 4803 |H | Short_Literal 0x3
0042 e408 | | Load 0x2,0x8
0043 020e | | Execute Module,Augment_Imports
0044 00d8 | | Load_Top At_Offset_0
0045 020f | | Execute Module,Activate
0046 029f 009b | | Declare_Subprogram INIT_0098,For_Call
0048 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
004a 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
004c 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
004e 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call
0050 BODY_0018:
0050 e002 | | Load 0x0,0x2
0051 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0052 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0053 e402 | | Load 0x2,0x2
0054 603b |`; | Indirect_Literal Discrete,0x90,{0x00000000, 0x00004000}
0055 e005 | | Load 0x0,0x5
0056 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0057 e006 | | Load 0x0,0x6
0058 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0059 e007 | | Load 0x0,0x7
005a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
005b 4801 |H | Short_Literal 0x1
005c 4800 |H | Short_Literal 0x0
005d e006 | | Load 0x0,0x6
005e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
005f e002 | | Load 0x0,0x2
0060 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0061 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0062 e5ff | | Load 0x2,-0x1
0063 e002 | | Load 0x0,0x2
0064 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0065 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0066 c402 | | Store 0x2,0x2
0067 c405 | | Store 0x2,0x5
0068 e002 | | Load 0x0,0x2
0069 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006a e403 | | Load 0x2,0x3
006b 0120 | | Execute Any,Is_Value
006c 6803 |h | Jump_Zero 0x70
006d e002 | | Load 0x0,0x2
006e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
006f 7801 |x | Jump 0x71
0070 e403 | | Load 0x2,0x3
0071 e402 | | Load 0x2,0x2
0072 e002 | | Load 0x0,0x2
0073 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0074 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0075 c403 | | Store 0x2,0x3
0076 c406 | | Store 0x2,0x6
0077 e403 | | Load 0x2,0x3
0078 8409 | | Call 0x2,0x9
0079 a404 | | Store_Unchecked 0x2,0x4
007a 4802 |H | Short_Literal 0x2
007b e008 | | Load 0x0,0x8
007c 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
007d 0092 0211 | | Action Push_String_Extended,0x211 ; "Debug Table Information For Unit"
007f e008 | | Load 0x0,0x8
0080 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0081 4801 |H | Short_Literal 0x1
0082 e008 | | Load 0x0,0x8
0083 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0084 e404 | | Load 0x2,0x4
0085 840a | | Call 0x2,0xa
0086 4802 |H | Short_Literal 0x2
0087 e008 | | Load 0x0,0x8
0088 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0089 0092 0212 | | Action Push_String_Extended,0x212 ; "By Subprogram =>"
008b e008 | | Load 0x0,0x8
008c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
008d 840d | | Call 0x2,0xd
008e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
008f 0000 | | .XXX[0x1]
0090 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0094 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00b1 | | .CONST 0x00b1 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0006 | | .CONST 0x0006 ; Number of locals
009b INIT_0098:
009b e002 | | Load 0x0,0x2
009c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
009d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
009e 02c7 | | Declare_Variable Any
009f 00db | | Load_Top At_Offset_3
00a0 e002 | | Load 0x0,0x2
00a1 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00a2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00a3 a602 | | Store_Unchecked 0x3,0x2
00a4 00ec | | Load_Encached Diana_Tree_Cache
00a5 e002 | | Load 0x0,0x2
00a6 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00a7 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00a8 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00a9 e002 | | Load 0x0,0x2
00aa 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00ab 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
00ac 02c7 | | Declare_Variable Any
00ad 00d8 | | Load_Top At_Offset_0
00ae 1c00 | | Execute_Immediate Run_Utility,0x0
00af e002 | | Load 0x0,0x2
00b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b1 BODY_0098:
00b1 e002 | | Load 0x0,0x2
00b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b3 00da | | Load_Top At_Offset_2
00b4 0120 | | Execute Any,Is_Value
00b5 6804 |h | Jump_Zero 0xba
00b6 e002 | | Load 0x0,0x2
00b7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00b8 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
00b9 7801 |x | Jump 0xbb
00ba 00da | | Load_Top At_Offset_2
00bb e002 | | Load 0x0,0x2
00bc 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00bd 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00be 67d1 |g | Indirect_Literal Discrete,0x90,{0x00000000, 0x00004000}
00bf 4801 |H | Short_Literal 0x1
00c0 4800 |H | Short_Literal 0x0
00c1 4800 |H | Short_Literal 0x0
00c2 e005 | | Load 0x0,0x5
00c3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c4 e604 | | Load 0x3,0x4
00c5 e602 | | Load 0x3,0x2
00c6 e002 | | Load 0x0,0x2
00c7 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00c8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00c9 c603 | | Store 0x3,0x3
00ca c605 | | Store 0x3,0x5
00cb 0059 | Y | Store_Top Discrete,At_Offset_1
00cc 00db | | Load_Top At_Offset_3
00cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ce 0000 0000 | | .XXX[0x2]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 00d9 | | .CONST 0x00d9 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 00da | | Load_Top At_Offset_2
00d4 8009 | | Call 0x0,0x9
00d5 800a | | Call 0x0,0xa
00d6 e008 | | Load 0x0,0x8
00d7 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
00d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d9 TRAP_00d0:
00d9 0007 | | Action Break_Optional
00da 0092 0213 | | Action Push_String_Extended,0x213 ; "Diana not printable"
00dc e008 | | Load 0x0,0x8
00dd 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
00de 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00df 0000 | | .XXX[0x1]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e5 | | .CONST 0x00e5 ; Address of begin
00e1 00e7 | | .CONST 0x00e7 ; Address of exception handler
00e2 0002 | | .CONST 0x0002 ; Number of locals
00e3 INIT_00e0:
00e3 029f 018b | | Declare_Subprogram INIT_0188,For_Call
00e5 BODY_00e0:
00e5 8602 | | Call 0x3,0x2
00e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e7 TRAP_00e0:
00e7 0007 | | Action Break_Optional
00e8 0092 0214 | | Action Push_String_Extended,0x214 ; "Element not printable"
00ea e008 | | Load 0x0,0x8
00eb 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
00ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f7 | | .CONST 0x00f7 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0003 | | .CONST 0x0003 ; Number of locals
00f3 INIT_00f0:
00f3 029f 019b | | Declare_Subprogram INIT_0198,For_Call
00f5 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
00f7 BODY_00f0:
00f7 4801 |H | Short_Literal 0x1
00f8 e008 | | Load 0x0,0x8
00f9 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00fa 0092 0215 | | Action Push_String_Extended,0x215 ; " Statement"
00fc e7fd | | Load 0x3,-0x3
00fd 800b | | Call 0x0,0xb
00fe 00e0 | | Load_Encached Standard_Cache
00ff 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0100 01cc | | Execute Vector,Catenate
0101 0092 0216 | | Action Push_String_Extended,0x216 ; " "
0103 01cc | | Execute Vector,Catenate
0104 e7fd | | Load 0x3,-0x3
0105 800c | | Call 0x0,0xc
0106 01cc | | Execute Vector,Catenate
0107 e008 | | Load 0x0,0x8
0108 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0109 0092 0217 | | Action Push_String_Extended,0x217 ; " Stmt # ="
010b e7fd | | Load 0x3,-0x3
010c 800d | | Call 0x0,0xd
010d 00e0 | | Load_Encached Standard_Cache
010e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
010f 01cc | | Execute Vector,Catenate
0110 e008 | | Load 0x0,0x8
0111 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0112 0092 0218 | | Action Push_String_Extended,0x218 ; "; First ="
0114 e7fd | | Load 0x3,-0x3
0115 800e | | Call 0x0,0xe
0116 00e0 | | Load_Encached Standard_Cache
0117 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0118 01cc | | Execute Vector,Catenate
0119 e008 | | Load 0x0,0x8
011a 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
011b 0092 0219 | | Action Push_String_Extended,0x219 ; "; Last ="
011d e7fd | | Load 0x3,-0x3
011e 800f | | Call 0x0,0xf
011f 00e0 | | Load_Encached Standard_Cache
0120 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0121 01cc | | Execute Vector,Catenate
0122 e008 | | Load 0x0,0x8
0123 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0124 0092 021a | | Action Push_String_Extended,0x21a ; "; Decl = "
0126 e7fd | | Load 0x3,-0x3
0127 8010 | | Call 0x0,0x10
0128 00e1 | | Load_Encached Boolean_Cache
0129 011c | | Execute Any,Convert_Unchecked
012a 1c01 | | Execute_Immediate Run_Utility,0x1
012b 01cc | | Execute Vector,Catenate
012c e008 | | Load 0x0,0x8
012d 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
012e 4801 |H | Short_Literal 0x1
012f e008 | | Load 0x0,0x8
0130 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0131 8603 | | Call 0x3,0x3
0132 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0133 0000 0000 | | .BLANK 0000[0x5]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0148 | H | .CONST 0x0148 ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0004 | | .CONST 0x0004 ; Number of locals
013b INIT_0138:
013b e011 | | Load 0x0,0x11
013c 0322 | " | Declare_Variable Record
013d 4800 |H | Short_Literal 0x0
013e e404 | | Load 0x2,0x4
013f 8012 | | Call 0x0,0x12
0140 00d9 | | Load_Top At_Offset_1
0141 017d | } | Execute Record,Structure_Write
0142 e013 | | Load 0x0,0x13
0143 0322 | " | Declare_Variable Record
0144 00d8 | | Load_Top At_Offset_0
0145 1c00 | | Execute_Immediate Run_Utility,0x0
0146 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
0148 BODY_0138:
0148 00cf | | Action Mark_Auxiliary
0149 00db | | Load_Top At_Offset_3
014a 8014 | | Call 0x0,0x14
014b 4801 |H | Short_Literal 0x1
014c 0263 | c | Execute Discrete,Above_Bound
014d 7034 |p4 | Jump_Nonzero 0x182
014e 00d8 | | Load_Top At_Offset_0
014f e602 | | Load 0x3,0x2
0150 8015 | | Call 0x0,0x15
0151 e603 | | Load 0x3,0x3
0152 017d | } | Execute Record,Structure_Write
0153 4801 |H | Short_Literal 0x1
0154 e008 | | Load 0x0,0x8
0155 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0156 0092 021b | | Action Push_String_Extended,0x21b ; "For subprogram "
0158 e603 | | Load 0x3,0x3
0159 8016 | | Call 0x0,0x16
015a 01cc | | Execute Vector,Catenate
015b e008 | | Load 0x0,0x8
015c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
015d 8604 | | Call 0x3,0x4
015e 0092 021c | | Action Push_String_Extended,0x21c ; " Nonseq_Decls = "
0160 e603 | | Load 0x3,0x3
0161 8017 | | Call 0x0,0x17
0162 00e1 | | Load_Encached Boolean_Cache
0163 011c | | Execute Any,Convert_Unchecked
0164 1c01 | | Execute_Immediate Run_Utility,0x1
0165 01cc | | Execute Vector,Catenate
0166 0092 021d | | Action Push_String_Extended,0x21d ; "; Nonseq_Stmts = "
0168 01cc | | Execute Vector,Catenate
0169 e603 | | Load 0x3,0x3
016a 8018 | | Call 0x0,0x18
016b 00e1 | | Load_Encached Boolean_Cache
016c 011c | | Execute Any,Convert_Unchecked
016d 1c01 | | Execute_Immediate Run_Utility,0x1
016e 01cc | | Execute Vector,Catenate
016f e008 | | Load 0x0,0x8
0170 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0171 00cf | | Action Mark_Auxiliary
0172 e603 | | Load 0x3,0x3
0173 8019 | | Call 0x0,0x19
0174 4801 |H | Short_Literal 0x1
0175 0263 | c | Execute Discrete,Above_Bound
0176 7008 |p | Jump_Nonzero 0x17f
0177 00d8 | | Load_Top At_Offset_0
0178 e603 | | Load 0x3,0x3
0179 801a | | Call 0x0,0x1a
017a e603 | | Load 0x3,0x3
017b e602 | | Load 0x3,0x2
017c 840c | | Call 0x2,0xc
017d 00c8 | | Action Pop_Auxiliary_Range
017e 3ff8 |? | Loop_Increasing 0x177
017f 00ce | | Action Pop_Auxiliary
0180 00c8 | | Action Pop_Auxiliary_Range
0181 3fcc |? | Loop_Increasing 0x14e
0182 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0183 0000 0000 | | .BLANK 0000[0x5]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018d | | .CONST 0x018d ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0002 | | .CONST 0x0002 ; Number of locals
018b INIT_0188:
018b e7ff | | Load 0x3,-0x1
018c 8009 | | Call 0x0,0x9
018d BODY_0188:
018d 0092 021e | | Action Push_String_Extended,0x21e ; "<FULL>"
018f 00d9 | | Load_Top At_Offset_1
0190 801b | | Call 0x0,0x1b
0191 e008 | | Load 0x0,0x8
0192 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0193 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0194 0000 0000 | | .BLANK 0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a6 | | .CONST 0x01a6 ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0005 | | .CONST 0x0005 ; Number of locals
019b INIT_0198:
019b e7fd | | Load 0x3,-0x3
019c 800e | | Call 0x0,0xe
019d e01c | | Load 0x0,0x1c
019e 03f1 | | Declare_Variable Discrete,With_Value
019f e7fd | | Load 0x3,-0x3
01a0 801d | | Call 0x0,0x1d
01a1 00e3 | | Load_Encached Natural_Cache
01a2 03f1 | | Declare_Variable Discrete,With_Value
01a3 e01c | | Load 0x0,0x1c
01a4 0007 | | Action Break_Optional
01a5 00d8 | | Load_Top At_Offset_0
01a6 BODY_0198:
01a6 00cf | | Action Mark_Auxiliary
01a7 00db | | Load_Top At_Offset_3
01a8 4801 |H | Short_Literal 0x1
01a9 0263 | c | Execute Discrete,Above_Bound
01aa 702a |p* | Jump_Nonzero 0x1d5
01ab e802 | | Load 0x4,0x2
01ac e7ff | | Load 0x3,-0x1
01ad 801e | | Call 0x0,0x1e
01ae a804 | | Store_Unchecked 0x4,0x4
01af 0092 021f | | Action Push_String_Extended,0x21f ; " "
01b1 e008 | | Load 0x0,0x8
01b2 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
01b3 e804 | | Load 0x4,0x4
01b4 e408 | | Load 0x2,0x8
01b5 180e | | Execute Package,Field_Execute,Field_Number 0xe
01b6 680e |h | Jump_Zero 0x1c5
01b7 e802 | | Load 0x4,0x2
01b8 0a01 | | Execute_Immediate Plus,0x1
01b9 00d8 | | Load_Top At_Offset_0
01ba e01c | | Load 0x0,0x1c
01bb 0260 | ` | Execute Discrete,In_Type
01bc 7001 |p | Jump_Nonzero 0x1be
01bd 0801 | | Execute_Immediate Raise,0x1
01be e7ff | | Load 0x3,-0x1
01bf 801e | | Call 0x0,0x1e
01c0 a805 | | Store_Unchecked 0x4,0x5
01c1 e802 | | Load 0x4,0x2
01c2 0a02 | | Execute_Immediate Plus,0x2
01c3 c802 | | Store 0x4,0x2
01c4 7805 |x | Jump 0x1ca
01c5 4800 |H | Short_Literal 0x0
01c6 a805 | | Store_Unchecked 0x4,0x5
01c7 e802 | | Load 0x4,0x2
01c8 0a01 | | Execute_Immediate Plus,0x1
01c9 c802 | | Store 0x4,0x2
01ca 00db | | Load_Top At_Offset_3
01cb e804 | | Load 0x4,0x4
01cc e408 | | Load 0x2,0x8
01cd 180d | | Execute Package,Field_Execute,Field_Number 0xd
01ce e008 | | Load 0x0,0x8
01cf 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
01d0 4801 |H | Short_Literal 0x1
01d1 e008 | | Load 0x0,0x8
01d2 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01d3 00c8 | | Action Pop_Auxiliary_Range
01d4 3fd6 |? | Loop_Increasing 0x1ab
01d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01d6 0000 0000 | | .XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01e1 | | .CONST 0x01e1 ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0003 | | .CONST 0x0003 ; Number of locals
01db INIT_01d8:
01db e7fd | | Load 0x3,-0x3
01dc 801f | | Call 0x0,0x1f
01dd e020 | | Load 0x0,0x20
01de 0322 | " | Declare_Variable Record
01df 00d8 | | Load_Top At_Offset_0
01e0 1c00 | | Execute_Immediate Run_Utility,0x0
01e1 BODY_01d8:
01e1 00d9 | | Load_Top At_Offset_1
01e2 840a | | Call 0x2,0xa
01e3 4801 |H | Short_Literal 0x1
01e4 e008 | | Load 0x0,0x8
01e5 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01e6 00d9 | | Load_Top At_Offset_1
01e7 840b | | Call 0x2,0xb
01e8 4801 |H | Short_Literal 0x1
01e9 e008 | | Load 0x0,0x8
01ea 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01eb 00d9 | | Load_Top At_Offset_1
01ec 8021 | ! | Call 0x0,0x21
01ed 00d9 | | Load_Top At_Offset_1
01ee 017d | } | Execute Record,Structure_Write
01ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 020f | | .CONST 0x020f ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 0092 0220 | | Action Push_String_Extended,0x220 ; " Number_Declarations = "
01f5 e603 | | Load 0x3,0x3
01f6 8022 | " | Call 0x0,0x22
01f7 00e0 | | Load_Encached Standard_Cache
01f8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01f9 01cc | | Execute Vector,Catenate
01fa e008 | | Load 0x0,0x8
01fb 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01fc 0092 0221 | !| Action Push_String_Extended,0x221 ; " Number_Statements = "
01fe e603 | | Load 0x3,0x3
01ff 8019 | | Call 0x0,0x19
0200 00e0 | | Load_Encached Standard_Cache
0201 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0202 01cc | | Execute Vector,Catenate
0203 e008 | | Load 0x0,0x8
0204 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0205 0092 0222 | "| Action Push_String_Extended,0x222 ; " Number_Instructions = "
0207 e603 | | Load 0x3,0x3
0208 8023 | # | Call 0x0,0x23
0209 00e0 | | Load_Encached Standard_Cache
020a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
020b 01cc | | Execute Vector,Catenate
020c e008 | | Load 0x0,0x8
020d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
020e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
020f TRAP_01f0:
020f 0007 | | Action Break_Optional
0210 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0211 ; --------------------------------------------------------------------------------------
0211 ; STRING TABLE
0211 ; --------------------------------------------------------------------------------------
0211 0026 | & | .STRTAB 0x0026->0x0224 ; "Debug Table Information For Unit"
0212 0044 | D | .STRTAB 0x0044->0x0234 ; "By Subprogram =>"
0213 0052 | R | .STRTAB 0x0052->0x023c ; "Diana not printable"
0214 0063 | c | .STRTAB 0x0063->0x0245 ; "Element not printable"
0215 0076 | v | .STRTAB 0x0076->0x0250 ; " Statement"
0216 007f | | .STRTAB 0x007f->0x0255 ; " "
0217 007e | ~ | .STRTAB 0x007e->0x0256 ; " Stmt # ="
0218 0088 | | .STRTAB 0x0088->0x025c ; "; First ="
0219 008f | | .STRTAB 0x008f->0x0260 ; "; Last ="
021a 0095 | | .STRTAB 0x0095->0x0264 ; "; Decl = "
021b 009c | | .STRTAB 0x009c->0x0269 ; "For subprogram "
021c 00a9 | | .STRTAB 0x00a9->0x0270 ; " Nonseq_Decls = "
021d 00b8 | | .STRTAB 0x00b8->0x0279 ; "; Nonseq_Stmts = "
021e 00c7 | | .STRTAB 0x00c7->0x0281 ; "<FULL>"
021f 00cb | | .STRTAB 0x00cb->0x0284 ; " "
0220 00cd | | .STRTAB 0x00cd->0x0286 ; " Number_Declarations = "
0221 00e3 | | .STRTAB 0x00e3->0x0292 ; " Number_Statements = "
0222 00f9 | | .STRTAB 0x00f9->0x029e ; " Number_Instructions = "
0223 010f | | .STREND 0x010f->0x02aa
0224 4465 6275 |Debu| .STRTAB_STRINGS
02ab 0000 0000 | | .BLANK 0000[0x5]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; Debug Table
02b0 ; --------------------------------------------------------------------------------------
02b0 0004 000a | | .DEBUG4 0x0004,0x000a,0x7a5b,0x0000,0x0001,0x0000
02b6 0000 0000 | | .BLANK 0000[0x14a]