|
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: 580c_R1K_CODE
Names: »2267144.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »2267144.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »2267144.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »2267144.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »2267144.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »2267144.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code
0001 580c |X | .CONST 0x580c ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0188 | | .CONST 0x0188 ; 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 0101 | | .CONST 0x0101 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 001f | | .CONST 0x001f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0010 | | .CONST 0x0010 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x01ba,0x8000,0x0000,0x000e,0x4e14,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xd,0xfffd
000f 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0xf,0xfffc
0011 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x11,0xfffb
0013 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x13,0xfffa
0015 00bf | | Action Accept_Activation
0016 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0016,0x01c8,0x8000,0x0000,0x0013,0xa4d4,0x0000,0x000d
; Debug Table 0x1.0x0 = 0x16,0xffff
0017 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x1 = 0x17,0xfffe
0018 00c7 | | Action Elaborate_Subprogram
0019 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x2 = 0x19,0xfffd
001a 00c7 | | Action Elaborate_Subprogram
001b 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x3 = 0x1b,0xfffc
001c 00c7 | | Action Elaborate_Subprogram
001d 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x4 = 0x1d,0xfffb
001e 00c7 | | Action Elaborate_Subprogram
001f BODY_0008:
001f 00bc | | Action Signal_Activated
0020 00bb | | Action Signal_Completion
0021 0000 0000 | | .BLANK 0000[0x7]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 0046 | F | .CONST 0x0046 ; Address of begin
0029 00ad | | .CONST 0x00ad ; Address of exception handler
002a 000b | | .CONST 0x000b ; Number of locals
002b INIT_0028:
002b 48c8 |H | Short_Literal 0xc8 ; Debug Table 0x2 = .DEBUG 0x002b,0x01d4,0x0002,0x0000,0x000e,0x4e14,0x0000,0x0015
; Debug Table 0x2.0x0 = 0x2b,0xffff
002c e001 | | Load 0x0,0x1
002d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002e 1c08 | | Execute_Immediate Run_Utility,0x8
002f e402 | | Load 0x2,0x2
0030 1c00 | | Execute_Immediate Run_Utility,0x0
0031 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x2.0x1 = 0x31,0xfffe
0032 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0033 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x2 = 0x33,0xfffd
0034 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0035 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0036 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x3 = 0x36,0xfffc
0037 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0038 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x4 = 0x38,0xfffb
0039 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
003a e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x5 = 0x3a,0xfffa
003b 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
003c 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x2.0x6 = 0x3c,0xfff9
003d e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x7 = 0x3d,0xfff8
003e 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
003f 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x8 = 0x3f,0xfff7
0040 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x9 = 0x40,0xfff6
0041 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
0042 0322 | " | Declare_Variable Record
0043 0007 | | Action Break_Optional ; Debug Table 0x2.0xa = 0x43,0xfff5
0044 0007 | | Action Break_Optional ; Debug Table 0x2.0xb = 0x44,0xfff4
0045 0007 | | Action Break_Optional ; Debug Table 0x2.0xc = 0x45,0xfff3
0046 BODY_0028:
0046 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0xd = 0x46,0x1
0047 a40a | | Store_Unchecked 0x2,0xa
0048 e003 | | Load 0x0,0x3 ; Debug Table 0x2.0xe = 0x48,0x2
0049 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
004a a407 | | Store_Unchecked 0x2,0x7
004b e407 | | Load 0x2,0x7 ; Debug Table 0x2.0xf = 0x4b,0x3
004c e002 | | Load 0x0,0x2
004d 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
004e e002 | | Load 0x0,0x2
004f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0050 a405 | | Store_Unchecked 0x2,0x5
0051 e407 | | Load 0x2,0x7 ; Debug Table 0x2.0x10 = 0x51,0x4
0052 e405 | | Load 0x2,0x5
0053 e002 | | Load 0x0,0x2
0054 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0055 a406 | | Store_Unchecked 0x2,0x6
0056 e406 | | Load 0x2,0x6 ; Debug Table 0x2.0x11 = 0x56,0x5
0057 e002 | | Load 0x0,0x2
0058 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0059 a409 | | Store_Unchecked 0x2,0x9
005a 4fff |O | Short_Literal -0x1 ; Debug Table 0x2.0x12 = 0x5a,0x6
005b a408 | | Store_Unchecked 0x2,0x8
005c 0007 | | Action Break_Optional ; Debug Table 0x2.0x13 = 0x5c,0x7
005d e408 | | Load 0x2,0x8 ; Debug Table 0x2.0x14 = 0x5d,0x8
005e e409 | | Load 0x2,0x9
005f 0275 | u | Execute Discrete,Unary_Minus
0060 027a | z | Execute Discrete,Less_Equal
0061 702e |p. | Jump_Nonzero 0x90
0062 e409 | | Load 0x2,0x9 ; Debug Table 0x2.0x15 = 0x62,0x9
0063 e408 | | Load 0x2,0x8
0064 0273 | s | Execute Discrete,Plus
0065 e002 | | Load 0x0,0x2
0066 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0067 025b | [ | Execute Discrete,Check_In_Type
0068 e405 | | Load 0x2,0x5
0069 e002 | | Load 0x0,0x2
006a 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
006b e40b | | Load 0x2,0xb
006c 017d | } | Execute Record,Structure_Write
006d e40b | | Load 0x2,0xb ; Debug Table 0x2.0x16 = 0x6d,0xa
006e e002 | | Load 0x0,0x2
006f 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
0070 0b7e | ~ | Execute_Immediate Case_Compare,0x7e
0071 7005 |p | Jump_Nonzero 0x77
0072 e408 | | Load 0x2,0x8 ; Debug Table 0x2.0x17 = 0x72,0xe
0073 0aff | | Execute_Immediate Plus,-0x1
0074 0248 | H | Execute Discrete,Check_In_Integer
0075 a408 | | Store_Unchecked 0x2,0x8
0076 7817 |x | Jump 0x8e
0077 0007 | | Action Break_Optional ; Debug Table 0x2.0x18 = 0x77,0xb
0078 e408 | | Load 0x2,0x8 ; Debug Table 0x2.0x19 = 0x78,0x401
0079 0007 | | Action Break_Optional
007a 4802 |H | Short_Literal 0x2 ; Debug Table 0x2.0x1a = 0x7a,0x402
007b 0007 | | Action Break_Optional
007c 009c | | Action Load_Dynamic ; Debug Table 0x2.0x1b = 0x7c,0x403
007d 0007 | | Action Break_Optional
007e 0107 | | Execute Exception,Get_Name ; Debug Table 0x2.0x1c = 0x7e,0x404
007f 0007 | | Action Break_Optional
0080 c403 | | Store 0x2,0x3 ; Debug Table 0x2.0x1d = 0x80,0x405
0081 e408 | | Load 0x2,0x8 ; Debug Table 0x2.0x1e = 0x81,0x406
0082 0007 | | Action Break_Optional
0083 4802 |H | Short_Literal 0x2 ; Debug Table 0x2.0x1f = 0x83,0x407
0084 0007 | | Action Break_Optional
0085 009c | | Action Load_Dynamic ; Debug Table 0x2.0x20 = 0x85,0x408
0086 0007 | | Action Break_Optional
0087 0106 | | Execute Exception,Address ; Debug Table 0x2.0x21 = 0x87,0x409
0088 0007 | | Action Break_Optional
0089 c404 | | Store 0x2,0x4 ; Debug Table 0x2.0x22 = 0x89,0x40a
008a 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x23 = 0x8a,0xc
008b a40a | | Store_Unchecked 0x2,0xa
008c 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x2.0x24 = 0x8c,0xd
008d 7802 |x | Jump 0x90
008e 00d1 | | Pop_Control Pop_Count_1
008f 7fcd | | Jump 0x5d
0090 e40a | | Load 0x2,0xa ; Debug Table 0x2.0x25 = 0x90,0xf
0091 6818 |h | Jump_Zero 0xaa
0092 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x26 = 0x92,0x10
0093 e403 | | Load 0x2,0x3
0094 e004 | | Load 0x0,0x4
0095 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0096 e001 | | Load 0x0,0x1
0097 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0098 00d1 | | Pop_Control Pop_Count_1
0099 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x27 = 0x99,0x11
009a e001 | | Load 0x0,0x1
009b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
009c 7002 |p | Jump_Nonzero 0x9f
009d 60a2 |` | Indirect_Literal Discrete,0x140,{0x00000000, 0x13a4d401} ; Debug Table 0x2.0x28 = 0x9d,0x12
009e 0257 | W | Execute Discrete,Raise
009f e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x29 = 0x9f,0x13
00a0 e001 | | Load 0x0,0x1
00a1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a2 0092 0144 | D| Action Push_String_Extended,0x144 ; ", from PC = "
00a4 01cc | | Execute Vector,Catenate
00a5 e404 | | Load 0x2,0x4
00a6 e005 | | Load 0x0,0x5
00a7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00a8 01cc | | Execute Vector,Catenate
00a9 00ca | | Action Exit_Nullary_Function
00aa 0092 0145 | E| Action Push_String_Extended,0x145 ; "<What exception? I see no exception here.>"
; Debug Table 0x2.0x2a = 0xaa,0x14
00ac 00ca | | Action Exit_Nullary_Function
00ad TRAP_0028:
00ad 0007 | | Action Break_Optional
00ae e40a | | Load 0x2,0xa ; Debug Table 0x2.0x2b = 0xae,0x15
00af 681b |h | Jump_Zero 0xcb
00b0 0092 0146 | F| Action Push_String_Extended,0x146 ; "<Exception: Unit ="
; Debug Table 0x2.0x2c = 0xb0,0x16
00b2 e403 | | Load 0x2,0x3
00b3 09f8 | | Execute_Immediate Binary_Scale,-0x8
00b4 00e0 | | Load_Encached Standard_Cache
00b5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b6 01cc | | Execute Vector,Catenate
00b7 0092 0147 | G| Action Push_String_Extended,0x147 ; ", Ord ="
00b9 01cc | | Execute Vector,Catenate
00ba e403 | | Load 0x2,0x3
00bb 48ff |H | Short_Literal 0xff
00bc 0279 | y | Execute Discrete,And
00bd 00e0 | | Load_Encached Standard_Cache
00be 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00bf 01cc | | Execute Vector,Catenate
00c0 0092 0144 | D| Action Push_String_Extended,0x144 ; ", from PC = "
00c2 01cc | | Execute Vector,Catenate
00c3 e404 | | Load 0x2,0x4
00c4 e005 | | Load 0x0,0x5
00c5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c6 01cc | | Execute Vector,Catenate
00c7 0092 0148 | H| Action Push_String_Extended,0x148 ; ">"
00c9 01cc | | Execute Vector,Catenate
00ca 00ca | | Action Exit_Nullary_Function
00cb 0092 0149 | I| Action Push_String_Extended,0x149 ; "<Unable to load exception variable>"
; Debug Table 0x2.0x2d = 0xcb,0x17
00cd 00ca | | Action Exit_Nullary_Function
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 e004 | | Load 0x0,0x4 ; Debug Table 0x3 = .DEBUG 0x00d3,0x0232,0x0002,0x0000,0x000e,0x4e14,0x0000,0x001a
; Debug Table 0x3.0x0 = 0xd3,0x1
00d4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00d5 00ca | | Action Exit_Nullary_Function
00d6 0000 0000 | | .XXX[0x2]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00eb | | .CONST 0x00eb ; Address of begin
00d9 0131 | 1 | .CONST 0x0131 ; Address of exception handler
00da 0008 | | .CONST 0x0008 ; Number of locals
00db INIT_00d8:
00db e002 | | Load 0x0,0x2 ; Debug Table 0x4 = .DEBUG 0x00db,0x0236,0x0002,0x0000,0x000e,0x4e14,0x0000,0x001f
; Debug Table 0x4.0x0 = 0xdb,0xffff
00dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00dd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00de e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x1 = 0xde,0xfffe
00df 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00e0 e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x2 = 0xe0,0xfffd
00e1 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
00e2 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x4.0x3 = 0xe2,0xfffc
00e3 e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x4 = 0xe3,0xfffb
00e4 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
00e5 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0x5 = 0xe5,0xfffa
00e6 e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x6 = 0xe6,0xfff9
00e7 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
00e8 0322 | " | Declare_Variable Record
00e9 0007 | | Action Break_Optional ; Debug Table 0x4.0x7 = 0xe9,0xfff8
00ea 0007 | | Action Break_Optional ; Debug Table 0x4.0x8 = 0xea,0xfff7
00eb BODY_00d8:
00eb 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x9 = 0xeb,0x1
00ec a407 | | Store_Unchecked 0x2,0x7
00ed e003 | | Load 0x0,0x3 ; Debug Table 0x4.0xa = 0xed,0x2
00ee 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
00ef e002 | | Load 0x0,0x2
00f0 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
00f1 e002 | | Load 0x0,0x2
00f2 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00f3 a403 | | Store_Unchecked 0x2,0x3
00f4 e003 | | Load 0x0,0x3 ; Debug Table 0x4.0xb = 0xf4,0x3
00f5 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
00f6 e403 | | Load 0x2,0x3
00f7 e002 | | Load 0x0,0x2
00f8 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
00f9 a404 | | Store_Unchecked 0x2,0x4
00fa e404 | | Load 0x2,0x4 ; Debug Table 0x4.0xc = 0xfa,0x4
00fb e002 | | Load 0x0,0x2
00fc 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
00fd a406 | | Store_Unchecked 0x2,0x6
00fe 4fff |O | Short_Literal -0x1 ; Debug Table 0x4.0xd = 0xfe,0x5
00ff a405 | | Store_Unchecked 0x2,0x5
0100 0007 | | Action Break_Optional ; Debug Table 0x4.0xe = 0x100,0x6
0101 e405 | | Load 0x2,0x5 ; Debug Table 0x4.0xf = 0x101,0x7
0102 e406 | | Load 0x2,0x6
0103 0275 | u | Execute Discrete,Unary_Minus
0104 027a | z | Execute Discrete,Less_Equal
0105 7025 |p% | Jump_Nonzero 0x12b
0106 e406 | | Load 0x2,0x6 ; Debug Table 0x4.0x10 = 0x106,0x8
0107 e405 | | Load 0x2,0x5
0108 0273 | s | Execute Discrete,Plus
0109 e002 | | Load 0x0,0x2
010a 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
010b 025b | [ | Execute Discrete,Check_In_Type
010c e403 | | Load 0x2,0x3
010d e002 | | Load 0x0,0x2
010e 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
010f e408 | | Load 0x2,0x8
0110 017d | } | Execute Record,Structure_Write
0111 e408 | | Load 0x2,0x8 ; Debug Table 0x4.0x11 = 0x111,0x9
0112 e002 | | Load 0x0,0x2
0113 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
0114 0b7e | ~ | Execute_Immediate Case_Compare,0x7e
0115 7005 |p | Jump_Nonzero 0x11b
0116 e405 | | Load 0x2,0x5 ; Debug Table 0x4.0x12 = 0x116,0xd
0117 0aff | | Execute_Immediate Plus,-0x1
0118 0248 | H | Execute Discrete,Check_In_Integer
0119 a405 | | Store_Unchecked 0x2,0x5
011a 780e |x | Jump 0x129
011b 0007 | | Action Break_Optional ; Debug Table 0x4.0x13 = 0x11b,0xa
011c e405 | | Load 0x2,0x5 ; Debug Table 0x4.0x14 = 0x11c,0x401
011d 0007 | | Action Break_Optional
011e 4802 |H | Short_Literal 0x2 ; Debug Table 0x4.0x15 = 0x11e,0x402
011f 0007 | | Action Break_Optional
0120 009c | | Action Load_Dynamic ; Debug Table 0x4.0x16 = 0x120,0x403
0121 0007 | | Action Break_Optional
0122 0106 | | Execute Exception,Address ; Debug Table 0x4.0x17 = 0x122,0x404
0123 0007 | | Action Break_Optional
0124 c402 | | Store 0x2,0x2 ; Debug Table 0x4.0x18 = 0x124,0x405
0125 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x19 = 0x125,0xb
0126 a407 | | Store_Unchecked 0x2,0x7
0127 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x4.0x1a = 0x127,0xc
0128 7802 |x | Jump 0x12b
0129 00d1 | | Pop_Control Pop_Count_1
012a 7fd6 | | Jump 0x101
012b e407 | | Load 0x2,0x7 ; Debug Table 0x4.0x1b = 0x12b,0xe
012c 6802 |h | Jump_Zero 0x12f
012d e402 | | Load 0x2,0x2 ; Debug Table 0x4.0x1c = 0x12d,0xf
012e 00ca | | Action Exit_Nullary_Function
012f 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x1d = 0x12f,0x10
0130 00ca | | Action Exit_Nullary_Function
0131 TRAP_00d8:
0131 0007 | | Action Break_Optional
0132 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x1e = 0x132,0x11
0133 00ca | | Action Exit_Nullary_Function
0134 0000 0000 | | .BLANK 0000[0x4]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b e5ff | | Load 0x2,-0x1 ; Debug Table 0x5 = .DEBUG 0x013b,0x0276,0x0002,0x0000,0x000e,0x4e14,0x0000,0x0026
; Debug Table 0x5.0x0 = 0x13b,0x1
013c e004 | | Load 0x0,0x4
013d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
013e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
013f 0000 | | .XXX[0x1]
0140 0000 0000 | | .LITERAL {0x00000000, 0x13a4d401}
0144 ; --------------------------------------------------------------------------------------
0144 ; STRING TABLE
0144 ; --------------------------------------------------------------------------------------
0144 000e | | .STRTAB 0x000e->0x014b ; ", from PC = "
0145 0018 | | .STRTAB 0x0018->0x0151 ; "<What exception? I see no exception here.>"
0146 0040 | @ | .STRTAB 0x0040->0x0166 ; "<Exception: Unit ="
0147 0050 | P | .STRTAB 0x0050->0x016f ; ", Ord ="
0148 0055 | U | .STRTAB 0x0055->0x0172 ; ">"
0149 0054 | T | .STRTAB 0x0054->0x0173 ; "<Unable to load exception variable>"
014a 0075 | u | .STREND 0x0075->0x0184
014b 2c20 6672 |, fr| .STRTAB_STRINGS
0185 0000 0000 | | .XXX[0x3]
0187 0000 | |
0188 ; --------------------------------------------------------------------------------------
0188 ; Debug Table
0188 ; --------------------------------------------------------------------------------------
0188 0003 0006 | | .CONST 0x0003,0x0006
018a 000b 01ba | | .DEBUG 0x000b,0x01ba,0x8000,0x0000,0x000e,0x4e14,0x0000,0x0007
0192 0016 01c8 | | .DEBUG 0x0016,0x01c8,0x8000,0x0000,0x0013,0xa4d4,0x0000,0x000d
019a 002b 01d4 | + | .DEBUG 0x002b,0x01d4,0x0002,0x0000,0x000e,0x4e14,0x0000,0x0015
01a2 00d3 0232 | 2| .DEBUG 0x00d3,0x0232,0x0002,0x0000,0x000e,0x4e14,0x0000,0x001a
01aa 00db 0236 | 6| .DEBUG 0x00db,0x0236,0x0002,0x0000,0x000e,0x4e14,0x0000,0x001f
01b2 013b 0276 | ; v| .DEBUG 0x013b,0x0276,0x0002,0x0000,0x000e,0x4e14,0x0000,0x0026
01ba ; --------------------------------------------------------------------------------------
01ba ; Debug3 Subtable 0x0
01ba ; --------------------------------------------------------------------------------------
01ba 0006 0000 | | .DBG3TAB 0x0006,0x0000
01bc 000b ffff | | .CONST 0x000b,0xffff
01be 000c fffe | | .CONST 0x000c,0xfffe
01c0 000d fffd | | .CONST 0x000d,0xfffd
01c2 000f fffc | | .CONST 0x000f,0xfffc
01c4 0011 fffb | | .CONST 0x0011,0xfffb
01c6 0013 fffa | | .CONST 0x0013,0xfffa
01c8 ; --------------------------------------------------------------------------------------
01c8 ; Debug3 Subtable 0x1
01c8 ; --------------------------------------------------------------------------------------
01c8 0005 0000 | | .DBG3TAB 0x0005,0x0000
01ca 0016 ffff | | .CONST 0x0016,0xffff
01cc 0017 fffe | | .CONST 0x0017,0xfffe
01ce 0019 fffd | | .CONST 0x0019,0xfffd
01d0 001b fffc | | .CONST 0x001b,0xfffc
01d2 001d fffb | | .CONST 0x001d,0xfffb
01d4 ; --------------------------------------------------------------------------------------
01d4 ; Debug3 Subtable 0x2
01d4 ; --------------------------------------------------------------------------------------
01d4 000d 0021 | !| .DBG3TAB 0x000d,0x0021
01d6 002b ffff | + | .CONST 0x002b,0xffff
01d8 0031 fffe | 1 | .CONST 0x0031,0xfffe
01da 0033 fffd | 3 | .CONST 0x0033,0xfffd
01dc 0036 fffc | 6 | .CONST 0x0036,0xfffc
01de 0038 fffb | 8 | .CONST 0x0038,0xfffb
01e0 003a fffa | : | .CONST 0x003a,0xfffa
01e2 003c fff9 | < | .CONST 0x003c,0xfff9
01e4 003d fff8 | = | .CONST 0x003d,0xfff8
01e6 003f fff7 | ? | .CONST 0x003f,0xfff7
01e8 0040 fff6 | @ | .CONST 0x0040,0xfff6
01ea 0043 fff5 | C | .CONST 0x0043,0xfff5
01ec 0044 fff4 | D | .CONST 0x0044,0xfff4
01ee 0045 fff3 | E | .CONST 0x0045,0xfff3
01f0 0046 0001 | F | .CONST 0x0046,0x0001
01f2 0048 0002 | H | .CONST 0x0048,0x0002
01f4 004b 0003 | K | .CONST 0x004b,0x0003
01f6 0051 0004 | Q | .CONST 0x0051,0x0004
01f8 0056 0005 | V | .CONST 0x0056,0x0005
01fa 005a 0006 | Z | .CONST 0x005a,0x0006
01fc 005c 0007 | \ | .CONST 0x005c,0x0007
01fe 005d 0008 | ] | .CONST 0x005d,0x0008
0200 0062 0009 | b | .CONST 0x0062,0x0009
0202 006d 000a | m | .CONST 0x006d,0x000a
0204 0072 000e | r | .CONST 0x0072,0x000e
0206 0077 000b | w | .CONST 0x0077,0x000b
0208 0078 0401 | x | .CONST 0x0078,0x0401
020a 007a 0402 | z | .CONST 0x007a,0x0402
020c 007c 0403 | | | .CONST 0x007c,0x0403
020e 007e 0404 | ~ | .CONST 0x007e,0x0404
0210 0080 0405 | | .CONST 0x0080,0x0405
0212 0081 0406 | | .CONST 0x0081,0x0406
0214 0083 0407 | | .CONST 0x0083,0x0407
0216 0085 0408 | | .CONST 0x0085,0x0408
0218 0087 0409 | | .CONST 0x0087,0x0409
021a 0089 040a | | .CONST 0x0089,0x040a
021c 008a 000c | | .CONST 0x008a,0x000c
021e 008c 000d | | .CONST 0x008c,0x000d
0220 0090 000f | | .CONST 0x0090,0x000f
0222 0092 0010 | | .CONST 0x0092,0x0010
0224 0099 0011 | | .CONST 0x0099,0x0011
0226 009d 0012 | | .CONST 0x009d,0x0012
0228 009f 0013 | | .CONST 0x009f,0x0013
022a 00aa 0014 | | .CONST 0x00aa,0x0014
022c 00ae 0015 | | .CONST 0x00ae,0x0015
022e 00b0 0016 | | .CONST 0x00b0,0x0016
0230 00cb 0017 | | .CONST 0x00cb,0x0017
0232 ; --------------------------------------------------------------------------------------
0232 ; Debug3 Subtable 0x3
0232 ; --------------------------------------------------------------------------------------
0232 0000 0001 | | .DBG3TAB 0x0000,0x0001
0234 00d3 0001 | | .CONST 0x00d3,0x0001
0236 ; --------------------------------------------------------------------------------------
0236 ; Debug3 Subtable 0x4
0236 ; --------------------------------------------------------------------------------------
0236 0009 0016 | | .DBG3TAB 0x0009,0x0016
0238 00db ffff | | .CONST 0x00db,0xffff
023a 00de fffe | | .CONST 0x00de,0xfffe
023c 00e0 fffd | | .CONST 0x00e0,0xfffd
023e 00e2 fffc | | .CONST 0x00e2,0xfffc
0240 00e3 fffb | | .CONST 0x00e3,0xfffb
0242 00e5 fffa | | .CONST 0x00e5,0xfffa
0244 00e6 fff9 | | .CONST 0x00e6,0xfff9
0246 00e9 fff8 | | .CONST 0x00e9,0xfff8
0248 00ea fff7 | | .CONST 0x00ea,0xfff7
024a 00eb 0001 | | .CONST 0x00eb,0x0001
024c 00ed 0002 | | .CONST 0x00ed,0x0002
024e 00f4 0003 | | .CONST 0x00f4,0x0003
0250 00fa 0004 | | .CONST 0x00fa,0x0004
0252 00fe 0005 | | .CONST 0x00fe,0x0005
0254 0100 0006 | | .CONST 0x0100,0x0006
0256 0101 0007 | | .CONST 0x0101,0x0007
0258 0106 0008 | | .CONST 0x0106,0x0008
025a 0111 0009 | | .CONST 0x0111,0x0009
025c 0116 000d | | .CONST 0x0116,0x000d
025e 011b 000a | | .CONST 0x011b,0x000a
0260 011c 0401 | | .CONST 0x011c,0x0401
0262 011e 0402 | | .CONST 0x011e,0x0402
0264 0120 0403 | | .CONST 0x0120,0x0403
0266 0122 0404 | " | .CONST 0x0122,0x0404
0268 0124 0405 | $ | .CONST 0x0124,0x0405
026a 0125 000b | % | .CONST 0x0125,0x000b
026c 0127 000c | ' | .CONST 0x0127,0x000c
026e 012b 000e | + | .CONST 0x012b,0x000e
0270 012d 000f | - | .CONST 0x012d,0x000f
0272 012f 0010 | / | .CONST 0x012f,0x0010
0274 0132 0011 | 2 | .CONST 0x0132,0x0011
0276 ; --------------------------------------------------------------------------------------
0276 ; Debug3 Subtable 0x5
0276 ; --------------------------------------------------------------------------------------
0276 0000 0001 | | .DBG3TAB 0x0000,0x0001
0278 013b 0001 | ; | .CONST 0x013b,0x0001
027a 0000 0000 | | .BLANK 0000[0x186]