File SABR.SV (save files (Executable program)

Directory of image this file is from
This file as a plain text file

 --------------------------------------------------------------- MILITARY SERV.:___________________                              EDUCATION:     ___________________                                             ___________________                            
 POLICE REC.:   ___________________                              BANK:          ___________________                                             ___________________                              LOANS:         ___________________                            
 AUTO REG#:     ___________________                              DRIVING REC.:  ___________________                                             ___________________                              FRAT. ORGAN.:  ___________________                            
                ___________________                              RELIGION:      ___________________                              CIF 10
 JMS I (200)
7
2
ERR3, CIF 10
 JMS I (200)
7
7
DONE, CDF 10
 CIF 10
 JMS I (200)
11
 CDF 20
 TAD I (2640)
 CDF 00
 DCA I (153)
 CDF 20
 CLA CLL
 DCA I (2640)
 CDF CIF 00
 JMP I (200)
NAMED, DEVICE DTA0
NAME, FILENAME PATBUF.SV
$

|@
0
,=,
&0?.6?:/)+=.(,0& ??<
?8>9@BB
i 9"`8b +tr/hP@61-
	 OT`D @C@2@^_4!R*2#\p)KsDjr0,l/&,nvpez/qB:k^n(lY3pBf8]@?O |
pWxq>9Q&OH7O ~^8Q_j&Ux f!}AjxA!b(zD|"H&zO-
Qw !.h/ & }F (/9)5OX-A/^h*A/^h4A/(ezIjf^hAA/{&0~z)yz)O05OxUU& Uk^c^d}U  /e^+{HoQouO&OA?j	5{w~-vm9`S
&( 
zyW(k~H/ |"@#z}{ @Qo|Aor
jdwi{2  z 
J
),&/H(0z(/8y2(v{x/+p9T69UFT>u(9V6Vw (trsV"WUU.RzT>JT@:!XJ&NW0!#6%/#v0A!~#(?]!3##cvA#!t iJ]f2[2 `p}}8]s&"b f &~!&%6r'%q }|-~mop)|  z%q o|-kky"Z~uP{ /"k('Nuz )z%q |^" /<y"'!."@jy'" dzD""nns!mi<w x{ nc!wb!vb"ub@!b Od/"
J@ bfc2i&lYkw {lZ~k[bQFcLpw/Wjx_& /"~r
z}'|'2I<"j	i /w) 6whRA/{ gf;	 NR ECz 	 USTUKB3R CS2`Oe	AT ES!q{})<a0DT(E}dlCpzz	AR8K0HRCKECTRC	 Pc>&.e=()yb=*4&5&/&-"(Kz& .4b
/b-/b0b%(f~+&,di-/&.4&D,6"5j56&6.&51&0-&%6X(fd.6<k0! f!@.n?G $A@. .=2 "f bb nlcNzCoU#%bb ab!riq0`|-__ylZ~uP^ /UZ.Aw]0|_"UJOv4;1.&0-&(2b+b,=b9di!#& ~b	`n2
&  . &-)!$f6 (\{-*!$f9~"9`n	}b
6h  -K- /-#2--Kn"o	!>
< Ez"9J$7J69]$"!|cY	1lYjYwY[(/ZY2 Nz@ xr}swgw>wgw{0Xz)}`ZY2b f{0tpJWr6n>9AxIM?7@V Ub!ri%H/GTb3(b ~ &@)b/)6+?G O2a bnoKq A@*b/*6,?G !-bP@o-/k!-v!.AKv60L.bM!b..&?0cI3X,c- /G 4;(czgm91lw	Sf8KJJ	pl(~f@%.~
~
n {`AXrzlHn$@"P&qf
lBjc}J^~pn&Cod6LD^Gt|Pl&fwfq|-~vP fzrWnu'H^Az- aztG"(eztdn!.oo&Pnq"|mYmyHZ~F^![(]zs /H-}r b (ox8/H~-FoAw$A@.g$Pqb|^{KDkpOq@}AzqD.8o/pFPfqo&yZ~!Pl /k"@,z~6PP oiK8mrP|- Dh nfpD8p?@oJkJ.Dx]DDjKKK
n&KPppt@o2k"Jo?K(PKP]jP{FZ}^D0{LZK[ rrbn!Drbnn&r .P0nb FnnPPn ]g43@fs D'(D,0D3DDHJDS]DhDDFDHLDNxAph`iln"xw y2"$lnM8	:5	^L#A T	 5	 5LA1 4PNCE@dA{p!f~N&(/]!&N}"N|b}G}<!|b([z5w >!$J{"H~b2zbyx{	H!S 
L VI
zBjp^@\![iN,Z	Z!YI	YIG	G[2X
[2GXYV	
!>C z	Ns!l(?X)V	'Z(/NK&C	 O(?KK"!WbAn`>|?%XVA.Z
C	C VyU^2
U7	CUrfj[dXfnV`JnV	TS)n


t	tnUcrUt{n0p  ?Bttp@Xnbb~b}b}bf|i{$z{J|Iy{J|I{$$z{)J|Ixx{0$|{5JzI{:$|yw"?@jLL*PP*PP*HH*{vP:{Pu+y"tbbs&Jr:&r&q"dp+p+\U@A4/"*`!
&
6
6Q/@cAw
!.`/~"

c
c f0 ~
!.`//M(" >"k;}&*60|"/kQ="{bd42Hf4,0 bzb /Q .n n&A2DfA2t'yK'Bty4y0P`p    
  SL(0+01:5 27z5 z  
  
  IZ< N\BK
036 710
  
  
  
 C
LK
037 274z' 
  
  
 IS ,CU}NK
030* 533  
  
  
 JM 
CNxT
[032  77':  
  
   AJDS
URX0+02:2 37z3 z  
  
  
0 0UMR
00323  7004           RAL
00324  1775'          TAD MNBL
00325  1772'          TAD SUML
00326  3772'          DCA SUML
00327  2771'          ISZ COMPN
00330  2777'          ISZ DATA
033  0{0 
  
  
  
 OhP
[033 + 3[0   
  
  
 M*PCHCXK
[033 ; 3{0 
 ILVDN L L:LCL
034: 170z' 
  
  
 T
A LTk
035: 701J  
  
  
 C
I
036: 377j' 
  
  
 D
C TCh0+03:``@(/#(L~" {L2&^2L#h2T  z5%%JA>*LF.K`HH7LJ.
nKIIJr%IdKCJn})MC
IH&__y" Ozx
&|e&
GeKJwBvbNubODnMcy@/MbOUJ	_G_DNSJ@0{rw$n .wpjx)|fwOct?+y<66
MESS=50

*3000
CTRPOL, 0
  STA
  DCA INDEXC
  IAC
  DCA AUGMNT
  DCA WHT
  TAD (SUMS)
  DCA SUMAD
MOVEHV, TAD (-40)
  DCA INDEXA
  TAD (5000)
  DCA DATAAD
  TAD (-40)
  DCA IND WADDR
20335  1360   TAD (16)
20336  3020   DCA WADDR
20337  2032   ISZ MCNT
20340  5214   JMP COUNT-2
20341  5757'  JMP WHIMPL
20357  0400
20360  0016
20361  4000
20362  7776
20363  7775
20364  0530
20365  5277
20366  2271
20367  0505
20370  0470
20371  0463
20372  0446
20373  0456
20374  0040
20375  7740
20376  1000
20377  0600
       0400  *0400
20400  1377  WHIMPL, TAD (577)
20401  3012   DCA 12
20402  1412   TAD I 12
20403  3020   DCA WADDR
20404  1412   TAD I 12
20405  3021   DCA PPOINT
20406  1021   TAD PPOINT
20407  7521   SWP 
20410  7300   CLA CLL
20411  1420   TAD I WADDR
20412  7501   MQA
20413  3420   DCA I WADDR
20414  1012   TAD 12
20415  7041   CIA
20416  1026   TAD WTABLE
20417  7740   SMA SZA CLA
204 ***********CRUDS8 ************VERSION 4/12/74*******PAGE*1***** NAME:          _____________________                            SSN:           _____________________                            ADDRESS:       _____________________                       
                   _____________________                            TELE #:        _____________________                            INSURANCE CO.  _____________________                            EMPLOYER:      _____________________                       
    PAY RATE:      _____________________                            RETIREMENT PLAN_____________________                            SUPERVISOR:    _____________________                            JOB DESCRIPTION_____________________                       
                   _____________________                            SECURITY CLASS:_____________________                            VACATION PLAN: _____________________                            CREDIT REF.:   _____________________                       
                   _____________________                            SERVICE REF:   _____________________                                           _____________________                                           _____________________                       
    **********CRUDS8 ************VE SION 4/12/74*****PAGE*2******** MARITALS STAT.:___________________                              CHILDREN:      ___________________ SPOUSE:     ________________                ___________________             ____________
___

Note: Lines longer than 256 characters were wrapped


Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search