DEC 12 TW2A D_PATCH_Mar70 D PATCH Mar70
DEC-12-TW2A-D_PATCH_Mar70 DEC-12-TW2A-D_PATCH_Mar70
User Manual: DEC-12-TW2A-D_PATCH_Mar70
Open the PDF directly: View PDF 
.
Page Count: 22
| Download | |
| Open PDF In Browser | View PDF |
~nmnomo
DEC-12-YU2A-D
March, 1970
Copyright(S)l970 by Digital Equipment Corporation
Specifications contained in this manual, are for
general information only.
Actual specifications
are subject to change without notice.
The drawings, specifications, and descriptions herein are
the property of Digital Equipment Corporation and
shall not be reproduced or copied or used in whole
or in part as the basis for the manufacture or
sale of items without written permission.
The following are registered trademarks of Digital
Equipment Corporation, Maynard, Massachusetts
DEC
PDP
FLIP CHIP
F'OCAL
DIGITAL
COMPU'l EH LAB
1
The equiprnent described herein is covered by patents
and patents pending.
1.0
INTRODUCTION
The Pl\TCII program will modify any loc;:ition in any TBLK on
tape unit 1.
Its primary function is to provide a method for
making small patches to LINCtape binaries.
For example, PA'I'CH
can be used to modify load and go arguments in a LAP6-DIAL 1
binary header TBLK.
via
()ANDA, an understanding of QANDA conventions is necessary
before using PATCH.
2. 0
Because PATCH converses with the user
Refer to DEC-12-FISA-D for that information.
HARDWl'1RE REQUIREMENTS
The minimum configuration is a PDP-12B.
3. 0
CORE u;.;AGE
PATCH uses MBLKs
ment 3.
4.0
~,2,
and 3 of segment 2 and MBLK 4 of seg-
The starting address is 4020.
LOADING PROCEDURE
PATCH is loaded by the comma:pd
~LO PATCH, UNIT)
Tho tape to be modified must be on transport unit 1; it can
be placed on unit 1 either before or after loading PATCH.
is a load and qo program.
1
LAP6-DIAL is hereafter referred to as DIAL.
1
PATCH
5.0
SENSE SWITCH OPTIONS
Raising Sense Switch
Therefore, MAKE SURE SENSE
6.0
~
causes PATCH to return to DIAL.
SWITCH~
IS DOWN BEFORE LOADING PATCH.
9ANDA DIALOGUE
P/\.'J'Clf •t1ill qu(:ry the user by preEienting him with 4 sue-
output is to both the scope and the Teletype.
Pressing LINE
FEED causes the program to advance to the next message in sequence.
There is no option to repeat the displayed messages.
All input must be octal and must be three or four digits,
as appropriate.
Leading zeros, if any, are required.
RUBOUT
will delete the previous characters typed, one at a time.
G.l
MESSAGE l
When PATCII is started, it displays the following message:
TBLK
At this point the user types in the number of the tape
block to be modified.
1
Teletype is the registered trademark of the Teletype Corporation.
2
When the LINE FEED key is pressed, PATCH will read in the requested TBLK.
If the input is not octal, the message is redis-
played.
6.2 MESSAGE 2
The next message is
LOC
Now the user must type in a value between 000 and 377
to specify which word within the TBLK is to be modified.
If
the value is not between 0-377, the message will be redisplayed.
Location 000 is defined as the first word in the TBLK; location
377 is defined as the last word in the TBLK.
When the LINE
FEED key is pressed, PATCH retrieves the contents of the
requested location and displays them in the next message.
If non-octal characters are typed, "LOC" is redisplayed.
6.3 MESSAGE 3
OLD VAL xlx2x3x4
NEW VAL
x
tion.
x x x is the current contents of the requested loca1 2 3 4
The user may now type in the change.
If, upon examina-
tion, no change is to be made, retype the old value as the new
3
value input, followed by LINE FEED.
NEW VAL will replace OLD VAL in core.
When LINE FEED is pressed,
If an error was made in
TBLK, simply type LINE FEED or some non-octal characters followed by LINE FEED.
The first display (TBLK
_) will reappear.
(Note that any previous changes made in core up to this point
will not be written onto the tape.)
6.4
MESSAGE 4
DO
1 WRI'TE
2 MORE CHANGES
If the user types LINE FEED or any key other than 1 followed
by LINE FEED, PATCH returns to message 2 to accept more changes
within the same TBLK.
If option 1 is requested, all the changes
up to that point are written out on the requested TBLK and PATCH
goes back to message 1.
The program can be aborted at any point
and reinitialized by stopping and restarting at 4020.
A return
to DIAL can be effected while any display is active simply by
raising Sense Switch
0.
4
*20
0000
0001
0002
/LINC
k.'!003
0004
0005
0006
0007
0020
0021
0010
00~2
0004
0011
0012
0021.S
0643
0k~
6032
6057
6137
24
001-3
0014
0015
0016
002:;
Ql017
0020
0021
0022
002.s
0024
0025
0026
0027
00.50
00~6
1020
0020
0027
6l.60
00;$0
6024
0031
6k'l.24
TAP~ PATCH(.R CPATCHl
/ALLOWS USER TO MODtrY
/ANY WORD ON ANY TBLK Or UNIT 1
/ADD QANOA BEFORE ASSEMBLY
15 MAR 70
/DO !\O
LDA
/PRESET
20
ESF
LDf 3
START, jMP MESS1
JMP MESS2
JMP MESS3
JMP MESS4
JMP START
JMP START
/DISPLAY
IT BL. K
MESSl,
LOA
00;s2
0033
1000
000k:)
0034
0035
4056
7000
0242
0307
6130
STC XITMS1
JMP QA?NIT
,J.020
0307
6200
6024
lDA I
1000
LOA
~241
ANSWD
SSE I
00 36
0037
00 4eJ
/RTN
0
TX T1
ANS1
JMP CH KS NS
0031
0032
0033
00 41
00.34
0035
0042
0043
0042
0043
0044
0045
0046
0047
0050
0051
012144
00~2
0045
0046
0047
?053
0iZJ50
0036
0037
0040
0041
ANS1
JMP DE CO DE
JMP START
1620
4000
1040
20?4
0055
4176
0710
005~
0000
00:>6
~rn00
STA
TPWD1r
/WRITE
x1rns1,
0
0
MESS2,
L.0 A
/DISPLAY
ILOC
()
0055
20 61
krn?6
0kl 5 7
0060
~3
4127
1000
STC XI TM S2
JMP QA I NIT
0 62
/RTN
i.}
. ~'0 6.5
024b
TXT2
~?64
0012
6130
1020
0312
.ANS2
JMP CrlKSNS
LOA I
62ii10
JMP
.::eh5
206::>
V:Gb6
0~J 6 7
-~ 0 7 0
.~ 7 :L
0066
;~ ~~
7
~~-1
7j
2
6l~
25
A~~
DECODE
JMP START+l
Luk,10
t..D A
0~41
1120
ANSWD
ASA I
0071
740~
... 377
~'0
~:;
APO I
Z.H~~~
0471
61j25
1120
0HH
2377
2012l0+377
c7 6
?0 7l
/JMP
/PTR TO
IL.OC
52
liU 74
i)Z 75
72
00 7 j
0074
f''2l 75
/MBl..K 4
/READ
0~~ ~0
00 67
0072J
/TBLK
STC TPW02
RDC u
00?4
0064
/HERE WHEN DONE
/PTR TO
/TBLK
ICVRT TO OCTAi..
/NOT OCT AL
iPW01
1000
21061
SSW el UPON
/RTN FROM QA ND A
4000
0057
:00 60
0062
0063
/CHK
/H OL OS
0051
0052
005.5
/JMP
J~iP START+1
AO A I
1-N OT OCTAL
/HOLDS LOC
/REL TO
/2012l0
0076
.-.0077
1040
STA
/SAVE
0233
LOC
/HERE
~100
0102
0103
0Hl4
4~16
01~1
ii'.'105
0077
0102
0103
0HJ4
0105
0106
0106
/VAL WD
011~
0256
1016
0076
7773
41.:'.32
STC 16
SET I 17
TXT3+4
0107
0113
1000
0110
0111
0112
0113
0114
0115
0116
0117
0120
0114
~~32
Cl15
0116
0117
0120
0243
4232
LOA
TEMP
ROL 3
STC TEMP
a32
ADD TEMP
1:>6~1
BCL I
7770
1120
0060
1.577
7770
60
STH
17
0236
6113
a000
0440
XSK
I 16
JMP LOOP
0
SNS 0
ei07
0110
0111
0121
0122
0123
2124
LOA 16
/OLD· VAL
SET I 1~
-4
STC TEMP
LOOP,
0125
0126
6127
013(1
~~ 131
0132
0133
0134
0135
0136
XITMS2,
CHKSNS,
70·53
JMP QA RF SH
0076
07 21
SEi
n46
AC
/CODES FOR
/QANDA
/1 DIG IT Ai
/A
TIME
0~
SEi I 17
/PUT IN QA ND A
/TEXT STRING
/DONE ?
/NO
/YES RiN
/BA-CK TO DIAL ?
/NO REF'RESH
/MESSAGE
16
RCG
77
7300
JMP 16
7300
6016
01.55
0136
01.37
0140
0141
0142
0143
0144
0145
TO
/CVRT TO DIAL
ADA I
fH21
0122
01';:3
0124
0125
0126
0127
0130 /
0131
0132
0133
0134
TO OLD
/PiR
/GO EDITOR
/DISPLAY
/OL.D VAL xx xx
/NEW VAL
19 , _ -
2137
0140
?141
~142
1000
3000
MESS3,
LOA
0
H57
1000
STC XI TM S3
JMP QA IN IT
z 1 '~ j
£125 2
TX T3
Ci 44
e i 4'.J
Z315
6130
Mil S 3
JMP CHKS NS
0'.-146
1020
~-~
;3315
b2QH1
6,) 24
LOA I
ANS3
0147
kH5J
01:;1
;t}l 52
2153
1 47
1 ~ ~~
:: i s1
:\l ')2
.J1?4
1
i.
15 j
c.'.41
2::. ?5
~) 15 6
21~4
k10?6
SE. T
y1_:) 5
~1 2
LUC
.:'.1'.?7
:.~
6
1. J'.;)6
<~160
··~ 1 ~-,
l. ..L ...,,,
~;100
:L
~,
J~P
OE CODE
JMP START
LOA
1:J,~~J
A>JSWO
33
STA
XITMS3,
16
16
/RiN
/JMP
/PTR TO
/NEW VAL
/CVRT TO OCTAL
/NOi OCTAL
/HOLDS NEW VAL
TO
ILOC
/CHANGE rs IN
/PiR
vj
01 Dl
/DISPLAY
0-102
~' ~ t :5
/DO
/1 WRITE
/'"' MCJRE CHANGES
'r::.
~-~.:.. ~
..
4
MESS4,
Li.!A
~? 16 ~
"'.'. l DJ
10 \:1~1
~'166
.<~161
Z.};JJ
~):
Q;
'1 ~?
4177
~;r
c
XITMS4
n 11
i..' -
•..,
o~
/.] 2 t..'.
JMP
QA I NIT
TXT4
bo
Z2o7
~~ .5 2 ~~
0:32
_A 7_
~
,,
! ~
u171
~~
1; ;_
0173
··-·-'~~::: ~ -7 ~:--:-:--o--
l_'
-~ ~1 .,
~·1
-~-__iJ_~
..-i77
A;,JS 4
JMP CH KS NS
___SLL_I _1.l_ _
. e:l 75
0176.
0177
0200
0201
0202
21203
2204
0170
0S20
ANS4
--il.7.~-·
13.37
i..OH. I
0172
Z173
0174
Z175
1460
0061
SAE I
61
JMP START+1
f.'176
£j000
.J ;7J VJ e;
z 117
6025
0714
TPW02,
XITMS4,
17
WRC u
/WRITE IT .OUT
0
0
/Rnl
/STRIP DIAL
22125
0206
/CODES AND
/CONVERT TO 1
/PACKED WORD
U07
2210
/SKP RTN I F' OCTAL
0211
0212
0213
0214
0215
e.20i
0056
02~!1
0216
Z202
0217
2!:00
0000
4017
4241
DECODE, SET 16
/PTR TO CODES
II S IN AC
/RTN
/JMP
0
STC 17
STC ANS WO
XSK I 16
NXTCHR, LOH I 17
/ASSUME ITS OK
CODE
3220
22;;)'1
0236
0221
1337
0225
0205
e206
7:227
;02U
0211
b016
1420
SHD I
7400
JMP 16
SHO I
0226
0212
3400
3400
/DONE ?
0227
0230
0231
2232
2233
0234
;(3235
0236
0237
0240
0241
0242
2243
Z244
02::..s
0214
l215
k:216
6~16
JMP 16
BCL. I
/YES
/1 DIG IT
/ONLY
0222
0223
~224
0245
22 46
'- v_ t..
1560
7770
4232
2241
Z243
2232
4241
1317
1560
7707
1460
0360
6234
7707
SAE I
0060
JMP l.OCFIX
2:231
6~05
JMP NXTCHR
2j 2
000~;
TEMP,
·.~ r·) - , -,
02100
0
LOC,
LOCFIX1 LDA
2217
~·2a
Z.2 21
;3222
?223
(?224
2225
22~6
:: c_
~,
'(~
i:~'.
27
"< ,.,
2247
02::>0
Z251
2252
.-:156
~253
''?..37
0.2 54
:: ;~ 4 :.:
£25?
l~ ~
2256
2256
;: 2 56
;: 24 2
?256
t2 t:i6
.,_.c_
(';:- 43
2 4 il
:·245
2257
'i·C:..
' c
~257
l,
0260
41
~~
il257
~260
vV
0'.2 04
;·235
~257
0257
026')
;~2 60
14.2J~
7400
-·
hl20
7776
2216
4J16
6·J16
l~'f ii VY
J624
;)214
U74
6334
1
17Z3
7463
34 V·
.,
2 ,,
0617
3
2 4
2 5
~
TEMP
ADD ANSWD
ROL 3
ADD TEMP
STC ANSWO
LOH 17
8CL
4226
0114
?
/SAVE
/OL.D RESULT
/MOVE OVER
/UPOATE
/NEW RESULT
/CHK THAT ITS OCTAL
/NOT OCTAL
0
-1
ADO 16
STC 16
JMP 16
AN SW 0,
[/:
TXTl
i[Xi tFTBL.K<3\2
I
TXT2,
14 ~1 4
/DONE
/YES
l
~bl4
'
c.
7770
src
/GET A
TEXT tFLOC<3\2
IRTN TO PC+l
IVS PC+2
;.;'.12 =>o
0260
0260
0257
4z;40
4040
~"-~~91 0261
0261
0261
220~
4~43
0261
0616
0527
;~ 2 6 '5
4Z26
0261
0261
0261
0261
C264
0114
7464
3400
0262
0262
0262
0263
0263
0263
0263
0263
0264
0264
02bl
027D
1774
~'.:271
6143
~~2
JQ«::OiJ
2!2 62
'.:;::6'.:i
02 66
F"NO! VAL (4 \2
2604
72
ri/661
i273
0274
4027
2211
\?2 7:,
'32 76
2405
4306
6240
1517
~:
.3 ~~: b
q-1
F'l WRITE
2235
0264
02 64
("''"?
2302
4~J
0264
0264
0303
~1304
1J01
1607
02, 64
02 64
02 64
0265
02 66
C3D5
(Z;3 06
34 00
ldD7
C~J
~;0
U..!.
03
0523
00
~'31~3
~q;,::10
0267
k-311
~000
0270
0312
f:1 313
00 0f';
'~'=31 ~.,
e~~ ;H?l
Z00VJ
02 74
?-516
Zk'1~.rn
0275
:( 1
.._,.J..
0276
0277
0300
j 2k.!
V~)lt;
321
l6 2 '{)
2
/,;c0
::SC'C.'
c;~k· 1 D
-
I
F2 MORE CH AN GE S\ 2
AN Sl,
0
I
0
0
3
AN S3,
2
AA AE NO,
~:
AN S2
0000
02 73
~,
~;~!Yi
/ADD QA\DA
0301
/ASSEMBLE
100 SB PATCH,UNIT~L1
P'.:3
rn:,4
H)U
'i~2 77
1(-'.: 5 5
?113
STC QAH ... 1
21430
('.)402
i ..-~ 6 Y.0
~H
1 61
63
~ ~ :~j 0 k~
.) ~~ 4 5
1 52
~~ /· 41.
.'. 21 k:l3
7.27U
StT I 3
0401
1 c.~ ':) 6
1 57
03
1./6~
L~5
U6~
0406
1:: ')4
4~7
;J 41J
L 1 b')
1~:.6 ()
~1411
l ~:' 6 /
l? 7 .-1
~~
!41?
•.
~
... 1
<
•
~ ,)
zc~
64
! N AC
/BUMP PTR TO ANS WERS
.)
SET 5
GARF'SH-1
QAG,
~
'
C7 .5
. '/ /l
0417
':"/'_5
, ? z~
i
~J
/ 7
_) l. J :s
1
_._
...I~:'.~
_ ....
,'.S"JU
04~3
lk:il
~245
04 ::>4
j ~J
2
1:1:12 4
p
STC QA '."1+2
A;JD
JAW
IF"
/H, 8UMP PTR
/!\JEl THER,
/SET
lf\lCF
ASSUME
HALF
SI i!E
! NSTR TO CLEAR FF FOR
HALF
SI~E
IN AC
J:"\P QAM
l_DH I :s
L'.J A I
3SE I
~.) ~~ i.:'~
,:·- / f)
21
0422
/XR5 TO PTR TO LAST DISPLAYED CHAR IN ANSWER BUF"R
QA T
•+7
LDf..i I 3
Lu A I
t1C L I
J~1
~~
J4lb
/XR3 TO PTR TO HALFWORD QUESTIONS .. 1
SET 1
3
JMP
'.i.,I
8415
t.'
/ ........ -RE·ENTER HERE TO RHRESH-·-·
/INITIAL y POSITION
;;,
":i•<'
) .) ..L.::
·,1 ,--~ ~7; 1
L 5 {~ 3
:'
/XR4 TO PTR TO LAST TYPED CHAR IN ANSWER BUF'R
(l
15 2 ,S
~
4
IS INITIATED
27 7
I .:.1 7 4
l
STH 3
QARFSH, LDA
.-~
.. -1
{)4
!IC
I 6
SET I
7
;;:JL1~2
/414
/14 2;)
COM
STC 6
STH I 3
/ANSWER BUFR
24e14
li4
LOH I 4
AOA. I
-60
QAE,
ANSWER BUFR
TO ANSWERS
/NEXT HALFWORD
174
0364
0365
0366
0367
0370
0371
0372
0373
0.574
8375
0376
0377
0~6~
/34
/CR?
43
/NO
JMP QAD
JMP QACA+4 /EXAMINE NEXT CHAR
1343
1324
1120
7717
0017
4t06
13 63
0361
A CR
BUMP PTR IF H OR F
IINITIALI~E
1 05
12,36
03'5
/PTR TO HALF"WOR0 .. 1
STC
QAM•2
AD 0 QAW+1
GAM,
/8UMP PTR
/SET INSTR TO SET FF
/ADD 9U IN AC
STC QAP+3
M::;C
I
4
/EAD
CONTROL REGISTER
FOR
FULL SIH
/THIS INSTR CHANGES, EITHER BSE & OR BC( &
H23
_HZ$
1U3
152~
SSE
,Ll_,Q4
n(30
200
0427
0430
11.tl5
11 ~;,6
11 '..7'7
.JZrH
:-1SC 4
111~;
li.20
7737
2'4 31
24-52
Z.433
J434
2435
;?436
24 37
0440
0441
1111
11:.3
1114
SET
;A(~6:1,
1
10 0
L.DA
/Y COORDINATE MULTIPLE
-40
/Y COORDINATE
-.~
'":'~
n.
1..DH I 3
J~'1P QA0+1.
:'..323
1ilb
1117
7136
2442
11211
142J
i]443
1121
4 3 ~H:~
J444
11 !:'.2
:1.12 .s
7J62
24 4?
2446
11~4
7242
1114
/34
430!2!
JMP QAG
/CR, MOVE X AND V COORDINATE
/NEITHE:R
JMP QAP
JMP QAH
JMP QAP
~447
1125
11~6
7242
1520
0451
0452
2453
0454
1127
11.Si
7510
JMP QAF
1325
LJY I 5
-J'·: P QA O+ 1
JMP QAH
J't, P QA H
z45:,
~~
4 56
2457
0460
J4 61
~4 02
l4 63
1103
113 4
~~
11.55
1136
1137
114D
1141
Z466
0467
J4 72
1143
1144
:'..145
4 64
24 65
114~
.... 146
~4
72
;; 4
73
.~4
74
~:
4 7 '..:)
11'.:il
J.1?;2
6
:1?3
~~~ ~ ~
7114
7125
75 21
04 70
7004
02 62
1412
14 02
7311
1422
7 t!.2 3
/2 ~6
7 J 53
~~5
64
5: 2
\:'·5 :3
~'l
~
.~ ~
J6
1 1
14.~
..:.....
-
i \_
5: 4
~-) j,.
5
-,._;;
l,,,.,.,J
.,;,........
1 ·- 7 2
7 ,. ,
.
0
"4:
~:
252
2~2
ILF?
/YES. EXIT
SHD I 2
/CR?
!?
J"1 P
J:~
SriD I 2
/ALT?
J ~., P QA CA IRE IN I T I ALI ~ E
S~J
J~P
I ~
QA~FSH
/BACK SLASH?
!IGNORE
/RUBOUT?
1422
7175
:;;iQ
I
~~P
QAL
/IGNORE
1~22
s~J
1 2
/TAB?
2
7>153
JMP QARFSH
?172
S1 C
7231
/ :? 63
72o3
1:5 22:
:,) :.~ \'J /;
l ~~ 4 4
/IGNORE
/ACCEPTABLE CHAR
~~
~~ 0
t+'
:AO
QAQ
/74 BACK PTR UP BY 1
J~P
GAQ
/34 '
L'J.;
I
/OK~
4
/t~ED iSPLAY
/TO HERE IF RU88!0 OR
7,)53
77
7J53
:~
~
'.?
QAY
SHO 2
JMP QAK+4
I 2
.::...:.. 7S
)
IT 0 HE RE I F 0 I SP LA YE 0 BU FF ER
AE I
JMP QAB /NOTHING TYPED . EXIT
SET I 2
P QA L
S!-iO ! 2
J·'~P QAK
1 :s iJ4
7:232
?
/NEITHER, DISPLAY IT
3r1D
7ci15
~.. 4 2 2
7 53
...
174
/34
7175
1422
1422
.,i..
QAI-4
GE TK BO
/QUESTION MODE
1422
.. ~'5 0t;J
~
J~~P
J~ P
/SWITCH
/IS THERE AN ANSWER FIELD?
7 505
~\.
QA J,
I
/ISPLAV CHAR
/PICK UP NEXT CHAR
/TO HERE Ir DISPLAYING ANSWER surR
TO DISPLAY CURSOR. EITHER 0000 OR 7777
/IFXR4=XR5, THEN SWITCHs7777
QA N
\St< 6
-..i"\P QARFSH
;~~477
2?J3
~? 04
;.;:; C'.5
SRO
7232
7_114
/74 BUMP PTR TO NEXT CHAR, PUT 40 lN AC
JMP QAt
JMP Q.\J
SHD I
D4::>0
1131
1132
-·- -
._.,: J.,' l.J
ld32
7 ~~ 01
111'.:i
-
/AC TO CONTROL REGISTER
/XR1 lO INlTIAL X PQSIT!ON
7 7
~
.)"1p
/TEST NEXT CHAR
STORE IT
QAO+i
~.....~p Q,~RrSH
_,.; ~7)
174 IGNORE
<
LOH 2
SAE I
/TEST THE CHAR
/RUBOUT?
0:037
7263
37
!NO,
r:; )4:)
SET 5
;iJ:i 04
%'J43
0:304
7213
4
SET 3
0533
0534
1d06
1207
1210
1211
0535
1212
1325
LOH I 5
0536
_0537
1213
1214
1623
LOH I 3
72 32
JMP QA0+1
0540
1215
NOP
1217
1220
1221
1222
0016
0011
1345
0450
7212
7263
1223
1224
1225
1226
1227
1233
0206
7311
7231
7053
70 51
7225
QAN I
QAO,
~5,4
~~25
0~26
:'~27
0545
0546
0547
0550.
fQ55l
0552
0553
0554
0'~5
1203
u;;;,
e532
0542
0543
0544
1602
1460 --
1204
v~ >3it
0:; 3.l
0541
1201
1202
'
... """'.t ...
/
.i.&;.J.U
JMP QAQ
JMP ,+2
STH 5
AZ!E
JMP
, -7
JMP QAQ
JMP ,QAK+4
JMP QA 0
JMP QARFSH
JMP QAE+l
LOH I 4
1j24
J.420
SHD I
7400
7400
JMP 0
0,65
0~66
1233
1234
1235
1236
1237
1240
1241
6000
1460
0034
SAE I
34
0220
0220
6000
XSK I 0
XSK I 0
JMP 0
0567
0604
1242
1243
1244
1245
1246
1247
1250
1251
1252
12?3
1254
12?5
1256
0605
12~7
0606
0607
0610
0611
0612
0613
0614
0615
0616
1260
1261
0570
0571
0572
0573
0574
0575
0576
0577
0600
0601
0602
0603
0617
0620
0021
"62(
/WAS IT 74 OR 34?
/NO, CONTINUE
/BACK PTR UP BY 1
U62
1263
l2b4
1265
1266
1267
0241
3430
4002
-5506
3506
QAP,
ROL 1
ADD QAX+4
STC 2
~001
QAU
ADD QAU
ADD 1
4001
STC 1
2~105
~HH7
COM
ADO
ADD 5
/74 MOVE PTR TO NEXT QUESTION FIELD
/34 END OF BUFR, MOVE PTR TO FIRST QUESTION rIELD
/S\R
I
I
I
+1 74 BEGIN f lELO
+2 34 END BUFR
+3 NEITHER 74 NOR 34
/S\R TO DISP LINC CHAR IN AC
/MULT BY 2 FOR INDEX TO ADDRESS OF TABLE
/ADDRESS OF CHAR TO OISP IN XR2
/THIS INSTR CHANGES, EITHER OP OR ADD 9U
/ADD 4 TO XR1 TO SPACE CHAR
/GET ADDRESS OF ANSWER BUFR
ADD 4
AtE
2004
0450
0011
5127
3113
1742
1762
6 ~12J 0
1020
3777
/EXIT ROUTINE IF NO ANSWER FIELD
JMP QAN+2
1232
~593
~564
/IF 74 OR 34, REPLACE CURRENT CHAR WITH 0
/TO HERE IF CR
XSK 6
1231
~561
/BUMP PTR
/GET NEXT CHAR
CLR
0556
0562
P-To-~·~---~
4
- ·-· "~57
0560
BACK
CLR
STC QAI-2
ADD QAH-1
DSC 2
DSC I 2
JMP 0
QAQ,
LOA I
-4000
/SWITCH=0 OR 7777
/Y COORDINATE IN AC
/DISPLAY CHAR
/BACK UP PTR BY 1
ADM
1140
•J004
7053
4
JMP QARFSH
/REDISPLAY
I
1270
1271
1321
1272
1273
0600
6000
1420
QAT,
/S\R
LOH
1
SHD I
I
+1 F
060~
I
+2 H
JMP 0
I
-t3
NEITl:~ER
SAE l
:lJL _____
1276
1277
1460
00Hi
0220
0220
1 :H.rn
62~2
JMP 0
(!1631
.J.301
:. :~ 2 3
C633
::. 3 ~::.3
U04
:; ;4z
4()
7::.25
JMP QA 1-4
13 ~~5
1306
1307
1310
1324
0470
1274
0623
_,~---- __ ,062~
127~
0625
0626
0627
XSK I 0
XSK I
121
I
.0030
QAt1
LCH
3
L[; A
0634
0635
0636
0637
0640
0641
QAK,
LOH I 4
AtE I
JMP QAQ
JMP QAX
7263
7424
0642
0643
@644
0645
0646
0647
0650
0651
0652
0653
0654
0101
0656
J.323
06 57
13 24
1325
1326
1327
1330
13 31
1332
0664
0665
0666
0667
~~6 70
JMP QAB
13:!.6
1317
0655
0663
7004
1020
21001
1140
1320
1321
1322
0660
0661
0662
1:2Z4
LOA
1
ADM
QAB
1311
:1312
1313
1314
131:,
133-:i
5177
2051
4136
0101
0Hi1
4477
7744
5177
2651
4136
2241
2241
~\:01
4477
7744
4177
3641
4577
4: 45
4477
4 :: 44
4::_ 36
;(;671
:3~6
':77
0672
0673
1337
771~
:S4~
774:
~l\6
74
J..341
...~!4·:
0675
13 4~~
(J\7 01
}, ~~ i.
c-
0702
.. -~ 4
7
07~3
QAV;
,l
,.,
-
-I
4
2
~
._; •t.:.,; .l..
~ :~-
77
4177
!TO HERE IF
/IS CURRENT CHAR BLANK?
/YES~
/CHARACTER PATTERNS
/KBO 0,
/2:8
/3:C
/4:0
4577
4145
/5:E
4477
4;; 44
/6 :F
4136
2645
1077
7710
7741
013 41
17 tG
41_42
4076
1077
4324
11 77
z,301
/12!J
31:177
/151M
/10:H
/ 1 :1.: I
/13:K
/14gL
7730
7
0705
,)(l/
7706
~1707
'1
77
77 41
-f 4 7'7
/22:P
3044
~717
27 2;j
.::'c: 76
/21~
vJ3 7 6
44 77
/22:R
3146
5121
I~ b 51
4C40
IGNORE
/MOVE DOT FORWARD
!TO HERE TO EXIT WITH SKIP
364j,,
ti 7 ~j 6
>
123:5
/24!T
ILLEGAL; USED AS MARKER
0722
1367
07230
0724
1370
1371
0725
1372
13 73
1374
1375
1376
1377
1400
0726
0727
0730
0731
0732
0733
0734
0735
0736
0737
0740
07 41
0742
0743
0744
0745
0746
0747
0750
0751
0752
0753
0754
0755
0756
4;"77
4077
0177
7701
0176
7402
zr,77
7701
1463
6314
0177
7701
0176
7402
.12. 5 UJ......
:/J677
/27:W
0770
7701
1463
6314
0770
14V1
72J07
7007
14~:2
4543
6151
4177
0J00
4543
2!000
141:".6
1407
1410
1411
~~000
e
02100
0000
~~0
77 41
7741
1412
1413
1414
141?
1416
4543
7476
1403
1404
1405
1417
1420
14 21
v
/30:X
/31;Y
/32:t
6151
/33U
4177
/34:BACKSLASH IGNORED ON INPUT
/NOT USED
/NOT USED
~1
QAY,
3634
:~
/26:
·; 4 7
iH~00
;J000
75 k1k)
02 0~~
/35:J
00
/CODES 36:ALT1 37:RUBOUT NOT DISPLAYED
/LF,CR
4543
7476
3634
3747
0000
0000
7500
I<,>
/ALT,
BACKSLASH
/RUBOUT, TAB
/40:SPACE
/41:X?
0030
7000
/4 2:
"
14 22
1423
70 00
375~
1424
37o3
i/767
Vi77J
1425
1426
14 27
143U
J. 4 01
j_ 4 .32
72 32
7263
7263
7 5.3
0771
14 .):_)
,,?26
5166
v~ 5 2 6
0773
~)7 7 4
~-
4j 4
J 4 35
;' . J ,~ '.:·;
x)
,' } ,~;I)
;.;
/CODE 47: TAB NOT DISPLAYED
/NOT USED
/NOT USED
0775
1 't
~~6
! 4.) 7
~)
30~0
/50:
(
,) 41
4100
S,36
/51:
)
2~150
/52:*
07 57
016J
PH
07 64
0765
0766
inz
/CODES 43:
:!_,)16
/
~~ ~-~
'):~
~J
66
nn
(!)776
;p77
14 4 ;;~
10~0
Hrn1
:441
::_4 42
1~'1 ~2
1_ 4 4j
F1 ~'3
1444
l44S
1~ 1 04
1~J~.~?
·~
j}J6
·~l ~
J..C1;?i7
/* ~:'
4'.)1
1Vl10
J370
.4 6
7
b ;; £1
41
1-11 JV
,·. ·1 .St'
2 ~ 5~)
.·~
) . J5?
j-4 ,:.,4
J437
'? J2'
·- c
'~ !: 4
4 ,;::;4
QAX,
Jrv1P QA Q
Y1f' QARFS-H
QAV
0
;'1
37
,·
·~ ~}
,1.1
,i k'
J1
... ~-'
~J ~~
.:t )4
-~b
01
460
;-'1
43 3C
4'.:>36
5651
21kll
61
1/11 77
., QI.,
QI
4?b
4 'j7
A
.
/55:-
4
,·,4 ci4
j ('~ ;~
HH5
/54:
500
._'1'.U6
I~ ~-) ~
1010
HH?
45:LF NOT DISPLAYED
&
/53:+
.~41~4
i(14
4 :),)
Zb
/4 6:
Vll:H50
1f~'1:
4 ~5
44:,
/NOT USED
~~
_:. ~): 2
1Jl3
1J14
' i,
,
JMP QA0+1
JMP QAQ
/56:
.
/57:\
4~,30
4'.:i 36
3651
2l~H
(,11 77
/60:0
/61: 1
1021
1022
1023
1462
1463
:;_ 4 64
2414
4523
2151
4122
2651
2414
0477
04 77
4523
2151
4122
2651
/62&2
/63:3
1026
1027
1465
1466
1467
14 70
5172
5172
/65:5
::.l-30
14 71
1;651
1031
1032
1472
1473
1474
1475
1476
14 77
1500
1501
15;~6
0651
1506
/66:6
1024
:1.025
1033
1034
1035
1036
1037
1040
1041
1042
1043
1044
1045
1046
1047
1050
1051
1052
1053
10 54
10 55
1056
10 57
10 60
rn61
5126
2651
5122
3651
170: 8
2651
5122
3651
171: 9
172::
2200
2200
1~03
0000
00~0
1504
4601
4601
15 05
;~000
;~000
1506
1587
QAU,
1511
"002
0002
1212
1212
1:>12
0016
QAW,
1513
1514
35 06
40 20
4020
1515
2'./ 55
2055
16
17
22l
17 bZ
1062
/67:7
4443
6050
5126
62150
173:;
/CODE 74: NOT_ DISflLAY£D
NOP
ADD QA U
I
QA F,
DSC
17 7:?
T
~
6000
6000
JMP QA I
7131
I
1063
/END Q+A
1064
1 ~165
12166
I
I
I
I
1067
1070
1:071
12 72
li175
HJ 74
U75
/KEYBOARD INPUT ROUTINE
I
QAKR8=61Zl36
/PDP .. 8 !OT KBD
QATSF=6041
/TSF
QATLS=61Zl4A
ITLS
I
1076
1
1 il:J
:?2
2 ~5
24
21)
i.b
~) 2 7
~) .) tt
3 (~ ~~
?643
c ~l 2' 1
;~
1J77
11J2
11~H
1102
11 ~~3
1104
11V5
11 ~J6
11<:7
111 t_1
...
4225
4225
4443
1. 5 02
15 li~
/6414
-, j
h,,::
....... ~~ !0 ./:
·~
.... 0-~,
56
7
5o
1,: 6.'i
~1 :~) ~, 0
1. .: 2 ~-
111b
-,_::."C"
/ 'j 4~~
1117
·~
..l. L J. -
__ -~) j
'.?
41
s . . ,. .
i~
,_:)I
J''iP 0
108
QA KRB
0
~4:;
1
QAEXIT+l
;<' r·· T
~Iv
.... '\
v '-
' j .)
ADD 2
STC QA.EX IT,~5
'lti4?
'?6 36
~; 1 '.5
/SAVE RETURN
/SAVE XRS 1 ANO 2
STC QAEXIT+3
56~0
1113
1114
1115
)
e1
STC QAEXIT+6
ADD 1
- /2
":i3l
•,
1111
GETKBQ, LOA
STA I
QA TY,
0
ADA
/WAS SOMETHING TYPED?
/NOl EX IT
/GET TTY CHAR t
/SA.VE
CLEAR FL.AG
IT
I
-2 37
APO
/BETWEEN 200 AND 2377
11U
/:? 61
16 54
SET I 1
QACHAR-1
/NO
-7
LOA
JATY
SAE l 1
1547
15~3
1'.:J 36
1461
7554
7635
1554
?222
:5 '.;)2
JM P , + 2
JMP QAEXIT
/ILLEGAL CHAR. OONT ECHO
XSK I 2 /CHECKED THEM ALL?
.-4
'7?51
1134
I
1136
1137
1140
1556
:557
112il
74 40
24 51
1141
1142
1143
1561
7575
1562
AOA I
.. 337
APO
JMP QALEGL
/BETWEEN 240 AND 337?
/YES. LEGAL CHAR
1461
7''J72
10 20
SAE I 1
JMP ,+7
/NO, CHECK FURTHER,
LO A I
/RUBOUT
23 34
334
7644
JMP QATPE
I
1144
1145
15 64
1146
::..5 t-5
15 6b
.1147
1150
.1151
1152
/ECHO BACKSLASH
LO A I
1::i 6 7
15 71.'
()2 37
1571
7637
37
JMP QAEXIT+2
/LEGAL EXIT
I
.1.153
1154
.. 115_5
1156
.-11.57
1160
.U61.
1572
1573
14 61
7635
157~
_1637_
'J.575
iQ00
1576
1536
...l.163
,1577
?644
3536
1164
J,195.
1166
.-1197.
1MH
1560
1622
7700
l6~i3
7637
1634
1460
1605
7755
1(?__06_
]6_21.
1607
1020
.1170
1111
1172
_.1173. -1174
_11z.5
".191¥3
1176
1611
.1177 - -- 1612
1200
1613
JMP QAEXIT+2
IILl..EGAI..
/ALT
/EXIT, 0-0NT ECHO
.1~14
7644
i202
1615
16 lq_
1617
1020
ij_(212
7644
~~12.0.3.
1204
-12.05
QALEGL• LOA
QATY
JMP QATPE
/ECHO
CH~R
ADD QA TV
BCL I
7700
JMP .Q~~)(U+2
/TO HERE IF' CONTROL CHAR
QACNTR, SAE I
0043
5636
1020 0215
~1201
7755
.JMP QACKLF'
LO A· I
43
~'
/CR
STC QAEXIT+1
LOA I
215
JMP QATPE
LOA I
21~
JMP QATPE
JMP QAEX lT
I
_ 16.21 ___H60.. QACKLf.1 .SA.E .1
16 {!;j
7 6 3?
1622
........1..6-23
1624
7752
]627
1020
.1206
....12.01....
-.1.210
•..12.11.....
1212
SAE I 1
JMP QAEX IT
I
1162
-~-·------162 5
1626
.. 0 0. 45.. _
7611
~~----_____,l.6:Z..1
..,.__..l!lbJ\t_
..____
J<...,. __
...... _....
'--1"~,_.·~·;:···J_·
/CONTROL CHAR, CHECK tOR CR,Lt,TAB
SET I 2
7'7J
1135
..12.13.
.12!4
JMP QACNTR
I
1121
1122
.1123
1124
1125
1126
1127
1130
1131
1132
1133
...
_J>
7752
. ___ JMP , +.4
LOA I
/LF'
4 :L_ _ . . ___
JHP QACNTR+5
-·--·-----·-··-·-S.At
...-1... ----~----·· ________ ··-----------·-·--·--------..----------·-·------ ____ .......... ------·· ..... _..... ____ ...... _
..., ...
~.
----•••.
1217
. .1220
1221
1222
1223
1224
1225
16 05
1636
1'.:,' 2,)
CL? ~J 0
QAEXIT, LJA
1226
::. :') j 7
;; ?J
Ol
S ~~ T
1227
16 4 ~~·
zc~c~~
c~
1230
1231
1641
1642
1640
0062
SET
i~000
;~
12s2
1631
7635
1632
1020
0l:47
7637
1633
1634
1241
1242
1243
1244
1245
1246
1247
1250
1251
1252
12 53
12 ?4
12 55
12 56
1257
p QAEXIT+2
IEX!T, DONT ECHO ,
6Z00
1644
1645
1646
16 4 7
16 5~l
1651
05~0
6J46
1000
/GET 6 .. BIT ASCII
e
2
JMP
IEX IR S\R GETKBQ
/S\R TO PRINT CC AC.)
QATPE,
108
QATLS
/POP-8 IOT TLS
LO A
0000
0
5654
0?00
STC ,+4 /SAVE RE TURN
IO B
QATSF
/WAIT F"OR F'LAG
j~ p
.-2
JMP
/EX IT
16 :;4
6041
76 51
6000
1.6?5
?243
16 j6
1657
~J2
0245
24 4
245
lb 6~J
~02
~3
47
00
24 7
16 61
16 62
16 63
16 64
J3 36
33 6
l13 37
33 7
4?l
36
S\R GE TK
16'.:l 2
1653
/RESTORE XRS
1
....
I
16 65
QACHAR, 243
44
31'.!0
00 40
00 36
/ENO
OF
/HASH
/DOLLAR SIGN
/PER CENT
/APOSTROPHE
I AT SIGN
/UP ARROW
/8 ACK AR ROW
/RUBOUT
/ALT
BO
-
.. ~--:-,
- - ------~
¥.
-·~:~
~-······---.,.,~--
47
j~~
-
II LLEGAL
I
1233
1234
1235
12 36
12 37
1240
JMP QAEX IT
L.D A 1
·-·--
.,..............'"--···...'"'-'"·-
AAAEND 4322
424_1
4307
4312
ANS2
4315
Ar~ss
4 .520
M~S4
CH KS NS 4130
- ·-A.NS.WO
ANS1
DECODE 42L 0
GETKBD 5521
4~33
LOG
LOCFIX 4204
41U
LOOP
MESS1 4032
4057
4137
MESS4 4160
NXTCHR 4205
MESS2
MESS3
QAB
5~104
5015
QACA
QA CHAR 5655
QACKLF 56d
QACNTR 5604
t)AD
5 v32 6
QAE
5050
QAEXIT 56.55
QAF
5516
QAG
5062
~AH
:.;114
g~iNIT~t-QAJ
~6
QAK
?;)05
_
QAKRB
6;;J36
QAL
?175
QALEGL
QAM
?HH
QA N
5223_ ..
QAO
QAP
52.51
5242
QAQ
5263
J?75
QARF'SH 5053
QAT
5270
__ QATL.S
6 04 6 _
QATPE
QA lSF
QATY
5644
604L
5536
QAU
QAV
QAW
5506
5316
5512
QAX
5424
QAY
5412
QAc
START.
5301
4024 __
TEMP
4232
!PWD1
405.5
4176
4242
4246
TPWD2
TXT1
TXT2
TXT3
TXT4
X I TM S-1
XI TMS2
XlTMS3
4252
4267
4 0 5 6.
412 7
4157.
XITMS4 4177
Source Exif Data:
File Type : PDF File Type Extension : pdf MIME Type : application/pdf PDF Version : 1.6 Linearized : No Create Date : 2015:05:22 18:46:28-08:00 Modify Date : 2015:05:22 18:19:12-07:00 Has XFA : No XMP Toolkit : Adobe XMP Core 5.4-c005 78.147326, 2012/08/23-13:03:03 Metadata Date : 2015:05:22 18:19:12-07:00 Producer : Acrobat 11.0.11 Paper Capture Plug-in Format : application/pdf Document ID : uuid:c25179f8-5e0e-f649-825a-7011dbd91016 Instance ID : uuid:47411627-9283-034b-9948-2b3427677e4d Page Layout : SinglePage Page Mode : UseNone Page Count : 22EXIF Metadata provided by EXIF.tools