|
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: 3072 (0xc00)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0e30ab
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0370 | p | .CONST 0x0370 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0040 | @ | .CONST 0x0040 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0022 | " | .CONST 0x0022 ; Number of locals
000b INIT_0008:
000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
000d 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 e003 | | Load 0x0,0x3
0011 0322 | " | Declare_Variable Record
0012 00d8 | | Load_Top At_Offset_0
0013 1c00 | | Execute_Immediate Run_Utility,0x0
0014 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0015 00c7 | | Action Elaborate_Subprogram
0016 029d 010b | | Declare_Subprogram INIT_0108,For_Outer_Call
0018 029d 011b | | Declare_Subprogram INIT_0118,For_Outer_Call
001a 029d 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call
001c 029b 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Unelaborated
001e 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call
0020 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0021 00c7 | | Action Elaborate_Subprogram
0022 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call
0024 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call
0026 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call
0028 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call
002a 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call
002c 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call
002e 029d 020b | | Declare_Subprogram INIT_0208,For_Outer_Call
0030 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call
0032 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call
0034 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call
0036 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call
0038 029d 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call
003a 029d 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call
003c 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call
003e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
003f 00c7 | | Action Elaborate_Subprogram
0040 BODY_0008:
0040 00bc | | Action Signal_Activated
0041 00bb | | Action Signal_Completion
0042 0000 0000 | | .BLANK 0000[0x6]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004c | L | .CONST 0x004c ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0002 | | .CONST 0x0002 ; Number of locals
004b INIT_0048:
004b 00e8 | | Load_Encached Character_Cache
004c BODY_0048:
004c e20f | | Load 0x1,0xf
004d 8004 | | Call 0x0,0x4
004e 00d1 | | Pop_Control Pop_Count_1
004f e005 | | Load 0x0,0x5
0050 8006 | | Call 0x0,0x6
0051 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0052 00d8 | | Load_Top At_Offset_0
0053 467f |F | Jump_Case 0x80
0054 787f |x | Jump 0xd4 ; case 0x0
0055 787e |x~ | Jump 0xd4 ; case 0x1
0056 787d |x} | Jump 0xd4 ; case 0x2
0057 787c |x| | Jump 0xd4 ; case 0x3
0058 787f |x | Jump 0xd8 ; case 0x4
0059 787a |xz | Jump 0xd4 ; case 0x5
005a 7879 |xy | Jump 0xd4 ; case 0x6
005b 7878 |xx | Jump 0xd4 ; case 0x7
005c 7877 |xw | Jump 0xd4 ; case 0x8
005d 7876 |xv | Jump 0xd4 ; case 0x9
005e 7875 |xu | Jump 0xd4 ; case 0xa
005f 7874 |xt | Jump 0xd4 ; case 0xb
0060 7873 |xs | Jump 0xd4 ; case 0xc
0061 7878 |xx | Jump 0xda ; case 0xd
0062 7871 |xq | Jump 0xd4 ; case 0xe
0063 7870 |xp | Jump 0xd4 ; case 0xf
0064 786f |xo | Jump 0xd4 ; case 0x10
0065 786e |xn | Jump 0xd4 ; case 0x11
0066 786d |xm | Jump 0xd4 ; case 0x12
0067 786c |xl | Jump 0xd4 ; case 0x13
0068 786b |xk | Jump 0xd4 ; case 0x14
0069 786a |xj | Jump 0xd4 ; case 0x15
006a 7869 |xi | Jump 0xd4 ; case 0x16
006b 7868 |xh | Jump 0xd4 ; case 0x17
006c 7867 |xg | Jump 0xd4 ; case 0x18
006d 7866 |xf | Jump 0xd4 ; case 0x19
006e 7865 |xe | Jump 0xd4 ; case 0x1a
006f 7864 |xd | Jump 0xd4 ; case 0x1b
0070 7863 |xc | Jump 0xd4 ; case 0x1c
0071 7862 |xb | Jump 0xd4 ; case 0x1d
0072 7861 |xa | Jump 0xd4 ; case 0x1e
0073 7860 |x` | Jump 0xd4 ; case 0x1f
0074 7865 |xe | Jump 0xda ; case 0x20
0075 785e |x^ | Jump 0xd4 ; case 0x21
0076 785d |x] | Jump 0xd4 ; case 0x22
0077 7867 |xg | Jump 0xdf ; case 0x23
0078 785b |x[ | Jump 0xd4 ; case 0x24
0079 785a |xZ | Jump 0xd4 ; case 0x25
007a 7859 |xY | Jump 0xd4 ; case 0x26
007b 7858 |xX | Jump 0xd4 ; case 0x27
007c 786e |xn | Jump 0xeb ; case 0x28
007d 786f |xo | Jump 0xed ; case 0x29
007e 7870 |xp | Jump 0xef ; case 0x2a
007f 7871 |xq | Jump 0xf1 ; case 0x2b
0080 7853 |xS | Jump 0xd4 ; case 0x2c
0081 7871 |xq | Jump 0xf3 ; case 0x2d
0082 7851 |xQ | Jump 0xd4 ; case 0x2e
0083 7861 |xa | Jump 0xe5 ; case 0x2f
0084 7857 |xW | Jump 0xdc ; case 0x30
0085 7856 |xV | Jump 0xdc ; case 0x31
0086 7855 |xU | Jump 0xdc ; case 0x32
0087 7854 |xT | Jump 0xdc ; case 0x33
0088 7853 |xS | Jump 0xdc ; case 0x34
0089 7852 |xR | Jump 0xdc ; case 0x35
008a 7851 |xQ | Jump 0xdc ; case 0x36
008b 7850 |xP | Jump 0xdc ; case 0x37
008c 784f |xO | Jump 0xdc ; case 0x38
008d 784e |xN | Jump 0xdc ; case 0x39
008e 7868 |xh | Jump 0xf7 ; case 0x3a
008f 7844 |xD | Jump 0xd4 ; case 0x3b
0090 7868 |xh | Jump 0xf9 ; case 0x3c
0091 7863 |xc | Jump 0xf5 ; case 0x3d
0092 7868 |xh | Jump 0xfb ; case 0x3e
0093 7840 |x@ | Jump 0xd4 ; case 0x3f
0094 783f |x? | Jump 0xd4 ; case 0x40
0095 784c |xL | Jump 0xe2 ; case 0x41
0096 784b |xK | Jump 0xe2 ; case 0x42
0097 784a |xJ | Jump 0xe2 ; case 0x43
0098 7849 |xI | Jump 0xe2 ; case 0x44
0099 7848 |xH | Jump 0xe2 ; case 0x45
009a 7847 |xG | Jump 0xe2 ; case 0x46
009b 7846 |xF | Jump 0xe2 ; case 0x47
009c 7845 |xE | Jump 0xe2 ; case 0x48
009d 7844 |xD | Jump 0xe2 ; case 0x49
009e 7843 |xC | Jump 0xe2 ; case 0x4a
009f 7842 |xB | Jump 0xe2 ; case 0x4b
00a0 7841 |xA | Jump 0xe2 ; case 0x4c
00a1 7840 |x@ | Jump 0xe2 ; case 0x4d
00a2 783f |x? | Jump 0xe2 ; case 0x4e
00a3 783e |x> | Jump 0xe2 ; case 0x4f
00a4 783d |x= | Jump 0xe2 ; case 0x50
00a5 783c |x< | Jump 0xe2 ; case 0x51
00a6 783b |x; | Jump 0xe2 ; case 0x52
00a7 783a |x: | Jump 0xe2 ; case 0x53
00a8 7839 |x9 | Jump 0xe2 ; case 0x54
00a9 7838 |x8 | Jump 0xe2 ; case 0x55
00aa 7837 |x7 | Jump 0xe2 ; case 0x56
00ab 7836 |x6 | Jump 0xe2 ; case 0x57
00ac 7835 |x5 | Jump 0xe2 ; case 0x58
00ad 7834 |x4 | Jump 0xe2 ; case 0x59
00ae 7833 |x3 | Jump 0xe2 ; case 0x5a
00af 7824 |x$ | Jump 0xd4 ; case 0x5b
00b0 7823 |x# | Jump 0xd4 ; case 0x5c
00b1 7822 |x" | Jump 0xd4 ; case 0x5d
00b2 7821 |x! | Jump 0xd4 ; case 0x5e
00b3 7820 |x | Jump 0xd4 ; case 0x5f
00b4 781f |x | Jump 0xd4 ; case 0x60
00b5 782c |x, | Jump 0xe2 ; case 0x61
00b6 782b |x+ | Jump 0xe2 ; case 0x62
00b7 782a |x* | Jump 0xe2 ; case 0x63
00b8 7829 |x) | Jump 0xe2 ; case 0x64
00b9 7828 |x( | Jump 0xe2 ; case 0x65
00ba 7827 |x' | Jump 0xe2 ; case 0x66
00bb 7826 |x& | Jump 0xe2 ; case 0x67
00bc 7825 |x% | Jump 0xe2 ; case 0x68
00bd 7824 |x$ | Jump 0xe2 ; case 0x69
00be 7823 |x# | Jump 0xe2 ; case 0x6a
00bf 7822 |x" | Jump 0xe2 ; case 0x6b
00c0 7821 |x! | Jump 0xe2 ; case 0x6c
00c1 7820 |x | Jump 0xe2 ; case 0x6d
00c2 781f |x | Jump 0xe2 ; case 0x6e
00c3 781e |x | Jump 0xe2 ; case 0x6f
00c4 781d |x | Jump 0xe2 ; case 0x70
00c5 781c |x | Jump 0xe2 ; case 0x71
00c6 781b |x | Jump 0xe2 ; case 0x72
00c7 781a |x | Jump 0xe2 ; case 0x73
00c8 7819 |x | Jump 0xe2 ; case 0x74
00c9 7818 |x | Jump 0xe2 ; case 0x75
00ca 7817 |x | Jump 0xe2 ; case 0x76
00cb 7816 |x | Jump 0xe2 ; case 0x77
00cc 7815 |x | Jump 0xe2 ; case 0x78
00cd 7814 |x | Jump 0xe2 ; case 0x79
00ce 7813 |x | Jump 0xe2 ; case 0x7a
00cf 7817 |x | Jump 0xe7 ; case 0x7b
00d0 7803 |x | Jump 0xd4 ; case 0x7c
00d1 7817 |x | Jump 0xe9 ; case 0x7d
00d2 7801 |x | Jump 0xd4 ; case 0x7e
00d3 7800 |x | Jump 0xd4 ; case 0x7f
00d4 00d8 | | Load_Top At_Offset_0
00d5 8007 | | Call 0x0,0x7
00d6 482c |H, | Short_Literal 0x2c
00d7 00ca | | Action Exit_Nullary_Function
00d8 480c |H | Short_Literal 0xc
00d9 00ca | | Action Exit_Nullary_Function
00da 820d | | Call 0x1,0xd
00db 00ca | | Action Exit_Nullary_Function
00dc 00d8 | | Load_Top At_Offset_0
00dd 8221 | ! | Call 0x1,0x21
00de 00ca | | Action Exit_Nullary_Function
00df 00d8 | | Load_Top At_Offset_0
00e0 8219 | | Call 0x1,0x19
00e1 00ca | | Action Exit_Nullary_Function
00e2 00d8 | | Load_Top At_Offset_0
00e3 8222 | " | Call 0x1,0x22
00e4 00ca | | Action Exit_Nullary_Function
00e5 8215 | | Call 0x1,0x15
00e6 00ca | | Action Exit_Nullary_Function
00e7 482e |H. | Short_Literal 0x2e
00e8 00ca | | Action Exit_Nullary_Function
00e9 482f |H/ | Short_Literal 0x2f
00ea 00ca | | Action Exit_Nullary_Function
00eb 4833 |H3 | Short_Literal 0x33
00ec 00ca | | Action Exit_Nullary_Function
00ed 4834 |H4 | Short_Literal 0x34
00ee 00ca | | Action Exit_Nullary_Function
00ef 482e |H. | Short_Literal 0x2e
00f0 00ca | | Action Exit_Nullary_Function
00f1 4830 |H0 | Short_Literal 0x30
00f2 00ca | | Action Exit_Nullary_Function
00f3 4832 |H2 | Short_Literal 0x32
00f4 00ca | | Action Exit_Nullary_Function
00f5 480d |H | Short_Literal 0xd
00f6 00ca | | Action Exit_Nullary_Function
00f7 8210 | | Call 0x1,0x10
00f8 00ca | | Action Exit_Nullary_Function
00f9 8212 | | Call 0x1,0x12
00fa 00ca | | Action Exit_Nullary_Function
00fb 8211 | | Call 0x1,0x11
00fc 00ca | | Action Exit_Nullary_Function
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 e20f | | Load 0x1,0xf
0104 0320 | | Declare_Variable Record,Duplicate
0105 00cd | | Action Spare6_Action
0106 00ca | | Action Exit_Nullary_Function
0107 0000 | | .XXX[0x1]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010c | | .CONST 0x010c ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b 00e8 | | Load_Encached Character_Cache
010c BODY_0108:
010c e005 | | Load 0x0,0x5
010d 8006 | | Call 0x0,0x6
010e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
010f 00d8 | | Load_Top At_Offset_0
0110 0f3d | = | Execute_Immediate Equal,0x3d
0111 7004 |p | Jump_Nonzero 0x116
0112 00d8 | | Load_Top At_Offset_0
0113 8007 | | Call 0x0,0x7
0114 482c |H, | Short_Literal 0x2c
0115 00ca | | Action Exit_Nullary_Function
0116 481c |H | Short_Literal 0x1c
0117 00ca | | Action Exit_Nullary_Function
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011c | | .CONST 0x011c ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0002 | | .CONST 0x0002 ; Number of locals
011b INIT_0118:
011b 00e8 | | Load_Encached Character_Cache
011c BODY_0118:
011c e005 | | Load 0x0,0x5
011d 8006 | | Call 0x0,0x6
011e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
011f 00d8 | | Load_Top At_Offset_0
0120 0f3d | = | Execute_Immediate Equal,0x3d
0121 7004 |p | Jump_Nonzero 0x126
0122 00d8 | | Load_Top At_Offset_0
0123 8007 | | Call 0x0,0x7
0124 4815 |H | Short_Literal 0x15
0125 00ca | | Action Exit_Nullary_Function
0126 4816 |H | Short_Literal 0x16
0127 00ca | | Action Exit_Nullary_Function
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012c | , | .CONST 0x012c ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0002 | | .CONST 0x0002 ; Number of locals
012b INIT_0128:
012b 00e8 | | Load_Encached Character_Cache
012c BODY_0128:
012c e005 | | Load 0x0,0x5
012d 8006 | | Call 0x0,0x6
012e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
012f 00d8 | | Load_Top At_Offset_0
0130 0b3e | > | Execute_Immediate Case_Compare,0x3e
0131 7006 |p | Jump_Nonzero 0x138
0132 0f3d | = | Execute_Immediate Equal,0x3d
0133 7007 |p | Jump_Nonzero 0x13b
0134 00d8 | | Load_Top At_Offset_0
0135 8007 | | Call 0x0,0x7
0136 481b |H | Short_Literal 0x1b
0137 00ca | | Action Exit_Nullary_Function
0138 00d1 | | Pop_Control Pop_Count_1
0139 481e |H | Short_Literal 0x1e
013a 00ca | | Action Exit_Nullary_Function
013b 481a |H | Short_Literal 0x1a
013c 00ca | | Action Exit_Nullary_Function
013d 0000 0000 | | .XXX[0x3]
013f 0000 | |
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0144 | D | .CONST 0x0144 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0002 | | .CONST 0x0002 ; Number of locals
0143 INIT_0140:
0143 00e8 | | Load_Encached Character_Cache
0144 BODY_0140:
0144 e005 | | Load 0x0,0x5
0145 8006 | | Call 0x0,0x6
0146 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0147 00d8 | | Load_Top At_Offset_0
0148 0f2a | * | Execute_Immediate Equal,0x2a
0149 7002 |p | Jump_Nonzero 0x14c
014a 8213 | | Call 0x1,0x13
014b 00ca | | Action Exit_Nullary_Function
014c 8214 | | Call 0x1,0x14
014d 00ca | | Action Exit_Nullary_Function
014e 0000 0000 | | .XXX[0x2]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0154 | T | .CONST 0x0154 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0002 | | .CONST 0x0002 ; Number of locals
0153 INIT_0150:
0153 00e8 | | Load_Encached Character_Cache
0154 BODY_0150:
0154 e005 | | Load 0x0,0x5
0155 8006 | | Call 0x0,0x6
0156 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0157 00d8 | | Load_Top At_Offset_0
0158 0f2f | / | Execute_Immediate Equal,0x2f
0159 7002 |p | Jump_Nonzero 0x15c
015a 8213 | | Call 0x1,0x13
015b 00ca | | Action Exit_Nullary_Function
015c 820d | | Call 0x1,0xd
015d 00ca | | Action Exit_Nullary_Function
015e 0000 0000 | | .XXX[0x2]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0164 | d | .CONST 0x0164 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0002 | | .CONST 0x0002 ; Number of locals
0163 INIT_0160:
0163 00e8 | | Load_Encached Character_Cache
0164 BODY_0160:
0164 e005 | | Load 0x0,0x5
0165 8006 | | Call 0x0,0x6
0166 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0167 00d8 | | Load_Top At_Offset_0
0168 0f2a | * | Execute_Immediate Equal,0x2a
0169 7004 |p | Jump_Nonzero 0x16e
016a 00d8 | | Load_Top At_Offset_0
016b 8007 | | Call 0x0,0x7
016c 482c |H, | Short_Literal 0x2c
016d 00ca | | Action Exit_Nullary_Function
016e 8213 | | Call 0x1,0x13
016f 00ca | | Action Exit_Nullary_Function
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0174 | t | .CONST 0x0174 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0002 | | .CONST 0x0002 ; Number of locals
0173 INIT_0170:
0173 00e8 | | Load_Encached Character_Cache
0174 BODY_0170:
0174 e20f | | Load 0x1,0xf
0175 e5ff | | Load 0x2,-0x1
0176 8008 | | Call 0x0,0x8
0177 00d1 | | Pop_Control Pop_Count_1
0178 e005 | | Load 0x0,0x5
0179 8006 | | Call 0x0,0x6
017a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
017b 00d8 | | Load_Top At_Offset_0
017c 00d8 | | Load_Top At_Offset_0
017d 0d41 | A | Execute_Immediate Less,0x41
017e 700c |p | Jump_Nonzero 0x18b
017f 00d8 | | Load_Top At_Offset_0
0180 0c5b | [ | Execute_Immediate Greater_Equal,0x5b
0181 7004 |p | Jump_Nonzero 0x186
0182 00d1 | | Pop_Control Pop_Count_1
0183 00d8 | | Load_Top At_Offset_0
0184 8216 | | Call 0x1,0x16
0185 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0186 4861 |Ha | Short_Literal 0x61
0187 487a |Hz | Short_Literal 0x7a
0188 0262 | b | Execute Discrete,In_Range
0189 77f9 |w | Jump_Nonzero 0x183
018a 7805 |x | Jump 0x190
018b 4830 |H0 | Short_Literal 0x30
018c 4839 |H9 | Short_Literal 0x39
018d 0262 | b | Execute Discrete,In_Range
018e 77f4 |w | Jump_Nonzero 0x183
018f 7800 |x | Jump 0x190
0190 00d8 | | Load_Top At_Offset_0
0191 8007 | | Call 0x0,0x7
0192 4806 |H | Short_Literal 0x6
0193 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0194 0000 0000 | | .BLANK 0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019c | | .CONST 0x019c ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b 00e8 | | Load_Encached Character_Cache
019c BODY_0198:
019c e20f | | Load 0x1,0xf
019d e5ff | | Load 0x2,-0x1
019e 8008 | | Call 0x0,0x8
019f 00d1 | | Pop_Control Pop_Count_1
01a0 e005 | | Load 0x0,0x5
01a1 8006 | | Call 0x0,0x6
01a2 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
01a3 00d8 | | Load_Top At_Offset_0
01a4 00d8 | | Load_Top At_Offset_0
01a5 0d41 | A | Execute_Immediate Less,0x41
01a6 700c |p | Jump_Nonzero 0x1b3
01a7 00d8 | | Load_Top At_Offset_0
01a8 0c5b | [ | Execute_Immediate Greater_Equal,0x5b
01a9 7004 |p | Jump_Nonzero 0x1ae
01aa 00d1 | | Pop_Control Pop_Count_1
01ab 00d8 | | Load_Top At_Offset_0
01ac 8216 | | Call 0x1,0x16
01ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ae 4861 |Ha | Short_Literal 0x61
01af 487a |Hz | Short_Literal 0x7a
01b0 0262 | b | Execute Discrete,In_Range
01b1 77f9 |w | Jump_Nonzero 0x1ab
01b2 7805 |x | Jump 0x1b8
01b3 4830 |H0 | Short_Literal 0x30
01b4 4839 |H9 | Short_Literal 0x39
01b5 0262 | b | Execute Discrete,In_Range
01b6 77f4 |w | Jump_Nonzero 0x1ab
01b7 7800 |x | Jump 0x1b8
01b8 00d8 | | Load_Top At_Offset_0
01b9 8007 | | Call 0x0,0x7
01ba 482c |H, | Short_Literal 0x2c
01bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01bc 0000 0000 | | .BLANK 0000[0x4]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c4 | | .CONST 0x01c4 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0002 | | .CONST 0x0002 ; Number of locals
01c3 INIT_01c0:
01c3 00e8 | | Load_Encached Character_Cache
01c4 BODY_01c0:
01c4 e20f | | Load 0x1,0xf
01c5 e5ff | | Load 0x2,-0x1
01c6 8008 | | Call 0x0,0x8
01c7 00d1 | | Pop_Control Pop_Count_1
01c8 e005 | | Load 0x0,0x5
01c9 8006 | | Call 0x0,0x6
01ca 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
01cb 00d8 | | Load_Top At_Offset_0
01cc 00d8 | | Load_Top At_Offset_0
01cd 4830 |H0 | Short_Literal 0x30
01ce 4839 |H9 | Short_Literal 0x39
01cf 0262 | b | Execute Discrete,In_Range
01d0 7006 |p | Jump_Nonzero 0x1d7
01d1 0f23 | # | Execute_Immediate Equal,0x23
01d2 7008 |p | Jump_Nonzero 0x1db
01d3 00d8 | | Load_Top At_Offset_0
01d4 8007 | | Call 0x0,0x7
01d5 482c |H, | Short_Literal 0x2c
01d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d7 00d1 | | Pop_Control Pop_Count_1
01d8 00d8 | | Load_Top At_Offset_0
01d9 8218 | | Call 0x1,0x18
01da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01db 00d8 | | Load_Top At_Offset_0
01dc 8217 | | Call 0x1,0x17
01dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01de 0000 0000 | | .XXX[0x2]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e4 | | .CONST 0x01e4 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 00e8 | | Load_Encached Character_Cache
01e4 BODY_01e0:
01e4 e20f | | Load 0x1,0xf
01e5 e5ff | | Load 0x2,-0x1
01e6 8008 | | Call 0x0,0x8
01e7 00d1 | | Pop_Control Pop_Count_1
01e8 e005 | | Load 0x0,0x5
01e9 8006 | | Call 0x0,0x6
01ea 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
01eb 00d8 | | Load_Top At_Offset_0
01ec 4830 |H0 | Short_Literal 0x30
01ed 4839 |H9 | Short_Literal 0x39
01ee 0262 | b | Execute Discrete,In_Range
01ef 7004 |p | Jump_Nonzero 0x1f4
01f0 00d8 | | Load_Top At_Offset_0
01f1 8007 | | Call 0x0,0x7
01f2 482c |H, | Short_Literal 0x2c
01f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f4 00d8 | | Load_Top At_Offset_0
01f5 8218 | | Call 0x1,0x18
01f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f7 0000 | | .XXX[0x1]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb e20f | | Load 0x1,0xf
01fc 00db | | Load_Top At_Offset_3
01fd 8008 | | Call 0x0,0x8
01fe 00d1 | | Pop_Control Pop_Count_1
01ff 4817 |H | Short_Literal 0x17
0200 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0201 0000 0000 | | .BLANK 0000[0x7]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020c | | .CONST 0x020c ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0002 | | .CONST 0x0002 ; Number of locals
020b INIT_0208:
020b 00e8 | | Load_Encached Character_Cache
020c BODY_0208:
020c e20f | | Load 0x1,0xf
020d e5ff | | Load 0x2,-0x1
020e 8008 | | Call 0x0,0x8
020f 00d1 | | Pop_Control Pop_Count_1
0210 e005 | | Load 0x0,0x5
0211 8006 | | Call 0x0,0x6
0212 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0213 00d8 | | Load_Top At_Offset_0
0214 0b73 | s | Execute_Immediate Case_Compare,0x73
0215 7006 |p | Jump_Nonzero 0x21c
0216 0f53 | S | Execute_Immediate Equal,0x53
0217 7005 |p | Jump_Nonzero 0x21d
0218 00d8 | | Load_Top At_Offset_0
0219 8007 | | Call 0x0,0x7
021a 482c |H, | Short_Literal 0x2c
021b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021c 00d1 | | Pop_Control Pop_Count_1
021d 00d8 | | Load_Top At_Offset_0
021e 821a | | Call 0x1,0x1a
021f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0224 | $ | .CONST 0x0224 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0002 | | .CONST 0x0002 ; Number of locals
0223 INIT_0220:
0223 00e8 | | Load_Encached Character_Cache
0224 BODY_0220:
0224 e20f | | Load 0x1,0xf
0225 e5ff | | Load 0x2,-0x1
0226 8008 | | Call 0x0,0x8
0227 00d1 | | Pop_Control Pop_Count_1
0228 e005 | | Load 0x0,0x5
0229 8006 | | Call 0x0,0x6
022a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
022b 00d8 | | Load_Top At_Offset_0
022c 4830 |H0 | Short_Literal 0x30
022d 4839 |H9 | Short_Literal 0x39
022e 0262 | b | Execute Discrete,In_Range
022f 7004 |p | Jump_Nonzero 0x234
0230 00d8 | | Load_Top At_Offset_0
0231 8007 | | Call 0x0,0x7
0232 482c |H, | Short_Literal 0x2c
0233 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0234 00d8 | | Load_Top At_Offset_0
0235 821b | | Call 0x1,0x1b
0236 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0237 0000 | | .XXX[0x1]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023c | < | .CONST 0x023c ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0002 | | .CONST 0x0002 ; Number of locals
023b INIT_0238:
023b 00e8 | | Load_Encached Character_Cache
023c BODY_0238:
023c e20f | | Load 0x1,0xf
023d e5ff | | Load 0x2,-0x1
023e 8008 | | Call 0x0,0x8
023f 00d1 | | Pop_Control Pop_Count_1
0240 e005 | | Load 0x0,0x5
0241 8006 | | Call 0x0,0x6
0242 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0243 00d8 | | Load_Top At_Offset_0
0244 00d8 | | Load_Top At_Offset_0
0245 0d3a | : | Execute_Immediate Less,0x3a
0246 700d |p | Jump_Nonzero 0x254
0247 00d8 | | Load_Top At_Offset_0
0248 0c53 | S | Execute_Immediate Greater_Equal,0x53
0249 7005 |p | Jump_Nonzero 0x24f
024a 00d1 | | Pop_Control Pop_Count_1
024b 00d8 | | Load_Top At_Offset_0
024c 8007 | | Call 0x0,0x7
024d 482c |H, | Short_Literal 0x2c
024e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024f 0b53 | S | Execute_Immediate Case_Compare,0x53
0250 7011 |p | Jump_Nonzero 0x262
0251 0f73 | s | Execute_Immediate Equal,0x73
0252 7010 |p | Jump_Nonzero 0x263
0253 7ff7 | | Jump 0x24b
0254 0b2e | . | Execute_Immediate Case_Compare,0x2e
0255 7008 |p | Jump_Nonzero 0x25e
0256 4830 |H0 | Short_Literal 0x30
0257 4839 |H9 | Short_Literal 0x39
0258 0262 | b | Execute Discrete,In_Range
0259 7001 |p | Jump_Nonzero 0x25b
025a 7ff0 | | Jump 0x24b
025b 00d8 | | Load_Top At_Offset_0
025c 821d | | Call 0x1,0x1d
025d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025e 00d1 | | Pop_Control Pop_Count_1
025f 00d8 | | Load_Top At_Offset_0
0260 821c | | Call 0x1,0x1c
0261 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0262 00d1 | | Pop_Control Pop_Count_1
0263 00d8 | | Load_Top At_Offset_0
0264 821a | | Call 0x1,0x1a
0265 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0266 0000 0000 | | .XXX[0x2]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026c | l | .CONST 0x026c ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0002 | | .CONST 0x0002 ; Number of locals
026b INIT_0268:
026b 00e8 | | Load_Encached Character_Cache
026c BODY_0268:
026c e20f | | Load 0x1,0xf
026d e5ff | | Load 0x2,-0x1
026e 8008 | | Call 0x0,0x8
026f 00d1 | | Pop_Control Pop_Count_1
0270 e005 | | Load 0x0,0x5
0271 8006 | | Call 0x0,0x6
0272 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0273 00d8 | | Load_Top At_Offset_0
0274 4830 |H0 | Short_Literal 0x30
0275 4839 |H9 | Short_Literal 0x39
0276 0262 | b | Execute Discrete,In_Range
0277 7004 |p | Jump_Nonzero 0x27c
0278 00d8 | | Load_Top At_Offset_0
0279 8007 | | Call 0x0,0x7
027a 4817 |H | Short_Literal 0x17
027b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027c 00d8 | | Load_Top At_Offset_0
027d 821d | | Call 0x1,0x1d
027e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027f 0000 | | .XXX[0x1]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0284 | | .CONST 0x0284 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0002 | | .CONST 0x0002 ; Number of locals
0283 INIT_0280:
0283 00e8 | | Load_Encached Character_Cache
0284 BODY_0280:
0284 e20f | | Load 0x1,0xf
0285 e5ff | | Load 0x2,-0x1
0286 8008 | | Call 0x0,0x8
0287 00d1 | | Pop_Control Pop_Count_1
0288 e005 | | Load 0x0,0x5
0289 8006 | | Call 0x0,0x6
028a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
028b 00d8 | | Load_Top At_Offset_0
028c 00d8 | | Load_Top At_Offset_0
028d 0d4d | M | Execute_Immediate Less,0x4d
028e 7010 |p | Jump_Nonzero 0x29f
028f 00d8 | | Load_Top At_Offset_0
0290 0c53 | S | Execute_Immediate Greater_Equal,0x53
0291 7006 |p | Jump_Nonzero 0x298
0292 0f4d | M | Execute_Immediate Equal,0x4d
0293 701a |p | Jump_Nonzero 0x2ae
0294 00d8 | | Load_Top At_Offset_0
0295 8007 | | Call 0x0,0x7
0296 482c |H, | Short_Literal 0x2c
0297 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0298 0b53 | S | Execute_Immediate Case_Compare,0x53
0299 7017 |p | Jump_Nonzero 0x2b1
029a 0b6d | m | Execute_Immediate Case_Compare,0x6d
029b 7011 |p | Jump_Nonzero 0x2ad
029c 0f73 | s | Execute_Immediate Equal,0x73
029d 7014 |p | Jump_Nonzero 0x2b2
029e 7ff5 | | Jump 0x294
029f 0b2e | . | Execute_Immediate Case_Compare,0x2e
02a0 7008 |p | Jump_Nonzero 0x2a9
02a1 4830 |H0 | Short_Literal 0x30
02a2 4839 |H9 | Short_Literal 0x39
02a3 0262 | b | Execute Discrete,In_Range
02a4 7001 |p | Jump_Nonzero 0x2a6
02a5 7fee | | Jump 0x294
02a6 00d8 | | Load_Top At_Offset_0
02a7 821f | | Call 0x1,0x1f
02a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a9 00d1 | | Pop_Control Pop_Count_1
02aa 00d8 | | Load_Top At_Offset_0
02ab 821c | | Call 0x1,0x1c
02ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ad 00d1 | | Pop_Control Pop_Count_1
02ae 00d8 | | Load_Top At_Offset_0
02af 821e | | Call 0x1,0x1e
02b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b1 00d1 | | Pop_Control Pop_Count_1
02b2 00d8 | | Load_Top At_Offset_0
02b3 821a | | Call 0x1,0x1a
02b4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b5 0000 0000 | | .XXX[0x3]
02b7 0000 | |
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bc | | .CONST 0x02bc ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0002 | | .CONST 0x0002 ; Number of locals
02bb INIT_02b8:
02bb 00e8 | | Load_Encached Character_Cache
02bc BODY_02b8:
02bc e20f | | Load 0x1,0xf
02bd e5ff | | Load 0x2,-0x1
02be 8008 | | Call 0x0,0x8
02bf 00d1 | | Pop_Control Pop_Count_1
02c0 e005 | | Load 0x0,0x5
02c1 8006 | | Call 0x0,0x6
02c2 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
02c3 00d8 | | Load_Top At_Offset_0
02c4 4830 |H0 | Short_Literal 0x30
02c5 4839 |H9 | Short_Literal 0x39
02c6 0262 | b | Execute Discrete,In_Range
02c7 7004 |p | Jump_Nonzero 0x2cc
02c8 00d8 | | Load_Top At_Offset_0
02c9 8007 | | Call 0x0,0x7
02ca 4817 |H | Short_Literal 0x17
02cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02cc 00d8 | | Load_Top At_Offset_0
02cd 821f | | Call 0x1,0x1f
02ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02cf 0000 | | .XXX[0x1]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d4 | | .CONST 0x02d4 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0002 | | .CONST 0x0002 ; Number of locals
02d3 INIT_02d0:
02d3 00e8 | | Load_Encached Character_Cache
02d4 BODY_02d0:
02d4 e20f | | Load 0x1,0xf
02d5 e5ff | | Load 0x2,-0x1
02d6 8008 | | Call 0x0,0x8
02d7 00d1 | | Pop_Control Pop_Count_1
02d8 e005 | | Load 0x0,0x5
02d9 8006 | | Call 0x0,0x6
02da 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
02db 00d8 | | Load_Top At_Offset_0
02dc 00d8 | | Load_Top At_Offset_0
02dd 482e |H. | Short_Literal 0x2e
02de 4873 |Hs | Short_Literal 0x73
02df 0262 | b | Execute Discrete,In_Range
02e0 6857 |hW | Jump_Zero 0x338
02e1 0ad2 | | Execute_Immediate Plus,-0x2e
02e2 4645 |FE | Jump_Case 0x46
02e3 7851 |xQ | Jump 0x335 ; case 0x0
02e4 7854 |xT | Jump 0x339 ; case 0x1
02e5 7846 |xF | Jump 0x32c ; case 0x2
02e6 7845 |xE | Jump 0x32c ; case 0x3
02e7 7844 |xD | Jump 0x32c ; case 0x4
02e8 7843 |xC | Jump 0x32c ; case 0x5
02e9 7842 |xB | Jump 0x32c ; case 0x6
02ea 7841 |xA | Jump 0x32c ; case 0x7
02eb 7840 |x@ | Jump 0x32c ; case 0x8
02ec 783f |x? | Jump 0x32c ; case 0x9
02ed 783e |x> | Jump 0x32c ; case 0xa
02ee 783d |x= | Jump 0x32c ; case 0xb
02ef 7849 |xI | Jump 0x339 ; case 0xc
02f0 7848 |xH | Jump 0x339 ; case 0xd
02f1 7847 |xG | Jump 0x339 ; case 0xe
02f2 7846 |xF | Jump 0x339 ; case 0xf
02f3 7845 |xE | Jump 0x339 ; case 0x10
02f4 7844 |xD | Jump 0x339 ; case 0x11
02f5 7843 |xC | Jump 0x339 ; case 0x12
02f6 7842 |xB | Jump 0x339 ; case 0x13
02f7 7841 |xA | Jump 0x339 ; case 0x14
02f8 7840 |x@ | Jump 0x339 ; case 0x15
02f9 783f |x? | Jump 0x339 ; case 0x16
02fa 783e |x> | Jump 0x339 ; case 0x17
02fb 783d |x= | Jump 0x339 ; case 0x18
02fc 783c |x< | Jump 0x339 ; case 0x19
02fd 7831 |x1 | Jump 0x32f ; case 0x1a
02fe 783a |x: | Jump 0x339 ; case 0x1b
02ff 7839 |x9 | Jump 0x339 ; case 0x1c
0300 7838 |x8 | Jump 0x339 ; case 0x1d
0301 7837 |x7 | Jump 0x339 ; case 0x1e
0302 782f |x/ | Jump 0x332 ; case 0x1f
0303 7835 |x5 | Jump 0x339 ; case 0x20
0304 7834 |x4 | Jump 0x339 ; case 0x21
0305 7833 |x3 | Jump 0x339 ; case 0x22
0306 7832 |x2 | Jump 0x339 ; case 0x23
0307 7831 |x1 | Jump 0x339 ; case 0x24
0308 7820 |x | Jump 0x329 ; case 0x25
0309 782f |x/ | Jump 0x339 ; case 0x26
030a 782e |x. | Jump 0x339 ; case 0x27
030b 782d |x- | Jump 0x339 ; case 0x28
030c 782c |x, | Jump 0x339 ; case 0x29
030d 782b |x+ | Jump 0x339 ; case 0x2a
030e 782a |x* | Jump 0x339 ; case 0x2b
030f 7829 |x) | Jump 0x339 ; case 0x2c
0310 7828 |x( | Jump 0x339 ; case 0x2d
0311 7827 |x' | Jump 0x339 ; case 0x2e
0312 7826 |x& | Jump 0x339 ; case 0x2f
0313 7825 |x% | Jump 0x339 ; case 0x30
0314 7824 |x$ | Jump 0x339 ; case 0x31
0315 7823 |x# | Jump 0x339 ; case 0x32
0316 7822 |x" | Jump 0x339 ; case 0x33
0317 7821 |x! | Jump 0x339 ; case 0x34
0318 7820 |x | Jump 0x339 ; case 0x35
0319 781f |x | Jump 0x339 ; case 0x36
031a 781e |x | Jump 0x339 ; case 0x37
031b 781d |x | Jump 0x339 ; case 0x38
031c 781c |x | Jump 0x339 ; case 0x39
031d 7811 |x | Jump 0x32f ; case 0x3a
031e 781a |x | Jump 0x339 ; case 0x3b
031f 7819 |x | Jump 0x339 ; case 0x3c
0320 7818 |x | Jump 0x339 ; case 0x3d
0321 7817 |x | Jump 0x339 ; case 0x3e
0322 780f |x | Jump 0x332 ; case 0x3f
0323 7815 |x | Jump 0x339 ; case 0x40
0324 7814 |x | Jump 0x339 ; case 0x41
0325 7813 |x | Jump 0x339 ; case 0x42
0326 7812 |x | Jump 0x339 ; case 0x43
0327 7811 |x | Jump 0x339 ; case 0x44
0328 7800 |x | Jump 0x329 ; case 0x45
0329 00d8 | | Load_Top At_Offset_0
032a 821a | | Call 0x1,0x1a
032b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032c 00d8 | | Load_Top At_Offset_0
032d 8221 | ! | Call 0x1,0x21
032e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032f 00d8 | | Load_Top At_Offset_0
0330 8220 | | Call 0x1,0x20
0331 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0332 00d8 | | Load_Top At_Offset_0
0333 821e | | Call 0x1,0x1e
0334 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0335 00d8 | | Load_Top At_Offset_0
0336 821c | | Call 0x1,0x1c
0337 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0338 00d1 | | Pop_Control Pop_Count_1
0339 00d8 | | Load_Top At_Offset_0
033a 8007 | | Call 0x0,0x7
033b 4819 |H | Short_Literal 0x19
033c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
033d 0000 0000 | | .XXX[0x3]
033f 0000 | |
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0344 | D | .CONST 0x0344 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0002 | | .CONST 0x0002 ; Number of locals
0343 INIT_0340:
0343 00e8 | | Load_Encached Character_Cache
0344 BODY_0340:
0344 e20f | | Load 0x1,0xf
0345 e5ff | | Load 0x2,-0x1
0346 8008 | | Call 0x0,0x8
0347 00d1 | | Pop_Control Pop_Count_1
0348 e005 | | Load 0x0,0x5
0349 8006 | | Call 0x0,0x6
034a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
034b 00d8 | | Load_Top At_Offset_0
034c 00d8 | | Load_Top At_Offset_0
034d 0d5b | [ | Execute_Immediate Less,0x5b
034e 7009 |p | Jump_Nonzero 0x358
034f 00d8 | | Load_Top At_Offset_0
0350 0c61 | a | Execute_Immediate Greater_Equal,0x61
0351 7003 |p | Jump_Nonzero 0x355
0352 0f5f | _ | Execute_Immediate Equal,0x5f
0353 700f |p | Jump_Nonzero 0x363
0354 7811 |x | Jump 0x366
0355 0c7b | { | Execute_Immediate Greater_Equal,0x7b
0356 680c |h | Jump_Zero 0x363
0357 780e |x | Jump 0x366
0358 00d8 | | Load_Top At_Offset_0
0359 4830 |H0 | Short_Literal 0x30
035a 4839 |H9 | Short_Literal 0x39
035b 0262 | b | Execute Discrete,In_Range
035c 7005 |p | Jump_Nonzero 0x362
035d 4841 |HA | Short_Literal 0x41
035e 485a |HZ | Short_Literal 0x5a
035f 0262 | b | Execute Discrete,In_Range
0360 7002 |p | Jump_Nonzero 0x363
0361 7804 |x | Jump 0x366
0362 00d1 | | Pop_Control Pop_Count_1
0363 00d8 | | Load_Top At_Offset_0
0364 8222 | " | Call 0x1,0x22
0365 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0366 00d8 | | Load_Top At_Offset_0
0367 8007 | | Call 0x0,0x7
0368 4818 |H | Short_Literal 0x18
0369 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
036a 0000 0000 | | .BLANK 0000[0x6]
0370 ; --------------------------------------------------------------------------------------
0370 ; Debug Table
0370 ; --------------------------------------------------------------------------------------
0370 0004 0004 | | .DEBUG4 0x0004,0x0004,0xd759,0x0000,0x0001,0x0017
0376 000b 03d2 | | .DBG4T 0x000b,0x03d2,0x0000,0x0000
037a 0010 03d6 | | .DBG4T 0x0010,0x03d6,0x0000,0x0000
037e 004b 03ef | K | .DBG4T 0x004b,0x03ef,0x0002,0x4000
0382 0103 041e | | .DBG4T 0x0103,0x041e,0x0002,0x0000
0386 010b 0421 | !| .DBG4T 0x010b,0x0421,0x0002,0x4000
038a 011b 042e | .| .DBG4T 0x011b,0x042e,0x0002,0x4000
038e 012b 043b | + ;| .DBG4T 0x012b,0x043b,0x0002,0x4000
0392 0143 044a | C J| .DBG4T 0x0143,0x044a,0x0002,0x4000
0396 0153 0455 | S U| .DBG4T 0x0153,0x0455,0x0002,0x4000
039a 0163 0460 | c `| .DBG4T 0x0163,0x0460,0x0002,0x4000
039e 0173 046d | s m| .DBG4T 0x0173,0x046d,0x0002,0x0000
03a2 019b 0476 | v| .DBG4T 0x019b,0x0476,0x0002,0x0000
03a6 01c3 047f | | .DBG4T 0x01c3,0x047f,0x0002,0x4000
03aa 01e3 0490 | | .DBG4T 0x01e3,0x0490,0x0002,0x4000
03ae 01fb 049f | | .DBG4T 0x01fb,0x049f,0x0002,0x0000
03b2 020b 04a3 | | .DBG4T 0x020b,0x04a3,0x0002,0x4000
03b6 0223 04b2 | # | .DBG4T 0x0223,0x04b2,0x0002,0x4000
03ba 023b 04c1 | ; | .DBG4T 0x023b,0x04c1,0x0002,0x4000
03be 026b 04d4 | k | .DBG4T 0x026b,0x04d4,0x0002,0x4000
03c2 0283 04e3 | | .DBG4T 0x0283,0x04e3,0x0002,0x4000
03c6 02bb 04f8 | | .DBG4T 0x02bb,0x04f8,0x0002,0x4000
03ca 02d3 0507 | | .DBG4T 0x02d3,0x0507,0x0002,0x4000
03ce 0343 051e | C | .DBG4T 0x0343,0x051e,0x0002,0x0000
03d2 ; --------------------------------------------------------------------------------------
03d2 ; Debug chain
03d2 ; --------------------------------------------------------------------------------------
03d2 0002 0000 | | .DBGLEN 0x0002,0x0000
03d4 000b 000d | | .DBGLNO 0x000b,0x000d
03d6 ; --------------------------------------------------------------------------------------
03d6 ; Debug chain
03d6 ; --------------------------------------------------------------------------------------
03d6 0017 0000 | | .DBGLEN 0x0017,0x0000
03d8 0010 0014 | | .DBGLNO 0x0010,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e
03ef ; --------------------------------------------------------------------------------------
03ef ; Debug chain
03ef ; --------------------------------------------------------------------------------------
03ef 0001 0016 | | .DBGLEN 0x0001,0x0016
03f1 004b 004c | K L| .DBGLNO 0x004b,0x004c,0x004f,0x0052,0x00d4,0x00d6,0x00d8,0x00da,0x00dc,0x00df,0x00e2,0x00e5,0x00e7,0x00e9,0x00eb,0x00ed,0x00ef,0x00f1,0x00f3,0x00f5,0x00f7,0x00f9,0x00fb
0408 0001 0002 | | .XXX[0x16]
040a 0003 0015 | |
040c 0016 0004 | |
040e 0005 0006 | |
0410 0007 0008 | |
0412 0009 000a | |
0414 000b 000c | |
0416 000d 000e | |
0418 000f 0010 | |
041a 0011 0012 | |
041c 0013 0014 | |
041e ; --------------------------------------------------------------------------------------
041e ; Debug chain
041e ; --------------------------------------------------------------------------------------
041e 0000 0001 | | .DBGLEN 0x0000,0x0001
0420 0103 | | .DBGLNO 0x0103
0421 ; --------------------------------------------------------------------------------------
0421 ; Debug chain
0421 ; --------------------------------------------------------------------------------------
0421 0001 0005 | | .DBGLEN 0x0001,0x0005
0423 010b 010c | | .DBGLNO 0x010b,0x010c,0x010f,0x0112,0x0114,0x0116
0429 0001 0002 | | .XXX[0x5]
042b 0004 0005 | |
042d 0003 | |
042e ; --------------------------------------------------------------------------------------
042e ; Debug chain
042e ; --------------------------------------------------------------------------------------
042e 0001 0005 | | .DBGLEN 0x0001,0x0005
0430 011b 011c | | .DBGLNO 0x011b,0x011c,0x011f,0x0122,0x0124,0x0126
0436 0001 0002 | | .XXX[0x5]
0438 0004 0005 | |
043a 0003 | |
043b ; --------------------------------------------------------------------------------------
043b ; Debug chain
043b ; --------------------------------------------------------------------------------------
043b 0001 0006 | | .DBGLEN 0x0001,0x0006
043d 012b 012c | + ,| .DBGLNO 0x012b,0x012c,0x012f,0x0134,0x0136,0x0139,0x013b
0444 0001 0002 | | .XXX[0x6]
0446 0005 0006 | |
0448 0003 0004 | |
044a ; --------------------------------------------------------------------------------------
044a ; Debug chain
044a ; --------------------------------------------------------------------------------------
044a 0001 0004 | | .DBGLEN 0x0001,0x0004
044c 0143 0144 | C D| .DBGLNO 0x0143,0x0144,0x0147,0x014a,0x014c
0451 0001 0002 | | .XXX[0x4]
0453 0004 0003 | |
0455 ; --------------------------------------------------------------------------------------
0455 ; Debug chain
0455 ; --------------------------------------------------------------------------------------
0455 0001 0004 | | .DBGLEN 0x0001,0x0004
0457 0153 0154 | S T| .DBGLNO 0x0153,0x0154,0x0157,0x015a,0x015c
045c 0001 0002 | | .XXX[0x4]
045e 0004 0003 | |
0460 ; --------------------------------------------------------------------------------------
0460 ; Debug chain
0460 ; --------------------------------------------------------------------------------------
0460 0001 0005 | | .DBGLEN 0x0001,0x0005
0462 0163 0164 | c d| .DBGLNO 0x0163,0x0164,0x0167,0x016a,0x016c,0x016e
0468 0001 0002 | | .XXX[0x5]
046a 0004 0005 | |
046c 0003 | |
046d ; --------------------------------------------------------------------------------------
046d ; Debug chain
046d ; --------------------------------------------------------------------------------------
046d 0001 0006 | | .DBGLEN 0x0001,0x0006
046f 0173 0174 | s t| .DBGLNO 0x0173,0x0174,0x0178,0x017b,0x0183,0x0190,0x0192
0476 ; --------------------------------------------------------------------------------------
0476 ; Debug chain
0476 ; --------------------------------------------------------------------------------------
0476 0001 0006 | | .DBGLEN 0x0001,0x0006
0478 019b 019c | | .DBGLNO 0x019b,0x019c,0x01a0,0x01a3,0x01ab,0x01b8,0x01ba
047f ; --------------------------------------------------------------------------------------
047f ; Debug chain
047f ; --------------------------------------------------------------------------------------
047f 0001 0007 | | .DBGLEN 0x0001,0x0007
0481 01c3 01c4 | | .DBGLNO 0x01c3,0x01c4,0x01c8,0x01cb,0x01d3,0x01d5,0x01d8,0x01db
0489 0001 0002 | | .XXX[0x7]
048b 0003 0006 | |
048d 0007 0004 | |
048f 0005 | |
0490 ; --------------------------------------------------------------------------------------
0490 ; Debug chain
0490 ; --------------------------------------------------------------------------------------
0490 0001 0006 | | .DBGLEN 0x0001,0x0006
0492 01e3 01e4 | | .DBGLNO 0x01e3,0x01e4,0x01e8,0x01eb,0x01f0,0x01f2,0x01f4
0499 0001 0002 | | .XXX[0x6]
049b 0003 0005 | |
049d 0006 0004 | |
049f ; --------------------------------------------------------------------------------------
049f ; Debug chain
049f ; --------------------------------------------------------------------------------------
049f 0000 0002 | | .DBGLEN 0x0000,0x0002
04a1 01fb 01ff | | .DBGLNO 0x01fb,0x01ff
04a3 ; --------------------------------------------------------------------------------------
04a3 ; Debug chain
04a3 ; --------------------------------------------------------------------------------------
04a3 0001 0006 | | .DBGLEN 0x0001,0x0006
04a5 020b 020c | | .DBGLNO 0x020b,0x020c,0x0210,0x0213,0x0218,0x021a,0x021d
04ac 0001 0002 | | .XXX[0x6]
04ae 0003 0005 | |
04b0 0006 0004 | |
04b2 ; --------------------------------------------------------------------------------------
04b2 ; Debug chain
04b2 ; --------------------------------------------------------------------------------------
04b2 0001 0006 | | .DBGLEN 0x0001,0x0006
04b4 0223 0224 | # $| .DBGLNO 0x0223,0x0224,0x0228,0x022b,0x0230,0x0232,0x0234
04bb 0001 0002 | | .XXX[0x6]
04bd 0003 0005 | |
04bf 0006 0004 | |
04c1 ; --------------------------------------------------------------------------------------
04c1 ; Debug chain
04c1 ; --------------------------------------------------------------------------------------
04c1 0001 0008 | | .DBGLEN 0x0001,0x0008
04c3 023b 023c | ; <| .DBGLNO 0x023b,0x023c,0x0240,0x0243,0x024b,0x024d,0x025b,0x025f,0x0263
04cc 0001 0002 | | .XXX[0x8]
04ce 0003 0007 | |
04d0 0008 0004 | |
04d2 0005 0006 | |
04d4 ; --------------------------------------------------------------------------------------
04d4 ; Debug chain
04d4 ; --------------------------------------------------------------------------------------
04d4 0001 0006 | | .DBGLEN 0x0001,0x0006
04d6 026b 026c | k l| .DBGLNO 0x026b,0x026c,0x0270,0x0273,0x0278,0x027a,0x027c
04dd 0001 0002 | | .XXX[0x6]
04df 0003 0005 | |
04e1 0006 0004 | |
04e3 ; --------------------------------------------------------------------------------------
04e3 ; Debug chain
04e3 ; --------------------------------------------------------------------------------------
04e3 0001 0009 | | .DBGLEN 0x0001,0x0009
04e5 0283 0284 | | .DBGLNO 0x0283,0x0284,0x0288,0x028b,0x0294,0x0296,0x02a6,0x02aa,0x02ae,0x02b2
04ef 0001 0002 | | .XXX[0x9]
04f1 0003 0008 | |
04f3 0009 0004 | |
04f5 0005 0006 | |
04f7 0007 | |
04f8 ; --------------------------------------------------------------------------------------
04f8 ; Debug chain
04f8 ; --------------------------------------------------------------------------------------
04f8 0001 0006 | | .DBGLEN 0x0001,0x0006
04fa 02bb 02bc | | .DBGLNO 0x02bb,0x02bc,0x02c0,0x02c3,0x02c8,0x02ca,0x02cc
0501 0001 0002 | | .XXX[0x6]
0503 0003 0005 | |
0505 0006 0004 | |
0507 ; --------------------------------------------------------------------------------------
0507 ; Debug chain
0507 ; --------------------------------------------------------------------------------------
0507 0001 000a | | .DBGLEN 0x0001,0x000a
0509 02d3 02d4 | | .DBGLNO 0x02d3,0x02d4,0x02d8,0x02db,0x0329,0x032c,0x032f,0x0332,0x0335,0x0339,0x033b
0514 0001 0002 | | .XXX[0xa]
0516 0003 0008 | |
0518 0004 0005 | |
051a 0006 0007 | |
051c 0009 000a | |
051e ; --------------------------------------------------------------------------------------
051e ; Debug chain
051e ; --------------------------------------------------------------------------------------
051e 0001 0006 | | .DBGLEN 0x0001,0x0006
0520 0343 0344 | C D| .DBGLNO 0x0343,0x0344,0x0348,0x034b,0x0363,0x0366,0x0368
0527 0000 0000 | | .BLANK 0000[0xd9]