|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0148 | H | .CONST 0x0148 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 005a | Z | .CONST 0x005a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0024 | $ | .CONST 0x0024 ; Number of locals
000b INIT_0008:
000b 4818 |H | Short_Literal 0x18 ; Debug Table 0x0 = .DEBUG 0x000b,0x01c2,0xc000,0x0000,0x004d,0xf215,0x0000,0x0003
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
000d 029a 0063 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0060 ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 006b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0068 ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 009b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0098 ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 00a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a0 ; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 4818 |H | Short_Literal 0x18 ; Debug Table 0x0.0x5 = 0x15,0xfffa
0016 03cf | | Declare_Type Access,Incomplete,Visible
0017 029a 00b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b0 ; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 029a 00bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b8 ; Debug Table 0x0.0x7 = 0x19,0xfff8
001b 029a 00c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c0 ; Debug Table 0x0.0x8 = 0x1b,0xfff7
001d 029a 00d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d0 ; Debug Table 0x0.0x9 = 0x1d,0xfff6
001f 029a 00db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d8 ; Debug Table 0x0.0xa = 0x1f,0xfff5
0021 029a 00eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e8 ; Debug Table 0x0.0xb = 0x21,0xfff4
0023 029a 00f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f0 ; Debug Table 0x0.0xc = 0x23,0xfff3
0025 4803 |H | Short_Literal 0x3 ; Debug Table 0x0.0xd = 0x25,0xfff2
0026 032a | * | Declare_Type Record,Incomplete
0027 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0xe = 0x27,0xfff1
0028 02a0 | | Declare_Subprogram Null_Subprogram
0029 e211 | | Load 0x1,0x11
002a 03c7 | | Complete_Type Access,By_Defining
002b 0007 | | Action Break_Optional ; Debug Table 0x0.0xf = 0x2b,0xfff0
002c e20f | | Load 0x1,0xf ; Debug Table 0x0.0x10 = 0x2c,0xffef
002d e211 | | Load 0x1,0x11
002e e211 | | Load 0x1,0x11
002f 029f 0113 | | Declare_Subprogram For_Call,INIT_0110
0031 e21e | | Load 0x1,0x1e
0032 0326 | & | Complete_Type Record,By_Defining
0033 e211 | | Load 0x1,0x11 ; Debug Table 0x0.0x11 = 0x33,0xffee
0034 e216 | | Load 0x1,0x16
0035 03c6 | | Complete_Type Access,By_Renaming
0036 0007 | | Action Break_Optional ; Debug Table 0x0.0x12 = 0x36,0xffed
0037 0007 | | Action Break_Optional ; Debug Table 0x0.0x13 = 0x37,0xffec
0038 00bf | | Action Accept_Activation ; Debug Table 0x0.0x14 = 0x38,0xffeb
0039 a001 | | Reference 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x0039,0x01ee,0xc000,0x0000,0x004d,0xf275,0x0000,0x0005
; Debug Table 0x1.0x0 = 0x39,0xffff
003a 00c6 | | Action Check_Subprogram_Elaborated
003b 00d8 | | Load_Top At_Offset_0
003c e211 | | Load 0x1,0x11
003d 6106 |a | Indirect_Literal Discrete,0x144,{0x00000000, 0x004df275}
003e 4806 |H | Short_Literal 0x6
003f 4800 |H | Short_Literal 0x0
0040 0007 | | Action Break_Optional
0041 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x41,0xfffe
0042 029d 012b | +| Declare_Subprogram For_Outer_Call,INIT_0128 ; Debug Table 0x1.0x2 = 0x42,0xfffd
0044 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x3 = 0x44,0xfffc
0045 00c7 | | Action Elaborate_Subprogram
0046 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x4 = 0x46,0xfffb
0047 00c7 | | Action Elaborate_Subprogram
0048 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x5 = 0x48,0xfffa
0049 00c7 | | Action Elaborate_Subprogram
004a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x6 = 0x4a,0xfff9
004b 00c7 | | Action Elaborate_Subprogram
004c 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x7 = 0x4c,0xfff8
004d 00c7 | | Action Elaborate_Subprogram
004e 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0x8 = 0x4e,0xfff7
004f 00c7 | | Action Elaborate_Subprogram
0050 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x9 = 0x50,0xfff6
0051 00c7 | | Action Elaborate_Subprogram
0052 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0xa = 0x52,0xfff5
0053 00c7 | | Action Elaborate_Subprogram
0054 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0xb = 0x54,0xfff4
0055 00c7 | | Action Elaborate_Subprogram
0056 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0xc = 0x56,0xfff3
0057 00c7 | | Action Elaborate_Subprogram
0058 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0xd = 0x58,0xfff2
0059 00c7 | | Action Elaborate_Subprogram
005a BODY_0008:
005a 00bc | | Action Signal_Activated
005b 00bb | | Action Signal_Completion
005c 0000 0000 | | .BLANK 0000[0x4]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 e211 | | Load 0x1,0x11 ; Debug Table 0x2 = .DEBUG 0x0063,0x020c,0x1002,0x0000,0x004d,0xf215,0x0000,0x001c
; Debug Table 0x2.0x0 = 0x63,0x1
0064 00ca | | Action Exit_Nullary_Function
0065 0000 0000 | | .XXX[0x3]
0067 0000 | |
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006d | m | .CONST 0x006d ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0002 | | .CONST 0x0002 ; Number of locals
006b INIT_0068:
006b e211 | | Load 0x1,0x11 ; Debug Table 0x3 = .DEBUG 0x006b,0x0210,0x1001,0x0000,0x004d,0xf215,0x0000,0x0021
; Debug Table 0x3.0x0 = 0x6b,0xffff
006c 0007 | | Action Break_Optional
006d BODY_0068:
006d e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x1 = 0x6d,0x1
006e 8214 | | Call 0x1,0x14
006f 680a |h | Jump_Zero 0x7a
0070 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x2 = 0x70,0x2
0071 e20f | | Load 0x1,0xf
0072 0119 | | Execute Any,Check_In_Formal_Type
0073 8224 | $ | Call 0x1,0x24
0074 a5fe | | Store_Unchecked 0x2,-0x2
0075 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x3 = 0x75,0x3
0076 e5fe | | Load 0x2,-0x2
0077 0227 | ' | Execute Access,All_Reference
0078 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0079 4502 |E | Exit_Subprogram 0x2
007a 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x4 = 0x7a,0x4
007b e20f | | Load 0x1,0xf
007c 0119 | | Execute Any,Check_In_Formal_Type
007d 8224 | $ | Call 0x1,0x24
007e 0039 | 9 | Store_Top Access,At_Offset_1
007f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x5 = 0x7f,0x5
0080 e5fe | | Load 0x2,-0x2
0081 0227 | ' | Execute Access,All_Reference
0082 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0083 0227 | ' | Execute Access,All_Reference
0084 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0085 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x6 = 0x85,0x6
0086 e5fe | | Load 0x2,-0x2
0087 0227 | ' | Execute Access,All_Reference
0088 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0089 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x7 = 0x89,0x7
008a 0227 | ' | Execute Access,All_Reference
008b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
008c e5fe | | Load 0x2,-0x2
008d 0227 | ' | Execute Access,All_Reference
008e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
008f 0227 | ' | Execute Access,All_Reference
0090 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0091 4502 |E | Exit_Subprogram 0x2
0092 0000 0000 | | .BLANK 0000[0x6]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x009b,0x0222,0x1002,0x0000,0x004d,0xf215,0x0000,0x002d
; Debug Table 0x4.0x0 = 0x9b,0x1
009c e211 | | Load 0x1,0x11
009d 022f | / | Execute Access,Equal
009e 4401 |D | Exit_Subprogram With_Result,0x1
009f 0000 | | .XXX[0x1]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x00a3,0x0226,0x1002,0x0000,0x004d,0xf215,0x0000,0x0036
; Debug Table 0x5.0x0 = 0xa3,0x1
00a4 8214 | | Call 0x1,0x14
00a5 6802 |h | Jump_Zero 0xa8
00a6 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x1 = 0xa6,0x2
00a7 4401 |D | Exit_Subprogram With_Result,0x1
00a8 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x2 = 0xa8,0x3
00a9 0227 | ' | Execute Access,All_Reference
00aa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ab 8215 | | Call 0x1,0x15
00ac 0a01 | | Execute_Immediate Plus,0x1
00ad 00e3 | | Load_Encached Natural_Cache
00ae 025b | [ | Execute Discrete,Check_In_Type
00af 4401 |D | Exit_Subprogram With_Result,0x1
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x00b3,0x022e,0x1001,0x0000,0x004d,0xf215,0x0000,0x0043
; Debug Table 0x6.0x0 = 0xb3,0x1
00b4 a5fe | | Store_Unchecked 0x2,-0x2
00b5 4502 |E | Exit_Subprogram 0x2
00b6 0000 0000 | | .XXX[0x2]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x00bb,0x0232,0x1001,0x0000,0x004d,0xf215,0x0000,0x004f
; Debug Table 0x7.0x0 = 0xbb,0x1
00bc 0227 | ' | Execute Access,All_Reference
00bd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00be 003b | ; | Store_Top Access,At_Offset_3
00bf 4501 |E | Exit_Subprogram 0x1
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x00c3,0x0236,0x1002,0x0000,0x004d,0xf215,0x0000,0x0057
; Debug Table 0x8.0x0 = 0xc3,0x1
00c4 0227 | ' | Execute Access,All_Reference
00c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00c6 00d8 | | Load_Top At_Offset_0
00c7 0120 | | Execute Any,Is_Value
00c8 7002 |p | Jump_Nonzero 0xcb
00c9 00d8 | | Load_Top At_Offset_0
00ca 011e | | Execute Any,Convert
00cb e20f | | Load 0x1,0xf
00cc 0119 | | Execute Any,Check_In_Formal_Type
00cd 4401 |D | Exit_Subprogram With_Result,0x1
00ce 0000 0000 | | .XXX[0x2]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x00d3,0x023a,0x1002,0x0000,0x004d,0xf215,0x0000,0x0060
; Debug Table 0x9.0x0 = 0xd3,0x1
00d4 8214 | | Call 0x1,0x14
00d5 4401 |D | Exit_Subprogram With_Result,0x1
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 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x00db,0x023e,0x1002,0x0000,0x004d,0xf215,0x0000,0x0069
; Debug Table 0xa.0x0 = 0xdb,0x1
00dc 0227 | ' | Execute Access,All_Reference
00dd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00de 00d8 | | Load_Top At_Offset_0
00df 0120 | | Execute Any,Is_Value
00e0 7002 |p | Jump_Nonzero 0xe3
00e1 00d8 | | Load_Top At_Offset_0
00e2 011e | | Execute Any,Convert
00e3 e20f | | Load 0x1,0xf
00e4 0119 | | Execute Any,Check_In_Formal_Type
00e5 4401 |D | Exit_Subprogram With_Result,0x1
00e6 0000 0000 | | .XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x00eb,0x0242,0x1002,0x0000,0x004d,0xf215,0x0000,0x0072
; Debug Table 0xb.0x0 = 0xeb,0x1
00ec 0227 | ' | Execute Access,All_Reference
00ed 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ee 4401 |D | Exit_Subprogram With_Result,0x1
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 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x00f3,0x0246,0x1001,0x0000,0x004d,0xf215,0x0000,0x007b
; Debug Table 0xc.0x0 = 0xf3,0x1
00f4 8214 | | Call 0x1,0x14
00f5 6801 |h | Jump_Zero 0xf7
00f6 4501 |E | Exit_Subprogram 0x1 ; Debug Table 0xc.0x1 = 0xf6,0x2
00f7 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x2 = 0xf7,0x3
00f8 0229 | ) | Execute Access,All_Read
00f9 00d8 | | Load_Top At_Offset_0
00fa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00fb 821d | | Call 0x1,0x1d
00fc 00d9 | | Load_Top At_Offset_1
00fd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00fe 00d1 | | Pop_Control Pop_Count_1
00ff 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x3 = 0xff,0x4
0100 0229 | ) | Execute Access,All_Read
0101 00d8 | | Load_Top At_Offset_0
0102 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0103 8210 | | Call 0x1,0x10
0104 00d9 | | Load_Top At_Offset_1
0105 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0106 00d1 | | Pop_Control Pop_Count_1
0107 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x4 = 0x107,0x5
0108 e21f | | Load 0x1,0x1f
0109 e220 | | Load 0x1,0x20
010a 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
010b 8001 | | Call 0x0,0x1
010c 003b | ; | Store_Top Access,At_Offset_3
010d 4501 |E | Exit_Subprogram 0x1
010e 0000 0000 | | .XXX[0x2]
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 4608 |F | Jump_Case 0x8 ; Debug Table 0xd = .DEBUG 0x0113,0x0252,0x1005,0x0000,0x004d,0xf215,0x0000,0x0091
0114 7808 |x | Jump 0x11d ; case 0x0
0115 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
0116 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x2
0117 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x3
0118 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x4
0119 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x5
011a 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x6
011b 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x7
011c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x8
011d 00da | | Load_Top At_Offset_2
011e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
011f 0125 | % | Execute Any,Set_Constraint
0120 00da | | Load_Top At_Offset_2
0121 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0122 1c00 | | Execute_Immediate Run_Utility,0x0
0123 4302 |C | Exit_Subprogram From_Utility,0x2
0124 0000 0000 | | .BLANK 0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 013c | < | .CONST 0x013c ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0002 | | .CONST 0x0002 ; Number of locals
012b INIT_0128:
012b e211 | | Load 0x1,0x11 ; Debug Table 0xe = .DEBUG 0x012b,0x0254,0x1002,0x0000,0x004d,0xf275,0x0000,0x0015
; Debug Table 0xe.0x0 = 0x12b,0xffff
012c e21e | | Load 0x1,0x1e
012d 0322 | " | Declare_Variable Record
012e e5ff | | Load 0x2,-0x1
012f e20f | | Load 0x1,0xf
0130 0119 | | Execute Any,Check_In_Formal_Type
0131 00d9 | | Load_Top At_Offset_1
0132 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0133 e211 | | Load 0x1,0x11
0134 00d9 | | Load_Top At_Offset_1
0135 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0136 e211 | | Load 0x1,0x11
0137 00d9 | | Load_Top At_Offset_1
0138 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0139 e211 | | Load 0x1,0x11
013a 03b6 | | Declare_Variable Access,By_Allocation,With_Value
013b 0039 | 9 | Store_Top Access,At_Offset_1
013c BODY_0128:
013c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x1 = 0x13c,0x1
013d 00d9 | | Load_Top At_Offset_1
013e 0227 | ' | Execute Access,All_Reference
013f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0140 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x2 = 0x140,0x2
0141 4401 |D | Exit_Subprogram With_Result,0x1
0142 0000 0000 | | .XXX[0x2]
0144 0000 0000 | | .LITERAL {0x00000000, 0x004df275}
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug Table
0148 ; --------------------------------------------------------------------------------------
0148 0003 000f | | .CONST 0x0003,0x000f
014a 000b 01c2 | | .DEBUG 0x000b,0x01c2,0xc000,0x0000,0x004d,0xf215,0x0000,0x0003
0152 0039 01ee | 9 | .DEBUG 0x0039,0x01ee,0xc000,0x0000,0x004d,0xf275,0x0000,0x0005
015a 0063 020c | c | .DEBUG 0x0063,0x020c,0x1002,0x0000,0x004d,0xf215,0x0000,0x001c
0162 006b 0210 | k | .DEBUG 0x006b,0x0210,0x1001,0x0000,0x004d,0xf215,0x0000,0x0021
016a 009b 0222 | "| .DEBUG 0x009b,0x0222,0x1002,0x0000,0x004d,0xf215,0x0000,0x002d
0172 00a3 0226 | &| .DEBUG 0x00a3,0x0226,0x1002,0x0000,0x004d,0xf215,0x0000,0x0036
017a 00b3 022e | .| .DEBUG 0x00b3,0x022e,0x1001,0x0000,0x004d,0xf215,0x0000,0x0043
0182 00bb 0232 | 2| .DEBUG 0x00bb,0x0232,0x1001,0x0000,0x004d,0xf215,0x0000,0x004f
018a 00c3 0236 | 6| .DEBUG 0x00c3,0x0236,0x1002,0x0000,0x004d,0xf215,0x0000,0x0057
0192 00d3 023a | :| .DEBUG 0x00d3,0x023a,0x1002,0x0000,0x004d,0xf215,0x0000,0x0060
019a 00db 023e | >| .DEBUG 0x00db,0x023e,0x1002,0x0000,0x004d,0xf215,0x0000,0x0069
01a2 00eb 0242 | B| .DEBUG 0x00eb,0x0242,0x1002,0x0000,0x004d,0xf215,0x0000,0x0072
01aa 00f3 0246 | F| .DEBUG 0x00f3,0x0246,0x1001,0x0000,0x004d,0xf215,0x0000,0x007b
01b2 0113 0252 | R| .DEBUG 0x0113,0x0252,0x1005,0x0000,0x004d,0xf215,0x0000,0x0091
01ba 012b 0254 | + T| .DEBUG 0x012b,0x0254,0x1002,0x0000,0x004d,0xf275,0x0000,0x0015
01c2 ; --------------------------------------------------------------------------------------
01c2 ; Debug3 Subtable 0x0
01c2 ; --------------------------------------------------------------------------------------
01c2 0015 0000 | | .DBG3TAB 0x0015,0x0000
01c4 000b ffff | | .CONST 0x000b,0xffff
01c6 000d fffe | | .CONST 0x000d,0xfffe
01c8 000f fffd | | .CONST 0x000f,0xfffd
01ca 0011 fffc | | .CONST 0x0011,0xfffc
01cc 0013 fffb | | .CONST 0x0013,0xfffb
01ce 0015 fffa | | .CONST 0x0015,0xfffa
01d0 0017 fff9 | | .CONST 0x0017,0xfff9
01d2 0019 fff8 | | .CONST 0x0019,0xfff8
01d4 001b fff7 | | .CONST 0x001b,0xfff7
01d6 001d fff6 | | .CONST 0x001d,0xfff6
01d8 001f fff5 | | .CONST 0x001f,0xfff5
01da 0021 fff4 | ! | .CONST 0x0021,0xfff4
01dc 0023 fff3 | # | .CONST 0x0023,0xfff3
01de 0025 fff2 | % | .CONST 0x0025,0xfff2
01e0 0027 fff1 | ' | .CONST 0x0027,0xfff1
01e2 002b fff0 | + | .CONST 0x002b,0xfff0
01e4 002c ffef | , | .CONST 0x002c,0xffef
01e6 0033 ffee | 3 | .CONST 0x0033,0xffee
01e8 0036 ffed | 6 | .CONST 0x0036,0xffed
01ea 0037 ffec | 7 | .CONST 0x0037,0xffec
01ec 0038 ffeb | 8 | .CONST 0x0038,0xffeb
01ee ; --------------------------------------------------------------------------------------
01ee ; Debug3 Subtable 0x1
01ee ; --------------------------------------------------------------------------------------
01ee 000e 0000 | | .DBG3TAB 0x000e,0x0000
01f0 0039 ffff | 9 | .CONST 0x0039,0xffff
01f2 0041 fffe | A | .CONST 0x0041,0xfffe
01f4 0042 fffd | B | .CONST 0x0042,0xfffd
01f6 0044 fffc | D | .CONST 0x0044,0xfffc
01f8 0046 fffb | F | .CONST 0x0046,0xfffb
01fa 0048 fffa | H | .CONST 0x0048,0xfffa
01fc 004a fff9 | J | .CONST 0x004a,0xfff9
01fe 004c fff8 | L | .CONST 0x004c,0xfff8
0200 004e fff7 | N | .CONST 0x004e,0xfff7
0202 0050 fff6 | P | .CONST 0x0050,0xfff6
0204 0052 fff5 | R | .CONST 0x0052,0xfff5
0206 0054 fff4 | T | .CONST 0x0054,0xfff4
0208 0056 fff3 | V | .CONST 0x0056,0xfff3
020a 0058 fff2 | X | .CONST 0x0058,0xfff2
020c ; --------------------------------------------------------------------------------------
020c ; Debug3 Subtable 0x2
020c ; --------------------------------------------------------------------------------------
020c 0000 0001 | | .DBG3TAB 0x0000,0x0001
020e 0063 0001 | c | .CONST 0x0063,0x0001
0210 ; --------------------------------------------------------------------------------------
0210 ; Debug3 Subtable 0x3
0210 ; --------------------------------------------------------------------------------------
0210 0001 0007 | | .DBG3TAB 0x0001,0x0007
0212 006b ffff | k | .CONST 0x006b,0xffff
0214 006d 0001 | m | .CONST 0x006d,0x0001
0216 0070 0002 | p | .CONST 0x0070,0x0002
0218 0075 0003 | u | .CONST 0x0075,0x0003
021a 007a 0004 | z | .CONST 0x007a,0x0004
021c 007f 0005 | | .CONST 0x007f,0x0005
021e 0085 0006 | | .CONST 0x0085,0x0006
0220 0089 0007 | | .CONST 0x0089,0x0007
0222 ; --------------------------------------------------------------------------------------
0222 ; Debug3 Subtable 0x4
0222 ; --------------------------------------------------------------------------------------
0222 0000 0001 | | .DBG3TAB 0x0000,0x0001
0224 009b 0001 | | .CONST 0x009b,0x0001
0226 ; --------------------------------------------------------------------------------------
0226 ; Debug3 Subtable 0x5
0226 ; --------------------------------------------------------------------------------------
0226 0000 0003 | | .DBG3TAB 0x0000,0x0003
0228 00a3 0001 | | .CONST 0x00a3,0x0001
022a 00a6 0002 | | .CONST 0x00a6,0x0002
022c 00a8 0003 | | .CONST 0x00a8,0x0003
022e ; --------------------------------------------------------------------------------------
022e ; Debug3 Subtable 0x6
022e ; --------------------------------------------------------------------------------------
022e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0230 00b3 0001 | | .CONST 0x00b3,0x0001
0232 ; --------------------------------------------------------------------------------------
0232 ; Debug3 Subtable 0x7
0232 ; --------------------------------------------------------------------------------------
0232 0000 0001 | | .DBG3TAB 0x0000,0x0001
0234 00bb 0001 | | .CONST 0x00bb,0x0001
0236 ; --------------------------------------------------------------------------------------
0236 ; Debug3 Subtable 0x8
0236 ; --------------------------------------------------------------------------------------
0236 0000 0001 | | .DBG3TAB 0x0000,0x0001
0238 00c3 0001 | | .CONST 0x00c3,0x0001
023a ; --------------------------------------------------------------------------------------
023a ; Debug3 Subtable 0x9
023a ; --------------------------------------------------------------------------------------
023a 0000 0001 | | .DBG3TAB 0x0000,0x0001
023c 00d3 0001 | | .CONST 0x00d3,0x0001
023e ; --------------------------------------------------------------------------------------
023e ; Debug3 Subtable 0xa
023e ; --------------------------------------------------------------------------------------
023e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0240 00db 0001 | | .CONST 0x00db,0x0001
0242 ; --------------------------------------------------------------------------------------
0242 ; Debug3 Subtable 0xb
0242 ; --------------------------------------------------------------------------------------
0242 0000 0001 | | .DBG3TAB 0x0000,0x0001
0244 00eb 0001 | | .CONST 0x00eb,0x0001
0246 ; --------------------------------------------------------------------------------------
0246 ; Debug3 Subtable 0xc
0246 ; --------------------------------------------------------------------------------------
0246 0000 0005 | | .DBG3TAB 0x0000,0x0005
0248 00f3 0001 | | .CONST 0x00f3,0x0001
024a 00f6 0002 | | .CONST 0x00f6,0x0002
024c 00f7 0003 | | .CONST 0x00f7,0x0003
024e 00ff 0004 | | .CONST 0x00ff,0x0004
0250 0107 0005 | | .CONST 0x0107,0x0005
0252 ; --------------------------------------------------------------------------------------
0252 ; Debug3 Subtable 0xd
0252 ; --------------------------------------------------------------------------------------
0252 0000 0000 | | .DBG3TAB 0x0000,0x0000
0254 ; --------------------------------------------------------------------------------------
0254 ; Debug3 Subtable 0xe
0254 ; --------------------------------------------------------------------------------------
0254 0001 0002 | | .DBG3TAB 0x0001,0x0002
0256 012b ffff | + | .CONST 0x012b,0xffff
0258 013c 0001 | < | .CONST 0x013c,0x0001
025a 0140 0002 | @ | .CONST 0x0140,0x0002
025c 0000 0000 | | .BLANK 0000[0x1a4]