FORT.SV [ [ (q%J!% "99!! "* ?!) ?1'9! !  )   f?FCOM.CMTRACER4.SVTFORT.SV}0 2 *Z"*:X8:2! H`:Y:2`Y8 `8 ; CKS1(KK*K@S+K0ҜH` FORTRAN.SV \ \  (5%J!% "9:!! "* ?!) ?1(9! !  )   f?FCOM.CMTFORTRAN.SVTRACER5.SV~0 2 *Z"*:X8:2! H`:Y:2`Y8 `8 ; CKS1(KK*K@S+K0ҜH` TRACER4.SVeb@789989.9,9E;X;;;;;<<1>3>5>7><>>>D>I>t>r>{>>>>>>>?m?????@@ @)@*@>@:@T@Z@|@{@t@@@*%r ,.PC8TRACER4.OL R:7 2 R: Z R) R2I R# R/ R: R>A U f /^ jPC (  'Cv0 IuՐ@ 9 JK@+W U#PC (  ' I\ Ul Uddd f HzC R | H. R H8 R$- ( {'CB( IAO+PKR)# IQ`+PK# IzՐ@ o! Hy K Iz L U Ud^n|} f Hw IՐ@  (y w'G HwP Kw U R} U Udd f R | R$- U UdPOSSIBLE LABEL CONFLICT:TRACE OPTION INVALID:DO NESTING:LABEL TABLE OVERFzLOW:STACK OVERFLOW:BACKUP OVERFLOWLABEL INVALID:UNIT INVALID:RANGE INVALID:TOKEN OVERFLOW:SYMBOL TABLE OVERFLOW:ON NOT FIRSTOFF NOT ALONEMISSING TRACE OFFBAD LOGICAL IF EXPRESSIONSYMBOL INVALID:FILE NAME INVALID:LIST INVALID  +$+  2o9_@PGBN3U#\cj  qx f 1 / Rv U Ro U Rh U Ra U RZ U RS U RL U RE U R> U R7 U R0 U U R) U R" U R U R U R U R U R U U   f /  R#d%  U Ud ()'"=, ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`g6nQ  udd f} (k'C (k'C (dk'C IK R#C# I U# I# I JK+#CPK RS R#C I J@  R RS#PC3##+Ր@3K@ +ɅPC IK (r#G#PC J H@ : R RS#PC R#C+Ր@ 3K@+a HC+3n H IՐ@  R RS#PC (r H\G R+4s#CPC#C+ R#C I J@  R RS#PC# I3 H IՐ@  R RS# IK R U UH  d } f HwPՐ@ HwP Kw ( w'G'G U R  ' I ^' R  ' I _' I _ R  ' I `  O H  SPC (#C I [ ( ' I b & O  ( Z' I bK ( Z' I a# I O H Y K R H _G U; 0 i6 pQ  wdd f  ( m 'C ( m 'C ( f 'C ( f 'C ( f 'CPK R #C A I Ր@  Z J K@+  % 0# I Ր@  9 J K@+  u '# I  " J K+  2 # I : J dK+  H C W H C W R #C 5A I 4Ր@  @Z J ?K@+ N0 I MSՐ@  Z9 J YK@++ o % R N H C W R #C 0 I Ր@  9 J K@+  u H# I   ( t H\G R+4u#C I K WPC #C+ R #C I K W  N#+  o R #C+Ր@ 3K@++SՐ@ 3K@B-++  ( R#C I K W R R  N#C H C W R #+ I 4 H C W H\C I K W U# I Ր@  f s ( t#G#PC3 R} ( t H\G H C Ru3 U3  d V 9 z * NIPTCTRACE     f H I Ր@  H  (  H G R#d !P J ? L I  J ? *\ H C I K#PC H +; 4K ( 'C 2 # I ʍ - R;B #C# I C ( #G# I ̍ J K+ I S3 J K+ Z I K#PC J ʭ@  l  (  'C I ƍK J #  # I Ǎul  b (  'G I ̍ J K+  H C ( 'G I ̍ J K+  #PC PC #C I  (  (  '/  #PC ( 'G I ̍ J K+  #PC ( x'G I ̍ J K+ # )#PC PC N#C I  (  (  '/ H #PC -PC b#C+ (  H G R 6 # K (  H G# I ȍ } H  H K I P L U H K I # (  H GP K ( 'G IP L U H G U U XCA   f / ΀  څPG (  ' I\  (  '/ U'PG HG U UdWdddddd+dddd  f /  R&#C IՐ@   R #C I J@ H+ ISՐ@#1: R}~ R U#PCPC\#C+ ( ('G HP KB HP KC ( HG ( HG ( HG ( HG ( HG' I̍ ('G' IՐ@ (' I' JK@+ ('G ( 2}#C ( H}/ 4K 2 }#C H}/ 4K# J@+K# IՐ@ +K (i H}+ 3#O' I) ('G' I9 ('G' IՐ@ V ( 2} H|+ 3'O' I h ( HG' I z ( HG U U dD]~D  "%ACCEPTASSIGNBLOCKCALLCHANTASKCOMMONCOMPILERCOMPLEXCONTINUEDATADIMENSIONDOMDOUBLEENDENDFILEEQUIVALENCEEXTERNALFORMATFUNCTIONGOGOTOIFINTEGERLOGICALOVERLAYPARAMETERPAUSEREADREALRETURNREWIUNDSTOPSUBROUTINETASKTRACETYPEWRITE         %%%+, f /  R&#C I'" ('G U HG U U%d3- f /7 C (0  (0'PG (0 ' IՐ@e{ (0  (0'PG (0  HG (  (0'G (  (0'G U U f /  HG'PC ( ' I\ U'PG UWdddddd+dddd ik f /  HjG IjO JjW HjG HjG HjG R&#C IhՐ@& U ('G ('G ('G ('G ('C IhՐ@V U Hf+ 4 HgO 2f#G U UPd wz22 f H K I L J M H KP K HP K Hv Ky (  HG (  HG H Kn I Lo J Mp H Kq H Km H Ks H Kt.# H Ku U U2  f 0 *PC R(#C IՐ@ Bb HKb H K IsXb R: R.q#jy R: R/  Hm+ JC@ #s R2B# I JK+ R# R: R1l  1 ------2>KWco{| Hs- R: R, R: R- R: R. Hs - R: R1h Hu - R: R1h Rz R: R/ R: R- R: R-D R: R, R: R.z R: R0 U R: R, R: R- R: R-# I J# R: R/ #+, R: R-, U f H IՐ@  U RS Ujk f /  HPCՐ@O UPC HC=#C+Ր@ (  ('G#PC" H K HP KՐ@R U HPC (' Ilg UA Udrdd fz R p# U R)pz Ud # f /  R#C I J@  H K+PKPC#C+ ( ( 'G HP K U R} R U UdX<IIC6JQ  d f 0NdZ' Iei R U H IՐ@y (G'C (G'C (@'Cz (@'C IK H+C (9'C+Ր@3K@ +#+SՐ@3K@ +##PC# IՐ@  JK@+? ( H+C (9'G H+C (9 HG#P? HC?#C+ ( H+3C (9'G$ RPCW#C I (9 HGF (9 HG H K+ J@  HSՐ@3PC#C+ (9! ('G HP K (9'G HP K U UB HI d* CONTINUE   f /΀  R# R$- R U U  f 0 /  ('C ('C ( H+ 4O ( 2#G ( H+ 4O ( 2 H+ 4O ( 2#G HCPC#C I ('C I3K} R;B # IC RSS RS U Ud f0II f (  H\G R#d P K U UIII6Q  I f 0I ('C ('C ('C ('C/ J? HG H/C ('C+Ր@k3K@ +#+SՐ@3K@ +#9?'PG' IՐ@  JK@+Z UPC#C/ ( H/3C ('G H/3C ( HG^PC#RC/ ( RS U UBH  I14HRETURNED FROM 9HENTERING 1H(,I6,13H = ,1H.,L1,1H.I6G14.6G26.12OI7,1HKOG16.7,1HKOG29ڣ.14,1HK1H',S2,1H'1H',S4,1H'1H',S8,1H' = D K  R ,  Y !  `   g  n  u |  S      Wdd dd dd +dd dd   > 6 T Q"" f 0  / ! (" (" R ("' I!( U# I"Ր@ !7"i R"" R R# RS= R$- RS# I"Ր@!`! R$-PC!#C+ R$- RS=#+! RS!h RS RS R$-k2# I! (" R&W#C 2"#C I 8 J! I 7K# I J! IK H"+ 4K H"Ր@3 IC#! HC# I 7Ր@!" RSS RS 1 ""'"H 1 """"!""! R$-" R$-" R$-" R$-z" 1 "0"6"<"B"<"B R$-" R$-s" R$-l" R$-e" 1 "Q"W"]"c"]"c R$-" R$-^" R$-W" R$-P"# I""s U R"" R$-; RS R R# RS= RE$-# I 7Ր@ " RS RS R U U   d11X,FORMAT("""""" f /"ـ " R# R$-'" R$- U U## f /" # R R9 U U#[#CC## f /#_ #kPC##C I# (#X H#G#o R#PCPC###ՃC+ ('C+3# H#C 2## I## R;B ##C#PC H#+ 4K (#X (#X '+G#!P7 ? U#*\ UC #Q   f#'C I$$KPC$ #C I$##+ 4PK (#3 RS 2 #C H$"+ 4K# U U d $_$` f /$( $4PC (  ' I\$G$V (  RS#PC$6$Y RS$X U Ud$e6$lQ   f 0$p  0$t $$I RS$$E RS$$H RS$$8 RS$ ( % H%/ 4PO ( % 2 %#PGPC%#C I%  ( ' I%Ր@ $$ (  (  ($i'G% (  ( ' I%C ($b'G$PC%#C I%  (  RS% U U $ %% f 0%"  /%& %6 ( % ( % R  H+ JC#%Z U ( %' I%Ր@ %n% R< ( % ( % R  R& R$-x R U UdWRITE(&%dd& %&K&L f /& & R Hq&)&- R$- R$- R#y&8, RS&7 R &C) RS&B U Ud&R6 f&Z H 8G R P #C I&Ր@  J&K@+& I&MO U U '''' f /&  /& &' I'Ր@&&PCPOPC ( ('/&& ( ' I\& U#PC3S&'/Ր@&& H'G U'PG (' I\'' #PC&#PC`e& Ud'Q  '''' f /' /' '/ ( ' H'G ( ' H'GPC ( ' I\'Q U ( ' ( '' I' 3K ( R #+PO+K ( '' I'Ր@''A ( ' (5 '' I' 3K ( ' H'/ 4#O ( ' ( ' 2'#G'A U d@@@\@@\\\\@Phbj^fdbZldphR@@@\@@ ''((d''dd f 0' d( H)G I)O R | Rc#(!(+ H)G R R | (')'C I)Ր@  J)K@+(K(# I)(W( R- H'G+ J)(j)PC(#C I)# I) 3PK (  (' R;B)# I)G# I) 3K (  (' R;B)# I)G(n R ( ) H)G RPC(#C I) (  H)+ 3 H)O H)+ 3 H)K RS(*\ R#G I()/ R R | (')' IK (')' I#) HG R) R#)/ U' I'):)U R R R | Rc#)P) H)G(' I)`) R R R | (')' I# J)K@+) I'h7O R) Rw U U4WP(d ZA)) f /) )) R) R #C# I)Ր@) U (  R#PC) Ud)  f)9c1cS S 9nPYm!m ` OQi!f "Z9a;!z K) AQt!X)s ?K9R3)nҊ)m L )k9IS3Ҋ L )a9=S)X1= ?/   M   SY 1I ?"1, ?Y)?1= ?1 ?Y "* ?*X   Q 1  f? UY  ! !  H) !g UIU1 ?Ѫ M  M )1 ?9SSS1 ?!< ! 1 ? ? H) ! M !)1 ? ?  M ! I)  UTCOM.TRFCOM.CMTRACEQQOUT.QQU U++Q  +o+p f /+/ +; H+mGPK (  ' I\+P U' I+l 3K (  R )#+PO3S+@ U dI0P0T0(CALLCFILW(OPEN(DO READASSIGN(.NOT.COMPLEXDOUBLEINTEGERLOGICALREAL8H(.TRUE.))9H(.FALSE.))7H(MINUS))6H(ZERO))66H(PLUS))FUNCTIONARGSIFSLABELSOFFSYMBOLSUNITUNTILOCTALTEXTONIFINTERACTIVELY PPPGOTOPP\l0lZ0l:&)? l)@2"g)j jA62 b!7)40l2+)3 ^A+")f2)T WB")' RB")N N:BBY:(;+9m) ?B!B4!_BJ08+ (:#) !BP *#[;#9?9>ZB)@zw  ! " !  tMEMO4 RY OVERFLOW OR NO F$COM.$$ t:$TTOtBF$COM.$$9;    P PCCPC f3 2S'P0hS"J1]Q Q "*Q#P+Z;.? 8;+;)C   ?  )? ? 3J+J5+/BP)( )$ $Q? @8;+ ?媛 ?) Q/ *?Q 9 !P ".+PK)KPK)K# ]8 1  # ^81Q# ^:T.P `'C). `3P(h2Z /   ?PGU1! C a'P0hS"K1) WU1 ?3BP# OU# )U?  a'/GU a'/ a' a/7 a'/1JPقT!J g3#B)CJK'+KCC0o0k03*!0J'C3 e"G#C[P#3 rKr 0:KK83JU3>T! `.3"J10k W3B+J;;+JUT.K2 e"+) W 3:+JUT! g/' 4GU\lRJ00 qK  4l8Y Y\ll KJKJDl0 s  4lҊJl4l8lI YlTPT.KCP g#CP g'GUP g'/Ր@30 G p)\ll9\l#*BKll84l\l3 b"*8p10jEXpPpS1=C!:KCCC \l3 b8pS!Xp#+@+ 1+9!8p; KC4l8+9 Ҁ<p\ll8p#3 CC!= !>\l#+94 +J XI X T" 0""*2TC2"9v+ME!kPC2)hπ# R?|!?PR!; Z# Z!D Z#+@ R?# Z!@ Z#3J 1J;+; 1B(lK,l l3Pl  R?# Z!, Z U:& m`@mBU8~~FATAL RUNTIME ERROR ~ AT LOC. ~, CALLED FROM LOC. ~ ?9k?iyTJ ]U [3TCC!&C'pC#  i!#S ^33 #) ^ ^3BU0?'d TP)K)@)K)P@S ^3 ^3BUT ) V! T B Xn* !@8nXn1 #K@8n\l3 bTo  .EWdd.Ldd.Sdd.Z+ddR.add.h  f 0.l .x H I/. UPCPK#C (.e' I/..#PC. (.P ' I/./ HC (.I ' I#. U R< R& R R" / R$-< RS/ 0#+C R# RS/PC/#C+ (.e RS#PC. RS/ R Hs/ U/*#PC3S H@ /( U.PCPC/#C I+K (.e' I//J/P#PC/9 (.P ' I/Ր@˪/d/ (.^ ' I/Ր@ /x/ (.e R%+#PC/0 U U )H,d/dd f/ R R R// R | (/ //(' I/// R U R) R3q/ U Ud f/  !  !  H)   *\_TFORT.SV_TRACEQQOUT.QQ U0'((d0Wdd0dd0 dd0'+dd0.dd05 0<,  0C,  0J+  0Q+  0X+  0_,nӺ0f,l0m,j0t,w0{,u f 00 d0 R- H,00 R"k1 R$-H R R"d1 R$-A R R"]1 R$-: R H1 K, H,00 R"y1 R$-V R R"r1 R$-O R H1 KB, H I1Ր@01UPCPC1U#C I+K (02' I111#PC0 (0'C I11'1O#+PCPC1K#C+ ( #+PC (02'G11 R  #PC0 R Rz R2I# I11i UPC1#C I1# I1 3PK (  (0 R;B1# I1G# I1 3K (  (0 R;B1# I1G1m R ( 1 H1G R PC1#C I1 (  H1+ 3 H1O H1+ 3 H1K RS71*\ U U4WP( )H2,d2Wdd2 dd2dd2+dd2!dd2( 2/-262=}2D,ydd f2LP K,ݭP LwP M H2 K (2, 2] H2G (2, 2 H2G H2 K I2 L P MP K H2 K R H2 K, I2 L, J2 MP K H2 K H2 K H2 K U UPd2+2+$$22dd3b3c f /2 2 R&+#C I3_23O (2 'G I3d2 U R R | R R | R&+#CP33 R)33 R H3eG IPK (2 H3fG H I3^ K HPC (2 H3fG H I3] K R#C U (3b R&W#G U UH $d 3ldd f3tPC IK7333) H3C R R (3i4O'C+33'3 R U3/# I333 R (3i4O3/' I33333,# I3ύ33 RA5j R | (3i4O3(' I334& R$-jPC R (3i4O'C4 , I44+PK4)# I44$34- HC R)j Rj#C IK74>3S Rj #PC3 UdH,z22-A-B f 0,  /, , H I-@Ր@ - -4 R'$ (, ( -A'G HPC (, ( -?'G H I-? K U R}-> R U U2d-Gw-Nz22 f-V H+ K I+ L J+ M H+ K H+ Kn H+ Ko H+ Kp H+ Kq H+ Km H+ Ks H+ Kt H+ Ku H+ Ky (-D - H+G (-D - H+G H+ K I+ L U U2-w-z22 f- H K+ I L+ J M+ H K+ Hn K+ Ho K+ Hp K+ Hq K+ Hm K+P Hs K+ Ht K+ Hu K+ Hy K+ (- . ' K+ (- .' K+ I L+ J M+ U U2.+.+~.+y.$Wdd.+dd.2dd.9+dd.@dd.G .N6.U%dd.\,#FJF.cQ  .jdd.qwd f 0.ud. (.K"2;'C (.K"2<'C (.`"2B'C (.`"2:'C R | R | R&"hZ,i#PC J2>./# I2A.0T R H29 Kr. R | (.g"2C' IJ.1' R&"hZ,i#PC 1.// //@/F/L00H0N0k0q1! R}2B Rh. R2h2>. H28 K. R2h27. R- R H28 Kr R | (.g"2C' I/6 U H29 Kr R}26. R}26. R2h2C. R | Rc"h R#h# I2>Րb@#/j/t R}25 Rh. HyC R+4"h# Ky R | (.g"2C' I/. R | (.g"2C' IK (.g#2C' I#//# Ky R}24 Rh. R R$- R$- R$-h RS RS RS~ R$y2C RS R R R$- R$- R#y RS R$-h RS RS RS R$y2C RS R. R | Rc"h R#h# I2>Ր@#070A R}2; Rh. R'$ho. R2h2B. R2h2:. Hr0\0b R}(23. R-S H29 Kr. R}22. H28 Kq I2:K J29S (.R"2C#G (.R"2B#G R | (.g"2C' I00 R}21 H29 Kq. R |PC (.R" (.g#'G#PC3S (.g"' I\00 (.g"2C ?" : ? 9 8 Gt0#PC ? 9 8 Gt0#PC ? 9 8 Gt11# I29Ր@ 10. R}21 H29 Kq1' H28 Km. H1/ U Hn17PC Ho1@ H2BC Hp1I H2:CPCPC2+#C I+K (.D"'4 I\1i1o#PC1X (.("' I12% (.6"' I2DՐ@ 12% (.6" 2#"20#C I+12% (.!"' I12% H29C (.6"' I1 (.6" H20/ 4K# I29m1 IK#+12%#+PCPC2#C+ ("#+PC (.D$#'G1 R  (.!" HG (.6"#G#PC1O# K U U   F d2J2Q62XQ  2_dd f 02c2o (2N4'C (2N4'C (2U4'C (2U4'C I4K R | (2\4'C I22 R)] H4C 1 22223"# Kn+ J L H4 Ks3# Ko+ J L H4 Ks3# Kp+ J La H4 Ks3# K I4 Lt32 U H4C3V Rc] R]# I4Ր@#33 R}4 R]3V R,]3V# K I4 Lu33/ U H4C3V R]# I43J I4K R]43V R | (2\4.'C I3j3s R)] R}4 U# I3~ U# I33V' I433#+Ր@ 3K@+33 R}4 R]3V#+Ր@ 3K@+33 R}4 R]3V#3 U H4C3V (4 R] (4' I44d# I4 (2\4 R&W#C H4+ 4K H44+ HC#/464d 24#C I+4G4d R ] H4/ 3K 24#+K R]X  3V# I4z (2\4 R&W#C H4/ 3K 24#+K R]3V U  d3342z,,n,,l,,j f 0,  0,  0,-'--h R H-n K I-m L R R< R< R< R-9, RS-8 R-D, RS-C R R R2x R | R2x R |W R2x H-n K, Rz U U-u,ydd-+ f 0-y - ( . H, I.C (-r 'G ( . H, I-C (-r 'G R R R$-~ ( . H, I.C (-r 'G ( . H,ݭPC (-r 'G8 R RS. RS. RS. R$y- R H, I. K, U UdTO . dd f 0. . R R | R< R.^ R R R Rz R #C R%+ U Ud.Q,ydd/ / / / H f 0.J  /.U  /.Y .m R/%/ #.z. H, I/ Ր@ .. R'$ (.N, (/ 'G H,ݭPC (.N (/ 'G H, I/ C (.N ( / 'G H, I/C (.N ( / 'G H, I/ K, U R}/ R U (/ H, I/C (.N'G (/ H, I/C (.N'G U Ud/w/,ydd// f 0/  // /0 R'$ H/G I,P@ /p H/K (/ ( /'/ H,PCKJ (/ ( /'/#O'/v U ( / (//'/K ( / (//'/#/ R U Ud// f // / R U U/+q/+/+~/+y/dd f 0// H0G R | R# I0؍K (/008' I0#00 R}0 R' I0$ U R$-' IՐ@ 06 U R/%0#G R0#/0O0 Hm0X0y R R$-M R$- R R#0oH RS0n R$-0 R< R& R R"0 R# I0ئC R#0H RS00 RS00: RS00 RS0 R$-0: RS00) RS0 R U Hm0 R2B U Ud=]0z221K1L f 00  /0 0 H1HG R'$ PC# IՐ@ 1 U ( 1K (0'/K ( 1I#PC (0'/#1;1B# I1IC1 H1GG U U2d1Q+1X,w1_,u911 f 01c  /1g 1w R'11' IK1 R$-O H1 K I1 L R#1 U1) RS1 R< R2 R U H1 K I1 L R R< R2 R R&V R R R< R2 R# R&] R R H1 K, U U1,p22 f /1 2 R R$- R R U U2!+q2(+2/+~26+y2=  f2E R R$-4 R$- RS RS RS R$ U U2k,p2222 f /2o /2s 2 R# R& R R R$-i R R U Uk,dd f 0, ,PC R | R R# I-Ր@ 3 HK I3-"-( R$--t R.D Rw R R R H- K R Rz Rw R | R ( - ( - R ( - ( - R0a U Rz R#C R%+ U Ud-+--dd f- R |'- R 1 -- R& .## I. - U R | (- .#' I--'- R- R)' K R U R |'- R R | (- .#' I..'. R U R) U Ud.).06.7ddd f 0.;d 0.?.O (.-/c'C (.-/_'C ([/c (/d R5   R6)5 R | R5 H/^C R | (.4/c'C+PK+Ր@3K@ +.. R5  # I/].. R5 R | (.4/c'C I JK+.8/ R)5 R5#C R)5'PG R R$y RS R5/\/^ R R/} R | R5 (.4/c' I/".#+/, U (/c' I/^Ր@ /B R  R< (/c (/d R U Ud/i6/pQ  d f 0/td 0/x/ (/f0C'C (/f0B'C (/f0A'C (/m0C'C (0G#G (0H#G (0@#G (0?#G (0G H0>/ 4PO (0H 2 0>#PGPC0-#}ɃC I0H (' I0=Ր@ /0# I0?C ( ( (/m'G0+# I0?C ( (' I0=C (/f'G/ (0< H0;G R U U $  d0M0Tdd1516 f 00X /0\ 0l (15'G (14'G'C/ J H00 RR#0 U R51212 U (15' I12Ր@ 00 R< (15 (14 R   R&PC0#C/ R | RwR R | RR R$-R RS0ӅPC1 #C+ RR#1 U R)R0 RR#1 U R$-PC1*#C+ R1 R R U Ud1;+1B+1I1P61Wdd2 f 01[ 01_2 01c1w (1M#5Z'C (1M#5S'C/P11 H11 R | RU R | RU  # I11 R)U R#U#C R$-U Rz U R)U R#U#C R)U R- 5R H5QC R | (1T#5Z'C I12 R)U Rw R2# I JK+22 RU1#+Ր@ 3K@+222N'P2=2H R)U R55Q5R1 RU1 RU RU"! R6k9#"!#2k2r R55Q5R1# I5QՐ@21 R.D1 R | (1T#5Z' I22 R$-U RU2 R R)U Rw'P22 R | RU R | (#5Z ($5[ RU #$ R5fU R)U R#U#C R)U R- 5Q H5QC R | (1T#5Z'C I3 U# I32#+Ր@3K@ +3/3' I5[3:3d (#5Z ($5[ RU"!#$ R6k#"!#3]3x R"55Q5Q2 (#5Z ($5[ RU" #$# I5QՐ@ 33 R%+U2 RU R | (1T#5Z' I33 R)U R#U#3 U RU (#5Z ($5[ R0aU"#$2 R)U R#U#3 U2# I34' I5[32# I5YՐ@44 R)U H5Q K R2#PCK J5QS R | RU (1T#5Z'C+42# IK# I4@+PK# I4K4#PC J5Q4Z4_ H5QC4#4f4s (# H5QG Rw2 R< (# ($5Z 2%$5P H5O+ 3K (%5[#/O R R$-9 R R#U#4 U R)U (1T#5Z' I44 R#U#4 U R$-U R | (1T#5Z' I4604 R$-U4 R R)U Rw2# I45F' I5[5 2 (#' I5Q55@ (#5Z ($ H5O/ 4 H5NO (#5[ ($ 2%$5O#G R#PC2 R55Q5Q2 UP d2~5555 f /5] /5a 5q ( 5' I5Ր@ 55 R< ( 5 ( 5 R55 R& R U Ud55dd f5 R | (5 6'C I55 R)' K/ L R5# I JK+# IS366'6 R$-'6 R5 R) U Ud6Z6Z6Z6Z f /6 /6$ 64 H6YC#PC (  ( 'G ( ' I\6W67 U U6_D6fdd f6n' I7}Ր@ J7|K@ +W6 U' I JO6 U Rd R | R)d' I7{Ր@ 66 (6c7'C I JK+# IS3O Rd#6 U U (6c7'C I67 H7{G Rd#7 U U R (6c7'C I JK+# IS3O H7{C Rd#79 U R)d (6c7'C I7Q+PK# I7_+PK# I7{Ր@ 7n7. Rd#7y U U U'd TRACER5.SV ;]73K334414E4N4b44444444444555%515S5_5W56;6E6N6X6f6666666666Z73673, %d) :+ :/ :, :,A 8 = M (: FPC *  'CR0 3QՐ@ ]9 4\K@+Wo =#PC *  ' 38 =H =dPPPp M )  )  )' :A : : : : :!, :!; :!, :!; :! :"i :% : :% : :% 2r" 5 : ! = =dd M : w : :n # 3Ր@ 3 2}K 3~3 :$qr : PCPC6#C+ :$= :!; : *'C( 3+PK)# 3+PK,# 33PK+ 3C@#(. :$q :"i : :#C :$qD( :!;CPCg#C+ :$#+ea, :!;`Lj) :!;i : : ! :#C :$ = =d M : :*$* = =dd M 2C : : * 'C( 3+PK)# 3+PK# 3Ր@  = =d M 2 3Ր@  * 'G 2P 5 = : _ = = M :A :1N = =dd M :A : * 4' 37;]. :0Y # 36( 23 5 :$q :"i = =d <dd MD : :$q: = =d`ASSIGNOdd M )  * M 2 3JC * 'G * L 2 3IC * 'G :! : :$q * M 2 3L C * 'G * L 2PC * 'G :! :!;O :!;P :!;Q :$H :"i 2 3J 5 = =dTO Vdd M )Z f :A : : :T :! :A :T : ! :T#C :$T = =dOddUTUV M )  (  (  :qS#+ 2 3VՐ@ " :' * *U'G 2PC * *T'G 2 3TC * * U'G 2 3RC@k * * T'G 2 3Q 5 = : _R :  = *U 2 3QC *'G *T 2 3RC *'G = =d]WdOdd M )h  (l | :' 2G 3P@ ޮ 2K *a * '/ 2PCK *a * '/#O' = *  *Z'/K *  *Z'/# : = =d3434 M ( ( PC * *&M  '/O * ' 38', =#PC =dPOSSIBLE LABEL CONFLICT:TRACE OPTION INVALID:DO NESTING:LABEL TABLE OVERFLOW:STACK OVMERFLOW:BACKUP OVERFLOWLABEL INVALID:UNIT INVALID:RANGE INVALID:TOKEN OVERFLOW:SYMBOL TABLE OVERFLOW:INCLUDE NESTING    " ) 0 7 > Ep Ld  SN Z5 M b , q v { : X = : Q = : J = : C = : < = : 5\ = : . = : ' = :  = :  = :  = :  = =   M (  :#S = =dFUNCTION  dd M : :0Y #C :$q : : ߉#   :* :1N6  = :$q : X = = d M $ : " N#C 3 N 6 =# 3 M B H :!;  $ :"i = = Sdd M ['C :A# 3 k u :A :0Y Q#C :.Q  :1N = =d{S    M % 2PՐ@ 4 D 2P 5 *  'G'G = : ' 3  S k' Z A : ' 3  i Z v' 3  v A : ' 3   2   :SPC #C 3 ލ *  ' 3    *  ' 3 K *  ' 3 #  2 5  D : 2 G A =; 0 dd M PC : " #C A 3 Ր@  Z 4 K@+  w 0# 3 Ր@  ,9 4 +K@+ =  @'# 3 ? I" 4 HK+ Y 0 \ # 3 [ 4 K+ r 2 C U 2 C U : " #C A 3 Ր@  Z 4 K@+ 0 3 SՐ@  9 4 K@++  w : L 2 C U : " #C 0 3 Ր@  9 4 K@+   H# 3   *  28G :1#C 3 K UPC .#C+ : " #C 3 K U  L#C 2 C U : " #+ G 2 2 C U 28C 3 K U =# 3 Ր@  d q * #G#PC3 : _ *  28G 2 C : 3 =3 d TqG 7 ,  | L  M (  :! = =ABCDEFGHIJKLMNOPQRSTUVWXYZ   dd M :A : :0Y#C :$q :A :A *  :#CC : * (-' 3'3L6- :!;5 :A *  :#CP :*#Cf#C+Ր@ *  #GT :A * q,' 3p} :A * ,' 3 = =d   M 2 3Ր@ 2  * 2G :#S!P 4 ? 6 3  4 ? +t 2C 3K#PC 2 + /K * 'C -  # 3' :35#C# 3C * #G# 3 4 K+ 3S3 4K+T 3K#PC 4@ f * 'C 3K 4+# 3 1L# 5 * 2G# 3 2  2 5 3P 6 = 2 5 33 * 2GP 5 * 'G 3 P 6 =+t 2PՐ@ 4 ? 2P 5 *' 5 2G = =  XCA L22S  Zdd Mb : : PC}#C 3  *I 2 Gl :rX#C *W 2 G 2 ZC#C+ *W 'C -  # 3  :35 #C 2 + /K *I *I '+G 2P 5 4 2 @ : _ = *P 2G 2P 5 "* ! P ? 7 =+t9  = 2 dJK M ( PG *  ' 38/D *  '/> ='PG 2IG = =dqdd 4ddzddldddd%L+- M () 5 :&##C 3*Ր@ L :r#C 3 4-@ 2+ 3.SՐ@#r{ : _) :  =#PCPC#C+ *"s *'G 2P 5 2P 5C * 2,G * 2,G *  2,G * 2,G * 2,G' 3, *'G' 3, *'G' 3, * 'G' 3, *'G' 3,% * -( 2'+ .'O = = dACCEPTANTICIPATEASSIGNBACKSPACEBLOCKCALLCHANTASKCLOSECOMMONCOMPILERCOMPLEXCONTINUEDATADECODEDELETEDIMENSIONDODOUBLEENCODEENDENDFILEENTRYEQUIVALENCEEXTERNALFORMATFUNCTIONGOGOTOIFIMPLICITINCLUDE}INTEGERKILLLOGICALOPENOVERLAYPARAMETERPAUSEPRINTPUNCHREADREALRENAMERETURNREWINDSTATICSTOPSUBROUTINESUSPENDTASKTRACETYPEWAITWAKEUPWRITE          7770}}$% M (  :&#C 3!Qt * 'G = 2/G = =7}d ,dd M )0< 2G : :r*# 3K *)U8' 3T#dl : _ : *' 3'w = :$q* :q*#G : *#/ 7 3&C@ # = : :& :"i :" :r*# 3C :#H :!; :!;: :!; :!; :$q*: :!;) :!; :"i = =dE=222 M )+  (6 F 2) 3Ր@ V :' */) * 'G 2)PC */ * 'G 2) 3 5) = : _ :  = =2V)d M (  *  *'PG * ' 3Ր@ *  *'PG *  2G *  *'G *  *'G = =22jk M )<  (  2gG :' PC# 3)Ր@ / = * j *'/K * h#PC *'/#Za# 3hC! 2fG = =2d M (m y 2G'PC * ' 38 ='PG| =(.NOT.PP<= M )  (  :A'' 3/K :$q :# =) :!; : :" : = : : :" : :& :"i : : :" :" :& :"i : 2: 5 = =BddI4ddPddWldd^ddeL M (i u 2G 3O 4W 2G 2G 2G :&c2#C 3Ր@ = *['G *T'G *M'G *F'G *?'C 3Ր@ = 2+ / 2ގO -#G = =Pd W M 2! 5 3! 6 4! 7 2! 5~ 2}P 5} 2 5W * " 2!G * # 2!G = =  M )' 3 :'#C 3&Ր@ IY 2% 3U : # 2 5%#d :5 # 3' 4$K+w :# :  ,  : : :_ : ! :* : X :  :  : :( :-u = : :_# 3/ 4# :  #+ :3 = M 2 3Ր@ : = :!; =V[\ M (  2PCՐ@O =PC 2C.#C+Ր@ *  *'G#PC 2 5 2P 5Ր@C = 2PC *' 3]X =2 =dcdd Mk : a#v = :*ak =d M (5  :r#C 3 4߅@  2 5+PKPC#C+ * * 'G 2P 5 = : _ :  = =d9HENTERING   dd4dd dd ldj!d dd L M )   *PCPC #C 3+K * ' 3  J P#PC 9 *  'Z\ ^ : :& :"i :" :$q :!; #+C :# :!; PC #C+ *:  :!;#PC :!; :"i *  ' 3 Ր@   * 'C * 2}G *  :$ * #G#PC 0 = = )H,dG!6 II M!>' 3!!I!M :"i = 2 3!Ր@!]! :"iPC!u#C 3! *!3 2!G!d *!3 ! 2!G 2! 5 *!3 'G 2P 5^ = =HI* CONTINUE!!  !! M (! ! :" :$q :"i = = "]"^ M )! (!ˀ ! *"]'C *"^'C *"] 2"[+ /O *"^ -"[#G *"Z 2"Y+ /O *"X - "Y 2"[+ /O *"\ - "[#G 2"WCPC"T#C 3"\ * 'C 3"W3K"R :35 "V# 3"_C :!;"( = =d 0"d II M"l *"a  28G :#SbP 5 = =I11X,FORMAT("""""" M (" " :" :$q'" :$q = =GOTO"""" M ("̀ " : :$q :! :"i = =## M (" " :! : = = #J#CC## M (#N #ZPC#o#C 3#Ӎ *#G 2#G#^ :r#PCPC##C+ *'C+3E# 2#C -## 3#ҍ# :35 ##C#PC 2#+ /K *#G *#G '+G#|!P7 ? =#+t =C 0123456789##   M#'C 3$KPC$#C 3$#+ /PK *# :!; - #C 2$+ /K# = = d $% M$- 2PՐ@$; = 2PCPC$c#C+ *$" ' 3$i$a *$" :!; $DP 5 = =$$ M ($l $xPC *  ' 38$$ *  :!;#PC$z$ :!;$ = =d$#   M$$I :!;$$E :!;$$H :!;$$8 :!;$$Q :!;$'PC *$ :!; = = %% M )$  ($ $ * % * % :n O 2~+ 4}C#% = * %' 3%Ր@ %2%J : * % * % :.  :& # 3%Ր@K%^%uPC%u#C+ :$%o, :!;%n%b :$q#%%%( :!;%PC%#C*+ :$#+%%, :!;%%%) :!;% :"i = =d%"%%%% M (% (%€ % :" :& :"i : :$q :A :"i = =WRITE(%%&*&+ M (% & : :$q :#&, :!;& :! &#) :!;&" = =&2 &9  M&A 2&-G :7 #C 3&zՐ@  4&yK@+&f 3&,O *&/ 'C 3&x&vG = = ' ' ' '  M (&  (v& &' 3' Ր@&&PCPOPC * *'/&& * ' 38& =#PC3S&'/Ր@&& 2' G ='PG *' 38&'#PC&#PC& =d'#  '''' M (' (' '( * ' 2'G * ' 2'GPC * ' 38'J = * ' * '' 3' .K * :#+PO+K * '' 3'Ր@'': * ' * '' 3' .K * ' 2'/ /#O * ' * ' -'#G': = d 'dd M' 2(G 3(O : :?#'' 2(G : : *'('C 3(Ր@  4(K@+((# 3(4(' 2'G(} :#G 3'(((C : : : :?#(>(} 2(G(' 3/(N(} :n : : *'(' 3(# 4(K@+(} 3'O :* :h = =d (ZAARGSIFSLABELSOFFSYMBOLSUNITUNTIL ((''(dd(W M( : : : *(*y' 3(( = :&(#PC , )) ))))**A : _*z : ( 2*v 5( 2*v 5( 2*v 5 : *(*y' 3()- = *(*y)5(' 3)4)@( 2*u 5 : *(*y' 3()W = *(*y)_)' 3)^)k( :? :r# 3*tՐ@#)) : _*s : 2l)D :;)D : : *(*y' 3() =) 2*v 5~ : *(*y' 3() = *(*y)(' 3)̍)( 2*u 5~ : *(*y' 3() = *(*y))' 3)*( :.}) : :? :r# 3*tՐ@#*-*7 : _*r : ( :1# 5( : :? :r# 3*tՐ@#*_*i : _*q : ( :'( = 'd** M (*| ** :$* :r #C# 3*Ր@* = *  :#PC* =d*dd M* :A :A :.** : ** **(' 3*ݍ** :"i = :* :1N* = =d+  M+ 9c1cS S $9nPYm!m ` OQi!f "Z9a;!z 5* AQt!X)s ?K9R3)nҊ)m 6)k9IS3Ҋ 6)a9=S)X1= ?/   7   SY 1I ?"1, ?Y)?1= ?1 ?Y "* ?+p   Q 1  f? WY  ! !  2* !g WIW1 ?Ѫ 7 7)1 ?9SSS1 ?!< ! 1 ? ? 2* ! 7!)1 ? ?  7! 3*  =TCOM.TRFCOM.CMTRACEQQOUT.QQW = M,D  !  !  2*   +tXTFORTRAN.SVXTRACEQQOUT.QQ =1H(,I6,13H = ,1H.,L1,1H.I6G14.6KG26.128H(.TRUE.))9H(.FALSE.))7H(MINUS))6H(ZERO))6H(PLUS)),,,,,,,,{  ,,t,,o,,j-dd-4d`d-dd-ldd-#dd-*L-1,  -8,  -?,  -F,  -M,  -T-[-b-i-p M )--| 2-- :"`/3 :$q= :ª"i :"Y/3 :$q6 :"i :"R/3 :$q/ :"i 2/3 5 2-- :"n/3 :$qK :"i :"g/3 :$qD :"i 2/3 5 2 3/7Ր@-/PCPC/#C 3+K *-'' 3/7..#PC- *-'C 3 /3./ */1 2/*+ / 2/+O */2 -/*#G :"/3 *-''C+3K :# :!;/6PC.a#C+ *-' :!;#PC.L :!;/< *- 'C 3/7Ր@.z. :$qPC.#C+ :$q :!; /6#+. :!;/<. :!;/4 :!;/< :$q *-'C 3/3.. :&> #C# 3/5 4. 3/8K# 3/; 4. 3/9K# 3/8Ր@ . :!;/: , .///// :$q/ :$q/ :$q/ :$q :!;/4 :"i#PC- : : ! : = =P )H2,d/Cdd/J4dd/Qdd/Xldd/_dd/fL/m/t /{22///XOdd/   M/P 5P 6P 7 20 5%P 5) */j 0 20G */j 0 20G 20 5 30 6P 7 P 5 20 5} : 20 5 30 6 40 7P 5PC/#C 30 */q 20G/ 20 5P 6 = =P2 dCOMPLEXDOUBLEINTEGERLOGICALREAL0;010B0 $$0I0Pdd00 M (0T 0` :&@06#C 300t0 *08 'G 300 = : : :$N : :&N@06#CP00 :*N0 :N 20G 3PK *0F 20G 2 30 5 2PC *0F 20G 2 30 5 :#C = *0 :&>#G = = $d 0#  1C1D M (1 1 21AGPK *  ' 381$ =' 31@ .K *  :#+PO3S1 = d1Idd M1QPC 3(K71^1g1a) 21`C :A :A *1F2,'C+1z1'1 :A =1/# 3111 :A *1F2,1/' 3111g11,# 3111g :G : *1F2,1(' 31Ǎ12 :$qGPC :A *1F2,'C1, 311+PK1)# 31212 2C :*G :G#C 3K723S :.G #PC1g =dCOPYRIGHT (C) DGC,1971,1972,1973,1974,1975ALL RIGHTS RESERVED.8 YfPU3 !)cA#C@S\SS)s=v C)s )t)o@Q9mX)lHV  PP "!W2 _9RZ |YW1`CS1$2MHP1GPRF1vPOB0O!PA.9ZJB(U12HU!D (U PPP   :' 8 ;>6w  ! " !  eMEMORY OVERFLOW OR NO F$COM.$$ f$TTOfF$COM.$$9;     H'/G= H'/ H' H/7 H'/1JPق<!J N3#B)CJK'+KCC0V0R03*!0J'C3 L"G#C[P#3 XK 0:KK83J=353<! G.3"J10R ?3B+J;;+J=\S0S!_PSZZ(J#)XB*3 J8SS2SS32 J*8S3"7Ґҕ3'!SK32+ J*8S3#:2 W8S3"K23"@@@32J232 J!3XS8 \S8S)XSCC2S3!XS88S)XS A<.K2 L"+) ? 3:+J=<! N/' /G=\SRJ00 WK  4S8Y A\SS KJKJDS0 Y  4SҊJS4S8SI AS<P<J.KCP N#CP N'G=P N'/Ր@30 G'/7G\V8OW)#<!<P!K B." P BB! B =3iiiiSTOP PAUSE EXIT TV0Z; \[;Z UBJ@J; 9L"K R'SX)C0HV*"TV0Z! < B XU* !@8UXU1 #K@8U<)K2*KJ=C3*7 J8W=<)K2&(!Z\@\22XU8+XU82!\J @UJ2U2UXU83&XU83C UC*KJ)0K!)07]J2WU0XU9 Ɛ8UXU 9P@ @!8U70 2 *Z"*:X8:2! H`:Y:2`yY8 `8 ; CKS1(KK*K@S+K0ҜH`UB# 2,1,SNR 34 05506 000403 JMP SP.10 ;STRIP PTR ONLY 35 05507 006161 JSR @SETPR 36 05510 000407 JMP SP.50 37 38 ;STRIP PRINTER 39 05511 004006 SP.10: JSR BUSY 40 05512 000777 JMP .-1 41 05513 034015 LDA 3,ON ;JMP 1,3 42 05514 054007 STA 3,LINSW ;SET INTERRUPT ROUTINE TO SPACE 43 05515 034014 LDA 3,OFF ;JMP 0,3 44 05516 054006 STA 3,BUSY ;SET BUSY ON 45 46 05517 014404 SP.50: DSZ SP.CN 47 05520 000754 JMP SPAC3 48 05521 002744 JMP @SP.A3 49 50 05522 006432 .CNTF: CNTFL ;CNT/PT FLG 51 05523 000000 SP.CN: 0 ;#OF LINES CTR 52 005465 SP.A3=ED.A3 ;RETURN LINK 53 54 ;********************************************** 55 ;SUBROUTINE OR 56 ;LOGICAL OR AC1 TO AC0 57 ; AC1,AC2 SAVED 58 ;OR 59 05524 044420 JV.16: STA 1,ARTHX 0056 .MAIN 01 05525 124000 COM 1,1 02 05526 123400 AND 1,0 03 05527 122000 ADC 1,0 04 05530 024414 LDA 1,ARTHX 05 05531 001400 JMP 0,3 06  07 08 ;********************************************** 09 ;INTEGER MULTIPLY 10 ;IN AC1,AC2 11 ;OUT AC0 & AC1<- AC1*AC2 12 05532 102460 IMPY1: SUBC 0,0 13 05533 054411 STA 3,ARTHX 14 05534 034174 LDA 3,OM20 15 16 05535 125203 IMPY3: MOVR 1,1,SNC 17 05536 101201 MOVR 0,0,SKP 18 05537 143220 ADDZR 2,0 19 05540 175404 INC 3,3,SZR 20 05541 000774 JMP IMPY3 21 05542 125260 MOVCR 1,1 22 05543 002401 JMP @ARTHX 23  24 05544 000000 ARTHX: 0 ;RETURN LINK 25 ;********************************************** 26 ;INTEGER DIVIDE 27 ;IN: AC0,AC1=DIVIDEND 28 ; AC2=DIVISOR 29 ;OUT: AC0=REMAINDER 30 ; AC1=QUOTIENT 31 ; AC2=SAVED 32 05545 054777 IDIV1: STA 3,ARTHX 33 05546 142432 SUBZ# 2,0,SZC 34 05547 000412 JMP IDIV9 ;OVERFLOW AC0>=AC2 35 05550 034174 LDA 3,OM20 36 05551 125120 MOVZL 1,1 37 38 05552 101100 IDIV5: MOVL 0,0 39 05553 142412 SUB# 2,0,SZC 40 05554 142400 SUB 2,0 41 05555 125100 MOVL 1,1 42 05556 175404 INC 3,3,SZR 43 05557 000773 JMP IDIV5 44 05560 176441 SUBO 3,3,SKP 45 46 05561 176420 IDIV9: SUBZ 3,3 47 05562 002762 JMP @ARTHX 48 ; 49 ; *********************** 50 ; NBCOL - NON BLANK COLUMN 51 ; IF BLANK COLUMN, TAKE NONSKIP RETURN, 52 ; ELSE PROCESS AS NORMAL COLUMN 53 ; 54 05563 030267 NBCL1: LDA 2,ACRDS 55 05564 113000 ADD 0,2 56 05565 031377 LDA 2,-1,2 57 05566 151015 MOV# 2,2,SNR 58 05567 001400 JMP 0,3 59 05570 000403 JMP COLM1 ;SKP CK AN COLM 0057 .MAIN 01 ;********************************************** 02 ;SUBROUTINE COLUM 03 ;CONVERT SINGLE PUNCH (ROW 1-9) INTO AN INTEGER 04 ;IN: AC0=COLUMN NUMBER 1-80 05 ;OUT: AC1=INTEGER 0-9, SKIPS 06 ; TWO OR MORE PUNCHES IS AN ERROR, NO SKIP RETURN 07 08 ;CKCOL- CHECK COLMS FOR AN, IF NOT AN, PROCESS & SKIP 09 05571 030250 CKCO1: LDA 2,M4.15 ;TEST ALL ROW BITS 10 05572 000402 JMP COLM2 ;STORE MASK 11 12 05573 030251 COLM1: LDA 2,M6.15 ;ONLY TEST ROWS 0-9 13 14 05574 050423 COLM2: STA 2,MSKCL ;STORE MASK 15 05575 126400 SUB 1,1 16 05576 030267 LDA 2,ACRDS 17 05577 113000 ADD 0,2 ;CARD COL ADDR 18 05600 021377 LDA 0,-1,2 19 05601 030416 LDA 2,MSKCL ;BITS 0-9 OR 12-9 20 05602 143405 AND 2,0,SNR 21 05603 001401 JMP 1,3 ;RETURN 0,SKIP IF OK 22 05604 030412 LDA 2,O1000 23 24 05605 143414 COLM5: AND# 2,0,SZR 25 05606 000404 JMP COLM7 26 05607 125400 INC 1,1 27 05610 151224 MOVZR 2,2,SZR 28 05611 000774 JMP COLM5 29 30 05612 150000 COLM7: COM 2,2 31 05613 113404 AND 0,2,SZR 32 05614 001400 JMP 0,3 ;ERROR--2 OR MORE ROWS 33 05615 001401 JMP 1,3 ;RETURN NUMBER 34 35 05616 001000 O1000: 1000 36 37 05617 000000 MSKCL: 0 ;COLM MASK 38 ;********************************************** 39 ;SUBROUTINE COLMS 40 ;READ N COLUMNS, BEGINNING WITH COL I (1-80) AND 41 ; SKIPPING EVERY J COLUMNS & CONVERT TO INTEGER 42 ;IN: AC0=I,AC1=N,AC2=J 43 ;OUT: AC0=BINARY NUMBER 44 ;SKIP RET IF NO ERROR 45 05620 054434 COLS1: STA 3,COLSX 46 05621 040431 STA 0,COLSI 47 05622 044427 STA 1,COLSN 48 05623 151400 INC 2,2 49 05624 050427 STA 2,COLSJ 50 05625 176400 SUB 3,3 51 05626 054422 STA 3,COLSA 52 53 05627 020423 COLS3: LDA 0,COLSI 54 05630 006110 JSR @COLUM 55 05631 002423 JMP @COLSX ;ERROR 56 05632 020416 LDA 0,COLSA 57 05633 111000 MOV 0,2 58 05634 103120 ADDZL 0,0 59 05635 143120 ADDZL 2,0 ;*10 0058 .MAIN 01 05636 123000 ADD 1,0 02 05637 040411 STA 0,COLSA 03 05640 034413 LDA 3,COLSJ 04 05641 030411 LDA 2,COLSI 05 05642 173000 ADD 3,2 06 05643 050407 STA 2,COLSI 07 05644 014405 DSZ COLSN 08 05645 000762 JMP COLS3 09 05646 010406 ISZ COLSX 10 05647 002405 JMP @COLSX 11 12 05650 000000 COLSA: 0 ;ACCUMULATOR 13 05651 000000 COLSN: 0 ;# OF COLUMNS TO BE READ 14 05652 000000 COLSI: 0 ;STARTING & CURRENT COLUMN 15 05653 000000 COLSJ: 0 ;# OF COLUMNS TO SKP BETWEEN COLS READ 16 05654 000000 COLSX: 0 ;SUBROUTINE COLMS EXIT 17 18 19 ;********************************************** 20 21 ;SUBROUTINE MOVE 22 ;MOVES WORD STRINGS UNDER COUNT CONTROL 23 ; JSR @MOVE 24 ; STARTING SRC ADDR - 1 25 ; STARTING DESINATION ADDR - 1 26 ; -# OF WORDS 27 28 ;MOVE 29 05655 025400 JV.14: LDA 1,0,3 ;GET SOURCE ADDRESS 30 05656 044020 STA 1,20 ;AUTOINCREMENT 31 05657 025401 LDA 1,1,3 ;GET DESTINATION ADDRESS 32 05660 044021 STA 1,21 ;AUTOINCREMENT 33 05661 025402 LDA 1,2,3 ;GET NEGATIVE OF WORD COUNT 34 05662 125005 MOV 1,1,SNR 35 05663 001403 JMP 3,3 ;ZERO WORDS TO MOVE 36 37 05664 022020 MV.1: LDA 0,@20 ;GET SOURCE WORD 38 05665 042021 STA 0,@21 ;PUT IT AWAY 39 05666 125404 INC 1,1,SZR ;COUNT AND SKIP AT END 40 05667 000775 JMP MV.1 41 05670 001403 JMP 3,3 42 43 44 ;********************************************** 45 46 ;SUBROUTINE MMOVE 47 ;MULTIPLE MOVE 48 49 ;IN: JSR @MMOVE 50 ; SRC DATA WORD 51 ; STARTING DEST ADDR - 1 52 ; - # OF WORDS 53 54 05671 021400 MMOV1: LDA 0,0,3 ;SRC DATA 55 05672 025401 LDA 1,1,3 ;DEST ADDR 56 05673 044021 STA 1,21 57 05674 025402 LDA 1,2,3 ;NEGATIVE WRD CNT 58 05675 042021 STA 0,@21 59 05676 125404 INC 1,1,SZR 0059 .MAIN 01 05677 000776 JMP .-2 02 05700 001403 JMP 3,3 03 04 ;********************************************** 05 ;SUBROUTINE COMPR 06 ;COMPARES WORD STRINGS FOR EQUAL OR NOT EQUAL CONDITION 07 ;CALL: JSR @COMPR 08 ; SRC ADR 09 ; DEST ADR 10 ; -WRD CNT 11 ; MIS-MATCH RETURN 12 ; MATCH RETURN 13 ;CNT=0 => SKIP RETURN 14 15 ;COMPR 16 05701 025400 JV.5: LDA 1,0,3 ;GET FIELD 1 ADDRESS 17 05702 044020 STA 1,20 ;AUTOINCREMENT 18 05703 025401 LDA 1,1,3 ;GET FIELD 2 ADDRESS 19 05704 044021 STA 1,21 ;AUTOINCREMENT 20 05705 031402 LDA 2,2,3 ;GET NEGATIVE OF WORD COUNT 21 05706 151005 MOV 2,2,SNR 22 05707 001404 JMP 4,3 ;NULL STRINGS ALWAYS MATCH 23 05710 022020 CM.1: LDA 0,@20 ;GET FIELD 1 WORD 24 05711 026021 LDA 1,@21 ;GET FIELD 2 WORD 25 05712 106414 SUB# 0,1,SZR ;SKIP IF EQUAL 26 05713 001403 JMP 3,3 ;NOT EQUAL RETURN 27 05714 151404 INC 2,2,SZR ;COUNT AND SKIP AT END 28 05715 000773 JMP CM.1 29 05716 001404 JMP 4,3 30 31 32 33 ;********************************************** 34 ;SUBROUTINE GET1 35 ;SEARCH DATA STRUCTURE FOR THE NEXT ACTIVE POSITION 36 ;BEGINNING WITH (INDX1) 37 ;RETURN WITH INDX1 UPDATED & IN AC2 38 ; FIRST PROGRAM WORD IN AC0 39 40 05717 054433 GET11: STA 3,GETXT 41 05720 030341 GET13: LDA 2,INDX1 42 05721 024201 LDA 1,.Z+DATIL 43 05722 147000 ADD 2,1 44 05723 044341 STA 1,INDX1 45 05724 020340 LDA 0,DATAN 46 05725 112432 SUBZ# 0,2,SZC 47 05726 002424 JMP @GETXT ;END OF DATA 48 05727 021000 LDA 0,PMWRD,2 49 05730 024345 LDA 1,PWACT 50 05731 107415 AND# 0,1,SNR 51 05732 000766 JMP GET13 52 05733 025001 LDA 1,PMWRD+1,2 53 ; 54 ;CHECK FOR SPCL PASS 2 SKIP SITUATIONS 55 05734 034032 LDA 3,SWPAS 56 05735 175415 INC# 3,3,SNR 57 05736 000412 JMP GETRT ;NO SKP,-> SUCCESS EXIT 58 59 ;SKIP OFC DEPENDING ON TYPE INDICATED BY SWPAS 0060 .MAIN 01 05737 175220 MOVZR 3,3 ;C<- SWITCH 02 05740 034345 LDA 3,PWPAS ;PASS INDICATOR BIT 03 05741 175012 MOV# 3,3,SZC 04 05742 000404 JMP GET12 ;SKP NON-SPCL PASS 2 OFCS 05 06 ;C=0-> SWPAS=0,SKIP ALL SPCL PASS 2 OFCS 07 05743 137414 AND# 1,3,SZR 08 05744 000754 JMP GET13 ;SPCL PASS 2 OFC,SKP 09 05745 000403 JMP GETRT ;->SUCCESS EXIT 10 11 ;C=1-> SWPAS=1, SKIP ALL NON-SPCL PASS 2 OFCS 12 05746 137415 GET12: AND# 1,3,SNR 13 05747 000751 JMP GET13 ;NON-SPCL PASS 2 OFC,SKP 14 05750 010402 GETRT: ISZ GETXT ;SET UP & TAKE 15 05751 002401 JMP @GETXT ; SUCCESS EXIT 16 17 05752 000000 GETXT: 0 ;EXIT 18 19 20 ;********************************************** 21 ;SUBROUTINE GET2 22 ;SAME AS GET1 BUT USING INDX2 23 24 05753 054777 GET21: STA 3,GETXT 25 05754 030342 GET23: LDA 2,INDX2 26 05755 024201 LDA 1,.Z+DATIL 27 05756 147000 ADD 2,1 28 05757 044342 STA 1,INDX2 29 05760 020340 LDA 0,DATAN 30 05761 112432 SUBZ# 0,2,SZC 31 05762 002770 JMP @GETXT ;END OF DATA 32 05763 021000 LDA 0,PMWRD,2 33 05764 024345 LDA 1,PWACT 34 05765 107415 AND# 0,1,SNR 35 05766 000766 JMP GET23 36 05767 025001 LDA 1,PMWRD+1,2 37 ; 38 ;CHECK FOR SPCL PASS 2 SITUATIONS 39 05770 034032 LDA 3,SWPAS 40 05771 175415 INC# 3,3,SNR 41 05772 000756 JMP GETRT ;NO SKP-> SUCCESS EXIT 42 43 ;SKIP OFC DEPENDING ON SWPAS 44 05773 175220 MOVZR 3,3 ;C<- SWITCH 45 05774 034345 LDA 3,PWPAS 46 05775 175012 MOV# 3,3,SZC 47 05776 000404 JMP GET22 ;SKP NON-SPCL OFCS 48 49 ;SKIP ALL SPCL PASS 2 OFCS 50 05777 137414 AND# 1,3,SZR 51 06000 000754 JMP GET23 ;SPCL PASS 2 OFC,SKIP 52 06001 000747 JMP GETRT ;-> SUCCESS EXIT 53 54 ;SKIP ALL NON-SPCL PASS 2 OFCS 55 06002 137415 GET22: AND# 1,3,SNR 56 06003 000751 JMP GET23 ;NON-SPCL OFC,SKIP 57 06004 000744 JMP GETRT ;-> SUCCESS EXIT 58 59 0061 .MAIN 01 ;********************************************** 02 03 04 ;SUBROUTINE GET3 05 ;TEST PROGRAM BITS OF A PARTICULAR ENTRY 06 ;IN: AC0,AC1(0-7)=BITS TO TEST 07 ; AC2=VOTOMATIC POSITION (1-312) 08 ;OUT: SKIPS IF ANY OF THE SELECTED BITS ARE ON 09 10 06005 040422 GET31: STA 0,GET3A 11 06006 044422 STA 1,GET3A+1 12 06007 054422 STA 3,GET3A+2 13 06010 024201 LDA 1,.Z+DATIL 14 06011 006131 JSR @IMPY 15 06012 030337 LDA 2,DATAV 16 06013 133000 ADD 1,2 17 06014 025375 LDA 1,PMWRD-DATIL,2 18 06015 020412 LDA 0,GET3A 19 06016 107414 AND# 0,1,SZR 20 06017 000406 JMP GET39 ;SKIP EXIT 21 06020 025376 LDA 1,PMWRD+1-DATIL,2 22 06021 034243 LDA 3,M0.7 23 06022 167400 AND 3,1 24 06023 020405 LDA 0,GET3A+1 25 06024 107414 AND# 0,1,SZR 26 27 06025 010404 GET39: ISZ GET3A+2 28 06026 002403 JMP @GET3A+2 29 30 000003 GET3A: .BLK 3 ;3 WORD SAVE AREA 31 ;********************************************** 32  ; 33 ;MSG--ERROR MSG AND GO TO WAIT 34 ; 35 ; 36 06032 020027 MSG1: LDA 0,STVAR 37 06033 030201 LDA 2,.Z+STCNT 38 06034 024202 LDA 1,.Z+STERR 39 06035 142414 SUB# 2,0,SZR 40 06036 044027 STA 1,STVAR 41 06037 021400 JV.15: LDA 0,0,3 42 06040 040402 STA 0,.+2 43 06041 006140 JSR @MSGSR 44 06042 000000 0 45 06043 002171 JMP @WAIT 46 47 ;********************************************** 48 ;SUBROUTINE MESSAGE 49  ;PRINTS 4 DIGIT MESSAGE IN RED 50 51 52 06044 054424 MSGS1: STA 3,MSGX 53 06045 006150 JSR @PPRCN ;GET PREC ID &TIME 54 06046 006153 JSR @PTRED 55 06047 036421 LDA 3,@MSGX ;GET ARG 56 06050 054312 STA 3,STRNG ;PRINT AREA 57 06051 036421 LDA 3,@OCELL 58 06052 054316 STA 3,STRNG+4 59 06053 034420 LDA 3,MMINS 0062 .MAIN 01 06054 054313 STA 3,STRNG+1 02 06055 054314 STA 3,STRNG+2 03 06056 054315 STA 3,STRNG+3 04 06057 020412 LDA 0,MSGSG 05 06060 040323 STA 0,TXTPT 06 06061 006153 JSR @PTRED 07 06062 020210 LDA 0,.Z+10. 08 06063 006141 JSR @MSPAC 09 06064 034175 LDA 3,.Z-1 10 06065 056405 STA 3,@OCELL 11 06066 010402 ISZ MSGX 12 06067 002401 JMP @MSGX 13 14 06070 000000 MSGX: 0 ;RET ADDR FOR ARG 15 16 06071 027620 MSGSG: ERMSG*2 17 06072 002444 OCELL: OPCEL 18 06073 135673 MMINS: 135673 19 20 ;********************************************** 21 ;PTRED--SEIKO PRINTER DELAY, 22  ;TURN ON RED RIBBON AND PRINT 23 24 06074 054414 PTRD1: STA 3,PTRDX 25 06075 034371 LDA 3,POPT 26 06076 035402 LDA 3,POLPT+2,3 27 06077 030204 LDA 2,.Z+6 28 06100 156415 SUB# 2,3,SNR 29 06101 000405 JMP PTRD8 ;NOT SEIKO 30 06102 004006 JSR BUSY 31 06103 000777 JMP .-1 32 06104 034015 LDA 3,ON 33 06105 054023 STA 3,REDSW 34 06106 006161 PTRD8: JSR @SETPR 35 06107 002401 JMP @PTRDX 36 37 06110 000000 PTRDX: 0 38 39 ;********************************************** 40 ;SUBROUTINE B.BCD 41 ;CONVERTS WORD TO POSITIVE DECIMAL NUMBER MODULO 65536 42 ;IN: AC1 43 ;OUT: AC0 44 45 ;B.BCD 46 06111 054432 JV.3: STA 3,BD.A3 47 06112 050432 STA 2,BD.A2 48 06113 102400 SUB 0,0 49 06114 040302 STA 0,BD.TT ;TEN THOUSANDS DIGIT 50 06115 030173 LDA 2,OM4 ;-4 51 52 06116 035037 LDA 3,TENS+1,2 ;POWER OF TEN 53 06117 166433 BD.2: SUBZ# 3,1,SNC ;TEST SUBTRACTION 54 06120 000416 JMP BD.1 55 06121 166400 SUB 3,1 ;OK TO SUBTRACT 56 06122 010302 ISZ BD.TT ;ANOTHER TEN THOUSAND 57 06123 000774 JMP BD.2 58 59 06124 035037 BD.3: LDA 3,TENS+1,2 ;POWER OF TEN 0063 .MAIN 01 06125 166433 BD.4: SUBZ# 3,1,SNC ;TEST SUBTRACTION 02 06126 000404 JMP BD.5 03 06127 166400 SUB 3,1 ;OK TO SUBTRACT 04 06130 101400 INC 0,0 ;DEVELOP DECIMAL DIGIT 05 06131 000774 JMP BD.4 06 07 06132 101120 BD.5: MOVZL 0,0 ;SHIFT LEFT INSERT ZERO 08 06133 101120 MOVZL 0,0 09 06134 101120 MOVZL 0,0 10 06135 101120 MOVZL 0,0 11 06136 151404 BD.1: INC 2,2,SZR ;NEXT POWER OF TEN 12 06137 000765 JMP BD.3 13 14 06140 123000 ADD 1,0 ;ADD UNITS DIGIT 15 06141 030403 LDA 2,BD.A2 16 06142 002401 JMP @BD.A3 17 18 06143 000000 BD.A3: 0 19 06144 000000 BD.A2: 0 20 21 22 ;********************************************** 23 ;RDBUT--READ BUTTONS FOR CLEAR AND ROLL 24 ;DOES SPACING INTERNALLY 25 ;OUT: AC0=BUTTON PATTERN 26 ;RETURN+1 = ROLL 27 ;RETURN+2 = READ 28 ;DOES NOT RETURN WHEN OTHER BUTTONS 29 ;ARE PUSHED 30 ; 31 06145 054454 RDBT1: STA 3,RDBTX 32 06146 062430 RDBT2: DIC 0,30 33 06147 101014 MOV# 0,0,SZR 34 06150 000776 JMP RDBT2 ;WAIT FOR BUTTON TO CLEAR 35 ; 36 06151 063610 RDBT5: SKPDN TTI 37 06152 000403 JMP RDBT3 38 06153 060510 DIAS 0,TTI 39 06154 000411 JMP RDBT4 40  ; 41 06155 063634 RDBT3: SKPDN MUX 42 06156 000423 JMP RDBT6 43 ; 44 ;READ CHAR FROM MUX 45 06157 074434 DIA 3,MUX 46 06160 060234 NIOC MUX 47 06161 030204 LDA 2,.Z+6 48 06162 061434 DIB 0,MUX 49 06163 172414 SUB# 3,2,SZR 50 06164 000415 JMP RDBT6 ;USING MAX LINE 51 ; 52 06165 030413 RDBT4: LDA 2,UCMK 53 06166 113400 AND 0,2 54 06167 020407 LDA 0,CHRA 55 06170 112415 SUB# 0,2,SNR 56 06171 002430 JMP @RDBTX ;ROLL 57 06172 020405 LDA 0,CHRR 58 06173 112415 SUB# 0,2,SNR 59 06174 000423 JMP RDBT9 ;READ 0064 .MAIN 01 06175 000415 JMP RDBT8 ;SPACE OTHERWISE 02 ; 03 06176 000101 CHRA: "A 04 06177 000122 CHRR: "R 05 06200 000137 UCMK: 137 06 ; 07 06201 062430 RDBT6: DIC 0,30 08 06202 101015 MOV# 0,0,SNR 09 06203 000746 JMP RDBT5 ;WAIT FOR BUTTON TO BE PUSHED 10 06204 034350 LDA 3,MSKRL 11 06205 117414 AND# 0,3,SZR 12 06206 002413 JMP @RDBTX ;ROLL BUTTON 13 ; 14 ;SPACE PAPER? 15 06207 034351 LDA 3,MSKCP 16 06210 117415 AND# 0,3,SNR 17 06211 000403 JMP .+3 18 06212 006164 RDBT8: JSR @SPACE 19 06213 000733 JMP RDBT2 20 ; 21 ;CLEAR BUTTON? 22 06214 034346 LDA 3,MSRD 23 06215 117415 AND# 0,3,SNR 24 06216 000730 JMP RDBT2 ;NO 25 06217 010402 RDBT9: ISZ RDBTX 26 06220 002401 JMP @RDBTX 27 ; 28 06221 000000 RDBTX: 0 29 ; 30 000350 MSKRL=PWEND ;ROLL MASK BUTTON 31 000346 MSRD=PWVOT ;READ BUTTON 32 000351 MSKCP=PWROT ;SPACE BUTTON 33 ; 34 ;********************************************** ^ 0065 .MAIN 01 ; SEGMENT #9 02 03 04 05 ;SUBROUTINE C.BCD 06 ;4 CARD COLUMNS AT ARGUMENT ARE CONVERTED TO BCD WORD 07 ;OUT: AC0 08 09 ;C.BCD 10 06222 054432 JV.7: STA 3,CB.A3 11 06223 050430 STA 2,CB.A2 12 06224 021400 LDA 0,0,3 ;ARGUMENT 13 06225 040430 STA 0,CB.RG ;COLUMN ADDRESS VARIABLE 14 06226 152400 SUB 2,2 ;INITIALIZE TO 0 15 06227 020173 LDA 0,OM4 ;-4 16 06230 040426 STA 0,CB.CC ;COLUMN COUNT VARIABLE 17 18 06231 024207 CB.3: LDA 1,O11 ;DECIMAL 9 19 06232 036423 LDA 3,@CB.RG ;GET COLUMN 20 06233 175222 CB.2: MOVZR 3,3,SZC ;SKIP IF NO PUNCH 21 06234 000404 JMP CB.1 22 06235 146022 ADCZ 2,1,SZC ;ADD -1 23 06236 000775 JMP CB.2 24 06237 024215 LDA 1,O17 ;BLANK COLUMN 25 26 06240 101120 CB.1: MOVZL 0,0 ;SHIFT LEFT INSERT ZERO 27 06241 101120 MOVZL 0,0 28 06242 101120 MOVZL 0,0 29 06243 101120 MOVZL 0,0 30 06244 006146 JSR @OR ;OR AC1 TO AC0 31 06245 010410 ISZ CB.RG ;NEXT COLUMN 32 06246 010410 ISZ CB.CC ;COUNT COLUMNS,SKIP AFTER 4 33 06247 000762 JMP CB.3 34 35 06250 030403 LDA 2,CB.A2 36 06251 034403 LDA 3,CB.A3 37 06252 001401 JMP 1,3 ;RETURN PAST ARGUMENT 38 39 06253 000000 CB.A2: 0 40 06254 000000 CB.A3: 0 41 06255 000000 CB.RG: 0 42 06256 000000 CB.CC: 0 43 44 ;********************************************** 45 46 47 ;SUBROUTINE DISTRIBUTE 48 ;SETS AND CLEARS BITS IN THE PROGRAM DATA WORDS 49 ;TO REFLECT PUNCHING IN BALLOTS AND PROGRAM CARDS 50 51 ;IN: AC0,AC1(0-7)=BIT ON MASK 52 ; AC2,AC1(8-15)=BIT SAVE MASK 53 54 ;DISTR 55 06257 054775 JV.8: STA 3,DR.A3 56 06260 050503 STA 2,DR.AN ;BIT SAVE MASK 57 06261 040504 STA 0,DR.OR ;BIT ON MASK 58  59 06262 020243 LDA 0,M0.7 0066 .MAIN 01 06263 123400 AND 1,0 02 06264 040502 STA 0,DR.OR+1 03 06265 020226 LDA 0,O377 04 06266 107700 ANDS 0,1 05 06267 107000 ADD 0,1 06 06270 044474 STA 1,DR.AN+1 07 ; 08 06271 020337 LDA 0,DATAV ;ADDRESS OF DATA FILE 09 06272 040343 STA 0,INDX3 10 11 06273 020262 LDA 0,VMAP1 ;COLUMN ADDRESS 12 06274 034263 LDA 3,VMAP2 ;ROW COUNT 13 14 06275 040020 STA 0,20 ;AUTOINCREMENT 15 06276 054021 STA 3,21 ;AUTOINCREMENT 16 17 06277 030266 LDA 2,VMAP6 ;MASK PUNCH TEST 18 19 06300 022020 DR.2: LDA 0,@20 ;FIRST COLUMN IN ROW 20 06301 040030 STA 0,30 ;AUTODECREMENT 21 06302 022021 LDA 0,@21 ;POSITION COUNT FOR ROW 22 06303 040464 STA 0,DR.CL ;POSITION VARIABLE 23 24 ;TEST FOR CARD COLUMN PUNCHED 25 06304 036030 DR.3: LDA 3,@30 26 06305 157415 AND# 2,3,SNR 27 06306 000423 JMP DR.4 ;NO 28 29 06307 034343 DR.6: LDA 3,INDX3 30 06310 021400 LDA 0,PMWRD,3 31 06311 025401 LDA 1,PMWRD+1,3 32 33 ;UNWANTED BITS OFF 34 06312 034451 LDA 3,DR.AN 35 06313 163400 AND 3,0 36 06314 034450 LDA 3,DR.AN+1 37 06315 167400 AND 3,1 38 39 ;SET BITS ON 40 06316 034447 LDA 3,DR.OR 41 06317 174000 COM 3,3 42 06320 163400 AND 3,0 43 06321 162000 ADC 3,0 44 06322 034444 LDA 3,DR.OR+1 45 06323 174000 COM 3,3 46 06324 167400 AND 3,1 47 06325 166000 ADC 3,1 48 49 ;REPLACE PROGRAM WORDS 50 06326 034343 LDA 3,INDX3 51 06327 041400 STA 0,PMWRD,3 52 06330 045401 STA 1,PMWRD+1,3 53 54 ;NEXT 'DATA' ENTRY 55 06331 034343 DR.4: LDA 3,INDX3 56 06332 020201 LDA 0,.Z+DATIL 57 06333 117000 ADD 0,3 58 06334 054343 STA 3,INDX3 59 06335 020340 LDA 0,DATAN 0067 .MAIN 01 06336 116432 SUBZ# 0,3,SZC 02 06337 000421 JMP DR.5 ;DONE 03 04 ;SPACE TO NEXT COLUMN 05 06340 020264 LDA 0,VMAP3 06 06341 024030 LDA 1,30 07 06342 107000 ADD 0,1 08 06343 044030 STA 1,30 09 06344 014423 DSZ DR.CL ;POSITION COUNT FOR ROW 10 06345 000737 JMP DR.3 11 12 ;SHIFT PUNCH MASK FOR NEXT ROW 13 06346 020265 LDA 0,VMAP5 14 15 06347 105123 MOVZL 0,1,SNC 16 06350 100400 NEG 0,0 17 18 06351 125132 DR.8: MOVZL# 1,1,SZC 19 06352 151221 MOVZR 2,2,SKP 20 06353 151120 MOVZL 2,2 21 06354 101404 INC 0,0,SZR 22 06355 000774 JMP DR.8 23 24 06356 151014 DR.9: MOV# 2,2,SZR 25 06357 000721 JMP DR.2 26 27 06360 034014 DR.5: LDA 3,OFF 28 06361 054344 STA 3,SPESW 29 06362 002672 JMP @DR.A3 30 31 006254 DR.A3=CB.A3 ;RETURN LOC 32 06363 000000 DR.AN: 0 33 06364 000000 0 34 06365 000000 DR.OR: 0 35 06366 000000 0 36 06367 000000 DR.CL: 0 37 ; 38 ; 39 ;********************************************** 40 ;SUBROUTINE PRINT 41 ;PRINTS THE 21 DIGITS IN STRING & 42 ;TEXT IN TSTRG 43  ;CLEARS PRINT AREA TO BLANKS (-1'S) AFTERWARDS 44 ; 5=SEIKO 45 ; 6=TALLY 46 ; 7=COMBINATION 47 ; 48 49 ;PRINT 50 06370 054437 PRT.0: STA 3,PR.A3 51 06371 030441 LDA 2,CNTFL 52 06372 151014 MOV# 2,2,SZR 53 06373 000403 JMP PRT01 ;PRINT 54 06374 010437 ISZ CNTLN ;COUNT 55 06375 000541 JMP PRT55 ;CLEAR STRING AREA 56 06376 034371 PRT01: LDA 3,POPT 57 06377 021402 LDA 0,POLPT+2,3 58 06400 024205 LDA 1,.Z+7 59 06401 106414 SUB# 0,1,SZR 0068 .MAIN 01 06402 000405 JMP PRT20 02 03 ;PRINT OPTION #7 04 06403 020326 LDA 0,LNUM 05 06404 101415 INC# 0,0,SNR 06 06405 000447 JMP PRT41 ;NOT REPORT 07 06406 000404 JMP PRT.8 ;REPORT 08 09 06407 024203 PRT20: LDA 1,.Z+5 10 06410 106415 SUB# 0,1,SNR 11 06411 000433 JMP PRT40 ;STRIP LPT ONLY 12 13 ;TALLY 14 06412 020322 PRT.8: LDA 0,ATSTR ;ADDR OF TLY STRING 15 06413 034412 LDA 3,D132 ;CTR- # OF CHRS IN BUFFER 16 06414 054412 STA 3,TSTCT 17 18 06415 006121 PRT87: JSR @GCHR 19 06416 111400 INC 0,2 20 06417 121000 MOV 1,0 21 06420 006414 JSR @LPTCH 22 06421 141000 MOV 2,0 23 06422 014404 DSZ TSTCT 24 06423 000772 JMP PRT87 25 06424 000411 JMP PRT15 26 06425 000204 D132: 132. 27 28 06426 000000 TSTCT: 0 ;TALLY STRING CTR 29 06427 000000 PR.A3: 0 30 06430 177737 PRESC: -41 ;-(PRE-LINE SPACE COUNT) 31 06431 000145 D101: 145 32 06432 000001 CNTFL: 1 ;COUNT FLAG 0=CNT/1=PRT 33 06433 000000 CNTLN: 0 ;LINE CTR FOR OFFICE SIZING 34 06434 013717 LPTCH: LPTC1 35 36 06435 020213 PRT15: LDA 0,CHRCR 37 06436 006776 JSR @LPTCH 38 06437 020210 LDA 0,CHRLF 39 06440 006774 JSR @LPTCH 40 41 ;TALLY LINE COUNTER 42 06441 020326 LDA 0,LNUM 43 06442 101404 INC 0,0,SZR 44 06443 040326 STA 0,LNUM 45 46 ;********************************************** 47 48 ;SEIKO STRIP PRINTER OUTPUT 49 06444 034371 PRT40: LDA 3,POPT 50 06445 021402 LDA 0,POLPT+2,3 51 06446 024205 LDA 1,.Z+7 52 06447 106415 SUB# 0,1,SNR 53 06450 000466 JMP PRT55 ;MODE 7, REPORT 54 06451 024204 LDA 1,.Z+6 55 06452 106415 SUB# 0,1,SNR 56 06453 000463 JMP PRT55 ;A/N LPT ONLY 57 58 06454 004006 PRT41: JSR BUSY ;SKIP IF NOT BUSY 59 06455 000777 JMP .-1 0069 .MAIN 01 06456 020202 LDA 0,O4 ;OCTAL 4 02 06457 040473 STA 0,FOUR ;INIT. WORD COUNT 03 06460 101120 MOVZL 0,0 ;OCTAL 10 04 06461 040476 STA 0,EIGHT ;INIT. WORD COUNT 05 06462 020471 LDA 0,ASTR7 ;ADDRESS STRNG+7 06 06463 040471 STA 0,A.STR ;ADDRESS VARIABLE 07 06464 020474 LDA 0,DM31 ;DECIMAL -31 08 06465 040470 STA 0,MTX.X ;INDEX TO MTX 09 10 06466 020202 PRT.4: LDA 0,O4 11 06467 040467 STA 0,CH.CT ;COUNT CHARS./WORD 12 06470 026464 LDA 1,@A.STR ;LOAD WORD FROM STRING 13 14 06471 034464 PRT.3: LDA 3,MTX.X ;INITIALIZE MTX INDEX 15 06472 030215 LDA 2,O17 ;MASK 16 06473 147400 AND 2,1 ;SAVE LOW ORDER CHAR. 17 06474 152400 SUB 2,2 ;DIGIT COMPARATOR TO 0. 18 19 06475 021477 PRT.1: LDA 0,MTX,3 ;LOAD A MTX WORD 20 06476 132414 SUB# 1,2,SZR ;COMPARE CHAR & COUNT 21 06477 101221 MOVZR 0,0,SKP ;ZERO INTO LEFT SIDE 22 06500 101240 MOVOR 0,0 ;ONE INTO LEFT SIDE 23 06501 041477 STA 0,MTX,3 ;SAVE SHIFTED WORD 24 06502 175404 INC 3,3,SZR ;ADVANCE MTX INDEX 25 06503 175405 INC 3,3,SNR ;ADVANCE MTX INDEX 26 06504 000403 JMP PRT.2 ;MTX INDEX=0 27 06505 151400 INC 2,2 ;DIGIT COMPARATOR 28 06506 000767 JMP PRT.1 ;ITERATE LOOP 29 06507 026445 PRT.2: LDA 1,@A.STR ;WORD FROM STRNG 30 06510 125220 MOVZR 1,1 ;SHIFT RIGHT ONE CHAR. 31 06511 125220 MOVZR 1,1 32 06512 125220 MOVZR 1,1 33 06513 125220 MOVZR 1,1 34 06514 046440 STA 1,@A.STR ;SAVE SHIFTED RESULT 35 36 06515 014441 DSZ CH.CT ;DECREMENT CH.CT,SKIP 0 37 06516 000753 JMP PRT.3 38 06517 014435 DSZ A.STR ;INDEX TO NEXT STRNG WORD 39 06520 014437 DSZ EIGHT ;SKIP IF 8 WORDS DONE 40 06521 000402 JMP .+2 41 06522 000405 JMP PRT.5 42 06523 014427 DSZ FOUR ;SKIP IF 4 WORDS DONE 43 06524 000742 JMP PRT.4 ;DO NEXT WORD 44 45 06525 014430 DSZ MTX.X ;INDEX TO COL. 1-16 IN MTX 46 06526 000740 JMP PRT.4 ;DO NEXT WORD 47 48 06527 102400 PRT.5: SUB 0,0 ;BLANKS 49 06530 040076 STA 0,MTX-1 50 06531 040075 STA 0,MTX-2 51 52 06532 020015 LDA 0,ON 53 06533 040022 STA 0,PRTSW ;START PRINT 54 06534 020014 LDA 0,OFF 55 06535 040006 STA 0,BUSY ;SET BUSY ON 56 57 06536 020325 PRT55: LDA 0,A.Z 58 06537 040323 STA 0,TXTPT 59 06540 040324 STA 0,TXTPT+1 0070 .MAIN 01 06541 006135 JSR @MMOVE ;CLEAR PRINT AREA 02 06542 177777 -1 ;4 BLANK CHARS 03 06543 000311 STRNG-1 ;PRINT AREA 04 06544 177770 -10 ;NEGATIVE OF WORD COUNT 05 06545 006135 JSR @MMOVE ;CLEAR TLY STRING BUFFER 06 06546 020040 20040 ;2 ASCII BLANKS 07 06547 016770 TSTRG-1 ;TLY STRNG BUFR 08 06550 177676 -102 ;-WD CNT 09 06551 002656 JMP @PR.A3 10 11 06552 000000 FOUR: 0 12 06553 000321 ASTR7: STRNG+7 13 06554 000000 A.STR: 0 14 06555 000000 MTX.X: 0 15 06556 000000 CH.CT: 0 16 06557 000000 EIGHT: 0 17 06560 177741 DM31: -37 18 19 20 ;SET UP TSTRG,UNLESS MODE 5 21 06561 054410 SETPA: STA 3,SETPX 22 06562 034371 LDA 3,POPT 23 06563 031402 LDA 2,POLPT+2,3 24 06564 034203 LDA 3,.Z+5 25 06565 156414 SUB# 2,3,SZR 26 06566 002402 JMP @ASETP 27 06567 002402 SETPB: JMP @SETPX 28 29 06570 013133 ASETP: SETP1 30 06571 000000 SETPX: 0 ;EXIT 31  32 ;SETUP, THEN PRINT 33 06572 054404 STPRI: STA 3,STP1X 34 06573 006162 JSR @SETUP 35 06574 006151 JSR @PRINT 36 06575 002401 JMP @STP1X 37 38 06576 000000 STP1X: 0 ;EXIT 39 40 ;********************************************** 41 42 43 ;SUBROUTINE LINE 44 ;HANDLES VOTE TOTAL AND PERCENTAGE 45 ;IN: AC0, AC1=CANDIDATE VOTE 46 ; AC2='DATA' ADDRESS 47  48 ;LINE 49 06577 054514 JV.12: STA 3,LN.A3 50 06600 040511 STA 0,LN.A1 51 06601 044511 STA 1,LN.A1+1 52 06602 031375 LDA 2,PMWRD-DATIL,2 53 06603 034354 LDA 3,PWILL 54 55 ;TEST FOR APPORTIONED VOTING 56 06604 173425 ANDZ 3,2,SNR 57 06605 000404 JMP LN.09 58 06606 101220 MOVZR 0,0 59 06607 125200 MOVR 1,1 0071 .MAIN 01 06610 151100 MOVL 2,2 02 03 06611 006166 LN.09: JSR @STUFF ;VOTE TOTAL TO LINE 04 06612 036476 LDA 3,@APRS3 05 06613 175014 MOV# 3,3,SZR 06 06614 000573 JMP LN.31 07 08 ; 09 06615 020311 LDA 0,LS.TV ;OFFICE TOTAL VOTE 10 06616 024312 LDA 1,LS.TV+1 11 06617 107015 ADD# 0,1,SNR ;TEST FOR ZERO DIVISOR 12 06620 000567 JMP LN.31 13 14 15 ;COMPUTE PERCENTAGE 16 06621 006466 JSR @ASWOV ;CK OV SW 17 06622 000406 JMP LN09A ;NOT OV 18 19 ;OV, IF OPT 144,SKIP % 20 06623 034371 LDA 3,POPT 21U06624 031402 LDA 2,POVUV+2,3 22U06625 035401 LDA 3,POVUV+1,3 23 06626 156414 SUB# 2,3,SZR 24 06627 000560 JMP LN.31 ;OPT 144 --> NO % 25 26 06630 020461 LN09A: LDA 0,LN.A1 27 06631 024461 LDA 1,LN.A1+1 28 06632 034371 LDA 3,POPT 29U06633 031402 LDA 2,POPCT+2,3 30U06634 035401 LDA 3,POPCT+1,3 31 06635 156415 SUB# 2,3,SNR 32 06636 000411 JMP LN09B ;STD % 33 34 ;OPT 141, % REFLECTS VA 35 06637 121000 MOV 1,0 36U06640 030000 LDA 2,LS.VA 37 06641 006131 JSR @IMPY ;HI ORDER VOTE 38 06642 044452 STA 1,HOVOT ;SAVE IT 39 06643 024447 LDA 1,LN.A1+1 40 06644 006131 JSR @IMPY ;LO ORDER VOTE 41 06645 034447 LDA 3,HOVOT 42 06646 163000 ADD 3,0 ;-->VOTES * VA 43 44 ;RESUME % CALCULATION 45 06647 030311 LN09B: LDA 2,LS.TV 46 06650 034312 LDA 3,LS.TV+1 47 48 ;RIGHT NORMALIZE 49 06651 151015 LN.10: MOV# 2,2,SNR 50 06652 000406 JMP LN.20 51 06653 101220 MOVZR 0,0 52 06654 125200 MOVR 1,1 53 06655 151220 MOVZR 2,2 54 06656 175200 MOVR 3,3 55 06657 000772 JMP LN.10 56 57 06660 054431 LN.20: STA 3,LN.A1 58 06661 030033 LDA 2,D10K 59 06662 006131 JSR @IMPY ;CANDIDATE VOTE * 1000 0072 .MAIN 01 06663 030426 LDA 2,LN.A1 02 06664 006130 JSR @IDIV ;@/TOTAL VOTE = % * 10 03 06665 034203 LDA 3,.Z+5 ;ROUND UP TO NX TENTH 04 06666 167000 ADD 3,1 05 06667 102400 SUB 0,0 06 06670 030210 LDA 2,.Z+12 07 06671 006130 JSR @IDIV ;SHF RT 1 DEC PLACE 08 06672 034034 LDA 3,D1K 09 10 ; % >100? 11 06673 166433 SUBZ# 3,1,SNC 12 06674 000452 JMP LN.30 ;NO: <100% 13 06675 166032 ADCZ# 3,1,SZC 14 06676 000417 JMP LN.32 ;>100% 15 16 ;100 PERCENT 17 06677 020314 LN.21: LDA 0,STRNG+2 18 06700 024214 LDA 1,.Z+16 19 06701 122400 SUB 1,0 20 06702 040314 STA 0,STRNG+2 21 06703 020403 LDA 0,P100. 22 06704 040315 STA 0,STRNG+3 23 06705 000502 JMP LN.31 24 25 06706 000317 P100.: 317 ;"00.BLANK" 26U06707 000000 ASWOV: SW.OV 27U06710 000000 APRS3: PRESF 28 06711 000000 LN.A1: 0 29 06712 000000 0 30 06713 000000 LN.A3: 0 31 06714 000000 HOVOT: 0 ;HI ORDER VOTE SAVE 32 33 ;>100%, IF OPT 141 THEN PROCESS, ELSE IGNORE 34 06715 034371 LN.32: LDA 3,POPT 35U06716 031402 LDA 2,POPCT+2,3 36U06717 035401 LDA 3,POPCT+1,3 37 06720 156415 SUB# 2,3,SNR 38 06721 000466 JMP LN.31 ;NO OPT 141,IGNORE 39 40 ;OPT 141,PROCESS % 41 06722 030210 LDA 2,.Z+12 ;(% * 10)/10 --> 42 06723 006130 JSR @IDIV ;NO DECIMAL FRACTION 43 06724 006103 JSR @B.BCD ;--> "0%%%" 44 06725 101140 MOVOL 0,0 45 06726 101140 MOVOL 0,0 46 06727 101120 MOVZL 0,0 47 06730 101120 MOVZL 0,0 ;--> "%%%." 48 06731 126400 SUB 1,1 49 06732 034173 LDA 3,OM4 50 51 06733 101140 LN32A: MOVOL 0,0 ;GENERATE "%%.$" 52 06734 125100 MOVL 1,1 53 06735 175404 INC 3,3,SZR 54 06736 000775 JMP LN32A 55 06737 040315 STA 0,STRNG+3 56 06740 034174 LDA 3,OM20 ;MASK 177760 57 06741 020314 LDA 0,STRNG+2 58 06742 163400 AND 3,0 59 06743 123000 ADD 1,0 ;--> "VV$%"  0073 .MAIN 01 06744 040314 STA 0,STRNG+2 02 06745 000442 JMP LN.31 03 04 05 06746 006103 LN.30: JSR @B.BCD ;CONVERT TO BCD IN AC0 06 06747 006115 JSR @EDIT ;REMOVE LEADING ZEROS 07 06750 101300 MOVS 0,0 08 06751 040454 STA 0,LN.A0 ;SAVE REVERSED DIGITS 09 06752 034215 LDA 3,O17 10 06753 163400 AND 3,0 11 06754 024314 LDA 1,STRNG+2 12 06755 034174 LDA 3,OM20 ;MASK 177760 13 06756 167400 AND 3,1 14 06757 006146 JSR @OR ;OR AC1 TO AC0 15 06760 040314 STA 0,STRNG+2 ;DIGITS 1 AND 2 16 17 06761 024444 LDA 1,LN.A0 18 06762 034173 LDA 3,OM4 ;SHIFT COUNT 19 06763 125100 MOVL 1,1 20 06764 101100 MOVL 0,0 21 06765 175404 INC 3,3,SZR 22 06766 000775 JMP .-3 23 06767 101140 MOVOL 0,0 ;SHIFT IN DECIMAL POINT (1100) 24 06770 101140 MOVOL 0,0 25 06771 101120 MOVZL 0,0 26 06772 101120 MOVZL 0,0 27 28 06773 034433 LDA 3,OM10 29 06774 125100 MOVL 1,1 30 06775 101100 MOVL 0,0 31 06776 175404 INC 3,3,SZR 32 06777 000775 JMP .-3 33  34 07000 034174 LDA 3,OM20 ;MASK 177760 35 07001 163400 AND 3,0 36 07002 024315 LDA 1,STRNG+3 37 07003 174000 COM 3,3 ;MASK 000017 38 07004 167400 AND 3,1 39 07005 006146 JSR @OR ;OR AC1 TO AC0 40 07006 040315 STA 0,STRNG+3 41 ; 42 ;DIFF DATA FIELD ORDER? 43 07007 034371 LN.31: LDA 3,POPT 44U07010 031401 LDA 2,PODFO+1,3 45U07011 035402 LDA 3,PODFO+2,3 46 07012 156415 SUB# 2,3,SNR 47 07013 000411 JMP LN.3 ;NO 48 07014 030312 LDA 2,STRNG 49 07015 034313 LDA 3,STRNG+1 50 07016 054312 STA 3,STRNG 51 07017 034314 LDA 3,STRNG+2 52 07020 054313 STA 3,STRNG+1 53 07021 034315 LDA 3,STRNG+3 54 07022 054314 STA 3,STRNG+2 55 07023 050315 STA 2,STRNG+3 56 57 07024 002667 LN.3: JMP @LN.A3 58 59 07025 000000 LN.A0: 0 0074 .MAIN 01 07026 177770 OM10: -10 02 03 04 05 06 07 ;********************************************** 08 ;SUBROUTINE STUFF 09  ;IN: AC0, AC1=VOTE, AC2=0 OR FRACTIONAL VOTE 10 ;CONVERTED AND EDITED COUNT PLACED IN STRNG POSITIONS 11 ;5-10. POSITIONS 11-12 ARE MADE BLANK. 12 13 ;STUFF 14 07027 054443 JV.23: STA 3,ST.A3 15 07030 050445 STA 2,ST.A2 16 07031 030033 LDA 2,D10K 17 07032 006130 JSR @IDIV 18 07033 044441 STA 1,ST.A0 19 07034 105000 MOV 0,1 20 21 ;LOWER 4 DIGITS 22 07035 006103 JSR @B.BCD 23 07036 024436 LDA 1,ST.A0 24 07037 125005 MOV 1,1,SNR 25 07040 006115 JSR @EDIT 26 07041 024226 LDA 1,M8.15 27 07042 107700 ANDS 0,1 28 07043 030226 LDA 2,M8.15 29 07044 147000 ADD 2,1 30 31 ;TEST FOR FRACTIONAL PART 32 07045 030426 LDA 2,ST.PL 33 07046 034427 LDA 3,ST.A2 34 07047 175232 MOVZR# 3,3,SZC 35 07050 146400 SUB 2,1 36 07051 044314 STA 1,STRNG+2 ;LOWER 2 DIGITS, FRACTIONAL "+", BLANK 37 ; 38 07052 024243 LDA 1,M0.7 39 07053 123700 ANDS 1,0 40 07054 024420 LDA 1,ST.A0 41 07055 040417 STA 0,ST.A0 42 07056 125004 MOV 1,1,SZR 43 07057 000403 JMP ST.20 44 07060 020243 LDA 0,M0.7 45 07061 000405 JMP ST.30 46 47 07062 006103 ST.20: JSR @B.BCD 48 07063 006115 JSR @EDIT 49 07064 030226 LDA 2,M8.15 50 07065 143700 ANDS 2,0 51 52 07066 024406 ST.30: LDA 1,ST.A0 53 07067 123000 ADD 1,0 54 07070 040313 STA 0,STRNG+1 55 56 07071 002401 JMP @ST.A3 57 58 07072 000000 ST.A3: 0 59 07073 000120 ST.PL: 120 ;"+" 0075 .MAIN 01 07074 000000 ST.A0: 0 02 07075 000000 ST.A2: 0 03 ;********************************************** ^ 0076 .MAIN 01 ;SEGMENT #10 02 ; 03 ; 04 ;SUBROUTINE ROLL 05 ; 06 07076 054456 ROLL1: STA 3,ROLLX 07 07077 024331 LDA 1,VNUM 08 07100 030175 LDA 2,.Z-1 09 07101 036456 LDA 3,@ATBSU 10 07102 175015 MOV# 3,3,SNR 11 07103 000406 JMP RL.91 12 07104 030454 LDA 2,TBPLS 13 07105 136423 SUBZ 1,3,SNC 14 07106 030453 LDA 2,TBMIN 15 07107 175015 MOV# 3,3,SNR 16 07110 030452 LDA 2,TBCOL 17 07111 054452 RL.91: STA 3,TBDIF 18 07112 050452 STA 2,TBCFL 19 07113 152400 SUB 2,2 20 07114 102400 SUB 0,0 21 07115 006166 JSR @STUFF 22 07116 020442 LDA 0,TBPLS 23 07117 040312 STA 0,STRNG 24 07120 036437 LDA 3,@ATBSU 25 07121 175015 MOV# 3,3,SNR 26 07122 000407 JMP RL.92 27 07123 024440 LDA 1,TBDIF 28 07124 125132 MOVZL# 1,1,SZC 29 07125 124400 NEG 1,1 30 07126 006103 JSR @B.BCD 31 07127 006115 JSR @EDIT 32 07130 040315 STA 0,STRNG+3 33 07131 034433 RL.92: LDA 3,TBCFL 34 07132 024314 LDA 1,STRNG+2 35 07133 167400 AND 3,1 36 07134 044314 STA 1,STRNG+2 37 07135 006161 JSR @SETPR 38 ;CUM LEVEL 39 07136 034303 LDA 3,TLVOT 40 07137 030331 LDA 2,VNUM 41 07140 021400 LDA 0,0,3 42 07141 025401 LDA 1,1,3 43 07142 147022 ADDZ 2,1,SZC 44 07143 101400 INC 0,0 45 07144 041400 STA 0,0,3 46 07145 045401 STA 1,1,3 47 07146 152400 SUB 2,2 48 07147 006166 JSR @STUFF 49 07150 020410 LDA 0,TBPLS 50 07151 040312 STA 0,STRNG 51 07152 006161 JSR @SETPR 52 07153 002401 JMP @ROLLX 53 ; 54 07154 000000 ROLLX: 0 ;RETURN 55 07155 000000 RL.SV: 0 56 07156 000000 0 57 07157 003055 ATBSU: TBSUM 58 07160 177772 TBPLS: 177772 59 07161 177773 TBMIN: 177773 0077 .MAIN 01 07162 177776 TBCOL: 177776 02 07163 000000 TBDIF: 0 03 07164 000000 TBCFL: 0 04 ; 05 ;************************************************ 06 ; 07 ;SUBROUTINE ROLLP 08 ;ADD PRECINCT LEVEL 'PRECINCTS COUNTED' TO CUM CNTRS 09 10 07165 054436 ROLP1: STA 3,XSAV2 11 07166 006150 JSR @PPRCN 12 07167 006161 ROLP6: JSR @SETPR 13 07170 004434 JSR RLPRC 14 07171 024300 LDA 1,PCNT ;OUTPUT # OF 15 07172 006103 JSR @B.BCD ;PREC BEING 16 07173 006115 JSR @EDIT ;ADDED TO TOTAL 17 07174 101120 MOVZL 0,0 ;PREC PROC 18 07175 101120 MOVZL 0,0 ;THIS FAR 19 07176 101120 MOVZL 0,0 20 07177 101120 MOVZL 0,0 21 07200 024210 LDA 1,.Z+12 ;"+" 22 07201 123000 ADD 1,0 23 07202 040312 STA 0,STRNG ;PREC ADDED-> STRNG 24 25 26 ;OUTPUT PREC ADDED, W/ OR W/O TIME 27 07203 006161 ROLP2: JSR @SETPR 28 07204 020300 LDA 0,PCNT 29 30 ;UPDATE PRECINCTS PROCESSED 31 07205 026301 LDA 1,@TPREC 32 07206 107000 ADD 0,1 33 07207 046301 STA 1,@TPREC 34 35 ;PRINT TOTAL PRECINCTS 36 07210 006103 JSR @B.BCD ;MAKE DECIMAL 37 07211 006115 JSR @EDIT 38 07212 101120 MOVZL 0,0 39 07213 101120 MOVZL 0,0 40 07214 101120 MOVZL 0,0 41 07215 101120 MOVZL 0,0 42 07216 024210 LDA 1,.Z+12 ;"+" 43 07217 123000 ADD 1,0 44 07220 040312 STA 0,STRNG 45 ; 46 07221 006161 JSR @SETPR 47 07222 002401 JMP @XSAV2 48 49 07223 000000 XSAV2: 0 ;RETURN 50 51 ;********************************************** 52 ;KEEP TRACK OF PROCESSED PRECINCTS 53 07224 054507 RLPRC: STA 3,RPRET 54 07225 034371 LDA 3,POPT 55 07226 021424 LDA 0,POSAV+2,3 56 07227 035423 LDA 3,POSAV+1,3 57 07230 116414 SUB# 0,3,SZR 58 07231 000425 JMP RLPRT 59 07232 024307 LDA 1,PRCN1 0078 .MAIN 01 07233 125415 INC# 1,1,SNR 02 07234 125400 INC 1,1 ;-1 ->0 03 07235 102400 SUB 0,0 04 07236 030216 LDA 2,O20 05 07237 006130 JSR @IDIV 06 07240 100000 COM 0,0 07 07241 176420 SUBZ 3,3 08 09 07242 175200 RLPR2: MOVR 3,3 ;MASK FOR OR 10 07243 101404 INC 0,0,SZR 11 07244 000776 JMP RLPR2 12 07245 161000 MOV 3,0 13 07246 034310 LDA 3,APRTB ;PREC ID TABLE BASE 14 07247 137000 ADD 1,3 ;WORD INDEX INTO TABLE 15 07250 025400 LDA 1,0,3 ;GET WORD 16 07251 107415 AND# 0,1,SNR 17 07252 000405 JMP RLMSG 18 07253 100000 RLPR4: COM 0,0 ;SET BIT OFF 19 07254 107400 AND 0,1 ;ELSE SET BIT ON 20 07255 045400 STA 1,0,3 21 07256 002455 RLPRT: JMP @RPRET 22 23 ;SUCCESSIVE ADDS OR SUBTRACTS 24 07257 040444 RLMSG: STA 0,RLMS1 25 07260 044444 STA 1,RLMS2 26 07261 050444 STA 2,RLMS3 27 07262 054444 STA 3,RLMS4 28 07263 034371 LDA 3,POPT 29 07264 021427 LDA 0,PODUP+2,3 30 07265 034444 LDA 3,D83 31 07266 116415 SUB# 0,3,SNR 32 07267 000427 JMP NOMSG ;OPTION NOT ON 33 07270 034371 LDA 3,POPT 34 07271 021427 LDA 0,PODUP+2,3 35 07272 024440 LDA 1,D84. 36 07273 034435 LDA 3,MS885 ;MSG 8-85 37 07274 106415 SUB# 0,1,SNR 38 07275 034432 LDA 3,MS884 ;OPT 84 39 07276 054312 STA 3,STRNG 40 07277 054313 STA 3,STRNG+1 41 07300 054314 STA 3,STRNG+2 42 07301 054315 STA 3,STRNG+3 43 07302 006153 JSR @PTRED 44 07303 006161 JSR @SETPR 45 07304 020214 LDA 0,.Z+14. 46 07305 006141 JSR @MSPAC 47 ; 48 07306 034371 LDA 3,POPT 49 07307 021427 LDA 0,PODUP+2,3 50 07310 034422 LDA 3,D84. 51 07311 116415 SUB# 0,3,SNR 52 07312 000404 JMP NOMSG 53 54 55 ;AWAIT ACTION AFTER 8-85 ERROR 56 07313 006154 JSR @RDBUT 57 07314 000402 JMP .+2 58 07315 002117 JMP @FCLR 59 ; 0079 .MAIN 01 07316 020405 NOMSG: LDA 0,RLMS1 02 07317 024405 LDA 1,RLMS2 03 07320 030405 LDA 2,RLMS3 04 07321 034405 LDA 3,RLMS4 05 07322 000731 JMP RLPR4 06 07 07323 000000 RLMS1: 0 ;TEMP STORAGE 08 07324 000000 RLMS2: 0 09 07325 000000 RLMS3: 0 10 07326 000000 RLMS4: 0 11 07327 105604 MS884: 105604 ;8-84 12 07330 105605 MS885: 105605 ;8-85 13 07331 000123 D83: 123 14 07332 000124 D84.: 124 15 07333 000000 RPRET: 0 ;RETURN 16 07334 000000 SAVA3: 0 17 18 ;********************************************** 19 20 ;CPREC-CHECK PREC ID 21 ;IN: AC1=PREC ID 22 ;AC2=BIT MAP BASE ADDRESS 23 ;OUT SKIPS IF PREC X HAS NOT BEEN PROC 24 07335 054417 CPRC1: STA 3,CPRCX 25 07336 050417 STA 2,CPRCB 26 07337 102400 SUB 0,0 27 07340 030216 LDA 2,O20 ;GET CNT IN AC0 28 07341 006130 JSR @IDIV ;GET ID WD OFFSET IN AC1 29 07342 100000 COM 0,0 ;-(WD CNT+1) 30 07343 030412 LDA 2,CPRCB 31 07344 133000 ADD 1,2 ;USING OFFSET,ACCESS 32 07345 035000 LDA 3,0,2 ;APPROPRIAT PREC WD FR TBL 33 34 07346 175100 CPRC2: MOVL 3,3 ;MOVE LEFT ACCORD.TO 35 07347 101404 INC 0,0,SZR ;BIT CNT IN AC0 UNTIL 36 07350 000776 JMP CPRC2 ;THE COMP OF APPROPR. BIT IS IN 37 07351 175012 MOV# 3,3,SZC ;THE CARRY 38 07352 010402 ISZ CPRCX ;IF NOT PROC, TAKE SKIP XIT 39 07353 002401 JMP @CPRCX 40 41 07354 000000 CPRCX: 0 ;RETURN 42 07355 000000 CPRCB: 0 ;BIT MAP BASE ADDRESS 43 44 ;SPREC-STORE PREC ID 45 ;IN: AC1=PREC ID 46 ; AC0=ONOFF SW: -1=TURN BIT OFF 47 ; 0= TURN BIT ON 48 07356 054433 SPREC: STA 3,SPRCX 49 07357 040433 STA 0,ONOFF 50 07360 102400 SUB 0,0 51 07361 030216 LDA 2,O20 52 07362 006130 JSR @IDIV 53 07363 100000 COM 0,0 54 07364 176420 SUBZ 3,3 55 56 07365 175200 SPRC2: MOVR 3,3 57 07366 101404 INC 0,0,SZR 58 07367 000776 JMP SPRC2 59 07370 161000 MOV 3,0 0080 .MAIN 01 07371 034310 LDA 3,APRTB 02 07372 137000 ADD 1,3 03 07373 035400 LDA 3,0,3 04 07374 030416 LDA 2,ONOFF 05 07375 151415 INC# 2,2,SNR 06 07376 000405 JMP SPRC3 07 07377 163415 AND# 3,0,SNR ;TURN BIT ON 08 07400 117000 ADD 0,3 ;IF NOT ON 09 07401 161000 MOV 3,0 10 07402 000403 JMP SPRC4 11 12 07403 100000 SPRC3: COM 0,0 ;TURN BIT OFF 13 07404 163400 AND 3,0 14 15 07405 034310 SPRC4: LDA 3,APRTB 16 07406 137000 ADD 1,3 17 07407 041400 STA 0,0,3 ;RE-STORE 18 07410 002401 JMP @SPRCX 19 20 07411 000000 SPRCX: 0 ;RETURN 21 07412 000000 ONOFF: 0 ;SW, -1=TURN BIT ON 22 ; ; 0=TURN BIT OFF 23  24 ;********************************************** ^ 0081 .MAIN 01 ;SEGMENT #11 02 ; 03 ; SUBROUTINE PPRCN 04 ; -SET UP 12 COLUMNS OF 05 ; PREC ID & TIME ON SEIKO 06 ; OR TALLY FOR NEXT PRINT CALL 07 ; 08 07413 054425 PPRN1: STA 3,PPRNX 09 07414 006167 JSR @TIME 10 ; 11 ;MOVE SKO PREC ID -> STRNG 12 07415 034201 LDA 3,.Z+3 ;3WDS (12 BCD CHRS) OF PREC ID 13 07416 054416 STA 3,PNCTR ;TO BE MOVED 14 07417 030417 LDA 2,APRCN ;INDEX TO PRCNO 15 07420 020415 LDA 0,ASTR8 ;STRNG CHAR PTR-1 16 17 07421 025000 PPRN4: LDA 1,0,2 ;GET NX WD 18 07422 101400 INC 0,0 ;ADV CHAR PTR 19 07423 125300 MOVS 1,1 ;RT JUSTIFY 1ST 2 BCD CHARS 20 07424 006147 JSR @PCHR ;STORE CHARS 21 07425 125300 MOVS 1,1 ;SWAP CHARS IN WD 22 07426 101400 INC 0,0 ;INCR PTR 23 07427 006147 JSR @PCHR ;STORE CHARS 24 07430 151400 INC 2,2 ;ADV INDX TO PRCNO 25 07431 014403 DSZ PNCTR ;DECR CTR 26 07432 000767 JMP PPRN4 ;NX 4 CHARS 27 07433 002405 PPRN3: JMP @PPRNX 28 29 07434 000000 PNCTR: 0 ;# WDS OF PREC ID TO MOVE 30 07435 000626 ASTR8: STRNG*2+2 ;STRNG CHR PTR 31 07436 000304 APRCN: PRCNO 32 07437 013214 ACSTR: CSTRA 33 07440 000000 PPRNX: 0 ;RETURN 34 35 ;********************************************** 36 ;MVASC-MOVE ASCII STRING 37 ;CALL: JSR @MVASC 38 ; SOURCE CHAR PTR 39 ; DEST CHAR PTR 40 ; -CHAR CNT 41 ; 42 07441 054430 MVAS1: STA 3,MVASX 43 07442 021401 LDA 0,1,3 ;DEST PTR 44 07443 040431 STA 0,PTRPC 45 07444 021400 LDA 0,0,3 ;SRC PTR 46 07445 040425 STA 0,PTRGC 47 07446 031402 LDA 2,2,3 ;-CHAR CNT 48 07447 151015 MOV# 2,2,SNR 49 07450 000416 JMP MVAS3 ;0 CNT-> EXIT 50 51 07451 020421 MVAS2: LDA 0,PTRGC 52 07452 006121 JSR @GCHR ;GET NX CHR 53 07453 125015 MOV# 1,1,SNR 54 07454 000412 JMP MVAS3 ;NULL ENDS STRNG 55 07455 020417 LDA 0,PTRPC 56 07456 034417 LDA 3,TSTN2 57 07457 162032 ADCZ# 3,0,SZC 58 07460 000406 JMP MVAS3 ;AT END OF PRINTER BUFFER 59 07461 006147 JSR @PCHR ;PUT NX CHR 0082 .MAIN 01 07462 010410 ISZ PTRGC 02 07463 010411 ISZ PTRPC ;ADV PTRS 03 07464 151404 INC 2,2,SZR ;ADV CNT 04 07465 000764 JMP MVAS2 ;NX CHR 05 06 07466 034403 MVAS3: LDA 3,MVASX 07 07467 001403 JMP 3,3 08 09 07470 000000 TCELL: 0 ;LINE COUNTER 10 07471 000000 MVASX: 0 ;EXIT 11 07472 000000 PTRGC: 0 ;PTR FOR GCHR 12 07473 000000 LSPRX: 0 ;RETURN FROM LSPRT 13 07474 000000 PTRPC: 0 ;PTR FOR PCHR 14 07475 036166 TSTN2: TSTRG*2+132. ;END OF TSTRG BUFFER 15 16 ;********************************************** 17 18 ;LSPRT--LIST SUBROUTINE'S SPECIAL 'PRINT' ROUTINE 19 ;PRINTS ELECTION TITLE & PAGE # TOP OF PAGE(TALLY ONLY) 20 21 07476 054775 LSPR1: STA 3,LSPRX 22 07477 006151 JSR @PRINT 23 07500 020326 LDA 0,LNUM 24 07501 034327 LDA 3,MXLN 25 07502 162033 ADCZ# 3,0,SNC 26 07503 002770 JMP @LSPRX 27 28 ;PAGE EJECT & PRINT PAGE NUMBER 29 07504 010332 ISZ SPCFG 30 07505 000402 JMP .+2 ;OK 31 07506 002765 JMP @LSPRX 32 07507 024212 LDA 1,CHRFF 33 07510 020322 LDA 0,ATSTR 34 07511 006147 JSR @PCHR 35 07512 006151 JSR @PRINT 36 07513 020176 LDA 0,.Z+0 37 07514 040326 STA 0,LNUM 38 07515 006170 JSR @TITLE 39 07516 002755 JMP @LSPRX 40 41 ;*************************************************** 42 ;OUTPUT PAGE TITLE 43 07517 056523 TLE1: STA 3,@.TLEX 44 07520 010333 ISZ FPFL 45 07521 000402 JMP TLE2 46 07522 000456 JMP TLE3 47 07523 010330 TLE2: ISZ PNUM 48 ; 49 ; 50 ;PRINT ANY TITLE LINES 5-9 51 ; 52 07524 024176 LDA 1,.Z+0 53 07525 020203 LDA 0,.Z+5 54 07526 040742 STA 0,TCELL 55 07527 030362 LDA 2,TXTCH 56 07530 050363 STA 2,CURCH 57 07531 006144 CONT3: JSR @NXTPS 58 07532 000420 JMP NOLIN 59 07533 040407 STA 0,CPTR1 0083 .MAIN 01 07534 050734 STA 2,TCELL 02 07535 006135 JSR @MMOVE 03 07536 020040 20040 04 07537 016771 TSTRG 05 07540 177676 -132./2 06 07541 006142 JSR @MVASC 07 07542 000000 CPTR1: 0 08 07543 036022 TSTRG*2+32. 09 07544 177634 -100. 10 07545 030723 LDA 2,TCELL 11 07546 024207 LDA 1,.Z+9. 12 07547 132415 SUB# 1,2,SNR 13 07550 000407 JMP NINEL 14 07551 006151 JSR @PRINT 15 07552 010716 NOLIN: ISZ TCELL 16 07553 020715 LDA 0,TCELL 17 07554 034210 LDA 3,.Z+10. 18 07555 162433 SUBZ# 3,0,SNC 19 07556 000753 JMP CONT3 20 07557 006142 NINEL: JSR @MVASC 21 07560 033416 ANPRN*2 22 07561 035762 TSTRG*2 23 07562 177755 -19. 24 07563 006142 JSR @MVASC 25 07564 027630 LSM9C*2 26 07565 036155 TSTRG*2+123. 27 07566 177774 -4 28 07567 024330 LDA 1,PNUM 29 07570 006103 JSR @B.BCD 30 07571 006115 JSR @EDIT 31 07572 101300 MOVS 0,0 32 07573 024200 LDA 1,.Z+2 33 07574 006104 JSR @CBCDA 34 07575 036162 TSTRG*2+128. 35 07576 000401 JMP .+1 36 07577 006151 JSR @PRINT 37  ; 38 ;PRINT FIXED TEXT DEPENDING ON REPORT TYPE 39 07600 034371 TLE3: LDA 3,POPT 40 07601 021464 LDA 0,POMOD+1,3 41 07602 025465 LDA 1,POMOD+2,3 42 07603 106400 SUB 0,1 43 07604 030403 LDA 2,MMTTB 44 07605 133000 ADD 1,2 45 07606 003001 JMP @1,2 46 ; 47 07607 007607 MMTTB: . 48 07610 011371 MMERR ;230 49 07611 010000 KVT90 ;231,MAILING LABELS 50 07612 011371 MMERR ;232 51 07613 011371 MMERR ;233 52 07614 011371 MMERR ;234 53 07615 011371 MMERR ;235 54 07616 011371 MMERR ;236 55 07617 011371 MMERR ;237 56 07620 011371 MMERR ;238 57 07621 011371 MMERR ;239 58 07622 011371 MMERR ;240 59 07623 007643 KVTTL ;241,REGISTER OF VOTERS REPORT 0084 .MAIN 01 07624 011371 MMERR ;242 02 07625 011371 MMERR ;243 03 07626 011371 MMERR ;244 04 07627 010007 SRTTL ;245,SIGNATURE LIST 05 07630 011371 MMERR ;246 06 07631 011371 MMERR ;247 07 07632 011371 MMERR ;248 08 07633 011371 MMERR ;249 09 07634 011371 MMERR ;250 10 07635 010000 KVT90 ;251 11 07636 011371 MMERR ;252 12 07637 011371 MMERR ;253 13 07640 011371 MMERR ;254 14 07641 011371 MMERR ;255 15 ; 16 07642 007742 .TLEX: TLEX 17 ; 18 ;****************************************** 19 ;REGISTER OF VOTERS REPORT 20 07643 006142 KVTTL: JSR @MVASC 21 07644 021020 TMSG5*2+2 22 07645 036120 TSTRG*2+94. 23 07646 177745 -27. 24 07647 006151 JSR @PRINT 25 ; 26 ; 27 ;VOTING HISTORY HEADINGS--YEARS 28 07650 030362 LDA 2,TXTCH 29 07651 050363 STA 2,CURCH 30 07652 034427 LDA 3,TG94. 31 07653 030177 LDA 2,.Z+1 32 07654 156400 SUB 2,3 33 07655 054413 STA 3,KVT30 34 ; 35 07656 102400 KVT20: SUB 0,0 36 07657 024423 LDA 1,NXVN 37 07660 006144 JSR @NXTPS 38 07661 000416 JMP KVT40 39 07662 006163 JSR @SKPRI 40 07663 000773 JMP KVT20 41 07664 006103 JSR @B.BCD 42 07665 006115 JSR @EDIT 43 07666 024202 LDA 1,.Z+4 44 07667 006104 JSR @CBCDA 45 07670 000000 KVT30: 0 46 07671 000401 JMP .+1 47 07672 034776 LDA 3,KVT30 48 07673 030202 LDA 2,.Z+4 49 07674 157000 ADD 2,3 50 07675 054773 STA 3,KVT30 51 07676 000760 JMP KVT20 52 ; 53 ;PRINT THE LINE 54 07677 006151 KVT40: JSR @PRINT 55 07700 000404 JMP KVT50 56 ; 57 07701 036117 TG94.: TSTRG*2+93. 58 07702 177700 NXVN: HIS*16.+177600 59 07703 010407 .TMS5: TMSG5 0085 .MAIN 01 ; 02 ;VOTING HISTORY HEADING--3 LETTER CODES 03 07704 030362 KVT50: LDA 2,TXTCH 04 07705 050363 STA 2,CURCH 05 07706 034773 LDA 3,TG94. 06 07707 054424 STA 3,KVT55 07 07710 102400 KVT60: SUB 0,0 08 07711 024771 LDA 1,NXVN 09 07712 006144 JSR @NXTPS 10 07713 000430 JMP KVT70 11 07714 040416 STA 0,KVT54 12 07715 006163 JSR @SKPRI 13 07716 000772 JMP KVT60 14 07717 034210 LDA 3,.Z+10. 15 07720 156433 SUBZ# 2,3,SNC ;SKIP IF LIN# .LE. 10 16 07721 000410 JMP KVT53 ;11 OR GREATER 17 07722 156415 SUB# 2,3,SNR ;10? 18 07723 000404 JMP KVGEN ;YES,GENERAL ELECTION 19 07724 034455 LDA 3,MSGPR ;NO,PRIMARY 20 07725 054405 STA 3,KVT54 21 07726 000403 JMP KVT53 22 07727 034455 KVGEN: LDA 3,MSGEN 23 07730 054402 STA 3,KVT54 24 07731 006142 KVT53: JSR @MVASC 25 07732 000000 KVT54: 0 26 07733 000000 KVT55: 0 27 07734 177775 -3 28 07735 034776 LDA 3,KVT55 29 07736 030202 LDA 2,.Z+4 30 07737 157000 ADD 2,3 31 07740 054773 STA 3,KVT55 32 07741 000747 JMP KVT60 33 ; 34 07742 000000 TLEX: 0 35 ; 36 07743 006142 KVT70: JSR @MVASC 37 07744 020626 TMSG3*2+2 38 07745 035762 TSTRG*2 39 07746 177731 -39. 40 ; 41 07747 006151 JSR @PRINT 42 ; 43 ; 44 ;VOTING HISTORY HEADINGS--ASTERISKS 45 07750 030362 KVT75: LDA 2,TXTCH 46 07751 050363 STA 2,CURCH 47 07752 034727 LDA 3,TG94. 48 07753 054411 STA 3,KVT77 49 07754 102400 KVT76: SUB 0,0 50 07755 024725 LDA 1,NXVN 51 07756 006144 JSR @NXTPS 52 07757 000414 JMP KVT80 ;NO MORE 53 07760 006163 JSR @SKPRI 54 07761 000773 JMP KVT76 55 07762 006142 JSR @MVASC 56 07763 021104 TMSG9*2+2 57 07764 000000 KVT77: 0 58 07765 177775 -3 59 ; 0086 .MAIN 01 07766 034776 LDA 3,KVT77 02 07767 030202 LDA 2,.Z+4 03 07770 157000 ADD 2,3 04 07771 054773 STA 3,KVT77 05 07772 000762 JMP KVT76 06 07773 006142 KVT80: JSR @MVASC 07 07774 020700 TMSG4*2+2 08 07775 035762 TSTRG*2 09 07776 177675 -67. 10 07777 006151 JSR @PRINT 11 ; 12 10000 002742 KVT90: JMP @TLEX 13 ; 14 10001 020004 MSGPR: .+1*2 15 .TXT "PRI" 10002 050122 10003 044400 16 10004 020012 MSGEN: .+1*2 17 .TXT "GEN" 10005 043505 10006 047000 18 ; 19 ;************************************** 20 ;SIGNATURE LIST 21 10007 020177 SRTTL: LDA 0,.Z+1 22 10010 040505 STA 0,DISF1 23 10011 040505 STA 0,DISF2 24 10012 040502 STA 0,PTYFL 25 10013 006142 JSR @MVASC 26 10014 020244 TMSG1*2+2 27 10015 035762 TSTRG*2 28 10016 177613 -117. 29 ;TEST FOR PRIMARY FOR PARTY COLUMN 30 10017 034371 LDA 3,POPT 31 10020 021420 LDA 0,POCLP+1,3 32 10021 025421 LDA 1,POCLP+2,3 33 10022 106405 SUB 0,1,SNR 34 10023 000407 JMP SRTT1 ;NO PARTY 35 10024 020175 LDA 0,.Z-1 36 10025 040467 STA 0,PTYFL 37 10026 006142 JSR @MVASC 38 10027 021056 TMSG6*2+2 39 10030 036151 TSTRG*2+119. 40 10031 177773 -5 41 ;TEST FOR DISTRICT ONE 42 10032 022466 SRTT1: LDA 0,@DISPT 43 10033 101005 MOV 0,0,SNR 44 10034 000407 JMP SRTT5 ;NO DISTRICT ONE 45 10035 020175 LDA 0,.Z-1 46 10036 040457 STA 0,DISF1 47 10037 006142 JSR @MVASC 48 10040 021066 TMSG7*2+2 49 10041 036157 TSTRG*2+125. 50 10042 177775 -3 51 ; 52 ;TEST FOR DISTRICT TWO 53 10043 020455 SRTT5: LDA 0,DISPT 54 10044 024453 LDA 1,DISP2 55 10045 123000 ADD 1,0 0087 .MAIN 01 10046 020000 LDA 0,0,0 02 10047 101005 MOV 0,0,SNR 03 10050 000407 JMP SRTT2 ;NO DISTRICT TWO 04 10051 020175 LDA 0,.Z-1 05 10052 040444 STA 0,DISF2 06 10053 006142 JSR @MVASC 07 10054 021066 TMSG7*2+2 08 10055 036163 TSTRG*2+129. 09 10056 177775 -3 10 ; 11 10057 006151 SRTT2: JSR @PRINT 12 ; 13 ;SECOND LINE OF FIXED TEXT 14 ; 15 10060 006142 JSR @MVASC 16 10061 020434 TMSG2*2+2 17 10062 035762 TSTRG*2 18 10063 177612 -118. 19 ;TEST FOR PARTY 20 10064 010430 ISZ PTYFL 21 10065 000405 JMP SRTT3 ;NO PARTY 22 10066 006142 JSR @MVASC 23 10067 021074 TMSG8*2+2 24 10070 036151 TSTRG*2+119. 25 10071 177773 -5 26 ;TEST FOR DISTRICT ONE 27 10072 010423 SRTT3: ISZ DISF1 28 10073 000405 JMP SRTT6 ;NO DISTRICT ONE 29 10074 006142 JSR @MVASC 30 10075 021104 TMSG9*2+2 31 10076 036157 TSTRG*2+125. 32 10077 177775 -3 33 ; 34 ;TEST FOR DISTRICT TWO 35 10100 010416 SRTT6: ISZ DISF2 36 10101 000405 JMP SRTT4 ;NO DISTRICT TWO 37 10102 006142 JSR @MVASC 38 10103 021104 TMSG9*2+2 39 10104 036163 TSTRG*2+129. 40 10105 177775 -3 41 ; 42 ;DONE 43 10106 006151 SRTT4: JSR @PRINT 44 10107 006164 JSR @SPACE 45 10110 002632 JMP @TLEX 46 ; 47 ; 48 10111 010312 TMS3G: TMSG3 49 10112 010337 TMS4G: TMSG4 50 10113 010407 TMS5G: TMSG5 51 10114 000000 PTYFL: 0 52 10115 000000 DISF1: 0 53 10116 000000 DISF2: 0 54 10117 000132 DISP2: 2*NMENT 55 10120 016221 DISPT: DISTB 56 ; 57 ;************************************* 58 10121 020244 TMSG1: .+1*2 59 .TXT "ROV# NAME AND ADDRESS 0088 .MAIN 10122 051117 10123 053043 10124 020040 10125 047101 10126 046505 10127 020101 10130 047104 10131 020101 10132 042104 10133 051105 10134 051523 01 10135 020040 SIGNATURE 10136 020040 10137 020040 10140 020040 10141 020040 10142 020040 10143 020040 10144 020040 10145 020040 10146 020123 10147 044507 10150 047101 10151 052125 10152 051105 02 10153 020040 STREET ADDRESS 10154 020040 10155 020040 10156 020040 10157 020040 10160 020040 10161 020040 10162 020040 10163 020040 10164 020040 10165 020040 10166 051524 10167 051105 10170 042524 10171 020101 10172 042104 10173 051105 10174 051523 03 10175 020040 STUB NUMBER" 10176 020040 10177 020040 10200 020040 10201 020040 10202 020040 10203 020040 10204 020040 10205 020040 10206 020040 10207 051524 10210 052502 10211 020116 10212 052515 10213 041105 10214 051000  0089 .MAIN 01 10215 020434 TMSG2: .+1*2 02 .TXT "**** ******************** 10216 025052 10217 025052 10220 020040 10221 025052 10222 025052 10223 025052 10224 025052 10225 025052 10226 025052 10227 025052 10230 025052 10231 025052 10232 025052 03 10233 025052 ************** ****************************** 10234 025052 10235 025052 10236 025052 10237 025052 10240 025052 10241 025052 10242 020052 10243 025052 10244 025052 10245 025052 10246 025052 10247 025052 10250 025052 10251 025052 10252 025052 10253 025052 10254 025052 10255 025052 10256 025052 10257 025052 10260 025052 10261 025040 04 10262 025052 ******************************** **** *** ****" 10263 025052 10264 025052 10265 025052 10266 025052 10267 025052 10270 025052 10271 025052 10272 025052 10273 025052 10274 025052 10275 025052 10276 025052  10277 025052 10300 025052 10301 025052 10302 020052 10303 025052 10304 025040 10305 025052 10306 025040 0090 .MAIN 10307 025052 10310 025052 10311 000000 01 10312 020626 TMSG3: .+1*2 02 .TXT "ROV# REGISTERED VOTER NAME AND ADDRESS" 10313 051117 10314 053043 10315 020040 10316 051105 10317 043511 10320 051524 10321 042522 10322 042504 10323 020126 10324 047524 10325 042522 10326 020116 10327 040515 10330 042440 10331 040516 10332 042040 10333 040504 10334 042122 10335 042523 10336 051400 03 ; 04 10337 020700 TMSG4: .+1*2 05 .TXT "**** ******************************* 10340 025052 10341 025052 10342 020040 10343 025052 10344 025052 10345 025052 10346 025052 10347 025052 10350 025052 10351 025052 10352 025052 10353 025052 10354 025052 10355 025052 10356 025052 10357 025052 10360 025052 10361 025052 06 10362 025052 ****************************************" 10363 025052 10364 025052 10365 025052 10366 025052 10367 025052 10370 025052 10371 025052 10372 025052 10373 025052 10374 025052 10375 025052 10376 025052 0091 .MAIN 10377 025052 10400 025052 10401 025052 10402 025052 10403 025052 10404 025052 10405 025052 10406 025000 01 ; 02 10407 021020 TMSG5: .+1*2 03 .TXT "V O T I N G H I S T O R Y" 10410 053040 10411 047440 10412 052040 10413 044440 10414 047040 10415 043440 10416 020040 10417 044040 10420 044440 10421 051440 10422 052040 10423 047440 10424 051040 10425 054400 04 ; 05 10426 021056 TMSG6: .+1*2 06 .TXT "PARTY" 10427 050101 10430 051124 10431 054400 07 10432 021066 TMSG7: .+1*2 08 .TXT "DIS" 10433 042111 10434 051400 09 10435 021074 TMSG8: .+1*2 10 .TXT "*****" 10436 025052 10437 025052 10440 025000 11 10441 021104 TMSG9: .+1*2 12 .TXT "***" 10442 025052 10443 025000 13 ; 14 ;************************************************* 15 ; 16 ;SKIP DUPLICATE PRIMARIES 17 ;IN: AC1=YEAR#,AC2=LINE # 18 10444 054420 SKPR1: STA 3,SKPRX 19 10445 040416 STA 0,SKPRA 20 ; 21 ;PRIMARY OR GENERAL/SPECIAL?? 22 10446 034210 LDA 3,.Z+10. 23 10447 172432 SUBZ# 3,2,SZC 24 10450 000407 JMP SKPR5 ;10 OR 11 25 10451 020370 LDA 0,PVRYR 26 10452 044370 STA 1,PVRYR 27 10453 106414 SUB# 0,1,SZR 0092 .MAIN 01 10454 000403 JMP SKPR5 02 10455 020367 LDA 0,PVRLN 03 10456 162432 SUBZ# 3,0,SZC 04 10457 010405 SKPR5: ISZ SKPRX 05 10460 050367 STA 2,PVRLN 06 10461 020402 LDA 0,SKPRA 07 10462 002402 JMP @SKPRX 08 ; 09 10463 000000 SKPRA: 0 ;AC0 SAVE 10 10464 000000 SKPRX: 0 ;RETURN 11 ;******************************************* ^ 0093 .MAIN 01 02 ;SEGMENT #12 03 04 ;********************************************** 05 ;PRECINCTS PROCESSED REPORT 06 ; 07 ; IN: AC1/-2 >PNP , -1 >PP 08 ; 09 ;SR-GET NEXT WORD FROM PRTAB 10 10465 020174 NXWRD: LDA 0,OM20 11 10466 026405 LDA 1,@PRWRD 12 10467 010404 ISZ PRWRD 13 10470 001400 JMP 0,3 14 15 10471 125123 APREP: MOVZL 1,1,SNC ;FOR PREC PROC 16 10472 125122 APREN: MOVZL 1,1,SZC ;FOR PREC NOT PROC 17 10473 000000 PRWRD: 0 ;POINTER TO PRES POS IN PRTAB 18 19 ;SET UP FOR OPTION 20 10474 054532 PPROC: STA 3,PPRET 21 10475 125400 INC 1,1 22 10476 044531 STA 1,PROCF 23 10477 006167 JSR @TIME 24 10500 006161 JSR @SETPR 25 10501 024526 LDA 1,PROCF 26 10502 020307 LDA 0,PRCN1 ;PREC# :BIN 27 10503 125014 MOV# 1,1,SZR 28 10504 101415 INC# 0,0,SNR 29 10505 020523 LDA 0,AMXPR 30 10506 040523 STA 0,PREND 31 10507 020762 LDA 0,APREP 32 10510 125014 MOV# 1,1,SZR 33 10511 020761 LDA 0,APREN 34 10512 040431 STA 0,PRET1 35 10513 040442 STA 0,PRET2 36 37 ;INITIALIZE 38 10514 102400 SUB 0,0 39 10515 040517 STA 0,PRCTR 40 10516 040517 STA 0,TPCTR 41 10517 040517 STA 0,PRCDN 42 10520 125015 MOV# 1,1,SNR 43 10521 102000 ADC 0,0 ;PREC PROC 44 10522 040510 STA 0,PPRC1 45 10523 020310 LDA 0,APRTB 46 10524 040747 STA 0,PRWRD 47 10525 004740 JSR NXWRD 48 10526 034501 LDA 3,PROCF 49 10527 175015 MOV# 3,3,SNR 50 10530 000403 JMP PPRO1 51 10531 101400 INC 0,0 52 10532 125120 MOVZL 1,1 ;PREC NOT PROC 53 54 ;LOOP - GET PREC PROC#1 55 10533 010477 PPRO1: ISZ PPRC1 56 10534 030475 LDA 2,PREND 57 10535 034475 LDA 3,PPRC1 58 10536 156032 ADCZ# 2,3,SZC 59 10537 000453 JMP PPRO5 0094 .MAIN 01 10540 101015 MOV# 0,0,SNR 02 10541 004724 JSR NXWRD 03 10542 101400 INC 0,0 04 05 10543 125123 PRET1: MOVZL 1,1,SNC 06 10544 000767 JMP PPRO1 07 08 ;GET PREC PROC #2 & COUNT 09 10545 010467 ISZ PRCTR 10 10546 034464 LDA 3,PPRC1 11 10547 054464 STA 3,PPRC2 12 10550 156415 SUB# 2,3,SNR 13 10551 000417 JMP PPRO4 14 15 10552 101015 PPRO2: MOV# 0,0,SNR 16 10553 004712 JSR NXWRD 17 10554 101400 INC 0,0 18 19 10555 125123 PRET2: MOVZL 1,1,SNC 20 10556 000412 JMP PPRO4 21 10557 010455 ISZ PRCTR 22 10560 010453 ISZ PPRC2 23 10561 030450 LDA 2,PREND 24 10562 034451 LDA 3,PPRC2 25 10563 156433 SUBZ# 2,3,SNC 26 10564 000766 JMP PPRO2 27 10565 050446 STA 2,PPRC2 28 10566 176000 ADC 3,3 29 10567 054447 STA 3,PRCDN 30 31 10570 040447 PPRO4: STA 0,ICNT 32 10571 044447 STA 1,IWRD 33 10572 004447 JSR PROUT 34 10573 020442 LDA 0,TPCTR 35 10574 024440 LDA 1,PRCTR 36 10575 123000 ADD 1,0 37 10576 040437 STA 0,TPCTR 38 10577 020437 LDA 0,PRCDN 39 10600 101415 INC# 0,0,SNR 40 10601 000411 JMP PPRO5 41 10602 020431 LDA 0,PPRC2 42 10603 101400 INC 0,0 43 10604 040426 STA 0,PPRC1 44 10605 102400 SUB 0,0 45 10606 040426 STA 0,PRCTR 46 10607 020430 LDA 0,ICNT 47 10610 024430 LDA 1,IWRD 48 10611 000722 JMP PPRO1 49 50 ;TOTAL PREC PROC (OUTPUT) 51 10612 024423 PPRO5: LDA 1,TPCTR 52 10613 006103 JSR @B.BCD 53 10614 024460 LDA 1,PROC 54 10615 034412 LDA 3,PROCF 55 10616 175014 MOV# 3,3,SZR 56 10617 024456 LDA 1,PROCN 57 10620 123000 ADD 1,0 58 10621 040314 STA 0,STRNG+2 59 10622 006161 JSR @SETPR 0095 .MAIN 01 ; 02  ;SPACE OUT PRINTER 03 10623 020202 LDA 0,.Z+4 04 10624 006141 JSR @MSPAC 05 10625 002401 JMP @PPRET 06 07 10626 000000 PPRET: 0 ;RET FROM PREC PROC-->LIST 08 10627 000000 PROCF: 0 ;PREC PROC FLAG 0:PREC PROC 09 ; -1:PREC NOT PROC 10 10630 001747 AMXPR: MXPRN ;MAX# PREC ALLOWED 800 (1440) 11 10631 000000 PREND: 0 ;END OF PREC #'S (DEPENDS ON OPTION) 12 10632 000000 PPRC1: 0 ;PREC PROC #1 13 10633 000000 PPRC2: 0 ;PREC PROC #2 14 10634 000000 PRCTR: 0 ;PREC PROC CTR 15 10635 000000 TPCTR: 0 ;TOTAL PREC PROC CTR 16 10636 000000 PRCDN: 0 ;DONE FLAG 17 10637 000000 ICNT: 0 ;COUNT - INT STOR 18 10640 000000 IWRD: 0 ;PRTAB WORD - INT STOR 19 20 ;SR - OUTPUT PREC PROC OR NOT PROC & COUNT 21 10641 054431 PROUT: STA 3,PROTR 22 10642 024770 LDA 1,PPRC1 23 10643 006103 JSR @B.BCD 24 10644 103120 ADDZL 0,0 25 10645 103120 ADDZL 0,0 26 10646 024425 LDA 1,HYPHN 27 10647 123000 ADD 1,0 28 10650 040312 STA 0,STRNG 29 10651 024762 LDA 1,PPRC2 30 10652 006103 JSR @B.BCD 31 10653 101140 MOVOL 0,0 32 10654 101140 MOVOL 0,0 33 10655 101140 MOVOL 0,0 34 10656 101140 MOVOL 0,0 35 10657 040313 STA 0,STRNG+1 36 10660 024754 LDA 1,PRCTR 37 10661 006103 JSR @B.BCD 38 10662 024412 LDA 1,PROC 39 10663 034744 LDA 3,PROCF 40 10664 175014 MOV# 3,3,SZR 41 10665 024410 LDA 1,PROCN 42 10666 123000 ADD 1,0 43 10667 040314 STA 0,STRNG+2 44 10670 006161 JSR @SETPR 45 10671 002401 JMP @PROTR 46 47 10672 000000 PROTR: 0 ;RET FROM PROUT 48 10673 000013 HYPHN: 13 ;"000-" 49 10674 120000 PROC: 120000 ;"+000" ;PREC PROC 50 10675 130000 PROCN: 130000 ;"-000" ;PREC NOT PROC 51 52 ;********************************************** 53 ;TIME-STORE TIM IN STRNG & 54 ; STRNG+1 55 ; 56 10676 054445 TIME1: STA 3,TIMEX 57 10677 034335 LDA 3,CLK 58 10700 025400 LDA 1,HRS,3 59 10701 125015 MOV# 1,1,SNR 0096 .MAIN 01 10702 002441 JMP @TIMEX ;NOT INITD 02  ; 03 ;FREEZE A TIME IF FROZEN TIME=0 04 10703 060277 INTDS 05 10704 021404 LDA 0,FHRS,3 06 10705 101014 MOV# 0,0,SZR 07 10706 000404 JMP TIME4 ;A TIME ALREADY FROZEN 08 10707 045404 STA 1,FHRS,3 09 10710 021401 LDA 0,MIN,3 10 10711 041405 STA 0,FMIN,3 11 ; 12 10712 060177 TIME4: INTEN 13 14 ;GET HOUR 15 10713 025404 LDA 1,FHRS,3 16 10714 006103 JSR @B.BCD 17 10715 006115 JSR @EDIT 18 10716 034426 LDA 3,COLN2 ;':0$$' 19 10717 163700 ANDS 3,0 ;->'HH:0' 20 10720 040312 STA 0,STRNG 21 22 ;GET MINUTES 23 10721 034335 LDA 3,CLK 24 10722 025405 LDA 1,FMIN,3 25 10723 006103 JSR @B.BCD 26 10724 126400 SUB 1,1 27 10725 034173 LDA 3,OM4 28 29 10726 101220 TIME2: MOVZR 0,0 30 10727 125200 MOVR 1,1 31 10730 175404 INC 3,3,SZR 32 10731 000775 JMP TIME2 33 34 ;ADD 'M' 10'S TO 'HH:0' 35 10732 034312 LDA 3,STRNG 36 10733 117000 ADD 0,3 37 10734 054312 STA 3,STRNG 38 10735 034250 LDA 3,M4.15 39 10736 020313 LDA 0,STRNG+1 40 10737 163400 AND 3,0 41 10740 123000 ADD 1,0 ;->'MXXX' 42 10741 040313 STA 0,STRNG+1 43 10742 002401 JMP @TIMEX 44 45 10743 000000 TIMEX: 0 ;EXIT 46 10744 160377 COLN2: 160377 ;':0$$' 47 48 ;********************************************** 49 ; 50 ;OUTPUT TOTAL BALLOTS AND REGISTRATION 51 10745 030336 TOTAL: LDA 2,DATAP 52 10746 004534 JSR FETCH 53 10747 107000 ADD 0,1 54U10750 020000 LDA 0,LSMG7 ;BALTS PROC MSG 55 10751 125014 MOV# 1,1,SZR 56U10752 020000 LDA 0,LSM7A ;BALTS/TRNOT MSG 57 10753 044522 STA 1,REGFL 58 10754 004542 JSR PRBPR ;PRT BALTS CAST 59 10755 030336 LDA 2,DATAP 0097 .MAIN 01U10756 020000 LDA 0,LSMG8 ;REG MSG 02 10757 004562 JSR PREG ;PRT REG, IF ANY 03 04 ;SET REG FLAG 05 10760 034176 SREGF: LDA 3,.Z 06 10761 054514 STA 3,REGFL 07 10762 034215 LDA 3,.Z+MXPTY-1 08 10763 054513 STA 3,PTCTR 09 10764 030336 LDA 2,DATAP 10  11 10765 034204 SREG1: LDA 3,DATIL*2+.Z 12 10766 173000 ADD 3,2 13 10767 025000 LDA 1,PMWRD,2 ;CK PTY DEF BIT (VOTE BIT) 14 10770 127132 ADDZL# 1,1,SZC 15 10771 000404 JMP SREG2 ;DEFINED 16 10772 014504 DSZ PTCTR 17 10773 000772 JMP SREG1 18 10774 000404 JMP PRPTY ;DONE 19 20 10775 004505 SREG2: JSR FETCH 21 10776 107014 ADD# 0,1,SZR 22 10777 010476 ISZ REGFL ;FLAG SET ON 23 24 ; 25 ;OUTPUT PARTY BALLOTS CAST ® 26 11000 034215 PRPTY: LDA 3,.Z+MXPTY-1 27 11001 054475 STA 3,PTCTR 28 11002 030336 LDA 2,DATAP 29 11003 050474 STA 2,PTRPT 30 31 11004 030473 PRPT2: LDA 2,PTRPT 32 11005 034204 LDA 3,DATIL*2+.Z ;NX PTY POSN 33 11006 173000 ADD 3,2 34 11007 050470 STA 2,PTRPT ;SAVE PTR 35 11010 035000 LDA 3,PMWRD,2 ;PTY PROG WD 36 11011 177133 ADDZL# 3,3,SNC 37 11012 000457 JMP PRPT3 ;NOT DEFINED 38 ; 39 ;SET UP PARTY # IN STRNG+4,5 FOR OUTPUT 40 11013 030464 LDA 2,PTRPT 41 11014 035000 LDA 3,PMWRD,2 ;RESTORE PTY ID-->AC3 42 11015 024360 LDA 1,PWPTY 43 11016 167400 AND 3,1 ;MSK OFF GARBAGE 44 11017 131300 MOVS 1,2 ;PTY->LEFT BYTE,SAV AC2 45 11020 006103 JSR @B.BCD ;GET BCD PTY # 46 11021 006115 JSR @EDIT 47 11022 126000 ADC 1,1 48 11023 034173 LDA 3,OM4 49 50 ;MOVE PTY # INTO APPROP CHAR POSNS,STRNG+4,5 51 11024 101240 PRPT4: MOVOR 0,0 52 11025 125200 MOVR 1,1 53 11026 175404 INC 3,3,SZR 54 11027 000775 JMP PRPT4 55 56 ;STORE IN STRNG UNTIL OUTPUT 57 11030 034316 LDA 3,STRNG+4 58 11031 117400 AND 0,3 59 11032 054316 STA 3,STRNG+4 0098 .MAIN 01 11033 044317 STA 1,STRNG+5 02 11034 024221 LDA 1,O40 ;PTY# LEFT 8BITS,ADD O40 03 11035 147220 ADDZR 2,1 ;THEN RT 1BIT->NXTPS INDX 04 11036 102400 SUB 0,0 05 11037 006144 JSR @NXTPS 06 11040 020325 LDA 0,A.Z ;NUL TEXT STRNG 07 11041 034325 LDA 3,A.Z 08 11042 030436 LDA 2,COL20 09 11043 116414 SUB# 0,3,SZR ;IF PTY ID, 10 11044 050470 STA 2,OTBO3 ;COLM 20= DEST 11 11045 030432 LDA 2,PTRPT 12 11046 004450 JSR PRBPR ;OUTPUT PTY BALTS CAST 13 14 ;IF NOT CLOSED PRIMARY, NO REG 15 11047 030432 LDA 2,COL24 ;RESET PTY DEST PTR 16 11050 050464 STA 2,OTBO3 17 11051 034371 LDA 3,POPT 18 11052 025421 LDA 1,POCLP+2,3 19 11053 031420 LDA 2,POCLP+1,3 20 11054 132414 SUB# 1,2,SZR 21 11055 000411 JMP PRPT5 ;DO REG 22 23 ;NO CLOSED PRIMARY, CHECK OPEN PRIMARY 24U11056 025402 LDA 1,POOPR+2,3 25U11057 031401 LDA 2,POOPR+1,3 26 11060 132414 SUB# 1,2,SZR 27 11061 000405 JMP PRPT5 ;DO REG 28 29 ;NO OPEN PRIM, CHECK PICK YOUR PARTY PRIM 30U11062 025402 LDA 1,POPPP+2,3 31U11063 031401 LDA 2,POPPP+1,3 32 11064 132415 SUB# 1,2,SNR 33 11065 000404 JMP PRPT3 ;NO REG 34 35 ;DEFINED,PRINT REG IF REGFL SET 36 11066 020325 PRPT5: LDA 0,A.Z ;NULL STRNG 37 11067 030410 LDA 2,PTRPT 38 11070 004451 JSR PREG 39 40 11071 014405 PRPT3: DSZ PTCTR 41 11072 000712 JMP PRPT2 42 11073 002401 JMP @ASPLP ;PROCEED W/REPT 43 44U11074 000000 ASPLP: SPLPA 45 11075 000000 REGFL: 0 ;REG FLAG: 1=PRNT, 0=DONT 46 11076 000000 PTCTR: 0 ;PTY CTR 47 11077 000000 PTRPT: 0 ;PTY PTR 48 11100 036005 COL20: TSTRG*2+23 ;PTY ID DEST IF A/N 49 11101 036011 COL24: TSTRG*2+27 ;PTY ID DEST IF NUMERIC 50 51 52 53 ;********************************************** 54 ; 55 ;FETCH- FETCH BALTS CAST OR REG IN AC0,AC1 56 ;IN: AC2= INDX,ADDR OF PTY 57 ;OUT: AC0,AC1=BALTS CAST OR REG IN 58 ; ACCORD W/ TP.SW(CUM OR PREC) 59 ; 0099 .MAIN 01 11102 054413 FETCH: STA 3,FETCX 02 11103 004026 JSR TP.SW 03 11104 000404 JMP FETC2 04 05 ;PREC LEVEL 06 11105 102400 SUB 0,0 07U11106 025003 LDA 1,PCWRD+DATIL,2 ;PREC 08 11107 000405 JMP FETC3 09 10 ;CUM LEVEL 11 11110 034215 FETC2: LDA 3,M1215 12 11111 021004 LDA 0,PMWRD+1+DATIL,2 ;CUM HI ORDER 13 11112 163400 AND 3,0 14 11113 025005 LDA 1,CCWRD+DATIL,2 ;CUM LO ORDER 15 16 11114 002401 FETC3: JMP @FETCX 17 18 11115 000000 FETCX: 0 ;EXIT 19 20 21 ;********************************************** 22 ; 23 ;PRBPR- PRINT BALLOTS PROCESSED 24 ;IN: AC0=CHAR ADDR OF LITERAL OR TEXT 25 ; AC2=ADDR OF PTY 26 ; 27 11116 054421 PRBPR: STA 3,PRBPX 28 11117 040414 STA 0,OTBO2 ;CHR ADDR OF LITERAL 29 11120 004762 JSR FETCH ;GET REG 30 11121 040311 STA 0,LS.TV 31 11122 044312 STA 1,LS.TV+1 32 11123 034201 LDA 3,.Z+DATIL 33 11124 172400 SUB 3,2 34 11125 004402 JSR OTBOR ;OUTPUT BALLOTS CAST 35 11126 002411 JMP @PRBPX ;EXIT 36 37 ;********************************************** 38 ;OTBOR- OUTPUT BLLOTS CAST OR REG 39 ;IN: AC2=ADDR OF PTY 40 ; OTBO2=SRC LITERAL ADDR ALREADY 41 ; SET UP BEFORE ENTERING 42 ;OUT: OUTPUT BALLOTS CAST OR REG W/LITERAL 43 ; 44 11127 054411 OTBOR: STA 3,OTBOX 45 11130 004752 JSR FETCH ;GET BALTS CAST OR REG 46 11131 006162 JSR @SETUP 47 11132 006142 JSR @MVASC ;MOVE PTY/REG TEXT 48 11133 000000 OTBO2: 0 ;FROM SRC TO TSTRG*2+30 49 11134 036012 OTBO3: TSTRG*2+30 50 11135 177734 -44 51 52 ;OUTPUT LINE 53 11136 002402 JMP @OTBOX 54 55 11137 000000 PRBPX: 0 ;EXIT 56 11140 000000 OTBOX: 0 ;EXIT 57 58 59 ;********************************************** 0100 .MAIN 01 ; 02 ;PREG- PRINT REGISTRATION 03 ;IN: AC0=CAR ADDR OF LITERAL OR TEXT 04 ; AC2=ADDR OF PTY (REG= PTY ADDR+10) 05 ; 06 11141 054776 PREG: STA 3,PRBPX 07 11142 034733 LDA 3,REGFL 08 11143 175015 MOV# 3,3,SNR 09 11144 000407 JMP PREG2 ;REG FLAG OFF,-> EXIT 10 11145 040766 STA 0,OTBO2 ;TEXT CHR ADDR 11 11146 102400 SUB 0,0 12 11147 040311 STA 0,LS.TV 13 11150 040312 STA 0,LS.TV+1 ;NO % FOR REG 14 11151 004756 JSR OTBOR 15 11152 006164 JSR @SPACE ;SPC AFTER REG 16 17 11153 002764 PREG2: JMP @PRBPX ;EXIT 18 19 ;********************************************** ^ 0101 .MAIN 01 ;SEGMENT #13 02 03 ; 04 ;END CARD PROCESSING 05 ; 06 011154 NCRD=. 07 ;EJECT PAGE 08 11154 024212  LDA 1,CHRFF 09 11155 020322 LDA 0,ATSTR 10 11156 006147 JSR @PCHR 11 11157 006151 JSR @PRINT 12 ; 13 ;SET LINE# = -1 SO PRINT ROUTINES 14 ;KNOW REPORT IS OVER 15 11160 020175 LDA 0,.Z-1 16 11161 040326 STA 0,LNUM 17 ; 18 ;TOTAL NUMBER OF PRECINCTS PROCESSED 19 11162 020177 LDA 0,.Z+1 20 11163 040300 STA 0,PCNT 21 11164 006160 JSR @ROLLP 22 11165 006157 JSR @ROLL 23 ;PRECINCT CLEAR 24 11166 020201 LDA 0,.Z+CLRPR 25 11167 006106 JSR @CLEAR 26 11170 002077 JMP @APRG1 27 ; 28 29 ;******************************************** 30 ;SUBROUTINE BALLT 31 ;READ,CHECK & COUNT BALLOTS (IR CARDS) 32 ;STARTS AT BALL1 33 34 11171 006155 BL.1: JSR @READ ;GET CARD 35 36 ;TEST FOR CONTROL CARDS 37 11172 022267 BALL1: LDA 0,@ACRDS 38 11173 030227 LDA 2,O6000 39 11174 143405 AND 2,0,SNR 40 11175 000430 JMP BL.25 ;NO,BEGINS WITH A NUMBER 41 42 ;TEST FOR PRECINCT END CARD 43 11176 022267 LDA 0,@ACRDS 44 11177 024424 LDA 1,BL.PN ;E 45 11200 106415 SUB# 0,1,SNR 46 11201 000753 JMP NCRD ;YES 47 48 ; 49 ;TEST FOR OPTION 301--ABSENTEE BALLOT 50 11202 020203 LDA 0,.Z+5 51 11203 024201 LDA 1,.Z+3 52 11204 030176 LDA 2,.Z+0 53 11205 006111 JSR @COLMS 54 11206 000410 JMP BALL2 ;ERROR 55 11207 024415 LDA 1,D301 56 11210 106414 SUB# 0,1,SZR 57 11211 000405 JMP BALL2 ;ERROR 58 11212 024015 LDA 1,ON 59 11213 044274 STA 1,ABFLG 0102 .MAIN 01 11214 006165 JSR @SREAD 02 11215 000754 JMP BL.1 03 ; 04 ;ERROR--ILLEGAL CONTROL CARD INTERSPERSED WITH BALLOTS 05 11216 006137 BALL2: JSR @MSG 06 11217 005422 005422 ;0-12 07 08 11220 001605 PRO1: PRG01 09 11221 137777 NPWVT: -1-PBVOT 10 11 ; 12 ; 13 11222 000021 D17: 17. 14 11223 004020 BL.PN: 4020 15 11224 000455 D301: 301. 16 ; 17 11225 020027 BL.25: LDA 0,STVAR 18 11226 024200 LDA 1,.Z+STPRC 19 11227 106414 SUB# 0,1,SZR 20 11230 000403 JMP BL.29 21 22 ; 23 ;STATE TRANSITION -> COUNTING BALLOTS 24 11231 034201 BL.26: LDA 3,.Z+STCNT 25 11232 054027 STA 3,STVAR 26 ; 27 ; 28 ;TEST FOR VALIDITY OF PREC # 29 ; 30 11233 020177 BL.29: LDA 0,.Z+1 31 11234 024201 LDA 1,.Z+3 32 11235 030176 LDA 2,.Z+0 33 11236 006111 JSR @COLMS 34 11237 000501 JMP PPERR 35 11240 040434 STA 0,CURPN 36 11241 034371 LDA 3,POPT 37 11242 025405 LDA 1,POPEP+2,3 38 11243 030210 LDA 2,D10 39 11244 132415 SUB# 1,2,SNR 40 11245 000430 JMP BL.41 ;OPTION 10 NO TESTING 41 ; 42 ;NOT OPTION 10/TEST FOR OPTION 17 43 11246 021410 LDA 0,POPE2+2,3 44 11247 030753 LDA 2,D17 45 11250 112415 SUB# 0,2,SNR 46 11251 000406 JMP CKPNA ;OPTION 17 47 ; 48 ;NOT OPTION 17/VALIDITY CHECK W/PREC # 49  ; 50 11252 024307 LDA 1,PRCN1 51 11253 020421 LDA 0,CURPN 52 11254 106414 SUB# 0,1,SZR 53 11255 000463 JMP PPERR ;ERROR 54 11256 000417 JMP BL.41 ;OK 55 ; 56 ;VALIDITY CHECK WITH PNA CARDS 57 ; 58 11257 030362 CKPNA: LDA 2,TXTCH 59 11260 050363 STA 2,CURCH 0103 .MAIN 01 11261 024413 LDA 1,CURPN 02 11262 125100 MOVL 1,1 03 11263 127120 ADDZL 1,1 04 11264 127120 ADDZL 1,1 05 11265 127120 ADDZL 1,1 06 11266 034223 LDA 3,O60 07 11267 167000 ADD 3,1 08 11270 020177 LDA 0,.Z+1 09 11271 006144 JSR @NXTPS 10 11272 000446 JMP PPERR ;ERROR NO MATCH FOUND 11 11273 000402 JMP BL.41 ;OK 12 ; 13 ;*********************************************** 14 ; 15 11274 000000 CURPN: 0 16 ; 17 11275 006165 BL.41: JSR @SREAD ;START NEXT CARD 18 ; 19 ; PROCESS IR CARD DEPENDING ON MAJOR 20 ; MODE IN EFFECT 21 11276 034371 LDA 3,POPT 22 11277 021465 LDA 0,POMOD+2,3 23 11300 025464 LDA 1,POMOD+1,3 24 11301 122400 SUB 1,0 25 11302 030403 LDA 2,MMJTB ;TABLE BASE 26 11303 113000 ADD 0,2 27 11304 003001 JMP @1,2 28 ; 29 ; MAJOR MODE JUMP TABLE 30 11305 011305 MMJTB: . 31 11306 011373 MMNOP ;230-NO LIST OPTIONS 32 11307 011726 KVLBL ;231,MAILING LABEL 33 11310 011652 KVLBD ;232,DIS MAILING LABELS 34 11311 011371 MMERR ;233 NOT USED 35 11312 011674 KVLNH ;234 NEGATIVE HIS LABELS 36 11313 011725 KVL1B ;235;HIS MAILING LABELS 37 11314 011371 MMERR ;236 NOT USED 38 11315 011371 MMERR ;237 NOT USED 39 11316 011706 KVJSL ;238 JURY SELECTION 40 11317 011371 MMERR ;239 NOT USED 41 11320 011371 MMERR ;240 NOT USED 42 11321 011374 KVPRT ;241 ROV REPORT 43 11322 011371 MMERR ;242 NOT USED 44 11323 011371 MMERR ;243 NOT USED 45 11324 011371 MMERR ;244 NOT USED 46 11325 011525 SLPRT ;245 47 11326 011371 MMERR ;246 NOT USED 48 11327 011371 MMERR ;247 NOT USED 49 11330 011371 MMERR ;248 NOT USED 50 11331 011371 MMERR ;249 NOT USED 51 11332 011371 MMERR ;250 NOT USED 52 11333 012456 KVPCS ;251 POST CARDS 53 11334 011371 MMERR ;252 NOT USED 54 11335 011371 MMERR ;253 NOT USED 55 11336 011371 MMERR ;254 NEGATIVE HIS POST CARDS 56 11337 011371 MMERR ;255 NOT USED 57 ; 58 ;***************************************** 59 0104 .MAIN 01 ;BALLOT PREPUNCH OR COMPARE ERRORS 02 11340 034371 PPERR: LDA 3,POPT 03 11341 035410 LDA 3,POPE2+2,3 04 ; 05 11342 020416 LDA 0,MS17 06 11343 024416 LDA 1,MS18 07 11344 030656 LDA 2,D17 08 11345 156415 SUB# 2,3,SNR 09 11346 040203 STA 0,.Z+5 10 11347 044202 STA 1,.Z+4 11 11350 030331 LDA 2,VNUM 12 11351 052406 STA 2,@CELOP 13 11352 006140 JSR @MSGSR 14 11353 000000 0 15 11354 010331 ISZ VNUM 16 11355 006165 JSR @SREAD 17 11356 002102 JMP @BALT1 18 ; 19 11357 006072 CELOP: OCELL 20 ; 21 11360 005427 MS17: 5427 ;0-17 22 11361 005430 MS18: 5430 ;0-18 23 ; 24 25 11362 000000 SPNUM: 0 ;SPLIT PREC PREPUNCH # 26 11363 173777 SVMSK: SMBIT-1 ;SDD BIT MASK 27 11364 005122 A3CRD: CARDS+2 ;CARD COL #3 28 11365 003531 APTB2: PPTBL 29 11366 003544 APTBP: PTBPT 30 11367 003614 ASPT2: SPTBL 31 11370 003626 ASPTP: SPTPT 32 ; 33 11371 006137 MMERR: JSR @MSG ;THIS MAJOR MODE OPTION NOT LEGAL 34 11372 105444 105444 ;8-24 35 ; 36 11373 002171 MMNOP: JMP @WAIT ;DUMMY PRINTER ROUTINE 37 ; 38 ; ********************************* ^ 0105 .MAIN 01  ;SEGMENT #14 02 03 ; MAJOR MODE -- IR CARD PROCESSING 04 ; 05 ; REGISTER OF VOTERS REPORT 06 11374 010331 KVPRT: ISZ VNUM 07 11375 024331 LDA 1,VNUM 08 11376 006103 JSR @B.BCD 09 11377 006115 JSR @EDIT 10 11400 024202 LDA 1,.Z+4 11 11401 006104 JSR @CBCDA 12 11402 035762 TSTRG*2 13 11403 000401 JMP .+1 ;IGNORE ERROR FOR NOW 14 ;PERIOD AFTER ROV# 15 11404 020513 LDA 0,PDEST 16 11405 024513 LDA 1,CHR. 17 11406 006147 JSR @PCHR 18 ; 19 ; 20 11407 006135 JSR @MMOVE 21 11410 020040 20040 22 11411 016774 TSTRG+3 23 11412 177701 -77 24 ; 25 ; 26 11413 006116 JSR @ENCDE 27 11414 005122 CARDS+2 ;ALPHA FIELDS, IR CARDS 28 11415 012242 CARDS*2+2 29 11416 177710 -56. 30 11417 026503 LDA 1,@.NAM3 31 11420 006126 JSR @GTNAM 32 11421 020200 LDA 0,.Z+2 33 11422 026473 LDA 1,@RINC1 34 11423 107000 ADD 0,1 35 11424 006125 JSR @GTADD 36 11425 020474 LDA 0,ENDST 37 11426 040476 STA 0,ZPTR1 38 11427 020475 KVP16: LDA 0,ZPTR1 39 11430 006121 JSR @GCHR 40 11431 030221 LDA 2,CHRSP 41 11432 132414 SUB# 1,2,SZR 42 11433 000403 JMP KVP17 43 11434 014470 DSZ ZPTR1 44 11435 000772 JMP KVP16 45 11436 030201 KVP17: LDA 2,.Z+3 46 11437 024465 LDA 1,ZPTR1 47 11440 147000 ADD 2,1 48 11441 006127 JSR @GTZIP 49 ; 50 ;VOTING HISTORY CODES 51 11442 030454 LDA 2,HISTA 52 11443 050446 STA 2,TBPTR ;HISTORY TABLE POINTER 53 11444 024446 LDA 1,TSG94 54 11445 044435 STA 1,KVP79 55 ;RESET PREV LINE AND YEAR TO -1 56 11446 176000 ADC 3,3 ;-1 57 11447 054367 STA 3,PVRLN 58 11450 054370 STA 3,PVRYR 59 ; 0106 .MAIN 01 ;LOOP--NEXT HISTORY POSSIBILITY 02 11451 102400 KVP70: SUB 0,0 03 11452 026451 LDA 1,@.NXVN 04 11453 006144 JSR @NXTPS 05 11454 000437 JMP KVP90 06 11455 006163 JSR @SKPRI 07 11456 176401 SUB 3,3,SKP 08 11457 034202 LDA 3,.Z+4 09 11460 030422 LDA 2,KVP79 10 11461 173000 ADD 3,2 11 11462 050420 STA 2,KVP79 12 11463 030426 LDA 2,TBPTR 13 11464 021000 LDA 0,0,2 14 11465 101015 MOV# 0,0,SNR 15 11466 000425 JMP KVP90 ;DONE 16 11467 034267 LDA 3,ACRDS 17 11470 117000 ADD 0,3 18 11471 025777 LDA 1,-1,3 ;IR PATTERN THIS COLUMN 19 11472 035001 LDA 3,1,2 ;PATTERN STORED IN HISTORY TABLE 20 11473 137405 AND 1,3,SNR 21 11474 000410 JMP KVP89 ;NO HIT 22 ; 23 ;MOVE 3 CHARS TO PRINT STRING 24 11475 151400 INC 2,2 25 11476 151520 INCZL 2,2 26 11477 050402 STA 2,KVP78 ;CHAR ADDRESS OF TABLE TEXT 27 11500 006142 JSR @MVASC 28 11501 000000 KVP78: 0 29 11502 000000 KVP79: 0 30 11503 177775 -3 31 ; 32 ;ADVANCE HIS TABLE POINTER 4 WORDS 33 11504 030405 KVP89: LDA 2,TBPTR 34 11505 034202 LDA 3,.Z+4 35 11506 173000 ADD 3,2 36 11507 050402 STA 2,TBPTR 37 11510 000741 JMP KVP70 ;NEXT HIS ENTRY 38 ; 39 11511 000000 TBPTR: 0 40 11512 036113 TSG94: TSTRG*2+93.-4 41 ; 42 11513 006133 KVP90: JSR @LSPRT 43 11514 002102 JMP @BALT1 44 11515 012200 RINC1: RINC 45 11516 015735 HISTA: HISTB 46 11517 035766 PDEST: TSTRG*2+4 47 11520 000056 CHR.: ". 48 11521 036166 ENDST: TSTRG*2+132. 49 11522 012176 .NAM3: NAMS 50 11523 007702 .NXVN: NXVN 51 11524 000000 ZPTR1: 0 52 ; 53 ; 54 ;********************************************* 55 ; 56 ;SIGNATURE LIST REPORT 57 ; 58 11525 010331 SLPRT: ISZ VNUM 59 11526 024331 LDA 1,VNUM 0107 .MAIN 01 11527 006103 JSR @B.BCD 02 11530 006115 JSR @EDIT 03 11531 024202 LDA 1,.Z+4 04 11532 006104 JSR @CBCDA 05 11533 035762 TSTRG*2 06 11534 000401 JMP .+1 07 ; 08 ;PERIOD AFTER ROV# 09 11535 020762 LDA 0,PDEST 10 11536 024762 LDA 1,CHR. 11 11537 006147 JSR @PCHR 12 ; 13 ; 14 11540 006116 JSR @ENCDE 15 11541 005122 CARDS+2 16 11542 012242 CARDS*2+2 17 11543 177706 -58. 18 ; 19 11544 026503 LDA 1,@.NAMS 20 11545 006126 JSR @GTNAM 21 11546 006142  JSR @MVASC 22 11547 024154 MMSG1*2+2 23 11550 036133 TSTRG*2+105. 24 11551 177763 -13. 25 ;CHECK FOR PARTY 26 11552 034371 LDA 3,POPT 27 11553 021420 LDA 0,POCLP+1,3 28 11554 025421 LDA 1,POCLP+2,3 29 11555 106405 SUB 0,1,SNR 30 11556 000405 JMP SLPR1 ;NO PARTY 31 11557 006142 JSR @MVASC 32 11560 024314 MMSG3*2+2 33 11561 036155 TSTRG*2+123. 34 11562 177776 -2 35 ;CHECK FOR DISTRICT ONE 36 11563 006134 SLPR1: JSR @MATCH 37 11564 016221 DISTA: DISTB 38 11565 000406 JMP SLPR7 ;NO MATCH IN DISTRICT TBL ONE 39 11566 054402 STA 3,SLPR5 40 11567 006142 JSR @MVASC 41 11570 000000 SLPR5: 0 42 11571 036157 TSTRG*2+125. 43 11572 177775 -3 44 ; 45 ;CHECK FOR DISTRICT TWO 46 11573 024771 SLPR7: LDA 1,DISTA 47 11574 030454 LDA 2,DIFDS 48 11575 147000 ADD 2,1 49 11576 044402 STA 1,DIS2A 50 11577 006134 JSR @MATCH 51 11600 000000 DIS2A: 0 52 11601 000406 JMP NMATCH 53 11602 054402 STA 3,SLPR8 54 11603 006142 JSR @MVASC 55 11604 000000 SLPR8: 0 56 11605 036163 TSTRG*2+129. 57 11606 177775 -3 58 ; 59 11607 024175 NMATCH: LDA 1,.Z-1 0108 .MAIN 01 11610 044332 STA 1,SPCFG 02 11611 006133 JSR @LSPRT 03 11612 026434 LDA 1,@.NAM2 04 11613 006125 JSR @GTADD 05 ;FIXED TEXT 06 11614 006142 JSR @MVASC 07 11615 024174 MMSG2*2+2 08 11616 036033 TSTRG*2+41. 09 11617 177664 -76. 10 ;TEST FOR ABSENTEE BALLOT 11 11620 004274 JSR ABFLG 12 11621 000405 JMP SLPR4 ;NO 13 11622 006142 JSR @MVASC 14 11623 024332 MMSG5*2+2 15 11624 036033 TSTRG*2+41. 16 11625 177742 -30. 17 ; 18 ; 19 ;CHECK FO R PARTY 20 11626 034371 SLPR4: LDA 3,POPT 21 11627 021420 LDA 0,POCLP+1,3 22 11630 025421 LDA 1,POCLP+2,3 23 11631 106405 SUB 0,1,SNR 24 11632 000405 JMP SLPR6 ;NO PARTY 25 11633 006142 JSR @MVASC 26 11634 024322 MMSG4*2+2 27 11635 036151 TSTRG*2+119. 28 11636 177774 -4 29 ; 30 11637 024176 SLPR6: LDA 1,.Z+0 31 11640 044332 STA 1,SPCFG 32 11641 006133 JSR @LSPRT 33 11642 006164 JSR @SPACE 34 11643 024014 LDA 1,OFF 35 11644 044274 STA 1,ABFLG 36 11645 002102 JMP @BALT1 37 11646 012202 .NAM2: NAMS2 38 11647 012176 .NAMS: NAMS 39 11650 000132 DIFDS: 2*NMENT 40 11651 000340 O340: 340 41 ; 42 ; 43 ;******************************************* 44 ;PRINT DIS MAILING LABELS 45 11652 010331 KVLBD: ISZ VNUM 46 11653 006134 JSR @MATCH 47 11654 016221 ADDIS: DISTB 48 11655 000402 JMP KVLB1; NO MATCH IN DIS ONE 49 11656 000450 JMP KVLBL ;PRINT LABEL,MATCH FOUND 50 ; 51 11657 024775 KVLB1: LDA 1,ADDIS 52 11660 030770 LDA 2,DIFDS 53 11661 147000 ADD 2,1 54 11662 044402 STA 1,ADDI2 55 11663 006134 JSR @MATCH 56 11664 000000 ADDI2: 0 57 11665 002102 JMP @BALT1 58 11666 000440 JMP KVLBL ;PRINT LABEL 59 ; 0109 .MAIN 01 ;PRINT HIS MAILING LABELS 02 11667 010331 KVLBH: ISZ VNUM 03 11670 006134 JSR @MATCH 04 11671 015735 ADHIS: HISTB 05 11672 002102 JMP @BALT1 ;NO MATCH 06 11673 000433 JMP KVLBL ;MATCH-PRINT LABEL 07 ;PRINT NEGATIVE HISTORY LABELS 08 11674 010331 KVLNH: ISZ VNUM 09 11675 006134 JSR @MATCH 10 11676 015735 HISTB 11 11677 000402 JMP NEGLB 12 11700 002102 JMP @BALT1 ;NO LABEL/MATCH FOUND 13 11701 006140 NEGLB: JSR @MSGSR 14 11702 000000 0 15 11703 006154 JSR @RDBUT 16 11704 000422 JMP KVLBL 17 11705 002102 JMP @BALT1 18 ; 19 ; 20 ; 21 ; 22 ;JURY SELECTION MAIL LABELS 23 11706 010331 KVJSL: ISZ VNUM 24 11707 020277 LDA 0,JIRST 25 11710 024276 LDA 1,JSTRT 26 11711 106414 SUB# 0,1,SZR 27 11712 000411 JMP NXIRC ;DON'T PRINT LABEL 28 ;TEST FOR FLAG JURY EXEMP MATCH 29 ; 30 11713 024275 LDA 1,JSKIP 31 11714 044276 STA 1,JSTRT 32 11715 024177 LDA 1,.Z+1 33 11716 044277 STA 1,JIRST 34 11717 006134 JSR @MATCH 35 11720 016505 FLGTB 36 11721 000405 JMP KVLBL ;NOT EXEMPT 37 11722 002102 JMP @BALT1 ;JURY EXEMPT 38 ; 39 11723 010277 NXIRC: ISZ JIRST 40 11724 002102 JMP @BALT1 41 ; 42 ;PRINT PLAIN MAILING LABELS 43 ; 44 11725 010331 KVL1B: ISZ VNUM 45 11726 006116 KVLBL: JSR @ENCDE 46 11727 005122 CARDS+2 47 11730 012242 CARDS*2+2 48 11731 177706 -58. 49 11732 024414 LDA 1,STCOL 50 11733 006156 JSR @REVNM 51 11734 006151 JSR @PRINT 52 11735 024411 LDA 1,STCOL 53 11736 006125 JSR @GTADD 54 11737 006151 JSR @PRINT 55 11740 024406 LDA 1,STCOL 56 11741 006127 JSR @GTZIP 57 11742 006151 JSR @PRINT 58 11743 020201 LDA 0,.Z+3 59 11744 006141 JSR @MSPAC 0110 .MAIN 01 11745 002102 JMP @BALT1 02 ; 03 11746 035762 STCOL: TSTRG*2 04 ; 05 ;****************************************** 06 ; 07 ;GET NAME OF VOTER 08 ;GETS VOTER NAME INTO TSTRG 09 ;LAST NAME,FIRST NAME,MIDDLE INIT 10 ;IN: AC1 TSTRG POINTER 11 ;OUT: UPDATED TSTRG IN AC1 12 ;SEARCH FOR A "/" DELIMITER OF IR CARD 13 11747 024430 GTNA1: LDA 1,MXNAM 14 11750 044430 STA 1,NMCTR 15 11751 054432 STA 3,GTNRT 16 11752 014426 DSZ NMCTR 17 11753 000402 JMP .+2 18 11754 000420 JMP SLSER 19 11755 046424 STA 1,@.RINC 20 11756 026420 LDA 1,@.PTRC 21 11757 046423 STA 1,@.PINC 22 11760 022422 SLSHS: LDA 0,@.PINC 23 11761 006121 JSR @GCHR 24 11762 034222 LDA 3,CHRSL 25 11763 166415 SUB# 3,1,SNR ;SLASH? 26 11764 000407 JMP SLSHR ;YES 27 11765 022414 LDA 0,@.RINC ;NO 28 11766 006147 JSR @PCHR 29 11767 012413 ISZ @.PINC 30 11770 012411 ISZ @.RINC 31 11771 000767 JMP SLSHS 32 11772 026407 LDA 1,@.RINC 33 11773 002410 SLSHR: JMP @GTNRT 34 ; 35 ; 36 11774 006137 SLSER: JSR @MSG 37 11775 000000 0 38 ; 39 11776 012175 .PTRC: PTRC 40 11777 000067 MXNAM: 55. 41 12000 000000 NMCTR: 0 42 12001 012200 .RINC: RINC 43 12002 012177 .PINC: PINC 44 12003 000000 GTNRT: 0 ;RETURN 45 ; 46 ;*********************************************** 47 ; 48 ; 49 ; 50 ;GET VOTER ADDRESS 51 ;STORES VOTER ADDRESS IN TSTRG 52 ;IN: TSTRG POINTER IN AC1 53 ;OUT AC1 WITH UPDATED TSTRG POINTER 54 ; 55 12004 054427 GTAD1: STA 3,GTADR 56 12005 044573 STA 1,RINC 57 12006 024567 LDA 1,PTRC 58 12007 044570 STA 1,PINC 59 12010 020567 GTAD2: LDA 0,PINC 0111 .MAIN 01 12011 006121 JSR @GCHR 02 12012 034222 LDA 3,CHRSL 03 12013 166415 SUB# 3,1,SNR ;SLASH? 04 12014 000403 JMP GTAD3 ;YES 05 12015 010562 ISZ PINC ;NO 06 12016 000772 JMP GTAD2 07 ; 08 12017 010560 GTAD3: ISZ PINC 09 12020 030561 LDA 2,ENDNM 10 12021 020556 LDA 0,PINC 11 12022 112415 SUB# 0,2,SNR ;TEST FOR END OF ADD FIELD 12 12023 000407 JMP GTAD4 ;YES 13 12024 006121 JSR @GCHR 14 12025 020553 LDA 0,RINC 15 12026 006147 JSR @PCHR 16 12027 010551 ISZ RINC 17 12030 000767 JMP GTAD3 18 ; 19 12031 026750 LDA 1,@.RINC 20 12032 002401 GTAD4: JMP @GTADR 21  ; 22 12033 000000 GTADR: 0 ;RETURN 23 ; 24 ;*************************************************** 25 ;SUBROUTINE GETZIP 26 ;RETRIEVES CITY AND STATE ALPHA BASED ON 27 ;PUNCH CODE IN IR CARD AND STORES IN 28 ;TSTRG 29 ;IN: AC1--CHAR POINTER TO TSTRG 30 ; 31 12034 054430 GTZI1: STA 3,ZIPRT 32 12035 044424 STA 1,ZDPTR 33 12036 020236 LDA 0,D60 34 12037 024201 LDA 1,.Z+3 35 12040 030176 LDA 2,.Z+0 36 12041 006111 JSR @COLMS 37 12042 000401 JMP .+1 ;IGNORE ERROR FOR NOW 38 12043 101100 MOVL 0,0 39 12044 103120 ADDZL 0,0 40 12045 103120 ADDZL 0,0 41 12046 103120 ADDZL 0,0 42 12047 024216 LDA 1,O20 43 12050 107000 ADD 0,1 44 12051 020177 LDA 0,.Z+1 45 12052 030362 LDA 2,TXTCH 46 12053 050363 STA 2,CURCH 47 12054 006144 JSR @NXTPS 48 12055 002407 JMP @ZIPRT ;NO ALPHA 49 12056 040402 STA 0,ZSPTR 50 12057 006142 JSR @MVASC 51 12060 000000 ZSPTR: 0 ;SOURCE POINTER 52 12061 000000 ZDPTR: 0 ;DEST POINTER 53 12062 177744 -28. 54 12063 002401 JMP @ZIPRT 55 ; 56 12064 000000 ZIPRT: 0 ;RETURN 57 ; 58 ;**************************************** 59 ; 0112 .MAIN 01 12065 024154 MMSG1: .+1*2 02 .TXT "* *" 12066 025040 12067 020040 12070 020040 12071 020040 12072 020040 12073 020040 12074 025000 03 ; 04 12075 024174 MMSG2: .+1*2 05 .TXT "------------------------------ 12076 026455 12077 026455 12100 026455 12101 026455 12102 026455 12103 026455 12104 026455 12105 026455 12106 026455 12107 026455 12110 026455 12111 026455 12112 026455 12113 026455 12114 026455 06 12115 020055 -------------------------------- --- --- ---" 12116 026455 12117 026455 12120 026455 12121 026455 12122 026455 12123 026455 12124 026455 12125 026455 12126 026455 12127 026455 12130 026455 12131 026455 12132 026455 12133 026455 12134 026455 12135 026440 12136 020055 12137 026455 12140 020055 12141 026455 12142 020055 12143 026455 12144 000000 07 ; 08 12145 024314 MMSG3: .+1*2 09 .TXT "* " 12146 025040 12147 000000 10 ; 11 12150 024322 MMSG4: .+1*2 12 .TXT "----" 0113 .MAIN 12151 026455 12152 026455 12153 000000 01 ; 02 12154 024332 MMSG5: .+1*2 03  .TXT "ABSENTEE BALLOT APPLIED FOR " 12155 040502 12156 051505 12157 047124 12160 042505 12161 020102 12162 040514 12163 046117 12164 052040 12165 040520 12166 050114 12167 044505 12170 042040 12171 043117 12172 051040 12173 020040 12174 000000 04 ; 05 12175 012243 PTRC: CARDS*2+3 06 12176 035770 NAMS: TSTRG*2+6 07 12177 000000 PINC: 0 08 12200 000000 RINC: 0 09 12201 012332 ENDNM: CARDS*2+58. 10 12202 035772 NAMS2: TSTRG*2+8. 11 ; 12 ; 13 ; 14 ;********************************************** 15 ;REVNM--GETS NAME INTO TSTRG 16 ;FIRST,MIDDLE,LAST 17 ;IN--AC0,CHAR DEST POINTER 18 ;OUT--NAME IN TSTRG 19 ; AC1 WITH UPDATED TSTRG POINTER 20 ; 21 12203 054510 REVN1: STA 3,REVRT 22 12204 044774 STA 1,RINC 23 12205 024770 LDA 1,PTRC 24 12206 044771 STA 1,PINC 25 12207 020177 LDA 0,.Z+1 26 12210 106400 SUB 0,1 27 12211 044504 STA 1,COMPT ;COMMA POINTER 28 12212 030502 LDA 2,D57 29 12213 050503 STA 2,CTCOL ;COLUMN COUNTER 30 ; 31 12214 014502 REVN2: DSZ CTCOL 32 12215 000402 JMP REVN3 ;OKAY 33 12216 000401 JMP .+1 ;ERROR RETURN******** 34 12217 020760 REVN3: LDA 0,PINC 35 12220 006121 JSR @GCHR 36 12221 030241 LDA 2,CCOM 37 12222 034222 LDA 3,CHRSL 38 12223 166415 SUB# 3,1,SNR ;SLASH? 39 12224 000405 JMP REVN4 ;SAVE SLASH POSITION 40 12225 146415 SUB# 2,1,SNR ;COMMA? 0114 .MAIN 01 12226 040467 STA 0,COMPT ;SAVE COMMA POINTER 02 12227 010750 ISZ PINC 03 12230 000764 JMP REVN2 ;TRY AGAIN 04 ; 05 12231 040466 REVN4: STA 0,SLPTR 06 12232 024463 LDA 1,COMPT 07 12233 044744 STA 1,PINC 08 12234 010743 REVN5: ISZ PINC 09 12235 020742 LDA 0,PINC 10 12236 006121 JSR @GCHR 11 12237 034221 LDA 3,CHRSP 12 12240 166415 SUB# 3,1,SNR ;SPACE? 13 12241 000773 JMP REVN5 ;YES,IGNORE 14 ;FIRST NAME 15 12242 040411 REVN6: STA 0,FN1 ;NOT SPACE 16 12243 030735 LDA 2,RINC 17 12244 050410 STA 2,FN2 18 12245 024452 LDA 1,SLPTR 19 12246 106400 SUB 0,1 20 12247 124000 COM 1,1 21 12250 125400 INC 1,1 22 12251 044404 STA 1,FN3 ;#OF CHARACTERS 23 12252 006142 REVN7: JSR @MVASC 24 12253 000000 FN1: 0 25 12254 000000 FN2: 0 26 12255 000000 FN3: 0 27 ; 28 ;LAST NAME,MIDDLE INIT 29 12256 030717 LDA 2,PTRC 30 12257 050416 STA 2,LN1 31 12260 024435 LDA 1,COMPT 32 12261 146400 SUB 2,1 33 12262 124000 COM 1,1 34 12263 125400 INC 1,1 35 12264 044413 STA 1,LN3 36 12265 034770 LDA 3,FN3 37 12266 174000 COM 3,3 38 12267 175400 INC 3,3 39 12270 175400 INC 3,3 40 12271 030707 LDA 2,RINC 41 12272 173000 ADD 3,2 42 12273 050403 STA 2,LN2 43 12274 006142 JSR @MVASC 44 12275 000000 LN1: 0 45 12276 000000 LN2: 0 46 12277 000000 LN3: 0 47 ; 48 12300 024700 LDA 1,RINC 49 12301 030776 LDA 2,LN3 50 12302 150000 COM 2,2 51 12303 151400 INC 2,2 52 12304 147000 ADD 2,1 53 12305 030750 LDA 2,FN3 54 12306 150000 COM 2,2 55 12307 151400 INC 2,2 56 12310 147000 ADD 2,1 57 12311 125400 INC 1,1 58 12312 002401 JMP @REVRT 59 ; 0115 .MAIN 01 12313 000000 REVRT: 0 ;RETURN 02 12314 000071 D57: 57. 03 12315 000000 COMPT: 0 04 12316 000000 CTCOL: 0 05 12317 000000 SLPTR: 0 06 ; 07 08 ;********************************************** 09 10 11 ;GCHR--GET STRING CHAR 12 ;IN: AC0=CHR ADDR 13 ;OUT: AC1=CHAR 14  ; AC0,AC2=SAVED 15 16 12320 054410 GCHR1: STA 3,PGCHRX 17 12321 115220 MOVZR 0,3 18 12322 025400 LDA 1,0,3 19 12323 034226 LDA 3,M8.15 20 12324 125003 MOV 1,1,SNC 21 12325 125300 MOVS 1,1 22 12326 167400 AND 3,1 23 12327 002401 JMP @PGCHRX 24 25 12330 000000 PGCHRX: 0 26 ;********************************************** 27 ;PCHR--PUT STRING CHAR 28 ;IN: AC0=CHAR ADDR 29 ; AC1=CHAR 30 ;OUT: AC0,AC1,AC2 SAVED 31 32 12331 054777 PCHR1: STA 3,PGCHRX 33 12332 040422 STA 0,PCHRS1 34 12333 044423 STA 1,PCHRS+2 35 12334 034226 LDA 3,M8.15 36 12335 167400 AND 3,1 37 12336 050417 STA 2,PCHRS1+1 38 12337 111220 MOVZR 0,2 39 12340 021000 LDA 0,0,2 40 12341 101003 MOV 0,0,SNC 41 12342 101300 MOVS 0,0 42 12343 034243 LDA 3,M0.7 43 12344 163400 AND 3,0 44 12345 123003 ADD 1,0,SNC 45 12346 101300 MOVS 0,0 46 12347 041000 STA 0,0,2 47 12350 020404 LDA 0,PCHRS1 48 12351 024405 LDA 1,PCHRS1+2 49 12352 030403 LDA 2,PCHRS1+1 50 12353 002755 JMP @PGCHRX 51 52 000003 PCHRS1: .BLK 3 53 54 ;********************************************* 55 ; 56 ;MATCH--CHECKS FOR MATCH IN CC7S 63-80 OF IR CARD 57 ; AND CORREPONDING PUNCHES REFLECTED IN APPROPRIATE 58 ;TABLE---DIS,HIS,OR FLG. 59 ;IN: AC3 CONTAINS CHAR POINTER 0116 .MAIN 01 ;SKIP RETURN IF MATCH 02  ;NO-SKIP RETURN IF NO MATCH 03 ; 04 12357 031400 MATC1: LDA 2,0,3 05 12360 175400 INC 3,3 06 12361 054425 STA 3,MTRTN 07 ; 08 12362 021000 MATC2: LDA 0,0,2 ;GET TABLE CONTENTS 09 12363 101005 MOV 0,0,SNR ;ANY ENTRY? 10 12364 002422 JMP @MTRTN ;NO MATCH 11 12365 034267 LDA 3,ACRDS 12 12366 117000 ADD 0,3 13 12367 025777 LDA 1,-1,3 ;GET CARD COLUMN PATTERN 14 12370 035001 LDA 3,1,2 ;GET PATTERN FROM TABLE 15 12371 137414 AND# 1,3,SZR 16 12372 000404 JMP HIT ;MATCH FOUND 17 12373 020202 LDA 0,.Z+4 18 12374 113000 ADD 0,2 19 12375 000765 JMP MATC2 20 12376 020200 HIT: LDA 0,.Z+2 21 12377 113000 ADD 0,2 22 12400 151100 MOVL 2,2 23 12401 155000 MOV 2,3 24 12402 020177 LDA 0,.Z+1 25 12403 116400 SUB 0,3 26 12404 010402 ISZ MTRTN 27 12405 002401 JMP @MTRTN 28 ; 29 12406 000000 MTRTN: 0 ;RETURN 30 ; 31 ;********************************************** 32 33 ;NXTPS--NEXT PRINT STRING 34 ;IN: AC1=VOTOMATIC POSITION # & CARD TYPE (0-11) 35 ;OUT: AC0=CHAR PTR & SKIPS IF SUCCESSFUL 36 ; AC3=PREVIOUS 'CURCH' 37 ;UPDATES CURCH 38 39 12407 054410 NXTP1: STA 3,NXTPX 40 ; 41 ;IF SKO,RETURN UNSUCCESSFUL 42 12410 034371 LDA 3,POPT 43 12411 031402 LDA 2,POLPT+2,3 44 12412 034203 LDA 3,.Z+5 45 12413 156414 SUB# 2,3,SZR 46 12414 006402 JSR @ANXTP ;NOT MODE 5 47 12415 002402 JMP @NXTPX 48 49 12416 013767 ANXTP: NXTPA 50 12417 000000 NXTPX: 0 51 52 ;********************************************** 53 ; 54 ;INITIALIZE OPTIONS 55 ; 56 12420 030371 INOP1: LDA 2,POPT 57 ; 58 12421 021000 INOP3: LDA 0,0,2 59 12422 101015 MOV# 0,0,SNR 0117 .MAIN 01 12423 001400 JMP 0,3 ;DONE 02 12424 021001 LDA 0,1,2 03 12425 041002 STA 0,2,2 04 12426 020201 LDA 0,.Z+3 ;NEXT OPTION 05 12427 113000 ADD 0,2 06 12430 000771 JMP INOP3 07  08 ;********************************************** 09 10 11 ; 12 ;NEGATIVE HIS POST CARDS 13 12431 010331 KPCNH: ISZ VNUM 14 12432 006134 JSR @MATCH 15 12433 015735 HISTB 16 12434 000402 JMP NEGPC ;PRINT CARD 17 12435 002102 JMP @BALT1 ;MATCH/NO PRINT 18 12436 006140 NEGPC: JSR @MSGSR 19 12437 000000 0 20 12440 006154 JSR @RDBUT 21 12441 000416 JMP KVPCN 22 12442 002102 JMP @BALT1 23 ; 24 ; 25 12443 014114 NXTC: NXTCT 26 12444 000000 KVP10: 0 27 12445 012700 KVP5: KVPC5 28 12446 012701 PTRVM: VMPTR 29 12447 000044 CHRDS: 44 ;$ 30 12450 000000 TMPCH: 0 31 12451 012702 KVP2: KVPC2 32 12452 000000 KVPC8: 0 33 12453 000000 KVPC9: 0 34 12454 000000 REPTR: 0 35 12455 012706 CHOLD: OLDCH 36 ; 37 ;POST CARD NOTICES 38 ; 39 12456 010331 KVPCS: ISZ VNUM 40 12457 006116 KVPCN: JSR @ENCDE 41 12460 005122 CARDS+2 42 12461 012242 CARDS*2+2 43 12462 177706 -58. 44 12463 024322 LDA 1,ATSTR 45 12464 046761 STA 1,@KVP5 46 12465 020177 LDA 0,.Z+1 47 12466 026760 LDA 1,@PTRVM 48 12467 030362 LDA 2,TXTCH 49 12470 050363 STA 2,CURCH 50 12471 006144 KVPC1: JSR @NXTPS 51 12472 002102 JMP @BALT1 ;NO LINE# FOUND 52 12473 056762 STA 3,@CHOLD 53 12474 034363 LDA 3,CURCH 54 12475 054753 STA 3,TMPCH 55 ;LINE# FOUND/TEST FOR $P OR $I 56 ; 57 12476 042753 KVPC7: STA 0,@KVP2 58 12477 006121 JSR @GCHR 59 12500 030747 LDA 2,CHRDS ;DOLLAR SIGN 0118 .MAIN 01 12501 132414 SUB# 1,2,SZR 02 12502 000505 JMP NOTDS ;NOT DOLLAR SIGN 03 ; 04 ;DOLLAR SIGN FOUND/TEST FOR P OR I 05 ; 06 12503 101400 INC 0,0 07 12504 006121 JSR @GCHR 08 12505 030576 LDA 2,CHRP 09 12506 034576 LDA 3,CHRI 10 12507 132414 SUB# 1,2,SZR ;P? 11 12510 000520 JMP KVPC3 ;NOT P/ CHECK FOR I 12 ; 13 ;$P FOUND/RETRIEVE DATA AND PUT IN TSTRG 14 12511 101400 INC 0,0 15 12512 040742 STA 0,REPTR 16 12513 006121 JSR @GCHR 17 12514 121000 MOV 1,0 18 12515 030307 LDA 2,PRCN1 ;GET CURRENT PRC# 19 12516 151100 MOVL 2,2 20 12517 153120 ADDZL 2,2 21 12520 153120 ADDZL 2,2 22 12521 153120 ADDZL 2,2 23 12522 034223 LDA 3,O60 24 12523 173000 ADD 3,2 25 12524 145000 MOV 2,1 26 12525 030362 LDA 2,TXTCH 27 12526 050363 STA 2,CURCH 28 12527 162400 SUB 3,0 29 12530 006144 JSR @NXTPS 30 12531 000444 JMP NOTD1 ;UNDEFINED PNA CARD 31 ; 32 12532 040553 STA 0,KVPC4 33 12533 020717 LDA 0,KVPC8 34 12534 040717 STA 0,KVPC9 35 12535 026706 LDA 1,@NXTC 36 12536 044706 STA 1,KVP10 37 12537 020546 KVPC6: LDA 0,KVPC4 38 12540 006121 JSR @GCHR 39 12541 030176 LDA 2,.Z+0 40 12542 132415 SUB# 1,2,SNR 41 12543 000407 JMP NULL0 ;END OF STRING/GO BACK TO PCN CARD 42 12544 020534 LDA 0,KVPC5 43 12545 006147 JSR @PCHR 44 12546 010534 ISZ KVPC2 45 12547 010536 ISZ KVPC4 46 12550 010530 ISZ KVPC5 47 12551 000766 JMP KVPC6 ;NEXT CHAR 48 ; 49 ;END OF STRING 50 ; 51 12552 024527 NULL0: LDA 1,VMPTR 52 12553 020177 LDA 0,.Z+1 53 12554 030532 LDA 2,OLDCH 54 12555 050363 STA 2,CURCH 55 12556 006144 JSR @NXTPS 56 12557 000401 JMP .+1 57 12560 054526 STA 3,OLDCH 58 12561 034363 LDA 3,CURCH 59 12562 054666 STA 3,TMPCH 0119 .MAIN 01 12563 030515 LDA 2,KVPC5 02 12564 034660 LDA 3,KVP10 03 12565 157000 ADD 2,3 04 12566 054512 STA 3,KVPC5 05 12567 020664 LDA 0,KVPC9 06 12570 024664 LDA 1,REPTR 07 12571 123000 ADD 1,0 08 12572 101400 INC 0,0 09 12573 000401 JMP .+1 10 12574 000702 JMP KVPC7 11 ;;FILL OUT UNDEFINED $ W/BLANKS 12 12575 030172 NOTD1: LDA 2,OM3 13 12576 024221 NOTD2: LDA 1,CHRSP 14 12577 020501 LDA 0,KVPC5 15 12600 006147 JSR @PCHR 16 12601 010477 ISZ KVPC5 17 12602 010500 ISZ KVPC2 18 12603 151404 INC 2,2,SZR 19 12604 000772 JMP NOTD2 20 12605 020475 LDA 0,KVPC2 21 12606 000670 JMP KVPC7 22 ; 23 ;NOT DOLLAR SIGN/TEST FOR NULL CHAR 24 ; 25 12607 030176 NOTDS: LDA 2,.Z+0 26 12610 146415 SUB# 2,1,SNR 27 12611 000407 JMP DNLIN ;DONE W/LINE 28 12612 020466 LDA 0,KVPC5 29 12613 006147 JSR @PCHR 30 12614 010464 ISZ KVPC5 31 12615 020465 LDA 0,KVPC2 32 12616 101400 INC 0,0 33 12617 000657 JMP KVPC7 ;CONTINUE 34 ; 35 ;DONE WITH LINE 36 ; 37 12620 006151 DNLIN: JSR @PRINT 38 12621 030627 LDA 2,TMPCH 39 12622 050363 STA 2,CURCH 40 12623 020177 LDA 0,.Z+1 41 12624 024455 LDA 1,VMPTR 42 12625 030322 LDA 2,ATSTR 43 12626 050452 STA 2,KVPC5 44 12627 000642 JMP KVPC1 45 ; 46 ;CHECK FOR $I 47 ; 48 12630 136414 KVPC3: SUB# 1,3,SZR 49 12631 000744 JMP NOTD1 ;ERROR 50 ; 51 ;I FOUND 52 12632 101400 INC 0,0 53 12633 006121 JSR @GCHR 54 12634 030224 LDA 2,O61 55 12635 132415 SUB# 1,2,SNR 56 12636 000410 JMP KVPNM 57 12637 151400 INC 2,2 58 12640 132415 SUB# 1,2,SNR 59 12641 000415 JMP KVPAD 0120 .MAIN 01 12642 151400 INC 2,2 02 12643 132415 SUB# 1,2,SNR 03 12644 000422 JMP KVZIP 04 12645 000730 JMP NOTD1 ;UNDEFINED $ 05 ; 06 12646 024432 KVPNM: LDA 1,KVPC5 07 12647 006156 JSR @REVNM 08 12650 020430 LDA 0,KVPC5 09 12651 044427 STA 1,KVPC5 10 12652 106400 SUB 0,1 11 12653 020427 LDA 0,KVPC2 12 12654 123000 ADD 1,0 13 12655 000621 JMP KVPC7 14 ; 15 ; 16 12656 024422 KVPAD: LDA 1,KVPC5 17 12657 006125 JSR @GTADD 18 12660 020420 LDA 0,KVPC5 19 12661 044417 STA 1,KVPC5 20 12662 106400 SUB 0,1 21 12663 020417 LDA 0,KVPC2 22 12664 123000 ADD 1,0 23 12665 000611 JMP KVPC7 24 ; 25 12666 024412 KVZIP: LDA 1,KVPC5 26 12667 006127 JSR @GTZIP 27 12670 020410 LDA 0,KVPC5 28 12671 026416 LDA 1,@PCPTR 29 12672 044406 STA 1,KVPC5 30 12673 106400 SUB 0,1 31 12674 020406 LDA 0,KVPC2 32 12675 123000 ADD 1,0 33 12676 000600 JMP KVPC7 34 ; 35 ;DONE WITH THIS CARD 36 12677 002102 NOPCN: JMP @BALT1 37 12700 000000 KVPC5: 0 ;CHAR DEST PTR 38 12701 177640 VMPTR: 177640 39 12702 000000 KVPC2: 0 ;CHAR SOURCE POINTER 40 12703 000120 CHRP: 120 ;P 41 12704 000111 CHRI: 111 ;I 42 12705 000000 KVPC4: 0 ;CHAR SRC PTR FOR PNA 43 12706 000000 OLDCH: 0 ;SAVE OLD CURCH 44 12707 007474 PCPTR: PTRPC ;CHAR DEST PTR FROM MVASC 45 ; 46 ;****************************************** ^ 0121 .MAIN 01 ;SEGMENT #15 02 03 ;********************************************** 04 05 ;PROGRAM OPTIONS TABLE 06 ;FOR EACH 3 WORD ENTRY: 07 ; MIN,MAX OPTION # 08 ; DEFAULT # 09 ; SELECTED OPTION # 10 11 12 ;********************************************** 13 ;NOTE!!! -- ANY CHANGE IN THIS TABLE MUST BE 14 ;ACCOMPANIED BY A CHANGE IN POPU1 AND PAGE ZERO 15 ;OFFSET DEFINITION 16 ; 17 ;SPACING OF OPTIONS 30 THROUGH 56 IS CRITICAL 18 ;( CF: PRG56) 19 ;********************************************** 20 21 22 000012 .RDX 10 23 12710 002407 POPT1: 05*LFHW+07 ;PRINTER SELECTION 24 12711 000007 07 25 12712 000000 0 26 27 12713 005016 10*LFHW+14 ;PRE-PUNCHING 28 12714 000015 13 29 12715 000000 0 30 31 12716 007423 15*LFHW+19 ;PRE-PUNCHING ALPHA 32 12717 000022 18 ;OR NUMERIC- OR PREC ID 33 12720 000000 0 34 35 12721 012027 20*LFHW+23 ;PRINTING FORMAT-- 36 12722 000024 20 ; UNDER/OVER VOTES 37 12723 000000 0 38 39 12724 014032 24*LFHW+26 ;PRINTING FORMAT 40 12725 000030 24 ;--SPACING 41 12726 000000 0 42 43 12727 017042 30*LFHW+34 ;CLOSED PRIMARY 44 12730 000036 30 45 12731 000000 0 46 47 12732 050121 80*LFHW+81 ;RECORD PREC PROC IN TABLE (SAVE) 48 12733 000121 81 49 12734 000000 0 50 51 12735 051525 83*LFHW+85 ;DUPL WARN OF PREC PROC 52 12736 000123 83 53 12737 000000 0 54 55 12740 053531 87*LFHW+89 ;PREC PROC REPTS ON CUM REPT 56 12741 000127 87 57 12742 000000 0 58 59 12743 055135 90*LFHW+93 ;REPT PRINTING- # OF COPIES 0122 .MAIN 01 12744 000133 91 02 12745 000000 0 03 04 12746 062146 100*LFHW+102 ;CARD LIST OPTIONS 05 12747 000144 100 06 12750 000000 0 07 08 12751 111223 146*LFHW+147 ;READ BACKWARDS 09 12752 000222 146 10 12753 000000 0 11 12 12754 112225 148*LFHW+149 ;DEFAULT OPTION PRINTOUT 13 12755 000224 148 14 12756 000000 0 15  16 12757 120241 160*LFHW+161 ;UTILITY- CARD LIST 17 12760 000240 160 18 12761 000000 0 19 20 12762 137301 190*LFHW+193 21 12763 000276 190 ;PAGE SIZE OPTIONS 22 12764 000000 0 23 24 12765 144311 200*LFHW+201 25 12766 000310 200 ;ABSENTEE BALLOT 26 12767 000000 0 27 28 29 12770 151323 210*LFHW+211 ;ENABLE/DISABLE ADD 30 12771 000322 210 ;BUTTON IN WAIT-IGNORE 31 12772 000000 0 ;IS DEFAULT 32 33 12773 163377 230*LFHW+255 ;MAJOR MODE PRINT OPTIONS 34 12774 000346 230 ;NO PRINTOUT 35 12775 000000 0 36 12776 000000 POPI1: 0 ;END OF OPTION TABLE 37 38 000010 .RDX 8 39 40 ;********************************************** 41 42 ;MAPPING FUNCTIONS OF VOTO POSITIONS OVER 43 ;PUNCHED CARD POSITIONS 44 45 004000 ROW12=4000 46 47 ;TABLE OF MAPS 48 000012 .RDX 10 49 12777 000034 TMAP1: 28 ;SELECTION CODE 50 13000 013024 C.228-1 51 13001 013040 N.228-1 52 13002 177775 -3 ;-# OF BLK COLS BETWEEN VOTO POSITIONS 53 13003 177777 -1 ;-#=INCREMENTS BETWEEN ROWS 54 13004 004000 ROW12 ;STARTING ROW 55 13005 020510 228*DATIL+DATBS ;END OF VM DATA FOR THIS LENGTH CARD 56 57 000007 MAPEL=.-TMAP1 ;MAP ELEMENT LENGTH 58 59 13006 000043 35 0123 .MAIN 01 13007 013054 C.235-1 02 13010 013070 N.235-1 03 13011 177775 -3 04 13012 177777 -1 05 13013 004000 ROW12 06 13014 020535 235*DATIL+DATBS 07 ; 08 13015 000014 TMAP9: 12 09 13016 013546 C.12-1 10 13017 013562 N.12-1 11 13020 177776 -2 12 13021 177777 -1 13 13022 004000 ROW12 14 13023 021104 312*DATIL+DATBS 15 13024 000000 0 ;END OF MAPS TABLE 16 17 000010 .RDX 8 18 19 20 ;"228" HOLE STANDARD VOTOMATIC CARD 21 13025 005236 C.228: CARDS+116 22 13026 005235 CARDS+115 23 13027 005240 CARDS+120 24 13030 005237 CARDS+117 25 13031 005236 CARDS+116 26 13032 005235 CARDS+115 27 13033 005240 CARDS+120 28 13034 005237 CARDS+117 29 13035 005236 CARDS+116 30 13036 005235 CARDS+115 31 13037 005240 CARDS+120 32 13040 005237 CARDS+117 33 34 13041 000023 N.228: 23 35 13042 000023 23 36 13043 000023 23 37 13044 000023 23 38 13045 000023 23 39 13046 000023 23 40 13047 000023 23 41 13050 000023 23 42 13051 000023 23 43 13052 000023 23 44 13053 000023 23 45 13054 000023 23 46 47 013055 NNN=. 48 49 004735 .LOC 4735 50 51 ;CARD LOADER 52 ;START AT LOC 4777 (7777) 53 ;CHECK SUM ERROR HALT AT 4777 (7777) 54 55 000001 LTMP1: .BLK 1 ;TEMPORARY STORAGE 56 000001 LTMP2: .BLK 1 57 58 04737 126420 LOAD1: SUBZ 1,1 59 04740 060316 NIOP CDR 0124 .MAIN 01 04741 063616 SKPDN CDR 02 04742 000777 JMP .-1 03 04743 000401 JMP .+1 04 04744 000401 JMP .+1 05 04745 000401 JMP .+1 06 04746 000401 JMP .+1 07 04747 060416 DIA 0,CDR 08 04750 107363 ADDCS 0,1,SNC 09 04751 000767 JMP LOAD1+1 10 04752 133000 ADD 1,2 11 04753 001400 JMP 0,3 12 13 04754 063516 LOAD: SKPBZ CDR 14 04755 000777 JMP .-1 15 04756 152400 SUB 2,2 16 04757 060116 NIOS CDR 17 04760 004757 JSR LOAD1 18 04761 044755 STA 1,LTMP2 ;CNT 19 04762 004755 JSR LOAD1 20 04763 044752 STA 1,LTMP1 ;S.A. 21 04764 024752 LDA 1,LTMP2 22 04765 125103 MOVL 1,1,SNC 23 04766 002747 JMP @LTMP1 24 04767 004750 JSR LOAD1 ;CKSM 25 26 04770 004747 LOAD2: JSR LOAD1 27 04771 046744 STA 1,@LTMP1 28 04772 010743 ISZ LTMP1 29 04773 010743 ISZ LTMP2 30 04774 000774 JMP LOAD2 31 04775 151004 MOV 2,2,SZR 32 04776 063077 HALT 33 04777 000755 JMP LOAD 34 35 ;********************************************** 36 37 013055 .LOC NNN 38 39 40 ;"235" HOLE STANDARD VOTOMATIC CARD 41 13055 005240 C.235: CARDS+120 42 13056 005236 CARDS+116 43 13057 005237 CARDS+117 44 13060 005235 CARDS+115 45 13061 005236 CARDS+116 46 13062 005240 CARDS+120 47 13063 005237 CARDS+117 48 13064 005240 CARDS+120 49 13065 005240 CARDS+120 50 13066 005240 CARDS+120 51 13067 005240 CARDS+120 52 13070 005240 CARDS+120 53 54 13071 000024 N.235: 24 55 13072 000023 23 56 13073 000023 23 57 13074 000023 23 58 13075 000023 23 59 13076 000024 24 0125 .MAIN 01 13077 000023 23 02 13100 000024 24 03 13101 000024 24 04 13102 000024 24 05 13103 000024 24 06 13104 000024 24 07 08 09 ; 10 ;CARD READER DEVICE CODE & DISTRIBUTION TABLE 11 13105 000015 DVTB1: 15 12 13106 000025 25 13 13107 000026 26 14 13110 000016 16 ;DEFAULT CODE 15 13111 000000 0 ;TABLE SEPARATOR 16 13112 000736 DVTB2: CDV01 17 13113 001001 CDV02 18 13114 001003 CDV03 19 13115 001014 INT.A 20 13116 001351 RD.2 21 13117 001371 CDV07 22 13120 001355 RD.1 23 13121 001357 CDV08 24 13122 001363 CDV09 25 13123 001417 CDV10 26 13124 001423 CDV11 27 13125 001500 CDV12 28 13126 001504 CDV13 29 13127 000000 0 30 31 ;PRINTER DISTRIBUTION TABLE 32 13130 013756 DVTB3: OCHR2 33 13131 013757 OCHR1 34 13132 000000 0 35 36 37 ;********************************************** 38 39 ^ 0126 .MAIN 01 02 ;SEGMENT #16 03 04 ;********************************************** 05 06 ;SETUP- SET UP TSTRG IF MODE 6 OR 7 07 ; 08 ;TXTPT+1->TSTRG 09 13133 030176 SETP1: LDA 2,.Z 10 13134 050456 STA 2,STRCT 11 13135 020324 LDA 0,TXTPT+1 12 13 13136 006121 SETP2: JSR @GCHR ;COUNT CHR IN STRING 14 13137 125015 MOV# 1,1,SNR 15 13140 000404 JMP SETP3 ;NULL=END 16 13141 010451 ISZ STRCT 17 13142 101400 INC 0,0 18 13143 000773 JMP SETP2 ;NX CHR 19 20 13144 020324 SETP3: LDA 0,TXTPT+1 ;SRC ADDR 21 13145 040405 STA 0,SETP4 22 13146 020444 LDA 0,STRCT ;CNT 23 13147 100400 NEG 0,0 24 13150 040404 STA 0,SETP5 25 13151 006142 JSR @MVASC ;TXTPT+1 STRING->TSTRG 26 13152 000000 SETP4: 0 ;SRC 27 13153 035762 TSTRG*2 ;DEST 28 13154 000000 SETP5: 0 ;-CNT 29 30 ;STRNG-> TSTRG 31 13155 020777 LDA 0,SETP5 32 13156 100400 NEG 0,0 33 13157 004435 JSR CSTRA 34 35 ;TXTPT->TSTRG 36 13160 030176 LDA 2,.Z 37 13161 050431 STA 2,STRCT 38 13162 020323 LDA 0,TXTPT 39 40 13163 006121 SETP6: JSR @GCHR ;COUNT # CHR IN STRING 41 13164 125015 MOV# 1,1,SNR 42 13165 000404 JMP SETP7 ;NULL=END 43 13166 010424 ISZ STRCT 44 13167 101400 INC 0,0 45 13170 000773 JMP SETP6 46 47 13171 020323 SETP7: LDA 0,TXTPT ;SRC ADDR 48 13172 040413 STA 0,SETP8 49 13173 020417 LDA 0,STRCT ;CNT 50 13174 100400 NEG 0,0 51 13175 040412 STA 0,SETP9 52 13176 020756 LDA 0,SETP5 53 13177 034414 LDA 3,D24 54 13200 162400 SUB 3,0 55 13201 034322 LDA 3,ATSTR ;TSTRG*2-(-CNT) 56 13202 116400 SUB 0,3 57 13203 054403 STA 3,SET10 ;CALC ST POSN 58 13204 006142 JSR @MVASC ;TXTPT->TSTRG 59 13205 000000 SETP8: 0 ;SRC 0127 .MAIN 01 13206 000000 SET10: 0 ;DEST 02 13207 000000 SETP9: 0 ;-CNT 03 04 13210 002401 JMP @SETRT 05 06 13211 006567 SETRT: SETPB ;EXIT 07 13212 000000 STRCT: 0 ;STRING CNT 08 13213 000030 D24: 30 09 10 ;CSTRA-CONVERT STRNG ARRAY TO ASCII & STORE 11 ;IN: AC0=TSTRG CHR POSN TO START AT 12 ;OUT: STRNG ARRAY CONVERTED & IN TSTRG BUFFER 13 ; 14 13214 054422 CSTRA: STA 3,CSTRX 15 13215 034204 LDA 3,.Z+6 ;SET UP A 6 WD 16 13216 054421 STA 3,CNTST ;STRNG ARRAY CNT 17 13217 034322 LDA 3,ATSTR ;TSTRG BASE ADDR 18 13220 030420 LDA 2,ASTR3 19 20 13221 117000 CSTR2: ADD 0,3 ;->TSTRG START CHR POSN 21 13222 054404 STA 3,CSTRC 22 13223 024202 LDA 1,.Z+4 ;4 CHR/WD TO CNVRT 23 13224 021000 LDA 0,0,2 ;WD TO CNVRT 24 13225 006104 JSR @CBCDA 25 13226 035762 CSTRC: TSTRG*2 26 13227 002407 JMP @CSTRX ;HIT END OF TSTRG 27 13230 151400 INC 2,2 28 13231 020202 LDA 0,.Z+4 29 13232 034774 LDA 3,CSTRC 30 13233 014404 DSZ CNTST 31 13234 000765 JMP CSTR2 ;NX WD 32 13235 002401 JMP @CSTRX ;DONE CNVRTNG STRNG 33 34 13236 000000 CSTRX: 0 ;EXIT 35 13237 000000 CNTST: 0 ;COUNT 36 13240 000312 ASTR3: STRNG 37 38 ;CBCDA-CONVERT BCD TO ASCII & STORE IN TSTRG 39 ;IN: AC0=WD TO CNVRT 40 ; AC1=# OF CHR IN WD TO CNVRT(1-4) 41 ;CALL: JSR CBCDA 42 ; TSTRG CHAR DEST ADDR 43 ;OUT: AC2 SAVED 44 ; BCD CHRS CNVRTD->TSTRG 45 ; DOESNT SKIP IF IT HITS THE END OF TSTRG 46 ; 47 13241 054426 CBCD0: STA 3,CBCDX 48 13242 010425 ISZ CBCDX 49 13243 044425 STA 1,FOURC ;CHR CNT(USUALLY 4) 50 13244 035400 LDA 3,0,3 ;CHR DEST ADDR 51 13245 054426 STA 3,TSTRP 52 53 13246 024177 CBCD1: LDA 1,.Z+1 54 13247 004426 JSR GBCDC ;GET NX BCD CHR 55 13250 040421 STA 0,CBCDS ;SAVE AC0( SHIFTD) 56 13251 034421 LDA 3,ASCT2 57 13252 137000 ADD 1,3 58 13253 025400 LDA 1,0,3 ;GET ASCII EQUIV 59 13254 020417 LDA 0,TSTRP ;STORE ADDR 0128 .MAIN 01 13255 034417 LDA 3,TSTRN 02 13256 162032 ADCZ# 3,0,SZC 03 13257 002410 JMP @CBCDX ;AT END OF TSTRG 04 13260 006147 JSR @PCHR 05 13261 010412 ISZ TSTRP ;ADV CHR PTR 06 13262 020407 LDA 0,CBCDS ;RESTORE AC0 07 13263 014405 DSZ FOURC 08 13264 000762 JMP CBCD1 ;NX CHR 09 13265 010402 ISZ CBCDX 10 13266 002401 JMP @CBCDX 11 12 13267 000000 CBCDX: 0 ;EXIT 13 13270 000000 FOURC: 0 ;# CHR TO CNVRT (USUALLY 4) 14 13271 000000 CBCDS: 0 ;SAVE AC0 15 13272 013627 ASCT2: ASCTB ;BCD=> ASCII TABLE 16 13273 000000 TSTRP: 0 ;TSTRG PTR 17 13274 036165 TSTRN: TSTRG*2+131. ;END OF TALLY STRING BUFFER 18 19 ;********************************************** 20 ;GBCDC- GET BCD CHAR 21 ;IN: AC0=WD 22 ; AC1=BCD POSN (1->4) 23 ;OUT: AC1=BCD CHR, AC2 SAVED 24 ; AC0=WD SHFTD LEFT (AC1(POSN) TIMES) 25 ; 26 13275 054415 GBCDC: STA 3,GBCDX 27 13276 124400 NEG 1,1 28 29 13277 125405 GBCD1: INC 1,1,SNR 30 13300 000404 JMP GBCD2 ;IN POSN FOR THE BCD CHR 31 13301 103120 ADDZL 0,0 ;POSN CHAR IN 32 13302 103120 ADDZL 0,0 ;FAR LEFT HAND BYTE 33 13303 000774 JMP GBCD1 34 35 13304 034173 GBCD2: LDA 3,OM4 36 37 13305 101120 GBCD3: MOVZL 0,0 ;MOVE CHAR 38 13306 125100 MOVL 1,1 ;-> AC1 39 13307 175404 INC 3,3,SZR 40 13310 000775 JMP GBCD3 ;NX SHFT 41 13311 002401 JMP @GBCDX 42 43 13312 000000 GBCDX: 0 ;EXIT 44 45 ;********************************************** 46 ; ^ 0129 .MAIN 01 ;SEGMENT #17 02 03 ;********************************************** 04 05 06 ;ENCDE 07 ;IBM COLUMN BINARY CARD FORMAT IS TRANSLATED TO 08 ;PACKED ASCII 09 ;CALLING: JSR @ENCDE 10 ; SOURCE DATA ADDRESS (WORD ADDR) 11 ; ASCII DESTINATION ADDRESS (CHAR ADDR) 12 ; -CHARACTER COUNT 13 ; RETURN FROM SUBROUTINE 14 ;NOTE: SRC IS 1 WORD/COL, OUTPUT IS PACKED ASCII 15 ;INPUT AND OUTPUT AREAS MAY BE THE SAME 16 ;INPUT AREA IS OVERWRITTEN EVEN IF DESTINATION 17 ;ADDRESS IS ELSEWHERE 18  ; 19 13313 054461 ENC0: STA 3,ENCA3 20 13314 021402 LDA 0,2,3 ;-# OF COLS 21 13315 040456 STA 0,IBMCT 22 13316 024454 LDA 1,LMASK ;MASK 037400 23 13317 031400 LDA 2,0,3 24 25 13320 021000 IBM01: LDA 0,0,2 ;GET A COLUMN 26 13321 115300 MOVS 0,3 ;SAVE SWAPPED COLUMN 27 13322 103120 ADDZL 0,0 ;SHIFT LEFT 2 BITS 28 13323 123400 AND 1,0 ;LEFT CHARACTER IS DONE 29 30 13324 137700 ANDS 1,3 ;RIGHT COLUMN IS DONE 31 13325 117000 ADD 0,3 ;PUT LEFT AND RIGHT TOGETHER 32 13326 055000 STA 3,0,2 ;REPLACE IN INPUT AREA 33 34 13327 151400 INC 2,2 ;POINT TO NEXT COLUMN 35 13330 010443 ISZ IBMCT ;COUNT COLUMNS, SKIP DONE 36 13331 000767 JMP IBM01 37 38 39 13332 034442 LDA 3,ENCA3 40 13333 021400 LDA 0,0,3 41 13334 040441 STA 0,ENCSA ;SOURCE ADDRESS 42 13335 021401 LDA 0,1,3 43 13336 040440 STA 0,ENCAA ;ASCII DESTINATION ADDRESS 44 13337 021402 LDA 0,2,3 45 13340 040437 STA 0,ENCWC ;-WORD COUNT (SOURCE) 46 47 13341 036434 NEWCH: LDA 3,@ENCSA ;LOAD SOURCE 48 13342 010433 ISZ ENCSA ;POINT TO NEXT SOURCE 49 13343 030437 LDA 2,ORTBA ;ADDRESS OF ORTBL 50 13344 126400 SUB 1,1 ;MAKE A 0 51 52 13345 175223 ENC20: MOVZR 3,3,SNC ;SHIFT SOURCE, BIT? 53 13346 000404 JMP ENC30 ;NO BIT 54 55 13347 021000 LDA 0,0,2 ;BIT SET COMPLEMENT 56 13350 107400 AND 0,1 57 13351 106000 ADC 0,1 ;BIT IS SET IN AC1 58 59 13352 151400 ENC30: INC 2,2 ;BIT SET INDEX 0130 .MAIN 01 13353 175004 MOV 3,3,SZR ;SKIP IF COLUMN DONE 02 13354 000771 JMP ENC20 ;NEXT SHIFT 03 13355 020423 LDA 0,TRTBA ;TRANSLATE TABLE ADDRESS 04 13356 123000 ADD 1,0 ;REPLACEMENT WORD ADDRESS 05 13357 030422 LDA 2,TRTBB 06 13360 142432 SUBZ# 2,0,SZC 07 13361 020417 LDA 0,TRTBA 08 13362 006121 JSR @GCHR ;GET ASCII 09 13363 020413 LDA 0,ENCAA 10 13364 006147 JSR @PCHR 11 13365 010411 ISZ ENCAA ;POINT TO NEXT DESTINATION 12 13 13366 010411 ENC5: ISZ ENCWC ;COUNT CHARACTERS, SKIP ZERO 14 13367 000752 JMP NEWCH 15 13370 034404 LDA 3,ENCA3 ;RETURN TO CALLING PROGRAM 16 13371 001403 JMP 3,3 17 18 13372 037400 LMASK: 037400 19 13373 000000 IBMCT: 0 20 21 13374 000000 ENCA3: 0 22 13375 000000 ENCSA: 0 23 13376 000000 ENCAA: 0 24 13377 000000 ENCWC: 0 25 13400 027046 TRTBA: TRTBL*2 26 13401 027316 TRTBB: TRTBN*2 27 28 13402 013403 ORTBA: ORTBL 29 13403 177677 ORTBL: 177677 ;9 30 13404 177577 177577 ;8 31 13405 177770 177770 ;7 32 13406 177771 177771 ;6 33 13407 177772 177772 ;5 34 13410 177773 177773 ;4 35 13411 177777 177777 ;NO PUNCH 36 13412 177777 177777 ;NO PUNCH 37 13413 177774 177774 ;3 38 13414 177775 177775 ;2 39 13415 177776 177776 ;1 40 13416 177767 177767 ;0 41 13417 177757 177757 ;11 42 13420 177737 177737 ;12 43 13421 177777 177777 ;NO PUNCH 44 13422 177777 177777 ;NO PUNCH 45 46 47 48 ;TRANSLATE TABLE, INPUT IS BYTE REPRESENTING CARD 49 50 13423 020061 TRTBL: 40*400+61 ;BLANK 1 51 13424 031063 62*400+63 ;2 3 52 13425 032065 64*400+65 ;4 5 53 13426 033067 66*400+67 ;6 7 54 13427 030057 60*400+57 ;0 / 55 13430 051524 123*400+124 ;S T 56 13431 052526 125*400+126 ;U V 57 13432 053530 127*400+130 ;W X 58 13433 026512 55*400+112 ;- J 59 13434 045514 113*400+114 ;K L 0131 .MAIN 01 13435 046516 115*400+116 ;M N 02 13436 047520 117*400+120 ;O P 03 13437 020040 20040 04 13440 020040 20040 05 13441 020040 20040 06 13442 020040 20040 07 13443 023101 46*400+101 ;& A 08 13444 041103 102*400+103 ;B C 09 13445 042105 104*400+105 ;D E 10 13446 043107 106*400+107 ;F G 11 13447 020040 20040 12 13450 020040 20040 13 13451 020040 20040 14 13452 020040 20040 15 13453 020040 20040 16 13454 020040 20040 17 13455 020040 20040 18 13456 020040 20040 19 13457 020040 20040 20 13460 020040 20040 21 13461 020040 20040 22 13462 020040 20040 23 13463 034440 71*400+40 ;9 24 13464 020040 20040 25 13465 020040 20040 26 13466 020040 20040 27 13467 055040 132*400+40 ;Z 28 13470 020040 20040 29 13471 020040 20040 30 13472 020040 20040 31 13473 051040 122*400+40 ;R 32 13474 020040 20040 33 13475 020040 20040 34 13476 020040 20040 35 13477 020040 20040 36 13500 020040 20040 37 13501 020040 20040 38 13502 020040 20040 39 13503 044440 111*400+40 ;I 40 13504 020040 20040 41 13505 020040 20040 42 13506 020040 20040 43 13507 020040 20040 44 13510 020040 20040 45 13511 020040 20040 46 13512 020040 20040 47 13513 020040 20040 48 13514 020040 20040 49 13515 020040 20040 50 13516 020040 20040 51 13517 020040 20040 52 13520 020040 20040 53 13521 020040 20040 54 13522 020040 20040 55 13523 034040 70*400+40 ;8 56 13524 035043 72*400+43 ;: # 57 13525 040047 100*400+47 ;@ ' 58 13526 036442 75*400+42 ;= " 59 13527 054440 131*400+40 ;Y 0132 .MAIN 01 13530 020054 20054 ; , 02 13531 022537 45*400+137 ;% UNDERLINE 03 13532 037077 76*400+77 ;> ? 04 13533 050440 121*400+40 ;Q 05 13534 020444 41*400+44 ;! $ 06 13535 025051 52*400+51 ;* ) 07 13536 035440 73*400+40 ; ; 08 13537 020040 20040 09 13540 020040 20040 10 13541 020040 20040 11 13542 020040 20040 12 13543 044040 110*400+40 ;H 13 13544 020056 20056 ; . 14 13545 036050 74*400+50 ;< ( 15 13546 025440 53*400+40 ;+ 16 17 013547 TRTBN= . 18 ;********************************************** ^ 0133 .MAIN 01 ;SEGMENT #18 02 03 ;********************************************** 04 05  ; 06 ;312 POSITION VM MAP 07 13547 005240 C.12: CARDS+120 08 13550 005240 CARDS+120 09 13551 005240 CARDS+120 10 13552 005240 CARDS+120 11 13553 005240 CARDS+120 12 13554 005240 CARDS+120 13 13555 005240 CARDS+120 14 13556 005240 CARDS+120 15 13557 005240 CARDS+120 16 13560 005240 CARDS+120 17 13561 005240 CARDS+120 18 13562 005240 CARDS+120 19 20 13563 000032 N.12: 32 21 13564 000032 32 22 13565 000032 32 23 13566 000032 32 24 13567 000032 32 25 13570 000032 32 26 13571 000032 32 27 13572 000032 32 28 13573 000032 32 29 13574 000032 32 30 13575 000032 32 31 13576 000032 32 32 ;********************************************** 33 34 ;TEMP FOR A/N PREC ID 35 013577 LENTM= . 36 000030 ENTMP: .BLK 30 37 38 ;********************************************** 39 40 ;ASCII TRANSLATE TABLE FOR PRINTER TO TTY CODES 41 13627 000060 ASCTB: "0 42 13630 000061  "1 43 13631 000062 "2 44 13632 000063 "3 45 13633 000064 "4 46 13634 000065 "5 47 13635 000066 "6 48 13636 000067 "7 49 13637 000070 "8 50 13640 000071 "9 51 13641 000053 "+ 52 13642 000055 "- 53 13643 000056 ". 54 13644 000054 ", 55 13645 000072 ": 56 13646 000040 40 ;SPACE 57 58 59 ;********************************************** 0134 .MAIN 01 ;MESSAGES 02 ; 03 SGNM1: .TXT "<14>COMPUTER ELECTION SYSTEMS - PUNCHED CARD REGISTRATION SYSTEM<12><12><12><12>" 13647 006103 13650 047515 13651 050125 13652 052105 13653 051040 13654 042514 13655 042503 13656 052111 13657 047516 13660 020123 13661 054523 13662 052105 13663 046523 13664 020055 13665 020120 13666 052516 13667 041510 13670 042504 13671 020103 13672 040522 13673 042040 13674 051105 13675 043511 13676 051524 13677 051101 13700 052111 13701 047516  13702 020123 13703 054523 13704 052105 13705 046412 13706 005012 13707 005000 04 05 ERMSG: .TXT "ERROR!!" 13710 042522 13711 051117 13712 051041 13713 020400 06 LSM9C: .TXT "PAGE" 13714 050101 13715 043505 13716 000000 07 08 09 ;********************************************** 10 ;PRINTER CHAR OUT 11 ;AC0=CHAR 12 ; 13 ; 14 13717 054443 LPTC1: STA 3,LPTXX 15 13720 044443 STA 1,LPTSV 16 13721 050443 STA 2,LPTSV+1 17 13722 006145 JSR @OCHR 18 19 13723 024440 LPTRT: LDA 1,LPTSV 0135 .MAIN 01 13724 030440 LDA 2,LPTSV+1 02 13725 002435 JMP @LPTXX 03 04 ;********************************************** 05 ; 06 ;OUTPUT A CHARACTER 07 ;IN: AC0 = CHAN 08 ;OUT: AC0,AC1,AC2 SAVED 09 13726 054425 OCHR0: STA 3,OCHRX 10 ; 11  ; 12 ;SUPPRESS SPACES AT ENDS OF LINES 13 13727 034221 OCHR3: LDA 3,CHRSP 14 13730 116414 SUB# 0,3,SZR 15 13731 000404 JMP OCHR4 ;NOT A SPACE 16 ; 17 ;COUNT SPACES 18 13732 010402 ISZ SPCNT 19 13733 002420 JMP @OCHRX 20 13734 000000 SPCNT: 0 ;SPACE COUNT 21 ; 22 ;TEST FOR CR 23 13735 034213 OCHR4: LDA 3,CHRCR 24 13736 116405 SUB 0,3,SNR 25 13737 054775 STA 3,SPCNT ;YES, DON'T SPACE OVER 26 ; 27 ;A NON-SPACE, OUTPUT ACCUMULATED SPACES IF NON-ZERO 28 13740 034774 LDA 3,SPCNT 29 13741 175015 MOV# 3,3,SNR 30 13742 000407 JMP OCHR9 31 13743 040411 STA 0,OCHRS 32 ; 33 ;OUTPUT ACCUMULATED SPACES 34 13744 020221 OCHR8: LDA 0,CHRSP 35 13745 004410 JSR OCHRC 36 13746 014766 DSZ SPCNT 37 13747 000775 JMP OCHR8 38 13750 020404 LDA 0,OCHRS 39 13751 004404 OCHR9: JSR OCHRC 40 13752 002401 JMP @OCHRX 41 ; 42 13753 000000 OCHRX: 0 43 13754 000000 OCHRS: 0 ;CHAR SAVE 44 ; 45 ;OUTPUT A CHAR 46 13755 054411 OCHRC: STA 3,OCHX 47 13756 061100 OCHR2: DOAS 0,PRN ;OUTPUT CHAR 48 13757 063500 OCHR1: SKPBZ PRN 49 13760 000777 JMP .-1 50 ; 51 13761 002405 JMP @OCHX 52 53 13762 000000 LPTXX: 0 ;RETURN 54 000002 LPTSV: .BLK 2 ;SAVE AC1 &AC2 55 13765 100000 MUXDL: 100000 ;MUX DELAY ??? 56 13766 000000 OCHX: 0 57 58 ;********************************************** 59 0136 .MAIN  ^ 0137 .MAIN 01 ;SEGMENT #19 02 03 ;********************************************** 04 05 ;NXTPS--NEXT PRINT STRING 06 ;IN: AC1=VM POSN #(0-8) & CARD TYPE (9-11) 07 ; AC1(0-8)=ALL ONES THEN RET NEXT STRING THIS CARD TYPE 08 ; AC0=1ST ACCEPTABLE LINE # 09 ;OUT: AC0=CHR PTR & INCREMENTS NXTPX IF SUCCESSFUL 10 ; AC1=VM# IN BINARY 11 ; AC2=LINE # 12 ; AC3=PREVIOUS 'CURCH' 13 ;UPDATES CURCH 14 15 13767 056546 NXTPA: STA 3,@NXTRR 16 13770 054544 STA 3,NXTRS 17 13771 040545 STA 0,NXTLN 18 13772 034363 LDA 3,CURCH 19 13773 000404 JMP NXTP4 20 21 13774 021400 NXTP2: LDA 0,0,3 22 13775 117000 ADD 0,3 23 13776 035400 LDA 3,0,3 24 25 13777 175015 NXTP4: MOV# 3,3,SNR 26 14000 002534 JMP @NXTRS ;END OF STRINGS 27 14001 054363 STA 3,CURCH 28 14002 021401 LDA 0,1,3 29 14003 030174 LDA 2,M0.11 30 14004 143400 AND 2,0 31 14005 030242 LDA 2,M0.8 32 14006 135000 MOV 1,3 33 14007 157400 AND 2,3 34 14010 172414 SUB# 3,2,SZR 35 14011 000415 JMP NXTP3 ;FIND SPECIFIC VM# 36 ; 37 ;NEXT VM# FOR THIS CARD TYPE 38 14012 030253 LDA 2,M9.11 39 14013 143400 AND 2,0 40 14014 133400 AND 1,2 41 14015 142415 SUB# 2,0,SNR 42 14016 000403 JMP NXTP9 ;FOUND 43 14017 034363 NXTP8: LDA 3,CURCH 44 45 14020 000754 JMP NXTP2 ;NEXT CARD 46 ; 47 14021 030363 NXTP9: LDA 2,CURCH 48 14022 025001 LDA 1,1,2 49 14023 030242 LDA 2,M0.8 50 14024 147400 AND 2,1 51 14025 000405 JMP NXTP7 52 ; 53 14026 122433 NXTP3: SUBZ# 1,0,SNC 54 14027 000770 JMP NXTP8 55 14030 122414 SUB# 1,0,SZR 56 14031 002503 JMP @NXTRS 57 58 ;VM # FOUND; TEST LINE # 59 14032 034363 NXTP7: LDA 3,CURCH 0138 .MAIN 01 14033 054505 STA 3,NXTVN 02 14034 021401 LDA 0,1,3 03 14035 030215 LDA 2,M1215 04 14036 143400 AND 2,0 ;CURRENT LINE # 05 14037 030477 LDA 2,NXTLN ;1ST ACCEPTABLE LINE # 06 14040 112032 ADCZ# 0,2,SZC 07 14041 000733 JMP NXTP2 ;NEXT LINE 08 ; 09 14042 020200 LDA 0,.Z+2 10 14043 163120 ADDZL 3,0 11 14044 031400 LDA 2,0,3 12 14045 173000 ADD 3,2 13 14046 031000 LDA 2,0,2 14 14047 050363 STA 2,CURCH 15 14050 010573 ISZ NXTRT 16 14051 054573 STA 3,CURTM 17 18 ;INITIALIZE PTRS & CTRS FOR T->A CNVSN 19 14052 115220 NXTP5: MOVZR 0,3 20 14053 054554 STA 3,TXCPT ;TXTCH WD PTR ,TRPLT SRC 21 14054 025776 LDA 1,-2,3 ;TEXT BLK CNT 22 14055 020200 LDA 0,.Z+2 23 14056 106400 SUB 0,1 24 14057 044553 STA 1,CNCT2 ;TRPLT WD CNT 25 14060 034550 LDA 3,ATRB2 26 14061 054432 STA 3,TR2PT ;ASCII DST PTR 27 14062 034201 LDA 3,.Z+3 28 14063 054546 STA 3,TCTR2 ;TRPLT CHR PTR 29 30 ;CONVERT TRPLT TO ASCII & STORE IN TRPBF 31 14064 004456 NXTP6: JSR TACNV 32 14065 014544 DSZ TCTR2 33 14066 000776 JMP NXTP6 ;NXT TRPLT CHR 34 14067 034201 LDA 3,.Z+3 35 14070 054541 STA 3,TCTR2 ;RESET TCTR2 & MOVE 36 14071 010536 ISZ TXCPT ;TRPLT WD PTR AHEAD 37 14072 014540 DSZ CNCT2 38 14073 000771 JMP NXTP6 ;NXT TRPLT CHR OF NXT WD 39 40 ;T->A FINISHED, BLANK OUT LINE TO 80 CHARS 41 14074 020417 LDA 0,TR2PT 42 14075 111000 MOV 0,2 43 14076 024532 LDA 1,ATRB2 44 14077 132400 SUB 1,2 45 14100 052415 STA 2,@KVP8 46 14101 024221 LDA 1,CHRSP 47 14102 006147 JSR @PCHR 48 14103 105620 INCZR 0,1 49 14104 044407 STA 1,TR2PT 50 14105 034434 LDA 3,TR80C ;80TH CHAR ADDRESS 51 14106 162640 SUBOR 3,0 52 14107 014404 DSZ TR2PT 53 14110 040404 STA 0,NXTCT ;NEGATIVE WORD COUNT 54 ; 55 14111 006135 JSR @MMOVE 56 14112 020040 20040 57 14113 000000 TR2PT: 0 58 14114 000000 NXTCT: 0 59 ; 0139 .MAIN 01 14115 012452 KVP8: KVPC8 02 ; 03 ;STORE NULL CHARACTERS AFTER CHAR 80 04 14116 034423 LDA 3,TR80C 05 14117 175220 MOVZR 3,3 06 14120 102400 SUB 0,0 07 14121 041400 STA 0,0,3 08 14122 020506 LDA 0,ATRB2 ;TXT CHR PTR->AC0 09 10 ; 11 14123 034415 LDA 3,NXTVN 12 14124 025401 LDA 1,1,3 13 14125 030215 LDA 2,M1215 14 14126 133400 AND 1,2 ;LINE# IN AC2 15 14127 034242 LDA 3,M0.8 16 14130 167520 ANDZL 3,1 17 14131 125300 MOVS 1,1 18 14132 034512 LDA 3,CURTM 19 14133 002510 JMP @NXTRT 20 21 22 14134 000000 NXTRS: 0 ;ALTERNATE RETURN CELL 23 14135 014243 NXTRR: NXTRT 24 14136 000000 NXTLN: 0 ;1ST ACCEPTABLE LINE # 25 14137 000000 MULCH: 0 ;MULT CHAR SAVE 26 14140 000000 NXTVN: 0 27 14141 031222 TR80C: TRPBF*2+80. 28 ;********************************************* 29 30 ;TACNV--CONVERT TRPLT TO ASCII 31 ;IN: TXCPT=TRPLT WD BEING CNVTD 32 ; TCTR2=TRPLT CHR OF WD (3,2,1) 33 ; TR2PT=ASCII DST CHR PTR 34 ;OUT: ASCII CHR-> TRPBF 35 36 14142 054471 TACNV: STA 3,TCNRT 37 14143 004442 JSR TRPSC ;GET TRPLT->AC0 38 14144 034471 LDA 3,TBL11 ;GET TABLE BASE 39 14145 101014 MOV# 0,0,SZR 40 14146 000413 JMP TACN2 41 14147 014462 DSZ TCTR2 ;IF TRPLT=0,GET NXT TRPLT 42 14150 000407 JMP TACN3 43 14151 034201 LDA 3,.Z+3 44 14152 054457 STA 3,TCTR2 ;RESET TCTR2 & 45 14153 010454 ISZ TXCPT ;MOVE TRPLT WD PTR AHEAD 46 14154 014456 DSZ CNCT2 ;ALSO DECR TRPLT WD CTR 47 14155 000402 JMP TACN3 48 14156 000400 JMP . ;HAVENT YET DECIDED IF THIS WILL HAPPEN 49 50 14157 004426 TACN3: JSR TRPSC ;GET NXT TRPLT->AC0 51 14160 034456 LDA 3,TBL22 ;GET TBL BASE 52  53 14161 163000 TACN2: ADD 3,0 ;-> CHR ADDR IN 54 14162 006121 JSR @GCHR ;APPROP TBL 55 14163 036444 LDA 3,@TXCPT 56 14164 175133 MOVZL# 3,3,SNC ;TEST IF MULT 57 14165 000414 JMP TACN4 ;NO 58 14166 044751 STA 1,MULCH ;SAVE CHAR 59 14167 034177 LDA 3,.Z+1 ;YES, GET COUNT 0140 .MAIN 01 14170 054441 STA 3,TCTR2 02 14171 004414 JSR TRPSC ;GET COUNT CHAR-> AC0 03 14172 024745 LDA 1,MULCH ;GET CHAR 04 14173 040452 STA 0,MULCT ;SAVE MULT CNT 05 06 14174 020717 TACN5: LDA 0,TR2PT ;GET CHAR ADDR IN TRPBF 07 14175 006147 JSR @PCHR ;STORE CHAR MULCT 08 14176 010715 ISZ TR2PT ;# OF TIMES 09 14177 014446 DSZ MULCT 10 14200 000774 JMP TACN5 ;NX CHAR 11 12 14201 020712 TACN4: LDA 0,TR2PT ;GET CHR ADDR IN TRPBF 13 14202 006147 JSR @PCHR ;AND STORE CHR 14 14203 010710 ISZ TR2PT ;ADV CHR PTR 15 14204 002427 JMP @TCNRT 16 17 18 ;TRPSC--SEARCH FOR TRPLT 19 ;IN: TXCPT=TRPLT WD BEING CNVTD 20 ; TCTR2=TRPLT TRPLT CHR OF WD 21 ;OUT: AC0= TRPLT RT JUSTIFIED 22 23 14205 054427 TRPSC: STA 3,TRSRT 24 14206 022421 LDA 0,@TXCPT ;TRPLT WD 25 14207 034430 LDA 3,AMSKA 26 14210 030421 LDA 2,TCTR2 27 14211 157000 ADD 2,3 28 14212 025400 LDA 1,0,3 ;GET MASK 29 14213 123400 AND 1,0 ;TRPLT ANDW/ MASK 30 31 ;GET SHIFT CNT & SHFT RT 32 14214 150400 NEG 2,2 33 14215 150005 COM 2,2,SNR ;TCTR2<-TCTR2-1 34 14216 000410 JMP TRSC3 ;IF 0, DONT SHIFT 35 14217 155000 MOV 2,3 ;MPY*5 36 14220 153120 ADDZL 2,2 37 14221 173000 ADD 3,2 38 14222 150400 NEG 2,2 39 40 14223 101220 TRSC2: MOVZR 0,0 ;SHIFT RT 41 14224 151404 INC 2,2,SZR 42 14225 000776 JMP TRSC2 43 44 14226 002406 TRSC3: JMP @TRSRT 45 46 47 14227 000000 TXCPT: 0 ;PTR TO TRPLTS IN TXTCH 48 14230 031102 ATRB2: TRPBF*2 ;PTR TO ASCII CHR DST 49 14231 000000 TCTR2: 0 ;TRPLT CHR CTR (3,2,1) 50 14232 000000 CNCT2: 0 ;DECREMENTING CTR FROM CNVC2 51 14233 000000 TCNRT: 0 ;RETURN FROM TACNV 52 14234 000000 TRSRT: 0 ;RETURN FROM TRPSC 53 14235 031342 TBL11: TABLA*2 ;T/A CNVSN TBL 1 54 14236 031404 TBL22: TABLB*2 ;T/A CNVSN TBL 2 55 14237 014237 AMSKA: MSKA1-1 56 14240 000037 MSKA1: 37 ;#1 (RT CHR) 57 14241 001740 MSKA2: 1740 ;#2 (MIDDLE CHR) 58 14242 076000 MSKA3: 76000 ;#3 (LF CHR) 59 14243 000000 NXTRT: 0 ;RETURN FROM NXTPA 0141 .MAIN 01 14244 000000 CURTM: 0 ;TEMP TO HOLD OLD CURCH TO RTRN IN AC3 02 14245 000000 MULCT: 0 ;MULT CHAR CNT 03  04 05 ; 06 ;TRPST--STORE TRPLT IN TRPBF 07 ;IN: TRPTR=WD PTR IN TRPBF 08 ; TCTR=TRPLT CTR IN WD (3,2,1) 09 ; TRCOD=TRPLT CODE TO STORE 10 ; 11 12 14246 054557 TRPST: STA 3,TRPRT 13 14247 034560 LDA 3,TCTR 14 14250 175235 MOVZR# 3,3,SNR 15 14251 000500 JMP THIRD ;TCTR=1 16 14252 175237 MOVZR# 3,3,SBN 17 14253 000405 JMP SECND ;TCTR=2 18 19 ;TCTR=3, 1ST POSN 20 14254 034176 LDA 3,.Z 21 14255 056470 STA 3,@AREPT ;TRN OFF REPT FLAG 22 14256 054767 STA 3,MULCT ;MULT CHAR CNT<- 0 23 14257 000502 JMP TRPS4 ;PRCEED STORING CHAR 24 25 ;TCTR=2 26 14260 036465 SECND: LDA 3,@AREPT 27 14261 175014 MOV# 3,3,SZR ;REPT CHR? 28 14262 000423 JMP TSREP ;YES , REPT 29 14263 034762 LDA 3,MULCT ;MULT CNT=0? 30 14264 175015 MOV# 3,3,SNR 31 14265 000407 JMP TRPS6 ;YES,CK IF REPEAT OR 2ND PART 32 33 ;COUNT<>0 => MULT STORE IN THIS WD, CHR GOES IN NEXT 34 14266 034176 TRPS5: LDA 3,.Z 35 14267 054756 STA 3,MULCT ;RESET CNT TO 0 36 14270 010544 ISZ TRPTR ;INCR WD PTR 37 14271 034201 LDA 3,.Z+3 38 14272 054535 STA 3,TCTR ;RESET TCTR TO 3 39 14273 000466 JMP TRPS4 ;PRCEED STORING CHR 40 41 ;IF 2ND POSN,NONREPT,& NOT A 2 PART CHAR, 42 ;THEN SVCHR<- -1 43 14274 036452 TRPS6: LDA 3,@APAR2 ;IS CHR 2ND PT OF 2 44 14275 175014 MOV# 3,3,SZR 45 14276 000463 JMP TRPS4 ;YES,PROCEED STORING 46 14277 034537 LDA 3,TRCOD 47 14300 175015 MOV# 3,3,SNR 48 14301 000460 JMP TRPS4 ;CHAR=0 49 14302 034175 LDA 3,.Z-1 50 14303 056444 STA 3,@ASVCH ;SVCHR<- -1 51 14304 000455 JMP TRPS4 ;PROCED STORING 52 53 ;REPEAT CHAR 54 14305 026517 TSREP: LDA 1,@ACNCR 55 14306 030177 LDA 2,.Z+1 56 14307 132432 SUBZ# 1,2,SZC 57 14310 000403 JMP TSRPC ;CNT.LE.1 58 59 ;CNT>1 0142 .MAIN 01 14311 010516 TRPSB: ISZ TCTR ;TCTR<-TCTR+1 02 14312 000412 JMP TSRPF 03 04 ;C: CNT.LE.1 05 14313 036433 TSRPC: LDA 3,@APAR2 ;PART 2 FLAG 06 14314 175014 MOV# 3,3,SZR 07 14315 000406 JMP TSRPE ;2ND PT OF 2,-->E 08 09 ;PART 1 OF 1, OR PART 1 OF 2, CK TRCOD=0 10 14316 034520 LDA 3,TRCOD ;=0 IF 1ST OF 2 11 14317 175014 MOV# 3,3,SZR 12 14320 000403 JMP TSRPE ;1ST OF 1-->E 13 14 ;D: PART 1 OF 2 15 14321 010506 ISZ TCTR ;TCTR<-TCTR+1 16 14322 000405 JMP TSRPH ;-->H 17 18  ;E 19 14323 050504 TSRPE: STA 2,TCTR ;TCTR<-1 20 21 ;F: IF NOT PART 2, THEN PROCESS 22 14324 036422 TSRPF: LDA 3,@APAR2 23 14325 175014 MOV# 3,3,SZR 24 14326 000457 JMP TRPS7 ;PART 2 OF 2, EXIT 25 26 ;H: PROCESS MULCT 27 ;REPEAT CHAR (OR 1ST PART OF 2), INCR & STORE 28 ;COUNT IN 3RD POSN, SET BIT 0 ON 29 14327 010716 TSRPH: ISZ MULCT ;INCR & 30 14330 024715 LDA 1,MULCT ;GET CNT 31 32 ;IF MULCT.GE.37(OCTAL), SVCHR<-- -1 33 14331 034417 LDA 3,OCT37 34 14332 030175 LDA 2,.Z-1 35 14333 136033 ADCZ# 1,3,SNC 36 14334 052413 STA 2,@ASVCH 37 14335 032477 LDA 2,@TRPTR ;GET TRPLT WD 38 14336 034473 LDA 3,MSK1 ;GET RT CHR MSK 39 14337 173400 AND 3,2 ;MASK OUT GARBAGE 40 14340 133000 ADD 1,2 ;ADD COUNT 41 14341 151120 MOVZL 2,2 42 14342 151240 MOVOR 2,2 ;SET BIT 0 ON 43 14343 052471 STA 2,@TRPTR ;RE-STORE 44 14344 000441 JMP TRPS7 ;GET NX CHR 45 46 14345 015132 AREPT: REPET ;REPEAT FLAG 47 14346 015134 APAR2: PART2 ;2ND PT OF 2 FLG 48 14347 015133 ASVCH: SVCHR ;SAVED ASCII CHR 49 14350 000037 OCT37: 37 ;MAX COUNT 50 51 ;TCTR=1 52 14351 036774 THIRD: LDA 3,@AREPT 53 14352 175014 MOV# 3,3,SZR ;REPT CHR? 54 14353 000732 JMP TSREP ;YES,REPT 55 14354 034671 LDA 3,MULCT ;MULT CNT=0? 56 14355 175014 MOV# 3,3,SZR 57 14356 000710 JMP TRPS5 ;COMMON W/ TCTR=2 58 14357 034175 LDA 3,.Z-1 ;YES 59 14360 056767 STA 3,@ASVCH ;SVCHR<- -1 0143 .MAIN 01  02 ;PROCEED STORING CHAR 03 14361 020455 TRPS4: LDA 0,TRCOD 04 14362 034445 LDA 3,TCTR 05 14363 174400 NEG 3,3 06 14364 174005 COM 3,3,SNR ;TCTR<-TCTR-1 07 14365 000410 JMP TRPS3 ;IF 0, DONT SHIFT 08 14366 171000 MOV 3,2 ;MPY*5 09 14367 177120 ADDZL 3,3 10 14370 157000 ADD 2,3 11 14371 054447 STA 3,SHFCT ;SHIFT CTR 12 13 ;SHIFT LEFT 14 14372 101120 TRPS2: MOVZL 0,0 15 14373 014445 DSZ SHFCT 16 14374 000776 JMP TRPS2 17 18 ;ACCESS TRPLT WD 19 14375 026437 TRPS3: LDA 1,@TRPTR 20 14376 034432 LDA 3,AMSK 21 14377 030430 LDA 2,TCTR 22 14400 157000 ADD 2,3 23 14401 031400 LDA 2,0,3 ;GET MASK 24 14402 147400 AND 2,1 ;TRPLT AND W/ MASK 25 14403 107000 ADD 0,1 ;TRPLT +TRCOD 26 14404 046430 STA 1,@TRPTR ;STORE RESULT BACK 27 14405 002420 TRPS7: JMP @TRPRT 28 29 ; 30 ;SRCTB--SEARCH TABLE FOR TRPLT CODE 31 ;IN: SRPTR=CHR PTR TO CNVSN TBL 32 ; COMCH=ASCII CHR TO CNVT 33 ;OUT: TRCOD=TRPLT CHR FROM CNVSN 34 ; 35 14406 054420 SRCTB: STA 3,SRCRT 36 14407 034176 LDA 3,.Z 37 14410 054426 STA 3,TRCOD ;INIT TRPLT CODE CTR 38 39 14411 020424 SRCT2: LDA 0,SRPTR ;GET NXT ASCII CHR TO COMPARE 40 14412 006121 JSR @GCHR 41 14413 034424 LDA 3,COMCH 42 14414 136415 SUB# 1,3,SNR ;IF = RETURN W/ 43 14415 000406 JMP SRCT3 ;TRPLT CHAR IN TRCOD 44 14416 125015 MOV# 1,1,SNR ;IF CHR=0, RETRUN 45 14417 000404 JMP SRCT3 ;END OF TABLE 46 14420 010416 ISZ TRCOD 47 14421 010414 ISZ SRPTR 48 14422 000767 JMP SRCT2 49 50 14423 002403 SRCT3: JMP @SRCRT 51 52 53 54 14424 015127 ACNCR: CNCTR 55 14425 000000 TRPRT: 0 ;RTRN FROM TPRST 56 14426 000000 SRCRT: 0 ;RETRN FROM SRCTB 57 14427 000000 TCTR: 0 ;TRPLT CHR CTR(3,2,1) 58 14430 014430 AMSK: MSK1-1 ;OFF MASKS (PUT TO TRPLTS) 59 14431 077740 MSK1: 077740 ;TRPLT CHR #1 MASK (RT CHR) 0144 .MAIN 01 14432 076037 MSK2: 076037 02 14433 001777 MSK3: 001777 03 14434 000000 TRPTR: 0 ;PTR TO TRPLT BUFFER 04 14435 000000 SRPTR: 0 ;PTR TO TRPLT CNVSN TBL (1 OR 2) 05 14436 000000 TRCOD: 0 ;CTR-> TRPLT CODE 06 14437 000000 COMCH: 0 ;COMPARISON CHR,FROM TRPBF 07 14440 000000 SHFCT: 0 ;SHIFT CTR FOR MOVING TRCOD 08 014441 LTRPB= . 09 000120 TRPBF: .BLK 120 10 14561 056101 TABLA: 134*400+101 ;\ A 11 14562 041103 102*400+103 ;BC 12 14563 042105 104*400+105 ;DE 13 14564 043107 106*400+107 ;FG 14 14565 044111 110*400+111 ;HI 15 14566 045113 112*400+113 ;JK 16 14567 046115 114*400+115 ;LM 17 14570 047117 116*400+117 ;NO 18 14571 050121 120*400+121 ;PQ 19 14572 051123 122*400+123 ;RS 20 14573 052125 124*400+125 ;TU 21 14574 053127 126*400+127 ;VW 22 14575 054131 130*400+131 ;XY 23 14576 055040 132*400+40 ;Z SPACE 24 14577 025055 52*400+55 ;* - 25 14600 027075 56*400+75 ;. = 26 14601 000000 0 27 28 14602 030061 TABLB: 60*400+61 ;01 29 14603 031063 62*400+63 ;23 30 14604 032065 64*400+65 ;45 31 14605 033067 66*400+67 ;67 32 14606 034071 70*400+71 ;89 33 14607 020442 41*400+42 ;! " 34 14610 021444 43*400+44 ;# $ 35 14611 022446 45*400+46 ;% & 36 14612 023450 47*400+50 ;' ( 37 14613 024453 51*400+53 ;) + 38 14614 026057 54*400+57 ;,/ 39 14615 035073 72*400+73 ;: ; 40 14616 036076 74*400+76 ;< > 41 14617 037500 77*400+100 ;? @ 42 14620 055535 133*400+135 ;[ ] 43 14621 057137 136*400+137 ;^ UNDERLINE 44 14622 000000 0 45 46 47 ;********************************************** 48 ^ 0145 .MAIN 01 ;SEGMENT #20 02 03 04 ;ALPHANUMERIC CARDS INPUT & STORAGE. 05 014623 ANC02= . 06 ; 07 ;ALPHA TEXT ON SUMMARY CARDS 08 14623 034365 LDA 3,FSUM 09 14624 175015 MOV# 3,3,SNR 10 14625 000434 JMP ANC04 ;NO 11 ; 12 ;PACK 1ST HALF IN CARDS 13 14626 006165 JSR @SREAD 14 14627 034267 LDA 3,ACRDS ;SRC 15 14630 030454 LDA 2,ATRBF 16 14631 024452 LDA 1,N40 17 ; 18 ;LOOP- PACK 1ST 40 COLMS 19 14632 021400 ANC36: LDA 0,0,3 20 14633 041000 STA 0,0,2 21 14634 175400 INC 3,3 22 14635 175400 INC 3,3 23 14636 151400 INC 2,2 24 14637 125404 INC 1,1,SZR 25 14640 000772 JMP ANC36 26 ; 27 ;PACK 2ND HALF IN TRPBF 28 14641 050440 STA 2,PAKPT ;SAVE PACKING PTR 29 14642 006155 JSR @READ ;GET NX CARD 30 14643 030436 LDA 2,PAKPT ;GET PTR BACK 31 14644 034267 LDA 3,ACRDS ;CARD PTR 32 14645 024435 LDA 1,OCM36 ;GET NX 30 COLMS 33 ; 34 ;LOOP 35 14646 021424 ANC37: LDA 0,24,3 ;START W/ COL 11 36 14647 041000 STA 0,0,2 37 14650 175400 INC 3,3 38 14651 175400 INC 3,3 39 14652 151400 INC 2,2 40 14653 125404 INC 1,1,SZR 41 14654 000772 JMP ANC37 42 43 ; 44 ;COPY TO CARDS 45 14655 006136 JSR @MOVE 46 14656 014440 TRPBF-1 47 14657 005117 CARDS-1 48 14660 177671 -120+11 49 50 ;**************************************** 51 ;PROCESS CARD IMAGE 52 ; 53 14661 020203 ANC04: LDA 0,.Z+5 54 14662 024201 LDA 1,.Z+3 55 14663 152400 SUB 2,2 56 14664 006111 JSR @COLMS ;GET VM# 57 14665 000412 JMP ANC05 58 59 ;CHECK POSITION # IN RANGE 0146 .MAIN 01 14666 101014 MOV# 0,0,SZR 02 14667 000405 JMP ANC06 ;VM#<>0 03 14670 034031 LDA 3,31 ;CHECK CARD TYPE 04 14671 024176 LDA 1,.Z+TTL ;TO SEE IF TITLE 05 14672 136414 SUB# 1,3,SZR ;IF SO,-> POSN # ERR 06 14673 000404 JMP ANC05 07 08 14674 034413 ANC06: LDA 3,MXVP 09 14675 162033 ADCZ# 3,0,SNC 10 14676 000460 JMP ANC09 11 12 14677 006137 ANC05: JSR @MSG ;VM# NOT IN RANGE ON A/N CARD 13 14700 125402 125402 ;+-02 14 15 14701 000000 PAKPT: 0 ;PACKING PTR 16 14702 177742 OCM36: -36 ;# COLMS TO PACK IN 2ND HALF 17 14703 177730 N40: -50 18 14704 014441 ATRBF: TRPBF 19 14705 001747 CR999: 1747 ;CERT 511 INPUT AS 999 20 14706 000471 CR511: MAXVP+1 ;CERTIFICATION 313 21 14707 000470 MXVP: MAXVP 22 14710 014714 ATBPT: TBPTY-2 23 000004 PTYEN: .BLK 4 ;TEMP FOR ENCDE TO WORK ON 24 14715 000000 VMNUM: 0 ;TEMP TO HOLD VM# 25 014716 LTBPT=. 26 000036 TBPTY: .BLK MXPTY-1*2 ;PTY ID TABLE 27 28 ;LINE # ERROR 29 14754 006137 ANC25: JSR @MSG 30 14755 125403 125403 ;+-03 31 32 33 ;SHIFT POSITION # TO BITS 0-8 34 14756 103120 ANC09: ADDZL 0,0 35 14757 103120 ADDZL 0,0 36 14760 103120 ADDZL 0,0 37 14761 024244 LDA 1,M0.9 38 14762 123520 ANDZL 1,0 ;SHIFT LEFT 7 BITS & STORE 39 14763 040030 STA 0,30 ;IN 30 40 41 ;LINE # 42 14764 020206 LDA 0,.Z+10 43 14765 024200 LDA 1,.Z+2 44 14766 152400 SUB 2,2 45 14767 006111 JSR @COLMS 46 14770 000764 JMP ANC25 ;BAD LINE # 47 14771 105005 MOV 0,1,SNR 48 14772 000762 JMP ANC25 ;BAD LINE # 49 14773 020215 LDA 0,.Z+15. 50 14774 106032 ADCZ# 0,1,SZC 51 14775 000757 JMP ANC25 ;GTR THAN 15 52 14776 020031 LDA 0,31 ;CARD TYPE: 0,1,2,3 53 14777 103120 ADDZL 0,0 54 15000 103120 ADDZL 0,0 55 15001 030253 LDA 2,M9.11 56 15002 143400 AND 2,0 57 15003 123000 ADD 1,0 ;CARD TYPE AND LINE # 58 15004 034030 LDA 3,30 59 15005 163000 ADD 3,0 ;VM# +CD TYPE +LN # 0147 .MAIN 01 15006 040527 STA 0,CDTYP 02 ; 03 ;SELECT MAXIMUM TEXT LENGTH 04 15007 024233 LDA 1,D35 05 15010 030200 LDA 2,.Z+2 06 15011 134520 NEGZL 1,3 07 15012 147000 ADD 2,1 ;ADD 2 FOR HEADER 08 15013 054404 STA 3,ANC34 09 ; 10  ;CONVERT CARD IMAGE TO ASCII TEXT 11 15014 006116 ANC9B: JSR @ENCDE 12 15015 005132 ANC35: CARDS+12 ;SRC 13 15016 012264 ANC33: CARDS+12*2 ;DEST 14 15017 177672 ANC34: 10.-80. ;MAX TXT LEN 15 16 ;LOCATE LAST NON-BLANK CHR ON END OF STRING 17 15020 024777 LDA 1,ANC34 18 15021 020775 LDA 0,ANC33 19 15022 122400 SUB 1,0 20 15023 000405 JMP ANC42 21 22 15024 006121 ANC40: JSR @GCHR 23 15025 030221 LDA 2,CHRSP 24 15026 132414 SUB# 1,2,SZR 25 15027 000404  JMP ANC43 ;1ST NON-BLANK FOUND 26 27 15030 176000 ANC42: ADC 3,3 ;BACK UP A CHAR 28 15031 163000 ADD 3,0 29 15032 000772 JMP ANC40 30 31 ;AC0=ADDR OF LAST NON-BLANK CHR 32 15033 024763 ANC43: LDA 1,ANC33 33 15034 106432 SUBZ# 0,1,SZC ;IF ALL BLNKS, 34 15035 101400 INC 0,0 ;CNCTR<- 1 35 15036 122400 SUB 1,0 36 15037 101400 INC 0,0 ;-># OF CHR 37 15040 040467 STA 0,CNCTR 38 39 ;INIT PTRS & CTRS FOR A->T CNVSN 40 15041 034201 LDA 3,.Z+3 41 15042 056551 STA 3,@ATCTR 42 15043 034547 LDA 3,ATRPB 43 15044 056545 STA 3,@ATPT2 ;TRPLT DST 44 15045 034751 LDA 3,ANC33 45 15046 054542 STA 3,TRPT2 ;ASCII SRC 46 47 ;ACCESS NXT ASCII CHR FROM INPUT BUFFER 48 15047 034467 ANC48: LDA 3,TABL1 ;ASCII/TRPLT CNVSN TBL 1 49 15050 056537 STA 3,@ASRPT 50 15051 020537 LDA 0,TRPT2 51 15052 006121 JSR @GCHR 52 15053 034464 LDA 3,BSLSH ;SEE IF BACK SLASH 53 15054 136415 SUB# 1,3,SNR 54 15055 024221 LDA 1,O40 ;IF SO,USE A SPACE 55 15056 034455 LDA 3,SVCHR 56 15057 030176 LDA 2,.Z ;NOT A REPT 57 15060 136415 SUB# 1,3,SNR 58 15061 030177 LDA 2,.Z+1 ;REPEAT 59 15062 050450 STA 2,REPET ;SET REPEAT FLAG 0148 .MAIN 01 15063 044450 STA 1,SVCHR ;SAVE ASCII CHAR IN 02 15064 046444 STA 1,@ACMCH ;CASE OF RPT 03 15065 006444 JSR @ASRCT 04 05 ;IF CHR NOT FOUND IN TABLE 1,TRY TABLE 2 06 15066 034221 LDA 3,O40 ;IF TRCOD>=40 07 15067 022525 LDA 0,@ATRCD ;THEN TRCOD<-0 08 15070 162432 SUBZ# 3,0,SZC 09 15071 020176 LDA 0,.Z 10 15072 042522 STA 0,@ATRCD 11 12 ;STORE TRCOD INTO NXT TRPLT CHR SPOT IN TRPBF 13 15073 006522 JSR @ATRPS 14 15074 036520 LDA 3,@ATRCD 15 15075 175014 MOV# 3,3,SZR ;IF FOUND IN 1ST TABLE 16 15076 000422 JMP ANC44 ;GET NXT ASCII 17 15077 016514 DSZ @ATCTR ;ELSE SEARCH 2ND TABLE 18 15100 000404 JMP ANC45 19 15101 034201 LDA 3,.Z+3 ;RESET TRPLT PTRS 20 15102 056511 STA 3,@ATCTR 21 15103 012506 ISZ @ATPT2 22 23 ;SET UP TO SEARCH TABLE 2 24 15104 034512 ANC45: LDA 3,TABL2 25 15105 056502 STA 3,@ASRPT 26 15106 006423 JSR @ASRCT ;SEARCH NXT TABLE 27 28 ;IF CHR NOT FOUND IN TABLE 2,-> ERR 29 15107 034221 LDA 3,O40 30 15110 022504 LDA 0,@ATRCD 31 15111 162432 SUBZ# 3,0,SZC ;IF TRCOD>=40,THEN 32 15112 000473 JMP ANC46 ;NOT FOUND,->ERR 33 34 ;STORE 2ND TBL CODE IN NXT TRPLT SPOT IN TRPBF 35 15113 034177 LDA 3,.Z+1 36 15114 054420 STA 3,PART2 ;SET 2ND CHAR FLAG 37 15115 006500 JSR @ATRPS 38 15116 034176 LDA 3,.Z 39 15117 054415 STA 3,PART2 ;SET 2ND CHR FLAG OFF 40 41 ;SET UP FOR NEXT ASCII INPUT CHAR 42 15120 034176 ANC44: LDA 3,.Z 43 15121 054411 STA 3,REPET ;SET REPEAT FLAG OFF 44 15122 014405 DSZ CNCTR 45 15123 000415 JMP AN49B ;NOT DONE CONVERTING 46 15124 016467 DSZ @ATCTR ;DONE CNVRTING 47 15125 000422 JMP ANC49 ;SPACES->FREE AREA OF TRPLT WD 48 15126 000426 JMP AN49A ;NO SPACE LEFT IN TRPLT WD 49 50 15127 000000 CNCTR: 0 ;# OF WDS IN TRPBF(ASC)-TRLNG BLNKS 51 15130 014437 ACMCH: COMCH 52 15131 014406 ASRCT: SRCTB 53 15132 000000 REPET: 0 ;REPEAT FLAG 54 15133 000000 SVCHR: 0 ;SAVE ASCII CHR 55 15134 000000 PART2: 0 ;2ND PART OF 2 FLAG 56 15135 000000 CDTYP: 0 ;CARD TYPE-INDEX 57 15136 031342 TABL1: TABLA*2 ;T/A CNVSN TBL 1 58 15137 000134 BSLSH: 134 ;ASCII BACKSLASH 59 0149 .MAIN 01 ;NOT DONE CONVERTING ASCII 02 15140 016453 AN49B: DSZ @ATCTR 03 15141 000404 JMP AN49C ;NEXT ASCII CHAR 04 15142 034201 LDA 3,.Z+3 05 15143 056450 STA 3,@ATCTR ;RESET TRPLT CTR 06 15144 012445 ISZ @ATPT2 ;& PTR 07 08 15145 010443 AN49C: ISZ TRPT2 ;INCR ASCII PTR 09 15146 000701 JMP ANC48 10 11 15147 034450 ANC49: LDA 3,TSPC 12 15150 056444 STA 3,@ATRCD 13 14 ;STORE SPACES TO FILL OUT WD 15 15151 006444 JSR @ATRPS ;ONE SPACE 16 15152 016441 DSZ @ATCTR 17 15153 006442 JSR @ATRPS ;2 IF NEEDED,AT MOST 18 15154 012435 AN49A: ISZ @ATPT2 19 15155 026434 LDA 1,@ATPT2 20 15156 020434 LDA 0,ATRPB 21 15157 106400 SUB 0,1 ;-> # OF TRPLT WDS NEEDED 22 15160 044547 STA 1,ANSPC+1 ;TEXT LEN- IN WDS 23 15161 020200 LDA 0,.Z+2 24 15162 107000 ADD 0,1 ;-> BLK CNT 25 15163 044435 STA 1,BLKCT 26 15164 044542 STA 1,ANSPC ;BLK CNT 27 28 ;FIND SUFFICIENTLY LGE AREA OF FREE SPACE 29 15165 030361 ANC10: LDA 2,FRECH 30 15166 024540 LDA 1,ANSPC 31 15167 034203 LDA 3,.Z+5 32 15170 167000 ADD 3,1 33 34 15171 035000 ANC11: LDA 3,0,2 ;BLK SZ 35 15172 136432 SUBZ# 1,3,SZC 36 15173 000431 JMP ANC30 ;FOUND 37 15174 050425 STA 2,OLDPT 38 15175 173000 ADD 3,2 39 15176 031000 LDA 2,0,2 40 15177 151014 MOV# 2,2,SZR 41 15200 000771 JMP ANC11 42 15201 006422 ANC14: JSR @GBCO1 ;GARB COLL 43 15202 000763 JMP ANC10 ;TRY AGAIN 44 45 ;TEXT STORAGE OFLOW 46 15203 006137 ANC20: JSR @MSG 47 15204 125631 125631 ;+-99 48 49 ;ILLEGAL ASCII CHAR 50 15205 006137 ANC46: JSR @MSG 51 15206 125404 125404 ;+-04 52 53 15207 014435 ASRPT: SRPTR 54 15210 000000 TRPT2: 0 ;CHR PTR TO CARDS AREA(ASCII) 55 15211 014434 ATPT2: TRPTR 56 15212 014441 ATRPB: TRPBF ;BUFFER<- TRPLTS 57 ;PRIOR TO MOVING TO TEXT AREA 58 15213 014427 ATCTR: TCTR 59 15214 014436 ATRCD: TRCOD 0150 .MAIN 01 15215 014246 ATRPS: TRPST 02 15216 031404 TABL2: TABLB*2 ;T/A CNVSN TBL 2 03 15217 000033 TSPC: 33 ;TRPLT SPACE CHAR 04 15220 000000 BLKCT: 0 ;BLOCK COUNT 05 15221 000000 OLDPT: 0 ;OLD POINTER 06 15222 000362 ATXTH: TXTCH 07 15223 015473 GBCO1: GBCOL ;GARB COLL ROUT 08 09 ;STORE TRPLT BLK IN TXT BUFFER 10 15224 020711 ANC30: LDA 0,CDTYP 11 15225 041001 STA 0,1,2 ;INDEX-CARD TYPE 12 15226 050762 STA 2,TRPT2 ;ADDR OF NEW TXT BLK 13 15227 151400 INC 2,2 14 15230 050406 STA 2,ANC31 ;TRPLT ST ADDR IN NEW BLK-1 15 15231 034476 LDA 3,ANSPC+1 16 15232 174400 NEG 3,3 17 15233 054404 STA 3,ANC32 ;- # OF WDS TO MOVE 18 19  ;MOVE TRPLTS TO TXT BLK 20 15234 006136 JSR @MOVE 21 15235 014440 TRPBF-1 ;SRC 22 15236 000000 ANC31: 0 ;DEST 23 15237 000000 ANC32: 0 ;-WD CNT 24 25 ;GET TEXT LEN IN WDS->AC0 FOR CONNECTING FREE CHAIN 26 15240 020467 LDA 0,ANSPC+1 27 28 ;CONNECT FREE CHAIN AROUND NEW DATA BLOCK 29 15241 034760 LDA 3,OLDPT ;PREVIOUS FREE BLK PTR 30 15242 031400 LDA 2,0,3 31 15243 157000 ADD 2,3 32 15244 031400 LDA 2,0,3 ;PTR TO BLK BEING SET UP W/ TXT 33 15245 113000 ADD 0,2 34 15246 024201 LDA 1,.Z+3 35 15247 147000 ADD 2,1 ;PTR TO FREE SPC LEFT IN THAT BLK 36 15250 033400 LDA 2,@0,3 ;OLD CNT OF NEW BLK 37 38 ;CHECK IF ANY SPACE REMAINS IN FREE BLOCK 39 15251 020455 LDA 0,ANSPC ;NEW CNT OF NEW BLK 40 15252 101400 INC 0,0 41 15253 142433 SUBZ# 2,0,SNC 42 15254 000407 JMP ANC50 ;FREE SPC LEFT IN NEW BLK 43 ; 44 ;NO FREE SPACE LEFT 45 15255 031400 LDA 2,0,3 46 15256 021000 LDA 0,0,2 47 15257 113000 ADD 0,2 48 15260 025000 LDA 1,0,2 ;OLD PTR TO NX FREE BLK 49 15261 125015 MOV# 1,1,SNR 50 15262 000717 JMP ANC14 ;END OF FREE CHAIN 51 52 15263 031400 ANC50: LDA 2,0,3 ;PTR TO NEW BLK 53 15264 045400 STA 1,0,3 ;PTR TO NX FRE BLK>PREVIOUS FRE BLK 54 55 ;COMPLETE NEW BLOCK 56 15265 024441 LDA 1,ANSPC ;WORD CNT 57 15266 034177 LDA 3,.Z+1 58 15267 021000 LDA 0,0,2 ;OLD FREE BLK WORD CNT 59 15270 045000 STA 1,0,2 ;NEW FREE BLK WD CNT 0151 .MAIN 01 15271 122404 SUB 1,0,SZR 02 15272 162405 SUB 3,0,SNR 03 15273 000406 JMP ANC61 ;NO FRE SPC LEFT IN NEW BLK 04 05 ;STORE NEW FREE BLOCK COUNT 06 15274 034725 LDA 3,OLDPT 07 15275 025400 LDA 1,0,3 08 15276 137000 ADD 1,3 09 15277 035400 LDA 3,0,3 10 15300 041400 STA 0,0,3 ;CNT-> NEW FREE BLK 11 12 ;PUT NEW DATA BLOCK INTO TEXT CHAIN 13 15301 021001 ANC61: LDA 0,1,2 ;NEW BLK POSITION # 14 15302 034720 LDA 3,ATXTH 15 15303 054716 STA 3,OLDPT 16 15304 034362 LDA 3,TXTCH 17 15305 175015 MOV# 3,3,SNR 18 15306 000422 JMP ANC65 ;TOTALLY NULL CHAIN 19 20 15307 025401 ANC60: LDA 1,1,3 ;INDEX OF NX TXTCH ENTRY 21 15310 106432 SUBZ# 0,1,SZC 22 15311 000421 JMP ANC70 23 24 ;ADVANCE TO NEXT EXISTING ENTRY OF 'TXTCH' 25 15312 025400 LDA 1,0,3 26 15313 137000 ADD 1,3 27 15314 054705 STA 3,OLDPT 28 15315 035400 LDA 3,0,3 29 15316 175014 MOV# 3,3,SZR 30 15317 000770 JMP ANC60 31 32 ;ADD TO END OF 'TXTCH' CHAIN 33 15320 052701 STA 2,@OLDPT ;REPL NUL PTR W PTR TO NW BLK 34 35 15321 021000 ANC63: LDA 0,0,2 36 15322 113000 ADD 0,2 37 15323 102400 SUB 0,0 38 15324 041000 STA 0,0,2 ;STOR NUL PTR AT END OF NW BLK 39 15325 000437 JMP ANC99 40 41 15326 000105 ANSPC: 105 ;CONSTANT SPACE(BLK CNT-WDS) 42 15327 000103 103 ;TEXT LEN-WDS 43 44 ;FIRST 'TXTCH' ENTRY 45 15330 050362 ANC65: STA 2,TXTCH ;PTR TO NEW BLK->TXTCH 46 15331 000770 JMP ANC63 47 48 15332 106414 ANC70: SUB# 0,1,SZR 49 15333 000422 JMP ANC80 50 51 ;EQUAL POSITION #, REPLACE OLD BLOCK. 52 ;MAKE NEW BLK POINT TO NEXT OLD BLOCK 53 15334 021400 LDA 0,0,3 ;BLK BEING REPLCD (AC3) 54 15335 117000 ADD 0,3 55 15336 025400 LDA 1,0,3 56 15337 035000 LDA 3,0,2 ;BLK REPLACING(AC2) 57 15340 157000 ADD 2,3 ;STORE PTR TO BLK FOLLOWING 58 15341 045400 STA 1,0,3 ;REPLCD BLK IN NEW BLK 59 0152 .MAIN 01  ;MAKE PREVIOUS OLD BLOCK POINT TO NEW BLOCK. 02 15342 034657 LDA 3,OLDPT 03 15343 021400 LDA 0,0,3 ;PTR TO BLK BEUNG FREED(AC0) 04 15344 051400 STA 2,0,3 ;PTR TO NW BLK->PREV BLK 05 06 ;PUT REPLACED BLOCK ON FREE CHAIN 07 15345 115000 MOV 0,3 08 15346 031400 LDA 2,0,3 09 15347 173000 ADD 3,2 10 15350 034522 LDA 3,AFR1B 11 15351 025401 LDA 1,1,3 12 15352 045000 STA 1,0,2 ;PTR IN NW BLK<-OLD BEG OF FRE CH 13 15353 041401 STA 0,1,3 ;FRECH<-PTR TO FREED BLK 14 15354 000410 JMP ANC99 15 16 17 ;INSERT 18 15355 145000 ANC80: MOV 2,1 ;PTR TO NEW BLK 19 15356 021000 LDA 0,0,2 20 15357 113000 ADD 0,2 21 15360 055000 STA 3,0,2 ;NEW BLK PTS TO NEXT 22 15361 030640 LDA 2,OLDPT 23 15362 045000 STA 1,0,2 ;PREVIOUS BLK PTS TO NEW BLK 24 15363 002077 JMP @APRG1 25 26 ; 27 ;SET TEXT FLAG ON 28 15364 020015 ANC99: LDA 0,ON 29 15365 042403 STA 0,@ANC98 30 15366 042403 STA 0,@ANC98+1 31 15367 002077 JMP @APRG1 32 ; 33 15370 002605 ANC98: SWTXT 34 15371 002604 SWUTS 35 ;********************************************** 36 ^ 0153 .MAIN 01 02 ;SEGMENT #21 03 04 ;********************************************** 05 ;CLPSN-CLEAR A/N TEXT FROM A VM POSN 06 ;IN: AC2=VM REGN PTR 07 ;OUT: AC2=SAVED, ALL TEXT CLEARED FOR VM POSN 08 ; ASSOC W/ SRCH INDX 09 15372 054436 CLPSN: STA 3,CLPSX 10 15373 050440 STA 2,CLPA2 ;SAVE AC2 11 15374 024337 LDA 1,DATAV 12 15375 132423 SUBZ 1,2,SNC 13 15376 000430 JMP CLPS3 ;PTY, DONT CLEAR TEXT 14 15 ;CALCULATE VM# 16 15377 145400 INC 2,1 17 15400 102400 SUB 0,0 18 15401 030201 LDA 2,.Z+DATIL 19 15402 006130 JSR @IDIV 20 15403 034221 LDA 3,O40 21 15404 167000 ADD 3,1 ;ADD OFC/CND BIAS 22 23 ;GENERATE A/N STORAGE INDX,W/ NO CD TYPE 24 15405 125520 INCZL 1,1 25 15406 127120 ADDZL 1,1 26 15407 127120 ADDZL 1,1 27 15410 127120 ADDZL 1,1 ;INDX-> AC1 28 15411 044420 STA 1,PRSNX ;PRESENT INDX 29 15412 034420 LDA 3,ATXTC ;SET UP OLDP2 W/ LOC OF 30 15413 054442 STA 3,OLDP2 ;PTR TO PRESENT BLK 31 15414 030362 LDA 2,TXTCH ;PTR TO PRESENT BLK 32 33 ;CLEAR NEXT TEXT LINE FOR THIS POSN 34 15415 151015 CLPS2: MOV# 2,2,SNR 35 15416 000410 JMP CLPS3 ;NO MORE TEXT 36 15417 004415 JSR TXSRC ;SRCH FOR BLK TO CLR 37 15420 000406 JMP CLPS3 ;NONE FOUND 38 15421 004435 JSR STFRE ;SET BLK ON FREE CHAIN 39 15422 034433 LDA 3,OLDP2 ;KEEP SRCHNG,STARTING AT 40 15423 031400 LDA 2,0,3 ;BLK AFTER DELETED BLK 41 15424 024405 LDA 1,PRSNX ;RESTORE SRCH INDX 42 15425 000770 JMP CLPS2 ;NX SRCH 43 44 ;DONE-NO TEXT, NO MORE TEXT, OR IN PTY CTRS 45 15426 030405 CLPS3: LDA 2,CLPA2 ;RESTORE VM PTR 46 15427 002401 JMP @CLPSX 47 48 15430 000000 CLPSX: 0 ;EXIT 49 15431 000000 PRSNX: 0 ;PRESENT INDX-CLR ALL TEXT ASSOC W/ THIS POSN 50 15432 000362 ATXTC: TXTCH 51 15433 000000 CLPA2: 0 ;SAVE AC2 52 53 ;********************************************** 54 55 ;TXSRC-SEARCH TEXT FOR MATCH TO SRCH INDX 56 ;IN: AC1=SRCH INDX 57 ; AC2=PTR TO NX TXTCH ENTRY 58 ; OLDP2=LOC OF PTR TO MOST RECENT BLK 59 ;OUT: AC1=SAVED,AC2=PTR TO BLK TO CLEAR,IF SUCCESSFUL 0154 .MAIN 01 ; SKIPS IF SUCCESSFUL SRCH,AC2& OLDP2 UPDATED 02 15434 054420 TXSRC: STA 3,TXSRX 03 04 15435 021001 TXSR1: LDA 0,1,2 ;INDX OF NX TXTCH ENTRY 05 15436 034242 LDA 3,M0.8 06 15437 163400 AND 3,0 ;MASK OFF CD TYP & LINE # 07 15440 122432 SUBZ# 1,0,SZC 08 15441 000410 JMP TXSR2 ;>= SRCH INDX 09 10 ;BLOCK INDX< SRCH INDX, NEXT ENTRY 11 15442 021000 LDA 0,0,2 ;BLK CNT 12 15443 113000 ADD 0,2 ;BLK PTR 13 15444 050411 STA 2,OLDP2 ;LOC OF PTR TO MOST RECNT BLK 14 15445 031000 LDA 2,0,2 ;PTR TO NX BLK(MOST RECNT) 15 15446 151014 MOV# 2,2,SZR 16 15447 000766 JMP TXSR1 ;NX TXTCH ENTRY 17 15450 000403 JMP TXSR3 ;END OF TXTCH,NO MORE FOR THIS INDX 18 19 15451 106415 TXSR2: SUB# 0,1,SNR 20 21 ;BLK INDX=SRCH INDX,INCR RET ADDR 22 15452 010402 ISZ TXSRX 23 24 15453 002401 TXSR3: JMP @TXSRX 25 26 15454 000000 TXSRX: 0 ;EXIT 27 15455 000000 OLDP2: 0 ;LOC OF PTR TO MOST RECNT BLK 28 29 ;********************************************** 30 ;STFRE-SET BLOCK ON FREE CHAIN 31 ;IN: AC2=PTR TO BLK TO FREE 32 ; OLDP2=LOC OF PTR TO BLK BEING FREED 33 ;OUT: OLDP2=LOC OF PTR TO BLK AFTER FREED BLK 34 ; 35 15456 054776 STFRE: STA 3,TXSRX 36 37 ;CONNECT PTR AROUND BLOCK FREED 38 15457 021000 LDA 0,0,2 ;BLK CNT 39 15460 113000 ADD 0,2 ;BLK PTR 40 15461 021000 LDA 0,0,2 ;LOAD PTR TO NX BLK 41 15462 034773 LDA 3,OLDP2 ;LOC OF PTR TO BLK BEING FREED 42 15463 025400 LDA 1,0,3 ;GET ADDR OF FREED BLK 43 15464 041400 STA 0,0,3 ;UPDATE PTR AROUND FREED BLK 44 45 ;PUT FREED BLK ON FREE CHAIN 46 15465 034405 LDA 3,AFR1B 47 15466 021401 LDA 0,1,3 48 15467 041000 STA 0,0,2 ;PTR IN FREED BLK<- OLD BEGIN OF FRECH 49 15470 045401 STA 1,1,3 ;FRECH PTR<-FREED BLK ADDR 50 15471 002763 JMP @TXSRX 51 52 15472 005450 AFR1B: FR1BK 53 54 55 ;********************************************** 56 ;PERFORM GARBAGE COLLECTION 57 ; 58 ;SKIPS IF NOT ENOUGH ROOM FOR ANOTHER CARD 59 ; 0155 .MAIN 01 ;PLACE -1 IN BODY OF FREE BLOCKS 02 15473 054433 GBCOL: STA 3,GBCRT 03 15474 040434 STA 0,GCTM0 04 15475 044434 STA 1,GCTM1 05 15476 034361 LDA 3,FRECH 06 ; 07 15477 025400 GBC10: LDA 1,0,3 ;COUNT 08 15500 124400 NEG 1,1 09 15501 102000 ADC 0,0 10 ; 11 15502 125405 GBC15: INC 1,1,SNR 12 15503 000404 JMP GBC20 13 15504 041401 STA 0,1,3 14 15505 175400 INC 3,3 15 15506 000774 JMP GBC15 16 ; 17 15507 035401 GBC20: LDA 3,1,3 18 15510 175014 MOV# 3,3,SZR 19 15511 000766 JMP GBC10 20 ; 21 ;READ FROM BOTTOM TO TOP MOVING BLOCKS DOWN 22 15512 034364 LDA 3,ATEXT ;READ PTR 23 15513 171000 MOV 3,2 ;WRITE PTR 24 ; 25 15514 026413 GBC30: LDA 1,@APRN3 26 15515 125220 MOVZR 1,1 27 15516 136433 SUBZ# 1,3,SNC 28 15517 000415 JMP GBC31 ;NOT DONE 29 15520 141000 MOV 2,0 30 15521 146400 SUB 2,1 31 15522 030232 LDA 2,D30 32 15523 146433 SUBZ# 2,1,SNC 33 ; 34 ;RETURN OUT OF SPACE - IF NOT ENOUGH 35 ;ROOM FOR AT LEAST ONE MORE CARD 36 15524 010402 ISZ GBCRT 37 15525 000452 JMP GBCLA 38 39 15526 000000 GBCRT: 0 ;RETURN 40U15527 000000 APRN3: PRBN 41 15530 000000 GCTM0: 0 ;SAVE AC'S 42 15531 000000 GCTM1: 0 43 15532 000362 ATXCH: TXTCH 44 15533 005451 AFR2B: FR1BK+1 45 ; 46 15534 021401 GBC31: LDA 0,1,3 47 15535 101414 INC# 0,0,SZR 48 15536 000405 JMP GBC40 ;BLK IN USE 49 ; 50 ;FREE BLK FOUND 51 15537 021400 LDA 0,0,3 52 15540 117000 ADD 0,3 53 15541 175400 INC 3,3 54 15542 000752 JMP GBC30 55 ; 56 15543 025400 GBC40: LDA 1,0,3 57 15544 125400 INC 1,1 58 15545 124400 NEG 1,1 59 15546 050020 STA 2,20 ;SAVE S.A. 0156 .MAIN 01 15547 054021 STA 3,21 02 ; 03 15550 021400 GBC45: LDA 0,0,3 04 15551 041000 STA 0,0,2 05 15552 151400 INC 2,2 06 15553 175400 INC 3,3 07 15554 125404 INC 1,1,SZR 08 15555 000773 JMP GBC45 09 ; 10 ;SAVE NEW POINTER VALUES 11 15556 050030 STA 2,30 12 15557 054031 STA 3,31 13 ; 14 ;UPDATE LINK CHAIN POINTER 15 15560 034752 LDA 3,ATXCH 16 17 15561 031400 GBC47: LDA 2,0,3 18 15562 024021 LDA 1,21 ;OLD S.A. (NFBLK) 19 15563 132414 SUB# 1,2,SZR 20 15564 000406 JMP GBC50 21 15565 024020 LDA 1,20 ;POINTER IN PRESENT BLOCK=OLD S.A. 22 15566 045400 STA 1,0,3 ;UPDATE LINK IN PRESENT BLOCK 23 ; 24 15567 030030 GBC48: LDA 2,30 ;GET NEW WRITE & 25 15570 034031 LDA 3,31 ;NEW READ POINTERS & 26 15571 000723 JMP GBC30 ;DO NEXT BLOCK 27 28 15572 035000 GBC50: LDA 3,0,2 ;CHECK NEXT BLOCK FOR 29 15573 175015 MOV# 3,3,SNR 30 15574 000773 JMP GBC48 ;NO ONE PTS TO THIS BLK 31 15575 157000 ADD 2,3 ;OLD S.A. 32 15576 000763 JMP GBC47 33 34 ;CLEAR A/N STORAGE 35 ;IN: AC0=NEW START OF FREE BLOCK( FROM WRITE 36 ; POINTER AFTER ALL BLOCKS ARE MOVED DOWN) 37 ; 38 15577 006107 GBCLA: JSR @CLRAN 39 15600 020730 LDA 0,GCTM0 40 15601 024730 LDA 1,GCTM1 41 15602 002724 JMP @GBCRT 42 43 ; 44 ;********************************************** 45 ;BALLOT PRE-PUNCHING SAVE AREA 46 ; 47 015603 LGROU=. 48 000004 GROUP: .BLK 4 ;SEIKO 49 015607 LANPR=. 50 000014 ANPRN: .BLK 14 ;TALLY 51 15623 000000 0 52 53U15624 034000 LDA 3,WHAT2 54 ; 55 ;********************************************** 56 ;CLOCK 57 015625 LCLK1=. 58 000006 CLK1: .BLK CLKLN 59 ; 0157 .MAIN 01 ;********************************************** 02 ; PREC PROC TABLE 03 015633 LPRTA=. 04 000077 PRTAB: .BLK MXPRN+17/20 ;TABLE OF PREC PROC - EACH 05 ; REPRESENTED BY 1 BIT 06 ; 07 ;********************************************** 08 000001 TPRC1: .BLK 1 ;TOTAL PREC COUNTED 09 000002 TLVT1: .BLK 2 ;TOTAL VOTE (IR CARDS) 10 ; 11 ;********************************************** 12 ; 13 ; 14 000264 HISTB: .BLK 4*NMENT 15 000264 DISTB: .BLK 4*NMENT 16 000264 FLGTB: .BLK 4*NMENT 17 ; 18 016771 LTSTR= . 19 000102 TSTRG: .BLK 102 ;TALLY STRING BUFFER 20 21U17073 034000 LDA 3,WHAT3 22 ; 23 ;VOTOMATIC DATA STRUCTURE -- AND PRE-OPTIONS 24 17074 000000 DATA: 0 25 ; 26 021104 .LOC MXPTY*2+MAXVP*DATIL+DATA 27 017234 DATBS=MXPTY*2*DATIL+DATA 28 ; 29 021104 TEXT2=312.*DATIL+DATBS 30 31 ;********************************************** 32 33 34U21104 034000 LDA 3,WHAT4 ;END OF DATA STRUCTURE 35 36 ;********************************************** 37 ^ 0158 .MAIN 01 ;SEGMENT #22 02 ; 03 ;********************************************** 04 ;UTILITY CARD LIST ROUTINE 05 21105 006165 CDPRT: JSR @SREAD 06 21106 006155 JSR @READ 07 21107 034371 LDA 3,POPT 08 21110 021440 LDA 0,POABT+2,3 09 21111 034240 LDA 3,D102 ;2-UP? 10 21112 024257 LDA 1,M80 11 21113 030175 LDA 2,.Z-1 12 21114 116415 SUB# 0,3,SNR 13 21115 000456 JMP CDPR9 14 21116 044415 CDPR4: STA 1,CDPCT 15 21117 050465 STA 2,UPCTR 16 21120 034462 LDA 3,D101. 17 21121 116414 SUB# 0,3,SZR 18 21122 000406 JMP CDPR1 19 21123 030460 LDA 2,CTRSP ;IF 1-UP 20 21124 020221 LDA 0,CHRSP ;CTR, DO SPACING 21 21125 006145 JSR @OCHR 22 21126 151404 INC 2,2,SZR 23 21127 000775 JMP .-3 24 25 21130 006116 CDPR1: JSR @ENCDE 26 21131 005120 CARDS ;SRC 27 21132 021207 CDBUF ;DEST 28 21133 177676 CDPCT: -102 ;-CNT 29 21134 020445 LDA 0,ACDBF 30 21135 034776 LDA 3,CDPCT 31 21136 054450 STA 3,CDCTR 32 33 21137 006121 CDPR2: JSR @GCHR 34 21140 111400 INC 0,2 35 21141 121000 MOV 1,0 36 21142 006145 JSR @OCHR 37 21143 141000 MOV 2,0 38 21144 010442 ISZ CDCTR 39 21145 000772 JMP CDPR2 40 41 21146 010436 CDPR3: ISZ UPCTR 42 21147 000427 JMP CDPR8 ;NEXT CARD IF 2-UP 43 ; 44 ;NO CR/LF IF TWO-UP 45 21150 034371 LDA 3,POPT 46 21151 035440 LDA 3,POABT+2,3 47 21152 020240 LDA 0,D102 48 21153 116415 SUB# 0,3,SNR 49 21154 000405 JMP CDPR7 ;2-UP 50 21155 020213 LDA 0,CHRCR ;END LINE 51 21156 006145 JSR @OCHR 52 21157 020210 LDA 0,CHRLF 53 21160 006145 JSR @OCHR 54 21161 010326 CDPR7: ISZ LNUM 55 21162 024327 LDA 1,MXLN 56 21163 034326 LDA 3,LNUM 57 21164 136033 ADCZ# 1,3,SNC ;TEST FOR PAGE EJECT 58 21165 000720 JMP CDPRT ;NO,NEXT LINE 59 0159 .MAIN 01 ;RESET LINE COUNTER & ISSUE FF 02 21166 020212 CDPRS: LDA 0,CHRFF 03 21167 006145 JSR @OCHR 04 21170 034176 LDA 3,.Z 05 21171 054326 STA 3,LNUM 06 21172 000713 JMP CDPRT ;NEXT LINE 07 21173 151120 CDPR9: MOVZL 2,2 08 21174 024256 LDA 1,M66 09 21175 000721 JMP CDPR4 10 ; 11 21176 006165 CDPR8: JSR @SREAD 12 21177 006155 JSR @READ 13 21200 000730 JMP CDPR1 14 15 21201 021207 ACDBF: CDBUF 16 21202 000145 D101.: 145 ;ONE UP CENTER 17 21203 177737 CTRSP: -41 ;-CTR UP SPACE CNT 18 21204 000000 UPCTR: 0 ;1 = 1-UP,1-UP CENTER,2 = 2-UP 19 21205 000000 UPCT2: 0 ;RESTORABLE CTR 20 21206 000000 CDCTR: 0 ;CHAR CTR FOR CARD 21 000120 CDBUF: .BLK 120 22 23 24 ;********************************************** 25 26 005452 .END LDSTR ;LOAD START  0160 .MAIN A3CRD 011364 104/27 AADTB 003503 48/29 ABFLG 000274 5/32 10/12 101/59 108/11 108/35 ACDBF 021201 158/29 159/15 ACDP2 002613 37/03 37/16 ACDP3 001203 18/14 18/28 ACLMC 001016 14/56 15/11 ACMCH 015130 148/02 148/51 ACNCR 014424 141/54 143/54 ACRD3 002201 31/30 ACRDS 000267 5/27 25/57 26/04 29/56 30/45 30/51 30/59 49/11 56/54 57/16 101/37 101/43 106/16 116/11 145/14 145/31 ACSTR 007437 81/32 ADDI2 011664 108/54 108/56 ADDIS 011654 108/47 108/51 ADDTB 003504 48/29 48/30 ADHIS 011671 109/04 AFR1B 015472 152/10 154/46 154/52 AFR2B 015533 155/44 AGP02 003416 47/09 AINTB 001015 15/10 17/06 17/09 ALIND 003502 48/28 ALPHC 003512 48/36 AMSK 014430 143/20 143/58 AMSKA 014237 140/25 140/55 AMXPR 010630 93/29 95/10 AN49A 015154 148/48 149/18 AN49B 015140 148/45 149/02 AN49C 015145 149/03 149/08 ANC 002057 28/08 29/23 ANC02 014623 26/50 29/23 145/05 ANC04 014661 145/10 145/53 ANC05 014677 145/57 146/06 146/12 ANC06 014674 146/02 146/08 ANC09 014756 146/10 146/34 ANC1 001661 26/33 26/50 ANC10 015165 149/29 149/43 ANC11 015171 149/34 149/41 ANC14 015201 149/42 150/50 ANC20 015203 149/46 ANC25 014754 146/29 146/46 146/48 146/51 ANC30 015224 149/36 150/10 ANC31 015236 150/14 150/22 ANC32 015237 150/17 150/23 ANC33 015016 147/13 147/18 147/32 147/44 ANC34 015017 147/08 147/14 147/17 ANC35 015015 147/12 ANC36 014632 145/19 145/25 ANC37 014646 145/35 145/41 ANC40 015024 147/22 147/29 ANC42 015030 147/20 147/27 ANC43 015033 147/25 147/32 ANC44 015120 148/16 148/42 ANC45 015104 148/18 148/24 ANC46 015205 148/32 149/50 ANC48 015047 147/48 149/09 ANC49 015147 148/47 149/11 ANC50 015263 150/42 150/52 ANC60 015307 151/20 151/30 0161 .MAIN ANC61 015301 151/03 151/13 ANC63 015321 151/35 151/46 ANC65 015330 151/18 151/45 ANC70 015332 151/22 151/48 ANC80 015355 151/49 152/18 ANC98 015370 152/29 152/30 152/33 ANC99 015364 151/39 152/14 152/28 ANC9B 015014 147/11 ANPRN 015607 45/41 46/34 83/21 156/50 ANSPC 015326 149/22 149/26 149/30 150/15 150/26 150/39 150/56 151/41 ANTAB 001537 24/51 25/51 ANXTP 012416 116/46 116/49 APAR2 014346 141/43 142/05 142/22 142/47 APBPT 003406 47/01 APPT3 005330 52/32 52/39 52/53 53/15 APPTB 003530 48/59 49/48 APRC1 003236 44/37 45/06 APRC2 003237 44/39 45/07 APRCF 003240 44/21 45/08 APRCN 007436 81/14 81/31 APRCT 003241 44/41 45/09 APREN 010472 93/16 93/33 APREP 010471 93/15 93/31 APRG1 000077 2/42 37/12 38/36 38/52 39/43 40/02 41/08 42/33 45/56 46/53 49/32 101/26 152/24 152/31 APRG2 002612 37/13 37/15 APRN3 015527 155/25 155/40 APROC 000100 2/43 20/53 APROT 003242 44/42 45/10 APRS3 006710 71/04 72/27 APRTB 000310 5/44 44/15 78/13 80/01 80/15 93/45 APTB2 011365 104/28 APTB4 005331 52/33 52/40 52/54 53/16 APTBN 003407 47/02 APTBP 011366 104/29 AREPT 014345 141/21 141/26 142/46 142/52 ARTHX 005544 55/59 56/04 56/13 56/22 56/24 56/32 56/47 ASCT2 013272 127/56 128/15 ASCTB 013627 128/15 133/41 ASETP 006570 70/26 70/29 ASP2P 003412 47/05 ASPLP 011074 98/42 98/44 ASPRC 003243 44/25 45/11 ASPT2 011367 104/30 ASPT3 003411 47/04 ASPTP 011370 104/31 ASRCT 015131 148/03 148/26 148/52 ASRPT 015207 147/49 148/25 149/53 ASTGR 003415 47/08 ASTR3 013240 127/18 127/36 ASTR7 006553 69/05 70/12 ASTR8 007435 81/15 81/30 ASTRT 000374 1/29 8/35 54/46 ASVCH 014347 141/50 142/36 142/48 142/59 ASWOV 006707 71/16 72/26 ASWTX 002232 32/05 ATBPT 014710 146/22 ATBSU 007157 76/09 76/24 76/57 ATCTR 015213 147/41 148/17 148/20 148/46 149/02 149/05 149/16 149/58 0162 .MAIN ATDP3 000726 13/20 13/41 ATEX1 000533 10/49 12/47 ATEX2 002240 32/12 ATEXT 000364 7/59 12/48 13/13 38/40 155/22 ATLPS 000727 12/23 13/42 ATPDU 005327 52/38 52/52 ATPEN 005326 52/37 52/51 ATPN3 000725 13/19 13/40 ATPT2 015211 147/43 148/21 149/06 149/18 149/19 149/55 ATRB2 014230 138/25 138/43 139/08 140/48 ATRBF 014704 145/15 146/18 ATRCD 015214 148/07 148/10 148/14 148/30 149/12 149/59 ATRPB 015212 147/42 149/20 149/56 ATRPS 015215 148/13 148/37 149/15 149/17 150/01 ATSTR 000322 6/17 33/44 46/01 68/14 82/33 101/09 117/44 119/42 126/55 127/17 ATX2 005453 54/50 ATXCH 015532 155/43 156/15 ATXTC 015432 153/29 153/50 ATXTH 015222 150/06 151/14 AWT.2 000444 9/29 9/31 A.STR 006554 69/06 69/12 69/29 69/34 69/38 70/13 A.Z 000325 6/21 6/23 12/49 69/57 98/06 98/07 98/36 BALL1 011172 2/44 101/37 BALL2 011216 101/54 101/57 102/05 BALLT 000101  2/44 20/25 24/27 BALT1 000102 2/45 104/17 106/43 108/36 108/57 109/05 109/12 109/17 109/37 109/40 110/01 117/17 117/22 117/51 120/36 BD00 003453 47/50 BDBB 003510 48/34 BD.1 006136 62/54 63/11 BD.2 006117 62/53 62/57 BD.3 006124 62/59 63/12 BD.4 006125 63/01 63/05 BD.5 006132 63/02 63/07 BD.A2 006144 62/47 63/15 63/19 BD.A3 006143 62/46 63/16 63/18 BD.TT 000302 5/40 62/49 62/56 BLKCT 015220 149/25 150/04 BL.1 011171 2/45 101/34 102/02 BL.25 011225 101/40 102/17 BL.26 011231 102/24 BL.29 011233 102/20 102/30 BL.41 011275 102/40 102/54 103/11 103/17 BL.PN 011223 101/44 102/14 BSLSH 015137 147/52 148/58 BUSY 000006 1/42 10/08 16/05 55/39 55/44 62/30 68/58 69/55 BUTON 000334 6/33 19/24 22/52 B.BCD 000103 2/46 22/31 31/55 34/41 35/48 36/13 43/50 43/58 44/32 46/42 47/41 72/43 73/05 74/22 74/47 76/30 77/15 77/36 83/29 84/41 94/52 95/23 95/30 95/37 96/16 96/25 97/45 105/08 107/01 CAR 000000 1/37 13/57 14/52 14/54 15/09 21/08 21/13 21/15 21/21 21/31 22/04 22/09 23/16 23/21 CARD1 000272 5/30 20/17 22/01 22/13 CARDP 005000 22/42 22/49 51/09 CARDS 005120 5/27 22/43 27/34 28/19 31/30 39/38 39/41 45/26 45/35 45/36 45/40 49/30 51/12 104/27 105/27 105/28 107/15 107/16 109/46 109/47 113/05 113/09 117/41 117/42 0163 .MAIN 123/21 123/22 123/23 123/24 123/25 123/26 123/27 123/28 123/29 123/30 123/31 123/32 124/41 124/42 124/43 124/44 124/45 124/46 124/47 124/48 124/49 124/50 124/51 124/52 133/07 133/08 133/09 133/10 133/11 133/12 133/13 133/14 133/15 133/16 133/17 133/18 145/47 147/12 147/13 158/26 CBCD0 013241 2/47 127/47 CBCD1 013246 127/53 128/08 CBCDA 000104 2/47 46/46 83/33 84/44 105/11 107/04 127/24 CBCDS 013271 127/55  128/06 128/14 CBCDX 013267 127/47 127/48 128/03 128/09 128/10 128/12 CB.1 006240 65/21 65/26 CB.2 006233 65/20 65/23 CB.3 006231 65/18 65/33 CB.A2 006253 65/11 65/35 65/39 CB.A3 006254 65/10 65/36 65/40 67/31 CB.CC 006256 65/16 65/32 65/42 CB.RG 006255 65/13 65/19 65/31 65/41 CCOM 000241 4/41 113/36 CCWRD 000002 7/08 7/09 99/14 CDBUF 021207 158/27 159/15 159/21 CDCTR 021206 158/31 158/38 159/20 CDPCT 021133 158/14 158/28 158/30 CDPR1 021130 158/18 158/25 159/13 CDPR2 021137 158/33 158/39 CDPR3 021146 158/41 CDPR4 021116 158/14 159/09 CDPR7 021161 158/49 158/54 CDPR8 021176 158/42 159/11 CDPR9 021173 158/13 159/07 CDPRS 021166 37/16 159/02 CDPRT 021105 18/28 158/05 158/58 159/06 CDTYP 015135 147/01 148/56 150/10 CDV01 000736 13/57 125/16 CDV02 001001 14/52 125/17 CDV03 001003 14/54 125/18 CDV07 001371 21/31 125/21 CDV08 001357 21/15 125/23 CDV09 001363 21/11 21/21 21/35 125/24 CDV10 001417 22/04 125/25 CDV11 001423 22/09 125/26 CDV12 001500 23/16 125/27 CDV13 001504 23/21 125/28 CELOP 011357 104/12 104/19 CHCNT 003511 48/35 CHOLD 012455 117/35 117/52 CHPSN 003516 47/18 47/21 47/30 48/40 CHR0 000223 4/39 CHRA 006176 63/54 64/03 CHRCR 000213 4/35 18/42 68/36 135/23 158/50 CHRDS 012447 117/29 117/59 CHRFF 000212 4/36 33/43 45/59 82/32 101/08 159/02 CHRI 012704 118/09 120/41 CHRLF 000210 4/37 18/44 68/38 158/52 CHRP 012703 118/08 120/40 CHRR 006177 63/57 64/04 CHRSL 000222 4/40 110/24 111/02 113/37 CHRSP 000221 4/38 105/40 114/11 119/13 135/13 135/34 138/46 147/23 158/20 CHR. 011520 105/16 106/47 107/10 0164 .MAIN CH.CT 006556 69/11 69/36 70/15 CKCO1 005571 2/48 57/09 CKCOL 000105 2/48 47/33 CKPNA 011257 102/46 102/58 CLANT 002643 38/37 38/45 CLCTR 003255 45/19 CLEAR 000106 2/49 13/12 19/59 38/35 101/25 CLK 000335 6/37 13/23 16/22 39/51 39/59 43/25 52/15 95/57 96/23 CLK1 015625 6/37 156/58 CLKLN 000006 6/46 156/58 CLMCT 001475 15/11 22/11 22/25 23/06 23/23 CLMER 001451 22/32 22/36 22/38 CLM.S 000270 5/28 14/59 21/57 CLNUM 003477 47/32 47/44 48/25 CLOPT 002670 38/58 39/02 39/06 CLPA2 015433 153/10 153/45 153/51 CLPS2 015415 153/34 153/42 CLPS3 015426 153/13 153/35 153/37 153/45 CLPSN 015372 153/09 CLPSX 015430 153/09 153/46 153/48 CLPTR 003254 45/18 CLR 000011 24/46 24/47 CLR1 005300 2/49 52/08 CLR2 005311 52/14 52/21 CLRA1 005423 2/50 54/16 CLRAN 000107 2/50 13/14 38/41 156/38 CLRAX 005447 54/16 54/37 54/39 CLRCU 000001 5/53 53/10 53/45 CLROD 000004 5/56 52/12 52/28 53/48 CLRPR 000003 5/55 13/11 19/58 52/47 53/42 101/24 CLRSL 000002 5/54 53/39 CLRTB 002633 38/23  38/27 CLRX 005325 52/08 52/36 53/57 CLTAB 002634 38/27 38/28 CL.19 005354 52/49 53/10 CL.40 005377 52/34 53/12 53/37 CL.50 005416 53/54 CL.8 005332 52/30 52/44 CL.SW 005422 52/09 52/27 53/07 53/38 54/01 CM.1 005710 59/23 59/28 CNCT2 014232 138/24 138/37 139/46 140/50 CNCTR 015127 143/54 147/37 148/44 148/50 CNTFL 006432 10/41 55/50 67/51 68/32 CNTLN 006433 67/54 68/33 CNTST 013237 127/16 127/30 127/35 COL1 001460  21/54 22/49 COL20 011100 98/08 98/48 COL24 011101 98/15 98/49 COL63 001774 27/42 28/19 COL80 001454 21/49 22/43 COLAD 001775 27/43 27/46 27/50 28/20 COLCT 001776 27/45 27/49 28/03 28/05 28/21 COLM1 005573 2/51 56/59 57/12 COLM2 005574 57/10 57/14 COLM5 005605 57/24 57/28 COLM7 005612 57/25 57/30 COLMN 000271 5/29 14/55 15/02 15/04 21/58 37/10 COLMS 000111 2/52 27/05 27/21 28/41 28/51 28/57 31/36 39/15 0165 .MAIN 39/49 39/57 41/23 41/34 45/31 49/25 101/53 102/33 111/36 145/56 146/45 COLN2 010744 96/18 96/46 COLON 003235 43/59 44/33 45/05 COLPT 001777 27/53 28/22 COLS1 005620 2/52 57/45 COLS3 005627 57/53 58/08 COLSA 005650 57/51 57/56 58/02 58/12 COLSI 005652 57/46 57/53 58/04 58/06 58/14 COLSJ 005653 57/49 58/03 58/15 COLSN 005651 57/47 58/07 58/13 COLSX 005654 57/45 57/55 58/09 58/10 58/16 COLUM 000110 2/51 31/03 38/11 41/11 57/54 COMCH 014437 143/41 144/06 148/51 COMPT 012315 113/27 114/01 114/06 114/31 115/03 CONT3 007531 82/57 83/19 CPRC1 007335 2/54 79/24 CPRC2 007346 79/34 79/36 CPRCB 007355 79/25 79/30 79/42 CPRCX 007354 79/24 79/38 79/39 79/41 CPREC 000113 2/54 44/16 CPTR 003337 46/11 46/18 CPTR1 007542 82/59 83/07 CR511 014706 146/20 CR999 014705 146/19 CSTR2 013221 127/20 127/31 CSTRA 013214 81/32 126/33 127/14 CSTRC 013226 127/21 127/25 127/29 CSTRX 013236 127/14 127/26 127/32 127/34 CTCOL 012316 113/29 113/31 115/04 CTRSP 021203 158/19 159/17 CURCH 000363 7/58 46/08 82/56 84/29 85/04 85/46 102/59 111/46 117/49 117/53 118/27 118/54 118/58 119/39 137/18 137/27 137/43 137/47 137/59 138/14 CURPN 011274 102/35 102/51 103/01 103/15 CURTM 014244 138/16 139/18 141/01 CYCLE 001161 15/58 16/01 16/03 16/14 16/17 17/21 C.12 013547 5/18 123/09 133/07 C.228 013025 122/50 123/21 C.235 013055 123/01 124/41 C.BCD 000112 2/53 39/37 39/40 45/25 49/29 D10 000210 4/21 102/38 D101 006431 68/31 D101. 021202 158/16 159/16 D102 000240 4/30 158/09 158/47 D10K 000033 2/29 71/58 74/16 D132 006425 68/15 68/26 D148 002551 35/58 36/30 D17 011222 102/13 102/44 104/07 D181. 002477 35/35 D183 003403 46/57 D190 002451 33/12 35/05 D193 002452 33/13 35/06 D1K 000034 2/30 72/08 D20 000230 4/22 42/03 D23 000231 4/23 D238 002061 28/45 29/03 29/26 D239 003256 45/20 45/52 D24 013213 126/53 127/08 0166 .MAIN D251 003257 45/21 45/53 D28 002552 36/31 D30 000232 4/24 155/31 D301 011224 101/55 102/15 D32K1 000532 10/20 10/48 D35 000233 4/25 147/04 D4K 000531 10/31 10/47 D51 000234 4/26 D53 000235 4/27 D57 012314 113/28 115/02 D60 000236 4/28 17/15 17/16 111/33 D80 001474 22/26 23/05 D83 007331 78/30 79/13 D84. 007332 78/35 78/50 79/14 D87 000237 4/29 20/51 DATA 017074 6/56 6/57 6/58 157/24 157/26 157/27 DATAN 000340 6/58 59/45 60/29 66/59 DATAP 000336 6/56 43/04 96/51 96/59 97/09 97/28 DATAV 000337 6/57 29/11 42/20 61/15 66/08 153/11 DATBS 017234 30/16 35/29 35/30 53/04 53/05 122/55 123/06 123/14 157/27 157/29 DATIL 000003 6/57 6/58 7/09 29/07  29/14 30/16 42/08 42/18 42/51 43/11 43/13 59/42 60/26 61/13 61/17 61/21 66/56 70/52 97/11 97/32 99/07 99/12 99/14 99/32 122/55 123/06 123/14 153/18 157/26 157/27 157/29 DCTLP 000530 10/46 12/14 DCTTO 000207 10/45 12/11 DEC19 002500 35/36 DELAY 001162 15/27 15/29 15/38 15/48 17/22 DIFDS 011650 107/47 108/39 108/52 DIFTB 001662 26/51 27/13 DIS 000005 24/42 24/43 26/57 DIS2A 011600 107/49 107/51 DISER 001764 27/12 28/12 DISF1 010115 86/22 86/46 87/27 87/52 DISF2 010116 86/23 87/05 87/35 87/53 DISP2 010117 86/54 87/54 DISPT 010120 86/42 86/53 87/55 DISTA 011564 107/37 107/46 DISTB 016221 26/43 87/55 107/37 108/47 157/15 DISTR 000114 2/55 32/37 35/32 DM17 001017 15/17 15/57 DM31 006560 69/07 70/17 DM34 001020 15/18 15/21 DM79 002123 29/57 30/22 DNLIN 012620 119/27 119/37 DPATC 002005 28/29 28/32 DPTO1 002042  28/47 29/07 DPTOP 002013 28/37 28/38 DR.2 006300 66/19 67/25 DR.3 006304 66/25 67/10 DR.4 006331 66/27 66/55 DR.5 006360 67/02 67/27 DR.6 006307 66/29 DR.8 006351 67/18 67/22 DR.9 006356 67/24 DR.A3 006254 65/55 67/29 67/31 DR.AN 006363 65/56 66/06 66/34 66/36 67/32 DR.CL 006367 66/22 67/09 67/36 0167 .MAIN DR.OR 006365 65/57 66/02 66/40 66/44 67/34 DSHER 000612 11/20 11/39 11/54 DT100 000611 11/29 11/53 DTEDN 002234 32/08 32/28 DTEND 002116 30/16 32/08 DTPL 002442 34/57 35/49 DVTB1 013105 10/42 125/11 DVTB2 013112 10/43 125/16 DVTB3 013130 10/44 125/32 EDIT 000115 2/56 31/56 34/42 46/43 73/06 74/25 74/48 76/31 77/16 77/37 83/30 84/42 96/17 97/46 105/09 107/02 ED.1 005456 55/01 55/05 ED.2 005463 55/02 55/06 ED.A3 005465 54/58 55/07 55/08 55/52 EIGHT 006557 69/04 69/39 70/16 ENC0 013313 2/57 129/19 ENC20 013345 129/52 130/02 ENC30 013352 129/53 129/59 ENC5 013366 130/13 ENCA3 013374 129/19 129/39 130/15 130/21 ENCAA 013376 129/43 130/09 130/11 130/23 ENCDE 000116 2/57 27/37 45/34 105/26 107/14 109/45 117/40 147/11 158/25 ENCSA 013375 129/41 129/47 129/48 130/22 ENCWC 013377 129/45 130/13 130/24 END 000012 24/47 24/48 ENDFL 000273 5/31 10/13 22/17 22/20 23/28 ENDNM 012201 111/09 113/09 ENDST 011521 105/36 106/48 ENTMP 013577 133/36 EOFGL 002235 32/09 32/43 EOFLG 002445 32/09 34/52 35/01 35/14 ERMSG 013710 62/16 134/05 FCLR 000117 1/32 2/58 78/58 FCLR1 001274 2/58 19/04 19/51 FETC2 011110 99/03 99/11 FETC3 011114 99/08 99/16 FETCH 011102 96/52 97/20 99/01 99/29 99/45 FETCX 011115 99/01 99/16 99/18 FHRS 000004 6/44 6/45 52/17 96/05 96/08 96/15 FLG 000006 24/43 24/44 26/26 FLGTB 016505 26/44 109/35 157/16 FMIN 000005 6/45 6/46 52/18 96/10 96/24 FN1 012253 114/15 114/24 FN2 012254 114/17 114/25 FN3 012255 114/22 114/26 114/36 114/53 FOUR 006552 69/02 69/42 70/11 FOURC 013270 127/49 128/07 128/13 FPFL 000333 6/31 46/51 82/44 FR1BK 005450 7/56 54/23 54/26 54/40 154/52 155/44 FRD 000120 1/31 2/59 FRD1 001315 2/59 20/16 FRECH 000361 7/56 149/29 155/05 FSUM 000365 8/02 25/54 29/30 29/37 145/08 GBC10 015477 155/07 155/19 GBC15 015502 155/11 155/15 GBC20 015507 155/12 155/17 GBC30 015514 155/25 155/54 156/26 GBC31 015534 155/28 155/46 0168 .MAIN GBC40 015543 155/48 155/56 GBC45 015550 156/03 156/08 GBC47 015561 156/17 156/32 GBC48 015567 156/24 156/30 GBC50 015572 156/20 156/28 GBCD1 013277 128/29 128/33 GBCD2 013304 128/30 128/35 GBCD3 013305 128/37 128/40 GBCDC 013275 127/54 128/26 GBCDX 013312 128/26 128/41 128/43 GBCLA 015577 155/37 156/38 GBCO1 015223 149/42  150/07 GBCOL 015473 150/07 155/02 GBCRT 015526 155/02 155/36 155/39 156/41 GCHR 000121 3/01 68/18 81/52 105/39 110/23 111/01 111/13 113/35 114/10 117/58 118/07 118/16 118/38 119/53 126/13 126/40 130/08 139/54 143/40 147/22 147/51 158/33 GCHR1 012320 3/01 115/16 GCTM0 015530 155/03 155/41 156/39 GCTM1 015531 155/04 155/42 156/40 GET1 000122 3/02 GET11 005717 3/02 59/40 GET12 005746 60/04 60/12 GET13 005720 59/41 59/51 60/08 60/13 GET2 000123 3/03 GET21 005753 3/03 60/24 GET22 006002 60/47 60/55 GET23 005754 60/25 60/35 60/51 60/56 GET3 000124 3/04 33/04 34/36 43/19 GET31 006005 3/04 61/10 GET39 006025 61/20 61/27 GET3A 006027 61/10 61/11 61/12 61/18 61/24 61/27 61/28 61/30 GETRT 005750 59/57 60/09 60/14 60/41 60/52 60/57 GETXT 005752 59/40 59/47 60/14 60/15 60/17 60/24 60/31 GPE01 003520 48/46 49/26 GPE02 003522  47/09 48/49 49/45 GPE03 003524 48/52 49/10 GPE04 003526 48/55 49/54 GPREP 002064 29/33 30/49 GROUP 015603 156/48 GRP01 003545 29/33 49/06 GRP02 003601 49/50 49/56 GRP03 003610 49/51 49/58 GTAD1 012004 3/05 110/55 GTAD2 012010 110/59 111/06 GTAD3 012017 111/04 111/08 111/17 GTAD4 012032 111/12 111/20 GTADD 000125 3/05 105/35 108/04 109/53 120/17 GTADR 012033 110/55 111/20 111/22 GTNA1 011747 3/06 110/13 GTNAM 000126 3/06 105/31 107/20 GTNRT 012003 110/15 110/33 110/44 GTZI1 012034 3/07 111/31 GTZIP 000127 3/07 105/48 109/56 120/26 HIS 000004 24/41 24/42 84/58 HISTA 011516 105/51 106/45 HISTB 015735 13/33 26/42 54/35 106/45 109/04 109/10 117/15 157/14 HIT 012376 116/16 116/20 HLT 000766 14/19 14/28 0169 .MAIN HOVOT 006714 71/38 71/41 72/31 HRS 000000 6/39 6/40 13/24 16/23 16/39 17/02 17/03 17/08 39/52 43/27 95/58 HUNDR 000035 2/31 HYPHN 010673 95/26 95/48 IBM01 013320 129/25 129/36 IBMCT 013373 129/21 129/35 130/19 ICNT 010637 94/31 94/46 95/17 IDIV 000130 3/08 72/02 72/07 72/42 74/17 78/05 79/28 79/52 153/19 IDIV1 005545 3/08 56/32 IDIV5 005552 56/38 56/43 IDIV9 005561 56/34 56/46 IMPY 000131 3/09 29/10 42/19 42/52 43/12 61/14 71/37 71/40 71/59 IMPY1 005532 3/09 56/12 IMPY3 005535 56/16 56/20 INDX1 000341 7/01 13/01 59/41 59/44 INDX2 000342 7/02 60/25 60/28 INDX3 000343 7/03 66/09 66/29 66/50 66/55 66/58 INIOP 000132 3/10 12/53 38/55 INOP1 012420 3/10 116/56 INOP3 012421 116/58 117/06 INTAC 000771 13/50 13/52 13/53 13/54 13/55 14/14 14/16 14/18 14/21 14/22 14/23 14/25 14/39 INTB1 001105 16/22 INT.A 001014 14/53 15/09 125/19 INT.B 000751 14/14 14/34 15/03 15/05 15/10 16/25 16/30 16/53 16/59 INT.C 001104 15/28 15/41 15/51 16/06 16/19 INT.D 001045 15/31 15/43 INT.E 001056 15/44 15/53 INT.F 001064 15/54 16/01 INT.G 001072 16/02 16/08 INT.H 001103 16/15 16/17 INT.P 001021 14/01 15/20 INT.R 000776 13/58 14/49 INT.T 000767 14/03 14/33 IPAT 002117 29/51 30/18 IPAT2 002120 30/06 30/19 IPTBP 003405 46/59 IWRD 010640 94/32 94/47 95/18 JIRST 000277 5/37 29/05 109/24 109/33 109/39 JSKIP 000275 5/35 29/02 109/30 JSTRT 000276 5/36 28/53 109/25 109/31 JV.1 000730 1/28 13/50 JV.12 006577 70/49 JV.14 005655 3/14 58/29 JV.15 006037 61/41 JV.16 005524 3/22 55/59 JV.19 001347 3/29 21/05 JV.22 001476 3/37 23/13 JV.23 007027 3/38 74/14 JV.24 001164 3/41 18/07 20/06 JV.3 006111 2/46 62/46 JV.5 005701 59/16 JV.7 006222 2/53 65/10 JV.8 006257 2/55 65/55 JV.9 005454 2/56 54/58 0170 .MAIN KPCNH 012431 117/13 KVGEN 007727  85/18 85/22 KVJSL 011706 103/39 109/23 KVL1B 011725 103/36 109/44 KVLB1 011657 108/48 108/51 KVLBD 011652 103/33 108/45 KVLBH 011667 109/02 KVLBL 011726 103/32 108/49 108/58 109/06 109/16 109/36 109/45 KVLNH 011674 103/35 109/08 KVP10 012444 117/26 118/36 119/02 KVP16 011427 105/38 105/44 KVP17 011436 105/42 105/45 KVP2 012451 117/31 117/57 KVP5 012445 117/27 117/45 KVP70 011451 106/02 106/37 KVP78 011501 106/26 106/28 KVP79 011502 105/54  106/09 106/11 106/29 KVP8 014115 138/45 139/01 KVP89 011504 106/21 106/33 KVP90 011513 106/05 106/15 106/42 KVPAD 012656 119/59 120/16 KVPC1 012471 117/50 119/44 KVPC2 012702 117/31 118/44 119/17 119/20 119/31 120/11 120/21 120/31 120/39 KVPC3 012630 118/11 119/48 KVPC4 012705 118/32 118/37 118/45 120/42 KVPC5 012700 117/27 118/42 118/46 119/01 119/04 119/14 119/16 119/28 119/30 119/43 120/06 120/08 120/09 120/16 120/18 120/19 120/25 120/27 120/29 120/37 KVPC6 012537 118/37 118/47 KVPC7 012476 117/57 119/10 119/21 119/33 120/13 120/23 120/33 KVPC8 012452 117/32 118/33 139/01 KVPC9 012453 117/33 118/34 119/05 KVPCN 012457 117/21 117/40 KVPCS 012456 103/52 117/39 KVPNM 012646 119/56 120/06 KVPRT 011374 103/42 105/06 KVT20 007656 84/35 84/40 84/51 KVT30 007670 84/33 84/45 84/47 84/50 KVT40 007677 84/38 84/54 KVT50 007704 84/55 85/03 KVT53 007731 85/16 85/21 85/24 KVT54 007732 85/11 85/20 85/23 85/25 KVT55 007733 85/06 85/26 85/28 85/31 KVT60 007710 85/07 85/13 85/32 KVT70 007743 85/10 85/36 KVT75 007750 85/45 KVT76 007754 85/49 85/54 86/05 KVT77 007764 85/48 85/57 86/01 86/04 KVT80 007773 85/52 86/06 KVT90 010000 83/49 84/10 86/12 KVTTL 007643 83/59 84/20 KVZIP 012666 120/03 120/25 LANPR 015607 156/49 LCLK1 015625 156/57 LCRDP 005000 51/08 LCRDS 005120 51/11 LDSTR 005452 54/46 54/48 159/26 LENTM 013577 133/35 0171 .MAIN LFHW 000400 5/11 121/23 121/27 121/31 121/35 121/39 121/43 121/47 121/51 121/55 121/59 122/04 122/08 122/12 122/16 122/20 122/24 122/29 122/33 LGROU 015603 156/47 LINSW 000007 1/43 15/43 15/46 16/16 55/42 LMASK 013372 129/22 130/18 LMNUS 003234 43/54 45/04 LN09A 006630 71/17 71/26 LN09B 006647 71/32 71/45 LN1 012275 114/30 114/44 LN2 012276 114/42 114/45 LN3 012277 114/35 114/46 114/49 LN32A 006733 72/51 72/54 LNEXT 003326 46/09 46/30 LNINE 003354 46/24 46/32 LNUM 000326 6/26 10/22 37/02 45/46 55/26 68/04 68/42 68/44 82/23 82/37 101/16 158/54 158/56 159/05 LN.09 006611 70/57 71/03 LN.10 006651 71/49 71/55 LN.20 006660 71/50 71/57 LN.21 006677 72/17 LN.3 007024 73/47 73/57 LN.30 006746 72/12 73/05 LN.31 007007 71/06 71/12 71/24 72/23 72/38 73/02 73/43 LN.32 006715 72/14 72/34 LN.A0 007025 73/08 73/17 73/59 LN.A1 006711 70/50 70/51 71/26 71/27 71/39 71/57 72/01 72/28 LN.A3 006713 70/49 72/30 73/57 LOAD 004754 124/13 124/33 LOAD1 004737 123/58 124/09 124/17 124/19 124/24 124/26 LOAD2 004770 124/26 124/30 LPLUS 003233 43/51 45/03 LPRTA 015633 157/03 LPTC1 013717 68/34 134/14 LPTCH 006434 68/21 68/34 68/37 68/39 LPTRT 013723 134/19 LPTSV 013763 134/15 134/16 134/19 135/01 135/54 LPTX 001160 15/23 15/24 15/25 16/08 17/20 LPTXX 013762 134/14 135/02 135/53 LSM7A 000000U 96/56 LSM9C 013714 46/38 83/25 134/06 LSMG7 000000U 96/54 LSMG8 000000U 97/01 LSPR1 007476 3/11 82/21 LSPRT 000133 3/11 106/42 108/02 108/32 LSPRX 007473 82/12 82/21 82/26 82/31 82/39 LS.TV 000311 6/02 71/09 71/10 71/45 71/46 99/30 99/31 100/12 100/13 LS.VA 000000U 71/36 LTBPT 014716 146/25 LTMP1 004735 123/55 124/20 124/23  124/27 124/28 LTMP2 004736 123/56 124/18 124/21 124/29 LTRPB 014441 144/08 LTSTR 016771 157/18 M0.1 000245 4/50 36/18 M0.11 000174 4/47 54/05 54/59 137/29 M0.3 000246 4/51 54/07 M0.7 000243 4/48 22/33 32/46 32/57 34/24 54/06 61/22 65/59 74/38 74/44 115/42 0172 .MAIN M0.8 000242 4/46 137/31 137/49 139/15 154/05 M0.9 000244 4/49 146/37 M1213 000212 5/02 11/30 11/40 M1215 000215 5/01 99/11 138/03 139/13 M1315 000205 5/03 M221 002446 35/02 35/15 M229 002447 35/03 35/17 M4.15 000250 4/53 36/16 57/09 96/38 M4.4 000255 4/58 19/28 M4.6 003500 48/26 M4.7 000247 4/52 M66 000256 5/04 159/08 M6.13 000254 4/57 M6.15 000251 4/54 49/12 57/12 M7.15 003501 48/27 M80 000257 5/05 158/10 M8.11 000252 4/55 M8.15 000226 4/59 32/34 32/54 35/22 74/26 74/28 74/49 115/19 115/35 M9.11 000253 4/56 137/38 146/55 MAPEL 000007  31/48 122/57 MATC1 012357 3/12 116/04 MATC2 012362 116/08 116/19 MATCH 000134 3/12 107/36 107/50 108/46 108/55 109/03 109/09 109/34 117/14 MAXPY 003022 42/08 42/55 MAXVP 000470 6/53 6/58 146/20 146/21 157/26 MIN 000001 6/40 6/41 13/25 16/35 16/55 16/56 17/01 40/01 43/29 96/09 MIS 000010 24/45 24/46 MMERR 011371 83/48 83/50 83/51 83/52 83/53 83/54 83/55 83/56 83/57 83/58 84/01 84/02 84/03 84/05  84/06 84/07 84/08 84/09 84/11 84/12 84/13 84/14 103/34 103/37 103/38 103/40 103/41 103/43 103/44 103/45 103/47 103/48 103/49 103/50 103/51 103/53 103/54 103/55 103/56 104/33 MMINS 006073 61/59 62/18 MMJTB 011305 103/25 103/30 MMNOP 011373 103/31 104/36 MMOV1 005671 3/13 58/54 MMOVE 000135 3/13 13/31 35/27 46/13 52/55 53/02 53/17 53/30 54/29 54/33 70/01 70/05 83/02 105/20 138/55 MMSG1 012065 107/22 112/01 MMSG2 012075 108/07 112/04 MMSG3 012145 107/32 112/08 MMSG4 012150 108/26 112/11 MMSG5 012154 108/14 113/02 MMTTB 007607 83/43 83/47 MNOT0 002200 30/57 31/29 MOVE 000136 3/14 12/43 13/04 22/41 27/33 28/04 145/45 150/20 MP312 000212 32/06 MPLUS 002237 31/57 32/11 MS01 002671 28/34 39/12 MS17 011360 104/05 104/21 MS18 011361 104/06 104/22 MS884 007327 78/38 79/11 MS885 007330 78/36 79/12 MSBCD 000174 5/06 48/03 MSDAT 002715 39/26 39/37 MSERR 002713 39/16 39/20 39/32 39/50 39/58 0173 .MAIN MSG 000137 3/15 22/37 24/17 24/31 28/11 29/19 30/13 30/33 31/26 32/01 33/57 34/44 36/57 38/20 39/32 41/57 43/01 44/53 47/11 48/46 48/49 48/52 48/55 102/05 104/33 110/36 146/12 146/29 149/46 149/50 MSG1 006032 3/15 61/36 MSGEN 010004 85/22 86/16 MSGPR 010001 85/19 86/14 MSGS1 006044 3/16 61/52 MSGSG 006071 62/04 62/16 MSGSR 000140 3/16 61/43 104/13 109/13 117/18 MSGX 006070 61/52 61/55 62/11 62/12 62/14 MSK1 014431 142/38 143/58 143/59 MSK2 014432 144/01 MSK3 014433 144/02 MSKA1 014240 140/55 140/56 MSKA2 014241 140/57 MSKA3 014242 140/58 MSKCL 005617 57/14 57/19 57/37 MSKCP 000351 64/15 64/32 MSKRL 000350 64/10 64/30 MSKWD 000534 9/39 10/50 MSPAC 000141 3/17 12/57 36/39 38/51 53/56 62/08 78/46 95/04 109/59 MSPC1 005467 3/17  55/16 MSRD 000346 64/22 64/31 MSTBL 002705 39/21 39/25 MSTIM 002724 39/27 39/46 MTRTN 012406 116/06 116/10 116/26 116/27 116/29 MTX 000077 2/37 16/09 16/10 69/19 69/23 69/49 69/50 MTX.X 006555 69/08 69/14 69/45 70/14 MULCH 014137 139/25 139/58 140/03 MULCT 014245 140/04 140/09 141/02 141/22 141/29 141/35 142/29 142/30 142/55 MUX 000034 1/40 11/06 11/08 11/19 11/21 11/23 11/27 11/28 11/37 11/38 11/47 11/49 18/17 18/21 18/22 18/24 63/41 63/45 63/46 63/48 MUXDL 013765 135/55 MVAS1 007441 3/18 81/42 MVAS2 007451 81/51 82/04 MVAS3 007466 81/49 81/54 81/58 82/06 MVASC 000142 3/18 27/26 45/39 46/17 46/33 46/37 83/06 83/20 83/24 84/20 85/24 85/36 85/55 86/06 86/25 86/37 86/47 87/06 87/15 87/22 87/29 87/37 99/47 106/27 107/21 107/31 107/40 107/54 108/06 108/13 108/25 111/50 114/23 114/43 126/25 126/58 MVASX 007471 81/42 82/06 82/10 MV.1 005664 58/37 58/40 MXHRS 000213 17/04 17/17 MXLN 000327 6/27 33/21 38/57 82/24 158/55 MXMIN 000236 16/57 17/16 MXNAM 011777 110/13 110/40 MXPRN 001747 5/45 53/33 95/10 157/04 MXPTY 000020 6/54 6/57 6/58 42/08 97/07 97/26 146/26 157/26 157/27 MXSEC 000236 16/51 17/15 MXTCK 001157 16/28 17/14 MXVP 014707 146/08 146/21 M.77 003404 46/58 N40 014703 145/16 146/17 0174 .MAIN NAMS 012176 106/49 108/38 113/06 NAMS2 012202 108/37 113/10 NBCL1 005563 3/19 56/54 NBCOL 000143 3/19 NCRD 011154 101/06 101/46 NEGLB 011701 109/11 109/13 NEGPC 012436 117/16 117/18 NEWCH 013341 129/47 130/14 NINEL 007557 83/13 83/20 NLINE 003347 46/10 46/26 NMATC 011607 107/52 107/59 NMCTR 012000 110/14 110/16 110/41 NMENT 000055 5/47 13/34 26/51 54/36 87/54 108/39 157/14 157/15 157/16 NNN 013055 123/47 124/37 NOCMD 000765 14/08 14/27 NOLIN 007552 82/58 83/15 NOMSG 007316 78/32 78/52 79/01 NOPCN 012677 120/36 NOTD1 012575 118/30 119/12 119/49 120/04 NOTD2 012576 119/13 119/19 NOTDS 012607 118/02 119/25 NOTXT 002002 26/28 28/29 NPWVT 011221 102/09 NULL0 012552 118/41 118/51 NULST 000325 6/23 NXIRC 011723 109/27 109/39 NXOPT 002515 35/47 35/55 NXPTN 002121 30/04 30/20 NXTC 012443 117/25 118/35 NXTCT 014114 117/25 138/53 138/58 NXTLN 014136  137/17 138/05 139/24 NXTP1 012407 116/39 NXTP2 013774 137/21 137/45 138/07 NXTP3 014026 137/35 137/53 NXTP4 013777 137/19 137/25 NXTP5 014052 138/19 NXTP6 014064 138/31 138/33 138/38 NXTP7 014032 137/51 137/59 NXTP8 014017 137/43 137/54 NXTP9 014021 137/42 137/47 NXTPA 013767 3/20 116/49 137/15 NXTPS 000144 3/20 46/09 82/57 84/37 85/09 85/51 98/05 103/09 106/04 111/47 117/50 118/29 118/55 NXTPX 012417 116/39 116/47 116/50 NXTRR 014135 137/15 139/23 NXTRS 014134 137/16 137/26 137/56 139/22 NXTRT 014243 138/15 139/19 139/23 140/59 NXTVN 014140 138/01 139/11 139/26 NXVN 007702 84/36 84/58 85/08 85/50 106/50 NXWRD 010465 93/10 93/47 94/02 94/16 N.12 013563 5/19 123/10 133/20 N.228 013041 122/51 123/34 N.235 013071 123/02 124/54 O10 000206 3/59 O100 003026 42/14 42/30 O1000 005616 57/22 57/35 O11 000207 4/01 65/18 O14 000212 4/04 21/09 0175 .MAIN O15 000213 4/05 17/17 O17 000215 4/07 5/01 47/38 65/24 69/15 73/09 O2 000200 3/53 15/39 22/05 23/17 O20 000216 4/08 78/04 79/27 79/51 111/42 O21 000217 4/09 49/08 O22 000220 4/10 O3 000201 3/54 O340 011651 108/40 O377 000226 4/16 4/59 66/03 O4 000202 3/55 69/01 69/10 O40 000221 4/11 4/38 98/02 147/54 148/06 148/29 153/20 O57 000222 4/12 4/40 O60 000223 4/13 4/39 103/06 118/23 O6000 000227 4/17 30/39 101/38 O61 000224 4/14 119/54 O63 000225 4/15 27/44 OC110 003414 47/07 OCELL 006072 61/57 62/10 62/17 104/19 OCHR 000145 3/21 18/43 18/45 134/17 158/21 158/36 158/51 158/53 159/03 OCHR0 013726 3/21 135/09 OCHR1 013757 125/33 135/48 OCHR2 013756 125/32 135/47 OCHR3 013727 135/13 OCHR4 013735 135/15 135/23 OCHR8 013744 135/34 135/37 OCHR9 013751 135/30 135/39 OCHRC 013755 135/35 135/39 135/46 OCHRS 013754  135/31 135/38 135/43 OCHRX 013753 135/09 135/19 135/40 135/42 OCHX 013766 135/46 135/51 135/56 OCM36 014702 145/32 146/16 OCT2K 000445 9/08 9/12 9/16 9/20 9/24 9/28 9/32 OCT37 014350 142/33 142/49 OFF 000014 1/57 10/11 12/22 15/35 15/45 15/55 20/07 21/55 22/12 22/19 24/15 38/43 55/43 67/27 69/54 108/34 OLDCH 012706 117/35 118/53 118/57 120/43 OLDP2 015455 153/30 153/39 154/13 154/27 154/41 OLDPT 015221 149/37 150/05 150/29 151/06 151/15 151/27 151/33 152/02 152/22 OM10 007026 73/28 74/01 OM14 003413 47/06 OM20 000174 3/49 4/47 5/06 56/14 56/35 72/56 73/12 73/34 93/10 OM3 000172 3/47 119/12 OM4 000173 3/48 14/49 15/37 15/47 48/01 48/07 62/50 65/15 72/49 73/18 96/27 97/48 128/35 ON 000015 1/59 10/07 15/33 16/04 16/13 19/46 19/51 20/16 21/50 23/27 55/41 62/32 69/52 101/58 152/28 ONOFF 007412 79/49 80/04 80/21 OP190 002333 33/25 OP191 002334 33/26 OP192 002335 33/27 OP193 002336 33/28 OPAGE 002667 38/56 39/05 OPCEL 002444 32/07 34/43 34/59 62/17 OPMNM 002233 31/59 32/07 OPNUM 000373 8/32 32/44 32/59 33/07 33/48 34/06 34/07 34/30 34/40 34/47 34/48 35/16 35/56 36/24 36/27 0176 .MAIN OPT 000013 24/48 OPTPT 000372 8/31 32/41 32/45 32/52 33/06 33/47 34/13 34/16 OR 000146 3/22 55/06 65/30 73/14 73/39 ORTBA 013402 129/49 130/28 ORTBL 013403 130/28 130/29 OTBO2 011133 99/28 99/48 100/10 OTBO3 011134 98/10 98/16 99/49 OTBOR 011127 99/34 99/44 100/14 OTBOX 011140 99/44 99/53 99/56 OTIME 001163 16/46 17/23 19/37 19/38 19/39 19/40 P100. 006706 72/21 72/25 PAKPT 014701 145/28 145/30 146/15 PART2 015134 142/47 148/36 148/39 148/55 PBACT 100000 7/12 7/32 PBALC 020000 7/14 7/34 PBBCO 020000 7/27 PBCAN 000040 7/22 7/42 PBCD1 003454 47/19 47/59 PBCD2 003460 48/05 48/14 PBCD3 003470 48/06 48/17 PBCD4 003463 48/10 48/13 PBCDX 003517 47/59 48/17 48/22 48/23 48/41 PBEND 010000 7/15 7/35 PBID2 040000 7/26 PBILL 000400 7/19 7/39 PBIMB 002000 7/17 7/37 PBLOC 001000 7/18 7/38 PBOFS 000400 7/29 PBOPT 004000 7/28 PBPAS 100000 7/25 PBPTY 000037 7/23 7/43 PBRCL 000200 7/20 7/40 PBROT 004000 7/16 7/36  7/52 PBSPL 000100 7/21 7/41 PBVOT 040000 7/13 7/33 102/09 PCDUP 003226 43/38 44/17 44/31 44/47 44/57 PCELL 003402 46/06 46/12 46/21 46/26 46/27 46/56 PCENT 003225 43/37 44/26 44/40 44/43 44/56 PCHR 000147 3/23 33/45 46/02 81/20 81/23 81/59 82/34 101/10 105/17 107/11 110/28 111/15 118/43 119/15 119/29 128/04 130/10 138/47 140/07 140/13 PCHR1 012331 3/23 115/32 PCHRS 012354 115/33 115/34 115/37 115/47 115/48 115/49 115/52 PCN 000002 24/39 24/40 PCNT 000300 5/38 24/20 24/22 42/36 42/39 52/31 52/50 53/14 77/14 77/28 101/20 PCPTR 012707 120/28 120/44 PCWRD 000000U 99/07 PDEST 011517 105/15 106/46 107/09 PG100 001516 24/08 29/25 PG119 002501 13/38 35/33 35/39 PG120 002523 36/03 36/28 PG121 002535 36/10 36/13 PG132 002544 36/12 36/24 PG135 002554 36/05 36/35 PG144 002561 36/42 PG145 002606 36/46 37/10 PG146 002574 36/50 36/54 PG147 002601 36/52 37/01 0177 .MAIN PG150 001527 24/12 24/20 PG155 001535 24/31 PG23C 002652 38/47 39/03 PG23D 002644 38/31 38/40 PG23E 002654 38/50 PG23F 002657 38/32 38/55 PGCHR 012330 115/16 115/23 115/25 115/32 115/50 PGIN1 002122 29/15 30/21 PGINA 002265 30/21 32/40 PID 000007 24/44 24/45 PINC 012177 110/43 110/58 110/59 111/05 111/08 111/10 113/07 113/24 113/34 114/02 114/07 114/08 114/09 PMWRD 000000 7/07 7/08 59/48 59/52 60/32 60/36 61/17 61/21 66/30 66/31 66/51 66/52 70/52 97/13 97/35 97/41 99/12 PNA 000003 24/40 24/41 26/31 PNCTR 007434 81/13 81/25 81/29 PNTMP 003244 45/17 PNUM 000330 6/28 45/48 46/32 46/41 82/47 83/28 POABB 000055 8/27 8/28 POABT 000036 8/22 8/23 158/08 158/46 POADD 000060 8/28 8/29 POCLP 000017 8/17 8/18 86/31 86/32 98/18 98/19 107/27 107/28 108/21 108/22 POCML 000030 8/20 8/21 20/50 PODFO 000000U 73/44 73/45 PODUP 000025 8/19 8/20 78/29 78/34 78/49 POLIM 002450 32/10 32/56 34/08 34/26 34/27 34/28 34/49 35/04 35/18 POLMI 002236 32/10 32/48 32/49 POLPT 000000 8/12 8/13 10/57 12/28 33/39 33/54 33/55 36/47 55/25 62/26 67/57 68/50 70/23 116/43 POMOD 000063 8/29 24/09 24/10 45/51 83/40 83/41 103/22 103/23 PONMC 000033 8/21 8/22 30/29  30/30 POOPR 000000U 98/24 98/25 POOPT 000044 8/24 8/25 35/57 POPCT 000000U 71/29 71/30 72/35 72/36 POPE2 000006 8/14 8/15 49/07 102/43 104/03 POPEP 000003 8/13 8/14 102/37 POPFC 000011 8/15 8/16 POPFS 000014 8/16 8/17 POPI1 012776 122/36 POPPP 000000U 98/30 98/31 POPSZ 000052 8/26 8/27 POPT 000371 8/10 10/56 12/27 18/10 20/49 21/42 24/08 30/28 32/40 33/38 33/53 35/55 36/42 36/54 43/52 44/19  45/50 49/06 55/24 62/25 67/56 68/49 70/22 71/20 71/28 72/34 73/43 77/54 78/28 78/33 78/48 83/39 86/30 98/17 102/36 103/21 104/02 107/26 108/20 116/42 116/56 158/07 158/45 POPT1 012710 8/10 121/23 PORBK 000041 8/23 8/24 21/43 21/44 POSAV 000022 8/18 8/19 44/22 44/23 77/55 77/56 POUTL 000047 8/25 8/26 18/11 18/12 36/43 36/44 36/55 36/56 POVUV 000000U 71/21 71/22 PPERR 011340 102/34 102/53  103/10 104/02 PPRC1 010632 45/06 93/44 93/55 93/57 94/10 94/43 95/12 95/22 PPRC2 010633 45/07 94/11 94/22 94/24 94/27 94/41 95/13 95/29 PPRCN 000150 3/24 61/53 77/11 0178 .MAIN PPRET 010626 93/20 95/05 95/07 PPRN1 007413 3/24 81/08 PPRN3 007433 81/27 PPRN4 007421 81/17 81/26 PPRNX 007440 81/08 81/27 81/33 PPRO1 010533 93/50 93/55 94/06 94/48 PPRO2 010552 94/15 94/26 PPRO4 010570 94/13 94/20 94/31 PPRO5 010612 93/59 94/40 94/51 PPROC 010474 2/43 93/20 PPTBL 003531 48/59 49/01 52/39 52/57 53/19 104/28 PPTBN 003543 47/02 49/02 49/42 PR12 002056 29/22 29/31 PR791 003041 42/06 42/30 PR92G 002371 32/50 34/03 PRBN 000000U 155/40 PRBPR 011116 96/58 98/12 99/27 PRBPX 011137 99/27 99/35 99/55 100/06 100/17 PRCDN 010636 93/41 94/29 94/38 95/16 PRCN1 000307 5/43 45/33 52/22 77/59 93/26 102/50 118/18 PRCNO 000304  5/42 39/39 39/42 45/27 81/31 PRCTR 010634 45/09 93/39 94/09 94/21 94/35 94/45 95/14 95/36 PREG 011141 97/02 98/38 100/06 PREG2 011153 100/09 100/17 PREND 010631 93/30 93/56 94/23 95/11 PRESC 006430 68/30 PRESF 000000U 72/27 PRET1 010543 93/34 94/05 PRET2 010555 93/35 94/19 PRG01 001605 2/42 25/47 30/35 102/08 PRG02 001606 25/49 37/15 PRG03 002053 26/49 28/42 29/19 29/39 PRG04 002071 26/46 29/42 PRG05 002164 31/06 31/13 PRG06 002062 26/47 29/30 PRG07 002175 30/54 31/22 PRG08 002060 29/25 29/53 30/42 PRG09 002176 31/04 31/14 31/17 31/18 31/19 31/20 31/26 PRG0A 001613 25/57 29/21 PRG10 002202 31/15 31/33 PRG11 002212 31/43 31/50 PRG12 001627 26/16 29/22 PRG13 002222 31/37 31/54 PRG14 002230 31/45 32/01 PRG15 002257 31/39 32/32 PRG16 002242 31/47 32/16 PRG17 002300 32/52 34/54 PRG18 002310 33/02 34/10 PRG19 002372 33/05 33/35 33/50 34/06 PRG1A 002204 31/35 PRG20 002616 31/16 38/10 PRG21 002337 33/16 33/22 33/31 PRG22 002463 34/55 35/20 PRG23 002630 38/17 38/23 PRG24 002614 28/35 38/07 PRG25 002617 38/08 38/11 PRG26 002641 38/28 38/35 PRG28 002626 38/12 38/14 38/20 38/29 38/30 PRG29 002104 30/03 30/25 0179 .MAIN PRG3 001660 26/23 26/49 PRG31 002124 30/12 30/24 PRG33 002454 34/21 35/13 PRG35 002136 30/39 PRG3A 002066 26/48 29/37 PRG4 001655 26/01 26/12 26/46 PRG47 002142 30/45 PRG48 002147 30/51 PRG6 001656 26/08 26/47 PRG67 003015 41/12 41/14 42/02 PRG70 002743 31/21 41/06 PRG71 002746 41/11 42/32 PRG72 003013 41/24 41/35 41/45 41/47 41/57 PRG73 003000 41/40 41/44 PRG74 003027 41/46 42/17 PRG75 003035 42/25 42/40 42/45 43/07 43/22 43/33 44/08 44/51 PRG76 003045 41/48 42/36 PRG77 003056 41/50 42/50 PRG78 003072 41/52 43/10 PRG79 003100 41/54 43/18 PRG80 003260 28/33 31/22 45/24 PRG83 003061 42/55 43/15 PRG86 003417 45/32 47/11 PRG89 002417 34/34 34/51 35/19 PRG91 002363 33/37 33/53 PRG92 002431 34/03 34/32 34/37 34/47 PRGA0 002055 29/21 29/47 PRGA3 001657 26/18 26/48 PRGI1 003154 43/46 44/11 44/28 PRGI2 003176 44/14 44/31 PRGI3 003223 43/44 44/53 PRGID 003116 41/53 43/36 PRGTB 003052 41/49 42/43 PRGTD 003105 41/51 43/25 PRINT 000151 3/25 33/46 46/03 46/25 46/49 70/35 82/22 82/35 83/14 83/36 84/24 84/54 85/41 86/10 87/11 87/43 101/11 109/51 109/54 109/57 119/37 PRN 000000 1/38 135/47 135/48 PRO1 011220 102/08 PROC 010674 94/53 95/38 95/49 PROCF 010627 45/08 93/22 93/25 93/48 94/54 95/08 95/39 PROCN 010675 94/56 95/41 95/50 PROG 000152 3/26 20/26 PROG1 001607 3/26 25/51 PROTR 010672 95/21 95/45 95/47 PROUT 010641 45/10 94/33 95/21 PRPT2 011004 97/31 98/41 PRPT3 011071 97/37 98/33 98/40 PRPT4 011024 97/51 97/54 PRPT5 011066 98/21 98/27 98/36 PRPTY 011000 97/18 97/26 PRSNX 015431 153/28 153/41 153/49 PRT01 006376 67/53 67/56 PRT15 006435 68/25 68/36 PRT20 006407 68/01 68/09 PRT40 006444 68/11 68/49 PRT41 006454 68/06 68/58 PRT55 006536 67/55 68/53 68/56 69/57 PRT87 006415 68/18 68/24 0180 .MAIN PRTAB 015633  5/44 53/32 157/04 PRTSW 000022 2/06 15/34 15/53 15/56 69/53 PRT.0 006370 3/25 67/50 PRT.1 006475 69/19 69/28 PRT.2 006507 69/26 69/29 PRT.3 006471 69/14 69/37 PRT.4 006466 69/10 69/43 69/46 PRT.5 006527 69/41 69/48 PRT.8 006412 68/07 68/14 PRWRD 010473 93/11 93/12 93/17 93/46 PR.A3 006427 67/50 68/29 70/09 PSNCT 003513 47/28 47/45 48/37 PSTBL 002332 33/18 33/24 PTBPT 003544 46/59 47/01 49/03 49/43  49/58 49/59 52/40 104/29 PTCTR 011076 97/08 97/16 97/27 98/40 98/46 PTRC 012175 110/39 110/57 113/05 113/23 114/29 PTRD1 006074 3/27 62/24 PTRD8 006106 62/29 62/34 PTRDX 006110 62/24 62/35 62/37 PTRED 000153 3/27 38/48 39/01 53/54 61/54 62/06 78/43 PTRGC 007472 81/46 81/51 82/01 82/11 PTRPC 007474 81/44 81/55 82/02 82/13 120/44 PTRPT 011077 97/29 97/31 97/34 97/40 98/11 98/37 98/47 PTRVM 012446 117/28 117/47 PTYEN 014711 146/23 PTYFL 010114 86/24 86/36 87/20 87/51 PVRLN 000367 8/05 92/02 92/05 105/57 PVRYR 000370 8/06 91/25 91/26 105/58 PWACT 000345 7/32 7/45 59/49 60/33 PWALC 000347 7/34 7/47 PWBCO 000347 7/47 PWCAN 000357 7/42 PWEND 000350 7/35 64/30 PWID2 000346 7/46 PWILL 000354 7/39 70/53 PWIMB 000352 7/37 PWLOC 000353 7/38 PWOPT 000351 7/48 29/13 32/35 33/03 34/35 35/23 PWPAS 000345 7/45 60/02 60/45 PWPTY 000360 7/43 97/42 PWRCL 000355 7/40 PWROT 000351 7/36 7/48 64/32 PWSPL 000356 7/41 PWVOT 000346 7/33 7/46 64/31 PXFRP 003410 47/03 P.76 002443 34/58 35/39 36/35 RANG1 003227 43/40 44/11 44/18 44/27 44/58 RANG2 003230 43/42 44/12 44/59 RDBT1 006145 3/28 63/31 RDBT2 006146 63/32 63/34 64/19 64/24 RDBT3 006155 63/37 63/41 RDBT4 006165 63/39 63/52 RDBT5 006151 63/36 64/09 RDBT6 006201 63/42 63/50 64/07 RDBT8 006212 64/01 64/18 RDBT9 006217 63/59 64/25 RDBTX 006221 63/31 63/56 64/12 64/25 64/26 64/28 RDBUT 000154 3/28 78/56 109/15 117/20 RDCTR 001377 21/25 21/27 21/33 21/38 0181 .MAIN RD.1 001355 21/13 125/22 RD.15 001365 21/14 21/25 RD.2 001351 21/08 21/26 21/28 21/36 22/14 125/20 RD.3 001431 22/02 22/17 RD.4 001436 22/18 22/25 RD.44 001452 22/28 22/41 RD.5 001401 21/18 21/42 RD.50 001461 22/07 22/52 RD.51 001473 22/57 23/04 RD.52 001465 22/56 RD.53 001472 22/55 23/02 RD.6 001411 21/46 21/54 RD.7 001413 21/51 21/57 RD.8 001415 22/01 22/53 22/59 RD.A0 001514 21/06 22/46 23/13 23/24 23/31 RD.A3 001515 21/05 22/47 23/14 23/25 23/32 RD.EN 000024 2/08 10/09 19/52 20/12 24/16 READ 000155 3/29 20/19 25/49 101/34 145/29 158/06 159/12 REDSW 000023 2/07 15/30 15/36 62/33 REGFL 011075 96/57 97/06 97/22 98/45 100/07 REPET 015132 142/46 147/59 148/43 148/53 REPTR 012454 117/34 118/15 119/06 REVN1 012203 3/30 113/21 REVN2 012214 113/31 114/03 REVN3 012217 113/32 113/34 REVN4 012231 113/39 114/05 REVN5 012234 114/08 114/13 REVN6 012242 114/15 REVN7 012252 114/23 REVNM 000156 3/30 109/50 120/07 REVRT 012313 113/21 114/58 115/01 RINC 012200 106/44 110/42 110/56 111/14 111/16 113/08 113/22 114/16 114/40 114/48 RINC1 011515 105/33 106/44 RLMS1 007323 78/24 79/01 79/07 RLMS2 007324 78/25 79/02 79/08 RLMS3 007325 78/26 79/03 79/09 RLMS4 007326 78/27 79/04 79/10 RLMSG 007257 78/17 78/24 RLPR2 007242 78/09 78/11 RLPR4 007253 78/18 79/05 RLPRC 007224 77/13 77/53 RLPRT 007256 77/58 78/21 RL.91 007111 76/11 76/17 RL.92 007131 76/26 76/33 RL.EN 000025 2/09 10/10 19/53 RL.SV 007155 76/55 ROLL 000157 3/31 101/22 ROLL1 007076 3/31 76/06 ROLLP 000160 3/32 101/21 ROLLX 007154 76/06 76/52 76/54 ROLP1 007165 3/32 77/10 ROLP2 007203 77/27 ROLP6 007167 77/12 ROW12 004000 122/45 122/54 123/05 123/13 RPRET 007333 77/53 78/21 79/15 SAVA3 007334 79/16 SEC 000002 6/41 6/42 13/26 16/32 16/44 16/50 16/54 43/31 SECND 014260 141/17 141/26 0182 .MAIN SET10 013206 126/57 127/01 SETP1 013133 70/29 126/09 SETP2 013136 126/13 126/18 SETP3 013144 126/15 126/20 SETP4 013152 126/21 126/26 SETP5 013154 126/24 126/28 126/31 126/52 SETP6 013163 126/40 126/45 SETP7 013171 126/42 126/47 SETP8 013205 126/48 126/59 SETP9 013207 126/51 127/02 SETPA 006561 3/34 70/21 SETPB 006567 70/27 127/06 SETPR 000161 3/33 13/08 33/42 35/41 35/52 36/22 36/37 44/03 55/35 62/34 76/37 76/51 77/12 77/27 77/46 78/44 93/24 94/59 95/44 SETPX 006571 70/21 70/27 70/30 SETRT 013211 127/04 127/06 SETUP 000162 3/34 70/34 99/46 SGNM1 013647 35/09 134/03 SGNOM 002453 33/40 35/09 SHFCT 014440 143/11 143/15 144/07 SKPR1 010444 3/35 91/18 SKPR5 010457 91/24 92/01 92/04 SKPRA 010463 91/19 92/06 92/09 SKPRI 000163 3/35 84/39 85/12 85/53 106/06 SKPRX 010464 91/18 92/04 92/07 92/10 SLPR1 011563 107/30 107/36 SLPR4 011626 108/12 108/20 SLPR5 011570 107/39 107/41 SLPR6 011637 108/24 108/30 SLPR7 011573 107/38 107/46 SLPR8 011604 107/53 107/55 SLPRT 011525 103/46 106/58 SLPTR 012317 114/05 114/18 115/05 SLSER 011774 110/18 110/36 SLSHR 011773 110/26 110/33 SLSHS 011760 110/22 110/31 SMBIT 174000 7/52 104/26 SPAC1 005466 3/36 55/14 SPAC3 005474 55/24 55/47 SPACE 000164 3/36 20/42 44/07 64/18 87/44 100/15 108/33 SPCFG 000332 6/30 82/29 108/01 108/31 SPCNT 013734 135/18 135/20 135/25 135/28 135/36 SPESW 000344 7/04 67/28 SPLPA 000000U 98/44 SPNUM 011362 104/25 SPOS 003024 41/25 42/12 42/17 42/50 43/10 43/18 43/26 43/39 44/36 SPRC2 007365 79/56 79/58 SPRC3 007403 80/06 80/12 SPRC4 007405 80/10 80/15 SPRCX 007411 79/48 80/18 80/20 SPREC 007356 45/11 79/48 SPTBL 003614 47/04 50/06 104/30 SPTPT 003626 47/05 50/07 104/31 SP.10 005511 55/31 55/34 55/39 SP.50 005517 55/36 55/46 SP.A3 005465 55/22 55/48 55/52 SP.CN 005523 55/16 55/46 55/51 0183 .MAIN  SRCRT 014426 143/35 143/50 143/56 SRCT2 014411 143/39 143/48 SRCT3 014423 143/43 143/45 143/50 SRCTB 014406 143/35 148/52 SREAD 000165 3/37 25/47 102/01 103/17 104/16 145/13 158/05 159/11 SREG1 010765 97/11 97/17 SREG2 010775 97/15 97/20 SREGF 010760 97/05 SRPTR 014435 143/39 143/47 144/04 149/53 SRTT1 010032 86/34 86/42 SRTT2 010057 87/03 87/11 SRTT3 010072 87/21 87/27 SRTT4 010106 87/36 87/43 SRTT5 010043 86/44 86/53 SRTT6 010100 87/28 87/35 SRTTL 010007 84/04 86/21 SR.1 001511 23/19 23/27 SR.2 001507 23/24 23/29 ST09A 000463 9/56 10/04 ST11B 000623 12/02 12/08 ST11C 000635 12/16 12/22 ST11D 000644 12/32 12/40 ST11E 000640 11/52 12/19 12/27 START 000446 8/35 9/36 STCNT 000003 2/15 2/16 61/37 102/24 STCOL 011746 109/49 109/52 109/55 110/03 STCON 001705 26/59 27/09 27/18 STERR 000004 2/16 20/04 61/38 STFRE 015456 153/38 154/35 STGRP 003573 47/08 49/31 49/41 STGRX 003613 49/41 50/01 50/03 STP1X 006576 70/33 70/36 70/38 STPB1 003424 47/20 47/47 STPBC 003421 47/17 47/43 STPBX 003514 47/17 47/22 48/38 STPR1 003434 47/32 47/46 STPR2 003444 47/37 47/41 STPR3 003445 47/39 47/43 STPRC 000002 2/14 2/15 24/25 102/18 STPRI 006572 3/33 70/33 STPRM 000001 2/13 2/14 19/56 20/23 52/23 STPRN 003427 47/26 STPRX 003515 47/26 47/48 48/39 STRCT 013212 126/10 126/16 126/22 126/37 126/43 126/49 127/07 STRNG 000312 6/08 13/06 35/40 35/51 36/21 36/36 38/47 38/59 43/56 44/02 44/35 53/51 61/56 61/58 62/01 62/02 62/03 70/03 70/12 72/17 72/20 72/22 72/55 72/57 73/01 73/11 73/15 73/36 73/40 73/48 73/49 73/50 73/51 73/52 73/53 73/54 73/55 74/36 74/54 76/23 76/32 76/34 76/36 76/50 77/23 77/44 78/39 78/40 78/41 78/42 81/30 94/58 95/28 95/35 95/43 96/20 96/35 96/37 96/39 96/42 97/57 97/59 98/01 127/36 STTB0 001736 27/46 27/51 STTB1 001722 27/25 27/33 STTB2 001744 27/48 27/53 STTB3 001747 27/56 27/59 STTBL 001663 26/40 26/57 STTBX 001732 27/30 27/42 STUFF 000166 3/38 71/03 76/21 76/48 0184 .MAIN STVAR 000027 2/12 19/57 20/03 20/22 24/26 52/24 61/36 61/40 102/17 102/25 STYPE 003023 41/15 41/39 42/11 ST.05 000543  11/06 11/15 ST.06 000573 11/36 ST.07 000603 11/33 11/47 ST.08 000613 11/43 11/57 ST.09 000462 9/49 9/55 ST.1 000453 9/46 9/51 ST.2 000507 10/25 10/35 ST.20 007062 74/43 74/47 ST.30 007066 74/45 74/52 ST.4 000655 10/59 12/35 12/43 ST.5 000535 10/30 10/52 ST.6 000701 13/03 13/11 ST.A0 007074 74/18 74/23 74/40 74/41 74/52 75/01 ST.A2 007075 74/15 74/33 75/02 ST.A3 007072 74/14 74/56 74/58 ST.PL 007073  74/32 74/59 SVCHR 015133 142/48 147/55 148/01 148/54 SVMSK 011363 104/26 SVOTS 003025 41/36 42/13 42/22 42/37 42/43 43/06 43/21 43/28 43/41 44/38 SWCLR 000430 9/08 SWCUM 000442 9/28 SWPAS 000032 2/24 59/55 60/39 SWPDO 002553 36/01 36/08 36/32 SWPRC 000434 9/16 SWRED 000432 9/12 SWROL 000436 9/20 SWSPC 000440 9/24 SWTXT 002605 32/05 37/07 38/44 152/33 SWUTS 002604 36/51 37/05 152/34 SW.OV 000000U 72/26 TABL1 015136 147/48 148/57 TABL2 015216 148/24 150/02 TABLA 014561 140/53 144/10 148/57 TABLB 014602 140/54 144/28 150/02 TACN2 014161 139/40 139/53 TACN3 014157 139/42 139/47 139/50 TACN4 014201 139/57 140/12 TACN5 014174 140/06 140/10 TACNV 014142 138/31 139/36 TBCFL 007164 76/18 76/33 77/03 TBCOL 007162 76/16 77/01 TBDIF 007163 76/17 76/27 77/02 TBL11 014235 139/38 140/53 TBL22 014236 139/51 140/54 TBLAD 001773 26/39 27/14 27/16 27/54 28/18 TBLCD 001651 26/36 26/41 TBLPT 001760 28/01 28/02 28/06 TBMIN 007161 76/14 76/59 TBPLS 007160 76/12 76/22 76/49 76/58 TBPTR 011511 105/52 106/12 106/33 106/36 106/39 TBPTY 014716 54/31 146/22 146/26 TBSUM 003055 42/44 42/47 76/57 TCELL 007470 82/09 82/54 83/01 83/10 83/15 83/16 TCNRT 014233 139/36 140/15 140/51 TCTR 014427 141/13 141/38 142/01 142/15 142/19 143/04 143/21 143/57 0185 .MAIN 149/58 TCTR2 014231 138/28 138/32 138/35 139/41 139/44 140/01 140/26 140/49 TENS 000036 2/32 62/52 62/59 TEXT2 021104 7/59 10/49 32/12 35/30 53/05 54/50 157/29 TG94. 007701 84/30 84/57 85/05 85/47 THIRD 014351 141/15 142/52 TICK 000003 6/42 6/44 13/27 16/26 16/27 16/31 43/32 TIME 000167 3/39 81/09 93/23 TIME1 010676 3/39 95/56 TIME2 010726 96/29 96/32 TIME4 010712 96/07 96/12 TIMEX 010743 95/56 96/01 96/43 96/45 TITLE 000170 3/40 46/52 82/38 TLE1 007517 3/40 82/43 TLE2 007523 82/45 82/47 TLE3 007600 82/46 83/39 TLEX 007742 84/16 85/34 86/12 87/45 TLP 000027 1/39 10/46 12/12 12/13 14/02 14/33 TLPSW 002370 13/42 33/36 34/02 TLVOT 000303 5/41 53/23 76/39 TLVT1 015733 5/41 157/09 TMAP 000260 5/16 31/40 TMAP1 012777 5/16 122/49 122/57 TMAP9 013015 12/44 32/13 123/08 TMBU1 001770 27/35 27/38 28/17 TMBUF 002000 27/28 27/39 28/23 TMPCH 012450 117/30 117/54 118/59 119/38 TMS3G 010111 87/48 TMS4G 010112 87/49 TMS5G 010113 87/50 TMSG1 010121 86/26 87/58 TMSG2 010215 87/16 89/01 TMSG3 010312 85/37 87/48 90/01 TMSG4 010337 86/07 87/49 90/04 TMSG5 010407 84/21 84/59 87/50 91/02 TMSG6 010426 86/38 91/05 TMSG7 010432 86/48 87/07 91/07 TMSG8 010435 87/23 91/09 TMSG9 010441 85/56 87/30 87/38 91/11 TOP 000366 8/03 10/52 54/19 TOTAL 010745 96/51 TPCTR 010635 93/40 94/34 94/37 94/51 95/15 TPDUP 003232 13/41 43/57 44/06 44/48 44/50 45/02 52/38 TPENT 003231 13/40 43/49 44/05 44/44 44/46 45/01 52/37 TPRC1 015732 5/39 157/08 TPREC 000301 5/39 53/13 77/31 77/33 TP.SW 000026 2/10 99/02 TR2PT 014113 138/26 138/41 138/49 138/52 138/57 140/06 140/08 140/12 140/14 TR80C 014141 138/50 139/04 139/27 TRCOD 014436 141/46 142/10 143/03 143/37 143/46  144/05 149/59 TRPBF 014441 139/27 140/48 144/09 145/46 146/18 149/56 150/21 TRPRT 014425 141/12 143/27 143/55 TRPS2 014372 143/14 143/16 TRPS3 014375 143/07 143/19 TRPS4 014361 141/23 141/39 141/45 141/48 141/51 143/03 TRPS5 014266 141/34 142/57 TRPS6 014274 141/31 141/43 TRPS7 014405 142/24 142/44 143/27 0186 .MAIN TRPSB 014311 142/01 TRPSC 014205 139/37 139/50 140/02 140/23 TRPST 014246 141/12 150/01 TRPT2 015210 147/45 147/50 149/08 149/54 150/12 TRPTR 014434 141/36 142/37 142/43 143/19 143/26 144/03 149/55 TRSC2 014223 140/40 140/42 TRSC3 014226 140/34 140/44 TRSRT 014234 140/23 140/44 140/52 TRTBA 013400 130/03 130/07 130/25 TRTBB 013401 130/05 130/26 TRTBL 013423 130/25 130/50 TRTBN 013547 130/26 132/17 TSG94 011512 105/53 106/40 TSPC 015217 149/11 150/03 TSREP 014305 141/28 141/54 142/54 TSRPC 014313 141/57 142/05 TSRPE 014323 142/07 142/12 142/19 TSRPF 014324 142/02  142/22 TSRPH 014327 142/16 142/29 TSTCT 006426 68/16 68/23 68/28 TSTN2 007475 81/56 82/14 TSTRG 016771 6/17 46/15 46/19 46/35 46/39 46/47 70/07 82/14 83/04 83/08 83/22 83/26 83/34 84/22 84/57 85/38 86/08 86/27 86/39 86/49 87/08 87/17 87/24 87/31 87/39 98/48 98/49 99/49 105/12 105/22 106/40 106/46 106/48 107/05 107/23 107/33 107/42 107/56 108/08 108/15 108/27 110/03 113/06 113/10 126/27 127/25 128/17 157/19 TSTRN 013274 128/01 128/17 TSTRP 013273 127/51 127/59 128/05 128/16 TTL 000000 24/37 24/38 146/04 TXCPT 014227 138/20 138/36 139/45 139/55 140/24 140/47 TXCRD 001641 26/31 TXSR1 015435 154/04 154/16 TXSR2 015451 154/08 154/19 TXSR3 015453 154/17 154/24 TXSRC 015434 153/36 154/02 TXSRX 015454 154/02 154/22 154/24 154/26 154/35 154/50 TXTCH 000362 7/57 13/15 38/42 46/07 82/55 84/28 85/03 85/45 102/58 111/45 117/48 118/26 150/06 151/16 151/45 153/31 153/50 155/43 TXTPT 000323 6/19 12/50 33/41 62/05 69/58 69/59 126/11 126/20 126/38 126/47 TYPE9 002065 29/34 UCMK 006200 63/52 64/05 UCMSK 001247 18/38 19/20 UPCT2 021205 159/19 UPCTR 021204 158/15 158/41 159/18 VMAP1 000262 5/18 32/19 66/11 VMAP2 000263 5/19 32/20 66/12 VMAP3 000264 5/20 32/22 67/05 VMAP4 000261 5/17 12/45 12/46 32/16 35/44 VMAP5 000265 5/21 32/24 67/13 VMAP6 000266 5/22 12/46 32/26 66/17 VMNUM 014715 146/24 VMPTR 012701 117/28 118/51 119/41 120/38 VNUM 000331 6/29 45/47 76/07 76/40 104/11 104/15 105/06 105/07 106/58 106/59 108/45 109/02 109/08 109/23 109/44 117/13 117/39 WAIT 000171 1/30 3/41 20/01 20/13 20/33 20/37 20/43 20/46 0187 .MAIN 20/54 21/22 22/21 61/45 104/36 WHAT 000000U 51/03 WHAT1 000000U 54/48 WHAT2 000000U 156/53 WHAT3 000000U 157/21 WHAT4 000000U 157/34 WTBL 001227 18/48 19/02 WT.1 001304 19/48 20/03 WT.11 001250 18/26 18/34 18/51 19/24 WT.12 001313 19/06 20/12 WT.13 001253 19/28 23/02 WT.14 001262 19/37 WT.16 001260 19/34 19/43 WT.2 001271 9/31 19/46 WT.3 001325 20/09 20/28 WT.31 001327 19/12 20/33 WT.4 001330 20/29 20/34 WT.42 001332 19/10 20/37 WT.5 001333 20/35 20/38 WT.55 001335 19/08 19/30 20/42 WT.6 001337 20/39 20/45 WT.62 001341 19/14 20/49 WT.9 001165 18/10 19/25 19/32 WT.9A 001172 18/17 19/35 WT.9B 001204 18/18 18/33 WT.9C 001207 18/27 18/38 WT.9L 001216 18/49 18/56 WT.9M 001226 18/53 18/58 XSAV2 007223 77/10 77/47 77/49 YESMS 001765 27/27 28/15 ZDPTR 012061 111/32 111/52 ZIP 000001 24/38 24/39 ZIPRT 012064 111/31 111/48 111/54 111/56 ZPTR1 011524 105/37 105/38 105/43 105/46 106/51 ZROS0 000175 53/37 54/04 ZROS1 000174 53/50 54/05 ZROS2 000243  53/44 54/06 ZROS3 000246 53/41 54/07 ZROS4 000176 53/47 54/08 ZSPTR 012060 111/49 111/51 ZZ 000000U 54/48 .ATFL 000524 10/17 10/41 .CNTF 005522 55/19 55/50 .DVCT 000525 9/45 9/55 10/42 12/30 .NAM2 011646 108/03 108/37 .NAM3 011522 105/30 106/49 .NAMS 011647 107/19 108/38 .NXVN 011523 106/03 106/50 .PINC 012002 110/21 110/22 110/29 110/43 .PRG1 002135 30/32 30/35 .PTRC 011776 110/20 110/39 .RINC 012001 110/19 110/27 110/30 110/32 110/42 111/19 .TLEX 007642 82/43 84/16 .TMP9 002241 32/13 .TMS5 007703 84/59 .Z 000176 3/51 4/21 4/35 4/36 4/37 5/02 5/03 6/19 6/20 6/21 10/16 10/45 11/07 11/10 11/13 11/18 11/22 11/26 11/36 11/48 11/50 11/51 11/58 12/05 12/24 12/56 13/11 13/36 18/23 19/56 19/58 20/04 0188 .MAIN 20/23 21/16 21/32 22/10 23/22 24/25 26/26 26/31 26/57 27/02 27/03 27/04 27/07 27/10 27/18 27/19 27/20 27/23 27/55 28/38 28/39 28/40 28/48 28/49 28/50 28/54 28/55 28/56 29/04 29/07 29/43 30/52 31/02 31/33 31/34 31/35 31/48 32/06 32/42 33/31 33/32 34/14 35/13 35/45 36/25 36/38 36/48 37/01 38/07 38/10 38/15 38/50 39/12 39/13 39/17 39/46 39/47 39/54 39/55 41/21 41/22 41/29 41/32 41/33 42/18 42/26 42/51 43/11 43/13 45/24 45/28 45/29 45/30 45/45 46/04 46/05 46/22 46/28 46/45 46/50 47/27 47/29 49/22 49/23 52/12 52/23 52/28 52/47 53/10 53/39 53/42 53/45 53/48 53/55 54/04 54/08 54/21 55/14 55/27 55/32 59/42 60/26 61/13 61/37 61/38 62/07 62/09 62/27 63/47 66/56 67/58 68/09 68/51 68/54 70/24 72/03 72/06 72/18 72/41 76/08 77/21 77/42 78/45 81/12 82/36 82/52 82/53 83/11 83/17 83/32 84/31 84/43 84/48 85/14 85/29 86/02 86/21 86/35 86/45 87/04 91/22 95/03 97/05 97/07 97/11 97/26 97/32 99/32 101/15 101/19 101/24 101/50 101/51 101/52 102/18 102/24 102/30 102/31 102/32 103/08 104/09 104/10 105/10 105/32 105/45 106/08 106/34 107/03 107/59 108/30 109/32 109/58 111/34 111/35 111/44 113/25 116/17 116/20 116/24 116/44 117/04 117/46 118/39 118/52 119/25 119/40 126/09 126/36 127/15 127/22 127/28 127/53 138/09 138/22 138/27 138/34 139/43 139/59 141/20 141/34 141/37 141/49 141/55 142/34 142/58 143/36 145/53 145/54 146/04 146/42 146/43 146/49 147/05 147/40 147/56 147/58 148/09 148/19 148/35 148/38 148/42 149/04 149/23 149/31 150/34 150/57 153/18 158/11 159/04