|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0318 | | .CONST 0x0318 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0064 | d | .CONST 0x0064 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0023 | # | .CONST 0x0023 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
000d 0129 | ) | Execute Any,Make_Visible
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 4801 |H | Short_Literal 0x1
001d 4802 |H | Short_Literal 0x2
001e 00e2 | | Load_Encached Integer_Cache
001f 03f9 | | Declare_Type Discrete,Constrained,Visible
0020 c21a | | Store 0x1,0x1a
0021 e21a | | Load 0x1,0x1a
0022 0402 | | Execute_Immediate Set_Value_Visible_Unchecked,0x2
0023 c21b | | Store 0x1,0x1b
0024 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0026 c20e | | Store 0x1,0xe
0027 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0029 c20f | | Store 0x1,0xf
002a 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
002c c210 | | Store 0x1,0x10
002d 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
002f c211 | | Store 0x1,0x11
0030 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0032 c212 | | Store 0x1,0x12
0033 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0035 c213 | | Store 0x1,0x13
0036 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0038 c214 | | Store 0x1,0x14
0039 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
003b c215 | | Store 0x1,0x15
003c 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
003e c216 | | Store 0x1,0x16
003f 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0041 c217 | | Store 0x1,0x17
0042 00bf | | Action Accept_Activation
0043 e002 | | Load 0x0,0x2
0044 1916 | | Execute Package,Field_Reference,Field_Number 0x16
0045 0007 | | Action Break_Optional
0046 e001 | | Load 0x0,0x1
0047 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
0048 00e1 | | Load_Encached Boolean_Cache
0049 00e3 | | Load_Encached Natural_Cache
004a 00e3 | | Load_Encached Natural_Cache
004b 00e1 | | Load_Encached Boolean_Cache
004c e001 | | Load 0x0,0x1
004d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
004e 1d14 | | Execute_Immediate Reference_Lex_1,0x14
004f 00c7 | | Action Elaborate_Subprogram
0050 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call
0052 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0053 00c7 | | Action Elaborate_Subprogram
0054 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0055 00c7 | | Action Elaborate_Subprogram
0056 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0057 00c7 | | Action Elaborate_Subprogram
0058 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0059 00c7 | | Action Elaborate_Subprogram
005a 1d12 | | Execute_Immediate Reference_Lex_1,0x12
005b 00c7 | | Action Elaborate_Subprogram
005c 1d13 | | Execute_Immediate Reference_Lex_1,0x13
005d 00c7 | | Action Elaborate_Subprogram
005e 1d15 | | Execute_Immediate Reference_Lex_1,0x15
005f 00c7 | | Action Elaborate_Subprogram
0060 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0061 00c7 | | Action Elaborate_Subprogram
0062 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0063 00c7 | | Action Elaborate_Subprogram
0064 BODY_0008:
0064 00bc | | Action Signal_Activated
0065 00bb | | Action Signal_Completion
0066 0000 0000 | | .XXX[0x2]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0077 | w | .CONST 0x0077 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 00e1 | | Load_Encached Boolean_Cache
006c e5ff | | Load 0x2,-0x1
006d e002 | | Load 0x0,0x2
006e 180e | | Execute Package,Field_Execute,Field_Number 0xe
006f c5fe | | Store 0x2,-0x2
0070 e5fe | | Load 0x2,-0x2
0071 7001 |p | Jump_Nonzero 0x73
0072 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0073 8223 | # | Call 0x1,0x23
0074 e002 | | Load 0x0,0x2
0075 180f | | Execute Package,Field_Execute,Field_Number 0xf
0076 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0077 TRAP_0068:
0077 e002 | | Load 0x0,0x2
0078 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0079 010f | | Execute Exception,Equal
007a 6803 |h | Jump_Zero 0x7e
007b e001 | | Load 0x0,0x1
007c 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
007d 0257 | W | Execute Discrete,Raise
007e e002 | | Load 0x0,0x2
007f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0080 00d8 | | Load_Top At_Offset_0
0081 0101 | | Execute Exception,Reraise
0082 0000 0000 | | .BLANK 0000[0x6]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0092 | | .CONST 0x0092 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b e5ff | | Load 0x2,-0x1
008c e002 | | Load 0x0,0x2
008d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
008e 8223 | # | Call 0x1,0x23
008f e002 | | Load 0x0,0x2
0090 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0091 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0092 TRAP_0088:
0092 e002 | | Load 0x0,0x2
0093 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0094 010f | | Execute Exception,Equal
0095 6803 |h | Jump_Zero 0x99
0096 e001 | | Load 0x0,0x1
0097 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0098 0257 | W | Execute Discrete,Raise
0099 e002 | | Load 0x0,0x2
009a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
009b 00d8 | | Load_Top At_Offset_0
009c 0101 | | Execute Exception,Reraise
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
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 4800 |H | Short_Literal 0x0
00a4 a21e | | Store_Unchecked 0x1,0x1e
00a5 4800 |H | Short_Literal 0x0
00a6 a21f | | Store_Unchecked 0x1,0x1f
00a7 4800 |H | Short_Literal 0x0
00a8 a220 | | Store_Unchecked 0x1,0x20
00a9 493e |I> | Short_Literal 0x13e
00aa e003 | | Load 0x0,0x3
00ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ac 493f |I? | Short_Literal 0x13f
00ad a21d | | Store_Unchecked 0x1,0x1d
00ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1
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 4800 |H | Short_Literal 0x0
00b4 a221 | ! | Store_Unchecked 0x1,0x21
00b5 4800 |H | Short_Literal 0x0
00b6 a21e | | Store_Unchecked 0x1,0x1e
00b7 4800 |H | Short_Literal 0x0
00b8 a21f | | Store_Unchecked 0x1,0x1f
00b9 4800 |H | Short_Literal 0x0
00ba a220 | | Store_Unchecked 0x1,0x20
00bb 493f |I? | Short_Literal 0x13f
00bc e003 | | Load 0x0,0x3
00bd 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00be 493f |I? | Short_Literal 0x13f
00bf a21d | | Store_Unchecked 0x1,0x1d
00c0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c1 0000 0000 | | .BLANK 0000[0x7]
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 4801 |H | Short_Literal 0x1
00cc a221 | ! | Store_Unchecked 0x1,0x21
00cd 4501 |E | Exit_Suprogram New_Top_Offset 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 4801 |H | Short_Literal 0x1
00d4 a21e | | Store_Unchecked 0x1,0x1e
00d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d6 0000 0000 | | .XXX[0x2]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00dd | | .CONST 0x00dd ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0002 | | .CONST 0x0002 ; Number of locals
00db INIT_00d8:
00db e21f | | Load 0x1,0x1f
00dc 0007 | | Action Break_Optional
00dd BODY_00d8:
00dd 4800 |H | Short_Literal 0x0
00de a21f | | Store_Unchecked 0x1,0x1f
00df 4800 |H | Short_Literal 0x0
00e0 a221 | ! | Store_Unchecked 0x1,0x21
00e1 00cf | | Action Mark_Auxiliary
00e2 7807 |x | Jump 0xea
00e3 e220 | | Load 0x1,0x20
00e4 0aff | | Execute_Immediate Plus,-0x1
00e5 c220 | | Store 0x1,0x20
00e6 493f |I? | Short_Literal 0x13f
00e7 e003 | | Load 0x0,0x3
00e8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e9 00c9 | | Action Pop_Auxiliary_Loop
00ea e220 | | Load 0x1,0x20
00eb 0c01 | | Execute_Immediate Greater_Equal,0x1
00ec 77f6 |w | Jump_Nonzero 0xe3
00ed 00ce | | Action Pop_Auxiliary
00ee e21e | | Load 0x1,0x1e
00ef 682f |h/ | Jump_Zero 0x11f
00f0 4800 |H | Short_Literal 0x0
00f1 a21e | | Store_Unchecked 0x1,0x1e
00f2 e20d | | Load 0x1,0xd
00f3 3c1c |< | Execute Record,Field_Read,Field_Number 0x1c
00f4 6819 |h | Jump_Zero 0x10e
00f5 e001 | | Load 0x0,0x1
00f6 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
00f7 680f |h | Jump_Zero 0x107
00f8 4800 |H | Short_Literal 0x0
00f9 4800 |H | Short_Literal 0x0
00fa 4829 |H) | Short_Literal 0x29
00fb 0092 02d6 | | Action Push_String_Extended,0x2d6 ; "Command => paragraph ("
00fd e20d | | Load 0x1,0xd
00fe 3c1c |< | Execute Record,Field_Read,Field_Number 0x1c
00ff e001 | | Load 0x0,0x1
0100 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0101 011c | | Execute Any,Convert_Unchecked
0102 1c01 | | Execute_Immediate Run_Utility,0x1
0103 01cc | | Execute Vector,Catenate
0104 01cb | | Execute Vector,Append
0105 e004 | | Load 0x0,0x4
0106 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0107 e222 | " | Load 0x1,0x22
0108 00ea | | Load_Encached Null_String_Cache
0109 e20d | | Load 0x1,0xd
010a 3c1c |< | Execute Record,Field_Read,Field_Number 0x1c
010b e005 | | Load 0x0,0x5
010c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
010d 7806 |x | Jump 0x114
010e 493e |I> | Short_Literal 0x13e
010f e003 | | Load 0x0,0x3
0110 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0111 493f |I? | Short_Literal 0x13f
0112 e003 | | Load 0x0,0x3
0113 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0114 e20d | | Load 0x1,0xd
0115 3c1d |< | Execute Record,Field_Read,Field_Number 0x1d
0116 6813 |h | Jump_Zero 0x12a
0117 e20d | | Load 0x1,0xd
0118 3c1d |< | Execute Record,Field_Read,Field_Number 0x1d
0119 e20d | | Load 0x1,0xd
011a 381c |8 | Execute Record,Field_Write,Field_Number 0x1c
011b 4800 |H | Short_Literal 0x0
011c e20d | | Load 0x1,0xd
011d 381d |8 | Execute Record,Field_Write,Field_Number 0x1d
011e 780b |x | Jump 0x12a
011f 00cf | | Action Mark_Auxiliary
0120 e402 | | Load 0x2,0x2
0121 4801 |H | Short_Literal 0x1
0122 0263 | c | Execute Discrete,Above_Bound
0123 7005 |p | Jump_Nonzero 0x129
0124 4820 |H | Short_Literal 0x20
0125 e003 | | Load 0x0,0x3
0126 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0127 00c8 | | Action Pop_Auxiliary_Range
0128 3ffb |? | Loop_Increasing 0x124
0129 00ce | | Action Pop_Auxiliary
012a e5ff | | Load 0x2,-0x1
012b e003 | | Load 0x0,0x3
012c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
012d e5ff | | Load 0x2,-0x1
012e a21d | | Store_Unchecked 0x1,0x1d
012f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 e220 | | Load 0x1,0x20
0134 0c01 | | Execute_Immediate Greater_Equal,0x1
0135 6811 |h | Jump_Zero 0x147
0136 4801 |H | Short_Literal 0x1
0137 4800 |H | Short_Literal 0x0
0138 e220 | | Load 0x1,0x20
0139 e20d | | Load 0x1,0xd
013a 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
013b 0271 | q | Execute Discrete,Times
013c e001 | | Load 0x0,0x1
013d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
013e 00d9 | | Load_Top At_Offset_1
013f 00d0 | | Action Swap_Control
0140 0260 | ` | Execute Discrete,In_Type
0141 7001 |p | Jump_Nonzero 0x143
0142 0801 | | Execute_Immediate Raise,0x1
0143 e005 | | Load 0x0,0x5
0144 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0145 4800 |H | Short_Literal 0x0
0146 a220 | | Store_Unchecked 0x1,0x20
0147 e21f | | Load 0x1,0x1f
0148 0c01 | | Execute_Immediate Greater_Equal,0x1
0149 680a |h | Jump_Zero 0x154
014a e5ff | | Load 0x2,-0x1
014b 6803 |h | Jump_Zero 0x14f
014c 4800 |H | Short_Literal 0x0
014d a21f | | Store_Unchecked 0x1,0x1f
014e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014f e21f | | Load 0x1,0x1f
0150 0aff | | Execute_Immediate Plus,-0x1
0151 c21f | | Store 0x1,0x1f
0152 4820 |H | Short_Literal 0x20
0153 8214 | | Call 0x1,0x14
0154 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0155 0000 0000 | | .XXX[0x3]
0157 0000 | |
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b e5ff | | Load 0x2,-0x1
015c 6804 |h | Jump_Zero 0x161
015d 4800 |H | Short_Literal 0x0
015e a21f | | Store_Unchecked 0x1,0x1f
015f 4800 |H | Short_Literal 0x0
0160 a220 | | Store_Unchecked 0x1,0x20
0161 4800 |H | Short_Literal 0x0
0162 a21e | | Store_Unchecked 0x1,0x1e
0163 4944 |ID | Short_Literal 0x144
0164 e003 | | Load 0x0,0x3
0165 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0166 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0167 0000 | | .XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 4802 |H | Short_Literal 0x2
016c a21b | | Store_Unchecked 0x1,0x1b
016d 493f |I? | Short_Literal 0x13f
016e a21d | | Store_Unchecked 0x1,0x1d
016f 4800 |H | Short_Literal 0x0
0170 a21e | | Store_Unchecked 0x1,0x1e
0171 4800 |H | Short_Literal 0x0
0172 a21f | | Store_Unchecked 0x1,0x1f
0173 4800 |H | Short_Literal 0x0
0174 a220 | | Store_Unchecked 0x1,0x20
0175 4800 |H | Short_Literal 0x0
0176 a221 | ! | Store_Unchecked 0x1,0x21
0177 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017f | | .CONST 0x017f ; Address of begin
0179 02cd | | .CONST 0x02cd ; Address of exception handler
017a 0004 | | .CONST 0x0004 ; Number of locals
017b INIT_0178:
017b 00e8 | | Load_Encached Character_Cache
017c e001 | | Load 0x0,0x1
017d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
017e 00e3 | | Load_Encached Natural_Cache
017f BODY_0178:
017f 00cf | | Action Mark_Auxiliary
0180 e402 | | Load 0x2,0x2
0181 821c | | Call 0x1,0x1c
0182 c402 | | Store 0x2,0x2
0183 e402 | | Load 0x2,0x2
0184 00d8 | | Load_Top At_Offset_0
0185 0d04 | | Execute_Immediate Less,0x4
0186 704a |pJ | Jump_Nonzero 0x1d1
0187 00d8 | | Load_Top At_Offset_0
0188 0c21 | ! | Execute_Immediate Greater_Equal,0x21
0189 7044 |pD | Jump_Nonzero 0x1ce
018a 0afc | | Execute_Immediate Plus,-0x4
018b 461c |F | Jump_Case 0x1d
018c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x0
018d 7844 |xD | Jump 0x1d2 ; case 0x1
018e 7843 |xC | Jump 0x1d2 ; case 0x2
018f 7842 |xB | Jump 0x1d2 ; case 0x3
0190 7841 |xA | Jump 0x1d2 ; case 0x4
0191 7935 |y5 | Jump 0x2c7 ; case 0x5
0192 78f6 |x | Jump 0x289 ; case 0x6
0193 783e |x> | Jump 0x1d2 ; case 0x7
0194 783d |x= | Jump 0x1d2 ; case 0x8
0195 783c |x< | Jump 0x1d2 ; case 0x9
0196 783b |x; | Jump 0x1d2 ; case 0xa
0197 783a |x: | Jump 0x1d2 ; case 0xb
0198 7839 |x9 | Jump 0x1d2 ; case 0xc
0199 7838 |x8 | Jump 0x1d2 ; case 0xd
019a 7837 |x7 | Jump 0x1d2 ; case 0xe
019b 7836 |x6 | Jump 0x1d2 ; case 0xf
019c 7835 |x5 | Jump 0x1d2 ; case 0x10
019d 7834 |x4 | Jump 0x1d2 ; case 0x11
019e 7833 |x3 | Jump 0x1d2 ; case 0x12
019f 7832 |x2 | Jump 0x1d2 ; case 0x13
01a0 7831 |x1 | Jump 0x1d2 ; case 0x14
01a1 7830 |x0 | Jump 0x1d2 ; case 0x15
01a2 782f |x/ | Jump 0x1d2 ; case 0x16
01a3 782e |x. | Jump 0x1d2 ; case 0x17
01a4 782d |x- | Jump 0x1d2 ; case 0x18
01a5 782c |x, | Jump 0x1d2 ; case 0x19
01a6 782b |x+ | Jump 0x1d2 ; case 0x1a
01a7 782a |x* | Jump 0x1d2 ; case 0x1b
01a8 7800 |x | Jump 0x1a9 ; case 0x1c
01a9 e20d | | Load 0x1,0xd
01aa 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
01ab 681e |h | Jump_Zero 0x1ca
01ac e21d | | Load 0x1,0x1d
01ad 00d8 | | Load_Top At_Offset_0
01ae 0d21 | ! | Execute_Immediate Less,0x21
01af 700b |p | Jump_Nonzero 0x1bb
01b0 00d8 | | Load_Top At_Offset_0
01b1 0c2f | / | Execute_Immediate Greater_Equal,0x2f
01b2 7005 |p | Jump_Nonzero 0x1b8
01b3 4822 |H" | Short_Literal 0x22
01b4 482d |H- | Short_Literal 0x2d
01b5 0262 | b | Execute Discrete,In_Range
01b6 7005 |p | Jump_Nonzero 0x1bc
01b7 780a |x | Jump 0x1c2
01b8 0f3f | ? | Execute_Immediate Equal,0x3f
01b9 7008 |p | Jump_Nonzero 0x1c2
01ba 7801 |x | Jump 0x1bc
01bb 00d1 | | Pop_Control Pop_Count_1
01bc e21f | | Load 0x1,0x1f
01bd 0d01 | | Execute_Immediate Less,0x1
01be 690c |i | Jump_Zero 0x2cb
01bf 4801 |H | Short_Literal 0x1
01c0 a21f | | Store_Unchecked 0x1,0x1f
01c1 7909 |y | Jump 0x2cb
01c2 e21f | | Load 0x1,0x1f
01c3 e21b | | Load 0x1,0x1b
01c4 027c | | | Execute Discrete,Less
01c5 6905 |i | Jump_Zero 0x2cb
01c6 e21f | | Load 0x1,0x1f
01c7 0a01 | | Execute_Immediate Plus,0x1
01c8 c21f | | Store 0x1,0x1f
01c9 7901 |y | Jump 0x2cb
01ca e21f | | Load 0x1,0x1f
01cb 0a01 | | Execute_Immediate Plus,0x1
01cc c21f | | Store 0x1,0x1f
01cd 78fd |x | Jump 0x2cb
01ce 0f7e | ~ | Execute_Immediate Equal,0x7e
01cf 700b |p | Jump_Nonzero 0x1db
01d0 7801 |x | Jump 0x1d2
01d1 00d1 | | Pop_Control Pop_Count_1
01d2 e402 | | Load 0x2,0x2
01d3 00d8 | | Load_Top At_Offset_0
01d4 e001 | | Load 0x0,0x1
01d5 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
01d6 0260 | ` | Execute Discrete,In_Type
01d7 7001 |p | Jump_Nonzero 0x1d9
01d8 0801 | | Execute_Immediate Raise,0x1
01d9 8214 | | Call 0x1,0x14
01da 78f0 |x | Jump 0x2cb
01db e402 | | Load 0x2,0x2
01dc 821c | | Call 0x1,0x1c
01dd c402 | | Store 0x2,0x2
01de e402 | | Load 0x2,0x2
01df 00d8 | | Load_Top At_Offset_0
01e0 0d3c | < | Execute_Immediate Less,0x3c
01e1 701a |p | Jump_Nonzero 0x1fc
01e2 00d8 | | Load_Top At_Offset_0
01e3 0c3f | ? | Execute_Immediate Greater_Equal,0x3f
01e4 7005 |p | Jump_Nonzero 0x1ea
01e5 0b3c | < | Execute_Immediate Case_Compare,0x3c
01e6 7059 |pY | Jump_Nonzero 0x240
01e7 0f3e | > | Execute_Immediate Equal,0x3e
01e8 7049 |pI | Jump_Nonzero 0x232
01e9 7821 |x! | Jump 0x20b
01ea 00d8 | | Load_Top At_Offset_0
01eb 0d7b | { | Execute_Immediate Less,0x7b
01ec 7005 |p | Jump_Nonzero 0x1f2
01ed 0b7c | | | Execute_Immediate Case_Compare,0x7c
01ee 7034 |p4 | Jump_Nonzero 0x223
01ef 0f7e | ~ | Execute_Immediate Equal,0x7e
01f0 702c |p, | Jump_Nonzero 0x21d
01f1 7819 |x | Jump 0x20b
01f2 00d8 | | Load_Top At_Offset_0
01f3 4841 |HA | Short_Literal 0x41
01f4 485a |HZ | Short_Literal 0x5a
01f5 0262 | b | Execute Discrete,In_Range
01f6 705f |p_ | Jump_Nonzero 0x256
01f7 4861 |Ha | Short_Literal 0x61
01f8 487a |Hz | Short_Literal 0x7a
01f9 0262 | b | Execute Discrete,In_Range
01fa 705c |p\ | Jump_Nonzero 0x257
01fb 780f |x | Jump 0x20b
01fc 00d8 | | Load_Top At_Offset_0
01fd 0d04 | | Execute_Immediate Less,0x4
01fe 700b |p | Jump_Nonzero 0x20a
01ff 00d8 | | Load_Top At_Offset_0
0200 0c0b | | Execute_Immediate Greater_Equal,0xb
0201 7005 |p | Jump_Nonzero 0x207
0202 4805 |H | Short_Literal 0x5
0203 4809 |H | Short_Literal 0x9
0204 0262 | b | Execute Discrete,In_Range
0205 7005 |p | Jump_Nonzero 0x20b
0206 787f |x | Jump 0x286
0207 0f20 | | Execute_Immediate Equal,0x20
0208 7017 |p | Jump_Nonzero 0x220
0209 7801 |x | Jump 0x20b
020a 00d1 | | Pop_Control Pop_Count_1
020b 4801 |H | Short_Literal 0x1
020c 4802 |H | Short_Literal 0x2
020d 00e9 | | Load_Encached String_Cache
020e 0334 | 4 | Declare_Variable Array,With_Constraint
020f 487e |H~ | Short_Literal 0x7e
0210 4801 |H | Short_Literal 0x1
0211 e406 | | Load 0x2,0x6
0212 01d6 | | Execute Vector,Field_Write
0213 e402 | | Load 0x2,0x2
0214 4802 |H | Short_Literal 0x2
0215 e406 | | Load 0x2,0x6
0216 01d6 | | Execute Vector,Field_Write
0217 0092 02d7 | | Action Push_String_Extended,0x2d7 ; " is not a command"
0219 01cc | | Execute Vector,Catenate
021a e004 | | Load 0x0,0x4
021b 180e | | Execute Package,Field_Execute,Field_Number 0xe
021c 78ae |x | Jump 0x2cb
021d 487e |H~ | Short_Literal 0x7e
021e 8214 | | Call 0x1,0x14
021f 78ab |x | Jump 0x2cb
0220 4820 |H | Short_Literal 0x20
0221 8214 | | Call 0x1,0x14
0222 78a8 |x | Jump 0x2cb
0223 00d1 | | Pop_Control Pop_Count_1
0224 e001 | | Load 0x0,0x1
0225 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0226 6806 |h | Jump_Zero 0x22d
0227 4800 |H | Short_Literal 0x0
0228 4800 |H | Short_Literal 0x0
0229 0092 02d8 | | Action Push_String_Extended,0x2d8 ; "Command => SET_LEFT_MARGIN"
022b e004 | | Load 0x0,0x4
022c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
022d e003 | | Load 0x0,0x3
022e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
022f e20d | | Load 0x1,0xd
0230 3816 |8 | Execute Record,Field_Write,Field_Number 0x16
0231 7899 |x | Jump 0x2cb
0232 e001 | | Load 0x0,0x1
0233 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0234 6806 |h | Jump_Zero 0x23b
0235 4800 |H | Short_Literal 0x0
0236 4800 |H | Short_Literal 0x0
0237 0092 02d9 | | Action Push_String_Extended,0x2d9 ; "Command => TAB"
0239 e004 | | Load 0x0,0x4
023a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
023b 4800 |H | Short_Literal 0x0
023c a21f | | Store_Unchecked 0x1,0x1f
023d 4940 |I@ | Short_Literal 0x140
023e 8214 | | Call 0x1,0x14
023f 788b |x | Jump 0x2cb
0240 00d1 | | Pop_Control Pop_Count_1
0241 e001 | | Load 0x0,0x1
0242 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0243 6806 |h | Jump_Zero 0x24a
0244 4800 |H | Short_Literal 0x0
0245 4800 |H | Short_Literal 0x0
0246 0092 02da | | Action Push_String_Extended,0x2da ; "Command => LINE_BREAK"
0248 e004 | | Load 0x0,0x4
0249 1810 | | Execute Package,Field_Execute,Field_Number 0x10
024a 4800 |H | Short_Literal 0x0
024b a21e | | Store_Unchecked 0x1,0x1e
024c 4800 |H | Short_Literal 0x0
024d a21f | | Store_Unchecked 0x1,0x1f
024e e220 | | Load 0x1,0x20
024f 0a01 | | Execute_Immediate Plus,0x1
0250 c220 | | Store 0x1,0x20
0251 4801 |H | Short_Literal 0x1
0252 a221 | ! | Store_Unchecked 0x1,0x21
0253 493f |I? | Short_Literal 0x13f
0254 a21d | | Store_Unchecked 0x1,0x1d
0255 7875 |xu | Jump 0x2cb
0256 00d1 | | Pop_Control Pop_Count_1
0257 e003 | | Load 0x0,0x3
0258 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0259 a404 | | Store_Unchecked 0x2,0x4
025a e003 | | Load 0x0,0x3
025b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
025c a403 | | Store_Unchecked 0x2,0x3
025d e402 | | Load 0x2,0x2
025e e006 | | Load 0x0,0x6
025f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0260 c402 | | Store 0x2,0x2
0261 e404 | | Load 0x2,0x4
0262 e003 | | Load 0x0,0x3
0263 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0264 027f | | Execute Discrete,Equal
0265 6f1d |o | Jump_Zero 0x183
0266 e403 | | Load 0x2,0x3
0267 e003 | | Load 0x0,0x3
0268 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0269 027f | | Execute Discrete,Equal
026a 700b |p | Jump_Nonzero 0x276
026b e402 | | Load 0x2,0x2
026c 0b20 | | Execute_Immediate Case_Compare,0x20
026d 7003 |p | Jump_Nonzero 0x271
026e 0f0a | | Execute_Immediate Equal,0xa
026f 7003 |p | Jump_Nonzero 0x273
0270 7f12 | | Jump 0x183
0271 00d1 | | Pop_Control Pop_Count_1
0272 7858 |xX | Jump 0x2cb
0273 493e |I> | Short_Literal 0x13e
0274 a21d | | Store_Unchecked 0x1,0x1d
0275 7855 |xU | Jump 0x2cb
0276 e21d | | Load 0x1,0x1d
0277 0b20 | | Execute_Immediate Case_Compare,0x20
0278 7004 |p | Jump_Nonzero 0x27d
0279 493e |I> | Short_Literal 0x13e
027a 027f | | Execute Discrete,Equal
027b 7006 |p | Jump_Nonzero 0x282
027c 7f06 | | Jump 0x183
027d 00d1 | | Pop_Control Pop_Count_1
027e e402 | | Load 0x2,0x2
027f 0e20 | | Execute_Immediate Not_Equal,0x20
0280 684a |hJ | Jump_Zero 0x2cb
0281 7f01 | | Jump 0x183
0282 e402 | | Load 0x2,0x2
0283 0e0a | | Execute_Immediate Not_Equal,0xa
0284 6846 |hF | Jump_Zero 0x2cb
0285 7efd |~ | Jump 0x183
0286 487e |H~ | Short_Literal 0x7e
0287 8214 | | Call 0x1,0x14
0288 7efa |~ | Jump 0x183
0289 e20d | | Load 0x1,0xd
028a 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
028b 682e |h. | Jump_Zero 0x2ba
028c e21d | | Load 0x1,0x1d
028d 00d8 | | Load_Top At_Offset_0
028e 0d2f | / | Execute_Immediate Less,0x2f
028f 7015 |p | Jump_Nonzero 0x2a5
0290 00d8 | | Load_Top At_Offset_0
0291 0c3f | ? | Execute_Immediate Greater_Equal,0x3f
0292 7007 |p | Jump_Nonzero 0x29a
0293 00d1 | | Pop_Control Pop_Count_1
0294 e21f | | Load 0x1,0x1f
0295 0d01 | | Execute_Immediate Less,0x1
0296 682d |h- | Jump_Zero 0x2c4
0297 4801 |H | Short_Literal 0x1
0298 a21f | | Store_Unchecked 0x1,0x1f
0299 782a |x* | Jump 0x2c4
029a 0b3f | ? | Execute_Immediate Case_Compare,0x3f
029b 701a |p | Jump_Nonzero 0x2b6
029c 00d8 | | Load_Top At_Offset_0
029d 493e |I> | Short_Literal 0x13e
029e 027f | | Execute Discrete,Equal
029f 700c |p | Jump_Nonzero 0x2ac
02a0 493f |I? | Short_Literal 0x13f
02a1 4940 |I@ | Short_Literal 0x140
02a2 0262 | b | Execute Discrete,In_Range
02a3 700f |p | Jump_Nonzero 0x2b3
02a4 7fef | | Jump 0x294
02a5 0b20 | | Execute_Immediate Case_Compare,0x20
02a6 700b |p | Jump_Nonzero 0x2b2
02a7 0b21 | ! | Execute_Immediate Case_Compare,0x21
02a8 700d |p | Jump_Nonzero 0x2b6
02a9 0f2e | . | Execute_Immediate Equal,0x2e
02aa 700c |p | Jump_Nonzero 0x2b7
02ab 7fe8 | | Jump 0x294
02ac 00d1 | | Pop_Control Pop_Count_1
02ad 4801 |H | Short_Literal 0x1
02ae a21e | | Store_Unchecked 0x1,0x1e
02af 4800 |H | Short_Literal 0x0
02b0 a21f | | Store_Unchecked 0x1,0x1f
02b1 7812 |x | Jump 0x2c4
02b2 00d1 | | Pop_Control Pop_Count_1
02b3 4800 |H | Short_Literal 0x0
02b4 a21f | | Store_Unchecked 0x1,0x1f
02b5 780e |x | Jump 0x2c4
02b6 00d1 | | Pop_Control Pop_Count_1
02b7 e21b | | Load 0x1,0x1b
02b8 a21f | | Store_Unchecked 0x1,0x1f
02b9 780a |x | Jump 0x2c4
02ba 4800 |H | Short_Literal 0x0
02bb a21f | | Store_Unchecked 0x1,0x1f
02bc e221 | ! | Load 0x1,0x21
02bd 6803 |h | Jump_Zero 0x2c1
02be 4800 |H | Short_Literal 0x0
02bf a221 | ! | Store_Unchecked 0x1,0x21
02c0 7803 |x | Jump 0x2c4
02c1 e220 | | Load 0x1,0x20
02c2 0a01 | | Execute_Immediate Plus,0x1
02c3 c220 | | Store 0x1,0x20
02c4 493e |I> | Short_Literal 0x13e
02c5 a21d | | Store_Unchecked 0x1,0x1d
02c6 7804 |x | Jump 0x2cb
02c7 4800 |H | Short_Literal 0x0
02c8 a21f | | Store_Unchecked 0x1,0x1f
02c9 4940 |I@ | Short_Literal 0x140
02ca 8214 | | Call 0x1,0x14
02cb 00c9 | | Action Pop_Auxiliary_Loop
02cc 7eb3 |~ | Jump 0x180
02cd TRAP_0178:
02cd 010b | | Execute Exception,Is_Storage_Error
02ce 6806 |h | Jump_Zero 0x2d5
02cf 0092 02db | | Action Push_String_Extended,0x2db ; "Ran out of memory"
02d1 e004 | | Load 0x0,0x4
02d2 180e | | Execute Package,Field_Execute,Field_Number 0xe
02d3 00d8 | | Load_Top At_Offset_0
02d4 0101 | | Execute Exception,Reraise
02d5 0100 | | Execute Exception,Raise
02d6 ; --------------------------------------------------------------------------------------
02d6 ; STRING TABLE
02d6 ; --------------------------------------------------------------------------------------
02d6 000e | | .STRTAB 0x000e->0x02dd ; "Command => paragraph ("
02d7 0022 | " | .STRTAB 0x0022->0x02e8 ; " is not a command"
02d8 0031 | 1 | .STRTAB 0x0031->0x02f0 ; "Command => SET_LEFT_MARGIN"
02d9 0049 | I | .STRTAB 0x0049->0x02fd ; "Command => TAB"
02da 0055 | U | .STRTAB 0x0055->0x0304 ; "Command => LINE_BREAK"
02db 0068 | h | .STRTAB 0x0068->0x030f ; "Ran out of memory"
02dc 0077 | w | .STREND 0x0077->0x0317
02dd 436f 6d6d |Comm| .STRTAB_STRINGS
0318 ; --------------------------------------------------------------------------------------
0318 ; Debug Table
0318 ; --------------------------------------------------------------------------------------
0318 0004 000f | | .DEBUG4 0x0004,0x000f,0x47e5,0x0000,0x0001,0x0000
031e 0000 0000 | | .BLANK 0000[0xab]
03c9 0004 2a00 | * | .XXX[0x5]
03cb 0884 6206 | b |
03cd 3203 |2 |
03ce 0000 0000 | | .BLANK 0000[0x32]