|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Types: SEG
Notes: 5811_R1K_CODE
Names: »592915.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »592915.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »592915.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »592915.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »592915.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »592915.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0108 | | .CONST 0x0108 ; 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 0053 | S | .CONST 0x0053 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001f | | .CONST 0x001f ; Number of locals
000b INIT_0008:
000b 4818 |H | Short_Literal 0x18 ; Debug Table 0x0 = .DEBUG 0x000b,0x018a,0xc000,0x0000,0x0036,0x9964,0x0000,0x0005
; Debug Table 0x0.0x0 = 0xb,0xffff
; Debug Table 0x0.0x1 = 0xb,0xfffe
; Debug Table 0x0.0x2 = 0xb,0xfffd
000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0xd,0xfffc
000f 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0xf,0xfffb
0011 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x11,0xfffa
0013 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x13,0xfff9
0015 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x15,0xfff8
0017 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x17,0xfff7
0019 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x19,0xfff6
001b 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x1b,0xfff5
001d 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x1d,0xfff4
001f 4818 |H | Short_Literal 0x18 ; Debug Table 0x0.0xc = 0x1f,0xfff3
0020 03cf | | Declare_Type Access,Incomplete,Visible
0021 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x21,0xfff2
0023 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x23,0xfff1
0025 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x25,0xfff0
0027 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x10 = 0x27,0xffef
0029 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0x11 = 0x29,0xffee
; Debug Table 0x0.0x12 = 0x29,0xffed
; Debug Table 0x0.0x13 = 0x29,0xffec
; Debug Table 0x0.0x14 = 0x29,0xffeb
; Debug Table 0x0.0x15 = 0x29,0xffea
; Debug Table 0x0.0x16 = 0x29,0xffe9
; Debug Table 0x0.0x17 = 0x29,0xffe8
; Debug Table 0x0.0x18 = 0x29,0xffe7
; Debug Table 0x0.0x19 = 0x29,0xffe6
; Debug Table 0x0.0x1a = 0x29,0xffe5
; Debug Table 0x0.0x1b = 0x29,0xffe4
; Debug Table 0x0.0x1c = 0x29,0xffe3
; Debug Table 0x0.0x1d = 0x29,0xffe2
002a 032a | * | Declare_Type Record,Incomplete
002b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x1e = 0x2b,0xffe1
002c 02a0 | | Declare_Subprogram Null_Subprogram
002d e210 | | Load 0x1,0x10
002e 03c7 | | Complete_Type Access,By_Defining
002f e20f | | Load 0x1,0xf ; Debug Table 0x0.0x1f = 0x2f,0xffe0
0030 e210 | | Load 0x1,0x10
0031 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call
0033 00db | | Load_Top At_Offset_3
0034 0326 | & | Complete_Type Record,By_Defining
0035 e210 | | Load 0x1,0x10 ; Debug Table 0x0.0x20 = 0x35,0xffdf
0036 e21a | | Load 0x1,0x1a
0037 03c6 | | Complete_Type Access,By_Renaming
0038 00bf | | Action Accept_Activation
0039 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1 = .DEBUG 0x0039,0x01ce,0xc000,0x0000,0x0036,0x9974,0x0000,0x0003
; Debug Table 0x1.0x0 = 0x39,0xffff
; Debug Table 0x1.0x1 = 0x39,0xfffe
003a 00c7 | | Action Elaborate_Subprogram
003b 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x2 = 0x3b,0xfffd
003c 00c7 | | Action Elaborate_Subprogram
003d 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x3 = 0x3d,0xfffc
003e 00c7 | | Action Elaborate_Subprogram
003f 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x4 = 0x3f,0xfffb
0040 00c7 | | Action Elaborate_Subprogram
0041 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x5 = 0x41,0xfffa
0042 00c7 | | Action Elaborate_Subprogram
0043 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x6 = 0x43,0xfff9
0044 00c7 | | Action Elaborate_Subprogram
0045 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x7 = 0x45,0xfff8
0046 00c7 | | Action Elaborate_Subprogram
0047 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x8 = 0x47,0xfff7
0048 00c7 | | Action Elaborate_Subprogram
0049 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x9 = 0x49,0xfff6
004a 00c7 | | Action Elaborate_Subprogram
004b 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0xa = 0x4b,0xfff5
004c 00c7 | | Action Elaborate_Subprogram
004d 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0xb = 0x4d,0xfff4
004e 00c7 | | Action Elaborate_Subprogram
004f 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0xc = 0x4f,0xfff3
0050 00c7 | | Action Elaborate_Subprogram
0051 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0xd = 0x51,0xfff2
0052 00c7 | | Action Elaborate_Subprogram
0053 BODY_0008:
0053 00bc | | Action Signal_Activated
0054 00bb | | Action Signal_Completion
0055 0000 0000 | | .XXX[0x3]
0057 0000 | |
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b e21f | | Load 0x1,0x1f ; Debug Table 0x2 = .DEBUG 0x005b,0x01ec,0x1002,0x0000,0x0036,0x9964,0x0000,0x001f
; Debug Table 0x2.0x0 = 0x5b,0x1
005c 0322 | " | Declare_Variable Record
005d 00db | | Load_Top At_Offset_3
005e e20f | | Load 0x1,0xf
005f 0119 | | Execute Any,Check_In_Formal_Type
0060 00d9 | | Load_Top At_Offset_1
0061 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0062 e5fe | | Load 0x2,-0x2
0063 00d9 | | Load_Top At_Offset_1
0064 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0065 e210 | | Load 0x1,0x10
0066 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0067 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b e210 | | Load 0x1,0x10 ; Debug Table 0x3 = .DEBUG 0x006b,0x01f0,0x1002,0x0000,0x0036,0x9964,0x0000,0x002c
; Debug Table 0x3.0x0 = 0x6b,0x1
006c 00ca | | Action Exit_Nullary_Function
006d 0000 0000 | | .XXX[0x3]
006f 0000 | |
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x0073,0x01f4,0x1002,0x0000,0x0036,0x9964,0x0000,0x0031
; Debug Table 0x4.0x0 = 0x73,0x1
0074 e210 | | Load 0x1,0x10 ; Debug Table 0x4.0x1 = 0x74,0x401
0075 022f | / | Execute Access,Equal ; Debug Table 0x4.0x2 = 0x75,0x1
0076 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0077 0000 | | .XXX[0x1]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b e210 | | Load 0x1,0x10 ; Debug Table 0x5 = .DEBUG 0x007b,0x01fc,0x1001,0x0000,0x0036,0x9964,0x0000,0x003a
; Debug Table 0x5.0x0 = 0x7b,0x1
007c 003b | ; | Store_Top Access,At_Offset_3
007d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
007e 0000 0000 | | .XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x0083,0x0200,0x1002,0x0000,0x0036,0x9964,0x0000,0x0042
; Debug Table 0x6.0x0 = 0x83,0x1
0084 0227 | ' | Execute Access,All_Reference
0085 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0086 00d8 | | Load_Top At_Offset_0
0087 0120 | | Execute Any,Is_Value
0088 7002 |p | Jump_Nonzero 0x8b
0089 00d8 | | Load_Top At_Offset_0
008a 011e | | Execute Any,Convert
008b e20f | | Load 0x1,0xf
008c 0119 | | Execute Any,Check_In_Formal_Type
008d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
008e 0000 0000 | | .XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x0093,0x0204,0x1002,0x0000,0x0036,0x9964,0x0000,0x004b
; Debug Table 0x7.0x0 = 0x93,0x1
0094 0227 | ' | Execute Access,All_Reference
0095 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0096 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0097 0000 | | .XXX[0x1]
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 00db | | Load_Top At_Offset_3 ; Debug Table 0x8 = .DEBUG 0x009b,0x0208,0x1001,0x0000,0x0036,0x9964,0x0000,0x0054
; Debug Table 0x8.0x0 = 0x9b,0x1
009c 00db | | Load_Top At_Offset_3
009d 0227 | ' | Execute Access,All_Reference
009e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
009f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 00db | | Load_Top At_Offset_3 ; Debug Table 0x9 = .DEBUG 0x00a3,0x020c,0x1001,0x0000,0x0036,0x9964,0x0000,0x0060
; Debug Table 0x9.0x0 = 0xa3,0x1
00a4 00db | | Load_Top At_Offset_3
00a5 0227 | ' | Execute Access,All_Reference
00a6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00a7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ae | | .CONST 0x00ae ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0003 | | .CONST 0x0003 ; Number of locals
00ab INIT_00a8:
00ab 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xa = .DEBUG 0x00ab,0x0210,0x1002,0x0000,0x0036,0x9964,0x0000,0x006c
; Debug Table 0xa.0x0 = 0xab,0xffff
00ac 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00ad e21a | | Load 0x1,0x1a ; Debug Table 0xa.0x1 = 0xad,0xfffe
00ae BODY_00a8:
00ae e21a | | Load 0x1,0x1a ; Debug Table 0xa.0x2 = 0xae,0x1
00af e5ff | | Load 0x2,-0x1
00b0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x3 = 0xb0,0x401
00b1 a404 | | Store_Unchecked 0x2,0x4
00b2 00d1 | | Pop_Control Pop_Count_1
00b3 0039 | 9 | Store_Top Access,At_Offset_1
00b4 7809 |x | Jump 0xbe
00b5 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0x4 = 0xb5,0x3
00b6 0a01 | | Execute_Immediate Plus,0x1
00b7 005a | Z | Store_Top Discrete,At_Offset_2
00b8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x5 = 0xb8,0x4
00b9 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x6 = 0xb9,0x801
00ba 0227 | ' | Execute Access,All_Reference
00bb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00bc a404 | | Store_Unchecked 0x2,0x4
00bd 0039 | 9 | Store_Top Access,At_Offset_1
00be 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x7 = 0xbe,0x2
; Debug Table 0xa.0x8 = 0xbe,0xc01
00bf 022d | - | Execute Access,Is_Null
00c0 6ff4 |o | Jump_Zero 0xb5 ; Debug Table 0xa.0x9 = 0xc0,0x2
00c1 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0xa = 0xc1,0x5
00c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c3 0000 0000 | | .BLANK 0000[0x5]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x00cb,0x0228,0x1001,0x0000,0x0036,0x9964,0x0000,0x0079
; Debug Table 0xb.0x0 = 0xcb,0x1
00cc a5fe | | Store_Unchecked 0x2,-0x2
00cd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 0xc = .DEBUG 0x00d3,0x022c,0x1001,0x0000,0x0036,0x9964,0x0000,0x0085
; Debug Table 0xc.0x0 = 0xd3,0x1
00d4 0227 | ' | Execute Access,All_Reference
00d5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d6 003b | ; | Store_Top Access,At_Offset_3
00d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
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 0xd = .DEBUG 0x00db,0x0230,0x1002,0x0000,0x0036,0x9964,0x0000,0x008d
; Debug Table 0xd.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_Value,New_Top_Offset 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 0xe = .DEBUG 0x00eb,0x0234,0x1002,0x0000,0x0036,0x9964,0x0000,0x0096
; Debug Table 0xe.0x0 = 0xeb,0x1
00ec 022d | - | Execute Access,Is_Null
00ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ee 0000 0000 | | .XXX[0x2]
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 4608 |F | Jump_Case 0x9 ; Debug Table 0xf = .DEBUG 0x00f3,0x0238,0x1005,0x0000,0x0036,0x9964,0x0000,0x00d9
00f4 7808 |x | Jump 0xfd ; case 0x0
00f5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00f6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
00f7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
00f8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
00f9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
00fa 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
00fb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
00fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
00fd 00da | | Load_Top At_Offset_2
00fe 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00ff 0125 | % | Execute Any,Set_Constraint
0100 00da | | Load_Top At_Offset_2
0101 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0102 1c00 | | Execute_Immediate Run_Utility,0x0
0103 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0104 0000 0000 | | .BLANK 0000[0x4]
0108 ; --------------------------------------------------------------------------------------
0108 ; Debug Table
0108 ; --------------------------------------------------------------------------------------
0108 0003 0010 | | .CONST 0x0003,0x0010
010a 000b 018a | | .DEBUG 0x000b,0x018a,0xc000,0x0000,0x0036,0x9964,0x0000,0x0005
0112 0039 01ce | 9 | .DEBUG 0x0039,0x01ce,0xc000,0x0000,0x0036,0x9974,0x0000,0x0003
011a 005b 01ec | [ | .DEBUG 0x005b,0x01ec,0x1002,0x0000,0x0036,0x9964,0x0000,0x001f
0122 006b 01f0 | k | .DEBUG 0x006b,0x01f0,0x1002,0x0000,0x0036,0x9964,0x0000,0x002c
012a 0073 01f4 | s | .DEBUG 0x0073,0x01f4,0x1002,0x0000,0x0036,0x9964,0x0000,0x0031
0132 007b 01fc | { | .DEBUG 0x007b,0x01fc,0x1001,0x0000,0x0036,0x9964,0x0000,0x003a
013a 0083 0200 | | .DEBUG 0x0083,0x0200,0x1002,0x0000,0x0036,0x9964,0x0000,0x0042
0142 0093 0204 | | .DEBUG 0x0093,0x0204,0x1002,0x0000,0x0036,0x9964,0x0000,0x004b
014a 009b 0208 | | .DEBUG 0x009b,0x0208,0x1001,0x0000,0x0036,0x9964,0x0000,0x0054
0152 00a3 020c | | .DEBUG 0x00a3,0x020c,0x1001,0x0000,0x0036,0x9964,0x0000,0x0060
015a 00ab 0210 | | .DEBUG 0x00ab,0x0210,0x1002,0x0000,0x0036,0x9964,0x0000,0x006c
0162 00cb 0228 | (| .DEBUG 0x00cb,0x0228,0x1001,0x0000,0x0036,0x9964,0x0000,0x0079
016a 00d3 022c | ,| .DEBUG 0x00d3,0x022c,0x1001,0x0000,0x0036,0x9964,0x0000,0x0085
0172 00db 0230 | 0| .DEBUG 0x00db,0x0230,0x1002,0x0000,0x0036,0x9964,0x0000,0x008d
017a 00eb 0234 | 4| .DEBUG 0x00eb,0x0234,0x1002,0x0000,0x0036,0x9964,0x0000,0x0096
0182 00f3 0238 | 8| .DEBUG 0x00f3,0x0238,0x1005,0x0000,0x0036,0x9964,0x0000,0x00d9
018a ; --------------------------------------------------------------------------------------
018a ; Debug3 Subtable 0x0
018a ; --------------------------------------------------------------------------------------
018a 0021 0000 | ! | .DBG3TAB 0x0021,0x0000
018c 000b ffff | | .CONST 0x000b,0xffff
018e 000b fffe | | .CONST 0x000b,0xfffe
0190 000b fffd | | .CONST 0x000b,0xfffd
0192 000d fffc | | .CONST 0x000d,0xfffc
0194 000f fffb | | .CONST 0x000f,0xfffb
0196 0011 fffa | | .CONST 0x0011,0xfffa
0198 0013 fff9 | | .CONST 0x0013,0xfff9
019a 0015 fff8 | | .CONST 0x0015,0xfff8
019c 0017 fff7 | | .CONST 0x0017,0xfff7
019e 0019 fff6 | | .CONST 0x0019,0xfff6
01a0 001b fff5 | | .CONST 0x001b,0xfff5
01a2 001d fff4 | | .CONST 0x001d,0xfff4
01a4 001f fff3 | | .CONST 0x001f,0xfff3
01a6 0021 fff2 | ! | .CONST 0x0021,0xfff2
01a8 0023 fff1 | # | .CONST 0x0023,0xfff1
01aa 0025 fff0 | % | .CONST 0x0025,0xfff0
01ac 0027 ffef | ' | .CONST 0x0027,0xffef
01ae 0029 ffee | ) | .CONST 0x0029,0xffee
01b0 0029 ffed | ) | .CONST 0x0029,0xffed
01b2 0029 ffec | ) | .CONST 0x0029,0xffec
01b4 0029 ffeb | ) | .CONST 0x0029,0xffeb
01b6 0029 ffea | ) | .CONST 0x0029,0xffea
01b8 0029 ffe9 | ) | .CONST 0x0029,0xffe9
01ba 0029 ffe8 | ) | .CONST 0x0029,0xffe8
01bc 0029 ffe7 | ) | .CONST 0x0029,0xffe7
01be 0029 ffe6 | ) | .CONST 0x0029,0xffe6
01c0 0029 ffe5 | ) | .CONST 0x0029,0xffe5
01c2 0029 ffe4 | ) | .CONST 0x0029,0xffe4
01c4 0029 ffe3 | ) | .CONST 0x0029,0xffe3
01c6 0029 ffe2 | ) | .CONST 0x0029,0xffe2
01c8 002b ffe1 | + | .CONST 0x002b,0xffe1
01ca 002f ffe0 | / | .CONST 0x002f,0xffe0
01cc 0035 ffdf | 5 | .CONST 0x0035,0xffdf
01ce ; --------------------------------------------------------------------------------------
01ce ; Debug3 Subtable 0x1
01ce ; --------------------------------------------------------------------------------------
01ce 000e 0000 | | .DBG3TAB 0x000e,0x0000
01d0 0039 ffff | 9 | .CONST 0x0039,0xffff
01d2 0039 fffe | 9 | .CONST 0x0039,0xfffe
01d4 003b fffd | ; | .CONST 0x003b,0xfffd
01d6 003d fffc | = | .CONST 0x003d,0xfffc
01d8 003f fffb | ? | .CONST 0x003f,0xfffb
01da 0041 fffa | A | .CONST 0x0041,0xfffa
01dc 0043 fff9 | C | .CONST 0x0043,0xfff9
01de 0045 fff8 | E | .CONST 0x0045,0xfff8
01e0 0047 fff7 | G | .CONST 0x0047,0xfff7
01e2 0049 fff6 | I | .CONST 0x0049,0xfff6
01e4 004b fff5 | K | .CONST 0x004b,0xfff5
01e6 004d fff4 | M | .CONST 0x004d,0xfff4
01e8 004f fff3 | O | .CONST 0x004f,0xfff3
01ea 0051 fff2 | Q | .CONST 0x0051,0xfff2
01ec ; --------------------------------------------------------------------------------------
01ec ; Debug3 Subtable 0x2
01ec ; --------------------------------------------------------------------------------------
01ec 0000 0001 | | .DBG3TAB 0x0000,0x0001
01ee 005b 0001 | [ | .CONST 0x005b,0x0001
01f0 ; --------------------------------------------------------------------------------------
01f0 ; Debug3 Subtable 0x3
01f0 ; --------------------------------------------------------------------------------------
01f0 0000 0001 | | .DBG3TAB 0x0000,0x0001
01f2 006b 0001 | k | .CONST 0x006b,0x0001
01f4 ; --------------------------------------------------------------------------------------
01f4 ; Debug3 Subtable 0x4
01f4 ; --------------------------------------------------------------------------------------
01f4 0000 0003 | | .DBG3TAB 0x0000,0x0003
01f6 0073 0001 | s | .CONST 0x0073,0x0001
01f8 0074 0401 | t | .CONST 0x0074,0x0401
01fa 0075 0001 | u | .CONST 0x0075,0x0001
01fc ; --------------------------------------------------------------------------------------
01fc ; Debug3 Subtable 0x5
01fc ; --------------------------------------------------------------------------------------
01fc 0000 0001 | | .DBG3TAB 0x0000,0x0001
01fe 007b 0001 | { | .CONST 0x007b,0x0001
0200 ; --------------------------------------------------------------------------------------
0200 ; Debug3 Subtable 0x6
0200 ; --------------------------------------------------------------------------------------
0200 0000 0001 | | .DBG3TAB 0x0000,0x0001
0202 0083 0001 | | .CONST 0x0083,0x0001
0204 ; --------------------------------------------------------------------------------------
0204 ; Debug3 Subtable 0x7
0204 ; --------------------------------------------------------------------------------------
0204 0000 0001 | | .DBG3TAB 0x0000,0x0001
0206 0093 0001 | | .CONST 0x0093,0x0001
0208 ; --------------------------------------------------------------------------------------
0208 ; Debug3 Subtable 0x8
0208 ; --------------------------------------------------------------------------------------
0208 0000 0001 | | .DBG3TAB 0x0000,0x0001
020a 009b 0001 | | .CONST 0x009b,0x0001
020c ; --------------------------------------------------------------------------------------
020c ; Debug3 Subtable 0x9
020c ; --------------------------------------------------------------------------------------
020c 0000 0001 | | .DBG3TAB 0x0000,0x0001
020e 00a3 0001 | | .CONST 0x00a3,0x0001
0210 ; --------------------------------------------------------------------------------------
0210 ; Debug3 Subtable 0xa
0210 ; --------------------------------------------------------------------------------------
0210 0002 0009 | | .DBG3TAB 0x0002,0x0009
0212 00ab ffff | | .CONST 0x00ab,0xffff
0214 00ad fffe | | .CONST 0x00ad,0xfffe
0216 00ae 0001 | | .CONST 0x00ae,0x0001
0218 00b0 0401 | | .CONST 0x00b0,0x0401
021a 00b5 0003 | | .CONST 0x00b5,0x0003
021c 00b8 0004 | | .CONST 0x00b8,0x0004
021e 00b9 0801 | | .CONST 0x00b9,0x0801
0220 00be 0002 | | .CONST 0x00be,0x0002
0222 00be 0c01 | | .CONST 0x00be,0x0c01
0224 00c0 0002 | | .CONST 0x00c0,0x0002
0226 00c1 0005 | | .CONST 0x00c1,0x0005
0228 ; --------------------------------------------------------------------------------------
0228 ; Debug3 Subtable 0xb
0228 ; --------------------------------------------------------------------------------------
0228 0000 0001 | | .DBG3TAB 0x0000,0x0001
022a 00cb 0001 | | .CONST 0x00cb,0x0001
022c ; --------------------------------------------------------------------------------------
022c ; Debug3 Subtable 0xc
022c ; --------------------------------------------------------------------------------------
022c 0000 0001 | | .DBG3TAB 0x0000,0x0001
022e 00d3 0001 | | .CONST 0x00d3,0x0001
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug3 Subtable 0xd
0230 ; --------------------------------------------------------------------------------------
0230 0000 0001 | | .DBG3TAB 0x0000,0x0001
0232 00db 0001 | | .CONST 0x00db,0x0001
0234 ; --------------------------------------------------------------------------------------
0234 ; Debug3 Subtable 0xe
0234 ; --------------------------------------------------------------------------------------
0234 0000 0001 | | .DBG3TAB 0x0000,0x0001
0236 00eb 0001 | | .CONST 0x00eb,0x0001
0238 ; --------------------------------------------------------------------------------------
0238 ; Debug3 Subtable 0xf
0238 ; --------------------------------------------------------------------------------------
0238 0000 0000 | | .DBG3TAB 0x0000,0x0000
023a 0000 0000 | | .BLANK 0000[0x1c6]