3
ERR3, CIF 10
 JMS I (200)
 7
 7
ERR4, CIF 10
 JMS I (200)
 7
 4
DONE, CDF 10/USR OUT
 CIF 10
 JMS I (200)
 11
 CDF CIF 00
 JMP I (200)
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
0)
  TAD (5737)
  CMA
  SZA
  JMP CEXF
  CLA
  TAD (1)
  DCA TTEF
  JMP EXIT
CEXF, 6503
  AND (420)
  TAD (7357)
  CMA
  SZA
  JMP EINT
  CLA
  TAD (1)
  DCA TEXF
EXIT, CLA
  6507
  ION
  JMP I 0
EINT, CLA
  TAD (7777)
  HLT
  JMP START
  $
  $
  $P
P

/CHAIN TEST/
MQL=7421
MQA=7501
BSW=7002
FIELD 1
*6000
DPOINT,0
CNT,-1000
A, CLA CLL
 TAD (-7)
 DCA CNT
 TAD (BUFFER+1)
 DCA DPOINT
 TAD (3000)
 DCA I DPOINT
 ISZ DPOINT
 ISZ CNT
 JMP .-4
 CLA CLL
 TAD (BUFFER)
 6150
 6151
 TAD (BUFFER)
 DCA DPOINT
 A1, KSF 100
 JMP .-1
 KRB 100
 AND (0177)
 DCA I DPOINT
 JMS FIND
 ISZ DPOINT
 CLA CLL
 TAD (BUFFER+7)
 CIA
 TAD DPOINT
 SPA CLA
 JMP A1
 TAD (BUFFER+6)
 DCA DPOINT
 JMP A1
FIND,0
 TAD I DPOINT
 TAD (-54)
 SZA CLA
 JMP F1
 CLA CLL CMA RAL
 TAD DPOINT
 DCA DPOINT
 TAD (BUFFER-1)
 CIA
 TAD DPOINT
 SMA SZA CLA
 JMP I FIND
 TAD (BUFFER-1)
 DCA DPOINT
 JMP I FIND
F1, TAD I DPOINT
 TAD (-15)
 SZA CLA
 JMP I FIND
 JMP COMPRS
BUFFER,0063
0
0
0
0
0
0
0
COMPRS, CLA CLL
 TAD BUFFER
 AND (77)
 BSW
 DCA TEMP1
 TAD BUFFER+1
 AND (77)
 TAD TEMP1
 DCA NAME
 TAD BUFFER+2
 AND (77)
 BSW
 DCA TEMP1
 TAD BUFFER+3
 AND (77)
 TAD TEMP1
 DCA NAME+1
 TAD BUFFER+4
 AND (77)
 BSW
 DCA TEMP1
 TAD BUFFER+5
 AND (77)
 TAD TEMP1
 DCA NAME+2
 6152
 JMP I (6200)
TEMP1,0
/SAVE ROUTINE FOR PATTERN BUFFERS/
*6200
 TAD NAMED
 DCA D1
 TAD NAMED+1
 DCA D1+1
 TAD (7201)
 DCA D1+2
 TAD (NAME)
 DCA D2
 DCA D3
 TAD I (7746)
 AND (7776)
 DCA I (7746)
 CDF 10
 CIF 10
 JMS I (7700)
 10
 CLA
 CDF 10
 CIF 10
 JMS I (200)
 1
D1, 0
 0
 7201
 JMP ERR1
 CLA
 TAD D1+1
 CDF 10
 CIF 10
 JMS I (200)
 3
D2, NAME
 D3, 0
 JMP ERR2
 CLA CLL
 TAD D2
 DCA D6
 CDF 10
 CIF 00
 JMS I D1+2
D4, 4027
D5, 1400
D6,0
 JMP ERR3
 CLA
 TAD D1+1
 CDF 10
 CIF 10
 JMS I (200)
 4
 NAME
 30
 JMP ERR4
 JMP DONE
NAME, FILENAME PATBUF.SV
NAMED, DEVICE DTA0
ERR1, CIF 10
 JMS I (200)
 7
 1
ERR2, CIF 10
 JMS I (200)
 7
 3
ERR3, CIF 10
 JMS I (200)
 7
 7
ERR4, CIF 10
 JMS I (200)
 7
 4
DONE, CDF 10
 CIF 10
 JMS I (200)
 11
 CDF CIF 00
 JMP I (200)
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
|
@ ,@B:<>8 0;?>50
5=55*:<5:;5555:>55::8 55:955:88 555=< *9:7<:< +:6<:< +:5<:< +:4<CLA
  TAD TBF
  SZA
  JMP .+4
TS2, CLA
  TAD (2)
  HLT
  CLA
  TAD TDRF
  SZA
  JMP .+4
TS3, CLA
  TAD (3)
  HLT
  CLA
  TAD TTEF
  SZA
  JMP .+4
TS4, CLA
  TAD (4)
  HLT
