|
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 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦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 02b8 | | .CONST 0x02b8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0045 | E | .CONST 0x0045 ; Address of begin 0019 004f | O | .CONST 0x004f ; Address of exception handler 001a 0016 | | .CONST 0x0016 ; Number of locals 001b INIT_0018: 001b 0092 01c6 | | Action Push_String_Extended,0x1c6 ; ".COMMENTS" 001d 0092 01c7 | | Action Push_String_Extended,0x1c7 ; ".IOP_DUMP1" 001f 0092 01c8 | | Action Push_String_Extended,0x1c8 ; ".IOP_DUMP2" 0021 0092 01c9 | | Action Push_String_Extended,0x1c9 ; ".MEMORY" 0023 0092 01ca | | Action Push_String_Extended,0x1ca ; ".REGISTERS" 0025 0092 01cb | | Action Push_String_Extended,0x1cb ; ".SAVED_STATE" 0027 0092 01cc | | Action Push_String_Extended,0x1cc ; ".TAG_STORE" 0029 00e1 | | Load_Encached Boolean_Cache 002a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 002b 00e1 | | Load_Encached Boolean_Cache 002c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 002d 00e1 | | Load_Encached Boolean_Cache 002e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 002f 00e1 | | Load_Encached Boolean_Cache 0030 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0031 00e1 | | Load_Encached Boolean_Cache 0032 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0033 00e1 | | Load_Encached Boolean_Cache 0034 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0035 00e1 | | Load_Encached Boolean_Cache 0036 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0037 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call 0039 029f 0083 | | Declare_Subprogram INIT_0080,For_Call 003b 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 003d 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 003f 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 0041 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call 0043 029f 0183 | | Declare_Subprogram INIT_0180,For_Call 0045 BODY_0018: 0045 8411 | | Call 0x2,0x11 0046 4801 |H | Short_Literal 0x1 0047 e002 | | Load 0x0,0x2 0048 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0049 8413 | | Call 0x2,0x13 004a 8414 | | Call 0x2,0x14 004b 8412 | | Call 0x2,0x12 004c 8415 | | Call 0x2,0x15 004d 8416 | | Call 0x2,0x16 004e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 004f TRAP_0018: 004f 0007 | | Action Break_Optional 0050 0092 01cd | | Action Push_String_Extended,0x1cd ; "%%% " 0052 4801 |H | Short_Literal 0x1 0053 4801 |H | Short_Literal 0x1 0054 e003 | | Load 0x0,0x3 0055 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0056 01cc | | Execute Vector,Catenate 0057 e002 | | Load 0x0,0x2 0058 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0059 4503 |E | Exit_Suprogram New_Top_Offset 0x3 005a 0000 0000 | | .BLANK 0000[0x6] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0076 | v | .CONST 0x0076 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0002 | | .CONST 0x0002 ; Number of locals 0063 INIT_0060: 0063 00da | | Load_Top At_Offset_2 0064 01da | | Execute Vector,Bounds 0065 00e9 | | Load_Encached String_Cache 0066 035b | [ | Declare_Type Array,Constrained 0067 0337 | 7 | Declare_Variable Array 0068 00d8 | | Load_Top At_Offset_0 0069 0335 | 5 | Declare_Variable Array,Duplicate 006a 00cd | | Action Spare6_Action 006b 00d9 | | Load_Top At_Offset_1 006c 01d9 | | Execute Vector,Reverse_Bounds 006d 0263 | c | Execute Discrete,Above_Bound 006e 7005 |p | Jump_Nonzero 0x74 006f 482d |H- | Short_Literal 0x2d 0070 00d9 | | Load_Top At_Offset_1 0071 e603 | | Load 0x3,0x3 0072 01d6 | | Execute Vector,Field_Write 0073 3ffb |? | Loop_Increasing 0x6f 0074 00d9 | | Load_Top At_Offset_1 0075 01d4 | | Execute Vector,Structure_Write 0076 BODY_0060: 0076 00db | | Load_Top At_Offset_3 0077 e002 | | Load 0x0,0x2 0078 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0079 00d8 | | Load_Top At_Offset_0 007a e002 | | Load 0x0,0x2 007b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 007c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0085 | | .CONST 0x0085 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0002 | | .CONST 0x0002 ; Number of locals 0083 INIT_0080: 0083 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call 0085 BODY_0080: 0085 00e1 | | Load_Encached Boolean_Cache 0086 e402 | | Load 0x2,0x2 0087 8602 | | Call 0x3,0x2 0088 c409 | | Store 0x2,0x9 0089 00e1 | | Load_Encached Boolean_Cache 008a e403 | | Load 0x2,0x3 008b 8602 | | Call 0x3,0x2 008c c40a | | Store 0x2,0xa 008d 00e1 | | Load_Encached Boolean_Cache 008e e404 | | Load 0x2,0x4 008f 8602 | | Call 0x3,0x2 0090 c40b | | Store 0x2,0xb 0091 00e1 | | Load_Encached Boolean_Cache 0092 e406 | | Load 0x2,0x6 0093 8602 | | Call 0x3,0x2 0094 c40d | | Store 0x2,0xd 0095 00e1 | | Load_Encached Boolean_Cache 0096 e407 | | Load 0x2,0x7 0097 8602 | | Call 0x3,0x2 0098 c40e | | Store 0x2,0xe 0099 00e1 | | Load_Encached Boolean_Cache 009a e408 | | Load 0x2,0x8 009b 8602 | | Call 0x3,0x2 009c c40f | | Store 0x2,0xf 009d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 009e 0000 0000 | | .XXX[0x2] 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 0092 01ce | | Action Push_String_Extended,0x1ce ; "UCODE STATE" 00a5 8410 | | Call 0x2,0x10 00a6 e40e | | Load 0x2,0xe 00a7 e40d | | Load 0x2,0xd 00a8 0278 | x | Execute Discrete,Or 00a9 6805 |h | Jump_Zero 0xaf 00aa 0092 01cf | | Action Push_String_Extended,0x1cf ; "No ucode info *** Saved_State or Regsiter file is empty" 00ac e002 | | Load 0x0,0x2 00ad 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00ae 7803 |x | Jump 0xb2 00af e5fe | | Load 0x2,-0x2 00b0 e5ff | | Load 0x2,-0x1 00b1 8004 | | Call 0x0,0x4 00b2 4801 |H | Short_Literal 0x1 00b3 e002 | | Load 0x0,0x2 00b4 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00b6 0000 0000 | | .XXX[0x2] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 0092 01d0 | | Action Push_String_Extended,0x1d0 ; "UCODE TRACE (last 20 entries)" 00bd 8410 | | Call 0x2,0x10 00be e40e | | Load 0x2,0xe 00bf 6805 |h | Jump_Zero 0xc5 00c0 0092 01d1 | | Action Push_String_Extended,0x1d1 ; "No trace info *** Saved_State file is empty" 00c2 e002 | | Load 0x0,0x2 00c3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00c4 7807 |x | Jump 0xcc 00c5 00ea | | Load_Encached Null_String_Cache 00c6 4800 |H | Short_Literal 0x0 00c7 4801 |H | Short_Literal 0x1 00c8 4814 |H | Short_Literal 0x14 00c9 00ea | | Load_Encached Null_String_Cache 00ca e5ff | | Load 0x2,-0x1 00cb 8005 | | Call 0x0,0x5 00cc 4801 |H | Short_Literal 0x1 00cd e002 | | Load 0x0,0x2 00ce 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00cf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 00e9 | | .CONST 0x00e9 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 0092 01d2 | | Action Push_String_Extended,0x1d2 ; "CRASH REASON (based on last micro-PC)" 00d5 8410 | | Call 0x2,0x10 00d6 e40e | | Load 0x2,0xe 00d7 6805 |h | Jump_Zero 0xdd 00d8 0092 01d3 | | Action Push_String_Extended,0x1d3 ; "*** Saved_State file is empty" 00da e002 | | Load 0x0,0x2 00db 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00dc 7808 |x | Jump 0xe5 00dd 0092 01d4 | | Action Push_String_Extended,0x1d4 ; " " 00df e5ff | | Load 0x2,-0x1 00e0 8006 | | Call 0x0,0x6 00e1 8007 | | Call 0x0,0x7 00e2 01cc | | Execute Vector,Catenate 00e3 e002 | | Load 0x0,0x2 00e4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00e5 4801 |H | Short_Literal 0x1 00e6 e002 | | Load 0x0,0x2 00e7 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00e8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e9 TRAP_00d0: 00e9 0007 | | Action Break_Optional 00ea 0092 01cd | | Action Push_String_Extended,0x1cd ; "%%% " 00ec 4801 |H | Short_Literal 0x1 00ed 4801 |H | Short_Literal 0x1 00ee e003 | | Load 0x0,0x3 00ef 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00f0 01cc | | Execute Vector,Catenate 00f1 e002 | | Load 0x0,0x2 00f2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00f3 4801 |H | Short_Literal 0x1 00f4 e002 | | Load 0x0,0x2 00f5 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f7 0000 | | .XXX[0x1] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 010c | | .CONST 0x010c ; Address of begin 00f9 0162 | b | .CONST 0x0162 ; Address of exception handler 00fa 0006 | | .CONST 0x0006 ; Number of locals 00fb INIT_00f8: 00fb e008 | | Load 0x0,0x8 00fc e009 | | Load 0x0,0x9 00fd 00e8 | | Load_Encached Character_Cache 00fe e00a | | Load 0x0,0xa 00ff 0387 | | Declare_Variable Package 0100 00d8 | | Load_Top At_Offset_0 0101 020f | | Execute Module,Activate 0102 00d8 | | Load_Top At_Offset_0 0103 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0104 00e8 | | Load_Encached Character_Cache 0105 4801 |H | Short_Literal 0x1 0106 4878 |Hx | Short_Literal 0x78 0107 00e9 | | Load_Encached String_Cache 0108 035b | [ | Declare_Type Array,Constrained 0109 0337 | 7 | Declare_Variable Array 010a 00e3 | | Load_Encached Natural_Cache 010b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 010c BODY_00f8: 010c 0092 01d5 | | Action Push_String_Extended,0x1d5 ; "CRASH COMMENTS" 010e 8410 | | Call 0x2,0x10 010f e409 | | Load 0x2,0x9 0110 6805 |h | Jump_Zero 0x116 0111 0092 01d6 | | Action Push_String_Extended,0x1d6 ; "*** Comments file is empty" 0113 e002 | | Load 0x0,0x2 0114 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0115 7848 |xH | Jump 0x15e 0116 00db | | Load_Top At_Offset_3 0117 00ea | | Load_Encached Null_String_Cache 0118 e5ff | | Load 0x2,-0x1 0119 e402 | | Load 0x2,0x2 011a 01cc | | Execute Vector,Catenate 011b 4800 |H | Short_Literal 0x0 011c e602 | | Load 0x3,0x2 011d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 011e c603 | | Store 0x3,0x3 011f 00cf | | Action Mark_Auxiliary 0120 e602 | | Load 0x3,0x2 0121 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0122 e603 | | Load 0x3,0x3 0123 e602 | | Load 0x3,0x2 0124 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0125 c604 | | Store 0x3,0x4 0126 00db | | Load_Top At_Offset_3 0127 6828 |h( | Jump_Zero 0x150 0128 00db | | Load_Top At_Offset_3 0129 0f0a | | Execute_Immediate Equal,0xa 012a 6811 |h | Jump_Zero 0x13c 012b 00d9 | | Load_Top At_Offset_1 012c 00db | | Load_Top At_Offset_3 012d 01d7 | | Execute Vector,Field_Read 012e 0f0d | | Execute_Immediate Equal,0xd 012f 6803 |h | Jump_Zero 0x133 0130 00d9 | | Load_Top At_Offset_1 0131 0aff | | Execute_Immediate Plus,-0x1 0132 005a | Z | Store_Top Discrete,At_Offset_2 0133 4801 |H | Short_Literal 0x1 0134 00da | | Load_Top At_Offset_2 0135 e605 | | Load 0x3,0x5 0136 01cf | | Execute Vector,Slice_Read 0137 e002 | | Load 0x0,0x2 0138 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0139 4800 |H | Short_Literal 0x0 013a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 013b 7812 |x | Jump 0x14e 013c 00d9 | | Load_Top At_Offset_1 013d 0c78 | x | Execute_Immediate Greater_Equal,0x78 013e 6808 |h | Jump_Zero 0x147 013f 4801 |H | Short_Literal 0x1 0140 00da | | Load_Top At_Offset_2 0141 e605 | | Load 0x3,0x5 0142 01cf | | Execute Vector,Slice_Read 0143 e002 | | Load 0x0,0x2 0144 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0145 4800 |H | Short_Literal 0x0 0146 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0147 00d9 | | Load_Top At_Offset_1 0148 0a01 | | Execute_Immediate Plus,0x1 0149 005a | Z | Store_Top Discrete,At_Offset_2 014a 00db | | Load_Top At_Offset_3 014b 00da | | Load_Top At_Offset_2 014c e605 | | Load 0x3,0x5 014d 01d6 | | Execute Vector,Field_Write 014e 00c9 | | Action Pop_Auxiliary_Loop 014f 7fd0 | | Jump 0x120 0150 00ce | | Action Pop_Auxiliary 0151 00d8 | | Load_Top At_Offset_0 0152 0c01 | | Execute_Immediate Greater_Equal,0x1 0153 6806 |h | Jump_Zero 0x15a 0154 4801 |H | Short_Literal 0x1 0155 00d9 | | Load_Top At_Offset_1 0156 00db | | Load_Top At_Offset_3 0157 01cf | | Execute Vector,Slice_Read 0158 e002 | | Load 0x0,0x2 0159 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 015a 00db | | Load_Top At_Offset_3 015b e602 | | Load 0x3,0x2 015c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 015d c603 | | Store 0x3,0x3 015e 4801 |H | Short_Literal 0x1 015f e002 | | Load 0x0,0x2 0160 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0161 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0162 TRAP_00f8: 0162 00d8 | | Load_Top At_Offset_0 0163 0107 | | Execute Exception,Get_Name 0164 4950 |IP | Short_Literal 0x150 0165 495f |I_ | Short_Literal 0x15f 0166 0262 | b | Execute Discrete,In_Range 0167 6808 |h | Jump_Zero 0x170 0168 0092 01d7 | | Action Push_String_Extended,0x1d7 ; "%%% Unexpected EOF" 016a e002 | | Load 0x0,0x2 016b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 016c 4801 |H | Short_Literal 0x1 016d e002 | | Load 0x0,0x2 016e 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 016f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0170 0092 01cd | | Action Push_String_Extended,0x1cd ; "%%% " 0172 4801 |H | Short_Literal 0x1 0173 4801 |H | Short_Literal 0x1 0174 e003 | | Load 0x0,0x3 0175 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0176 01cc | | Execute Vector,Catenate 0177 e002 | | Load 0x0,0x2 0178 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0179 4801 |H | Short_Literal 0x1 017a e002 | | Load 0x0,0x2 017b 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 017c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0195 | | .CONST 0x0195 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 0092 01d8 | | Action Push_String_Extended,0x1d8 ; "LAST CONSOLE OUTPUT" 0185 8410 | | Call 0x2,0x10 0186 e40a | | Load 0x2,0xa 0187 6805 |h | Jump_Zero 0x18d 0188 0092 01d9 | | Action Push_String_Extended,0x1d9 ; "*** Iop_Dump1 file is empty" 018a e002 | | Load 0x0,0x2 018b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 018c 7804 |x | Jump 0x191 018d e5ff | | Load 0x2,-0x1 018e e403 | | Load 0x2,0x3 018f 01cc | | Execute Vector,Catenate 0190 800b | | Call 0x0,0xb 0191 4801 |H | Short_Literal 0x1 0192 e002 | | Load 0x0,0x2 0193 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0194 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0195 TRAP_0180: 0195 0007 | | Action Break_Optional 0196 0092 01cd | | Action Push_String_Extended,0x1cd ; "%%% " 0198 4801 |H | Short_Literal 0x1 0199 4801 |H | Short_Literal 0x1 019a e003 | | Load 0x0,0x3 019b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 019c 01cc | | Execute Vector,Catenate 019d e002 | | Load 0x0,0x2 019e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 019f 0092 01da | | Action Push_String_Extended,0x1da ; "--- console output available only for model 200" 01a1 e002 | | Load 0x0,0x2 01a2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01a3 4801 |H | Short_Literal 0x1 01a4 e002 | | Load 0x0,0x2 01a5 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 01a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01a7 0000 | | .XXX[0x1] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b0 | | .CONST 0x01b0 ; Address of begin 01a9 01c2 | | .CONST 0x01c2 ; Address of exception handler 01aa 0002 | | .CONST 0x0002 ; Number of locals 01ab INIT_01a8: 01ab e002 | | Load 0x0,0x2 01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ad 02c7 | | Declare_Variable Any 01ae 00d8 | | Load_Top At_Offset_0 01af 1c00 | | Execute_Immediate Run_Utility,0x0 01b0 BODY_01a8: 01b0 00d8 | | Load_Top At_Offset_0 01b1 00ea | | Load_Encached Null_String_Cache 01b2 e5ff | | Load 0x2,-0x1 01b3 e9ff | | Load 0x4,-0x1 01b4 01cc | | Execute Vector,Catenate 01b5 4800 |H | Short_Literal 0x0 01b6 e002 | | Load 0x0,0x2 01b7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01b8 c802 | | Store 0x4,0x2 01b9 00d8 | | Load_Top At_Offset_0 01ba e002 | | Load 0x0,0x2 01bb 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 01bc a9fe | | Store_Unchecked 0x4,-0x2 01bd 00d8 | | Load_Top At_Offset_0 01be e002 | | Load 0x0,0x2 01bf 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01c0 c802 | | Store 0x4,0x2 01c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c2 TRAP_01a8: 01c2 0007 | | Action Break_Optional 01c3 4801 |H | Short_Literal 0x1 01c4 a9fe | | Store_Unchecked 0x4,-0x2 01c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c6 ; -------------------------------------------------------------------------------------- 01c6 ; STRING TABLE 01c6 ; -------------------------------------------------------------------------------------- 01c6 002c | , | .STRTAB 0x002c->0x01dc ; ".COMMENTS" 01c7 0033 | 3 | .STRTAB 0x0033->0x01e0 ; ".IOP_DUMP1" 01c8 003b | ; | .STRTAB 0x003b->0x01e5 ; ".IOP_DUMP2" 01c9 0043 | C | .STRTAB 0x0043->0x01ea ; ".MEMORY" 01ca 0048 | H | .STRTAB 0x0048->0x01ee ; ".REGISTERS" 01cb 0050 | P | .STRTAB 0x0050->0x01f3 ; ".SAVED_STATE" 01cc 005a | Z | .STRTAB 0x005a->0x01f9 ; ".TAG_STORE" 01cd 0062 | b | .STRTAB 0x0062->0x01fe ; "%%% " 01ce 0064 | d | .STRTAB 0x0064->0x0200 ; "UCODE STATE" 01cf 006d | m | .STRTAB 0x006d->0x0205 ; "No ucode info *** Saved_State or Regsiter file is empty" 01d0 00a2 | | .STRTAB 0x00a2->0x0221 ; "UCODE TRACE (last 20 entries)" 01d1 00bd | | .STRTAB 0x00bd->0x022f ; "No trace info *** Saved_State file is empty" 01d2 00e6 | | .STRTAB 0x00e6->0x0245 ; "CRASH REASON (based on last micro-PC)" 01d3 0109 | | .STRTAB 0x0109->0x0257 ; "*** Saved_State file is empty" 01d4 0124 | $ | .STRTAB 0x0124->0x0266 ; " " 01d5 0125 | % | .STRTAB 0x0125->0x0267 ; "CRASH COMMENTS" 01d6 0131 | 1 | .STRTAB 0x0131->0x026e ; "*** Comments file is empty" 01d7 0149 | I | .STRTAB 0x0149->0x027b ; "%%% Unexpected EOF" 01d8 0159 | Y | .STRTAB 0x0159->0x0284 ; "LAST CONSOLE OUTPUT" 01d9 016a | j | .STRTAB 0x016a->0x028e ; "*** Iop_Dump1 file is empty" 01da 0183 | | .STRTAB 0x0183->0x029b ; "--- console output available only for model 200" 01db 01b0 | | .STREND 0x01b0->0x02b3 01dc 2e43 4f4d |.COM| .STRTAB_STRINGS 02b3 0000 0000 | | .BLANK 0000[0x5] 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; Debug Table 02b8 ; -------------------------------------------------------------------------------------- 02b8 0004 0011 | | .DEBUG4 0x0004,0x0011,0x34cc,0x0000,0x0001,0x0000 02be 0000 0000 | | .BLANK 0000[0xa] 02c8 0100 2800 | ( | .XXX[0xc] 02ca 0000 0000 | | 02cc 0002 0000 | | 02ce 0011 0000 | | 02d0 0000 0800 | | 02d2 0000 5000 | P | 02d4 0000 0000 | | .BLANK 0000[0x2c] 0300 09aa 0c04 | | .XXX[0x8] 0302 0000 0d44 | D| 0304 0016 23f1 | # | 0306 0000 01c0 | | 0308 0000 0000 | | .BLANK 0000[0x5] 030d 0009 0000 | | .XXX[0x17] 030f 3996 09aa |9 | 0311 0c04 0000 | | 0313 007f 000b | | 0315 c413 0000 | | 0317 6e22 09aa |n" | 0319 0c04 0000 | | 031b 17bf 0008 | | 031d 6017 0000 |` | 031f 062d 09aa | - | 0321 0c04 0800 | | 0323 04b8 | | 0324 0000 0000 | | .BLANK 0000[0x4] 0328 09aa 0004 | | .XXX[0x20] 032a 0000 4796 | G | 032c 0001 bc13 | | 032e 0000 38b3 | 8 | 0330 09aa 0c04 | | 0332 0800 04b8 | | 0334 0016 23f1 | # | 0336 002a a928 | * (| 0338 09aa 0004 | | 033a 0000 47ff | G | 033c 0001 bc13 | | 033e 0000 0eb3 | | 0340 09aa 0c04 | | 0342 0000 17bf | | 0344 0008 f071 | q| 0346 0000 062d | -| 0348 0000 0000 | | .BLANK 0000[0x5] 034d 0009 0000 | | .XXX[0x17] 034f 3996 09aa |9 | 0351 0004 0000 | | 0353 4dff 0001 |M | 0355 bc13 0000 | | 0357 2cd3 09aa |, | 0359 0c04 0000 | | 035b 17bf 0009 | | 035d b086 0000 | | 035f 068c 09aa | | 0361 0c04 0800 | | 0363 04b8 | | 0364 0000 0000 | | .BLANK 0000[0x4] 0368 09aa 0c04 | | .XXX[0x8] 036a 0800 0600 | | 036c 0016 23f1 | # | 036e 0015 5fe5 | _ | 0370 0000 0000 | | .BLANK 0000[0x4] 0374 8014 0000 | | .XXX[0xb] 0376 0000 0000 | | 0378 0100 0000 | | 037a 0880 0000 | | 037c 0004 0000 | | 037e 0028 | ( | 037f 0000 0000 | | .BLANK 0000[0x2e] 03ad 1002 8000 | | .XXX[0xb] 03af 0000 0000 | | 03b1 0020 0000 | | 03b3 0110 0000 | | 03b5 0000 8000 | | 03b7 0005 | | 03b8 0000 0000 | | .BLANK 0000[0x34] 03ec 0016 23f1 | # | .XXX[0x14] 03ee 002a a004 | * | 03f0 0001 0404 | | 03f2 0000 0700 | | 03f4 0016 23f1 | # | 03f6 002a b270 | * p| 03f8 ff58 0023 | X #| 03fa 5000 0001 |P | 03fc 0000 0000 | | 03fe 0000 0003 | |