|
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_0d2ce3
└─⟦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 0200 | | .CONST 0x0200 ; 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 0049 | I | .CONST 0x0049 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001b | | .CONST 0x001b ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
000d e002 | | Load 0x0,0x2
000e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
000f 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0010 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call
0012 4802 |H | Short_Literal 0x2
0013 032e | . | Declare_Type Record,Defined,Visible
0014 e003 | | Load 0x0,0x3
0015 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0016 0129 | ) | Execute Any,Make_Visible
0017 e003 | | Load 0x0,0x3
0018 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0019 0129 | ) | Execute Any,Make_Visible
001a e003 | | Load 0x0,0x3
001b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
001c 0129 | ) | Execute Any,Make_Visible
001d e003 | | Load 0x0,0x3
001e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
001f 0129 | ) | Execute Any,Make_Visible
0020 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
0022 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0024 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0026 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0028 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
002a 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
002c 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
002e 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0030 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0032 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0034 00bf | | Action Accept_Activation
0035 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0036 00c7 | | Action Elaborate_Subprogram
0037 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0038 00c7 | | Action Elaborate_Subprogram
0039 1d14 | | Execute_Immediate Reference_Lex_1,0x14
003a 00c7 | | Action Elaborate_Subprogram
003b 1d15 | | Execute_Immediate Reference_Lex_1,0x15
003c 00c7 | | Action Elaborate_Subprogram
003d 1d16 | | Execute_Immediate Reference_Lex_1,0x16
003e 00c7 | | Action Elaborate_Subprogram
003f 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0040 00c7 | | Action Elaborate_Subprogram
0041 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0042 00c7 | | Action Elaborate_Subprogram
0043 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0044 00c7 | | Action Elaborate_Subprogram
0045 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0046 00c7 | | Action Elaborate_Subprogram
0047 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0048 00c7 | | Action Elaborate_Subprogram
0049 BODY_0008:
0049 00bc | | Action Signal_Activated
004a 00bb | | Action Signal_Completion
004b 0000 0000 | | .BLANK 0000[0x5]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0059 | Y | .CONST 0x0059 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0004 | | .CONST 0x0004 ; Number of locals
0053 INIT_0050:
0053 e004 | | Load 0x0,0x4
0054 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0055 e005 | | Load 0x0,0x5
0056 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0057 e003 | | Load 0x0,0x3
0058 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0059 BODY_0050:
0059 e5fe | | Load 0x2,-0x2
005a 4602 |F | Jump_Case 0x3
005b 7819 |x | Jump 0x75 ; case 0x0
005c 782f |x/ | Jump 0x8c ; case 0x1
005d 7800 |x | Jump 0x5e ; case 0x2
005e e002 | | Load 0x0,0x2
005f 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0060 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0061 484c |HL | Short_Literal 0x4c
0062 0092 01dd | | Action Push_String_Extended,0x1dd ; "UPDATE_MT"
0064 e006 | | Load 0x0,0x6
0065 180d | | Execute Package,Field_Execute,Field_Number 0xd
0066 e005 | | Load 0x0,0x5
0067 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0068 01c7 | | Execute Vector,Convert
0069 4800 |H | Short_Literal 0x0
006a e5fe | | Load 0x2,-0x2
006b e007 | | Load 0x0,0x7
006c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
006d e008 | | Load 0x0,0x8
006e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
006f e002 | | Load 0x0,0x2
0070 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0071 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0072 e5fd | | Load 0x2,-0x3
0073 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0074 782d |x- | Jump 0xa2
0075 e002 | | Load 0x0,0x2
0076 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0077 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0078 484c |HL | Short_Literal 0x4c
0079 0092 01de | | Action Push_String_Extended,0x1de ; "READ_MT"
007b e006 | | Load 0x0,0x6
007c 180d | | Execute Package,Field_Execute,Field_Number 0xd
007d e005 | | Load 0x0,0x5
007e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
007f 01c7 | | Execute Vector,Convert
0080 4800 |H | Short_Literal 0x0
0081 e5fe | | Load 0x2,-0x2
0082 e007 | | Load 0x0,0x7
0083 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0084 e008 | | Load 0x0,0x8
0085 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0086 e002 | | Load 0x0,0x2
0087 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0088 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0089 e5fd | | Load 0x2,-0x3
008a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
008b 7816 |x | Jump 0xa2
008c e002 | | Load 0x0,0x2
008d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
008e 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
008f 484c |HL | Short_Literal 0x4c
0090 0092 01df | | Action Push_String_Extended,0x1df ; "WRITE_MT"
0092 e006 | | Load 0x0,0x6
0093 180d | | Execute Package,Field_Execute,Field_Number 0xd
0094 e005 | | Load 0x0,0x5
0095 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0096 01c7 | | Execute Vector,Convert
0097 4800 |H | Short_Literal 0x0
0098 e5fe | | Load 0x2,-0x2
0099 e007 | | Load 0x0,0x7
009a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
009b e008 | | Load 0x0,0x8
009c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
009d e002 | | Load 0x0,0x2
009e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
009f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00a0 e5fd | | Load 0x2,-0x3
00a1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00a2 00cf | | Action Mark_Auxiliary
00a3 e005 | | Load 0x0,0x5
00a4 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00a5 e003 | | Load 0x0,0x3
00a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a7 0092 01e0 | | Action Push_String_Extended,0x1e0 ; "Use Drive"
00a9 e5ff | | Load 0x2,-0x1
00aa e001 | | Load 0x0,0x1
00ab 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00ac 00e0 | | Load_Encached Standard_Cache
00ad 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00ae 01cc | | Execute Vector,Catenate
00af e006 | | Load 0x0,0x6
00b0 180f | | Execute Package,Field_Execute,Field_Number 0xf
00b1 e5fd | | Load 0x2,-0x3
00b2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00b3 e002 | | Load 0x0,0x2
00b4 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00b5 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00b6 005b | [ | Store_Top Discrete,At_Offset_3
00b7 005b | [ | Store_Top Discrete,At_Offset_3
00b8 00da | | Load_Top At_Offset_2
00b9 6803 |h | Jump_Zero 0xbd
00ba 4802 |H | Short_Literal 0x2
00bb a5fc | | Store_Unchecked 0x2,-0x4
00bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00bd 00d9 | | Load_Top At_Offset_1
00be e5ff | | Load 0x2,-0x1
00bf e001 | | Load 0x0,0x1
00c0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00c1 027f | | Execute Discrete,Equal
00c2 684d |hM | Jump_Zero 0x110
00c3 e004 | | Load 0x0,0x4
00c4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00c5 e001 | | Load 0x0,0x1
00c6 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00c7 e5fd | | Load 0x2,-0x3
00c8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00c9 0120 | | Execute Any,Is_Value
00ca 6803 |h | Jump_Zero 0xce
00cb e001 | | Load 0x0,0x1
00cc 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00cd 7802 |x | Jump 0xd0
00ce e5fd | | Load 0x2,-0x3
00cf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00d0 e009 | | Load 0x0,0x9
00d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d2 4800 |H | Short_Literal 0x0
00d3 e5ff | | Load 0x2,-0x1
00d4 e001 | | Load 0x0,0x1
00d5 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00d6 e5fd | | Load 0x2,-0x3
00d7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00d8 c5fc | | Store 0x2,-0x4
00d9 c402 | | Store 0x2,0x2
00da 00db | | Load_Top At_Offset_3
00db 4607 |F | Jump_Case 0x8
00dc 781d |x | Jump 0xfa ; case 0x0
00dd 782b |x+ | Jump 0x109 ; case 0x1
00de 7805 |x | Jump 0xe4 ; case 0x2
00df 7804 |x | Jump 0xe4 ; case 0x3
00e0 7803 |x | Jump 0xe4 ; case 0x4
00e1 7802 |x | Jump 0xe4 ; case 0x5
00e2 7801 |x | Jump 0xe4 ; case 0x6
00e3 7800 |x | Jump 0xe4 ; case 0x7
00e4 e5fc | | Load 0x2,-0x4
00e5 4604 |F | Jump_Case 0x5
00e6 7812 |x | Jump 0xf9 ; case 0x0
00e7 7811 |x | Jump 0xf9 ; case 0x1
00e8 7809 |x | Jump 0xf2 ; case 0x2
00e9 780f |x | Jump 0xf9 ; case 0x3
00ea 7800 |x | Jump 0xeb ; case 0x4
00eb 4800 |H | Short_Literal 0x0
00ec e5fd | | Load 0x2,-0x3
00ed 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ee e002 | | Load 0x0,0x2
00ef 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00f0 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00f1 7824 |x$ | Jump 0x116
00f2 4801 |H | Short_Literal 0x1
00f3 e5fd | | Load 0x2,-0x3
00f4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00f5 e002 | | Load 0x0,0x2
00f6 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00f7 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00f8 781d |x | Jump 0x116
00f9 0887 | | Execute_Immediate Raise,0x87
00fa e5fe | | Load 0x2,-0x2
00fb 0e01 | | Execute_Immediate Not_Equal,0x1
00fc 701b |p | Jump_Nonzero 0x118
00fd e5fd | | Load 0x2,-0x3
00fe 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ff e001 | | Load 0x0,0x1
0100 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0101 7016 |p | Jump_Nonzero 0x118
0102 4802 |H | Short_Literal 0x2
0103 e5fd | | Load 0x2,-0x3
0104 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0105 e002 | | Load 0x0,0x2
0106 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0107 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0108 780d |x | Jump 0x116
0109 4805 |H | Short_Literal 0x5
010a e5fd | | Load 0x2,-0x3
010b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
010c e002 | | Load 0x0,0x2
010d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
010e 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
010f 7806 |x | Jump 0x116
0110 4808 |H | Short_Literal 0x8
0111 e5fd | | Load 0x2,-0x3
0112 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0113 e002 | | Load 0x0,0x2
0114 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0115 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0116 00c9 | | Action Pop_Auxiliary_Loop
0117 7f8b | | Jump 0xa3
0118 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0119 0000 0000 | | .BLANK 0000[0x7]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0125 | % | .CONST 0x0125 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0002 | | .CONST 0x0002 ; Number of locals
0123 INIT_0120:
0123 e004 | | Load 0x0,0x4
0124 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0125 BODY_0120:
0125 e004 | | Load 0x0,0x4
0126 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0127 e001 | | Load 0x0,0x1
0128 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0129 e5ff | | Load 0x2,-0x1
012a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
012b e001 | | Load 0x0,0x1
012c 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
012d e5ff | | Load 0x2,-0x1
012e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
012f c5fe | | Store 0x2,-0x2
0130 0059 | Y | Store_Top Discrete,At_Offset_1
0131 00d8 | | Load_Top At_Offset_0
0132 680d |h | Jump_Zero 0x140
0133 e00a | | Load 0x0,0xa
0134 180e | | Execute Package,Field_Execute,Field_Number 0xe
0135 4807 |H | Short_Literal 0x7
0136 0092 01e1 | | Action Push_String_Extended,0x1e1 ; "Tape close error: "
0138 00db | | Load_Top At_Offset_3
0139 e004 | | Load 0x0,0x4
013a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013b 011c | | Execute Any,Convert_Unchecked
013c 1c01 | | Execute_Immediate Run_Utility,0x1
013d 01cc | | Execute Vector,Catenate
013e e00b | | Load 0x0,0xb
013f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0140 4800 |H | Short_Literal 0x0
0141 e5ff | | Load 0x2,-0x1
0142 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0143 e002 | | Load 0x0,0x2
0144 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0145 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0146 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0147 0000 | | .XXX[0x1]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b e5fd | | Load 0x2,-0x3
014c e5fe | | Load 0x2,-0x2
014d e5ff | | Load 0x2,-0x1
014e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
014f e001 | | Load 0x0,0x1
0150 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0151 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0152 0000 0000 | | .BLANK 0000[0x6]
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 e5fd | | Load 0x2,-0x3
015c e5fe | | Load 0x2,-0x2
015d e5ff | | Load 0x2,-0x1
015e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
015f e001 | | Load 0x0,0x1
0160 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0161 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0162 0000 0000 | | .BLANK 0000[0x6]
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 e5fd | | Load 0x2,-0x3
016c e5fe | | Load 0x2,-0x2
016d e5ff | | Load 0x2,-0x1
016e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
016f e001 | | Load 0x0,0x1
0170 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0171 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0172 0000 0000 | | .BLANK 0000[0x6]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00db | | Load_Top At_Offset_3
017c 00db | | Load_Top At_Offset_3
017d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
017e e001 | | Load 0x0,0x1
017f 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0180 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0181 0000 0000 | | .BLANK 0000[0x7]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b e5fc | | Load 0x2,-0x4
018c e5fd | | Load 0x2,-0x3
018d e5fe | | Load 0x2,-0x2
018e e5ff | | Load 0x2,-0x1
018f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0190 e001 | | Load 0x0,0x1
0191 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0192 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0193 0000 0000 | | .BLANK 0000[0x5]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00db | | Load_Top At_Offset_3
019c 00db | | Load_Top At_Offset_3
019d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
019e e001 | | Load 0x0,0x1
019f 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
01a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a1 0000 0000 | | .BLANK 0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab e5fc | | Load 0x2,-0x4
01ac e5fd | | Load 0x2,-0x3
01ad e5fe | | Load 0x2,-0x2
01ae e5ff | | Load 0x2,-0x1
01af 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01b0 e001 | | Load 0x0,0x1
01b1 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
01b2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01b3 0000 0000 | | .BLANK 0000[0x5]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00db | | Load_Top At_Offset_3
01bc 00db | | Load_Top At_Offset_3
01bd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01be e001 | | Load 0x0,0x1
01bf 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
01c0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01c1 0000 0000 | | .BLANK 0000[0x7]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 4608 |F | Jump_Case 0x9
01cc 7808 |x | Jump 0x1d5 ; case 0x0
01cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01ce 780d |x | Jump 0x1dc ; case 0x2
01cf 780c |x | Jump 0x1dc ; case 0x3
01d0 780b |x | Jump 0x1dc ; case 0x4
01d1 780a |x | Jump 0x1dc ; case 0x5
01d2 7809 |x | Jump 0x1dc ; case 0x6
01d3 7808 |x | Jump 0x1dc ; case 0x7
01d4 7807 |x | Jump 0x1dc ; case 0x8
01d5 00da | | Load_Top At_Offset_2
01d6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01d7 0125 | % | Execute Any,Set_Constraint
01d8 00da | | Load_Top At_Offset_2
01d9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01da 1c00 | | Execute_Immediate Run_Utility,0x0
01db 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01dc 0869 | i | Execute_Immediate Raise,0x69
01dd ; --------------------------------------------------------------------------------------
01dd ; STRING TABLE
01dd ; --------------------------------------------------------------------------------------
01dd 000c | | .STRTAB 0x000c->0x01e3 ; "UPDATE_MT"
01de 0013 | | .STRTAB 0x0013->0x01e7 ; "READ_MT"
01df 0018 | | .STRTAB 0x0018->0x01eb ; "WRITE_MT"
01e0 001e | | .STRTAB 0x001e->0x01ef ; "Use Drive"
01e1 0025 | % | .STRTAB 0x0025->0x01f3 ; "Tape close error: "
01e2 0035 | 5 | .STREND 0x0035->0x01fc
01e3 5550 4441 |UPDA| .STRTAB_STRINGS
01fd 0000 0000 | | .XXX[0x3]
01ff 0000 | |
0200 ; --------------------------------------------------------------------------------------
0200 ; Debug Table
0200 ; --------------------------------------------------------------------------------------
0200 0004 0010 | | .DEBUG4 0x0004,0x0010,0x8bb2,0x0000,0x0001,0x0000
0206 0000 1fff | | .XXX[0x2]
0208 0000 0000 | | .BLANK 0000[0x1f8]