|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦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 01c0 | | .CONST 0x01c0 ; 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 0047 | G | .CONST 0x0047 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001c | | .CONST 0x001c ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x025a,0x8000,0x0000,0x0057,0x2545,0x0000,0x0005
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0xe,0xfffc
0010 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x10,0xfffb
0012 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x12,0xfffa
0014 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x14,0xfff9
0016 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x16,0xfff8
0018 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x18,0xfff7
001a 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1a,0xfff6
001c 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x1c,0xfff5
001e 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x1e,0xfff4
0020 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x20,0xfff3
0022 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x22,0xfff2
0024 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x24,0xfff1
0026 00bf | | Action Accept_Activation
0027 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call ; Debug Table 0x1 = .DEBUG 0x0027,0x027a,0x8000,0x0000,0x0057,0x28e5,0x0000,0x0005
; Debug Table 0x1.0x0 = 0x27,0xffff
0029 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call ; Debug Table 0x1.0x1 = 0x29,0xfffe
002b 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x2 = 0x2b,0xfffd
002c 00c7 | | Action Elaborate_Subprogram
002d 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x3 = 0x2d,0xfffc
002e 00c7 | | Action Elaborate_Subprogram
002f 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x4 = 0x2f,0xfffb
0030 00c7 | | Action Elaborate_Subprogram
0031 029d 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call ; Debug Table 0x1.0x5 = 0x31,0xfffa
0033 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x6 = 0x33,0xfff9
0034 00c7 | | Action Elaborate_Subprogram
0035 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x7 = 0x35,0xfff8
0036 00c7 | | Action Elaborate_Subprogram
0037 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call ; Debug Table 0x1.0x8 = 0x37,0xfff7
0039 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x9 = 0x39,0xfff6
003a 00c7 | | Action Elaborate_Subprogram
003b 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0xa = 0x3b,0xfff5
003c 00c7 | | Action Elaborate_Subprogram
003d 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0xb = 0x3d,0xfff4
003e 00c7 | | Action Elaborate_Subprogram
003f 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0xc = 0x3f,0xfff3
0040 00c7 | | Action Elaborate_Subprogram
0041 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xd = 0x41,0xfff2
0042 00c7 | | Action Elaborate_Subprogram
0043 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0xe = 0x43,0xfff1
0044 00c7 | | Action Elaborate_Subprogram
0045 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0xf = 0x45,0xfff0
0046 00c7 | | Action Elaborate_Subprogram
0047 BODY_0008:
0047 00bc | | Action Signal_Activated
0048 00bb | | Action Signal_Completion
0049 0000 0000 | | .BLANK 0000[0x7]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0059 | Y | .CONST 0x0059 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0002 | | .CONST 0x0002 ; Number of locals
0053 INIT_0050:
0053 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x0053,0x029c,0x0002,0x0000,0x0057,0x2545,0x0000,0x0013
; Debug Table 0x2.0x0 = 0x53,0xffff
0054 e001 | | Load 0x0,0x1
0055 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
0056 e001 | | Load 0x0,0x1
0057 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0058 011e | | Execute Any,Convert
0059 BODY_0050:
0059 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x1 = 0x59,0x1
005a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
005b 00d9 | | Load_Top At_Offset_1
005c e001 | | Load 0x0,0x1
005d 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
005e e002 | | Load 0x0,0x2
005f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0060 e002 | | Load 0x0,0x2
0061 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0062 e001 | | Load 0x0,0x1
0063 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0064 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0065 0000 0000 | | .XXX[0x3]
0067 0000 | |
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x006b,0x02a2,0x0002,0x0000,0x0057,0x2545,0x0000,0x0020
; Debug Table 0x3.0x0 = 0x6b,0x1
006c e002 | | Load 0x0,0x2
006d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
006e e001 | | Load 0x0,0x1
006f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0070 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0071 0000 0000 | | .BLANK 0000[0x7]
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x007b,0x02a6,0x0002,0x0000,0x0057,0x2545,0x0000,0x002d
; Debug Table 0x4.0x0 = 0x7b,0x1
007c e002 | | Load 0x0,0x2
007d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
007e e001 | | Load 0x0,0x1
007f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0080 e002 | | Load 0x0,0x2
0081 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0082 821a | | Call 0x1,0x1a
0083 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0084 0000 0000 | | .BLANK 0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0093 | | .CONST 0x0093 ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0002 | | .CONST 0x0002 ; Number of locals
008b INIT_0088:
008b 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x008b,0x02aa,0x0002,0x0000,0x0057,0x2545,0x0000,0x003a
; Debug Table 0x5.0x0 = 0x8b,0xffff
008c e002 | | Load 0x0,0x2
008d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
008e e001 | | Load 0x0,0x1
008f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0090 e001 | | Load 0x0,0x1
0091 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0092 011e | | Execute Any,Convert
0093 BODY_0088:
0093 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x1 = 0x93,0x1
0094 e5ff | | Load 0x2,-0x1
0095 821b | | Call 0x1,0x1b
0096 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0097 0000 | | .XXX[0x1]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a3 | | .CONST 0x00a3 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0002 | | .CONST 0x0002 ; Number of locals
009b INIT_0098:
009b 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x009b,0x02b0,0x0002,0x0000,0x0057,0x2545,0x0000,0x0047
; Debug Table 0x6.0x0 = 0x9b,0xffff
009c e002 | | Load 0x0,0x2
009d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
009e e001 | | Load 0x0,0x1
009f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00a0 e001 | | Load 0x0,0x1
00a1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a2 011e | | Execute Any,Convert
00a3 BODY_0098:
00a3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x1 = 0xa3,0x1
00a4 e5ff | | Load 0x2,-0x1
00a5 821c | | Call 0x1,0x1c
00a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a7 0000 | | .XXX[0x1]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00db | | Load_Top At_Offset_3 ; Debug Table 0x7 = .DEBUG 0x00ab,0x02b6,0x0002,0x0000,0x0057,0x2545,0x0000,0x0054
; Debug Table 0x7.0x0 = 0xab,0x1
00ac 00db | | Load_Top At_Offset_3
00ad 821b | | Call 0x1,0x1b
00ae 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00af 0000 | | .XXX[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 00db | | Load_Top At_Offset_3 ; Debug Table 0x8 = .DEBUG 0x00b3,0x02ba,0x0002,0x0000,0x0057,0x2545,0x0000,0x0062
; Debug Table 0x8.0x0 = 0xb3,0x1
00b4 00db | | Load_Top At_Offset_3
00b5 821c | | Call 0x1,0x1c
00b6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00b7 0000 | | .XXX[0x1]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c6 | | .CONST 0x00c6 ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0002 | | .CONST 0x0002 ; Number of locals
00bb INIT_00b8:
00bb 00db | | Load_Top At_Offset_3 ; Debug Table 0x9 = .DEBUG 0x00bb,0x02be,0x0002,0x0000,0x0057,0x2545,0x0000,0x0070
; Debug Table 0x9.0x0 = 0xbb,0xffff
00bc e001 | | Load 0x0,0x1
00bd 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
00be 00db | | Load_Top At_Offset_3
00bf e001 | | Load 0x0,0x1
00c0 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
00c1 e002 | | Load 0x0,0x2
00c2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00c3 e001 | | Load 0x0,0x1
00c4 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
00c5 011e | | Execute Any,Convert
00c6 BODY_00b8:
00c6 e5fe | | Load 0x2,-0x2 ; Debug Table 0x9.0x1 = 0xc6,0x1
00c7 e5ff | | Load 0x2,-0x1
00c8 e001 | | Load 0x0,0x1
00c9 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
00ca 7006 |p | Jump_Nonzero 0xd1
00cb e001 | | Load 0x0,0x1
00cc 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
00cd 00d9 | | Load_Top At_Offset_1
00ce e001 | | Load 0x0,0x1
00cf 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
00d0 6803 |h | Jump_Zero 0xd4
00d1 e002 | | Load 0x0,0x2 ; Debug Table 0x9.0x2 = 0xd1,0x2
00d2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00d4 e5fd | | Load 0x2,-0x3 ; Debug Table 0x9.0x3 = 0xd4,0x3
00d5 00d9 | | Load_Top At_Offset_1
00d6 e001 | | Load 0x0,0x1
00d7 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
00d8 e002 | | Load 0x0,0x2
00d9 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00da e002 | | Load 0x0,0x2
00db 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00dc 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00ee | | .CONST 0x00ee ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0002 | | .CONST 0x0002 ; Number of locals
00e3 INIT_00e0:
00e3 e002 | | Load 0x0,0x2 ; Debug Table 0xa = .DEBUG 0x00e3,0x02c8,0x0002,0x0000,0x0057,0x2545,0x0000,0x007f
; Debug Table 0xa.0x0 = 0xe3,0xffff
00e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e5 00db | | Load_Top At_Offset_3
00e6 e001 | | Load 0x0,0x1
00e7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00e8 e002 | | Load 0x0,0x2
00e9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ea 8219 | | Call 0x1,0x19
00eb e001 | | Load 0x0,0x1
00ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ed 011e | | Execute Any,Convert
00ee BODY_00e0:
00ee e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x1 = 0xee,0x1
00ef 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00f0 00d9 | | Load_Top At_Offset_1
00f1 e001 | | Load 0x0,0x1
00f2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00f3 00d9 | | Load_Top At_Offset_1
00f4 e001 | | Load 0x0,0x1
00f5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00f6 e5fe | | Load 0x2,-0x2
00f7 e001 | | Load 0x0,0x1
00f8 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
00f9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00fa 0000 0000 | | .BLANK 0000[0x6]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 010e | | .CONST 0x010e ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0002 | | .CONST 0x0002 ; Number of locals
0103 INIT_0100:
0103 00db | | Load_Top At_Offset_3 ; Debug Table 0xb = .DEBUG 0x0103,0x02ce,0x0002,0x0000,0x0057,0x2545,0x0000,0x0092
; Debug Table 0xb.0x0 = 0x103,0xffff
0104 e001 | | Load 0x0,0x1
0105 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
0106 00db | | Load_Top At_Offset_3
0107 e001 | | Load 0x0,0x1
0108 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
0109 e002 | | Load 0x0,0x2
010a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
010b e001 | | Load 0x0,0x1
010c 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
010d 011e | | Execute Any,Convert
010e BODY_0100:
010e e002 | | Load 0x0,0x2 ; Debug Table 0xb.0x1 = 0x10e,0x1
010f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0110 00d9 | | Load_Top At_Offset_1
0111 e001 | | Load 0x0,0x1
0112 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0113 6808 |h | Jump_Zero 0x11c
0114 e002 | | Load 0x0,0x2 ; Debug Table 0xb.0x2 = 0x114,0x2
0115 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0116 00d9 | | Load_Top At_Offset_1
0117 e002 | | Load 0x0,0x2
0118 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0119 e001 | | Load 0x0,0x1
011a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
011b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
011c e002 | | Load 0x0,0x2 ; Debug Table 0xb.0x3 = 0x11c,0x3
011d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
011f 0000 | | .XXX[0x1]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x0123,0x02d8,0x0002,0x0000,0x0057,0x2545,0x0000,0x00a0
; Debug Table 0xc.0x0 = 0x123,0x1
0124 e002 | | Load 0x0,0x2
0125 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0126 e001 | | Load 0x0,0x1
0127 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0128 e002 | | Load 0x0,0x2
0129 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012a e002 | | Load 0x0,0x2
012b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
012c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012d 0000 0000 | | .XXX[0x3]
012f 0000 | |
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 013a | : | .CONST 0x013a ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0003 | | .CONST 0x0003 ; Number of locals
0133 INIT_0130:
0133 e001 | | Load 0x0,0x1 ; Debug Table 0xd = .DEBUG 0x0133,0x02dc,0x0002,0x0000,0x0057,0x2545,0x0000,0x00ad
; Debug Table 0xd.0x0 = 0x133,0xffff
0134 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0135 02c7 | | Declare_Variable Any
0136 00d8 | | Load_Top At_Offset_0
0137 1c00 | | Execute_Immediate Run_Utility,0x0
0138 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call
013a BODY_0130:
013a e5fe | | Load 0x2,-0x2 ; Debug Table 0xd.0x1 = 0x13a,0x1
013b e5ff | | Load 0x2,-0x1
013c e001 | | Load 0x0,0x1
013d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
013e 6803 |h | Jump_Zero 0x142
013f e002 | | Load 0x0,0x2 ; Debug Table 0xd.0x2 = 0x13f,0x2
0140 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0141 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0142 e002 | | Load 0x0,0x2 ; Debug Table 0xd.0x3 = 0x142,0x3
0143 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0144 e5ff | | Load 0x2,-0x1
0145 e001 | | Load 0x0,0x1
0146 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0147 6803 |h | Jump_Zero 0x14b
0148 e5fe | | Load 0x2,-0x2 ; Debug Table 0xd.0x4 = 0x148,0x4
0149 c402 | | Store 0x2,0x2
014a 7801 |x | Jump 0x14c
014b 8403 | | Call 0x2,0x3 ; Debug Table 0xd.0x5 = 0x14b,0x5
014c e002 | | Load 0x0,0x2 ; Debug Table 0xd.0x6 = 0x14c,0x6
014d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014e 00da | | Load_Top At_Offset_2
014f e001 | | Load 0x0,0x1
0150 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0151 6808 |h | Jump_Zero 0x15a
0152 e002 | | Load 0x0,0x2 ; Debug Table 0xd.0x7 = 0x152,0x7
0153 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0154 00da | | Load_Top At_Offset_2
0155 e002 | | Load 0x0,0x2
0156 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0157 e001 | | Load 0x0,0x1
0158 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0159 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
015a e002 | | Load 0x0,0x2 ; Debug Table 0xd.0x8 = 0x15a,0x8
015b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
015c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
015d 0000 0000 | | .XXX[0x3]
015f 0000 | |
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00db | | Load_Top At_Offset_3 ; Debug Table 0xe = .DEBUG 0x0163,0x02f0,0x0002,0x0000,0x0057,0x28e5,0x0000,0x000a
; Debug Table 0xe.0x0 = 0x163,0x1
0164 e001 | | Load 0x0,0x1
0165 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0166 00db | | Load_Top At_Offset_3
0167 e001 | | Load 0x0,0x1
0168 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0169 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
016a 0000 0000 | | .BLANK 0000[0x6]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00db | | Load_Top At_Offset_3 ; Debug Table 0xf = .DEBUG 0x0173,0x02f4,0x0002,0x0000,0x0057,0x28e5,0x0000,0x0027
; Debug Table 0xf.0x0 = 0x173,0x1
0174 e001 | | Load 0x0,0x1
0175 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0176 00db | | Load_Top At_Offset_3
0177 e001 | | Load 0x0,0x1
0178 1857 | W | Execute Package,Field_Execute,Field_Number 0x57
0179 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
017a 0000 0000 | | .BLANK 0000[0x6]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 e002 | | Load 0x0,0x2 ; Debug Table 0x10 = .DEBUG 0x0183,0x02f8,0x0002,0x0000,0x0057,0x28e5,0x0000,0x00a7
; Debug Table 0x10.0x0 = 0x183,0x1
0184 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0185 e5fe | | Load 0x2,-0x2
0186 e001 | | Load 0x0,0x1
0187 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0188 e001 | | Load 0x0,0x1
0189 1817 | | Execute Package,Field_Execute,Field_Number 0x17
018a e002 | | Load 0x0,0x2
018b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
018c 821a | | Call 0x1,0x1a
018d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
018e 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x11 = .DEBUG 0x0193,0x02fc,0x0002,0x0000,0x0057,0x28e5,0x0000,0x0102
; Debug Table 0x11.0x0 = 0x193,0x1
0194 e5fe | | Load 0x2,-0x2
0195 e001 | | Load 0x0,0x1
0196 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0197 e002 | | Load 0x0,0x2
0198 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0199 821a | | Call 0x1,0x1a
019a e5fe | | Load 0x2,-0x2
019b e002 | | Load 0x0,0x2
019c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
019d 821a | | Call 0x1,0x1a
019e e001 | | Load 0x0,0x1
019f 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
01a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a1 0000 0000 | | .BLANK 0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 01b3 | | .CONST 0x01b3 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab e5fe | | Load 0x2,-0x2 ; Debug Table 0x12 = .DEBUG 0x01ab,0x0300,0x0004,0x0000,0x0057,0x28e5,0x0000,0x027c
; Debug Table 0x12.0x0 = 0x1ab,0x1
01ac e5ff | | Load 0x2,-0x1
01ad e001 | | Load 0x0,0x1
01ae 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01af e002 | | Load 0x0,0x2
01b0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01b1 c402 | | Store 0x2,0x2
01b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01b3 TRAP_01a8:
01b3 010d | | Execute Exception,Is_Numeric_Error
01b4 7002 |p | Jump_Nonzero 0x1b7
01b5 010e | | Execute Exception,Is_Constraint_Error
01b6 6804 |h | Jump_Zero 0x1bb
01b7 e001 | | Load 0x0,0x1 ; Debug Table 0x12.0x1 = 0x1b7,0x2
01b8 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
01b9 c402 | | Store 0x2,0x2
01ba 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01bb 0100 | | Execute Exception,Raise
01bc 0000 0000 | | .BLANK 0000[0x4]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; Debug Table
01c0 ; --------------------------------------------------------------------------------------
01c0 0003 0013 | | .CONST 0x0003,0x0013
01c2 000b 025a | Z| .DEBUG 0x000b,0x025a,0x8000,0x0000,0x0057,0x2545,0x0000,0x0005
01ca 0027 027a | ' z| .DEBUG 0x0027,0x027a,0x8000,0x0000,0x0057,0x28e5,0x0000,0x0005
01d2 0053 029c | S | .DEBUG 0x0053,0x029c,0x0002,0x0000,0x0057,0x2545,0x0000,0x0013
01da 006b 02a2 | k | .DEBUG 0x006b,0x02a2,0x0002,0x0000,0x0057,0x2545,0x0000,0x0020
01e2 007b 02a6 | { | .DEBUG 0x007b,0x02a6,0x0002,0x0000,0x0057,0x2545,0x0000,0x002d
01ea 008b 02aa | | .DEBUG 0x008b,0x02aa,0x0002,0x0000,0x0057,0x2545,0x0000,0x003a
01f2 009b 02b0 | | .DEBUG 0x009b,0x02b0,0x0002,0x0000,0x0057,0x2545,0x0000,0x0047
01fa 00ab 02b6 | | .DEBUG 0x00ab,0x02b6,0x0002,0x0000,0x0057,0x2545,0x0000,0x0054
0202 00b3 02ba | | .DEBUG 0x00b3,0x02ba,0x0002,0x0000,0x0057,0x2545,0x0000,0x0062
020a 00bb 02be | | .DEBUG 0x00bb,0x02be,0x0002,0x0000,0x0057,0x2545,0x0000,0x0070
0212 00e3 02c8 | | .DEBUG 0x00e3,0x02c8,0x0002,0x0000,0x0057,0x2545,0x0000,0x007f
021a 0103 02ce | | .DEBUG 0x0103,0x02ce,0x0002,0x0000,0x0057,0x2545,0x0000,0x0092
0222 0123 02d8 | # | .DEBUG 0x0123,0x02d8,0x0002,0x0000,0x0057,0x2545,0x0000,0x00a0
022a 0133 02dc | 3 | .DEBUG 0x0133,0x02dc,0x0002,0x0000,0x0057,0x2545,0x0000,0x00ad
0232 0163 02f0 | c | .DEBUG 0x0163,0x02f0,0x0002,0x0000,0x0057,0x28e5,0x0000,0x000a
023a 0173 02f4 | s | .DEBUG 0x0173,0x02f4,0x0002,0x0000,0x0057,0x28e5,0x0000,0x0027
0242 0183 02f8 | | .DEBUG 0x0183,0x02f8,0x0002,0x0000,0x0057,0x28e5,0x0000,0x00a7
024a 0193 02fc | | .DEBUG 0x0193,0x02fc,0x0002,0x0000,0x0057,0x28e5,0x0000,0x0102
0252 01ab 0300 | | .DEBUG 0x01ab,0x0300,0x0004,0x0000,0x0057,0x28e5,0x0000,0x027c
025a ; --------------------------------------------------------------------------------------
025a ; Debug3 Subtable 0x0
025a ; --------------------------------------------------------------------------------------
025a 000f 0000 | | .DBG3TAB 0x000f,0x0000
025c 000b ffff | | .CONST 0x000b,0xffff
025e 000c fffe | | .CONST 0x000c,0xfffe
0260 000d fffd | | .CONST 0x000d,0xfffd
0262 000e fffc | | .CONST 0x000e,0xfffc
0264 0010 fffb | | .CONST 0x0010,0xfffb
0266 0012 fffa | | .CONST 0x0012,0xfffa
0268 0014 fff9 | | .CONST 0x0014,0xfff9
026a 0016 fff8 | | .CONST 0x0016,0xfff8
026c 0018 fff7 | | .CONST 0x0018,0xfff7
026e 001a fff6 | | .CONST 0x001a,0xfff6
0270 001c fff5 | | .CONST 0x001c,0xfff5
0272 001e fff4 | | .CONST 0x001e,0xfff4
0274 0020 fff3 | | .CONST 0x0020,0xfff3
0276 0022 fff2 | " | .CONST 0x0022,0xfff2
0278 0024 fff1 | $ | .CONST 0x0024,0xfff1
027a ; --------------------------------------------------------------------------------------
027a ; Debug3 Subtable 0x1
027a ; --------------------------------------------------------------------------------------
027a 0010 0000 | | .DBG3TAB 0x0010,0x0000
027c 0027 ffff | ' | .CONST 0x0027,0xffff
027e 0029 fffe | ) | .CONST 0x0029,0xfffe
0280 002b fffd | + | .CONST 0x002b,0xfffd
0282 002d fffc | - | .CONST 0x002d,0xfffc
0284 002f fffb | / | .CONST 0x002f,0xfffb
0286 0031 fffa | 1 | .CONST 0x0031,0xfffa
0288 0033 fff9 | 3 | .CONST 0x0033,0xfff9
028a 0035 fff8 | 5 | .CONST 0x0035,0xfff8
028c 0037 fff7 | 7 | .CONST 0x0037,0xfff7
028e 0039 fff6 | 9 | .CONST 0x0039,0xfff6
0290 003b fff5 | ; | .CONST 0x003b,0xfff5
0292 003d fff4 | = | .CONST 0x003d,0xfff4
0294 003f fff3 | ? | .CONST 0x003f,0xfff3
0296 0041 fff2 | A | .CONST 0x0041,0xfff2
0298 0043 fff1 | C | .CONST 0x0043,0xfff1
029a 0045 fff0 | E | .CONST 0x0045,0xfff0
029c ; --------------------------------------------------------------------------------------
029c ; Debug3 Subtable 0x2
029c ; --------------------------------------------------------------------------------------
029c 0001 0001 | | .DBG3TAB 0x0001,0x0001
029e 0053 ffff | S | .CONST 0x0053,0xffff
02a0 0059 0001 | Y | .CONST 0x0059,0x0001
02a2 ; --------------------------------------------------------------------------------------
02a2 ; Debug3 Subtable 0x3
02a2 ; --------------------------------------------------------------------------------------
02a2 0000 0001 | | .DBG3TAB 0x0000,0x0001
02a4 006b 0001 | k | .CONST 0x006b,0x0001
02a6 ; --------------------------------------------------------------------------------------
02a6 ; Debug3 Subtable 0x4
02a6 ; --------------------------------------------------------------------------------------
02a6 0000 0001 | | .DBG3TAB 0x0000,0x0001
02a8 007b 0001 | { | .CONST 0x007b,0x0001
02aa ; --------------------------------------------------------------------------------------
02aa ; Debug3 Subtable 0x5
02aa ; --------------------------------------------------------------------------------------
02aa 0001 0001 | | .DBG3TAB 0x0001,0x0001
02ac 008b ffff | | .CONST 0x008b,0xffff
02ae 0093 0001 | | .CONST 0x0093,0x0001
02b0 ; --------------------------------------------------------------------------------------
02b0 ; Debug3 Subtable 0x6
02b0 ; --------------------------------------------------------------------------------------
02b0 0001 0001 | | .DBG3TAB 0x0001,0x0001
02b2 009b ffff | | .CONST 0x009b,0xffff
02b4 00a3 0001 | | .CONST 0x00a3,0x0001
02b6 ; --------------------------------------------------------------------------------------
02b6 ; Debug3 Subtable 0x7
02b6 ; --------------------------------------------------------------------------------------
02b6 0000 0001 | | .DBG3TAB 0x0000,0x0001
02b8 00ab 0001 | | .CONST 0x00ab,0x0001
02ba ; --------------------------------------------------------------------------------------
02ba ; Debug3 Subtable 0x8
02ba ; --------------------------------------------------------------------------------------
02ba 0000 0001 | | .DBG3TAB 0x0000,0x0001
02bc 00b3 0001 | | .CONST 0x00b3,0x0001
02be ; --------------------------------------------------------------------------------------
02be ; Debug3 Subtable 0x9
02be ; --------------------------------------------------------------------------------------
02be 0001 0003 | | .DBG3TAB 0x0001,0x0003
02c0 00bb ffff | | .CONST 0x00bb,0xffff
02c2 00c6 0001 | | .CONST 0x00c6,0x0001
02c4 00d1 0002 | | .CONST 0x00d1,0x0002
02c6 00d4 0003 | | .CONST 0x00d4,0x0003
02c8 ; --------------------------------------------------------------------------------------
02c8 ; Debug3 Subtable 0xa
02c8 ; --------------------------------------------------------------------------------------
02c8 0001 0001 | | .DBG3TAB 0x0001,0x0001
02ca 00e3 ffff | | .CONST 0x00e3,0xffff
02cc 00ee 0001 | | .CONST 0x00ee,0x0001
02ce ; --------------------------------------------------------------------------------------
02ce ; Debug3 Subtable 0xb
02ce ; --------------------------------------------------------------------------------------
02ce 0001 0003 | | .DBG3TAB 0x0001,0x0003
02d0 0103 ffff | | .CONST 0x0103,0xffff
02d2 010e 0001 | | .CONST 0x010e,0x0001
02d4 0114 0002 | | .CONST 0x0114,0x0002
02d6 011c 0003 | | .CONST 0x011c,0x0003
02d8 ; --------------------------------------------------------------------------------------
02d8 ; Debug3 Subtable 0xc
02d8 ; --------------------------------------------------------------------------------------
02d8 0000 0001 | | .DBG3TAB 0x0000,0x0001
02da 0123 0001 | # | .CONST 0x0123,0x0001
02dc ; --------------------------------------------------------------------------------------
02dc ; Debug3 Subtable 0xd
02dc ; --------------------------------------------------------------------------------------
02dc 0001 0008 | | .DBG3TAB 0x0001,0x0008
02de 0133 ffff | 3 | .CONST 0x0133,0xffff
02e0 013a 0001 | : | .CONST 0x013a,0x0001
02e2 013f 0002 | ? | .CONST 0x013f,0x0002
02e4 0142 0003 | B | .CONST 0x0142,0x0003
02e6 0148 0004 | H | .CONST 0x0148,0x0004
02e8 014b 0005 | K | .CONST 0x014b,0x0005
02ea 014c 0006 | L | .CONST 0x014c,0x0006
02ec 0152 0007 | R | .CONST 0x0152,0x0007
02ee 015a 0008 | Z | .CONST 0x015a,0x0008
02f0 ; --------------------------------------------------------------------------------------
02f0 ; Debug3 Subtable 0xe
02f0 ; --------------------------------------------------------------------------------------
02f0 0000 0001 | | .DBG3TAB 0x0000,0x0001
02f2 0163 0001 | c | .CONST 0x0163,0x0001
02f4 ; --------------------------------------------------------------------------------------
02f4 ; Debug3 Subtable 0xf
02f4 ; --------------------------------------------------------------------------------------
02f4 0000 0001 | | .DBG3TAB 0x0000,0x0001
02f6 0173 0001 | s | .CONST 0x0173,0x0001
02f8 ; --------------------------------------------------------------------------------------
02f8 ; Debug3 Subtable 0x10
02f8 ; --------------------------------------------------------------------------------------
02f8 0000 0001 | | .DBG3TAB 0x0000,0x0001
02fa 0183 0001 | | .CONST 0x0183,0x0001
02fc ; --------------------------------------------------------------------------------------
02fc ; Debug3 Subtable 0x11
02fc ; --------------------------------------------------------------------------------------
02fc 0000 0001 | | .DBG3TAB 0x0000,0x0001
02fe 0193 0001 | | .CONST 0x0193,0x0001
0300 ; --------------------------------------------------------------------------------------
0300 ; Debug3 Subtable 0x12
0300 ; --------------------------------------------------------------------------------------
0300 0000 0002 | | .DBG3TAB 0x0000,0x0002
0302 01ab 0001 | | .CONST 0x01ab,0x0001
0304 01b7 0002 | | .CONST 0x01b7,0x0002
0306 0000 0000 | | .BLANK 0000[0xfa]