|
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_03bcfe
└─⟦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 0390 | | .CONST 0x0390 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00ed | | .CONST 0x00ed ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001f | | .CONST 0x001f ; Number of locals
000b INIT_0008:
000b 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e e001 | | Load 0x0,0x1
000f e002 | | Load 0x0,0x2
0010 4864 |Hd | Short_Literal 0x64
0011 e003 | | Load 0x0,0x3
0012 0387 | | Declare_Variable Package
0013 00d8 | | Load_Top At_Offset_0
0014 020f | | Execute Module,Activate
0015 00d8 | | Load_Top At_Offset_0
0016 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0017 4800 |H | Short_Literal 0x0
0018 4803 |H | Short_Literal 0x3
0019 029f 016b | k| Declare_Subprogram INIT_0168,For_Call
001b 03fd | | Declare_Type Discrete,Defined
001c 00e3 | | Load_Encached Natural_Cache
001d 00e3 | | Load_Encached Natural_Cache
001e e210 | | Load 0x1,0x10
001f 02a0 | | Declare_Subprogram Null_Subprogram
0020 4803 |H | Short_Literal 0x3
0021 032d | - | Declare_Type Record,Defined
0022 4801 |H | Short_Literal 0x1
0023 6140 |a@ | Indirect_Literal Discrete,0x164,{0x00000000, 0x00000400}
0024 e211 | | Load 0x1,0x11
0025 02a0 | | Declare_Subprogram Null_Subprogram
0026 4801 |H | Short_Literal 0x1
0027 035d | ] | Declare_Type Array,Defined
0028 00d8 | | Load_Top At_Offset_0
0029 0337 | 7 | Declare_Variable Array
002a 00e3 | | Load_Encached Natural_Cache
002b 00e8 | | Load_Encached Character_Cache
002c 0266 | f | Execute Discrete,Bounds
002d 00e1 | | Load_Encached Boolean_Cache
002e 02a0 | | Declare_Subprogram Null_Subprogram
002f 4801 |H | Short_Literal 0x1
0030 035d | ] | Declare_Type Array,Defined
0031 00d8 | | Load_Top At_Offset_0
0032 0337 | 7 | Declare_Variable Array
0033 485a |HZ | Short_Literal 0x5a
0034 4841 |HA | Short_Literal 0x41
0035 4801 |H | Short_Literal 0x1
0036 e218 | | Load 0x1,0x18
0037 e216 | | Load 0x1,0x16
0038 01d6 | | Execute Vector,Field_Write
0039 3ffb |? | Loop_Increasing 0x35
003a 487a |Hz | Short_Literal 0x7a
003b 4861 |Ha | Short_Literal 0x61
003c 4801 |H | Short_Literal 0x1
003d e218 | | Load 0x1,0x18
003e e216 | | Load 0x1,0x16
003f 01d6 | | Execute Vector,Field_Write
0040 3ffb |? | Loop_Increasing 0x3c
0041 4839 |H9 | Short_Literal 0x39
0042 4830 |H0 | Short_Literal 0x30
0043 4801 |H | Short_Literal 0x1
0044 e218 | | Load 0x1,0x18
0045 e216 | | Load 0x1,0x16
0046 01d6 | | Execute Vector,Field_Write
0047 3ffb |? | Loop_Increasing 0x43
0048 4801 |H | Short_Literal 0x1
0049 485f |H_ | Short_Literal 0x5f
004a e216 | | Load 0x1,0x16
004b 01d6 | | Execute Vector,Field_Write
004c 482f |H/ | Short_Literal 0x2f
004d 4800 |H | Short_Literal 0x0
004e 4800 |H | Short_Literal 0x0
004f e218 | | Load 0x1,0x18
0050 e216 | | Load 0x1,0x16
0051 01d6 | | Execute Vector,Field_Write
0052 3ffb |? | Loop_Increasing 0x4e
0053 4840 |H@ | Short_Literal 0x40
0054 483a |H: | Short_Literal 0x3a
0055 4800 |H | Short_Literal 0x0
0056 e218 | | Load 0x1,0x18
0057 e216 | | Load 0x1,0x16
0058 01d6 | | Execute Vector,Field_Write
0059 3ffb |? | Loop_Increasing 0x55
005a 485e |H^ | Short_Literal 0x5e
005b 485b |H[ | Short_Literal 0x5b
005c 4800 |H | Short_Literal 0x0
005d e218 | | Load 0x1,0x18
005e e216 | | Load 0x1,0x16
005f 01d6 | | Execute Vector,Field_Write
0060 3ffb |? | Loop_Increasing 0x5c
0061 4800 |H | Short_Literal 0x0
0062 4860 |H` | Short_Literal 0x60
0063 e216 | | Load 0x1,0x16
0064 01d6 | | Execute Vector,Field_Write
0065 487f |H | Short_Literal 0x7f
0066 487b |H{ | Short_Literal 0x7b
0067 4800 |H | Short_Literal 0x0
0068 e218 | | Load 0x1,0x18
0069 e216 | | Load 0x1,0x16
006a 01d6 | | Execute Vector,Field_Write
006b 3ffb |? | Loop_Increasing 0x67
006c e215 | | Load 0x1,0x15
006d 01c3 | | Execute Vector,Check_In_Type
006e 0007 | | Action Break_Optional
006f e215 | | Load 0x1,0x15
0070 0337 | 7 | Declare_Variable Array
0071 4801 |H | Short_Literal 0x1
0072 4822 |H" | Short_Literal 0x22
0073 e217 | | Load 0x1,0x17
0074 01d6 | | Execute Vector,Field_Write
0075 4801 |H | Short_Literal 0x1
0076 485b |H[ | Short_Literal 0x5b
0077 e217 | | Load 0x1,0x17
0078 01d6 | | Execute Vector,Field_Write
0079 4801 |H | Short_Literal 0x1
007a 482d |H- | Short_Literal 0x2d
007b e217 | | Load 0x1,0x17
007c 01d6 | | Execute Vector,Field_Write
007d 4821 |H! | Short_Literal 0x21
007e 4800 |H | Short_Literal 0x0
007f 4800 |H | Short_Literal 0x0
0080 e219 | | Load 0x1,0x19
0081 e217 | | Load 0x1,0x17
0082 01d6 | | Execute Vector,Field_Write
0083 3ffb |? | Loop_Increasing 0x7f
0084 482c |H, | Short_Literal 0x2c
0085 4823 |H# | Short_Literal 0x23
0086 4800 |H | Short_Literal 0x0
0087 e219 | | Load 0x1,0x19
0088 e217 | | Load 0x1,0x17
0089 01d6 | | Execute Vector,Field_Write
008a 3ffb |? | Loop_Increasing 0x86
008b 485a |HZ | Short_Literal 0x5a
008c 482e |H. | Short_Literal 0x2e
008d 4800 |H | Short_Literal 0x0
008e e219 | | Load 0x1,0x19
008f e217 | | Load 0x1,0x17
0090 01d6 | | Execute Vector,Field_Write
0091 3ffb |? | Loop_Increasing 0x8d
0092 487f |H | Short_Literal 0x7f
0093 485c |H\ | Short_Literal 0x5c
0094 4800 |H | Short_Literal 0x0
0095 e219 | | Load 0x1,0x19
0096 e217 | | Load 0x1,0x17
0097 01d6 | | Execute Vector,Field_Write
0098 3ffb |? | Loop_Increasing 0x94
0099 e215 | | Load 0x1,0x15
009a 01c3 | | Execute Vector,Check_In_Type
009b 0007 | | Action Break_Optional
009c e215 | | Load 0x1,0x15
009d 0337 | 7 | Declare_Variable Array
009e 4801 |H | Short_Literal 0x1
009f 4822 |H" | Short_Literal 0x22
00a0 e218 | | Load 0x1,0x18
00a1 01d6 | | Execute Vector,Field_Write
00a2 4821 |H! | Short_Literal 0x21
00a3 4800 |H | Short_Literal 0x0
00a4 4800 |H | Short_Literal 0x0
00a5 e21a | | Load 0x1,0x1a
00a6 e218 | | Load 0x1,0x18
00a7 01d6 | | Execute Vector,Field_Write
00a8 3ffb |? | Loop_Increasing 0xa4
00a9 487f |H | Short_Literal 0x7f
00aa 4823 |H# | Short_Literal 0x23
00ab 4800 |H | Short_Literal 0x0
00ac e21a | | Load 0x1,0x1a
00ad e218 | | Load 0x1,0x18
00ae 01d6 | | Execute Vector,Field_Write
00af 3ffb |? | Loop_Increasing 0xab
00b0 e215 | | Load 0x1,0x15
00b1 01c3 | | Execute Vector,Check_In_Type
00b2 0007 | | Action Break_Optional
00b3 e215 | | Load 0x1,0x15
00b4 0337 | 7 | Declare_Variable Array
00b5 4801 |H | Short_Literal 0x1
00b6 485d |H] | Short_Literal 0x5d
00b7 e219 | | Load 0x1,0x19
00b8 01d6 | | Execute Vector,Field_Write
00b9 485c |H\ | Short_Literal 0x5c
00ba 4800 |H | Short_Literal 0x0
00bb 4800 |H | Short_Literal 0x0
00bc e21b | | Load 0x1,0x1b
00bd e219 | | Load 0x1,0x19
00be 01d6 | | Execute Vector,Field_Write
00bf 3ffb |? | Loop_Increasing 0xbb
00c0 487f |H | Short_Literal 0x7f
00c1 485e |H^ | Short_Literal 0x5e
00c2 4800 |H | Short_Literal 0x0
00c3 e21b | | Load 0x1,0x1b
00c4 e219 | | Load 0x1,0x19
00c5 01d6 | | Execute Vector,Field_Write
00c6 3ffb |? | Loop_Increasing 0xc2
00c7 e215 | | Load 0x1,0x15
00c8 01c3 | | Execute Vector,Check_In_Type
00c9 0007 | | Action Break_Optional
00ca e215 | | Load 0x1,0x15
00cb 0337 | 7 | Declare_Variable Array
00cc 4801 |H | Short_Literal 0x1
00cd 4820 |H | Short_Literal 0x20
00ce e21a | | Load 0x1,0x1a
00cf 01d6 | | Execute Vector,Field_Write
00d0 481f |H | Short_Literal 0x1f
00d1 4800 |H | Short_Literal 0x0
00d2 4800 |H | Short_Literal 0x0
00d3 e21c | | Load 0x1,0x1c
00d4 e21a | | Load 0x1,0x1a
00d5 01d6 | | Execute Vector,Field_Write
00d6 3ffb |? | Loop_Increasing 0xd2
00d7 487f |H | Short_Literal 0x7f
00d8 4821 |H! | Short_Literal 0x21
00d9 4800 |H | Short_Literal 0x0
00da e21c | | Load 0x1,0x1c
00db e21a | | Load 0x1,0x1a
00dc 01d6 | | Execute Vector,Field_Write
00dd 3ffb |? | Loop_Increasing 0xd9
00de e215 | | Load 0x1,0x15
00df 01c3 | | Execute Vector,Check_In_Type
00e0 0007 | | Action Break_Optional
00e1 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call
00e3 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call
00e5 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call
00e7 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call
00e9 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call
00eb 1d0d | | Execute_Immediate Reference_Lex_1,0xd
00ec 00c7 | | Action Elaborate_Subprogram
00ed BODY_0008:
00ed 00bc | | Action Signal_Activated
00ee 00bb | | Action Signal_Completion
00ef 0000 | | .XXX[0x1]
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 e5ff | | Load 0x2,-0x1
00f4 01db | | Execute Vector,Length
00f5 7002 |p | Jump_Nonzero 0xf8
00f6 00ea | | Load_Encached Null_String_Cache
00f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f8 4800 |H | Short_Literal 0x0
00f9 a214 | | Store_Unchecked 0x1,0x14
00fa e5ff | | Load 0x2,-0x1
00fb 821f | | Call 0x1,0x1f
00fc e20f | | Load 0x1,0xf
00fd 4820 |H | Short_Literal 0x20
00fe 4800 |H | Short_Literal 0x0
00ff e20e | | Load 0x1,0xe
0100 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0101 c20f | | Store 0x1,0xf
0102 00cf | | Action Mark_Auxiliary
0103 e214 | | Load 0x1,0x14
0104 4801 |H | Short_Literal 0x1
0105 0263 | c | Execute Discrete,Above_Bound
0106 7057 |pW | Jump_Nonzero 0x15e
0107 00d8 | | Load_Top At_Offset_0
0108 e213 | | Load 0x1,0x13
0109 01d5 | | Execute Vector,Field_Reference
010a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
010b 4603 |F | Jump_Case 0x4
010c 7818 |x | Jump 0x125 ; case 0x0
010d 7826 |x& | Jump 0x134 ; case 0x1
010e 7839 |x9 | Jump 0x148 ; case 0x2
010f 7800 |x | Jump 0x110 ; case 0x3
0110 e20f | | Load 0x1,0xf
0111 0092 0348 | H| Action Push_String_Extended,0x348 ; "~b(~i("
0113 e404 | | Load 0x2,0x4
0114 e213 | | Load 0x1,0x13
0115 01d5 | | Execute Vector,Field_Reference
0116 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0117 e404 | | Load 0x2,0x4
0118 e213 | | Load 0x1,0x13
0119 01d5 | | Execute Vector,Field_Reference
011a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
011b e5ff | | Load 0x2,-0x1
011c 01cf | | Execute Vector,Slice_Read
011d 01cc | | Execute Vector,Catenate
011e 0092 0349 | I| Action Push_String_Extended,0x349 ; "))"
0120 01cc | | Execute Vector,Catenate
0121 e20e | | Load 0x1,0xe
0122 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0123 c20f | | Store 0x1,0xf
0124 7837 |x7 | Jump 0x15c
0125 e20f | | Load 0x1,0xf
0126 e404 | | Load 0x2,0x4
0127 e213 | | Load 0x1,0x13
0128 01d5 | | Execute Vector,Field_Reference
0129 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
012a e404 | | Load 0x2,0x4
012b e213 | | Load 0x1,0x13
012c 01d5 | | Execute Vector,Field_Reference
012d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
012e e5ff | | Load 0x2,-0x1
012f 01cf | | Execute Vector,Slice_Read
0130 e20e | | Load 0x1,0xe
0131 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0132 c20f | | Store 0x1,0xf
0133 7828 |x( | Jump 0x15c
0134 e20f | | Load 0x1,0xf
0135 4829 |H) | Short_Literal 0x29
0136 0092 034a | J| Action Push_String_Extended,0x34a ; "~b("
0138 e404 | | Load 0x2,0x4
0139 e213 | | Load 0x1,0x13
013a 01d5 | | Execute Vector,Field_Reference
013b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
013c e404 | | Load 0x2,0x4
013d e213 | | Load 0x1,0x13
013e 01d5 | | Execute Vector,Field_Reference
013f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0140 e5ff | | Load 0x2,-0x1
0141 01cf | | Execute Vector,Slice_Read
0142 01cc | | Execute Vector,Catenate
0143 01cb | | Execute Vector,Append
0144 e20e | | Load 0x1,0xe
0145 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0146 c20f | | Store 0x1,0xf
0147 7814 |x | Jump 0x15c
0148 e20f | | Load 0x1,0xf
0149 0092 034b | K| Action Push_String_Extended,0x34b ; "~begin(italic)"
014b e404 | | Load 0x2,0x4
014c e213 | | Load 0x1,0x13
014d 01d5 | | Execute Vector,Field_Reference
014e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
014f e404 | | Load 0x2,0x4
0150 e213 | | Load 0x1,0x13
0151 01d5 | | Execute Vector,Field_Reference
0152 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0153 e5ff | | Load 0x2,-0x1
0154 01cf | | Execute Vector,Slice_Read
0155 01cc | | Execute Vector,Catenate
0156 0092 034c | L| Action Push_String_Extended,0x34c ; "~end(italic)"
0158 01cc | | Execute Vector,Catenate
0159 e20e | | Load 0x1,0xe
015a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
015b c20f | | Store 0x1,0xf
015c 00c8 | | Action Pop_Auxiliary_Range
015d 3fa9 |? | Loop_Increasing 0x107
015e 00ce | | Action Pop_Auxiliary
015f e20f | | Load 0x1,0xf
0160 e20e | | Load 0x1,0xe
0161 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0162 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0163 0000 | | .XXX[0x1]
0164 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 4607 |F | Jump_Case 0x8
016c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
016d 7806 |x | Jump 0x174 ; case 0x1
016e 7809 |x | Jump 0x178 ; case 0x2
016f 780d |x | Jump 0x17d ; case 0x3
0170 7810 |x | Jump 0x181 ; case 0x4
0171 7811 |x | Jump 0x183 ; case 0x5
0172 7812 |x | Jump 0x185 ; case 0x6
0173 7815 |x | Jump 0x189 ; case 0x7
0174 00da | | Load_Top At_Offset_2
0175 0091 0344 | D| Action Push_String_Extended_Indexed,0x344 ; "NORMAL"
0177 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0178 00db | | Load_Top At_Offset_3
0179 00db | | Load_Top At_Offset_3
017a 00e0 | | Load_Encached Standard_Cache
017b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
017c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
017d 00da | | Load_Top At_Offset_2
017e 00e0 | | Load_Encached Standard_Cache
017f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0180 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0181 00db | | Load_Top At_Offset_3
0182 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0183 00db | | Load_Top At_Offset_3
0184 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0185 e210 | | Load 0x1,0x10
0186 00dc | | Load_Top At_Offset_4
0187 0267 | g | Execute Discrete,Predecessor
0188 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0189 e210 | | Load 0x1,0x10
018a 00dc | | Load_Top At_Offset_4
018b 0268 | h | Execute Discrete,Successor
018c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
018d 0000 0000 | | .XXX[0x3]
018f 0000 | |
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00cf | | Action Mark_Auxiliary
0194 e5fe | | Load 0x2,-0x2
0195 01d9 | | Execute Vector,Reverse_Bounds
0196 0263 | c | Execute Discrete,Above_Bound
0197 700a |p | Jump_Nonzero 0x1a2
0198 00d8 | | Load_Top At_Offset_0
0199 e5fe | | Load 0x2,-0x2
019a 01d7 | | Execute Vector,Field_Read
019b e5ff | | Load 0x2,-0x1
019c 01d7 | | Execute Vector,Field_Read
019d 6802 |h | Jump_Zero 0x1a0
019e 00d8 | | Load_Top At_Offset_0
019f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a0 00c8 | | Action Pop_Auxiliary_Range
01a1 3ff6 |? | Loop_Increasing 0x198
01a2 00ce | | Action Pop_Auxiliary
01a3 e5fe | | Load 0x2,-0x2
01a4 01dc | | Execute Vector,Last
01a5 0a01 | | Execute_Immediate Plus,0x1
01a6 00d8 | | Load_Top At_Offset_0
01a7 00e3 | | Load_Encached Natural_Cache
01a8 0260 | ` | Execute Discrete,In_Type
01a9 7001 |p | Jump_Nonzero 0x1ab
01aa 0801 | | Execute_Immediate Raise,0x1
01ab 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ac 0000 0000 | | .BLANK 0000[0x4]
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 e5fe | | Load 0x2,-0x2
01b4 01dd | | Execute Vector,First
01b5 e5fe | | Load 0x2,-0x2
01b6 01d7 | | Execute Vector,Field_Read
01b7 e5ff | | Load 0x2,-0x1
01b8 01d7 | | Execute Vector,Field_Read
01b9 7002 |p | Jump_Nonzero 0x1bc
01ba 4800 |H | Short_Literal 0x0
01bb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01bc 00cf | | Action Mark_Auxiliary
01bd e5fe | | Load 0x2,-0x2
01be 01d9 | | Execute Vector,Reverse_Bounds
01bf 0263 | c | Execute Discrete,Above_Bound
01c0 700a |p | Jump_Nonzero 0x1cb
01c1 00d8 | | Load_Top At_Offset_0
01c2 e5fe | | Load 0x2,-0x2
01c3 01d7 | | Execute Vector,Field_Read
01c4 e5ff | | Load 0x2,-0x1
01c5 01d7 | | Execute Vector,Field_Read
01c6 7002 |p | Jump_Nonzero 0x1c9
01c7 00d8 | | Load_Top At_Offset_0
01c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01c9 00c8 | | Action Pop_Auxiliary_Range
01ca 3ff6 |? | Loop_Increasing 0x1c1
01cb 00ce | | Action Pop_Auxiliary
01cc e5fe | | Load 0x2,-0x2
01cd 01dc | | Execute Vector,Last
01ce 0a01 | | Execute_Immediate Plus,0x1
01cf 00d8 | | Load_Top At_Offset_0
01d0 00e3 | | Load_Encached Natural_Cache
01d1 0260 | ` | Execute Discrete,In_Type
01d2 7001 |p | Jump_Nonzero 0x1d4
01d3 0801 | | Execute_Immediate Raise,0x1
01d4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d5 0000 0000 | | .XXX[0x3]
01d7 0000 | |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db e214 | | Load 0x1,0x14
01dc 7011 |p | Jump_Nonzero 0x1ee
01dd e211 | | Load 0x1,0x11
01de 0322 | " | Declare_Variable Record
01df e5ff | | Load 0x2,-0x1
01e0 e402 | | Load 0x2,0x2
01e1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01e2 e5fe | | Load 0x2,-0x2
01e3 e402 | | Load 0x2,0x2
01e4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01e5 e5fd | | Load 0x2,-0x3
01e6 e402 | | Load 0x2,0x2
01e7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01e8 4801 |H | Short_Literal 0x1
01e9 e213 | | Load 0x1,0x13
01ea 01d6 | | Execute Vector,Field_Write
01eb 4801 |H | Short_Literal 0x1
01ec a214 | | Store_Unchecked 0x1,0x14
01ed 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01ee e214 | | Load 0x1,0x14
01ef e213 | | Load 0x1,0x13
01f0 01d5 | | Execute Vector,Field_Reference
01f1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01f2 e5fd | | Load 0x2,-0x3
01f3 027f | | Execute Discrete,Equal
01f4 6806 |h | Jump_Zero 0x1fb
01f5 e5fe | | Load 0x2,-0x2
01f6 e214 | | Load 0x1,0x14
01f7 e213 | | Load 0x1,0x13
01f8 01d5 | | Execute Vector,Field_Reference
01f9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01fa 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01fb e214 | | Load 0x1,0x14
01fc 601f |` | Indirect_Literal Discrete,0x21c,{0x00000000, 0x00000400}
01fd 027f | | Execute Discrete,Equal
01fe 680a |h | Jump_Zero 0x209
01ff 0092 034d | M| Action Push_String_Extended,0x34d ; "Too many Ada tokens on one input line; font styles will be merged"
0201 e004 | | Load 0x0,0x4
0202 180f | | Execute Package,Field_Execute,Field_Number 0xf
0203 e5fe | | Load 0x2,-0x2
0204 e214 | | Load 0x1,0x14
0205 e213 | | Load 0x1,0x13
0206 01d5 | | Execute Vector,Field_Reference
0207 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0208 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0209 e214 | | Load 0x1,0x14
020a 0a01 | | Execute_Immediate Plus,0x1
020b c214 | | Store 0x1,0x14
020c e211 | | Load 0x1,0x11
020d 0322 | " | Declare_Variable Record
020e e5ff | | Load 0x2,-0x1
020f e402 | | Load 0x2,0x2
0210 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0211 e5fe | | Load 0x2,-0x2
0212 e402 | | Load 0x2,0x2
0213 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0214 e5fd | | Load 0x2,-0x3
0215 e402 | | Load 0x2,0x2
0216 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0217 e214 | | Load 0x1,0x14
0218 e213 | | Load 0x1,0x13
0219 01d6 | | Execute Vector,Field_Write
021a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
021b 0000 | | .XXX[0x1]
021c 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 022c | , | .CONST 0x022c ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0004 | | .CONST 0x0004 ; Number of locals
0223 INIT_0220:
0223 e5ff | | Load 0x2,-0x1
0224 01dd | | Execute Vector,First
0225 00e3 | | Load_Encached Natural_Cache
0226 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0227 00e3 | | Load_Encached Natural_Cache
0228 e5ff | | Load 0x2,-0x1
0229 01dc | | Execute Vector,Last
022a 00e3 | | Load_Encached Natural_Cache
022b 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
022c BODY_0220:
022c 00cf | | Action Mark_Auxiliary
022d e402 | | Load 0x2,0x2
022e e404 | | Load 0x2,0x4
022f 027d | } | Execute Discrete,Greater
0230 704f |pO | Jump_Nonzero 0x280
0231 e402 | | Load 0x2,0x2
0232 e404 | | Load 0x2,0x4
0233 e5ff | | Load 0x2,-0x1
0234 01cf | | Execute Vector,Slice_Read
0235 e216 | | Load 0x1,0x16
0236 821b | | Call 0x1,0x1b
0237 a403 | | Store_Unchecked 0x2,0x3
0238 4800 |H | Short_Literal 0x0
0239 e403 | | Load 0x2,0x3
023a 0aff | | Execute_Immediate Plus,-0x1
023b 00d8 | | Load_Top At_Offset_0
023c 00e3 | | Load_Encached Natural_Cache
023d 0260 | ` | Execute Discrete,In_Type
023e 7001 |p | Jump_Nonzero 0x240
023f 0801 | | Execute_Immediate Raise,0x1
0240 e402 | | Load 0x2,0x2
0241 821d | | Call 0x1,0x1d
0242 e403 | | Load 0x2,0x3
0243 e404 | | Load 0x2,0x4
0244 027d | } | Execute Discrete,Greater
0245 703a |p: | Jump_Nonzero 0x280
0246 e403 | | Load 0x2,0x3
0247 a402 | | Store_Unchecked 0x2,0x2
0248 e402 | | Load 0x2,0x2
0249 e404 | | Load 0x2,0x4
024a e5ff | | Load 0x2,-0x1
024b 01cf | | Execute Vector,Slice_Read
024c e216 | | Load 0x1,0x16
024d 821c | | Call 0x1,0x1c
024e a403 | | Store_Unchecked 0x2,0x3
024f e403 | | Load 0x2,0x3
0250 6803 |h | Jump_Zero 0x254
0251 e403 | | Load 0x2,0x3
0252 0aff | | Execute_Immediate Plus,-0x1
0253 c403 | | Store 0x2,0x3
0254 e402 | | Load 0x2,0x2
0255 e403 | | Load 0x2,0x3
0256 e5ff | | Load 0x2,-0x1
0257 01cf | | Execute Vector,Slice_Read
0258 e005 | | Load 0x0,0x5
0259 180f | | Execute Package,Field_Execute,Field_Number 0xf
025a 681c |h | Jump_Zero 0x277
025b e402 | | Load 0x2,0x2
025c e5ff | | Load 0x2,-0x1
025d 01dd | | Execute Vector,First
025e 027d | } | Execute Discrete,Greater
025f 6812 |h | Jump_Zero 0x272
0260 e402 | | Load 0x2,0x2
0261 0aff | | Execute_Immediate Plus,-0x1
0262 e5ff | | Load 0x2,-0x1
0263 01d7 | | Execute Vector,Field_Read
0264 0f27 | ' | Execute_Immediate Equal,0x27
0265 680c |h | Jump_Zero 0x272
0266 e402 | | Load 0x2,0x2
0267 e403 | | Load 0x2,0x3
0268 e5ff | | Load 0x2,-0x1
0269 01cf | | Execute Vector,Slice_Read
026a e005 | | Load 0x0,0x5
026b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
026c 6805 |h | Jump_Zero 0x272
026d 4800 |H | Short_Literal 0x0
026e e403 | | Load 0x2,0x3
026f e402 | | Load 0x2,0x2
0270 821d | | Call 0x1,0x1d
0271 7809 |x | Jump 0x27b
0272 4801 |H | Short_Literal 0x1
0273 e403 | | Load 0x2,0x3
0274 e402 | | Load 0x2,0x2
0275 821d | | Call 0x1,0x1d
0276 7804 |x | Jump 0x27b
0277 4800 |H | Short_Literal 0x0
0278 e403 | | Load 0x2,0x3
0279 e402 | | Load 0x2,0x2
027a 821d | | Call 0x1,0x1d
027b e403 | | Load 0x2,0x3
027c 0a01 | | Execute_Immediate Plus,0x1
027d c402 | | Store 0x2,0x2
027e 00c9 | | Action Pop_Auxiliary_Loop
027f 7fad | | Jump 0x22d
0280 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0281 0000 0000 | | .BLANK 0000[0x7]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 0294 | | .CONST 0x0294 ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0004 | | .CONST 0x0004 ; Number of locals
028b INIT_0288:
028b e5ff | | Load 0x2,-0x1
028c 01dd | | Execute Vector,First
028d 00e3 | | Load_Encached Natural_Cache
028e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
028f 00e3 | | Load_Encached Natural_Cache
0290 e5ff | | Load 0x2,-0x1
0291 01dc | | Execute Vector,Last
0292 00e3 | | Load_Encached Natural_Cache
0293 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0294 BODY_0288:
0294 e5ff | | Load 0x2,-0x1
0295 e21a | | Load 0x1,0x1a
0296 821c | | Call 0x1,0x1c
0297 a403 | | Store_Unchecked 0x2,0x3
0298 e403 | | Load 0x2,0x3
0299 e402 | | Load 0x2,0x2
029a 027d | } | Execute Discrete,Greater
029b 680c |h | Jump_Zero 0x2a8
029c 4800 |H | Short_Literal 0x0
029d e403 | | Load 0x2,0x3
029e 0aff | | Execute_Immediate Plus,-0x1
029f 00d8 | | Load_Top At_Offset_0
02a0 00e3 | | Load_Encached Natural_Cache
02a1 0260 | ` | Execute Discrete,In_Type
02a2 7001 |p | Jump_Nonzero 0x2a4
02a3 0801 | | Execute_Immediate Raise,0x1
02a4 e402 | | Load 0x2,0x2
02a5 821d | | Call 0x1,0x1d
02a6 e403 | | Load 0x2,0x3
02a7 a402 | | Store_Unchecked 0x2,0x2
02a8 00cf | | Action Mark_Auxiliary
02a9 e402 | | Load 0x2,0x2
02aa e404 | | Load 0x2,0x4
02ab 027d | } | Execute Discrete,Greater
02ac 7096 |p | Jump_Nonzero 0x343
02ad e402 | | Load 0x2,0x2
02ae e404 | | Load 0x2,0x4
02af e5ff | | Load 0x2,-0x1
02b0 01cf | | Execute Vector,Slice_Read
02b1 e217 | | Load 0x1,0x17
02b2 821b | | Call 0x1,0x1b
02b3 a403 | | Store_Unchecked 0x2,0x3
02b4 e402 | | Load 0x2,0x2
02b5 e403 | | Load 0x2,0x3
02b6 0aff | | Execute_Immediate Plus,-0x1
02b7 e5ff | | Load 0x2,-0x1
02b8 01cf | | Execute Vector,Slice_Read
02b9 821e | | Call 0x1,0x1e
02ba e403 | | Load 0x2,0x3
02bb e404 | | Load 0x2,0x4
02bc 027d | } | Execute Discrete,Greater
02bd 7085 |p | Jump_Nonzero 0x343
02be e403 | | Load 0x2,0x3
02bf a402 | | Store_Unchecked 0x2,0x2
02c0 e402 | | Load 0x2,0x2
02c1 e5ff | | Load 0x2,-0x1
02c2 01d7 | | Execute Vector,Field_Read
02c3 0f22 | " | Execute_Immediate Equal,0x22
02c4 682e |h. | Jump_Zero 0x2f3
02c5 e402 | | Load 0x2,0x2
02c6 e5ff | | Load 0x2,-0x1
02c7 01dd | | Execute Vector,First
02c8 027d | } | Execute Discrete,Greater
02c9 680e |h | Jump_Zero 0x2d8
02ca e402 | | Load 0x2,0x2
02cb 0aff | | Execute_Immediate Plus,-0x1
02cc e5ff | | Load 0x2,-0x1
02cd 01d7 | | Execute Vector,Field_Read
02ce 0f27 | ' | Execute_Immediate Equal,0x27
02cf 6808 |h | Jump_Zero 0x2d8
02d0 4800 |H | Short_Literal 0x0
02d1 e402 | | Load 0x2,0x2
02d2 00d8 | | Load_Top At_Offset_0
02d3 821d | | Call 0x1,0x1d
02d4 e402 | | Load 0x2,0x2
02d5 0a01 | | Execute_Immediate Plus,0x1
02d6 c402 | | Store 0x2,0x2
02d7 7869 |xi | Jump 0x341
02d8 e402 | | Load 0x2,0x2
02d9 0a01 | | Execute_Immediate Plus,0x1
02da 00d8 | | Load_Top At_Offset_0
02db 00e2 | | Load_Encached Integer_Cache
02dc 0260 | ` | Execute Discrete,In_Type
02dd 7001 |p | Jump_Nonzero 0x2df
02de 0801 | | Execute_Immediate Raise,0x1
02df e404 | | Load 0x2,0x4
02e0 e5ff | | Load 0x2,-0x1
02e1 01cf | | Execute Vector,Slice_Read
02e2 e218 | | Load 0x1,0x18
02e3 821b | | Call 0x1,0x1b
02e4 a403 | | Store_Unchecked 0x2,0x3
02e5 e403 | | Load 0x2,0x3
02e6 e404 | | Load 0x2,0x4
02e7 027d | } | Execute Discrete,Greater
02e8 6802 |h | Jump_Zero 0x2eb
02e9 e404 | | Load 0x2,0x4
02ea a403 | | Store_Unchecked 0x2,0x3
02eb 4800 |H | Short_Literal 0x0
02ec e403 | | Load 0x2,0x3
02ed e402 | | Load 0x2,0x2
02ee 821d | | Call 0x1,0x1d
02ef e403 | | Load 0x2,0x3
02f0 0a01 | | Execute_Immediate Plus,0x1
02f1 c402 | | Store 0x2,0x2
02f2 784e |xN | Jump 0x341
02f3 e402 | | Load 0x2,0x2
02f4 e5ff | | Load 0x2,-0x1
02f5 01d7 | | Execute Vector,Field_Read
02f6 0f5b | [ | Execute_Immediate Equal,0x5b
02f7 682e |h. | Jump_Zero 0x326
02f8 e402 | | Load 0x2,0x2
02f9 e5ff | | Load 0x2,-0x1
02fa 01dd | | Execute Vector,First
02fb 027d | } | Execute Discrete,Greater
02fc 680e |h | Jump_Zero 0x30b
02fd e402 | | Load 0x2,0x2
02fe 0aff | | Execute_Immediate Plus,-0x1
02ff e5ff | | Load 0x2,-0x1
0300 01d7 | | Execute Vector,Field_Read
0301 0f27 | ' | Execute_Immediate Equal,0x27
0302 6808 |h | Jump_Zero 0x30b
0303 4800 |H | Short_Literal 0x0
0304 e402 | | Load 0x2,0x2
0305 00d8 | | Load_Top At_Offset_0
0306 821d | | Call 0x1,0x1d
0307 e402 | | Load 0x2,0x2
0308 0a01 | | Execute_Immediate Plus,0x1
0309 c402 | | Store 0x2,0x2
030a 7836 |x6 | Jump 0x341
030b e402 | | Load 0x2,0x2
030c 0a01 | | Execute_Immediate Plus,0x1
030d 00d8 | | Load_Top At_Offset_0
030e 00e2 | | Load_Encached Integer_Cache
030f 0260 | ` | Execute Discrete,In_Type
0310 7001 |p | Jump_Nonzero 0x312
0311 0801 | | Execute_Immediate Raise,0x1
0312 e404 | | Load 0x2,0x4
0313 e5ff | | Load 0x2,-0x1
0314 01cf | | Execute Vector,Slice_Read
0315 e219 | | Load 0x1,0x19
0316 821b | | Call 0x1,0x1b
0317 a403 | | Store_Unchecked 0x2,0x3
0318 e403 | | Load 0x2,0x3
0319 e404 | | Load 0x2,0x4
031a 027d | } | Execute Discrete,Greater
031b 6802 |h | Jump_Zero 0x31e
031c e404 | | Load 0x2,0x4
031d a403 | | Store_Unchecked 0x2,0x3
031e 4803 |H | Short_Literal 0x3
031f e403 | | Load 0x2,0x3
0320 e402 | | Load 0x2,0x2
0321 821d | | Call 0x1,0x1d
0322 e403 | | Load 0x2,0x3
0323 0a01 | | Execute_Immediate Plus,0x1
0324 c402 | | Store 0x2,0x2
0325 781b |x | Jump 0x341
0326 e402 | | Load 0x2,0x2
0327 e5ff | | Load 0x2,-0x1
0328 01d7 | | Execute Vector,Field_Read
0329 0f2d | - | Execute_Immediate Equal,0x2d
032a 680f |h | Jump_Zero 0x33a
032b e402 | | Load 0x2,0x2
032c e404 | | Load 0x2,0x4
032d 027c | | | Execute Discrete,Less
032e 680b |h | Jump_Zero 0x33a
032f e402 | | Load 0x2,0x2
0330 0a01 | | Execute_Immediate Plus,0x1
0331 e5ff | | Load 0x2,-0x1
0332 01d7 | | Execute Vector,Field_Read
0333 0f2d | - | Execute_Immediate Equal,0x2d
0334 6805 |h | Jump_Zero 0x33a
0335 4802 |H | Short_Literal 0x2
0336 e404 | | Load 0x2,0x4
0337 e402 | | Load 0x2,0x2
0338 821d | | Call 0x1,0x1d
0339 4502 |E | Exit_Suprogram New_Top_Offset 0x2
033a 4800 |H | Short_Literal 0x0
033b e402 | | Load 0x2,0x2
033c 00d8 | | Load_Top At_Offset_0
033d 821d | | Call 0x1,0x1d
033e e402 | | Load 0x2,0x2
033f 0a01 | | Execute_Immediate Plus,0x1
0340 c402 | | Store 0x2,0x2
0341 00c9 | | Action Pop_Auxiliary_Loop
0342 7f66 | f | Jump 0x2a9
0343 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0344 ; --------------------------------------------------------------------------------------
0344 ; STRING TABLE
0344 ; --------------------------------------------------------------------------------------
0344 0016 | | .STRTAB 0x0016->0x034f ; "NORMAL"
0345 001a | | .STRTAB 0x001a->0x0352 ; "BOLD"
0346 001c | | .STRTAB 0x001c->0x0354 ; "ITALIC"
0347 0020 | | .STRTAB 0x0020->0x0357 ; "BOLD_ITALIC"
0348 0029 | ) | .STRTAB 0x0029->0x035c ; "~b(~i("
0349 002d | - | .STRTAB 0x002d->0x035f ; "))"
034a 002d | - | .STRTAB 0x002d->0x0360 ; "~b("
034b 002e | . | .STRTAB 0x002e->0x0362 ; "~begin(italic)"
034c 003a | : | .STRTAB 0x003a->0x0369 ; "~end(italic)"
034d 0044 | D | .STRTAB 0x0044->0x036f ; "Too many Ada tokens on one input line; font styles will be merged"
034e 0083 | | .STREND 0x0083->0x038f
034f 4e4f 524d |NORM| .STRTAB_STRINGS
0390 ; --------------------------------------------------------------------------------------
0390 ; Debug Table
0390 ; --------------------------------------------------------------------------------------
0390 0004 000f | | .DEBUG4 0x0004,0x000f,0x4308,0x0000,0x0001,0x0000
0396 52e8 0000 |R | .XXX[0x5e]
0398 0004 0e9b | |
039a ec14 0029 | )|
039c 7400 0000 |t |
039e 0207 4df6 | M |
03a0 0a00 14ba | |
03a2 0000 0001 | |
03a4 03a6 fb05 | |
03a6 000a 5d00 | ] |
03a8 0000 0081 | |
03aa d37d 8280 | } |
03ac 052e 8000 | . |
03ae 0000 40e9 | @ |
03b0 bec1 4002 | @ |
03b2 9740 0000 | @ |
03b4 0020 74df | t |
03b6 60a0 014b |` K|
03b8 a000 0000 | |
03ba 103a 6fb0 | :o |
03bc 5000 a5d0 |P |
03be 0000 0008 | |
03c0 1d37 d828 | 7 (|
03c2 0052 e800 | R |
03c4 0000 040e | |
03c6 9bec 1400 | |
03c8 2974 0000 |)t |
03ca 0002 074d | M|
03cc f60a 0014 | |
03ce ba00 0000 | |
03d0 0103 a6fb | |
03d2 0500 0a5d | ]|
03d4 0000 0000 | |
03d6 81d3 7d82 | } |
03d8 8005 2e80 | . |
03da 0000 0040 | @|
03dc e9be c140 | @|
03de 0297 4000 | @ |
03e0 0000 2074 | t|
03e2 df60 a001 | ` |
03e4 4ba0 0000 |K |
03e6 0010 3a6f | :o|
03e8 b050 00a5 | P |
03ea d000 0000 | |
03ec 081d 37d8 | 7 |
03ee 2800 52e8 |( R |
03f0 0000 0004 | |
03f2 0e9b ec00 | |
03f4 0000 0000 | | .BLANK 0000[0xc]