Contents
Introduction
The LVDC assembly-language source code herein was transcribed from an original
Apollo-era assembly listing into a set of source-code files. Those source-code
files were then assembled using a post-Apollo-era LVDC assembler. The present
assembly listing resulted. It was designed to superficially resemble the
original assembly listing, though there are some differences in presentation.
An important difference is the presence of "modern" comments that were not
present in the original listings. Modern comments can be recognized because
they are preceded by the character "#".
Moreover, this assembly listing uses colorized syntax highlighting, according
to the following color key:
- Assembler-generated text and and numbers are black.
- Fatal assembly errors
- Assembly warnings
- "Modern" comments
- Original Apollo-era comments
- Punchcard column 71.
- LVDC instruction opcodes.
- Pseudo-ops and assembler directives.
Besides which, the following colors are used for symbols defined within the LVDC
source code, and they double as hyperlinks that jump to the source-code lines at
which the symbols are defined:
- Program labels.
- Names of variables
- Names of preprocessor constants.
- Names of macros.
- Names of forms.
Assembly Listing
# Copyright: Public domain.
# Filename: PTC-ADAPT-Self-Test-Program.lvdc8
# Purpose: This is LVDC ground test software "PTC ADAPT Self-Test
# Program" (1965) for the Programmable Test Controller, as
# transcribed directly from the assembly listing.
# Assembler: yaASM.py --ptc [--past-bugs] \
# PTC-ADAPT-Self-Test-Program.tsv \
# <PTC-ADAPT-Self-Test-Program.lvdc8 \
# >listing.txt
# Contact: Ron Burkey <info@sandroid.org>.
# Octals: (Transcribed from scans) PTC-ADAPT-Self-Test-Program.lvdc
# Web page: http://www.ibiblio.org/apollo/LVDC.html#PTC_ADAPT_Self-Test_Program
# Page scans: http://www.ibiblio.org/apollo/ScansForConversion/PTC%20ADAPT%20Self-Test%20Program.zip
# Executable: https://github.com/virtualagc/virtualagc/blob/master/PTC-ADAPT-Self-Test-Program/PTC-ADAPT-Self-Test-Program.tsv
# Documentation:http://www.ibiblio.org/apollo/Documents/19730064346_1973064346.pdf,
# particularly Chapter 7 ("Calibration"), from which the page scans and
# executable (assembled octals) mentioned above were taken. Figure 7-12
# is this complete software in flowchart form. The web page linked above
# also covers known errors in the documentation.
# Mod history: 2020-04-12 RSB Began transcribing from page images.
# 2020-04-21 RSB Finished transcribing, rough draft.
# Haven't done any proofing yet.
# 2020-04-29 RSB Now assembles 100% error/warning free,
# and the assembled octals agree with
# those from the transcribed octal file.
# Some workarounds were necessary in the
# source code. I have not proofed the
# comments, so perhaps some errors remain
# there.
# 2023-05-24 RSB Changed extension to .lvdc8 from .lvdc and
# added the build instructions to the comments
# above.
#
# At this writing (2020-04-29), there are some behaviors (or bugs) in
# the original assembler which so far have not been duplicated in the
# modern assembler. A small number of workarounds (search for the
# comment "workaround") have been added to the source code to insure
# that the assembly remains octal-for-octal identical to the original.
# These are all ORG/DOG pseudo-ops or extra TRA instructions. Hopefully
# these can be removed at some point if the assembler is updated. The
# assembler's command-line switch --past-bugs determines whether or not
# the assembler attempts to mimic those original bugs. For example, in
# the assembly listing printout, the original assembler printed incorrect
# information for the BCI pseudo-op (although it assembled correct octals
# for it); the modern assembler by default prints correct information on
# the listing, but reverts to printing the original incorrect information
# if --past-bugs is used.
#
# Regarding the BCI pseudo-op: In the original assembly language, BCI's
# operands were terminated by $ character. In the modern assembly
# language, the operands are additionally initiated by ^ characters not
# present in the original assembly language. This is due to a requirement
# of the modern assembler (yaASM.py) to relax strict columnar alignment of
# the source code. Thus what would have been "BCI string$" originally
# is "BCI ^string$" in this source file used with the modern assembler.
#
# White space (blank lines and spaces within lines) in this transcript
# are not necessarily the same as for the original punch cards.
# Specifically, for convenience in working with modern text-editor
# software, I've put the operator and operand fields at
# 8-position tab stops, namely columns 9 and 17, and trailing comments
# usually at column 41. (You need to have tabs configured to 8 to
# view this file properly aligned.) None of which would agree with the
# original punch cards. A convenient set of tab stops to duplicate
# what appears in the original program listing would have the first
# two fields combining to fill 15 characters (at widths of 7 and 8
# columns respectively), and all subsequent tab stops at 5-column
# intervals. Unfortunately, text editors that can duplicate an uneven
# set of tab stops like that aren't too common, thus I've pragmatically
# opted for default uniform 8-column tab stops adopted by most modern
# text-editing programs.
#
# On the other hand, I've attempted to preserve the spaces
# _within_ the 1965 program comments, except where those
# comments are obviously intended to align with inline comments
# suffixed to lines of code. In this transcription, as in the
# original, full-line comments are prefixed by '*' in column 1.
# As in the original, inline comments trailing code on the same line
# are not marked by any special leading character.
#
# In contrast, comments added later (in 2020 or later) that are not present
# in the original printout at all are instead prefixed by '#' in column 1.
#
# In the original printout, almost all lines have a SEQUENCE number at the
# end, reflecting corresponding numbers on the punch cards. Those SEQUENCE
# numbers are _not_ preserved here on a line-by-line basis, but I've added
# a comment for each PAGE change that appeared in the original printout,
# and those PAGE-change comments do list the range of SEQUENCE numbers
# found on the corresponding PAGE of the printout.
#
# Regarding the PAGE numbers: The original assembly listing presumably had
# page numbers at the top, generated by the assembler, but the listing
# which has come down to us is not that original printout. Rather, it was
# embedded in a document, "SATURN V Laboratory Maintenance Instruction
# for LTE", Volume V, "Programmable Test Controller", Figure 7-13.
# (http://www.ibiblio.org/apollo/Documents/19730064346_1973064346.pdf,
# beginning at PDF page 434, marked "V-7-250".) In that document,
# the headings that were presumably at the tops of the pages
# have been removed, so there are no assembler-generated page numbers.
# Instead, the figure captions from the document, list a "sheet" number
# for each page, and those sheet numbers have been used here as the PAGE
# numbers.
# PAGE 1, SEQUENCE 20-580
PAGE 001
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
* TAPE 6001236
DOG 0,17,0
0 17 000 BSS 15
0 17 017 130144130 H17P2 HPC L17P2
0 17 020 000000000 ZERO OCT 000000000
0 17 021 000000010 BB OCT 000000010
0 17 022 130007000 H2P1 HPC L2P1
0 17 023 140066210 H9P3 HPC L9P3
0 17 024 100136700 H43P2 HPC L43P2
0 17 025 130020210 H8P1A HPC L8P1
0 17 026 160000560 H95P1 HPC L95P1
0 17 027 160001160 H95P7 HPC L95P7
0 17 030 501047200 HJAJ5 HPC JAJ5
0 17 031 501052200 HJAJ5B HPC JAJ5B
0 17 032 000000002 K1 OCT 000000002
0 17 033 777777776 K77 OCT 777777776
0 17 034 130300000 K1303 OCT 130300000
0 17 035 000001520 K324 OCT 000001520
0 17 036 002000000 KS1 OCT 002000000
0 17 037 000000100 KS2 OCT 000000100
0 17 040 000777776 KX1 OCT 000777776
0 17 041 270000000 KX2 OCT 270000000
0 17 042 260000000 KX3 OCT 260000000
0 17 043 250000000 KX4 OCT 250000000
0 17 044 240000000 KX5 OCT 240000000
0 17 045 777000000 KX6 OCT 777000000
0 17 046 000037740 KX7 OCT 000037740
0 17 047 777740036 KX8 OCT 777740036
0 17 050 000000000 LC2 OCT 000000000
0 17 051 000000000 LC3 OCT 000000000
0 17 052 000000000 LC5 OCT 000000000
0 17 053 000000000 LC7 OCT 000000000
0 17 054 000000000 LC8 OCT 000000000
0 17 055 000000000 LCR2 OCT 000000000
0 17 056 000000000 LCR3 OCT 000000000
0 17 057 000000000 LCR4 OCT 000000000
0 17 060 000000000 LCR5 OCT 000000000
0 17 061 000000000 LCR6 OCT 000000000
0 17 062 000000000 LCR7 OCT 000000000
0 17 063 000000000 LCR8 OCT 000000000
0 17 064 000000000 LCR9 OCT 000000000
0 17 065 000000000 LCR10 OCT 000000000
0 17 066 000000000 LCR11 OCT 000000000
0 17 067 000000000 LCR12 OCT 000000000
0 17 070 000000000 VAR1 OCT 000000000
0 17 071 000000000 VAR2 OCT 000000000
0 17 072 000000000 VAR3 OCT 000000000
0 17 073 000000000 VAR4 OCT 000000000
0 17 074 000000000 VAR5 OCT 000000000
0 17 075 000000000 INTIND OCT 000000000
0 17 076 000000000 TEMP OCT 000000000
0 17 077 000000000 TEMP1 OCT 000000000
0 17 100 000000000 STOP OCT 000000000
0 17 101 000000000 CTR OCT 000000000
0 17 102 000000000 CTR3 OCT 000000000
0 17 103 000000000 HRTRN OCT 000000000
0 17 104 610000000 CHAR OCT 610000000 A
# PAGE 2, SEQUENCE 590-1150
PAGE 002
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 17 105 620000000 OCT 620000000 B
0 17 106 630000000 OCT 630000000 C
0 17 107 640000000 OCT 640000000 D
0 17 110 650000000 OCT 650000000 E
0 17 111 660000000 OCT 660000000 F
0 17 112 670000000 OCT 670000000 G
0 17 113 700000000 C7 OCT 700000000 H
0 17 114 710000000 OCT 710000000 I
0 17 115 410000000 C9 OCT 410000000 J
0 17 116 420000000 OCT 420000000 K
0 17 117 430000000 OCT 430000000 L
0 17 120 440000000 OCT 440000000 M
0 17 121 450000000 OCT 450000000 N
0 17 122 460000000 OCT 460000000 O
0 17 123 470000000 OCT 470000000 P
0 17 124 500000000 OCT 500000000 Q
0 17 125 510000000 OCT 510000000 R
0 17 126 220000000 OCT 220000000 S
0 17 127 230000000 OCT 230000000 T
0 17 130 240000000 OCT 240000000 U
0 17 131 250000000 OCT 250000000 V
0 17 132 260000000 OCT 260000000 W
0 17 133 270000000 OCT 270000000 X
0 17 134 300000000 OCT 300000000 Y
0 17 135 310101010 OCT 310101010 Z WITH NO CHECK BITS
0 17 136 010000000 C26 OCT 010000000 1
0 17 137 020000000 C27 OCT 020000000 2
0 17 140 030000000 C28 OCT 030000000 3
0 17 141 040000000 C29 OCT 040000000 4
0 17 142 050000000 OCT 050000000 5
0 17 143 060000000 C31 OCT 060000000 6
0 17 144 070000000 OCT 070000000 7
0 17 145 100000000 OCT 100000000 8
0 17 146 110000000 OCT 110000000 9
0 17 147 120000000 OCT 120000000 0
0 17 150 130000000 C36 OCT 130000000 SPECIAL CHARS
0 17 151 200000000 C37 OCT 200000000
0 17 152 210000000 C38 OCT 210000000
0 17 153 330000000 OCT 330000000
0 17 154 400000000 C40 OCT 400000000
0 17 155 530000000 OCT 530000000
0 17 156 600000000 C42 OCT 600000000
0 17 157 730000000 OCT 730000000
0 17 160 000000000 OCT 000000000 SPACE
0 17 161 140000000 C45 OCT 140000000 UPPER CASE
0 17 162 150000000 OCT 150000000
0 17 163 160000000 OCT 160000000
0 17 164 170000000 OCT 170000000
0 17 165 320000000 OCT 320000000
0 17 166 340000000 OCT 340000000
0 17 167 350000000 OCT 350000000
0 17 170 360000000 OCT 360000000
0 17 171 370000000 OCT 370000000
0 17 172 520000000 OCT 520000000
0 17 173 540000000 OCT 540000000
0 17 174 550000000 OCT 550000000
0 17 175 560000000 OCT 560000000
# PAGE 3, SEQUENCE 1160-1480
PAGE 003
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 17 176 570000000 OCT 570000000
0 17 177 720000000 OCT 720000000
0 17 200 740000000 C60 OCT 740000000
0 17 201 750000000 OCT 750000000
0 17 202 760000000 OCT 760000000
0 17 203 770000000 OCT 770000000
0 17 204 110000000 C64 OCT 110000000 OCTAL 1
0 17 205 210000000 OCT 210000000 OCTAL 2
0 17 206 310000000 OCT 310000000 OCTAL 3
0 17 207 410000000 OCT 410000000 OCTAL 4
0 17 210 510000000 OCT 510000000 OCTAL 5
0 17 211 610000000 OCT 610000000 OCTAL 6
0 17 212 710000000 OCT 710000000 OCTAL 7
0 17 213 010000000 OCT 010000000 OCTAL 0
0 17 214 050000000 OCT 050000000 DECIMAL 1
0 17 215 110000000 OCT 110000000 DECIMAL 2
0 17 216 150000000 OCT 150000000 DECIMAL 3
0 17 217 210000000 OCT 210000000 DECIMAL 4
0 17 220 250000000 OCT 250000000 DECIMAL 5
0 17 221 310000000 OCT 310000000 DECIMAL 6
0 17 222 350000000 OCT 350000000 DECIMAL 7
0 17 223 410000000 OCT 410000000 DECIMAL 8
0 17 224 450000000 OCT 450000000 DECIMAL 9
0 17 225 510000000 OCT 510000000 DECIMAL 0
0 17 226 400000000 OCT 400000000 SPACE - CNTRL OPNS
0 17 227 010000000 OCT 010000000 TAB
0 17 230 020000000 OCT 020000000 CARRIAGE RETURN
0 17 231 040000000 OCT 040000000 INDEX
0 17 232 100000000 OCT 100000000 RED
0 17 233 200000000 OCT 200000000 BLACK
LINE1 BCI ^ROUTINE 7, EXERCISE TYPEWRITER$
0 17 234 ROUT
0 17 235 INE
0 17 236 7, E
0 17 237 XERC
0 17 240 ISE
0 17 241 TYPE
0 17 242 WRIT
0 17 243 ER
LINE2 BCI ^TYPE ALL ALPHANUMERIC IN BLACK$
0 17 244 TYPE
0 17 245 ALL
0 17 246 ALP
0 17 247 HANU
0 17 250 MERI
0 17 251 C IN
0 17 252 BLA
0 17 253 CK
LINE3 BCI ^ABCDEFGHIJKLMNOPQRSTUVWXYZ,1234567890$
0 17 254 ABCD
0 17 255 EFGH
0 17 256 IJKL
0 17 257 MNOP
0 17 260 QRST
0 17 261 UVWX
0 17 262 YZ,1
0 17 263 2345
0 17 264 6789
0 17 265 0
# PAGE 4, SEQUENCE 1490-1620
PAGE 004
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 17 266 141516170 LINE4 OCT 141516170 SPECIAL CHARACTERS
0 17 267 323435360 OCT 323435360
0 17 270 372052210 OCT 372052210
0 17 271 565772740 OCT 565772740
0 17 272 757677130 OCT 757677130
0 17 273 543355400 OCT 543355400
0 17 274 536073000 OCT 536073000
DOG 0,17,300
LINE5 BCI ^TYPE OCTAL CHARACTERS$
0 17 300 TYPE
0 17 301 OCT
0 17 302 AL C
0 17 303 HARA
0 17 304 CTER
0 17 305 S
0 17 306 012345670 LINE5A OCT 012345670
LINE6 BCI ^TYPE DECIMAL INTEGERS IN RED$
0 17 307 TYPE
0 17 310 DEC
0 17 311 IMAL
0 17 312 INT
0 17 313 EGER
0 17 314 S IN
0 17 315 RED
0 17 316
0 17 317 044321260 LINE6A OCT 044321260
0 17 320 361150000 LINE6B OCT 361150000
0 17 321 150055500 H30P2A HPC L30P2A
# PAGE 5, SEQUENCE 1640-2200
PAGE 005
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
ORG ,,,,,13,0
0 13 000 130074000 H5P3 HPC L5P3
0 13 001 130077400 H5P4 HPC L5P4
0 13 002 130103000 H5P5 HPC L5P5
0 13 003 130107000 H5P6 HPC L5P6
0 13 004 130175600 H5P7 HPC L5P7
0 13 005 130114000 H6P1 HPC L6P1
0 13 006 130116400 H6P2 HPC L6P2
0 13 007 130125400 H6P3 HPC L6P3
0 13 010 130132000 H6P4 HPC L6P4
0 13 011 130137000 H6P5 HPC L6P5
0 13 012 130143000 H6P6 HPC L6P6
0 13 013 130146400 H6P7 HPC L6P7
0 13 014 130152400 H6P8 HPC L6P8
0 13 015 130156400 H6P9 HPC L6P9
0 13 016 130162000 H6P10 HPC L6P10
0 13 017 130166000 H6P11 HPC L6P11
0 13 020 130171400 H6P12 HPC L6P12
0 13 021 130000200 H6P13 HPC L6P13
0 13 022 130003600 H6P14 HPC L6P14
0 13 023 130007200 H6P15 HPC L6P15
0 13 024 130013200 H6P16 HPC L6P16
0 13 025 130016600 H6P17 HPC L6P17
0 13 026 130022600 H6P18 HPC L6P18
0 13 027 130026200 H6P19 HPC L6P19
0 13 030 130031600 H6P20 HPC L6P20
0 13 031 130035600 H6P21 HPC L6P21
0 13 032 130041200 H6P22 HPC L6P22
0 13 033 130044600 H6P23 HPC L6P23
0 13 034 130050200 H7P1 HPC L7P1
0 13 035 130053600 H7P2 HPC L7P2
0 13 036 130057200 H7P3 HPC L7P3
0 13 037 130062600 H7P4 HPC L7P4
0 13 040 130066200 H7P5 HPC L7P5
0 13 041 130071600 H7P6 HPC L7P6
0 13 042 130076200 H7P7 HPC L7P7
0 13 043 130101600 H7P8 HPC L7P8
0 13 044 130105200 H7P9 HPC L7P9
0 13 045 130111200 H7P10 HPC L7P10
0 13 046 130115200 H7P11 HPC L7P11
0 13 047 130121200 H7P12 HPC L7P12
0 13 050 130125200 H7P13 HPC L7P13
0 13 051 130131200 H7P14 HPC L7P14
0 13 052 130135200 H7P15 HPC L7P15
0 13 053 130140600 H7P16 HPC L7P16
0 13 054 130144200 H7P17 HPC L7P17
0 13 055 130150200 H7P18 HPC L7P18
0 13 056 130154200 H7P19 HPC L7P19
0 13 057 130157600 H7P20 HPC L7P20
0 13 060 130163200 H7P21 HPC L7P21
0 13 061 130167200 H7P22 HPC L7P22
0 13 062 130001410 H7P23 HPC L7P23
0 13 063 130005410 H7P24 HPC L7P24
0 13 064 130011410 H7P25 HPC L7P25
0 13 065 130015410 H7P26 HPC L7P26
0 13 066 130021410 H7P27 HPC L7P27
0 13 067 130025010 H7P28 HPC L7P28
# PAGE 6, SEQUENCE 2210-2530
PAGE 006
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 13 070 130030410 H7P29 HPC L7P29
0 13 071 130036410 H7P30 HPC L7P30
0 13 072 130042410 H7P31 HPC L7P31
0 13 073 130046410 H7P32 HPC L7P32
0 13 074 130052410 H7P33 HPC L7P33
0 13 075 130056410 H7P34 HPC L7P34
0 13 076 130062410 H7P35 HPC L7P35
0 13 077 130066410 H7P36 HPC L7P36
0 13 100 130072010 H7P37 HPC L7P37
0 13 101 130075410 H7P38 HPC L7P38
0 13 102 130101410 H7P39 HPC L7P39
0 13 103 130105410 H7P40 HPC L7P40
0 13 104 130111410 H7P41 HPC L7P41
0 13 105 130116410 H7P42 HPC L7P42
0 13 106 130122410 H7P43 HPC L7P43
0 13 107 130126410 H7P44 HPC L7P44
0 13 110 130132010 H7P45 HPC L7P45
0 13 111 130135410 H7P46 HPC L7P46
0 13 112 130143410 H7P47 HPC L7P47
0 13 113 130147410 H7P48 HPC L7P48
0 13 114 130153410 H7P49 HPC L7P49
0 13 115 130157410 H7P50 HPC L7P50
0 13 116 130163410 H7P51 HPC L7P51
0 13 117 130167410 H7P52 HPC L7P52
0 13 120 130001210 H7P53 HPC L7P53
0 13 121 130007430 H7P54 HPC L7P54
0 13 122 130013430 H7P54B HPC L7P54B
0 13 123 130020210 H8P1 HPC L8P1
0 13 124 130024210 H8P2 HPC L8P2
0 13 125 130030210 H8P3 HPC L8P3
0 13 126 130034210 H8P4 HPC L8P4
0 13 127 130040210 H8P5 HPC L8P5
0 13 130 130044210 H8P6 HPC L8P6
# PAGE 7, SEQUENCE 2550-3000
PAGE 007
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
# This is the entry point for the program at power-up.
# Note that there's already a bug ... or at least an
# element of unnecessary confusion! Because of the
# preceding ORG statement on page 5, the assembler
# believes that the current data sector is 0-13, and
# it will therefore look in that memory sector when it
# accesses variables. On the other hand, the CPU has
# no way of knowing at runtime what the assembler
# believes, and will instead believe that the current
# data sector is 0-00. Perhaps by design, however,
# the initial instructions of the program access variables
# (ZERO, INTIND, STOP, CTR, LC8) that are in residual
# memory, and thus are accessible regardless of
# whether the assembler and the CPU agree as to which
# memory sector is currently selected. The 6th
# instruction executed, "CDS 1,13" puts the assembler
# and CPU into agreement for subsequently-encountered
# variables. -- RSB 2020
* PROGRAM ENTRANCE.
0 00 0 000 17 0 13 1 020 L1P1 CLA ZERO
0 00 0 001 13 0 13 1 075 STO INTIND
0 00 0 002 13 0 13 1 100 STO STOP
0 00 0 003 13 0 13 1 101 STO CTR
0 00 0 004 13 0 13 1 054 STO LC8
0 00 0 005 16 0 13 233 CDS 1,13
0 00 0 006 13 1 13 000 STO TIME
0 00 0 007 13 1 13 001 STO CSCTR
0 00 0 010 13 1 13 002 STO DDCTR
0 00 0 011 16 1 13 213 CDS 0,13
0 00 0 012 05 0 13 214 CIO 214
0 00 0 013 14 0 13 015 TMI L1P1A
0 00 0 014 10 0 13 016 TRA L2P1
0 00 0 015 00 0 13 132 160030160 L1P1A TRA* L1P1A1
0 00 0 016 17 0 13 1 072 L2P1 CLA VAR3
0 00 0 017 07 0 13 133 000000002 ADD =O000000002
0 00 0 020 13 0 13 1 072 STO VAR3
0 00 0 021 05 0 13 204 CIO 204
0 00 0 022 17 0 13 1 020 CLA ZERO
0 00 0 023 13 0 13 1 073 STO VAR4
0 00 0 024 13 0 13 1 074 STO VAR5
0 00 0 025 05 0 13 214 CIO 214 ASWT
0 00 0 026 07 0 13 1 032 ADD K1
0 00 0 027 16 0 13 001 SHL 1
0 00 0 030 13 0 13 134 STO LCR1 A1
0 00 0 031 16 0 13 001 SHL 1
0 00 0 032 13 0 13 1 055 STO LCR2 A2
0 00 0 033 16 0 13 001 SHL 1
0 00 0 034 13 0 13 1 056 STO LCR3 A3
0 00 0 035 16 0 13 001 SHL 1
0 00 0 036 13 0 13 1 057 STO LCR4 A4
0 00 0 037 16 0 13 001 SHL 1
0 00 0 040 13 0 13 1 060 STO LCR5 A5
0 00 0 041 16 0 13 001 SHL 1
0 00 0 042 13 0 13 1 061 STO LCR6 A6
0 00 0 043 16 0 13 001 SHL 1
0 00 0 044 13 0 13 1 062 STO LCR7 A7
0 00 0 045 16 0 13 001 SHL 1
0 00 0 046 13 0 13 1 063 STO LCR8 A8
0 00 0 047 16 0 13 001 SHL 1
0 00 0 050 13 0 13 1 064 STO LCR9 A9
0 00 0 051 16 0 13 001 SHL 1
0 00 0 052 13 0 13 1 065 STO LCR10 A10
0 00 0 053 16 0 13 001 SHL 1
0 00 0 054 13 0 13 1 066 STO LCR11 A11
# PAGE 8, SEQUENCE 3100-3520
PAGE 008
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 00 0 055 16 0 13 001 SHL 1
0 00 0 056 13 0 13 1 067 STO LCR12 A12
0 00 0 057 16 0 13 001 SHL 1
0 00 0 060 13 0 13 135 STO LC1 A13
0 00 0 061 16 0 13 001 SHL 1
0 00 0 062 13 0 13 1 050 STO LC2 A14
0 00 0 063 16 0 13 001 SHL 1
0 00 0 064 13 0 13 1 051 STO LC3 A15
0 00 0 065 16 0 13 001 SHL 1
0 00 0 066 14 0 13 070 TMI L2P2 A16
0 00 0 067 10 0 13 071 TRA L3P1
0 00 0 070 00 0 13 136 160003760 L2P2 TRA* L97P1
0 00 0 071 17 0 13 135 L3P1 CLA LC1
0 00 0 072 14 0 13 074 TMI *+2
0 00 0 073 10 0 13 164 TRA L5P1
0 00 0 074 17 0 13 134 CLA LCR1
0 00 0 075 14 0 13 123 TMI L4P1
0 00 0 076 17 0 13 1 055 CLA LCR2
0 00 0 077 14 0 13 126 TMI L4P2
0 00 0 100 17 0 13 1 056 CLA LCR3
0 00 0 101 14 0 13 131 TMI L4P3
0 00 0 102 17 0 13 1 057 CLA LCR4
0 00 0 103 14 0 13 134 TMI L4P4
0 00 0 104 17 0 13 1 060 CLA LCR5
0 00 0 105 14 0 13 137 TMI L4P5
0 00 0 106 17 0 13 1 061 CLA LCR6
0 00 0 107 14 0 13 142 TMI L4P6
0 00 0 110 17 0 13 1 062 CLA LCR7
0 00 0 111 14 0 13 145 TMI L4P7
0 00 0 112 17 0 13 1 063 CLA LCR8
0 00 0 113 14 0 13 150 TMI L4P8
0 00 0 114 17 0 13 1 064 CLA LCR9
0 00 0 115 14 0 13 153 TMI L4CP1
0 00 0 116 17 0 13 1 065 CLA LCR10
0 00 0 117 14 0 13 156 TMI L4CP2
0 00 0 120 17 0 13 1 066 CLA LCR11
0 00 0 121 14 0 13 161 TMI L4CP3
0 00 0 122 10 0 13 016 TRA L2P1
0 00 0 123 17 0 13 1 020 L4P1 CLA ZERO
0 00 0 124 13 0 13 1 055 STO LCR2
0 00 0 125 10 0 13 167 TRA L5P2 TO ROUTINE 1
0 00 0 126 17 0 13 1 020 L4P2 CLA ZERO
0 00 0 127 13 0 13 1 056 STO LCR3
0 00 0 130 10 0 13 235 TRA L6P2 TO ROUTINE 2
0 00 0 131 17 0 13 1 020 L4P3 CLA ZERO
0 00 0 132 13 0 13 1 057 STO LCR4
0 00 0 133 00 0 13 137 140062210 TRA* L9P2
0 00 0 134 17 0 13 1 020 L4P4 CLA ZERO
0 00 0 135 13 0 13 1 060 STO LCR5
0 00 0 136 00 0 13 142 150032660 TRA* L20P2
0 00 0 137 17 0 13 1 020 L4P5 CLA ZERO
# PAGE 9, SEQUENCE 3530-4090
PAGE 009
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 00 0 140 13 0 13 1 061 STO LCR6
0 00 0 141 00 0 13 143 120020500 TRA* L29P2
0 00 0 142 17 0 13 1 020 L4P6 CLA ZERO
0 00 0 143 13 0 13 1 062 STO LCR7
0 00 0 144 00 0 13 144 150002710 TRA* L45P2
0 00 0 145 17 0 13 1 020 L4P7 CLA ZERO
0 00 0 146 13 0 13 1 063 STO LCR8
0 00 0 147 00 0 13 145 110005110 TRA* L50P2
0 00 0 150 17 0 13 1 020 L4P8 CLA ZERO
0 00 0 151 13 0 13 1 064 STO LCR9
0 00 0 152 00 0 13 146 050001240 TRA* L60P2
0 00 0 153 17 0 13 1 020 L4CP1 CLA ZERO
0 00 0 154 13 0 13 1 065 STO LCR10
0 00 0 155 00 0 13 147 501004000 TRA* JAB1
0 00 0 156 17 0 13 1 020 L4CP2 CLA ZERO
0 00 0 157 13 0 13 1 066 STO LCR11
0 00 0 160 00 0 13 150 511010050 TRA* MAB1
0 00 0 161 17 0 13 1 020 L4CP3 CLA ZERO
0 00 0 162 13 0 13 1 067 STO LCR12
0 00 0 163 00 0 13 151 531020270 TRA* NAB1
0 00 0 164 17 0 13 134 L5P1 CLA LCR1
0 00 0 165 14 0 13 167 TMI L5P2
0 00 0 166 10 0 13 230 TRA L6P1
* BEGINNING OF ROUTINE ONE
* CHECK COMPUTER FOR ABILITY TO HOP TO ALL SECTORS.
0 00 0 167 00 0 13 131 L5P2 HOP HP1
0 13 131 010001010 HP1 HPC L5P2A
* SECTOR 1.
ORG ,1,,2,,1,
0 01 0 002 00 0 01 001 L5P2A HOP HP2
0 01 001 020000220 HP2 HPC L5P2B
* SECTOR 2.
ORG ,2,1,0,,2,1
0 02 1 000 00 0 02 001 L5P2B HOP HP3
0 02 001 030177030 HP3 HPC L5P2C
* SECTOR 3.
ORG ,3,,376,,3,
0 03 0 376 00 0 03 001 L5P2C HOP HP4
0 03 001 040025040 HP4 HPC L5P2D
* SECTOR 4.
ORG ,4,,52,,4,
0 04 0 052 00 0 04 001 L5P2D HOP HP5
0 04 001 050001450 HP5 HPC L5P2E
* SECTOR 5.
ORG ,5,,3,,5,10
0 05 0 003 00 0 05 010 L5P2E HOP HP6
0 05 010 160000060 HP6 HPC L5P2F
* SECTOR 6.
ORG ,6,,0,,16,365
0 06 0 000 00 0 16 365 L5P2F HOP HP7
0 16 365 160077470 HP7 HPC L5P2G
* SECTOR 7.
ORG ,7,,177,,16,
0 07 0 177 00 0 16 366 L5P2G HOP HP8
0 16 366 160037700 HP8 HPC L5P2H
* SECTOR 10.
ORG ,10,1,77,,16,
# PAGE 10, SEQUENCE 4100-4650
PAGE 010
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 10 1 077 00 0 16 367 L5P2H HOP HP9
0 16 367 160127710 HP9 HPC L5P2I
* SECTOR 11.
ORG ,11,1,257,,16,
0 11 1 257 00 0 16 370 L5P2I HOP HP10
0 16 370 160000120 HP10 HPC L5P2J
* SECTOR 12.
ORG ,12,,,,16,
0 12 0 000 00 0 16 371 L5P2J HOP HP11
0 16 371 160177330 HP11 HPC L5P2K
* SECTOR 13.
ORG ,13,1,376,,16,
0 13 1 376 00 0 16 372 L5P2K HOP HP12
0 16 372 160014140 HP12 HPC L5P2L
* SECTOR 14.
ORG ,14,,30,,16,
0 14 0 030 00 0 16 373 L5P2L HOP HP13
0 16 373 160177150 HP13 HPC L5P2M
* SECTOR 15.
ORG ,15,,376,,16,
0 15 0 376 00 0 16 374 L5P2M HOP HP14
0 16 374 160000160 HP14 HPC L5P2N
* SECTOR 16.
ORG ,16,,0,,16,376
0 16 0 000 00 0 16 376 L5P2N HOP HP15
0 16 376 160151370 HP15 HPC L5P2P
* SECTOR 17.
ORG ,17,1,277,,16,
# The following line appears in the original assembly listing,
# but was generated by the assembler rather than being source
# code. It is thus commented-out here. However, I've been
# unable to figure out how to get the assembler to automatically
# generate the necessary transfer and insert it here. So
# the two lines following the comment have been added to this
# source file to produce the necessary effect. They should be
# removed after I figure how to reproduce the correct behavior
# directly within the assembler.
# TRA** GENERATED TRANSFER
0 17 1 277 10 0 16 1 322 TRA L5P2P # workaround
ORG ,17,1,322,,16, # workaround
0 17 1 322 00 0 16 377 L5P2P HOP HP16
0 16 377 401000000 HP16 HPC L5P2Q
* MEMORY MODULE 1
* SECTOR 0 MM1
ORG 1,,,,1,,
1 00 0 000 00 1 00 001 L5P2Q HOP HP17
1 00 001 411000610 HP17 HPC L5P2R
* SECTOR 1 MM1
ORG 1,1,1,1,1,1,2
1 01 1 001 00 1 01 002 L5P2R HOP HP18
1 01 002 421001020 HP18 HPC L5P2S
* SECTOR 2 MM1
ORG 1,2,,2,1,2,3
1 02 0 002 00 1 02 003 L5P2S HOP HP19
1 02 003 431001430 HP19 HPC L5P2T
* SECTOR 3 MM1
ORG 1,3,,3,1,3,4
1 03 0 003 00 1 03 004 L5P2T HOP HP20
1 03 004 441002040 HP20 HPC L5P2U
* SECTOR 4 MM1
ORG 1,4,,4,1,4,5
1 04 0 004 00 1 04 005 L5P2U HOP HP21
1 04 005 451002650 HP21 HPC L5P2V
* SECTOR 5 MM1
ORG 1,5,1,5,1,5,6
1 05 1 005 00 1 05 006 L5P2V HOP HP22
1 05 006 461030060 HP22 HPC L5P2W
* SECTOR 6 MM1
# PAGE 11, SEQUENCE 4660-5040
PAGE 011
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
ORG 1,6,,60,1,6,7
1 06 0 060 00 1 06 007 L5P2W HOP HP23
1 06 007 471017470 HP23 HPC L5P2X
* SECTOR 7
ORG 1,7,,37,1,7,17
1 07 0 037 00 1 07 017 L5P2X HOP HP24
1 07 017 501040100 HP24 HPC L5P2Y
* SECTOR 10 MM1
ORG 1,10,,100,1,10,27
1 10 0 100 00 1 10 027 L5P2Y HOP HP25
1 10 027 511100110 HP25 HPC L5P2Z
* SECTOR 11 MM1
ORG 1,11,,200,1,11,37
1 11 0 200 00 1 11 037 L5P2Z HOP HP26
1 11 037 521177120 HP26 HPC L5P2AA
* SECTOR 12 MM1
ORG 1,12,,376,1,12,377
1 12 0 376 00 1 12 377 L5P2AA HOP HP27
1 12 377 531177130 HP27 HPC L5P2BB
* SECTOR 13 MM1
ORG 1,13,,376,1,13,377
1 13 0 376 00 1 13 377 L5P2BB HOP HP28
1 13 377 541077540 HP28 HPC L5P2CC
* SECTOR 14 MM1
ORG 1,14,,177,1,14,377
1 14 0 177 00 1 14 377 L5P2CC HOP HP29
1 14 377 551003550 HP29 HPC L5P2DD
* SECTOR 15 MM1
ORG 1,15,,7,1,15,177
1 15 0 007 00 1 15 177 L5P2DD HOP HP30
1 15 177 561000360 HP30 HPC L5P2EE
* SECTOR 16 MM1
ORG 1,16,1,,1,16,100
1 16 1 000 00 1 16 100 L5P2EE HOP HP31
1 16 100 571176770 HP31 HPC L5P2FF
* SECTOR 17 MM1
ORG 1,17,1,375,1,17,77
1 17 1 375 00 1 17 077 L5P2FF HOP HP32
1 17 077 130074000 HP32 HPC L5P3
# PAGE 12, SEQUENCE 5060-5490
PAGE 012
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
* BEGIN CHECK OF TRANSFER CLASS INSTRUCTIONS.
ORG ,,,373,,13,
0 00 0 373 10 0 13 226 TRA L5P7A
* TEST TRA TO SYLL 1
ORG ,,1,373,,13,
0 00 1 373 17 0 13 152 500000000 L5P7 CLA =O500000000
0 00 1 374 10 0 13 226 TRA L5P7A
* TEST TMI INSTRUCTION.
ORG ,,,170,,13,
0 00 0 170 17 0 13 000 L5P3 CLA H5P3
0 00 0 171 13 0 13 1 070 STO VAR1
0 00 0 172 17 0 13 001 CLA H5P4
0 00 0 173 13 0 13 1 071 STO VAR2
0 00 0 174 17 0 13 153 400000000 CLA =O400000000
0 00 0 175 14 0 13 177 TMI L5P4
0 00 0 176 00 0 13 1 026 HOP H95P1
* TEST TNZ INSTRUCTION.
0 00 0 177 17 0 13 001 L5P4 CLA H5P4
0 00 0 200 13 0 13 1 070 STO VAR1
0 00 0 201 17 0 13 002 CLA H5P5
0 00 0 202 13 0 13 1 071 STO VAR2
0 00 0 203 17 0 13 133 000000002 CLA =O000000002
0 00 0 204 04 0 13 206 TNZ L5P5
0 00 0 205 00 0 13 1 026 HOP H95P1
* TEST TMI WITH CLEARED ACCUMULATOR.
0 00 0 206 17 0 13 002 L5P5 CLA H5P5
0 00 0 207 13 0 13 1 070 STO VAR1
0 00 0 210 17 0 13 003 CLA H5P6
0 00 0 211 13 0 13 1 071 STO VAR2
0 00 0 212 17 0 13 154 000000000 CLA =O000000000
0 00 0 213 14 0 13 227 TMI L15P1L
0 00 0 214 10 0 13 216 TRA L5P6
0 00 0 215 00 0 13 1 026 HOP H95P1
* TEST TNZ WITH CLEARED ACCUMULATOR.
0 00 0 216 17 0 13 003 L5P6 CLA H5P6
0 00 0 217 13 0 13 1 070 STO VAR1
0 00 0 220 17 0 13 004 CLA H5P7
0 00 0 221 13 0 13 1 071 STO VAR2
0 00 0 222 17 0 13 154 000000000 CLA =O000000000
0 00 0 223 04 0 13 227 TNZ L15P1L
0 00 0 224 10 0 13 1 373 TRA L5P7
0 00 0 225 00 0 13 1 026 HOP H95P1
0 00 0 226 14 0 13 230 L5P7A TMI L6P1
0 00 0 227 00 0 13 155 160000560 L15P1L TRA* L95P1
# PAGE 13, SEQUENCE 5510-5810
PAGE 013
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
* BEGINNING OF ROUTINE TWO
* OPERATION OF STO - ALL ONES.
0 00 0 230 17 0 13 1 055 L6P1 CLA LCR2
0 00 0 231 14 0 13 235 TMI L6P2 TO ROUTINE 2
0 00 0 232 04 0 13 234 TNZ L6P1A
0 00 0 233 10 0 13 016 TRA L2P1
0 00 0 234 00 0 13 156 140057610 L6P1A TRA* L9P1
0 00 0 235 17 0 13 006 L6P2 CLA H6P2
0 00 0 236 13 0 13 1 070 STO VAR1
0 00 0 237 17 0 13 007 CLA H6P3
0 00 0 240 13 0 13 1 071 STO VAR2
0 00 0 241 17 0 13 157 777777776 CLA =O777777776
0 00 0 242 04 0 13 244 TNZ *+2
0 00 0 243 00 0 13 155 160000560 TRA* L95P1
0 00 0 244 13 0 13 1 077 STO TEMP1
0 00 0 245 17 0 13 154 000000000 CLA =O000000000
0 00 0 246 17 0 13 1 077 CLA TEMP1
0 00 0 247 04 0 13 251 TNZ L6P2A
0 00 0 250 00 0 13 155 160000560 TRA* L95P1
0 00 0 251 07 0 13 133 000000002 L6P2A ADD =O000000002
0 00 0 252 04 0 13 1 173 TNZ L15P1K
* CHECK STO WITH ALL ZEROS.
0 00 0 253 17 0 13 007 L6P3 CLA H6P3
0 00 0 254 13 0 13 1 070 STO VAR1
0 00 0 255 17 0 13 010 CLA H6P4
0 00 0 256 13 0 13 1 071 STO VAR2
0 00 0 257 17 0 13 154 000000000 CLA =O000000000
0 00 0 260 13 0 13 1 077 STO TEMP1
0 00 0 261 17 0 13 157 777777776 CLA =O777777776
0 00 0 262 17 0 13 1 077 CLA TEMP1
0 00 0 263 04 0 13 1 173 TNZ L15P1K
# PAGE 14, SEQUENCE 5830-6390
PAGE 014
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
* CAN ACCUMULATOR BE FILLED BY ADD.
0 00 0 264 17 0 13 010 L6P4 CLA H6P4
0 00 0 265 13 0 13 1 070 STO VAR1
0 00 0 266 17 0 13 011 CLA H6P5
0 00 0 267 13 0 13 1 071 STO VAR2
0 00 0 270 17 0 13 154 000000000 CLA =O000000000
0 00 0 271 07 0 13 157 777777776 ADD =O777777776
0 00 0 272 04 0 13 274 TNZ *+2
0 00 0 273 10 0 13 1 173 TRA L15P1K
0 00 0 274 02 0 13 157 777777776 SUB =O777777776
0 00 0 275 04 0 13 1 173 TNZ L15P1K
* CAN ACCUMULATOR BE CHANGED BY ADDING ZERO
0 00 0 276 17 0 13 011 L6P5 CLA H6P5
0 00 0 277 13 0 13 1 070 STO VAR1
0 00 0 300 17 0 13 012 CLA H6P6
0 00 0 301 13 0 13 1 071 STO VAR2
0 00 0 302 17 0 13 157 777777776 CLA =O777777776
0 00 0 303 07 0 13 154 000000000 ADD =O000000000
0 00 0 304 02 0 13 157 777777776 SUB =O777777776
0 00 0 305 04 0 13 1 173 TNZ L15P1K
* CAN ACCUMULATOR BE CLEARED BY ADD.
0 00 0 306 17 0 13 012 L6P6 CLA H6P6
0 00 0 307 13 0 13 1 070 STO VAR1
0 00 0 310 17 0 13 013 CLA H6P7
0 00 0 311 13 0 13 1 071 STO VAR2
0 00 0 312 17 0 13 157 777777776 CLA =O777777776
0 00 0 313 07 0 13 133 000000002 ADD =O000000002
0 00 0 314 04 0 13 1 173 TNZ L15P1K
* SAME AS L5P5 EXCEPT CONSTANTS REVERSED.
0 00 0 315 17 0 13 013 L6P7 CLA H6P7
0 00 0 316 13 0 13 1 070 STO VAR1
0 00 0 317 17 0 13 014 CLA H6P8
0 00 0 320 13 0 13 1 071 STO VAR2
0 00 0 321 17 0 13 133 000000002 CLA =O000000002
0 00 0 322 07 0 13 157 777777776 ADD =O777777776
0 00 0 323 04 0 13 1 173 TNZ L15P1K
0 00 0 324 10 0 13 325 TRA L6P8
* CHECK FOR CHANGE OF SIGN BIT.
0 00 0 325 17 0 13 014 L6P8 CLA H6P8
0 00 0 326 13 0 13 1 070 STO VAR1
0 00 0 327 17 0 13 015 CLA H6P9
0 00 0 330 13 0 13 1 071 STO VAR2
0 00 0 331 17 0 13 160 200000000 CLA =O200000000
0 00 0 332 07 0 13 160 200000000 ADD =O200000000
0 00 0 333 14 0 13 335 TMI L6P9
0 00 0 334 10 0 13 1 173 TRA L15P1K
* SAME AS L5P7.
0 00 0 335 17 0 13 015 L6P9 CLA H6P9
0 00 0 336 13 0 13 1 070 STO VAR1
0 00 0 337 17 0 13 016 CLA H6P10
0 00 0 340 13 0 13 1 071 STO VAR2
0 00 0 341 17 0 13 153 400000000 CLA =O400000000
0 00 0 342 07 0 13 153 400000000 ADD =O400000000
0 00 0 343 14 0 13 1 173 TMI L15P1K
* ALL BIT COMBINATIONS ON ADD
0 00 0 344 17 0 13 016 L6P10 CLA H6P10
0 00 0 345 13 0 13 1 070 STO VAR1
# PAGE 15, SEQUENCE 6400-6450
PAGE 015
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 00 0 346 17 0 13 017 CLA H6P11
0 00 0 347 13 0 13 1 071 STO VAR2
0 00 0 350 17 0 13 161 252642550 CLA =O252642550
0 00 0 351 07 0 13 162 107301660 ADD =O107301660
0 00 0 352 02 0 13 163 362144430 SUB =O362144430
0 00 0 353 04 0 13 1 173 TNZ L15P1K
# PAGE 16, SEQUENCE 6470-7020
PAGE 016
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
* CHECK SIMPLE SUBTRACTION.
0 00 0 354 17 0 13 017 L6P11 CLA H6P11
0 00 0 355 13 0 13 1 070 STO VAR1
0 00 0 356 17 0 13 020 CLA H6P12
0 00 0 357 13 0 13 1 071 STO VAR2
0 00 0 360 17 0 13 153 400000000 CLA =O400000000
0 00 0 361 02 0 13 153 400000000 SUB =O400000000
0 00 0 362 04 0 13 1 173 TNZ L15P1K
* CHECK SUBTRACTION OF LOW ORDER BIT
0 00 0 363 17 0 13 020 L6P12 CLA H6P12
0 00 0 364 13 0 13 1 070 STO VAR1
0 00 0 365 17 0 13 021 CLA H6P13
0 00 0 366 13 0 13 1 071 STO VAR2
0 00 0 367 17 0 13 133 000000002 CLA =O000000002
0 00 0 370 02 0 13 133 000000002 SUB =O000000002
0 00 0 371 04 0 13 1 173 TNZ L15P1K
# The following line appears in the original assembly listing,
# but was generated by the assembler rather than being source
# code. It is thus commented-out here. I can't yet get the
# modern assembler to auto-insert the TRA** here, so the
# 2 lines after the commented-out TRA** have been added
# as a workaround.
# TRA** GENERATED TRANSFER
0 00 0 372 10 0 13 374 TRA WKRND1 # workaround
ORG 0,0,0,374,0,13, # workaround
0 00 0 374 10 0 13 1 000 WKRND1 TRA L6P13 # the lhs is a workaround
* SUBTRACT ALL ODD BITS.
ORG ,,1,,,13,
0 00 1 000 17 0 13 021 L6P13 CLA H6P13
0 00 1 001 13 0 13 1 070 STO VAR1
0 00 1 002 17 0 13 022 CLA H6P14
0 00 1 003 13 0 13 1 071 STO VAR2
0 00 1 004 17 0 13 164 525252524 CLA =O525252524
0 00 1 005 02 0 13 164 525252524 SUB =O525252524
0 00 1 006 04 0 13 1 173 TNZ L15P1K
* SUBTRACT ALL EVEN BITS.
0 00 1 007 17 0 13 022 L6P14 CLA H6P14
0 00 1 010 13 0 13 1 070 STO VAR1
0 00 1 011 17 0 13 023 CLA H6P15
0 00 1 012 13 0 13 1 071 STO VAR2
0 00 1 013 17 0 13 165 252525252 CLA =O252525252
0 00 1 014 02 0 13 165 252525252 SUB =O252525252
0 00 1 015 04 0 13 1 173 TNZ L15P1K
* FILL ACCUMULATOR WITH SUBTRACT.
0 00 1 016 17 0 13 023 L6P15 CLA H6P15
0 00 1 017 13 0 13 1 070 STO VAR1
0 00 1 020 17 0 13 024 CLA H6P16
0 00 1 021 13 0 13 1 071 STO VAR2
0 00 1 022 17 0 13 154 000000000 CLA =O000000000
0 00 1 023 02 0 13 133 000000002 SUB =O000000002
0 00 1 024 02 0 13 157 777777776 SUB =O777777776
0 00 1 025 04 0 13 1 173 TNZ L15P1K
* CHECK SUBTRACT ZERO.
0 00 1 026 17 0 13 024 L6P16 CLA H6P16
0 00 1 027 13 0 13 1 070 STO VAR1
0 00 1 030 17 0 13 025 CLA H6P17
0 00 1 031 13 0 13 1 071 STO VAR2
0 00 1 032 17 0 13 154 000000000 CLA =O000000000
0 00 1 033 02 0 13 154 000000000 SUB =O000000000
0 00 1 034 04 0 13 1 173 TNZ L15P1K
* SUB - ALL COMBINATIONS
0 00 1 035 17 0 13 025 L6P17 CLA H6P17
0 00 1 036 13 0 13 1 070 STO VAR1
0 00 1 037 17 0 13 026 CLA H6P18
0 00 1 040 13 0 13 1 071 STO VAR2
# PAGE 17, SEQUENCE 7030-7550
PAGE 017
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 00 1 041 17 0 13 166 046453224 CLA =O046453224
0 00 1 042 02 0 13 167 114722350 SUB =O114722350
0 00 1 043 02 0 13 170 731530654 SUB =O731530654
0 00 1 044 04 0 13 1 173 TNZ L15P1K
* CHECK AND FOR CLEARING ACCUMULATOR.
0 00 1 045 17 0 13 026 L6P18 CLA H6P18
0 00 1 046 13 0 13 1 070 STO VAR1
0 00 1 047 17 0 13 027 CLA H6P19
0 00 1 050 13 0 13 1 071 STO VAR2
0 00 1 051 17 0 13 164 525252524 CLA =O525252524
0 00 1 052 06 0 13 165 252525252 AND =O252525252
0 00 1 053 04 0 13 1 173 TNZ L15P1K
* CHECK FOR EVEN BITS.
0 00 1 054 17 0 13 027 L6P19 CLA H6P19
0 00 1 055 13 0 13 1 070 STO VAR1
0 00 1 056 17 0 13 030 CLA H6P20
0 00 1 057 13 0 13 1 071 STO VAR2
0 00 1 060 17 0 13 165 252525252 CLA =O252525252
0 00 1 061 06 0 13 164 525252524 AND =O525252524
0 00 1 062 04 0 13 1 173 TNZ L15P1K
* CHECK FOR ABILITY TO RETAIN ACCUMULATOR
0 00 1 063 17 0 13 030 L6P20 CLA H6P20
0 00 1 064 13 0 13 1 070 STO VAR1
0 00 1 065 17 0 13 031 CLA H6P21
0 00 1 066 13 0 13 1 071 STO VAR2
0 00 1 067 17 0 13 157 777777776 CLA =O777777776
0 00 1 070 06 0 13 157 777777776 AND =O777777776
0 00 1 071 02 0 13 157 777777776 SUB =O777777776
0 00 1 072 04 0 13 1 173 TNZ L15P1K
* CHECK AND ZERO TO CHANGE ACCUMULATOR
0 00 1 073 17 0 13 031 L6P21 CLA H6P21
0 00 1 074 13 0 13 1 070 STO VAR1
0 00 1 075 17 0 13 032 CLA H6P22
0 00 1 076 13 0 13 1 071 STO VAR2
0 00 1 077 17 0 13 154 000000000 CLA =O000000000
0 00 1 100 06 0 13 154 000000000 AND =O000000000
0 00 1 101 04 0 13 1 173 TNZ L15P1K
* CHECK AND ZERO TO CLEAR ACCUMULATOR
0 00 1 102 17 0 13 032 L6P22 CLA H6P22
0 00 1 103 13 0 13 1 070 STO VAR1
0 00 1 104 17 0 13 033 CLA H6P23
0 00 1 105 13 0 13 1 071 STO VAR2
0 00 1 106 17 0 13 157 777777776 CLA =O777777776
0 00 1 107 06 0 13 154 000000000 AND =O000000000
0 00 1 110 04 0 13 1 173 TNZ L15P1K
* CHECK AND OF ALL BITS.
0 00 1 111 17 0 13 033 L6P23 CLA H6P23
0 00 1 112 13 0 13 1 070 STO VAR1
0 00 1 113 17 0 13 034 CLA H7P1
0 00 1 114 13 0 13 1 071 STO VAR2
0 00 1 115 17 0 13 154 000000000 CLA =O000000000
0 00 1 116 06 0 13 157 777777776 AND =O777777776
0 00 1 117 04 0 13 1 173 TNZ L15P1K
# PAGE 18, SEQUENCE 7570-8130
PAGE 018
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
* CHECK XOR OF ALL BITS.
0 00 1 120 17 0 13 034 L7P1 CLA H7P1
0 00 1 121 13 0 13 1 070 STO VAR1
0 00 1 122 17 0 13 035 CLA H7P2
0 00 1 123 13 0 13 1 071 STO VAR2
0 00 1 124 17 0 13 157 777777776 CLA =O777777776
0 00 1 125 15 0 13 157 777777776 XOR =O777777776
0 00 1 126 04 0 13 1 173 TNZ L15P1K
* CHECK XOR WITH ALL ZEROS.
0 00 1 127 17 0 13 035 L7P2 CLA H7P2
0 00 1 130 13 0 13 1 070 STO VAR1
0 00 1 131 17 0 13 036 CLA H7P3
0 00 1 132 13 0 13 1 071 STO VAR2
0 00 1 133 17 0 13 154 000000000 CLA =O000000000
0 00 1 134 15 0 13 154 000000000 XOR =O000000000
0 00 1 135 04 0 13 1 173 TNZ L15P1K
* CHECK SIGN BITS.
0 00 1 136 17 0 13 036 L7P3 CLA H7P3
0 00 1 137 13 0 13 1 070 STO VAR1
0 00 1 140 17 0 13 037 CLA H7P4
0 00 1 141 13 0 13 1 071 STO VAR2
0 00 1 142 17 0 13 153 400000000 CLA =O400000000
0 00 1 143 15 0 13 153 400000000 XOR =O400000000
0 00 1 144 04 0 13 1 173 TNZ L15P1K
* CHECK ALL BUT SIGN BITS.
0 00 1 145 17 0 13 037 L7P4 CLA H7P4
0 00 1 146 13 0 13 1 070 STO VAR1
0 00 1 147 17 0 13 040 CLA H7P5
0 00 1 150 13 0 13 1 071 STO VAR2
0 00 1 151 17 0 13 171 377777776 CLA =O377777776
0 00 1 152 15 0 13 171 377777776 XOR =O377777776
0 00 1 153 04 0 13 1 173 TNZ L15P1K
* CHECK LOW ORDER BITS.
0 00 1 154 17 0 13 040 L7P5 CLA H7P5
0 00 1 155 13 0 13 1 070 STO VAR1
0 00 1 156 17 0 13 041 CLA H7P6
0 00 1 157 13 0 13 1 071 STO VAR2
0 00 1 160 17 0 13 133 000000002 CLA =O000000002
0 00 1 161 15 0 13 133 000000002 XOR =O000000002
0 00 1 162 04 0 13 1 173 TNZ L15P1K
* CHECK LOW ORDER BIT WITH ZEROS.
0 00 1 163 17 0 13 041 L7P6 CLA H7P6
0 00 1 164 13 0 13 1 070 STO VAR1
0 00 1 165 17 0 13 042 CLA H7P7
0 00 1 166 13 0 13 1 071 STO VAR2
0 00 1 167 17 0 13 172 777777774 CLA =O777777774
0 00 1 170 15 0 13 172 777777774 XOR =O777777774
0 00 1 171 04 0 13 1 173 TNZ L15P1K
0 00 1 172 10 0 13 1 174 TRA L7P7
0 00 1 173 00 0 13 155 160000560 L15P1K TRA* L95P1
* CHECK ALL ODD BITS
0 00 1 174 17 0 13 042 L7P7 CLA H7P7
0 00 1 175 13 0 13 1 070 STO VAR1
0 00 1 176 17 0 13 043 CLA H7P8
0 00 1 177 13 0 13 1 071 STO VAR2
0 00 1 200 17 0 13 164 525252524 CLA =O525252524
0 00 1 201 15 0 13 164 525252524 XOR =O525252524
# PAGE 19, SEQUENCE 8140-8700
PAGE 019
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 00 1 202 04 0 13 1 173 TNZ L15P1K
* CHECK ALL EVEN BITS
0 00 1 203 17 0 13 043 L7P8 CLA H7P8
0 00 1 204 13 0 13 1 070 STO VAR1
0 00 1 205 17 0 13 044 CLA H7P9
0 00 1 206 13 0 13 1 071 STO VAR2
0 00 1 207 17 0 13 165 252525252 CLA =O252525252
0 00 1 210 15 0 13 165 252525252 XOR =O252525252
0 00 1 211 04 0 13 1 173 TNZ L15P1K
* FILL ACCUMULATOR WITH XOR.
0 00 1 212 17 0 13 044 L7P9 CLA H7P9
0 00 1 213 13 0 13 1 070 STO VAR1
0 00 1 214 17 0 13 045 CLA H7P10
0 00 1 215 13 0 13 1 071 STO VAR2
0 00 1 216 17 0 13 157 777777776 CLA =O777777776
0 00 1 217 15 0 13 154 000000000 XOR =O000000000
0 00 1 220 02 0 13 157 777777776 SUB =O777777776
0 00 1 221 04 0 13 1 173 TNZ L15P1K
* SAME AS L7P9
0 00 1 222 17 0 13 045 L7P10 CLA H7P10
0 00 1 223 13 0 13 1 070 STO VAR1
0 00 1 224 17 0 13 046 CLA H7P11
0 00 1 225 13 0 13 1 071 STO VAR2
0 00 1 226 17 0 13 154 000000000 CLA =O000000000
0 00 1 227 15 0 13 157 777777776 XOR =O777777776
0 00 1 230 02 0 13 157 777777776 SUB =O777777776
0 00 1 231 04 0 13 1 173 TNZ L15P1K
* SAME AS L7P9 WITH ODD BITS
0 00 1 232 17 0 13 046 L7P11 CLA H7P11
0 00 1 233 13 0 13 1 070 STO VAR1
0 00 1 234 17 0 13 047 CLA H7P12
0 00 1 235 13 0 13 1 071 STO VAR2
0 00 1 236 17 0 13 164 525252524 CLA =O525252524
0 00 1 237 15 0 13 165 252525252 XOR =O252525252
0 00 1 240 02 0 13 157 777777776 SUB =O777777776
0 00 1 241 04 0 13 1 173 TNZ L15P1K
* SAME AS L7P9 WITH EVEN BITS
0 00 1 242 17 0 13 047 L7P12 CLA H7P12
0 00 1 243 13 0 13 1 070 STO VAR1
0 00 1 244 17 0 13 050 CLA H7P13
0 00 1 245 13 0 13 1 071 STO VAR2
0 00 1 246 17 0 13 165 252525252 CLA =O252525252
0 00 1 247 15 0 13 164 525252524 XOR =O525252524
0 00 1 250 02 0 13 157 777777776 SUB =O777777776
0 00 1 251 04 0 13 1 173 TNZ L15P1K
* CHECK RSU
0 00 1 252 17 0 13 050 L7P13 CLA H7P13
0 00 1 253 13 0 13 1 070 STO VAR1
0 00 1 254 17 0 13 051 CLA H7P14
0 00 1 255 13 0 13 1 071 STO VAR2
0 00 1 256 17 0 13 157 777777776 CLA =O777777776
0 00 1 257 03 0 13 172 777777774 RSU =O777777774
0 00 1 260 02 0 13 157 777777776 SUB =O777777776
0 00 1 261 04 0 13 1 173 TNZ L15P1K
* CHECK RSU
0 00 1 262 17 0 13 051 L7P14 CLA H7P14
0 00 1 263 13 0 13 1 070 STO VAR1
# PAGE 20, SEQUENCE 8710-9260
PAGE 020
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 00 1 264 17 0 13 052 CLA H7P15
0 00 1 265 13 0 13 1 071 STO VAR2
0 00 1 266 17 0 13 133 000000002 CLA =O000000002
0 00 1 267 03 0 13 154 000000000 RSU =O000000000
0 00 1 270 02 0 13 157 777777776 SUB =O777777776
0 00 1 271 04 0 13 1 173 TNZ L15P1K
* CHECK RSU
0 00 1 272 17 0 13 052 L7P15 CLA H7P15
0 00 1 273 13 0 13 1 070 STO VAR1
0 00 1 274 17 0 13 053 CLA H7P16
0 00 1 275 13 0 13 1 071 STO VAR2
0 00 1 276 17 0 13 157 777777776 CLA =O777777776
0 00 1 277 03 0 13 157 777777776 RSU =O777777776
0 00 1 300 04 0 13 1 173 TNZ L15P1K
* CHECK RSU
0 00 1 301 17 0 13 053 L7P16 CLA H7P16
0 00 1 302 13 0 13 1 070 STO VAR1
0 00 1 303 17 0 13 054 CLA H7P17
0 00 1 304 13 0 13 1 071 STO VAR2
0 00 1 305 17 0 13 154 000000000 CLA =O000000000
0 00 1 306 03 0 13 154 000000000 RSU =O000000000
0 00 1 307 04 0 13 1 173 TNZ L15P1K
* CHECK RSU TO FILL AND CLEAR ACC.
0 00 1 310 17 0 13 054 L7P17 CLA H7P17
0 00 1 311 13 0 13 1 070 STO VAR1
0 00 1 312 17 0 13 055 CLA H7P18
0 00 1 313 13 0 13 1 071 STO VAR2
0 00 1 314 17 0 13 157 777777776 CLA =O777777776
0 00 1 315 03 0 13 154 000000000 RSU =O000000000
0 00 1 316 02 0 13 133 000000002 SUB =O000000002
0 00 1 317 04 0 13 1 173 TNZ L15P1K
* CHECK RSU
0 00 1 320 17 0 13 055 L7P18 CLA H7P18
0 00 1 321 13 0 13 1 070 STO VAR1
0 00 1 322 17 0 13 056 CLA H7P19
0 00 1 323 13 0 13 1 071 STO VAR2
0 00 1 324 17 0 13 173 331033100 CLA =O331033100
0 00 1 325 03 0 13 174 265026500 RSU =O265026500
0 00 1 326 02 0 13 175 733773400 SUB =O733773400
0 00 1 327 04 0 13 1 173 TNZ L15P1K
* BEGIN CHECK OF SHIFT INSTRUCTION.
* SHIFT OUT OF SIGN BIT.
0 00 1 330 17 0 13 056 L7P19 CLA H7P19
0 00 1 331 13 0 13 1 070 STO VAR1
0 00 1 332 17 0 13 057 CLA H7P20
0 00 1 333 13 0 13 1 071 STO VAR2
0 00 1 334 17 0 13 153 400000000 CLA =O400000000
0 00 1 335 16 0 13 001 SHL 1
0 00 1 336 04 0 13 1 173 TNZ L15P1K
* SHIFT THROUGH SIGN BIT.
0 00 1 337 17 0 13 057 L7P20 CLA H7P20
0 00 1 340 13 0 13 1 070 STO VAR1
0 00 1 341 17 0 13 060 CLA H7P21
0 00 1 342 13 0 13 1 071 STO VAR2
0 00 1 343 17 0 13 160 200000000 CLA =O200000000
# PAGE 21, SEQUENCE 9270-9770
PAGE 021
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 00 1 344 16 0 13 002 SHL 2
0 00 1 345 04 0 13 1 173 TNZ L15P1K
* CHECK SHIFT LEFT ONE OF ALL ODD BITS.
0 00 1 346 17 0 13 060 L7P21 CLA H7P21
0 00 1 347 13 0 13 1 070 STO VAR1
0 00 1 350 17 0 13 061 CLA H7P22
0 00 1 351 13 0 13 1 071 STO VAR2
0 00 1 352 17 0 13 164 525252524 CLA =O525252524
0 00 1 353 16 0 13 001 SHL 1
0 00 1 354 02 0 13 176 252525250 SUB =O252525250
0 00 1 355 04 0 13 1 173 TNZ L15P1K
* CHECK
0 00 1 356 17 0 13 061 L7P22 CLA H7P22
0 00 1 357 13 0 13 1 070 STO VAR1
0 00 1 360 17 0 13 062 CLA H7P23
0 00 1 361 13 0 13 1 071 STO VAR2
0 00 1 362 17 0 13 164 525252524 CLA =O525252524
0 00 1 363 16 0 13 002 SHL 2
0 00 1 364 02 0 13 177 525252520 SUB =O525252520
0 00 1 365 04 0 13 1 173 TNZ L15P1K
0 00 1 366 00 0 13 200 130001410 TRA* L7P23
* CHECK SHIFT LEFT ONE OF ALL EVEN BITS.
ORG ,1,,3,,13,
0 01 0 003 17 0 13 062 L7P23 CLA H7P23
0 01 0 004 13 0 13 1 070 STO VAR1
0 01 0 005 17 0 13 063 CLA H7P24
0 01 0 006 13 0 13 1 071 STO VAR2
0 01 0 007 17 0 13 165 252525252 CLA =O252525252
0 01 0 010 16 0 13 001 SHL 1
0 01 0 011 02 0 13 164 525252524 SUB =O525252524
0 01 0 012 04 0 13 234 TNZ L15P1J
* CHECK SHIFT LEFT TWO OF ALL EVEN BITS.
0 01 0 013 17 0 13 063 L7P24 CLA H7P24
0 01 0 014 13 0 13 1 070 STO VAR1
0 01 0 015 17 0 13 064 CLA H7P25
0 01 0 016 13 0 13 1 071 STO VAR2
0 01 0 017 17 0 13 165 252525252 CLA =O252525252
0 01 0 020 16 0 13 002 SHL 2
0 01 0 021 02 0 13 176 252525250 SUB =O252525250
0 01 0 022 04 0 13 234 TNZ L15P1J
* CHECK SHIFT LEFT ONE OF ALL BITS.
0 01 0 023 17 0 13 064 L7P25 CLA H7P25
0 01 0 024 13 0 13 1 070 STO VAR1
0 01 0 025 17 0 13 065 CLA H7P26
0 01 0 026 13 0 13 1 071 STO VAR2
0 01 0 027 17 0 13 157 777777776 CLA =O777777776
0 01 0 030 16 0 13 001 SHL 1
0 01 0 031 02 0 13 172 777777774 SUB =O777777774
0 01 0 032 04 0 13 234 TNZ L15P1J
* CHECK SHIFT LEFT TWO OF ALL BITS.
0 01 0 033 17 0 13 065 L7P26 CLA H7P26
# PAGE 22, SEQUENCE 9780-10000
PAGE 022
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 01 0 034 13 0 13 1 070 STO VAR1
0 01 0 035 17 0 13 066 CLA H7P27
0 01 0 036 13 0 13 1 071 STO VAR2
0 01 0 037 17 0 13 157 777777776 CLA =O777777776
0 01 0 040 16 0 13 002 SHL 2
0 01 0 041 02 0 13 201 777777770 SUB =O777777770
0 01 0 042 04 0 13 234 TNZ L15P1J
* CHECK CHECK SHIFT LEFT ONE OF ALL ZEROS.
0 01 0 043 17 0 13 066 L7P27 CLA H7P27
0 01 0 044 13 0 13 1 070 STO VAR1
0 01 0 045 17 0 13 067 CLA H7P28
0 01 0 046 13 0 13 1 071 STO VAR2
0 01 0 047 17 0 13 154 000000000 CLA =O000000000
0 01 0 050 16 0 13 001 SHL 1
0 01 0 051 04 0 13 234 TNZ L15P1J
* CHECK SHIFT LEFT TWO OF ALL ZEROS.
0 01 0 052 17 0 13 067 L7P28 CLA H7P28
0 01 0 053 13 0 13 1 070 STO VAR1
0 01 0 054 17 0 13 070 CLA H7P29
0 01 0 055 13 0 13 1 071 STO VAR2
0 01 0 056 17 0 13 154 000000000 CLA =O000000000
0 01 0 057 16 0 13 002 SHL 2
0 01 0 060 04 0 13 234 TNZ L15P1J
# PAGE 23, SEQUENCE 10020-10490
PAGE 023
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
* CHECK SHIFT BIT LEFT THROUGH ALL POSITIONS
0 01 0 061 17 0 13 070 L7P29 CLA H7P29
0 01 0 062 13 0 13 1 070 STO VAR1
0 01 0 063 17 0 13 071 CLA H7P30
0 01 0 064 13 0 13 1 071 STO VAR2
0 01 0 065 17 0 13 133 000000002 CLA =O000000002
SHL 25
0 01 0 066 16 0 13 040 + SHL 6
0 01 0 067 16 0 13 040 + SHL 6
0 01 0 070 16 0 13 040 + SHL 6
0 01 0 071 16 0 13 040 + SHL 6
0 01 0 072 16 0 13 001 + SHL 1
0 01 0 073 02 0 13 153 400000000 SUB =O400000000
0 01 0 074 04 0 13 234 TNZ L15P1J
* CHECK SHL3
0 01 0 075 17 0 13 071 L7P30 CLA H7P30
0 01 0 076 13 0 13 1 070 STO VAR1
0 01 0 077 17 0 13 072 CLA H7P31
0 01 0 100 13 0 13 1 071 STO VAR2
0 01 0 101 17 0 13 202 042104212 CLA =O042104212
0 01 0 102 16 0 13 004 SHL 3
0 01 0 103 15 0 13 203 421042120 XOR =O421042120
0 01 0 104 04 0 13 234 TNZ L15P1H
* CHECK SHL4
0 01 0 105 17 0 13 072 L7P31 CLA H7P31
0 01 0 106 13 0 13 1 070 STO VAR1
0 01 0 107 17 0 13 073 CLA H7P32
0 01 0 110 13 0 13 1 071 STO VAR2
0 01 0 111 17 0 13 204 020410206 CLA =O020410206
0 01 0 112 16 0 13 010 SHL 4
0 01 0 113 15 0 13 205 410204140 XOR =O410204140
0 01 0 114 04 0 13 234 TNZ L15P1H
* CHECK SHL5
0 01 0 115 17 0 13 073 L7P32 CLA H7P32
0 01 0 116 13 0 13 1 070 STO VAR1
0 01 0 117 17 0 13 074 CLA H7P33
0 01 0 120 13 0 13 1 071 STO VAR2
0 01 0 121 17 0 13 206 010101012 CLA =O010101012
0 01 0 122 16 0 13 020 SHL 5
0 01 0 123 15 0 13 207 404040500 XOR =O404040500
0 01 0 124 04 0 13 234 TNZ L15P1H
* CHECK SHL6
0 01 0 125 17 0 13 074 L7P33 CLA H7P33
0 01 0 126 13 0 13 1 070 STO VAR1
0 01 0 127 17 0 13 075 CLA H7P34
0 01 0 130 13 0 13 1 071 STO VAR2
0 01 0 131 17 0 13 210 004020102 CLA =O004020102
0 01 0 132 16 0 13 040 SHL 6
0 01 0 133 15 0 13 211 402010200 XOR =O402010200
0 01 0 134 04 0 13 234 TNZ L15P1H
* CHECK SHL6 EVEN BITS
0 01 0 135 17 0 13 075 L7P34 CLA H7P34
0 01 0 136 13 0 13 1 070 STO VAR1
# PAGE 24, SEQUENCE 10500-11000
PAGE 024
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 01 0 137 17 0 13 076 CLA H7P35
0 01 0 140 13 0 13 1 071 STO VAR2
0 01 0 141 17 0 13 165 252525252 CLA =O252525252
0 01 0 142 16 0 13 040 SHL 6
0 01 0 143 02 0 13 212 252525200 SUB =O252525200
0 01 0 144 04 0 13 234 TNZ L15P1H
* CHECK SHL6 ODD BITS
0 01 0 145 17 0 13 076 L7P35 CLA H7P35
0 01 0 146 13 0 13 1 070 STO VAR1
0 01 0 147 17 0 13 077 CLA H7P36
0 01 0 150 13 0 13 1 071 STO VAR2
0 01 0 151 17 0 13 164 525252524 CLA =O525252524
0 01 0 152 16 0 13 040 SHL 6
0 01 0 153 02 0 13 213 525252400 SUB =O525252400
0 01 0 154 04 0 13 234 TNZ L15P1H
* SHIFT OUT OF LOW ORDER BIT.
0 01 0 155 17 0 13 077 L7P36 CLA H7P36
0 01 0 156 13 0 13 1 070 STO VAR1
0 01 0 157 17 0 13 100 CLA H7P37
0 01 0 160 13 0 13 1 071 STO VAR2
0 01 0 161 17 0 13 133 000000002 CLA =O000000002
0 01 0 162 16 0 13 101 SHR 1
0 01 0 163 04 0 13 234 TNZ L15P1J
* SHIFT THROUGH LOW ORDER BIT.
0 01 0 164 17 0 13 100 L7P37 CLA H7P37
0 01 0 165 13 0 13 1 070 STO VAR1
0 01 0 166 17 0 13 101 CLA H7P38
0 01 0 167 13 0 13 1 071 STO VAR2
0 01 0 170 17 0 13 214 000000004 CLA =O000000004
0 01 0 171 16 0 13 102 SHR 2
0 01 0 172 04 0 13 234 TNZ L15P1J
* CHECK SHIFT RIGHT ONE OF ALL ODD BITS.
0 01 0 173 17 0 13 101 L7P38 CLA H7P38
0 01 0 174 13 0 13 1 070 STO VAR1
0 01 0 175 17 0 13 102 CLA H7P39
0 01 0 176 13 0 13 1 071 STO VAR2
0 01 0 177 17 0 13 164 525252524 CLA =O525252524
0 01 0 200 16 0 13 101 SHR 1
0 01 0 201 02 0 13 215 652525252 SUB =O652525252
0 01 0 202 04 0 13 234 TNZ L15P1J
* CHECK SHIFT RIGHT TWO OF ALL ODD BITS.
0 01 0 203 17 0 13 102 L7P39 CLA H7P39
0 01 0 204 13 0 13 1 070 STO VAR1
0 01 0 205 17 0 13 103 CLA H7P40
0 01 0 206 13 0 13 1 071 STO VAR2
0 01 0 207 17 0 13 164 525252524 CLA =O525252524
0 01 0 210 16 0 13 102 SHR 2
0 01 0 211 02 0 13 216 725252524 SUB =O725252524
0 01 0 212 04 0 13 234 TNZ L15P1J
* CHECK SHIFT RIGHT ONE OF ALL EVEN BITS.
0 01 0 213 17 0 13 103 L7P40 CLA H7P40
# PAGE 25, SEQUENCE 11010-11520
PAGE 025
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 01 0 214 13 0 13 1 070 STO VAR1
0 01 0 215 17 0 13 104 CLA H7P41
0 01 0 216 13 0 13 1 071 STO VAR2
0 01 0 217 17 0 13 165 252525252 CLA =O252525252
0 01 0 220 16 0 13 101 SHR 1
0 01 0 221 02 0 13 217 125252524 SUB =O125252524
0 01 0 222 04 0 13 234 TNZ L15P1J
* CHECK SHIFT RIGHT TWO OF ALL EVEN BITS.
0 01 0 223 17 0 13 104 L7P41 CLA H7P41
0 01 0 224 13 0 13 1 070 STO VAR1
0 01 0 225 17 0 13 105 CLA H7P42
0 01 0 226 13 0 13 1 071 STO VAR2
0 01 0 227 17 0 13 165 252525252 CLA =O252525252
0 01 0 230 16 0 13 102 SHR 2
0 01 0 231 02 0 13 220 052525252 SUB =O052525252
0 01 0 232 04 0 13 234 TNZ L15P1J
0 01 0 233 10 0 13 235 TRA L7P42
0 01 0 234 00 0 13 155 160000560 L15P1J TRA* L95P1
L15P1H SYN L15P1J
* CHECK SHIFT RIGHT ONE OF ALL BITS.
0 01 0 235 17 0 13 105 L7P42 CLA H7P42
0 01 0 236 13 0 13 1 070 STO VAR1
0 01 0 237 17 0 13 106 CLA H7P43
0 01 0 240 13 0 13 1 071 STO VAR2
0 01 0 241 17 0 13 157 777777776 CLA =O777777776
0 01 0 242 16 0 13 101 SHR 1
0 01 0 243 02 0 13 157 777777776 SUB =O777777776
0 01 0 244 04 0 13 234 TNZ L15P1J
* CHECK SHIFT RIGHT TWO OF ALL BITS.
0 01 0 245 17 0 13 106 L7P43 CLA H7P43
0 01 0 246 13 0 13 1 070 STO VAR1
0 01 0 247 17 0 13 107 CLA H7P44
0 01 0 250 13 0 13 1 071 STO VAR2
0 01 0 251 17 0 13 157 777777776 CLA =O777777776
0 01 0 252 16 0 13 102 SHR 2
0 01 0 253 02 0 13 157 777777776 SUB =O777777776
0 01 0 254 04 0 13 234 TNZ L15P1J
* CHECK SHIFT RIGHT ONE OF ALL ZEROS.
0 01 0 255 17 0 13 107 L7P44 CLA H7P44
0 01 0 256 13 0 13 1 070 STO VAR1
0 01 0 257 17 0 13 110 CLA H7P45
0 01 0 260 13 0 13 1 071 STO VAR2
0 01 0 261 17 0 13 154 000000000 CLA =O000000000
0 01 0 262 16 0 13 101 SHR 1
0 01 0 263 04 0 13 234 TNZ L15P1J
* CHECK SHIFT RIGHT TWO OF ALL ZEROS.
0 01 0 264 17 0 13 110 L7P45 CLA H7P45
0 01 0 265 13 0 13 1 070 STO VAR1
0 01 0 266 17 0 13 111 CLA H7P46
0 01 0 267 13 0 13 1 071 STO VAR2
0 01 0 270 17 0 13 154 000000000 CLA =O000000000
# PAGE 26, SEQUENCE 11530-11990
PAGE 026
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 01 0 271 16 0 13 102 SHR 2
0 01 0 272 04 0 13 234 TNZ L15P1J
* SHIFT BIT RIGHT THROUGH ALL POSITIONS.
0 01 0 273 17 0 13 111 L7P46 CLA H7P46
0 01 0 274 13 0 13 1 070 STO VAR1
0 01 0 275 17 0 13 112 CLA H7P47
0 01 0 276 13 0 13 1 071 STO VAR2
0 01 0 277 17 0 13 153 400000000 CLA =O400000000
SHR 25
0 01 0 300 16 0 13 140 + SHR 6
0 01 0 301 16 0 13 140 + SHR 6
0 01 0 302 16 0 13 140 + SHR 6
0 01 0 303 16 0 13 140 + SHR 6
0 01 0 304 16 0 13 101 + SHR 1
0 01 0 305 02 0 13 157 777777776 SUB =O777777776
0 01 0 306 04 0 13 234 TNZ L15P1J
* CHECK SHR3
0 01 0 307 17 0 13 112 L7P47 CLA H7P47
0 01 0 310 13 0 13 1 070 STO VAR1
0 01 0 311 17 0 13 113 CLA H7P48
0 01 0 312 13 0 13 1 071 STO VAR2
0 01 0 313 17 0 13 221 210421042 CLA =O210421042
0 01 0 314 16 0 13 104 SHR 3
0 01 0 315 15 0 13 222 021042104 XOR =O021042104
0 01 0 316 04 0 13 234 TNZ L15P1H
* CHECK SHR4
0 01 0 317 17 0 13 113 L7P48 CLA H7P48
0 01 0 320 13 0 13 1 070 STO VAR1
0 01 0 321 17 0 13 114 CLA H7P49
0 01 0 322 13 0 13 1 071 STO VAR2
0 01 0 323 17 0 13 223 214102040 CLA =O214102040
0 01 0 324 16 0 13 110 SHR 4
0 01 0 325 15 0 13 224 010604102 XOR =O010604102
0 01 0 326 04 0 13 234 TNZ L15P1H
* CHECK SHR5
0 01 0 327 17 0 13 114 L7P49 CLA H7P49
0 01 0 330 13 0 13 1 070 STO VAR1
0 01 0 331 17 0 13 115 CLA H7P50
0 01 0 332 13 0 13 1 071 STO VAR2
0 01 0 333 17 0 13 225 202020200 CLA =O202020200
0 01 0 334 16 0 13 120 SHR 5
0 01 0 335 15 0 13 226 004040404 XOR =O004040404
0 01 0 336 04 0 13 234 TNZ L15P1H
* CHECK SHR6
0 01 0 337 17 0 13 115 L7P50 CLA H7P50
0 01 0 340 13 0 13 1 070 STO VAR1
0 01 0 341 17 0 13 116 CLA H7P51
0 01 0 342 13 0 13 1 071 STO VAR2
0 01 0 343 17 0 13 227 201004220 CLA =O201004220
0 01 0 344 16 0 13 140 SHR 6
0 01 0 345 15 0 13 230 002010042 XOR =O002010042
0 01 0 346 04 0 13 234 TNZ L15P1H
# PAGE 27, SEQUENCE 12000-12490
PAGE 027
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
* CHECK SHR6 EVEN BITS
0 01 0 347 17 0 13 116 L7P51 CLA H7P51
0 01 0 350 13 0 13 1 070 STO VAR1
0 01 0 351 17 0 13 117 CLA H7P52
0 01 0 352 13 0 13 1 071 STO VAR2
0 01 0 353 17 0 13 165 252525252 CLA =O252525252
0 01 0 354 16 0 13 140 SHR 6
0 01 0 355 02 0 13 231 002525252 SUB =O002525252
0 01 0 356 04 0 13 234 TNZ L15P1H
* CHECK SHR6 ODD BITS
0 01 0 357 17 0 13 117 L7P52 CLA H7P52
0 01 0 360 13 0 13 1 070 STO VAR1
0 01 0 361 17 0 13 120 CLA H7P53
0 01 0 362 13 0 13 1 071 STO VAR2
0 01 0 363 17 0 13 164 525252524 CLA =O525252524
0 01 0 364 16 0 13 140 SHR 6
0 01 0 365 02 0 13 232 775252524 SUB =O775252524
0 01 0 366 04 0 13 234 TNZ L15P1H
0 01 0 367 10 0 13 1 002 TRA L7P53
* CHECK CDS
ORG ,1,1,2,,13,
0 01 1 002 17 0 13 120 L7P53 CLA H7P53
0 01 1 003 13 0 13 1 070 STO VAR1
0 01 1 004 17 0 13 121 CLA H7P54
0 01 1 005 13 0 13 1 071 STO VAR2
0 01 1 006 17 0 13 154 000000000 CLA =O000000000
0 01 1 007 16 0 13 227 CDS 1,07
0 01 1 010 17 1 07 375 CLA KMA
0 01 1 011 16 1 07 210 CDS 0,10
0 01 1 012 14 0 10 1 015 TMI L15P1T
0 01 1 013 16 0 10 001 SHL 1
0 01 1 014 14 0 10 1 016 TMI *+2
0 01 1 015 00 0 10 374 130116010 L15P1T TRA* L15P1H
0 01 1 016 17 0 10 375 CLA KMB
0 01 1 017 14 0 10 1 021 TMI *+2
0 01 1 020 10 0 10 1 015 TRA L15P1T
0 01 1 021 16 0 10 002 SHL 2
0 01 1 022 14 0 10 1 024 TMI *+2
0 01 1 023 10 0 10 1 015 TRA L15P1T
0 01 1 024 16 0 10 001 SHL 1
0 01 1 025 04 0 10 1 015 TNZ L15P1T
0 01 1 026 16 0 10 200 CDS 0,0
0 01 1 027 17 0 00 375 CLA KMR
0 01 1 030 16 0 00 213 CDS 0,13
0 01 1 031 16 0 13 002 SHL 2
0 01 1 032 14 0 13 234 TMI L15P1H
0 01 1 033 04 0 13 1 035 TNZ *+2
0 01 1 034 10 0 13 234 TRA L15P1H
0 01 1 035 16 0 13 002 SHL 2
0 01 1 036 04 0 13 234 TNZ L15P1H
# PAGE 28, SEQUENCE 12500-13060
PAGE 028
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
* CHECK HOP SAVE CONSTANT
0 01 1 037 00 0 13 233 130007430 TRA* L7P54
ORG ,3,,17,,13,
0 03 0 017 13 0 13 1 376 L7P54 STO 776
0 03 0 020 17 0 13 121 CLA H7P54
0 03 0 021 13 0 13 1 070 STO VAR1
0 03 0 022 17 0 13 122 CLA H7P54B
# The following line was not present in the original code. It is
# here as a workaround because I've been unable to figure out how
# to reproduce one of the original assembler's bugs in the modern
# assembler.
DOG 0,13,140 # workaround
0 13 140 571165370 H7P55B HPC L7P55
0 03 0 023 13 0 13 1 071 L7P54A STO VAR2
0 03 0 024 17 0 13 1 376 CLA 776
0 03 0 025 15 0 13 1 025 XOR H8P1A
0 03 0 026 04 0 13 030 TNZ L95P1A
0 03 0 027 00 0 13 140 L7P54B HOP H7P55B
0 03 0 030 00 0 13 1 026 L95P1A HOP H95P1
ORG 1,17,1,352,1,17,
1 17 1 352 13 1 17 1 377 L7P55 STO 777
1 17 1 353 17 1 17 101 CLA H7P55
1 17 1 354 13 1 17 1 070 STO VAR1
1 17 1 355 17 1 17 1 025 CLA H8P1A
1 17 1 356 13 1 17 1 071 L7P55A STO VAR2
1 17 1 357 17 1 17 1 377 CLA 777
1 17 1 360 15 1 17 100 XOR H95P1A
1 17 100 130014030 H95P1A HPC L95P1A
1 17 1 361 04 1 17 1 363 TNZ L15P1M
1 17 1 362 00 1 17 1 025 HOP H8P1A
1 17 101 571165370 H7P55 HPC L7P55
1 17 1 363 00 1 17 000 160000560 L15P1M TRA* L95P1
ORG ,1,1,40,,13,
* CHECK AFFECT OF PRS 775 ON ACCUMULATOR
0 01 1 040 17 0 13 123 L8P1 CLA H8P1
0 01 1 041 13 0 13 1 070 STO VAR1
0 01 1 042 17 0 13 124 CLA H8P2
0 01 1 043 13 0 13 1 071 STO VAR2
0 01 1 044 17 0 13 234 123456702 CLA =O123456702
0 01 1 045 01 0 13 1 375 PRS 775
0 01 1 046 15 0 13 234 123456702 XOR =O123456702
0 01 1 047 04 0 13 1 136 TNZ L15P1N
* CHECK AFFECT OF PRS 774 ON ACCUMULATOR
0 01 1 050 17 0 13 124 L8P2 CLA H8P2
0 01 1 051 13 0 13 1 070 STO VAR1
0 01 1 052 17 0 13 125 CLA H8P3
0 01 1 053 13 0 13 1 071 STO VAR2
0 01 1 054 17 0 13 235 765432106 CLA =O765432106
0 01 1 055 01 0 13 1 374 PRS 774
0 01 1 056 15 0 13 235 765432106 XOR =O765432106
0 01 1 057 04 0 13 1 136 TNZ L15P1N
* CHECK AFFECT OF PRS MEMORY ON ACCUMULATOR
0 01 1 060 17 0 13 125 L8P3 CLA H8P3
0 01 1 061 13 0 13 1 070 STO VAR1
0 01 1 062 17 0 13 126 CLA H8P4
0 01 1 063 13 0 13 1 071 STO VAR2
0 01 1 064 17 0 13 157 777777776 CLA =O777777776
# PAGE 29, SEQUENCE 13070-13630
PAGE 029
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 01 1 065 01 0 13 125 PRS H8P3
0 01 1 066 15 0 13 125 XOR H8P3
0 01 1 067 04 0 13 1 136 TNZ L15P1N
* CHECK AFFECT OF CIO 120 ON ACCUMULATOR
0 01 1 070 17 0 13 126 L8P4 CLA H8P4
0 01 1 071 13 0 13 1 070 STO VAR1
0 01 1 072 17 0 13 127 CLA H8P5
0 01 1 073 13 0 13 1 071 STO VAR2
0 01 1 074 17 0 13 157 777777776 CLA =O777777776
0 01 1 075 05 0 13 120 CIO 120
0 01 1 076 15 0 13 157 777777776 XOR =O777777776
0 01 1 077 04 0 13 1 136 TNZ L15P1N
* SAME AS ABOVE FOR CIO 124
0 01 1 100 17 0 13 127 L8P5 CLA H8P5
0 01 1 101 13 0 13 1 070 STO VAR1
0 01 1 102 17 0 13 130 CLA H8P6
# The following line appears to me to be a bug in the original source
# code, and that it should be VAR2 rather than VAR1.
0 01 1 103 13 0 13 1 070 STO VAR1
0 01 1 104 17 0 13 157 777777776 CLA =O777777776
0 01 1 105 05 0 13 124 CIO 124
0 01 1 106 15 0 13 157 777777776 XOR =O777777776
0 01 1 107 04 0 13 1 136 TNZ L15P1N
* SAME AS ABOVE FOR CIO 130
0 01 1 110 17 0 13 130 L8P6 CLA H8P6
0 01 1 111 13 0 13 1 070 STO VAR1
0 01 1 112 17 0 13 141 CLA H9P1
0 13 141 140057610 H9P1 HPC L9P1
0 01 1 113 13 0 13 1 071 STO VAR2
0 01 1 114 17 0 13 157 777777776 CLA =O777777776
0 01 1 115 05 0 13 130 CIO 130
0 01 1 116 15 0 13 157 777777776 XOR =O777777776
0 01 1 117 04 0 13 1 136 TNZ L15P1N
0 01 1 120 17 0 13 1 057 L8P7 CLA LCR4 FOR PROGRAM COMPATIBILITY
0 01 1 121 14 0 13 1 134 TMI L8P9
0 01 1 122 17 0 13 1 056 CLA LCR3
0 01 1 123 14 0 13 1 134 TMI L8P9
0 01 1 124 17 0 13 1 060 CLA LCR5
0 01 1 125 14 0 13 1 134 TMI L8P9
0 01 1 126 17 0 13 1 033 L8P8 CLA K77 SET AND RESET ALL DO S
0 01 1 127 05 0 13 210 CIO 210
0 01 1 130 17 0 13 1 020 CLA ZERO
0 01 1 131 05 0 13 210 CIO 210
0 01 1 132 00 0 13 1 023 HOP H9P3
0 01 1 133 00 0 13 141 HOP H9P1
0 01 1 134 00 0 13 236 120000270 L8P9 TRA* L20P2A DELAY
0 01 1 135 10 0 13 1 126 TRA L8P8
0 01 1 136 00 0 13 155 160000560 L15P1N TRA* L95P1
DOG ,,375
0 00 375 440000000 KMR OCT 440000000
DOG ,1,375
0 01 375 420000000 KMP OCT 420000000
DOG ,2,375
0 02 375 410000000 KMC OCT 410000000
DOG ,3,375
0 03 375 404000000 KMD OCT 404000000
DOG ,4,375
0 04 375 402000000 KME OCT 402000000
DOG ,5,375
# PAGE 30, SEQUENCE 13640-13860
PAGE 030
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 05 375 401000000 KMF OCT 401000000
DOG ,6,375
0 06 375 400400000 KMG OCT 400400000
DOG ,7,375
0 07 375 400001000 KMQ OCT 400001000
DOG ,10,375
0 10 375 500000000 KMB OCT 500000000
DOG ,11,375
0 11 375 400200000 KMH OCT 400200000
DOG ,12,375
0 12 375 400100000 KMJ OCT 400100000
DOG ,13,375
0 13 375 400040000 KMK OCT 400040000
DOG ,14,375
0 14 375 400020000 KML OCT 400020000
DOG ,15,375
0 15 375 400010000 KMM OCT 400010000
DOG ,16,375
0 16 375 400004000 KMN OCT 400004000
DOG ,17,375
0 17 375 400002000 KMO OCT 400002000
DOG 1,07,375
1 07 375 200000000 KMA OCT 200000000
# PAGE 31, SEQUENCE 13880-14440
PAGE 031
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
DOG ,14,0
0 14 000 140062210 H9P2 HPC L9P2
0 14 001 140001020 H9P4 HPC L9P4
0 14 002 140002020 H9P5 HPC L9P5
0 14 003 140005020 H9P6 HPC L9P6
0 14 004 140007420 H9P7 HPC L9P7
0 14 005 140012420 H9P8 HPC L9P8
0 14 006 140015420 H9P9 HPC L9P9
0 14 007 140021020 H9P10 HPC L9P10
0 14 010 140024420 H9P11 HPC L9P11
0 14 011 140030020 H9P12 HPC L9P12
0 14 012 140033020 H9P13 HPC L9P13
0 14 013 140036020 H9P14 HPC L9P14
0 14 014 140041420 H9P15 HPC L9P15
0 14 015 140045020 H9P16 HPC L9P16
0 14 016 140050420 H9P17 HPC L9P17
0 14 017 140054020 H9P18 HPC L9P18
0 14 020 140057420 H9P19 HPC L9P19
0 14 021 140063020 H9P20 HPC L9P20
0 14 022 140066420 H9P21 HPC L9P21
0 14 023 140072020 H9P22 HPC L9P22
0 14 024 140075420 H9P23 HPC L9P23
0 14 025 140101020 H9P24 HPC L9P24
0 14 026 140104420 H9P25 HPC L9P25
DOG ,14,31
0 14 031 140110020 H9P26 HPC L9P26
0 14 032 140113420 H9P27 HPC L9P27
0 14 033 140117020 H9P28 HPC L9P28
0 14 034 140122420 H9P29 HPC L9P29
0 14 035 140126020 H9P30 HPC L9P30
0 14 036 140131420 H9P31 HPC L9P31
0 14 037 140135020 H9P32 HPC L9P32
0 14 040 140140420 H9P33 HPC L9P33
0 14 041 140144020 H9P34 HPC L9P34
0 14 042 140147420 H9P35 HPC L9P35
0 14 043 140153020 H9P36 HPC L9P36
0 14 044 140156420 H9P37 HPC L9P37
0 14 045 140162020 H9P38 HPC L9P38
0 14 046 140165420 H9P39 HPC L9P39
0 14 047 140001220 H9P40 HPC L9P40
0 14 050 140004620 H9P41 HPC L9P41
0 14 051 140010220 H9P42 HPC L9P42
0 14 052 140013620 H9P43 HPC L9P43
0 14 053 140017220 H9P44 HPC L9P44
0 14 054 140022620 H9P45 HPC L9P45
0 14 055 140026220 H9P46 HPC L9P46
0 14 056 140031620 H9P47 HPC L9P47
0 14 057 140035220 H9P48 HPC L9P48
0 14 060 140040620 H9P49 HPC L9P49
0 14 061 140044220 H9P50 HPC L9P50
0 14 062 140047620 H9P51 HPC L9P51
0 14 063 140053220 H9P52 HPC L9P52
0 14 064 140056620 H9P53 HPC L9P53
0 14 065 140062220 H9P54 HPC L9P54
0 14 066 140065620 H9P55 HPC L9P55
0 14 067 140071220 H9P56 HPC L9P56
0 14 070 140074620 H9P57 HPC L9P57
# PAGE 32, SEQUENCE 14450-15010
PAGE 032
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 14 071 140100220 H9P58 HPC L9P58
0 14 072 140103620 H9P59 HPC L9P59
0 14 073 140107220 H9P60 HPC L9P60
0 14 074 140112620 H9P61 HPC L9P61
0 14 075 140116220 H9P62 HPC L9P62
0 14 076 140121620 H9P63 HPC L9P63
0 14 077 140125220 H9P64 HPC L9P64
0 14 100 140130620 H9P65 HPC L9P65
0 14 101 140134220 H9P66 HPC L9P66
0 14 102 140137620 H9P67 HPC L9P67
0 14 103 140143220 H9P68 HPC L9P68
0 14 104 140146620 H9P69 HPC L9P69
0 14 105 140152220 H9P70 HPC L9P70
0 14 106 140155620 H9P71 HPC L9P71
0 14 107 140161220 H9P72 HPC L9P72
* ROUTINE THREE
* TEST CIO CODES,ACCUMULATOR INTERFACE,DISCRETE
* OUTPUTS, DISCRETE INPUTS, INTERRUPTS
* FOR CIO SELF TEST B SWITCH NR 1 MUST BE ON
0 01 1 137 17 0 14 1 056 L9P1 CLA LCR3
0 01 1 140 14 0 14 1 144 TMI L9P2
0 01 1 141 04 0 14 1 143 TNZ L20P1A
0 01 1 142 00 0 14 027 130007000 TRA* L2P1
0 01 1 143 00 0 14 110 150030260 L20P1A TRA* L20P1
* INITIALIZE
0 01 1 144 17 0 14 000 L9P2 CLA H9P2
0 01 1 145 13 0 14 1 073 STO VAR4
0 01 1 146 17 0 14 111 777777776 CLA =O777777776
0 01 1 147 05 0 14 000 CIO 000
0 01 1 150 17 0 14 1 020 CLA ZERO
0 01 1 151 13 0 14 1 074 STO VAR5
0 01 1 152 10 0 14 1 154 TRA L9P3 RST INT LATCHES
0 01 1 153 00 0 14 112 140001020 TRA* L9P4
0 01 1 154 13 0 14 1 376 L9P3 STO 776 SUBROUTINE TO RESET ALL INT LAT
0 01 1 155 05 0 14 010 CIO 010
0 01 1 156 05 0 14 014 CIO 014
0 01 1 157 05 0 14 020 CIO 020
0 01 1 160 05 0 14 024 CIO 024
0 01 1 161 05 0 14 030 CIO 030
0 01 1 162 05 0 14 034 CIO 034
0 01 1 163 05 0 14 040 CIO 040
0 01 1 164 05 0 14 044 CIO 044
0 01 1 165 05 0 14 050 CIO 050
0 01 1 166 05 0 14 054 CIO 054
0 01 1 167 05 0 14 060 CIO 060
0 01 1 170 05 0 14 064 CIO 064
0 01 1 171 05 0 14 070 CIO 070
0 01 1 172 05 0 14 074 CIO 074
0 01 1 173 05 0 14 100 CIO 100
0 01 1 174 05 0 14 104 CIO 104
0 01 1 175 00 0 14 1 376 HOP 776
* TEST INTERRUPT REGISTER FOR ZERO CONDITION
ORG ,2,,2,,14,
0 02 0 002 05 0 14 154 L9P4 CIO 154
0 02 0 003 04 0 14 1 356 TNZ L15P1P
* BEGIN TEST OF CIO CODES
# PAGE 33, SEQUENCE 15020-15580
PAGE 033
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 02 0 004 17 0 14 002 L9P5 CLA H9P5
0 02 0 005 13 0 14 1 073 STO VAR4
0 02 0 006 17 0 14 111 777777776 CLA =O777777776
0 02 0 007 05 0 14 000 CIO 000
0 02 0 010 05 0 14 154 CIO 154 READ INT REG R
0 02 0 011 04 0 14 1 356 TNZ L15P1P
0 02 0 012 17 0 14 003 L9P6 CLA H9P6
0 02 0 013 13 0 14 1 073 STO VAR4
0 02 0 014 05 0 14 003 CIO 003
0 02 0 015 05 0 14 154 CIO 154
0 02 0 016 04 0 14 1 356 TNZ L15P1P
0 02 0 017 17 0 14 004 L9P7 CLA H9P7
0 02 0 020 13 0 14 1 073 STO VAR4
0 02 0 021 17 0 14 1 020 CLA ZERO
0 02 0 022 05 0 14 004 CIO 004
0 02 0 023 05 0 14 154 CIO 154
0 02 0 024 04 0 14 1 356 TNZ L15P1P
0 02 0 025 17 0 14 005 L9P8 CLA H9P8
0 02 0 026 13 0 14 1 073 STO VAR4
0 02 0 027 05 0 14 001 CIO 001 SET I3
0 02 0 030 05 0 14 154 CIO 154
0 02 0 031 15 0 14 167 100000000 XOR =O100000000
0 02 0 032 04 0 14 1 356 TNZ L15P1P
0 02 0 033 05 0 14 020 L9P9 CIO 020 RST I3
0 02 0 034 17 0 14 006 CLA H9P9
0 02 0 035 13 0 14 1 073 STO VAR4
0 02 0 036 05 0 14 002 CIO 002 SET I1
0 02 0 037 05 0 14 154 CIO 154
0 02 0 040 15 0 14 221 400000000 XOR =O400000000
0 02 0 041 04 0 14 1 356 TNZ L15P1P
0 02 0 042 05 0 14 010 L9P10 CIO 010 RST I1
0 02 0 043 17 0 14 007 CLA H9P10
0 02 0 044 13 0 14 1 073 STO VAR4
0 02 0 045 05 0 14 005 CIO 005 SET I4
0 02 0 046 05 0 14 154 CIO 154
0 02 0 047 15 0 14 222 040000000 XOR =O040000000
0 02 0 050 04 0 14 1 356 TNZ L15P1P
0 02 0 051 05 0 14 024 L9P11 CIO 024 RST I4
0 02 0 052 17 0 14 010 CLA H9P11
0 02 0 053 13 0 14 1 073 STO VAR4
0 02 0 054 05 0 14 006 CIO 006 SET I2
0 02 0 055 05 0 14 154 CIO 154
0 02 0 056 15 0 14 223 200000000 XOR =O200000000
0 02 0 057 04 0 14 1 356 TNZ L15P1P
0 02 0 060 05 0 14 014 L9P12 CIO 014 RST I2
0 02 0 061 17 0 14 011 CLA H9P12
0 02 0 062 13 0 14 1 073 STO VAR4
0 02 0 063 05 0 14 007 CIO 007
0 02 0 064 05 0 14 154 CIO 154
0 02 0 065 04 0 14 1 356 TNZ L15P1P
0 02 0 066 17 0 14 012 L9P13 CLA H9P13
0 02 0 067 13 0 14 1 073 STO VAR4
0 02 0 070 05 0 14 011 CIO 011 SET I5
0 02 0 071 05 0 14 154 CIO 154
0 02 0 072 15 0 14 224 020000000 XOR =O020000000
0 02 0 073 04 0 14 1 356 TNZ L15P1P
0 02 0 074 05 0 14 030 L9P14 CIO 030 RST I5
# PAGE 34, SEQUENCE 15590-16150
PAGE 034
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 02 0 075 17 0 14 013 CLA H9P14
0 02 0 076 13 0 14 1 073 STO VAR4
0 02 0 077 05 0 14 012 CIO 012 SET I3
0 02 0 100 05 0 14 154 CIO 154
0 02 0 101 15 0 14 167 100000000 XOR =O100000000
0 02 0 102 04 0 14 1 356 TNZ L15P1P
0 02 0 103 05 0 14 020 L9P15 CIO 020 RST I3
0 02 0 104 17 0 14 014 CLA H9P15
0 02 0 105 13 0 14 1 073 STO VAR4
0 02 0 106 05 0 14 015 CIO 015 SET I6
0 02 0 107 05 0 14 154 CIO 154
0 02 0 110 15 0 14 225 010000000 XOR =O010000000
0 02 0 111 04 0 14 1 356 TNZ L15P1P
0 02 0 112 05 0 14 034 L9P16 CIO 034 RST I6
0 02 0 113 17 0 14 015 CLA H9P16
0 02 0 114 13 0 14 1 073 STO VAR4
0 02 0 115 05 0 14 016 CIO 016 SET I4
0 02 0 116 05 0 14 154 CIO 154
0 02 0 117 15 0 14 222 040000000 XOR =O040000000
0 02 0 120 04 0 14 1 356 TNZ L15P1P
0 02 0 121 05 0 14 024 L9P17 CIO 024 RST I4
0 02 0 122 17 0 14 016 CLA H9P17
0 02 0 123 13 0 14 1 073 STO VAR4
0 02 0 124 05 0 14 021 CIO 021 SET I7
0 02 0 125 05 0 14 154 CIO 154
0 02 0 126 15 0 14 226 004000000 XOR =O004000000
0 02 0 127 04 0 14 1 356 TNZ L15P1P
0 02 0 130 05 0 14 040 L9P18 CIO 040 RST I7
0 02 0 131 17 0 14 017 CLA H9P18
0 02 0 132 13 0 14 1 073 STO VAR4
0 02 0 133 05 0 14 022 CIO 022 SET I5
0 02 0 134 05 0 14 154 CIO 154
0 02 0 135 15 0 14 224 020000000 XOR =O020000000
0 02 0 136 04 0 14 1 356 TNZ L15P1P
0 02 0 137 05 0 14 030 L9P19 CIO 030 RST I5
0 02 0 140 17 0 14 020 CLA H9P19
0 02 0 141 13 0 14 1 073 STO VAR4
0 02 0 142 05 0 14 025 CIO 025 SET I8
0 02 0 143 05 0 14 154 CIO 154
0 02 0 144 15 0 14 227 002000000 XOR =O002000000
0 02 0 145 04 0 14 1 356 TNZ L15P1P
0 02 0 146 05 0 14 044 L9P20 CIO 044 RST I8
0 02 0 147 17 0 14 021 CLA H9P20
0 02 0 150 13 0 14 1 073 STO VAR4
0 02 0 151 05 0 14 026 CIO 026 SET I6
0 02 0 152 05 0 14 154 CIO 154
0 02 0 153 15 0 14 225 010000000 XOR =O010000000
0 02 0 154 04 0 14 1 356 TNZ L15P1P
0 02 0 155 05 0 14 034 L9P21 CIO 034 RST I6
0 02 0 156 17 0 14 022 CLA H9P21
0 02 0 157 13 0 14 1 073 STO VAR4
0 02 0 160 05 0 14 031 CIO 031 SET I9
0 02 0 161 05 0 14 154 CIO 154
0 02 0 162 15 0 14 230 001000000 XOR =O001000000
0 02 0 163 04 0 14 1 356 TNZ L15P1P
0 02 0 164 05 0 14 050 L9P22 CIO 050 RST I9
0 02 0 165 17 0 14 023 CLA H9P22
# PAGE 35, SEQUENCE 16160-16720
PAGE 035
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 02 0 166 13 0 14 1 073 STO VAR4
0 02 0 167 05 0 14 032 CIO 032 SET I7
0 02 0 170 05 0 14 154 CIO 154
0 02 0 171 15 0 14 226 004000000 XOR =O004000000
0 02 0 172 04 0 14 1 356 TNZ L15P1P
0 02 0 173 05 0 14 040 L9P23 CIO 040 RST I7
0 02 0 174 17 0 14 024 CLA H9P23
0 02 0 175 13 0 14 1 073 STO VAR4
0 02 0 176 05 0 14 035 CIO 035 SET I10
0 02 0 177 05 0 14 154 CIO 154
0 02 0 200 15 0 14 231 000400000 XOR =O000400000
0 02 0 201 04 0 14 1 356 TNZ L15P1P
0 02 0 202 05 0 14 054 L9P24 CIO 054 RST I10
0 02 0 203 17 0 14 025 CLA H9P24
0 02 0 204 13 0 14 1 073 STO VAR4
0 02 0 205 05 0 14 036 CIO 036 SET I8
0 02 0 206 05 0 14 154 CIO 154
0 02 0 207 15 0 14 227 002000000 XOR =O002000000
0 02 0 210 04 0 14 1 356 TNZ L15P1P
0 02 0 211 05 0 14 044 L9P25 CIO 044 RST I8
0 02 0 212 17 0 14 026 CLA H9P25
0 02 0 213 13 0 14 1 073 STO VAR4
0 02 0 214 05 0 14 041 CIO 041 SET I11
0 02 0 215 05 0 14 154 CIO 154
0 02 0 216 15 0 14 232 000200000 XOR =O000200000
0 02 0 217 04 0 14 1 356 TNZ L15P1P
0 02 0 220 05 0 14 060 L9P26 CIO 060 RST I11
0 02 0 221 17 0 14 031 CLA H9P26
0 02 0 222 13 0 14 1 073 STO VAR4
0 02 0 223 05 0 14 042 CIO 042 SET I9
0 02 0 224 05 0 14 154 CIO 154
0 02 0 225 15 0 14 230 001000000 XOR =O001000000
0 02 0 226 04 0 14 1 356 TNZ L15P1P
0 02 0 227 05 0 14 050 L9P27 CIO 050 RST I9
0 02 0 230 17 0 14 032 CLA H9P27
0 02 0 231 13 0 14 1 073 STO VAR4
0 02 0 232 05 0 14 045 CIO 045 SET I12
0 02 0 233 05 0 14 154 CIO 154
0 02 0 234 15 0 14 233 000100000 XOR =O000100000
0 02 0 235 04 0 14 1 356 TNZ L15P1P
0 02 0 236 05 0 14 064 L9P28 CIO 064 RST I12
0 02 0 237 17 0 14 033 CLA H9P28
0 02 0 240 13 0 14 1 073 STO VAR4
0 02 0 241 05 0 14 046 CIO 046 SET I10
0 02 0 242 05 0 14 154 CIO 154
0 02 0 243 15 0 14 231 000400000 XOR =O000400000
0 02 0 244 04 0 14 1 356 TNZ L15P1P
0 02 0 245 05 0 14 054 L9P29 CIO 054 RST I10
0 02 0 246 17 0 14 034 CLA H9P29
0 02 0 247 13 0 14 1 073 STO VAR4
0 02 0 250 05 0 14 051 CIO 051 SET I13
0 02 0 251 05 0 14 154 CIO 154
0 02 0 252 15 0 14 234 000040000 XOR =O000040000
0 02 0 253 04 0 14 1 356 TNZ L15P1P
0 02 0 254 05 0 14 070 L9P30 CIO 070 RST 13
0 02 0 255 17 0 14 035 CLA H9P30
0 02 0 256 13 0 14 1 073 STO VAR4
# PAGE 36, SEQUENCE 16730-17290
PAGE 036
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 02 0 257 05 0 14 052 CIO 052 SET 11
0 02 0 260 05 0 14 154 CIO 154
0 02 0 261 15 0 14 232 000200000 XOR =O000200000
0 02 0 262 04 0 14 1 356 TNZ L15P1P
0 02 0 263 05 0 14 060 L9P31 CIO 060 RST 11
0 02 0 264 17 0 14 036 CLA H9P31
0 02 0 265 13 0 14 1 073 STO VAR4
0 02 0 266 05 0 14 055 CIO 055 SET 14
0 02 0 267 05 0 14 154 CIO 154
0 02 0 270 15 0 14 235 000020000 XOR =O000020000
0 02 0 271 04 0 14 1 356 TNZ L15P1P
0 02 0 272 05 0 14 074 L9P32 CIO 074 RST 14
0 02 0 273 17 0 14 037 CLA H9P32
0 02 0 274 13 0 14 1 073 STO VAR4
0 02 0 275 05 0 14 056 CIO 056 SET 12
0 02 0 276 05 0 14 154 CIO 154
0 02 0 277 15 0 14 233 000100000 XOR =O000100000
0 02 0 300 04 0 14 1 356 TNZ L15P1P
0 02 0 301 05 0 14 064 L9P33 CIO 064 RST 12
0 02 0 302 17 0 14 040 CLA H9P33
0 02 0 303 13 0 14 1 073 STO VAR4
0 02 0 304 05 0 14 061 CIO 061 SET 15
0 02 0 305 05 0 14 154 CIO 154
0 02 0 306 15 0 14 236 000010000 XOR =O000010000
0 02 0 307 04 0 14 1 356 TNZ L15P1P
0 02 0 310 05 0 14 100 L9P34 CIO 100 RST 15
0 02 0 311 17 0 14 041 CLA H9P34
0 02 0 312 13 0 14 1 073 STO VAR4
0 02 0 313 05 0 14 062 CIO 062 SET 13
0 02 0 314 05 0 14 154 CIO 154
0 02 0 315 15 0 14 234 000040000 XOR =O000040000
0 02 0 316 04 0 14 1 356 TNZ L15P1P
0 02 0 317 05 0 14 070 L9P35 CIO 070 RST 13
0 02 0 320 17 0 14 042 CLA H9P35
0 02 0 321 13 0 14 1 073 STO VAR4
0 02 0 322 05 0 14 065 CIO 065 SET 9
0 02 0 323 05 0 14 154 CIO 154
0 02 0 324 15 0 14 230 001000000 XOR =O001000000
0 02 0 325 04 0 14 1 356 TNZ L15P1P
0 02 0 326 05 0 14 050 L9P36 CIO 050 RST 9
0 02 0 327 17 0 14 043 CLA H9P36
0 02 0 330 13 0 14 1 073 STO VAR4
0 02 0 331 05 0 14 066 CIO 066 SET 14
0 02 0 332 05 0 14 154 CIO 154
0 02 0 333 15 0 14 235 000020000 XOR =O000020000
0 02 0 334 04 0 14 1 356 TNZ L15P1P
0 02 0 335 05 0 14 074 L9P37 CIO 074 RST 14
0 02 0 336 17 0 14 044 CLA H9P37
0 02 0 337 13 0 14 1 073 STO VAR4
0 02 0 340 05 0 14 071 CIO 071 SET 10
0 02 0 341 05 0 14 154 CIO 154
0 02 0 342 15 0 14 231 000400000 XOR =O000400000
0 02 0 343 04 0 14 1 356 TNZ L15P1P
0 02 0 344 05 0 14 054 L9P38 CIO 054 RST 10
0 02 0 345 17 0 14 045 CLA H9P38
0 02 0 346 13 0 14 1 073 STO VAR4
0 02 0 347 05 0 14 072 CIO 072 SET 15
# PAGE 37, SEQUENCE 17300-17860
PAGE 037
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 02 0 350 05 0 14 154 CIO 154
0 02 0 351 15 0 14 236 000010000 XOR =O000010000
0 02 0 352 04 0 14 1 356 TNZ L15P1P
0 02 0 353 05 0 14 100 L9P39 CIO 100 RST 15
0 02 0 354 17 0 14 046 CLA H9P39
0 02 0 355 13 0 14 1 073 STO VAR4
0 02 0 356 05 0 14 075 CIO 075 SET 1
0 02 0 357 05 0 14 154 CIO 154
0 02 0 360 15 0 14 221 400000000 XOR =O400000000
0 02 0 361 04 0 14 1 356 TNZ L15P1P
0 02 0 362 10 0 14 1 002 TRA L9P40
ORG ,2,1,2,,14,
0 02 1 002 05 0 14 010 L9P40 CIO 010 RST 1
0 02 1 003 17 0 14 047 CLA H9P40
0 02 1 004 13 0 14 1 073 STO VAR4
0 02 1 005 05 0 14 076 CIO 076 SET 11
0 02 1 006 05 0 14 154 CIO 154
0 02 1 007 15 0 14 232 000200000 XOR =O000200000
0 02 1 010 04 0 14 1 356 TNZ L15P1P
0 02 1 011 05 0 14 060 L9P41 CIO 060 RST 11
0 02 1 012 17 0 14 050 CLA H9P41
0 02 1 013 13 0 14 1 073 STO VAR4
0 02 1 014 05 0 14 101 CIO 101 SET 2
0 02 1 015 05 0 14 154 CIO 154
0 02 1 016 15 0 14 223 200000000 XOR =O200000000
0 02 1 017 04 0 14 1 356 TNZ L15P1P
0 02 1 020 05 0 14 014 L9P42 CIO 014 RST 2
0 02 1 021 17 0 14 051 CLA H9P42
0 02 1 022 13 0 14 1 073 STO VAR4
0 02 1 023 05 0 14 102 CIO 102 SET 13
0 02 1 024 05 0 14 154 CIO 154
0 02 1 025 15 0 14 234 000040000 XOR =O000040000
0 02 1 026 04 0 14 1 356 TNZ L15P1P
0 02 1 027 05 0 14 070 L9P43 CIO 070 RST 13
0 02 1 030 17 0 14 052 CLA H9P43
0 02 1 031 13 0 14 1 073 STO VAR4
0 02 1 032 05 0 14 105 CIO 105 SET 3
0 02 1 033 05 0 14 154 CIO 154
0 02 1 034 15 0 14 167 100000000 XOR =O100000000
0 02 1 035 04 0 14 1 356 TNZ L15P1P
0 02 1 036 05 0 14 020 L9P44 CIO 020 RST 3
0 02 1 037 17 0 14 053 CLA H9P44
0 02 1 040 13 0 14 1 073 STO VAR4
0 02 1 041 05 0 14 106 CIO 106 SET 1
0 02 1 042 05 0 14 154 CIO 154
0 02 1 043 15 0 14 221 400000000 XOR =O400000000
0 02 1 044 04 0 14 1 356 TNZ L15P1P
0 02 1 045 05 0 14 010 L9P45 CIO 010 RST 1
0 02 1 046 17 0 14 054 CLA H9P45
0 02 1 047 13 0 14 1 073 STO VAR4
0 02 1 050 05 0 14 111 CIO 111 SET 4
0 02 1 051 05 0 14 154 CIO 154
0 02 1 052 15 0 14 222 040000000 XOR =O040000000
0 02 1 053 04 0 14 1 356 TNZ L15P1P
0 02 1 054 05 0 14 024 L9P46 CIO 024 RST 4
0 02 1 055 17 0 14 055 CLA H9P46
0 02 1 056 13 0 14 1 073 STO VAR4
# PAGE 38, SEQUENCE 17870-18430
PAGE 038
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 02 1 057 05 0 14 112 CIO 112 SET 2
0 02 1 060 05 0 14 154 CIO 154
0 02 1 061 15 0 14 223 200000000 XOR =O200000000
0 02 1 062 04 0 14 1 356 TNZ L15P1P
0 02 1 063 05 0 14 014 L9P47 CIO 014 RST 2
0 02 1 064 17 0 14 056 CLA H9P47
0 02 1 065 13 0 14 1 073 STO VAR4
0 02 1 066 05 0 14 115 CIO 115 SET 5
0 02 1 067 05 0 14 154 CIO 154
0 02 1 070 15 0 14 224 020000000 XOR =O020000000
0 02 1 071 04 0 14 1 356 TNZ L15P1P
0 02 1 072 05 0 14 030 L9P48 CIO 030 RST 5
0 02 1 073 17 0 14 057 CLA H9P48
0 02 1 074 13 0 14 1 073 STO VAR4
0 02 1 075 05 0 14 116 CIO 116 SET 3
0 02 1 076 05 0 14 154 CIO 154
0 02 1 077 15 0 14 167 100000000 XOR =O100000000
0 02 1 100 04 0 14 1 356 TNZ L15P1P
0 02 1 101 05 0 14 020 L9P49 CIO 020 RST 3
0 02 1 102 17 0 14 060 CLA H9P49
0 02 1 103 13 0 14 1 073 STO VAR4
0 02 1 104 05 0 14 121 CIO 121 SET 6
0 02 1 105 05 0 14 154 CIO 154
0 02 1 106 15 0 14 225 010000000 XOR =O010000000
0 02 1 107 04 0 14 1 356 TNZ L15P1P
0 02 1 110 05 0 14 034 L9P50 CIO 034 RST 6
0 02 1 111 17 0 14 061 CLA H9P50
0 02 1 112 13 0 14 1 073 STO VAR4
0 02 1 113 05 0 14 122 CIO 122 SET 4
0 02 1 114 05 0 14 154 CIO 154
0 02 1 115 15 0 14 222 040000000 XOR =O040000000
0 02 1 116 04 0 14 1 356 TNZ L15P1P
0 02 1 117 05 0 14 024 L9P51 CIO 024 RST 4
0 02 1 120 17 0 14 062 CLA H9P51
0 02 1 121 13 0 14 1 073 STO VAR4
0 02 1 122 05 0 14 125 CIO 125 SET 7
0 02 1 123 05 0 14 154 CIO 154
0 02 1 124 15 0 14 226 004000000 XOR =O004000000
0 02 1 125 04 0 14 1 356 TNZ L15P1P
0 02 1 126 05 0 14 040 L9P52 CIO 040 RST 7
0 02 1 127 17 0 14 063 CLA H9P52
0 02 1 130 13 0 14 1 073 STO VAR4
0 02 1 131 05 0 14 126 CIO 126 SET 5
0 02 1 132 05 0 14 154 CIO 154
0 02 1 133 15 0 14 224 020000000 XOR =O020000000
0 02 1 134 04 0 14 1 356 TNZ L15P1P
0 02 1 135 05 0 14 030 L9P53 CIO 030 RST 5
0 02 1 136 17 0 14 064 CLA H9P53
0 02 1 137 13 0 14 1 073 STO VAR4
0 02 1 140 05 0 14 131 CIO 131 SET 8
0 02 1 141 05 0 14 154 CIO 154
0 02 1 142 15 0 14 227 002000000 XOR =O002000000
0 02 1 143 04 0 14 1 356 TNZ L15P1P
0 02 1 144 05 0 14 044 L9P54 CIO 044 RST 8
0 02 1 145 17 0 14 065 CLA H9P54
0 02 1 146 13 0 14 1 073 STO VAR4
0 02 1 147 05 0 14 132 CIO 132 SET 6
# PAGE 39, SEQUENCE 18440-19000
PAGE 039
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 02 1 150 05 0 14 154 CIO 154
0 02 1 151 15 0 14 225 010000000 XOR =O010000000
0 02 1 152 04 0 14 1 356 TNZ L15P1P
0 02 1 153 05 0 14 034 L9P55 CIO 034 RST 6
0 02 1 154 17 0 14 066 CLA H9P55
0 02 1 155 13 0 14 1 073 STO VAR4
0 02 1 156 05 0 14 135 CIO 135 SET 9
0 02 1 157 05 0 14 154 CIO 154
0 02 1 160 15 0 14 230 001000000 XOR =O001000000
0 02 1 161 04 0 14 1 356 TNZ L15P1P
0 02 1 162 05 0 14 050 L9P56 CIO 050 RST 9
0 02 1 163 17 0 14 067 CLA H9P56
0 02 1 164 13 0 14 1 073 STO VAR4
0 02 1 165 05 0 14 136 CIO 136 SET 7
0 02 1 166 05 0 14 154 CIO 154
0 02 1 167 15 0 14 226 004000000 XOR =O004000000
0 02 1 170 04 0 14 1 356 TNZ L15P1P
0 02 1 171 05 0 14 040 L9P57 CIO 040 RST 7
0 02 1 172 17 0 14 070 CLA H9P57
0 02 1 173 13 0 14 1 073 STO VAR4
0 02 1 174 05 0 14 141 CIO 141 SET 10
0 02 1 175 05 0 14 154 CIO 154
0 02 1 176 15 0 14 231 000400000 XOR =O000400000
0 02 1 177 04 0 14 1 356 TNZ L15P1P
0 02 1 200 05 0 14 054 L9P58 CIO 054 RST10
0 02 1 201 17 0 14 071 CLA H9P58
0 02 1 202 13 0 14 1 073 STO VAR4
0 02 1 203 05 0 14 142 CIO 142 SET 8
0 02 1 204 05 0 14 154 CIO 154
0 02 1 205 15 0 14 227 002000000 XOR =O002000000
0 02 1 206 04 0 14 1 356 TNZ L15P1P
0 02 1 207 05 0 14 044 L9P59 CIO 044 RST 8
0 02 1 210 17 0 14 072 CLA H9P59
0 02 1 211 13 0 14 1 073 STO VAR4
0 02 1 212 05 0 14 145 CIO 145 SET 11
0 02 1 213 05 0 14 154 CIO 154
0 02 1 214 15 0 14 232 000200000 XOR =O000200000
0 02 1 215 04 0 14 1 356 TNZ L15P1P
0 02 1 216 05 0 14 060 L9P60 CIO 060 RST 11
0 02 1 217 17 0 14 073 CLA H9P60
0 02 1 220 13 0 14 1 073 STO VAR4
0 02 1 221 05 0 14 146 CIO 146 SET 9
0 02 1 222 05 0 14 154 CIO 154
0 02 1 223 15 0 14 230 001000000 XOR =O001000000
0 02 1 224 04 0 14 1 356 TNZ L15P1P
0 02 1 225 05 0 14 050 L9P61 CIO 050 RST 9
0 02 1 226 17 0 14 074 CLA H9P61
0 02 1 227 13 0 14 1 073 STO VAR4
0 02 1 230 05 0 14 151 CIO 151 SET 12
0 02 1 231 05 0 14 154 CIO 154
0 02 1 232 15 0 14 233 000100000 XOR =O000100000
0 02 1 233 04 0 14 1 356 TNZ L15P1P
0 02 1 234 05 0 14 064 L9P62 CIO 064 RST 12
0 02 1 235 17 0 14 075 CLA H9P62
0 02 1 236 13 0 14 1 073 STO VAR4
0 02 1 237 05 0 14 152 CIO 152 SET 10
0 02 1 240 05 0 14 154 CIO 154
# PAGE 40, SEQUENCE 19010-19570
PAGE 040
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 02 1 241 15 0 14 231 000400000 XOR =O000400000
0 02 1 242 04 0 14 1 356 TNZ L15P1P
0 02 1 243 05 0 14 054 L9P63 CIO 054 RST 10
0 02 1 244 17 0 14 076 CLA H9P63
0 02 1 245 13 0 14 1 073 STO VAR4
0 02 1 246 05 0 14 156 CIO 156 SET 11
0 02 1 247 05 0 14 154 CIO 154
0 02 1 250 15 0 14 232 000200000 XOR =O000200000
0 02 1 251 04 0 14 1 356 TNZ L15P1P
0 02 1 252 05 0 14 060 L9P64 CIO 060 RST 11
0 02 1 253 17 0 14 077 CLA H9P64
0 02 1 254 13 0 14 1 073 STO VAR4
0 02 1 255 05 0 14 162 CIO 162 SET 12
0 02 1 256 05 0 14 154 CIO 154
0 02 1 257 15 0 14 233 000100000 XOR =O000100000
0 02 1 260 04 0 14 1 356 TNZ L15P1P
0 02 1 261 05 0 14 064 L9P65 CIO 064 RST 12
0 02 1 262 17 0 14 100 CLA H9P65
0 02 1 263 13 0 14 1 073 STO VAR4
0 02 1 264 05 0 14 166 CIO 166 SET 13
0 02 1 265 05 0 14 154 CIO 154
0 02 1 266 15 0 14 234 000040000 XOR =O000040000
0 02 1 267 04 0 14 1 356 TNZ L15P1P
0 02 1 270 05 0 14 070 L9P66 CIO 070 RST 13
0 02 1 271 17 0 14 101 CLA H9P66
0 02 1 272 13 0 14 1 073 STO VAR4
0 02 1 273 05 0 14 172 CIO 172 SET 14
0 02 1 274 05 0 14 154 CIO 154
0 02 1 275 15 0 14 235 000020000 XOR =O000020000
0 02 1 276 04 0 14 1 356 TNZ L15P1P
0 02 1 277 05 0 14 074 L9P67 CIO 074 RST 14
0 02 1 300 17 0 14 102 CLA H9P67
0 02 1 301 13 0 14 1 073 STO VAR4
0 02 1 302 05 0 14 176 CIO 176 SET 15
0 02 1 303 05 0 14 154 CIO 154
0 02 1 304 15 0 14 236 000010000 XOR =O000010000
0 02 1 305 04 0 14 1 356 TNZ L15P1P
0 02 1 306 05 0 14 100 L9P68 CIO 100 RST 15
0 02 1 307 17 0 14 103 CLA H9P68
0 02 1 310 13 0 14 1 073 STO VAR4
0 02 1 311 05 0 14 202 CIO 202 SET 12
0 02 1 312 05 0 14 154 CIO 154
0 02 1 313 15 0 14 233 000100000 XOR =O000100000
0 02 1 314 04 0 14 1 356 TNZ L15P1P
0 02 1 315 05 0 14 064 L9P69 CIO 064 RST 12
0 02 1 316 17 0 14 104 CLA H9P69
0 02 1 317 13 0 14 1 073 STO VAR4
0 02 1 320 05 0 14 206 CIO 206 SET 14
0 02 1 321 05 0 14 154 CIO 154
0 02 1 322 15 0 14 235 000020000 XOR =O000020000
0 02 1 323 04 0 14 1 356 TNZ L15P1P
0 02 1 324 05 0 14 074 L9P70 CIO 074 RST 14
0 02 1 325 17 0 14 105 CLA H9P70
0 02 1 326 13 0 14 1 073 STO VAR4
0 02 1 327 05 0 14 212 CIO 212 SET 1
0 02 1 330 05 0 14 154 CIO 154
0 02 1 331 15 0 14 221 400000000 XOR =O400000000
# PAGE 41, SEQUENCE 19580-19880
PAGE 041
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 02 1 332 04 0 14 1 356 TNZ L15P1P
0 02 1 333 05 0 14 010 L9P71 CIO 010 RST 1
0 02 1 334 17 0 14 106 CLA H9P71
0 02 1 335 13 0 14 1 073 STO VAR4
0 02 1 336 05 0 14 216 CIO 216 SET 2
0 02 1 337 05 0 14 154 CIO 154
0 02 1 340 15 0 14 223 200000000 XOR =O200000000
0 02 1 341 04 0 14 1 356 TNZ L15P1P
0 02 1 342 05 0 14 014 L9P72 CIO 014 RST 2
0 02 1 343 17 0 14 107 CLA H9P72
0 02 1 344 13 0 14 1 073 STO VAR4
0 02 1 345 05 0 14 155 CIO 155 TEST SPARES
0 02 1 346 05 0 14 161 CIO 161
0 02 1 347 05 0 14 165 CIO 165
0 02 1 350 05 0 14 171 CIO 171
0 02 1 351 05 0 14 175 CIO 175
0 02 1 352 04 0 14 1 356 TNZ L15P1P
0 02 1 353 05 0 14 154 CIO 154
0 02 1 354 04 0 14 1 356 TNZ L15P1P
0 02 1 355 00 0 14 237 140014430 TRA* L10P1
0 02 1 356 13 0 14 1 377 L15P1P STO 777
0 02 1 357 13 0 14 1 076 LPPA STO TEMP
0 02 1 360 17 0 14 1 377 CLA 777
0 02 1 361 13 0 14 1 071 STO VAR2
0 02 1 362 17 0 14 1 073 CLA VAR4
0 02 1 363 13 0 14 1 070 STO VAR1
0 02 1 364 17 0 14 1 020 CLA ZERO
0 02 1 365 13 0 14 1 073 STO VAR4
0 02 1 366 00 0 14 1 023 HOP H9P3
0 02 1 367 17 0 14 1 076 CLA TEMP
0 02 1 370 00 0 14 1 026 HOP H95P1
# PAGE 42, SEQUENCE 19900-20460
PAGE 042
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
* BEGIN TEST OF CIO CODES GROUP 1
ORG ,3,,31,,14,
0 03 0 031 16 0 14 214 L10P1 CDS 0,14
0 03 0 032 17 0 14 113 CLA H10P1
0 03 0 033 13 0 14 1 073 STO VAR4
0 03 0 034 05 0 14 002 CIO 002 004 CAUSE HOP 400
0 03 0 035 05 0 14 006 CIO 006
0 03 0 036 05 0 14 012 CIO 012 010 RST1,014 RST 2
0 03 0 037 05 0 14 016 CIO 016
0 03 0 040 05 0 14 022 CIO 022 020 RST 3, 024 RST 4
0 03 0 041 05 0 14 026 CIO 026
0 03 0 042 05 0 14 032 CIO 032 030 RST5, 034 RST6
0 03 0 043 05 0 14 036 CIO 036
0 03 0 044 05 0 14 042 CIO 042 040 RST 7, 044 RST 8
0 03 0 045 05 0 14 046 CIO 046
0 03 0 046 05 0 14 052 CIO 052 050 RST9, 054 RST 10
0 03 0 047 05 0 14 056 CIO 056
0 03 0 050 05 0 14 062 CIO 062 060 RST 11, 064 RST 12
0 03 0 051 05 0 14 066 CIO 066
0 03 0 052 05 0 14 072 CIO 072 070 RST 13, 074 RST 14
0 03 0 053 05 0 14 000 CIO 000 100 RST 15
0 03 0 054 05 0 14 154 CIO 154 READ INT REG
0 03 0 055 15 0 14 240 777770000 XOR =O777770000
0 03 0 056 04 0 14 1 305 TNZ L15P1Q
0 03 0 057 05 0 14 010 CIO 010 RST 1, 014 RST 2, 020 RST 3
0 03 0 060 05 0 14 154 CIO 154 030 RST 5, 040 RST 7
0 03 0 061 15 0 14 241 377770000 XOR =O377770000 050 RST 9, 060 RST 11
0 03 0 062 04 0 14 1 305 TNZ L15P1Q 070 RST 13, 110 CAUSES HOP
0 03 0 063 17 0 14 114 L10P2 CLA H10P2
0 03 0 064 13 0 14 1 073 STO VAR4
0 03 0 065 17 0 14 1 020 CLA ZERO
0 03 0 066 05 0 14 014 CIO 014 RST 2, 114 SETS CST AND STOPS P
0 03 0 067 04 0 14 1 305 TNZ L15P1Q 214 READS A SWTS, 314 SP
0 03 0 070 17 0 14 115 L10P3 CLA H10P3
0 03 0 071 13 0 14 1 073 STO VAR4
0 03 0 072 05 0 14 154 CIO 154
0 03 0 073 15 0 14 242 177770000 XOR =O177770000 024,034,044,054,064,074
0 03 0 074 04 0 14 1 305 TNZ L15P1Q RESET 4,6,8,10,12,14
0 03 0 075 17 0 14 116 L10P4 CLA H10P4
0 03 0 076 13 0 14 1 073 STO VAR4
0 03 0 077 05 0 14 002 CIO 002 SET 1
0 03 0 100 17 0 14 243 470000000 CLA =O470000000
0 03 0 101 05 0 14 020 CIO 020 RST 3
0 03 0 102 15 0 14 243 470000000 XOR =O470000000
0 03 0 103 04 0 14 1 305 TNZ L15P1Q 220 READS B SWT 1
0 03 0 104 05 0 14 154 CIO 154
0 03 0 105 15 0 14 244 477770000 XOR =O477770000 0010 RST 1, 120 SET 3
0 03 0 106 04 0 14 1 305 TNZ L15P1Q 320 SP
0 03 0 107 17 0 14 117 L10P5 CLA H10P5
0 03 0 110 13 0 14 1 073 STO VAR4
0 03 0 111 17 0 14 245 110000000 CLA =O110000000
0 03 0 112 05 0 14 024 CIO 024 RST 4
0 03 0 113 05 0 14 154 CIO 154 123 SET 3,7,8, 224 SET 3,6
0 03 0 114 15 0 14 246 437770000 XOR =O437770000 324 SP
0 03 0 115 04 0 14 1 305 TNZ L15P1Q
0 03 0 116 17 0 14 120 L10P6 CLA H10P6
0 03 0 117 13 0 14 1 073 STO VAR4
# PAGE 43, SEQUENCE 20470-21030
PAGE 043
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 03 0 120 17 0 14 225 010000000 CLA =O010000000
0 03 0 121 05 0 14 030 CIO 030 RST 5, 130 SET 3 THRU 9
0 03 0 122 05 0 14 154 CIO 154 230 SP
0 03 0 123 15 0 14 247 417770000 XOR =O417770000
0 03 0 124 04 0 14 1 305 TNZ L15P1Q
0 03 0 125 17 0 14 121 L10P7 CLA H10P7
0 03 0 126 13 0 14 1 073 STO VAR4
0 03 0 127 17 0 14 1 020 CLA ZERO
0 03 0 130 05 0 14 034 CIO 034 RST 6 , 234 SP
0 03 0 131 05 0 14 154 CIO 154
0 03 0 132 15 0 14 250 407770000 XOR =O407770000
0 03 0 133 04 0 14 1 305 TNZ L15P1Q
0 03 0 134 17 0 14 122 L10P8 CLA H10P8
0 03 0 135 13 0 14 1 073 STO VAR4
0 03 0 136 17 0 14 1 020 CLA ZERO
0 03 0 137 05 0 14 040 CIO 040 RST 7
0 03 0 140 05 0 14 154 CIO 154 140 PLT X, 240 SP
0 03 0 141 15 0 14 251 403770000 XOR =O403770000
0 03 0 142 04 0 14 1 305 TNZ L15P1Q
0 03 0 143 17 0 14 123 L10P9 CLA H10P9
0 03 0 144 13 0 14 1 073 STO VAR4
0 03 0 145 17 0 14 1 020 CLA ZERO
0 03 0 146 05 0 14 044 CIO 044 RST 8
0 03 0 147 05 0 14 154 CIO 154 144 PLT Y, 244 SP
0 03 0 150 15 0 14 252 401770000 XOR =O401770000
0 03 0 151 04 0 14 1 305 TNZ L15P1Q
0 03 0 152 17 0 14 124 L10P10 CLA H10P10
0 03 0 153 13 0 14 1 073 STO VAR4
0 03 0 154 17 0 14 1 020 CLA ZERO
0 03 0 155 05 0 14 050 CIO 050 RST 9
0 03 0 156 05 0 14 154 CIO 154 150 PLT Z, 250 SP
0 03 0 157 15 0 14 253 400770000 XOR =O400770000
0 03 0 160 04 0 14 1 305 TNZ L15P1Q
0 03 0 161 17 0 14 125 L10P11 CLA H10P11
0 03 0 162 13 0 14 1 073 STO VAR4
0 03 0 163 17 0 14 1 020 CLA ZERO
0 03 0 164 05 0 14 054 CIO 054 RST 10
0 03 0 165 04 0 14 1 305 TNZ L15P1Q 154 READ INT REG., 254 SP
0 03 0 166 17 0 14 126 L10P12 CLA H10P12
0 03 0 167 13 0 14 1 073 STO VAR4
0 03 0 170 05 0 14 154 CIO 154
0 03 0 171 15 0 14 254 400370000 XOR =O400370000
0 03 0 172 04 0 14 1 305 TNZ L15P1Q
0 03 0 173 17 0 14 127 L10P13 CLA H10P13
0 03 0 174 13 0 14 1 073 STO VAR4
0 03 0 175 17 0 14 167 100000000 CLA =O100000000
0 03 0 176 05 0 14 060 CIO 060 RST 11
0 03 0 177 05 0 14 154 CIO 154 160 SET 3,8,12
0 03 0 200 15 0 14 255 400170000 XOR =O400170000 260 SP
0 03 0 201 04 0 14 1 305 TNZ L15P1Q
0 03 0 202 17 0 14 130 L10P14 CLA H10P14
0 03 0 203 13 0 14 1 073 STO VAR4
0 03 0 204 05 0 14 064 CIO 064 RST 12
0 03 0 205 05 0 14 154 CIO 154 164 PRT OCTAL
0 03 0 206 15 0 14 256 400070000 XOR =O400070000 264 SP
0 03 0 207 04 0 14 1 305 TNZ L15P1Q
0 03 0 210 17 0 14 131 L10P15 CLA H10P15
# PAGE 44, SEQUENCE 21040-21600
PAGE 044
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 03 0 211 13 0 14 1 073 STO VAR4
0 03 0 212 05 0 14 070 CIO 070 RST 13
0 03 0 213 05 0 14 154 CIO 154 170 PRT BCD
0 03 0 214 15 0 14 257 400030000 XOR =O400030000 270 SP
0 03 0 215 04 0 14 1 305 TNZ L15P1Q
0 03 0 216 17 0 14 132 L10P16 CLA H10P16
0 03 0 217 13 0 14 1 073 STO VAR4
0 03 0 220 05 0 14 074 CIO 074 174,274 SP
0 03 0 221 05 0 14 154 CIO 154
0 03 0 222 15 0 14 260 400010000 XOR =O400010000
0 03 0 223 04 0 14 1 305 TNZ L15P1Q
0 03 0 224 17 0 14 133 L10P17 CLA H10P17
0 03 0 225 13 0 14 1 073 STO VAR4
0 03 0 226 05 0 14 100 CIO 100 RST 15
0 03 0 227 05 0 14 154 CIO 154 200,300 SP
0 03 0 230 15 0 14 221 400000000 XOR =O400000000
0 03 0 231 04 0 14 1 305 TNZ L15P1Q
* TEST DISCCRETE OUTPUTS + INPUTS ALL ZERO
0 03 0 232 17 0 14 134 L10P18 CLA H10P18
0 03 0 233 13 0 14 1 073 STO VAR4
0 03 0 234 17 0 14 1 020 CLA ZERO
0 03 0 235 05 0 14 210 CIO 210 RESET DO S
0 03 0 236 04 0 14 1 305 TNZ L15P1Q 214,220 READ A,B SWTS
0 03 0 237 17 0 14 261 000000006 CLA =O000000006
0 03 0 240 05 0 14 214 CIO 214 READ A SWTS
0 03 0 241 06 0 14 262 000001760 AND =O000001760 17-22 DO S + DI S ALL DOWN
0 03 0 242 04 0 14 1 305 TNZ L15P1Q
* CIO CODES 104 THRU 220
0 03 0 243 17 0 14 135 L10P19 CLA H10P19
0 03 0 244 13 0 14 1 073 STO VAR4
0 03 0 245 17 0 14 263 660000176 CLA =O660000176
0 03 0 246 05 0 14 110 CIO 110 010 RST1, 210 SET D.O.
0 03 0 247 05 0 14 154 CIO 154 114 STOP PRG, 120 SET 5
0 03 0 250 15 0 14 221 400000000 XOR =O400000000 130 SET 5,7,8
0 03 0 251 04 0 14 1 305 TNZ L15P1Q
0 03 0 252 17 0 14 136 L10P20 CLA H10P20
0 03 0 253 13 0 14 1 073 STO VAR4
0 03 0 254 05 0 14 006 CIO 006 SET 2
0 03 0 255 17 0 14 264 300000040 CLA =O300000040
0 03 0 256 05 0 14 214 CIO 214 CHECK FOR D.O. SET
0 03 0 257 06 0 14 262 000001760 AND =O000001760
0 03 0 260 04 0 14 1 305 TNZ L15P1Q
0 03 0 261 05 0 14 154 CIO 154 224 ACC SET 3
0 03 0 262 15 0 14 265 600000000 XOR =O600000000 204 TURN ON P20 LIGHT
0 03 0 263 04 0 14 1 305 TNZ L15P1Q 014 RST 2
0 03 0 264 17 0 14 137 L10P21 CLA H10P21
0 03 0 265 13 0 14 1 073 STO VAR4
0 03 0 266 05 0 14 072 CIO 072 SET 15
0 03 0 267 17 0 14 266 120000000 CLA =O120000000
0 03 0 270 05 0 14 104 CIO 104 124 SET 6,7,8
0 03 0 271 05 0 14 154 CIO 154 100 RST 15,004 FORCED HOP
0 03 0 272 15 0 14 267 600010000 XOR =O600010000 304 SP
0 03 0 273 04 0 14 1 305 TNZ L15P1Q
0 03 0 274 17 0 14 1 057 CLA LCR4 IS ROUTINE 4 SELECTED
0 03 0 275 14 0 14 302 TMI L10P22
0 03 0 276 05 0 14 010 CIO 010
0 03 0 277 05 0 14 014 CIO 014
# PAGE 45, SEQUENCE 21610-22170
PAGE 045
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 03 0 300 05 0 14 100 CIO 100
0 03 0 301 10 0 14 1 045 TRA L10P27
0 03 0 302 17 0 14 140 L10P22 CLA H10P22
0 03 0 303 13 0 14 1 073 STO VAR4
0 03 0 304 05 0 14 012 CIO 012 SET3
0 03 0 305 17 0 14 270 460000000 CLA =O460000000
0 03 0 306 05 0 14 120 CIO 120 SET 5,7,9
0 03 0 307 17 0 14 1 055 CLA LCR2
0 03 0 310 14 0 14 312 TMI *+2
0 03 0 311 10 0 14 313 TRA *+2
0 03 0 312 00 0 14 271 120000270 TRA* L20P2A
0 03 0 313 17 0 14 272 000000004 CLA =O000000004
0 03 0 314 05 0 14 210 CIO 210
0 03 0 315 17 0 14 1 020 CLA ZERO
0 03 0 316 05 0 14 210 CIO 210
0 03 0 317 05 0 14 154 CIO 154 123 SET 3,7,8,130 SET 3 THRU 9
0 03 0 320 06 0 14 242 177770000 AND =O177770000 020 RST 3,100 RST 15,320 SP
0 03 0 321 15 0 14 273 125010000 XOR =O125010000
* CIO 120,124,130 MAY SET 1 OR 2 IF CASE SHIFT OCCURS
0 03 0 322 04 0 14 1 305 TNZ L15P1Q
0 03 0 323 17 0 14 141 L10P23 CLA H10P23
0 03 0 324 13 0 14 1 073 STO VAR4
0 03 0 325 05 0 14 010 CIO 010 RESET 1,3,5,7,9,15
0 03 0 326 05 0 14 020 CIO 020
0 03 0 327 05 0 14 030 CIO 030
0 03 0 330 05 0 14 040 CIO 040
0 03 0 331 05 0 14 050 CIO 050
0 03 0 332 05 0 14 100 CIO 100
0 03 0 333 05 0 14 016 CIO 016 SET 4
0 03 0 334 17 0 14 274 510000000 CLA =O510000000
0 03 0 335 05 0 14 124 CIO 124 SET 6,7,8
0 03 0 336 15 0 14 274 510000000 XOR =O510000000 154 READ INT REG
0 03 0 337 04 0 14 1 305 TNZ L15P1Q
0 03 0 340 17 0 14 142 L10P24 CLA H10P24 024 RST 4,120 SET 3,7,9
0 03 0 341 13 0 14 1 073 STO VAR4 224 SET 1,3,6,134 SET 8,10,12
0 03 0 342 17 0 14 272 000000004 CLA =O000000004
0 03 0 343 05 0 14 210 CIO 210
0 03 0 344 17 0 14 1 020 CLA ZERO
0 03 0 345 05 0 14 210 CIO 210
0 03 0 346 05 0 14 154 CIO 154 144 PLT,164 PRT OCTAL
0 03 0 347 06 0 14 242 177770000 AND =O177770000 174,324 SP
0 03 0 350 15 0 14 275 056000000 XOR =O056000000
0 03 0 351 04 0 14 1 305 TNZ L15P1Q
0 03 0 352 10 0 14 1 002 TRA L10P25
ORG ,3,1,2,,14,
0 03 1 002 17 0 14 143 L10P25 CLA H10P25
0 03 1 003 13 0 14 1 073 STO VAR4
0 03 1 004 05 0 14 020 CIO 020 RST 3,4,7,8
0 03 1 005 05 0 14 024 CIO 024
0 03 1 006 05 0 14 040 CIO 040
0 03 1 007 05 0 14 044 CIO 044
0 03 1 010 05 0 14 022 CIO 022 SET 5
0 03 1 011 17 0 14 276 300000000 CLA =O300000000
0 03 1 012 05 0 14 130 CIO 130 SET 4,5,6,7,8
0 03 1 013 17 0 14 272 000000004 CLA =O000000004
0 03 1 014 05 0 14 210 CIO 210
0 03 1 015 17 0 14 1 020 CLA ZERO
# PAGE 46, SEQUENCE 22180-22740
PAGE 046
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 03 1 016 05 0 14 210 CIO 210
0 03 1 017 05 0 14 154 CIO 154 030 RST 5,134 SET 7,12
0 03 1 020 06 0 14 242 177770000 AND =O177770000 120 SET 3,6,8,160 SET 3,8,12
0 03 1 021 15 0 14 277 076000000 XOR =O076000000 110 HOP, 170 PRT BCD
0 03 1 022 04 0 14 1 305 TNZ L15P1Q 230 SP
0 03 1 023 17 0 14 144 L10P26 CLA H10P26
0 03 1 024 13 0 14 1 073 STO VAR4
0 03 1 025 05 0 14 010 CIO 010 RST 1 THRU 5,7,8
0 03 1 026 05 0 14 014 CIO 014
0 03 1 027 05 0 14 020 CIO 020
0 03 1 030 05 0 14 024 CIO 024
0 03 1 031 05 0 14 030 CIO 030
0 03 1 032 05 0 14 040 CIO 040
0 03 1 033 05 0 14 044 CIO 044
0 03 1 034 17 0 14 300 060000000 CLA =O060000000
0 03 1 035 05 0 14 134 CIO 134 SET 11,14
0 03 1 036 17 0 14 272 000000004 CLA =O000000004
0 03 1 037 05 0 14 210 CIO 210
0 03 1 040 17 0 14 1 020 CLA ZERO
0 03 1 041 05 0 14 210 CIO 210
0 03 1 042 05 0 14 154 CIO 154 034 RST 6,124 SET 5,7,8
0 03 1 043 15 0 14 301 010220000 XOR =O010220000 130 SET 5,7,8,164 PRT OCTAL
0 03 1 044 04 0 14 1 305 TNZ L15P1Q
0 03 1 045 17 0 14 145 L10P27 CLA H10P27
0 03 1 046 13 0 14 1 073 STO VAR4
0 03 1 047 05 0 14 034 CIO 034
0 03 1 050 05 0 14 060 CIO 060
0 03 1 051 05 0 14 074 CIO 074
0 03 1 052 05 0 14 032 CIO 032 SET 7
0 03 1 053 05 0 14 036 CIO 036 SET 8
0 03 1 054 05 0 14 042 CIO 042 SET 9
0 03 1 055 17 0 14 1 020 CLA ZERO
0 03 1 056 05 0 14 140 CIO 140 040 RST 7
0 03 1 057 05 0 14 144 CIO 144 044 RST 8
0 03 1 060 05 0 14 154 CIO 154
0 03 1 061 15 0 14 302 007000000 XOR =O007000000
0 03 1 062 04 0 14 1 305 TNZ L15P1Q
0 03 1 063 17 0 14 146 L10P28 CLA H10P28
0 03 1 064 13 0 14 1 073 STO VAR4
0 03 1 065 17 0 14 1 020 CLA ZERO
0 03 1 066 05 0 14 150 CIO 150
0 03 1 067 04 0 14 1 305 TNZ L15P1Q 154 READ INT REG
0 03 1 070 05 0 14 154 CIO 154
0 03 1 071 15 0 14 302 007000000 XOR =O007000000 050 RST 9
0 03 1 072 04 0 14 1 305 TNZ L15P1Q
0 03 1 073 17 0 14 147 L10P29 CLA H10P29
0 03 1 074 13 0 14 1 073 STO VAR4
0 03 1 075 05 0 14 052 CIO 052 SET 11
0 03 1 076 17 0 14 1 060 CLA LCR5 IS ROUTINE 5 SELECTED
0 03 1 077 14 0 14 1 103 TMI *+4
0 03 1 100 17 0 14 303 132100000 CLA =O1321 SET 3,5,6,8,12
0 03 1 101 05 0 14 224 CIO 224
0 03 1 102 10 0 14 1 114 TRA L10P30
0 03 1 103 17 0 14 304 130000000 CLA =O130000000
0 03 1 104 05 0 14 160 CIO 160 SET 3,5,6,8,12
0 03 1 105 17 0 14 305 000000176 CLA =O000000176 RESET DATA LINES
0 03 1 106 05 0 14 210 CIO 210
# PAGE 47, SEQUENCE 22750-23310
PAGE 047
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 03 1 107 17 0 14 1 020 CLA ZERO
0 03 1 110 05 0 14 210 CIO 210
0 03 1 111 05 0 14 154 CIO 154
0 03 1 112 15 0 14 306 137300000 XOR =O137300000 060 RST 11,164 PRT OCTAL
0 03 1 113 04 0 14 1 305 TNZ L15P1Q 260 SP
0 03 1 114 17 0 14 150 L10P30 CLA H10P30
0 03 1 115 13 0 14 1 073 STO VAR4
0 03 1 116 17 0 14 222 040000000 CLA =O040000000
0 03 1 117 05 0 14 164 CIO 164 160 SET 4
0 03 1 120 05 0 14 154 CIO 154 064 RST 12
0 03 1 121 15 0 14 306 137300000 XOR =O137300000
0 03 1 122 04 0 14 1 305 TNZ L15P1Q
0 03 1 123 17 0 14 151 L10P31 CLA H10P31
0 03 1 124 13 0 14 1 073 STO VAR4
0 03 1 125 05 0 14 062 CIO 062 SET 13
0 03 1 126 05 0 14 170 CIO 170 070 RST 13
0 03 1 127 05 0 14 154 CIO 154
0 03 1 130 15 0 14 307 137340000 XOR =O137340000
0 03 1 131 04 0 14 1 305 TNZ L15P1Q
0 03 1 132 17 0 14 152 L10P33 CLA H10P33
0 03 1 133 13 0 14 1 073 STO VAR4
0 03 1 134 05 0 14 066 CIO 066 SET 14
0 03 1 135 05 0 14 072 CIO 072 SET 15
0 03 1 136 17 0 14 1 020 CLA ZERO
0 03 1 137 05 0 14 174 CIO 174 074 RST 14
0 03 1 140 17 0 14 261 000000006 CLA =O000000006
0 03 1 141 05 0 14 200 CIO 200 204 RST P LIGHTS TO 3
0 03 1 142 05 0 14 154 CIO 154 210 SET D.O. 1 + 2
0 03 1 143 15 0 14 310 137370000 XOR =O137370000 100 RST 15
0 03 1 144 04 0 14 1 305 TNZ L15P1Q
0 03 1 145 17 0 14 153 L10P34 CLA H10P34
0 03 1 146 13 0 14 1 073 STO VAR4
0 03 1 147 17 0 14 1 020 CLA ZERO
0 03 1 150 05 0 14 214 CIO 214
0 03 1 151 06 0 14 262 000001760 AND =O000001760 CHECK FOR DO 5+6
0 03 1 152 04 0 14 1 305 TNZ L15P1Q
0 03 1 153 17 0 14 154 L10P35 CLA H10P35
0 03 1 154 13 0 14 1 073 STO VAR4
0 03 1 155 17 0 14 1 020 CLA ZERO
0 03 1 156 05 0 14 204 CIO 204 214 READ A SWTS
0 03 1 157 04 0 14 1 305 TNZ L15P1Q
0 03 1 160 17 0 14 155 L10P36 CLA H10P36
0 03 1 161 13 0 14 1 073 STO VAR4
0 03 1 162 17 0 14 221 400000000 CLA =O400000000
0 03 1 163 05 0 14 220 CIO 220 224 SET 1
0 03 1 164 15 0 14 223 200000000 XOR =O200000000
0 03 1 165 04 0 14 1 305 TNZ L15P1Q
0 03 1 166 17 0 14 156 L10P37 CLA H10P37
0 03 1 167 13 0 14 1 073 STO VAR4
0 03 1 170 05 0 14 154 CIO 154
0 03 1 171 15 0 14 310 137370000 XOR =O137370000
0 03 1 172 04 0 14 1 305 TNZ L15P1Q
0 03 1 173 17 0 14 157 L10P38 CLA H10P38
0 03 1 174 13 0 14 1 073 STO VAR4
0 03 1 175 05 0 14 020 CIO 020 RESET INT REG
0 03 1 176 05 0 14 030 CIO 030
0 03 1 177 05 0 14 034 CIO 034
# PAGE 48, SEQUENCE 23320-23880
PAGE 048
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 03 1 200 05 0 14 040 CIO 040
0 03 1 201 05 0 14 044 CIO 044
0 03 1 202 05 0 14 050 CIO 050
0 03 1 203 05 0 14 060 CIO 060
0 03 1 204 05 0 14 064 CIO 064
0 03 1 205 05 0 14 070 CIO 070
0 03 1 206 05 0 14 074 CIO 074
0 03 1 207 05 0 14 100 CIO 100
0 03 1 210 17 0 14 305 000000176 CLA =O000000176
0 03 1 211 12 0 14 210 PIO 210 CIO 210 SETS D.O.S
0 03 1 212 05 0 14 214 CIO 214
0 03 1 213 06 0 14 262 000001760 AND =O000001760
0 03 1 214 04 0 14 1 305 TNZ L15P1Q
* TEST DESCRETE INPUTS AND OUTPUTS
0 03 1 215 17 0 14 160 L10P39 CLA H10P39
0 03 1 216 13 0 14 1 073 STO VAR4
0 03 1 217 17 0 14 311 000000002 CLA =O000000002
0 03 1 220 05 0 14 210 CIO 210 SET DO 1
* CAL POINT NR 1
0 03 1 221 05 0 14 214 CIO 214
0 03 1 222 06 0 14 262 000001760 AND =O000001760
0 03 1 223 15 0 14 312 000000020 XOR =O000000020
0 03 1 224 04 0 14 1 305 TNZ L15P1Q TEST DO 1, DI 1, CIO 210 UP
0 03 1 225 17 0 14 161 L10P40 CLA H10P40
0 03 1 226 13 0 14 1 073 STO VAR4
0 03 1 227 17 0 14 272 000000004 CLA =O000000004
0 03 1 230 05 0 14 210 CIO 210 RST DO1, SET DO 2
* CAL POINT NR 2
0 03 1 231 05 0 14 214 CIO 214
0 03 1 232 06 0 14 262 000001760 AND =O000001760
0 03 1 233 15 0 14 313 000000040 XOR =O000000040 TEST DO2, DI2 UP
0 03 1 234 04 0 14 1 305 TNZ L15P1Q
0 03 1 235 17 0 14 162 L10P41 CLA H10P41
0 03 1 236 13 0 14 1 073 STO VAR4
0 03 1 237 17 0 14 314 000000010 CLA =O000000010
0 03 1 240 05 0 14 210 CIO 210 RST DO2, SET DO3
* CAL POINT NR 3
0 03 1 241 05 0 14 214 CIO 214
0 03 1 242 06 0 14 262 000001760 AND =O000001760
0 03 1 243 15 0 14 315 000000100 XOR =O000000100 TEST DO 3, DI 3 UP
0 03 1 244 04 0 14 1 305 TNZ L15P1Q
0 03 1 245 17 0 14 163 L10P42 CLA H10P42
0 03 1 246 13 0 14 1 073 STO VAR4
0 03 1 247 17 0 14 312 000000020 CLA =O000000020
0 03 1 250 05 0 14 210 CIO 210 RST DO 3, SET DO 4
* CAL POINT NR 4
0 03 1 251 05 0 14 214 CIO 214
0 03 1 252 06 0 14 262 000001760 AND =O000001760
0 03 1 253 15 0 14 316 000000200 XOR =O000000200 TEST DO 4, DI 4 UP
0 03 1 254 04 0 14 1 305 TNZ L15P1Q
0 03 1 255 17 0 14 164 L10P43 CLA H10P43
0 03 1 256 13 0 14 1 073 STO VAR4
0 03 1 257 17 0 14 313 000000040 CLA =O000000040
0 03 1 260 05 0 14 210 CIO 210 RST DO 4, SET DO 5
* CAL POINT NR 5
0 03 1 261 05 0 14 214 CIO 214
0 03 1 262 06 0 14 262 000001760 AND =O000001760
# PAGE 49, SEQUENCE 23890-24450
PAGE 049
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 03 1 263 15 0 14 317 000000400 XOR =O000000400 TEST DO 5, DI 5 UP
0 03 1 264 04 0 14 1 305 TNZ L15P1Q
0 03 1 265 17 0 14 165 L10P44 CLA H10P44
0 03 1 266 13 0 14 1 073 STO VAR4
0 03 1 267 17 0 14 315 000000100 CLA =O000000100
0 03 1 270 05 0 14 210 CIO 210 RST DO 5, SET DO 6
* CAL POINT NR 6
0 03 1 271 05 0 14 214 CIO 214
0 03 1 272 06 0 14 262 000001760 AND =O000001760
0 03 1 273 15 0 14 320 000001000 XOR =O000001000 TEST DO 6, DI 6 UP
0 03 1 274 04 0 14 1 305 TNZ L15P1Q
0 03 1 275 17 0 14 166 L10P45 CLA H10P45
0 03 1 276 13 0 14 1 073 STO VAR4
0 03 1 277 17 0 14 1 020 CLA ZERO
0 03 1 300 05 0 14 210 CIO 210 RST DO 6
0 03 1 301 05 0 14 214 CIO 214
0 03 1 302 06 0 14 262 000001760 AND =O000001760 TEST RST DO 6
0 03 1 303 04 0 14 1 305 TNZ L15P1Q
0 03 1 304 10 0 14 1 315 TRA L11P1
0 03 1 305 13 0 14 1 076 L15P1Q STO TEMP
0 03 1 306 17 0 14 170 CLA H11P1
0 03 1 307 13 0 14 1 071 STO VAR2
0 03 1 310 17 0 14 113 CLA H10P1
0 03 1 311 13 0 14 1 070 STO VAR1
0 03 1 312 00 0 14 1 023 HOP H9P3
0 03 1 313 17 0 14 1 076 CLA TEMP
0 03 1 314 00 0 14 321 160000560 TRA* L95P1
# This following line was not in the original source code,
# and is a workaround for what I believe is a bug in the
# original assembler that I haven't yet figured out how to
# reproduce in the modern assembler.
DOG 0,14,113 # workaround
0 14 113 140014430 H10P1 HPC L10P1
0 14 114 140031430 H10P2 HPC L10P2
0 14 115 140034030 H10P3 HPC L10P3
0 14 116 140036430 H10P4 HPC L10P4
0 14 117 140043430 H10P5 HPC L10P5
0 14 120 140047030 H10P6 HPC L10P6
0 14 121 140052430 H10P7 HPC L10P7
0 14 122 140056030 H10P8 HPC L10P8
0 14 123 140061430 H10P9 HPC L10P9
0 14 124 140065030 H10P10 HPC L10P10
0 14 125 140070430 H10P11 HPC L10P11
0 14 126 140073030 H10P12 HPC L10P12
0 14 127 140075430 H10P13 HPC L10P13
0 14 130 140101030 H10P14 HPC L10P14
0 14 131 140104030 H10P15 HPC L10P15
0 14 132 140107030 H10P16 HPC L10P16
0 14 133 140112030 H10P17 HPC L10P17
0 14 134 140115030 H10P18 HPC L10P18
0 14 135 140121430 H10P19 HPC L10P19
0 14 136 140125030 H10P20 HPC L10P20
0 14 137 140132030 H10P21 HPC L10P21
0 14 140 140141030 H10P22 HPC L10P22
0 14 141 140151430 H10P23 HPC L10P23
0 14 142 140160030 H10P24 HPC L10P24
0 14 143 140001230 H10P25 HPC L10P25
0 14 144 140011630 H10P26 HPC L10P26
0 14 145 140022630 H10P27 HPC L10P27
0 14 146 140031630 H10P28 HPC L10P28
0 14 147 140035630 H10P29 HPC L10P29
0 14 150 140046230 H10P30 HPC L10P30
# PAGE 50, SEQUENCE 24460-24590
PAGE 050
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 14 151 140051630 H10P31 HPC L10P31
0 14 152 140055230 H10P33 HPC L10P33
0 14 153 140062630 H10P34 HPC L10P34
0 14 154 140065630 H10P35 HPC L10P35
0 14 155 140070230 H10P36 HPC L10P36
0 14 156 140073230 H10P37 HPC L10P37
0 14 157 140075630 H10P38 HPC L10P38
0 14 160 140106630 H10P39 HPC L10P39
0 14 161 140112630 H10P40 HPC L10P40
0 14 162 140116630 H10P41 HPC L10P41
0 14 163 140122630 H10P42 HPC L10P42
0 14 164 140126630 H10P43 HPC L10P43
0 14 165 140132630 H10P44 HPC L10P44
0 14 166 140136630 H10P45 HPC L10P45
# PAGE 51, SEQUENCE 24610-25060
PAGE 051
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
* TEST ACCUMULATOR INTERFACE
0 03 1 315 17 0 14 170 L11P1 CLA H11P1
0 03 1 316 13 0 14 1 073 STO VAR4
0 03 1 317 00 0 14 1 023 HOP H9P3
0 03 1 320 17 0 14 1 020 CLA ZERO
0 03 1 321 05 0 14 224 CIO 224 220 READ B SWT = 1
0 03 1 322 04 0 14 1 361 TNZ L15P1R
0 03 1 323 17 0 14 171 L11P2 CLA H11P2
0 03 1 324 13 0 14 1 073 STO VAR4
0 03 1 325 05 0 14 154 CIO 154
0 03 1 326 04 0 14 1 361 TNZ L15P1R CHECK FOR ALL INTERFACE UP
0 03 1 327 17 0 14 172 L11P3 CLA H11P3
0 03 1 330 13 0 14 1 073 STO VAR4
0 03 1 331 17 0 14 322 400000002 CLA =O400000002 AS, A25
0 03 1 332 05 0 14 224 CIO 224
0 03 1 333 05 0 14 154 CIO 154
0 03 1 334 15 0 14 323 400200000 XOR =O400200000
0 03 1 335 04 0 14 1 361 TNZ L15P1R
0 03 1 336 17 0 14 173 L11P4 CLA H11P4
0 03 1 337 13 0 14 1 073 STO VAR4
0 03 1 340 05 0 14 010 CIO 010 RST 1
0 03 1 341 05 0 14 060 CIO 060 RST 11
0 03 1 342 17 0 14 324 200000004 CLA =O200000004 A1,A24
0 03 1 343 05 0 14 224 CIO 224
0 03 1 344 05 0 14 154 CIO 154
0 03 1 345 15 0 14 325 200400000 XOR =O200400000
0 03 1 346 04 0 14 1 361 TNZ L15P1R
0 03 1 347 17 0 14 174 L11P5 CLA H11P5
0 03 1 350 13 0 14 1 073 STO VAR4
0 03 1 351 05 0 14 014 CIO 014 RST 2
0 03 1 352 05 0 14 054 CIO 054 RST 10
0 03 1 353 17 0 14 326 100000010 CLA =O100000010 A2,A23
0 03 1 354 05 0 14 224 CIO 224
0 03 1 355 05 0 14 154 CIO 154
0 03 1 356 15 0 14 327 101000000 XOR =O101000000
0 03 1 357 04 0 14 1 361 TNZ L15P1R
0 03 1 360 00 0 14 330 140001040 TRA* L11P6
0 03 1 361 13 0 14 1 377 L15P1R STO 777
0 03 1 362 13 0 14 1 076 LPRA STO TEMP
0 03 1 363 17 0 14 1 073 CLA VAR4
0 03 1 364 13 0 14 1 070 STO VAR1
0 03 1 365 17 0 14 1 377 CLA 777
0 03 1 366 13 0 14 1 071 STO VAR2
0 03 1 367 00 0 14 1 023 HOP H9P3
0 03 1 370 17 0 14 1 076 CLA TEMP
0 03 1 371 00 0 14 1 026 HOP H95P1
# PAGE 52, SEQUENCE 25080-25640
PAGE 052
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
ORG ,4,,2,,14,
0 04 0 002 17 0 14 175 L11P6 CLA H11P6
0 04 0 003 13 0 14 1 073 STO VAR4
0 04 0 004 05 0 14 020 CIO 020 RST3
0 04 0 005 05 0 14 050 CIO 050 RST9
0 04 0 006 17 0 14 331 040000020 CLA =O040000020 A3,A22
0 04 0 007 05 0 14 224 CIO 224
0 04 0 010 05 0 14 154 CIO 154
0 04 0 011 15 0 14 332 042000000 XOR =O042000000
0 04 0 012 04 0 14 137 TNZ LPR
0 04 0 013 17 0 14 176 L11P7 CLA H11P7
0 04 0 014 13 0 14 1 073 STO VAR4
0 04 0 015 05 0 14 024 CIO 024 RST 4
0 04 0 016 05 0 14 044 CIO 044 RST 8
0 04 0 017 17 0 14 333 020000040 CLA =O020000040 A4, A21
0 04 0 020 05 0 14 224 CIO 224
0 04 0 021 05 0 14 154 CIO 154
0 04 0 022 15 0 14 334 024000000 XOR =O024000000
0 04 0 023 04 0 14 137 TNZ LPR
0 04 0 024 17 0 14 177 L11P8 CLA H11P8
0 04 0 025 13 0 14 1 073 STO VAR4
0 04 0 026 05 0 14 030 CIO 030 RST 5
0 04 0 027 05 0 14 040 CIO 040 RST 7
0 04 0 030 17 0 14 335 010100000 CLA =O010100000 A5, A11
0 04 0 031 05 0 14 224 CIO 224
0 04 0 032 05 0 14 154 CIO 154
0 04 0 033 15 0 14 335 010100000 XOR =O010100000
0 04 0 034 04 0 14 137 TNZ LPR
0 04 0 035 17 0 14 200 L11P9 CLA H11P9
0 04 0 036 13 0 14 1 073 STO VAR4
0 04 0 037 05 0 14 034 CIO 034 RST 6
0 04 0 040 05 0 14 064 CIO 064 RST 12
0 04 0 041 17 0 14 336 004040000 CLA =O004040000 A6, A12
0 04 0 042 05 0 14 224 CIO 224
0 04 0 043 05 0 14 154 CIO 154
0 04 0 044 15 0 14 336 004040000 XOR =O004040000
0 04 0 045 04 0 14 137 TNZ LPR
0 04 0 046 10 0 14 053 TRA L11P10
ORG ,4,,53,,14,
0 04 0 053 17 0 14 201 L11P10 CLA H11P10
0 04 0 054 13 0 14 1 073 STO VAR4
0 04 0 055 05 0 14 040 CIO 040 RST 7
0 04 0 056 05 0 14 070 CIO 070 RST 13
0 04 0 057 17 0 14 337 002020100 CLA =O002020100 A7, A13, A20
0 04 0 060 05 0 14 224 CIO 224
0 04 0 061 05 0 14 154 CIO 154
0 04 0 062 15 0 14 340 012020000 XOR =O012020000
0 04 0 063 04 0 14 137 TNZ LPR
0 04 0 064 17 0 14 202 L11P11 CLA H11P11
0 04 0 065 13 0 14 1 073 STO VAR4
0 04 0 066 05 0 14 044 CIO 044 RST 8
0 04 0 067 05 0 14 074 CIO 074 RST 14
0 04 0 070 05 0 14 034 CIO 034 RST 6
0 04 0 071 17 0 14 341 001010200 CLA =O001010200 A8, A14, A19
0 04 0 072 05 0 14 224 CIO 224
0 04 0 073 05 0 14 154 CIO 154
0 04 0 074 15 0 14 342 021010000 XOR =O021010000
# PAGE 53, SEQUENCE 25650-26210
PAGE 053
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 04 0 075 04 0 14 137 TNZ LPR
0 04 0 076 17 0 14 203 L11P12 CLA H11P12
0 04 0 077 13 0 14 1 073 STO VAR4
0 04 0 100 05 0 14 030 CIO 030 RST 5
0 04 0 101 05 0 14 050 CIO 050 RST 9
0 04 0 102 05 0 14 100 CIO 100 RST 15
0 04 0 103 17 0 14 343 000404400 CLA =O000404400 A9, A15, A18
0 04 0 104 05 0 14 224 CIO 224
0 04 0 105 05 0 14 154 CIO 154
0 04 0 106 15 0 14 344 440400000 XOR =O440400000
0 04 0 107 04 0 14 137 TNZ LPR
0 04 0 110 17 0 14 204 L11P13 CLA H11P13
0 04 0 111 13 0 14 1 073 STO VAR4
0 04 0 112 05 0 14 010 CIO 010 RST 1
0 04 0 113 05 0 14 024 CIO 024 RST 4
0 04 0 114 05 0 14 054 CIO 054 RST 10
0 04 0 115 17 0 14 345 000201000 CLA =O000201000 A10, A17
0 04 0 116 05 0 14 224 CIO 224
0 04 0 117 05 0 14 154 CIO 154
0 04 0 120 15 0 14 346 100200000 XOR =O100200000
0 04 0 121 04 0 14 137 TNZ LPR
0 04 0 122 17 0 14 205 L11P14 CLA H11P14
0 04 0 123 13 0 14 1 073 STO VAR4
0 04 0 124 05 0 14 020 L11PA CIO 020 RST 3
0 04 0 125 05 0 14 060 CIO 060 RST 11
0 04 0 126 17 0 14 347 000002000 CLA =O000002000 A16
0 04 0 127 05 0 14 224 CIO 224
0 04 0 130 05 0 14 154 CIO 154
0 04 0 131 15 0 14 223 200000000 XOR =O200000000
0 04 0 132 04 0 14 137 TNZ LPR
0 04 0 133 17 0 14 206 L11P15 CLA H11P15
0 04 0 134 13 0 14 1 073 STO VAR4
0 04 0 135 05 0 14 014 CIO 014 RST 2
0 04 0 136 10 0 14 141 TRA L11P18
0 04 0 137 13 0 14 1 377 LPR STO 777
0 04 0 140 00 0 14 350 140171230 TRA* LPRA
* CHECK PIO + A1 THRU A9 INTERFACE LINES
0 04 0 141 17 0 14 207 L11P18 CLA H11P18
0 04 0 142 13 0 14 1 073 STO VAR4
0 04 0 143 12 0 14 000 PIO 000
0 04 0 144 05 0 14 154 CIO 154
0 04 0 145 04 0 14 305 TNZ L11P28
0 04 0 146 17 0 14 210 L11P19 CLA H11P19
0 04 0 147 13 0 14 1 073 STO VAR4
0 04 0 150 12 0 14 001 PIO 001 SET INT 1
0 04 0 151 05 0 14 154 CIO 154
0 04 0 152 15 0 14 221 400000000 XOR =O400000000
0 04 0 153 04 0 14 305 TNZ L11P28
0 04 0 154 17 0 14 211 L11P20 CLA H11P20
0 04 0 155 13 0 14 1 073 STO VAR4
0 04 0 156 05 0 14 010 CIO 010 RST 1
0 04 0 157 12 0 14 002 PIO 002 SET 2
0 04 0 160 05 0 14 154 CIO 154
0 04 0 161 15 0 14 223 200000000 XOR =O200000000
0 04 0 162 04 0 14 305 TNZ L11P28
0 04 0 163 17 0 14 212 L11P21 CLA H11P21
# PAGE 54, SEQUENCE 26220-26780
PAGE 054
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 04 0 164 13 0 14 1 073 STO VAR4
0 04 0 165 05 0 14 014 CIO 014 RST 2
0 04 0 166 12 0 14 004 PIO 004 SET 3
0 04 0 167 05 0 14 154 CIO 154
0 04 0 170 15 0 14 167 100000000 XOR =O100000000
0 04 0 171 04 0 14 305 TNZ L11P28
0 04 0 172 17 0 14 213 L11P22 CLA H11P22
0 04 0 173 13 0 14 1 073 STO VAR4
0 04 0 174 05 0 14 020 CIO 020 RST 3
0 04 0 175 12 0 14 010 PIO 010 SET 4
0 04 0 176 05 0 14 154 CIO 154
0 04 0 177 15 0 14 222 040000000 XOR =O040000000
0 04 0 200 04 0 14 305 TNZ L11P28
0 04 0 201 17 0 14 214 L11P23 CLA H11P23
0 04 0 202 13 0 14 1 073 STO VAR4
0 04 0 203 05 0 14 024 CIO 024 RST 4
0 04 0 204 12 0 14 020 PIO 020 SET 5
0 04 0 205 05 0 14 154 CIO 154
0 04 0 206 15 0 14 224 020000000 XOR =O020000000
0 04 0 207 04 0 14 305 TNZ L11P28
0 04 0 210 17 0 14 215 L11P24 CLA H11P24
0 04 0 211 13 0 14 1 073 STO VAR4
0 04 0 212 05 0 14 030 CIO 030 RST 5
0 04 0 213 12 0 14 040 PIO 040 SET 6
0 04 0 214 05 0 14 154 CIO 154
0 04 0 215 15 0 14 225 010000000 XOR =O010000000
0 04 0 216 04 0 14 305 TNZ L11P28
0 04 0 217 17 0 14 216 L11P25 CLA H11P25
0 04 0 220 13 0 14 1 073 STO VAR4
0 04 0 221 05 0 14 034 CIO 034 RST 6
0 04 0 222 12 0 14 100 PIO 100 SET 7
0 04 0 223 05 0 14 154 CIO 154
0 04 0 224 15 0 14 226 004000000 XOR =O004000000
0 04 0 225 04 0 14 305 TNZ L11P28
0 04 0 226 17 0 14 217 L11P26 CLA H11P26
0 04 0 227 13 0 14 1 073 STO VAR4
0 04 0 230 05 0 14 040 CIO 040 RST 4
0 04 0 231 12 0 14 200 PIO 200 SET 8
0 04 0 232 05 0 14 154 CIO 154
0 04 0 233 15 0 14 227 002000000 XOR =O002000000
0 04 0 234 04 0 14 305 TNZ L11P28
0 04 0 235 17 0 14 220 L11P27 CLA H11P27
0 04 0 236 13 0 14 1 073 STO VAR4
0 04 0 237 05 0 14 044 CIO 044 RST 8
0 04 0 240 12 0 14 1 000 PIO 400 SET 9
0 04 0 241 05 0 14 154 CIO 154
0 04 0 242 15 0 14 230 001000000 XOR =O001000000
0 04 0 243 04 0 14 305 TNZ L11P28
0 04 0 244 05 0 14 050 CIO 050 RST 9
* CHECK SERIAL DATA LINES AI3 + CIO DATA
0 04 0 245 13 0 14 1 376 L11P29 STO 776
0 04 0 246 17 0 14 1 020 CLA ZERO
0 04 0 247 13 0 14 1 073 STO VAR4
0 04 0 250 17 0 14 351 252525252 CLA =O252525252
0 04 0 251 05 0 14 234 CIO 234
0 04 0 252 05 0 14 001 CIO 001
0 04 0 253 15 0 14 352 525252524 XOR =O525252524
# PAGE 55, SEQUENCE 26790-27350
PAGE 055
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 04 0 254 04 0 14 307 TNZ L11P33
0 04 0 255 13 0 14 1 376 L11P30 STO 776
0 04 0 256 17 0 14 352 525252524 CLA =O525252524
0 04 0 257 05 0 14 234 CIO 234
0 04 0 260 05 0 14 001 CIO 001
0 04 0 261 15 0 14 353 252525250 XOR =O252525250
0 04 0 262 04 0 14 307 TNZ L11P33
* CHECK PTRS + PIO DATA LINES
0 04 0 263 13 0 14 1 376 L11P31 STO 776
0 04 0 264 17 0 14 351 252525252 CLA =O252525252
0 04 0 265 13 0 14 1 003 STO 403
0 04 0 266 17 0 14 1 020 CLA ZERO
0 04 0 267 05 0 14 230 CIO 230
0 04 0 270 12 0 14 1 003 PIO 403
0 04 0 271 15 0 14 352 525252524 XOR =O525252524
0 04 0 272 04 0 14 307 TNZ L11P33
0 04 0 273 13 0 14 1 376 L11P32 STO 776
0 04 0 274 17 0 14 352 525252524 CLA =O525252524
0 04 0 275 13 0 14 1 003 STO 403
0 04 0 276 17 0 14 1 020 CLA ZERO
0 04 0 277 05 0 14 230 CIO 230
0 04 0 300 12 0 14 1 003 PIO 403
0 04 0 301 15 0 14 353 252525250 XOR =O252525250
0 04 0 302 04 0 14 307 TNZ L11P33
0 04 0 303 00 0 14 1 023 HOP H9P3
0 04 0 304 00 0 14 354 150000460 TRA* L12P1
0 04 0 305 13 0 14 1 377 L11P28 STO 777
0 04 0 306 00 0 14 355 140167620 TRA* LPPA
0 04 0 307 13 0 14 1 377 L11P33 STO 777
0 04 0 310 13 0 14 1 076 STO TEMP
0 04 0 311 17 0 14 1 377 CLA 777
0 04 0 312 13 0 14 1 071 STO VAR2
0 04 0 313 17 0 14 1 376 CLA 776
0 04 0 314 13 0 14 1 070 STO VAR1
0 04 0 315 00 0 14 1 023 HOP H9P3
0 04 0 316 17 0 14 1 076 CLA TEMP
0 04 0 317 00 0 14 1 026 HOP H95P1
# This following line was not in the original source code,
# and is a workaround for what I believe is a bug in the
# original assembler that I haven't yet figured out how to
# reproduce in the modern assembler.
DOG 0,14,170 # workaround
0 14 170 140146630 H11P1 HPC L11P1
0 14 171 140151630 H11P2 HPC L11P2
0 14 172 140153630 H11P3 HPC L11P3
0 14 173 140157230 H11P4 HPC L11P4
0 14 174 140163630 H11P5 HPC L11P5
0 14 175 140001040 H11P6 HPC L11P6
0 14 176 140005440 H11P7 HPC L11P7
0 14 177 140012040 H11P8 HPC L11P8
0 14 200 140016440 H11P9 HPC L11P9
0 14 201 140025440 H11P10 HPC L11P10
0 14 202 140032040 H11P11 HPC L11P11
0 14 203 140037040 H11P12 HPC L11P12
0 14 204 140044040 H11P13 HPC L11P13
0 14 205 140051040 H11P14 HPC L11P14
0 14 206 140055440 H11P15 HPC L11P15
0 14 207 140060440 H11P18 HPC L11P18
0 14 210 140063040 H11P19 HPC L11P19
0 14 211 140066040 H11P20 HPC L11P20
0 14 212 140071440 H11P21 HPC L11P21
# PAGE 56, SEQUENCE 27360-27410
PAGE 056
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 14 213 140075040 H11P22 HPC L11P22
0 14 214 140100440 H11P23 HPC L11P23
0 14 215 140104040 H11P24 HPC L11P24
0 14 216 140107440 H11P25 HPC L11P25
0 14 217 140113040 H11P26 HPC L11P26
0 14 220 140116440 H11P27 HPC L11P27
# PAGE 57, SEQUENCE 27430-27990
PAGE 057
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
* TEST PIO INTERRUPTS
ORG ,6,,1,,15,0
0 15 000 150023060 H12P3 HPC L12P3
0 15 001 150032060 H12P5 HPC L12P5
0 15 002 150041060 H13P1 HPC L13P1
0 15 003 150050060 H13P3 HPC L13P3
0 15 004 150057060 H13P5 HPC L13P5
0 15 005 150066060 H14P1 HPC L14P1
0 15 006 150075060 H14P3 HPC L14P3
0 15 007 150104060 H14P5 HPC L14P5
0 15 010 150113060 H15P1 HPC L15P1
0 15 011 150122060 H15P3 HPC L15P3
0 15 012 150131060 H15P5 HPC L15P5
0 15 013 150140060 H16P1 HPC L16P1
0 15 014 150147060 H16P3 HPC L16P3
0 15 015 150156060 H16P5 HPC L16P5
0 15 016 150165060 H17P1 HPC L17P1
0 15 017 150000460 H12P1 HPC L12P1
0 15 020 150173060 H12P2 HPC L12P2
0 15 021 150174060 H12P4 HPC L12P4
0 15 022 150000260 H12P6 HPC L12P6
0 15 023 150004260 H13P2 HPC L13P2
0 15 024 150005260 H13P4 HPC L13P4
0 15 025 150006260 H13P6 HPC L13P6
0 15 026 150007260 H14P2 HPC L14P2
0 15 027 150010260 H14P4 HPC L14P4
0 15 030 150011260 H14P6 HPC L14P6
0 15 031 150012260 H15P2 HPC L15P2
0 15 032 150013260 H15P4 HPC L15P4
0 15 033 150014260 H15P6 HPC L15P6
0 15 034 150015260 H16P2 HPC L16P2
0 15 035 150016260 H16P4 HPC L16P4
0 15 036 150017260 H16P6 HPC L16P6
0 06 0 001 17 0 15 017 L12P1 CLA H12P1
0 06 0 002 13 0 15 1 073 STO VAR4
0 06 0 003 17 0 15 020 CLA H12P2
0 06 0 004 13 0 15 1 000 STO 400
0 06 0 005 17 0 15 021 CLA H12P4
0 06 0 006 13 0 15 1 001 STO 401
0 06 0 007 17 0 15 022 CLA H12P6
0 06 0 010 13 0 15 1 002 STO 402
0 06 0 011 17 0 15 023 CLA H13P2
0 06 0 012 13 0 15 1 003 STO 403
0 06 0 013 17 0 15 024 CLA H13P4
0 06 0 014 13 0 15 1 004 STO 404
0 06 0 015 17 0 15 025 CLA H13P6
0 06 0 016 13 0 15 1 005 STO 405
0 06 0 017 17 0 15 026 CLA H14P2
0 06 0 020 13 0 15 1 006 STO 406
0 06 0 021 17 0 15 027 CLA H14P4
0 06 0 022 13 0 15 1 007 STO 407
0 06 0 023 17 0 15 030 CLA H14P6
0 06 0 024 13 0 15 1 010 STO 410
0 06 0 025 17 0 15 031 CLA H15P2
0 06 0 026 13 0 15 1 011 STO 411
0 06 0 027 17 0 15 032 CLA H15P4
# PAGE 58, SEQUENCE 28000-28560
PAGE 058
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 06 0 030 13 0 15 1 012 STO 412
0 06 0 031 17 0 15 033 CLA H15P6
0 06 0 032 13 0 15 1 013 STO 413
0 06 0 033 17 0 15 034 CLA H16P2
0 06 0 034 13 0 15 1 014 STO 414
0 06 0 035 17 0 15 035 CLA H16P4
0 06 0 036 13 0 15 1 015 STO 415
0 06 0 037 17 0 15 036 CLA H16P6
0 06 0 040 13 0 15 1 016 STO 416
0 06 0 041 17 0 15 037 777777776 CLA =O777777776
0 06 0 042 05 0 15 224 CIO 224 SET ALL INT LATCHES
* CAL POINT NR 7
0 06 0 043 05 0 15 110 CIO 110 RST MAIN PTC INT LATCH
* CAL POINT NR 8
0 06 0 044 17 0 15 040 000000002 CLA =O000000002 REMOVE INH ON INT 1
0 06 0 045 05 0 15 004 CIO 004
* SHOULD FORCE HOP 400 TO L12P2
0 06 0 046 13 0 15 1 377 L12P3 STO 777 SAVE PREVIOUS LOCN+1
0 06 0 047 13 0 15 1 076 STO TEMP
0 06 0 050 17 0 15 1 377 CLA 777
0 06 0 051 13 0 15 1 074 STO VAR5
0 06 0 052 17 0 15 1 076 CLA TEMP
0 06 0 053 15 0 15 054 200000000 XOR =O200000000
0 06 0 054 04 0 15 1 040 TNZ L15P1S
0 06 0 055 17 0 15 000 CLA H12P3
0 06 0 056 13 0 15 1 073 STO VAR4
0 06 0 057 17 0 15 037 777777776 CLA =O777777776
0 06 0 060 05 0 15 000 CIO 000 SET INT INHIBIT
0 06 0 061 05 0 15 110 CIO 110 RST MAIN INT LATCH
0 06 0 062 17 0 15 277 000000004 CLA =O000000004 REMOVE INH ON INT 2
0 06 0 063 05 0 15 004 CIO 004
* SHOULD FORCE HOP 401 TO L12P4
0 06 0 064 13 0 15 1 377 L12P5 STO 777
0 06 0 065 13 0 15 1 076 STO TEMP
0 06 0 066 17 0 15 1 377 CLA 777
0 06 0 067 13 0 15 1 074 STO VAR5
0 06 0 070 17 0 15 1 076 CLA TEMP
0 06 0 071 15 0 15 300 100000000 XOR =O100000000
0 06 0 072 04 0 15 1 040 TNZ L15P1S
0 06 0 073 17 0 15 001 CLA H12P5
0 06 0 074 13 0 15 1 073 STO VAR4
0 06 0 075 17 0 15 037 777777776 CLA =O777777776
0 06 0 076 05 0 15 000 CIO 000 SET INT INHIBIT
0 06 0 077 05 0 15 110 CIO 110 RST MAIN INT LATCH
0 06 0 100 17 0 15 301 000000010 CLA =O000000010 REMOVE INH ON INT 3
0 06 0 101 05 0 15 004 CIO 004
* SHOULD FORCE HOP 402 TO L12P6
0 06 0 102 13 0 15 1 377 L13P1 STO 777
0 06 0 103 13 0 15 1 076 STO TEMP
0 06 0 104 17 0 15 1 377 CLA 777
0 06 0 105 13 0 15 1 074 STO VAR5
0 06 0 106 17 0 15 1 076 CLA TEMP
0 06 0 107 15 0 15 302 040000000 XOR =O040000000
0 06 0 110 04 0 15 1 040 TNZ L15P1S
0 06 0 111 17 0 15 002 CLA H13P1
0 06 0 112 13 0 15 1 073 STO VAR4
0 06 0 113 17 0 15 037 777777776 CLA =O777777776
# PAGE 59, SEQUENCE 28570-29130
PAGE 059
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 06 0 114 05 0 15 000 CIO 000 SET INT INHIBIT
0 06 0 115 05 0 15 110 CIO 110 RST MAIN INT LATCH
0 06 0 116 17 0 15 303 000000020 CLA =O000000020 REMOVE INH ON INT 4
0 06 0 117 05 0 15 004 CIO 004
* SHOULD FORCE HOP 403 TO L13P2
0 06 0 120 13 0 15 1 377 L13P3 STO 777
0 06 0 121 13 0 15 1 076 STO TEMP
0 06 0 122 17 0 15 1 377 CLA 777
0 06 0 123 13 0 15 1 074 STO VAR5
0 06 0 124 17 0 15 1 076 CLA TEMP
0 06 0 125 15 0 15 304 020000000 XOR =O020000000
0 06 0 126 04 0 15 1 040 TNZ L15P1S
0 06 0 127 17 0 15 003 CLA H13P3
0 06 0 130 13 0 15 1 073 STO VAR4
0 06 0 131 17 0 15 037 777777776 CLA =O777777776
0 06 0 132 05 0 15 000 CIO 000 SET INT HINHIBIT
0 06 0 133 05 0 15 110 CIO 110 RST MAIN INT LATCH
0 06 0 134 17 0 15 305 000000040 CLA =O000000040 REMOVE INH ON INT 5
0 06 0 135 05 0 15 004 CIO 004
* SHOULD FORCE HOP 404 TO L13P4
0 06 0 136 13 0 15 1 377 L13P5 STO 777
0 06 0 137 13 0 15 1 076 STO TEMP
0 06 0 140 17 0 15 1 377 CLA 777
0 06 0 141 13 0 15 1 074 STO VAR5
0 06 0 142 17 0 15 1 076 CLA TEMP
0 06 0 143 15 0 15 306 010000000 XOR =O010000000
0 06 0 144 04 0 15 1 040 TNZ L15P1S
0 06 0 145 17 0 15 004 CLA H13P5
0 06 0 146 13 0 15 1 073 STO VAR4
0 06 0 147 17 0 15 037 777777776 CLA =O777777776
0 06 0 150 05 0 15 000 CIO 000 SET INT INHIBIT
0 06 0 151 05 0 15 110 CIO 110 RST MAIN INT LATCH
0 06 0 152 17 0 15 307 000000100 CLA =O000000100 REMOVE INH ON INT 6
0 06 0 153 05 0 15 004 CIO 004
* SHOULD FORCE HOP 405 TO L13P6
0 06 0 154 13 0 15 1 377 L14P1 STO 777
0 06 0 155 13 0 15 1 076 STO TEMP
0 06 0 156 17 0 15 1 377 CLA 777
0 06 0 157 13 0 15 1 074 STO VAR5
0 06 0 160 17 0 15 1 076 CLA TEMP
0 06 0 161 15 0 15 310 004000000 XOR =O004000000
0 06 0 162 04 0 15 1 040 TNZ L15P1S
0 06 0 163 17 0 15 005 CLA H14P1
0 06 0 164 13 0 15 1 073 STO VAR4
0 06 0 165 17 0 15 037 777777776 CLA =O777777776
0 06 0 166 05 0 15 000 CIO 000 SET INT INHIBIT
0 06 0 167 05 0 15 110 CIO 110 RST MAIN INT LATCH
0 06 0 170 17 0 15 311 000000200 CLA =O000000200 REMOVE INH ON INT 7
0 06 0 171 05 0 15 004 CIO 004
* SHOULD FORCE HOP 406 TO L14P2
0 06 0 172 13 0 15 1 377 L14P3 STO 777
0 06 0 173 13 0 15 1 076 STO TEMP
0 06 0 174 17 0 15 1 377 CLA 777
0 06 0 175 13 0 15 1 074 STO VAR5
0 06 0 176 17 0 15 1 076 CLA TEMP
0 06 0 177 15 0 15 312 002000000 XOR =O002000000
0 06 0 200 04 0 15 1 040 TNZ L15P1S
# PAGE 60, SEQUENCE 29140-29700
PAGE 060
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 06 0 201 17 0 15 006 CLA H14P3
0 06 0 202 13 0 15 1 073 STO VAR4
0 06 0 203 17 0 15 037 777777776 CLA =O777777776
0 06 0 204 05 0 15 000 CIO 000 SET INT INHIBIT
0 06 0 205 05 0 15 110 CIO 110 RST MAIN INT LATCH
0 06 0 206 17 0 15 313 000000400 CLA =O000000400 REMOVE INH ON INT 8
0 06 0 207 05 0 15 004 CIO 004
* SHOULD FORCE HOP 407 TO L14P4
0 06 0 210 13 0 15 1 377 L14P5 STO 777
0 06 0 211 13 0 15 1 076 STO TEMP
0 06 0 212 17 0 15 1 377 CLA 777
0 06 0 213 13 0 15 1 074 STO VAR5
0 06 0 214 17 0 15 1 076 CLA TEMP
0 06 0 215 15 0 15 314 001000000 XOR =O001000000
0 06 0 216 04 0 15 1 040 TNZ L15P1S
0 06 0 217 17 0 15 007 CLA H14P5
0 06 0 220 13 0 15 1 073 STO VAR4
0 06 0 221 17 0 15 037 777777776 CLA =O777777776
0 06 0 222 05 0 15 000 CIO 000 SET INT INHIBIT
0 06 0 223 05 0 15 110 CIO 110 RST MAIN INT LATCH
0 06 0 224 17 0 15 315 000001000 CLA =O000001000 REMOVE INH ON INT 9
0 06 0 225 05 0 15 004 CIO 004
* SHOULD FORCE HOP 410 TO L14P6
0 06 0 226 13 0 15 1 377 L15P1 STO 777
0 06 0 227 13 0 15 1 076 STO TEMP
0 06 0 230 17 0 15 1 377 CLA 777
0 06 0 231 13 0 15 1 074 STO VAR5
0 06 0 232 17 0 15 1 076 CLA TEMP
0 06 0 233 15 0 15 316 000400000 XOR =O000400000
0 06 0 234 04 0 15 1 040 TNZ L15P1S
0 06 0 235 17 0 15 010 CLA H15P1
0 06 0 236 13 0 15 1 073 STO VAR4
0 06 0 237 17 0 15 037 777777776 CLA =O777777776
0 06 0 240 05 0 15 000 CIO 000 SET INT INHIBIT
0 06 0 241 05 0 15 110 CIO 110 RST MAIN INT LATCH
0 06 0 242 17 0 15 317 000002000 CLA =O000002000 REMOVE INH ON INT10
0 06 0 243 05 0 15 004 CIO 004
* SHOULD FORCE HOP 411 TO L15P2
0 06 0 244 13 0 15 1 377 L15P3 STO 777
0 06 0 245 13 0 15 1 076 STO TEMP
0 06 0 246 17 0 15 1 377 CLA 777
0 06 0 247 13 0 15 1 074 STO VAR5
0 06 0 250 17 0 15 1 076 CLA TEMP
0 06 0 251 15 0 15 320 000200000 XOR =O000200000
0 06 0 252 04 0 15 1 040 TNZ L15P1S
0 06 0 253 17 0 15 011 CLA H15P3
0 06 0 254 13 0 15 1 073 STO VAR4
0 06 0 255 17 0 15 037 777777776 CLA =O777777776
0 06 0 256 05 0 15 000 CIO 000 SET INT INHIBIT
0 06 0 257 05 0 15 110 CIO 110 RST MAIN INT LATCH
0 06 0 260 17 0 15 321 000004000 CLA =O000004000 REMOVE INH ON INT 11
0 06 0 261 05 0 15 004 CIO 004
* SHOULD FORCE HOP 412 TO L15P4
0 06 0 262 13 0 15 1 377 L15P5 STO 777
0 06 0 263 13 0 15 1 076 STO TEMP
0 06 0 264 17 0 15 1 377 CLA 777
0 06 0 265 13 0 15 1 074 STO VAR5
# PAGE 61, SEQUENCE 29710-30270
PAGE 061
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 06 0 266 17 0 15 1 076 CLA TEMP
0 06 0 267 15 0 15 322 000100000 XOR =O000100000
0 06 0 270 04 0 15 1 040 TNZ L15P1S
0 06 0 271 17 0 15 012 CLA H15P5
0 06 0 272 13 0 15 1 073 STO VAR4
0 06 0 273 17 0 15 037 777777776 CLA =O777777776
0 06 0 274 05 0 15 000 CIO 000 SET INT INHIBIT
0 06 0 275 05 0 15 110 CIO 110 RST MAIN INT LATCH
0 06 0 276 17 0 15 323 000010000 CLA =O000010000 REMOVE INH ON INT 12
0 06 0 277 05 0 15 004 CIO 004
* SHOULD FORCE HOP 413 TO L15P6
0 06 0 300 13 0 15 1 377 L16P1 STO 777
0 06 0 301 13 0 15 1 076 STO TEMP
0 06 0 302 17 0 15 1 377 CLA 777
0 06 0 303 13 0 15 1 074 STO VAR5
0 06 0 304 17 0 15 1 076 CLA TEMP
0 06 0 305 15 0 15 324 000040000 XOR =O000040000
0 06 0 306 04 0 15 1 040 TNZ L15P1S
0 06 0 307 17 0 15 013 CLA H16P1
0 06 0 310 13 0 15 1 073 STO VAR4
0 06 0 311 17 0 15 037 777777776 CLA =O777777776
0 06 0 312 05 0 15 000 CIO 000 SET INT INHIBIT
0 06 0 313 05 0 15 110 CIO 110 RST MAIN INT LATCH
0 06 0 314 17 0 15 325 000020000 CLA =O000020000 REMOVE INH ON INT 13
0 06 0 315 05 0 15 004 CIO 004
* SHOULD FORCE HOP 414 TO L16P2
0 06 0 316 13 0 15 1 377 L16P3 STO 777
0 06 0 317 13 0 15 1 076 STO TEMP
0 06 0 320 17 0 15 1 377 CLA 777
0 06 0 321 13 0 15 1 074 STO VAR5
0 06 0 322 17 0 15 1 076 CLA TEMP
0 06 0 323 15 0 15 325 000020000 XOR =O000020000
0 06 0 324 04 0 15 1 040 TNZ L15P1S
0 06 0 325 17 0 15 014 CLA H16P3
0 06 0 326 13 0 15 1 073 STO VAR4
0 06 0 327 17 0 15 037 777777776 CLA =O777777776
0 06 0 330 05 0 15 000 CIO 000 SET INT INHIBIT
0 06 0 331 05 0 15 110 CIO 110 RST MAIN INT LATCH
0 06 0 332 17 0 15 324 000040000 CLA =O000040000 REMOVE INH ON INT 14
0 06 0 333 05 0 15 004 CIO 004
* SHOULD FORCE HOP 415 TO L16P4
0 06 0 334 13 0 15 1 377 L16P5 STO 777
0 06 0 335 13 0 15 1 076 STO TEMP
0 06 0 336 17 0 15 1 377 CLA 777
0 06 0 337 13 0 15 1 074 STO VAR5
0 06 0 340 17 0 15 1 076 CLA TEMP
0 06 0 341 15 0 15 323 000010000 XOR =O000010000
0 06 0 342 04 0 15 1 040 TNZ L15P1S
0 06 0 343 17 0 15 015 CLA H16P5
0 06 0 344 13 0 15 1 073 STO VAR4
0 06 0 345 17 0 15 037 777777776 CLA =O777777776
0 06 0 346 05 0 15 000 CIO 000 SET INT INHIBIT
0 06 0 347 05 0 15 110 CIO 110 RST MAIN INT LATCH
0 06 0 350 17 0 15 322 000100000 CLA =O000100000 REMOVE INH ON INT 15
0 06 0 351 05 0 15 004 CIO 004
* SHOULD FORCE HOP 416 TO L16P6
0 06 0 352 13 0 15 1 377 L17P1 STO 777
# PAGE 62, SEQUENCE 30280-30840
PAGE 062
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 06 0 353 13 0 15 1 076 STO TEMP
0 06 0 354 17 0 15 1 377 CLA 777
0 06 0 355 13 0 15 1 074 STO VAR5
0 06 0 356 17 0 15 1 076 CLA TEMP
0 06 0 357 15 0 15 321 000004000 XOR =O000004000
0 06 0 360 04 0 15 1 040 TNZ L15P1S
0 06 0 361 17 0 15 037 777777776 CLA =O777777776
0 06 0 362 05 0 15 000 CIO 000 SET INT INHIBIT
0 06 0 363 05 0 15 110 CIO 110 RST MAIN INT LATCH
0 06 0 364 00 0 15 326 140066210 TRA* L9P3 TO RESET INT REG
0 06 0 365 10 0 15 1 060 TRA L20P1
0 06 0 366 17 0 15 054 200000000 L12P2 CLA =O200000000
* CAL POINT NR 9
0 06 0 367 10 0 15 046 TRA L12P3
0 06 0 370 17 0 15 300 100000000 L12P4 CLA =O100000000
* CAL POINT NR 10
0 06 0 371 10 0 15 064 TRA L12P5
ORG ,6,1,0,,15,
* CAL POINT N4 11
0 06 1 000 13 0 15 1 377 L12P6 STO 777
0 06 1 001 17 0 15 022 CLA H12P6
0 06 1 002 13 0 15 1 073 STO VAR4
0 06 1 003 17 0 15 1 377 CLA 777
0 06 1 004 15 0 15 002 XOR H13P1
0 06 1 005 04 0 15 1 040 TNZ L15P1S
0 06 1 006 17 0 15 302 040000000 CLA =O040000000
0 06 1 007 10 0 15 102 TRA L13P1
0 06 1 010 17 0 15 304 020000000 L13P2 CLA =O020000000
* CAL POINT NR 12
0 06 1 011 10 0 15 120 TRA L13P3
0 06 1 012 17 0 15 306 010000000 L13P4 CLA =O010000000
* CAL POINT NR 13
0 06 1 013 10 0 15 136 TRA L13P5
0 06 1 014 17 0 15 310 004000000 L13P6 CLA =O004000000
* CAL POINT NR 14
0 06 1 015 10 0 15 154 TRA L14P1
0 06 1 016 17 0 15 312 002000000 L14P2 CLA =O002000000
* CAL POINT NR 15
0 06 1 017 10 0 15 172 TRA L14P3
0 06 1 020 17 0 15 314 001000000 L14P4 CLA =O001000000
* CAL POINT NR 16
0 06 1 021 10 0 15 210 TRA L14P5
0 06 1 022 17 0 15 316 000400000 L14P6 CLA =O000400000
* CAL POINT NR 17
0 06 1 023 10 0 15 226 TRA L15P1
0 06 1 024 17 0 15 320 000200000 L15P2 CLA =O000200000
* CAL POINT NR 18
0 06 1 025 10 0 15 244 TRA L15P3
0 06 1 026 17 0 15 322 000100000 L15P4 CLA =O000100000
* CAL POINT NR 19
0 06 1 027 10 0 15 262 TRA L15P5
0 06 1 030 17 0 15 324 000040000 L15P6 CLA =O000040000
* CAL POINT NR 20
0 06 1 031 10 0 15 300 TRA L16P1
0 06 1 032 17 0 15 325 000020000 L16P2 CLA =O000020000
* CAL POINT NR 21
0 06 1 033 10 0 15 316 TRA L16P3
# PAGE 63, SEQUENCE 30850-31390
PAGE 063
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 06 1 034 17 0 15 323 000010000 L16P4 CLA =O000010000
* CAL POINT NR 22
0 06 1 035 10 0 15 334 TRA L16P5
0 06 1 036 17 0 15 321 000004000 L16P6 CLA =O000004000
* CAL POINT NR 23
0 06 1 037 10 0 15 352 TRA L17P1
0 06 1 040 13 0 15 1 377 L15P1S STO 777
0 06 1 041 13 0 15 1 076 STO TEMP
0 06 1 042 17 0 15 1 377 CLA 777
0 06 1 043 13 0 15 1 071 STO VAR2
0 06 1 044 17 0 15 017 CLA H12P1
0 06 1 045 13 0 15 1 070 STO VAR1
0 06 1 046 17 0 15 1 076 CLA TEMP
0 06 1 047 00 0 15 1 026 HOP H95P1
* TEST FOR PROPER OPERATION OF MANUAL INTERRUPT 16
* PRESS MANUAL INTERRUPT
* CLEAR AND ADD INTIND LOCATION AND INSPECT FOR BIT 16
ORG ,13,,310,,13,250
0 13 0 310 13 0 13 1 377 L17P2 STO 777
0 13 0 311 13 0 13 237 STO SAVE
0 13 0 312 17 0 13 240 000002000 CLA =O000002000
* CAL POINT NR 24
0 13 0 313 13 0 13 1 075 STO INTIND
0 13 0 314 05 0 13 220 CIO 220 READ B SWITCHES
0 13 0 315 13 0 13 241 STO TEMP2
0 13 0 316 06 0 13 242 020000000 AND =O020000000 B4
0 13 0 317 04 0 13 324 TNZ L17P3
0 13 0 320 05 0 13 104 L17P3A CIO 104
0 13 0 321 05 0 13 110 CIO 110
0 13 0 322 17 0 13 237 CLA SAVE
0 13 0 323 00 0 13 1 377 HOP 777
* TO EXECUTE SELECTED CIO ON COMMAND
0 13 0 324 17 0 13 353 L17P3 CLA K17P3B RESTORE CLA ADDRESS
0 13 0 325 06 0 13 1 046 AND KX7
0 13 0 326 13 0 13 243 STO TEMP3
0 13 0 327 17 0 13 350 CLA L17P3B
0 13 0 330 06 0 13 1 047 AND KX8
0 13 0 331 15 0 13 243 XOR TEMP3
0 13 0 332 13 0 13 350 STO L17P3B
0 13 0 333 17 0 13 241 CLA TEMP2
0 13 0 334 16 0 13 101 SHR 1
0 13 0 335 06 0 13 1 046 AND KX7
0 13 0 336 13 0 13 243 STO TEMP3 CIO ADDRESS
0 13 0 337 17 0 13 351 CLA L17P3C
0 13 0 340 06 0 13 1 047 AND KX8 REMOVE OLD ADDRESS
0 13 0 341 15 0 13 243 XOR TEMP3
0 13 0 342 13 0 13 351 STO L17P3C
0 13 0 343 17 0 13 241 CLA TEMP2
0 13 0 344 06 0 13 244 000000076 AND =O000000076
0 13 0 345 16 0 13 020 SHL 5
0 13 0 346 07 0 13 350 ADD L17P3B
0 13 0 347 13 0 13 350 STO L17P3B
0 13 0 350 17 0 13 250 L17P3B CLA BIT
0 13 0 351 05 0 13 000 L17P3C CIO 000
# PAGE 64, SEQUENCE 31400-31680
PAGE 064
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 13 0 352 10 0 13 320 TRA L17P3A
0 13 0 353 17 0 13 250 K17P3B CLA BIT
0 13 250 000000000 BIT OCT 0
0 13 251 400000000 OCT 4
0 13 252 200000000 OCT 2
0 13 253 100000000 OCT 1
0 13 254 040000000 OCT 04
0 13 255 020000000 OCT 02
0 13 256 010000000 OCT 01
0 13 257 004000000 OCT 004
0 13 260 002000000 OCT 002
0 13 261 001000000 OCT 001
0 13 262 000400000 OCT 0004
0 13 263 000200000 OCT 0002
0 13 264 000100000 OCT 0001
0 13 265 000040000 OCT 00004
0 13 266 000020000 OCT 00002
0 13 267 000010000 OCT 00001
0 13 270 000004000 OCT 000004
0 13 271 000002000 OCT 000002
0 13 272 000001000 OCT 000001
0 13 273 000000400 OCT 0000004
0 13 274 000000200 OCT 0000002
0 13 275 000000100 OCT 0000001
0 13 276 000000040 OCT 00000004
0 13 277 000000020 OCT 00000002
0 13 300 000000010 OCT 00000001
0 13 301 000000004 OCT 000000004
0 13 302 000000002 OCT 000000002
# PAGE 65, SEQUENCE 31700-32260
PAGE 065
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
* BEGINNING OF ROUTINE FOUR
* CHECK TYPEWRITER LOGIC AND INTERFACE
ORG ,6,1,60,,15,
0 06 1 060 17 0 15 1 057 L20P1 CLA LCR4
0 06 1 061 14 0 15 1 065 TMI L20P2
0 06 1 062 04 0 15 1 064 TNZ L29P1A
0 06 1 063 00 0 15 327 130007000 TRA* L2P1
0 06 1 064 00 0 15 330 120016100 L29P1A TRA* L29P1
0 06 1 065 16 0 15 212 L20P2 CDS 0,12
0 06 1 066 17 0 12 131 CLA H20P2
0 06 1 067 13 0 12 1 073 STO VAR4
0 06 1 070 17 0 12 132 CLA H20P3
0 06 1 071 13 0 12 1 070 STO VAR1
0 06 1 072 00 0 12 162 070003100 TRA* L28P3 RESTORE INSTRUCTIONS
0 06 1 073 17 0 12 1 033 CLA K77
0 06 1 074 05 0 12 000 CIO 000 INHIBIT ALL INT
0 06 1 075 17 0 12 1 020 CLA ZERO
0 06 1 076 05 0 12 130 CIO 130 SET LOWER CASE
0 06 1 077 13 0 12 1 101 STO CTR
0 06 1 100 17 0 12 163 000000132 CLA =O000000132 EQUAL 45 DECIMAL
0 06 1 101 13 0 12 1 100 STO STOP
0 06 1 102 00 0 12 164 120000270 TRA* L20P2A
0 06 1 103 00 0 12 165 120002670 TRA* L20P3
ORG ,7,1,,,12,0
0 07 1 000 13 0 12 1 376 L20P2A STO 776 DELAY 87.6 MSEC.
0 07 1 001 17 0 12 166 000002040 CLA =O000002040
0 07 1 002 02 0 12 167 000000002 L20P2B SUB =O000000002
0 07 1 003 04 0 12 1 002 TNZ L20P2B
0 07 1 004 00 0 12 1 376 HOP 776
0 07 1 005 17 0 12 170 000000004 L20P3 CLA =O000000004 SET DO 2
0 07 1 006 05 0 12 210 CIO 210
0 07 1 007 17 0 12 1 020 CLA ZERO RESET D.O.2
0 07 1 010 05 0 12 210 CIO 210
0 07 1 011 00 0 12 171 140066210 TRA* L9P3 RESET INT REG
0 07 1 012 17 0 12 1 104 L20P4 CLA CHAR
0 07 1 013 05 0 12 120 L20P5 CIO 120 TYPE CHAR
0 07 1 014 13 0 12 1 074 STO VAR5 FOR ERROR INFO
0 07 1 015 17 0 12 133 CLA H20P4
0 07 1 016 13 0 12 1 073 STO VAR4
0 07 1 017 05 0 12 154 CIO 154
0 07 1 020 15 0 12 001 L20P6 XOR PATN
0 07 1 021 04 0 12 1 354 TNZ L28P6
0 07 1 022 17 0 12 134 L21P1 CLA H21P1
0 07 1 023 13 0 12 1 073 STO VAR4
0 07 1 024 05 0 12 214 CIO 214
0 07 1 025 06 0 12 1 021 AND BB CHECK READY LINE
0 07 1 026 04 0 12 1 030 TNZ L21P2
0 07 1 027 10 0 12 1 354 TRA L28P6
0 07 1 030 17 0 12 135 L21P2 CLA H21P2
0 07 1 031 13 0 12 1 073 STO VAR4
0 07 1 032 17 0 12 170 000000004 CLA =O000000004 SET + RESET DO 2
0 07 1 033 05 0 12 210 CIO 210
0 07 1 034 17 0 12 1 020 CLA ZERO
0 07 1 035 05 0 12 210 CIO 210
0 07 1 036 00 0 12 1 023 HOP H9P3 RESET INT REG
0 07 1 037 05 0 12 154 CIO 154
0 07 1 040 04 0 12 1 354 TNZ L28P6
# PAGE 66, SEQUENCE 32270-32830
PAGE 066
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 07 1 041 17 0 12 136 L21P3 CLA H21P3
0 07 1 042 13 0 12 1 073 STO VAR4
0 07 1 043 05 0 12 214 CIO 214
0 07 1 044 06 0 12 1 021 AND BB CHECK READY LINE
0 07 1 045 04 0 12 1 354 TNZ L28P6
0 07 1 046 16 0 12 207 L21P4 CDS 0,07
0 07 1 047 17 0 07 012 CLA L20P4
0 07 1 050 07 0 07 1 036 ADD KS1 INCREMENT ADDRESS
0 07 1 051 13 0 07 012 STO L20P4
0 07 1 052 17 0 07 020 CLA L20P6 XOR PATN + CTR
0 07 1 053 07 0 07 1 036 ADD KS1
0 07 1 054 13 0 07 020 STO L20P6
0 07 1 055 16 0 07 212 CDS 0,12
0 07 1 056 17 0 12 1 101 CLA CTR
0 07 1 057 07 0 12 1 032 ADD K1
0 07 1 060 13 0 12 1 101 STO CTR
0 07 1 061 02 0 12 1 100 SUB STOP
0 07 1 062 04 0 12 1 012 TNZ L20P4 CONTINUE LOOP
0 07 1 063 17 0 12 1 100 L21P5 CLA STOP
0 07 1 064 02 0 12 163 000000132 SUB =O000000132 IS STOP = 45
0 07 1 065 04 0 12 1 067 TNZ L22P1
0 07 1 066 10 0 12 1 116 TRA L23P1 IF YES
0 07 1 067 17 0 12 1 100 L22P1 CLA STOP
0 07 1 070 02 0 12 172 000000046 SUB =O000000046 IS STOP = 19
0 07 1 071 04 0 12 1 073 TNZ L22P2
0 07 1 072 10 0 12 1 152 TRA L24P1 IF YES
0 07 1 073 17 0 12 1 100 L22P2 CLA STOP
0 07 1 074 02 0 12 173 000000020 SUB =O000000020 IS STOP = 8
0 07 1 075 04 0 12 1 077 TNZ L22P3
0 07 1 076 10 0 12 1 270 TRA L26P2 IF YES
0 07 1 077 17 0 12 1 100 L22P3 CLA STOP
0 07 1 100 02 0 12 174 000000024 SUB =O000000024 IS STOP = 10
0 07 1 101 04 0 12 1 304 TNZ L27P1
0 07 1 102 13 0 12 1 101 L22P4 STO CTR RESET CTR
0 07 1 103 17 0 12 175 000000014 CLA =O000000014 6
0 07 1 104 13 0 12 1 100 STO STOP
0 07 1 105 16 0 12 207 CDS 0,07
0 07 1 106 17 0 07 013 CLA L20P5
0 07 1 107 06 0 07 1 040 AND KX1 REMOVE ADDRESS
0 07 1 110 15 0 07 1 041 XOR KX2 = CIO 134
0 07 1 111 13 0 07 013 STO L20P5
0 07 1 112 16 0 07 212 CDS 0,12
0 07 1 113 17 0 12 137 CLA H22P4 CARRIAGE CONTROL
0 07 1 114 13 0 12 1 073 STO VAR4
0 07 1 115 10 0 12 1 012 TRA L20P4
0 07 1 116 17 0 12 140 L23P1 CLA H23P1
0 07 1 117 13 0 12 1 073 STO VAR4
0 07 1 120 17 0 12 143 CLA H23P5
0 07 1 121 13 0 12 1 070 STO VAR1
0 07 1 122 17 0 12 1 161 CLA C45
0 07 1 123 05 0 12 120 CIO 120 FIRST UPPER CASE CHAR
0 07 1 124 13 0 12 1 074 STO VAR5
0 07 1 125 05 0 12 154 CIO 154 INT REG
0 07 1 126 15 0 12 176 400000000 XOR =O400000000
0 07 1 127 04 0 12 1 354 TNZ L28P6
0 07 1 130 17 0 12 141 L23P2 CLA H23P2
0 07 1 131 13 0 12 1 073 STO VAR4
# PAGE 67, SEQUENCE 32840-33400
PAGE 067
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 07 1 132 05 0 12 214 CIO 214 READY LINE
0 07 1 133 06 0 12 1 021 AND BB
0 07 1 134 04 0 12 1 136 TNZ L23P3
0 07 1 135 10 0 12 1 354 TRA L28P6
0 07 1 136 17 0 12 142 L23P3 CLA H23P3
0 07 1 137 13 0 12 1 073 STO VAR4
0 07 1 140 10 0 12 1 000 TRA L20P2A DELAY 87.5 MSEC.
0 07 1 141 05 0 12 154 CIO 154
0 07 1 142 15 0 12 056 XOR P45 1,5,6,9
0 07 1 143 04 0 12 1 354 TNZ L28P6
0 07 1 144 13 0 12 1 101 L23P4 STO CTR RESET CTR
0 07 1 145 17 0 12 172 000000046 CLA =O000000046 19
0 07 1 146 13 0 12 1 100 STO STOP
0 07 1 147 17 0 12 132 CLA H20P3
0 07 1 150 13 0 12 1 070 STO VAR1
0 07 1 151 10 0 12 1 022 TRA L21P1
0 07 1 152 17 0 12 144 L24P1 CLA H24P1
0 07 1 153 13 0 12 1 073 STO VAR4
0 07 1 154 17 0 12 143 CLA H23P5
0 07 1 155 13 0 12 1 070 STO VAR1
0 07 1 156 17 0 12 1 104 L24P2 CLA CHAR
0 07 1 157 05 0 12 120 CIO 120 SET LOWER CASE FROM UPPER CASE
0 07 1 160 13 0 12 1 074 STO VAR5
0 07 1 161 05 0 12 154 CIO 154
0 07 1 162 15 0 12 177 200000000 XOR =O200000000
0 07 1 163 04 0 12 1 354 TNZ L28P6
0 07 1 164 17 0 12 145 L24P3 CLA H24P3
0 07 1 165 13 0 12 1 073 STO VAR4
0 07 1 166 05 0 12 214 CIO 214 READY LINE
0 07 1 167 06 0 12 1 021 AND BB
0 07 1 170 04 0 12 1 172 TNZ L24P4
0 07 1 171 10 0 12 1 354 TRA L28P6
0 07 1 172 17 0 12 146 L24P4 CLA H24P4
0 07 1 173 13 0 12 1 073 STO VAR4
0 07 1 174 10 0 12 1 000 TRA L20P2A DELAY 87.6 MSEC.
0 07 1 175 05 0 12 154 CIO 154
0 07 1 176 15 0 12 200 371000000 XOR =O371000000
0 07 1 177 04 0 12 1 354 TNZ L28P6
0 07 1 200 17 0 12 147 L24P5 CLA H24P5
0 07 1 201 13 0 12 1 073 STO VAR4
0 07 1 202 17 0 12 173 000000020 CLA =O000000020 SET AND RESET DO4
0 07 1 203 05 0 12 210 CIO 210
0 07 1 204 17 0 12 1 020 CLA ZERO
0 07 1 205 05 0 12 210 CIO 210
0 07 1 206 00 0 12 171 140066210 TRA* L9P3 RESET INT REG
0 07 1 207 05 0 12 214 CIO 214 READY LINE
0 07 1 210 06 0 12 1 021 AND BB
0 07 1 211 04 0 12 1 354 TNZ L28P6
* TEST OCTAL MODE
0 07 1 212 13 0 12 1 101 L25P1 STO CTR RESET CTR
0 07 1 213 17 0 12 150 CLA H25P1
0 07 1 214 13 0 12 1 073 STO VAR4
0 07 1 215 17 0 12 173 000000020 CLA =O000000020 8
0 07 1 216 13 0 12 1 100 STO STOP
0 07 1 217 16 0 12 207 CDS 0,07
0 07 1 220 17 0 07 013 CLA L20P5
0 07 1 221 06 0 07 1 040 AND KX1 REMOVE ADDRESS
# PAGE 68, SEQUENCE 33410-33920
PAGE 068
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 07 1 222 15 0 07 1 042 XOR KX3 = CIO 130
0 07 1 223 13 0 07 013 STO L20P5
0 07 1 224 16 0 07 212 CDS 0,12
0 07 1 225 17 0 12 1 200 CLA C60 SET UPPER CASE
0 07 1 226 05 0 12 120 CIO 120
0 07 1 227 13 0 12 1 074 STO VAR5
0 07 1 230 10 0 12 1 000 TRA L20P2A DELAY 87.6 MSEC.
0 07 1 231 05 0 12 154 CIO 154
0 07 1 232 15 0 12 201 511000000 XOR =O511000000 1,3,6,9
0 07 1 233 04 0 12 1 354 TNZ L28P6
* BEGIN OCTAL
0 07 1 234 17 0 12 151 L25P2 CLA H25P2
0 07 1 235 13 0 12 1 073 STO VAR4
0 07 1 236 17 0 12 170 000000004 CLA =O000000004 SET AND RESET DO 2
0 07 1 237 05 0 12 210 CIO 210
0 07 1 240 17 0 12 1 020 CLA ZERO
0 07 1 241 05 0 12 210 CIO 210
0 07 1 242 00 0 12 171 140066210 TRA* L9P3 RESET INT REG
0 07 1 243 17 0 12 1 204 CLA C64 OCTAL 1
0 07 1 244 05 0 12 130 CIO 130
0 07 1 245 13 0 12 1 074 STO VAR5
0 07 1 246 05 0 12 154 CIO 154
0 07 1 247 15 0 12 177 200000000 XOR =O200000000
0 07 1 250 04 0 12 1 354 TNZ L28P6
0 07 1 251 17 0 12 152 L25P3 CLA H25P3
0 07 1 252 13 0 12 1 073 STO VAR4
0 07 1 253 05 0 12 214 CIO 214
0 07 1 254 06 0 12 1 021 AND BB READY LINE
0 07 1 255 04 0 12 1 257 TNZ L26P1
0 07 1 256 10 0 12 1 354 TRA L28P6
0 07 1 257 17 0 12 153 L26P1 CLA H26P1
0 07 1 260 13 0 12 1 073 STO VAR4
0 07 1 261 10 0 12 1 000 TRA L20P2A DELAY 87.6 MSEC.
0 07 1 262 17 0 12 132 CLA H20P3
0 07 1 263 13 0 12 1 070 STO VAR1
0 07 1 264 05 0 12 154 CIO 154
0 07 1 265 15 0 12 202 377000000 XOR =O377000000 2 THRU 9
0 07 1 266 04 0 12 1 354 TNZ L28P6
0 07 1 267 10 0 12 1 022 TRA L21P1
* TYPE DECIMAL
0 07 1 270 13 0 12 1 101 L26P2 STO CTR RESET CTR
0 07 1 271 17 0 12 132 CLA H20P3
0 07 1 272 13 0 12 1 070 STO VAR1
0 07 1 273 17 0 12 174 000000024 CLA =O000000024 10
0 07 1 274 13 0 12 1 100 STO STOP
0 07 1 275 16 0 12 207 CDS 0,07
0 07 1 276 17 0 07 013 CLA L20P5
0 07 1 277 06 0 07 1 040 AND KX1 REMOVE ADDRESS
0 07 1 300 15 0 07 1 043 XOR KX4 = CIO 124
0 07 1 301 13 0 07 013 STO L20P5
0 07 1 302 16 0 07 212 CDS 0,12
0 07 1 303 10 0 12 1 012 TRA L20P4
# PAGE 69, SEQUENCE 33940-34500
PAGE 069
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
* TYPEWRITER CONTROL
0 07 1 304 17 0 12 154 L27P1 CLA H27P1
0 07 1 305 13 0 12 1 073 STO VAR4
0 07 1 306 13 0 12 1 070 STO VAR1
0 07 1 307 17 0 12 203 000000010 CLA =O000000010 CARRIAGE AT RIGHT-
0 07 1 310 05 0 12 210 CIO 210 HAND MARGIN
0 07 1 311 05 0 12 214 CIO 214
0 07 1 312 06 0 12 1 021 AND BB
0 07 1 313 04 0 12 1 315 TNZ L27P2
0 07 1 314 10 0 12 1 354 TRA L28P6
0 07 1 315 17 0 12 155 L27P2 CLA H27P2
0 07 1 316 13 0 12 1 073 STO VAR4
0 07 1 317 05 0 12 154 CIO 154
0 07 1 320 15 0 12 204 000020000 XOR =O000020000
0 07 1 321 04 0 12 1 354 TNZ L28P6
0 07 1 322 17 0 12 156 L27P3 CLA H27P3
0 07 1 323 13 0 12 1 073 STO VAR4
0 07 1 324 17 0 12 1 032 CLA K1 SET DO 1 AND RESET DO 3
0 07 1 325 05 0 12 210 CIO 210
0 07 1 326 05 0 12 074 CIO 074 RST INT 14
0 07 1 327 05 0 12 154 CIO 154
0 07 1 330 04 0 12 1 354 TNZ L28P6
0 07 1 331 17 0 12 157 L28P1 CLA H28P1
0 07 1 332 13 0 12 1 073 STO VAR4
0 07 1 333 05 0 12 214 CIO 214
0 07 1 334 06 0 12 1 021 AND BB
0 07 1 335 04 0 12 1 337 TNZ L28P2
0 07 1 336 10 0 12 1 354 TRA L28P6
0 07 1 337 17 0 12 160 L28P2 CLA H28P2
0 07 1 340 13 0 12 1 073 STO VAR4
0 07 1 341 17 0 12 1 020 CLA ZERO RST D.O. 1
0 07 1 342 05 0 12 210 CIO 210
0 07 1 343 05 0 12 214 CIO 214
0 07 1 344 06 0 12 1 021 AND BB
0 07 1 345 04 0 12 1 354 TNZ L28P6
0 07 1 346 13 0 12 1 073 STO VAR4
0 07 1 347 13 0 12 1 074 STO VAR5
0 07 1 350 00 0 12 162 070003100 TRA* L28P3
0 07 1 351 00 0 12 205 120016100 TRA* L29P1 FINISHED
0 07 1 352 17 0 12 1 104 L28P4 CLA CHAR
0 07 1 353 15 0 12 001 L28P5 XOR PATN
0 07 1 354 13 0 12 1 376 L28P6 STO 776
0 07 1 355 00 0 12 206 070000500 TRA* L28P6B
ORG ,10,,0,,7,
0 10 0 000 13 0 07 1 376 L28P6A STO 776
0 10 0 001 13 0 07 1 076 L28P6B STO TEMP
0 10 0 002 17 0 07 1 376 CLA 776
0 10 0 003 13 0 07 1 071 STO VAR2
0 10 0 004 17 0 07 1 076 CLA TEMP
0 10 0 005 00 0 07 1 026 HOP H95P1
* RESTORE ORIGINAL INSTRUCTIONS
0 10 0 006 13 0 07 1 376 L28P3 STO 776
0 10 0 007 17 0 07 012 CLA L20P4
0 10 0 010 06 0 07 1 040 AND KX1 REMOVE ADDRESS
0 10 0 011 13 0 07 1 076 STO TEMP
0 10 0 012 17 0 07 352 CLA L28P4
0 10 0 013 06 0 07 1 045 AND KX6
# PAGE 70, SEQUENCE 34510-35070
PAGE 070
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 10 0 014 15 0 07 1 076 XOR TEMP
0 10 0 015 13 0 07 012 STO L20P4
0 10 0 016 17 0 07 013 CLA L20P5
0 10 0 017 06 0 07 1 040 AND KX1 REMOVE ADDRESS
0 10 0 020 15 0 07 1 044 XOR KX5 = CIO 120
0 10 0 021 13 0 07 013 STO L20P5
0 10 0 022 17 0 07 020 CLA L20P6
0 10 0 023 06 0 07 1 040 AND KX1 REMOVE ADDRESS
0 10 0 024 13 0 07 1 076 STO TEMP
0 10 0 025 17 0 07 353 CLA L28P5
0 10 0 026 06 0 07 1 045 AND KX6
0 10 0 027 15 0 07 1 076 XOR TEMP
0 10 0 030 13 0 07 020 STO L20P6
0 10 0 031 00 0 07 1 376 HOP 776
DOG 0,12,
* ERROR RETURN
0 10 0 032 00 0 12 162 070003100 L23P5 TRA* L28P3
0 10 0 033 00 0 12 207 150032660 TRA* L20P2
0 12 001 171000000 PATN OCT 171000000 INTERRUPTS SET-A
W 0 12 002 061000000 OCT 061000000 B
0 12 003 070000000 OCT 070000000 C
0 12 004 121000000 OCT 121000000 D
0 12 005 130000000 OCT 130000000 E
0 12 006 020000000 OCT 020000000 F
0 12 007 031000000 OCT 031000000 G
0 12 010 111000000 OCT 111000000 H
0 12 011 100000000 OCT 100000000 I
0 12 012 174000000 OCT 174000000 J
0 12 013 064000000 OCT 064000000 K
0 12 014 075000000 OCT 075000000 L
0 12 015 124000000 OCT 124000000 M
0 12 016 135000000 OCT 135000000 N
0 12 017 025000000 OCT 025000000 O
0 12 020 034000000 OCT 034000000 P
0 12 021 114000000 OCT 114000000 Q
0 12 022 105000000 OCT 105000000 R
0 12 023 062000000 OCT 062000000 S
0 12 024 073000000 OCT 073000000 T
0 12 025 122000000 OCT 122000000 U
0 12 026 133000000 OCT 133000000 V
0 12 027 023000000 OCT 023000000 W
0 12 030 032000000 OCT 032000000 X
0 12 031 112000000 OCT 112000000 Y
0 12 032 103000000 OCT 103000000 Z
0 12 033 177000000 OCT 177000000 1 BCD
0 12 034 067000000 OCT 067000000 2
0 12 035 076000000 OCT 076000000 3
0 12 036 127000000 OCT 127000000 4
0 12 037 136000000 OCT 136000000 5
0 12 040 026000000 OCT 026000000 6
0 12 041 037000000 OCT 037000000 7
0 12 042 117000000 OCT 117000000 8
0 12 043 106000000 OCT 106000000 9
0 12 044 016000000 OCT 016000000 0
0 12 045 007000000 OCT 007000000 SPECIAL CHARS
0 12 046 163000000 OCT 163000000
# PAGE 71, SEQUENCE 35080-35640
PAGE 071
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 12 047 172000000 OCT 172000000
0 12 050 002000000 OCT 002000000
0 12 051 165000000 OCT 165000000
0 12 052 004000000 OCT 004000000
0 12 053 160000000 OCT 160000000
0 12 054 001000000 OCT 001000000 SPACE
0 12 055 000010000 OCT 000010000 UPPER CASE
0 12 056 517000000 P45 OCT 517000000
0 12 057 106000000 OCT 106000000
0 12 060 016000000 OCT 016000000
0 12 061 007000000 OCT 007000000
0 12 062 032000000 OCT 032000000
0 12 063 112000000 OCT 112000000
0 12 064 103000000 OCT 103000000
0 12 065 163000000 OCT 163000000
0 12 066 002000000 OCT 002000000
0 12 067 034000000 OCT 034000000
0 12 070 114000000 OCT 114000000
0 12 071 105000000 OCT 105000000
0 12 072 165000000 OCT 165000000
0 12 073 004000000 OCT 004000000
0 12 074 031000000 OCT 031000000
0 12 075 111000000 OCT 111000000
0 12 076 100000000 OCT 100000000
0 12 077 160000000 OCT 160000000
0 12 100 001000000 OCT 001000000
0 12 101 177000000 OCT 177000000 1 OCTAL
0 12 102 067000000 OCT 067000000 2
0 12 103 076000000 OCT 076000000 3
0 12 104 127000000 OCT 127000000 4
0 12 105 136000000 OCT 136000000 5
0 12 106 026000000 OCT 026000000 6
0 12 107 037000000 OCT 037000000 7
0 12 110 016000000 OCT 016000000 0
0 12 111 177000000 OCT 177000000 DECIMAL 1
0 12 112 067000000 OCT 067000000 2
0 12 113 076000000 OCT 076000000 3
0 12 114 127000000 OCT 127000000 4
0 12 115 136000000 OCT 136000000 5
0 12 116 026000000 OCT 026000000 6
0 12 117 037000000 OCT 037000000 7
0 12 120 117000000 OCT 117000000 8
0 12 121 106000000 OCT 106000000 9
0 12 122 016000000 OCT 016000000 0
0 12 123 000010000 OCT 000010000 SPACE - CONTRL OPNS
0 12 124 000400000 OCT 000400000 TAB
0 12 125 000020000 OCT 000020000 CARR RTN
0 12 126 000200000 OCT 000200000 INDEX
0 12 127 000100000 OCT 000100000 RED
0 12 130 000040000 OCT 000040000 BLACK
0 12 131 150032660 H20P2 HPC L20P2
0 12 132 120002670 H20P3 HPC L20P3
0 12 133 120005270 H20P4 HPC L20P4
0 12 134 120011270 H21P1 HPC L21P1
0 12 135 120014270 H21P2 HPC L21P2
0 12 136 120020670 H21P3 HPC L21P3
0 12 137 120041270 H22P4 HPC L22P4
# PAGE 72, SEQUENCE 35650-35810
PAGE 072
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 12 140 120047270 H23P1 HPC L23P1
0 12 141 120054270 H23P2 HPC L23P2
0 12 142 120057270 H23P3 HPC L23P3
0 12 143 120015100 H23P5 HPC L23P5
0 12 144 120065270 H24P1 HPC L24P1
0 12 145 120072270 H24P3 HPC L24P3
0 12 146 120075270 H24P4 HPC L24P4
0 12 147 120100270 H24P5 HPC L24P5
0 12 150 120105270 H25P1 HPC L25P1
0 12 151 120116270 H25P2 HPC L25P2
0 12 152 120124670 H25P3 HPC L25P3
0 12 153 120127670 H26P1 HPC L26P1
0 12 154 120142270 H27P1 HPC L27P1
0 12 155 120146670 H27P2 HPC L27P2
0 12 156 120151270 H27P3 HPC L27P3
0 12 157 120154670 H28P1 HPC L28P1
0 12 160 120157670 H28P2 HPC L28P2
# PAGE 73, SEQUENCE 35830-36390
PAGE 073
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
* BEGINNING OF ROUTINE FIVE
* CHECK PRINTER LOGIC AND INTERFACE
0 10 0 034 17 0 12 1 060 L29P1 CLA LCR5
0 10 0 035 14 0 12 041 TMI L29P2
0 10 0 036 04 0 12 040 TNZ L45P1A
0 10 0 037 00 0 12 210 130007000 TRA* L2P1
0 10 0 040 00 0 12 211 150000310 L45P1A TRA* L45P1
0 10 0 041 17 0 12 161 L29P2 CLA H29P2
0 10 0 042 13 0 12 1 070 STO V1
0 12 161 120020500 H29P2 HPC L29P2
V1 SYN VAR1
V2 SYN VAR2
V3 SYN VAR3
V4 SYN VAR4
V5 SYN VAR5
0 10 0 043 16 0 12 215 CDS 0,15
0 10 0 044 17 0 15 056 CLA H29P4
0 10 0 045 13 0 15 1 071 STO V2
0 10 0 046 10 0 15 1 242 TRA L43P1
0 10 0 047 17 0 15 1 020 CLA ZERO
0 10 0 050 05 0 15 170 CIO 170
0 10 0 051 01 0 15 1 375 PRS 775
0 10 0 052 05 0 15 164 CIO 164
0 10 0 053 01 0 15 1 375 PRS 775
0 10 0 054 13 0 15 1 101 STO CTR
0 10 0 055 17 0 15 311 000000200 CLA =O000000200 64 DECIMAL
0 10 0 056 13 0 15 1 100 STO STOP
0 10 0 057 00 0 15 1 023 HOP H9P3 RST INT REG
0 10 0 060 17 0 15 305 000000040 CLA =O000000040 SET DO 5 PRINTER NOT RUNNING
0 10 0 061 05 0 15 210 CIO 210
0 10 0 062 05 0 15 214 CIO 214
0 10 0 063 06 0 15 1 032 AND K1 PRTR READY
0 10 0 064 04 0 15 066 TNZ L29P3
0 10 0 065 10 0 15 1 240 TRA L42P4
0 10 0 066 17 0 15 055 L29P3 CLA H29P3
0 10 0 067 13 0 15 1 070 STO V1
0 10 0 070 17 0 15 1 020 CLA ZERO
0 10 0 071 05 0 15 210 CIO 210 RST DO 5
0 10 0 072 17 0 15 303 000000020 CLA =O000000020
0 10 0 073 05 0 15 210 CIO 210 SET DO 4
0 10 0 074 05 0 15 214 CIO 214
0 10 0 075 06 0 15 1 032 AND K1
0 10 0 076 04 0 15 100 TNZ L29P4
0 10 0 077 10 0 15 1 240 TRA L42P4
0 10 0 100 17 0 15 056 L29P4 CLA H29P4
0 10 0 101 13 0 15 1 070 STO V1
0 10 0 102 17 0 15 057 CLA H30P1
0 10 0 103 13 0 15 1 071 STO V2
0 10 0 104 17 0 15 1 020 CLA ZERO
0 10 0 105 05 0 15 210 CIO 210 RST DO 4
0 10 0 106 05 0 15 214 CIO 214
0 10 0 107 06 0 15 1 032 AND K1
0 10 0 110 04 0 15 1 232 TNZ L42P3
0 10 0 111 17 0 15 057 L30P1 CLA H30P1
0 10 0 112 13 0 15 1 070 STO V1
0 10 0 113 17 0 15 060 CLA H30P2
0 10 0 114 13 0 15 1 071 STO V2
# PAGE 74, SEQUENCE 36400-34960
PAGE 074
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 10 0 115 05 0 15 170 CIO 170 BCD MODE
0 10 0 116 17 0 15 1 104 CLA CHAR
0 10 0 117 13 0 15 1 074 STO V5
0 10 0 120 01 0 15 1 375 PRS 775
* TEST PRS 775
0 10 0 121 05 0 15 154 CIO 154 READ INT REG
0 10 0 122 15 0 15 116 XOR PATN1
0 10 0 123 04 0 15 1 232 TNZ L42P3
0 10 0 124 17 0 15 060 L30P2 CLA H30P2
0 10 0 125 13 0 15 1 070 STO V1
0 10 0 126 17 0 15 1 321 CLA H30P2A
0 10 0 127 13 0 15 1 071 STO V2
0 10 0 130 00 0 15 1 023 HOP H9P3 RST INT REG
0 10 0 131 05 0 15 154 CIO 154
0 10 0 132 04 0 15 1 240 TNZ L42P4
* ENTER BCD LOOP
0 10 0 133 17 0 15 062 L30P2A CLA H31P4
0 10 0 134 13 0 15 1 070 STO V1
0 10 0 135 17 0 15 061 CLA H31P3
0 10 0 136 13 0 15 1 071 STO V2
0 10 0 137 10 0 15 145 TRA L31P3
* TEST PRS MEMORY AND DECODE LOGIC
0 10 0 140 01 0 15 1 104 L31P1 PRS CHAR
0 10 0 141 13 0 15 1 074 STO V5
0 10 0 142 05 0 15 154 CIO 154 READ INT REG
0 10 0 143 15 0 15 116 L31P2 XOR PATN1
0 10 0 144 04 0 15 1 240 TNZ L42P4
0 10 0 145 17 0 15 1 101 L31P3 CLA CTR
0 10 0 146 07 0 15 1 032 ADD K1
0 10 0 147 13 0 15 1 101 STO CTR
0 10 0 150 16 0 15 210 CDS 0,10
0 10 0 151 17 0 10 140 CLA L31P1
0 10 0 152 07 0 10 1 037 ADD KS2
0 10 0 153 13 0 10 140 STO L31P1
0 10 0 154 17 0 10 143 CLA L31P2
0 10 0 155 07 0 10 1 037 ADD KS2
0 10 0 156 13 0 10 143 STO L31P2
0 10 0 157 16 0 10 215 CDS 0,15
0 10 0 160 00 0 15 1 023 L31P4 HOP H9P3 RST INT REG
0 10 0 161 17 0 15 1 101 CLA CTR
0 10 0 162 02 0 15 1 100 SUB STOP
0 10 0 163 04 0 15 140 TNZ L31P1 NOT EQUAL - CONTINUE
* TEST BCD DIGITS 2,3,4
0 10 0 164 01 0 15 331 007700000 L32P1 PRS =O007700000
0 10 0 165 13 0 15 1 074 STO V5
0 10 0 166 17 0 15 041 CLA H32P1
0 10 0 167 13 0 15 1 070 STO V1
# The following line was not present in the original source code.
# It has been added as a workaround for what I believe is a bug
# in the original assembler that I haven't been able to figure out
# how to incorporate into the modern assembler.
DOG 0,15,41 # workaround
0 15 041 150072100 H32P1 HPC L32P1
0 10 0 170 05 0 15 154 CIO 154
0 10 0 171 15 0 15 332 774300000 XOR =O774300000 1-7,11,12
0 10 0 172 04 0 15 1 232 TNZ L42P3
0 10 0 173 17 0 15 063 L32P2 CLA H32P2
0 10 0 174 13 0 15 1 070 STO V1
0 10 0 175 00 0 15 1 023 HOP H9P3 RST INT REG
0 10 0 176 01 0 15 333 000077000 PRS =O000077000
0 10 0 177 13 0 15 1 074 STO V5
0 10 0 200 05 0 15 154 CIO 154
# PAGE 75, SEQUENCE 36970-37530
PAGE 075
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 10 0 201 15 0 15 332 774300000 XOR =O774300000
0 10 0 202 04 0 15 1 232 TNZ L42P3
0 10 0 203 17 0 15 064 L32P3 CLA H32P3
0 10 0 204 13 0 15 1 070 STO V1
0 10 0 205 00 0 15 1 023 HOP H9P3 RST INT REG
0 10 0 206 01 0 15 334 000000770 PRS =O000000770
0 10 0 207 13 0 15 1 074 STO V5
0 10 0 210 05 0 15 154 CIO 154
0 10 0 211 15 0 15 332 774300000 XOR =O774300000
0 10 0 212 04 0 15 1 232 TNZ L42P3
* TEST PRS 774
0 10 0 213 17 0 15 065 L32P4 CLA H32P4
0 10 0 214 13 0 15 1 070 STO V1
0 10 0 215 00 0 15 1 023 HOP H9P3 RST INT REG
0 10 0 216 17 0 15 1 020 CLA ZERO
0 10 0 217 01 0 15 1 374 PRS 774
0 10 0 220 13 0 15 1 074 STO V5
0 10 0 221 05 0 15 154 CIO 154
0 10 0 222 15 0 15 335 004700000 XOR =O004700000 7,10,11,12
0 10 0 223 04 0 15 1 232 TNZ L42P3
0 10 0 224 17 0 15 066 L33P1 CLA H33P1
0 10 0 225 13 0 15 1 070 STO V1
0 10 0 226 17 0 15 1 032 CLA K1 SET DO 1
0 10 0 227 05 0 15 210 CIO 210
0 10 0 230 05 0 15 214 CIO 214
0 10 0 231 06 0 15 1 032 AND K1
0 10 0 232 04 0 15 234 TNZ L33P2
0 10 0 233 10 0 15 1 232 TRA L42P3
0 10 0 234 17 0 15 067 L33P2 CLA H33P2
0 10 0 235 13 0 15 1 070 STO V1
0 10 0 236 17 0 15 1 020 CLA ZERO
0 10 0 237 05 0 15 210 CIO 210 RESET DO 1
0 10 0 240 05 0 15 214 CIO 214
0 10 0 241 06 0 15 1 032 AND K1
0 10 0 242 04 0 15 1 232 TNZ L42P3
0 10 0 243 17 0 15 070 L33P3 CLA H33P3
0 10 0 244 13 0 15 1 070 STO V1
0 10 0 245 00 0 15 1 023 HOP H9P3 RST INT REG
0 10 0 246 05 0 15 154 CIO 154
0 10 0 247 04 0 15 1 232 TNZ L42P3
* TEST OCTAL MODE DECODING
0 10 0 250 17 0 15 1 020 L34P1 CLA ZERO
0 10 0 251 13 0 15 1 101 STO CTR
0 10 0 252 16 0 15 210 CDS 0,10
0 10 0 253 17 0 10 372 CLA K34P2
0 10 0 254 06 0 10 1 046 AND KX7 RETAIN ADDRESS
0 10 0 255 13 0 10 1 076 STO TEMP
0 10 0 256 17 0 10 301 CLA L34P2
0 10 0 257 06 0 10 1 047 AND KX8 REMOVE ADDRESS
0 10 0 260 15 0 10 1 076 XOR TEMP
0 10 0 261 13 0 10 301 STO L34P2
0 10 0 262 17 0 10 373 CLA K34P3
0 10 0 263 06 0 10 1 046 AND KX7
0 10 0 264 13 0 10 1 076 STO TEMP
0 10 0 265 17 0 10 304 CLA L34P3
0 10 0 266 06 0 10 1 047 AND KX8
0 10 0 267 15 0 10 1 076 XOR TEMP
# PAGE 76, SEQUENCE 37540-38100
PAGE 076
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 10 0 270 13 0 10 304 STO L34P3
0 10 0 271 16 0 10 215 CDS 0,15
0 10 0 272 05 0 15 164 CIO 164 SET OCTAL MODE
0 10 0 273 17 0 15 072 CLA H34P5
0 10 0 274 13 0 15 1 070 STO V1
0 10 0 275 17 0 15 071 CLA H34P4
0 10 0 276 13 0 15 1 071 STO V2
0 10 0 277 17 0 15 336 400000000 CLA =O4 INHIBIT CHECK BIT AT 10,11,12 T
0 10 0 300 05 0 15 250 CIO 250
0 10 0 301 01 0 15 042 L34P2 PRS PRSC
0 10 0 302 13 0 15 1 074 STO V5
0 10 0 303 05 0 15 154 CIO 154
0 10 0 304 15 0 15 216 L34P3 XOR PATN4
0 10 0 305 04 0 15 1 240 TNZ L42P4
0 10 0 306 17 0 15 1 101 L34P4 CLA CTR
0 10 0 307 07 0 15 1 036 ADD KS1
0 10 0 310 13 0 15 1 101 STO CTR
0 10 0 311 16 0 15 210 CDS 0,10
0 10 0 312 17 0 10 301 CLA L34P2
0 10 0 313 07 0 10 1 037 ADD KS2
0 10 0 314 13 0 10 301 STO L34P2
0 10 0 315 17 0 10 304 CLA L34P3
0 10 0 316 07 0 10 1 037 ADD KS2
0 10 0 317 13 0 10 304 STO L34P3
0 10 0 320 16 0 10 215 CDS 0,15
0 10 0 321 00 0 15 1 023 L34P5 HOP H9P3
0 10 0 322 17 0 15 1 101 CLA CTR
0 10 0 323 02 0 15 1 137 SUB C27
0 10 0 324 04 0 15 301 TNZ L34P2
0 15 042 000000000 PRSC OCT 0
0 15 043 111111112 OCT 111111112
0 15 044 222222222 OCT 222222222
0 15 045 333333332 OCT 333333332
0 15 046 444444444 OCT 444444444
0 15 047 555555554 OCT 555555554
0 15 050 666666666 OCT 666666666
0 15 051 777777774 OCT 777777774
* TEST DIGITS 2 THRU 9 DECODE
0 10 0 325 17 0 15 073 L34P6 CLA H34P6
0 10 0 326 13 0 15 1 070 STO V1
0 10 0 327 01 0 15 337 411111114 PRS =O411111114
0 10 0 330 07 0 15 1 020 ADD ZERO
0 10 0 331 05 0 15 154 CIO 154
0 10 0 332 15 0 15 340 170300000 XOR =O170300000 3-6,11,12
0 10 0 333 04 0 15 1 232 TNZ L42P3
0 10 0 334 17 0 15 074 L34P7 CLA H34P7
0 10 0 335 13 0 15 1 070 STO V1
0 10 0 336 00 0 15 1 023 HOP H9P3
0 10 0 337 01 0 15 341 122222222 PRS =O122222222
0 10 0 340 07 0 15 1 020 ADD ZERO
0 10 0 341 05 0 15 154 CIO 154
0 10 0 342 15 0 15 1 034 XOR K1303 3,5,6,11,12
0 10 0 343 04 0 15 1 232 TNZ L42P3
0 10 0 344 17 0 15 075 L34P8 CLA H34P8
0 10 0 345 13 0 15 1 070 STO V1
0 10 0 346 00 0 15 1 023 HOP H9P3
# PAGE 77, SEQUENCE 38110-38670
PAGE 077
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 10 0 347 01 0 15 342 244444444 PRS =O244444444
0 10 0 350 07 0 15 1 020 ADD ZERO
0 10 0 351 05 0 15 154 CIO 154
0 10 0 352 15 0 15 343 160300000 XOR =O160300000 3-5,11,12
0 10 0 353 04 0 15 1 232 TNZ L42P3
* TEST CHECK BIT FOR 10,11,12 TIME OCTAL MODE
0 10 0 354 17 0 15 076 L34P9 CLA H34P9
0 10 0 355 13 0 15 1 070 STO V1
0 10 0 356 00 0 15 1 023 HOP H9P3
0 10 0 357 17 0 15 054 200000000 CLA =O2
0 10 0 360 05 0 15 250 CIO 250 RESET CHECK BIT INHIBIT
0 10 0 361 01 0 15 344 411111140 PRS =O41111114
0 10 0 362 07 0 15 1 020 ADD ZERO
0 10 0 363 05 0 15 154 CIO 154
0 10 0 364 15 0 15 345 174300000 XOR =O174300000 3-7,11,12
0 10 0 365 04 0 15 1 232 TNZ L42P3
0 10 0 366 00 0 15 1 023 HOP H9P3
0 10 0 367 00 0 15 346 150130110 TRA* L35P2
0 10 0 370 01 0 15 1 104 K31P1 PRS CHAR
0 10 0 371 15 0 15 116 K31P2 XOR PATN1
0 10 0 372 01 0 15 042 K34P2 PRS PRSC
0 10 0 373 15 0 15 216 K34P3 XOR PATN4
* CARRIAGE CONTROL TESTS
* IMMEDIATE SKIP
ORG ,11,,260,,15,
0 11 0 260 17 0 15 052 L35P2 CLA H36P2
0 15 052 150147510 H36P2 HPC L36P2
0 11 0 261 13 0 15 1 070 STO V1
0 11 0 262 17 0 15 053 CLA H36P1
0 15 053 150140110 H36P1 HPC L36P1
0 11 0 263 13 0 15 1 071 STO V2
0 11 0 264 17 0 15 1 020 CLA ZERO
0 11 0 265 13 0 15 1 101 STO CTR
0 11 0 266 17 0 15 347 000000030 CLA =O000000030 =12
0 11 0 267 13 0 15 1 100 STO STOP
0 11 0 270 17 0 15 1 136 CLA C26 =010000000
0 11 0 271 13 0 15 1 076 STO TEMP
0 11 0 272 17 0 15 1 076 L35P3 CLA TEMP
0 11 0 273 13 0 15 1 074 STO VAR5
0 11 0 274 05 0 15 160 CIO 160 CARR CTL
0 11 0 275 05 0 15 154 CIO 154
0 11 0 276 15 0 15 226 L35P4 XOR PATN2
0 11 0 277 04 0 15 343 TNZ L42P4A
0 11 0 300 17 0 15 1 101 L36P1 CLA CTR
0 11 0 301 07 0 15 1 032 ADD K1
0 11 0 302 13 0 15 1 101 STO CTR
0 11 0 303 17 0 15 1 032 CLA K1
0 11 0 304 05 0 15 210 CIO 210 SET + RESET D.O.1
0 11 0 305 17 0 15 1 020 CLA ZERO
0 11 0 306 05 0 15 210 CIO 210
0 11 0 307 17 0 15 1 076 CLA TEMP
0 11 0 310 07 0 15 1 136 ADD C26 =010000000
0 11 0 311 13 0 15 1 076 STO TEMP
0 11 0 312 16 0 15 211 CDS 0,11
0 11 0 313 17 0 11 276 CLA L35P4
0 11 0 314 07 0 11 1 037 ADD KS2
# PAGE 78, SEQUENCE 38680-39240
PAGE 078
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 11 0 315 13 0 11 276 STO L35P4
0 11 0 316 16 0 11 215 CDS 0,15
0 11 0 317 00 0 15 1 023 L36P2 HOP H9P3 RST INT REG
0 11 0 320 17 0 15 1 101 CLA CTR
0 11 0 321 02 0 15 1 100 SUB STOP
0 11 0 322 04 0 15 272 TNZ L35P3 CONTINUE IN LOOP
0 11 0 323 17 0 15 1 100 L36P3 CLA STOP
0 11 0 324 02 0 15 347 000000030 SUB =O000000030 IS STOP = 12
0 11 0 325 04 0 15 334 TNZ L37P1
* IMMEDIATE SPACE
0 11 0 326 13 0 15 1 101 L36P4 STO CTR RST CTR
0 11 0 327 17 0 15 350 000000006 CLA =O000000006 =3
0 11 0 330 13 0 15 1 100 STO STOP
0 11 0 331 17 0 15 1 115 CLA C9 =410000000
0 11 0 332 13 0 15 1 076 STO TEMP
0 11 0 333 10 0 15 272 TRA L35P3
* SKIP AFTER PRINT
0 11 0 334 17 0 15 100 L37P1 CLA H37P5
0 11 0 335 13 0 15 1 070 STO V1
0 11 0 336 17 0 15 077 CLA H37P4
0 11 0 337 13 0 15 1 071 STO V2
0 11 0 340 17 0 15 1 020 CLA ZERO
0 11 0 341 13 0 15 1 101 STO CTR
0 11 0 342 00 0 15 351 150000300 TRA* L37P1A
0 11 0 343 00 0 15 1 026 L42P4A HOP H95P1
0 11 0 344 15 0 15 226 K35P4 XOR PATN2
ORG ,10,1,,,15,
0 10 1 000 17 0 15 347 000000030 L37P1A CLA =O000000030 =12
0 10 1 001 13 0 15 1 100 STO STOP
0 10 1 002 17 0 15 1 104 CLA CHAR =610000000
0 10 1 003 13 0 15 1 076 STO TEMP
0 10 1 004 17 0 15 1 076 L37P2 CLA TEMP
0 10 1 005 13 0 15 1 074 STO V5
0 10 1 006 05 0 15 160 CIO 160
0 10 1 007 17 0 15 1 032 CLA K1
0 10 1 010 05 0 15 210 CIO 210 SET DO 1
0 10 1 011 17 0 15 1 020 CLA ZERO
0 10 1 012 05 0 15 210 CIO 210 RST DO 1
0 10 1 013 05 0 15 154 CIO 154
0 10 1 014 15 0 15 245 L37P3 XOR PATN3
0 10 1 015 04 0 15 1 240 TNZ L42P4
0 10 1 016 17 0 15 1 101 L37P4 CLA CTR
0 10 1 017 07 0 15 1 032 ADD K1
0 10 1 020 13 0 15 1 101 STO CTR
0 10 1 021 17 0 15 1 076 CLA TEMP
0 10 1 022 07 0 15 1 136 ADD C26 =010000000
0 10 1 023 13 0 15 1 076 STO TEMP
0 10 1 024 16 0 15 210 CDS 0,10
0 10 1 025 17 0 10 014 CLA L37P3
0 10 1 026 07 0 10 1 036 ADD KS1
0 10 1 027 13 0 10 014 STO L37P3
0 10 1 030 16 0 10 215 CDS 0,15
0 10 1 031 00 0 15 1 023 L37P5 HOP H9P3 RST INT REG
0 10 1 032 17 0 15 1 101 L38P1 CLA CTR
0 10 1 033 02 0 15 1 100 SUB STOP
0 10 1 034 04 0 15 1 004 TNZ L37P2
# PAGE 79, SEQUENCE 39250-39800
PAGE 079
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 10 1 035 17 0 15 1 100 L38P2 CLA STOP
0 10 1 036 02 0 15 347 000000030 SUB =O000000030 =12
0 10 1 037 04 0 15 1 046 TNZ L38P4
0 10 1 040 13 0 15 1 101 L38P3 STO CTR =ZERO
0 10 1 041 17 0 15 350 000000006 CLA =O000000006 =3
0 10 1 042 13 0 15 1 100 STO STOP
0 10 1 043 17 0 15 1 152 CLA C38 =210000000
0 10 1 044 13 0 15 1 076 STO TEMP
0 10 1 045 10 0 15 1 004 TRA L37P2
* AUTOMATIC CARRIAGE SKIP AND PRINTER READ LINE CHECK
0 10 1 046 17 0 15 101 L38P4 CLA H38P4
0 10 1 047 13 0 15 1 070 STO V1
0 10 1 050 17 0 15 1 020 CLA ZERO
0 10 1 051 13 0 15 1 074 STO VAR5
0 10 1 052 17 0 15 352 000000110 CLA =O000000110 DO 3 CARR BUSY
* DO 6 CHANNEL 12 INDICATOR
0 10 1 053 05 0 15 210 CIO 210
0 10 1 054 05 0 15 214 CIO 214
0 10 1 055 06 0 15 1 032 AND K1 READY LINE
0 10 1 056 04 0 15 1 060 TNZ L39P1
0 10 1 057 10 0 15 1 232 TRA L42P3
0 10 1 060 17 0 15 102 L39P1 CLA H39P1
0 10 1 061 13 0 15 1 070 STO V1
0 10 1 062 17 0 15 1 020 CLA ZERO RESET DO 3,6
0 10 1 063 05 0 15 210 CIO 210
0 10 1 064 17 0 15 1 032 CLA K1 SET DO 1 (PRINTING)
0 10 1 065 05 0 15 210 CIO 210
0 10 1 066 05 0 15 154 CIO 154
0 10 1 067 15 0 15 353 612020000 XOR =O612020000 1,2,6,8,14
0 10 1 070 04 0 15 1 232 TNZ L42P3
0 10 1 071 17 0 15 103 L39P2 CLA H39P2
0 10 1 072 13 0 15 1 070 STO V1
0 10 1 073 13 0 15 1 073 STO V4
0 10 1 074 17 0 15 1 020 CLA ZERO
0 10 1 075 05 0 15 210 CIO 210 RESET DO1,DO3
# The following line appears in the original assembly listing,
# but was generated by the assembler rather than being source
# code. It is thus commented-out here.
# TRA** GENERATED TRANSFER
* 0 10 1 076 10 0 15 1 100
0 10 1 100 05 0 15 154 CIO 154
0 10 1 101 15 0 15 353 612020000 L39P2A XOR =O612020000 1,2,6,8,14
0 10 1 102 04 0 15 1 232 TNZ L42P3
0 10 1 103 17 0 15 104 L39P3 CLA H39P3
0 10 1 104 13 0 15 1 073 L39P3A STO V4
0 10 1 105 05 0 15 214 CIO 214
0 10 1 106 06 0 15 1 032 AND K1
0 10 1 107 04 0 15 1 232 TNZ L42P3
0 10 1 110 17 0 15 105 L39P4 CLA H39P4
0 10 1 111 13 0 15 1 070 STO V1
0 10 1 112 17 0 15 1 020 CLA ZERO
0 10 1 113 13 0 15 1 073 STO VAR4
0 10 1 114 00 0 15 1 023 HOP H9P3 RST INT REG
0 10 1 115 05 0 15 154 CIO 154
0 10 1 116 04 0 15 1 232 TNZ L42P3
* BCD MODE PARITY ERROR
0 10 1 117 17 0 15 106 L40P1 CLA H40P1
0 10 1 120 13 0 15 1 070 STO V1
0 10 1 121 05 0 15 170 CIO 170 SET BCD MODE
# PAGE 80, SEQUENCE 39810-40370
PAGE 080
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 10 1 122 17 0 15 301 000000010 CLA =O000000010 SET DO 3 (CARR BUSY)
0 10 1 123 05 0 15 210 CIO 210
0 10 1 124 17 0 15 354 000000014 CLA =O000000014
0 10 1 125 05 0 15 210 CIO 210 SET DO 2 (PARITY ERROR)
0 10 1 126 17 0 15 355 000000016 CLA =O000000016
0 10 1 127 05 0 15 210 CIO 210 SET DO 1 (PROCESSOR RELEASE)
0 10 1 130 05 0 15 264 CIO 264
0 10 1 131 05 0 15 154 CIO 154
0 10 1 132 15 0 15 356 001020000 XOR =O001020000 9,14
0 10 1 133 04 0 15 1 232 TNZ L42P3
0 10 1 134 17 0 15 107 L40P2 CLA H40P2
0 10 1 135 13 0 15 1 070 STO V1
0 10 1 136 17 0 15 301 000000010 CLA =O000000010 RST DO1, DO2
0 10 1 137 05 0 15 210 CIO 210
0 10 1 140 01 0 15 1 020 PRS ZERO
0 10 1 141 05 0 15 154 CIO 154
0 10 1 142 15 0 15 357 005320000 XOR =O005320000 7,9,11,12,14
0 10 1 143 04 0 15 1 232 TNZ L42P3
0 10 1 144 17 0 15 110 L40P3 CLA H40P3
0 10 1 145 13 0 15 1 070 STO V1
0 10 1 146 17 0 15 1 020 CLA ZERO
0 10 1 147 05 0 15 210 CIO 210 RST DO 3
0 10 1 150 01 0 15 1 375 PRS 775
0 10 1 151 05 0 15 154 CIO 154
0 10 1 152 15 0 15 360 205320000 XOR =O205320000 2,7,9,11,12,14
0 10 1 153 04 0 15 1 232 TNZ L42P3
0 10 1 154 17 0 15 111 L41P1 CLA H41P1
0 10 1 155 13 0 15 1 070 STO V1
0 10 1 156 00 0 15 1 023 HOP H9P3 RST INT REG
0 10 1 157 05 0 15 154 CIO 154
0 10 1 160 04 0 15 1 232 TNZ L42P3
* OCTAL MODE - PARITY ERROR DURING PRINT
0 10 1 161 17 0 15 112 L41P2 CLA H41P2
0 10 1 162 13 0 15 1 070 STO V1
0 10 1 163 05 0 15 164 CIO 164 SET OCTAL MODE
0 10 1 164 17 0 15 1 032 CLA K1 SET DO 1 (PROC. RELEASE)
0 10 1 165 05 0 15 210 CIO 210
0 10 1 166 17 0 15 350 000000006 CLA =O000000006 SET DO 2 (PTY ERROR)
0 10 1 167 05 0 15 210 CIO 210
0 10 1 170 05 0 15 264 CIO 264
0 10 1 171 17 0 15 1 032 CLA K1 RST DO 2
0 10 1 172 05 0 15 210 CIO 210
0 10 1 173 17 0 15 1 020 CLA ZERO
0 10 1 174 05 0 15 210 CIO 210 RST DO 1
0 10 1 175 01 0 15 1 375 PRS 775
0 10 1 176 07 0 15 1 020 ADD ZERO
0 10 1 177 05 0 15 154 CIO 154
0 10 1 200 15 0 15 361 725300000 XOR =O725300000 1,2,3,5,7,9,11,12
0 10 1 201 04 0 15 1 232 TNZ L42P3
0 10 1 202 17 0 15 113 L41P3 CLA H41P3
0 10 1 203 13 0 15 1 070 STO V1
0 10 1 204 00 0 15 1 023 HOP H9P3
0 10 1 205 05 0 15 154 CIO 154
0 10 1 206 04 0 15 1 232 TNZ L42P3
* OCTAL MODE - PARITY ERROR DURING BUFFER LOAD
# PAGE 81, SEQUENCE 40380-40940
PAGE 081
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 10 1 207 17 0 15 114 L42P1 CLA H42P1
0 10 1 210 13 0 15 1 070 STO V1
0 10 1 211 17 0 15 277 000000004 CLA =O000000004 SET DO 2
0 10 1 212 05 0 15 210 CIO 210
0 10 1 213 05 0 15 264 CIO 264
0 10 1 214 17 0 15 1 020 CLA ZERO RST
0 10 1 215 05 0 15 210 CIO 210
0 10 1 216 01 0 15 1 375 PRS 775
0 10 1 217 07 0 15 1 020 ADD ZERO
0 10 1 220 05 0 15 154 CIO 154
0 10 1 221 15 0 15 362 525300000 XOR =O525300000 1,3,5,7,9,11,12
0 10 1 222 04 0 15 1 232 TNZ L42P3
0 10 1 223 17 0 15 115 L42P2 CLA H42P2
0 10 1 224 13 0 15 1 070 STO V1
0 10 1 225 00 0 15 1 023 HOP H9P3
0 10 1 226 05 0 15 154 CIO 154
0 10 1 227 04 0 15 1 232 TNZ L42P3
0 10 1 230 10 0 15 1 242 TRA L43P1
0 10 1 231 00 0 15 363 150000310 TRA* L45P1 TO ROUTINE 6
* TO ERROR ROUTINE
0 10 1 232 13 0 15 1 376 L42P3 STO 776
0 10 1 233 13 0 15 1 077 STO TEMP1
0 10 1 234 17 0 15 1 376 CLA 776
0 10 1 235 13 0 15 1 071 STO VAR2
0 10 1 236 00 0 15 1 023 HOP H9P3
0 10 1 237 17 0 15 1 077 CLA TEMP1
0 10 1 240 00 0 15 364 160000560 L42P4 TRA* L95P1
0 10 1 241 15 0 15 245 K37P3 XOR PATN3
# The following line was not present in the original source code.
# It has been added as a workaround for what I believe is a bug
# in the original assembler that I haven't been able to figure out
# how to incorporate into the modern assembler.
DOG 0,15,55 # workaround
0 15 055 150033100 H29P3 HPC L29P3
0 15 056 150040100 H29P4 HPC L29P4
0 15 057 150044500 H30P1 HPC L30P1
0 15 060 150052100 H30P2 HPC L30P2
0 15 061 150062500 H31P3 HPC L31P3
0 15 062 150070100 H31P4 HPC L31P4
0 15 063 150075500 H32P2 HPC L32P2
0 15 064 150101500 H32P3 HPC L32P3
0 15 065 150105500 H32P4 HPC L32P4
0 15 066 150112100 H33P1 HPC L33P1
0 15 067 150116100 H33P2 HPC L33P2
0 15 070 150121500 H33P3 HPC L33P3
0 15 071 150143100 H34P4 HPC L34P4
0 15 072 150150500 H34P5 HPC L34P5
0 15 073 150152500 H34P6 HPC L34P6
0 15 074 150156100 H34P7 HPC L34P7
0 15 075 150162100 H34P8 HPC L34P8
0 15 076 150166100 H34P9 HPC L34P9
0 15 077 150007300 H37P4 HPC L37P4
0 15 100 150014700 H37P5 HPC L37P5
0 15 101 150023300 H38P4 HPC L38P4
0 15 102 150030300 H39P1 HPC L39P1
0 15 103 150034700 H39P2 HPC L39P2
0 15 104 150041700 H39P3 HPC L39P3
0 15 105 150044300 H39P4 HPC L39P4
0 15 106 150047700 H40P1 HPC L40P1
0 15 107 150056300 H40P2 HPC L40P2
0 15 110 150062300 H40P3 HPC L40P3
# PAGE 82, SEQUENCE 40950-40990
PAGE 082
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 15 111 150066300 H41P1 HPC L41P1
0 15 112 150070700 H41P2 HPC L41P2
0 15 113 150101300 H41P3 HPC L41P3
0 15 114 150103700 H42P1 HPC L42P1
0 15 115 150111700 H42P2 HPC L42P2
# PAGE 83, SEQUENCE 41010-41570
PAGE 083
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 15 116 614300000 PATN1 OCT 61430000 A PRTR
0 15 117 624300000 OCT 62430000 B
0 15 120 634300000 OCT 63430000 C
0 15 121 644300000 OCT 64430000 D
0 15 122 654300000 OCT 65430000 E
0 15 123 664300000 OCT 66430000 F
0 15 124 674300000 OCT 67430000 G
0 15 125 704300000 OCT 70430000 H
0 15 126 714300000 OCT 71430000 I
0 15 127 414300000 OCT 41430000 J
0 15 130 424300000 OCT 42430000 K
0 15 131 434300000 OCT 43430000 L
0 15 132 444300000 OCT 44430000 M
0 15 133 454300000 OCT 45430000 N
0 15 134 464300000 OCT 46430000 O
0 15 135 474300000 OCT 47430000 P
0 15 136 504300000 OCT 50430000 Q
0 15 137 514300000 OCT 51430000 R
0 15 140 224300000 OCT 22430000 S
0 15 141 234300000 OCT 23430000 T
0 15 142 244300000 OCT 24430000 U
0 15 143 254300000 OCT 25430000 V
0 15 144 264300000 OCT 26430000 W
0 15 145 274300000 OCT 27430000 X
0 15 146 304300000 OCT 30430000 Y
0 15 147 310300000 OCT 31030000 Z
0 15 150 014300000 OCT 01430000 1 BCD
0 15 151 024300000 OCT 02430000 2
0 15 152 034300000 OCT 03430000 3
0 15 153 044300000 OCT 04430000 4
0 15 154 054300000 OCT 05430000 5
0 15 155 064300000 OCT 06430000 6
0 15 156 074300000 OCT 07430000 7
0 15 157 104300000 OCT 10430000 8
0 15 160 114300000 OCT 11430000 9
0 15 161 124300000 OCT 12430000 0
0 15 162 134300000 OCT 13430000 SPCL CHARS
0 15 163 204300000 OCT 20430000
0 15 164 214300000 OCT 21430000
0 15 165 334300000 OCT 33430000
0 15 166 404300000 OCT 40430000
0 15 167 534300000 OCT 53430000
0 15 170 604300000 OCT 60430000
0 15 171 734300000 OCT 73430000
0 15 172 004300000 OCT 00430000
0 15 173 144300000 OCT 14430000
0 15 174 154300000 OCT 15430000
0 15 175 164300000 OCT 16430000
0 15 176 174300000 OCT 17430000
0 15 177 324300000 OCT 32430000
0 15 200 344300000 OCT 34430000
0 15 201 354300000 OCT 35430000
0 15 202 364300000 OCT 36430000
0 15 203 374300000 OCT 37430000
0 15 204 524300000 OCT 52430000
0 15 205 544300000 OCT 54430000
0 15 206 554300000 OCT 55430000
# PAGE 84, SEQUENCE 41580-42040
PAGE 084
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 15 207 564300000 OCT 56430000
0 15 210 574300000 OCT 57430000
0 15 211 724300000 OCT 72430000
0 15 212 744300000 OCT 74430000
0 15 213 754300000 OCT 75430000
0 15 214 764300000 OCT 76430000
0 15 215 774300000 OCT 77430000 END BCD
0 15 216 124300000 PATN4 OCT 12430000 0 OCTAL
0 15 217 130300000 OCT 13030000 1
0 15 220 120300000 OCT 12030000 2
0 15 221 134300000 OCT 13430000 3
0 15 222 160300000 OCT 16030000 4
0 15 223 174300000 OCT 17430000 5
0 15 224 164300000 OCT 16430000 6
0 15 225 170300000 OCT 17030000 7
0 15 226 012100000 PATN2 OCT 01210000 CHNL.1 - IMMED. SKIP
0 15 227 022100000 OCT 02210000 2
0 15 230 036100000 OCT 03610000 3
0 15 231 042100000 OCT 04210000 4
0 15 232 056100000 OCT 05610000 5
0 15 233 066100000 OCT 06610000 6
0 15 234 072100000 OCT 07210000 7
0 15 235 102100000 OCT 10210000 8
0 15 236 116100000 OCT 11610000 9
0 15 237 126100000 OCT 12610000 10
0 15 240 132100000 OCT 13210000 11
0 15 241 146100000 OCT 14610000 12
0 15 242 416100000 OCT 41610000 1 IMMED. SPACE
0 15 243 426100000 OCT 42610000 2
0 15 244 432100000 OCT 43210000 3
* SKIP AFTER PRINT CHANNEL
0 15 245 612100000 PATN3 OCT 61210000 1
0 15 246 622100000 OCT 62210000 2
0 15 247 636100000 OCT 63610000 3
0 15 250 642100000 OCT 64210000 4
0 15 251 656100000 OCT 65610000 5
0 15 252 666100000 OCT 66610000 6
0 15 253 672100000 OCT 67210000 7
0 15 254 702100000 OCT 70210000 8
0 15 255 716100000 OCT 71610000 9
0 15 256 726100000 OCT 72610000 10
0 15 257 732100000 OCT 73210000 11
0 15 260 746100000 OCT 74610000 12
* SPACE AFTER PRINT
0 15 261 216100000 OCT 21610000 1
0 15 262 226100000 OCT 22610000 2
0 15 263 232100000 OCT 23210000 3
# PAGE 85, SEQUENCE 42060-42410
PAGE 085
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
* RESTORE ORIGINAL INSTRUCTIONS
0 10 1 242 13 0 15 1 376 L43P1 STO 776
0 10 1 243 17 0 15 1 376 CLA 776
0 10 1 244 13 0 15 1 103 STO HRTRN
0 10 1 245 16 0 15 210 CDS 0,10
0 10 1 246 17 0 10 370 CLA K31P1
0 10 1 247 13 0 10 1 076 STO TEMP
0 10 1 250 17 0 10 140 CLA L31P1
0 10 1 251 00 0 10 376 160000360 TRA* L1P1C
0 10 1 252 13 0 10 140 STO L31P1
0 10 1 253 17 0 10 371 CLA K31P2
0 10 1 254 13 0 10 1 076 STO TEMP
0 10 1 255 17 0 10 143 CLA L31P2
0 10 1 256 00 0 10 376 160000360 TRA* L1P1C
0 10 1 257 13 0 10 143 STO L31P2
0 10 1 260 16 0 10 211 CDS 0,11
0 10 1 261 17 0 11 344 CLA K35P4
0 10 1 262 13 0 11 1 076 STO TEMP
0 10 1 263 17 0 11 276 CLA L35P4
0 10 1 264 00 0 11 345 160000360 TRA* L1P1C
0 10 1 265 13 0 11 276 STO L35P4
0 10 1 266 16 0 11 210 CDS 0,10
0 10 1 267 17 0 10 241 CLA K37P3
0 10 1 270 13 0 10 1 076 STO TEMP
0 10 1 271 17 0 10 014 CLA L37P3
0 10 1 272 10 0 10 1 275 TRA L43P2
0 10 1 273 13 0 10 014 STO L37P3
0 10 1 274 00 0 10 1 103 HOP HRTRN
* RESTORE SYLLABLE 1 INSTRUCTION
0 10 1 275 13 0 10 1 376 L43P2 STO 776
0 10 1 276 06 0 10 1 040 AND KX1 REMOVE ADDRESS
0 10 1 277 13 0 10 1 077 STO TEMP1
0 10 1 300 17 0 10 1 076 CLA TEMP
0 10 1 301 06 0 10 1 045 AND KX6 KEEP ADDRESS
0 10 1 302 15 0 10 1 077 XOR TEMP1
0 10 1 303 00 0 10 1 376 HOP 776
# PAGE 86, SEQUENCE 42430-42990
PAGE 086
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
* BEGINNING OF ROUTINE SIX
* EXERCISE CALCOMP DIGITAL INCREMENTAL PLOTTER
ORG ,11,1,,,15,
0 11 1 000 17 0 15 1 061 L45P1 CLA LCR6
0 11 1 001 14 0 15 1 005 TMI L45P2
0 11 1 002 04 0 15 1 004 TNZ L50P1A
0 11 1 003 00 0 15 327 130007000 TRA* L2P1
0 11 1 004 00 0 15 365 110000110 L50P1A TRA* L50P1
0 15 264 150002710 H45P2 HPC L45P2
0 11 1 005 17 0 15 264 L45P2 CLA H45P2
0 11 1 006 13 0 15 1 070 STO VAR1
0 11 1 007 17 0 15 265 CLA H50P1
0 15 265 110000110 H50P1 HPC L50P1
0 11 1 010 13 0 15 1 071 STO VAR2
0 11 1 011 17 0 15 1 032 CLA K1
0 11 1 012 05 0 15 150 CIO 150 RAISE PEN
0 11 1 013 10 0 15 1 126 TRA L47P1B DELAY 0.11 SEC
0 11 1 014 05 0 15 214 CIO 214
0 11 1 015 06 0 15 270 AND K2
0 11 1 016 04 0 15 1 043 TNZ L45P3A
0 11 1 017 13 0 15 1 073 STO V4 =0
0 11 1 020 17 0 15 266 CLA KMAXMA
0 15 266 400003774 KMAXMA OCT 400003774
0 15 267 400001774 KMAXM OCT 400001774
0 11 1 021 05 0 15 144 CIO 144 CARR RIGHT
0 11 1 022 10 0 15 1 264 TRA L47P3
0 11 1 023 05 0 15 214 CIO 214
0 11 1 024 06 0 15 270 AND K2
0 15 270 000000004 K2 OCT 000000004
0 11 1 025 04 0 15 1 043 TNZ L45P3A
0 11 1 026 17 0 15 270 L45P3 CLA K2
0 11 1 027 05 0 15 150 CIO 150 LOWER PEN
0 11 1 030 10 0 15 1 126 TRA L47P1B DELAY 0.11 SEC
0 11 1 031 05 0 15 214 CIO 214
0 11 1 032 06 0 15 270 AND K2
0 11 1 033 04 0 15 1 043 TNZ L45P3A
0 11 1 034 17 0 15 271 CLA KMAXPA
0 15 271 000003774 KMAXPA OCT 000003774
0 15 272 000001774 KMAXP OCT 000001774
0 11 1 035 05 0 15 140 CIO 140 DRUM DOWN
0 11 1 036 17 0 15 1 020 CLA ZERO
0 11 1 037 05 0 15 144 CIO 144 PLOT
0 11 1 040 05 0 15 214 CIO 214
0 11 1 041 06 0 15 270 AND K2 CHECK READY
0 11 1 042 04 0 15 1 051 TNZ L45P3B
0 11 1 043 13 0 15 1 376 L45P3A STO 776
0 11 1 044 13 0 15 1 076 STO TEMP
0 11 1 045 17 0 15 1 376 CLA 776
0 11 1 046 13 0 15 1 073 STO V4
0 11 1 047 17 0 15 1 076 CLA TEMP
0 11 1 050 00 0 15 1 026 HOP H95P1
0 11 1 051 10 0 15 1 264 L45P3B TRA L47P3
0 11 1 052 17 0 15 272 L45P4 CLA KMAXP
0 11 1 053 05 0 15 144 CIO 144 CARR LEFT
0 11 1 054 10 0 15 1 271 TRA L47P4
0 11 1 055 17 0 15 273 L45P5 CLA KHP
0 15 273 000000776 KHP OCT 000000776
# PAGE 87, SEQUENCE 43000-43560
PAGE 087
IM IS S LOC OP DM DS 9 ADR OCT VAL LHS OPC VARIABLE COMMENT
0 11 1 056 05 0 15 140 CIO 140 DRUM DOWN
0 11 1 057 17 0 15 274 CLA KHM
0 15 274 400000776 KHM OCT 400000776
0 11 1 060 05 0 15 144 CIO 144 CARR RIGHT
0 11 1 061 10 0 15 1 276 TRA L47P5
0 11 1 062 17 0 15 274 L46P1 CLA KHM
0 11 1 063 05 0 15 140 CIO 140 DRUM UP
0 11 1 064 17 0 15 274 CLA KHM
0 11 1 065 05 0 15 144 CIO 144 CARR RIGHT
0 11 1 066 10 0 15 1 276 TRA L47P5
0 11 1 067 17 0 15 267 L46P2 CLA KMAXM
0 11 1 070 05 0 15 140 CIO 140 DRUM UP
0 11 1 071 17 0 15 272 CLA KMAXP
0 11 1 072 05 0 15 144 CIO 144 CARR LEFT
0 11 1 073 10 0 15 1 271 TRA L47P4
0 11 1 074 17 0 15 267 L46P3 CLA KMAXM
0 11 1 075 05 0 15 144 CIO 144 CARR RIGHT
0 11 1 076 10 0 15 1 271 TRA L47P4
0 11 1 077 17 0 15 272 L46P4 CLA KMAXP
0 11 1 100 05 0 15 140 CIO 140 DRUM UP
0 11 1 101 05 0 15 144 CIO 144 CARR LEFT
0 11 1 102 10 0 15 1 271 TRA L47P4
0 11 1 103 17 0 15 267 L46P5 CLA KMAXM
0 11 1 104 05 0 15 140 CIO 140 DRUM UP
0 11 1 105 17 0 15 1 020 CLA ZERO
0 11 1 106 05 0 15 144 CIO 144
0 11 1 107 10 0 15 1 271 TRA L47P4
0 11 1 110 17 0 15 1 032 L46P6 CLA K1
0 11 1 111 05 0 15 150 CIO 150 RAISE PEN
0 11 1 112 17 0 15 274 CLA KHM CARR RIGHT
0 11 1 113 05 0 15 144 CIO 144
0 11 1 114 10 0 15 1 276 TRA L47P5
0 11 1 115 17 0 15 273 L46P7 CLA KHP DRUM DOWN
0 11 1 116 05 0 15 140 CIO 140
0 11 1 117 17 0 15 1 020 CLA ZERO
0 11 1 120 05 0 15 144 CIO 144
0 11 1 121 10 0 15 1 276 TRA L47P5
0 11 1 122 17 0 15 270 L47P1 CLA K2
0 11 1 123 05 0 15 150 CIO 150 LOWER PEN
0 11 1 124 10 0 15 1 126 TRA L47P1B DELAY 0.11 SEC
0 11 1 125 10 0 15 1 133 TRA L47P1C
0 11 1 126 13 0 15 1 377 L47P1B STO 777
0 11 1 127 17 0 15 366 000002466 CLA =O000002466 DELAY 110 MSEC.
0 11 1 130 02 0 15 1 032 L47P1A SUB K1
0 11 1 131 04 0 15 1 130 TNZ L47P1A
0 11 1 132 00 0 15 1 377 HOP 777
0 11 1 133 17 0 15 275 L47P1C CLA H47P1
0 15 275 150051310 H47P1 HPC L47P1
0 11 1 134 13 0 15 1 070 STO VAR1
0 11 1 135 17 0 15 276 CLA H47P2
0 15 276 150061310 H47P2 HPC L47P2
0 11 1 136 13 0 15 1 071 STO VAR2
0 11 1 137 05 0 15 214 CIO 214 CHECK READY
0 11 1 140 06 0 15 270 AND