|
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: 1024 (0x400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8fd
└─⟦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 01f0 | | .CONST 0x01f0 ; 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 0022 | " | .CONST 0x0022 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 0129 | ) | Execute Any,Make_Visible
000d 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 4800 |H | Short_Literal 0x0
0011 0093 01cb | | push_full_address INIT_01c8
0013 02a0 | | Declare_Subprogram Null_Subprogram
0014 038e | | Declare_Type Package,Defined
0015 0387 | | Declare_Variable Package
0016 029d 011b | | Declare_Subprogram INIT_0118,For_Outer_Call
0018 029d 018b | | Declare_Subprogram INIT_0188,For_Outer_Call
001a 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call
001c 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call
001e 1d0e | | Execute_Immediate Reference_Lex_1,0xe
001f 00c7 | | Action Elaborate_Subprogram
0020 e20f | | Load 0x1,0xf
0021 020f | | Execute Module,Activate
0022 BODY_0008:
0022 00bc | | Action Signal_Activated
0023 00bb | | Action Signal_Completion
0024 0000 0000 | | .BLANK 0000[0x4]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 003d | = | .CONST 0x003d ; Address of begin
0029 010b | | .CONST 0x010b ; Address of exception handler
002a 000b | | .CONST 0x000b ; Number of locals
002b INIT_0028:
002b e002 | | Load 0x0,0x2
002c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
002d e002 | | Load 0x0,0x2
002e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
002f e002 | | Load 0x0,0x2
0030 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0031 e002 | | Load 0x0,0x2
0032 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0033 e002 | | Load 0x0,0x2
0034 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0035 e002 | | Load 0x0,0x2
0036 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0037 e002 | | Load 0x0,0x2
0038 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0039 00e3 | | Load_Encached Natural_Cache
003a 00e3 | | Load_Encached Natural_Cache
003b e002 | | Load 0x0,0x2
003c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
003d BODY_0028:
003d 4800 |H | Short_Literal 0x0
003e a5fe | | Store_Unchecked 0x2,-0x2
003f 4800 |H | Short_Literal 0x0
0040 a5fd | | Store_Unchecked 0x2,-0x3
0041 4800 |H | Short_Literal 0x0
0042 a5fc | | Store_Unchecked 0x2,-0x4
0043 4800 |H | Short_Literal 0x0
0044 a5fb | | Store_Unchecked 0x2,-0x5
0045 e5ff | | Load 0x2,-0x1
0046 e002 | | Load 0x0,0x2
0047 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0048 a402 | | Store_Unchecked 0x2,0x2
0049 e5ff | | Load 0x2,-0x1
004a e002 | | Load 0x0,0x2
004b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
004c a403 | | Store_Unchecked 0x2,0x3
004d 4803 |H | Short_Literal 0x3
004e e402 | | Load 0x2,0x2
004f e002 | | Load 0x0,0x2
0050 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0051 a404 | | Store_Unchecked 0x2,0x4
0052 e404 | | Load 0x2,0x4
0053 7001 |p | Jump_Nonzero 0x55
0054 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0055 e404 | | Load 0x2,0x4
0056 e002 | | Load 0x0,0x2
0057 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0058 025b | [ | Execute Discrete,Check_In_Type
0059 e402 | | Load 0x2,0x2
005a e002 | | Load 0x0,0x2
005b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
005c a40b | | Store_Unchecked 0x2,0xb
005d 00d8 | | Load_Top At_Offset_0
005e 0e03 | | Execute_Immediate Not_Equal,0x3
005f 6804 |h | Jump_Zero 0x64
0060 00d8 | | Load_Top At_Offset_0
0061 0e02 | | Execute_Immediate Not_Equal,0x2
0062 6801 |h | Jump_Zero 0x64
0063 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0064 e404 | | Load 0x2,0x4
0065 0a01 | | Execute_Immediate Plus,0x1
0066 c405 | | Store 0x2,0x5
0067 e002 | | Load 0x0,0x2
0068 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0069 e403 | | Load 0x2,0x3
006a 4800 |H | Short_Literal 0x0
006b 4808 |H | Short_Literal 0x8
006c e405 | | Load 0x2,0x5
006d 0a01 | | Execute_Immediate Plus,0x1
006e e002 | | Load 0x0,0x2
006f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0070 025b | [ | Execute Discrete,Check_In_Type
0071 e405 | | Load 0x2,0x5
0072 e002 | | Load 0x0,0x2
0073 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0074 025b | [ | Execute Discrete,Check_In_Type
0075 e402 | | Load 0x2,0x2
0076 e002 | | Load 0x0,0x2
0077 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0078 e402 | | Load 0x2,0x2
0079 8211 | | Call 0x1,0x11
007a c406 | | Store 0x2,0x6
007b e406 | | Load 0x2,0x6
007c 7001 |p | Jump_Nonzero 0x7e
007d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
007e e406 | | Load 0x2,0x6
007f 0a04 | | Execute_Immediate Plus,0x4
0080 e002 | | Load 0x0,0x2
0081 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0082 025b | [ | Execute Discrete,Check_In_Type
0083 e402 | | Load 0x2,0x2
0084 e002 | | Load 0x0,0x2
0085 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0086 0910 | | Execute_Immediate Binary_Scale,0x10
0087 e406 | | Load 0x2,0x6
0088 0a04 | | Execute_Immediate Plus,0x4
0089 0a01 | | Execute_Immediate Plus,0x1
008a e002 | | Load 0x0,0x2
008b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
008c 025b | [ | Execute Discrete,Check_In_Type
008d e402 | | Load 0x2,0x2
008e e002 | | Load 0x0,0x2
008f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0090 0273 | s | Execute Discrete,Plus
0091 c5fe | | Store 0x2,-0x2
0092 e406 | | Load 0x2,0x6
0093 0a04 | | Execute_Immediate Plus,0x4
0094 0a02 | | Execute_Immediate Plus,0x2
0095 e002 | | Load 0x0,0x2
0096 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0097 025b | [ | Execute Discrete,Check_In_Type
0098 e402 | | Load 0x2,0x2
0099 e002 | | Load 0x0,0x2
009a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
009b 0910 | | Execute_Immediate Binary_Scale,0x10
009c e406 | | Load 0x2,0x6
009d 0a04 | | Execute_Immediate Plus,0x4
009e 0a03 | | Execute_Immediate Plus,0x3
009f e002 | | Load 0x0,0x2
00a0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a1 025b | [ | Execute Discrete,Check_In_Type
00a2 e402 | | Load 0x2,0x2
00a3 e002 | | Load 0x0,0x2
00a4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00a5 0273 | s | Execute Discrete,Plus
00a6 c5fd | | Store 0x2,-0x3
00a7 4801 |H | Short_Literal 0x1
00a8 a5fb | | Store_Unchecked 0x2,-0x5
00a9 e406 | | Load 0x2,0x6
00aa 0a01 | | Execute_Immediate Plus,0x1
00ab e002 | | Load 0x0,0x2
00ac 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00ad 025b | [ | Execute Discrete,Check_In_Type
00ae e402 | | Load 0x2,0x2
00af e002 | | Load 0x0,0x2
00b0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00b1 a407 | | Store_Unchecked 0x2,0x7
00b2 e407 | | Load 0x2,0x7
00b3 7001 |p | Jump_Nonzero 0xb5
00b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b5 e407 | | Load 0x2,0x7
00b6 e002 | | Load 0x0,0x2
00b7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00b8 025b | [ | Execute Discrete,Check_In_Type
00b9 e402 | | Load 0x2,0x2
00ba e002 | | Load 0x0,0x2
00bb 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00bc a40a | | Store_Unchecked 0x2,0xa
00bd e407 | | Load 0x2,0x7
00be 0a01 | | Execute_Immediate Plus,0x1
00bf e002 | | Load 0x0,0x2
00c0 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00c1 025b | [ | Execute Discrete,Check_In_Type
00c2 e402 | | Load 0x2,0x2
00c3 e002 | | Load 0x0,0x2
00c4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c5 a409 | | Store_Unchecked 0x2,0x9
00c6 e002 | | Load 0x0,0x2
00c7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00c8 e403 | | Load 0x2,0x3
00c9 4800 |H | Short_Literal 0x0
00ca 4802 |H | Short_Literal 0x2
00cb e407 | | Load 0x2,0x7
00cc 0a02 | | Execute_Immediate Plus,0x2
00cd e002 | | Load 0x0,0x2
00ce 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00cf 025b | [ | Execute Discrete,Check_In_Type
00d0 e40a | | Load 0x2,0xa
00d1 e409 | | Load 0x2,0x9
00d2 0273 | s | Execute Discrete,Plus
00d3 00e3 | | Load_Encached Natural_Cache
00d4 025b | [ | Execute Discrete,Check_In_Type
00d5 e402 | | Load 0x2,0x2
00d6 8211 | | Call 0x1,0x11
00d7 c408 | | Store 0x2,0x8
00d8 e408 | | Load 0x2,0x8
00d9 7001 |p | Jump_Nonzero 0xdb
00da 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00db 00d8 | | Load_Top At_Offset_0
00dc 0f03 | | Execute_Immediate Equal,0x3
00dd 6812 |h | Jump_Zero 0xf0
00de e408 | | Load 0x2,0x8
00df 0a01 | | Execute_Immediate Plus,0x1
00e0 e002 | | Load 0x0,0x2
00e1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00e2 025b | [ | Execute Discrete,Check_In_Type
00e3 e402 | | Load 0x2,0x2
00e4 e002 | | Load 0x0,0x2
00e5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00e6 a5fc | | Store_Unchecked 0x2,-0x4
00e7 e5fc | | Load 0x2,-0x4
00e8 602b |`+ | Indirect_Literal Discrete,0x114,{0x00000000, 0x00008000}
00e9 027b | { | Execute Discrete,Greater_Equal
00ea 6804 |h | Jump_Zero 0xef
00eb e5fc | | Load 0x2,-0x4
00ec 6023 |`# | Indirect_Literal Discrete,0x110,{0xffffffff, 0xffff0000}
00ed 0273 | s | Execute Discrete,Plus
00ee c5fc | | Store 0x2,-0x4
00ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00f0 e408 | | Load 0x2,0x8
00f1 e407 | | Load 0x2,0x7
00f2 0272 | r | Execute Discrete,Minus
00f3 e40a | | Load 0x2,0xa
00f4 00d8 | | Load_Top At_Offset_0
00f5 e002 | | Load 0x0,0x2
00f6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00f7 0260 | ` | Execute Discrete,In_Type
00f8 7001 |p | Jump_Nonzero 0xfa
00f9 08e0 | | Execute_Immediate Raise,0xe0
00fa 0272 | r | Execute Discrete,Minus
00fb 0afe | | Execute_Immediate Plus,-0x2
00fc a5fc | | Store_Unchecked 0x2,-0x4
00fd e5fc | | Load 0x2,-0x4
00fe 0c00 | | Execute_Immediate Greater_Equal,0x0
00ff 6804 |h | Jump_Zero 0x104
0100 e5fc | | Load 0x2,-0x4
0101 0a01 | | Execute_Immediate Plus,0x1
0102 c5fc | | Store 0x2,-0x4
0103 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0104 e5fc | | Load 0x2,-0x4
0105 0a01 | | Execute_Immediate Plus,0x1
0106 e40a | | Load 0x2,0xa
0107 0273 | s | Execute Discrete,Plus
0108 0275 | u | Execute Discrete,Unary_Minus
0109 c5fc | | Store 0x2,-0x4
010a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
010b TRAP_0028:
010b 0007 | | Action Break_Optional
010c 0008 | | Action Idle
010d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
010e 0000 0000 | | .XXX[0x2]
0110 ffff ffff | | .LITERAL {0xffffffff, 0xffff0000}
0114 0000 0000 | | .LITERAL {0x00000000, 0x00008000}
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0121 | ! | .CONST 0x0121 ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0005 | | .CONST 0x0005 ; Number of locals
011b INIT_0118:
011b e002 | | Load 0x0,0x2
011c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
011d 03e9 | | Declare_Variable Discrete,Duplicate
011e 03e9 | | Declare_Variable Discrete,Duplicate
011f e002 | | Load 0x0,0x2
0120 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0121 BODY_0118:
0121 e5fe | | Load 0x2,-0x2
0122 a402 | | Store_Unchecked 0x2,0x2
0123 e5fd | | Load 0x2,-0x3
0124 a403 | | Store_Unchecked 0x2,0x3
0125 00cf | | Action Mark_Auxiliary
0126 e402 | | Load 0x2,0x2
0127 e403 | | Load 0x2,0x3
0128 e402 | | Load 0x2,0x2
0129 0272 | r | Execute Discrete,Minus
012a e5fc | | Load 0x2,-0x4
012b 00d8 | | Load_Top At_Offset_0
012c e002 | | Load 0x0,0x2
012d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
012e 0260 | ` | Execute Discrete,In_Type
012f 7001 |p | Jump_Nonzero 0x131
0130 08e0 | | Execute_Immediate Raise,0xe0
0131 0270 | p | Execute Discrete,Divide
0132 09ff | | Execute_Immediate Binary_Scale,-0x1
0133 e5fc | | Load 0x2,-0x4
0134 00d8 | | Load_Top At_Offset_0
0135 e002 | | Load 0x0,0x2
0136 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0137 0260 | ` | Execute Discrete,In_Type
0138 7001 |p | Jump_Nonzero 0x13a
0139 08e0 | | Execute_Immediate Raise,0xe0
013a 0271 | q | Execute Discrete,Times
013b 0273 | s | Execute Discrete,Plus
013c c404 | | Store 0x2,0x4
013d e404 | | Load 0x2,0x4
013e e5fb | | Load 0x2,-0x5
013f 0273 | s | Execute Discrete,Plus
0140 e002 | | Load 0x0,0x2
0141 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0142 025b | [ | Execute Discrete,Check_In_Type
0143 e5ff | | Load 0x2,-0x1
0144 e002 | | Load 0x0,0x2
0145 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0146 a405 | | Store_Unchecked 0x2,0x5
0147 e5fa | | Load 0x2,-0x6
0148 e405 | | Load 0x2,0x5
0149 027f | | Execute Discrete,Equal
014a 701c |p | Jump_Nonzero 0x167
014b e5fa | | Load 0x2,-0x6
014c e405 | | Load 0x2,0x5
014d 027d | } | Execute Discrete,Greater
014e 681a |h | Jump_Zero 0x169
014f e404 | | Load 0x2,0x4
0150 e5fd | | Load 0x2,-0x3
0151 027f | | Execute Discrete,Equal
0152 7014 |p | Jump_Nonzero 0x167
0153 e5fa | | Load 0x2,-0x6
0154 e404 | | Load 0x2,0x4
0155 e5fc | | Load 0x2,-0x4
0156 00d8 | | Load_Top At_Offset_0
0157 e002 | | Load 0x0,0x2
0158 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0159 0260 | ` | Execute Discrete,In_Type
015a 7001 |p | Jump_Nonzero 0x15c
015b 08e0 | | Execute_Immediate Raise,0xe0
015c 0273 | s | Execute Discrete,Plus
015d e5fb | | Load 0x2,-0x5
015e 0273 | s | Execute Discrete,Plus
015f e002 | | Load 0x0,0x2
0160 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0161 025b | [ | Execute Discrete,Check_In_Type
0162 e5ff | | Load 0x2,-0x1
0163 e002 | | Load 0x0,0x2
0164 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0165 027c | | | Execute Discrete,Less
0166 6802 |h | Jump_Zero 0x169
0167 e404 | | Load 0x2,0x4
0168 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0169 e402 | | Load 0x2,0x2
016a e403 | | Load 0x2,0x3
016b 027f | | Execute Discrete,Equal
016c 6802 |h | Jump_Zero 0x16f
016d e003 | | Load 0x0,0x3
016e 0257 | W | Execute Discrete,Raise
016f e5fa | | Load 0x2,-0x6
0170 e405 | | Load 0x2,0x5
0171 027d | } | Execute Discrete,Greater
0172 680b |h | Jump_Zero 0x17e
0173 e404 | | Load 0x2,0x4
0174 e5fc | | Load 0x2,-0x4
0175 00d8 | | Load_Top At_Offset_0
0176 e002 | | Load 0x0,0x2
0177 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0178 0260 | ` | Execute Discrete,In_Type
0179 7001 |p | Jump_Nonzero 0x17b
017a 08e0 | | Execute_Immediate Raise,0xe0
017b 0273 | s | Execute Discrete,Plus
017c c402 | | Store 0x2,0x2
017d 7802 |x | Jump 0x180
017e e404 | | Load 0x2,0x4
017f a403 | | Store_Unchecked 0x2,0x3
0180 00c9 | | Action Pop_Auxiliary_Loop
0181 7fa4 | | Jump 0x126
0182 0000 0000 | | .BLANK 0000[0x6]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 01a6 | | .CONST 0x01a6 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b e5fe | | Load 0x2,-0x2
018c 7002 |p | Jump_Nonzero 0x18f
018d e003 | | Load 0x0,0x3
018e 0257 | W | Execute Discrete,Raise
018f e5fa | | Load 0x2,-0x6
0190 e5fb | | Load 0x2,-0x5
0191 e5fc | | Load 0x2,-0x4
0192 e5fd | | Load 0x2,-0x3
0193 e5fe | | Load 0x2,-0x2
0194 0aff | | Execute_Immediate Plus,-0x1
0195 e5fc | | Load 0x2,-0x4
0196 0271 | q | Execute Discrete,Times
0197 00d8 | | Load_Top At_Offset_0
0198 e002 | | Load 0x0,0x2
0199 1b11 | | Execute Package,Field_Read,Field_Number 0x11
019a 0260 | ` | Execute Discrete,In_Type
019b 7001 |p | Jump_Nonzero 0x19d
019c 08e0 | | Execute_Immediate Raise,0xe0
019d 0273 | s | Execute Discrete,Plus
019e e002 | | Load 0x0,0x2
019f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01a0 025b | [ | Execute Discrete,Check_In_Type
01a1 e5fd | | Load 0x2,-0x3
01a2 e5ff | | Load 0x2,-0x1
01a3 8210 | | Call 0x1,0x10
01a4 a5f9 | | Store_Unchecked 0x2,-0x7
01a5 4507 |E | Exit_Suprogram New_Top_Offset 0x7
01a6 TRAP_0188:
01a6 e003 | | Load 0x0,0x3
01a7 010f | | Execute Exception,Equal
01a8 6803 |h | Jump_Zero 0x1ac
01a9 4800 |H | Short_Literal 0x0
01aa a5f9 | | Store_Unchecked 0x2,-0x7
01ab 4507 |E | Exit_Suprogram New_Top_Offset 0x7
01ac 0100 | | Execute Exception,Raise
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 e5ff | | Load 0x2,-0x1
01b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b5 0000 0000 | | .XXX[0x3]
01b7 0000 | |
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb e5ff | | Load 0x2,-0x1
01bc e5fe | | Load 0x2,-0x2
01bd 0270 | p | Execute Discrete,Divide
01be 4801 |H | Short_Literal 0x1
01bf 0279 | y | Execute Discrete,And
01c0 0e00 | | Execute_Immediate Not_Equal,0x0
01c1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01c2 0000 0000 | | .BLANK 0000[0x6]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01dc | | .CONST 0x01dc ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 000e | | .CONST 0x000e ; Number of locals
01cb INIT_01c8:
01cb 4800 |H | Short_Literal 0x0
01cc 0093 01eb | | push_full_address INIT_01e8
01ce 02a0 | | Declare_Subprogram Null_Subprogram
01cf 038f | | Declare_Type Package,Defined,Visible
01d0 0386 | | Declare_Variable Package,Visible
01d1 4800 |H | Short_Literal 0x0
01d2 0093 01e3 | | push_full_address INIT_01e0
01d4 02a0 | | Declare_Subprogram Null_Subprogram
01d5 038f | | Declare_Type Package,Defined,Visible
01d6 0386 | | Declare_Variable Package,Visible
01d7 00bf | | Action Accept_Activation
01d8 e20d | | Load 0x1,0xd
01d9 020f | | Execute Module,Activate
01da 00d8 | | Load_Top At_Offset_0
01db 020f | | Execute Module,Activate
01dc BODY_01c8:
01dc 00bc | | Action Signal_Activated
01dd 00bb | | Action Signal_Completion
01de 0000 0000 | | .XXX[0x2]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e4 | | .CONST 0x01e4 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 000c | | .CONST 0x000c ; Number of locals
01e3 INIT_01e0:
01e3 00bf | | Action Accept_Activation
01e4 BODY_01e0:
01e4 00bc | | Action Signal_Activated
01e5 00bb | | Action Signal_Completion
01e6 0000 0000 | | .XXX[0x2]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ec | | .CONST 0x01ec ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 000c | | .CONST 0x000c ; Number of locals
01eb INIT_01e8:
01eb 00bf | | Action Accept_Activation
01ec BODY_01e8:
01ec 00bc | | Action Signal_Activated
01ed 00bb | | Action Signal_Completion
01ee 0000 0000 | | .XXX[0x2]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; Debug Table
01f0 ; --------------------------------------------------------------------------------------
01f0 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb3f,0x0000,0x0001,0x0000
01f6 c994 8119 | | .XXX[0xa]
01f8 bdc9 b585 | |
01fa d028 2880 | (( |
01fc 81c1 c9bd | |
01fe 8d95 91d5 | |