If √ 1 . 7424 = 1 . 32 , 1 . 7424 = 1 . 32 , find the value of √ 17424 − √ 174 . 24

The Arithmetic Extend Register is a four-bit addressable (read-only) register used to accumulate a decimal digit for the FMP and FDV instructions and serves as 20 a number-of-shifts accumulator in the NRM instruction.

The N Counter is used to indicate the number of words involved in the CLR and XFR instructions, the number of shifts in MRX, MRY, MLY and DRS, the multiplier digit in FMP, and a loop counter in MPY.

The Adder is capable of either binary or BCD addition with the complementer 25 being capable of either one's or nine's complementation of the Y Register inputs A carry-in signal is available from three sources for generating two's or ten's complement arithmetic.

The Decimal Carry Register is a one-bit register that can hold the carryout of the Adder ADRI is the address of the ARI operand; its two least significant bits 30 are determined by the word pointer, e g, WPO => 00, W Pl => 01, etc.

The Address Decode ROM generates the control signals used for-reading from or writing into a register in either the Extended Register Access (ERA) mode or the normal addressing mode of operation Miscellaneous hardware has been added to enhance the execution of the two's complement binary multiply instruction (MPY) 35 BUS CONTROL The direction of data flow on the IDA bus is controlled by the bus control circuit of Figures 16 and 130 Gate U 19 provides the basic definition of the direction of data flow The direction of data flow is normally from the microprocessor to the memory since address is the first data on the IDA bus when 40 the memory cycle starts This condition is controlled by the STM signal into gate U 19 being logically false Once the memory cycle starts, the Processor Driving (PDR) signal indicates that data flow is from processor to memory In some instances, such as during direct memory access (DMA) operation, the PDR signal does not indicate the direction of data flow on the IDA bus For this case, the Write 45 (WRIT) signal is AN Ded into U 19 to decide bus direction Also, since the first thirty-two memory addresses are actually registers within the microprocessor, the Register Access Line (RAL) is used to prevent bus conflict when accessing register information Finally, the Monitor Buffer Control (MBC) signal is also AN Ded in to define bus direction during testing The resulting output of U 19 is called the Stay 50 Off Bus (SOB) signal since it indicates those times when the memory section is not allowed to be on the IDA bus The bus control circuit also controls the direction of the bidirectional data buffer located within the hybrid microprocessor (processor buffer out, PBO, signal) Since the microprocessor buffer and the memory buffers normally operate in tandem (i e, when the microprocessor buffer points out, the 55 memory buffer points into memory, and when the memory buffer points out, the microprocessor buffer points into the microprocessor) the SOB signal is inverted by U 17 A and used to control the microprocessor's buffer.

The bus control circuit also decodes the upper three bits of the IDA bus (IDA 12 to IDA 14) using a dual open-collector output 2-line to 4-line decoder 60 (Texas Instruments device SN 74 L 5156 or equivalent) as a one-of-eight decoder.

The memory space is thus broken into 4096-word divisions The memory map of Figure 6 shows allocation of read-only and read/write memory in the memory space The first three outputs of the decoder are wire-O Red together to indicate 1,568,094 that the mainframe language ROM memory section is being accessed The next three outputs of the decoder are also wired-O Red together with the twopole switch SI determining whether or not the upper two outputs are to be included in the wire-O Ring The resulting output determines which portion of the memory space is taken by the optional plug-in ROM memory section The balance of the 5 address space is assumed to be read/write memory The boundary between the plug-in ROM and the read/write memory is determined by switch SI which is set according to the amount of optional read/write memory that the calculator contains The STM (Start Memory) signal is used to latch the outputs of the decoder into the latches U 16 A and U 16 B for the balance of the memory cycle since 10 address information is only present on the IDA bus at the beginning of the memory cycle The output of the latches is gated with the Stay Off Bus (SOB) signal to prohibit the memory section from placing data onto the IDA bus until permitted to do so If the data to be read is located in the mainframe language ROM memory section, the bus control circuit releases the mainframe ROM buffer control 15 (MFRBC) signal to allow the ROM to place data on the IDA bus and point the bidirectional buffer associated with the ROM from the memory to the microprocessor Likewise, if the data to be read is located in the plug-in ROM memory section, the bus control circuit releases the plug-in ROM buffer control (PIRBC) signal If the data, instead, is to be read from the read/write memory 20 sections, the bus control simply removes the Stay Off Bus signal to allow the read/write memory to place the data on the IDA bus at its discretion.

MEMORY TIMING AND CONTROL The Memory Timing and Control block of Figure 16 may be understood with reference to the detailed schematic diagram of Figure 131 This block comprises a 25 small state counter, U 21, which counts the number of states in the memory cycle.

The counter initiates its sequence when the STM signal occurs if the memory cycle is referencing addresses located in the memory section (indicated by the RAL signal not being true) The counter is clocked on the rising edge of the phase two clock On the first clock after the STM occurs, flip-flop U 21 A changes state and 30 the STMROM signal is generated thus, the STM signal to the ROM is delayed by one-half of a state time to allow more address setup time as required by the ROM.

On the next state time, the second flip-flop U 21 B is set provided that the Memory Busy (MEB) signal is not true The Memory Busy signal is used to suspend the sequencing should the read/write memory be addressed and not be able to 35 participate in the memory cycle immediately (such as being in a refresh cycle when the memory cycle starts) When the second flip-flop is set, the Unsynchronized Memory Complete (UMC) signal is generated to indicate to the microprocessor that the memory cycle is complete Figure 109 illustrates the timing associated with the memory cycle 40 READ-ONLY MEMORY Both the plug-in ROM memory section and the mainframe language ROM memory section shown in the block diagram of Figure 4 are composed of a number of N-channel MOS sixteen-kilobit integrated circuits These devices are organized as 1024 words of 16 bits and contain their own dynamic address latches and mask 45 programmable address decode circuits The organization of the read-only memory section is shown in Figure 132 The mainframe language ROM memory section contains twelve such devices The plug-in ROM modules contain either two or four such devices depending on the features which the ROM module contains An example of the ROM circuitry used in all the read-only memory sections is shown 50 in Figure 133 The 16-bit IDA bus input/outputs are used for receiving the address information from the microprocessor and for outputting the data accessed When the STM input is not true, the ROM assumes that memory address information is on the IDA bus and continually inspects IDA bits 10 through 14 to determine if it has been addressed The device is designed such that power consumption when not 55 addressed is approximately one-tenth the consumption when addressed Therefore, the power consumption in the calculator is reduced by applying the power to the device only when it is addressed Consequently, each ROM device has an associated "power pulse" circuit 211 which is turned on by the ROM address decode circuit (powered separately from the + 12 volts input) only when the ROM 60 is addressed If the ROM detects its address, it exerts the power pulse (PWP) output which switches on the transistor and applies + 12 volts to the voltage switch (VSW) input that powers the balance of the ROM circuit The ROM latches the I 1,568,094 address information and starts its data access when the STM signal (STMROM) is exerted The accessed data is placed on the IDA bus as soon as it is accessed (approximately 300 ns) provided the output drivers are not disabled (Output Data Disable, ODD) by the bus control circuit.

READ/WRITE MEMORY 5 Both the basic read/write memory section and the optional read/write memory section shown in the block diagram of Figure 4 are identical in structure As shown in the detailed schematic diagram of Figure 134, each section contains an address decoder Ul which examines the upper three bits of the address (IDA 12 through IDA 14) and generates one of three outputs depending on whether the address is 10 K, 60 K, or 50 K octal A jumper is used to select which address the memory section responds to thereby defining the memory section as the basic read/write section or the optional read/write section The output of the address decoder is latched in U 5 along with the balance of the address (U 12, U 14, U 16) when the Start Memory (STM) signal occurs The output of U 5 is gated with the STM signal to 15 generate the Request for service (REQ) signal which is sent to the read/write memory control circuit The output of the address latches goes directly to the read/write memory devices with the exception of the lower six bits which first traverse a two-to-one data selector (U 17 and U 18) The other input of the data selector comes from the refresh address counter (U 20 and U 21) The lower six bits 20 of the address are selected by a read/write memory control circuit (DATA SELECT) as determined by the read/write cycle being either a refresh cycle or a normal memory cycle At the start of the refresh cycle, the read/write control circuit first increments the refresh address counter to advance it to the next memory address to be refreshed 25 The read/write memory control circuit is shown in the detailed schematic diagram of Figure 135 The state of the memory control is determined by the four flip-flops of devices U 6 and U 7 The flip-flops of U 7 indicate that a refresh cycle is in progress The waveforms associated with the control cir3.0 cuitry are shown in Figure 136 The flip-flops are clocked on the positive-going 30 edge of the phase two clock When the STM signal occurs, flip-flop U 6 A will be set via U 4 A and U 4 B on the next clock provided neither flip-flop of U 7 is set The read/write memory devices are enabled (CEN) via U 9 A whenever either U 6 A or U 6 B are set Whether the read/write memory devices perform a read or write operation is determined by gate U 2 A (RW) If the RW signal is a logical high, 35 the read/write devices are in the read mode To generate the write mode, three conditions are necessary: the Write (WRIT) signal from the microprocessor must be logically true; a refresh cycle must not be in progress (U 7 A and U 7 B are not set); and the latch composed of gates U 3 C and U 3 D must be set (U 3 C output high).

The latch is cleared by the Request (REQ) signal not being true The latch is set at 40 the beginning the next phase two clock following the setting of flip-flop U 6 B If the memory cycle is a read cycle, the Output Buffer Enable (OBC) signal, which allows the output of the read/write memory devices to be placed on the IDA bus, is generated via U 2 C when the memory timing and control circuit removes the Stay Off Bus (SOB) signal 45 The refresh cycle is initiated via gate U 4 B when the monostable U 21 delay period has expired provided that the microprocessor is not requesting use of the memory When the cycle is initiated, flip-flip U 7 A will be set which causes the read/write cycle by setting U 6 B via U 4 A and U 4 B on the next state time Secondly, flip-flop U 7 A also generates the Memory Busy (MEB) signal via U 2 B and U 3 B to 50 notify the memory timing and control circuit should the microprocessor start a memory cycle while the refresh cycle is in progress Thirdly, flip-flop U 7 A also drives the RW signal, via U 8 B, to the read logic level as required by the read/write memory devices during the refresh cycle The second flip-flop of the refresh cycle, U 7 B will be set the state time following the setting of flip-flop U 6 A to sustain the 55 conditions required for the refresh cycle When the read/write cycle has expired, indicated by flip-flop U 6 B resetting, the next state time flip-flop U 7 B resets thus terminating the refresh cycle.

The read/write memory devices, Texas Instruments devices TMS 4030 or equivalent, are shown in Figure 137 The devices are organized as 4096 addresses of 60 one bit The read/write (RW) control signal determines if the operation is a read (RW high) or a write operation If the cycle is a write cycle, the data written is accepted from the Data In (DIN) inputs If the cycle is a read cycle, the data is presented at the Data Out (DOUT) outputs and will be placed onto the IDA bus 1,568,094 41 1,568,094 41 when the Output Buffer Enable (OBE) signal is generated by the read/write memory control The read/write cycle is started when the Chip Enable (CEN) signal occurs provided that the devices have been selected by the Chip Select (CS) signal The memory section is capable of byte operation as determined by flip-flop U 5 and gates U 8 C and U 8 D The memory bus control signal Byte (BYTE) from the 5 microprocessor indicates if the memory operation is to be byte operation If the Byte signal does not occur, both bytes are enabled If the byte signal does occur, the address bit IDA 15, latched in U 5 B when STM occurs, will determine which byte is being referenced.

KDP CONTROL 10 Referring now to Figure 138, there is shown a detailed schematic diagram of an I/O interface included within the KDP control block of Figure 4 When the Initialize (INIT) signal on the I/O bus occurs, the power-up (PUP) signal is generated by the I/O interface and used throughout the KDP control circuitry to initialize the various flip-flops and counters The I/O interface section contains the 15 1/0 operation decoder composed of the two three-to-eight decoders U 21 and U 29.

The decoders are enabled whenever the KDP's peripheral address is detected by gate U 17 Decoder U 21 generates the read register 4 (R 4) and read register 5 (R 5) signals The R 4 signal is used to send the keycode information to the microprocessor The R 5 signal is used to send the KDP status information to the 20 microprocessor The status latch U 53 as well as gates to place the data on the I/O bus is located in the I/O interface section Bit O indicates that the LED display unit contains 32 alphanumeric positions Bit 1 indicates if the printer is out of paper Bit 2 indicates that the printer is busy printing Bit 3 indicates that the reset key on the keyboard has been depressed Bit 4 indicates that the keyboard section is exerting 25 the interrupt request signal (IRL).

The other decorder, U 29, generates four register strobe signals, R 4 SB, W 45 B, WSSB, and W 6 SB The R 4 SB signal indicates to the keyboard scan control circuitry that the pending keycode has been accepted by the microprocessor The W 4 SB signal loads the display character code from the microprocessor into the 30 data register in the KDP memory section, causes the timing generator circuitry to generate the signals to store the character code in the read/write memory in the memory section, and causes the display control section to terminate displaying until all the new data has been received The W 6 SB signal also loads the data register in the memory section with the printer character code, and causes the 35 timing generator section to transfer the code to the read/write memory in the memory section New printer data is not sent to the KDP control until the printer busy bit in the KDP status indicates to the microprocessor that the printer is no longer busy The W 5 SB signal updates the "command register" of the KDP control Bit O of the I/O command word generates the print (PRT) signal via gate 40 U 57 A which sets the print command flip-flop located in the print control section.

Bit I generates the display (DSP) signal via gate U 51 B which, similarly, sets the display command flip-flop located in the display control section Bit 2 is used to turn on an astable multivibrator (gates U 30 A and U 30 B) which produces the audio "beep" sound of the calculator Bits 3 and 4 control the command register "run 45 light" flip-flop U 31 A which turns on and off the "run light" located on the left side of the LED display unit Since the flip-flop is a JK type flip-flop, if both bits 3 and 4 are set, the run light will toggle to the opposite state If bit 3 only is set, the run light will be turned off If bit 4 only is set, the run light will be turned on Similarly, bits 5 and 6 control the command register cursor flip-flop U 31 B which determines which 50 type of cursor, insert or replace, symbol can be displayed in the LED display unit.

If bit 5 only is set, the cursor will be the replace cursor.

The switches used on the calculator keyboard are single-pole, singlethrow switches The circuitry included within the KDP control block of Figure 4 which scans for keyboard input and sends the information to the microprocessor via the 55 I/O bus is shown in the detailed schematic diagram of Figure 139 The keyboard scan counter U 65 A and U 65 B determines which key is being examined for closure.

The counter is clocked at approximately a 2 5 K Hz rate by an oscillator made of gates U 37 A and U 37 B and associated components The lower four bits of the counter is decoded by U 48 to select one of sixteen column select lines to the 60 keyboard The upper three bits of the counter are used by U 57 to select one of eight row scan lines from the keyboard Should the selected keyswitch be depressed, the column select input will be connected to the row select input and the output of the row selector (U 57) will go to the logic low state indicating that a keyswitch closure has been detected.

When a key closure has been detected, flip-flop U 27 A will be set via inverter U 36 B The complement output of flip-flop U 27 A inhibits the keyboard scan counter from counting further thereby saving the keycode for the key closure that 5 was detected The flip-flop also causes flip-flop U 27 B to become set via U 39 C The output of flip-flop U 27 B then sets the latch U 62 provided that an interrupt poll is not in progress (U 56 C) The output of the latch causes the low priority interrupt request (IRL) signal to the microprocessor to be set, thereby indicating that a key closure has been detected and that interrupt service is required At the 10 microprocessor's convenience the service routine is performed The first operation of the service routine is to perform an interrupt poll to determine which I/O device is requesting service The fact that the interrupt poll is taking place is indicated to the keyboard scan circuit by the Interrupt (INT) signal being exerted when peripheral address bit 3 (PA 3) is logically false (poll of low level interrupt I/O IS devices) The keyboard scan circuit, since it has generated an interrupt request, responds by exerting the I/O bus data bit 0 (IOD 0) which corresponds to its peripheral address via gate U 61 C Upon determining that the keyboard scan circuit is interrupting, the microprocessor executes the keyboard service routine During the service routine, an I/O cycle which reads R 4 occurs When the I/O cycle 20 occurs, the keycode from the keyboard scan counter is placed on the I/O bus via the eight gates of U 58 and U 59 The I/O cycle also causes the Read Register 4 Strobe (R 4 SB) which via U 37 C resets flip-flop U 27 B The output of U 27 B will, in turn, set U 27 A, provided that the debounce counter U 28 declares the key no longer closed, and thus allows the kevboard scanning to resume The debounce counter is 25 reset whenever a key closure occurs As the key is released, the debounce counter will be reset each time a key bounce occurs until finally no further key bounce occurs and the debounce counter counts to the point that it enables gate U 37 D.

The keyboard scan circuit also has the automatic key repeat feature The latch, composed of gates U 39 A and U 39 B is reset whenever no key closure is 30 detected Likewise, the repeat counter U 47 is held reset as long as no key closure is detected When a key closure is detected, the repeat counter is allowed to start counting (but starts counting over again each time that a key bounce occurs as the key is closing) When the repeat counter's output pin 1 goes high, the latch composed of gates U 39 A and U 39 B is set and the repeat feature is enabled by 35 enabling gate U 39 D Thereafter each time U 47 output pin 12 goes high, gate U 39 D will set flip-flop U 27 B thereby causing another interrupt request to occur The delay time from the time the key is depressed to the time automatic repeating starts is determined by the time it takes after key closure, with no further bouncing, for U 47 output pin I to go high followed by output pin 12 going high The frequency of 40 key repeat is determined by the frequency at which U 47 output pin 12 toggles.

The keyboard also contains the Reset key which is handled separately from the keyboard scanning When the Reset key is depressed, the KRST signal goes low and, after a time delay for key bounce caused by C 22, R 49, and R 50, the input to inverter U 40 B goes low The positive-going transition of inverter output U 40 B is 45 differentiated by C 21 and R 47 to produce a pulse which becomes the I/O bus Reset (RESET) signal that reinitializes the microprocessor and I/O section The output of the inverter, before the pulse formation, is sent to the KDP's status latch which the microprocessor can interrogate to determine if the initialization is a power-on initialization or a Reset key initialization 50 The Shift and Shift Lock keys on the keyboard are handled separately from the scanning circuit When either of the shift keys on the keyboard is depressed, the SHIFT signal resets the latch composed of gates U 46 A and U 45 C and sets flip-flop U 56 B which in turn will set I/O data bit 7 ( 10 D 7) thereby indicating to the microprocessor that the shift key is depressed If the shift lock key is depressed, the 55 latch composed of gates U 46 A and U 45 C will be set to indicate that all further keycodes are shifted keycodes The latch remains set until one of the shift keys is depressed.

A KDP control timing generator included within the KDP control block of Figure 4 is shown in the detailed schematic diagram of Figure 140 The 6 M Hz 60 clock from the I/O bus is divided by four by flip-flops U 66 A and U 62 A to produce the KDP clock and the gated T clock generated at the output of gates U 56 A and U 7 C The gated clock is disabled via-gate U 54 B whenever either flipflops U 63 B or U 64 B are set Flip-flop U 63 B is set on the next KDP clock after a printer data word (indicated by W 6 SB) is sent to the KDP control Similarly, flip-flop U 64 B is sent on 65 1,568,094 the next KDP clock after a display data word (indicated by W 4 SB) is sent to the KDP control The two flip-flops disable the T clock for only one state time since the output of each flip-flop clears flip-flops U 63 A and U 63 B, respectfully During the state time that the T clock is disabled, the R/W signal (gate U 5 SC) goes low during the second half of the state time and is used by the memory section to store 5 the data just received into the KDP read/write memory The three signals PLC (printer load clock), DLC (display load clock), and SPA (select printer address) is used by the printer control, display control, and memory sections to produce the correct address for storing the data just received into the KDP read/write memory.

When new display or printer data is not being received, the PR (printer) signal is 10 used to control the SPA signal so that either display or printer data can be read from the KDP memory.

The upper portion of Figure 140 shows the circuitry which generates the basic timing signals used by the printer control, display control, aid memory sections.

The waveforms generated by this circuitry is shown in the waveform timing 15 diagram of Figure 141 Device U 35 is a four-bit binary counter with a synchronous load control input (Texas Instruments device SN 74 LS 163) The PR (printer) signal is present for eight state times and absent for six state times The last state time before each transition of PR, the P 7 signal is generated by gate U 46 C for the full state time and the T 7 signal is generated by gate U 56 B during the last half of the 20 state time Each time that P 7 occurs, the binary counter will be loaded with the data on the A through D inputs on the next state time If the PR signal is not true, the counter will be set to zero the next state time If the PR signal is true, the counter will be set to a decimal ten on the next state The use of these timing signals will be discussed in the following sections 25 A read/write memory section of the KDP control block of Figure 4 is shown in the detailed schematic diagram of Figure 142 Central to the memory section is the KDP read/write memory which stores the display data By designing the display control section to automatically refresh the display, the capability to inform the calculator user of what the calculator program is doing via display messages while 30 the program is running is possible More importantly, the design provides the basic requirement of live keyboard, i e, displaying keyboard actions and results while a program is running The read/write memory device U 38 is Signetics (Registered Trade Mark) device 82509 which is capable of storing sixty-four 9-bit words The memory is divided into two halfs by the select printer address (SPA) signal on the 35 A 5 input of the device Thus the lower half of the memory stores the 32character codes for the LED display unit and the upper 16 locations of the upper half stores the 16-character codes for the thermal printer unit The data from the I/O data bus to be stored in the memory is first saved in the register composed of U 43 and U 52.

The timing section then generates the R/W and SPA signals as necessary to transfer 40 the data from the register into the proper location in the memory When the KDP control is not receiving information from the I/O bus, the display and printer data in the read/write memory are alternately assessed to refresh the display The printer data is only printed the one time after the print command is received by the I/O interface section The address for the read/write memory is selected by the two-to 45 one data selector composed of U 13 and U 14 The two inputs to the data selector are the display character address and character column select and the printer character address and character row select The character address information is used to address the read/write memory The column and row select is used to address the dot pattern read-only memory U 23 The read-only memory is 50comprised of devices that are organized as 2048 words of eight bits The dot patterns for both the display and the printer are stored in the ROM The most significant bit of the address (PR) is used to select whether the dot pattern is for the display or for the printer The next seven bits of address select one of 128 possible symbols The lowest three bits of address select the desired column or row of the 55 symbol Column data is needed for the display unit; row information is needed for the printer unit The timing section is designed such that when a printer character isbeing processed by the printer control section, the address to the read/write memory is the next display character to be processed and vice versa As shown in the timing diagram of Figure 141, during the state times that the P 7 signal occurs, 60 the ROM is enabled (input CE of U 23) and, as explained in the read-only memory section, the power pulse circuit composed of Q 3 and associated components applies + 12 ' volts to the main section of the ROM device During the second half of the state time the T clock occurs and the ROM accesses the dct data addressed and presents it at the D outputs for use At the end of the P 7 state time the dot data is 65 1,568,094 parallel loaded into the parallel-in/serial-out shift register composed of U 22 and U 18 During the following state times the dot data (DD) is shifted out of the shift register for use by the display or printer control sections If the dot data is printer row data only five dot data bits are defined (five by seven printer matrix) For the display dot data, all seven bits are defined since the data is column information 5 The most significant bit of the read/write memory is not used The next most significant bit is used to inform the display control section that the cursor (CURSOR) is to be flashed in that character position The outputs of the read/write memory are open-collector and require the external pull-up resistors to obtain the logic high state This fact is used to advantage to generate the symbol for the insert 10 cursor (character code zero) If the display symbol being accessed in the read/write memory is to have the cursor superimposed (read/write output bit 07 true), the display control section, if required, will cause the cursor enable (CE) signal to go high thereby switching off transistor Q 4 and causing the output of the read/write memory to become the character code zero for the insert cursor 15 A display control section of the KDP control block of Figure 4 is shown in the detailed schematic diagram of Figure 143 When the first data character of a new group of display data is sent to the KDP control, the W 4 SB associated with the transaction is used to trigger one-shot U 16 The output of U 16 via gate U 9 A clears binary counters U 3 and U 6 thereby initializing the counters to the first display 20 character address of the read/write memory in the memory section Also, via gate U 7 A, the output clears flip-flops U 15 B and U 15 A In turn, the output of flip-flop U 15 A disables the column scan decoder U 2 which blanks the display, disables gate U 4 A which enables gate Ul OD and allows the display load clock (DLC) from the timing section to increment the binary counter to the next display character 25 address each time that a new display data character is received, and disables the one-shot U 16 from being triggered again on the next data transfer The display control section remains in the mode of receiving display data with the display blanked until the DSP signal is received.

When the DSP signal, part of the command word, is received from the I/O 30 interface section, the binary counters U 3 and U 6 are again cleared to start the display scan at the first display character address Also, the DSP signal sets flip-flop U 15 B which clears flip-flops U 12 B and U 32 B thereby re-starting the flash cycle for the cursor and allows flip-flop UI 5 A to be set on the next T 7 clock Once flip-flop U 15 A is set, the display control switches from the mode of receiving new data to 35 the mode of displaying the data Assume for the moment that the cursor is not displayed, in which case gate U 5 A is enabled to pass the serial display dot data (DD) through to the display connector and hence to the display The LED display unit is composed of eight display devices that contain four display dot matrices per device A detailed block diagram of the display unit of Figure 4 is shown in Figure 40 144 The serial-in/parallel-out shift register ( 332) shifts in a new dot data bit each time that the clock signal occurs When one column of dots for each character position has been received ( 224 bits), the scan line corresponding to the column data is enabled to cause the dots selected on those columns to light or not light according to the data in the shift register The cycle is then repeated with each 45 column in sequence Counter Ul and decoder U 2 determine which column is selected The timing relationship between the waveforms that result from a display of all LED columns is shown in Figure 145 Since binary counter U 3 starts with a count of zero at the beginning of the display cycle, both gates U 5 B and U 9 C will enable gate U 4 B Gate U 9 B allows the T clock to become the series of display 50 clocks shown in the first three lines of Figure 145 The display size (SIZE) signal via gate U 5 B will disable the last sixteen series of display clocks (shown on line two) if the display is only a sixteen character display The upper three bits of the binary counter U 3 and decoding gate U 9 C further allow the display clocks only when the three bits are zeros The balance of the time the column scan decoder U 2 is allowed 55 to operate The divide-by-five column counter Ul determines which column is being scanned It is not initialized as it makes no difference which column is scanned first since all columns will eventually be scanned Each time that counter U 3 -rolls over", the column counter Ul will be incremented to the next column.

The display cursor logic is shown at the upper left portion of Figure 143 The 60 cursor flash frequency is determined by the astable multivibrator composed of gates U 8 A, U 8 B, and U 8 C which is divided by four by flip-flops U 12 B and U 32 B. When the Q-not output of flip-flop U 32 B is a logical high, the cursor symbol is enabled for displaying The command register in the I/O interface section enables either gate Ul IA or Ul l B depending on whether the insert (INS) or replace (RPL) 65 1,568,094 cursor is selected As discussed in the memory section above, the cursor (CURSOR) output from the read/write memory indicates when the particular character being accessed from the read/write memory is to also have the flashing cursor If the insert cursor is selected, the cursor enable (CE) signal is generated which forces the output of the read/write memory to assume the insert cursor code 5 If the replace cursor is selected, the flip-flop U 12 A is used to save the cursor signal so that it will be available when the character dot pattern is sent to the display unit.

The replace cursor lights all dots in each column of the character matrix which is achieved by gate U 11 B disabling U 5 A when the cursor is to be displayed thereby forcing the serial display data to the state that lights all dots on the column 10 A printer control section of the KDP control block of Figure 4 is shown in the detailed schematic diagram of Figure 146 A Assume as an initial condition that flipflops U 44 A and U 44 B and binary counter U 33 have just been cleared by gate U 54 C Since the output of flip-flop U 44 B is a low, decimal counters U 24, U 25, and U 26 and flip-flop U 32 A will be cleared, printer scan decoder U 41 will be disabled, 15 printer paper advance (ADV) solenoid will be de-energized via gate U 7 B, and gate U 17 B will be disabled thereby enabling gate UIOB to pass the printer load clock (PLC) Hence, no printing action will occur and the printer control is in the data receiving mode The binary counter U 33 provides the printer character address to the read/write memory in the memory section Each time that printer data is 20 received by the KDP control, the timing section produces the printer load clock (PLC) to advance the binary counter U 33 (via gate U 1 l OB) to the next printer character address so that the next address will be ready when the next printer character code is received The PLC clock also clocks the other binary counters U 26, U 25, and U 24 as well as flip-flop U 32 A but since the counters are connected 25 in cascade (ripple carry output to enable inputs of next stage) none of the counters will change state because flip-flop U 32 A is clear The printer control section will remain in the data receiving mode until the PRT command signal is received from the I/O interface section.

When the PRT signal is received, flip-flop U 44 A will be set and at the end of 30 the next T 7 clock flip-flop U 44 B will be set indicating that the printer control section is in the print mode To understand the timing that the printer control section generates, it is first necessary to understand the requirements of the thermal printer unit A block diagram of the thermal printer of Figure 4 is shown in Figure 147 The print head circuit comprises an off-the-shelf twenty-bit serial 35 in/parallel-out shift register whose inputs are DATA and CLOCK The output of each group of five bits goes to a 5-of-20 demultiplexer Each demultiplexer routes its five input bits to one of four print head positions Each print head position contains five dot resistors which "burn" the paper to produce the printing The four input scan signals (SI through 54) determine which of the head positions the 40 demultiplexer selects The sequence of operation is for the printer control to send the dot information for the first, fifth, ninth, and thirteenth character positions and generate the first scan signal which "burns" the paper for the proper length of time.

The procedure is then repeated for each of the other scan signals in sequence.

When the four scans are completed, the paper advance solenoid which has been 45 energized ("cocked") during the four scan operations is de-energized and a fifth time period is required to allow the paper to advance and settle.

Returning now to the printer control circuitry, figures 148 A-B show the timing relationship of various waveforms associated with the printer control circuitry of Figure 146 A Binary counter U 33 counts the sixteen character 50 positions Outputs QB and QC of decimal counter U 25 determines which scan is taking place via scan decoder U 41 Notice that the counter's output also goes to integrated circuit U 34 Device U 34 is a four-bit magnitude comparator which generates a positive-true output at output A=B whenever the four bits input at the A inputs is equal to the four bits input at the B inputs The output is used to enable 55 the T clocks to pass through gate U 5 C to become the printer clocks Notice that inputs A O and Al are tied to a logic one Consequently, inputs B O and B 1 can be used to shut off the clocks to the printer The four gates U 19 A, U 19 B, U 19 C, and U 7 D combine logically with inputs B O and B 1 to form a disable function such that if any input to U 19 A, U 19 B, or U 19 C is a logic high, the clocks to the printer are 60 disabled Therefore, let each input to gates U 19 A, U 19 B, and U 19 C be taken to form a counter whose decimal count is shown in Figure 148 B The state number associated with each count is shown immediately above the decimal count The outputs which define the decimal count are the output from flip-flop U 32 A, the four outputs of U 26, and the QA outputs of U 25 Notice that the feedback 65 I 1,568,094 generated by gates U 5 D and U 46 B causes the counting sequence to change from decimal count 11 to 16 during state numbers 12 and 13 and again from count 43 to 48 during state numbers 28 and 29 Note also that counter U 26 is a decimal counter which causes the count to change from count 19 to 32 during state numbers 16 and 17 and again from count 43 to 48 during state numbers 28 and 29 Thus, the total 5 number of states for one scan is 32.

Only during the first state (decimal count zero) are the T clocks allowed to pass through gate U 5 C to become the printer clocks Binary counter U 33 counts the sixteen character positions of the printer For the first scan, inputs B 2 and B 3 of comparator U 34 are both zero Therefore, as the character counter U 33 counts 10 through the sixteen character positions, only the first, fifth, ninth, and thirteenth characters are sent to the printer For the next scan, only the second, sixth, tenth, and fourteenth characters are sent to the printer A similar pattern occurs for scans three and four These waveforms for each scan are shown in Figure 148 A After the character counter has counted through sixteen counts, flip-flop U 32 A will be set 15 and via gate U 19 A further clocks to the printer will be disabled.

The scan signals are shown in Figure 148 B The scan decoder U 41 is enabled by flip-flop U 44 B, QD output of U 24, and the burn control output (BCO) A printer burn control circuit within the KDP control block of Figure 4 is shown in the detailed schematic diagram of Figure 146 B Devices USOD, U 50 C, and associated 20 components form an oscillator whose duty cycle depends on the unregulated + 20 volts The output of the oscillator turns switch Q 4 on and off which in turn charges capacitor C 27 through resistors R 66 and R 67 The higher the + 20 volts, the slower that capacitor C 27 will be charged Devices U 50 B, Q 15, Q 16, and associated components form another oscillator which operates at a frequency of 25 approximately one-tenth that of the USOD oscillator The purpose of this oscillator is to discharge capacitor C 27 The voltage across C 27 is input through R 67 to the non-inverting input of comparator U 50 A The other input of the comparator is a reference voltage The reference voltage can be modified by the print intensity adjustment, the print head thermister, and resistor R 63 which is switched in when 30 FET Q 12 is turned-on The output of the comparator U 50 A is the burn control output (BCO) signal which alternately switches the printer scan signals on and off.

The BCO signal is a negative-true signal whose duty cycle is inversely proportional to approximately the square of the unregulated + 20 volts, thereby providing an almost constant power dissipation for the print head resistors The print 35 temperature control (PTC) signal from gate U 7 D of the printer control section modifies the duty cycle of the burn control to allow a fast rise time for the temperature of the print head resistors during state numbers 1 through 12 of the scan time followed by an approximately constant temperature for the print head resistors during the second portion of the scan period 40 When the fourth scan is completed, the QD output of U 25 will become set.

The output disables the scan decoder U 41, disables the current drive to the advance solenoid, and disables the counter feedback gate U 46 B The paper then advances to the next line The time allowed for the advance ( 40 state times) is longer than the scan time due to the disabling of the feedback gate U 46 B 45 Decimal counter U 24 is used to determine which row of the character is selected For the first row, the dot information read out of the read/only memory section is all spaces The next seven rows are the seven rows of the fiveby-seven dot matrix The last two rows are again all spaces to provide the separation between the characters on successive lines For the last two rows, output QD of decimal 50 counter U 24 (counts eight and nine) will be a high thereby disabling the scan decoder during those two rows At the end of the tenth row, the QD output will return to a logic low which via capacitor C 16 clears flip-flops U 44 A and U 44 B ending the print mode.

CASSETTE CONTROL 55 The cassette control circuitry of Figure 4 provides the interface between the microprocessor and the cassette transport hardware The control circuitry can be divided into four sections One section is the V/O interface section which provides the interface between the l/O bus and the rest of the cassette control circuitry.

Another section is the tape section which provides the motor drive electronics that 60 causes the movement of the magnetic tape A third section is the read electronics section which detects flux transitions on the magnetic tape and decodes it into bit serial digital data which is sent to the microprocessor The delta distance code is used to represent digital information on the magnetic tape This code represents a 1,568,094 zero on the magnetic tape by a short distance between flux transitions and a one by a long distance between flux transitions The fourth section is the write electronics section which encodes bit serial digital data from the microprocessor into a series of flux transitions on the magnetic tape.

The cassette control 1/0 interface section is shown in the detailed schematic 5 diagram of Figures 149 A-C The I/O interface section contains an I/O operation decoder composed of a dual three-to-eight decoder U 3 and associated gates The decoder is enabled whenever the peripheral address lines indicate peripheral address one and an interrupt (INT) poll is not occurring One section of the decoder decodes the I/O read operations; the other section decodes the I/O write 10 operations A write to memory address seven (W 7) clears the servo-fail flip-flop U 7 B and the cartridge out flip-flop U 7 A as shown in Figure 149 C The servo-fail flip-flop is set by the servo section The cartridge out flip-flop is set when the cartridge-in microswitch opens due to the cartridge being removed from the 1 S transport assembly A write to memory address six (W 6), which occurs during the 15 last 1/0 DMA operation, sets the search complete flip-flop U 9 A and clears the DMA request enable flip-flop U 9 B A write to memory address five (W 5) latches the primary command information from the microprocessor into the eightbit command latch U 1 shown in Figure 149 B The command latch is also cleared to its initial state by the Initialize (INIT) signal when the calculator is turned on The 20 figure shows the information assigned to each bit A write to memory address four (W 4) causes the bit serial data to be written on the magnetic tape (sent on I/O bus line IODO 1) to be latched into flip-flop U 13 A and clears the flag flipflop U 13 B. A read of R 6 (R 6 SB) causes the beginning/end of tape flip-flop U 15 A to be cleared The flip-flop is set whenever a hole is detected in the magnetic tape as 25 shown in Figure 150 A hole is detected by allowing light to pass through the hole to reach a phototransistor The signal from the phototransistor is applied to an opamp U 4 which compares the signal to a level which is approximately 3004 of the peak level The transistor Q 4 changes the op-amp output to voltage levels compatible with the input requirements of the beginning/end of tape flipflop 30 A read of R 5 (R 5) causes the cassette status data, held stable by latch U 16 of Figure 149 B, to be sent to the microprocessor The data assigned to each bit is shown in the figure A read of R 4 (R 4 SB) causes the data decoded from the magnetic tape (RDT) to be sent to the microprocessor (gate U 12 F) and clears the flag flip-flop U 13 B shown in Figure 149 C The flag flip-flop is used to indicate the 35 presence of either servo tach information (output of flip-flop U 153 B) or the presence of read data (RWF) from the magnetic tape as selected by the command bit 3 (TAC) of the command latch Ul Similarly, the I/O status (STS) signal is used to indicate either the presence of a gap on the magnetic tape (when in the normal mode as indicated by search/normal bit of the command latch Ul) or the fact that 40 the search operation has ended when in the search mode The search operation is terminated (indicated by gate U 6 A) by either having a servo-fail signal (flip-flop U 7 B) or a cartridge out signal (flip-flop U 7 A) or a beginning/end of tape encounter (flip-flop U 15 A) or a normal completion caused by an T/O write operation to R 6 setting the search complete flip-flop U 9 A Conversely, if none of the four 45 conditions have occurred and the run command (command bit 7) is true, the GO signal is generated via gate U 5 B which informs the servo section that the motor is to run.

The cassette control servo section is shown in the detailed schematic diagram of Figures 151 A-C The servo system is designed to provide tape speeds of +/-22 50 ips and +/ 90 ips at +/ 5 % The transition between these speeds is at a constant acceleration of +/ 1200 in/sec/sec which corresponds to approximately 18 ms to accelerate from 0 to 22 ips In addition to speed control, the servo section provides the tape moving (MVG), tachometer pulses (TAC), and servo-fail detect (SFD) signals as status information for the microprocessor The input signals from 55 the I/O interface section are the GO signal which indicates that tape movement is to occur, the Fast (FST) signal which indicates the higher speed is desired, and the RE Verse signal which indicates the direction of tape movement.

Referring to Figure 151 A, the reference generator composed of the input circuitry associated with U 25 A converts the digital input signals GO, FST, and 60 REV to analog voltages for input to the controlled-slew-rate amplifier composed of U 25 A and U 25 B The slew rate is a function of the voltage of the zeners diodes CR 7 and CR 8, resistor R 49, and capacitor C 29 The slew rate is approximately 100 v/sec The steady-state voltage gain of the amplifier is either + 1 5 or 1 5 as determined by the digital input REV signal The steady state output voltage is 0, 65 1,568,094 +/-2, or +/-7 volts depending, respectively, on whether GO is logically false, GO is true and FST is false, or GO is true and FST is true The output voltage will be referred to as the "forcing function (Vff)" It is applied via R 79 to the summing junction of the servo loop which is at the inverting input of U 28 B The forcing function is also applied to the dead-band detector circuit 5 The dead-band detector circuit is composed of the two voltage comparators U 21 C and U 21 D and associated components Since these comparators operate from 0 to 5 volts, the forcing function is first level-shifted to provide compatibility with the comparators If the shifted level is above the reference of U 21 D, the moving reverse (MRV) signal is generated If the shifted level is below the 10 reference level of U 21 C, the moving forward (MFD) signal is generated If either the MRV or MFD signals are generated, the moving (MVG) signal is also generated This signal indicates that the forcing function is indicating a motor speed of greater than 2 ips The moving signal is used to light the run LED on the transport assembly which indicates to the user that the motor is operating and is 15 sent to the status latch in the I/O interface section for use by the microprocessor.

Also, the absence of the moving signal is used to turn off the drive to the motor to prevent the motor from creeping due to small offset voltages in the system.

The feedback voltage Vfb from the tachometer associated with the motor is also applied via R 78 to the servo loop summing junction, as shown in Figure 151 B 20 The feedback voltage is proportional to the angular velocity of the motor and is generated by an optical tachometer, as shown in Figure 151 C The optical tachometer consists of a light source, a 1000 line disk and a phototransistor A signal ( 23 K Hz @ 22 ips) is amplified by the op-amp U 3 and applied to the bidirectional one-shop (Signetics device 8 T 20 or equivalent shown in Figure 151 B) 25 which generates 2 us pulses These pulses occur on both polarities of the waveform such that the repetition rate of the output pulses is twice the input frequency ( 46 K Hz e 22 ips) The pulses are applied to a second-order low pass filter, composed of L 2 and C 42, which has a bandpass of 2 25 K Hz The output of the filter is a positive DC voltage which is proportional to the angular velocity of the motor 30 (The ripple of the DC voltage does not have an adverse effect upon the motor speed since its frequency components are much higher than the bandwidth of the system) The output of the filter is amplified by U 28 A with a gain of either + 3 or -3 in a circuit configuration similar to the configuration used to generate the forcing function The polarity of the gain in this case is determined by the MRV (moving 35 reverse) and MFD (moving forward) signals generated by the dead-band detector circuit.

The feedback from the summing junction op-amp U 28 B is also applied to the summing junction The feedback provides most of the open loop gain and introduces a zero at 5 Hz that matches the mechanical pole of the motor The 40 closed loop gain of Vfb/Vff is 0 6 with a bandwidth of approximately 200 Hz The motor driver amplifier, composed of transistors Q 3, Q 4, Q 9, and Q 10 and associated components (shown in Figure 151 C), provides a voltage gain of 2 46 as determined by the feedback resistors R 62 and R 61 As mentioned earlier, the moving (MVG) signal from the dead-band detect circuit is used to disable the 45 drivers if the moving signal is logically false to prevent the motor from creeping due to small offset voltages in the system as well as to insure stability during the zero speed crossover region Also, the INIT signal is used to disable the drivers to prevent spurious movement of the tape during calculator turn-on and turnoff The maximum average power dissipated from either darlington driver is 13 watts This 50 assumes a worse case duty cycle of 80 % and a maximum average supply voltage of 23 volts.

The servo-fail detect circuit, composed of U 21 and associated components, senses both the voltage to and current through the motor Both the voltage and current sense inputs are filtered such that an overload condition is not detected 55 during acceleration The output of the circuit sets the servo-fail flipflop in the I/O interface section which in turn causes the GO input signal to be removed thereby protecting the motor from overload.

The write electronics section of the cassette control block of Figure 4 is shown in the detailed schematic diagram of Figure 152 The inputs to the section come 60 from the I/O interface section and are the bit to be encoded (BSD), the write command (WRT), the track to written on (TRKB), and the mode command (MOD) Outputs from the section are the flux transitions on the magnetic tape, and the read/write flag (RWF) to I/O interface flag flip-flop which indicates that another bit of data may be sent 65 1,568,094 The encoder portion of the write electronics section is composed of flipflops U 30 A and U 30 B, astable multivibrator U 29, and one-shot U 31 B with associated gates The section is initialized whenever the WRT signal is false Both the data bit flip-flop U 30 A and the write data flip-flop U 30 B are preset by the WRT signal.

Also, via gate U 35 C and open-collector inverter U 34 D, the WRT signal discharges 5 the timing capacitor C 50 associated with the astable multivibrator U 29 The oneshot U 3 l B is shared between the encoder and the decoder Its other input (input A) is forced to the enable state during write operations by the WRT signal When the WRT signal becomes true and the MOD signal is false, the output of the astable multivibrator is allowed to oscillate The period of the first oscillation of the 10 multivibrator is determined by C 50, R 87, and R 88 When the first oscillation is complete, the one-shop U 3 I B will be triggered which signals the end of a data bit time The output of the one-shot causes a flux transition on the magnetic tape by toggling the write data flip-flop U 30 B, loads the next data bit on the BSD line into data bit flip-flop U 30 A, and sets the I/O interface section flag flipflop to indicate 15 that another bit may now be sent by the microprocessor The output of data bit flipflop U 30 A determines the time constant of the astable multivibrator by either switching in or switching our resistor R 88 The period of the astable is short if the flip-flop contains a zero and long if the flip-flop contains a one.

The output of the write data flip-flop U 30 B is sent to the magnetic tape 20 read/write circuitry The read/write head provides for two tracks on the tape; track A and track B A high-voltage open-collector output BCD-to-decimal decoder Ul (Texas Instruments device SN 7445 or equivalent) is used as a one-ofeight decoder to select the track, whether a read or write operation is to occur, and, if a write operation is selected, which direction current flow through the head is to occur 25 Hence, the decoder inputs are TRB (track B), WRT (write), and WDT (write data). The TRB signal determines the track by enabling outputs 4, 5, 6, and 7 or

outputs 0, 1, 2, and 3 The WRT signal selects the "write" outputs 2, 3, 6, and 7 rather than the read outputs 0, 1, 4, and 5 Since the "read" outputs are not enabled, the four FET switches Ql through Q 4 are turned off and the read circuitry is disconnected from 30 the tape head (The regulated turn off bias for the switches is generated by a voltage doubler circuit located in the servo section) When the WRT signal goes high, transistor Q 5 is turned on which, in turn, turns on the current source composed of Q 6 and associated resistors The direction of current flow through the head from the current source to the decoder output is determined by the write data (WDT) 35 signal input to the decoder Each time the WDT signal changes levels the direction of the flux on the magnetic tape is reversed due to the current flow through the head changing directions The Initialize (INIT) signal is logically O Red with the WRT signal (via CR 4) to turn off the current source and prevent spurious write currents through the head during calculator turn-on or turn-off 40 The read electronics section of the cassette control block of Figure 4 is shown in the detailed schematic diagram of Figures 153 A-B The inputs to the read electronics is the TRB (track B) signal which determines which track is to be read, the WRT (write) signal which disables the write section and enables the read section, the analog signal from the magnetic tape head, and the FST (fast) and MOD 45 (mode) signals which determine the threshold levels associated with the analog head signal The outputs are the bit serial read data (RDT) to the I/O interface and the read/write flag (RWT) to the I/O interface flag flip-flop.

When information on the tape is being read, the BCD-to-decimal decoder Ul of Figure 152 selects outputs 0 or I or outputs 4 or 5 thereby turning on FET 50 swtiches Q I and Q 2 or switches Q 3 and Q 4, respectively The appropriate tape read head is then connected to the pre-amplifier U 2 The preamp provides a nominal gain of -20 Since the output from the read head can vary as much as +/-25 %o, the gain is adjusted by selecting R 5 such that the output of the preamp is 300 m V PP.

The handwidth of the preamp is at least 110 K Hz The read waveform from the 55 magnetic head contains predominate frequencies of 10 6 K Hz and 17 6 K Hz when the tape speed is at 22 ips for one's and zero's, respectively A significant amount of information is contained in the 3rd harmonics of these waveforms The frequency is increased to 72 K Hz when the tape speed is at 90 ips However, at 90 ips, only gap information (the absence of flux transition) is being searched for and no data is 60 recovered at that speed The signal from the preamp is applied to the input of an active second-order Butterworth low pass filter composed of U 17 and associated components The filter has a bandwidth of 55 K Hz which limits the noise susceptibility but at the same time does not increase the peak shift excessively The filter has a gain of 6 7 which produces a nominal output of 2 Vpp The output of the 65 I 1,568,094 1,568,094 50 filter is applied to a differentiator (C 14 and R 5) and a threshold detector composed of U 22 and associated components The differentiator attenuates the signal ( 10 6 K Hz) by a factor of 9, while the following amplifier U 18 provides a gain of 9 and a low impedance output The output of U 18 is applied to a dual comparator U 19 which detects a zero crossing condition The two comparators are only enabled 5 during the appropriate +/ threshold to increase the noise immunity The output from the zero crossing detector is applied to the clock input of a D-type flip-flop U 27 while the clear and D inputs are connected to the threshold (THD) signal from the threshold detector This configuration prevents a glitch (multiple transition) from occurring on the output of the flip-flop since the only way possible for the 10 output to go high is for the clock input to go high while the THD signal is high The only way for the output to go low is for the clear and D inputs to go low The positive-going transition of the output of the flip-flop U 27 indicates that a flux transition (FTR) has occurred.

The input to the threshold detector is the amplified and filtered signal from 15 active Butterworth filter The threshold detector produces an output when the absolute value of the waveform exceeds either 10 , 45 % or 30 % of the nominal peak signal The 10 % level is used for reading at 22 ips, the 45 % level is used for write verification and gap detection, and the 30 % level is used for high speed gap search Which level is selected is determined by the FST and MOD inputs at 20 inverters U 20 E and U 20 F, respectively The two transitors Ql and Q 2 connected in cascade perform the function of filtering the output of the threshold detector and insuring that the THD signal remains high for at least 100 ns thereby preventing noise from causing false outputs on the flux transition (FTR) signal out of flip-flop U 27 25 The output of the threshold detector (THD) is also used to retrigger oneshots U 43 A and U 43 B shown in Figure 153 B The first one-shot, U 43 A, has a period of approximately 125 us If no flux transitions are detected for 125 us, the one-shot expires and sets the latch composed of gates U 39 A and U 39 B The output of the latch (GAP) indicates to the microprocessor, via the I/O status control signal, that a 30 gap condition exists The output of the latch also inhibits the Inter Record Gap (IRG) one-shot U 43 B from being retriggered The period of the interrecord gap one-shot is approximately 2 5 ins If the latch has not been reset or if a flux transition after the latch is reset has not occurred by 2 5 ms, the oneshot expires and an interrecord gap condition is declared The gap one-shot U 43 A also clears 35 the four-bit binary counter U 42 To prevent the possibility of noise in the system erroneously ending the gap condition, the latch is not allowed to reset until four flux transitions have been detected and counted by the binary counter U 42 The gap one-shot also clears flip-flop U 38 A whose output is used to initialize the read decode circuitry The first twelve flux transitions after a gap occurs always 40 correspond to a digital zero on the magnetic tape Hence the flip-flop U 38 A is not set again until twelve flux transitions have been counted by the binary counter U 42.

The decoder is required to reliably retrieve information stored in the form of delta distance code from a tape which exhits speed variations The input to the decoder is a stream of pulses corresponding to flux transitions detected on the 45 magnetic tape (FTR) The time between the pulses indicates whether the distance between flux transitions was a "long" or a "short" distance Decoding the time between pulses into ones and zeros could be accomplished on an absolute basis if one were willing to allow the ratio between zero and one to be large enough that a zero would always be less than a specified time and a one would always be greater 50 than a specified time when all possible variations in the system have been accounted for This approach would reduce the amount of information which could be stored on the tap and is not acceptable Instead, the decoder eliminates dependence upon the absolute time required for the tape to move a long or short distance by "tracking" the average tape speed The ratio of the "long" time to the 55 "short" time, not the actual time, is used in decoding the information The decoder uses the time between previous FTR pulses to develop a reference voltage which is used for decoding The reference voltage is developed across C 59.

To understand how the reference voltage is established, a description of the decoder circuit configuration is first necessary When the GAP signal occurs, flip 60 flop U 38 A is cleared and its output, the decoder initializing signal, clears the read data flip-flop U 38 B and turns on FET switch U 33 A to short out resistor RI 11 The reference capacitor C 59 is driven by U 36 which is part of the sample and hold circuit formed by FET switches U 33 B and U 33 D and sample and hold capacitor C 58 The input to the sample and hold circuit comes from the ramp generator 65 circuit formed by U 32 and associated components Notice that the output of the ramp generator can be applied directly to the sample and hold capacitor C 58 via FET switch U 33 D but is first attenuated by the resistor divider R 108 and R 107 before it can be applied to the sample and hold capacitor via FET switch U 33 B. Notice, further, that the read data output (RDT) of the read data flipflop U 38 B 5 enables the attenuated signal FET swtich U 33 B to update the sample and hold capacitor when RDT is a one or, similarly, enables the direct signal FET switch U 33 D when RDT is a zero The ramp generator (U 32) output which is the signal sampled, is reset to zero by switch U 33 C whenever one-shot U 31 B is triggered.

When the end of a gap occurs, the following initializing action is generated 10 The positive-going edge of the first flux transition pulse (FTR) triggers the one-shot U 31 A which has a pulse width of approximately one microsecond The oneshot pulse and the fact that the read data flip-flop U 38 B is being held clear by the decoder initializing signal U 38 A causes FET switch U 33 D to turn on and charge the sample and hold capacitor C 58 to the voltage of the ramp generator output In 15 turn, the reference capacitor C 59 will also be charged to the voltage of the sample and hold capacitor via U 36 since the FET switch U 33 A is turned on by the decoder initializing signal For the first flux transition, the ramp generator will be at its maximum value due to the long time of the gap signal On the trailing edge of the one-shot U 31 A pulse, the second one-shot U 31 B is triggered and generates a four 20 microsecond pulse which turns on FET switch U 33 C and resets the ramp generator After the pulse terminates, the output of the ramp generator proceeds to become a ramp The next flux transition occurs after a "short" time (twelve "short" times always follow a gap) and again the sample and hold capacitor is updated with the voltage of the ramp generator This time the voltage of the ramp 25 generator correctly corresponds to the "short" time or a digital zero on the magnetic tape After twelve flux transitions the reference capacitor C 59 has been initilized and the decoder initializing signal is terminated.

The time between the flux transitions now varies according to whether digital ones or zeros ("longs" or "shorts") are recorded on the magnetic tape When a flux 30 transition occurs, one-shot U 31 A is triggered and its output clocks the read data flip-flop U 38 B The read data flip-flop is updated with the results of the comparison of the reference voltage to the attenuated output of the ramp generator by comparator U 37 The output of the ramp generator is attenuated by R 105 and R 106 to produce a "short" voltage less than the reference voltage and a "long" 35 voltage greater than the reference voltage The read data output is used to select which FET switch, U 33 B for a "long" or U 33 D for a "short", updates the sample and hold capacitor C 58 The ramp generator output is attenuated for the "long" time to produce the same sample and hold voltage as for the "short" time The reference capacitor C 59 voltage is allowed to track only the low frequency changes 40 caused by tape speed variations since resistor RI 11 and capacitor C 59 now filter the short term changes in the voltage of the sample and hold capacitor The read data output is sent to the I/O interface section to become the bit serial data to the microprocessor Each time that one-shot U 31 B resets the ramp generator, it also generates the read/write flag which sets the I/O interface flag flip-flop to indicate to 45 the microprocessor that the bit serial data is ready.

POWER SUPPLIES The power supplies in the calculator consist of five regulated supplies, + 12, + 7, + 5, -5, and -12 volts, and two unregulated supplies, +/-20 volts These power supplies may be understood with reference to the block diagram of Figure 4 and 50 the detailed schematic diagrams of Figures 154 A-C.

For the + 12 volt supply of Figure 154 C, a reference voltage appears at pin 4 of U 3 when a voltage of 10 to 40 voits is applied between pins 8 and 5 The reference voltage is also applied to the non-inverting input of the amplifier in U 3 The output voltage from the supply is sensed by R 9, RIO, and Rl 1 and applied to the inverting 55 input of the amplifier in U 3 Capacitor Cl I is used to limit the frequency response of the U 3 amplifier The output of the U 3 amplifier is further amplified by Q 4 The output current of the supply is dropped across R 13 and sensed by pins 10 and 1 of U 3 to limit the output current to approximately 2 75 amps.

For the + 7 volt supply, device Ul (National device LM 309 or equivalent) is 60 used The device is designed to provide + 5 volts between pins 3 and 2 when a voltage of + 7 to + 35 is applied between pins 1 and 2 by using a resistor divider R 5 and R 6, the terminal normally connected to ground is connected to a point which is I 1,568,094 a 11 so 1 at 2 volts, thus giving an output of + 7 volts from the device Resistor R 8 is used to limit the power dissipation in Ul.

The five volt supply of Figure 154 B is a switching regulator The noninverting input (pin 1) of the amplifier in U 4 is connected via R 15 to a + 5 reference voltage developed from the + 12 volt supply by resistors R 14 and R 16 The inverting input 5 (pin 2) to the amplifier is connected to the supply output at L 2 If the supply output voltage, as sensed at the inverting input of U 4, falls below the reference voltage on the non-inverting input, the output of U 4, amplified by Q 6 and Q 3, applies + 20 volts to inductor L 2 The tap on inductor L 2 via R 22 allows both Q 3 and Q 6 to saturate thereby increasing efficiency When Q 3 turns on, the reference voltage to 10 the non-inverting input of U 3 is raised by approximately 50 millivolts by resistor divider R 17 and R 15 When the output voltage at the inverting input of the U 4 amplifier reaches the reference voltage at the non-inverting input, the amplifier turns off Q 6 and Q 3 Turning off Q 3 causes the reference voltage on the noninverting input of the amplifier to drop by about 20 millivolts This hysterisis 15 voltage introduces about 70 millivolts of ripple on the + 5 volt supply which is filtered out by LI, C 4, and C 15 The current used to turn on Q 6 and Q 3 is limited by sensing the voltage across R 19 If the + 5 volt supply is suddenly pulled more than a diode and an emitter-base voltage drop below the reference voltage, transistor Q 5 turns on and shuts off the drive transistor in U 4 As long as there is 20 any current flow out of the + 5 volt supply, Q 5 remains on and keeps the + 5 volt supply shut down.

The -12 volt supply is developed by device U 2 (National LM 320-12 or equivalent) in a manner similar to the + 7 volt supply The -5 volt supply is a zener regulated supply consisting of resistor R 7 and zener CR 8 25 CALCULATOR FIRMWARE Operation of the calculator firmware may be understood with reference to Figures 5-15, the calculator firmware listing of routines and subroutines stored within the calculator read-only memory, and the flow charts of these routines and subroutines illustrated in Figures 155-182 B 30 Referring to Figure 5, there is shown an overall block diagram of the portion of the calculator firmware residing in the mainframe language ROM 210 of Figure 4 The address structure of the mainframe language ROM is depicted in Figure 6 in relation to the remainder of the calculator memory The location of each of the firmware components of Figure 5 within the twelve individual ROM chips 35 comprising the mainframe language ROM is shown in Figure 7 The remaining portion of the calculator firmware resides in the various plug-in RO Ms 230 of Figure 4 that may be employed by the user for increasing the functional capability of the calculator.

A detailed listing of the routines and subroutines of instructions stored in the 40 mainframe language ROM together with a listing of the routines and subroutines that may be stored in a general I/O plug-in ROM are provided hereinafter In addition, as a preface to the listing of the routines and subroutines stored in readonly memory, a listing of the base page read-write memory is given This listing of the base page read-write memory may be understood with reference to the memory 45 map of Figure 15 It will be seen that the base page portion of the readwrite memory is employed for storing several words of information used by the calculator firmware Included are all the working registers of the calculator, scratch pad locations used by the floating point math routines, locations for storing information regarding the current status of the magnetic tape cassette unit, and 50 locations for storing information regarding the current position of the visual cursor associated with the output display unit.

DETAILED LISTING OF ROUTINES AND SUBROUTINES OF INSTRUCTIONS A complete assembly language listing of all of the routines and subroutines of 55 instructions employed by the calculator is given below The listing covers the readwrite memory base page, the entire mainframe language read-only memory, and a general I/O plug-in read-only memory Each page within the listing is numbered in sequence at the upper left-hand corner, and its page number within the specification as a whole is indicated at the top of the page Each line of each 60 page is separately numbered in the first column from the left-hand side of the page.

This line numbering and paginating arrangement facilitates reference to different portions of the listing Descriptive headings are variously provided throughout the 1,568,094 53 1,568,094 53 listing to identify routines, subroutines, groups of constants, and plugin ROM routines Each instruction of each routine or subroutine and each constant stored in the mainframe language ROM or the general I/O plug-in ROM is represented in octal form in the third column from the left-hand side of the page Each of these instructions may be understood in detail by referring to the detailed description of 5 the microprocessor hereinabove The octal address of the ROM location in which each such instruction or constant is stored is given in the second column from the left-hand side of the page.

Mnemonic labels serving as symbolic addresses or names are given in the fourth column from the left-hand side of the page An asterisk in the fourth column 10 indicates that particular line of the listing is merely a comment A mnemonic code corresponding to a particular instruction is given in the fifth column from the lefthand side of the page Operands that may be either labels or literals associated with each of the instructions are located in the sixth column from the lefthand side of IS the page Explanatory comments are given in the remaining right-hand portion of 15 each page.

54 Page 1 00003000 76550 00004000 00005000 00006000 00007000 00008000 00009000 76550 00010000 00011000 76557 00012000 76677 00013000 00014000 77017 00015000 77042 00016000 77062 00017000 77063 00018000 77064 00019000 77135 00020000 00021000 77206 00022000 77216 00023000 77237 00024000 00025000 77255 00026000 77256 00027000 77257 00028000 77260 00029000 00030000 77261 00031000 00032000 77275 00033000 77276 00034000 77277 00035000 77300 00036000 77301 00037000 00038000 77305 00039000 77306 00040000 77307 00041000 77310 00042000 77311 00043000 77312 00044000 77313 00045000 77314 00046000 77315 0004700)0 77316 00048000 77317 00049000 00050000 77320 00051000 77321 00052000 77322 00053000 77323 00054000 77324 00055000 77325 00056000 77326 00057000 77327 00058000 77333 1.568,094 BASE-PAGE READ-WRITE-MEMORY ORG 76550 B UNL SUP BINRY BSS CHUFF BSS CSTAK BSS RMTBL STEAL ROMWD NPROG IBUFF KBUFF BSS BSS BSS BSS BSS BSS IOTMP BSS CSTMP BSS CMTMP BSS XCOMM MODE CSTAT ERRBP BSS BSS BSS BSS EXTMP BSS IDXRW SAVEB ENDS AP 2 OFWAM FWAM FWUP RMAX VT 1 I VT 2 FWBA TE STYFG CERR SWHRE ESV STCHK STENT STEAS AKOUN STRES STEFL SEED BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS 7 BINARY PROGRAM LINKS COMPILE BUFFER COMPILE STACK 19 ROM ADDRESS TABLE 16 STOLEN RWM TABLE 1 ROM IN/OUT INFO 1 NEW-PROGRAM FLAG 41 INPUT/OUTPUT BUFFER 41 KEYBOARD BUFFER 8 I/O DRIVER TEMPORARIES i 17 CONTROL SUPERVISOR TEMPORARIES 14 COMPILER TEMPORARIES 1 INTERPRETER COMMUNICATIONS WORD 1 CONTROL-SUPERVISOR MODE FLAG CONTROL STATE 1 ERROR BYPASS LINK INTERPRETER TEMPORARIES INDEXED RWM RESERVED FOR INDEX TABLE 1 FIRST WORD ACTUAL RWM 1 FIRST WORD AVAILABLE RWM FIRST WORD OF USER PROGRAM I MAXIMUM R-REGISTER ADDRESS FIRST WORD OF VALUE TABLE INFO 1 FIRST WORD OF VALUE TABLE VALUES 1 FIRST WORD OF BINARY AREA 1 TRACE ON/OFF FLAG 1 SECURE-PROGRAM FLAG COMPILE ERROR FLAG 1 SAVED WHERE ERASE STRING VARIABLE TABLE I STRING COMPARISON LINK 1 STRING ENTER LINK STRING ENTER ASSIGNMENT LINK LINK TO PROCESS A STRING 1 STRING ASSIGNMENT FOR READ STAT, 1 STRING ENTER FLAG 4 SEED FOR RANDOM-NUMBER GENERATOR 8 RESERVED FOR POST-RELEASE 1.568,094 Page 2 00059000 77343 00060000 77344 00061000 77345 00062000 77346 00063000 77347 00064000 00065000 77350 00066000 77351 00067000 77352 00068000 77353 00069000 00070000 77345 00071000 77406 00072000 77440 00073000 77460 00074000 77467 00075000 00076000 77476 00077000 77502 00078000 77506 00079000 00080000 77507 00081000 77510 00082000 77511 00083000 77512 00084000 77513 00085000 77514 00086000 77515 00087000 77516 00088000 77517 00089000 00090000 77520 00091000 77521 00092000 77522 00093000 77523 00094000 77524 00095000 77525 00096000 77526 00097000 77527 00098000 77530 00099000 77531 00100000 77532 00101000 77533 00102000 00103000 77534 00104000 77605 00105000 77623 00106000 00107000 77624 00108000 77630 00109000 00110000 77631 00111000 00112000 77633 00113000 00114000 77674 BASE-PAGE READ-WRITE-MEMORY NOTRY AVFLG CSCF FTRGT INTSR AEBUF AEBFX AEBFM AEBFL DVTAB DATAB ITABL HPIT LPIT ENR URES FLAGS ELINK IOSR MLBPL DLEN DBP CSELC BUSFG IOINT RGFLG PARG AP 36 AP 37 AP 77 AP 78 AP 136 APP# APRET LOADL APRVC REFOR RLINK RBUFF LKTMP LKFLG ENSV SVXCM JSTAK JSTAK BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS, BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS MAXIMUM # OF TRIES AT READ OR SEARCH CASSETTE AUTOVERIFY FLAG 1 SELECT CODE OF CASSETTE 1 TARGET RECORD FOR PARALLEL SEARCH 1 INTERRUPT SERVICE FLAG BUFFER EDIT POINTERS DECLARED VARIABLE TABLE DECLARED ARRAY TABLE INTERRUPT JUMP TABLE HI-PRIORITY INTERRUPT SAVE AREA LO-PRIORITY INTERRUPT SAVE AREA 1 1 1 26 26 16 7 4 ENTER REGISTER 4 USER RESULT REGISTER I FLAG REGISTER, 0-15 L-TO-R I END-STMT EXECUTION LINK 1 I/O-ROM SERVICE ROUTINE LINK 1 "MAIN LOOP" BYPASS LINK 1 DISPLAY LENGTH I DISPLAY BEGIN POINTER 1 CASSETTE SELECT CODE I FOR JN I FOR JN I REGISTER ASSIGNMENT INFORMATION I P-ARGUMENT 1 PRODUCTION 36 (FOR JO) I PRODUCTION 37 I PRODUCTION 77 I PRODUCTION 78 1 PRODUCTION 136 I P# EXECUTION I A P ROM'S PART OF 'RET' EXECUTION I CASSETTE LDK OK LINK I A P ROM'S CHECK FOR O 1 RESET FOR/NEXT BEFORE EXECUTE 1 RUN-CMND EXECUTION LINK BSS 41 BSS 14 BSS I BSS BSS BSS BSS 4 RESERVE KEYBOARD BUFFER LIVE KEYBOARD ENABLE/DISABLE FLAG SAVE AREA FOR ENTER SAVED SCOMM FOR ENTER FOR POST-RELEASE CHANGES 33 JSM STACK BSS 1 FOR POST-RELEASE CHANGES 1,568,094 Page 3 00114100 77675 0011500 00116000 77676 00117000 00118000 77711 00119000 77712 00120000 77713 00121000 77714 00122000 77715 00123000 77716 00124000 77717 00125000 77720 00126000 77721 00127000 77722 00128000 77723 00129000 77724 00130000 77725 00131000 77726 00132000 77727 00133000 77730 00134000 77731 00135000 77732 00136000 77733 00137000 77734 00138000 77735 00139000 77736 00140000 77737 00141000 77740 00142000 77741 00143000 00144000 77742 00145000 77746 00146000 77752 00147000 77756 00148000 77770 00149000 77774 00151000 000040 00152000 00153000 00154000 00155000 00040 SYSS 00156000 00041 BASE-PAGE READ-WRITE-MEMORY T 26 BSS 1 CATMP BSS 11 s Tl T 2 T 3 T 4 T 5 T 6 T 7 T 8 T 9 TIO O TI I T 12 T 13 T 14 T 15 T 16 T 17 T 18 T 19 T 20 T 21 T 22 T 23 T 24 T 25 BSS I BSS I BSS I BSS I BSS 1 BSS I BSS I BSS 1 BSS 1 BSS 1 BSS 1 BSS I BSS I BSS I BSS 1 BSS 1 BSS 1 BSS I BSS I BSS 1 BSS 1 BSS I BSS 1 BSS I BSS I O Pl BSS 4 OP 2 BSS 4 RES BSS 4 MRW 1 BSS 10 BSS 4 MRW 2 BSS 4 ORG 40 B SYSTEM STARTUP JMP + 1 I BSS 1 CASSETTE TEMPORARIES SHARED TEMPORARIES FLOATING-POINT TEMPORARY FLOATING-POINT TEMPORARY RESULT FOR ALL FLOATING-POINT MATH READ-WRITE ARI MATH READ-WRITE 57 Page 4 00158000 00159000 00160000 00161000 00042 000777 00162000 000042 00163000 00043 000411 00164000 000043 00165000 00044 P 256 00166000 000044 00167000 00045 000377 00168000 000045 00169000 00046 000231 00170000 000046 00171000 00047 000230 00172000 000047 00173000 00050 000224 00174000 000050 00175000 00051 000202 00176000 000051 00177000 00052 000200 00178000 000052 00179000 00053 000177 OQI O OO O O 000053 00181000 00054 000176 00182000 000054 00183000 00055 000175 00184000 000055 00185000 00056 000174 00186000 000056 00187000 00057 000173 001880 000057 00189000 00060 000162 00190000 000060 00191000 00061 000160 00192000 000061 00193000 00062 000153 00194000 000062 00195000 00063 000145 00196000 000063 00197000 00064 000143 00198000 00065 000141 00199000 000065 00200000 00066 000140 00201000 000066 00202000 00067 000135 00203000 000067 00204000 00070 000133 00205000 000070 00206000 00071 000105 00207000 00072 000101 00208000 000072 00209000 00073 000100 00210000 000073 00211000 00074 000077 00212000 000074 00213000 00075 000075 1,568,094 BASE-PAGE READ-ONLY-MEMORY P 511 B 777 P 265 B 411 DEC B 400 P 255 B 377 P 153 B 231 P 152 B 230 P 148 B 224 P 130 B 202 P 128 B 200 P 127 B 177 P 126 B 176 P 125 B 175 P 124 B 174 P 123 B 173 P 114 B 162 P 112 B 160 P 107 B 153 P 101 B 145 P 99 P 97 B 141 P 96 B 140 P 93 B 135 P 91 B 133 P 69 P 65 B 101 P 64 B 100 P 63 B 77 P 61 CONSTANTS DEC 5111 EQU P 511 DEC 265 EQU P 265 256 JB J EQU P 256 DEC 255 J EQU P 255 DFC 153 EQU P 153 DEC 152 EQU P 152 DEC 148 EQU P 148 DEC 130 EQU P 130 DEC 128 J EQU P 128 DEC L 27 J EQU P 127 DEC 126 J EQU P 126 DEC 125 J EQU P 125 DEC 124 J EQU P 124 DEC 123 J EQU P 123 DEC 114 JI EQU Pl 14 DEC 112 EQU P 112 DEC 107 J EQU P 107 DEC 101 EQU P 101 DEC 99 DEC 97 EQU P 97 DEC 96 J 1 EQU P 96 DEC 93 EQU P 93 DEC 91 EQU P 91 DEC 69 Jl DEC 65 EQU P 65 DEC 64 J Il EQU P 64 DEC 63 JI EQU P 63 DEC 61 JN JO N B JN MT MT MT MT B B B B B B B B MT JO MT B B B JO MT B MT 58 Page 5 00214000 00215000 00076 00216000 00217000 00077 00218000 00219000 00100 00220000 00221000 00101 00222000 00223000 00102 00224000 00225000 00103 00226000 00227000 00104 00228000 00229000 00105 00230000 00231000 00106 00232000 00233000 00107 00234000 00235000 00110 00236000 00237000 00111 00238000 00239000 00112 00240000 00241000 00113 00242000 00243000 00114 00244000 00245000 00115 00246000 00247000 00116 00248000 00249000 00117 00250000 00251000 00120 00252000 00253000 00121 00254000 00255000 00122 00256000 00123 00257000 00124 00258000 00125 00259000 00126 00260000 00127 00261000 00262000 00130 00263000 00264000 00131 00265000 00132 00266000 00133 00267000 00134 00268000 00269000 00135 1,568,094 BASE-PAGE READ-ONLY-MEMORY 000073 000076 000072 000077 000064 000063 000101 000061 000102 000103 000057 000104 00056 000106 000054 000107 000053 000052 000111 000051 000112 000113 000044 000114 000043 000042 000116 000117 000037 000034 000121 000032 000024 000023 000022 000021 000127 000017 000016 000014 000013 000134 000012 B 75 P 59 B 73 P 58 B 72 P 52 B 64 P 51 B 63 P 49 B 61 P 48 B 60 P 47 B 57 P 46 B 56 P 45 B 55 P 44 B 54 P 43 B 53 P 42 B 52 P 41 B 51 P 40 B 50 P 36 B 44 P 35 B 43 P 34 B 42 P 32 B 40 P 31 B 37 P 28 B 34 P 26 P 20 P 19 P 18 P 17 P 16 B 20 P 15 B 17 P 14 P 13 P 12 P 11 B 13 P 10 O EQU DEC EQU DEC EQU DEC EQU DEC EQU DEC EQU DEC EQU DEC EQU DEC EQU DEC EQU DEC EQU DEC EQU DEC EQU DEC EQU DEC EQU DEC EQU DEC EQU DEC EQU DEC EQU DEC EQU DEC EQU DEC DEC DEC DEC DEC DEC EQU DEC EQU DEC DEC DEC DEC EQU DEC P 61 59 P 59 58 P 58 52 P 52 51 P 51 49 P 49 48 P 48 47 P47 46 P 46 P 45 44 P 44 43 P 43 42 P 42 41 P 41 P 40 36 P 36P 35 34 P 34 32 P 32 31 P 31 28 P 28 26 19 18 17 16 P 16 P 15 14 13 12 11 Pll JB JB JB JB MT JB JB JB JB JB JB JB JB JB JN JB JN MT JB JN MT JB JO JN JB JN JB JN JB JB JB JB JB JB JN JN JN MT MT JO MT MT JO JO MT JO JN JO MT 1,568,094 BASE-PAGE READ-WRITE-MEMORY 00270000 00136 000011 P 9 00271000 00137 000010 P 8 00272000 000137 BIO 00273000 00140 000007 P 7 00274000 00141 000006 P 6 00275000 00142 000005 P 5 00276000 00143 000004 P 4 00277000 00144 000003 P 3 00278000 00145 000002 P 2 00279000 00146 177776 M 2 00280000 00147 177775 M 3 00281000 00150 177774 M 4 00282000 00151 177773 M 5 00283000 00152 177772 M 6 00284000 00153 177771 M 7 00285000 00154 177770 M 8 00286000 00155 177765 Mll 00287000 00156 177763 M 13 00288000 00157 177761 M 15 00289000 00160 177760 M 16 00290000 00161 177757 M 17 00291000 00162 177740 M 32 00292000 000162 BM 40 00293000 00163 177720 M 48 00294000 00164 177700 M 64 00295000 000164 BM 100 00296000 00165 177660 M 80 00297000 00166 177637 M 97 00298000 00167 177600 M 128 00299000 00170 177400 M 256 00300000 00171 160000 M 8192 00301000 00302000 00172 000174 AONE 00303000 00173 000177 APIE 00304000 00174 000000 00305000 00175 010000 BIOK 00306000 00176 000000 00307000 00177 000000 PO 00308000 00200 030501 00309000 00201 054446 00310000 00202 051540 00311000 00312000 00203 000204 PTCN 00313000 00204 154360 MIOK 00314000 00205 176030 M 1000 00315000 00206 177634 MI 100 00316000 00207 177766 M 10 00317000 00210 000210 ENDT( 00318000 00319000 00211 077740 BXC Ai 00320000 00212 077700 EMAX 00321000 000212 B 777 X 00322000 00213 077577 TMASI 00323000 00214 077440 EOLB 00324000 00215 077400 BXCM 00325000 00216 076574 ZK 2 M M DEC DEC EQU DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC EQU DEC DEC EQU DEC DEC DEC DEC DEC DEF DEF OCT OCT OCT OCT OCT OCT OCT DEF DEC DEC DEC DEC DEF OCT OCT EQU OCT OCT OCT OCT 9 8 P 8 7 6 4 3 2 -2 -3 -4 -5 -6 -7 -8 -11 -13 -15 -16 -17 -32 M 32 -48 -64 M 64 -80 -97 -128 -256 -8192 + 2 + 4 000000 010000 000000 000000 030501 054446 051541 + 1 -10000 -1000 -100 -10 JB JN JB JN JB JB JN JB JN JB JN JB JN JB JN JB JN JB JN JB JN JB JO MT JO JO JO JO JO JO JO JO JO MT MT MT MT MT MT MT MT JN MT JO JO MT JB JN JO MT JB JB JN MT JB JB JB.

JB JB JO MT JO MT JN JO FLOATING-POINT ONE JO FUDGED Pl JB JO JB JO 3141 5926 5360 JB JB JB 77740 JB 77700 EMAX JB 77577 77440 JB 77400 JB 76574 MT JO JO 59 Page 6 Page 7 00326000 00217 00327000 00220 00328000 00221 00329000 00222 00330000 00223 00331000 00224 00332000 00225 00333000 00226 00334000 00227 00335000 00230 00336000 00231 00337000 00232 00338000 00233 00339000 00234 00340000 00235 00341000 00236 00342000 00237 00343000 00344000 00240 00345000 00346000 00241 00347000 00242 00348000 00243 00349000 00244 00350000 00245 00351000 00246 00352000 00247 00353000 00250 00354000 00251 00355000 00356000 00252 00357000 00253 00358000 00254 00359000 00255 00360000 00256 00361000 00257 00362000 00260 00363000 00261 00364000 00365000 00262 00366000 00263 00367000 00264 00368000 00265 00369000 00370000 00371000 00266 00372000 00267 00373000 00270 00374000 00375000 00271 00376000 00272 00377000 00273 00378000 00379000 00380000 00381000 00274 1,568,094 BASE-PAGE READ-ONLY-MEMORY 076000 071050 070000 067000 063000 060000 052525 037440 020000 010133 010050 007403 004406 004000 003377 002000 001000 177701 000167 176000 170720 170000 137777 131400 126273 101175 100377 100200 B 76 K TRCC 2 B 70 K B 67 K B 63 K B 60 K ALBPT QMRKB B 20 K RK 2 RK 1 B 7403 ZK 3 B 4 K B 3377 B 2 K BIK ZAP BM 200 BM 2 K KF B 170 K XMASK 1 MCON AMSE ZKI BM 377 UMASK 000254 NB 1 077772 NB 2 000001 Pl 177764 M 12 000000 177777 MI 000000 000000 020040 100000 040001 100004 000171 000221 011401 TOBLN FLAG STTMP STWHR ARRAY EMPTY FPTMP 110000 FVRWM 110402 FVRRA 062562 LKERM 071157 071040 OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT EQU OCT OCT OCT OCT OCT OCT OCT OCT OCT DEF DEF DEC DEC DEC DEC DEC DEC OCT OCT OCT OCT EQU EQU OCT OCT OCT OCT OCT OCT 76000 71050 70000 67000 63000 60000 52525 37440 20000 10133 10050 7403 4406 4000 3377 2000 1000 177701 M 128 -2000 170720 170000 137777 131400 126273 101175 100377 100200 + 2 77772 B I -12 0 -1 0 020040 100000 040001 100004 M 8192 B 70 K 011401 110000 110402 62562 71157 71040 JB JO JB JB JB JB JB JB JB JB MT MT MT MT MT MT MT MT JO JO JB JB MT MT SPECIAL PATTERN FOR NUMBER BUILDER JB JN JO MT JB JO JB JO MT TWO ASCII BLANKS STRING CONSTANT IN STACK ENTIRE ARRAY EMPTY FULL-PRECISION CONSTANT IN STACK FULL-PRECISION VARIABLE IN RWM FULL-PRECISION VARIABLE IN R LOWER-CASE "ERROR" POINTERS 000053 AAEOL DEF B 177 ADDRESS OF EOL 000053 AAEOL DEF B 3177 ADDRESS OF EOL 1,568,094 BASE-PAGE READ-ONLY-MEMORY 003820000275 077440 AITAB DEF ITABL 00383000 00276 077354 ADVTB DEF DVTAB 00384000 00277 00385000 00300 00386000 00301 00387000 00302 00388000 00303 00389000 00304 00390000 00305 00391000 00306 00392000 00307 00393000 00310 00394000 00311 00395000 00312 00396000 00313 00397000 00314 06398000 00315 00399000 00316 00400000 00317 00401000 00320 00402000 00321 00403000 00322 00404000 00323 00405000 00324 00406000 00325 00407000 00408000 00326 00409000 00410000 00411000 00327 00412000 00330 00413000 00331 00414000 00332 00415000 00333 077406 077632 077633 176557 076557 076556 076676 077135 177135 077134 ADATB AJSTK AJSMS ACBFX ACBF ACBUF ACLMT AKBUF AKBFX AKBFM 077205 AKBFL 000306 AKBST 077064 AIBUF 177064 AIBFX 077063 AIBFM 077134 AIBFL 077066 AIBSL 077070 AIOLM 000313 AIBST 0077534 ARBUF 077533 076677 176677 000305 077016 000326 077017 076550 000332 00416000 00417000 00334 000177 00418000 00335 077711 00419000 00420000 00336 077742 00421000 00337 077746 00422000 00340 077752 00423000 00341 077476 00424000 00342 077502 00425000 00426000 00343 077414 00427000 000326 00428000 00429000 00344 077777 00430000 000330 00431000 00432000 00345 077770 00433000 000127 ARBFM ASTK 1 ACSTF ASTAK ASLMT ATROM AROMS ABNRY AMAIN ARTBL AMTBL ADPO ATMP AO Pl AOP 2 ARES AENR ALWRES SVRE STRK MAW LWAM ADRI ADR 2 DEF DATAB DEF JSTAK-1 DEF JSTAK DEF CBUFF,I DEF CBUFF DEF CBUFF-I DEF CBUFF+ 79 DEF KBUFF DEF KBUFF,I DEF KBUFF-I DEF KBUFF+ 40 DEF AKBUF DEF IBUFF DEF IBUFF,I DEF IBUFF-I DEF IBUFF+ 40 DEF IBUFF+ 2 DEF IBUFF+ 4 DEF AIBUF DEF RBUFF DEF RBUFF-1 DEF CSTAK DEF CSTAK,I EQU ACLMT DEF CSTAK+ 79 EQU ASLMT DEF RMTBL DEF BINRY DEF ARTBL BSS 1 BSS 1 DEFPO DEF Tl DEF DEF DEF DEF DEF ADDRESS OF INTERRUPT TABLE ADDRESS OF DECLARED VARIABLE TABLE

ADDRESS OF DECLARED ARRAY TABLE ADDRESS OF JSM STACK COMPILE BUFFER 1ST CHAR ADDRESS COMPILE BUFFER STARTING ADDRESS ADDRESS OF COMPILE BUFFER COMPILE BUFFER UPPER LIMIT KEYBOARD BUFFER KEYBOARD BUFFER 1STCHARADDRESS KEYBOARD BUFFER STARTING ADDRESS 1 KEYBOARD BUFFER ENDING ADDRESS KEYBOARD BUFFER POINTERS START I/O BUFFER I/O BUFFER 1ST CHAR ADDRESS I/O BUFFER STARTINF ADDRESS-I 1 I/O BUFFER ENDING ADDRESS I/O BUFFER STARTING ADDRESS + 2 I/O BUFFER STARTING ADDRESS EDIT POINTERS STARTING ADDRESS COMPILE STACK STARTING ADDRESS ADDRESS OF COMPILE STACK I COMPILE STACK UPPER LIMIT ADDRESS OF ROM ADDRESS TABLE ADDRESS OF BINARY HEADER ADDRESS OF MAINFRAME HEADER ADDRESS OF REVERSE COMPILE TABLE ADDRESS OF MAINFRAME MNEMONIC TABLE

STARTING ADDRESS OF SHARED TEMP O Pl OP 2 RES ENR URES ARS DVTAB-101 B+ 97 EQU ASLMT OCT 77777 MAXIMUM AVAILABLE WORD EQU ABNRY LAST WORD AVAILABLE RWM + 1 DEF ARI EQU P 16 USEFUL POINTERS AND EQUATES 61 Page 8 00435000 00436000 1,568,094 BASE-PAGE READ-ONLY-MEMORY CMTMP+ O CMTMP+ I CMTMP+ 2 CMTMP+ 3 TOKEN FOR PARSER ASCII FOR PARSER USED BY SCANNER IN CASE OF ERROR IMPLIED-MULTIPLY FLAG EQU CMTMP+ 13 STACK POINTER EQU CMTMP+ 0 PRIORITY/CLASS/CHARACTERS EQU CMTMP+ I CHARACTER ADDRESS EXTMP+ O EXTMP+ 2 EXTMP+ 3 077265 HERE EQU EXTMP+ 4 077266 WHERE EQU EXTMP+ 5 EQU EXTMP+ 6 EQU EXTMP+ 7 EQU EXTMP+ 8 EQU EXTMP+ 9 EQU EXTMP+ 10 EQU EXTMP+ 11 EQU CSTMP+ 4 EQU LKTMP+ 3 RETURN LINK INFORMATION TOP OF EXECUTION STACK ADDRESS OF NEXT LINE TO BE EXECUTED ADDRESS OF LINE BEING EXECUTED ADDRESS FOR CS TDO RESUME EXECUTION CURRENT LINE TRACE INFORMATION ADDRESS IN DVTAB OR DATAB 000141 STRID EQU P 6 ID OF STRING ROM 62 Page 9 EQU EQU EQU EQU 077237 077240 077241 077242 077254 077237 077240 077261 077263 077264 TKN BCU OLUC ISTAR STAKP GUIDE ASCII AP 3 A Pl LEND 00437000 00438000 00439000 00440000 00441000 00442000 00443000 00444000 00445000 00446000 00447000 00448000 00449000 00450000 00451000 00452000 00453000 00454000 00455000 00456000 00457000 00458000 00459000 00460000 00461000 00462000 00463000 EQU EQU EQU 077267 077270 077271 077272 077273 077274 077222 077610 TRACE SAVEC BASE FA Pl OPND 1 OPND 2 L KBFMT 1,568,094 BASE-PAGE READ-ONLY-MEMORY 00465000 00466000 00467000 00468000 00346 00469000 00347 00470000 00350 00471000 00351 00472000 00352 00473000 00353 00474000 00354 00475000 00355 00476000 00477000 00356 00478000 00357 00479000 00480000 00360 00481000 00361 00482000 00362 00483000 00363 00484000 00364 00485000 00365 00486000 00366 00487000 00367 00488000 00370 00489000 00371 00490000 00372 00491000 00373 00492000 00374 00493000 00375 00494000 00376 00495000 00377 00496000 00400 00497000 00401 00498000 00402 00499000 00500000 00501000 00502000 00403 00503000 00404 504000 00405 00505000 00406 00506000 00407 00507000 00410 00508000 00411 00509000 00412 00510000 00413 00511000 00414 00512000 00415 00513000 00416 00514000 00417 00515000 00420 00516000 00421 00517000 00422 00518000 00423 00519000 00424 00520000 00425 ROUTINE ADDRESSES ACPLR AREAD AAPL 1 ASETC ANUMB ALBLN ALBCM AOUTS ARCLR ADSRM ARSGT AINTI AFBAD AINTT AINTK AINTX ARAP ASTP ALLOC AOVTS AASTR ALNTR AFCI AFCC ASFG AGNAM ACLBL AADBA A.ADB BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS COMPILER COMPILER INPUT READER APPLY-PRODUCTION RETURN TO COMPILER I COMPILE ERROR NUMBER-BUILDER 1 QUOTE SCANNER 1 QUOTE BUILDER COMPILE BYTE WRITER REVERSE COMPILER 1 DISPLAY ROM I D NUMBER RESET HI-SPEED BRANCHES I INTERPRETER 'RUN' ENTRY FIND BYTE ADDRESS DIFFERENCE INTERPRETER 'CLL' ENTRY INTERPRETER 'CONTINUE' ENTRY INTERPRETER EXECUTION RETURN FOR MATH ROUTINES FOR END-STMT LINK ALLOCATOR EXECUTION STACK OVERFLOW TEST ASSIGNMENT TRACE I LINE NUMBER TRACE FIND-BYTE INITIALIZATION ENTRY FIND-BYTE CONTINUATION ENTRY SET A FLAG GET VARIABLE NAME FIND LABEL LINE ADDRESS ADJUST BYTE ADDRESS ENTRY #1 ADJUST BYTE ADDRESS ENTRY #2 K PAGE CONTROL SUPERVISOR AMCLX AERRI AERR 2 APEMI AEREX AREJR AXCMM APLIR ACNDT ACTFC ACONT AEXCK AEXCL AKYPR AERCS AECIM ASCND ASYER ACNIN BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS I MAIN LOOPADDR+I ERROR ROUTINE NO RETURN I ERROR ROUTINE RETURN P+ 2 1 PLACE ERROR MESSAGE IN I/O BUFFER 1 ERROR EXIT AFTER 'AERR 2 ' INTERRUPT REJECT ROUTINE I XCOMM MANAGEMENT 1 PLACE LINE NUMBER IN I/O BUFFER 1 COMMAND TABLE 1 CHECK TABLE FOR COMMAND I IMMEDIATE EXECUTE CONTINUE 1 COMMAND EXECUTION I PLACE LINE BRIDGES ON COMPILED LINE I PROCESS A KEY I CASSETTE RUN ENTRY 1 IMMEDIATE CONTINUE 1 COMMANDTABLEADDRESS 1 SYSTEM ERROR 1 CONTINUE INITIALIZATION 63 Page 10 1,568,094 BASE-PAGE READ-ONLY-MEMORY 00521000 00426 00522000 00427 00523000 00430 00524000 00431 00525000 00526000 00527000 00528000 00432 00529000 00433 00530000 00434 00531000 00435 00532000 00436 00533000 00437 00534000 00440 00535000 00441 00536000 00442 00537000 00443 00538000 00444 00539000 00445 00540000 00446 00541000 00447 00542000 00450 00543000 00451 00544000 00452 00545000 00453 00546000 00454 00547000 00455 00548000 00456 00549000 00457 00550000 00460 00551000 00461 00552000 00462 00553000 00554000 00555000 00556000 00463 0055700 00464 00558000 00465 00559000 00466 00560000 00467 00561000 00470 00562000 00471 00563000 00472 00564000 00473 00565000 00474 00566000 00475 00567000 00476 00568000 00477 00569000 00500 00570000 00501 00571000 00502 00572000 00503 00573000 00504 00574000 00575000 00576000 AERSA BSS 1 AISTR BSS 1 AISTX AEXST BSS 1 BSS I LINK FOR ERASE-ALL PLACE KEYBOARD CHARACTER IN I/O BUF PLACE CHARACTER IN I/O BUFFER STATEMENT EXECUTION

12 K PAGE I/O SUPERVISOR ADSPC ALDSP AKBSR ATRBF AEPON AEPNX ASVRG AKB R 2 ACPST APRNT A.PRN APNMR AFBP ASWIO ACLBI ACLEB AEOLB ACLCM ARPRL ALKEX ALXER ALXKY AKYTB APRKB APSTR BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS I (PSTRG) 1 1 (PSTRG) 22 K PAGE AMUPH BSS AMAMP BSS AMPUP AMPML AMTHM AMTLM AZRWM AERAV ALISK AKEYN AEDPT ATLNI ABTDA AEOLN AGNXT ATCHR ARNLO ARNLF BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS DISPLAY EDIT BUFFER WITH CURSOR DISPLAY I/O BUFFER KEYBOARD SERVICE ROUTINE TRANSFER I/O BUFFER TO KEYBOARD BUF PRINT-ALL ROUTINE LINK TO PRINT-ALL FOR ENP SAVE LOW PRIORITY A,B,E,O RESTORE LOW PRIORITY A,B,E,O CHECK PRINTER STATUS PRINT CHARACTERS ALREADY GIVEN PRINT 16 CHARS FROM I/O BUFFER PRINT A NUMERIC VALUE FIND DISPLAY BEGIN POINTER SWAP POINTERS TO EDIT I/O BUFFER CLEAR I/O BUFFER CLEAR EDIT BUFFER SET EOL IN EDIT BUFFER CLEAR COMPILE BUFFER ROM "POWER REDUCTION LOOP" LINK TO LIVE-KEYBOARD EXECUTION LINK TO LIVE-KEYBOARD EXECUTE ERROR LINK TO LIVE-KEYBOARD EXECUTE KEY PRINT-ALL FROM KEYBOARD BUFFER MOVE MAIN PROGRAM TO HIGHER MEMORY MOVE MAIN PROGRAM TO LOWER MEMORY MOVE PART OF MAIN PROGRAM HIGHER MOVE PART OF MAIN PROGRAM LOWER MOVE RWM HIGHER MOVE RWM LOWER ZERO RWM ERASE ALL VARIABLES LIST A SPECIAL KEY PUT SPECIAL KEY NUMBER IN I/O BUF RESET EDIT POINTERS PLACE LINE NUMBER IN I/O BUFFER BINARY TO DECIMAL ASCII FIND EOL IN I/O BUFFER GET NEXT CHARACTER TRANSFER CHARS LINK TO TURN ON RUN LIGHT LINK TO TURN OFF RUN LIGHT 26 K PAGE Page 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1,568,094 BASE-PAGE READ-ONLY-MEMORY 00577000 00505 00578000 00506 00579000 00507 00580000 00510 00581000 00511 00582000 00512 00583000 00513 00584000 00514 00585000 00515 00586000 00516 00587000 00517 00588000 00520 00589000 00521 00590000 00522 00591000 00523 00592000 00593000 00524 00594000 00525 00595000 00526 00596000 00527 00597000 00530 0059 800000531 00599000 00532 00600000 00533 00601000 00534 00602000 00535 0003000 00536 00604000 00537 00605 000 00540 066000 00541 00607000 00542 00608000 00543 00609000 00544 00610000 00545 00611000 00546 00612000 00547 00613000 00550 00614000 00551 00615000 00552 00616000 00553 00617000 00554 006-18000 00555 00619000 00556 00620 00557 00621000 00560 00622000 00561 00623000 00562 00624000 00563 00625000 00626000 00564 00627000 00565 00628000 00629000 00566 00630000 00567 00631000 00570 00632000 00571 APGET BSS APNUM AINTC AGLL AGEOL AFLAD AFLNA ASLLN ASTKI AREST ARENI AREND ASTKG ADIGX AGLNO AUNM AADD ASUB AMUL ADIV ASQR AGE AGT ALT ALE AEQ ANE AAND AOR AXOR ANOT APRND ADRND ARERR ARND ATSUB AFLTC AGETI AGET 2 AADDI ASUBI AMULI ADIVI ADIV 2 ASQRI ATSUI AFLTP ASTMA ASTMA ASTM I ALST APRT ADSP ASPC BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS I (PGET) GET NEXT PARAMETER FOR"PRINT" LIST I (PNUM) PROCESS A NUMERIC ITEM I (INTCK) MAKE INTEGER FROM ASCII STRING I (GLENL)GET LENGTH OF COMPILED LINE 1 FIND EOL IN COMPILE BUFFER 1 (FLADR) FIND LINE ADDRESS I FIND LINE ADDR (TMP 7) I (SLLN) SET 'LNO' TO LAST LINE NUMBER OR -1 1 LINK TO LIVE-KEYBOARD INIT 1 LINK TO LIVE-KEYBOARD RESTORE 1 INSERT LINE RENUMBER GTO/GSB I DELETE LINE RENUMBER GTO/GSB I STACK ROUTINE FOR GSB 1 GENERAL RANGE CHECK ROUTINE I GET LINE NUMBER OF CURRENT LINE l UNARY MINUS -FILLED IN FROM 14 I ADD 1 SUBTRACT 1 MULTIPLY I DIVIDE I SQRT 1 ≥ 1 > 1 < 1 ≤ I = 1 # I AND I OR I XOR I NOT 1 P-ROUND 1 D-ROUND I RECOVERABLE MATH ERROR I ROUND 1 USED BY RELATIONAL OPERATIONS I FULL-PRECISION EXPONENT RANGE 1 1 1 1 1 1 1 1 BSS I BSS I BSS BSS BSS BSS K CHECK GET ONE MATH OPRND FROM STACK GET TWO MATH OPNDS FROM STACK ADD+ 1 I SUB RACT+ I MULTIPLY+ 1 DIVIDE+ 1 DIVIDE ENTRY FOR TRUNCATED QUOTIENT SQRT+ TSUB+ 1 CONVERT TO FLOATING-POINT STMAX ENTRY FILLED IN FROM 24 K STMAX ENTRY 1.

1 1 LINK TO EXECUTE 'LIST' LINK TO EXECUTE 'PRT' LINK TO EXECUTE 'DSP' LINK TO EXECUTE 'SPC' Page 12 1,568 094 BASE-PAGE READ-ONLY-MEMORY 00633000 00572 00634000 00573 00635000 00574 00636000 00575 00637000 00576 00638000 00577 00639000 00640000 00600 00641000 00601 00642000 00602 00643000 00603 00644000 00604 00645000 00605 00646000 00606 00647000 00648000 00607 00649000 00610 00650000 00611 00651000 00612 00652000 00653000 00613 001053 001110 001133 001142 ALSTK AKUN AKUF AFXD AFLT AENT ACSTI ARFK DMALO ASTPA AWTRR ACHST ARDRC ABUMP ACOUN AGTAD AGTIN BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS BSS DEF DEF DEF DEF LINK TO EXECUTE 'LISTK' LINK TO EXECUTE 'KON' LINK TO EXECUTE 'KOFF' LINK TO EXECUTE 'FXD' LINK TO EXECUTE'FLT' LINK TO EXECUTE 'ENT' 1 1 1 1 1 1 CASSETTE INITIALIZATION REWIND FROM KEYBOARD LINK TO DMA LOCKOUT ROUTINE LINK TO SET CASSETTE P A.

LINK TO WRITE RECORD LINK TO FIND RECORD LINK TO READ RECORD BUMP COUNT GETAD GETIN BUMP PARAMETER POINTER (FAPI) COUNT PARAMETERS ON STACK GETAD SUBROUTINE GETIN SUBROUTINE FOR MORE LINKS IF NEEDED 66 Page 13 1 1 1 1 1 BSS 2 1,568,094 BASE-PAGE SUBROUTINES UTILITIES UTILITIES 00659000 00660000 SUBR 00661000 00662000 ON E, 00663000 00664000 00665000 00666000 00615 005263 ABSAD 00667000 00616 035276 00668000 00669000 00617 100001 00670000 00620 050140 00671000 00621 020632 00672000 00622 024145 00673000 00623 104001 00674000 00624 124000 00675000 00676000 00625 001276 00677000 00626 020254 00678000 00627 100000 00679000 00630 021276 00680000 00631 170201 00681000 00682000 00632 077275 INDXP OUTINE TO GET OPERAND ABSOLUTE ADDRESS W F C.

XIT: A B SAVEB = UPDATED STACK POINTER = ABSOLUTE ADDRESS = OLD STACK POINTER LDB A Pl STB SAVEB LDA AND ADA ADB LDB ADB LDA ADA LDA ADA RET B,I P 7 INDXP P 2 B,I AI SAVEB Pl A,I SAVEB ENTER HERE TO USE A Pl GET INDEX NUMBER B=RELATIVE ADDRESS B=ABSOLUTE ADDRESS A=LENGTH A=UPDATED POINTER DEF IDXRW POINTER TO INDEXED RWM WAIT SUBROUTINE ON ENTRY: B-DELAY IN MILLISECONDS ON ENTRY: B= DELAY IN MILLISECONDS 000642 DELAY 072100 001206 010254 170201 076173 170201 LDA TIME RIA LDA IOTMP TEST FOR STOP KEY CPA Pl RET I RIB -5 RET I 00642 177130 TIME 67 Page 14 00655000 00656000 00657000 00684000 00685000 000 0068700 0068800 0689000 00690000 00691000 00692000 00693000 006400 00695000 00696000 00697000 00633 00634 00635 00636 00637 00640 00641 OCT 177130 1,568,094 BASE-PAGE SUBROUTINES 00699000 00700000 CON 00701000 00702000 ON l 00703000 00704000 A PC 00705000 00706000 ON 00707000 00708000 B Hi 00709000 O IN 00710000 00711000 AR 2 00712000 00713000 TEN, 00714000 00715000 00643 000001 00716000 00717000 00644 004127 FIXPT 00718000 00645 071403 00719000 00646 004177 00720000 00647 173201 00721000 00650 000020 00722000 00651 170405 00723000 00652 020254 00724000 00653 072417 00725000 00654 172426 00726000 00655 031711 00727000 00656 064664 00728000 00729000 00657 024001 FII 00730000 00660 035712 00731000 00661 024001 00732000 00662 024001 00733000 00663 025712 00734000 00664 000177 F 12 00735000 00665 075541 00736000 00666 170040 00737000 00667 024000 00738000 00670 055711 00739000 00671 064657 00740000 00741000 00672 000021 F 13 00742000 00673 170513 00743000 00674 020151 00744000 00675 172402 00745000 00676 024257 00746000 00747000 00677 000020 00748000 00700 073402 00749000 00701 174040 00750000 00702 170201 F 14 VERT FLOATING NUMBER TO INTEGER W F C.

ENTRY:

)INTS TO FLOATING NUMBER EXIT:

AS INTEGER VALUE IDICATES OVERFLOW STATUS HAS FRACTIONAL REMAINDER lPORARIES USED; TI, T 2 LDA B LDB XFR LDB SOC LDA AAR ADA SZA SAM STA JMP ADR 2 4 PO + l,C AR 2 6 Pl F 13 FI 4 Tl F 12 ADB B STB T 2 ADB B ADB B ADB T 2 LDA PO MLY TCA ADB A DSZ Tl JMP F Il LDA SAR ADA SAM ADB AR 2 + 1 12 M 5 + 2 M 1 LDA AR 2 RLA + 2 TCB RET I ALTERNATEENTRY ADDRESS OF AR 2 MOVE NUMBER TO AR 2 INITIALIZE RESULT LOOK AT EXPONENT 2 X 4 X 8 X IOX SHIFT AR 2 LEFT BUILD NEGATIVE NUMBER ADD IN NEXT DIGIT ROUND TEST MANTISSA SIGN COMPLEMENT IF NECESSARY 68 Page 15 69 Page 16 00752000 00753000 00754000 00755000 00703 00756000 00704 00757000 00705 00758000 00706 00759000 00707 00761000 00762000 00763000 00764000 00710 00765000 00711 00766000 00712 00767000 00713 00769000 0077000 00771000 00772000 00714 00773000 00774000 00715 00775000 00716 00776000 00717 00777000 00720 00778000 00721 00779000 00780000 00722 00781000 00723 00782000 00783000 00724 00784000 00725 00785000 00726 00786000 00727 00788000 00789000 0790000 O 00791000 00730 00792000 00731 00793000 00732 00794000 00795000 00733 00796000 00734 1,568,094 BASE-PAGE SUBROUTINES 000177 030011 000143 030005 170201 140450 000214 130313 170201 000721 000177 064720 000143 031256 170201 140404 031461 005315 076474 140404 030064 000731 140404 031071 140404 031462 DEEP SUBROUTINE BEEP LDA PO STA PA LDA P 4 STA R 5 RET 1 CLEAR I/O BUFFER AND PUT 'LAZY-T' AT LEFT END EOLIO JSM ACLBI,I LDA EOLB STA AIBUF,I RET 1 MISCELLANY FOR JB ARETI CLMOD STELM STMOD RETI ERLNF SECCK ERSEC SOME AREPN E 29 E 32 E 32 DEF LDA JMP LDA STA RET JSM ASC LDB SZB JSM ASC RETI PO STMOD P 4 MODE AERRI,I 1,31 STYFG RETI AERRI,I 1,04 SET MODE= 0 SET MODE= 4 LINE NOT FOUND COMMON ERRORS DEF + 1 JSM AERRI,I ERROR, ROM MISSING AT EXECUTION ASC 1,29 JSM AERRI,I ERROR, ILLEGAL DATA TYPE ASC 1,32 Page 17 00798000 00799000 00800000 00801000 00735 070430 00802000 00736 070000 00803000 00737 064747 00804000 00805000 00806000 00807000 00808000 00809000 00740 070430 00810000 00741 001255 00811000 00742 050001 00812000 00743 064746 00813000 00814000 00815000 00816000 00817000 00818000 00744 070430 00819000 00745 061255 00820000 00746 031255 00821000 00747 070420 00822000 00750 170201 00824000 00825000 00826000 00827000 00828000 00829000 00830000 00831000 00832000 00833000 00751 101272 00834000 00752 172201 00835000 00753 170513 00836000 00754 010254 00837000 00755 064757 00838000 00756 170201 00839000 00840000 00757 005272 00841000 00760 040616 00842000 00761 170202 1,568,094 BASE-PAGE SUBROUTINES SUBROUTINE TO DO AN EXE A EXEXA DIR PREVENT INTERRUPT INTERFERENCE EXE A JMP SXCMM+ 3 SUBROUTINE TO CLEAR BITS IN XCOMM ON ENTRY: B=MASK TO CLEAR BITS CLXCM DIR PREVENT INTERRUPT INTERFERENCE LDA XCOMM AND B JMP SXCMM+ 2 SUBROUTINE TO SET BITS IN XCOMM ON ENTRY: A=BITS TO BE INCLUDED SXCMM DIR PREVENT INTERRUPT INTERFERENCE IOR XCOMM STA XCOMM EIR RET 1 SUBROUTINE TO GET NUMERIC PARAMETER ON ENTRY: FA Pi 1 POINTS TO PARAMETER ON EXIT TO P+ 1: A=CLASS OF NON-NUMERIC ITEM ENCOUNT.

ON EXIT TO P+ 2: B POINTS TO VALUE NGET LDA FAPI,I GET 'WHAT' WORD SAP + 1,C SAR 12 GET CLASS CPA Pl NUMERIC? JMP + 2 YES RET I NO LDB FA Pl JSM ABSAD+ 1 I RET 2 1,568,094 BASE-PAGE SUBROUTINES INTEGER DIVIDE W.F C.

ON ENTRY:

BA HAS DIVIDEND JSM IDIV DEF DIVISOR ON EXIT:

A = QUOTIENT B = REMAINDER O = OVERFLOW STATUS TEMPORARIES USED: TI, T 2, T 3, T 4, T 5, T 6 TEMPORARIES USED: Tl, T 2, T 3, T 4, T 5, T 6 00762 004177 SDIV 00763 035711 IDIV 00764 004146 00765 035712 00766 035713 00767 004160 00770 035714 00771 144003 00772 104003 00773 104001 00774 104001 00775 176003 00776 045712 00777 174040 01000 035715 01001 174040 01002 035716 01003 005711 01004 176010 01005 045712 01006 066007 01007 170040 01010 174140 01011 072002 01012 024254 01013 045713 01014 025716 DIVO 01015 176034 LDB STB LDB STB STB LDB STB ISZ LDB LDB LDB SBP ISZ TCB STB TCB STB LDB SBP ISZ JMP TCA CMB RZA ADB ISZ ADB SBP PO TI M 2 T 2 T 3 M 16 T 4 R,I R,I B,I B,I + 3 T 2 T 5 T 6 TI DIVO T 2 + 1 + 2 Pl T 3 T 6 OVFL ALTERNATE ENTRY SAVE HI DIVIDEND INITIALIZE QUOTIENT SIGN INITIALIZE REMAINDER SIGN INITIALIZE LOOP COUNTER ADDRESS OF DIVISOR ADDRESS ADDRESS OF DIVISOR GET ABS OF DIVISOR SAVE+DIVISOR SAVE-DIVISOR TEST DIVIDEND SIGN COMPLEMENT DIVIDEND (ALLOW FOR SKIP) SET REMAINDER SIGN ADD DIVISOR SKIP IF OVERFLOW 71 Page 18 00844000 00845000 OO 46000 00847000 00848000 00849000 0085000 00851000 00852000 00853000 00854000 00855000 00856000 00857000 00858000 00859000 00860000 00861000 00862000 00863000 0064000 00865000 00866000 0 Q 067000 0066800 o O 00869 oo O 008670000 00871000 00872000 006873000 00874000 00875000 00876000 00877000 00878000 00879000 00860000 00681000 00682000 o 0063000 00984000 00865000 00886000 00887000 00688000 00889000 00890000 00891000 1,568,094 BASE-PAGE SUBROUTINES 00893000 00894000 00895000 00896000 01016 00897000 01017 00898000 01020 00899000 01021 00900000 01022 00901000 01023 00902000 01024 00903000 01025 00904000 01026 00905000 01027 00906000 01030 00907000 01031 00908000 00909000 01032 00910000 01033 00911000 01034 00912000 01035 00913000 00914000 01036 00915000 01037 00916000 00917000 01040 00918000 01041 00919000 01042 00920000 01043 00921000 00922000 01044 00923000 01045 00924000 01046 00925000 01047 00926000 00927000 01050 00928000 00929000 01051 00930000 01052 MAIN DIVIDE LOOP MAIN DIVIDE LOOP 174600 DIVI 172002 024254 170600 025715 066032 073072 DIV 2 174600 172002 024254 170600 025716 176402 DIV 3 060254 045714 066024 176002 025715 045712 066050 170040 173201 045713 170201 174040 170201 172073 173301 170201 DIV 4 DIV 5 OVFL OVFL SBL 1 SAP + 2 ADB Pl SAL 1 ADB T 5 JMP DIV 3 SLA DIVI SBL 1 SAP + 2 ADB Pl SAL 1 ADB T 6 SBM + 2 IOR Pl ISZ T 4 JMP DIV 2 SBP + 2 ADB T 5 ISZ T 2 JMP DIV 5 TCA SOC + 1,C ISZ T 3 RET 1 TCB RET 1 SAP DIV 4 SOC +I,S RET I SHIFT LEFT ADD+DIVISOR SHIFT LEFT ADD DIVISOR INCREMENT LOOP COUNTER AND TEST CORRECT NEGATIVE REMAINDER CORRECT QUOTIENT SIGN ALL OK RETURN POSITIVE REMAINDER RETURN NEGATIVE REMAINDER OVERFLOW, SET O-REGISTER 72 Page 19 73 Page 20 00932000 00933000 OO 934000 00935000 00936000 00937000 00938000 00939000 00940000 00941000 00942000 00943000 01053 072415 00944000 01054 031711 00945000 01055 172014 00946000 00947000 01056 005272 00948000 01057 100001 00949000 01060 170603 00950000 01061 172012 00951000 01062 000001 00952000 01063 020254 00953000 01064 124000 00954000 01065 045711 00955000 01066 066057 00956000 00957000 01067 035272 00958000 01070 170202 00959000 00960000 01071 005263 00961000 01072 015272 00962000 01073 170201 00963000 00964000 01074 035712 00965000 01075 000001 00966000 01076 020254 00967000 01077 124000 00968000 01100 015272 00969000 01101 066103 00970000 01102 066074 00971000 00972000 01103 005712 00973000 01104 035272 00974000 01105 055711 00975000 01106 066071 00976000 00977000 01107 170202 1,568,094 BASE-PAGE SUBROUTINES SUBROUTINE TO BUMP PARAMETER POINTER :

ON ENTRY: A = + COUNT ON EXIT TO P + 1: NO MORE PARAMETERS ON EXIT TO P + 2: FA Pl = NEXT PARAMETER ADDRESS TEMPORARIES USED: TI, T 2 BUMP SZA BU 2 SKIP IFNOTHING TO DO STA TI SAP BU 3 WHICH WAY? LDB FA Pl MOVE TO LEFT IFBUI LDA B,1 SAL 4 LOOK AT PARAMETER LINK BIT SAP BU 4 LDA B ADA Pl ADB A,1 ISZ TI JMP BUI KEEP ON STB FA Pl BU 2 RET 2 RETURN BU 3 LDB A Pl MOVE TO RIGHT IF+ CPB FA Pl BU 4 RET I RETURN BU 5 STB T 2 SAVE PREVIOUS LOCATION LDAB ADA Pl ADB A,1 CPB FA Pl JMP + 2 JMP BU 5 LDB T 2 STB FA Pl MOVE FA Pl ONE POSITION DSZ TI JMP BU 3 KEEP ON RET 2 RETURN 1,568,094 BASE-PAGE SUBROUTINES SUBROUTINE TO COUNT PARAMETERS ON STACK ON EXIT: A = # OFNUMERICPARAMETERS B = # OF PARAMETERS FA Pl = LOCATION OF LEFTMOST PARAMETER TEMPORARIES USED: T, T 2 TEMPORARIES USED: Ti, T 2 00987000 00988000 01110 000177 COUNT 00989000 01111 031711 00990000 01112 031712 00991000 01113 005263 00992000 01114 100001 C Ol 00993000 01115 170600 00994000 01116 172402 00995000 01117 045711 00996000 01120 045712 00997000 01121 170602 00998000 01122 172005 00999000 01123 000001 01000000 01124 020254 01001000 01125 124000 01002000 01126 066114 01003000 01004000 01127 035272 C 02 01005000 01130 001711 01006000 01131 005712 01007000 01132 170201 LDA STA STA LDB LDA SAL SAM ISZ ISZ SAL SAP LDA ADA ADB JMP STB LDA LDB RET PO Tl T 2 A Pl B,1 1 + 2 T 1 T 2 3 C 02 B Pl A,I COI FA Pl TI T 2 I INITIALIZE A COUNT INITIALIZE B COUNT GET "WHAT" WORD LOOK AT CLASS SKIP IF NON-NUMERIC LOOK AT PARAMETER LINK BIT MORE PARAMETERS FOLLOW INITIALIZE POINTER RETURN 74.

Page 21 00979000 00980000 00981000 00982000 00983000 00984000 00985000 00986000 1,568,094 BASE-PAGE SUBROUTINES 01009000 01010000 GET 01011000 01012000 ON E 01013000 01014000 01015000 01133 040615 GETAE 01016000 01134 031263 01017000 01018000 01135 101276 01019000 01136 050221 01020000 01137 010175 01021000 01140 170201 01022000 01023000 01141 064733 01025000 01026000 GET 01027000 01028000 ONE 01029000 01030000 01142 042133 GETIN 01031000 01143 040643 01032000 01144 173402 01033000 01145 170201 01034000 01035000 01146 140404 Ell 01036000 01147 030461 01038000 01039000 WAIT 01040000 01041000 01150 042142 XWAIT 01042000 01151 176003 01043000 01152 140404 E 17 A01044000 01153 030467 01045000 01046000 01154 174040 01047000 01155 040633 01048000 01156 164365 01050000 01157 01051000 09999000 END OF PASS 2 NO ERRORS NUMERIC OPERAND ADDRESS EXIT: B = OPERAND ADDRESS A Pl = UPDATED ) JSM ABSAD STA A Pl GET OPERAND ABSOLUTE ADDRESS UPDATE A Pl LDA SAVEB I THE 'WHAT'WORD AND B 70 K CPA BIOK RET I RETURN IF NUMERIC JMP E 32 INTEGER PARAMETER XIT: B = INTEGER VALUE JSM GETAD JSM FIXPT-I SOS + 2 RET 1 JSM AERRI,I ASC 1,11 GET OPERAND ADDRESS CONVERT TO INTEGER ERROR, INTEGER OUT OF RANGE EXECUTION JSM SBP JSM ASC GETIN + 3 AERRI,I 1,17 TCB JSM DELAY JMP AINTX,I BSS 1 LST END DETECTED GET INTEGER PARAMETER ERROR, ILLEGAL WAIT PARAMETER GO DELAY RESERVED FOR OK-PAGE CHECKSUM Page 23 00003000 76550 00004000 BASE-PAGE READ-WRITE-MEMORY ORG 765508 UNL Page 22 1,568,094 Page 24 02001000 01170 02002000 02003000 02004000 CLA 02005000 02006000 LEF 02007000 RIG 02008000 02009000 01170 000000 CTBL 02010000 01171 000000 02011000 01172 000000 02012000 01173 000000 02013000 01174 000000 02014000 01175 000000 02015000 01176 000000 02016000 01177 000000 02017000 01200 000000 02018000 01201 000000 02019000 01202 000000 02020000 01203 000000 02021000 01204 000000 02022000 01205 000000 02023000 01206 000000 02024000 01207 000000 02025000 01210 000000 02026000 01211 000000 02027000 01212 000000 02028000 01213 000000 02029000 01214 000000 02030000 01215 000000 02031000 01216 000000 02032000 01217 000000 02033000 01220 000000 02034000 01221 000000 02035000 01222 000000 02036000 01223 000000 02037000 01224 000000 02038000 01225 000000 02039000 01226 000000 02040000 01227 003020 02041000 01230 000000 02042000 01231 000000 02043000 01232 001465 02044000 01233 000400 02045000 01234 000000 02046000 01235 000400 02047000 01236 000400 02048000 01237 000400 02049000 01240 004002 02050000 01241 003407 02051000 01242 003006 02052000 01243 003003 02053000 01244 003014 02054000 01245 003012 02055000 01246 002462 02056000 01247 003013 TABLES

ORG 1170 B UNS ASS TABLE FOR COMPILER FT BYTE = CHARACTER CLASS FOR INPUTSCANNER 3 HT BYTE = TOKEN CLASS FOR PARSER NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP NOP OCT NOP NOP OCT OCT NOP OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT 3020 1465 0400 0400 0400 0400 4002 3407 3006 3003 3014 3012 2462 3013 000 001 002 003 004 006 007 011 012 013 014 016 017 021 022 023 024 026 027 031 032 033 034 036 037 041 042 043 044 046 047 051 052 053 054 056 057 66 16 I 3 53 " $ 1 % 1 & 1 8 7 6 6 6 6 2 ( 7) 6 3 + 12, 11 / 77 Page 25 02057000 01250 002062 02058000 01251 002062 02059000 01252 002062 02060000 01253 002062 02061000 01254 002062 02062000 01255 002062 02063000 01256 002062 02064000 01257 002062 02065000 01260 002062 02066000 01261 002062 02067000 01262 003015 02068000 01263 003010 02069000 01264 000400 02070000 01265 000400 02071000 01266 000400 02072000 01267 000000 02073000 01270 000000 02074000 01271 001066 02075000 01272 001066 02076000 01273 001066 02077000 01274 001066 02078000 01275 001066 02079000 01276 001066 02080000 01277 001066 02081000 01300 001066 02082000 01301 001066 02083000 01302 001066 02084000 01303 001066 02085000 01304 001066 02086000 01305 001066 02087000 01306 001066 02088000 01307 001066 02089000 01310 001066 02090000 01311 001066 02091000 01312 001066 02092000 01313 001066 02093000 01314 001066 02094000 01315 001066 02095000 01316 001066 02096000 01317 001066 02097000 01320 001066 02098000 01321 001066 02099000 01322 001066 02100000 01323 003001 02101000 01324 004053 02102000 01325 003404 02103000 01326 000400 02104000 01327 000000 02105000 01330 000000 02106000 01331 000400 02107000 01332 000400 02108000 01333 000400 02109000 01334 000400 02110000 01335 000400 02111000 01336 000400 02112000 01337 000400 OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT NOP NOP OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT NOP NOP OCT OCT OCT OCT OCT OCT OCT 1,568,094 TABLES

2062 060 2062 061 2062 062 2062 063 2062 064 2062 065 2062 066 2062 067 2062 070 2062 071 3015 072 3010 073 0400 074 0400 075 0400 076 077 1066 101 1066 102 1066 103 1066 104 1066 105 1066 106 1066 107 1066 110 1066 111 1066 112 1066 113 1066 114 1066 115 1066 116 1066 117 1066 120 1066 121 1066 122 1066 123 1066 124 1066 125 1066 126 1066 127 1066 130 1066 131 1066 132 3001 133 4053 134 3404 135 0400 136 137 0400 141 0400 142 0400 143 0400 144 0400 145 0400 146 0400 147 4 50 0 4 50 1 4 50 2 4 50 3 4 50 4 4 50 5 4 50 6 4 50 7 4 50 8 4 50 9 6 13 6 8:

I < 1 > 2 54 A 2 54 B 2 54 C 2 54 D 2 54 E 2 54 F 2 54 G 2 54 H 2 54 I 2 54 J 2 54 K 2 54 L 2 54 M 2 54 N 2 54 O 2 54 P 2 54 Q 2 54 R 2 54 S 2 54 T 2 54 U 2 54 V 2 54 W 2 54 X 2 54 Y 2 54 Z 6 1 l 8 43 SQR 7 4 1 1 A 1 L C A 1 L C B 1 L C C I L C D I L C E I L C F I L C G 78 Page 26 02113000 01340 000400 02114000 01341 000400 02115000 01342 000400 02116000 01343 000400 02117000 01344 000400 02118000 01345 000400 02119000 01346 000400 02120000 01347 000400 02121000 01350 000400 02122000 01351 000400 02123000 01352 000400 02124000 01353 000400 02125000 01354 000400 02126000 01355 000400 02127000 01356 000400 02128000 01357 000400 02129000 01360 000400 02130000 01361 000400 02131000 01362 000400 02132000 01363 004422 02133000 01364 000000 02134000 01365 003016 02135000 01366 000400 02136000 01367 003031 OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT NOP OCT OCT OCT 1,568,094 TABLES

0400 0400 0400 0400 0400 0400 0400 0400 0400 0400 0400 0400 0400 0400 0400 0400 0400 0400 0400 4422 3016 0400 3031 151 152 153 154 156 157 161 162 163 164 166 167 171 172 173 174 176 177 1 L C H 1 L C I 1 L C J 1 L C K I L C L 1 L C M 1 L C N I L C O I L C P 1 L C Q I L C R I L C S 1 L C T 1 L C U I L C V 1 L C W I L C X 1 L C Y 1 L C Z 9 18 Pl 6 14 GAZINTA 1 SIGMA 6 25 EOL 79 Page 27 02138000 02139000 02140000 02141000 02142000 02143000 01370 004063 02144000 01371 003027 02145000 01372 003027 02146000 01373 004422 02147000 01374 003041 02148000 01375 004063 02149000 01376 003047 02150000 01377 003047 02151000 01400 003047 02152000 01401 003047 02153000 01402 003047 02154000 01403 003047 02155000 01404 003027 02156000 01405 003027 02157000 01406 003027 02158000 01407 003027 02159000 01410 003057 02160000 01411 003035 02161000 01412 003035 02162000 01413 003035 02163000 01414 003035 02164000 01415 003035 02165000 01416 003041 02166000 01417 003030 02167000 01420 003046 02168000 01421 003046 02169000 01422 003042 02170000 01423 003054 02171000 01424 003035 02172000 01425 003054 02173000 01426 003054 02174000 01427 003036 02175000 01430 003021 02176000 01431 003027 02177000 01432 003027 02178000 01433 003027 02179000 01434 003054 02180000 01435 003050 02181000 01436 003026 02182000 01437 003060 02183000 01440 003060 02184000 01441 003060 02185000 01442 003060 02186000 01443 003060 02187000 01444 003060 02188000 01445 003030 02189000 01446 004053 02190000 01447 003055 02191000 01450 003055 02192000 01451 003055 02193000 01452 004051 1,568,094 TABLES

MNEMONICTABLE

MNEMONIC TABLE L H =CLASS OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT R.H = TOKEN 4063 3027 3027 4422 3041 4063 3047 3047 3047 3047 3047 3047 3027 3027 3027 3027 3057 3035 3035 3035 3035 3035 3041 3030 3046 3046 3042 3054 3035 3054 3054 3036 3021 3027 3027 3027 3054 3050 3026 3060 3060 3060 3060 3060 3060 3030 4053 3055 3055 3055 4051 LC P ( 65) TLIST ( 64) LISTK ( 63) RES ( 62) LIST ( 61) L.C R ( 60) = ( 59) > ( 58) < ( 57) ≥ ( 56) ≤ ( 55) # ( 54) LKE ( 53) LKD ( 52) AVE ( 51) AVD ( 50) VFY ( 49) LDB ( 48) LDK ( 47) RCK ( 46) LDM ( 45) RCM ( 44) LDP ( 43) ENP ( 42) LDF ( 41) RCF ( 40) MRK ( 39) ERT ( 38) FDF ( 37) TRK ( 36) SSC ( 35) IDF ( 34) XOR ( 33) REW ( 32) END ( 31) BEEP ( 30) WAIT ( 29) RET ( 28) DIM ( 27) GSB ( 26) GTO ( 25) GSB+ ( 24) GSB ( 23) GTO+ ( 22) GTO ( 21) ENT ( 20) FLG ( 19) STP ( 18) NOR ( 17) TRC ( 16) DRND ( 15) 1,568,094 Page 28 02194000 01453 004051 02195000 01454 003052 02196000 01455 003052 02197000 01456 003052 02198000 01457 003040 02199000 01460 003035 02200000 01461 003035 02201000 01462 003035 02202000 01463 003043 02203000 01464 003024 02204000 01465 003021 02205000 01466 003045 02206000 01467 003045 02207000 01470 003054 02208000 001471 MNTBL 02209000 01471 064546 02210000 01472 020201 02211000 01473 070162 02212000 01474 072040 02213000 01475 101144 02214000 01476 071560 02215000 01477 020203 02216000 01500 020157 02217000 01501 071040 02218000 01502 102040 02219000 01503 060556 02220000 01504 062040 02221000 01505 102556 02222000 01506 067564 02223000 01507 020206 02224000 01510 020170 02225000 01511 067562 02226000 01512 020241 02227000 01513 063170 02228000 01514 062040 02229000 01515 103546 02230000 01516 066164 02231000 01517 020210 02232000 01520 071560 02233000 01521 061440 02234000 01522 104552 02235000 01523 066560 02236000 01524 020212 02237000 01525 071546 02238000 01526 063440 02239000 01527 105543 02240000 01530 063147 02241000 01531 020214 02242000 01532 061555 02243000 01533 063040 02244000 01534 106560 02245000 01535 071156 02246000 01536 062216 02247000 01537 062162 02248000 01540 067144 02249000 01541 107564 OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT EQU DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC OCT OCT OCT DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC TABLES

4051 PRND 3052 CMF 3052 CFG 3052 SFG 3040 JMP 3035 SPC 3035 FLT 3035 FXD 3043 NOT 3024 AND 3021 OR 3045 DSP 3045 PRT 3054 IF 26982 I 08321 28786 P 29728 T -32156 ( 02) 29552 S 08323 08303 29216 R -31712 ( 04) 24942 A 25632 D -31378 ( 05) 28532 O 08326 020170 067562 O 020241 26232 F 25632 D -30874 ( 07) 27764 L 08328 29552 S 25376 C -30358 ( 09) 28016 M 08330 29542 S 26400 G -29853 ( 11) 26215 F 08332 25453 C 26144 F -29328 ( 13) 29294 R 25742 D 25714 D 28260 N -28812 ( 15) ( 14) ( 13) ( 12) ( 11) ( 10) ( 09) ( 08) ( 07) ( 06) ( 05) ( 04) ( 03) ( 02) ( 01) F ( 01) R D P ( 03) N N T ( 06) X R ( 33) X F T ( 08) P J P ( 10) F C G ( 12) M P N ( 14) R D T 1,568,094 TABLES

01542 071143 01543 020220 01544 067157 01545 071040 01546 110563 01547 072160 01550 020222 01551 063154 01552 063623 01553 062556 01554 072040 01555 112147 01556 072157 01557 020055 01560 112547 01561 072157 01562 020053 01563 113147 01564 071542 01565 020055 01566 113547 01567 071542 01570 020053 01571 114147 01572 072157 01573 020231 01574 063563 01575 061040 01576 115144 01577 064555 01600 020233 01601 073541 01602 064564 01603 020235 01604 061145 01605 062560 01606 117145 01607 067144 01610 117562 01611 062567 01612 120151 01613 062146 01614 020242 01615 071563 01616 061440 01617 121564 01620 071153 01621 020244 01622 063144 01623 063040 01624 122545 01625 071164 01626 020246 01627 066562 01630 065440 01631 123562 DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC OCT DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC 29283 R 08336 28271 N 29216 R -28301 ( 17) 29808 T 08338 26220 F 26515 G 25966 E 29728 T -27545 ( 20) 29807 T 08237 -27289 ( 21) 29807 T 08235 -27033 ( 22) 29538 S 08237 -26777 ( 23) 29538 S 08235 -26521 ( 24) 29807 T 08345 26483 G 25120 B -26012 ( 26) 26989 I 08347 30561 W 26996 I 08349 25189 B 25968 E -24987 ( 30) 28260 N -24718 ( 31) 25975 E 120151 ( 32) 25702 D 08354 29555 S 25376 C -23692 ( 35) 29291 R 08356 26212 F 26144 F -23195 ( 37) 29300 R 08358 28018 M 27424 K -22670 ( 39) Page 29 02250000 02251000 02252000 02253000 02254000 02255000 02256000 02257000 02258000 02259000 02260000 02261000 02262000 02263000 02264000 02265000 02266000 02267000 02268000 02269000 02270000 02271000 02272000 02273000 02274000 02275000 02276000 02277000 02278000 02279000 02280000 02281000 02282000 02283000 02284000 02285000 02286000 02287000 02288000 0228900 02290000 02291000 02292000 02293000 02294000 02295000 02296000 02297000 02298000 02299000 02300000 02301000 02302000 02303000 02304000 02305000 C ( 16) S P ( 18) L ( 19) N G G 0 + G B G B + G 0 ( 25) S D M ( 27) A T ( 29) E P E D R W I F ( 34) S T K ( 36) D E T ( 38) R R 1,568,094 Page 30 02306000 01632 061546 02307000 01633 020250 02308000 01634 066144 02309000 01635 063040 02310000 01636 124562 02311000 01637 062564 02312000 01640 020234 02313000 01641 066144 02314000 01642 070040 02315000 01643 125562 02316000 01644 061555 02317000 01645 020254 02318000 01646 066144 02319000 01647 066440 02320000 01650 126562 02321000 01651 061553 02322000 01652 020256 02323000 01653 066144 02324000 01654 065440 02325000 01655 127554 02326000 01656 062142 02327000 01657 020260 02328000 01660 073146 02329000 01661 074440 02330000 01662 130541 02331000 01663 073144 02332000 01664 131141 02333000 01665 073145 02334000 01666 131554 02335000 01667 065544 02336000 01670 020264 02337000 01671 021666 02338000 01672 036076 02339000 01673 133076 02340000 01674 036266 02341000 01675 036075 02342000 01676 133475 02343000 01677 036267 02344000 01700 037075 02345000 01701 134075 02346000 01702 037270 02347000 01703 036271 02348000 01704 037272 02349000 01705 036673 02350000 01706 066153 02351000 01707 062440 02352000 01710 132562 02353000 01711 062563 02354000 01712 137162 02355000 01713 136154 02356000 01714 064563 02357000 01715 072040 02358000 01716 065677 02359000 01717 072154 02360000 01720 064563 02361000 01721 072300 DEC DEC DEC DEC DEC OCT OCT OCT OCT DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT TABLES

25446 C 08360 27748 L 26144 F -22158 ( 41) 062564 E 020234 066144 L 070040 P -21646 ( 43) 25453 C 08364 27748 L 27936 M -21134 ( 45) 25451 C 08366 27748 L 27424 K -20628 ( 47) 25698 D 08368 30310 V 31008 Y -20127 ( 49) 30308 V -19871 ( 50) 30309 V 131554 ( 51) 065544 K 020264 021666# 036076 < 133076 ( 54) 036266 < 036075 < 133475 ( 55) 036267 < 037075 > 134075 ( 56) 037270 > 036271 < 037272 > 036673 = 066153 L 062440 E 132562 ( 53) 062563 E 137162 ( 62) 136154 ( 60) 064563 I 072040 T 065677 K 072154 T 064563 I 072300 T F ( 40) D R T ( 28) D R M ( 44) D R K ( 46) D L B ( 48) F A D A E L D ( 52) ( 54) ( 54) ( 55) ( 56) ( 57) ( 58) ( 59) K R S R L S ( 63) L S ( 64) 83 Page 31 02362000 01722 02363000 01723 02364000 01724 02365000 01725 02366000 01726 02367000 01727 02368000 01730 02369000 01731 Page 32 02371000 02372000 02373000 02374000 02375000 02376000 02377000 1,568,094 TABLES

070301 066151 071564 020275 062556 070040 125200 000000 OCT OCT OCT OCT OCT OCT OCT NOP 070301 P 066151 L 0715645 020275 062556 E 070040 P 125200 ( 42) ( 65) I T ( 61) N TABLES FOR COMPILER PARSE TABLES EQUATES NEEDED BY PARSER EQUATES NEEDED BY PARSER 000210 000274 000302 MAXR MAXL MAXP EQU 136 EQU 188 EQU 194 SUP 02379000 01732 002010 READX 02380000 01742 031306 02381000 01752 042071 02382000 01762 053103 02383000 01772 063115 02384000 02002 012025 02385000 02012 061112 02386000 02022 006023 02387000 02032 056225 02388000 02042 003016 02389000 02052 056225 02390000 02062 022415 02391000 02072 066424 02392000 02102 056225 02393000 02112 004502 02394000 02122 063115 0239500002132 061112 02396000 02142 061112 02397000 02152 034064 02398000 02162 065436 02399000 02172 043072 02400000 02202 065436 02401000 02212 001004 02402000 02222 016047 02403000 02232 030061 02404000 02242 042071 02405000 02252 053103 02406000 02262 063115 02407000 02272 005020 02408000 02302 004447 02409000 02312 017052 02410000 02322 027321 02411000 02332 040067 02412000 02342 051101 02413000 02352 061112 02414000 02362 014037 02415000 02372 014034 02416000 02402 014034 02417000 02412 014033 DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC 1032,1550,5141,9485,10799,11312,11985,12337 12998,13362,13875,14388,14989,15502, 16439, 17039 17465,17978,18491,19088,19601,20626,21057,21651 22083,22596,23188,23701,24215,24649,25162,25868 26189,26776,27290,27924,28900,1032,1550,3090 5141,9485,13362,14388,17978,21057,22083,23701 25162,25868,26189,26776,27422,27924,1032,1550 3091,5141,9485,13362,14388,17978,21057,22083 23701,25162,25868,26189,26776,27422,27924,1032 1550,5141,9485,13362,14388,17978,21057,22083 23701,25162,25868,26189,26776,27422,27924,1032 9485,13362,21057,22083,23701,25162,25868,26189 27924,1032,1550,5141,9485,13362,21057,22083 23701,25162,25868,26189,27,924,14388,26776,27422 2370,2371,25162,26189,26776,27441,27924,25162 26189,26776,27924,26776,23702,25163,26703,27942 25162,26189,26776,27440,27924,1161,27982,1162 25162,26189,27924,1032,1550,5141,9485,13362 14388,21057,22083,23701,25162,25868,26189,26776 27422,27924,1032,1550,5141,9485,13362,14388 17978,21057,22083,23701,25164,25868,26189,26777 27422,27924,1035,1036,1037,25816,27351,514 516, 518, 515, 517, 519, 6853, 7206, 8748 7207,1032,1550,5141,9485,10799,11312,11985 12337,13362,13875,14388,14989,15502,16439,17039 17465,17978,18491,19088,19601,20626,21057,21651 22083,22596,23188,23701,24215,24649,25162,25868 26189, 26776, 27422, 27924, 28900, 2576, 7208, 20030 2576,20030,7209,1551,5142,20031,3089,5655 2343,6180,6283,6168,6169,6170,4301,12999 7722,9773,1032,1550,5141,9485,10799,11312 11985,12337,12998,13362,13875,14388,14989,15502 16439,17039,17465,17978,18491,19088, 19601, 20626 21057,21651,22083,22596,23188,23701,24215,26649 25162,25868,26189,26776,27422,27924,28900,6173 6175,13000,3854,6174,6177,6179,6693,3856 6172,3859,6172,2325,6172,2337,6172,3818 6172,2344,6172,3857,6284,3871,6284,8235 6171,10286,20301,4628 1,568,094 TABLES FOR COMPILER PARSE TABLES 02419000 02416 02420000 02426 02421000 02436 02422000 02446 02423000 02456 02424000 02466 02425000 02476 02426000 02506 02427000 02516 02428000 02526 02429000 02536 02430000 02546 02431000 02556 02432000 02566 02433000 02576 02434000 02606 02436000 02616 02437000 02626 02438000 02636 02439000 02646 02440000 02656 02441000 02666 02442000 02676 02443000 02706 02444000 02716 02445000 02726 02446000 02736 02447000 02746 02448000 02756 02449000 02766 02450000 02776 02451000 03006 02452000 03016 02453000 03026 02454000 03036 007275 LOOKX 031277 010341 010322 010302 031337 016123 016126 000427 000430 003141 000377 014150 014163 020200 024204 000000 APPLY 000311 075442 052512 042500 000236 000365 000250 000273 046361 037474 100240 040240 031463 044452 000257 000172 042476 073350 DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC 3773,6333,9,3774,6334,10,4287,6335 12991,32,3776,6336,34,4313,13017,53 4321,13025,54,13037,56,4317,13021,60 4306,13010,61,12993,64,4315,13019,66 4290,12994,69,1094,274,1095,233,4319 13023,72,590,288,592,288,6737,286 7251,8787,206,7252,8788,239,7253,207 7254,240,4325,13029,88,2650,7258,20058 279,2651,251,2652,253,7261,230,7262 280,1631,5215,20063,249,1632,5216,252 1633,5217,250,3170,5730,254,3171,5731 255,3172,5732,256,6246,211,6247,212 6248,213,7787,329,6254,308,6255,222 6259,327,6773,299,6263,238,6264,220 8320,260,8321,261,8322,262,6275,226 10372,243,10373,244,4743,263,4744,264 0,109,-9532,195,106,112,87,-20790 201,-20788,203,4209,27354,28395,29298,31035 31522,-32448,-30512,-30031,4928,5440 5748,2226 21834,23371,-23220,14648,15670,16187,16704,17224 17728,18038,18610,19244,311,669,-9571,-20835 158,667,-9573,-20837,156,22714,185,23798 245,29944,247,31910,32423,165,7849,11434 168,8962,12035,257,7350,10935,181,22204 187,-30961,-25834,10506,265,25394,27972,-28448 19697,20210,13106,13618,14149,15157,267,31036 16188,321,675,-9565,-20829,164,671,30880 -32608,-9569,4768,5280,31905,32418,-20833,16032 16544,17568,89,8476,283,25395,20761,21274 13107,13619,285,171,172,12581,292,101 18730,297,173,105,13102,13615,301,214 175,28851,-31564,6265,1659,6780,2685,3707 122,176,16186,313,5247,126,-32532,16675 17726,317,184,227,231,174,108,82 30440,134 Page 33 1,568,094 TABLES FOR COMPILER PARSE TABLES 02456000 03040 000245 INDEX 02457000 03050 046620 02458000 03060 030414 02459000 03070 034605 02460000 03100 022020 02461000 03110 037001 02462000 03120 040205 02463000 03130 022020 02464000 03140 052601 02465000 03150 053402 02466000 03160 055401 02467000 03170 070202 02468000 03200 071002 02469000 03210 073401 0247000 03220 106601 02471000 03230 110402 02472000 03240 114001 DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC 02473000 03250 000203 02474000 03260 006203 02475000 03270 013202 02476000 03300 020402 02477000 03310 025603 02478000 03320 032202 02479000 03330 036202 DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC 02480000 03340 117700 02481000 03350 001200 02482000 03360 002000 02483000 03370 002000 02484000 03400 002000 02485000 03410 002001 02486000 03420 011402 02487000 03430 014400 02488000 03440 015600 02489000 03450 020000 02490000 03460 020403 02491000 03470 024602 02492000 03500 031403 02493000 03510 034000 02494000 03520 035002 02495000 03530 040400 02496000 03540 041600 02497000 03550 043200 02499000 03556 165,9232,9232,9232,9232,4881,7057,9232 19856,19856,9232,9232,9232,11274,12556,14083 12556,14465,14593,11274,11274,12556,12556,16131 14725,15364,17539,9232,17539,9232,9232,19856 9232,19856,9232,9232,9232,17539,17539,15873 15873,9232,11274,9232,9232,9232,16001 16131 16517,17153,17281,17409,9232,17539,9232,9232 9232,17935,17281,9232,9232,17935,17935,19856 21889,9232,11274,9232,9232,22017,22145,17539 22274,22529,22657,22785,11274,22913,23041,23169 23297,9232,23426,23426,23681,23681,23844,28419 28802,28419,28417,28417,29057,29057,29187,29186 29186,29570,29570,29570,29826,30081,30209,30337 30465,30594,30849,30977,31141,-29695,-29567,-29439 -29311,-29183,-29055,-28927,-28799,-28671, -28543,-28543 -28414,-28158,-27902,-27646,-27390,-27134, -26878,-26623 -26623,-26623,-26495,-26367,-26367,-26239, -26111,-26111 131,515,900,1411,1795,2179,2562,2819 3203,3586,3843,4227,4610,4866,5123,5506 5762,6018,6275,6659 7042,7298,7555,7940 8450,8706,8962,9218,9476,9987,10371,10755 11139,11523,11906,12162,12418,12674,12930,13186 13442,13698,13954,14210,14466,14722,14978,15234 15490,15746,16002,16258,-24695,-24694,-24672, -24670 -24640,-23739,128,129,257,384,385,385 640,642,768,770,896,1024,1024,1025 1024,1024,1025,1025,1025,1025,1025,1025 1024,1025,1024,1025,1024,1025,1024,1025 1024,1025,1025,1024,1024,1024,1025,1025 1025,1028,1281,1281,1280,1281,1536,1536 4866,4866,5376,5378,5888,5890 6144,6145 6400,6402,6402,6402,6402,6656,6658,6658 7040,7042,7042,7424,7425,7425,7808,7810 8192,8194,8448,8448,8448,8450,8449,8453 8451,8448,8451,8960,8963,8961,10240,10240 10626,10626,11136,11138,12800,12800,12803,13056 13059,13824,13826,13952,13954,14080,14083,14083 14336,14338,14464,14466,14720,14722,14722,14848 14850,14976,14976,15360,15362,15490,15616,15618 16640,16642,16768,16768,17024,17026,17280,17280 17280,17283,17283,17792,17794,17920,17920,17922 18048,18050,18178, 18306,18432,18560 BSS I RESERVED FOR 2 K-PAGE CHECKSUM BSS 5 RESERVED FOR TABLE EXPANSION Page 34 02501000 03557 1,568,094 SYNTHESIZE JUMP TABLE 02503000 02504000 02505000 02506000 03564 004543 02507000 03565 004543 02508000 03566 004740 02509000 03567 004631 02510000 03570 004631 02511000 03571 004631 02512000 03572 004543 02513000 03573 004543 02514000 03574 004543 02515000 03575 004543 02516000 03576 004631 02517000 03577 004644 02518000 03600 004543 02519000 03601 004627 02520000 03602 004631 02521000 03603 994672 02522000 03604 004627 02523000 03605 004627 02524000 03606 004627 02525000 03607 004627 02526000 03610 005012 02527000 03611 005021 02528000 03612 004672 02529000 03613 004627 02530000 03614 004672 02531000 03615 004627 02532000 03616 004672 02533000 03617 004627 02534000 03620 004672 02535000 03621 004627 02536000 03622 004672 02537000 03623 004627 02438000 03624 004627 02539000 03625 005041 02540000 03626 004663 02541000 03627 004543 02542000 03630 004627 02543000 03631 004627 02544000 03632 177521 02545000 03633 177522 02546000 03634 004627 02547000 03635 004627 02548000 03636 004672 02549000 03637 004627 02550000 03640 004543 02551000 03641 004543 02552000 03642 004627 02553000 03643 004627 02554000 03644 004543 02555000 03645 004627 02556000 03646 004543 02557000 03647 004627 02558000 03650 004543 SYNTHESIZE JUMP TABLE SYNJP DEF APLI 1 DEF APLI 2 DEF OLABL 3 DEF OUTI 4 DEF OUTI 5 DEF OUTI 6 DEF APLI 7 DEF APLI 8 DEF APLI 9 DEF APLI 10 DEF OUTI 11 DEF IMSTZ 12 DEF APLI 13 DEF OUT 2 14 DEF OUTI 15 DEF OEMTY 16 DEF OUT 2 17 DEF OUT 2 18 DEF OUT 2 19 DEF OUT 2 20 DEF BRSTR 21 DEF BRNUM 22 DEF OEMTY 23 DEF OUT 2 24 DEF OEMTY 25 DEF OUT 2 26 DEF OEMTY 27 DEF OUT 2 28 DEF OEMTY 29 DEF OUT 2 30 DEF OEMTY 31 DEF OUT 2 32 DEF OUT 2 33 DEF LITRL 34 DEF IMDSP 35 DEF APLI 36 DEF OUT 2 37 DEF OUT 2 38 DEF AP 36,I 39 DEF AP 37,I 40 DEF OUT 2 41 DEF OUT 2 42 DEF OEMTY 43 DEF OUT 2 44 DEF APLI 45 DEF APLI 46 DEF OUT 2 47 DEF OUT 2 48 DEF APLI 49 DEF OUT 2 50 DEF APLI 51 DEF OUT 2 52 DEF APLI 53 Page 35 UDF CALL UDF CALL Page 36 SYNTHESIZE JUMP TABLE 02559000 03651 004627 DEF OUT 2 54 02560000 03652 004543 DEF APLI 55 02561000 03653 004627 DEF OUT 2 56 02562000 03654 004627 DEF OUT 2 57 02563000 03655 004627 DEF OUT 2 58 02564000 03656 004627 DEF OUT 2 59 02565000 03657 004543 DEF APLI 60 02566000 03660 004627 DEF OUT 2 61 02567000 03661 004627 DEF OUT 2 62 02568000 03662 004543 DEF APLI 63 02569000 03663 004627 DEF OUT 2 64 02570000 03664 004627 DEF OUT 2 65 02571000 03665 004543 DEF APLI 66 02572000 03666 004543 DEF APLI 67 02573000 03667 004670 DEF UNARY 68 02574000 03670 004543 DEF APLI 69 02575000 03671 004627 DEF OUT 2 70 02576000 03672 004543 DEF APLI 71 02577000 03673 004627 DEF OUT 2 72 02578000 03674 004543 DEF APLI 73 02579000 03675 004703 DEF ONUMB 74 02580000 03676 004631 DEF OUTI 75 02581000 03677 004543 DEF APLI 76 02582000 03700 004627 DEF OUT 2 77 02583000 03701 004675 DEF OROUN 78 02584000 03702 004623 DEF OUT 4 79 02585000 03703 177523 DEF AP 77,I 80 UDF FCN 02586000 03704 177524 DEF AP 78,I 81 UDF FCN 02587000 03705 004631 DEF OU Ti 82 02588000 03706 004623 DEF OUT 4 83 02589000 03707 004627 DEF OUT 2 84 02590000 03710 004543 DEF APLI 85 02591000 03711 004543 DEF APLI 86 02592000 03712 005037 DEF STRAS 87 02593000 03713 005037 DEF STRAS 88 02594000 03714 004543 DEF APLI 89 02595000 03715 004627 DEF OUT 2 90 02596000 03716 004543 DEF APLI 91 02597000 03717 004744 DEF OSTRG 92 02598000 03720 004623 DEF OUT 4 93 02599000 03721 004631 DEF OUTI 94 02600000 03722 004623 DEF OUT 4 95 02601000 03723 004543 DEF APLI 96 02602000 03724 004627 DEF OUT 2 97 02603000 03725 004543 DEF APLI 98 02604000 03726 004627 DEF OUT 2 99 02605000 03727 004774 DEF ODIME 100 02606000 03730 004777 DEF ODIML 101 02607000 03731 004777 DEF ODIML 102 02608000 03732 004543 DEF APLI 103 02609000 03733 005077 DEF OSCOM 104 02610000 03734 004543 DEF APLI 105 02611000 03735 004627 DEF OUT 2 106 02612000 03736 004543 DEF APLI 107 02613000 03737 004627 DEF OUT 2 108 02614000 03740 004627 DEF OUT 2 109 1,568,094 1,568,094 Page 37 SYNTHESIZE JUMP TABLE 02615000 03741 004744 DEF OSTRG 110 02616000 03742 004747 DEF ESTRG 111 02617000 03743 004543 DEF APLI 112 02618000 03744 004543 DEF APLI 113 02619000 03745 004543 DEF APLI 114 02620000 03746 004627 DEF OUT 2 115 02621000 03747 004627 DEF OUT 2 116 02622000 03750 004543 DEF APLI 117 02623000 03751 004627 DEF OUT 2 118 02624000 03752 004543 DEF APLI 119 02625000 03753 004627 DEF OUT 2 120 02626000 03754 004543 DEF APLI 121 02627000 03755 004543 DEF APLI 122 02628000 03756 004543 DEF APLI 123 02629000 03757 004627 DEF OUT 2 124 02630000 03760 004631 DEF OUTI 125 02631000 03761 004543 DEF APLI 126 02632000 03762 004543 DEF APLI 127 02633000 03763 004700 DEF ARREF 128 02634000 03764 004700 DEF ARREF 129 02635000 03765 004543 DEF APLI 13002636000 03766 004627 DEF OUT 2 131 02637000 03767 004631 DEF OUTI 132 02638000 03770 004543 DEF APLI 133 02639000 03771 004627 DEF OUT 2 134 02640000 03772 004543 DEF APLI 135 02641000 03773 004627 DEF OUT 2 136 02642000 03774 004627 DEF OUT 2 137 02643000 03775 004627 DEF OUT 2 138 02644000 03776 177525 DEF AP 136,I 139 FOR= 02645000 03777 004631 DEF OUTI 140 89 Page 38 02647000 02648000 02649000 02650000 02651000 02652000 02653000 02654000 02655000 02656000 02657000 02659000 02660000 02661000 02662000 02663000 02664000 02665000 02666000 02667000 02668000 02669000 02670000 0267100002672000 02673000 02674000 02675000 04000 074560 02676000 04001 050053 02677000 04002 010117 02678000 04003 067000 02679000 02680000 04004 007012 02681000 04005 024000 02682000 04006 104001 02683000 04007 035244 02684000 04010 174507 02685000 04011 170201 1,568,094 COMPILER COMPILER W F C.

ON ENTRY:

KEYBOARD BUFFER CONTAINS SOURCE LINE ON EXIT:

COMPILE BUFFER CONTAINS COMPILED LINE READER FOR SCANNER ON ENTRY:

C-REGISTRATION POINTS TO INPUT AREA ON EXIT:

A-REGISTER=CHARACTER B-REGISTER=CLASS FROM CTBL CTBL WORD SAVED IN CT 2 BLANKS ARE IGNORED READ 2 WBC AI GET NEXT CHARACTER AND B 177 CPA B 40 JMP -3 JUMP IF TO BE SKIPPED LDB ACTBL GET CTBL ORIGIN ADB A LDB B,I GET CTBL WORD STB CT 2 SBR 8 GET LEFT BYTE=CLASS RET 1 1,568,094 COMPILER POINTERS AND EQUATES as DEF DEF DEF DEF DEF DEF EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU CTBL INDEX-I READX-1 LOOKX-1 APPLY-I 1 SYNJP,I CMTMP+ 4 CMTMP+ 5 CMTMP+ 6 CMTMP+ 7 CMTMP+ 8 CMTMP+ 9 CMTMP+ 10 CMTMP+ 11 CMTMP+ 12 77772 B EX+I ES+ 2 EX+ 3 EX+ 4 ES+ 5 ADDRESS OF CLASS TABLE ADDRESS OF INDEX TABLE ADDRESS OF READ TABLE ADDRESS OF LOOK TABLE ADDRESS OF APPLY TABLE ADDRESS OF SYNTHESIZE JUMP TABLE TEMPORARY TEMPORARY TEMPORARY TEMPORARY TEMPORARY NO-LOOK-AHEAD-DONE PARSER-STATE INDEX 1 INDEX 2 EXPONENT SIGN DIGIT COUNTER SIGNIFICANT-DIGITS FLAG PART OF EXPONENT PART OF EXPONENT DECIMAL-POINT FLAG 02714000 02715000 SE 02716000 02717000 04020 005241 SET 02718000 04021 034016 02719000 02720000 04022 004016 SEI 02721000 04023 035316 02722000 04024 074560 02723000 04025 050053 02724000 04026 010117 02725000 04027 067022 02726000 04030 010053 02727000 04031 067033 02728000 04032 164404 02729000 02730000 04033 054016 SE 2 02731000 04034 035316 SE 3 02732000 04035 004016 02733000 04036 074760 02734000 04037 050053 02735000 04040 010117 02736000 04041 067034 02737000 04042 164404 ET C-REGISTER FOR COMPILATION ERROR CE LDB OLDC STB C LDB STB WBC AND CPA JMP CPA JMP JMP DSZ STB LDB WBC AND CPA JMP JMP C CERR A,I B 177 B 40 SEI B 177 SE 2 AERRI,I C CERR C A,D B 177 B 40 SE 3 AERRI,I RESTORE ANCIENT C TENTATIVE CURSOR POSITION TEST FOR BLANK OR EOL BLANK, KEEP LOOKING EOL, GO THE OTHER WAY BLANK, KEEP LOOKING 04012 04013 04014 04015 04016 04017 001170 003037 001731 002415 002615 103564 Page 39 02687000 02688000 02689000 02690000 02691000 02692000 02693000 02694000 02695000 02696000 02697000 02698000 02699000 02700000 02701000 02702000 02703000 02704000 02705000 02706000 02707000 02708000 02709000 02710000 02711000 02712000 ACTBL AINDX AREED ALOOK AAPLY ASYJP CTI CT 2 CT 3 CT 4 CT 5 NLOOK STATE IXI IX 2 ES DC SD M EX DP 077243 077244 077245 077246 077247 077250 077251 077252 077253 077772 077773 077774 077775 077776 077777 1,568,094 COMPILER SCANNER )2739000 )2740000 SCA 32741000 12742000 ON I 32743000 D 2744000 TKN )2745000 BCE 2746 Q 00 D 2747000 04043 004016 SCAN 02748000 04044 035241 02749000 04045 043000 D 2750000 04046 031240 D 2751000 04047 000016 D 2752000 04050 031243 02753000 02754000 04051 001244 SCI 02755000 04052 050045 02756000 04053 031237 02757000 02758000 04054 027056 02759000 04055 164001 02760000 02761000 04056 104057 AJI 02762000 02763000 04057 004522 02764000 04060 004125 0276000 04061 004100 02766000 04062 004251 02767000 04063 004071 02768000 04064 004071 02769000 04065 004122 02770000 04066 004110 02771000 04067 004112 02772000 04070 004106 NNER EXIT:

1 = TOKEN (FROM CTBL) ) = CHARACTER LDH STB JSM STA LDA STA LDA AND STA C OLDC READ 2 BCD C CTI 1 CT 2 B 377 TKN ADB AJ 1 JMP B,I DEF + 1,I DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF E 7 SL 2 TYPEL SQ 1 TYPEN TYPEN TYPEA TYPEB TYPEC TYPED READ FROM INPUT SAVE C+ 1 RECALL CTBL INFORMATION SAVE TOKEN BRANCH VIA JMP TABLE JMPTABLE#1

0 UNDEFINED CODE 1 SPECIAL MNEMONIC 2 LETTER 3 QUOTE 4 DIGIT DECIMAL POINT 6 SPECIAL CHARACTER 7 SPECIAL CHARACTER 8 SPECIAL CHARACTER 9 SPECIAL CHARACTER 91 Page 40 Page 41 02774000 02775000 02776000 02777000 04071 02778000 04072 02779000 04073 02780000 04074 02781000 04075 02782000 04076 02783000 04077 1,568,094 COMPILER SCANNER NUMERIC 001242 TYPEN 072022 045242 043274 043020 E 6 030066 170201 LDA RZA ISZ JSM JSM ASC RET ISTAR TY 1 ISTAR SNI SETCE 1,06 TEST I FLAG SET IT CALL NUMBER BUILDER ERROR, SYNTAX ERROR IN NUMBER 02785000 02786000 02787000 02788000 04100 02789000 04101 02790000 04102 02791000 04103 02792000 04104 02793000 04105 02794000 02795000 02796000 02797000 02798000 02799000 04106 02800000 04107 02801000 04110 02802000 04111 02803000 02804000 04112 02805000 04113 02806000 04114 02807000 04115 02808000 04116 02809000 04117 02810000 04120 02811000 04121 02812000 02813000 04122 02814000 04123 02815000 04124 LETTER 043000 TYPEL 010114 067225 074761 010070 067240 001242 072005 045242 170201 001242 072411 001241 030016 000127 031237 031240 JSM CPA JMP WBC CPA JMP READ 2 844 STL B,D B 133 SSL SPECIAL CHARACTER TYPED TYPEB TYPEC TY 1 000177 TYPEA 031242 170201 TY 2 LDA HZA ISZ RET LDA SZA LDA STA LDA STA LDA STA LDA STA RET ISTAR TYI ISTAR ISTAR TY 2 OLDC C P 16 TKN P 31 BCD PO ISTAR I LOOK AHEAD JUMP IF FOLLOWED BY $ JUMP IF FOLLOWED BY l FALL THRU (EITHER SIDE OF I) (LEFT SIDE OF I) (RIGHT SIDE OF I) RESTORE C TKN FOR I BCD FOR I (NEITHER SIDE OF I) 1,568,094 COMPILER SCANNER 04125 004017 04126 035244 04127 004327 04130 035245 04131 105245 04132 045245 04133 076476 04134 014257 04135 067223 04136 024254 04137 104001 04140 014257 04141 067131 04142 176202 04143 140001 04144 035712 04145 034017 04146 073770 04147 005243 04150 034016 04151 074761 04152 074570 04153 010117 04154 067152 04155 031711 04156 170607 04157 172612 04160 074561 04161 014117 04162 067160 04163 015711 04164 067152 04165 074570 04166 170607 04167 172076 04170 067147 04171 170507 04172 072002 04173 067131 TABLE SEARCH

SL 2 LDB D STB CT 2 LDB AROMS STB CT 3 TSI LDB CT 3,I ISZ CT 3 SZB TSI CPB Ml JMP E 3 ADB Pl LDB B,I CPB MI JMP TSI SBP + 2,C JSM B,I SIB T 2 STB D WAD A,D T 52 LDB CTI STB C WBC B,D T 53 WBD A,I CPA B 40 JMP -2 STA TI SAL 8 SAM T 54,C WBC B,I CPB B 40 JMP -2 CPB Tl JMP T 53 WRD A,I SAL 8 SAP -2 JMP T 52 T 54 SAR 8 RZA -2 JMP TSI SAVE D INITIALIZE'TABLES' POINTER GET ADDRESS OF NEXT ROM JUMP IF ROM NOT PRESENT JUMP IF END OF ALL TABLES PICK UP ROM TABLE ORIGIN ADDRESS OPTIONAL CALL ON ROM SET D = ROM TABLE ADDRESS SET C = START OF MNEMONIC IGNORE BLANKS IN MNEMONIC TABLE

SKIP IF ENTRY CODE OR END-OFTABLE

IGNORE BLANKS IN INPUT LINE JUMP IF CHARACTER MIATCH FIND END OF TABLE ENTRY JUMP IF END OF TABLE Page 42 02817000 02818000 02819000 02820000 02821000 02822000 02823000 02824000 02825000 02826000 02827000 02828000 02829000 02830000 02831000 02832000 02833000 02834000 02835000 02836000 02837000 02838000 02839000 02840000 02841000 02842000 02843000 02844000 02845000 02846000 02847000 02848000 02849000 02850000 02851000 02852000 02853000 02854000 02855000 02856000 02857000 02858000 02859000 02860000 02861000 02862000 02863000 94 Page 43 02865000 04174 004000 02866000 04175 174040 02867000 04176 025712 02868000 04177 104001 02869000 04200 035237 02870000 02871000 04201 004327 02872000 04202 174040 02873000 04203 025245 02874000 04204 014125 02875000 04205 067211 02876000 02877000 04206 170607 02878000 04207 060001 0287900 ( 004210 067212 02880000 02881000 04211 020053 SI 02882000 04212 031240 02883000 02884000 04213 005244 02885000 04214 034017 02886000 02887000 04215 005237 02888000 04216 176202 02889000 04217 140001 02890000 02891000 04220 035244 02892000 04221 174507 02893000 04222 067051 02894000 1,568,094 COMPILER SCANNER LDB A TCB ADB T 2 LDB B,I STB TKN L 5 02895000 04223 043020 E 3 02896000 04224 030063 LDB TCB ADB CPB JMP SAL IOR JMP ADA STA LDB STB LDB SBP JSM STB SBR JMP AROMS CT 3 P 18 SL 5 8 B + 2 B 177 BCD CT 2 D TKN + 2,C B,I CT 2 8 SCI JSM SETCE ASC 1,03 SUBTRACT OPCODE FROM TABLE ADDRESS TEMPORARILY SAVE CLASS/TOKEN VALUE CALCULATE ROM ID JMP IF MAINFRAME CORRECT BCD FOR OPTIONAL ROMS CORRECT MAINFRAME BCD RESTORE D RECALL CLASS/TOKEN INFO OPTIONAL CALL ON ROM ERROR, MYSTERIOUS MNEMONIC Page 44 02898000 02899000 ST 02900000 02901000 04225 000100 STL 02902000 04226 031237 02903000 02904000 04227 043000 02905000 04230 074761 02906000 04231 005240 02907000 04232 010070 02908000 04233 024117 02909000 04234 174607 02910000 04235 024141 02911000 04236 035240 02912000 02913000 04237 067122 1,568,094 COMPILER-SCANNER RING LETTER LDA P 52 STA TKN TKN FOR STRING JSM WBC LDB CPA ADB SBL ADB STB READ 2 LOOK AHEAD B,D BCD B 133 l? B 40 YES, OFFSET BCD 8 STRID ID OF STRING ROM BCD JMP TYPEA 02915000 02916000 02917000 02918000 04240 001242 02919000 04241 072402 02920000 04242 067114 02921000 02922000 04243 000102 02923000 04244 031237 02924000 02925000 04245 005240 02926000 04246 024117 02927000 04247 035240 02928000 02929000 04250 170201 SUBSCRIPTED LETTER SSL LDA SZA JMP ISTAR + 2 TYI LDA P 49 STA TKN LDB BCD ADB B 40 STB BCD RET I TKN FOR SUBSCRIPTED OFFSET BCD 1,568,094 COMPILER-SCANNER 02931000 02932000 PR 02933000 02934000 O 02935000 02936000 02937000 02938000 02939000 04251 000177 SQI 02940000 04252 031242 02941000 04253 031246 02942000 04254 004016 02943000 04255 035247 02944000 02945000 04256 074561 SQ 2 02946000 04257 014116 02947000 04260 067267 02948000 04261 014053 02949000 04262 067265 02950000 04263 045246 SQ 3 02951000 04264 67256 02952000 02953000 04265 043020 E 2 02954000 04266 030062 02955000 02956000 04267 074561 SQ 4 02957000 04270 014116 02958000 04271 067263 02959000 02960000 04272 074760 02961000 04273 170201 OCESS QUOTE FIELD

*J EXIT:

CT 4 =BYTE COUNT CT 5 =START OF STRING LDA PO STA ISTAR STA CT 4 LDB C STB CT 5 WBC B,I CPB B 42 JMP SQ 4 CPB B 177 JMP E 2 ISZ CT 4 JMP SQ 2 JSM SETCE ASC 1,02 WBC B,I CPB B 42 JMP SQ 3 INITIALIZE BYTE COUNT SAVE START OF STRING READ NEXT CHARACTER " 9 YES EOL? YES INCREMENT BYTE COUNT ERROR, UNTERMINATED STRING READ NEXT CHARACTER " 9 YES, CONTINUE MBC A,D BACK UP INPUT POINTER RET 1 96 Page 45 97 Page 46 02963000 02964000 02965000 02966000 04274 02967000 04275 02968000 04276 02969000 04277 02970000 04300 02971000 02972000 04301 02973000 04302 02974000 04303 02975000 02976000 04304 02977000 04305 0297800004306 0297900004307 02980000 04310 02981000 04311 02982000 02983000 04312 02984000 04313 02985000 04314 02986000 04315 02987000 04316 02988000 04317 029 $ 9000 04320 02990000 04321 02991000 04322 02992000 04323 02993000 04324 0299400 o 02995000 04325 02996000 04326 02997000 04327 02998000 04330 02999000 04331 03000000 04332 03001000 04333 03002000 04334 03003000 04335 03004000 04336 0305000 04337 03006000 04340 03007000 04341 03008000 04342 03009000 04343 03010000 04344 03011000 04345 03012000 04346 03013000 04347 03014000 04350 0301500 04351 03016000 04352 1,568,094 COMPILER-SCANNER NUMBER BUILDER NUMBER BUILDER 000252 004253 071405 000127 071603 SNI 001240 004103 035240 010105 067353 010103 SN 2 067312 004254 035774 005777 025774 025775 035775 005774 076406 005773 076504 035773 050130 075541 043000 SN 3 014143 067306 010105 067360 010063 067365 001776 SNW 055772 170040 021775 071500 072310 004000 176002 174040 024206 176016 170605 030020 074761 170203 LDA LDB XFR LDA CLR LDA LDB STB CPA JMP CPA JMP LDB STB LDB ADB ADB STB LDB SZB LDB STB STB AND MLY N Bl NB 2 6 ADR 2 INITIALIZE CLEAR AR 2 BCD B 60 BCD B 56 SN 4 B 60 + 3 Pl SD DP SD M M SD SN 3 DC SN 3 DC B 17 JSM RE Al CPB P 4 JMP SN 2 CPA B 56 JMP SN 5 CPA B 145 JMP SN 7 LDA EX DSZ ES TCA ADAM NRM SDS + 8 LDBA SBP + 2 TCB ADB M 100 SBP E 6 A SAL 6 STA AR 2 WBC B,D RET 3 9 YES 0 ? YES NO, SET SD UPDATE EXPONENT SKIP IF NO SIGNIFICANT DIGITS YET SKIP IF 12 SIGNIFICANT DIGITS NOW MERGE IN NEW DIGIT READ NEXT CHARACTER DIGIT? YES 9 ?.

YES EEX? YES WRAP IT UP FINAL EXPONENT SKIP IF FLOATING ZERO OVERFLOW TEST BACK UP C NORMAL RETURN )2 1,568,094 COMPILER-SCANNER 03018000 04353 03019000 04354 03020000 04355 03021000 04356 03022000 04357 03023000 03024000 04360 03025000 04361 03026000 04362 03027000 04363 03028000 03029000 04364 03030000 03031000 04365 03032000 04366 03033000 04367 03034000 04370 03035000 04371 03036000 04372 03037000 04373 03038000 04374 03039000 04375 03040000 04376 03041000 04377 03042000 04400 03043000 03044000 04401 03045000 04402 03046000 04403 03047000 04404 03048000 04405 03049000 04406 03050000 04407 03051000 04410 03052000 04411 03053000 04412 03054000 04413 03055000 04414 03056000 04415 03057000 04416 03058000 04417 03059000 04420 03060000 03061000 04421 03062000 04422 03063000 04423 03064000 04424 03065000 04425 03066000 04426 055777 SN 4 043000 014143 067306 067364 001777 072076 055777 067325 SN 5 170201 E 6 A 004016 SN 7 035711 043000 010106 067421 010110 067423 014143 067401 005711 034016 067334 045240 031711 001776 004135 075617 020163 021711 031776 020170 172052 043000 014143 067402 010105 067364 067334 SN 9 000257 SNM 031772 043000 SN 6 014143 067401 067364 DSZ JSM CPB JMP JMP LDA RZA DSZ JMP RET LDB STB JSM CPA JMP CPA JMP CPB JMP LDB STB JMP ISZ STA LDA LDB MPY ADA ADA STA ADA SAP JSM CPB JMP CPA JMP JMP LDA STA JSM CPB JMP JMP DP SET DP FOR LEADING READ 2 READ NEXT CHARACTER P 4 DIGIT? SN 2 YES E 6 A ERROR, ILLEGAL DECIMAL POINT DP -2 DP SN 3 SET DP ERROR RETURN C Tl SAVE C IN CASE OF MNEMONIC WITH E READ 2 READ NEXT CHARACTER B 55 -? SNM YES B 53 +? SN 6 YES P 4 DIGIT? SN 9 YES Tl NO C FALSE ALARM, RESTORE C SNW F 1 1 F BCD EX SET E-FORMAT SAVE ASCII DIGIT EX M 48 TI EX SAVE UPDATED EXPONEN M 256 OVERFLOW TEST E 6 A READ 2 READ NEXT CHARACTER P 4 DIGIT? SN 9 + 1 YES B 56 ? E 6 A YES, ERROR SNW M 1 EXPONENT DETECTED ES READ 2 READ NEXT CHARACTER P 4 DIGIT? SN 9 YES E 6 A NO T SPEC Page 47 99 Page 48 03068000 04427 177567 03069000 04430 177706 03070000 04431 000006 1,568,094 COMPILER-MAIN SECTION TCONI TCON 2 TCON 3 ABS -MAXR-1 ABS MAXR-MAXP ABS MAXP-MAXL 03072000 03073000 STAC 03074000 03075000 04432 005254 CPSTK 03076000 04433 014326 03077000 04434 067440 03078000 03079000 04435 045254 03080000 04436 131254 03081000 04437 170201 03082000 03083000 04440 043020 E 8 03084000 04441 030070 KER LDB CPB JMP ISZ STA RET STAKP ASLMT E 8 STAKP STAKP,I JSM SETCE ASC 1,08 ERROR, OVERFLOW 03086000 03087000 INITI 03088000 03089000 04442 000257 CPLR 03090000 04443 031610 03091000 04444 001532 03092000 04445 072402 03093000 04446 141532 03094000 04447 140453 03095000 03096000 04450 004307 03097000 04451 034016 03098000 04452 004304 03099000 04453 034017 03100000 04454 000177 03101000 04455 031242 03102000 04456 031316 03103000 04457 000254 03104000 04460 031251 03105000 04461 000305 03106000 04462 031254 03107000 03108000 04463 000257 LOOPI 1 03109000 04464 031250 03110000 04465 001251 03111000 04466 023013 LOOP 2 03112000 04467 100000 03113000 04470 004000 03114000 04471 174506 03115000 04472 035252 03116000 04473 050053 03117000 04474 031253 ALIZATION LDA M 1 STA KBFMT LDA SZA JSM JSM LDB STB LDB STB LDA STA STA LDA STA LDA STA LDA STA LDA ADA LDA LDB SBR STB AND STA REFOR + 2 REFOR,I ACLCM,I AKB FX C ACBUF D PO ISTAR CERR Pl STATE ASTAK STAKP Ml NLOOK STATE AINDX A,I A 7 IXI B 177 IX 2 INDICATE COMPILE BUFFER IS OVERWRIT, CLEAR COMPILE BUFFER POINT C TO KEYBOARD BUFFER POINT D TO COMPILE BUFFER ORIGIN IMPLIED MULTIPLY FLAG COMPILE ERROR FLAG PARSER START STATE STACK POINTER SET NO-LOOK-AHEAD-DONE TRUE INDEX TABLE ORIGIN INDEX WORD B=INDEX I lSTATEl A=INDEX 2 lSTATEl Page 49 03119000 04475 001251 03120000 04476 023427 03121000 04477 172033 03122000 03123000 03124000 03125000 04500 001251 03126000 04501 043432 03127000 03128000 04502 03129000 04503 03130000 04504 03131000 03132000 04505 03133000 04506 03134000 04507 03135000 04510 03136000 04511 03137000 04512 03138000 03139000 04513 03140000 04514 03141000 04515 03142000 04516 03143000 04517 03144000 04520 03145000 04521 03146000 03147000 04522 03148000 04523 03149000 03150000 04524 03151000 04525 03152000 04526 03153000 03154000 04527 03155000 04530 03156000 04531 045250 067505 043043 005252 027014 001253 020001 020257 031243 100001 REA 2 170510 011237 067524 015243 067522 076172 043020 030067 1,568,094 COMPILER-MAIN SECTION LDA ADA SAP STATE TCONI (-MAXR-1) APPLT READ STATE LDA STATE JSM CPSTK STACK PRESENT STATE ISZ JMP JSM LDB ADB LDA ADA ADA STA LDA SAR CPA JMP CPB JMP RIB NLOOK TEST O-LOOK-AHEAD-DONE + 2 SCAN READ IXI AREED IX 2 B Ml CT 1 B,I 9 TKN REA 3 CTI + 2 REA 2 E 7 JSM SETCE ASC 1,07 100001 REA 3 050042 031251 001240 043432 067463 LDA AND STA LDA JSM JMP B,I B 777 STATE BCD CPSTK LOO Pl RECALL INDEX I OFFSET BY READ TABLE ORIGIN RECALL INDEX 2 LIMIT ADDRESS FOR TOKEN SEARCH GET COMPARISON TOKEN A=READ 1 lJl FOUND IT NO MATCH END OF TABLE, MUST BE ERROR SYNTAX ERROR A=READ 2 lJl STACK BCD 101 COMPILER-MAIN SECTION 03158000 04532 03159000 04533 03160000 03161000 03162000 03163000 04534 03164000 04535 03165000 04536 03166000 04537 03167000 04540 03168000 04541 03169000 04542 03170000 03171000 04543 03172000 04544 03173000 04545 03174000 04546 03175000 04547 03176000 04550 03177000 04551 03178000 03179000 04552 03180000 04553 03181000 04554 03182000 04555 03183000 04566 03184000 04557 03185000 04186000 04560 03187000 04561 03188000 04562 03189000 04563 03190000 04564 03191000 03192000 04565 03193000 04566 023430 APPLT 172434 ADA TCON 2 (MAXR-MAXP) SAM PUSHT APPLY STATE APPLY STATE 005253 174600 174040 025254 035243 023017 164000 001243 APLI 031254 020257 100000 031243 005252 027016 100001 APL 2 170510 072404 011243 067560 076173 LDB IX 2 SBL I TCB ADB STA STB CTI ADA ASY JMP AJ LDA STA ADA LDA STA LDB ADB LDA SAR SZA CPA JMP RIB 100001 APL 3 LDA 050042 AND 072003 RZA 000254 LDA 170201 RET 031251 APL 4 STA 067466 JMP RECAL INDEX 2 XKP A=MP i JP BRAN( CH TO SYNTHESIZE CTI STAKP UPDATE STACK POINTER Ml A,I A=PREVSTATE=J CTI IXI RECALL INDEXI AAPLY APPLY TABLE ORIGIN B,I APPLY TABLE WORD 9 A=APPLY 1 lIl=TEMP APL 3 =-0 ? CTI =J? APL 3 YES APL 2 B,I B 777 A=APPLY 2 lIl APL 4 Pl DONE WITH PARS El STATE LOOP 2 Page 50 1,568 094 101 1,568,094 COMPILER MAIN SECTION 03195000 04567 023431 03196000 04570 172020 03197000 03198000 03199000 03200000 04571 045250 03201000 04572 067574 03202000 04573 043043 03203000 03204000 04574 005252 03205000 04575 027015 03206000 03207000 04576 100001 03208000 04577 170510 03209000 04600 072404 03210000 04601 011237 03211000 04602 067604 03212000 04603 076173 03213000 03214000 04604 100001 03215000 04605 050042 03216000 04606 031251 03217000 04607 067466 03219000 03220000 03221000 03222000 04610 001253 03223000 04611 043432 03224000 04612 000054 03225000 04613 043432 03226000 03227000 04614 001252 03228000 04615 031251 03229000 04616 067466 PUSHT ADA TCON 3 (MAXP-MAXL) SAP PUSH LOOK STATE LOOK STATE ISZ JMP JSM L 002 L 003 NLOOKTEST NO-LOOK-AHEAD-DONE + 2 SCAN READ LDB IXI RECALL INDEXI 1 ADB ALOOKLOOKTABLE ORIGIN LDA SAR SZA CPA JMP RIB LDA AND STA JMP B,I 9 L 003 TKN L 003 L 002 Bl B 777 STATE LOOP 2 LOOK TABLE WORD B=LOOKI lIl=TEMP = O ? =TOKEN? YES A=LOOK 2 lIl PUSH STATE PUSH STATE PUSH LDA JSM LDA JSM LDA STA JMP IX 2 CPSTK B 176 CPSTK IXI STATE LOOP 2 STACK INDEX 2 STACK 'EMPTY' RECALL INDEX 1 Page 51 102 102 1,568,094 COMPILER SYNTHESIZE PRELIMINARIES 03231000 03232000 TOS C 03233000 03234000 04617 055254 OUT 6 03235000 04620 055254 03236000 04621 055254 OUT 5 03237000 04622 055254 03238000 04623 055254 OUT 4 03239000 04624 055254 03240000 04625 055254 OUT 3 03241000 04626 055254 03242000 04627 055254 OUT 2 03243000 04630 055254 03244000 03245000 04631 101254 OUTI 0324600 03247000 04632 043637 OUT O 03248000 04633 170507 03249000 04634 072402 03250000 04635 043637 03251000 04636 067543 03253000 03254000 BYTE 03255000 03256000 ON E 03257000 03258000 A03259000 03260000 04637 004107 OUTST 03261000 04640 014305 03262000 04641 067440 03263000 03264000 04642 074550 03265000 04643 170201 )UTPUT DSZ DSZ DSZ DSZ DSZ DSZ DSZ DSZ DSZ DSZ STAKP TOS-5 STAKP STAKP TOS-4 STAKP STAKP TOS-3 STAKP STAKP TOS-2 STAKP STAKP TOS-1 I STAKP LDA STAKP,ITOS JSM SAR SZA JSM JMP OUTST NORMAL BCD OUTPUT 8 + 2 SKIP IF MAINFRAME OUTST APLI RETURN E WRITER SUBROUTINE NTR Yl -REGISTER=BYTE LDBD CPB ACLMT JMP E 8 PBD A,I RET I 103 Page 52 103 1,568,094 Page 53 03267000 03268000 IMPL 03269000 03270000 04644 001257 IMSTZ 03271000 04645 010177 03272000 04646 067661 03273000 04647 010142 03274000 04650 067655 03275000 03276000 04651 000074 IMI 03277000 04652 043637 03278000 04653 000247 03279000 04654 067632 03280000 03281000 04655 001517 IM 2 03282000 04656 072473 03283000 04657 000216 03284000 04660 067632 03285000 03286000 04661 043020 E 12 03287000 04662 030462 03289000 03290000 IM Pl 03291000 03292000 04663 001257 IMDSP 03293000 04664 010177 03294000 04665 067661 03295000 04666 000051 03296000 04667 067632 03298000 03299000 03300000 03301000 04670 03302000 04671 03304000 03305000 03306000 03307000 04672 03308000 04673 03309000 04674 COMPILER SYNTHESIZE LIED STORAGE LDA CSTAT CHECK CONTROLLER STATE CPA PO JMP E 12 CANNOT STORE IT CPA P 5 JMP IM 2 ENTER CONTINUATION LDA B 77 JSM OUTST OUTPUT'RES' LDA ZK 1 JMP OUT O OUTPUT'GAZINTA DSP' PAIR LDA RGFLG SZA IMI LDA ZK 2 JMP OUT O OUTPUT'ENR GAZINTA' PAIR JSM SETCE ERROR, LINE CANNOT BE STORED ASC 1,12 LIED DISPLAY FOR STRINGS LDA CPA JMP LDA JMP CSTAT PO E 12 B 202 OUT O CHECK CONTROLLER STATE CANNOT STORE IT OUTPUT 'DSP' UNARYUNARY LDA B 56 067632 JMP OUTO OUTPUT'U-' EMPTY PARAMETER 000054 OEMTY 043637 067631 LDA JSM JMP B 176 OUTST OUTPUT'EMPTY' OUTI 03311000 03312000 03313000 -03314000 04675 03315000 04676 03316000 04677 'ROUND' STATEMENTS

000107 OROUN 043637 067617 LDA JSM JMP B 54 OUTST OUTPUT ', 1 ' OUT 6 104 104 Page 54 03318000 03319000 ARRA 03320000 03321000 04700 000066 ARREF 03322000 04701 043637 03323000 04702 067623 1,568,094 COMPILER SYNTHESIZE Y REFERENCE LDA JSM JMP B 140 OUTST OUTPUT'ENTIRE ARRAY' OUT 4 03325000 03326000 03327000 03328000 04703 101254 03329000 04704 004020 03330000 04705 076405 03331000 04706 020145 03332000 04707 043637 03333000 04710 000020 03334000 04711 170405 03335000 04712 043637 03336000 03337000 04713 000127 03338000 04714 004345 03339000 04715 071403 03340000 04716 004155 03341000 04717 075441 03342000 04720 072002 03343000 04721 076176 03344000 04722 024257 03345000 04723 174400 03346000 04724 076412 03347000 04725 035711 03348000 03349000 04726 075541 03350000 04727 170603 03351000 04730 031712 03352000 04731 075541 03353000 04732 061712 00354000 04733 043637 03355000 04734 045711 03356000 04735 067726 03357000 03358000 04736 000121 03359000 04737 067632 REAL NUMBER s ONUMB LDA LDB SZB ADA JSM LDA AAR ONI JSM ON 2 ON 3 LDA LDB XFR LDB DRS RZA RIB ADB ABR SZB STB STAKP,I AR 2 ONI P 2 OUTST AR 2 6 OUTST ADR 2 ADRI 4 M Il + 2 -2 Ml 1 ON 3 Tl MLY SAL 4 STA T 2 MLY IOR T 2 JSM OUTST ISZ Tl JMP ON 2 TEST AR 2 EXPONENT CORRECT CODE FOR NON-ZERO EXPONENT COPY NUMBER TO ARI SHIFT ARI RIGHT ONCE B = # OF BYTES TO MOVE OUTPUT TWO PACKED DIGITS LDA B 34 JMP OUT O 1,568,094 COMPILER SYNTHESIZE 03361000 03362000 03363000 03364000 04740 03365000 04741 03366000 04742 03367000 04743 03368000 03369000 04744 03370000 04745 03371000 04746 STRING STRING OLABL 043752 067632 000116 OSTRG 043752 067543 LDA JSM LDA JMP LDA JSM JMP B 43 STRGF B 75 OUT O B 42 STRGF APLI ENTRY FOR LABEL ENTRY FOR LITERAL SPECIAL STRING FOR ENT SPECIAL STRING FOR ENT 04747 000116 ESTRG LDA 04750 043752 JSM 04751 067627 JMP 03380000 03381000 03382000 03383000 03384000 03385000 03386000 04752 043637 STRGF 04753 001246 04754 043637 04755 004016 04756 035711 04757 005247 04760 034016 03387000 03388000 04761 03389000 04762 03390000 04763 03391000 04764 03392000 04765 03393000 03394000 04766 03395000 04767 03396000 04770 03397000 03398000 04771 03399000 04772 03400000 04773 03402000 03403000 03404000 03405000 04774 03406000 04775 03407000 04776 03408000 03409000 04777 03410000 05000 03411000 05001 074560 SF 2 010116 067766 043637 SF 3 067761 074560 SF 4 010116 067764 005711 034016 170201 JSM LDA JSM LDB STB LDB STB WBC CPA JMP JSM JMP OUTST CT 4 OUTST C Tl CT 5 C A,I B 42 SF 4 OUTST SF 2 WBC A,I CPA B 42 JMP SF 3 LDB STB RET Tl C OUTPUT BYTE COUNT SAVE C SET C TO BEGINNING OF STRING GET BYTE " 9 YES STASH IT GET CHARACTER FOLLOWING" "? YES RESTORE C OUTPUT DIM OPERATORS OUTPUT DIM OPERATORS ODIME 043637 067631 ODIML 043637 067623 LDA JSM JMP LDA JSM JMP B 133 OUTST OUTI B 133 OUTST OUT 4 OUTPUT DIM OPERATOR OUTPUT LETTER OUTPUT DIM OPERA TOR OUTPUT LETTER 106 Page 55 106 03373000 03374000 03375000 03376000 03377000 03378000 B 42 STRGF OUT 2 1,568,094 COMPILER SYNTHESIZE 03413000 03414000 BRANI 03415000 03416000 05002 005254 BRNCH 03417000 05003 024146 03418000 05004 100001 03419000 05005 031711 03420000 05006 043637 03421000 05007 000177 03422000 05010 043637 03423000 05011 067637 03425000 03426000 STRIN 03427000 03428000 05012 042002 BRSTR 03429000 05013 001711 03430000 05014 010047 03431000 05015 067744 03432000 05016 010046 03433000 05017 067744 03434000 03435000 05020 067522 CH OUTPUT SUBROUTINE LDB ADB LDA STA JSM LDA JSM JMP STAKP M 2 B,I Tl OUTST PO OUTST OUTST OUTPUT THE BRANCH COMMAND LEAVE TWO BLANK BYTES lG BRANCH JSM BRNCH LDA TI CPA B 230 JMP OSTRG CPA B 231 JMP OSTRG JMP E 7 OUTPUT THE BRANCH COMMAND OUTPUT THE LABEL OUTPUT THE LABEL ERROR, ILLEGAL BRANCH COMMAND 03437000 03438000 03439000 03440000 05021 042002 03441000 05022 001777 03442000 05023 072403 03443000 05024 043020 03444000 05025 030460 03445000 03446000 05026 000114 03447000 05027 043637 03448000 03449000 05030 040646 03450000 05031 173473 03451000 05032 000001 03452000 05033 170707 03453000 05034 043637 03454000 05035 170707 03455000 05036 067635 NUMBER BRANCH BRNUM JSM LDA SZA E 10 JSM ASC BRNCH DP + 3 SETCE 1,10 LDA B 44 JSM OUTST JSM SOS LDA RAR JSM RAR JMP OUTPUT THE BRANCH COMMAND ERROR, ILLEGAL INTEGER OUTPUT 'INTEGER FOLLOWS' FIXPT+ 2 OUTPUT THE INTEGER E 10 B 8 OUTST 8 OUT O + 3 03457000 03458000 STRING ASSIGNMENT 03459000 03460000 05037 000233 STRAS LAD ZK 3 03461000 05040 067632 JMP OUT O OUTPUT'GAZINTA STRING' Page 56 107 107 1,568,094 COMPILER SYNTHESIZE 03463000 03464000 03465000 03466000 05041 03467000 05042 03468000 05043 03469000 05044 03470000 05045 03471000 05046 03472000 05047 03473000 05050 03474000 05051 03475000 05052 03476000 05053 03477000 05054 03478000 05055 03479000 05056 03480000 05057 03481000 05060 03482000 05061 03483000 03484000 05062 03485000 05063 03486000 05064 03487000 05065 03488000 03489000 05066 03490000 05067 03491000 05070 03492000 05071 03493000 05072 03494000 05073 03495000 05074 03496000 05075 03497000 05076 LITERAL TRANSFER 101254 LITRL 043637 170507 072402 043637 000121 043637 074560 LI O 010076 066062 010053 066062 010116 066066 010117 066050 066047 000121 043637 074760 067543 004016 035241 043637 074560 010116 066047 010053 067265 066070 LII LI 2 LDA STAKP,I JSM OUTST SAR 8 SZA + 2 JSM OUTST LDA B 34 JSM OUTST WBC A,I CPA B 73 JMP LII CPA B 177 JMP LII CPA B 42 JMP LI 2 CPA B 40 JMP LI O JMP L 10-1 LDA B 34 JSM OUTST WBC A,D JMP APLI LDB C STB OLDC JSM OUTST WBC A,I CPA B 42 JMP LI 0-I CPA B 177 JMP E 2 JMP LI 2 + 2 OUTPUT TOS OUTPUT 'COMMENT DELIMITER' JUMP IF; JUMP IF EOL JUMP IF" OUTPUT 'COMMENT DELIMITER' ERROR, UNTERMINATED STRING 03499000 03500000 03501000 03502000 05077 000100 03503000 05100 067632 OUTPUT SUBSCRIPT COMMA OSCOM LDA B 64 JMP OUT O OUTPUT',2 ' 108 Page 57 108 1,568,094 COMPILER FILL IN BASE-PAGE LINKS 03505000 03506000 03507000 03508000 00346 03509000 00346 004442 03510000 00347 004000 03511000 00350 004543 03512000 00351 004020 03513000 00352 004272 03514000 00353 004251 03515000 00354 004752 03516000 00355 004637 03517000 03518000 00333 03519000 00333 001471 03520000 03521000 FILL IN BASE-PAGE LINKS ORG DEF DEF DEF DEF DEF DEE DEF DEF ACPLR CPLR READ 2 APLI SETCE SNI SQI STRGF OUTST ORG AMTBL DEF MNTBL END END OF PASS 2 NO ERRORS DETECTED Page 59 BASE-PAGE READ-WRITE-MEMORY 00003000 76550 00004000 ORG 76550 B UNL Page 58 109 109 Page 60 02001000 15477 02002000 02003000 CLAS 02004000 02005000 FORT 02006000 02007000 p 02008000 C= 02009000 M 02010000 02011000 02012000 02013000 02014000 02015000 02016000 15477 000000 RTBL 02017000 15500 003400 02018000 15501 003400 02019000 15502 003400 02020000 15503 003400 02021000 15504 003400 02022000 15505003400 02023000 15506 003400 02024000 15507 003400 02025000 15510 003400 02026000 15511 003400 02027000 15512 003400 02028000 15513 003400 02029000 15514 003400 02030000 15515 003400 02031000 15516 003400 02032000 15517 003400 02033000 15520 003400 02034000 15521 003400 02035000 15522 000000 02036000 15523 000000 02037000 15524 000000 02038000 15525 000000 02039000 15526 000000 02040000 15527 000000 02041000 15530 000000 02042000 15531 000000 02043000 15532 000000 02044000 15533 002400 02045000 15534 000000 02046000 15535 000000 02047000 15536 131400 02048000 15537 000000 02049000 15540 000000 02050000 15541 00400002051000 15542 004000 02052000 15543 005000 02053000 15544 000000 02054000 15545 000000 02055000 15546 004000 02056000 15547 000000 1,568,094 REVERSE COMPILER TABLE ORG 15477 B S TABLE FOR REVERSE COMPILER MAT IS PPPP CCCC MMMMMMMM PRIORITY = CLASS = MNEMONIC INFORMATION:

NOP OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT NOP NOP NOP NOP NOP NOP NOP NOP NOP OCT NOP NOP OCT NOP NOP OCT OCT OCT NOP NOP OCT NOP 000 003400 001 0 003400 002 0 003400 003 0 003400 004 0 003400 005 0 003400 006 0 003400 007 0 003400 010 0 003400 011 0 003400 012 0 003400 013 0 003400 014 0 003400 015 0 003400 016 0 003400 017 0 003400 020 0 003400 021 0 003400 022 0 023 024 026 027 031 032 033 002400 034 0 036 131400 037 11 041 004000 042 0 004000 043 0 005000 044 0 046 004000 047 0 7 000 7 000 7 000 7 000 7 000 7 000 7 000 7 000 7 000 7 000 7 000 7 000 7 000 7 000 7 000 7 000 7 000 7 000 ROM ROM ROM ROM ROM ROM ROM ROM ROM ROM ROM ROM ROM ROM ROM ROM ROM ROM 000 LITERAL 3 000 I 8 000 STRING FOLLOWS 8 000 LABEL FOLLOWS 000 INTEGER FOLLOWS 8 000 & 1,568,094 REVERSE COMPILER TABLE 02057000 15550 000000 02058000 15551 111452 02059000 15552 101453 02060000 15553 021454 02061000 15554 101455 02062000 15555 121055 02063000 15556 111457 02064000 15557 004400 02065000 15560 004400 02066000 15561 004400 02067000 15562 004400 02068000 15563 021454 02069000 15564 000000 02070000 15565 000000 02071000 15566 000000 02072000 15567 000000 02073000 15570 000000 02074000 15571 031472 02075000 15572 002073 02076000 15573 000000 02077000 15574 002072 02078000 15575 000000 02079000 15576 000000 02080000 15577 000000 02081000 15600 000501 02082000 15601 000502 02083000 15602 000503 02084000 15603 000504 02085000 15604 000505 02086000 15605 000506 02087000 15606 000507 02088000 15607 000510 02089000 15610 000511 02090000 15611 000512 02091000 15612 000513 02092000 15613 000514 02093000 15614 000515 02094000 15615 000516 02095000 15616 000517 02096000 15617 000520 02097000 15620 000521 02098000 15621 000522 02099000 15622 000523 02100000 15623 000524 02101000 15624 000525 02102000 15625 000526 02103000 15626 000527 02104000 15627 000530 02105000 15630 000531 02106000 15631 000532 02107000 15632 025400 02108000 15633 151134 02109000 15634 000000 02110000 15635 000000 02111000 15636 000000 02112000 15637 000452 NOP OCT 111452 OCT 101453 OCT 021454 OCT 101455 OCT 121055 OCT 111457 OCT 004400 OCT 004400 OCT 004400 OCT 004400 OCT 021454 NOP NOP NOP NOP NOP OCT 031472 OCT 002073 NOP OCT 002072 NOP NOP NOP OCT 000501 OCT 000502 OCT 000503 OCT 000504 OCT 000505 OCT 000506 OCT 000507 OCT 000510 OCT 000511 OCT 000512 OCT 000513 OCT 000514 OCT 000515 OCT 000516 OCT 000517 OCT 000520 OCT 000521 OCT 000522 OCT 000523 OCT 000524 OCT 000525 OCT 000526 OCT 000527 OCT 000530 OCT 000531 OCT 000532 OCT 025400 OCT 151134 NOP NOP NOP OCT 000452 051 052 053 054 056 1 057 061 062 063 064 066 067 071 072 073 074 076 077 101 102 103 104 106 107 111 112 113 114 116 117 121 122 123 124 126 127 131 132 133 134 1 136 137 9 3 8 3 2 3 8 3 2 9 3 0 9 0 9 0 9 0 9 2 3 052 053 054 057 000 000 000 000 054 1 I U/ FNUMBER ENUMBER F NUMBER W/EXPONENT E NUMBER W/EXPONENT 3 3 072:

0 4 073; 0 4 072:

0 1 101 A 0 1 102 B 0 1 103 C 0 1 104 D 0 1 105 E 0 1 106 F 0 1 107 G 0 1 110 H 0 1 111 1 0 1 112 J 0 1 113 K 0 1 114 L 0 1 115 M 0 1 116 N 0 1 117 O 0 1 120 P 0 1 121 Q 0 1 122 R 0 1 123 S 0 1 124 T 0 1 125 U 0 1 126 V 0 1 127 W 0 1 130 X 0 1 131 Y 0 1 132 Z 2 11 DIM OPERATOR 3 2 134 SQR 0 0 000 END OF# 0 1 052 ENTIRE ARRAY 111 Page 61 111 1,568,094 REVERSE COMPILER TABLE 02113000 15640 171101 02114000 15641 171102 02115000 15642 171103 02116000 15643 171104 02117000 15644 171105 02118000 15645 171106 02119000 15646 171107 02120000 15647 171110 02121000 15650 171111 02122000 15651 171112 02123000 15652 171113 02124000 15653 171114 02125000 15654 171115 02126000 15655 171116 02127000 15656 171117 02128000 15657 171120 02129000 15660 171121 02130000 15661 171122 02131000 15662 171123 02132000 15663 171124 02133000 15664 171125 02134000 15665 171126 02135000 15666 171127 02136000 15667 171130 02137000 15670 171131 02138000 15671 171132 02139000 15672 000573 02140000 15673 031575 02141000 15674 031575 02142000 15675 000400 02143000 15676 002177 02144000 15677 011003 02145000 15700 011004 02146000 15701 011004 02147000 15702 041400 02148000 15703 051400 02149000 15704 061000 02150000 15705 011000 02151000 15706 011000 02152000 15707 011000 02153000 15710 011000 02154000 15711 011000 02155000 15712 011000 02156000 15713 011000 02157000 15714 161000 02158000 15715 161000 02159000 15716 011000 02160000 15717 011000 02161000 15720 011000 02162000 15721 151000 02163000 15722 011000 02164000 15723 003000 02165000 15724 003000 02166000 15725 003000 02167000 15726 003000 02168000 15727 003000 OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT 171101 171102 171103 171104 171105 171106 171107 171110 171111 171112 171113 171114 171115 171116 171117 171120 171121 171122 171123 171124 171125 171126 171127 171130 171131 171132 000573 031575 031575 000400 002177 011003 011004 011004 041400 051400 061000 011000 011000 011000 011000 011000 011000 011000 161000 161000 011000 011000 011000 151000 011000 003000 003000 003000 003000 003000 141 15 142 15 143 15 144 15 15 146 15 147 15 15 151 15 152 15 153 15 154 15 15 156 15 157 15 15 161 15 162 15 163 15 164 15 15 166 15 167 15 15 171 15 172 15 173 0 174 3 3 176 0 177 0 1 201 1 202 1 203 4 204 5 205 6 206 1 207 1 210 1 211 1 212 1 213 1 214 1 215 14 216 14 217 1 220 1 221 1 222 13 223 1 224 0 225 0 226 0 227 O 230 0 2 101 Al 2 102 Bl 2 103 Cl 2 104 Dl 2 105 El 2 106 Fl 2 107 Gl 2 110 Hl 2 111 1 l 2 112 Jl 2 113 Kl 2 114 Ll 2 115 Ml 2 116 Nl 2 117 Ol 2 120 Pl 2 121 Ql 2 122 RI 2 123 Sl 2 124 Tl 2 125 Ul 2 126 Vl 2 127 Wl 2 130 Xl 2 131 Yl 2 132 Zl 1 173 Pl 3 175 GAZINTA STRING 3 175 GAZINTA 1 000 EMPTY 4 177 EOL 2 3 IF 2 4 PRT 2 4 DSP 3 OR 3 AND 2 NOT 2 FXD 2 FLT 2 SPC 2 JMP 2 SFG 2 CFG 2 CMF 2 PRND 2 DRND 2 TRC 2 NOR 2 STP 2 FLG 2 ENT 6 GTO6 GTO+ 6 GSB6 GSB+ 6 GTO 112 Page 62 112 1,568,094 REVERSE COMPILER TABLE 15730 003000 15731 011000 15732 011000 15733 011000 15734 000400 15735 000400 15736 000400 15737 041400 15740 011000 15741 011000 15742 011000 15743 011000 15744 011000 15745 011000 15746 011000 15747 011000 15750 011000 15751 011000 15752 011000 15753 011000 15754 011000 15755 011000 15756 011000 15757 011000 15760 000400 15761 000400 15762 000400 15763 000400 15764 071400 15765 071400 15766 071400 15767 071400 15770 071400 15771 071400 15772 151000 15773 011000 15774 000400 15775 000400 15776 000400 15777 151000 OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT 003000 011000 011000 011000 000400 000400 000400 041400 011000 011000 011000 011000 011000 011000 011000 011000 011000 011000 011000 011000 011000 011000 011000 011000 000400 000400 000400 000400 071400 071400 071400 071400 071400 071400 151000 011000 000400 000400 000400 151000 231 232 233 234 235 236 237 240 241 242 243 244 245 246 247 250 251 252 253 254 255 256 257 260 261 262 263 264 265 266 267 270 271 272 273 274 275 276 277 300 0 6 GSB 1 2 DIM 1 2 RET 1 2 WAIT 0 I BEEP 0 1 END 0 1 REW 4 3 XOR 1 2 IDF 1 2 SSC 1 2 TRK 1 2 FDF 1 2 ERT 1 2 MRK 1 2 RCF 1 2 LDF 1 2 ENP 1 2 LDP 1 2 RCM 1 2 LDM 1 2 RCK 1 2 LDK 1 2 LDB 1 2 VFY 0 1 AVD 0 1 AVE 0 I LKD 0 I LKE 7 3 # 7 3 ≤ 7 3 ≥ 7 3 < 7 3 > 73 = 13 2 L C R I 2 LIST 0 1 RES 0 1 LIST K 0 I TLIST 13 2 L C P 113 Page 63 113 02169000 02170000 02171000 02172000 02173000 02174000 02175000 02176000 02177000 02178000 02179000 02180000 02181000 02182000 02183000 02184000 02185000 02186000 02187000 02188000 02189000 02190000 02191000 02192000 02193000 02194000 02195000 02196000 02197000 02198000 02199000 02200000 02201000 02202000 02203000 02204000 02205000 02206000 02207000 02208000 114 Page 64 02210000 05106 02211000 02212000 02213000 02215000 02216000 02217000 02218000 02219000 02220000 02221000 02222000 02223000 02224000 02225000 02226000 02227000 1,568,094 REVERSE COMPILER 114 OPG 5106 B REVERSE COMPILER REVERSE COMPILER POINTERS AND EQUATES POINTERS AND EQUATES 077241 077242 077243 077244 077245 077246 077247 077250 077251 077252 LEFTE PRI LAST ARRBF CODE RT 1 RT 2 RT 3 OFLAG IMMFG EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU 02229000 05106 CMTMP+ 2 CMTMP+ 3 CMTMP+ 4 CMTMP+ 5 CMTMP+ 6 CMTMP+ 7 CMTMP+ 8 CMTMP+ 9 CMTMP+ 10 CMTMP+ 11 INPUT PRIORITY LATEST OUTPUT PRIORITY LEFT END OF BUFFER OUTPUT BUFFER OVERFLOW FLAG 1 DUMP FLAG RESERVED FOR 4 K-PAGE CHECKSUM BSS 1 1,568,094 REVERSE COMPILER SUBROUTINES 02231000 02232000 OUT Pl 02233000 02234000 05107 000177 RCPAR 02235000 05110 042142 02236000 05111 000231 02237000 05112 042142 02238000 05113 000112 02239000 02240000 05114 072422 RCOUT 02241000 05115 004016 02242000 05116 035714 02243000 05117 004316 02244000 05120 034016 02245000 05121 024257 02246000 05122 034017 02247000 05123 074771 RCO 1 02248000 05124 074741 02249000 05125 004017 02250000 05126 015244 02251000 05127 066131 02252000 05130 066123 02253000 02254000 05131 005714 02255000 05132 034016 02256000 02257000 05133 074550 02258000 05134 104316 02259000 05135 014262 02260000 05136 170201 RCO 2 02261000 05137 004074 02262000 05140 035251 02263000 05141 170201 UT WRITER SUBROUTINE LDAPO JSM RCSTK LDA RKI JSM RCSTK LDA B 51 SZA RCO 2 LDB C STB T 4 LDB AIBFL STB C ADB MI STB D WBD B,D PBC B,D LDBD CPB ARRBF JMP + 2 JMP RCO 1 LDB T 4 STB C PBD LDB CPB RET LDB STB RET AI AIBFL,I TOBLN 1 B 77 OFLAG I SPECIAL ENTRY FOR PARENTHESES STACK '(' OUTPUT '(' SKIP FF NULL CHARACTER SAVE C INITIALIZE DESTINATION INITIALIZE SOURCE MOVE A BYTE RESTORE C INSERT NEW CHARACTER OVERFLOW? NO YES 02265000 02266000 STAC 02267000 02268000 05142 005254 RCSTK 02269000 05143 014326 02270000 05144 164424 02271000 02272000 05145 045254 02273000 05146 131254 02274000 05147 170201 KER SUBROUTINE LDB CPB JMP ISZ STA RET STAKP ASLMT ASYER,I STAKP STAKP,I STACK OVERFLOW STACK THE INFO Page 65 1,568,094 REVERSE COMPILER SUBROUTINES 02276000 02277000 02278000 02279000 02280000 02281000 02282000 02283000 02284000 02285000 02286000 02287000 02288000 02289000 02290000 02291000 05150 02292000 05151 02293000 05152 02294000 02295000 05153 02296000 05154 02297000 05155 02298000 05156 02299000 05157 02300000 05160 02301000 05161 02302000 02303000 05162 02304000 05163 02305000 05164 02306000 05165 02307000 02308000 05166 02309000 05167 02310000 05170 02311000 05171 02312000 02313000 02314000 02315000 02316000 02317000 05172 05173 05174 MNEMONIC TABLE SCAN SUBROUTINE FOR REVERSE COMPILER ON ENTRY:

A-REGISTER = OPCODE B-REGISTER = WORD ADDRESS OF TABLE ON EXIT:

GUIDE = CHARACTER COUNT INCLUDED ASCII = CHARACTER POINTER TO RIGHT END OF MNEMONIC A-REGISTER= GUIDE A-REGISTER = GUIDE 031711 TSCAN 034017 074770 000177 Y 1 031713 074570 Y 2 170607 172603 045713 066155 170507 011711 066166 066153 001237 050170 061713 031237 054017 004017 035240 STA Tl STB D WBD A,D LDA PO STA T 3 WBD A,I SAL 8 SAM + 3,C ISZ T 3 JMP Y 2 SAR CPA JMP JMP LDA AND IOR STA DSZ LDB STB 8 Tl + 2 Y 1 GUIDE M 256 T 3 GUIDE D D ASCII SAVE OPCODE INITIALIZE CHARACTER POINTER INITIALIZE CHARACTER COUNT SKIP IF OPCODE JUMP IF FOUND RECORD CHARACTER COUNT RECORD CHARACTER POINTER 05175 170201 Page 66 116 116 RET 1 1,568,094 REVERSE COMPILER SUBROUTINES 02319000 02320000 02321000 02322000 02323000 02324000 02325000 02326000 05176 004304 02327000 05177 014016 02328000 05200 170201 02329000 02330000 05201 034017 02331000 05202 074571 02332000 02333000 05203 004017 02334000 05204 014016 02335000 05205 066264 02336000 05206 000017 02337000 05207 074771 02338000 05210 004017 02339000 05211 014016 02340000 05212 066262 02341000 02342000 05213 031241 02343000 05214 030017 02344000 05215 074570 02345000 05216 031711 02346000 05217 020332 02347000 05220 100000 02348000 05221 170507 02349000 05222 050130 02350000 05223 010142 02351000 05224 066253 02352000 05225 010141 02353000 05226 066257 02354000 05227 010140 02355000 05230 066245 02356000 05231 010137 02357000 05232 066240 02358000 05233 010136 02359000 05234 066253 02360000 05235 010135 02361000 05236 066257 02362000 02363000 05237 066203 BACKWARD SCAN SUBROUTINE FOR REVERSE COMPILER ON RETURNTOP+ 11: ATLH LIMIT ONRETURNTOP+ -REGISTERHASBYTE ON RETURN TO P+ 2: B-REGISTER HAS BYTE RSCAN RSCL LDB CPB RET ACBUF C I STB D WBD B,I LDB CPB JMP LDA WBD LDB CPB JMP STA STA WBD STA ADA LDA SAR AND CPA JMP CPA JMP CPA JMP CPA JMP CPA JMP CPA JMP D C R 52 D 8.D D C RSI LEFTE D A,I TI ARTBL A,I 8 B 17 P 5 R 55 P 6 R 56 P 7 R 53 P 8 R 54 P 9 R 55 P 10 l R 56 AT LH LIMIT, DONE INITIALIZE FORWARD POINTER JUMP IFC IS OK BACK UP ONE SPACE JUMPIFCNOTOK SAVE OLD D CONTINUE FORWARD SCAN GET RTBL WORD GET CLASS = LITERAL 6 = GTO OR GSB 7 = OPTIONAL ROM 8 = CHARACTER STRING 9 = REAL NUMBER = INTEGER NUMBER JMP RSCL NONE => ONE-BYTE CODE 117 Page 67 117 1,568,094 REVERSE COMPILER SUBROUTINES 02365000 02366000 02367000 02368000 05240 02369000 05241 02370000 05242 02371000 05243 02372000 05244 02373000 02374000 02375000 02376000 05245 02377000 05246 02378000 05247 02379000 02380000 02381000 02382000 02383000 02384000 02385000 02386000 02387000 02388000 02389000 02390000 02391000 02392000 02393000 02394000 02396000 02397000 02398000 02399000 02400000 02401000 CHARACTER STRING CHARACTER STRING 074571 R 54 174040 076541 074570 066242 WBD B,I TCB SIB RSCL WBD A,I JMP -2 GET LENGTH OF STRING SKIP TO END OF STRING OPTIONAL-ROM CODE :,I 074570 R 53 170607 061711 05250 010043 05251 066240 05252 066203 05253 05254 05255 05256 WBD A,I SAL 8 IOR Tl CPA B 411 JMP R 54 JMP RSCL SKIP SECOND CODE OF PAIR IT IS A Pl 'XXX'? YES REAL NUMBER OR ENT LITERAL REAL NUMBER OR ENT LITERAL 074570 R 55 010121 066203 066253 WBD CPA JMP JMP AJI B 34 RSCL -3 LOOK FOR END OF IT GTOORGSB 05257 05260 05261 074570 R 56 074570 066203 WBD WBD JMP A,I A,I RSCL SKIP H S BRANCH ADDRESS NORMAL RETURNS NORMAL RETURNS 05262 05263 05264 02402000 05265 005241 R 51 034016 074761 R 52 170202 LDB LEFTE STB C WBC B,D RET 2 CORRECT C RETURN WITH BYTE Page 68 118 118 1,568,094 REVERSE COMPILER MAIN SECTION 02404000 02405000 INIT 02406000 02407000 ON E 02408000 02409000 B-RE 02410000 02411000 05266 035244 RCLR 02412000 05267 000001 02413000 05270 004450 02414000 05271 024254 02415000 05272 140001 02416000 05273 000262 02417000 05274 130316 02418000 05275 000117 02419000 05276 031251 02420000 02421000 05277 000257 02422000 05300 031610 02423000 05301 001532 02424000 05302 072402 02425000 05303 141532 02426000 02427000 05304 140511 02428000 05305 066323 02430000 02431000 EX 1 02432000 02433000 05306 005244 RXIT 02434000 05307 034017 02435000 05310 074570 02436000 05311 001251 02437000 05312 074750 02438000 05313 000214 02439000 05314 130316 02440000 02441000 05315 005531 02442000 05316 076402 02443000 05317 164001 02444000 05320 170201 IALIZATION :NTRY:

EGISTER HAS LOCATION FOR LEFT END STB ARRBF INITIALIZE LEFT-END POINTER LDA B LDB ACLBI ADB Pl SPECIAL ENTRY INTO ACLBI,I JSM B,I TO CLEAR MOST OF I/O BUFFER LDA TOBLN STA AIBFL,I LDA B 40 STA OFLAG INDICATE NO BUFFER OVERFLOW LDA Ml STA KBFMT INDICATE COMPILE BUFFER IS OVERWRIT LDA REFOR SZA + 2 JSM REFOR,I JSM AGEOL,I LOOK FOR EOL JMP RLI r T ROUTINE LDB STB WBD LDA PBD LDA STA LDB SZB JMP RET ARRBF D INITIALIZE POINTER FOR OVERFLOW FLAG A,I OFLAG A,D STORE OVERFLOW STATUS FLAG EOLB AIBFL,I FIX UP END OF I/O BUFFER APRVC + 2 B,I IS A Pl ROM IN? NO YES Page 69 119 119 1,568,094 REVERSE COMPILER MAIN SECTION 02446000 02447000 MAIN 02448000 02449000 05321 042176 RLOOP 02450000 05322 066306 02451000 02452000 05323 035245 RLI 02453000 05324 024332 02454000 05325 100001 02455000 05326 031237 02456000 05327 004177 02457000 05330 035240 02458000 02459000 05331 005245 02460000 05332 024167 02461000 05333 176405 02462000 05334 000001 02463000 05335 020254 02464000 05336 004333 02465000 05337 042150 02466000 02467000 05340 170507 RL 4 02468000 05341 050130 02469000 05342 022344 02470000 05343 164000 02471000 02472000 05344 105345 AJ 2 02473000 02474000 05345 100424 02475000 05346 005433 02476000 05347 005470 02477000 05350 005470 02478000 05351 005427 02479000 05352 005575 02480000 05353 005433 02481000 05354 005361 02482000 05355 005545 02483000 05356 005610 02484000 05357 005737 02485000 05360 005321 LOOP JSM RSCAN JMP RXIT STB ADB LDA STA LDB STB LDB ADB SBM LDA ADA LDB JSM SAR AND ADA JMP CODE ARTBL B,I GUIDE PO ASCII CODE M 128 RL 4 B Pl AMTBL TSCAN 8 817 AJ 2 A,I SCAN BACKWARDS DONE SAVE BYTE SAVE RTBL WORD INITIALIZE 'ASCII' TO "NO MNEMONIC" RECALL CODE SKIP UNLESS MAINFRAME MNEMONIC GO GET MNEMONIC INFORMATION GET CLASS BRANCH VIA JMP TABLE DEF + 11 JUMPTABLE#2 DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF ASYER,I O UNEXPECTED CODE RC 2 1 OPERAND RC 4 2 UNARY OPERATOR RC 4 3 BINARY OPERATOR RCI 4 EOL ELOUT 5 LITERAL RC 2 6 GTO ORGSB OPROM 7 OPTIONAL-ROM STOUT 8 CHARACTER STRING REOUT 9 REAL NUMBER INTOT 10 INTEGER NUMBER RLOOP 11 IGNORE Page 70 1,568,094 REVERSE COMPILER MAIN SECTION 02487000 02488000 02489000 02490000 02491000 02492000 02493000 02494000 02495000 05361 02496000 05362 02497000 05363 02498000 05364 02499000 05365 02500000 05366 02501000 05367 02502000 05370 02503000 05371 02504000 05372 02505000 05373 02506000 02507000 05374 02508000 05375 02509000 05376 02510000 05377 02511000 02512000 05400 02513000 05401 02514000 05402 02515000 05403 02516000 05404 02517000 05405 02518000 02519000 05406 02520000 05407 02521000 05410 02522000 05411 02523000 05412 02524000 05413 02525000 05414 02526000 05415 02527000 05416 02528000 05417 02529000 05420 02530000 02531000 05421 02532000 05422 02533000 05423 02534000 02535000 05424 02536000 05425 02537000 05426 CALL OPTIONAL-ROM FOR REVERSE COMPILER ON EXIT:

ON EXIT:

004326 025245 104001 076407 024254 035246 024254 035247 104001 014257 066772 044016 074760 031250 074761 105247 176205 140001 066406 001237 066340 001250 020257 170700 024000 176204 100001 170607 066420 100001 050170 031237 105246 176202 140001 'GUIDE'= 'GUIDE' INFORMATION 'ASCII' = CHARACTER POINTER TO RIGHT END OF MNEMONIC OPROM LDR ATROM OPROM LDR ATROM E 20 A ADB LDB SZB ADB STB ADB STB LDB CPB JMP ISZ WBC STA WBC LDB SBP JSM JMP LDA JMP LDA ADA RAR ADB SBP LDA SAL JMP LDA AND STA LDB SBP JSM 001250 042150 066340 LDA JSM JMP CODE B,I E 20 A Pl RTI Pl RT 2 B,I Ml E 20 C A,D RT 3 B,D RT 2,1 + 5,C B,I + 3 GUIDE RL 4 RT 3 Ml 1 A + 4,C B,I 8 + 3 B,I M 256 GUIDE RTI,I + 2,C B., RT 3 TSCAN RL 4 GET ROM PAGE ADDRESS SKIP IF ROM IS MISSING COMPILE REVERSE COMPILE ERROR, ROM MISSING GET ROM'S RELATIVE CODE OPTIONAL CALL ON ROM SPECIAL RETURN FOR STRING ROM SKIP IF LEFT HALF SAVE 'GUIDE' INFORMATION OPTIONAL CALL ON ROM GO GET MNEMONIC INFORMATION 121 Page 71 121 1221,568,094 1 L Page 72 REVERSE COMPILER02539000 02540000 EOL 02541000 02542000 05427 000305 RCI 02543000 05430 031254 02544000 05431 000177 02545000 05432 031243 02546000 02547000 OPEI 02548000 02549000 05433 001237 RC 2 02550000 05434 005240 02551000 05435 042754 02552000 05436 000177 RC 2 A 02553000 05437 031252 02554000 02555000 05440 004305 RC 3 02556000 05441 015254 02557000 05442 066321 02558000 02559000 05443 101254 02560000 05444 055254 02561000 05445 031237 02562000 05446 105254 02563000 05447 055254 02564000 05450 010245 02565000 05451 066455 02566000 05452 042754 02567000 05453 000177 02568000 05454 031252 02569000 02570000 05455 001237 RC 3 A 02571000 05456 004000 02572000 05457 170507 02573000 05460 050130 02574000 02575000 05461 174513 02576000 05462 014140 02577000 05463 004137 02578000 05464 035243 02579000 05465 010144 02580000 05466 066321 02581000 05467 066440 MAIN SECTION CODE LDA STA LDA STA RAND LDA LDB JSM LDA STA LDB CPB JMP LDA DSZ STA LDB DSZ CPA JMP JSM LDA STA LDA LDB SAR AND SBR CPB LDB STB CPA JMP JMP ASTAK STAKP PO LAST GUIDE ASCII NMOUT PO IMMFG ASTAK STAKP RLOOP RESET STACK POINTER RESET 'LAST' OUTPUT OPERAND STACK EMPTY? YES STAKP,I RECALL STACKED 'GUIDE' STAKP GUIDE STAKP,I RECALL STACKED 'ASCII' STAKP IMCON = 131400 B RC 3 A JUMP IF IMPLIED MULTIPLY NMOUT OUTPUT TOS PO IMMFG NOT IMPLIED MULTIPLY GUIDE A 8 B 17 12 P 7 P 8 LAST P 3 RLOOP RC 3 A=CLASS B=PRIORITY CHANGE 7 TO 8 SET 'LAST' BINARY OPERATOR? YES NO 122 1,568,094 I 1) 1,568,094 REVERSE COMPILER MAIN SECTION OPERATOR OPERATOR 05470 001237 RC 4 05471 170513 05472 031242 05473 000305 05474 011254 05475 066505 05476 101254 05477 170513 05500 010132 05501 000133 05502 170140 05503 021242 05504 172405 05505 001242 RC 5 05506 170140 05507 021243 05510 172406 05511 042107 RC 6 05512 000177 05513 031252 05514 000254 05515 031243 05516 05517 05520 05521 05522 05523 05524 05525 05526 05527 001240 RC 7 042142 001237 042142 001242 010131 066530 010130 066532 066321 05530 042107 05531 066540 05532 05533 05534 05535 05536 05537 05540 05541 05542 05543 05544 RC 8 000177 RC 9 042142 000230 042142 000067 042114 000171 RCOM 031252 000254 031243 066321 LDA SAR STA LDA CPA JMP LDA SAR CPA LDA CMA ADA SAM LDA CMA ADA SAM JSM LDA STA LDA STA LDA JSM LDA JSM LDA CPA JMP CPA JMP JMP GUIDE 12 PRI ASTAK STAKP RC 5 STAKP,I 12 P 13 P 12 PRI RC 6 PRI LAST RC 7 RCPAR PO IMMFG Pl LAST ASCII RCSTK GUIDE RCSTK PRI P 14 RC 8 P 15 RC 9 RLOOP JSM RCPAR JMP RCOM LDA JSM LDA JSM LDA JSM LDA STA LDA STA JMP PO RCSTK RK 2 RCSTK B 135 RCOUT PO IMMFG Pl LAST RLOOP A=INPUT PRIORITY STACK EMPTY? YES A=PR 2 CHANGE 13 TO 12 PRI-PR 2-1 LAST-PRI-1 STACK '(' AND OUTPUT ')' COVERS CASE ( 2 + 3)4 SET 'LAST' STACK INPUT INFORMATION RECALL INPUT PRIORITY STACK"'(' AND OUTPUT ')' STACK 'l' OUTPUT 'l' COVERS CASE Al 213 SET 'LAST' 123 123 Page 73 02583000 02584000 02585000 02586000 02587000 02588000 02589000 02590000 02591000 02592000 02593000 02594000 02595000 02596000 02597000 02598000 02599000 02600000 02601000 02602000 02603000 02604000 02605000 02606000 02607000 02608000 02609000 02610000 Q 2611000 02612000 02613000 02614000 02615000 02616000 02617000 02618000 02619000 02620000 02621000 02622000 02623000 02624000 02625000 02626000 02627000 02628000 02629000 02630000 02631000 02632000 02633000 1,568,094 REVERSE COMPILER MAIN SECTION 02635000 02636000 SECT 02637000 02638000 05545 000116 STOUT 02639000 05546 042114 02640000 05547 044016 02641000 05550 035270 02642000 05551 044016 02643000 05552 074560 02644000 05553 072415 02645000 05554 031712 02646000 05555 031713 02647000 02648000 05556 074560 02649000 05557 055712 02650000 05560 066556 02651000 05561 074760 02652000 02653000 05562 074760 02654000 05563 042114 02655000 05564 010116 02656000 05565 042114 02657000 05566 055713 02658000 05567 066562 02659000 02660000 05570 000116 STI 02661000 05571 042114 02662000 05572 005270 02663000 05573 034016 02664000 05574 066436 02666000 02667000 SE 02668000 02669000 05575 044016 ELO 02670000 02671000 05576 074560 ELI 02672000 05577 010121 02673000 05600 066602 02674000 05601 066576 02675000 05602 054016 EL 2 02676000 02677000 05603 074760 EL 3 02678000 05604 010121 02679000 05605 066321 02680000 05606 042114 02681000 05607 066603 ION TO OUPUT A STRING IN LIST FORMAT LDA JSM LDB STB ISZ WBC SZA STA STA WBC DSZ JMP WBC WPC JSM CPA JSM DSZ JMP LDA JSM LDB STB JMP B 42 RCOUT OUTPUT TRAILING QUOTE C SAVEC SAVEC C A,I GET LENGTH STI T 2 T 3 A,I T 2 -2 A,D FIND RIGHT-HAND END OF STRING POINT TO RIGHT-HAND END OF STRING A,D READ A CHARACTER RCOUT MOVE TO OUTPUT B 42 RCOUT DUPLICATE IF" T 3 -5 B 42 RCOUT OUTPUT LEADING QUOTE SAVEC C RESTORE C RC 2 A :CTION TO OUTPUT LITERAL UT ISZ C WBC CPA JMP JMP DSZ WBC CPA JMP JSM JMP AI B 34 EL 2 ELI C SKIP PAST LEADING B 34 FIND RIGHT-HAND END OF LITERAL A,D READ A CHARACTER B 34 RLOOP RCOUT MOVE TO OUTPUT EL 3 Page 74 124 124 1,568,094 REVERSE COMPILER MAIN SECTION 02683000 02684000 02685000 02686000 05610 001252 02687000 05611 170140 02688000 05612 031252 02689000 05613 072002 02690000 05614 042107 02691000 05615 004016 02692000 05616 035270 02693000 05617 000345 02694000 05620 030017 02695000 05621 071603 02696000 05622 173201 02697000 02698000 05623 074560 02699000 05624 074560 02700000 05625 010103 02701000 05626 173211 02702000 05627 010102 02703000 05630 173307 02704000 05631 010101 02705000 05632 173301 02706000 02707000 05633 074560 02708000 05634 170607 02709000 05635 170401 02710000 05636 031770 02711000 02712000 05637 074560 02713000 05640 010121 02714000 05641 066644 02715000 05642 074550 02716000 05643 066637 02717000 02718000 05644 005270 02719000 05645 034016 02720000 02721000 02722000 02723000 05646 001770 02734000 05647 170405 02725000 02726000 05650 173022 02727000 02728000 05651 172002 02729000 05652 170040 02730000 05653 040762 02731000 05654 000135 02732000 05655 024103 02733000 05656 031711 02734000 05657 000001 02735000 05660 042114 02736000 05661 001711 02737000 05662 072071 SECTION TO OUTPUT A REAL NUMBER IN LIST FORMAT REOUT RN 2 RN 3 A LDA IMMFG CMA STA IMMFG RZA + 2 JSM RCPAR LDB C STB SAVEC LDA ADRI STA D CLR 4 SOC +I,C WBC A,I WBC A,I CPA B 60 SOC RN 2,C CPA B 61 SOC RN 2,S CPA B 63 SOC + 1,S WBC A,I SAL 8 AAR 2 STA ARI WBC A,l CPA B 34 JMP RN 3 A PBD A,I JMP RN 2 LDB SAVEC STB C DUMPING NUMBER WITH 1 ACTIVE SAVE C CLEAR ARI GET FORMAT INDICATOR JUMP IF F/NX JUMP IF E/NX SET UP EXPONENT MOVE DIGITS TO ARI RESTORE C ENTER HERE IF NUMBER ALREADY IN ARI LDA ARI AAR 6 RN 4 SOC ROUTF SAP TCA JSM DEF ADB STA LDA JSM LDA RZA SDIV Plo O B 60 TI B RCOUT Tl RN 4 LOOK AT EXPONENT SKIP IF F-FORMAT GET ABS OF EXPONENT GET EXPONENT DIGIT CONVERT TO ASCII MOVE TO OUTPUT Page 75 1,568,094 Page 76 02739000 05663 02740000 05664 02741000 05665 02742000 05666 02743000 05667 02744000 05670 02745000 02746000 05671 02747000 02748000 05672 02749000 05673 02750000 05674 02751000 05675 02752000 05676 02753000 05677 02754000 05700 02755000 05701 02756000 05702 02757000 05703 02758000 05704 02759000 02760000 05705 02761000 05706 02762000 05707 02763000 05710 02764000 05711 02765000 05712 02766000 05713 02767000 05714 02768000 05715 02769000 05716 02770000 05717 02771000 05720 02772000 05721 02773000 05722 02774000 02775000 05723 02776000 05724 02777000 05725 02778000 05726 02779000 02780000 05727 02781000 05730 02782000 05731 02783000 05732 02784000 05733 02785000 05734 02786000 05735 02787000 02788000 05736 REVERSE COMPILER MAIN SECTION 001770 172003 000106 042114 000063 042114 000177 170140 031711 020133 172010 031712 000103 042114 045711 045712 066700 066727 ROUTF ROUTF 170040 RF 2 172021 004103 035712 031713 075441 RF 3 060103 011712 066721 042114 000177 031712 045713 066712 001712 072003 042114 001711 172006 075441 060103 042114 045711 066731 066440 LDA SAP LDA JSM LDA JSM ARI + 3 B 55 RCOUT B 145 RCOUT LDA PO CMA STA ADA SAP STA LDA JSM ISZ ISZ JMP JMP TCA SAP LDB STB STA DRS IOR CPA JMP JSM LDA STA ISZ JMP LDA RZA LDA JSM RF 4 LDA SAP RF 5 DRS IOR JSM ISZ JMP RF 6 JMP TEST EXPONENT SIGN OUTPUT '-' OUTPUT 'EEX' FALL THROUGH TO F-SECTION TI P 12 RF 2 T 2 B 60 RCOUT TI T 2 -3 RF 4 RF 4 B 60 T 2 T 3 B 60 T 2 + 4 RCOUT PO T 2 T 3 RF 3 T 2 + 3 B 56 RCOUT TI RF 6 B 60 RCOUT TI RF 5 RC 3 SAVE K = I'S COMPLEMENT OF EXP OUTPUT '0 ' TO LEFT OF DECIMAL SET INSIGNIFICANT-ZERO FLAG DIGIT COUNTER SHIFT ARI RIGHT CONVERT TO ASCII DON'T OUTPUT INSIGNIFICANT ZEROS RESET INSIGNIFICANT-ZERO FLAG OUTPUT ' ' RECALL K DONE SHIFTARI RIGHT CONVERT TO ASCII TEST FOR FINAL MSD 126 126 1,568,094 REVERSE COMPILER MAIN SECTION 02790000 02791000 02792000 02793000 05737 02794000 05740 02795000 05741 02796000 05742 02797000 05743 02798000 05744 02799000 05745 02800000 05746 02801000 05747 02802000 05750 02803000 05751 02804000 05752 02805000 05753 SECTION TO OUTPUT AN INTEGER 004016 INTOT 035270 044016 074560 170607 074561 024000 140563 000127 004345 071403 173201 066644 LDB STB ISZ WBC SAL WBC ADB JSM LDA LDB XFR SOC JMP C SAVEC C A,I 8 B,I A AFLTP,I ADR 2 ADRI 4 +l,C RN 3 A SAVE C GET THE INTEGER CONVERT TO FLOATING MOVE TO ARI 127 Page 77 127 1,568,094 REVERSE COMPILER MAIN SECTION 02807000 02808000 02809000 02810000 02811000 02812000 02813000 02814000 02815000 05754 050045 02816000 05755 076002 02817000 05756 066114 02818000 02819000 05757 031711 02820000 05760 000016 02821000 05761 031270 02822000 05762 034016 02823000 05763 074760 02824000 05764 042114 02825000 05765 055711 02826000 05766 066763 02827000 02828000 05767 005270 02829000 05770 034016 02830000 05771 170201 02832000 02833000 02834000 02835000 05772 140405 02836000 05773 031060 02837000 05774 001245 02838000 05775 004320 02839000 05776 140477 02840000 05777 164407 02842000 02843000 02844000 02845000 00356 02846000 00356 00526602847000 00357 005775 02848000 02849000 00332 02850000 00332 015477 02851000 02852000 SUBROUTINE TO OUTPUT NORMAL CODES ON ENTRY:

A-REGISTER ='GUIDE' INFORMATION B-REGISTER ='ASCII' INFORMATION NMOUT AND B 377 RZB NMI JMP RCOUT NM 1 NM 2 STA LDA STA STB WBC JSM DSZ JMP LDB STB RET Tl C SAVEC C A,D RCOUT Tl NM 2 SAVEC C SKIP IF MNEMONIC OUTPUT DIRECT CODE INITIALIZE CHARACTER COUNTER SAVE C MOVE A CHARACTER RESTORE C MISSING ROM E 20 DSRMI JSM ASC LDA LDB JSM JMP AERR 2,I 1,20 CODE AIOLM ABTDA,I AEREX,I ERROR, MISSING ROM INCLUDE ROM'S ID FILL IN BASE-PAGE LINKS ORG DEF DEF ARCLR RCLR DSRMI ORG ARTBL DEF RTBL END END OF PASS 2 NO ERRORS DETECTED BASE-PAGE READ-WRITE-MEMORY 00003000 76550 00004000 ORG 76550 B UNL Page 78 Page 79 128 128 129 Page 80 02001000 02002000 02003000 02004000 06012 02005000 02006000 06012 140404 02007000 06013 030071 02008000 06014 177737 02010000 02011000 02012000 02013000 02014000 02015000 02016000 02017000 02018000 02019000 02020000 06015 072413 02021000 06016 031712 02022000 06017 172012 02023000 02024000 06020 100001 02025000 06021 170507 02026000 06022 050053 02027000 06023 170040 02028000 06024 072414 02029000 06025 024000 02030000 06026 045712 02031000 06027 067020 02032000 02033000 06030 170201 02034000 02035000 06031 100001 02036000 06032 050053 02037000 06033 072405 02038000 06034 024000 02039000 06035 055712 02040000 06036 067031 02041000 02042000 06037 170201 02043000 02044000 06040 064722 02046000 02047000 02048000 02049000 06041 000001 02050000 06042 170140 02051000 06043 020330 02052000 06044 172002 02053000 06045 170201 02054000 06046 170202 INTE 129 1,568,094 INTERPRETER RPRETER ORG 6012 B E 9 JSM AERRI,I ERROR, WRONG CONTROL STATE ASC 1,09 M 33 DEC -33 SUBROUTINE TO SKIP N LINES ON ENTRY: A = + SKIP DISTANCE B = STARTING ADDRESS ON EXIT: B = ADDRESS OF TARGET LINE TEMPORARIES USED: T 2 RELGO SZA XIT SKIP IF NOTHING TO DO STA T 2 SAP FSKIP WHICH WAY? BSKIP LDA B,I BACKWARDIFSAR 8 BACKWARD LINK AND B 177 TCA SZA E 31 ERROR IF ZERO ADB A ISZ T 2 JMP BSKIP XIT RET I DONE FSKIP LDA B,I FORWARD IF + AND B 177 FORWARD LINK SZA E 31 ADB A DSZ T 2 JMP FSKIP RET I DONE E 31 JMP ERLNF ERROR, NONEXISTENT LINE SUBROUTINE TO DETERMINE WHETHER B IS IN COMPILE BUFFER FINDB FINDB LDA B CMA ADA ABNRY SAP + 2 RET 1 RET 2 ABNRY-B I YES NO 1,568,094 INTERPRETER 02056000 02057000 EXEC 1 02058000 02059000 ON EI 02060000 02061000 02062000 ON E X 02063000 02064000 02065000 TEMP 02066000 02067000 06047 000144 PHVAR 02068000 06050 004267 02069000 06051 067054 02070000 02071000 06052 000140 PHCON 02072000 06053 004266 02073000 02074000 06054 031711 OVTST 02075000 06055 035712 02076000 06056 170040 02077000 06057 005310 02078000 06060 174140 02079000 06061 021263 02080000 06062 024000 02081000 06063 176003 02082000 06064 140404 E 40 02083000 06065 032060 02084000 02085000 06066 031263 02086000 06067 020257 02087000 06070 030017 02088000 02089000 06071 005712 02090000 06072 070551 02091000 06073 005711 02092000 06074 070551 02093000 02094000 06075 004017 02095000 06076 170201 UTION STACK OVERFLOW TEST ITRY: A = # OF WORDS NEEDED B = 'WHAT' IT: A Pl = UPDATED B = D = POINTS TO 'LENGTH' ORARIES USED: T 1,T 2 LDA LDB JMP P 3 FVRWM + 3 LDA P 7 LDB FPTMP STA STB TCA LDB CMB ADA ADB SBP JSM ASC Tl T 2 RMAX A Pl A + 3 AFRRI,I 1,40 SPECIAL ENTRY TO STACK VARIABLE SPECIAL ENTRY TO STACK CONSTANT API-(RMAX+I) ERROR, STACK OVERFLOW STA A Pl ADA Ml STA D LDB T 2 PWD Bl LDB Ti PWD B,I LDB D RET 1 FILL IN 'WHAT' FILL IN 'LENGTH' Page 81 131 1,568,094 INTERPRETER 02097000 02098000 02099000 02100000 02101000 02102000 02103000 02104000 02105000 02106000 06077 02107000 06100 02108000 06101 02109000 06102 02110000 06103 02111000 06104 02112000 02113000 06105 02114000 06106 02115000 06107 02116000 06110 02117000 06111 02118000 06112 02119000 06113 02120000 06114 02121000 06115 02122000 06116 02123000 06117 02124000 06120 02125000 06121 02126000 06122 02127000 06123 02128000 06124 02129000 06125 02130000 06126 02131000 06127 02132000 06130 02133000 06131 02134000 06132 02135000 02136000 06133 ASSIGNMENT TRACE ON ENTRY: A-REGISTER = SOURCE ADDRESS B-REGISTER= DESTINATION ADDRESS TEMPORARIES USED: T Il,T 2,T 3 T 4,T 5,T 6,T 7 T 8,T 9,T 1 I,TI 2 PLUS THOSE USED BY ACLBI,ABTDA,ATCHR,APSTR, APNUMAPNMR 071403 ASTRC 140551 001267 172031 000016 031270 005762 140377 074550 000315 004017 140362 004000 000314 030017 000305 140502 000325 030017 000315 031727 140462 005723 140506 000000 140445 066444 170201 AS 170201 AS I XFR JSM LDA SAP LDA STA 4 AFLTC,I TRACE ASI C SAVEC LDB MRWI+ 4 JSM AGNAM,I LDA B 75 PBD A,l LDA AIBFM LDB D JSM AFBAD,I LDB A LDA AIBFX STA D LDA ASTAK JSM ATCHR,I LDA ACSTF STA D LDA AIBFM STA T 15 JSM APSTR,I LDB Tl I JSM APNUM,I NOP JSM APNMR,I JMP FTR 2 + 1 TRANSFER THE NUMBER CHECK IF IN USER RANGE TEST TRACE FLAG SKIP IF NO TRACING REQUIRED SAVE C (WAS SAVED BY AFLTCI) GET VARIABLE NAME OUTPUT = GET CHARACTER COUNT PRINT THE VALUE ASSIGNED RET I 131 Page 82 1,568,094 INTERPRETER IF EXECUTION JSM ADB LDA RZA AGTAD,I Pl B,I MLOOP GET OPERAND ADDRESS LOOK AT MANTISSA TRUE' 02146000 02147000 EO 02148000 02149000 06140 005264 XEOI 02150000 06141 176202 02151000 06142 067220 02152000 02153000 06143 001261 XEO 02154000 06144 031263 02155000 02156000 06145 034016 XEX 02157000 06146 074560 02158000 06147 050053 02159000 06150 072431 02160000 06151 100001 02161000 06152 051314 02162000 06153 050052 02163000 06154 072026 02164000 06155 002155 02165000 06156 061347 02166000 06157 072023 02167000 02168000 06160 034016 XE 2 02169000 06161 074560 02170000 06162 050053 02171000 06163 072416 02172000 02173000 06164 035265 02174000 06165 020001 02175000 06166 031264 02176000 02177000 06167 101265 LNTI 02178000 06170 051314 02179000 06171 031267 L EXECUTION LDB SBP JMP LEND + 2,C XCGSB GO COMPLETE GOSUB LDA AP 3 STA A Pl RC 02180000 06172 172004 02181000 06173 067207 STB WBC AND SZA LDA AND AND RZA LDA IOR RZA STB WBC AND SZA STB ADA STA LDA AND STA C A,I B 177 XE 3 B,I TE B 200 XE 4 XCOMM INTSR XE 4 C A,I B 177 XE 3 HERE B LEND HERE,I TE TRACE GET WLENGTH GET STOPBIT "CONTINUE" ENTERS HERE GET WLENGTH OF LINE SET CURRENT LINE SET NEXT LINE SAVE CURRENT LINE TRACE INFORMATION SAP MLOOP JMP XE 6 GO TRACE LINE# Page 83 02138000 02139000 02140000 02141000 02142000 02143000 02144000 06134 06135 06136 06137 140611 XIF 024254 100001 072037 132 132 LN 1,568,094 INTERPRETER 02183000 02184000 EXEC 02185000 02186000 06174 001261 XSEMI 02187000 06175 031263 02188000 02189000 MAIN L( 02190000 02191000 06176 074560 MLOOP 02192000 06177 022475 02193000 06200 164000 02195000 02196000 RE 02197000 02198000 06201 000117 XE 3 02199000 06202 040744 XE 4 02200000 06203 014334 02201000 06204 005317 02202000 06205 035266 02203000 06206 170201 02205000 02206000 LI 1 02207000 02208000 06207 000016 XE 6 02209000 06210 031270 02210000 02211000 06211 005265 02212000 06212 140523 02213000 06213 140476 02214000 06214 000077 02215000 06215 074550 02216000 06216 042443 02217000 06217 067176 CUTION LDA AP 3 STA A Pl OOP WBC ADA JMP CLEAR TOS Al ABTBL AJ GET BYTE ADD JUMP TABLE ORIGIN ETURN TO CALLER LDA JSM CPB LDB STB RET B 40 SXCMM ADPO SWHRE WHERE GO SET BITS IN XCOMM NE NUMBER TRACE LDA C STA SAVEC SAVE C LDB JSM JSM LDA PBD JSM JMP HERE AGLNO,I ATLNI,I B 72 A,I FTR 2 MLOOP GET LINE # OF CURRENT LINE PUT LINE # INTO I/O BUFFER FOLLOWED BY -:"

GO PRINT I/O BUFFER 133 Page 84 133 1,568,094 INTERPRETER 02219000 02220000 COMI 02221000 02222000 06220 035176 XCGSB 02223000 02224000 06221 001257 02225000 06222 010254 02226000 06223 043041 02227000 06224 067227 02228000 06225 140516 02229000 06226 140425 02230000 02231000 06227 005261 XCG O 02232000 06230 035263 02233000 02234000 06231 000150 02235000 06232 140521 02236000 06233 031470 E 38 02237000 02238000 06234 004257 02239000 06235 070551 02240000 06236 001257 02241000 06237 073014 02242000 06240 005716 02243000 06241 043041 02244000 06242 067251 02245000 06243 001257 02246000 06244 010254 02247000 06245 000145 02248000 06246 010144 02249000 06247 000141 02250000 06250 031257 02251000 06251 004334 02252000 06252 067257 02253000 02254000 06253 005265 XCGI 02255000 06254 100001 02256000 06255 050053 02257000 06256 024000 02258000 06257 070551 XCG 2 02259000 02260000 06260 005716 02261000 06261 067145 PLETE GOSUB STB T 6 LDA CPA JSM JMP JSM JSM SAVE JUMP ADDRESS CSTAT Pl FINDB XCG O AREST,I ACNIN,I IN COMPILE BUFFER? YES UNSTACK INITIALIZE FOR CONTINUE LDB AP 3 STB A Pl LDA JSM ASC LDB PWD LDA SLA LDB JSM JMP LDA CPA LDA CPA LDA STA LDB JMP LDB LDA AND ADB PWD M 4 ASTKG,I 1,38 Ml B,I CSTAT XCG 1 T 6 FINDB + 7 CSTAT Pl P 2 P 3 P 6 CSTAT ADPO XCG 2 HERE B,I B 177 A B,I NEED 4 WORDS GO STACK OLD AP 3,A Pl ERROR, GOSUBS NESTED TOO DEEP SAVE NULL PARM LIST ON TOS-2 SKIP IF EXECUTING FROM USER PROGRAM IN COMPILE BUFFER? YES UPDATE CSTAT IF NECESSARY FAKE RETURN ADDRESS SAVE RETURN ADDRESS ON TOS-3 LDB T 6 RECALL JUMP ADDRESS JMP XEX 134 Page 85 134 13 1,6,9 13 Page 86 02263000 02264000 RET E 02265000 02266000 06262 005263 XRETN 02267000 06263 024254 02268000 06264 035711 02269000 02270000 06265 005261 02271000 06266 034017 02272000 06267 070571 02273000 06270 014257 02274000 06271 067310 02275000 02276000 06272 025300 02277000 06273 036261 02278000 06274 070571 02279000 06275 101711 02280000 06276 170040 02281000 06277 031712 02282000 06300 024000 02283000 06301 025300 02284000 06302 035263 0228500 02286000 06303 070570 02287000 06304 172402 02288000 06305 165527 02289000 02290000 06306 070571 02291000 06307 067143 02292000 02293000 06310 140404 E 28 02294000 06311 031070 INTERPRETER XECUTION LDB A Pl ADB Pl STB T I LDB AP 3 STB D WWD B,1 CPB M I JMP E 28 ADB AP 2 STB AP 3 WWD B,1 LDA T Il TCA STA T 2 ADB A ADB AP 2 STB A Pl WWDA,I SAM + 2 JMP APRET I WWD B,I JMP XE O JSM AERRI,I ASC 1,28 SAVE POINTER RETRIEVE AP 3 LINK ERROR, NO MATCHING GSB RESTORE OLD AP 3 GET LENGTH OF RETURN PARAMETER UPDATED A Pl UDF CALL? NO YES LINK TO UDF ROM GET RETURN ADDRESS ERROR, RET WITH NO MATCHING GSB 1,568,094 136 Page 87 02296000 02297000 STACI 02298000 02299000 06312 074560 NWEXP 02300000 06313 170607 02301000 06314 170401 02302000 06315 067317 02303000 06316 000177 NNEXP 02304000 06317 031713 02305000 06320 043052 02306000 06321 004144 02307000 06322 070551 02308000 06323 020143 02309000 06324 071603 02310000 06325 001713 02311000 06326 070550 02312000 06327 074560 NNI 02313000 06330 010121 02314000 06331 067176 02315000 06332 074550 02316000 06333 067327 1,568,094 INTERPRETER K NUMBER WBC SAL AAR JMP LDA STA JSM LDB PWD ADA CLR LDA PWD WBC CPA JMP PBD JMP A,I 8 2 + 2 PO T 3 PHCON P 3 B,I P 4 4 T 3 A,I A,I B 34 MLOOP A,I NNI NUMBER WITH EXPONENT NUMBER WITHOUT EXPONENT WHERE = RELATIVE 3 SET EXPONENT GET DIGIT PAIR STORE IN VALUE 02318000 02319000 02320000 02321000 06334 02322000 06335 02323000 06336 02324000 06337 02325000 06340 02326000 06341 02327000 06342 02329000 02330000 02331000 02332000 06343 02333000 06344 02334000 06345 02335000 06346 STACK Pl 043052 XPIE 000144 070550 024145 000173 071403 067176 JSM LDA PWD ADB LDA XFR JMP PHCON P 3 A,I P 2 APIE 4 MLOOP WHERE = RELATIVE 3 TRANSFER 'PI' TO STACK STACK ENR 043047 XENR 004341 070551 067176 JSM LDB PWD JMP PHVAR AENR B,I MLOOP WHERE = IN ENTER REGISTER 136 137 pme 88 02337000 0338000 STACI 02339000 02340000 06347 043047 XARES 02341000 06350 004342 02342000 06351 070551 02343000 06352 067176 1,568094 INTERPRETER K USER RESULT ADDRESS JSM PHVAR LDB AURES PWD B,I JMP MLOOP 137 WHERE = IN USER RESULT REGISTER 02345000 02346000 STAC 02347000 02348000 06353 043052 XVRES 02349000 06354 000144 02350000 06355 070550 02351000 06356 024145 02352000 06357 000342 02353000 06360 071403 02354000 06361 067176 K USER RESULT VALUE JSM PHCON LDA P 3 PWD A,I ADB P 2 LDA AURES XFR 4 JMP MLOOP WHERE= RELATIVE 3 TRANSFER VALUE TO STACK 02356000 02357000 STAC 02358000 02359000 06362 074560 XSTRG 360000 06363 031713 02361000 06364 020254 0262000 06365 170500 02363000 06366 020143 02364000 06367 004264 02365000 06370 043054 02366000 06371 004265 02367000 06372 070551 02368000 06373 005713 023690100 06374 070551 02370000 06375 174040 02371000 06376 067401 02372000 02373000 06377 074560 XSTRI 02374000 06400 074550 02375000 06401 076176 XSTR 2 02376000 06402 067176 K STRING WBC STA ADA SAR ADA LDB JSM LDB PWD LDB PWD TCB JMP WBC PBD RIB JMP A,I T 3 Pl l Pl P 4 STTMP OVTST STWHR B,I T 3 B,I XSTR 2 A,l A,I XSTRI MLOOP GET CHARACTER COUNT LENGTH WHAT = STRING/CONSTANT WHERE = RELATIVE 4 (CHARACTER) BYTE COUNT MOVE BYTES 1,568,094 Page 89 02378000 02379000 02380000 02381000 06403 02382000 06404 02383000 06405 02384000 06406 02385000 06407 02386000 02387000 06410 02388000 06411 02389000 06412 02390000 02391000 06413 02392000 06414 02393000 06415 02394000 06416 INTERPRETER STACK SUBSCRIPTED VARIABLE 023465 XSSVR 100000 072003 140404 E 27 031067 015263 014171 067470 104000 035714 020254 031271 02395000 06417 140610 02396000 06420 010001 02397000 06421 067423 02398000 06422 064733 02399000 06423 011714 02400000 06424 067427 02401000 06425 140404 E 25 02402000 06426 031065 02403000 02404000 06427 000177 02405000 06430 031715 NEXTI 02406000 06431 140612 02407000 06432 125271 02408000 06433 045271 02409000 06434 176432 02410000 06435 035716 02411000 06436 101271 02412000 06437 045271 02413000 06440 174140 02414000 06441 024000 02415000 06442 176424 02416000 02417000 06443 005715 02418000 06444 075617 02419000 06445 021716 02420000 06446 173420 02421000 06447 055714 02422000 06450 067430 ADA LDA RZA JSM ASC LDB CPB JMP LDB STB ADA STA JSM CPA JMP JMP CPA JMP JSM ASC SSRK A,I + 3 AERR 1,I 1,27 API,I ARRAY X 51 A,I T 4 Pl BASE ACOUN,I B + 2 E 32 T 4 + 3 AERRI,I 1,25 LDA PO STA T 5 JSM AGTIN,I ADB BASE,I ISZ BASE SBM E 26 STB T 6 LDA BASE,I ISZ BASE CMB ADB A SBM E 26 LDB T 5 MPY ADA T 6 SOS E 26 DSZ T 4 JMP NEXTI CALCULATE INDEX INTO DATAB ERROR, UNDEFINED ARRAY LOOK AT FIRST OPERAND JUMP IF 'ENTIRE ARRAY' SAVE #DIMS SAVE INDEX INTO DOPE VECTOR # OF NUMERIC PARAMETERS ERROR, DIMENSIONS DISAGREE VARPART GET SUBSCRIPT ADD UlIl SKIP IF OUT OF BOUNDS SAVE Q GET DlI 1 Dll-Q-1 RECALL VARPART VARPARTD lIl+Q ANY MORE PLANES? YES 138 138 139 Page 90 02424000 06451 170601 02425000 06452 170040 02426000 06453 121271 02427000 06454 055263 02428000 06455 131263 02429000 06456 000144 02430000 06457 055263 02431000 06460 131263 02432000 06461 000267 02433000 06462 055263 02434000 06463 131263 02435000 06464 067176 02436000 02437000 06465 167547 SSRK 02438000 02439000 06466 140404 E 26 02440000 06467 031066 1.568,094 INTERPRETER SAL 2 TCA ADA BASE,I DSZ A Pl STA API,I LDA P 3 DSZ A Pl STA API,I LDA FVRWM DSZ A Pl STA API,I JMP MLOOP 4 WDS/REGISTER ADD CONSPART WHERE = IN VALUE TABLE LENGTH = 3 WHAT = FULL/VARIABLE ABS DATAB-1418 + 1000001 B IBTBL JSM AERRI,I ASC 1,26 ERROR, OUT OF BOUNDS 02442000 06470 104000 XSI 02443000 06471 174600 02444000 06472 020254 02445000 06473 020001 02446000 06474 005263 02447000 06475 024145 02448000 06476 104001 02449000 06477 076402 02450000 06500 064733 02451000 02452000 06501 005263 02453000 06502 024145 02454000 06503 071401 02455000 06504 100001 02456000 06505 020144 02457000 06506 130001 02458000 06507 067176 02460000 02461000 STAC 02462000 02463000 06510 023521 XSVAR 02464000 06511 031271 02465000 06512 105271 02466000 06513 014177 02467000 06514 042033 02468000 06515 043047 02469000 06516 105271 02470000 06517 070551 02471000 06520 067176 02472000 02473000 06521 167555 SVRK LDB SBL ADA ADA LDB ADB LDB SZB JMP LDB ADB XFR LDA ADA STA JMP A,I 1 Pl B A Pl P 2 B,l + 2 E 32 A Pl P 2 B,1 P 3 B,l MLOOP IT WAS 'ENTIRE ARRAY' A = LOCATION OF ORGANIZATION DATA TRANSFER 'ENTIRE ARRAY' INFORMATION POINT TO END OF AREA K SIMPLE VARIABLE ADA STA LDB CPB JSM JSM LDB PWD JMP SVRK BASE BASE,I PO ALLO 4 PHVAR BASE I B,I MLOOP CALCULATE INDEX INTO DVTAB RECALL DVTAB ENTRY CALL ALLOCATOR IF UNALLOCATED WHERE = IN VALUE TABLE ABS DVTAB-1018 + 100000 B-IBTBL 139 Page 91 02475000 02476000 02477000 02478000 06522 140524 02479000 06523 067565 02480000 02481000 06524 140531 02482000 06525 067565 02483000 02484000 06526 140543 02485000 06527 067565 02487000 02488000 02489000 02490000 06530 140544 02491000 06531 067565 02492000 02493000 06532 140545 02494000 06533 067565 02495000 02496000 06534 140540 02497000 06535 067565 02498000 02499000 06536 140541 0250000 06537 067565 02501000 02502000 06540 140542 02503000 06541 067565 02504000 02505000 06542 140533 02506000 06543 067565 02507000 02508000 06544 140536 02509000 06545 067565 02510000 0251100006546 140534 02512000 06547 067565 02513000 02514000 06550 140532 02515000 06551 067565 02516000 02517000 06552 140535 02518000 06553 067565 02519000 02520000 06554 140537 02521000 06555 067565 02522000 02523000 06556 140530 02524000 06557 067565 02525000 02526000 06560 140526 02527000 06561 067565 02528000 02529000 06562 140527 02530000 06563 067565 1,568,094 INTERPRETER UNARY OPERATORS XUNM JSM AUNM,I JMP RAPUP XSQR JSM ASQRJ.

JMP RAPUP XNOT JSM ANOT,I JMP RAPUP WRAPUP WRAPUP WRAPUP BINARY OPERATORS XPRND XDRND XAND XLOR XXOR XGTN XEQL XLTN XGEQ XLEQ XNEQ XDIV XSUB XMPY JSM JMP JSM JMP JSM JMP JSM JMP JSM i MP JSM JMP JSM i MP JSM JMP JSM JMP JSM JMP JSM JMP JSM JMP JSM i MP JSM JMP APRND,I RAPUP WRAPUP ADRND,I RAPUP WRAP UP AAND,I RAPUP WRAP UP AOR,I RAPUP WRAP UP AXOR,I RAPUP WRAP UP AVT,I RAPUP WRAPUP AEQ,I RAPUP WRAP UP ALT,I RAPUP WRAP UP AGE,I RAPUP WRAP UP ALE,I RAPUP WRAPUP ANE,I RAPUP WRAP UP ADIV,I RAPUP WRAP UP ASUB,I RAPUP WRAP UP AMUL,I RAPUP WRAP UP 1,568,094 Page 92 02531000 02532000 06564 140525 XADD 02533000 02534000 02535000 02536000 WRAI 02537000 02538000 06565 043052 RAPUP 02539000 06566 000144 02540000 06567 070550 0 Z 54100 02542000 06570 001752 02543000 06571 050164 02544000 06572 010263 02545000 06573 143601 02546000 06574 004017 02547000 06575 024254 02548000 06576 000340 02549000 06577 071403 02550000 06600 067176 02551000 02552000 06601 014000 E 77 02554000 02555000 02556000 02557000 02558000 02559000 02560000 02561000 02562000 02563000 02564000 02565000 02566000 02567000 02568000 02569000 02570000 02571000 02572000 02573000 02574000 02575000 02576000 02577000 INTERPRETER JSM AADD I FALL THRU TO WRAP UP P UP MATH OPERATIONS JSM LDA PWD PHCON P 3 A,I LDA RES AND M 64 CPA FLAG JSM E 77,1 LDB D ADB Pl LDA ARES XFR 4 JMP MLOOP WHERE = RELATIVE 3 TEST FOR EXPONENT = -512 DEF 14000 B NUMERIC ASSIGNMENT 06602 06603 06604 06605 06606 06607 06610 06611 06612 040615 XASN 031263 035712 101276 170513 010136 067613 140404 E 33 031463 06613 101263 06614 050221 06615 010175 06616 067620 06617 067611 06620 040615 06621 000001 06622 005712 06623 043077 06624 067176 JSM STA STB LDA SAR CPA i MP JSM ASC LDA AND CPA JMP JMP JSM LDA LDB JSM JMP ABSAD A Pl T 2 SAVEB,I 12 P 9 + 3 AERRI,I 1,33 API,1 B 70 K BIOK -v 2 E 33 ABSAD B T 2 ASTRC MLOOP UPDATE AP I "TO" ADDRESS ERROR STORE INTO ILLEGAL OPERAND LOOK AT "FROM" TYPE ERROR, ILLEGAL DATA TYPE GET "FROM" ADDRESS GO TRACE ASSIGNMENT 141 141 1,568,094 Page 93 02579000 02580000 EXEC 02581000 02582000 06625 074560 DIMOP 02583000 06626 010141 02584000 06627 067765 02585000 02586000 06630 020166 02587000 06631 172011 02588000 02589000 SECTI 02590000 02591000 06632 020343 02592000 06633 031271 02593000 06634 105271 02594000 06635 076403 02595000 06636 140404 E 23 02596000 06637 031063 02597000 02598000 06640 042033 02599000 06641 067760 02600000 02601000 SECTl 02602000 02603000 06642 020277 DII 02604000 06643 031271 02605000 06644 105271 02606000 06645 076403 02607000 06646 140404 E 24 02608000 06647 031064 02609000 02610000 06650 000254 02611000 06651 031715 02612000 06652 031716 02613000 06653 004305 02614000 06654 034017 02615000 02616000 06655 101263 D 12 02617000 06656 031717 02618000 06657 140612 02619000 06660 035720 02620000 06661 001717 02621000 06662 170604 02622000 06663 172403 02623000 06664 004257 02624000 06665 067670 02625000 06666 140612 02626000 06667 174040 02627000 06670 070551 02628000 06671 025720 02629000 06672 024254 02630000 06673 070551 02631000 06674 035720 INTERPRETER UTE DIM OPERATOR WBC A,I READ NEXT BYTE CPA STRID JMP DMSTR GO DIMSTRING ADA M 97 SAP DI 1 SKIP IF ARRAY VARIABLE ON FOR SIMPLE VARIABLE ADA STA LDB SZB JSM ASC SVRE CALCULATE INDEX INTO DVTAB BASE BASE,I RECALL DVTAB ENTRY + 3 AERRI,I ERROR, SIMPLE VARIABLE 1,23 JSM AL LO 4 CALL ALLOCATOR IF UNALLOCATED JMP CLNUP ION FOR ARRAY VARIABLE ADA STA LDB SZB JSM ADATB BASE BASE,I + 3 AERRI,I ASC 1,24 LDA Pl STA T 5 STA T 6 LDB ASTAK STB D LDA API,I STA T 7 JSM AGTIN,I STB T 8 LDA T 7 SAL 5 SAM + 3 LDB M 1 JMP + 3 JSM AGTIN,I TCB PWD B,I ADB T 8 ADB Pl PWD B,I STB T 8 CALCULATE INDEX INTO DATAB RECALL DATAB ENTRY ERROR, ARRAY ALREADY DIMENSIONED S #DIMS INDEX INTO CSTAK (WORK AREA) LINK BIT INFORMATION GET SUBSCRIPT U RECALL LINK BIT INFORMATION SKIP IF LOWER BOUND SUPPLIED ELSE USE DEFAULT GET SUBSCRIPT -L SAVE UlIl U L+ 1 SAVE DlIl D 142 142 1,568,094 INTERPRETER 02633000 06675 001720 02634000 06676 020257 02635000 06677 173402 02636000 06700 172002 02637000 06701 067773 E 22 A 02638000 02639000 06702 001715 02640000 06703 075617 02641000 06704 031715 02642000 06705 172421 02643000 06706 076020 02644000 02645000 06707 001717 02646000 06710 170603 02647000 06711 172003 02648000 06712 045716 02649000 06713 067655 02650000 02651000 06714 001716 02652000 06715 170600 02653000 06716 020144 02654000 06717 031717 02655000 02656000 06720 001715 02657000 06721 004143 02658000 06722 075617 02659000 06723 031715 02660000 06724 172402 02661000 06725 076403 02662000 06726 140404 E 39 B 02663000 06727 031471 02664000 02665000 06730 021717 02666000 06731 170040 02667000 06732 140370 02668000 06733 030017 02669000 06734 131271 02670000 06735 005716 02671000 06736 134000 02672000 06737 021717 02673000 06740 031717 02674000 06741 031312 02675000 06742 174600 02676000 06743 174040 02677000 06744 035714 02678000 06745 004324 02679000 06746 100001 D 13 02680000 06747 070550 02681000 06750 045714 02682000 06751 076175 02683000 02684000 06752 001717 02685000 06753 021715 02686000 06754 020150 02687000 06755 070550 02688000 06756 001715 LDA ADA SOS SAP JMP T 8 Ml + 2 + 2 E 22 LDA T 5 MPY STA T 5 SAM E 39 B RZB E 39 B LDA T 7 SAL 4 SAP + 3 ISZ T 6 JMP D 12 LDA T 6 SAL I ADA P 3 STA T 7 LDA LDB MPY STA SAM SZB JSM ASC T 5 P 4 T 5 + 2 + 3 AERRI,1 1,39 ADA T 7 TCA JSM ALLOC,I STA D STA BASE,I LDB T 6 STB A,I ADA T 7 STA T 7 STA VT 2 SBL I TCB STB T 4 LDB ASTKI LDA B,l PWD A,l ISZ T 4 RIB D 13 LDA T 7 ADA T 5 ADA M 4 PWD A,l LDA T 5 RECALL D U-L ERROR, ILLEGAL DIM SPEC RECALL S S=SD RECALL LINK BIT INFORMATION SKIP IF END OF SPECS INCREMENT #DIMS 2 #DIMS+ 3 SIZE OF DOPE VECTOR SIZE OF VALUE AREA ERROR, INSUFFICIENT MEMORY REQUEST THE SPACE SAVE START OF AREA SET DATAB ENTRY #DIMS START OF VALUE AREA UPDATE VT 2 COUNTER FOR TRANSFER RECALL ADDRESS OF WORK AREA MOVE A U-D PAIR CONSPA RT SIZE OF VALUE AREA 143 Page 94 143 1,568,094 INTERPRETER 02689000 06757 070550 02690000 02691000 06760 074560 02692000 06761 010107 02693000 06762 067764 02694000 06763 074760 02695000 06764 067174 CLNUP )CLNUP PWD A,I WBC CPA JMP WBC JMP A,I B 54 + 2 A,D XSEMI LOOK AT NEXT BYTE IGNORE,1 CLEAR TOS AND CONTINUE 02697000 02698000 02699000 02700000 06765 020326 02701000 06766 104000 02702000 06767 076404 02703000 06770 000056 02704000 06771 104001 02705000 06772 164001 02706000 02707000 06773 140404 02708000 06774 031062 LINK TO DIM STRING DMSTR ADA LDB SZB LDA LDB JMP STRK A,I E 22 B 174 B,I B,I JSM AERRI,I ASC 1,22 ERROR, ROM MISSING ERROR, NO STRING ROM 144 Page 95 144 1,568,094 INTERPRETER JMP 06775 007014 XJMP 06776 040740 06777 140612 07000 000001 07001 005265 07002 043015 07003 001264 07004 172402 07005 067143 07006 067220 LDB JSM JSM LDA LDB JSM LDA SAM JMP JMP M 33 CLXCM AGTIN,I B HERE RELGO LEND + 2 XE O XCGSB CLEAR XCOMM BIT 5 GET INTEGER PARAMETER EXECUTE SKIP TEST FOR IMMEDIATELY PREVIOUS GSB 02724000 02725000 FLAG 02726000 02727000 07007 140612 XFLG 02728000 07010 176413 02729000 07011 024160 02730000 07012 176011 02731000 07013 000340 02732000 07014 071603 02733000 07015 042405 02734000 07016 051506 02735000 07017 072403 02736000 07020 000175 02737000 07021 031753 02738000 07022 067565 02739000 02740000 07023 140404 E 35 02741000 07024 031465 JSM SBM ADB SBP LDA CLR JSM AND SZA LDA STA JMP AGTIN,I E 35 M 16 E 35 ARES 4 EXEB FLAGS + 3 B 10 K RES + 1 RAPUP JSM AERRI,I ASC 1,35 GET INTEGER PARAMETER SKIP IF #< 0 SKIP IF#> 15 CLEAR 'RES' TEST THE DESIGNATED FLAG RES = OR I ERROR, ILLEGAL FLAG REFERENCE 02743000 02744000 02745000 02746000 07025 02747000 07026 02748000 07027 02749000 02750000 07030 02751000 07031 02752000 07032 SKIP LABEL SKIP LABEL 074561 XLABL 174040 066031 074560 076177 XLI 067176 WBC B,I TCB JMP XLI WBC RIB JMP A,I -1 MLOOP GET LENGTH OF STRING SKIP BYTES OF STRING ALLOCATE SIMPLE VARIABLE, FULL PRECISION ALLO 4 140370 131271 170201 LDA M 4 JSM ALLOC,I MOVE MEMORY UP STA BASE,I UPDATE DVTAB RET I Page 96 02710000 02711000 02712000 02713000 02714000 02715000 02716000 02717000 02718000 02719000 02720000 02721000 02722000 02754000 02755000 02756000 02757000 02758000 02759000 02760000 07033 07034 07035 07036 1,568,094 INTERPRETER 02762000 02763000 GTO A 02764000 02765000 07037 000263 XAGSB 02766000 07040 066042 02767000 07041 000177 XAGTO 02768000 07042 031715 02769000 07043 000257 02770000 07044 031716 02771000 07045 005307 02772000 07046 066063 02773000 02774000 07047 000263 XPGSB 02775000 07050 066052 02776000 07051 000177 XPGTO 02777000 07052 031715 02778000 07053 000257 02779000 07054 066061 02780000 02781000 07055 000263 XMGSB 02782000 07056 066060 02783000 07057 000177 XMGTO 02784000 07060 031715 02785000 07061 031716 XMI 02786000 07062 005265 02787000 02788000 07063 035717 XFER 02789000 07064 074560 02790000 07065 170607 02791000 07066 074561 02792000 07067 024000 02793000 07070 076410 02794000 02795000 THIS S 02796000 02797000 07071 035264 02798000 07072 074560 02799000 07073 010116 02800000 07074 066025 02801000 07075 074560 02802000 07076 074560 02803000 07077 067176 02804000 02805000 THIS S 02806000 02807000 07100 007014 LOWSP 02808000 07101 040740 02809000 07102 000016 02810000 07103 031720 02811000 07104 074560 02812000 07105 010114 02813000 07106 066112 02814000 02815000 07107 074560 02816000 07110 042164 02817000 07111 066122 ND GSB EXECUTION LDA FLAG JMP + 2 LDA PO STA T 5 LDA M 1 STA T 6 LDB FWUP JMP XFER LDA FLAG JMP + 2 LDA PO STA T 5 LDA M l JMP XM 1 LDA FLAG JMP + 2 LDA PO STA T 5 STA T 6 LDB HERE STB T 7 WBC A, SAL 8 WBC B,I ADBA SZB LOWSP ABSOLUTE GSB ABSOLUTE GTO INDICATE FORWARD INDICATE ABSOLUTE + GSB + GTO INDICATE FORWARD GSB -GTO INDICATE RELATIVE GET HI-SPEED WORD SKIP IF SEARCH NEEDED ECTION DOES A HI-SPEED BRANCH STB LEND WBC A,I CPA B 42 JMP XLABL WBC A I WBC A,I JMP MLOOP SET GTO/GSB FLAG ALPHA? YES NO SKIP PAST INTEGER SECTION DOES A LOW-SPEED BRANCH LDB JSM LDA STA WBC CPA JMP WBC JSM JMP M 33 CLXCM C T 8 A,I B 44 FINDN A,I FINDL CNI CLEAR XCOMM BIT 5 SAVE C FOR LATER FILL-IN OF HI-SPEED BRANCH ADDRESS NUMERIC? YES GET BYTE COUNT FIND LABELLED LINE Page 97 146 146 147 Page 98 02819000 02820000 02821000 02822000 07112 02823000 07113 02824000 07114 02825000 07115 02826000 07116 02827000 07117 02828000 07120 02829000 07121 02830000 02831000 02832000 02833000 07122 02834000 07123 02835000 07124 02836000 02837000 07125 02838000 07126 02839000 07127 02840000 07130 02841000 07131 02842000 07132 02843000 07133 02844000 07134 02845000 07135 02846000 07136 02847000 07137 02848000 07140 02849000 07141 02850000 07142 02851000 07143 02852000 07144 02853000 07145 02854000 07146 02855000 07147 02856000 07150 02857000 07151 02858000 07152 02859000 07153 02860000 07154 02861000 07155 02862000 07156 02863000 07157 02864000 07160 02865000 07161 02866000 07162 02867000 07163 1,568,094 INTERPRETER SCAN FOR A LINE NUMBER s 074560 FINDN 170607 074561 060001 045716 170040 005717 043015 001257 010142 067012 WBC A, SAL 8 WBC B,l IOR B ISZ T 6 TCA LDB T 7 JSM RELGO FINAL PROCESSING CNI LDA CSTAT CPA P 5 JMP E 9 025715 035264 176425 010144 067012 010254 043041 066154 000117 040744 001232 170501 073405 140425 004303 035265 140515 005264 035317 001232 050207 031232 140523 001257 CN 2 073406 001720 030017 074751 174407 074751 067176 ADB STB SBM CPA JMP CPA JSM JMP LDA JSM LDA SAR RLA JSM LDB STB JSM LDB STB LDA AND STA JSM LDA RLA LDA STA PBD ABR PBD JMP T 5 LEND CN 2 P 3 E 9 Pl FINDB CN 2 B 40 SXCMM CSTMP+ 12 2 + 5 ACNIN,I ACBF HERE ASTKI,I LEND SWHRE CSTM P+ 12 MI O CSTMP+ 12 AGLNO I CSTAT + 6 T 8 D B,D 8 B,D MLOOP 147 GET INTEGER TEST DIRECTION OF SEARCH ERROR WRONG CONTROL STATE INCLUDE GTO/GSB FLAG SKIP IF GSB ERROR, WRONG CONTROL STATE IN COMPILE BUFFER? YES SET STOP BIT TEST RUN-DONE BIT CONTINUE INITIALIZATION DUMMY STACK FOR C S.CLEAR BITS O AND 3 OF JB'S CFLAG

(FETCH AND STEP BIT 51 DON'T FILL IN H S ADDRESS RECALL PROGRAM LOCATION FILL IN HI-SPEED ADDRESS 1,568,094 INTERPRETER 02869000 02870000 02871000 02872000 02873000 02874000 02875000 02876000 02877000 07164 02878000 07165 02879000 07166 02880000 07167 02881000 07170 02882000 07171 02883000 07172 02884000 07173 02885000 07174 02886000 07175 02887000 07176 02888000 07177 02889000 07200 02890000 07201 02891000 07202 02892000 07203 02893000 07204 02894000 07205 02895000 07206 02896000 07207 02897000 07210 02898000 07211 02899000 07212 02900000 07213 02901000 07214 02902000 07215 02903000 07216 02904000 07217 02905000 07220 02906000 02907000 07221 02908000 07222 02909000 02910000 07223 02911000 07224 02912000 07225 02913000 07226 02914000 07227 SUBROUTINE TO SCAN FOR AN ALPHAMERIC LABEL ON ENTRY: A = BYTE COUNT C = POINTER TO FIRST BYTE TEMPORARIES USED: TI,T 2,T 3,T 4,T 9 s 031711 FINDL 000016 031721 005307 035712 FN 2 034017 074570 050053 072002 067040 031713 074570 010115 066203 066223 074570 011711 066207 066223 010177 066221 031714 074560 FN 3 074571 010001 066217 066223 055714 066212 005712 170201 FN 4 005712 FN 5 025713 001721 030016 066170 STA TI LDA C STA T 9 LDB FWUP STB T 2 STB D WBD A,I AND B 177 RZA + 2 JMP E 31 STA T 3 WBD A,I CPA B 43 JMP + 2 JMP FN 5 WBD A, CPA Tl JMP + 2 JMP FN 5 CPA PO JMP FN 4 STA T 4 WBC A,I WBD B,I CPA B JMP + 2 JMP FN 5 DSZ T 4 JMP FN 3 LDB T 2 RET 1 LDB ADB LDA STA JMP T 2 T 3 T 9 C FN 2 SAVE BYTE COUNT SAVE START OF REAL CHARACTERS NOW SCAN PROGRAM ERROR, END OF PROGRAM SAVE LENGTH OF THIS LINE DOES LABEL FOLLOW? YES NO GET BYTE COUNT SAME LENGTH? YES NO BOTH LABELS NULL? YES NO, INITIALIZE COMPARE-COUNTER REAL BYTE TEST BYTE MATCH? YES NO DECREMENT COMPARISON COUNTER FOUND IT NOT FOUND YET RESTORE REAL BYTE POINTER 148 Page 99 148 149 Page 100 02916000 02917000 S B 02918000 02919000 07230 000257 02920000 07231 031716 XSD 02921000 07232 035717 02922000 07233 101263 02923000 07234 031714 02924000 07235 140612 02925000 07236 176434 02926000 07237 035715 02927000 07240 001714 02928000 07241 170603 02929000 07242 172004 02930000 07243 140612 02931000 07244 176426 02932000 07245 066247 02933000 07246 005715 GEl 02934000 07247 001715 02935000 07250 170140 02936000 07251 020001 02937000 07252 172020 02938000 07253 031715 02939000 07254 000001 02940000 07255 005307 02941000 07256 043015 02942000 02943000 07257 100001 XSP 02944000 07260 051716 02945000 07261 061717 02946000 07262 130001 02947000 07263 045715 02948000 07264 066266 02949000 07265 067176 02950000 02951000 07266 050053 02952000 07267 072476 02953000 07270 024000 02954000 07271 066257 02955000 02956000 07272 140404 E 19 02957000 07273 030471 1,568,094 INTERPRETER UBROUTINE TO CHANGE STOP AND/OR TRACE INDICATOR ITS NT NTI LDA STA STB LDA STA JSM SBM STB LDA SAL SAP JSM SBM JMP LDB LDA CMA ADA SAP STA LDA LDB JSM LDA AND IOR STA ISZ JMP JMP AND SZA ADB JMP Ml T 6 T 7 A Pl,I T 4 AGTIN,I E 19 T 5 T 4 4 G El AGTIN,I E 19 + 2 T 5 T 5 B E 19 T 5 B FWUP RELGO B,I T 6 T 7 B,I T 5 + 2 MLOOP B 177 -2 A XSNT I SAVE LINK INFORMATION GET INTEGER PARAMETER SAVE FIRST PARAMETER RECALL LINK INFORMATION SKIP IF DEFAULT SECOND PARAMETER GET INTEGER PARAMETER -# OF LINES GO FIND THE LINE ANY MORE LINES TO BE DONE? YES NO GET WLENGTH END OF PROGRAM ERROR, BAD LINE NUMBER JSM AERRI,I ASC 1,19 149 Page 101 02959000 02960000 02961000 02962000 07274 105263 02963000 07275 014221 02964000 07276 066302 02965000 02966000 07277 000213 02967000 07300 004177 02968000 07301 066231 02969000 02970000 07302 000177 02971000 07303 031267 02972000 07304 031314 02973000 07305 067176 02975000 02976000 02977000 02978000 07306 105263 02979000 07307 014221 02980000 07310 066316 02981000 02982000 07311 040724 02983000 07312 000251 02984000 07313 031314 02985000 07314 004052 02986000 07315 066230 02987000 02988000 07316 000073 02989000 07317 040744 02990000 07320 067176 02992000 02993000 02994000 02995000 07321 000251 02996000 07322 031314 02997000 07323 105263 02998000 07324 014221 02999000 07325 067176 03000000 03001000 07326 040724 03002000 07327 004263 030030)0 07330 066230 1,568,094 INTERPRETER NOR EXECUTION XNOR LDB API,I CPB EMPTY JMP XNO 2 LDA TMASK LDB PO JMP XSNT XNO 2 LDA PO STA TRACE STA TE JMP MLOOP STP EXECUTION XSTP LDB AP 1,I CPB EMPTY JMP XST 2 JSM SECCK LDA UMASK STA TE LDB B 200 JMP XSTN-1 XST 2 LDA B 100 JSM SXCMM JMP MLOOP TRC EXECUTION XTRC LDA UMASK STA TE LDB API,I CPB EMPTY JMP MLOOP JSM SECCK LDB FLAG JMP XSNT-1 LOOK AT TOS JUMP IF NO PARAMETERS GO CHANGE BITS DISABLE TRACING LOOK AT TOS JUMP IF NO PARAMETERS CHECK FOR SECURE PROGRAM ENABLE TRACING GO CHANGE BITS ENABLE TRACING LOOK AT TOS JUMP IF NO PARAMETERS CHECK FOR SECURE PROGRAM GO CHANGE BITS 1,568,094 INTERPRETER 07331 007460 FKI 07332 007467 FK 2 07333 007471 FK 3 DEF DEF DEF MFLAG SFLAG CLFLAG COMPLEMENT FLAG 07334 001506 XCMF 07335 105263 07336 014221 07337 066356 07340 006331 07341 066362 LDA LDB CPB JMP FLAGS API,I EMPTY ALLF 1 JUMP IF ALL FLAGS LDB FK 1 JMP ALTER SET FLAG 07342 000257 XSFG 07343 105263 07344 014221 07345 066357 07346 006332 07347 066362 03031000 03032000 03033000 03034000 07350 000177 03035000 07351 105263 03036000 07352 014221 03037000 07353 066357 03038000 03039000 07354 006333 03040000 07355 066362 03041000 03042000 07356 170140 03043000 07357 031506 03044000 07360 042415 03045000 07361 067176 LDA LDB CPB JMP Ml API,I EMPTY ALLF 2 JUMP IF ALL FLAGS LDB FK 2 JMP ALTER CLEAR FLAG CLEAR FLAG XCFG LDA LDB CPB JMP PO API,I EMPTY ALLF 2 JUMP IF ALL FLAGS ' LDB FK 3 JMP ALTER ALLF 1 ALLF 2 CMA STA JSM JMP FLAGS FCHEK MLOOP GO CHECK FOR FLAG TRACING 151 151 Page 102 03005000 03006000 03007000 03009000 03010000 03011000 03012000 03013000 03014000 03015000 03016000 03017000 03018000 03020000 03021000 03022000 03023000 03024000 03025000 03026000 03027000 03028000 03029000 1,568,094 INTERPRETER 03047000 07362 035714 ALTER 03048000 07363 000177 03049000 07364 031715 03050000 03051000 07365 101263 NEXTF 03052000 07366 031716 03053000 07367 140612 03054000 07370 176414 03055000 07371 024160 03056000 07372 176012 03057000 07373 042405 03058000 07374 061715 03059000 07375 031715 03060000 07376 005716 03061000 07377 174603 03062000 07400 176465 03063000 07401 141714 03064000 07402 042415 03065000 07403 067176 03066000 03067000 07404 066023 E 35 A 03069000 03070000 SUBR( 03071000 03072000 07405 024242 EXEB 03073000 07406 000254 03074000 07407 070430 03075000 07410 070001 03076000 07411 070420 03077000 07412 170201 STB T 4 LDA PO STA T 5 LDA STA JSM SBM ADB SBP JSM IOR STA LDB SRL SBM JSM JSM JMP SAVE SUBROUTINE ADDRESS INITIALIZE FLAG MASK API,I T 6 AGTIN,I E 35 A M 16 E 35 A EXEB T 5 T 5 T 6 4 NEXTF T 4,I FCHECK MLOOP JMP E 35 SAVE LINK INFORMATION GET INTEGER PARAMETER SKIP IF #< O SKIP IF #> 15 POSITION MASK BIT RECALL LINK INFORMATION SKIP IF MORE PARAMETERS GO CHANGE FLAGS GO CHECK FOR FLAG TRACING ERROR, ILLEGAL FLAG MODIFIER REF OUTINE TO FORM ROTATE INSTRUCTION AND EXECUTE IT ADB KF LDA Pl DIR EXE B EIR RET I PREVENT INTERRUPT INTERFERENCE 152 Page 103 152 153 Page 104 03079000 03080000 SUBR( 03081000 03082000 07413 042405 SYSFL 03083000 07414 042467 03084000 03085000 07415 001267 FCHEK 03086000 07416 172031 03087000 03088000 07417 000016 03089000 07420 031270 03090000 07421 140450 03091000 07422 002450 03092000 07423 004313 03093000 07424 071406 03094000 07425 140444 03095000 07426 140450 03096000 07427 000160 03097000 07430 031713 03098000 07431 004315 03099000 07432 034017 03100000 07433 001506 03101000 07434 004103 FTR 1 03102000 07435 172002 03103000 07436 004102 03104000 07437 074551 03105000 07440 170716 03106000 07441 045713 03107000 07442 066434 03108000 03109000 07443 140444 FTR 2 03110000 07444 040710 03111000 07445 001270 03112000 07446 030016 03113000 07447 170201 FTR 3 03114000 03115000 07450 007451 FMSG 03116000 07451 043114 153 1,568,094 INTERPRETER )UTINE TO CHECK FOR FLAG TRACING JSM EXEB JSM SFLAG LDA TRACE SAP FTR 3 LDA STA JSM LDA LDB XFR JSM JSM LDA STA LDB STB LDA LDB SAP LDB PBD RAR ISZ JMP JSM JSM LDA STA RET C SAVEC ACLBI,I FMSG AIBUF 7 A.PRN,I ACLBI,I M 16 T 3 AIBFM D FLAGS B 60 + 2 B 61 B,I T 3 FTRI 1 A.PRN,I EOLIO SAVEC C l SPECIAL ENTRY TO SET A SYSTEM FLAG TRACING ENABLED? NO CLEAR I/O BUFFER "FLAGS:" MESSAGE GO PRINT IT CLEAR I/O BUFFER INITIALIZE COUNTER INITIALIZE BUFFER POINTER ASSUME FLAG IS 'ZERO' NOPE, FLAG IS 'ONE' TEST LOOP COUNTER GO PRINT FLAG CONFIGURATION DON El DEF + 1 ASC 7,FLAGS: ( 0-15) 1,568,094 INTERPRETER 03118000 03119000 03120000 03121000 03122000 03123000 07460 061506 03124000 07461 004000 03125000 07462 001506 03126000 07463 051715 03127000 07464 170140 03128000 07465 050001 03129000 07466 066473 03131000 03132000 03133000 03134000 03135000 03136000 07467 061506 03137000 07470 066473 03139000 03140000 03141000 03142000 03143000 03144000 07471 170140 03145000 07472 051506 03146000 07473 031506 03147000 07474 170201 SUB ROUTINE TO COMPLEMENT DESIGNATED FLAG ON ENTRY: A-REGISTER HAS FLAG MASK MFLAG IOR FLAGS LDB A LDA FLAGS AND T 5 CMA AND B JMP Cl SUBROUTINE TO SET DESIGNATED FLAG ON ENTRY: A-REGISTER HAS FLAG MASK S FLAG IOR FLAGS JMP Cl SUBROUTINE TO CLEAR DESIGNATED FLAG ON ENTRY: A-REGISTER HAS FLAG MASK CFLAG CMA AND FLAGS Cl STA FLAGS RET 1 154 Page 105 154 Page 106 INTERPRETER 03149000 07475 107476 ABTBL DEF IBTBL,I ADDRESSOFJUMPTABLE 03150000 03151000 07476 100424 IBTBL DEF ASYER,I 000 03152000 07477 027755 DEF CALLM 001 ROM = 1 03153000 07500 027755 DEF CALLM 002 ROM#2 03154000 07501 027755 DEF CALLM 003 ROM #3 03155000 07502 027755 DEF CALL M 004 ROM #4 03156000 07503 027755 DEF CALLM 005 ROM #5 03157000 07504 027755 DEF CALLM 006 ROM #6 03158000 07505 027755 DEF CALLM 007 ROM #7 03159000 07506 027755 DEF CALLM 010 ROM #8 03160000 07507 027755 DEF CALLM 011 ROM #9 03161000 07510 027755 DEF CALLM 012 ROM#10 03162000 07511 027755 DEF CALLM 013 ROM#11 03163000 07512 027755 DEF CALLM 014 ROM#12 03164000 07513 027755 DEF CALLM 015 ROM#13 03165000 07514 027755 DEF CALLM 016 ROM#14 03166000 07515 027755 DEF CALLM 017 ROM#15 03167000 07516 027755 DEF CALLM 020 ROM#16 03168000 07517 027755 DEF CALLM 021 ROM #17 03169000 07520 027755 DEF CALLM 022 ROM#18 03170000 07521 100424 DEF ASYER,I 023 03171000 07522 100424 DEF ASYER,I 024 03172000 07523 100424 DEF ASYER,I 025 03173000 07524 100424 DEF ASYERI 026 03174000 07525 100424 DEF ASYER,I 027 03175000 07526 100424 DEF ASYER,I 030 03176000 07527 100424 DEF ASYER,I 031 03177000 07530 100424 DEF ASYER,I 032 03178000 07531 100424 DEF ASYERI 033 03179000 07532 100424 DEF ASYER,I 034 END OF 03180000 07533 100424 DEF ASYERJI 035 03181000 07534 100424 DEF ASYER,I 036 03182000 07535 006562 DEF XMPY 037 1 03183000 07536 100424 DEF ASYER,1 040 03184000 07537 100424 DEF ASYER,I 041 03185000 07540 006362 DEF XSTRG 042 STRING FOLLOWS 03186000 07541 007025 DEF XLABL 043 LABEL FOLLOWS 03187000 07542 100424 DEF ASYER,I 044 03188000 07543 100424 DEF ASYER,I 045 03189000 07544 100424 DEF ASYER,I 046 03190000 07545 100424 DEF ASYER I 047 03191000 07546 100424 DEF ASYERI 050 03192000 07547 100424 DEF ASYER,I 051 03193000 07550 006562 DEF XMPY 052 03194000 07551 006564 DEF XADD 053 + 03195000 07552 015446 DEF XCOMA 054,1 03196000 07553 006560 DEF XSUB 05503197000 07554 006522 DEF XUNM 056 U03198000 07555 006556 DEF XDIV 057/ 03199000 07556 006316 DEF NNEXP 060 F-NUMBER 03200000 07557 006316 DEF NNEXP 061 E-NUMBER 03201000 07560 006312 DEF NWEXP 062 F-NUMBER W/EXP 03202000 07561 006312 DEF NWEXP 063 E-NUMBER W/EXP 03203000 07562 015446 DEF XCOMA 064 2 03204000 07563 100424 DEF ASYER,I 065 1,568,094 1,568,094 Page 107 INTERPRETER 03205000 07564 100424 03206000 07565 100424 03207000 07566 100424 03208000 07567 100424 03209000 07570 015444 03210000 07571 006174 03211000 07572 100424 03212000 07573 006174 03213000 07574 100424 03214000 07575 006347 03215000 07576 100424 03216000 07577 006510 03217000 07600 006510 03218000 07601 006510 03219000 07602 006510 03220000 07603 006510 03221000 07604 006510 03222000 07605 006510 03223000 07606 006510 03224000 07607 006510 03225000 07610 006510 03226000 07611 006510 03227000 07612 006510 03228000 07613 006510 03229000 07614 006510 03230000 07615 006510 03231000 07616 006510 03232000 07617 006510 03233000 07620 006510 03234000 07621 006510 03235000 07622 006510 03236000 07623 006510 03237000 07624 006510 03238000 07625 006510 03239000 07626 006510 03240000 07627 006510 03241000 07630 006510 03242000 07631 006625 03243000 07632 006524 03244000 07633 100424 03245000 07643 100424 03246000 07635 100424 03247000 07636 027766 03248000 07637 006403 03249000 07640 006403 03250000 07641 006403 03251000 07642 006403 03252000 07643 006403 03253000 07644 006403 03254000 07645 006403 03255000 07646 006403 03256000 07647 006403 03257000 07650 006403 03258000 07651 006403 03259000 07652 006403 03260000 07653 006403 DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF ASYER,I ASYER,I ASYER,I ASYER,I XCOLN XSEMI ASYER,I XSEMI ASYER,I XARES ASYER,I XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR XSVAR DIMOP XSQR ASYER,I ASYER,I ASYER,I XARRY XSSVR XSSVR XSSVR XSSVR XSSVR XSSVR XSSVR XSSVR XSSVR XSSVR XSSVR XSSVR XSSVR 066 067 071 072:

073:

074 LABEL:

076 077 RES(ADDRESS) LITERAL 101 A 102 B 103 C 104 D E 106 F 107 G H 111 I 112 J 113 K 114 L M 116 N 1170 P 121 Q 122 R 123 S 124 T U 126 V 127 W X 131 Y 132 Z 133 DIM OPERATOR 134 SQR 136 137 ENTIRE ARRAY 141 Al 142 Bl 143 Cl 144 Dl El 146 Fl 147 Gl H 1 I 151 I 152 Jl 153 Kl 154 Ll M 156 156 157 Page 108 03261000 07654 006403 03262000 07655 006403 03263000 07656 006403 03264000 07657 006403 03265000 07660 006403 03266000 07661 006403 03267000 07662 006403 03268000 07663 006403 03269000 07664 006403 03270000 07665 006403 03271000 07666 006403 03272000 07667 006403 03273000 07670 006403 03274000 07671 006334 03275000 07672 006343 03276000 07673 006602 03277000 07674 027771 03278000 07675 006140 03279000 07676 006134 03280000 07677 100567 03281000 07700 100570 03282000 07701 006536 03283000 07702 006534 03284000 07703 006526 03285000 07704 100575 03286000 07705 100576 03287000 07706 027734 03288000 07707 006775 03289000 07710 007342 03290000 07711 007350 03291000 07712 007334 03292000 07713 006530 03293000 07714 006532 03294000 07715 007321 03295000 07716 007274 03296000 07717 007306 03297000 07720 007007 03298000 07721 023706 03299000 07722 007057 03300000 07723 007051 03301000 07724 007055 03302000 07725 007047 03303000 07726 007041 03304000 07727 007037 03305000 07730 006176 03306000 07731 006262 03307000 07732 001150 03308000 07733 015475 03309000 07734 015452 03310000 07735 03311000 07736 006540 03312000 07737 03313000 07740 03314000 07741 03315000 07742 03316000 07743 1.568,094 INTERPRETER DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF BSS DEF BSS BSS BSS BSS BSS XSSVR XSSVR XSSVR XSSVR XSSVR XSSVR XSSVR XSSVR XSSVR XSSVR XSSVR XSSVR XSSVR XPIE XENR XASN XEMTY XEOLN XIF APRT,I ADSP,I XLOR XAND XNOT AFXD,I AFLT,I XSPAC XJMP XSFG XCFG XCMF XPRND XDRND XTRC XNOR XSTP XFLG XENT XMGTO XPGTO XMGSB XPGSB XAGTO XAGSB MLOOP XRETN XWAIT XBEEP XEND 1 XXOR 1 1 156 Nl 157 Of P 161 Ql 162 Rl 163 SI 164 Tl Ul 166 Vl 167 Wl X 171 YI 172 Z 173 Pl 174 ENR GAZINTA 176 EMPTY 177 EOL IF 201 PRT 202 DSP 203 OR 204 AND 205 NOT 206 FXD 207 FLT 210 SPC 211 JMP 212 SFG 213 CFG 214 CMF 215 PRND 216 DRND 217 TRC 220 NOR 221 STP 222 FLG 223 ENT 224 GTO225 GTO+ 226 GSB227 GSB+ 230 GTO 231 GSB 232 DIM 233 RET 234 WAIT 235 BEEP 236 END 237 REW 240 XOR 214 IDF 242 SSC 243 TRK 244 FDF 245 ERT 157 1,568,094 Page 109 03317000 07744 03318000 07745 03319000 07746 03320000 07747 023704 03321000 07750 03322000 07751 03323000 07752 03324000 07753 03325000 07754 03326000 07755 03327000 07756 03328000 07757 03329000 07760 03330000 07761 100574 03331000 07762 100573 03332000 07763 006554 03333000 07764 006552 03334000 07765 006550 03335000 07766 006546 03336000 07767 006542 03337000 07770 006544 03338000 07771 015401 03339000 07772 100566 03340000 07773 006353 03341000 07774 100572 03342000 07775 03343000 07776 177526 03345000 07777 03347000 03348000 03349000 03350000 00360 03351000 00360 03352000 00361 03353000 00362 03354000 00363 03355000 00364 03356000 00365 03357000 00366 03358000 00367 03359000 00370 03360000 00371 03361000 00372 03362000 00373 03363000 00374 03364000 00375 03365000 00376 03366000 00377 03367000 00400 03368000 00401 03369000 00402 INTERPRETER BSS BSS BSS DEF BSS BSS BSS BSS BSS BSS BSS BSS BSS DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF BSS DEF 1 1 1 XENP 1 1 1 1 1 1 1 1 1 AKOF,I AKON,I XNEQ XLEQ XGEQ XLTN XGTN XEQL XLCR ALST,I XVRES ALSTK,I APP#,I APP#,I BSS 1 246 247 250 251 252 253 254 255 256 257 260 261 262 263 264 265 266 267 270 271 272 273 274 275 276 277 300 MRK RCF LDF ENL LDP RCM LDM RCK LDK LDB VFY AVD AVE LKD LKE # ≤ ≥ > L.C R LIST RES (VALUE) LISTK TLIST L.C P RESERVED FOR 6 K-PAGE CHECKSUM FILL IN BASE-PAGE LINKS FILL IN BASE-PAGE LINKS 015261 015246 015370 006145 006160 006176 006565 007316 015272 006054 006077 006167 027614 027626 007413 027466 007164 015360 015362 ORG DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF ARSGT RESTB INTI FBAD XEX XE 2 MLOOP RAPUP XST 2 MOVEM OVTST ASTRC LNTRC FCI FCC SYSFL GNAME FINDL ADBA ADB 158 158 1,568 094 LEFTOVERS 03371000 15246 ORG 15246 B 15246 005311 15247 035300 15250 024146 15251 035263 15252 035261 15253 000257 15254 131261 15255 005307 15256 035265 15257 035266 15260 170201 INTERPRETER INITIALIZATION INTI LDB VTI STB AP 2 ADB M 2 ONI STB A Pl STB AP 3 SET LDA M 1 STA AP 3,I MA LDB FWUP STB HERE STB WHERE RET RET I E BLANK WORD BETWEEN AP 2 AND BOT.

r UP EXECUTION STACK POINTERS RK BOTTOM OF STACK 15261 000050 15262 004152 15263 140374 15264 140375 15265 170201 15266 000177 15267 074550 15270 074550 15271 066264 SECTION TO RESET HI-SPEED BRANCH ADDRESSES RESTB LDA B 224 LDB M 6 JSM AFCI,I INITIALIZE TEST BYTE REST 2 JSM AFCC I RET I EN Dr OF-PROGRAM LDA PO PBD AI PBD A,I JMP REST 2 159 Page 110 159 03373000 03374000 03375000 03376000 03377000 03378000 03379000 03380000 03381000 03382000 03383000 03384000 03385000 03386000 03387000 03388000 03389000 03391000 03392000 03393000 03394000 03395000 03396000 03397000 03398000 03399000 03400000 03401000 03402000 1,568,094 LEFTOVERS 15272 15273 15274 15275 15276 15277 15300 15301 15302 15303 15304 005263 035711 024000 035712 031713 000001 170040 021310 172403 140404 031471 MOVE MEMORY UP ON ENTRY: A = -# OF WORDS TO MOVE ON EXIT: A = NEW VT 2 = START OF NEW SPACE TEMPORARIES USED: TI,T 2 T 3 T 4 MOVEM LDB A Pl MOVEM LDB A Pl E 39 15305 035263 15306 005300 15307 025713 15310 035300 15311 005261 15312 025713 15313 035261 15314 005311 15315 025713 15316 035311 15317 005272 15320 025713 15321 035272 15322 005625 15323 025713 15324 035625 15325 000122 15326 031714 15327 004277 15330 100001 MOI 15331 072403 15332 021713 15333 13001 15334 055714 15335 076173 15336 005711 15337 015312 15340 066346 M 02 15341 100001 15342 024254 15343 131712 15344 045712 STB ADB STB STA LDA TCA ADA SAM JSM ASC STB LDB ADB STB LDB ADB STB LDB ADB STB LDB ADB STB LDB ADB STB LDA STA LDB LDA SZA ADA STA DSZ RIB LDB CPB JMP TI A T 2 T 3 B SAVE -# OF WORDS TO MOVE RMAX + 3 AERRI I 1,39 A Pl AP 2 T 3 AP 2 AP 3 T 3 AP 3 VT I T 3 VT 1 I FA Pl T 3 FA Pl ENSV+ 1 T 3 ENSV+ I P 26 T 4 ADATB B,I + 3 T 3 B,I T 4 M 01 O TI VT 2 M 03 LDA B,I ADB Pl STA T 2,I ISZ T 2 RMAX-A Pl ERROR, ALLOCATION OVERFLOW UPDATE A Pl UPDATE AP 2 UPDATE AP 3 UPDATE VT 1 UPDATE FA Pl UPDATE STORED FA Pl UPDATE DAT Al B IGNORE IF UNALLOCATED STORE UPDATED ENTRY RECALL OLD A Pl JUMP IF DONE MOVE ORGANIZATION DATA AND STACK Page 111 03405000 03406000 03407000 03408000 03409000 034 i 0000 03411000 03412000 03413000 03414000 03415000 03416000 03417000 03418000 03419000 03420000 03421000 03422000 03423000 03424000 03425000 03426000 03427000 03428000 03429000 03430000 03431000 03432000 03433000 03434000 03435000 03436000 03437000 03438000 03439000 03440000 03441000 03442000 03443000 03444000 03445000 03446000 03447000 03448000 03449000 03450000 03451000 03452000 03453000 03454000 03455000 03456000 03457000 03458000 03459000 03460000 161 1,568,094 161 LEFTOVERS 15345 066337 15346 15347 15350 15351 15352 15353 15354 15355 001712 M 03 035712 031312 004177 011712 M 04 066356 134000 072175 15356 001312 M 05 15357 170201 JMP M 02 LDA STB STA LDB CPA JMP STB RIA T 2 T 2 VT 2 UPDATE VT 2 PO T 2 M 05 A,I M 04 ZERO THE NEW AREA LDA VT 2 RET I ADJUST BYTE ADDRESS ON ENTRY: A-REGISTER = BYE ADDRESS B-REGISTER = COUNT ON EXIT: A-REGISTER = NEW BYE ADDRESS B-REGISTER = UNALTERED 15360 15361 15362 15363 15364 15365 15366 15367 172302 172201 170716 020001 170700 172302 172201 170201 ADBA SAP SAP ADB RAR ADA RAR SAP SAP RET + 2,S + I,C B 1 + 2,S +I,C COMPLEMENT SIGN BIT' ADJUST ADDRESS ADD CHANGE RESET ADDRESS COMPLEMENT SIGN BIT FIND BYTE ADDRESS DIFFERENCE ON ENTRY: A-REGISTER = LOWER BYTE ADDRESS B-REGISTER = UPPER BYTE ADDRESS FOR POSITIVE ON EXIT: A-REGISTER = CHARACTER COUNT 15370 172302 FBAD 15371 172201 15372 170716 t 5373 176302 15374 176201 15375 174716 15376 170040 15377 020001 15400 170201 SAP + 2,S SAP + 1 I,C RAR 15 SBP + 2,S SBP + 1,C RBR 15 TCA ADA B RET 1 COMPLEMENT THE SIGN BIT COMPLEMENT THE SIGN BIT MAKE NEG.

A = BYTE DIFF Page 112 03461000 03462000 03463000 03464000 03465000 03466000 03467000 03468000 03469000 03470000 03471000 03472000 03473000 03474000 03476000 03477000 03478000 03479000 03480000 03481000 03482000 03483000 03484000 03485000 0348600 O 03487000 03488000 03489000 03490000 03491000 03492000 03494000 03495000 03496000 03497000 03498000 03499000 03500000 03501000 03502000 03503000 03504000 03505000 0350600 03507000 03508000 03509000 03510000 161 1,568,094 161 1,568,094 LEFTOVERS L C R EXECUTION L C R EXECUTION 15401 140612 XLCR 15402 176003 15403 140404 E 26 A 15404 031066 15405 000001 15406 050224 15407 072034 174601 024254 001277 020001 170140 021263 020152 172424 055263 135263 055263 000144 131263 000270 055263 131263 024144 025277 000001 170040 021310 172005 001310 020254 035310 140471 164365 15443 066303 E 39 A JSM SRP JSM ASC LDA AND RZA SBL ADB LDA ADA CMA ADA ADA SAM DSZ STB DSZ LDA STA LDA DSZ STA ADB ADB LDA TCA ADA SAP LDA ADA STB JSM JMP AGTIN,I + 3 AERR 1,I 1,26 B B 60 K E 39 A 2 Pl END$ B A Pl M 6 E 39 A A Pl AP 1,I A Pl P 3 AP 1,I FVRRA A Pl API,I ' P 3 ENDS B RMAX + 5 RMAX Pl RMAX AZRWM,I AINTX,I JMP E 39 GET SUBSCRIPT ERROR, NEGATIVE R SUBSCRIPT A = ABSOLUTE ADDRESS A API-(L+ 7).

WHERE= RELATIVE R-REGISTER LENGTH = 3 WHAT = FULL/VARIABLE RMAX-(L+ 3) UPDATE RMAX IF NECESSARY ZERO THE NEW AREA ERROR, OUT-OF-BOUNDS SET LINK BITS IN STACK 15444 000236 XCOLN LDA B 2 K 15445 066447 JMP + 2 15446 000234 XCOMA 15447 161263 15450 131263 15451 164365 LDA B 4 K IOR API,I STA API,I JMP AINTX,I : => 2000 B => BIT 10 => 4000 B => BIT 11 162 162 Page 113 03512000 03513000 03514000 03515000 03516000 03517000 03518000 05319000 03520000 05321000 03522000 03523000 03524000 03525000 03526000 03527000 03528000 03529000 03530000 03531000 03532000 03533000 03534000 03535000 03536000 03537000 03538000 03539000 03540000 03541000 03542000 03543000 03544000 03545000 03546000 03547000 03548000 03549000 03550000 03551000 15410 15411 15412 15413 15414 15415 15416 15417 15420 15421 15422 15423 15424 15425 15426 15427 15430 15431 15432 15433 15434 15435 15436 15437 15440 15441 15442 03553000 03554000 03555000 03556000 03557000 03558000 03559000 03560000 03561000 03562000 1,568,094 LEFTOVERS 15452 15453 15454 15455 15456 15457 15460 END 001257 XEND 010254 066461 010145 066461 140404 E 9 A 030071 15461 042246 XENI 15462 035264 15463 035317 15464 001257 15465 010254 15466 140515 15467 15470 15471 15472 15473 000177 031226 001232 050207 031232 (EVENTUALLY ARRIVES AT XST 2) LDA CSTAT CPA Pl JMP XENI CPA P 2 JMP XENI JSM AERRI,I ASC 1,09 JSM INTI STB LEND STB SWHRE LDA CSTAT CPA Pl JSM ASTKII LDA STA LDA AND STA 15474 165507 PO CSTMP+ 8 CSTMP+ 12 MIO O CSTMP+ 12 JMP ELINK,I ERROR, WRONG CONTROL STATE DELETE EXECUTDION STACK IMPLIED GTO O DUMMY STACK FOR C S IF REQUIRED LNO= O CLEAR BITS 0 AND 3 OF JB'S CFLAG (FETCH AND STEP BITS) LINK TO WAIT FOR I/O COMPLETION BEEP EXECUTION BEEP EXECUTION 15475 040703 XBEEP 15476 164365 JSM BEEP JMP AINTX,I Page 114 03564000 03565000 03566000 03567000 03568000 03569000 03570000 03571000 03572000 03573000 03574000 03575000 03576000 03577000 03578000 03579000 03580000 03581000 03582000 03583000 03584000 03585000 03586000 03587000 03588000 03590000 03591000 03592000 03593000 03594000 163 163 1,568,094 LEFTOVERS Page 115 03596000 27466 ORG 274668 03598000 03599000 03600000 03601000 27466 03602000 27467 03603000 27470 03604000 27471 03605000 27472 03606000 27473 03607000 03608000 27474 03609000 27475 03610000 27476 03611000 27477 03612000 27500 03613000 27501 03614000 27502 03615000 27503 03616000 27504 03617000 27505 03618000 27506 03619000 03620000 27507 03621000 27510 03622000 27511 03623000 27512 03624000 27513 03625000 27514 03626000 27515 03627000 27516 03628000 03629000 27517 03630000 27520 03631000 27521 03632000 27522 03633000 27523 03634000 27524 03635000 27525 03636000 27526 03637000 27527 03638000 27530 03639000 27531 03640000 03641000 03642000 03643000 27532 03644000 27533 03645000 27534 03646000 27535 03647000 27536 03648000 27537 03649000 27540 03650000 27541 SUBROUTINE TO GET VARIABLE NAME INTO I/O BUFFER 035723 174040 035724 140450 004315 034017 001311 170040 021723 172020 001310 170040 021723 172404 000061 074550 170201 GNAME STB T I 11 TCB STB T 12 JSM ACLBI,I LDB AIBFM STB D LDA VT 1 TCA ADA T 11 SAP ASTI LDA RMAX TCA ADA Tll SAM GNA 1 LDA B 160 PBD A,I RET 1 GNA 1 074550 001277 170140 021723 170501 004017 164477 004276 ASTI 035712 000122 031713 000072 005723 115712 AST 2 066612 045712 055713 072174 000072 AST 4 031712 004277 035714 105714 AST 5 076417 035717 100001 LDA PBD LDA CMA ADA SAR LDB JMP LDB STB LDA STA LDA LDB CPB JMP ISZ DSZ RIA LDA STA LDB STB LDB SZB STB LDA B 162 A,I END$ Tll 2 D ABTDA,I ADVTB T 2 P 26 T 3 B I 101 Tll T 2 I AST 9 + 1 T 2 T 3 AST 2 CLEAN I/O BUFFER INITIALIZE BUFFER POINTER "TO"-VT I SKIP UNLESS R-REGISTER OR P-NUMBER "TO"-RMAX SKIP IF R-REGISTER L.C P L.C R R# = ("TO"-END$-1)/4 OUTPUT SUBSCRIPT VALUE INITIALIZE TABLE POINTER INITIALIZE COUNT RECALL ACTUAL ADDRESS JUMP IF SIMPLE VARIABLE FOUND FALL THRU IF ARRAY VARIABLE B 101 T 2 ADATB T 4 T 4,I AST 6 T 7 B,I INITIALIZE ASCII CHARACTER GET DATAB ENTRY IGNORE IF ZERO T 7 => #DIMS 164 164 Page 116 03651000 03652000 03653000 03654000 03655000 1,568 094 LEFTOVERS 27542 27543 27544 27545 27546 03656000 27547 03657000 27550 03658000 27551 03659000 27552 03660000 27553 03661000 27554 03662000 27555 03663000 03664000 27556 03665000 27557 03666000 27560 03667000 03668000 27561 03669000 27562 03670000 27563 03671000 27564 03672000 27565 03673000 27566 03674000 27567 03675000 27570 03676000 27571 03677000 27572 03678000 27573 03679000 27574 03680000 27575 03681000 27576 03682000 27577 03683000 27600 03684000 27601 03685000 27602 03686000 27603 03687000 27604 03688000 27605 03689000 27606 03690000 27607 03691000 27610 03692000 03693000 27611 03694000 27612 03695000 27613 170600 024254 024000 100001 021724 172407 024254 035721 104001 174040 024000 176404 045712 045714 066536 SAL ADB ADB LDA ADA AST 6 170501 AST 7 005712 074551 004070 074551 055721 055721 040762 AST 8 177721 055721 031720 101721 055721 170040 020001 004017 140477005717 015721 066611 000107 074550 001720 066570 000067 074550 170201 AST 9 Pl Pl A B,I T 12 SAM AST 6 ADB Pl STB T 9 LDB B,I TCB ADB A SBM AST 7 ISZ ISZ JMP SAR LDB PBD LDB PBD DSZ DSZ JSM DEF DSZ STA LDA DSZ TCA ADA LDB JSM LDB CPB JMP LDA PRD LDA JMP LDA PBD RET T 2 T 4 AST 5 2 T 2 B,I B 133 B,I T 9 T 9 SDIV T 9,1 T 9 T 8 T 9,I T 9 B D ABTDA,I T 7 T 9 AST 9 B 54 A,I T 8 AST 8 B 135 A,I 2 #DIMS B => LOCATION OF FIRST ELEMENT FIRST ELEMENT ADDRESS-ACTUAL ADD T 9 => #WORDS RELATIVE WORD -#WORDS SKIP IF IDENTIFIED IT ISN'T THE ONE RELATIVE ELEMENT OUTPUT THE LETTER OUTPUT( RELATIVE/D(J) REMAINDER+L(J) OUTPUT SUBSCRIPT VALUE DONE? OUTPUT, OUTPUT) 1,568,094 LEFTOVERS 03697000 03698000 03699000 03700000 03701000 03702000 03703000 03704000 03705000 03706000 03707000 03708000 03709000 03710000 03711000 27614 03712000 27615 03713000 27616 03714000 27617 03715000 2762003716000 27621 03717000 27622 03718000 27623 03719000 27624 03720000 27625 SUBROUTINE TO FIND A DESIGNATED BYTE IN THE PROGRAM INITIALIZATION: LDA (DESIRED BYTE) (EXCEPT EOL) LDB -# OF CONSECUTIVE BYTES JSM FCI CONTINUATION: JSM FCC ON RETURN TO P+l: END-OF-PROGRAM P+ 2: B-REGISTER= D-REGISTER TEMPORARIES USED: T 1,T 2,T 3,T 4,T 26 170040 FCI 031711 035675 005307 035712 034017 FC 13 074570 004017 035713 170201 TCA STA Tl STB T 26 LDB FWUP STB T 2 STB D WBD A,I LDBD STB T 3 RET 1 SAVE DESIRED BYTE INITIALIZE WORD ADDRESS SKIP OVER WLENGTH INITIAL D-REGISTER SETTING 27626 27627 27630 27631 27632 27633 27634 27635 101712 FCC 050053 072475 005713 034017 074570 RE O 010053 066667 27636 031714 27637 020332 27640 100000 27641 170507 27642 050130 27643 010142 27644 066712 27645 010141 27646 066702 27647 010140 27650 066724 27651 010137 27652 066716 27653 010136 27654 066712 27655 005713 27656 000017 27657 031713 REI 1 LDA T 2,I AND B 177 SZA -3 LDB T 3 STB D WBD A,I CPA B 177 JMP RE 2 STA T 4 ADA ARTBL LDA A,I SAR 8 AND B 17 CPA P 5 JMP RE 5 CPA P 6 JMP RE 6 CPA P 7 JMP RE 7 CPA P 8 JMP RE 8 CPA P 9 JMP RE 5 LDB T 3 LDAD STA T 3 END-OF-PROGRAM RECALL LOCATION OF NEXT BYTE GET NEXT BYTE EOL FOUND SAVE CURRENT BYTE GET RTBL WORD GET CLASS = LITERAL SYNTAX 6 = GTO/GSB 7 = OPTIONAL ROM 8 = CHARACTER STRING 9 = NUMBER CURRENT POSITION UPDATE POSITION 166 Page 117 166 03722000 03723000 03724000 03725000 03726000 03727000 03728000 03729000 03730000 03731000 03732000 03733000 03734000 03735000 03736000 03737000 03738000 03739000 03740000 03741000 03742000 03743000 03744000 03745000 03746000 03747000 03748000 03749000 03750000 03751000 1,568,094 LEFTOVERS 03752000 27660034017 03753000 03754000 27661 001711 03755000 27662 021714 03756000 27663 172450 03757000 27664 021675 03758000 27665 172046 03759000 27666 170202 03760000 03761000 27667 005712 03762000 27670 100001 03763000 27671 050053 03764000 27672 024000 03765000 27673 035712 03766000 27674 101712 03767000 27675 050053 03768000 27676 010177 03769000 27677 170201 03770000 03771000 27700 042621 03772000 27701 066633 03773000 03774000 27702 074570 03775000 27703 074570 03776000 27704 074570 03777000 27705 010116 03778000 27706 066716 03779000 27707 074570 03780000 27710 074570 03781000 27711 066655 03782000 03783000 27712 074570 03784000 27713 010121 03785000 27714 066655 03786000 27715 066712 03787000 03788000 27716 074571 03789000 27717 174040 03790000 27720 076503 03791000 27721 074570 03792000 27722 066720 03793000 27723 066655 03794000 03795000 27724 074571 03796000 27725 001714 03797000 27726 010136 03798000 27727 066731 03799000 27730 066655 03800000 03801000 27731 014254 03802000 27732 066716 03803000 27733 066655 RE 2 RE 2 STB D LDA ADA SAM ADA SAP RET LDB LDA AND ADB STB LDA AND CPA RET JSM JMP RE 6 WBD WBD WBD CPA JMP WBD WBD JMP RE 5 RE 8 RE 7 WBD CPA JMP JMP WBD TCB SIB WBD JMP JMP WBD LDA CPA JMP JMP CPB JMP JMP TI T 4 RE O T 26 RE O T 2 B,I B 177 A T 2 T 2,I B 177 PO FC 13 RE O A,I A,I A,I B 42 RE 8 A,I A,I REI A,I B 34 REI -3 B,I + 3 A,I -2 REI B,I T 4 P 9 + 2 REI Pl RE 8 REI DESIRED BYTE? NO NO YES RECALL WORD ADDRESS OF LINE GET WLENGTH OF LINE END-OF-PROGRAM GTO/GS B GET TYPE OF B RANCH NUMBER OF LITERAL SYNTAX CHARACTER STRING, GET LENGTH OPTIONAL-ROM GET SECOND CODE IS IT THE UDF ROM? YES NO IS IT A UDF NAME? YES NO 167 Page 118 167 1,568,094 LEFTOVERS 03805000 03806000 03807000 03808000 27734 03809000 27735 03810000 27736 03811000 03812000 27737 03813000 27740 03814000 27741 03815000 27742 03816000 27743 03817000 03818000 27744 03819000 27745 03820000 27746 03821000 27747 03822000 27750 03823000 27751 03824000 27752 03825000 27753 03826000 27754 SPACE EXECUTION 101263 XSPAC 010221 06674 140612 076413 176004 140404 030467 E 17 004254 XS Pl 035711 000254 140571 001206 055711 010254 164365 XSP 2 066746 LDA CPA JMP JSM SZB SBP JSM ASC LDB STB LDA JSM LDA DSZ CPA JMP JMP AP 1,I EMPTY XSP 1 AGTIN,I XSP 2 + 4 AERRII 1,17 Pl TI Pl ASPC,I IOTMP Ti Pl AINTX,I XSPI+ 2 LOOK AT DATA TYPE JUMP IF NO PARAMETER GET INTEGER PARAMETER ERROR, ILLEGAL SPACE COUNT DEFAULT GO SPACE ONCE GET KEYCODE COUNT EXHAU Sr ED? STOP KEY? DON El KEEP SPACING CALL OPTIONAL-ROM FOR EXECUTION CALL OPTIONAL-ROM FOR EXECUTION 27755 27756 27757 022765 CALLM 104000 076403 27760 104001 27761 014257 27762 064731 E 29 A 27763 074560 27764 164001 ADA LDB SZB LDB CPB JMP WBC JMP ROMK A,I E 29 A B,I Ml E 29 A,I B,I B = RMTBL ENTRY ERROR, ROM MISSING ERROR, ROM MISSING GET OPCODE CALL OPTIONAL-ROM 27765 167320 ROMK DEF RMTBL-IBTBL I,I Page 119 03828000 03829000 03830000 03831000 03832000 03833000 03834000 03835000 03836000 03837000 03838000 03839000 03840000 03841000 168 168 169 1,568,094 I 6 LEFTOVERS STACK'ENTIREARRAY' STACK 'ENTIRE ARRAY' 000143 XARRY 004171 066773 LDA LDB JMP P 4 ARRAY XEMTY+ 2 WHAT = ENTIRE ARRAY 03850000 03851000 03852000 03852000 27771 03854000 27772 03855000 27773 03856000 27774 03857000 27775 03858000 27776 STACK'EMPTY' 000144 XEMTY 004221 140371 004177 070551 164365 LDA P 3 LDB EMPTY JSM AOVTS,I LDBPO PWD B,I JMP AINTX,I WHAT = EMPTY WHERE = ABSOLUTE O 03860000 27777 03862000 23704 BSS I ORG 23704 B RESERVED FOR 26 K-PAGE CHECKSUM 03864000 03865000 0386600 03867000 23704 03868000 23705 03869000 23706 03870000 23707 03871000 23710 03872000 23711 03873000 23712 03874000 23713 03875000 23714 03876000 23715 03877000 23716 03878000 23717 03879000 03880000 23720 03881000 23721 03882000 23722 03883000 23723 03884000 03885000 PROLOGUE TO ENT EXECUTION 004127 XENP 066707 004177 XENT 001232 050161 060001 031232 LDB JMP LDB LDA AND IOR STA 001257 010145 066720 140404 E 13 030463 000016 031624 140610 164577 LDA CPA JMP JSM ASC LDA STA JSM JMP END B 20 + 2 PO CSTMP+ 12 M 17 B CSTMP+ 12 CSTAT P 2 + 3 AERRI,I 1,13 C ENSV ACOUN,I AENT,I SET PRINT FLAG CLEAR PRINT FLAG GET CONTROL SUPERVISOR FLAG (CFLAG) SET BIT ACCORDING TO ENTER ENTRY, UPDATE THE CONTROL SUPERVISOR FLAG MAKE SURE PROPER MODE ERROR, ILLEGAL MODE SAVE C SET UP FA Pl END OF PASS 2 NO ERRORS DETECTED Page 120 03843000 03844000 03845000 03846000 03847000 03848000 27766 27767 27770 169 1,568,094 169 ' 1,568,094 BASE-PAGE READ-WRITE-MEMORY 00003000 76550 00004000 02000000 02001000 02003000 02004000 02005000 02006000 00041 02007000 00041 010000 02008000 02009000 00403 02010000 00403 010063 02011000 00404 011000 02012000 00405 011067 02013000 00406 011072 02014000 00407 011002 02015000 00410 010776 02016000 00411 011406 02017000 00412 010722 02018000 00413 110657 02019000-00414 010605 02020000 00415 011177 02021000 00416 010437 02022000 00417 010551 02023000 00420 010242 02024000 00421 011400 02025000 00422 011312 02026000 00423 010654 02027000 00424 011065 02028000 00425 010372 02029000 00426 010013 02030000 00427 011452 02031000 00430 011453 02032000 00431 010477 02033000 02034000 00577 02035000 00577 011105 02036000 ORG 76550 B UNL LST BASE PAGE LINKS ORG SYSS+I DEF INT ORG DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF ORG DEF AMCLX MCLX ERRI ERR 2 PEMIO EREXT REJR ERUN 7 PLIRC CNDT,I CTFC 8 CONEN EXCK EXCSB KYPRC RUNSB ECIM SCNDT SYSER CNINT ERASA ISTOR ISTOX EXCST AENT XEN O INTERRUPT LINK MAIN LOOP ADDR+ I ERROR ROUTINE NO RETURN ERROR ROUTINE RETURN P+ 2 PLACE ERROR MESSAGE IN I/O BUFFER ERROR EXIT AFTER 'AERR 2 ' INTERRUPT REJECT ROUTINE XCOMM MANAGEMENT PLACE LINE NO IN I/O BUFF COMMAND TABLE (ADDR) CHECK TABLE FOR COMMAND IMMEDIATE EXECUTE CONTINUE COMMAND EXECUTION COMPILE A LINE PROCESS A KEY RUN INIT CALLED BY LDP IMMEDIATE CONTINUE COMMAND TABLE TABLE START ADDR SYSTEM ERROR CONTINUE INITIALIZATION ERASE ALL LINK PLACE KEYBOARD CHAR IN I/O BUFFER PLACE CHARACTER IN I/O BUFFER STMT EXECUTION LINK TO EXECUTE 'ENT' Page 121 1,568,094 CONTROL SUPERVISOR 02039000 02040000 02041000 02042000 0204300 02044000 02045000 02046000 02047000 02048000 02049000 02050000 02051000 02052000 02053000 02054000 02055000 02056000 02057000 02058000 10000 02059000 02060000 02061000 02062000 02063000 02064000 02065000 02066000 02067000 02068000 02069000 02070000 10000 02071000 10001 02072000 10002 02073000 10003 02074000 10004 02075000 10005 02076000 02077000 10006 02078000 02079000 10007 02080000 10010 02081000 10011 02082000 10012 02083000 02084000 02085000 02086000 02087000 02088000 02089000 10013 02090000 10014 02091000 10015 02092000 10016 02093000 10017 02094000 10020 CONTROL SUPERVISOR CNSP ORG 10000 B POWER ON ROUTINES; CHECK RESET BIT FINDS THE AMOUNT OF R/W MEM IN SYSTEM; ZEROES ALL MEMORY; WAITS 5 SEC FOR THE CASSETTE R/W MAX ADDR OF R/W MEM = MAW = 77777 B 000177 INT 030017 030011 170502 073402 067073 004154 000263 072100 076176 000225 004217 034016 024241 130001 110001 LDA STA STA LDA SAR RLA KPA D PA R 5 3 + 2 KEYB SELECT CODE SET FLAG FOR AUTO START ROUTINES SET PERIPHERAL ADDR READ SYSTEM STATUS POSITION POWER-ON BIT SKIP IF POWER ON JMP RESET RESET KEY WAS PRESSED LDB M 8 LDA FLAG RIA RIB -2 ERASE ALL ENTRY FIND AMOUNT ERASA LDA ALBPT LDB B 76 K INTL STB C ADB BM 2 K STA B,I CPA B,I WAIT 5 SECONDS OF MEMORY AVAILABLE ALTERNATE BIT PATTERN ASSUME AT LEAST 2 K OF MEMORY SAVE ADDRESS CHECK NEXT LOWER 2 K WRITE ALTERNATE I'S AND O 'S SEE IF WRITTEN 171 Page 122 171 1,568,094 CONTROL SUPERVISOR 10021 067015 10022 000177 10023 10024 10025 10026 10027 10030 10031 10032 004016 130001 014344 067030 076175 004016 035305 035306 8 ( 10033 000300 10034 03003 10035 004117 10036 000005 10037 073002 10040 004127 10041 035512 10042 10043 10044 10045 10046 10047 10050 10051 10052 10053 10054 10055 10056 10057 JMP INTL YES, SO KEEP LOOKING CLEAR R/W MEMORY LDA PO LDB STA CPB JMP RIB LDB STB STB C B,I MAW + 2 -3 C OFWAM FWAM GET ADDR TO START CLEARING ZERO MEMORY DONE? YES; GET OUT OF LOOP NO; LOOP GET C REG.

FIRST WORD OF ACTUAL R/W FIRST WORD OF AVAILABLE MEMORY (R/W) RESET "JSM STACK" POINTER SET DISPLAY LENGTH LDA AJSTK STA R 043137 140435 040715 140435 004330 SETMP 035311 035312 035313 005306 035307 035277 035310 042400 140514 10060 140433 SETMI 10061 070420 LDB LDA SLA LDB STB JSM JSM JSM JSM P 32 R 5 + 2 P 16 DLEN SRWLK ATRBF,I CLMOD ATRBF,I JSM STACK S/V-I SET RET STACK POINTER READ SYSTEM STATUS SKIP ON 32 CHAR DISP SET DISP LENGTH SET R/W LINKS, INIT OPTION ROMS TRANSFER I/O TO KBD BUFF SET MODE = O FOR ATRBF TRANS EOL TO RESERVE BUFF ALSO SET MEMORY POINTERS LDB STB STB STB LDB STB STB STB JSM JSM LWAM VTI VT 2 FWBA FWAM FWUP ENDS RMAX RUNSB ASLLN,I LAST WORD OF AVAILABLE MEM.

SET VALUE TABLE POINTR SET VALUE TABLE POINTR SET FIRST WORD OF BIN AREA FIRST WORD OF AVAILABLE R/W MEM.

SET FIRST WORD OF USER PROGRAM NULL PROGRAM NO R-REGISTERS ALLOCATED INITIALIZE SO THAT A CONT IS LEGAL SET LNO TO LAST LINE NO OR-I TURN-ON DISPLAY,ENABLE INTERRUPT JSM ALDSP,I DISPLAY INFO EIR ENABLE INTERRUPT 172 Page 123 172 02095000 02096000 02097000 02098000 02099000 02100000 02101000 02102000 02103000 02104000 02105000 02106000 02107000 02108000 02109000 02110000 02111000 02112000 02113000 02114000 02115000 02116000 02117000 02118000 02119000 02120000 02121000 02122000 02123000 02124000 02125000 02126000 02127000 02128000 02129000 02130000 02131000 02132000 02133000 02134000 02135000 02136000 02137000 02138000 02139000 02140000 02141000 02142000 02143000 02144000 02145000 02146000 02147000 02148000 02149000 02150000 1,568,094 CONTROL SUPERVISOR c a 165511 MCL 140504 MCLX 140454 MLCK 172277 031207 MLK 001206 043242 140432 MCLI 067062 MAIN CONTROL LOOP JMP JSM JSM SAP STA LDA JSM JSM JMP MLBPL,I ARNLFI ARPRL I M LCK,C WMOD WKC KYPRC ADSPC,I MCL GO THRU MAIN LOOP BYPASS LINK TURN OFF RUN LIGHT GET NEW KEY FLAG, DISTRIBUTE POWER KEEP LOOKING IF FLAG IS NOT SET RESET NEW KEY FLAG GET KEY CODE PROCESS THE KEY DISPLAY THE NEW KEY LOOP SYSTEM RESET AFTER SYSTEMRESET SYSTEM IS READY RESETS JSM STACK: RESETS STOLEN MEM PTR STRIPS EXECUTIONSTACK; CLEARS SYSTEM FLAGS CHECKS LINE BRIDGES OF PROGRAM:DISPLAYS LINE# BEING EXECUTED 000300 RESET 030003 001305 031306 001265 030017 140361 043137 001257 031234 042040 031232 031613 031255 031623 031314 040717 004344 10115 140523 10116 140514 LDA STA LDA STA LDA STA JSM JSM LDA STA JSM STA STA STA STA STA JSM LDB AJSTK R OFWAM FWAM HERE D AINTI,I SRWLK CSTAT TMP 4 CLRST CFLAG RENFG XCOMM LKFLG TE STELM MAW JSM AGLNO,I JSM ASLLNI 001234 072416 005626 010143 067133 010142 067133 LDA SZA LDB CPA JMP CPA JMP TMP 4 NOLNN ENSV+ 2 P 4 RLINN P 5 RLINN JSM STACK S/A-I SET RET STACK POINTR FIRST WORD OF ACTUAL R/W RESET AVAILABLE MEM PTR SET FLAG FOR AUTO START ROUTINES RESET EXECUTION STACK SET R/W LINKS INIT OPTION ROMS SAVE CONTROL STATE CLEAR CSTAT, LEAVE A PO IN "A' RESET CONTROL FLAG CLEAR RENUMBER,REWIND FLAG CLEAR ANY PENDING INTERRUPTS ENABLE LIVE KBD CLEAR MASTER TRACE FLAG SET EOL MODE SEE IF PROGRAM STRUCTURE STILL INTACT SEARCH THROUGH LINE BRIDGES RESET LINE NO.

PUT CORRECT LINE NUMBER IN DISPLAY SKIP IF STATE= O GET ENTER SAVED HERE WAITING FOR ENTER YES, PUT LINE IN h/O BUFFER EXECUTION IN ENTER? YES 173 Page 124 173 10062 10063 10064 10065 10066 10067 10070 10071 10072 02151000 02152000 02153000 02154000 02155000 02156000 0215700 02158000 02159000 02160000 02161000 02162000 02163000 02164000 02165000 02166000 02167000 02168000 02169000 02170000 02171000 02172000 02173000 02174000 02175000 02176000 02177000 02178000 02179000 02180000 02181000 02182000 02183000 02184000 02185000 02186000 02187000 02188000 02189000 02190000 02191000 02192000 02193000 02194000 02195000 02196000 02197000 02198000 02199000 02200000 02201000 02202000 02203000 02204000 02205000 02206000 10073 10074 10075 10076 10077 10100 10101 10102 10103 10104 10105 10106 10107 10110 10111 10112 10113 10114 10117 10120 10121 10122 10123 10124 10125 1,568,094 CONTROL SUPERVISOR 10126 10127 10130 10131 10132 10133 10134 10135 005607 010144 067133 073405 004017 043421 RLINN 000177 031232 10136 067060 LDB CPA JMP RLA LDB JSM LDA STA LKTMP+ 2 GET SAVED WHERE FOR LIVE KBD P 3 EXECUTION IN LIVE KB D? RLINN YES, PUT LINE # IN I/O BUFFER NOLNN SKIP IF STATE=I D STATE MUST BE 2 OR 6 SO USE HERE STEP 4 PLACE LINE# IN I/O BUFFER PO RESET CONTROL FLAG CFLAG NOLNN JMP SETMI COMPLETE RESET INIT SET R/W LINKS,SET INTERRUPT TABLE, INIT OPTION ROMS ROUTINES SHARED BY POWER-ON AND RESET 10137 10140 10141 10142 10143 10144 10145 10146 10147 10150 10151 10152 10153 10154 10155 10156 10157 10160 10161 10162 10163 000367 SRWLK 031507 000406 031260 000403 031511 000714 031533 000112 031217 000730 031526 000275 SETIT 172701 030010 000275 004434 134000 004410 072101 SETI 134000 02253000 10164 012567 02254000 10165 067167 02255000 10166 067162 02256000 02257000 02258000 02259000 10167 140447 STEDT 02260000 10170 140452 LDA STA LDA STA LDA STA LDA STA LDA STA LDA STA ASTP ELINK APEMI ERRBP AMCLX MLBPL ARETI 1 RLINK B 51 WPRT AREPN APP# GET ADDR OF STOP ROUT.

INIT END-STMT LINK ADDR OF COMMON ERROR SUBR.

SET LINK FOR NORMAL ERROR ROUT.

MAIN LOOP ADDR+ 1 SET MAIN LOOP BYPASS LINK TERMINATE RUN LINK WITH A RETURN SET RUN LINK FOR OPTION ROMS SET FOR FIXED 2, FLOAT 9 SET ERROR ADDR FOR P# EXECUTION SET INTERRUP TABLE ON TURN-ON:

KEYBOARD LINKAND REJECT LINKS LDA AITAB SAM + I,S STA IV LDA AITAB LDB AKBSR STB A,I LDB AREJR RIA + 1 STB A,I CPA LITAD JMP STEDT JMP SETI JSM ASWIO,I JSM AEOLB,I GET INTERRUPT TABLE ADDR SET BIT 15 FOR INDIRECT SET INTERRUPT VECTOR POINTER GET INTERRUPT TABLE ADDR KEYBOARD SERVICE ROUTINE ADDR IN INTRPT TABLE REJECT ROUTINE ADDR INCRM TABLE ADDR FILL REST OF TABLE WITH REJECT ADDRESS LAST INTERPT TABLE ADDR? YES, DONE NO: SET ADDITIONAL ADDRS SET POINTERS TO EDIT I/O BUFFER PUT EOL IN BUFFER, RESET EDIT POINTERS 174 Page 125 174 02207000 02208000 02209000 02210000 02211000 02212000 02213000 02214000 02215000 02216000 02217000 02218000 02219000 02220000 02221000 02222000 02223000 02224000 02225000 02226000 02227000 02228000 02229000 02230000 02231000 02232000 02233000 02234000 02235000 02236000 02237000 02238000 02239000 02240000 02241000 02242000 02243000 02244000 02245000 02246000 02247000 02248000 02249000 02250000 02251000 02252000 02261000 02262000 1,568,094 175 CONTROL SUPERVISOR SORFI SET OPTION ROM TABLE 10171 140600 SORFI 000327 020254 071617 020127 004331 134000 020254 004257 134000 006576 000001 RINT 020236 011305 067225 010224 067225 030001 020143 100000 010257 067204 000001 020142 100000 020326 134000 067204 JSM ACSTI,I CASSETTE INITIALIZATION RESETOPTION ROM TABLE LDA AROMS ADA Pl CLR 16 ADA P 16 LDB AMAIN STB A,I ADA Pl LDB M I STB A,I S/A OF TABLE

SKIP OVER BINARY PROG LINK CLEAR TABLE

SET MAIN SYSTEM ADDRESS SET END OF TABLE INITIALIZE OPTION ROM TABLE LDB LDA ADA CPA JMP CPA JMP STA ADA LDA CPA JMP LDA ADA LDA ADA STB JMP ASYSM B B 2 K OFWAM ROMIN B 60 K ROMIN B P 4 A,l Ml RINT B P 5 A,I ATROM A,I RINT START SEARCH AT SYSTEM ROM ADDR SET CURRENT ADDR LOOK AT NEXT HIGHER IK START OF R/W;END OF ROM ADDR SPACE? INITIALIZE ROMS IF SO END OF ROM ADDRESSES? TABLE FILLED IF SO SAVE POSSIBLE ROM S/A GET ROM INIT ADDR ROM PRESENT? NO, CHECK NEXT ROM GET ROM S/A AGAIN POINT TO ROM ID GET ROM ID CALCULATE ADDR TO PUT ROM S/A STORE ROM ADDR FOR THIS ID CHECK FOR ANOTHER ROM INITIALIZE THE OPTION ROMS INITIALIZE THE OPTION ROMS 10225 000327 ROMIN 10226 020127 10227 031227 10230 101227 RMINI 10231 072404 10232 020143 10233 100000 10234 140000 10235 001227 RMIN 2 10236 010327 10237 170201 10240 055227 10241 067230 LDA ADA STA LDA SZA ADA LDA JSM LDA CPA RET DSZ JMP AROMS P 16 TM Pl TMPI,I RMIN 2 P 4 A,I A,I TM Pl AROMS 1 TM Pl RMINI S/A OF OPTION ROM ADDR TABLE START WITH THE HIGHEST ID ROM SAVE ROM TABLE PTR GET ROM ADDR SKIP IF ROM NOT PRESENT ROM INIT ADDR GET ADDRESS INIT THE ROM DONE WITH ALL THE OPTION ROMS? YES NO, POINT TO NEXT ROM ADDR Page 126 10172 10173 10174 10175 10176 10177 10200 10201 10202 10203 10204 10205 10206 10207 10210 10211 10212 10213 10214 10215 10216 10217 10220 10221 10222 10223 10224 02263000 02264000 02265000 02266000 02267000 02268000 02269000 0227000 02271000 02272000 02273000 02274000 02275000 02276000 02277000 02278000 02279000 02280000 02281000 02282000 02283000 02284000 02285000 02286000 02287000 02288000 02289000 02290000 02291000 02292000 02293000 02294000 02295000 02296000 02297000 02298000 02299000 02300000 02301000 02302000 02303000 0230400 02305000 02306000 02307000 02308000 02309000 02310000 02311000 02312000 02313000 02314000 02315000 02316000 02317000 02318000 1,568,094 1,568,094 CONTROL SUPERVISOR THE CONTROL SUPERVISOR DIRECTS ALL KEYCODES LOADED BY THE KEYBOARD INTERRUPT ROUTINE TO THE PROPER HANDLING ROUTINE.

ENTRY: A = KEY CODE TABLE ADDR = BASE + MODE + 5 (CN) THE CONTENTS OF THE ADDR POINTS TO THE PROCESSING ROUTINE THIS TABLE OF ADDRESSES CAN BE CONSID AS A MATRIX OF SIZE ( 5,21) WHERE EACH ELEMENT IS FOUND BY (MODE,CN).

MODE IS THE CONTROL SUPERVISOR CONTROLLING FLAG.

CN IS THE CONTROL NUMBER FOUND IN MTABLE KEY PROCESSING TABLE ENTRY KYPRC: A CONTAINS KEY IF STATE = 2 OR 4 THEN ENTRY 3 IN THE TABLE IS USED IF THIS ADDR IS ZERO THEN THE MODE ENTRY IS USED THE MODE ENTRY IS ALLWAYS USED IF THE STATE IS ZERO MODE IS 0,1,2,0 R 4 10242 031235 KYPRC 10243 020167 10244 172002 10245 067250 10246 004126 10247 067251 10250 043300 KYCN 2 10251 014135 PRG 1 10252 067261 10253 001232 10254 170705 10255 172602 10256 073201 10257 170711 LASRC 10260 031232 10261 001257 KYREC 10262 072404 10263 000144 10264 067267 10265 005227 PRG 3 STA ADA SAP JMP LDB JMP JSM CPB JMP LDA RAR SAM SLA RAR STA LDA SZA LDA JMP LDB SKEY BM 200 + 2 KYCN 2 P 17 PRG 1 SKCD P O lo KYREC CFLAG 6 LASRC,C LASRC,C CFLAG CSTAT PRG 2 P 3 PRG 4 TM Pl SAVE NEW CODE SPECIAL KEY? NO SPECIAL KEY CN = B 2 i GET CONTROL # FROM MTABLE SEE IF RECALL KEY YES NO,CLEAR BIT 5 OF CFLAG, AND MODIFY IF BIT 5 IS SET LEAVE BIT 6 = I CLEAR BIT 5 IN ALL CASES BIT 5 =OSOCLEAR BIT 6 REPOSITION FLAG RESTORE FLAG IF STATE = 0 USE MODE ENTRY INTO TABLE

STATE MUST BE 2 OR 4 SO USE ENTRY 3 RESTORE B BEFORE RECALCULATE Page 127 02319000 02320000 02321000 02322000 02323000 02324000 02325000 02326000 02327000 02328000 02329000 02330000 02331000 02332000 02333000 02334000 02335000 02336000 02337000 02338000 02339000 02340000 02341000 02342000 02343000 02344000 02345000 02346000 02347000 02348000 02349000 02350000 02351000 02352000 02353000 02354000 02355000 02356000 02357000 02358000 02359000 02360000 02361000 02362000 02363000 02364000 02365000 02366000 02367000 02368000 02369000 02370000 02371000 02372000 02373000 02374000 176 176 1,568,094 CONTROL SUPERVISOR 001256 PRG 2 035227 PRG 4 174601 025227 024000 026613 000177 110001 067265 164001 LDA STB SBL ADB ADB ADB LDA CPA JMP JMP MODE TM Pl 2 TM Pl A ATBL PO B,l PRG 3 B,I 177 USE MODE ENTRY CALCULATE TABLE ADDR MPYBY 4 B= 5 (CN) B=ENTRY # + 5 (CN) B=ADDR,I OF PROCESSING ROUTINE IFADDR= O THEN USE MODE ENTRY #0 SO GO TO THE PROCESSING ROUTINE GETMTABLECODE

GET MTABLE CODE ENTRY: ASCII CODE IN "SKEY" e EXIT: CONTROL NUMBER IN B-REG 001235 004460 034016 074561 014045 067315 SKCD SMTBL SMTB l 010001 067312 074561 067303 074561 SMTB 2 174502 170201 10315 004134 SKCDI 10316 170201 10317 140404 ERILO 10320 030065 10321 140451 PEOL 10322 040715 LDA LDB STB WBC CPB JMP CPA JMP WBC JMP WBC SBR RET SKEY AKYTB C B,I B 377 SKCDI B SMTB 2 B,I SMTB 1 B,l 3 LDB B 13 RET I JSM AERRI,I ASC 1,05 GET KEY CODE GET TABLE ADDR SET C-REG GET UPPER HALF BYTE END-OF-TABLE?

YES CODE FOUND? YES NO, BYPASS RIGHT-HALF CONTINUE GET MCODE GET CONTROL NUMBER MUST BE PROGRAMMING KEY CN= 13 ILLEGAL OPERATION NEW KEY AFTER "EOL" MODE IS SET JSM ACLEB,I CLEAR EDIT BUFFER JSM CLMOD RESET TO KBD MODE ALPHANUMERIC KEYS 10266 10267 10270 10271 10272 10273 10274 10275 10276 10277 177 Page 128 02375000 02376000 02377000 02378000 02379000 02380000 02381000 02382000 02383000 02384000 02385000 02386000 02387000 02388000 02389000 02390000 02391000 02392000 02393000 02394000 02395000 02396000 02397000 02398000 02399000 02400000 02401000 02402000 02403000 02404000 02405000 02406000 02407000 024080 02409000 02410000 02411000 02412000 02413000 02414000 02415000 02416000 02417000 02418000 02419000 02420000 02421000 02422000 02423000 02424000 02425000 02426000 02427000 02428000 02429000 02430000 10300 10301 10302 10303 10304 10305 10306 10307 10310 10311 10312 10313 10314 178 1,568,094 178 CONTROL SUPERVISION 10323 140427 P 02 10324 067325 10325 164446 10326 140451 PALL 10327 001232 10330 172705 10331 031232 10332 003351 10333 131350 10334 067342 10335 10336 10337 10340 10341 10342 10343 10344 10345 10346 10347 10350 10351 10352 10353 10354 10355 10356 172601 PALLI 031232 003346 005350 071401 040715 STPLL 140432 140452 170202 010347 067546 063040 067556 043357 000063 043357 002571 AOFF ONMSG RESK 10357 031235 RESSB 10360 067323 10361 140451 REOL 10362 040715 10363 067352 JSM JMP JMP AISTR,I + 1 AFBP,I STORE CODE IN INPUT BUFF INPUT BUFF FULL; CHAR NOT STORED FIND DISP BEGIN POINTR AND PRINT-ALL KEY JSM LDA SAM STA LDA STA JMP SAM STA LDA LDB XFR JSM JSM JSM RET DEF OCT OCT OCT ACLEB,I CFLAG PALLI,S CFLAG ONMSG AEBUF,I STPLL +I,C CFLAG AOFF AEBUF 2 CLMOD ADSPC,I AEOLB,I + 1 67546 63040 67556 CLEAR EDIT BUFFER GET CONTROL FLAG PRINT ALL SET? NO; SET IT; UPDATE CONTROL FLAG GET "ON" MESSAGE PLACE LINE NO IN I/O BUFFER DISPLAY ON/OFF MESSAGE CLEAR PRINT ALL UPDATE CONTROL FLAG ADDR OF "OFF" MESSAGE DESTINATION ADDR TRANSFER "OFF" IN I/O BUFF SET MODE = O DISPLAY ON/OFF MESSAGE CLR EDIT BUFFER LEAVE MESSAGE IN DISPLAY OF F BLANK ON RESULT KEY LDA JSM LDA JSM LDA PI 14 RESSB B 145 RESSB B 163 STA SKEY JMP P 02 GET LOWER CAS "R" PLACE CODE IN I/O BUFF GET LOWER CASE "E" PLACE CODE IN I/O BUFF GET LOWER CASE "S" SAVE CODE STORE CODE IN I/O BUFF + RETURN P+ 1 RESULT KEY EOL MODE JSM ACLEB,I CLEAR EDIT BUFFER JSM CLMOD SET KBD MODE JMP RESK Page 129 02431000 02432000 02433000 02434000 02435000 02636000 02437000 02438000 02439000 02440000 02441000 02442000 02443000 02444000 02445000 02446000 02447000 02448000 02449000 02450000 02451000 02452000 02453000 02454000 02455000 02456000 02457000 02458000 02459000 02460000 02461000 02462000 02463000 02464000 02465000 02466000 02467000 02468000 02469000 02470000 02471000 02472000 02473000 02474000 02475000 02476000 02477000 02478000 02479000 02480000 02481000 02482000 02483000 02484000 02485000 02486000 1,568,094 A-.

178 178 1,568,094 CONTROL SUPERVISOR CNINT CONTINUE INITIALIZATION CNINS PRE CONTINUE INIT a as as 040717 CNINS 140452 140433 031257 140503 CNINN 001232 CNINT 170702 172406 140361 140360 000254 031063 141533 001232 CRUND 050160 060143 031232 170201 JSM JSM JSM LDA STA JSM LDA RAR SAM JSM JSM LDA STA JSM LDA AND IOR STA RET STELM AEOLB,I ALDSP,I P 2 CSTAT ARNLO,I CFLAG 3 CRUND AINTI,I ARSGT,I Pl NPROG RLINK, I CFLAG M 16 P 4 CFLAG I SET MODE = 4 CLR DISPLAY SET RUN STATE TURN ON RUN LIGHT SEE IF RUN ALREADY DONE POSITION RUN BIT 2 SKIP IF DONE NOT DONE, STRIP EXEC STACK RESET HI SPEED GTO/GSB'S AND RESET HERE,WHERE SET FLAG FOR RLINK-CONTINUE INIT ALLOWS ROMS TO INIT CLEAR BITS 0-3 OF CFLAG SET RUN DONE BIT 2 RESTORE FLAGS STEP KEY EXECUTION IF RUN DONE BIT IS CLEARED DOES A CONTINUE INIT AND DISPLAYS LINE # O IF RUN HAS BEEN DONE, CHECKS STEP DONE BIT OF CFLAG EXECUTES LINE INDICATED BY WHERE (SETS A BIT IN XCOMM SO IT WILL STOP AT THE END OF THE LINE); IF BIT NOT SET DISPLAYS LINE # INDICATED BY WHERE 001232 STEPK 170702 172022 073006 000052 LDA RAR SAP SLA LDA CFLAG 3 STE Pl STEP 3 B 200 GET CONTROL FLAG POSITION RUN FLAG (BIT 2) "RUN" DONE? YES; STEP DONE BEFORE? YES; SET A STOP CONDITION 10364 10365 10366 10367 10370 10371 10372 10373 10374 10375 10376 10377 10400 10401 10402 10403 10404 10405 10406 Page 130 02487000 02488000 02489000 02490000 02491000 02492000 02493000 02494000 02495000 02496000 02497000 02498000 02499000 0250000 02501000 02502000 02503000 02504000 02505000 02506000 02507000 02508000 02509000 02510000 02511000 02512000 02513000 02514000 02515000 02516000 02517000 02518000 02519000 02520000 02521000 02522000 02523000 02524000 02525000 02526000 02527000 02528000 02529000 02530000 02531000 02532000 02533000 02534000 02535000 02536000 02537000 02538000 02539000 02540000 02541000 02542000 10407 10410 10411 10412 10413 179 179 1,568,094 CONTROL SUPERVISOR.

10414 10415 10416 10417 031255 043364 005266 067516 10420 005266 10421 140523 10422 140476 10423 140475 10424 000077 10425 074550 10426 140436 10427 043402 10430 060133 10431 031232 10432 064717 10433 10434 10435 10436 STEP 3 STEP 3 STEP 4 STEP 2 s 043371 STE Pl 004177 035226 067422 10437 140435 EXCK 10440 000177 10441 031316 10442 031255 10443 140503 10444 140461 10445 000327 10446 031712 10447 101712 EXCK 3 10450 072417 10451 010331 10452 067471 10453 020144 10454 100000 10455 010257 10456 067467 10457 031714 10460 172701 10461 043604 10462 067467 10463 174040 10464 025714 10465 176701 STA JSM LDB JMP LDB JSM JSM JSM LDA PBD JSM JSM IOR STA JMP JSM LDB STB JMP XCOMM CNINS WHERE EXC 52 WHERE AGLNO,I ATLNI,I AEDPT,I COLLN A,I AEPON,I CRUND P 12 CFLAG STELM CNINN PO LNO STEP 2 IN XCOMM CONTINUE INIT S/A OF LINE TO START EXECUTION START RUNNING THE PROGRAM GET ADDR OF NEXT LINE AND FIND ITS LINE NO.

PLACE ITS NO IN I/O BUFFER RESET EDIT PTRS GET COLLON INCREM AND PLACE IN I/O BUFF GO THRU PRINT ALL SET CFLAG SET STEP AND RUN FLAGS UPDATE CONTROL FLAG SET EOL MODE AND RETURN P+ I CONTINUE INIT WITH RUN LIGHT ON SET FOR LINE 0 DISP NEXT LINE NO AND EXIT COMMAND EXECUTION JUMP TO THE PROPER COMMAND ROUTINE IF A COMMAND IS FOUND; OTHERWISE GO TO THE INTERPRETER JSM ATRBF,I LDA PO STA CERR STA XCOMM JSM ARNLO,I JSM APRKB,I LDA AROMS STA T 2 LDA T 2 +I SZA EXCK 2 CPA AMAIN JMP EXCK 4 ADA P 3 LDA A,I CPA M 1 JMP EXCK 2 STA T 4 SAM + I,S JSM CTFC JMP EXCK 2 TCB ADB T 4 SBM +I,S TRANSFER BUFFERS CLEAR COMPILE ERROR FLAG CLEAR XCOMM TURN ON RUN LIGHT GO THROUGH PRINT-ALL,KBD BUFFER ADDR OF OPTION ROM TABLE AND SAVE THE ADDR GET ROM ADDR SKIP IF THE ROM IS NOT PRESENT END OF TABLE?

EXIT LOOP IF SO POINT TO COMMAND ENTRY GET ROM WORD ENTRY PRESENT? NO; GO TO NEXT ROM SAVE S/A OF COMMAND TABLE POINT TO UPPER HALF CHECK TABLE FOR COMMAND NOT FOUND MAKE OPCODE NEGATIVE B = EXECUTION ROUTINE ADDR POINTR SET INDIRECT Page 131 02543000 02544000 02545000 02546000 02547000 02548000 02549000 02550000 02551000 02552000 02553000 02554000 02555000 02556000 02557000 02558000 02559000 02560000 02561000 02562000 02563000 02564000 02565000 02566000 02567000 02568000 02569000 02570000 02571000 02572000 02573000 02574000 02575000 02576000 02577000 02578000 02579000 02580000 02581000 02582000 02583000 02584000 02585000 02586000 02587000 02588000 02589000 02590000 02591000 02592000 02593000 02594000 02595000 02596000 02597000 02598000 1,568,094 CONTROL SUPERVISOR 10466 164001 10467 045712 10470 067447 10471 000413 10472 043604 10473 067504 10474 17404010475 026570 10476 164001 10477 001257 10500 010145 10501 164457 EXCK 2 EXCK 2 EXCK 4 EXCST 10502 140435 10503 140461 10504 10505 10506 10507 10510 10511 10512 10513 10514 10515 10516 10517 140515 EXC 51 001257 020254 031257 000177 031517 043542 140503 001266 031317 140364 EXC 52 001257 EXC 54 10520 010143 10521 170201 10522 10523 10524 10525 10526 10527 10530 10531 10532 10533 10534 10535 10536 140411 067526 005266 067516 001257 010145 067534 001317 031266 066032 ERSTP 077003 ERSS 043420 066032 JMP B,I ISZ JMP LDA 181 GO TO THE ROUTINE T 2 EXCK 3 ACNDT JSM CTFC JMP EXCSI TCB ADB ASCDI JMP B,I INC TABLE ADDR KEEP LOOKING ADDR OF MAIN FRAME COMMAND TABLE

CHECK TABLE FOR COMMAND NOT FOUND FOUND; MAKE OPCODE NEGATIVE B=EXECUTION ROUTINE ADDR POINTER GO TO THE ROUTINE STATEMENT EXECUTION

LDA CSTAT GET STATE VARIABLE CPA P 2 LIVE KBD EXECUTE? JMP ALXKY,I YES, USE LIVE KBD ROUTINES JSM ATRBF,I TRANSFER LINE TO KBD BUFFER JSM APRKB,I YES, SO GOT THROUGH PRINTALL, KBD BUF JSM LDA ADA STA LDA STA JSM JSM LDA STA JSM LDA ASTKI,I CSTAT Pl CSTAT PO RGFLG EXCSS ARNLO,I WHERE SWHRE AINTK,I CSTAT CPA P 4 RET I JSM JMP LDB JMP LDA CPA JMP LDA STA JMP SLB JSM JMP STACK SYSTEM INFO STATES 0,2,4 BECOME STATES 1,3,5 ALLOW IMPLIED STORAGE INTO RES REG COMPILE LINE, SET BRIDGES TURN ON RUN LIGHT SAVE WHERE GO TO INTERPRETER GET STATE VARIABLE DONE WITH PRE ENTER? YES, RETURN TO IDLE LOOP AXCMM,IGO AND WORK ON XCOMM ERSTP J'CB COMPLETE OR STOP WHERE XCOMM CLEAR: GET S/A OF NEXT OP EXC 52 RESUME INTERPRETER ACTION CSTAT P 2 ERSS SWHRE WHERE EREX 2 STPPR STEP 3 EREX 2 DON'T UNSTACK IF STATE = 2 STATE = 2 SO MUST BE A STOP CONDITION STATE #2 SO UNSTACK, RESTORE WHERE STATE #2 SO UNSTACK SKIP IF STP STMT OR END STMT PUT LINE # IN DISPLAY CHANGE STATE LDB WHERE GET ADDR OF NEXT LINE 181 Page 132 02599000 02600000 02601000 02602000 02603000 02604000 02605000 02606000 02607000 02608000 02609000 02610000 02611000 02612000 02613000 02614000 02615000 02616000 02617000 02618000 02619000 02620000 02621000 02622000 02623000 02624000 02625000 02626000 02627000 -02628000 02629000 02630000 02631000 02632000 02633000 02634000 02635000 02636000 02637000 02638000 02639000 02640000 02641000 02642000 02643000 02644000 02645000 02646000 02647000 02648000 02649000 02650000 02651000 02652000 02653000 02654000 10537 005266 STPPR 1,568,094 CONTROL SUPERVISOR 10540 140523 10541 066032 182 JSM AGLNO,I FIND LINE NO.

JMP EREX 2 CHANGE STATE COMPILE LINE AND CREATE LINE STRUCTURE REDISPLAYS EDITBUFFER IF CURSOR IS SET EXIT: B = COMPILE BUFF S/A 001214 EXCSS 072406 000177 031214 140432 004155 040633 140452 EXCSB 000214 130311 140346 140510 020254 020165 172404 072403 140404 030070 ERLLN 044016 EXCK 7 004016 176002 074760 001234 170607 070540 004016 024254 034017 004303 140467 001234 130303 004303 170201 LDA SZA LDA STA JSM LDB JSM JSM LDA STA JSM JSM ADA ADA SAM SZA JSM ASC ISZ LDB SBP WBC LDA SAL PWC LDB ADB STB LDB JSM LDA STA LDB RET CRSP EXCSB PO CRSP ADSPC,I M Il DELAY AEOLB,I EOLB AKBFL,I ACPLR,I AGLL,I Pl M 80 EXCK 7 EXCK 7 AERRI,I 1,08 C C + 2 A,D TMP 4 8 A,I C Pl D ACBF SEE IF CURSOR SET DON'T REDISPLAY IF NOT STRIP CURSOR FROM DISPLAY DISPLAY LINE WITHOUT CURSOR WAIT 11 MS FOR DISPLAY PUT EOL IN I/O BUFFER GET EOL AND BLANK STORE IN LAST WORD OF KEYBOARD BUFFER GO TO COMPILER GET LENGTH OF LINE INCLUDE END LINK COMPILE BUFF = 80 W LENGTH < 80 W? NO; LENGTH = 80 W? NO; LINE TOO LONG ADJUST POINTER GET C-REG POINTR = NEW WORD? YES; POINT TO PREVIOUS WORD GET LINE LENGT POSITION IN UPPER HALF INCRM AND STORE END LINK GET C-REG POINT TO NEXT WORD SET START DESTIN, ADDR END SOURCE ADDR AMTHM,I SHIFT INFO HIGHER ONE WORD TMP 4 GET LENGTH OF LINE ACBF,I CREATE FRONT LINK ACBF COMPILE BUFF S/A I CHECK TABLE FOR COMMAND ENTRY: A =TABLE POINTER ACTFCENTRY B = BUFF S/A EXIT: RET P + 1 NOT FOUND 182 Page 133 02655000 02656000 02657000 02658000 02659000 02660000 02661000 02662000 02663000 02664000 02665000 02666000 02667000 02668000 02669000 02670000 02671000 02672000 02673000 02674000 02675000 02676000 02677000 02678000 02679000 02680000 02681000 02682000 02683000 02684000 02685000 02686000 02687000 02688000 02689000 02690000 02691000 02692000 02693000 02694000 02695000 02696000 02697000 02698000 02699000 02700000 02701000 02702000 02703000 02704000 02705000 02706000 02707000 02708000 02709000 02710000 10542 10543 10544 10545 10546 10547 10550 10551 10552 10553 10554 10555 10556 10557 10560 10561 10562 10563 10564 10565 10566 10567 10570 10571 10572 10573 10574 10575 10576 10577 10600 10601 10602 10603 004307 030017 035227 005227 035222 140501 074571 174706 077015 001713 072411 174601 174512 001222 030016 074760 000016 031222 170202 10627 176060 10630 170201 CTFC CTFC 8 CTFC 7 CTFC 6 CTFCI 174710 CTFC 2 010001 067644 000177 031713 074571 CTFC 3 174706 077076 176402 067607 170201 CTFC 4 000254 CTFC 5 031713 067611 023775 011321 023776 010674 011337 183 1,568,094 CONTROL SUPERVISOR RET P + 2 FOUND B = OPCODE LDB STA STB LDB STB JSM WBD RBR SLB LDA SZA SBL SBR LDA STA WBC LDA STA RET AKBFX D TM Pl TM Pl L AGNXT,I B,I 7 CTFC 2 T 3 CTFC I 2 11 L C A,D C L SBP CTFC 7 RET 1 RBR CPA JMP LDA STA WBD RBR SLB SBM JMP RET LDA STA JMP 9 B CTFC 5 PO T 3 B,I 7 CTFC 3 CTFC 4 CTFC 7 Pl T 3 CTFC 6 ADDR OF KBD BUFFER SET TABLE PTR

SET BUFFER START ADDR GET BUFFER START ADDR FOR "GNEXT" GET CHAR FROM I/O BUFF GET CHAR FROM TABLE POSITION END OF ENTRY BIT END OF ENTRY? YES; GET COMPARE FLAG COMMAND FOUND YES; DROP TWO FLAG BITS DROP END OF ENTRY BIT GET "L", GNEXT, POINTR DUMMY WITHDRAW AND DECRM GET POINTR UPDATE "L" POINTR END OF TABLE?

YES REPOSITION CHAR IN LOWER HALF CHARS COMPARE? YES NO CLEAR COMPARE FLAG GET NEXT CHAR POSITION END OF ENTRY BIT IS THIS THE OPCODE? YES; END OF TABLE? NO; CONT SEARCH SET COMPARE FLAG CONT WITH SAME ENTRY MAIN FRAME COMMAND ADDRESSES DEF DEF DEF DEF DEF 23775 B ECONT 23776 B FETCH ERUX DEL LINE CONTINUE ERASE FETCH LINE RUN MAIN FRAME COMMAND TABLE 10604 10605 10606 10607 10610 10611 10612 10613 10614 10615 10616 10617 10620 10621 10622 10623 10624 10625 10626 183 Page 134 02711000 02712000 02713000 02714000 02715000 02716000 02717000 02718000 02719 0000 02720000 02721000 02722000 02723000 02724000 02725000 02726000 02727000 02728000 02729000 02730000 02731000 02732000 02733000 02734000 02735000 02736000 02737000 02738000 02739000 02740000 02741000 02742000 02743000 02744000 02745000 02746000 02747000 02748000 02749000 02750000 02751000 02752000 02753000 02754000 02755000 02756000 02757000 02758000 02759000 02760000 02761000 02762000 02763000 02764000 02765000 02766000 10631 10632 10633 10634 10635 10636 10637 10640 10641 10642 10643 10644 10645 10646 10647 10650 10651 10652 10653 10654 10655 10656 10657 10660 10661 10662 10663 10664 10665 10666 10667 10670 10671 10672 10673 10674 10675 10676 10677 10700 10701 10702 10703 10704 10705 10706 10707 10710 10711 10712 10713 10714 10715 10716 10717 1,568,094 CONTROL SUPERVISOR 000154 SCNDT 064563 072206 063145 CNDT 072143 064202 062562 060563 062603 062145 066205 071165 067201 061557 067164 142000 043761 FETCH 140501 010053 067720 140507 035226 FETC 5 001232 FETC 3 050150 031232 140512 067715 004254 FTCHX 035256 005232 077301 035232 067722 040717 FETC 2 140514 164452 10720 004177 FETC 4 10721 067701 OCT OCT OCT DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC DEC OCT 154 64563 72206 26213 29795 26754 25970 24947 25987 25701 27781 29301 28289 25455 28276 142000 184 OL IS T OPCODE 6 LIST FE TC H OPCODE 2 FETCH ER AS E OPCODE 3 ERASE DE L OPCODE 5 -DEL RU N OPCODE 1 -RUN CO NT OPCODE 4 CONT (EOT) FETCH ONE LINE OF PROGRAM JSM JSM CPA JMP JSM STB LDA AND STA JSM JMP LDB STB LDB SLB STB JMP JSM JSM JMP FLIN AGNXT,I EOL FETC 4 AINTC,I LNO CFLAG M 4 CFLAG AFLAD,I FETC 2 Pl MODE CFLAG + 1,S CFLAG PLIRC STELM ASLLNI AEOLB,I LDB PO JMP FETC 5 FETCH LINE INITIALIZATION GET NEXT CHAR FROM I/O BUFF LINE NO GIVEN? NO GET INTEGER SET LINE NO.

CLR FETCH, SPECIAL KEY BITS FROM CFLAG BITS 0,1 FIND LINE ADDR LINE NOT FOUND SET FETCH MODE SET FETCH BIT OF CFLAG PLACE LINE NO IN I/O BUFF SET MODE = 4 RESET LNO PUT EOL IN BUFFER DEFAULT = LNO 0 PLACE LINE NO IN I/O BUFF AND REV COMPILE ENTRY: A = ADDR OF LINE EXIT: REV COMPILED LINE IN I/O BUFF 184 Page 135 02767000 02768000 02769000 02770000 02771000 02772000 02773000 02774000 02775000 02776000 02777000 02778000 02779000 02780000 02781000 02782000 02783000 02784000 02785000 02786000 02787000 02788000 02789000 02790000 02791000 02792000 02793000 02794000 02795000 02796000 02797000 02798000 02799000 02800000 02801000 02802000 02803000 02804000 02805000 02806000 02807000 02808000 02809000 02810000 02811000 02812000 02813000 02814000 02815000 02816000 02817000 02818000 02819000 02820000 02821000 02822000 1,568,094 CONTROL SUPERVISOR 104000 PLIRC 174610 174510 072101 030016 024000 024146 000303 030017 140470 140476 000077 074550 000117 074550 004017 LDB SBL SBR RIA STA ADB A,I 9 9 + 1 C A GET LINE BRIDGE GET LINE LENGTH POINT TO SECOND WORD OF LINE SET C-REG ADB M 2 B = ENDSOURCEADDR LDA ACBF COMPILE BUFFS/A STA D SET D-REG JSM AMTLM,I MOVE THE LINE INTO COMPILE BUFF JSM ATLNI,I TRANSFER LINE NO TO I/O BUFF LDA COLLN GET COLLON PBD A,I INCRM AND PLACE IN I/O BUFF LDA B 40 GET BLANK PBD A,I INCRM AND PLACE IN I/O BUFF LDB D GET CHAR POINTR AND PASS TO REV.

CONIMP JMP ARCLR,I REVERSE COMPILE AND RETURN P + I UP-ARROW UP-ARROW 043761 UPAR 005226 001232 073002 024257 176450 FRSAR 035226 140512 140514 067702 043761 DNAR 045226 067760 067702 043761 DNAR 045226 067760 067702 DECREMENT THE CURRENT "LNO" AND FETCH THE CORRESPONDING LINE JSM LDB LDA SLA ADB SBM STB JSM JSM JMP FLIN LNO CFLAG FRSAR Ml FETC 4 LNO AFLAD I ASLLN,I FETC 3 FETCH LINE INIT GET CURRENT LINE NO.

SEE IF FETCH BIT SET SKIP IF FIRST UP ARROW DECREMENT LNO SET LNO -= O IF=-I SET LINE COUNTER FIND S/A OF LINE LINE NOT FOUND SET LNO TO LAST FETCH LINE LINE DOWN-ARROW INCREMENT THE CURRENT "LNO' AND FETCH THE CORRESPONDING LINE JSM ISZ JMP JMP FLIN LNO + 1 FETC 3 FETCH LINE INIT INCREM LINE NO.

FETCH LINE FETCH LINE INITIALIZATION EXIT: A = FWUP POINTER Page 136 10722 10723 10724 10725 10726 10727 10730 10731 10732 10733 10734 10735 10736 10737 10740 10741 10742 164356 02823000 02824000 02825000 02826000 02827000 02828000 02829000 02830000 02831000 02832000 02833000 02834000 02835000 02836000 02837000 02838000 02839000 02840000 02841000 02842000 02843000 02844000 02845000 02846000 02847000 02848000 02849000 02850000 02851000 02852000 02853000 02854000 02855000 02856000 02857000 02858000 02859000 02860000 02861000 02862000 02863000 02864000 02865)00 02866000 02867000 02868000 02869000 02870000 02871000 02872000 02873000 02874000 02875000 02876000 02877000 02878000 10743 10744 10745 10746 10747 10750 10751 10752 10753 10754 10755 10756 10757 10760 1,568,094 CONTROL SUPERVISOR 10761 040724 FLIN 10762 140453 10763 164475 JSM JSM JMP SECCK ACLCM,I AEDPT,I SEE IF PROGRAM IS SECURE CLEAR COMPILE BUFFER RESET EDIT POINTERS STOP, REW IN ENTER OR LIVE KBD 10764 10765 10766 10767 10770 10771 10772 10773 10774 10775 001235 010145 164601 172701 040744 004132 140376 140452 140503 066262 PINEN c :

10776 140404 REJR 10777 030061 11000 11001 11002 11003 11004 11005 11006 11007 11010 11011 11012 11013 070420 ERRI 141260 040717 EREXT 040703 042043 000177 EREXX 031613 001067 012566 066013 140436 001257 EREXI LDA CPA JMP SAM JSM LDB JSM JSM JSM JMP SKEY P 2 ARFK,I +I,S SXCMM P 13 ASFG,I AEOLB,I ARNLO,I XEN 5 GET KEYCODE REWIND? YES, REWIND AND RETURN SET BIT 15 (INTERRUPTING KEY) IOR TO PRESENT XCOMM SET FLAG 13 CLR I/O BUFF, PUT EOL IN BUFF TURN ON RUN LIGHT ABORT ENTER STMT REJECTION ROUTINE FOR INTERRUPT THAT DOES NOT HAVE A CORRECT INTRP TABLE ENTRY JSM AERRI,I ILLEGAL INTERRUPT ASC 1,01 ERROR MESSAGEGENERATOR WITHOUT RETURN CALL SEQUENCE: JSM AERRI,I ASC 1,XX WHERE XX = ERROR CODE EXIT:

"ERROR XX" IN DISP BUFFER "JSM" STACK IS RESET EIR JSM JSM JSM JSM LDA STA LDA CPA JMP JSM LDA ERRBP,I STELM BEEP EREX 3 PO ENABLE ALL INTERRUPTS GO THRU ERROR BYPASS LINK SET EOL MODE GIVE ERROR BEEP PUT LINE NO IN DISPLAY MAYBE CLEAR RENUMBER FLAG, REWIND KEY FLAG RENFG IBUFF + 3 GET ERROR "XX" PRPRB NO PRINTER OR NO PAPER? EREXI YES; BYPASS PRINT-ALL AEPON,I GO THRU PRINT ALL CSTAT GET STATE VARIAB 3 LE Page 137 02879000 02880000 02881000 02882000 02883000 02884000 02885000 02886000 02887000 02888000 02889000 02890000 02891000 02892000 02893000 02894000 02895000 02896000 02897000 02898000 02899000 02900000 02901000 02902000 02903000 02904000 02905000 02906000 02907000 02908000 02909000 02910000 02911000 02912000 02913000 02914000 02915000 02916000 02917000 02918000 02919000 02920000 02921000 02922000 02923000 02924000 02925000 02926000 02927000 02928000 02929000 02930000 02931000 02932000 02933000 02934000 186 186 1,568,094 CONTROL SUPERVISOR 1014 1015 1016 1017 1020 1021 1022 1023 1024 1025 1026 1027 1030 1031 010144 164456 010141 164456 042032 001257 EREX 4 010143 066026 001261 031263 ERENT 000300 030003 140433 165511 CPA JMP CPA JMP JSM LDA CPA JMP LDA STA P 3 ALXER,I P 6 ALXER,I EREX 2 CSTAT P 4 ERNOS AP 3 A Pl GO TO LIVE KBD ERROR PROCESSING IF STATE= 3 OR 6 CHANGE STATE GET CONTROL STATE IF STATE = 4 THEN DON'T STRIP EXEC SET API 1 BACK TO AP 3 ERNOS LDA AJSTK JSM STACK S/A-1 STA R RESET JSM STACK PTR JSM ALDSP I DISP ERROR MESSAGE JMP MLBPL,I GO TO IDLE (THRU MAIN BYPASS LINK) 8 a 8 S EREX 2 UNSTACKS API,AP 3, AND CHANGES STATE 1,3,5 TO 0,2,4; 2 TO O DOES NOT UNSTACK IF STATE = 0,2,4 1032 001257 EREX 2 1033 073004 1034 020257 1035 031257 1036 164516 1037 010145 EREX 5 1040 000177 CLRST 1041 031257 1042 170201 ERNON LDA SLA ADA STA JMP CSTAT EREX 5 Ml CSTAT AREST,I CPA P 2 LDAPO STA CSTAT RET I GET STATE VARIABLE DO NOT UNSTACK IF = 0, 2, OR 4 MAKE 1,3,5 = 0,2,4 RESTORE NEW STATE UNSTACK STATE = 2 ? MAKE STATE = O EREX 3 PUTS "IN LINE#" IN I/O BUFFER IF STATE = 2 OR 6 OR IF THE RENUMBER GTO/GSB FLAG IS SET 1043 1044 1045 1046 1047 1050 1051 1052 1053 1054 1055 1056 1057 1060 001257 EREX 3 010145 066052 010141 066052 001613 073071 002574 ELNO 031070 002575 031071 005265 140523 001307 LDA CPA JMP CPA JMP LDA SLA LDA STA LDA STA LDB JSM LDA CSTAT P 2 ELNO P 6 ELNO RENFG ERNON GET STATE VARIABLE RUNNING PROGRAM? YES, DSP LINE # RUN PROG FROM LIVE KBD? YES, DSP LINE # RENUMBERING GTO'S AND GSB'S? SKIP IF NOT AELNI GET "IN" MEAASGE IBUFF + 4 AELN 2 PUT IN I/O BUFFER IBUFF + 5 HERE GET CURRENT LINE ADDR AGLNO,I FWUP SET S/A OF NEXT LINE TO BE THE FIRST LINE Page 138 02935000 1 02936000 1 02937000 1 02938000 1 02939000 1 02940000 02941000 1 02942000 1 02943000 1 02944000 1 02945000 1 02946000 02947000 1 02948000 1 02949000 1 02950000 1 02951000 02952000 02953000 02954000 02955000 02956000 02957000 02958000 02959000 1 02960000 1 02961000 1 02962000 1 02963000 1 02964000 02965000 1 02966000 1 02967000 1 02968000 1 02969000 02970000 02971000 02972000 02973000 02974000 02975000 02976000 1 02977000 1 02978000 1 02979000 1 02980000 1 02981000 1 02982000 1 02983000 02984000 1 02985000 1 02986000 1 02987000 1 02988000 1 02989000 1 02990000 1 187 187 1,568,094 CONTROL SUPERVISOR 031266 006572 001226 164477 STA WHERE LDB AINLM LDA LNO JMP ABTDA,I SET FOR CONTINUE ROUTINES PTR FOR LINE NUMBER SET FOR ABTDA PLACE LINE NO IN I/O BUFF SYSTEM ERROR 11065 042000 SYSER 11066 030060 JSM ERRI ASC I,OO ERROR MESSAGE GENERATOR WITH RETURN CALL SEQUENCE: JSM AERR 2,I CALL SEQUENCE: JSM AERR 2,I 11067 070420 ERR 2 11070 141260 11071 170201 ASC 1,XX WHERE XX=ERROR CODE EXIT:

"ERROR XX" IN DISP BUFFR RET P+ 2 EIR JSM ERRBP,I RET 1 ENABLE INTERRUPTS PUT ERROR # IN I/O BUFFER RET 2 PLACE ERROR MESSAGE IN I/O BUFF 140451 PEMIO 002573 004313 071403 000003 020257 144000 100000 100000 031067 170201 JSM LDA LDB XFR LDA ADA ISZ LDA LDA STA RET ACLEB,I AERMS AIBUF 4 R M 1 Ml A,I A,I A,I IBUFF+ 3 CLEAR I/BUFFER GET "ERROR" ADDR I/O BUFF S/A TRANSFER "ERROR" TO I/O BUFF GET R-STACK POINTR POINT TO "JSM AERRX" ENTRY IN STACK POINT TO MESSAGE "XX" ADDR GET MESSAGE ADDR GET MESSAGE "XX" AND STORE IN I/O BUFF ENTER STATEMENT EXECUTION

PRE-ENTER 11105 000143 XENO 11106 031257 11107 004244 LDA P 4 SET ENTER STATE STA CSTAT LDB XMASK CLEAR LIVE KBD BIT FROM XCOMM 11061 11062 11063 11064 Page 139 02991000 02992000 02993000 02994000 02995000 02996000 02997000 02998000 02999000 03000000 03001000 03002000 03003000 03004000 03005000 03006000 03007000 03008000 03009000 03010000 03011000 03012000 03013000 03014000 03015000 03016000 03017000 03018000 03019000 03020000 03021000 03022000 03023000 03024000 03025000 03026000 03027000 03028000 03029000 03030000 03031000 03032000 03033000 03034000 03035000 03036000 03037000 03038000 03039000 03040000 03041000 03042000 03043000 03044000 03045000 03046000 11072 11073 11074 11075 11076 11077 11100 11101 11102 11103 11104 188 188 1,568,094 CONTROL SUPERVISOR 11110 11111 11112 11113 040740 031630 000177 031255 11114 040717 XENN 11115 140475 11116 11117 11120 11121 11122 11123 11124 11125 11126 11127 11130 11131 11132 001272 104000 174514 014145 066133 014141 066173 005272 040616 140377 000074 XEN 8 074550 066156 11133 020144 XENI 11134 104000 11135 076412 11136 140451 11137 001272 11140 020144 11141 104000 11142 020254 11143 172301 11144 030017 11145 000315 11146 140502 11147 000254 XEN 6 11150 140607 11151 000000 11152 105272 11153 174514 11154 014141 11155 066174 11156 11157 11160 11161 11162 11163 11164 11165 11166 11167 11170 11171 11172 000177 XEN 2 031326 001272 XEN 3 031625 001265 031626 001267 031627 001232 XENPP 170704 172002 164437 164436 JSM STA LDA STA CLXCM SVXCM PO XCOMM START WITH A CLEAR XCOMM JSM STELM SET EOL MODE JSM AEDPT,I RESET EDIT POINTERS LDA LDB SBR CPB JMP CPB JMP LDB JSM JSM LDA PBD JMP ADA LDB SZB' JSM LDA ADA LDB ADA SAP STA LDA JSM LDA JSM NOP LDB SBR CPB JMP LDA STA LDA STA LDA STA LDA STA LDA RAR SAP JMP JMP FA Pl A,I 13 P 2 XEN I P 6 XEN 9 LOOK AT NEXT PARAMETER IS IT A STRING CONSTANT? YES IS IT A STRING VARIABLE? FA Pl IT MUST BE NUMERIC ABSAD+ 1 I AGNAM,I GET THE NAME B 77 A,I XEN 2 P 3 AI XEN 6 ACLEB,I FAPI 1 P 3 A,I Pl + I,S D AIBFM ATCHR,I Pl ABUMP,I FAPI,I 13 P 6 XENI 5 PO STEFL FAP I ENSV+ 1 HERE ENSV+ 2 TRACE ENSV+ 3 CFLAG + 2 AEPNX,I AEPON,I OUTPUT "?" GET LENGTH OF STRING CONSTANT SKIP IF NULL STRING CLEAR I/O BUFFER B = LENGTH A = SOURCE PTR GET DESTINATION POINTR TRANSFER TO I/O BUFFER SKIP PAST STRING CONSTANT SEE IF NEXT PARAM IS A STRING VAR YES, SO SET STRING ENTER FLAG CLEAR STRING ENTER FLAG SAVE FAPI, HERE SAVE TRACE FLAG GET CONTROL FLAG POSITION ENTER/PRINT FLAG BIT 4 ENTER/PRINT? YES, PRINT PROMPT, RETURN P+ 1 NO, GO THROUGH PRINT-ALL 189 Page 140 189 03047000 03048000 03049000 03050000 03051000 03052000 03053000 03054000 03055000 03056000 03057000 03058000 03059000 03060000 03061000 03062000 03063000 03064000 03065000 03068000 03069000 03070000 03071000 03072000 03073000 03074000 03075000 03076000 03077000 03078000 03079000 03080000 03081000 03082000 03083000 03084000 03087000 0 06000 03088000 03089000 03089000 03091000 03091000 03092000 03093000 03094000 OO 95 OO O 03096000 03097000 03098000 03099000 03100000 03101000 03102000 1,568,094 CONTROL SUPERVISOR 11173 141322 XEN 9 11174 000254 XENI 5 11175 031326 11176 066160 001257 010145 066552 001506 050151 031506 005256 035233 014143 140451 040715 140503 140435 042166 001326 010254 066274 CONEN 000257 031476 031517 140515 000142 031257 043542 140364 XENLP 140411 066234 005266 066227 140516 000143 031-257 042303 005476 014257 066255 11243 005272 11244 040616 11245 000341 11246 140372 11247 042303 XEN 11 11250 000254 11251 140607 11252 066260 JSM LDA STA JMP STENT I GO TO STRING BLOCK FOR PROMPT Pl SET STRING ENTER FLAG STEFL XEN 3 POST-ENTER LDA CPA JMP LDA AND STA LDB STB CPB JSM JSM JSM JSM JSM LDA CPA JMP LDA STA STA JSM LDA STA JSM JSM JSM JMP LDB JMP JSM LDA STA JSM LDB CPB JMP LDB JSM LDA JSM JSM LDA JSM JMP CSTAT P 2 BBEEP FLAGS M 5 FLAGS MODE TMP 7 P 4 ACLEB,I CLMOD ARNLO,I ATRBF,I XENPP STEFL Pl XEN 10 IGNORE KEY IF LIVE KBD LIVE KBD SO BEEP AND IGNORE CLEAR FLAG 13 SEE IF NOTHING ENTERED SAVE MODE NOTHING IF MODE = 4 CLEAR I/O BUFFER SET MODE = O SO I/O BUFFER IS COMP TURN ON RUN LIGHT TRANSFER LINE TO KBD BUFFER SEE IF ENTER-PRINT GET STRING ENTER FLAG STRING ENTER? YES M 1 FLAG THE ENTER REGISTER ENR RGFLG DISABLE IMPLIED STORAGE INTO RES ASTKI,I STACK SYSTEM INFO P 5 SET STATE = 5 CSTAT EXCSS COMPILE LINE, SET LINE BRIDGES AINTK,I GO TO INTERPRETER AXCMM,I SERVICE XCOMM + 3 RETI STOP CONDITION WHERE RET 2 XCOMM SERVICED, CONTINUE EXEC XENLP AREST,I P 4 CSTAT RESPN ENR Ml XEN 4 UNSTACK SYSTEM INFO SET STATE BACK TO 4 RESTORE FA Pl CHECK ENR REGISTER JUMP IF NOTHING ENTERED FA Pl "TO" ADDRESS ABSAD+I AENR "FROM" ADDRESS AASTR,I GO TRACE ASSIGNMENT RESPN RESTORE FAPI, HERE Pl ABUMP,I ADVANCE TO NEXT PARAMETER XEN 55 END OF LIST Page 141 03103000 03104000 03105000 03106000 03107000 03108000 03109000 03110000 03111000 03112000 03113000 03114000 03115000 03116000 03117000 03118000 03119000 03120000 03121000 03122000 03123000 03124000 03125000 03126000 03127000 03128000 03129000 03130000 03131000 03132000 03133000 03134000 03135000 03136000 03137000 03138000 03139000 03140000 03141000 03142000 03143000 03144000 03145000 03146000 03147000 03148000 03149000 03150000 03151000 03152000 03153000 03154000 03155000 03156000 03157000 03158000 11177 11200 11201 11202 11203 11204 11205 11206 11207 11210 11211 11212 11213 11214 11215 11216 11217 11220 11221 11222 11223 11224 11225 11226 11227 11230 11231 11232 11233 11234 11235 11236 11237 11240 11241 11242 1,568,094 CONTROL SUPERVISOR 03159000 11253 066114 03160000 03161000 11254 140452 XENI 9 03162000 11255 004132 XEN 4 03163000 11256 140376 03164000 11257 066247 03165000 03166000 11260 000177 XEN 55 03167000 11261 031206 03168000 11262 001630 XEN 5 03169000 11263 040744 03170000 11264 140433 03171000 11265 001624 03172000 11266 030016 03173000 11267 042303 03174000 11270 000145 03175000 11271 031257 03176000 11272 140365 03177000 11273 067517 03178000 03179000 11274 001233 XEN 10 03180000 11275 010143 03181000 11276 066254 03182000 11277 042303 03183000 11300 141323 02184000 11301 140452 85000 11302 066247 03186000 03187000 03188000 03189000 03190000 03191000 11303 001626 RESPN 03192000 11304 031265 03193000 11305 001625 03194000 11306 031272 03195000 11307 001627 03196000 113 t 0 031267 03197000 11311 170201 03198000 03199000 03200000 03201000 03202000 03203000 03204000 03205000 03206000 11312 043364 ECIM 03207000 11313 005266 03208000 11314 035227 03209000 03210000 11315 000177 ECON 3 03211000 11316 031255 03212000 11317 005227 03213000 11320 067516 03214000 JMP XENN JSM LDB JSM JMP LDA STA LDA JSM JSM LDA STA JSM LDA STA JSM JMP LDA CPA JMP JSM JSM JSM JMP AEOLB,I P 13 ASFG,I XEN 1 I PO WKC SVXCM SXCMM ALDSP,I ENSV C RESPN P 2 CSTAT AINTX,I EXC 54 TMP 7 P 4 XENI 9 RESPN STEAS,I AEOLB,I XEN 11 PUT EOL IN I/O BUFFER SET FLAG 13 CLEAR STOP KEY CODE RESTORE XCOMM IOR NEW XCOMM TO OLD XCOMM DISPLAY I/O BUFFER RESTORE C RESTORE HERE SET RUN STATE BACK TO INTERPRETER BACK TO NORMAL INTERPRETER CALLING LOOPGET OLD MODE NOTHING ENTERED? SET FLAG 13 IF SO RESTORE FA Pl GO TO STRING ROM FOR ASSIGNMENT PUT EOL IN I/O BUFFER ADVANCE TO NEXT PARAMETER RESTORE POINTERS LDA ENSV+ 2 STA HERE LDA ENSV+ 1 STA FA Pl LDA ENSV+ 3 STA TRACE RET I RESTORE HERE RESTORE FA Pl EXECUTION OF CONTINUE "ECIM" IS THE IMMEDIATE EXECUTE ENTRY JSM LDB STB LDA STA LDB JMP CNINS WHERE TM Pl PO XCOMM TM Pl EXC 52 CONTINUE INIT GET S/A OF NEXT LINE AND SAVE IT CLEAR XCOMM RECALL S/A OF LINE GO TO MAIN RUN LOOP Page 142 191 191 1,568094 CONTROL SUPERVISOR 192 CONTINUE COMMAND (FROM A SPECIFIED LINE) 042344 ECONT 066312 043364 066315 JSM ERN,X JMP ECIM JSM CNINS JMP ECON 3 CHECK FOR LINE NO GIVEN NO LINE # GIVEN CONTINUE INIT EXECUTION OF RUN COMMAND ERUN IS THE IMMEDIATE EXECUTE ENTRY "ERUN"^ IS THE IMMEDIATE EXECUTE ENTRY 11325 005307 ERUN 11326 035227 11327 140503 ERUNI 11330 040717 11331 140452 11332 140433 11333 000145 11334 031257 11335 042400 11336 066315 LDB STB JSM JSM JSM JSM LDA STA JSM JMP FWUP GET S/A O TM Pl AND SAVE ARNLO,I TURN ON STELM SET MODE AEOLB,I CLR DIS Pl ALDSP,I P 2 SET RUN S CSTAT RUNSB RUN INIT ECON 3 F USER PROG EIT RUN LIGHT E= 4 LAY STATE RUN COMMAND (FROM A SPECIFIED LINE) 11337 005307 ERUX 11340 035227 11341 042344 11342 066327 11343 066327 EXIT:

11344 140501 ERN X 11344 140501 ERN X 010053 170201 010116 066357 140507 ERUXI 035233 140513 064722 031227 ERADR 170202 11357 000214 ERLIBL 11360 130311 LDB STB JSM JMP JMP FWUP GET FIRST WORD OF USER PROGRAM TM Pl AND SAVE IT ERN X CHECK FOR LINE NO GIVEN ERUNI ERUNI RET 2 LINE # GIVEN GET LINE NO (IF GIVEN) AND S/A OF LINE RET 1 LINE # OR LABEL NOT GIVEN RET 2 S/A OF LINE IN TM Pl JSM AGNXT,l GET NEXT CHARACTER FROM I/O BUFFER CPA RET CPA JMP EOL 1 B 42 ERLBL JSM AINTC,I STB TMP 7 JSM AFLNA,I JMP ERLNF STA TM Pl RET 2 LDA EOLB STA AKB FL,I START LINE GIVEN? NO QUOTE? LABEL IF SO BUILD A BINARY NUMBER AND SAVE IT FIND S/A OF LINE GIVEN LINE NOT FOUND SAVE S/A OF LINE PUT EOL IN I/O BUFFER 192 Page 143 11321 11322 11323 11324 03215000.

03216000 03217000 03218000 03219000 03220000 03221000 03222000 03223000 03224000 03225000 03226000 03227000 03228000 03229000 03230000 03231000 03232000 03233000 03234000 03235000 03236000 03237000 03238000 03239000 03240000 03241000 03242000 03243000 03244000 03245000 03246000 03247000 03248000 03249000 03250000 03251000 03252000 03253000 03254000 03255000 03256000 03257000 03258000 03259000 03260000 03261000 03262000 03263000 03264000 03265000 03266000 03267000 03268000 03269000 03270000 11345 11346 11347 11350 11351 11352 11353 11354 11355 11356 1,568,094 193 CONTROL SUPERVISOR WBC A,D DUMMY WITHDRAW TO DEC C LDA C SET PTR IN CASE OF AN ERROR STA OLDC WBC A I SETC BACKTO FIRSTCHAR JSM ALBLN,I FIND LABEL LENGTH LDA ACBF COMPILE LABEL IN COMPILE BUFFER STA D SET PTR JSM ALBCM,I COMPILE LABEL LDA ACBF ADA Pl PT TO START OF COMPILED LABEL STA C SET PTR WBC A,l GET LENGTH OF LABEL JSM ACLBL,I GET S/A OF LINE IN B STB TM Pl SETSTARTADDRESS RET 2 RUN COMMAND SUBR.

RUNSB JSM AERAV,I ERASE VARIABLES, RESET EXECUTION STACK JSM ARSGT,I RESET HISPEED GTO/GSB'S JSM CRUND SET CFLAG LDA PO STA NPROG SET FOR RLINK RUN INIT JMP RLINK,I GOTHRU LINK FOR OPTION BLOCKS "XCOMM" MANAGEMENT PROCESS INTERRUPTING KEYS DIRECT OPTION BLOCKS INTERRUPTS AND LIVE KEYBOARD ACTIVITY EXIT: RET P + 1 STOP STATEMENT

*RET P + 2 XCOMM ALL CLEAR 001255 ERUN 7 172402 066432 170500 073010 140601 070430 001255 073404 004211 040740 066406 LDA SAM JMP SAR SLA JSM DIR LDA RLA LDB JSM JMP XCOMM + 2 ERUN 6 1 ERUN 2 ARFK,I XCOMM ERUN 2 BXCAA CLXCM ERUN 7 GET INTERPRETER FLAG INTERRUPTING KEY? NO POSITION REW BIT IF CLEAR THEN MUST BE STOP KEY REWIND THE TAPE DISABLE INTERRUPTS SEE IF STOP KEY ALSO SKIP IF BIT 0 SET, STOP KEY CODE SAVE BITS 5 TO 14 CHECK XCOMM AGAIN 11361 11362 11363 11364 11365 11366 11367 11370 11371 11372 11373 11374 11375 11376 11377 11400 11401 11402 11403 11404 11405 074760 000016 031241 074560 140353 000303 030017 140354 000303 020254 030016 074560 140400 035227 170202 140472 140360 043402 000177 031063 165533 193 Page 144 03271000 03272000 03273000 03274000 03275000 03276000 03277000 03278000 03279000 03280000 03281000 03282000 03283000 03284000 03285000 03286000 03287000 03288000 03289000 03290000 03291000 03292000 03293000 03294000 03295000 03296000 03297000 03298000 03299000 03300000 03301000 03302000 03303000 03304000 03305000 03306000 03307000 03308000 03309000 03310000 03311000 03312000 03313000 03314000 03315000 03316000 03317000 03318000 03319000 03320000 03321000 03322000 03323000 03324000 03325000 03326000 s as as as as as as as as as 11406 11407 11410 11411 11412 11413 11414 11415 11416 11417 11420 11421 1,568,094 CONTROL SUPERVISOR 11422 004254 ERUN 2 11423 070430 ERNX 1 11424 001255 11425 050227 11426 031255 11427 070420 11430 140475 11431 064717 11432 170600 ERUN 6 11433 172003 11434 140455 11435 066406 11436 170600 ERUN 8 11437 172003 11440 141510 11441 066406 11442 072002 ERUN 9 11443 170202 11444 001255 11445 170507 11446 072040 11447 005255 11450 174706 11451 066423 11452 001235 ISTOR 11453 031715 ISTOX 11454 005213 11455 014257 11456 045213 LDB Pl DIR LDA X( AND B 2 STA X( EIR JSM JMP SAL SAP JSM JMP SAL SAP JSM JMP SET STOP KEY INDICATOR COMM )OK COMM SAVE ONLY BIT 13 OF XCOMM AEDPT,I RESET EDIT PTRS STELM SET MODE = 4 AND RETURN 1 ERUN 8 ALKEX,I ERUN 7 1 ERUN 9 IOSR,I ERUN 7 RZA + 2 RET 2 LDA XCOMM SAR 8 RZA ERUN 7 LDB RBR JMP XCOMM 7 ERNXI POSITION BIT 14 SKIP IF NOT LIVE KEYBOARD LIVE KEYBOARD EXECUTION CHECK XCOMM AGAIN POSITION BIT 13 SKIP IF NOT INTERRUPT SERV ROUTINE GIVE CONTROL TO SYSTEM I/O ROM CHECK XCOMM AGAIN SKIP IF XCOMM NOT CLEARSEE IF NEW HIGHER ORDER BITS WERE SE GET BITS 8-15 BITS SET, SERVICE THEM POSITION BIT 7 FOR RETURN ROUTINE TO REPLACE -STORE KEYCODES IN THE EDIT BUFF AREA ENTRY: CODE IN "SKEY" EXIT:

B = I/O CURRENT POINTR RET P + I EDIT BUFF FULL: CHAR NOT STORED RET P + 2 CHAR STORED AND "IOCP" POINTER INCREMENTED LDA SKEY STA T 5 LDB OLCP CPB MI ISZ OLCP GET CODE SAVE CODE GET OLD CURRENT POINTR FORWARD CORSOR PASS MADE? YES: SET OLCP = 0 Page 145 03327000 03328000 03329000 03330000 03331000 03332000 03333000 03334000 03335000 03336000 03337000 03338000 03339000 03340000 03341000 03342000 03343000 03344000 03345000 03346000 03347000 03348000 03349000 03350000 03351000 03352000 03353000 03354000 03355000 03356000 03357000 03358000 03359000 03361000 03362000 03363000 03364000 03365000 03366000 03367000 03368000 03369000 03370000 03371000 03372000 03373000 03374000 03375000 03376000 03377000 03378000 03379000 03380000 03381000 03382000 194 194 1,568,094 CONTROL SUPERVISOR 066460 005215 042535 064703 005214 ISTO 2 176421 005215 ISTO 6 034016 074540 004016 035215 015213 066531 005214 001214 072403 050074 011512 170202 ISTO 3 076101 035214 170202 005213 ISTO 5 042535 064703 015215 066526 034016 034017 074571 004017 035213 074571 074761 ISTO 7 074751 004016 015215 066465 066520 042531 066530 066465 004177 035214 035213 170202 ISTO 8 ISTO 4 JMP LDB JSM JMP LDB SBM LDB STB PBC LDB STB CPB JMP LDB LDA SZA AND CPA RET RIB STB RET LDB JSM JMP CPB JMP STB STB WBD LDB STB WBD WBC PBD LDB CPB JMP JMP JSM JMP JMP LDB STB STB RET + 1 IOCP CKFUL BEEP CRSP ISTO 5 IOCP C A,I C IOCP OLCP ISTO 4 CRSP CRSP ISTO 3 B 77 DLEN + 1 CRSP OLCP CKFUL BEEP IOCP ISTO 8 C D B,1 D OLCP B,I B,D B,D C 1 OCP ISTO 6 ISTO 7 ISTO 4 + 1 ISTO 6 PO CRSP OLCP GET I/O BUFF CURRENT PTR SEE IF BUFFER IS FULL BEEP AND RETURN IF BUFF IS FULL GET CURSOR POINTR SKIP IF INSERT CURSOR SET NO: GET I/O BUFF CURRENT POINTR SET C-REG INCRM POINTR AND STORE CODE UPDATE POINTR "IOCP" = PREVIOUS CURRENT POINTR? YES GET CURSOR POINTR GET CURSOR POINTR SKIP IF CURSOR NOT SET SAVE CURSOR COUNT CURSOR AT LAST DISP POSITION? YES; DO NOT INCRM MOVE CURSOR TO NEXT CHAR UPDATE CURSOR POINTR GET OLD CURRENT POINTER SEE IF BUFFER IS FULL RETURN AND BEEP IF BUFFER IS FULL OLCP = IOCP? YES SET SOURCE POINTR SET DESTINATION POINTR GET OLCP + 1 UPDATE OLD CURRENT POINTR D = OLCP + 2 GET BYTE AND DECRM DECRM AND PLACE BYTE GET SOURCE POINTR ALL CHARS BETWEEN IOCP AND OLCP SHIFTED RIGHT ONCE'? NO: CONT TRANSFER RESET "CRSP" AND "OLCP" STORE CHAR IN I/O BUFF CLEAR CURSOR POINT CLEAR PREVIOUS CURRENT POINTR CKFUL SERVICE ROUTINE THAT CHECKS THE EDIT BUFFER TO SEE IF THIS CHAR IS THE BEEP CHAR OR IF THE BUFFER IS FULL RET I IF FULL 11457 11460 11461 11462 11463 11464 11465.

11466 11467 11470 11471 11472 11473 11474 11475 11476 11477 11500 11501 11502 11503 11504 11505 11506 11507 11510 11511 11512 11513 11514 11515 11516 11517 11520 11521 11522 11523 11524 11525 11526 11527 11530 11531 11532 11533 11534 Page 146 03383000 03384000 03385000 03386000 03387000 03388000 03389000 03390000 03391000 03392000 03393000 03394000 03395000 03396000 03397000 03398000 03399000 03400000 03401000 03402000 03403000 03404000 03405000 03406000 03407000 03408000 03409000 03410000 03411000 03412000 03413000 03414000 03415000 03416000 03417000 03418000 03419000 03420000 03421000 03422000 03423000 03424000 03425000 03426000 03427000 03428000 03429000 03430000 03431000 03432000 03433000 03434000 03435000 03436000 03437000 03438000 1,568,094 CONTROL SUPERVISOR , 11535 11536 11537 11540 11541 11542 11543 11544 11545 11546 11547 11550 11551 035236 CKFUL 001353 020257 140362 172010 001353 020154 005236 014000 040703 001715 170202 170201 ISRET STB LDA ADA JSM SAP LDA ADA LDB CPB JSM LDA RET RET BEEPS IF THIS IS THE BEEP CHAR IF BUFF IS NOT FULL RET 2 WITH T 5 IN A DOES NOT DESTROY B TMP 8 AEBFL Ml AFBAD,I ISRET AEBEL M 8 TMP 8 A BEEP T 5 2 SAVE ADDRESS LAST ALLOWED CHAR ADDRESS SEE IF BUFFER FULL FULL IF RESULT IS POSITIVE GET BEEP CHAR ADDR GET CHAR ADDR AGAIN YES NO TAKE BUFF NOT FULL RETURN 11552 040703 11553 170202 11554 000143 11555 011257 11556 066552 11557 011256 11560 170202 11561 140432 11562 140432 11563 006577 11564 040633 11565 170202 BBEEP BACEL JSM BEEP RET 2 IGNORE THIS KEY DON'T DISPLAY I/O BUFFER UP OR DOWN ARROWIN LIVE KBD WTLKB LDA P 4 CPA CSTAT BEEPIFEN JMP BBEEP ENTERSOl CPA MODE RET 2 JSM ADSPC,I DUMMYD JSM ADSPC,I DISPLAY B LDB M 800 WAIT 800 N JSM DELAY RET 2 TER BEEP AND RETURN ISPLAY UFFER i S CONSTANTS 11566 11567 11570 11571 11572 11573 11574 11575 11576 11577 030465 077457 110654 000163 077071 000271 020151 067040 022000 176340 PRPRB LITAD ASCDI P 115 PII 15 AINLM AERMS AELNI AELN 2 ASYSM M 800 OCT 30465 DEF ITABL+ 15 DEF SCNDT,I DEC 115 DEF IBUFF+ 5 DEF OCT OCT DEF DEC LKERM 20151 67040 22000 B -800 ASCII 15 LAST ENTRY IN INTERRUPT TABLE COMMAND TABLE ADDR START ADDR FOR LINE NUMBER OF ERROR PTR TO LOWER CASE "ERROR" BLANK I N BLANK STOP ADDR OF ROM SEARCH Page 147 03439000 03440000 03441000 03442000 03443000 03444000 03445000 03446000 03447000 03448000 03449000 03450000 03451000 03452000 03453000 03454000 03455000 03456000 03457000 03458000 03459000 03460000 03461000 03462000 03463000 03464000 03465000 03466000 03467000 03468000 03469000 03470000 03471000 03472000 03473000 03474000 03475000 03476000 03477000 03478000 03479000 03480000 03481000 03482000 03483000 03484000 03485000 03486000 03487000 03488000 03489000 03490000 03491000 03492000 03493000 03494000 196 196 1,568,094 CONTROL SUPERVISOR 03495000 03496000 03497000 03498000 03499000 03500000 03501000 03502000 03503000 03504000 03505000 03506000 03507000 03508000 03509000 03510000 03511000 03512000 03513000 03514000 03515000 11613 03516000 11613 03517000 03518000 03519000 03520000 11614 03521000 11615 03522000 11616 03523000 11617 03524000 11620 03525000 03526000 03527000 03528000 11621 03529000 11622 03530000 11623 03531000 11624 03532000 11625 03533000 03534000 03535000 03536000 11626 03537000 11631 03538000 11632 03539000 03540000 03541000 03542000 11633 03543000 03544000 03545000 03546000 11640 03547000 11643 03548000 11644 03549000 03550000 THIS TABLE CONTAINS THE ADDRESS 01 O THE FROCESSING ROUTINES MODE= 0 KEYBOARD ENTRY I FETCH 2 EDIT 3 NEVER 4 END OF LINE BSS 'S TO BE FILLED IN BY THE 12 K AND 22 K PAGES 111607 ATBL 010437 TB 3 010317 010437 010477 010437 010317 011552 000000 011553 000000 011553 ORG 11613 B DEF TB 3-5,I TABLEBASE-5 (FIRSTCN = 1) EXECUTE ( 1) DEF DEF DEF DEF DEF EXCK ERILO EXCK EXCST EXCK STORE ( 2) BSS DEF BSS DEF BSS 1 ERILO Bl BEEP BBEEP INSERT/REPLACE CHAR ( 3) BSS DEF DEF 3 0 BACEL CLEAR ( 4) BSS 5 DELETE CHAR ( 5) BSS 3 DEF O DEF BACEL STEP ( 6) Page 148 197 197 1,568,094 CONTROL SUPERVISOR 11645 11646 11647 11650 11651 010407 010407 010407 011552 010407 11652 11655 000000 11656 11657 11662 000000 11663 11664 11665 11666 11667 11670 010755 010755 010755 011554 010755 11671 11674 000000 11675 11676 11677 11700 11701 11702 11703 11704 11705 11706 11707 010323 010321 010323 000000 010321 010743 010743 010743 011554 010743 11710 11713 000000 11714 011553 DEF DEF DEF DEF DEF STEPK STEPK STEPK BBEEP STEPK RIGHT ARROW ( 7) BSS 3 DEF 0 BSS I 8:

:

BSS DEF BSS LEFT ARROW ( 10) 3 0 DOWN-ARROW( 11) :

DEF DEF DEF DEF DEF s DNAR DNAR DNAR WTLKB DNAR RECALL ( 12) BSS 3 DEF 0 BSS 1 :

8:

DEF DEF DEF DEF DEF SHOULD BEBSS lllllllllllllllllll PROGRAMMABLE ( 13) P 02 PEOL P 02 0 PEOL UP-ARROW ( 14) DEF DEF DEF DEF DEF :

UPAR UPAR UPAR WTLKB UPAR BACK ( 15) BSS DEF DEF 3 0 BACEL FORWARD ( 16) Page 149 03551000 03552000 03553000 03554000 03555000 03556000 03557000 03558000 03559000 03560000 03561000 03562000 03563000 03564000 03565000 03566000 03567000 03568000 03569000 03570000 03571000 03572000 03573000 03574000 03575000 03576000 03577000 03578000 03579000 03580000 03581000 03582000 03583000 03584000 03585000 03586000 03587000 03588000 03589000 03590000 03591000 03592000 03593000 03594000 03595000 03596000 03597000 03598000 03599000 03600000 03601000 03602000 03603000 03604000 03605000 03606000 198 198 1,568,094 Page 150 03607000 03608000 11715 03609000 11720 03610000 11721 03611000 03612000 03613000 03614000 11722 03615000 11725 03616000 11726 03617000 OM 618000 0319000 03620000 11727 03621000 03622000 03623000 03624000 11734 03625000 03626000 03627000 03628000 11741 03629000 11742 03630000 11743 03631000 11744 03632000 11745 03633000 03634000 03635000 03636000 11746 03637000 11747 03638000 11750 03639000 11751 03640000 11752 03641000 03642000 03643000 03644000 11753 03645000 11754 03646000 11755 03647000 11756 03648000 11757 03649000 0365000 03651000 03652000 11760 03653000 11761 03654000 11762 03655000 11763 03656000 11764 03657000 03658000 03659000 03660000 11765 03661000 11766 03662000 11767 CONTROL SUPERVISOR 000000 011553 010764 010326 010326 010326 000000 010326 BSS DEF DEF 3 0 BACEL PROG INTERRUPTING KEYS ( 17) BSS DEF BSS 3 PINEN I TYPING-AIDS ( 20) BSS 5 SPECIAL KEYS ( 21) BSS 5 PRINT ALL ( 22) DEF DEF DEF DEF DEF 010317 011552 011325 011325 011325 011552 011325 011312 011312 011312 011177 011312 011552 011552 PALL PALL PALL 0 PALL LINE INSERT ( 23) BSS DEF BSS DEF BSS 1 ERILO Bl BEEP BBEEP RUN ( 24) DEF DEF DEF DEF DEF is s ERUN ERUN ERUN BBEEP ERUN CONTINUE ( 25) DEF DEF DEF DEF DEF ECI M ECIM ECIM CONEN ECIM LINE DELETE ( 26) DEF BSS DEF BBEEP Bl EEP BBEEP 199 199 1,568,094 Page 151 03663000 11770 03664000 11771 03665000 03666000 03667000 03668000 11772 03669000 11773 03670000 11774 03671000 11775 03672000 11776 03673000 03674000 03675000 03676000 11777 03677000 03678000 03679000 03680000 03681000 03682000 03683000 03684000 03685000 03686000 03687000 03688000 03689000 03690000 03691000 03692000 03693000 03694000 03695000 03696000 03697000 03698000 03699000 03700000 03701000 03702000 03703000 03704000 03705000 03706000 03707000 03708000 03709000 03710000 03711000 03712000 03713000 03714000 03715000 03716000 03717000 03718000 CONTROL SUPERVISOR 011552 011552 010352 010361 010352 000000 010361 DEF BBEEP DEF BBEEP as as RESULT ( 27) DEF RESK DEF REOL DEF RESK DEF 0 DEF REOL :k BSS I 000263 011571 000122 000052 000263 000077 000053 000177 000116 077467 077470 077471 077473 077474 000236 077216 077216 077217 077220 077221 077223 077224 077225 077226 077227 077230 077231 077232 077233 077234 077235 077236 077206 077207 MAXLN B 163 BUIHM B 32 STPMS TRCMS COLLN EOL KPA QUOTE LPSVA LPSVB LPSVC LPSVE LPSVO DCMND CTCNT CST SIOCP WPRT M PLADD TMP 6 K TMP 2 LNO TM Pl TMP 5 TMP 3 CFLAG TMP 7 TMP 4 SKEY TMP 8 WKC WMOD DEFINITIONS EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU FLAG P 115 M 256 P 26 B 200 FLAG B 72 B 177 PO B 42 LPIT LPIT+ 1 LPIT+ 2 LPIT+ 4 LPIT+ 5 B 377 B 2 K CSTMP CST CST+ 1 CST+ 2 CST+ 3 CST+ 5 CST+ 6 CST+ 7 CST+ 8 CST+ 9 CST+ 10 CST+ 1 CST+ 12 CST+ 13 CST+ 14 CST+ 15 CST+ 16 IOTMP IOTMP+ 1 CHECK llll ll 1,568,094 CONTROL SUPERVISOR 077210 DTM Pl 077211 DTMP 2 077212 SPKN 077213 OLCP 077214 CRSP 077215 IOCP 077613 RENFG 000433 DISP EQU IOTMP+ 2 EQU IOTMP+ 3 EQU IOTMP+ 4 EQU IOTMP+ 5 EQU IOTMP+ 6 EQU IOTMP+ 7 EQU LKTMP+ 6 EQU ALDSP END END OF PASS 2 NO ERRORS DETECTED 201 Page 152 03719000 03720000 03721000 03722000 03723000 03724000 03725000 03726000 03727000 03728000 03729000 03730000 201 1,568,094 Page 153 00003000 76550 00004000 02000000 02001000 02003000 02004000 02005000 02006000 00432 02007000 00432 012140 02008000 00433 012235 ORG 76550 B UNL LST BASE PAGE LINKS ORG DEF DEF 02009000 00434 012000 02010000 00435 013430 02011000 00436 013123 02012000 00437 013126 02013000 00440 012044 02014000 00441 012012 02015000 00442 012503 02016000 00443 012524 02017000 00444 012514 02018000 00445 012606 02019000 00446 013010 02020000 00447 013716 02021000 00450 013506 02022000 00451 013465 02023000 00452 013511 02024000 00453 013515 02025000 00454 013165 02026000 00455 013575 02027000 00456 013622 02028000 00457 013570 02029000 00460 113722 02030000 00461 013117 02031000 00462 012672 02032000 02033000 00566 02034000 00566 012174 02035000 00567 012554 02036000 00570 012742 02037000 00571 012540 02038000 00572 012333 02039000 00573 013526 02040000 00574 013531 DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF DEF ORG DEF DEF DEF DEF DEF DEF DEF ADSPC DISPC DISP KBSRV TRBUF EPON EPNX SVRG KBSR 2 CPST PRNT PRNT PNUMR FBP SWIOP CLBIO CLEBF EOLEB CLCMB RPRL LKBEX LEXER LEXKY K 1,I EPKBD PSTRG ALST LIST EPRT EDIS PLDX LISTK ELKE ELKD DISP INFO WITH CURSOR DISPLAY ROUTINE-NO RESET JSM STACI KEYBOARD SERVICE ROUTINE TRANSFER I/O TO KEYBOARD BUFFER PRINT-ALL ROUTINE PRINT-ALL LINK FOR ENTER PRINT SAVE LOW PRIORITY A,BE,O RESTORE LOW PRIORITY A,B,E,O CHECK PRINTER STATUS PRINT CHARS ALREADY GIVEN TO HARDW PRINT 16 CHARS FROM I/O BUFF PRINT A NUMERIC VALUE FIND DISP BEGIN POINTER SWAP PARAM TO EDIT I/O BUFFER CLEAR I/O BUFFER CLEAR EDIT BUFFER SET EOL IN EDIT BUFFER CLEAR COMPILE BUFFER ROM POWER REDUCTION LOOP LIVE KBD EXECUTION LIVE KBD EXEC ERROR ROUTINES LIVE KBD EXECUTE KEY PROCESSING ROUKEY CONTROL CODE TABLE PRINT-ALL FROM KBD BUFFER PRINT A STRING LINK TO EXECUTE 'LIST' LINK TO EXECUTE 'PRT' LINK TO EXECUTE 'DSP' LINK TO EXECUTE 'SPC' LINK TO EXECUTE "LISTK" LIVE KBD ENABLE LIVE KBD DISABLE 202 202 1,568,094 CONTROL SUPERVISOR LINKS 02044000 02045000 11614 02046000 02047000 11614 02048000 11621 02049000 11626 02050000 02051000 11633 02052000 11634 02053000 11635 02054000 11636 02055000 11637 02056000 02057000 11640 02058000 11641 02059000 11642 02060000 11643 02061000 02062000 11645 02063000 11652 02064000 11657 02065000 11664 02066000 02067000 11671 02068000 11672 02069000 11673 02070000 11674 02071000 11675 02072000 02073000 11676 02074000 11703 02075000 11710 02076000 11715 02077000 11722 02078000 02079000 11727 02080000 11730 02081000 11731 02082000 11732 02083000 11733 02084000 02085000 11734 02086000 11741 02087000 11746 02088000 11753 02089000 11760 02090000 11765 02091000 11772 02092000 013345 013345 013345 013353 013345 013363 013363 013363 013241 013241 013241 013241 013241 ORG 11614 B BSS 5 BSS 5 BSS 5 DEF DEF DEF DEF DEF DEF DEF DEF BSS BSS BSS BSS BSS DEF DEF DEF DEE DEF BSS BSS BSS BSS BSS 013043 013043 013043 013043 013043 DEF DEF DEF DEF DEF BSS BSS BSS BSS BSS BSS BSS CLEAR CLEAR CLEAR CLEEN CLEAR DLCH DLCH DLCH RECL RECL RECL RECL RECL LTID LTID LTID LTI D LTID EXECUTE STORE INSERT/REPLACE CLEAR KEY DELETE CHARACTER STEP RIGHT ARROW LEFT ARROW DOWN ARROW RECALL PROG KEYS ALPHA NUMERIC UP ARROW BACK FORWARD STOP, REW TYPING AIDS SPECIAL KEYS PRINT-ALL LINE INSERT RUN CONTINUE LINE DELETE RESULT KEY 203 Page 154 203 1,568,094 I/O SUPERVISOR 02095000 02096000 02097000 02098000 02099000 02100000 02101000 02102000 02103000 02104000 02105000 02106000 02107000 02108000 02109000 02110000 02111000 02112000 02113000 12000 02114000 02115000 02116000 02117000 02118000 02119000 02120000 02121000 02122000 02123000 02124000 02125000 02126000 02127000 12000 02128000 12001 02129000 12002 02130000 12003 02131000 12004 02132000 12005 02133000 12006 02134000 12007 02135000 12010 02136000 12011 02137000 12012 02138000 12013 02139000 12014 02140000 12015 02141000 12016 02142000 12017 02143000 12020 02144000 12021 02145000 12022 02146000 12023 02147000 12024 02148000 12025 02149000 12026 02150000 12027 I/O SUPERVISOR IOSP ORG 12000 B e s s 043044 KBSRV 000004 031207 043061 031206 005257 076022 001207 KBSR 6 172701 031207 001472 KBSR 2 030017 001471 030016 001473 177201 073002 177301 173201 172002 173301 005470 001467 170300 KBSR 3 JSM LDA STA JSM STA LDB RZB LDA SAM STA LDA STA LDA STA LDA SEC SLA SEC SOC SAP SOC LDB LDA RET SVRG R 4 WMOD KCASC WKC CSTAT KBSR 5 WMOD + I,S WMOD LPSVD D LPSVC C LPSVE +I,C + 2 + I,S +IC +C 1, + 2 +I,S LPSVB LPSVA 0,P SAVE REGISTERS GET KEY CODE SAVE KEYBOARD CODE KEYCODE CONVERSION TO ASCII SAVE CODE GET STATE SKIP IF NOT IDLE STATE SET NEW KEY FLAG RESTORE C,D GET E REG INFO CLEAR E REG.

SKIP IF LSB = O CLEAR O REG.

RESTORE B REGISTER RESTORE A REGISTER RETURN AND TURN-ON INTERRUPT Page 155 204 204 205 1568,094 205 Page 156 I/O SUPERVISOR 02151000 02152000 12030 014143 KBSR 5CPB P 4 ENTERSTATE' 02153000 12031 067007 JMP KBSR 6 YES 02154000 02155000 12032 020147 KBSRI ADA M 3 02156000 12033 172005 SAP KBSR 4 SKIPIFNOTANINTERRUPTINGKEY 02157000 12034 001206 LDA WKC IOR KEYCODE INTO XCOMM 02158000 12035 172701 SAM +IS SET BIT 15 ALSO 02159000 12036 040744 JSM SXCMM 02160000 02161000 12037 067012 JMP KBSR 2 RESTORE REGISTERS 02162000 02163000 12040 001623 KBSR 4LDA LKFLG GET LIVE KEYB FLAG 02164000 12041 073451 RLA KBSR 2 SKIP IF LIVE KBD NOT ENABLED 02165000 02166000 12042 042533 JSM LKPRC GOTOTHE LIVE KBD PROC ROUTINES 02167000 02168000 12043 067012 JMP KBSR 2 RESTORE REGISTERS 02169000 02170000 02171000 SAVE REGISTERS SUBR.

02172000 02173000 LOW PRIORITY: A,B,E,O 02174000 02175000 02176000 12044 031467 SVRG STA LPSVA LOW PRIORITY SAVE "A" TEMPORARY 02177000 12045 035470 STB LPSVB LOW PRIORITY SAVE "B" TEMPR.

02178000 12046 000177 LDA PO 02179000 12047 177002 SEC + 2 SKIP IFCLEAR 02180000 12050 000254 LDA Pl 02181000 12051 173002 SOC + 2 SKIP IFCLEAR 02182000 12052 172301 SAP +IS 02183000 12053 031473 STA LPSVE SAVEO,E REGISTERS 02184000 12054 000016 LDA C 02185000 12055 031471 STA LPSVC SAVE C-REG.

02186000 12056 000017 LDA D 02187000 12057 031472 STA LPSVD SAVE D-REG.

02188000 12060 170201 RET I 02189000 02190000 02191000 KEYCODE CONVERSION TO ASCII 02192000 02193000 ENTRY: A-REG = KEYCODE 02194000 02195000 EXIT: A-REG = ASCII CODE 02196000 02197000 SEE CONVERSION TABLES CONTAINED IN THE DOCUMENTATI Ob FOF 02198000 THE I/O SUPERVISOR 02199000 02200000 02201000 12061 170607 KCASCSAL 8 KEYCODE IN UPPER HALF 02202000 12062 172002 SAP + 2 SKIP IF UNSHIFTED 02203000 12063 067112 JMP KCA 53 SHIFTED 02204000 12064 170507 SAR 8 KEYCODEINLOWERHALF 02205000 02206000 UNSHIFTED KEY CONVERSION 1,568,094 I/O SUPERVISOR 004000 174040 024073 176015 026760 176413 006223 020164 177301 KCA 54 073002 177201 170500 024000 100001 177005 170507 010066 KCA 56 000063 170201 12110 050045 12111 170201 12112 12113 12114 12115 12116 12117 12120 12121 12122 12123 12124 12125 12126 12127 12130 12131 12132 KCASI 170507 KCA 53 050053 010055 170201 010057 067133 004000 174040 024110 176062 026761 176404 006167 022756 067075 020162 170201 KCA 57 12133 000056 KCA 52 12134 170201 LDB A TCB ADB B 100 SBP KCA 56 ADB B 31 SBM KCA 56 LDB KTBLI ADA BM 100 SEC +I,S SLA + 2 SEC +I,C SAR 1 ADBA LDA B,I SEC KCA 51 SAR 8 ' CPA B 140 LDA B 145 RET I AND B 377 RET 1 NO; SAVE KEYCODE MAKE NEG SKIP IF KEYCODE < 101; NO CONVERSION SKIP IF KEYCODE > 131 GET TABLE ADDR (UNSHIFTED) GET CODE 1-31 B SET E-REG.

CLEAR E-REG, IF L S BIT OF A = 1 BECAUSE OF TWO CODES PER WORD B = ADDR OF CODES GET CODES SKIP FOR LOWER HALF A= CODE IS THIS THE ENTER EXPONENT KEY? YES, MAKE IT A SMALL E NO, LEAVE ALONE A = CODE SHIFTED KEY CONVERSION SAR AND CPA RET 8 B 177 B 175 CPA B 173 JMP KCA 52 LDBA TCB ADB B 53 SBP KCA 56 ADB SBM LDB ADA JMP ADA RET 865 KCA 57 KTBL 2 BM 54 KCA 54 BM 40 LDA B 174 RET 1 KEYCODE IN LOWER HALF DROP BIT 7 GAZINTA? YES PI? YES GET KEYCODE MAKE NEG.

SKIP IF KEYCODE < 54 SKIP IF KEYCODE > 140 GET TABLE ADDR (SHIFTED) GET CODE 0-64 B GET UPPER CASE CODE GET UPPER CASE ALPHA GET VERTICAL BAR DISP DISPLAY INFO WITHOUT CURSOR DISPLAYS CONTENTS OF I/O BUFFER REGARDLESS OF POSITION OF EDIT BUFFER POINTERS Page 157 12065 12066 12067 12070 12071 12072 12073 12074 12075 12076 12077 12100 12101 12102 12103 12104 12105 12106 12107 02207000 02208000 02209000 02210000 02211000 02212000 02213000 02214000 02215000 02216000 02217000 02218000 02219000 02220000 02221000 02222000 02223000 02224000 02225000 02226000 02227000 02228000 02229000 02230000 02231000 02232000 02233000 02234000 02235000 02236000 02237000 02238000 02239000 02240000 02241000 02242000 02243000 02244000 02245000 02246000 02247000 02248000 02249000 02250000 02251000 02252000 02253000 02254000 02255000 02256000 02257000 02258000 02259000 02260000 02261000 02262000 206 206 1,568,094 I/O SUPERVISOR 207 12135 004150 DISP 12136 000314 12137 067144 LDB M 4 LDA AIBFX JMP NOCUR SET FOR ENTRY WITHOUT CURSOR DISPLAY I/O BUFFER DISPLAY WITH OUT CURSOR DISPC DISPLAY WITH CURSOR USES TI DISPLAYS STARTING AT CHARACTER INDICATED BY DBP SETS THE CURSOR IF CRSP#0 BIT 15 OF CRSP ISSET IF INSERT CURSOR, BITS 0-14 CONTAIN A CHARACTER OFFSET FROM DBP-I TO SET THE CURSOF 12140 001214 DISPC 12141 050074 12142 004000 12143 001513 12144 030016 NOCUR 12145 140401 12146 030001 12147 000177 12150 030011 12151 001512 12152 031711 12153 074560 LDH 12154 014016 12155 067157 12156 067166 12157 005214 12160 176403 12161 004073 12162 067164 12163 004117 INCUR 12164 034005 12165 060052 12166 030004 NOPOS 12167 055711 12170 067153 12171 000145 12172 030005 12173 170201 LDA CRSP AND B 77 LDB LDA STA JSM STA LDA STA LDA STA WBC CPB JMP JMP LDB SBM LDB JMP LDB STB IOR STA DSZ JMP LDA STA RET A DBP C AADBA,I B DPA PA DLEN Tl A,I C + 2 NOPOS CRSP INCUR B 100 + 2 B 40 R 5 B 200 R 4 Tl LDH P 2 R 5 GET CURSOR POINTER SAVE ONLY OFFSET COUNT SET CURSOR OFFSET GET START OF DISPLAY ADDR SAVE IT FOR THE TRANSFER ADJUST BYTE ADDRESS SET CURSOR ADDRESS GET DISPLAY SELECT CODE SET PERPHERAL ADDRESS GET LENGTH OF DISPLAY SAVE LOOP COUNTER B CONTAINS THE ADDR OF THE CHAR GET BYTE AND INC PYR CURSOR POSITION? YES NO GET CURSOR TO SEE WHICH TYPE OF CURSOR REPLACE CURSOR INSERT CURSOR SET CURSOR INDICATOR SET CURSOR BIT ON BYTE TO DISPLAY SEND CHAR TO DISPLAY DONE? NO, CONTINUE TRIGGER THE DISPLAY YES SO RETURN LIST MAIN PROGRAM PERIPHERAL LIST ENTRY IS LISTP PLADD MUST BE SET TO ADDRESS OF A RETURN FOR A MAINFRAME LIST OTHERWISE I' CONTAINS THE ADDRESS OF THE PERIPHERAL LIST ROUTINE.

ROUTINE MUST DO A RET 2 WHEN IT IS DONE OTHERWISE THE PROGRAM WILL ALSO LIST TO THE INTERNAL PRINTER 207 Page 158 02263000 02264000 02265000 02266000 02267000 02268000 02269000 02270000 02271000 02272000 02273000 02274000 02275000 02276000 02277000 02278000 02279000 02280000 02281000 02282000 02283000 02284000 02285000 02286000 02287000 02288000 02289000 02290000 02291000 02292000 02293000 02294000 02295000 02296000 02297000 02298000 02299000 02300000 02301000 02302000 02303000 02304000 02305000 02306000 02307000 02308000 02309000 02310000 02311000 02312000 02313000 02314000 02315000 02316000 02317000 02318000 1,568,094 I/O SUPERVISOR 140610 LIST 004714 035221 LISTP 005257 077005 004274 034016 004334 035264 043603 NOCOM 004177 035216 035233 004263 035223 072412 043327 173411 035233 000254 140607 067225 043327 173402 035223 140513 LIST 3 067302 I-SSSS 040724 043533 14045610 LIST 0047140513 067270 035221 LISTP 00523357 077005 004274 034016 004334 035264 043603 NOCOM 01404177 035216 035233 004263 035223 072412 043327 173411 035233 000254 140607270 067225 043327 173402 035223 140513 LIST 3 067302 LSSSS 040724 043533 140453 LISTL 140513 067270 005233 035226 140412 001206 010254 067270 12242 000314 JSM LDB STB LDB SLB LDB STB LDB STB JSM LDB STB STB LDB STB SZA JSM SOS STB LDA JSM JMP JSM SOS STB JSM JMP JSM JSM JSM JSM JMP LDB STB JSM LDA CPA JMP LDA 208 ACOUN,I COUNT PARAMETERS ON STACK ARETI SET FOR A RETURN PLADD SET FOR MAIN FRAME LIST CSTAT SEE IF STATE 1,3, OR 5 NOCOM IF SO THEN SET C TO POINT AAEOL EOL AND SET LEND TO POINT TO ZERO C ADPO LEND INTIO INIT FOR LIST OUTPUT PO SET LINE # LOWER LIMIT SIOCP CLEAR CHECKSUM WORD TMP 7 MAXLN MAX LINE NO.

TMP 6 SET DEFAULT UPPER LIMIT LIST 3 PARAMETERS GIVEN? LGTNM GET LINE NUMBER LSSSS LINE CANNOT EXIST IF OVERFLOW TMP 7 SET BEGIN OF LIST Pl ABUMP,I ADVANCE TO NEXT PARAMETER LIST 3 END OF PARAMETER LIST LGTNM LIST 3 LIST TO END OF PROG IF OVERFLOW TMP 6 SET UPPER LIMIT AFLNAI FIND LINE ADDR LIST 5 LINE NOT FOUND SECCK SEE IF PROG IS SECURE PLEAD GIVE PAPER LEADER ACLCM,I CLEAR COMPILE BUFF AFLNA,I FIND LINE ADDRESS LIST 2 NOT FOUND, MUST BE DONE TMP 7 SET LNO FOR ATLNO ROUTINE LNO APLIR,I PLACE LINE NO IN I/O BUFF WKC GET KEY CODE Pl IS IT HTE STOP KEY? LIST 2 YES, ABORT OPERATION AIBFX I/O BUFF S/A 208 Page 159 02319000 02320000 02321000 02322000 02323000 02324000 02325000 02326000 02327000 02328000 02329000 02330000 02331000 02332000 02333000 02334000 02335000 02336000 02337000 02338000 02339000 02340000 02341000 02342000 02343000 02344000 02345000 02346000 02347000 02348000 02349000 02350000 02351000 02352000 02353000 02354000 02355000 02356000 02357000 02358000 02359000 02360000 02361000 02362000 02363000 02364000 02365000 02366000 02367000 02368000 02369000 02370000 02371000 02372000 02373000 02374000 12174 12175 12176 12177 12200 12201 12202 12203 12204 12205 12206 12207 12210 12211 12212 12213 12214 12215 12216 12217 12220 12221 12222 12223 12224 12225 12226 12227 12230 12231 12232 12233 12234 12235 12236 12237 12240 12241 1,568,094 I/O SUPERVISOR 12243 030016 12244 000165 12245 031711 12246 074560 LLOOP 12247 005711 12250 075617 12251 005233 12252 024254 12253 075617 12254 021216 12255 031216 12256 045711 12257 067246 12260 000177 12260 000177 12261 12262 12263 12264 12265 12266 12267 12270 12271 12272 12273 12274 12275 12276 12277 12300 12301 12302 12303 12304 12305 12306 12307 12310 12311 12312 12313 12314 12315 12316 12317 12320 12321 12322 12323 12324 141221 043353 001233 011223 067270 045233 067231 140450 LIST 2 002763 130313 004314 001216 050344 140477 141221 043514 043533 140450 LIST 5 001307 170040 021277 072403 020254 170600 004315 LNULP 140477 001310 020254 170040 021263 170600 004320 140477 140436 043135 067600 STA C LDA M 80 STA TI WBC A, LDB TI MPY LDB TMP 7 ADB Pl MPY ADA SIOCP STA SIOCP ISZ TI JMP LLOOP LDA PO JSM JSM LDA CPA JMP ISZ JMP JSM LDA STA LDB LDA AND JSM JSM JSM JSM JSM LDA TCA ADA SZA ADA SAL LDB JSM LDA ADA TCA ADA SAL LDB JSM JSM JSM JMP PLADD,I PIOB TMP 7 TMP 6 LIST 2 TMP 7 LISTI ACLBI,I BLAST AIBUF,I AIBFX SIOCP MAW ABTDA,I PLADD,I PRNT PLEAD ACLBI,I FWUP ENDS LNULP Pl 1 AIBFM ABTDA,I RMAX Pl A Pl 1 AIOLM ABTDA,I AEPON,I DISP RESIO SET PTR SET 80 CHAR COUNTER GET CHARACTER GET CHAR COUNT MPY CHAR CHAR COUNT GET LINE # ACCOUNT FOR LINE ZERO MPY LINE # CHAR CHAR COUNT ADD SUM SO FAR SET NEW SUM INC COUNTER NOT DONE SO KEEP GOING SET INDICATOR FOR PERIPHERAL ROUTINE GIVE PERIPHERAL CONTROL PRINT ONE LINE GET LAST PRINTED LINE NO.

LISTING COMPLETE? YES INCRM LINE NO.

CONT CLEAR I/O BUFFER GET A BLANK, ASTERIK PUT IN I/O BUFFER PUT # IN I/O BUFFER GET CHECKSUM MAKE POSITIVE PUT IN I/O BUFFER GIVE PERIPHERAL CONTROL PRINT CHECKSUM GIVE PAPER LEADER CLEAR I/O BUFF CALCULATE MEMORY USED BY PROGR Af MEMORY BETWEEN ENDS AND FWUP SKIP IFA NULL PROGRAM ADD I WORD FOR BRIDGES MAKES BYTES S/A TO PUT NUMBER CONVERT TO ASCII CALCULATE AVAILABLE MEMORY ADJUST ADDR B=AVAILABLE WORDS MAKE BYTES S/A TO PUT NUMBER MAKE ASCII AND PLACE IN I/O BUFF GO THROUGH PRINTALL DISPLAY o OF REGISTERS LEFT RESTORE AFTER LIST 209 Page 160 209 02375000 02376000 02377000 02378000 02379000 02380000 02381000 02382000 02383000 02384000 02385000 02386000 02387000 02388000 02389000 02390000 02391000 02392000 02393000 02394000 02395000 02396000 (Y 397000 92398000 02399000 02400000 02401000 02402000 02403000 02404000 02405000 02406000 02407000 02408000 02409000 02410000 02411000 02412000 02413000 02414000 02415000 02416000 02417000 02418000 02419000 02420000 02421000 02422000 02423000 02424000 02325000 02326000 02427000 02428000 02429000 02430000 12325 140404 12326 030471 12327 040751 12330 067325 12331 000001 12332 064644 ERLNW LGTNM 1,568,094 I/O SUPERVISOR JSM AERRI,I LINE NO WRONG ASC 1,19 JSM NGET GET NEXT PARAMETER JMP ERLNW WRONG TYPE.

LDA B A=POINTER JMP FIXPT FLOAT TO FIXED 210 S LISTK: SYSTEM COMMAND TO LIST ALL DEFINED KEYS IN NUMERICAL ORDER LDA STA JSM LDA CPA JMP JSM ISZ LDB CPB JMP JMP LDA JSM JSM JMP 12333 000177 LISTK 12334 031212 12335 043603 12336 001206 LSTK 1 12337 010254 12340 067347 12341 140473 12342 045212 12343 004122 12344 015212 12345 067347 12346 067336 12347 000144 LSTK 2 12350 140571 12351 040710 12352 067600 PO SPKN INTIO WKC Pl LSTK 2 ALISK,I SPKN P 26 SPKN LSTK 2 LSTK 1 P 3 ASPC,I EOLIO RESIO START WITH F O INIT FOR LISTING CHECK FOR STOP KEY STOP KEY IF = 1 = 1 SO ABORT OPERATION LIST KEY (SPKN) IF IT IS DEFINED BUMP THE KEY NUMBER IF F 26 IS THE NEXT KEY THEN ALL KEYS HAVE BEEN LISTED, SO PUT EOL IN THE DISP AND RETURN OTHERWISE KEEP LISTING UNTIL ALL KEYS ARE DONE.

GIVE 3 PAPER LINE FEEDS CLEAR I/O BUFFER, PLACE EOL IN I ST CHAR.

RESTORE AFTER LISTING AND RETURN TO INTERPRETER PRINT CONTENTS OF I/O BUFFER H 12 CHARACTERS ARE SEND TO THE PRINTER HARDWARE, THEN THE NEXT 4 CHARACTERS ARE SEARCHED FROM RIGHT TO LEFT FOR A + -/; OR SPACE AND THE LINE IS BROKEN AT THIS SPOT IF ANY ARE FOUND OTHERWISE 16 CHARACTERS ARE PRINTED THIS CONTINUES UNTIL THE LAST NON BLANK CHARACTER IS PRINTED 12353 000314 PIOB 12354 030017 12355 000133 12356 031227 PIOB 9 12357 043463 12360 001210 12361 072404 12362 000143 12363 031227 12364 067456 12365 000017 P B 2 12365 000017 PIOB 2 LDA STA LDA STA JSM LDA SZA LDA STA JMP LDA AIBFX D P 12 TM Pl PCOUT DTM Pl PIOB 2 P 4 TM Pl SBLP D GET I/O BUFF ADDR SET SOURCE POINTER 12 CHARS SET COUNTER OUTPUT CHARS GET "EOL" FLAG END OF LINE FOUND ? YES SET COUNT FOR 4 BLANKS FILL BUFF, PRINT LINE AND RETURN P+ I GET I/O BUFF POINTR 210 Page 161 02431000 02432000 02433000 02434000 02435000 02436000 02437000 02438000 02439000 02440000 02441000 02442000 02443000 02444000 02445000 02446000 02447000 02448000 02449000 02450000 02451000 02452000 02453000 02454000 02455000 02456000 02457000 02458000 02459000 02460000 02461000 02462000 02463000 02464000 02465000 02466000 02467000 02468000 02469000 02470000 02471000 02472000 02473000 02474000 02475000 02476000 02477000 02478000 02479000 02480000 02481000 02482000 02483000 02484000 02485000 02486000 1,568,094 I/O SUPERVISOR 12366 031225 12367 000142 12370 031231 12371 074570 PIOBI 12372 010053 12373 067453 12374 055231 12375 067371 12376 12377 12400 12401 12402 12403 12404 12405 12406 12407 12410 12411 12412 12413 12414 12415 12416 12417 12420 12421 12422 12423 12424 12425 12426 12427 12430 12431 12432 12433 12434 12435 12436 12437 12440 12441 12442 12443 12444 12445 12446 12447 12450 12451 12452 074770 000017 030016 074760 000143 031231 074760 PIOB 3 010110 067441 010106 067441 010111 067441 010104 067441 010117 067441 010076 067441 010107 067441 055231 067404 000143 PIOB 6 043527 043524 PIOX 2 043503 PIOX 3 074570 010053 170201 074770 000117 030006 000134 067356 001231 043527 001231 010143 067427 170040 020143 031227 043456 067430 PIOB 4 PIOB 4 STA TMP 2 LDA P 5 STA TMP 3 WBD Aj CPA EOL JMP PIOB 8 DSZ TMP 3 JMP PIOBI WBD A,D LDAD STA C WBC A,D LDA P 4 STA TMP 3 WBC A,D CPA B 53 JMP PIOB 4 CPA B 55 JMP PIOB 4 CPA B 52 JMP PIOB 4 CPA B 57 JMP PIOB 4 CPA B 40 JMP PIOB 4 CPA B 73 JMP PIOB 4 CPA B 54 JMP PIOB 4 DSZ TMP 3 JMP PIOB 3 LDA P 4 JSM SPIB JSM PRNT JSM CPST WBD A,I CPA EOL RET I WBD A,D LDA B 40 STA R 6 LDA P 11 JMP PIOB 9 LDA TMP 3 JSM SPIB LDA TMP 3 CPA P 4 JMP PIOX 2 TCA ADA P 4 STA TM Pl JSM SBLP JMP PIOX 3 AND SAVE IT LOOK AT NEXT 5 CHARACTERS SET COUNTER GET CHAR AND INCRM END-OF-LINE? YES DONE? NO DUMMY WITHDRAW,DEC GET I/O BUFF POINTR SET C-REG DUMMY WITHDRAW AND DECREM MAX OF 4 CHARS SET COUNTER GET CHAR AND DECREM YES+ YES -? YES ? YES / ? YES B LANK? YES 9 YES 9 YES DONE? NO NO BREAK POINT FOUND SET COUNT AND OUTPUT CHARS PRINT LINE CHECK PRINTER STATUS GET NEXT CHAR END OF LINE MARK? YES: DONE WITH THIS LINE NO; READJUST SOURCE POINTR GET BLANK INDENT THE LINE GET READY FOR 11 MORE CHARS OUTPUT MORE LINES NO OF ADDITIONAL CHARS SET COUNT AND OUTPUT CHARS A = NO OF CHARS OUTPUT ABOVE 12 A = 4, LINE COMPLETE PRINT LINE MAKE NEGATIVE A = NO OF CHARS TO REACH 16 SET CHAR COUNTR FILL BUFF AND PRINT LINE OUTPUT MORE LINES 211 Page 162 211 02487000 02488000 02489000 02490000 02491000 02492000 02493000 02494000 02495000 02496000 02497000 02498000 02499000 02500000 02501000 02502000 02503000 02504000 02505000 02506000 02507000 02508000 02509000 02510000 02511000 02512000 02513000 02514000 02515000 02516000 02517000 02518000 02519000 02520000 02521000 02522000 02523000 02524000 02525000 02526000 02527000 02528000 02529000 02530000 02531000 02532000 02533000 02534000 02535000 02536000 02537000 02538000 02539000 02540000 02541000 02542000 1,568,094 I/O SUPERVISOR 12453 000143 PIOB 8 12454 043527 12455 067524 LDA P 4 JSM SPIB JMP PRNT GET ALL REMAINING CHARS SET COUNT,RESET SOURCE POINTR,OUTPUT CHARACTERS PRINT LINE + RETURN P+ I PRINT UTILITY ROUTINES SEND BLANKS AND PRINT 16 CHARS 12456 000117 SBLP 12457 030006 SBL Pl 12460 055227 12461 067457 12462 067524 ENTRY: "TMPI" = NO OF BLANKS LDA STA DSZ JMP JMP B 40 R 6 TM Pl SBL Pl PRNT GET BLANK TO PRINTER HARDWARE DONE? NO PRINT LINE + RETURN P+ I PRINTER CHARACTER OUTPUT ENTRY:TMP=NO OFCHARS ENTRY: TM Pl = NO OF CHARS 12463 12464 12465 12466 12467 12470 12471 12472 12473 12474 12475 12476 12477 12500 12501 12502 043503 000177 031210 074570 010053 067475 030006 055227 067466 170201 045210 000117 030006 055227 067477 170201 PCOUT PCOU 1 PCOU 2 PCOU 3 PCOU 3 PCOU 4 PCOUX 12503 12504 12505 12506 000177 CPST 030011 CPSTI 050141 JSM LDA STA WBD CPA JMP STA DSZ JMP RET ISZ LDA STA DSZ JMP RET CPST PO DTM Pl A,I EOL PCOU 3 R 6 TM Pl PCOU 2 DTM Pl B 40 R 6 TM Pl PCOU 4 CHECK PRINTER STATUS CLEAR "EOL" FLAG GET CHAR AND INCREM.

END OF LINE? YES; DO NOT COUNT THE EOL CHAR TO PRINTER HARDWARE DONE? NO YES SET "EOL" FLAG GET BLANK TO PRINTER HARDWARE DONE? NO; LOOP CHECK PRINTERSTATUS LDA STA LDA AND PPA PA R 5 P 6 GET PRINTER SEL CODE SET PERIPHERAL ADDR GET PRINTER STATUS SAVE PRINTER BUSY AND OUT OF PAPER BITS SZA PCOUX OK: PROCEED 212 Page 163 212 02543000 02544000 02545000 02546000 02547000 02548000 02549000 02550000 02551000 02552000 02553000 02554000 02555000 02556000 02557000 02558000 02559000 02560000 02561000 02562000 02563000 02564000 02565000 02566000 02567000 02568000 02569000 02570000 02571000 02572000 02573000 02574000 02575000 02576000 02577000 02578000 02579000 02580000 02581000 02582000 02583000 02584000 02585000 02586000 02587000 02588000 02589000 02590000 02591000 02592000 02593000 02594000 02595000 02596000 02597000 02598000 12507 072473 1,568,094 I/O SUPERVISOR 12510 12511 12512 12513 12514 12515 12516 12517 12520 12521 12522 12523 170501 073474 140404 ERPRT 030465 004314 PRINT 034016 043503 000127 031211 074566 PRN 1 I 055211 067521 12524 000254 PRNT 12525 030005 12526 170201 12527 12530 12531 12532 031227 SPIB 001225 030017 067464 12533 000147 PLEAD 12534 141221 SAR RLA JSM ASC 2 CPSTI AERR 1,1 1,15 POSITION BUSY BIT IF BUSY SKIP AND CHECK AGAIN NO PRINTER OR NO PAPER OUTPUT 16 CHARS FROM I/O BUFF TO PRINTER ENTRY: I/O BUFF SET LDB STB JSM LDA STA WBC DSZ JMP AIBFX C CPST P 16 DTMP 2 R 6,I DTMP 2 PRNI I/O BUFF Si A SET C-REG CHECK PRINTER STATUS CHAR COUNT SET COUNTER SEND BYTE TO HARDWARE, INC PTR ALL CHARS OUT? NO: LOOP PRINT ONE LINE ENTRY: HARDWARE LOADED WITH 16 CHARS LDA STA RET Pl R 5 PRINT COMMAND PRINT LINE SET CHAR COUNT AND OUTPUT CHARS ENTRY: A = CHAR COUNT STA LDA STA JMP TM Pl TMP 2 D PCOUI SET CHAR COUNT RECALL I/O BUFF POINTR RESET SOURCE POINTER OUTPUT CHARS + RETURN P + I GIVE PAPER LINE FEEDS ENTRY "PLDX" A = NO OF LINE FEEDS PLEAD ENTRY ASSUMES PLADD IS SET TO THE ADDRESS OF A RETURN OR THE ADDRESS OF THE PERIPHERAL LIST ROUTINE A WILL CONTAIN A -3 SO THAT THE PERIPHERAL LIST ROUTINE WILL KNOW HOW MANY LINE FEEDS TO ISSUE LDA M 3 SET INDICATOR FOR PERIPHERAL ROUTINES JSM PLADD,I ALLOW PERIP CHANCE TO SPACE RET 2 IF PRESENT Page 164 02599000 02600000 02601000 02602000 02603000 02604000 02605000 02606000 02607000 02608000 02609000 02610000 02611000 02612000 02613000 02614000 02615000 02616000 02617000 02618000 02619000 02620000 02621000 02622000 02623000 02624000 02625000 02626000 02627000 02628000 02629000 02630000 02631000 02632000 02633000 02634000 02635000 02636000 02637000 02638000 02639000 02640000 02641000 02642000 02643000 02644000 02645000 02646000 02647000 02648000 02649000 02650000 02651000 02652000 02653000 02654000 213 213 1,568,094 I/O SUPERVISOR 067537 170201 000144 031211 PLDX 004127 PLEA 2 035210 043503 000117 030006 PLEA 1 055210 067545 043524 055211 067541 170201 PLEA 3 JMP RET LDA STA LDB STB JSM LDA STA DSZ JMP JSM DSZ JMP RET + 2 P 3 DTMP 2 P 16 DTM Pl CPST B 40 R 6 DTMPI 1 PLEA 1 PRNT DTMP 2 PLEA 2 NOT THERE SO SPACE PRINTER PERIP SPACED, RETURN LINE FEED COUNT SET CHAR COUNTR CHECK PRINTER STATUS GET BLANK TO PRINTER HARDWARE DONE? NO: CONT PRINT ONE LINE DONE? NO; PRINT ANOTHER LINE 043603 EPRT 043634 000263 140505 067577 176002 EPRT 2 067754 072403 043672 067567 043606 EPRTI 000254 EPRT 3 140505 067573 067561 001727 010315 067577 043514 040710 EPRT 4 001234 RESIO 030016 164365 PRINT STATEMENT EXECUTION

JSM JSM LDA JSM JMP SBP JMP SZA JSM JMP JSM LDA JSM JMP JMP LDA CPA JMP JSM JSM LDA STA JMP INTIO PCLIO FLAG APGET,I EPRT 4 + 2 ERUND EPRTI PSTRG EPRT 3 PNUMR Pl APGET,I + 2 EPRT 2 T 15 AIBFM + 2 PRNT EOLIO TMP 4 C AINTX,I INIT FOR OUTPUT CLR I/O BUFFER, RESET STRING FLAG FOR "PGET" GET FIRST PARAMETER NO PARAMETERS SKIP IF OK UNDEFINED OR WRONG CLASS SKIP ON NUMERIC PRINT STRING PRINT NUMERIC FOR "PGET" GET NEXT PARAMETER LIST EXHAUSTED CONTINUE GET STRING FLAG STRING PENDING? NO PRINT STRING CLEAR I/O BUFF AND SET EOL IN I/O BUFF RESTORE C REGISTER BACK TO INTERPRETER IOINT INIT ROUTINE FOR ANY ROUTINE THAT USES THE I/O BUFFER FOR I/O LIST PROG, LIST KEYS, DISP STMT, PRT STMT PLIST 12535 12536 12537 12540 12541 12542 12543 12544 12545 12546 12547 12550 12551 12552 12553 Page 165 02655000 02656000 02657000 02658000 02659000 02660000 02661000 02662000 02663000 02664000 02665000 02666000 02667000 02668000 02669000 02670000 02671000 02672000 02673000 02674000 02675000 02676000 02677000 02678000 02679000 02680000 02681000 02682000 02683000 02684000 02685000 02686000 02687000 02688000 02689000 02690000 02691000 02692000 02693000 02694000 02695000 02696000 02697000 02698000 02699000 02700000 02701000 02702000 02703000 02704000 02705000 02706000 02707000 02708000 02709000 02710000 12554 12555 12556 12557 12560 12561 12562 12563 12564 12565 12566 12567 12570 12571 12572 12573 12574 12575 12576 12577 12600 12601 12602 214 214 1,568,094 I/O SUPERVISOR 12603 004016 INTIO 12604 035234 12605 170201 12606 12607 12610 12611 12612 12613 12614 12615 12616 12617 12620 12621 12622 12623 12624 12625 12626 12627 12630 12631 12632 12633 12634 12635 12636 12637 12640 12641 12642 12643 12644 12645 12646 LDB C STB TMP 4 RET I SAVE C PRINT NUMERIC ENTRY: B = CHAR COUNT D = BYTE ADDR OF FIRST CHAR USEST 15 AS A FLAG IF IT IS NOT SET TO AIBFM THEN IT ASSUMES THAT A STRING IS PENDING SO THE ROUTINE WILL TRY TO PUT THE NUMERIC ON THE SAME LINE ASSUMES THAT THE STRING LENGTH IS IN DTMPI.

USES WPRT TO DECIDE WHAT THE FIX/FLT SETTING OF THE NUMBER IS IF THE NUMBER HAS REVERTED TO FLOAT 10 OR 11 THEN IT WILL USE THE LENGTH OF THE NUMBER TO DETECT THIS LENGTH OF 17 = FLOAT 10, LENGTH OF 18 = FLOAT 11 035712 PNUMR STB 001727 LDA 010315 CPA 067613 JMP 067644 JMP 024161 ADB 176424 SBM 001217 PNUM 9 LDA 050130 AND 020144 ADA 031713 STA 004000 LDB 043736 JSM 005713 LDB 140502 JSM 043514 JSM 140450 JSM 000313 LDA 020142 ADA 004143 LDB 140502 PNUM 4 JSM 043514 PCLII JSM 140450 PCLIO JSM 000315 LDA 031727 STA 170201 RET 005712 043736 005712 067632 PNUM 3 PNUM 5 001210 PNUM 2 021712 020161 LDB JSM LDB JMP LDA ADA ADA T 2 T 15 AIBFM + 2 PNUM 2 M 17 PNUM 3 WPRT B 17 P 3 T 3 A RJNM T 3 ATCH R I PRNT ACLBI,I AIBUF PS P 4 ATCHR,I PRNT ACLBI,I AIBFM TI 5 T 2 RJNM T 2 PNUM 4 DTM Pl T 2 M 17 SAVE NO OF CHARS GET STRING FLAG STRING ON SAME LINE'? NO YES NO OF CHAR < = 16 ? NO; GET FXD/FLT SPEC.

GET FLT SPEG.

ACCOUNT FOR SIGN, DIGIT, DEC POINT SAVE CHAR COUNT OF FIRST NUM PART GET NO OF CHARS RIGHT JUSTIFY NUM.

GET CHAR COUNT TRANSFER CHARACTERS PRINT ONE LINE CLEAR I/O BUFF I/O BUFF S/A A = START POINTR FOR EXPONENT PART EXPONENT INFO OF 4 CHARS TRANSFER CHARACTERS PRINT ONE LINE CLEAR I/O BUFFER A/S OF I/O BUFF RESET STRING FLAG GET NO OF CHARS RIGHT JUSTIFY NUM.

GET NO OF NUM CHARS GET NO OF STRING CHARS ADD NO OF NUM CHARS Page 166 02711000 02712000 02713000 02714000 02715000 02716000 02717000 02718000 02719000 02720000 02721000 02722000 02723000 02724000 02725000 02726000 02727000 02728000 02729000 02730000 02731000 02732000 02733000 02734000 02735000 02736000 02737000 02738000 02739000 02740000 02741000 02742000 02743000 02744000 02745000 02746000 02747000 02748000 02749000 02750000 02751000 02752000 02753000 02754000 02755000 02756000 02757000 02758000 02759000 02760000 02761000 02762000 02763000 02764000 02765000 02766000 215 215 1,568,094 Page 167 02767000 02768000 02769000 02770000 02771000 02772000 02773000 02774000 027750 O 02776000 02777000 02778000 02779000 02780000 02781000 02782000 02783000 02784000 02785000 02786000 I/O SUPERVISOR 12647 172471 12650 12651 12652 12653 12654 12655 12656 12657 001712 010126 067660 010125 067660 043514 PNUM 6 140450 067640 12660 021210 02787000 12661 02788000 12662 02789000 12663 02790000 12664 02791000 12665 02792000 12666 02793000 12667 02794000 02795000 02796000 02797000 12670 02798000 02799000 02800000 02801000 02802000 02803000 02804000 02805000 02806000 02807000 02808000 02809000 02810000 02811000 02812000 02813000 02814000 02815000 02816000 028 i 17000 02818000 02819000 02820000 02821000 02822000 020144 020161 172002 067615 043514 140450 067615 SAM PNUM 3 SKIP IF SUM ≤ 16 CHARS LDA CPA JMP CPA JMP JSM JSM JMP T 2 P 17 PNUM 7 P 18 PNUM 7 PRNT ACLBI,I PNUM 3 GET LENGTH OF NUMBER IS IT FLOAT 10 ? YES IS IT FLOAT 11 ? YES PRINT STRING LINE CLEAR I/O BUFF TRANSFER AND PRINT NUM.

ORIGINALLY IT WAS INTENDED TO PUT THE MANTISSA ON THE SAME LINE AS THE STRING IF IT WOULD FIT AND THE CHARACTERISTIC ON THE NEXT LINE IF THE NUMBER WAS FLOAT 10 OR 11 TO MAKE THIS WORK PROPERLY CHANGE THE ADA P 3 AND ADA M 17 INSTRUCTIONS TO ADA M 10, ADA Mll PNUM 7 ADA DTM Pl ADD NO OF STRING CHAR TO FLOAT SPEC ADA P 3 ACCOUNT FOR SIGN, DIGIT, DEC POINT ADA SAP JMP JSM JSM JMP M 17 + 2 PNUM 9 PRNT ACLBI,I PNUM 9 BSS 2 SKIP IF SUM > 16 CHARS SUM < = 16 CHARS PRINT STRING LINE CLEAR I/O BUFF TRANSFER AND PRINT NUM.

POST RELEASE CORECTIONS PRINT STRING ENTRY: B = CHAR COUNT D = BYTE ADDR OF FIRST CHAR IFT 15 # AIBFM OLD STRING IS STILL PENDING EXIT: IF STRING LENGTH MOD 16 WAS NOT 0 THEN T 15 WILL NOT BE SET TO AIBFM, AND THE LAST PART OF THE STRING WILL NOT BE PRINTED DTM Pl WILL CONTAIN THE LENGTH OF THE REMAINING STRING THAT WAS LEFT IN THE I/O BUFFER IN ORDER TO PRINT A STRING BY ITSELF THE FOLLOWING SEQUENCE SHOULD BE USED LDA AIBFM STA T 15 JSM APSTR,I JSM A PRNI PRINT THE REST OF THE STRING 216 216 1,568,094 I/O SUPERVISOR 12672 12673 12674 12675 12676 12677 12700 12701 12702 12703 12704 12705 12706 12707 12710 035210 PSTRG 001727 010315 067677 043633 005210 PSTR 4 076406 024160 176007 000315 005210 140502 000016 PSTR 2 031727 170201 12711 140450 PSTR 6 12712 000177 12713 031714 12714 000315 12715 030016 12716 001210 PSTR 5 12717 072004 12720 001714 12721 031210 12722 067706 12723 074570 PSTR 3 12724 074540 12725 055210 12726 067727 12727 045714 12730 001714 12731 010127 12732 067734 12733 067716 12734 043514 12735 067711 12736 024160 RJNM 12737 174040 12740 000315 12741 164401 STB DTM Pl LDA T 15 CPA AIBFM JMP PSTR 4 JSM PCLII LDB DTM Pl SZB PSTR 2 ADB M 16 SBP PSTR 6 LDA AIBFM LDB DTM Pl JSM ATCHR,I LDA C STA TI 15 RET 1 JSM ACLBI,I LDAPO STA T 4 LDA AIBFM STA C LDA DTM Pl RZA PSTR 3 LDA T 4 STA DTM Pl JMP PSTR 2 WBD A, PBC A,I DSZ DTM Pl JMP + 1 ISZ T 4 LDA T 4 CPA P 16 JMP + 2 JMP PSTR 5 JSM PRNT JMP PSTR 6 SAVE NO OF CHARS GET STRING FLAG OLD STRING PENDING ? NO PRINT STRING,CLR I/O BUFFER,RESET STRING FLAG GET NO OF CHARS (NEW STRING) SKIP ON A NULL STRING SKIP IF NO OF CHARS ≥ 16 I/O BUFF S/A GET CHAR COUNT TRANSFER CHARS GET DESTINATION POINTR SET STRING INCOMPLETE FLAG NUM MAY FOLLOW CLEAR I/O BUFF INIT LINE CHAR COUNTER I/O BUFF S/A STRING CHAR COUNT DONE? YES; ALL STRING OUT SAVE REMAINDER COUNT SAVE STRING POINTR GET ONE CHAR AND INCRM INCRM AND STORE CHAR DECRM STRING COUNT INCRM LINE CHAR COUNT GET ITS VALUE 16 CHARS OUT? YES NO PRINT 16 CHARS RIGHT JUSTIFYNUMERIC ENTRY: B = NO OF CHARS IN NUM.

EXIT: A = DESTINATION POINTER ADB M 16 TCB LDA AIBFM JMP AADBA,I B = ADJUST COUNT MAKE NEGATIVE I/O BUFF S/A ADJUST ADDR Page 168 02823000 0282 00 02825000 02826000 02827000 02828000 02829000 02830000 02831000 02832000 02833000 02834000 02835000 02836000 02837000 02838000 02839000 02840000 02841000 02842000 02843000 02844000 02845000 02846000 02847000 02848000 02849000 0285 Q 000 02851000 02852000 02853000 02854000 02855000 02856000 02857000 02858000 02859000 02860000 02861000 02862000 02863000 02864000 02865000 02866000 02867000 02868000 02869000 02870000 02871000 02872000 02873000 02874000 02875000 02876000 02877000 02878000 217 217 1,568,094 I/O SUPERVISOR DISP STATEMENT EXECUTION

A BLANK IS PLACED BETWEEN EACH FIELD IN THE DISPLAY

STMT AN ERROR IS ISSUED IF THE DISPLAY FIELD WILL NOT FIT IN

CHAR vs 12742 043603 EDIS 12743 140450 12744 000315 12745 030016 12746 000165 12747 031227 12750 000263 12751 140505 EDI 52 12752 066005 12753 176003 12754 140404 ERUND 12755 030470 12756 076425 12757 035225 12760 005227 12761 000016 12762 010315 12763 067765 12764 024254 12765 025225 EDISI 12766 035227 12767 076404 12770 176403 12771 140404 ERBOV 12772 031467 12773 004016 EDI 53 12774 014315 12775 067777 12776 074560 12777 074570 EDI 54 13000 074540 13001 055225 13002 067777 13003 000254 EDI 56 13004 067751 13005 043135 EDI 55 13006 140436 13007 067600 13010 001215 FBP 13011 005512 13012 035711 13013 030016 13014 001214 JSM INTIO JSM ACLBI,I LDA AIBFM STA C LDA M 80 ' STA TM Pl LDA FLAG JSM APGET,I JMP EDI 55 SBP + 3 JSM AERRI,I ASC 1,18 SZB EDI 56 STB TMP 2 LDB TM Pl LDAC CPA AIBFM JMP EDISI ADB Pl ADB TMP 2 STB TM Pl SZB EDI 53 SBM + 3 JSM AERRI,I ASC 1,37 LDB C CPB AIBFM JMP EDI 54 WBC AI WBD A, PBC AI DSZ TMP 2 JMP EDI 54 LDA Pl JMP EDI 52 JSM DISP JSM AEPONI JMP RESIO INIT FOR I/O CLEAR I/O BUFFER SET DESTINATION REG.

SET 80 CHAR MAX COUNT FOR FIRST ACESS OF "PGET" GET ONE PARAMETER LIST EXHAUSTED SKIP IF OK UNDEFINED OR WRONG CLASS SKIP IF COUNT IS ZERO SAVE PARAMETER CHAR COUNT GET COUNT GET CURRENT BUFFER POINTR IS THIS THE FIRST PARAMETER? YES COUNT FOR ONE BLANK ADD PARAMETER CHAR COUNT UPDATE COUNT BUFF EXACT FIT? NO; BUFF OVERFILL? YES; ERROR GET CURRENT BUFF POINTR IS THIS THE FIRST PARAMETER? YES DUMMY INC GET CHAR AND INCRM INCRM AND PLACE IN I/O BUFF ALL CHARS TRANSFERRED? NO; CONT FOR NEXT ACCESS OF "PGET' LOOK FOR NEXT PARAMETER DISP INFO GO THRU PRINT ALL RESTORE AFTER I/O FIND DBP ( DISP BEGIN POINTR) EXIT: RET P+ 1 DISP BEGIN POINTR SET LDA LDB STB STA LDA IOCP DLEN TI C CRSP GET CURRENT I/O BUFF POINTR GET DISP LENGTH SET COUNTER SET C-REG GET CURSOR POINTR Page 169 02879000 02880000 02881000 02882000 02883000 02884000 02885000 02886000 02887000 02888000 02889000 02890000 02891000 02892000 02893000 02894000 02895000 02896000 02897000 02898000 02899000 02900000 02901000 02902000 02903000 02904000 02905000 02906000 02907000 02908000 02909000 02910000 02911000 02912000 02913000 02914000 02915000 02916000 02917000 02918000 02919000 02920000 02921000 02922000 02923000 02924000 02925000 02926000 02927000 02928000 02929000 02930000 02931000 02932000 02933000 02934000 218 218 219 1,568,094 I/O SUPERVISOR 13015 13016 13017 13020 13021 072406 050074 011512 066022 170201 13022 055711 13023 13024 13025 13026 13027 13030 13031 13032 13033 13034 13035 13036 13037 13040 13041 13042 004016 FB Pl 015352 066037 015513 170201 074760 055711 066023 074560 FBP 3 004016 035513 170201 005512 015711 066511 066033 FB P 2 13043 140451 LTID 13044 040715 13045 042057 13046 074570 LTIDI 13047 140430 13050 066051 13051 045227 13052 066046 13053 000117 13054 140430 13055 066056 13056 170201 SZA AND CPA JMP RET FB Pl B 77 DLEN + 2 DSZ TI LDB CPB JMP CPB RET WBC DSZ JMP WBC LDB STB RET LDB CPB JMP C AEBFM FBP 2 DBP 1 A,D Tl FB Pl A,I C DBP DLEN TI EOLEB JMP FBP 3 SKIP IF CURSOR NOT SET GET CURSOR POSITION CURSOR AT END OF DISP? YES; FIND DISP BEGIN POINTR NO: DO NOT CHANGE DBP IF CORSOR IS ON DLEN, REPLACE THAT CHAR AND SHIFT LEFT GET C-REG BEGIN OF EDIT BUFFER ADDR -1 YES PTR = DISPLAY BEGIN BUFFER? YES, DON'T MOVE DBP BACKWARD WITHDRAW ONE BYTE AND DECREM.

DECRM COUNTER: DONE? NO; CONTINUE YES; INCRM POINTER GET C-REG SET DISP BEGIN POINTR GET DISP LENGTH COUNTER CHANGED? NO; CLEAR EDIT BUFFER, GIVE EOL AND RETURN ADJUST POINTR LOAD TYPE-AIDIN DISPLAY ENTRY: CODE IN "SKEY" EXIT: ASCII CHARS OF TYPE-AID IN EDIT BUFFER EDIT BUFFER IS CLEARED AND MODE SET TO ZERO BEFORE TYPE AID IS PUT IN THE FIRST PART OF EDIT BUFFER "DBP" POINTS TO FIRST CHAR ISM JSM JSM WBD JSM JMP ISZ JMP LDA JSM JMP RET ACLEB,1 CLMOD STTM A,I AISTX,I + 1 TM Pl LTIDI B 40 AISTX,I + 1 CLEAR EDIT BUFFER SET KBD MODE SEARCH TABLE FOR MNEMONIC GET ONE CHAR STORE IN I/O BUFF "ISTO 2 " RETURNS ON P + 2 DONE? NO; CONT GET SPACE STORE IN I/O BUFF "ISTO 2 " RETURNS ON P + 2 YES SEARCH TABLE OF TYPE-AID MNEMONICS ENTRY: CODE IN "SKEY" EXIT: D = FIRST CHAR PTR 219 Page 170 02935000 02936000 02937000 02938000 02939000 02940000 02941000 02942000 02943000 02944000 02945000 02946000 02947000 02948000 02949000 02950000 02951000 02952000 02953000 0295400 02955000 02956000 02957000 02958000 02959000 02960000 02961000 02962000 02963000 02964000 02965000 02966000 02967000 02968000 02969000 02970000 02971000 02972000 02973000 02974000 02975000 02976000 02977000 02978000 02979000 02980000 02981000 02982000 02983000 02984000 02985000 02986000 02987000 02988000 02989000 02990000 1,568,094 I/O SUPERVISOR 002076 STTM 030017 005235 074570 STTM 2 060170 031227 074570 014000 170201 010045 140424 074570 STTM 1 045227 066072 066062 113077 TTM 176033 066151 071564 175435 062562 060563.

11306277 TTM 176033 0615146 071564 175435 062562144 060563373 016146 06277564 017162 06155046 176437777 066144 063373 016146 062564 061550 177777 220 TM Pl =NEG LENGTH LDA STA LDB WBD IOR STA WBD CPB RET CPA JSM WBD ISZ JMP JMP TTM D SKEY A,I M 256 TM Pl A,I A B 377 ASYER,I A,I TM Pl STTMI STTM 2 S/A OFTABLE

SET D REG GET ASCII CODE GET BYTE AND INC CONFIGURE COMPLETE NEG LENGTH AND SAVE IT GET ASCII CODE AND INC CODE FOUND? YES NO; END OF TABLE? YES, ERROR NO; BYPASS THIS ENTRY DONE? NO; CONT NEXT ENTRY TABLE OF TYPE-AID MNEMONICS EACH ENTRY IS COMPOSED OF:

-LENGTH (OF MNEMONIC) KEY ASCII CODE MNEMONIC ASCII CHARACTERS DEF OCT DEC DEC OCT DEC DEC OCT OCT OCT OCT OCT OCT OCT DEC DEC DEC +I,I 176033 27753 29556 175435 25970 24947 62775 17162 61546 176437 66144 63373 16146 25972 25448 -1 -4,33 LI ST -5,35 ER AS E,-3 36,R CF -3,37 LD F,-5 34, F ET CH END-OF-TABLE

PRINT ALL EXECUTION EPKBD ENTRY: PRINT KEYBOARD BUFFER (KBUFF) IF PRINTALL IS SET (BIT 15 OF CFLAG) 220 Page 171 02991000 02992000 02993000 02994000 02995000 02996000 02997000 02998000 02999000 03000000 03001000 03002000 03003000 03004000 03005000 03006000 03007000 03008000 03009000 03010000 03011000 03012000 03013000 03014000 03015000 03016000 03017000 03018000 03019000 03020000 03021000 03022000 03023000 03024000 03025000 03026000 03027000 03028000 03029000 03030000 03031000 03032000 03033000 03034000 03035000 03036000 03037000 03038000 03039000 03040000 03041000 03042000 03043000 03044000 03045000 13057 13060 13061 13062 13063 13064 13065 13066 13067 13070 13071 13072 13073 13074 13075 13076 13077 13100 13101 13102 13103 13104 13105 13106 13107 13110 13111 13112 13113 13114 13115 13116 03046000 1,568,094 I/O SUPERVISOR EPON ENTRY: PRINT I/O BUFFER (IBUFF) IF PRINT-ALL IS SET EPNX ENTRY: PRINT I/O BUFFER REGARDLESS OF PRINT-ALL BIT IN ALL CASES THE RESPECTIVE BUFFERS ARE PRINTED 16 CHAR AT A TIME UNTIL NO NON BLANK (OTHER THAN EOL) CHARACTERS REMAIN IN THE BUFFER 000307 EPKBD 005232 176406 170201 001232 EPON 172402 170201 000314 EPNX 031222 EPPP 030017 140442 EPONI 004127 035735 140501 EPON 3 010053 066150 074576 055735 066145 140443 000017 066127 004017 EPON 2 035222 066134 13150 000017 EPON 4 13151 010314 13152 066160 13153 010307 13154 066160 13155 000127 13156 011735 13157 170201 13160 000117 EPON 6 13161 030006 EPON 5 13162 055735 13163 066161 13164 164443 LDA LDB SBM RET LDA SAM RET LDA STA STA JSM LDB STB JSM CPA JMP WBD DSZ JMP JSM LDA JMP LDB STB JMP LDA CPA JMP CPA JMP LDA CPA RET LDA STA DSZ JMP JMP AKBFX CFLAG EPPP CFLAG EPNX AIBFX L D ACPST,I P 16 T 21 AGNXT,I EOL EPON 4 R 6,I T 21 EPON 2 APRNT,I D EPPP D L EPON 3 D AIBFX EPON 6 AKBFX EPON 6 P 16 T 21 1 B 40 R 6 T 21 EPONS APRNT,I SET KBD BUFF S/A SKIP IF PRINT-ALL SET GET CONTROL FLAG PRINT-ALL? NO I/O BUFFER S/A SET "GNEXT" POINTR SET D-REG CHECK PRINTER STATUS SET 16 CHAR COUNTR GET NEXT CHAR (BLANKS IGNORED) END OF INFO? YES; COMPLETE WITH BLANKS SEND CHAR TO HARDWARE 16 CHARS OUT? NO YES; PRINT ONE LINE RESTORE L POINTER PRINT MORE LINES GET CURRENT SOURCE POINTR UPDATE "GNEXT" POINTR LOOP SEE IF BUFFER WAS EMPTY I/O BUFFER WAS EMPTY KBD BUFFER WAS EMPTY SEE IF LINE TO PRINT IS NULL YES, DONE GET A BLANK SEND A BLANK TO PRINTER HARDWARE DONE? NO PRINT ONE LINE ROM POWER REDUCTION LOOP EXIT: RET P + I CURSOR SET Page 172 13117 13120 13121 13122 13123 13124 13125 13126 13127 13130 13131 13132 13133 13134 13135 13136 13137 13140 13141 13142 13143 13144 13145 13146 13147 03047000 03048000 03049000 03050000 03051000 03052000 03053000 03054000 03055000 03056000 03057000 03058000 03059000 03060000 03061000 03062000 03063000 03064000 03065000 03066000 03067000 03068000 03069000 03070000 03071000 03072000 03073000 03074000 03075000 03076000 03077000 03078000 03079000 0308000 03081000 03082000 03083000 03084000 03085000 03086000 03087000 03088000 03089000 03090000 03091000 03092000 03093000 03094000 03095000 03096000 03097000 03098000 03099000 03100000 03101000 03102000 221 221 1,568,094 Page 173 I/O SUPERVISOR 13165 001207 RPRL 13166 170201 LDA WMOD RET I GET NEW KEY FLAG KEYCODE CONVERSION TABLES KEYCODES 13167 013170 KTBL 2 13170 036055 13171 037057 13172 023441 13173 021043 13174 022045 13175 023100 13176 055535 13177 000073 13200 000075 13201 000072 13202 000214 13203 106616 13204 107620 13205 110622 13206 111624 13207 112626 13210 113400 13211 030061 13212 031063 13213 032065 13214 033067 13215 034071 13216 027054 13217 000000 13220 000000 13221 056000 13222 057400 DEF OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT EOL (LAZY T): 177 54-140 (SHIFTED) + 1 36055 37057 23441 21043 22045 23100 55535 73 72 214 106616 107620 110622 111624 112626 113400 30061 31063 32065 33067 34071 27054 0 0 56000 57400 KEYCODES 13223 13224 13225 13226 13227 13230 13231 13232 13233 013224 KTBL 1 100602 101604 102606 103610 104612 105400 030061 DEF OCT OCT OCT OCT OCT OCT OCT OCT + 1 100602 101604 102606 103610 104612 105400 30061 /:>/ 01:'l 23:" 1# 45:$ % 67:8 @ 6 7: & @ 89:ll NULL;: NULL; NULL =: NULL= NULL ?: NULL:

NULL SK 0: NULL SK 12 SKI SK 2: SK 13 SK 14 SK 3 SK 4: SKI 5 SK 16 SK 5 SK 6: SK 17 SK 18 SK 7 SK 8: SK 19 SK 20 SK 9 SK 10: SK 21 SK 22 SKI 1 NULL: SK 23 NULL PO Pl:PO Pl P 2 P 3: P 2 P 3 P 4 P 5: P 4 P 5 P 6 P 7: P 6 P 7 P 8 P 9: P 8 P 9 NULL NULL: NULL NULL NULL NULL: NULL NULL A NULL: SQR NULL ENTER EXP NULL: UNDERSCORE NULL 101-131 (UNSHIFTED) NULL SK O SKI SK 2 SK 3 SK 4 SK 5 SK 6 SK 7 SK 8 SK 9 SK 10 SKI 1 NULL PO Pl 03103000 03104000 03105000 03106000 03107000 03108000 03109000 03110000 03111000 03112000 03113000 03114000 03115000 03116000 03117000 03118000 03119000 03120000 03121000 03122000 03123000 03124000 03125000 03126000 03127000 03128000 03129000 03130000 03131000 03132000 03133000 03134000 03135000 03136000 03137000 03138000 03139000 03140000 03141000 03142000 03143000 03144000 03145000 03146000 03147000 03148000 03149000 03150000 03151000 03152000 03153000 03154000 03155000 03156000 03157000 03158000 222 222 223 1,568,094 223 I/O SUPERVISOR 13234 031063 13235 032065 13236 033067 13237 034071 13240 027054 OCT OCT OCT OCT OCT 8 8.

31063 P 2P 3 32065 P 4P 5 33067 P 6P 7 34071 P 8P 9 27054, RECALL KEY SETS MODE = 0, SETS DBP TO START OF EDIT BUFFER, CLEARS CURSOR IF LAST KEY WAS RECALL (BIT 5 OF CFLAG) THEN KBUFF AND RBUFF ARE SWAPPED SETS BITS 5, 6 OF CFLAG (RECALL BITS) THE KBD BUFFER IS TRANSFERRED TO THE I/O BUFFER UNLESS STATE = 2 (LIVE KBD) IOCP AND OLCP ARE SET TO THE CHAR AFTER THE LAST NONBLANK CHAR IN THE RECALLED LINE IF THE COMPILE ERROR FLAG (CERR) IS SET THEN IOCP, DBP, AND CRSP ARE SET SO THE CURSOR WILL BE DISPLAYED ON THE PROPER CHAR IN THE EDIT BUFFER CERR SHOULD ALWAYS POINT INTO THE KBD (KBUFF) BUFFER AN OFFSET IS CALCULATED FROM THE START OF THIS BUFFEI USING THE ABSOLUTE ADDR IN CERR, IOCP, BDP ARE THEN SE TO THEIR CORRECT ADDRESSES IN THE EDIT BUFFER USING THIS OFFSET NOTE IF IN LIVE KBD THEN THE EDIT BUFFER IS THE KBD BUFFER, OTHERWISE IT IS THE I/O BUFFER AN ADDITIONAL TEST IS MADE TO INSURE THE THE CURSOR IS NOT ON THE 81ST CHAR, IF SO IT IS PUT ON THE 80TH CHAR 13241 040714 RECL 13242 001351 13243 031513 13244 000177 13245 031214 13246 001232 13247 170704 13250 073017 13251 000306 13252 030016 13253 000322 13254 030017 13255 000112 13256 031711 13257 070760 RLOOP 13260 070771 13261 070541 13262 070550 13263 044016 13264 044017 JSM LDA STA LDA STA LDA RAR SLACLMOD SET KBD MODE AEBFX SET DISPLAY BEGIN PTR DBP PO CLEAR CURSOR POINTER CRSP CFLAG SEE IF PREVIOUS KEY = RECALL RNORE DON'T SWAP BUFFERS IF NOT LDA AKBUF S/A OF KBD BUFFER STA C SET POINTER LDA ARBUF S/A OF RESERVE BUFFER STA D LDA P 41 41 WORDS TO TRANSFER STA Tl SET COUNTER WWC A,D GET A WORD FROM KBD BUFFER WWD B,D GET A WORD FROM RESERVE BUFFER PWC B,I PUT WORD IN KBD BUFFER PWD A,I PUT WORD IN RESERVE BUFFER ISZ C BUMP BUFFER POINTERS ISZ D Page 174 03159000 03160000 03161000 03162000 03163000 03164000 03165000 03166000 03167000 03168000 03169000 03170000 03171000 03172000 03173000 03174000 03175000 03176000 03177000 03178000 03179000 03180000 03181000 03 182000 03183000 03184000 03185000 03186000 03187000 03188000 03189000 03190000 03191000 03192000 03193000 03194000 03195000 03196000 03197000 03198000 03199000 03200000 03201000 03202000 03203000 03204000 03205000 03206000 03207000 03208000 03209000 03210000 03211000 03212000 03213000 03214000 1,568,094 223 223 1,568,094 I/O SUPERVISOR 13265 055711 13266 066257 001232 RNORE 060066 031232 001257 010145 066300 000306 004315 042447 140500 031213 031215 005316 076432 000310 140362 031214 004177 035316 001352 005214 024257 140401 031215 005353 024257 015215 066342 005213 140362 020257 172004 001215 004254 042415 005214 174040 025512 176402 170201 RELKB RELLL REC 10 RELCR RECEX 13337 001512 RECL 3 13340 031214 13341 164446 13342 176301 RECII 13343 000001 13344 066316 224 DSZ T 1 SEE IF DONE JMP RLOOP CONTINUE IF NOT LDA IOR STA LDA CPA JMP LDA LDB JSM CFLAG B 140 CFLAG CSTAT P 2 RELKB AKBUF AIBFM TRBX GET CONTROL FLAG AGAIN SET BIT, 5,6 RESTORE CONTROL FLAG SEE IF LIVE KBD KEY YES, DO NOT TRANSFER KBD TO I/0 O BUFFER TRANSFER KBD TO I/O BUFFER JSM AEOLN,I GET ADDR OF LAST CHARACTER STA OLCP SET PTRS STA IOCP LDB CERR GET COMPILE ERROR FLAG SZB RECEX SKIP IF NOT SET LDA JSM STA LDB STB LDA LDB ADB JSM STA LDB ADB CPB JMP LDB JSM ADA SAP LDA LDB JSM LDB TCB ADB SBM RET LDA STA JMP SBP LDA JMP AKBFM KBD BUFF S/A AFBAD,I FIND BYTE OFFSET OF ERROR POSITION CRSP SET CURSOR OFFSET PO CLEAR COMPILE ERROR FLAG CERR AEBFM GET EDIT BUFF S/A CRSP ERROR BYTE OFFSET M 1 MAKE RELATIVE TO BUFF S/A AADBA, FIND ABSOLUTE ADDR OF ERROR IOCP SET PTR TO ERROR POSITION AEB FL SET IF CURSOR PAST LAST POSSIBLE CHAR Ml IOCP RECI 1 YES, SET TO LAST POSSIBLE CHAR OLCP SEE IF CURSOR ≥ OLCP AFBAD,I Ml RELCR OKIFNOT IOCP SET OLCP = 1 CHAR PAST IOCP Pl DLCH 4 SET OLCP CRSP SEE IF ERROR OFFSET > DLEN DLEN RECL 3 DLEN CRSP AFBP,I +I,S B REC 10 B = DLEN ERROR OFFSET SET CURSOR TO LAST DISPLAY POSITION FIND DISPLAY BEGIN PTR AND RETURN P+ 1 ADDR OF LAST POSSIBLE CHAR SET OLCP, IOCP 224 Page 175 03215000 03216000 03217000 03218000 03219000 03220000 03221000 03222000 03223000 03224000 03225000 03226000 03227000 03228000 03229000 03230000 03231000 03232000 03233000 03234000 03235000 03236000 03237000 03238000 03239000 03240000 03241000 03242000 03243000 03244000 03245000 03246000 03247000 03248000 03249000 03250000 03251000 03252000 03253000 03254000 03255000 03256000 03257000 03258000 03259000 03260000 03261000 03262000 03263000 03264000 03265000 03266000 03267000 03268000 03269000 03270000 13267 13270 13271 13272 13273 13274 13275 13276 13277 13300 13301 13302 13303 13304 13305 13306 13307 13310 13311 13312 13313 13314 13315 13316 13317 13320 13321 13322 13323 13324 13325 13326 13327 13330 13331 13332 13333 13334 13335 13336 225 Page 176 03271000 03272000 03273000 03274000 03275000 03276000 03277000 03278000 03279000 03280000 03281000 03282000 03283000 03284000 03285000 03286000 03287000 03288000 03289000 225 1,568,094 I/O SUPERVISOR CLEAR KEY MODE = 0, 1, 2 SETS MODE = 0: CLEARS EDIT BUFFER, RESETS EDIT PTRS IF FETCH BIT OF CFLAG (BIT 1) IS SET THE SPECIAL KEY NUMBER IS DISPLAYED 13345 140452 CLEAR 13346 040715 13347 001232 13350 170500 13351 073006 03290000 13352 164474 03291000 03292000 03293000 03294000 03295000 CLEA 03296000 IF EN 03297000 AND 03298000 03299000 03300000 13353 140452 CLEEN 03301000 13354 040715 03302000 13355 001257 03303000 13356 010145 03304000 13357 170201 CLMM 03305000 13360 000226 03306000 13361 130313 03307000 13362 064717 03308000 03309000 03310000 03311000 DELI 03312000 03313000 ENTI 03314000 03315000 03316000 13363 001214 DLCH 03317000 13364 072002 03318000 13365 170201 03319000 03320000 13366 001215 03321000 13367 011213 03322000 13370 066420 03323000 13371 004254 03 24000 13372 140401 03325000 13373 011213 03326000 13374 066420 JSM AEOLB,I PUT EOL IN DISPLAY JSM CLMOD SET MODE= O LDA CFLAG GET CONTROL FLAG SAR I POSITION SPECIAL KEY FLAG BIT I SLA CLMMD CLEAR MODE IF SPECIAL NOT BE DEFINED JMP AKEYN,I DISPLAY KEY #, PUT EOL IN I/O BUFFER, RET 2-NO DISP R KEY IN ENTER (STATE= 4), OR LIVE KBD (STATE= 2) lTER A QUESTION MARK IS PUT IN THE I/O BUFFER THE MODE IS SET TO 4 I JSM JSM LDA CPA D RET LDA STA JMP AEOLB,I CLMOD CSTAT P 2 1 QMRKB AIBUF,I STELM PUT EOL IN EDIT BUFFER SET MODE = O RETURN IF LIVE KBD STATE = 2 SO MUST BE LIVE KBD GET "?" AND BLANK AND PLACE IN I/O BUFFER SET MODE = 4, RETURN ETE CHARACTER EXECUTION RY: INFO IN I/O BUFF LDA RZA RET LDA CPA JMP LDB JSM CPA JMP CRSP + 2 IOCP OLCP DLCH 2 Pl AADBA,I OLCP DLCH 2 GET CURSOR POINTR SET? NO GET I/O BUFF CURRENT POINTR SEE IF AT LAST CHARACTER YES GET IOCP + 1 ADDR CURSOR ON LAST ENTERED CHAR? YES 22 1,6,9 I/O SUPERVISOR 13375 005353 13376 176301 13377 001215 13400 030017 13401 030016 13402 074560 13403 074560 13404 074560 DLCH 1 13405 074550 13406 014016 13407 066411 13410 066404 13411 000117 13412 074740 13413 001213 13414 004257 13415 140401 DLCH 4 13416 031213 DLCH 3 13417 170201 13420 13421 13422 13423 13424 13425 13426 13427 000117 DLCH 2 005215 034016 074540 000177 031214 000257 066416 LDB SBP LDA STA STA WBC WBC WBC PBD CPB JMP JMP LDA PBC LDA LDB JSM STA RET LDA LDB STB PBC LDA STA LDA JMP AEBFL GET END OF BUFFER ADDR + 1,S PT TO FIRST BYTE IOCP GET IOCP AGAIN D SET DESTIN POINTR C SET SOURCE POINTR A,I DUMMY WITHDRAW; ADJUST POINTR A,I POINT TO "DELETE CHAR" + 1 A,I GET FIRST CHAR AND INCRM A,I INCRM AND STORE CHAR C LAST CHAR TAKEN? + 2 YES DLCHI NO: TRANSFER NEXT CHAR LEFT B 40 SET LAST CHAR= BLANK A,D OLCP GET OLD CURRENT POINTER Ml AADBA,IUPDATE OLD CURRENT POINTER OLCP UPDATE OLD CURRENT POINTR B 40 IOCP C A,I PO CRSP Ml DLCH 3 GET BLANK GET I/O BUFF CURRENT POINTR SET C-REG INCRM AND DELETE CURSOR CHAR CLEAR CURSOR POINTR SET FORWARD PASS FLAG CLEAR DLCP POINTR ATRBF TRANSFER BUFFERS CLEARS COMPILE ERROR FLAG IF MODE = 4 LEAVES BUFFERS ALONE SETS MODE = 4, RETURNS IF LIVE KBD ALSO LEAVES BUFFERS ALONE IF LAST KEY WAS RECALL TRANSFER KBD BUFFER TO RBUFF (RESERVE BUFFER) AND THEN TRANSFERS I/O BUFFER TO KBD BUFFER 13430 13431 13432 13433 13434 13435 13436 13437 13440 13441 13442 13443 13444 000177 TRBUF 031316 001256 010143 170201 040717 001257 010145 170201 TREC 001232 170705 073475 042462 LDA STA LDA CPA RET JSM LDA CPA RET LDA RAR RLA JSM PO CERR MODE P 4 1 STELM CSTAT P 2 I CFLAG 6 TREC KBREB CLEAR COMPILE ERROR FLAG LEAVE BUFFERS ALONE IF MODE = 4 SET MODE = 4 DON'T TRANSFER TO LIVE KBD IF STATE = 2 DON'T TRANSFER IF LAST KEY = RECALL RETURN IF BIT IS SET TRANSFER KBD BUFF TO RESERVE BUFF Page 177 03327000 03328000 03329000 03330000 03331000 03332000 03333000 03334000 03335000 03336000 03337000 03338000 03339000 03340000 03341000 03342000 03343000 03344000 03345000 03346000 03347000 03348000 03349000 03350000 03351000 03352000 03353000 03554000 03355000 03356000 03357000 03358000 03359000 03360000 03361000 03362000 03363000 03364000 03365000 03366000 03367000 03368000 03369000 03370000 03371000 03372000 03373000 03374000 03375000 03376000 03377000 03378000 03379000 03380000 03381000 03382000 226 1,568,094 99) 1,568,094 I/O SUPERVISOR 13445 000313 TRB 2 13446 004310 13447 030016 TRBX 13450 034017 13451 000112 13452 031230 13453 070560 TRB 3 13454 070550 13455 055230 13456 066453 13457 170201 LDA AIBUF I/OBUFFS/A LDB AKBFM KBD BUFF S/A STA C SET SOURCE ADDR STB D SET DESTINATION ADDR LDA P 41 BUFF LENGTH STA TMP 5 SET COUNTR PWD A,I PLACE WORD AND INCRM DSZ TMP 5 DONE? JMP TRB 3 NO RET 1 KBREB TRANSFER KDB BUFFER (KBUFF=LIVE KBD BUFFER) TO RESERVE BUFFER 13460 000177 KBTRB 13461 031316 13462 13463 13464 000306 004323 066447 LDA PO STA CERR CLR ERROR CURSOR FLAG USED BY LIVE KBD KBREB LDA AKBUF KBD BUFFS/A LDB ARBFM RESERVE BUFF S/A JMP TRBX TRANSFERAND RETURN CLEBF-ACLEB CLEAR EDIT BUFFER TO BLANKS, RESET EDIT PTRS IOCP OLCP, DBP CRSP IF MODE = 4 AND IN LIVE KBD, KBD BUFFER IS TRANSFERRED TO RESERVE BUFFER TEST FOR LIVE KBD DONE BY COMPARING ERROR BYPASS LINK (ERRBP) TO LIVE KBD ERROR ROUTINE MIGHT BE BETTER TO CHECK FOR STATE = 2 CLBF 1 ENTRY A= START ADDR-1 B= LAST ADDR MEMORY BETWEEN A-1 AND B INCLUSIVELY IS CLEARED TO BLANKS as 13465 001256 CLEBF 13466 010143 13467 066471 13470 066474 13471 001260 13472 012520 13473 042460 13474 13475 13476 13477 13500 140475 CLBF 3 005353 030016 CLBF 1 000262 CLBF 2 070540 LDA CPA JMP JMP LDA CPA JSM JSM LDB STA LDA PWC MODE P 4 + 2 CLBF 3 ERRBP ALKER KBTRB IF MODE = 4 AND THIS IS A LIVE KBD KEY THEN TRANSFER LIVE KBD BUFFER TO RESERVE BUFFER BEFORE THE LIVE KBD BUFFER IS CLEARED LIVE KBD KEY IF BYPASS LINK IS SET CONDITIONS MET SO TRANSFER AEDPT,IRESET EDIT POINTERS AEBFL LAST EDIT BUFF ADDR C SET C REG TOBLN TWO BLANKS A,I CLEAR 1 WORD Page 178 03383000 03384000 03385000 03386000 03387000 03388000 03389000 03390000 03391000 03392000 03393000 03394000 03395000 03396000 03397000 03398000 03399000 03400000 03401000 03402000 03403000 03404000 03405000 03406000 03407000 03408000 03409000 03410000 03411000 03412000 03413000 03414000 03415000 03416000 03417000 03418000 03419000 03420000 03421000 03422000 03423000 03424000 03425000 03426000 03427000 03428000 03429000 03430000 03431000 03432000 03433000 03434000 03435000 03436000 03437000 03438000 227 227 1,568,094 I/O SUPERVISOR 13501 13502 13503 13504 000016 172601 010001 170201 13505 066477 LDAC SAM +,C CPA B RET 1 GET WORD POINTER CLEAR BIT 15 DONE? YES JMP CLBF 2 NO:CONT CLEAR I/O BUFFER LEAVE EDIT PTRS ALONE 13506 000315 CLB 10 13507 004316 13510 066476 LDA AIBFM STARTADDR LDB AIBFL STOPADDR JMP CLBF 1 CLEAR BUFF AND RETURN AEOLB-EOLEB SAME AS ACLEB-CLEBF EXCEPT THAT IT SETS AN EOL AS THE FIRST CHAR OF THE EDIT BUFFER 13511 042465 EOLEB 13512 000214 EOLBB 13513 131350 13514 170201 13515 000304 13516 004305 13517 066476 JSM CLEBF LDA EOLB CLEAR I/O BUFF, SET PTRS, PUT EOL IN EDIT BUFF STA AEBUF,I RET I CLCMB CLEAR COMPILE BUFFER CLCMB LDA ACBUF COMPILEBUFFS/A-1 LDB ACLMT STOP ADDR JMP CLBF 1 Page 179 03439000 03440000 03441000 03442000 03443000 03444000 03445000 03446000 03447000 03448000 03449000 03450000 03451000 03452000 03453000 03454000 03455000 03456000 03457000 03458000 03459000 03460000 03461000 03462000 03463000 03464000 03465000 03466000 03467000 03468000 03469000 03470000 03471000 03472000 03473000 03474000 03475000 03476000 03477000 228 228 1,568,094 LIVE KEYBOARD ROUTINES L Kt,$ LIVE KEYBOARD 077605 077606 077607 077611 077613 EQUATES LKR BPLNK LWHER LXCMM RENFL EQU LKTMP+ O EQU LKTMP+ 1 I EQU LKTMP+ 2 EQU LKTMP+ 4 EQU LKTMP+ 6 LKTMP+ 7 To + 13 ADDRESSES 13520 013646 13521 100271 13522 077614 13523 077227 13524 077350 13525 040000 ALKER DEF ALKEM DEF ASVLK DEF ACST 9 DEF AEBST DEF CONSTANTS LKERR LKERM,I LKTMP+ 7 CSTMP+ 9 AEBUF XBIT OCT 040000 229 DEDICATED WORD TO SAVE R DEDICATED WORD TO SAVE ERROR BYPASS LINK DEDICATED WORD TO SAVE WHERE DEDICATED WORD TO SAVE XCOMM RENUMBER OF GTO AND GSB FLAG SAVE TEMPORARIES USED BY LIVE KBD KEY PROC LIVE KEYBOARD ERROR TRAPPING ROUTINE ADDRESS ADDRESS OF THE FIRST CHARACTER OF THE ERROR MESSAGE.

START ADDR TO SAVE TEMPS START ADDR OF CONTROL SUP TEMPS TO SAVE START ADDR OF R/W EDIT PTRS SET ONLY BIT 14 OF XCOMM LKE: LIVE KEYBOARD ENABLE.

13526 00177 13527 031623 13530 164365 ELKE LDA PO ELK 1 STA LKFLG JMP AINTX,I CLEAR LIVE KBD DISABLE FLAG RETURN TO INTERPRETER LKD: LIVE KEYBOARD DISABLE 13521 000254 ELKD LDA Pl 13532 066527 JMP ELKI DISABLE LIVE KBD 229 Page 180 03480000 03481000 03482000 03483000 03484000 03485000 03486000 03487000 03488000 03489000 03490000 03491000 03492000 03493000 03494000 03495000 03496000 03497000 03498000 03499000 03500000 03501000 03502000 03503000 03504000 03505000 03506000 03507000 03508000 03509000 03510000 03511000 03512000 03513000 03514000 03515000 03516000 03517000 03518000 03519 OOO 03520000 03521000 03522000 03523000 03524000 03525000 03526000 03527000 03528000 03529000 03530000 03531000 03532000 03533000 03534000 03535000 2301 Liv LIVE KEYBOARD ROUTINES 03536000 03537000 LKPR 03538000 03539000 ALLO' 03540000 BEEPS 03541000 03542000 SAVES 03543000 DOESl 03544000 03545000 USES I 03546000 -AND S 03547000 03548000 03549000 03550000 13533 001257 LKPRC 03551000 13534 010145 03552000 13535 066537 03553000 13536 064703 03554000 03555000 13537 000335 03556000 13540 006522 03557000 13541 071404 03558000 13542 002523 03559000 13543 024142 03560000 13544 071401 03561000 03562000 13545 000003 03563000 13546 031605 03564000 13547 001260 C: PROCESS A KEY, EXTENSION OF KBD INT SERV ROUTINE ROUTINE IN "IOSP".

WS LIVE KBD ONLY IF STATE = 2 OTHERWISE TEMPS T 1-T 5, TEMPI, TMP 5; ALSO USES TMP 8 BUT N'T SAVE IT ERRBP TO TRAP KEY ERRORS, SAVES R IN CASE OF AN ERROR SETS EDIT POINTERS TO EDIT KBD (KBUFF) BUFFER LDA CPA JMP JMP LDA LDB XFR LDA ADB XFR CSTAT P 2 + 2 BEEP ATMP ASVLK ACST 9 P 5 LDA STA LDA 03565000 13550 031606 03566000 13551 002520 03567000 13552 031260 03568000 03569000 13553 000312 03570000 13554 006524 03571000 13555 071403 03572000 03573000 13556 001206 03574000 13557 140420 LKNRL 03575000 03576000 13560 042562 03577000 13561 066704 03578000 03579000 13562 004155 LKDSP 03580000 13563 040633 03581000 13564 140432 03582000 13565 140432 03583000 13566 004156 03584000 13567 064633 03585000 03586000 03587000 03588000 03589000 EXECI 03590000 03591000 R LKR ERRBP STA BPLNK LDA ALKER STA ERRBP LDA LDB XFR AKBST AEBST LDA WKC JSM AKYPR,I JSM JMP LDB JSM JSM JSM LDB JMP LKDSP KREST Mll DELAY ADSPC,I ADSPC,I M 13 DELAY IGNORE KEY IF STATE #2 = 2 ? YES IGNORE KEY, BEEP, AND RETURN SAVE T 1-T 5 IN LKTMP+ 7, 13 SAVE TEMP 1, TMP 5 TMP 8 ALSO USED BUT NOT SAVED/ RESTORED SAVE RETURN PTR IN CASE OF AN ERROR SAVE ERROR BYPASS LINK FOR DAISY CHAIN SET ERROR LINK FOR LIVE KBD PROCESSING SWAP LIVE KBD POINTERS INTO EDIT POINTERS PUT KEYCODE IN A PROCESS THE KEY RETI 1 DISPLAY BUFFER WITH DELAYS RET 2 DON'T DISPLAY ANYTHING WAIT 11 MILLISECONDS COMPLEDTE PREVIOUS DISPLAY DISPLAY EDIT BUFFER WAIT ANOTHER 13 MILLISECONDS JTE IN LIVE KBD SET BIT 14 IN XCOMM Page 181 230 1.56 R 09 ni 231 1,568,094 231 ?age 182 LIVE KEYBOARD ROUTINES 03592000 13570 000214 LEXKYLDA EOLB SET FOR EXECUTION OF THE LINE 03593000 13571 130311 STA AKBFL,I 03594000 13572 002525 LDA XBIT SETXCOMM FOR EXECUTION 03595000 13573 040744 JSM SXCMM 03596000 13574 170202 RET 2 DON'T DISPLAY ANYTHING 03597000 io R LKBEX EXECUTE THE LIVE KEYBOARD BUFFER CONTENTS (ACCESSED BY A JSM FROM THE XCOMM SERVICE ROUTINE) STACKS (PUTS A FAKE BOTTOM OF STACK ON THE EXECUTION STACK) CHANGES THE STATE TO 3, SAVES R AND WHERE (NEEDED FOR RESUMING FROM XCOMM SERVICE ROUTINE: CLEARS BIT 14 FROM XCOMM, SAVES THIS XCOMM, CLEARS DISPLAY, EXECUTES LIVE KBD LINE AN ERROR MESSAGE WILL BE LEFT IN THE DISPLAY FOR 5 SE( SO IT CAN BE VIEWED 13575 140515 LKBEX 13576 000144 13577 031257 13600 000003 13601 031605 13602 001266 13603 031607 13604 004244 13605 040740 13606 031611 13607 000177 13610 031255 13611 042117 13612 042465 13613 043135 13614 140417 13615 140364 LKBE 2 13616 140411 13617 066626 13620 005266 13621 066615 13622 042641 LEXER 13623 006762 13624 040633 13625 066627 13626 042641 LEXRR 13627 001607 LXERR 13630 031266 13631 001605 JSM LDA STA LDA STA LDA STA LDB JSM STA LDA STA JSM JSM JSM JSM JSM JSM JMP LDB JMP JSM LDB JSM JMP JSM LDA STA LDA ASTKI,I P 3 CSTAT R LKR WHERE LWHER XMASK CLXCM LXCMM PO XCOMM EPKBD CLEBF DISP AEXCL,I AINTK,I AXCMM,I LEXRR WHERE LKBE 2 LKRES M 512 DELAY LXERR LKRES LWHER WHERE LKR STACK SET LIVE KBD EXEC STATE SAVE RETURN PTR IN CASE OF AN ERROR SAVE WHERE WORD ALSO CLEAR LIVE KBD BIT IN XCOMM CLEAR XCOMM BEFORE STARTING GO THROUGH PRINTALL CLEAR I/O BUFFER, RESET PTRS CLEAR DISPLAY COMPILE LINE INTERPRET THE LINE WANTS TO BE SERVICED SO GO SERVICE XCOMM.

P+ 1: STOP CONDITION, ABORT EXECUTION P+ 2: XCOMM HAS BEEN SERVICED, CONTINUE DISPLAY ERROR MESSAGE, RES XCOMM, CLR WKC WAIT 512 MS FOR DISPLAY DISPLAY ERROR MESSAGE, RES XCOMM, CLR WKC REPLACE WHERE WORD RESTORE JSM STACK PTR 03599000 03600000 03601000 03602000 03603000 03604000 03605000 03606000 03607000 Q 3608000 03609000 03610000 03611000 03612000 03613000 03614000 03615000 03616000 03617000 03618000 03619000 03620000 03621000 03622000 03623000 03624000 03625000 03626000 03627000 03628000 03629000 03630000 03631000 03632000 03633000 03634000 03635000 03636000 03637000 03638000 03639000 03640000 03641000 03642000 03643000 03644000 03645000 03646000 03647000 P 232 l 568 f 194 S 232 Page 183 03648000 03649000 03650000 03651000 03652000 03653000 03654000 03655000 03656000 03657000 03658000 03659000 03660000 03661000 03662000 03663000 03664000 03665000 03666000 03667000 03668000 03669000 03670000 LIVE KEYBOARD ROUTINES 13632 030003 13633 140516 13634 004155 13635 040633 13636 000145 13637 031257 13640 170201 13641 001611 LKRES 13642 031255 13643 000177 13644 031206 13645 164433 STA JSM LDB JSM LDA STA RET LDA STA LDA STA JMP R AREST,I Mll DELAY P 2 CSTAT LXCMM XCOMM PO WKC ALDSP,I RESTORE AFTER EXECUTION WAIT FOR DISPLAY SET STATE BACK TO 2 RESTORE XCOMM CLEAR KEY CODE FOR WAIT ROUTINE DISPLAY ERROR MESSAGE OR RESULT LKERR:

ERROR HANDLING ROUTINE FOR LIVE KEYBOARD EXECUTION.

03671000 13646 040717 LKERR 03672000 13647 040703 LKER 1 03673000 13650 000177 03674000 13651 030011 03675000 13652 002521 03676000 13653 030016 03677000 13654 004141 03678000 13655 074560 LKER 2 03679000 13656 030004 03680000 13657 054001 03681000 13660 066655 03682000 13661 000003 03683000 13662 020257 03684000 13663 144000 03685000 13664 100000 03686000 13665 100000 03687000 13666 170707 03688000 13667 030004 03689000 13670 170707 03690000 13671 030004 03691000 13672 000117 03692000 13673 005512 03693000 13674 024154 03694000 13675 030004 LKER 3 03695000 13676 054001 03696000 13677 066675 03697000 13700 000145 03698000 13701 030005 03699000 13702 001605 03700000 13703 030003 03701000 03702000 13704 001606 KREST 03703000 13705 031260 JSM JSM LDA STA LDA STA LDB WBC STA DSZ JMP LDA ADA ISZ LDA LDA RAR STA STELM BEEP PO PA ALKEM C P 6 A,I R 4 B LKER 2 R Ml A,I A,I A,I 8 R 4 RAR 8 STA R 4 LDA B 40 LDB ADB STA DSZ JMP LDA STA LDA STA DLEN M 8 R 4 B LKER 3 P 2 R 5 LKR R LDA BPLNK STA ERRBP SET EOL MODE SET PERIP ADDR TO THE PRINTER/DSP POINT C TO THE FIRST CHARACTER OF THE ERROR MESSAGE.

SEND "ERROR" TO THE DISPLAY GET JSM STACK PTR PT TO JSM AERRI ENTRY ON STACK PT TO MESSAGE XX ON STACK GET MESSAGE XX SEND THE FIRST CHARACTER OF THE ERROR NUMBER SEND THE SECOND CHARACTER OF THE ERRORNUMBER.

FILL OUT THE REST OF THE DISPLAY WITH BLANKS.

TRIGGER THE DISPLAY RESTORE STACK POINTER RESTORE ERROR BYPASS LINK 232 1.568094 )3) 233 1,568,094 233 RESTORE EDIT PTRS SO PT TO I/O BUFFER LIVE KEYBOARD ROUTINES 13706 13707 13710 13711 13712 13713 13714 13715 042716 002522 004335 071404 020142 006523 071401 170201 JSM SWIOP LDA ASVLK LDB ATMP XFR 5 ADA P 5 LDB ACST 9 XFR 2 RET 1 SWIOP' RESTORE EDIT PTRS SO PT TO I/O BUFFER RESTORE TEMPS T 1-T 5 RESTORE TMPI,TMP 5 SWAPS THE ROM PTRS FOR THE I/O BUFFER INTO THE READ-WRITE EDIT POINTER LOCATIONS AND SETS THE ERROR BYPASS LINK FOR NORMAL PROCESSING 13716 000321 SWIOP 13717 006524 13720 071403 13721 170201 13722 000572 13723 001172 13724 003673 13725 004233 13726 004663 13727 005013 13730 005523 13731 006243 13732 006423 13733 007103 13734 007473 13735 010113 13736 010543 13737 011043 13740 011623 13741 012153 13742 012563 13743 013033 13744 013453 KI K 2 K 7 K 10 Kll K 12 K 13 K 14 K 15 K 16 K 17 K 20 K 21 K 22 K 23 K 24 K 25 K 26 K 27 LDA AIBST LDB AEBST XFR 4 RET I TRANSFER EDIT PTRS FOR I/O BUFFER MTABLE

CONSTRUCTED BY CODE CLASS AND CONTROL NUMBER CLASS: BITS 0-2 CONTROL NUMBER (CN) BITS 3-7 ASCII CODE: BITS 8-15 OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT OCT 572 1172 3673 4233 4663 5013 5523 6243 6423 7103 7473 10113 10543 11043 11623 12153 12563 13033 13453 STOP: 1,17,2 REWIND: 2,17,2 RESULT: 7,27,3 LINE INSERT: 10,23,3 LINE DELETE: 11,26,3 EXECUTE: 12,1,3 RECALL: 13,12,3 RUN: 14,24,3 STORE: 15,2,3 L.ARROW: 16,10,3 R.ARROW: 17,7,3 D.ARROW: 20,11,3 U.ARROW: 21,14,3 CLEAR: 22,4,3 PRINT ALL: 23,22,3 BACK: 24,15,3 FORWARD: 25,16,3 INSERT: 26,3,3 DELETE: 27,5,3 Page 184 03704000 03705000 03706000 03707000 03708000 03709000 03710000 03711000 03712000 03713000 03714000 03715000 03716000 03717000 03718000 03719000 03720000 03721000 03722000 03723000 03724000 03725000 03726000 03727000 03728000 03729000 03730000 03731000 03732000 03733000 03734000 03735000 03736000 03737000 03738000 03739000 03740000 03741000 03742000 03743000 03744000 03745000 03746000 03747000 03748000 03749000 03750000 03751000 03752000 03753000 03754000 03755000 03756000 03757000 03758000 03759000 233 1,568,094 233 1,568,094 LIVE KEYBOARD ROUTINES OCT OCT OCT OCT OCT OCT OCT OCT 14063 14653 15604 16204 16604 17204 17604 -1 STEP: 30,6,3 CONTINUE: 31,25,3 LIST: 30,20,4 FETCH: 34,20,4 ERASE: 35,20,4 RECORD: 36,20,4 LOAD: 37,20,4 END-OF-TABLE

CONSTANTS DEC 89 DEC -44 OCT 54501 OCT 31 OCT 65 DEC -512 OCT 25040 ASCII ASTERISK, BLANK DEFINITIONS EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU P 89 M 44 FLAG 872 B 177 PO PO B 42 LPIT LPIT+ 1 LPIT+ 2 LPIT+ 3 LPIT+ 4 CSTMP CST CST+I CST+ 2 CST+ 3 CST+ 5 CST+ 6 CST+ 7 ' CST+ 8 CST+ 9 CST+ 10 CST+ 11 CST+ 12 TMP 1,TMP 5 MUST BE IN THIS ORDER 13745 13746 13747 13750 13751 13752 13753 13754 014063 014653 015604 016204 016604 017204 017604 177777 K 30 K 31 K 33 K 34 K 35 K 36 K 37 13755 13756 13757 13760 13761 13762 13763 000131 177724 054501 000031 177000 025040 Page 185 03760000 03761000 03762000 03763000 03764000 03765000 03766000 03767000 03768000 03769000 03770000 03771000 03772000 03773000 03774000 03775000 03776000 03777000 03778000 03779000 03780000 03781000 03782000 03783000 03784000 03785000 03786000 03787000 03788000 03789000 03790000 03791000 03792000 03793000 03794000 03795000 03796000 03797000 03798000 03799000 03800000 03801000 03802000 03803000 03804000 03805000 03806000 03807000 03808000 03809000 03810000 03811000 03812000 03813000 03814000 03815000 P 89 M 44 LMTI B 31 B 65 M 512 BLAST B 131 BM 54 MAXLN COLLN EOL DPA PPA QUOTE LPSVA LPSVB LPSVC LPSVD LPSVE CST SIOCP WPRT M PLADD TMP 6 K TMP 2 LNO TM Pl TMP 5 TMP 3 CFLAG 013755 013756 000263 000077 000053 000177 000177 000116 077467 077470 077471 077472 077473 077216 077216 077217 077220 077221 077223 077224 077225 077226 077227 077230 077231 077232 234 234 1,568,094 Page 186 03816000 03817000 03818000 03819000 03820000 03821000 03822000 03823000 03824000 03825000 03826000 03827000 03828000 03829000 03830000 03831000 13777 03832000 13777 03833000 03834000 03835000 03836000 LIVE KEYBOARD ROUTINE 077233 077234 077235 077206 077207 077210 077211 077212 077213 077214 077215 TMP 7 TMP 4 SKEY WKC WMOD DTM Pl DTMP 2 SPKN OLCP CRSP IOCP EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU CST+ 13 CST+ 14 CST+ 15 IOTMP IOTMP+ 1 IOTMP+ 2 IOTMP+ 3 IOTMP+ 4 IOTMP+ 5 IOTMP+ 6 IOTMP+ 7 ORG 13777 B BSS 1 END END END OF PASS 2 NO ERRORS DETECTED 235 235 1.568,094 INTERNAL FULL PRECISION MATH ROUTINES FULL PRECISION NUMBER: INTERNAL FORMAT EEEE EEEE EEXX D 1 D 5 D 9 D 9 D 2 D 3 XXXS 10 BIT 2 'S COMPL EXP, 5 DON'T CARE BITS, MANTISSA SIGN ( 0 =+ 1 =-) EXP RANGE =-511 TO + 511 D 4 BCD DIGITS 1-4 D 6 D 7 D 8 BCD DIGITS 5-8 D 10 Dll D 12 BCD DIGITS 9-12 EQUATES 077752 077753 077754 077755 077756 077757 077760 077761 077762 077763 077764 077765 077766 077767 000345 077770 077771 077772 077773 077774 077775 077776 077777 000127 000021 000022 000023 RESE RESM I RESM 2 RESM 3 ZE ZMI ZM 2 ZM 3 Mll MT 2 MT 3 MT 4 MT 5 MT 6 ARIA ARIE ARIMI ARIM 2 AR 1 M 3 RNDT 2 RNDT 1 NRMEL STBIT AR 2 A AR 2 E AR 2 M 1 AR 2 M 2 AR 2 M 3 BCD 1 EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU EQU RES RES+ I RES+ 2 RES+ 3 MRW 1 MRWI+I MRW 1 + 2 MRWI+ 3 MRWI+ 4 MRWI+ 5 MRW 1 + 6 MRW 1 + 7 MRW 1 + 8 MRWI+ 9 ADRI ARI ARIE+I ARIE+ 2 ARIE+ 3 MRW 2 MRW 2 + 1 MRW 2 + 2 MRW 2 + 3 ADR 2 AR 2 AR 2 E+ 1 AR 2 E+ 2 AR 2 E+ 3 B 10 K FULL PRECISION RESULT REGISTER FULL PRECISION MATH TEMPORARY ADDRESS OF ARI EXPONENT WORD OF ARI 1ST MANTISSA WORD OF ARI 2ND MANTISSA WORD OF ARI 3RD MANTISSA WORD OF ARI NORMALIZE COUNT FOR COMPARISON IN ROUND SHIFT COUNTER FOR ROUND NORMALIZATION FLAG FOR ROUND "STICKY BIT" FOR ROUND ADDRESS OF AR 2 EXPONENT WORD OF AR 2 1ST MANTISSA WORD OF AR 2 2ND MANTISSA WORD OF AR 2 3RD MANTISSA WORD OF AR 2 BCD 1000 Page 187 02141000 02142000 02143000 02144000 02145000 02146000 02147000 02148000 01249000 02150000 02151000 02152000 02153000 02154000 02155000 02156000 02157000 02158000 02160000 02151000 02162000 02163000 02164000 02165000 02166000 02167000 02168000 02169000 02170000 02171000 02172000 02173000 02174000 02175000 02176000 02177000 02178000 02179000 02180000 02181000 02182000 02183000 02184000 02185000 02186000 02187000 02188000 02189000 02190000 236.

236 1,568,094 INTERNAL FULL PRECISION MATH ROUTINES 02192000 14000 02193000 02194000 14000 066070 02195000 14001 014301 02196000 14002 100030 02197000 14003 002400 02198000 14004 077756 E 77 L E 99 M ADIFF BCD,5 ZA ORG 14000 B JMP E 77 OCT 014301 ABS AR 2 E-AR 1 E OCT 02400 DEF ZE 02199000 14005 077774 WPTR 2 DEF ARIE+ 4 02201000 14006 02203000 02204000 02205000 02206000 02207000 02208000 02209000 02210000 02211000 02211000 02212000 02213000 02214000 02215000 02216000 03327000 02218000 02219000 02221000 02222000 02223000 02224000 02225000 02226000 02227000 02228000 02229000 02230000 02231000 02232000 CHKSM BSS 1 ERROR 77 LINK: MUST BE AT 14000 B. E 99 (USED BY ERROR 73) SQUARE ROOT USES THIS BCD 0500 ADDRESS OF FULL PREC MATH TEMPORARY-Z ADDRESS OF THE WORD BELOW ARI (D 9-D 12)-RNDT 2 CHECKSUM WORD FOR ADDRESSES:

14000-15777.

INTERNAL MATH GENERAL ENTRY CONDITIONS:

DESCRIPTIONS OF THE OPERANDS ARE ON THE TQP OF

THE EXECUTION STACK EACH BINARY IMATH ROUTINE USES "GET 2 " TO POINT OPND 2 TO THE OPERAND ON THE TOP OF THE STACK AND OPND 1 TO THE SECOND OPERAND ON THE TOP OF THE STACK EACH UNARY IMATH ROUTINE USES "GETI" TO POINT OPND 1 TO THE OPERAND ON THE TOP OF THE STACK.

A Pl IS RESET BY GETI AND GET 2 TO ELIMINATE THE OPERANDS FROM THE EXECUTION STACK.

DON'T USEARI, AR 2, ORZ(MRWI+ O THRU MRWI+ 3) TO STORE OPERANDS IN WHEN CALLING THESE IMATH ROUTINES.

INTERMAL MATH GENERAL EXIT CONDITIONS:

THE RESULT OF EACH IMATH ROUTINE IS PLACED IN THE BASEPAGE RESULT LOCATION "RES" AS A FULL PRECISION NUMBER THERE IS NO GUARANTY THAT THE EXPONENT IS IN THE USER'S RANGE OF -99 to + 99 USE "FLICK" TO VERIFY THIS CONDITION BEFORE MAKING THE RESULT AVAILABLE TO THE USER.

237 237 Page 189 INTERNAL FULL PRECISION MATH ROUTINES GETI: ROUTINE TO UNSTACK ONE OPERAND FOR UNARY OPERATORS GET 2: ROUTINE TO UNSTACK TWO OPERANDS FOR BINARY OPERATORS ENTRY CONDITIONS:

THE "WHAT/WHERE" INFORMATION FOR THE OPERANDS MUST BE ON THE TOP OF THE EXECUTION STACK, POINTED TO BE API.

EXII CONDITIONS:

OPND 1 WILL CONTAIN THE VALUE ADDRESS OF THE FULL PRECISION OPERAND 1.

OPND 2 WILL CONTAIN THE VALUE ADDRESS OF THE FULL PRECISION OPERAND 2.

TEMPORARIES: SAVEB 14007 043011 14010 035274 14011 140611 14012 000001 14013 035273 14014 170201 GET 2 JSM GETI STB OPND 2 GETI JSM AGTAD, I LDA B STB OPND 1 GRETI RET 1 UNSTACK THE SECOND OPERAND FROM THE TOP OF STACK.

SAVE THE ADDRESS OF THE SECOND OPERAND IN OPND 2.

DEMAND A NUMERIC ON TOP OF STAI OR GIVE ERROR 32.

RETURN THE ADDRESS ON BOTH A & B. ZAR 2: TEST THE MANTISSA OF AR 2 FOR ZERO/NON-ZERO ENTRY CONDITIONS:

AR 2 CONTAINS THE NUMBER TO BE CHECKED EXIT CONDITIONS:

RET IFAR 2 = O RET 2 IFAR 2#0 14015 000021 ZAR 2 14016 060022 14017 060023 14020 072474 14021 170202 LDA AR 2 M 1 IOR AR 2 M 2 IOR AR 2 M 3 SZA GRETI RFT 2 02234000 02235000 02236000 02237000 02238000 02239000 02240000 00241000 02242000 00243000 02244000 02245000 02246000 02247000 02248000 02249000 02240000 02251000 02252000 02253000 02254000 02255000 02256000 02257000 02258000 02259000 02261000 02262000 02263000 02264000 02265000 02266000 02267000 02268000 02269000 02270000 02271000 02272000 02273000 02274000 02275000 02276000 0227700002278000 02279000 238 1 _ 5689 1 Q 2 1,568,094 239 INTERNAL FULL PRECISION MATH ROUTINES FUNM: FULL PRECISION UNARY MINUS RES=- SPECIAL EXIT CONDITIONS:

OPND 2 POINTS TO Z WHICH CONTAINS-(ARGUMENT) TEMPORARIES: Z as 14022 043011 14023 043026 14024 003004 14025 066050 FUNM FUNM JSM GETI JSM CHS LDA ZA JMP STANY COPY THE ARGUMENT INTO Z CHANGE THE SIGN OF Z LOAD A WITH THE ADDRESS OF Z JUMP TO THE ROUTINE THAT WILL CHECK FOR ZERO AND STORE THE RESULT.