i 9"`8b
++t	r	/
@ @nr	@Bb("rjb5a1v 8.` `?E
!p
$P
@@^_4!R*2#\p)W(q`Y/KS"U
pFtgpqz |VPq-

L20 "&;q"M/g
%[q)!ro ~l@ffb~bGm
@M}G-ET.|G-{b@G]EE]~b@G]zb FmF^y@-G^x .FF]C}P 9zwb~ /@.v/b Gzub~ /N.t/b Uzsbt$.{/rf

hvzfn 
bDf.Hs{b hJ
 
p2pCm~  o.}&(C-|{  o.}&(C-zy  o.}&
C-xw  o,.}&Gm
Kvbu{ fii  bh(/sg2(Tzf)vr
 fe"@3zH.& /P.n73J /sKdB21 fb(pz-f&#
,pug"cH/Fnb`	#Bfr[0o~_ G
?@RU0(s 6q&fs`r_$@zPnd&	B a'
K= ^@.]/+\"P`b t 2[[mE`C XQS%mLA1 Y4X0Z		}BYbgKJ
XK4W(/QV"(]z{(/`U"P3TQS2(QzRT)`!" r(s{g"VnbQFb`7
 BP(/i Oy3/PROGRAM TO TEST FUNCTIONS 6502 6504
6507 6501 
/6505 6500 EXTERNAL START AND INPUT REGISTER
  *50
  CAF=6007
  LOOP,0
  BLOOP,0
  CNTR,0
  COUNT,0
  CTNR,0
  *200
  CLA
  HLT
  LAS
  CMA
  DCA BLOOP
START, CLA CLL
  TAD (-20)
  DCA CNTR
  TAD (-20)
  DCA COUNT
  TAD (-20)
  DCA CTNR
  IOF
  6500/TEST FUNCTION 6502
  6503
  AND (7400)
  SZA
  JMP .+2
  JMP .+4
TS1, CLA
  TAD (1)
  HLT
  CLA
  6505
  ISZ CNTR
  JMP .-1
  6503
  AND (5000)
  TAD (2777)
  CMA
  SZA
  JMP .+2
  JMP .+4
TS2, CLA
  TAD (2)
  HLT
  CLA
  6502
  6503
  AND (5000)
  SZA
  JMP .+2
  JMP .+4
TS3, CLA
  TAD (3)
  HLT
  CLA
  6500/TEST FUNCTION 6504
  6505
  6505
  6503
  AND (2000)
  TAD (5777)
  CMA
  SZA
  JMP .+2
  JMP .+4
TS4, CLA
  TAD (4)
  HLT
  CLA
  6504
  JMP .+2
  JMP .+4
TS5, CLA
  TAD (5)
  HLT
  CLA
  6503
  AND (2000)
  SZA
  JMP .+2
  JMP .+4
TS6, CLA
  TAD (6)
  HLT
  CLA
  JMP FOUR
  *400
FOUR, 6507/TEST FUNCTION 6507
  SZA
  JMP .+2
  JMP .+4
TS7, CLA
  TAD (7)
  HLT
  CLA
  6503
  AND (370)
  SZA
  JMP .+2
  JMP .+4
TS10, CLA
  TAD (10)
  HLT
  CLA
  CMA
  6507
  SZA
  JMP .+2
  JMP .+4
TS11, CLA
  TAD (11)
  HLT
  CLA
  6503
  AND (370)
  TAD (7407
  CMA
  SZA
  JMP .+2
  JMP .+4
TS12, CLA
  TAD (12)
  HLT
  CLA
  6500/TEST FUNCTIONS 6501 AND 6505
  6505
  6503
  AND (1000)
  TAD (6777)
  CMA
  SZA
  JMP .+2
  JMP .+4
TS13, CLA
  TAD (13)
  HLT
  CLA
  6501
  JMP .+2
  JMP .+6
  ISZ COUNT
  JMP .-4
TS14, CLA
  TAD (14)
  HLT
  CLA
  6503
  AND (5000)
  SZA
  JMP .+2
  JMP .+4
TS15, CLA
  TAD (15)
  HLT
  CLA
  6500/TEST FUNCTION 6500
  TAD (5777)
  CMA
  6506
  6506
  6503
  AND (400)
  TAD (7377)
  CMA
  SZA
  JMP .+2
  JMP .+4
TS16, CLA
  TAD (16)
  HLT
  CLA
  6505
  6505
  JMP SIX
  *600
SIX, 6503
  AND (3400)
  TAD (4377)
  CMA
  SZA
  JMP .+2
  JMP .+4
TS17, CLA
  TAD (17)
  HLT
  CLA
  ISZ CTNR
  JMP .-1
  6503
  AND (7400)
  TAD (377)
  CMA
  SZA
  JMP .+2
  JMP .+4
TS20, CLA
  TAD (20)
  HLT
  CLA
  6500
  6503
  AND (7400)
  SZA
  JMP .+2
  JMP .+4
TS21, CLA
  TAD (21)
  HLT
  CLA
  6500/TEST EXTERNAL START
  CAF
  TAD (3777)
  CMA
  6506
  6506
  6503
  AND (1000)
  TAD (6777)
  CMA
  SZA
  JMP .+2
  JMP .+4
TS22, CLA
  TAD (22)
  HLT
  CLA/TEST LOADING OF INPUT REGISTER
  TAD (6177)
  CMA
  6506
  NOP
  6503
  AND (7)
  TAD (7770)
  CMA
  SZA
  JMP .+2
  JMP .+4
TS23,CLA
  TAD (23)
  HLT
  CLA
  6506
  NOP
  AND (7)
  SZA
  JMP .+2
  JMP .+4
TS24,CLA
  TAD (24)
  HLT
  ISZ LOOP
  JMP START
  ISZ BLOOP
  JMP START
  HLT
  $
  $
  $

BHBp8;?
>=
*;<1(1)<1*1;"";:8!
?*9*8> *2;$
78!
? ."7."6> ."*?3;
758
854
958
:53
;58
<521*/1q12282726??306?0=0>
?0708?9r
:
;?> =<=2	2
';:2	2
':
:
*<:
2	2
':26+;
*2	2& +:
2	2
':26++

02
':
2
':2
':2
':2	2
':	2/:s:??>?&26:
2/|
@ ,@B:<>8 ;?>00
1417:8 16111111:=5513<5511;< *#*&::<*:< */:9<:< *6:8<**:<C8
? ?<D:10?<(*
13:>*TART,CLA CLL
  TAD (400)
  DCA SERVE
  TAD (-4)
  DCA COUNTA
  DCA TIDR
  DCA TEDW
  CAF
  ION
  6164
  6167
  CLA
  CMA
  6166
  6161
  6161
  6161
  CLA
  TAD (2000)
  650i 9"`8b
++tr/I5
q@nr	@Bb("rjb5a1v 8.` `?E
!p
$P
@@^_4!R*2#\p)W(q`Y/KS"U
pFtgpqz |VPq-

L20 "&;q"M/g
%[q)!ro ~@n&~&f
LtwL nvqLqqL}bFF]s|BFF]q{@ #z&.z/Jb /zyb~ /6.x/JJou"(Jzt /s6\rq#q2z!sK"d*!RJ"L*p'+o',+/rf

hvzfn 
bDf.Hs{b hJ

"`*n &
@|qpl(
s,~bjp}@(z~bwl.|/{>
K)
.!lb$
lp
k{##&0ffj& fii  bh(/sg2(Tzf)vr
 fe"@3zH.& /P.n73J /sKdB21 fb(pz-f&#
,p/ug"cH/Fnb`	#Bfr[2("r(|z@t@rU0(s 6q&fs`r_$@zPnd&	B a'
K= ^@.]/+\"P`b t 2[[mE`C XQS%mLA1 Y4X0Z		}BYbgKJ
XK4W(/QV"(]z{(/`U"P3TQS2(QzRT)`!" r(s{g"VnbQFb`7
 BP(/i Oy3|@@@@@0> */*4< *
3*91*/.E.>8
??>
/??7 ?3;?6?=
?F;1*
1?>< *:=/<:;/<G::>(+9>(+/88!<(/</7G7? ?10=<(*:>17*:<<:0
,E<???*#@p9"`xog?Dd1G@@?1p
@
po\$0
 
@
Z y
|
08.`@p#@AePo\~/UBkR{pp~`trmI0p --| 	ss
m
@(M(b^3q]q0@^x>X6k\`sdf
? b&l /~"}b
d|b
t@.h,iB{k@Yl^,zy"(x{w  0zY&J^v@Fnb{kY0J^v@Fnub&{>|'jBtb[jsbnr#q(/po2YRJXJ!RJ&DYJ$G.n!,]&,mb!bJ&DJ jbjj
  @`@2
v
 
R@bY|^,~}"(Mz|"({{z" zy'x2w /3y"rv(&!.v*jub&@tb/.s&"r /Cy"rq&p" zo&"tt" zs&y"j|n2@Vze$&dhvcde)c"H{|[by 0fD.Xfdvr
o
{@w s;pv}_@Yl
^,~" z}b|k{b|k`(/_"&_&`&~&%I''J f'G
& f`"(Hz1}"(Nz|(/H{"(?zz /I$bdz (Ozy2(Cz&x2!b(/|6w(?Dx" Qz )b)Qj~

c(hz&ca`{wo&v&&ell9l mqr[pM`?Pp *********** CRUDS5 *******VERSION 3/11/74****PAGE*1*******      NAME:          _______________                                  SSN:           _______________                                  ADDRESS:       ________
                                                       ______________                                   TELE. #:       _____________                                    INSURANCE CO.  ___________                                      EMPLOYER:      ________
___________                             PAY RATE:      ____________                                     RETIREMENT PLAN________________                                 SUPERVISOR:    ___________                                      JOB DESCRIPTION________
_____                                                  __________________                               SECURITY CLASS.__________________                               VACATION PLAN: _______________                                  CREDIT REF.:   ________
______                                                 _________________                                SERVICE REC.:  ________________                                                ________________                                                ________
_____                                   ********** CRUDS5 *****VERSION 3/11/74*****PAGE*2*********      MARITAL STAT.   ____            SPOUSE:        ________         CHILDREN:      ____                                                            ________
_____                                  

Note: Lines longer than 256 characters were wrapped