Digital PDFs
Documents
Guest
Register
Log In
XX-6BBB0-EA
May 2010
20 pages
Original
1.0MB
view
download
Document:
34 DTCOPY
Order Number:
XX-6BBB0-EA
Revision:
Pages:
20
Original Filename:
http://bitsavers.org/pdf/dec/pdp15/diag/MAINDEC-15-DAQAA-A-LA_System_Exerciser/34_DTCOPY.pdf
OCR Text
I .,", \ ......../ " () PAGE 1 o Dl'COPY SRC 1 o o o () o o o o o o DECTAPE COpy PRUGRAM T~ FLEISCHMANN 9/70 1 DIGITAL EQUIPMENT CORP. MAYNARD, MA IMODIFIEO BY R. SCHOONOVER 12/71 IMODIFIED UY ED HILTON 5/5/72 I IPROGRAM COPIES AN ENTIRE DECTAPE FROM SPECIFIED INPUT UNIT ITO OUTPUT UNIT. FIRST PASS DOES A READ-WRITE SEQUENCE o o IUOWN ENTIRE TAPE. SECOND PASS DOES A READ-READ SEQUENCE lIN REV~RSE 8ACK TO BOT. o I o IDECTAPES MUST BE STANDARD FORMATC578 OR 576 BLOCKS 1256WOROS/BLOCK). I IIF THE INPUT TAPE HAS 1102 BLOCKS ANO THE OUTPUT TAPE IHAS 11~0, A WARNING WILL BE ISSUED. THIS WARNING MAY IBE IGNORED IF INPUT TAPE FILES WERE WRITTEN VIA ADVANCED ISOfTWARE, SINCE BLOCKS 11~~ AND 1101 ARE NOT WRITTEN UNDER ITriAT SYSTEM. I IIF DURING PASS2 A DATA COMPARE ERROR IS ENCOUNTEREO,AN IERROR MESSAGE WILL BY TYPED. IPROGRAM USES A DATA BUFFER WHOSE SIZE IS A FUNCTION A AVAILABLE CORE 16K FOR AN 8K SYSTEM, 12K FOR AN 16K SYSTEM, 18K FOR AN 24K SYSTEM, lAND 24K FOR AN 32K SYSTEM. EXTRA 4K PAGES DO NOT AFFECT IDATA BUFfER SIZE. I IPROGRAM EXECUTION REQUIRES APPROX. 2 1/2 MINUTES. l!II::BREL. 0 o o o o o o c o o o o o o o o o o o o o o 1 () o o o o o o o o o o o o PAGE .TITLE A UOQ5W o 4V1 ~H100 vi I:' r1~} 1 R :~ if) ~~ V) ki ll} l'~ vHH1!12 R r., ~1 r/~ (/) ~j 0 A i'H1~Hj3 R ,:1 ~) v.l ,~ ~, (i,! A (lH~~vh14 R I,;H1(.1622 R (~ l1 ~;) II) 5 R !~ f/j (il ~) 3 3 R l!I0~~l16 R ~t1241(l3 A vH3 vH17 R 172~'31 A Q) lNIT ",SIXBT "DTCOPY" o khJ Ii) 11/1 R r" 0 ~l v) I'd (1 A '1 ,,[H.,aCK o fhH) 11 VJ ;:, (12~) (iH' vJ 21 (~0vj22 '1 A R fi10 !tJv.J 00 A R f.~ lt~ v.l1iH1 ~J A R (H~00~1l,1) A .. OSA ~hH141 ~JPH~ 42 0Vj~J43 A A. SERV "USA SYSERR ~, ERCODE t1 7 o \1 ttl (ihJv.123 R r,~QH~H1kH1 A ~H1024 R flHI.~ I';;' Ii} ~H:1 A ~'hjCiJ 2 5 R f30(~0v.10 A Ql0~' 2 6 R (HH1000 A !iH1~J2 7 R '::1t!HdQlkH'i A 00CiJ3~J R o~H10 vJftJ A ViM031 R (~ ~~ £;1(1 ftl 0 A (1,1 ~1 (13 2 R !~ 0vH1 ~i ItJ A 0t:Hi133 R ii1 td (~H1 Q) 0 ~l\!HI} 3 4 R 703a~12 ~HH1J5 R ~c:H~720 0(>1036 R 7 4rjvH" 1 (iH1~137 R f141c166 (1 ~?H14 0 R 201,071 o ~i R (I) o 1.1 0 0 V, o ~j (,1 INIT o I I f1 ISHUT OFF MONITOR IGET we OF MESSl i~ CAF LAC MESSl A R Cf1A OAC s~wc# R LAC (NESS1+1 R 1 VH1624 R R 1 ~')L.17 ~12 R Jt'iS SBSTRP ,J~lS CRL.F L!\ C CMA OAC MESS2 IGET SBWC ISHIP TO SIXBT UNPACK ROUTINE IGET ADDR OF MESS2 ISTRIP ANO PRINT IGET ANS.tIER TO MESS2 IRETURN WITH RESPONSE lIN (ANSW+2) R ~vJ(I)733 R ASKIN 0(!H147 R 1(~~1624 R LAC JNS 0t1~5(~ Jf1S r?H1046 R 2~1l072 R o o OTCOP~ I vH1riHH1 R .-1~H~t'00 eHHlj44 R 74 (10 ~ 1 A 0~1k145 R r~ 41 ~16 6 R o OTCOPY Sf~C l)TCOPY 2 R 10 (~710 R .E::JECT I (tr1ESS2+1 fit3STRP Kt3RD ISHIP TO SIXBT UNPACK ROUTINE IGET ADOR OF MESSl ISTRIP ANI) PRINT \~C OF MESS2 o o o o o o o () o o o o o o o o () () 0 PAGE 0 C} () 0 0 0 0 ~H1051 R t-HH~52 ~l t~ ~15:3 R 1(1061!d R C) 0 () ~-.,\ \....) 0 0 0 0 I:) 2(')1~j42 R 74Qj20~) ~HH.154 R 6VJvl til43 ~HH155 R ? 111,,142 vHHH56 f~ 5v)1073 frHH157 R 744k'2QJ ~J VHd 6 !i) R 742'~2k' ~)0(161 Q) \1 k.17'~ DTCOPY LAC R R R R Jr'1P ASKIN t. AC ANSW+2 AND (7 A RCR; R'l'R; RAR [lAC ASKOUT t.,AC LAC SBWC ISHIP TO SIXBr STRIP i~C # Of" MESS3 IGET ANSWER TO HESS3 IRETURN WITH ANSWER lIN ANSW+2 L ~C ANS~~t2 ,11'15 NUMBER SZA JMP ASKlJUT l.. AC ANSW+2 AND (1 RCI~; /VALID UNIT # ? JMP UNITE(~ L.AC DAC (-140~v) we LAC (30 UNITEQ A Ct1A R OAe LAC R ISTORE OUTPUT UNIT# RESTRT DTl.,A LAC UNTOUT OTI.A Jf1P INIT "EJECT o o o we Of MESS9 SBWC ISHIP TO SIXBT STRIP ROUTINE (MESS9+1 IGET AOOR OF MESS9 JNP A~KIN LAC UNTIN o IFIND OUT HOW MUCH CORE? IGET ..H I S S 55 T RPIS T RIP AND PR I NT .J 1'1 S CRL. F LfJkl116 o o OAC UNTOUT [JAC SKPBLK JMS CORCHK LAC MESS9 o o RTR; RAR SAO UNTIN R 0v'122 R 7~t7545 A R 2(110bfJ R R 7({l7ti45 A t1 i'.) 125 R 60003J R IGET (NESS3+1 JMS R R to(~1624 ~ t1 f-j t 1 7 R t(Jn~7~12 R ~H1120 R 6(~QI\tj43 R !1(!J121 R 201057 R /5TORE INPUT UNIT ~1ESS3 SBSTRP KSRO "H1S R 7 4r12~10 A 0i!H174 R. 60~Hf)63 R ~H:lv175 R 201042 R C1 ~1V) 7 6 R 5\l)lkJ73 R VH1{t177 R 7 4 4V-12~1 A 001 k1k' R 7 4~~j2~ A v101~11 R 741)HJ2(1) A tr.H11 ~)2 R 5 /;1 1 1('57 R ~1 vJ ttl, 3 R (j tiJ 0 1 12 R vH11 j14 R '~41(Jl60. R 0(1 1 ~l5 R 201075 R l.iH'106 R Vl41045 R R R R UNTIN DAC 0¥H~73 ~1t1123 ~H112 4 o CI1A vHJ071 R 201v)42 R kHl1k17 R 2~Jl~J7b (1j~)11lt1 R 041~J53 ~H) 111 R 1~HJ5til (10112 R 2t!Jl llJl 4 l1U 113 R 7 4(~001 ~Hj 114 R '1141(/j 66 (1 t1115 R 2 ~j 1 ,£177 o A R R A R R R R 10v'710 R l~H161~j IVALID UNITti "/ Jf1S NUMBER SZA R 74QH120 A R o ANS~~+2 A. R ;~41v)57 R 2 Yll17 4 vJ 0~H164 R 7 40tiH~ 1 v.:I!1 r~ ti 5 R ~"41~; 6 6 VI It} v.lI.5 6 R ?~11~Ji4 (in~~67 R tftH1624 0~H162 0006~~ ~HH172 0 OTCOPY SRC 3 o o o o 0 o 0 o 0 () () C) o PAGE 4 DTCOPV SRC () o o o o o o o o o o o ~H' 126 R l41~i52 R Piv)127 R 2~11044 R vJ n 1 JC·j R t710 t 1 (iJ 1(1 R vHJ1Jl R ~v'1~157 R eH1132 R 1. ~1ti1352 R (1itj 1. 33 R 2(1.11'154 R ~)v)134 R 71117544 A 0\1135 R 2f~ln4t) R 0(1136 R f161 V.) 7 0 R o yj 137 R 1. kH~454 R (;'!~ 14~) R 7 4(~2\··) (lJ A, fHj141 R 60g463 R k!0142 R 2111 ~j50 H 0~'.1143 R 707544 A 0(1144 R ~H1U)44 R ~1~'t45 R i,'J611v..H1 R R 2 j;j 1 ~16 k! R liH1147 R 1(1~1352 R (tH11 :> 0 R 2~11 ~ij55 R 0~] 151 R 7 It} 7 5 44 A ~jEl1!j2 R ~(ill Ql45 R {iH1153 R (,1ellk170 R vHd 1 ti 4 R 10('.1454 R ~c'155 F< 7 4(i'2~iHj A \/j!~ 156 R A0{11463 R vj(;) 167 R '-(i11k15~1 R kh116vj R 7i17544 A, (1~161 R 2Crjllti52 R ~H11 ti 2 R 3 4 1\1J53 R 0\1103 R (14 Uij52 R li:lv) 164 R 541101 R 01.1165 R 6 1;:)0167 R ~}0166 R 60VJt27 R ~j0146 DTCOPV IPASSl READS FROM INPUT UNIT AND WRITES ONTO OLJ'TPUT UNIT. /DATA BUFFEH SIZE IS A FUNCTION Of' ,AVAILABLE CORE. Oi.:M OURBLK PASS! t.. ,AC BUFFER OAC* (31 LAC UNTIN J ,yiS SEARCH LAC READ /READ DATA FROM INPUT UNIT DTXA lAC we OAC* (~HO o o o o FLGCHK o ERROR LAC STOP o ,]f1S SZA Jr'l? DTXA lAC BUr-FER DAC* (31 LAC UN'TOUT o JI1S SEARCti LAC i)T XA ~AC DAC* Jt·1S ~~RITE /WRITE DATA ONTO OUTPUT UNIT. we o C3k) F~GCHK SZA .J!1P EI~ROR l..AC STOP DTXA LAC OURB~K TAU S!< PBLI< DAC OURBLK SAD C11 (~0 ~IMP C~1K 11 JMP PASS1+1 .EJECT o o o /UPOATE BLOCK POIN'TER o o o C) o o o o o o o o o o o I ----~ ..... .. " ~,,"A., PAGE OTCOPY 5 SRC 0 (!H~ 167 0 0)(1172 (;H117 ~; fI10t74 1i.10115 liHJ176 0 (-"'1 '-' 0 0 C) 0 0 () 0 (' v 0 (J R 2l~) t ~14 4 R o'117 ~J R IJl611 t!1iIJ R ~HJt71 0 OTCOPY ROUTINE CHECKS TAPE SIZES, TAPE CAN HAVE I I 1.100 OH 1102 (OCT) BLOCKS. L,l\C BlJFF'ER CHK11 DAC* (31 C) FOLL.O¥~INr; 0 0 . (/ "-" ' 10 0 ---.-- ~_ A C UNT I I\~ .JIYl5 SEARCri R ?01tl o7 R R t0v,:;52 R R 2V,l1~J54 R R 7v)7544 A R ~~~'11itJ2 R R ,.~ 61(':17 6 R CHKIN LAC REAP DrXA LAC 1000 FLGCHK SZA ERROR LAC STOP J~lP () 'r XA vH12\j4 R 201'~44 R 0\~)205 R 061100 R l.. AC BtJFfER 0('J20G R 2 ~110 60 R fih12vJ 7 R ttlJ~J352 R ~jld 21 V, R 2Vl1005 R 00211 R 7 (17 b 4 4 A ~H1212 R 2t'~11~j2 R li.H;1213 R [16 U170 R ~J!1214 H \ (lj l!l454 R I...AC UNTOlJT R 7 4~) 2v)f1 A ",0216 R 600463 R 0~1217 R :?k11050 R ~l t12 28 R 7~j7544 A 0v)221 R 2~jllt!13 R 0\1222 R :~41052 R 01/J223 R 2t1l1Vl44 R ~i1l224 R 'M5llit.l0 R ~(1225 R 2g)1057 R (/H,226 R 1((1~li413 R 00)227 R :'. i711 ~Hj 4 R (!.H!) 2.3VJ R 7idi'544 A CtH12;31 R 2~)llW2 R 0D2J2 R f.101076 R ~H1233 R tr~JtI)454 R ~H1234 R 7 4~)2vJ0 A ~H12J5 R 6f1Ctl463 R k!vJ236 H 2(t11~)5~1 R 0~'237 R 7V!7544 A It) II) 2 4 (~l R 2011~4 R eh1241 R ~ 611 vl0 0(~)242 R 2ftJ 1 v.144 eh1243 R '';161100 (ill:) 2 4 4 R ? i' 1 vH,)L1 R R R R t!Jit)245 R 1 (1 ~1413 R iiH1246 R 2011154 R 0(1247 R 707044 A VJ")2b~j ~Hj251 R ~011l!12 R R ~61(~76 R r'. DAC* ( 3v) J~IS ITAPE HAS 1100 B~OCKS ITAPE HAS 1102 B~OCKS. DAC* (31 JMS SEARCH CtiKOUT LAC WRITE DTXA LAC (-1 C!l(~HIJ DAC* (30 ,J i'l P ERROR I...AC STOP DTXA LAC (11~jl DAC QUR8LK I_AC BUFfER DAC* (31 L.AC UNTIN .Ji15 SEAReR l.. AC READ OTXA L" A r; ( .. 10t10 DAC* (3~ 0 0 0 ICHECK OUTPUT TAPE 0 0 JI1S Fl~GCHK SlA 0 v' ( l1li fiH1177 R 1 ~lv'454 R lI1VJ 2 LJ) ", R 7402 VHf} A !!)fJ201 R 6"~' 4 6.3 R Ii.H12Vl 2 R ? t;, 11.15 t1 R 0L1203 R 707544 A 0~1215 ICHECK INPUT TAPE 0 IOUTPUT TAPE HAS 1100 BLOCKS IOUTPUT TAPE HAS 1102 B~UCKS 0 0 0 0 Jf lS FL.GCHK SZA Jr1P E~ROR 0 LAC STOP 0 t L)'T XA LAC (COt-lP DAC* (31 t...AC BUFFER DAC,., ( 10 I~AC UNTOLJT JMS SEARCR lAC READ OTXA LAC (-10(10 UAC* (3!O 0 0 0 0 0 0 0 C) (:) 0' o o PAGE 6 DrcOpy SRC R 10M320 R DTCDPV 002~2 0~253 R 2~1050 R LAC STOP ~0254 R 707544 A OTXA Jt"S COMAGN o .EJECT o o () o o o o o o o () o o o o o o o o o o o o o o o o o o () o o o o () o PAGE DTCOPY SRC I / FOLLOWING ROUTINE IMPLEMENTS PASS2 TO CHECK FOR IDATA ERRORS A PORTION OF THE INPUT TAPE IS READ INTO ICORE AND THEN A PORTION Of THE OUTPUT TAPE IS READ lAND WORn BY WORD COMPARED TO INPUT. ANY ERROR RESU~TS o o o o o () o o () o o o 0 8 o o DTCOPV I I NTH E T YPE 0 UT 'I 0 J\ T A COM PAR E ERR 0 R " • QiH255 R ~011"i6 R Q\iJj256 R Cl41052 R ~jYJ2:,;7 R ~!'.'11~44 R R 061100 R 0(12 ti \ R ~v.}1057 R QH1202 R U1!4413 R ~H1263 R ~01vl54 R Ql!;:J254 R 7~~7544 A ~j[12 6 5 R 2~11045 R ~H12 ti 6 R r" ti 1 ~'7 6 R 00267 R 1171v.1454 R (lP/)270 R 7 4(~2vno A 0V1271 R 6kHl 46~ R 011272 R ~v.~1050 R ~j(~1273 R 7k17544 A 011274 R 2(~1~)44 R tiH1275 R ;11611(15 R 0k127f.i R ?vj1104 R ¥H1277 R 061 \ltlV) R oliJ3t.:H' R 2f!l t 060 R fiH:13v.1 1 R l vH1413 R 0~,j3~12 f~ 2vJ 1 ~.1!)4 R ~hj303 R 707544 A (I1~j2d0 PASS2 lAC (1077 O!\C OURBLK LAC BUr FER ,JMS seARCH ~AC REAP LAC we DAC'IIr IREAD INPUT TAPE o o (~Hl JNS FLGCrU< SZA LAC STOP o DrXA LAC BUFfER o Jf-iP t?:RROR DAC* (10 L.~C (COMP o OAC* (31 LAC UNTOUT Jt1S SEARCR LAC REAP nrXA 0t13\~4 R 2~"11045 R LAC ~F13(1j5 R (~61076 DAC* R ~Hj3~16 R 1~0J20 R 003~17 R 201 'iH50 R VI0~'lkl R 707544 A ~fi}311 R ?'(91~j53 R ~Hl312 R :, 411 vj 7 R 0~131~~ R 541052 R (ljfr)314 R 6~cH11343 R 00315 R 7400~Jl A (l}ld316 R 341052 R VH?317 R 6 (1l12 5 6 R o OAC* (31 LAC UNTIN orXA o ~~c (3~1 ..Jf1 sea MAG N ~AC STOP UTXA LAC SKP8LK 'TAl) (-1 SAD OURBl"K JMP DONE IREAD OUTPUT TAPE o o o o CMA TAD QURBL,K .J ~1 P PAS S2 ... 1 .. EJECT' o o o o o o o o o o I~ o 1 o PAGE a ICOMPARE ROUTIN~ lOURING THE R~ADING Of THE OUTPUT TAPE THIS ROUTINE ISEES EACH DATA BREAK AND COMPARES THE DATA WORD ITO THE APPROPRIATE WORD IN THE INPUT BUFFER. THIS IELIMINATES THE NEED FOR A BUFFER IN CORE FOR THE IOUTPUT TAPE DATA DURING PASS2. o o o o o o o o o o o DTCOPY DTCOPY SRC vi v1 3:a ell R rit v} (I) ~!) t;, \1 A (/]\"321 R 707573 A (110322 R 7510~k1 A ~~j323 R 6!1 !14 6 ~i R rrH1~~24 R 7v)76kll A ~)\1325 H 6v.H,):527 R 0\1326 R 62~132~J R (1 ~J 32 7 R 221 Ui.H1 R tiH? 3 Jk.1 R 541104 R l~03Jl R 6ft1Vi321 R (·H1332 R 2211~1121 R ~('J~i~;3 DTEflDTRB JMP ERROR OTOF J"'~P .+2 JMP... COMAGN LAC* (31 SAD (COMP "H~P CO~1AGN+ 1 LAC* (31 OAC TEMP LAC. TEMP R 1~ A R S Af) 'If R Jt1P ERROR hAC (CCH1P JMP .+2 R R R ~)(1343 R ~~H:l145 R (t)(lJ 344 f~ 7 4~HHJ 1 A R (;141066 R QH'J346 R 2id111(~ 0!j347 R 1 GH;Jo2 4 vH13 5~1 R 1~1(.J702 0(,-.1351 R 60k'~J) 4 J ~ SKP1Cl.A R ~~41t461 R C1k1334 R 221061 rH13 3 5 R 56 tij vJ 1 IIJ kH)336 R 60v.J340 Ql03J7 R 6~H~463 tiHJ3 4~j R ~01., t ~14 v10a41 R ~16 t 1 ~) 0 t1k,342 R fiC:H~ ~21 ~H1345 I ClJMAGN R R R R nAC* (31 DONE JI1P CONAGN+l hAC r1f:.SS4 C~1A SBWC ISHIP TO SIXBl UNPACK ROUTINE (MES54+1 IGET ADOR OF MESS4 SaSTRP ISTRIP AND PRINT CRLF JMP ASKIN IPROGRAM COMPLETE ISYSTEM EXERCISER MUST BE CAL~ED lIN AGAIN OR RESTARTED FROM lONE Of THE RESTART ADORESSES w o o o o o o o o o o () At: LAC JMS JMS ,.EJECT o o o o o () o o o o o o o o o o o C> PAGE () THE FOLLOWING ROUTINE WIL~ SEARCH FOR THE 8~OCK NUM~ER I SPECIfIED BY THE CONTENTS OF OURBLK~ THE DESIRED UNIT I NUMBER MUST BE IN AC UITS 0-2 UPON CA~LING THE ROUTINE. I CONTROL WILL RETURN TO USER WHEN BLOCK IS FOUND IN I THE FORWARD DIRECTIUN. I o () o l-oH)302 R ;/HH1~V)0 A ~1 vj 3 5;3 R r;)41056 R o o o DTl.A OZ",* {~h13tHl ~H1362 QH?j36;3 lZIi'J364 (110365 (i)I(J366 o~J367 !lJvJ37 ~1 v103'71 (dD372 00373 vJVJ374 elv.l375 I;"H1376 m04~10 o o o TAD SRCRVN ~k1356 R R R R R R R R R 161076 R U/)~14 5 4 R 74l12('Hl A 6113\1376 R ?2110.~1 R 04l(161 R 221061 R 74vHH11 A :;411~J7 R R 341v)02 R R 74(" 1 ~j 0 A R 61;1f~1376 R R f~ 61 ~j 7 (5 R R 2t~1(147 R R 7 vJ7544 A R 1. vjfiJ404 R ~ 2t:11051 R 0kj377 R 341056 o ~, DAC UNIT' R 341~146 R tt.hJ355 R 7 v17 546 A vH!,361 o 51.: ARC H {lH1354 003~7 () orcopy OTCOPY SRC 9 R R 7l'7545 A w114v) 1 R 10~454 R ~H14e12 R 740200 A LlH14l13 R 6(iHi46J R V.lI!14Y,'J4 R 2 211 k10 R 0v.J4~15 R ~41Vt61 R 0vl406 R 221061 R 0~14vJ7 R 541052 R Ciil)4 U1 R 62f·1352 R ttJ(i1411 R 7~)7554 A (iH!l412 R 6 C1 ~14l11 R (J0 .1M5 Fl.GCHK SZA JI'1P SRCF~I/D l.AC* (31 OAC TEMP LAC*rE~'p CMA TAO (~1 TAD OUR61..K St1A JMP SRCFWt.) [)AC* (30 LAC f10DE DTXA J 11 S SRCFWO FL. GCH1< LAC SRCfWN TAU UNIT (1TL.A \.TMS F'l..GCHK SZA JMP ERRQR LAC* (31 PAC TEt1P L.AC", TEMP SAl) OUR6LK JMP* SEARCH o o o o o o o o o o o o c) DTXA+l i4 JMP SRCf'WD+3 .EJECT o c) o () o I:) o o o o o o o () C) u o PAGE t \~) A ROUTINE TO fIND A BLOCK NUMBER SPECIFIED BY UNIT NUMBER MUST BE IN AC. I R~TURN TO USER IS DONE WHEN B~OCK IS I FOUND IN THE REVERSE DIHECTION. I I o o o (7jli]413 ~1kJ414 ~n1415 0vJ424 Lh1425 ~H:J42f) (iHj427 () o(i) 43t1 QlH431 0i1432 vlft14 3 3 0~j4~'4 '1 ~143 5 ~H1436 vH1437 o o () o R (JlliH1 Vl 0 ~l A R 1.~ 41 0 t> 6 R R 341051 H R 1 ~H'454 R 7 4t'12(d'~ R ri~HlJ437 R 2211(10 R r),41061 R 201052 R 7 41~0v.)1. R ;3 411 fi17 R 3611061 R 74H1V!0 R 60 1i)/l37 R [.]61076 R 201047 R 7Qi7544 R 10(;'454 R ;'?l{llkl46 R 34 U,'j56 R R R A R R LAC OUR8L.K Crl A; T A(J TAr)* SMA Jp1P A R DAC* R R A ( .. 1 TEt~P S~CREV C3~l L.AC MODE orXA J~ SRCREV JMS FL.GCHK LAC SRCHVN TAO UNIT DTLA Jl1S F'I..GCHK SZA JMP ERROR R 221100 R LAC* (~1 v.l~)446 I-< OAt; TEMP R LAC* 'fEr.;p J 11 P 1\0 SEA RCR DTXA+lk' rl~i.1453 R R A R R 60~442 R ,/1 (Ij Qll,J) v.1 Iii A vH14ti5 R 7k17073 A v)vj4~j6 R 7 5J, 0lt.i ~1 A (11[1457 R 62tldE)4 R ~'}046~ R 7~'7601 A (1vJ461 R f; kl~' 4 5 5 R ~H1462 R 62 i1454 R o o o o o o o o o o o SAO f)lJR8LK J 1\1 P 5 ReRE V+3 THE FOl~OWING ROUTINE WAITS FOR THE SETTING OF EITHER THE DEC TAPE F~AG OR THE ERROR F~AG ANO THEN RETURNS I TO USER. IF THE ERROR FLAG IS SET , STATUS B WILL BE I IN THE AC. IF THE OECTAPE FLAG SET, AC=0. I I (~Hj454 o lAC* (31 DAC TEr1P oIi) 44 4 R 600463 R R c~41v'j61 v)C1t.147 R 221kHSl 1/)0450 R 541~j52 flJ vJ 4 51 R 62~'1413 ~)04b2 R 707tH;4 Sr~CF~~N D,~1* (30 OTL.A Jr1S FLGC~1K SZ A; J ~1 P 5 f~ eRE V 0044kl 0kj441 R 707545 A v,1 ~14 42 R 1f/lv'454 R L'1v.J443 R 74~)2~H1 A 0~1445 ~, TAD A R R R OURB~K, DAC UNIT R o o SEARCR 0(i141n R 161v}76 R R 7\!j7545 A VJv.l417 (1)[14 2 ~~ 0(1421 "Ji1422 VH14;23 o DTCOPY PTCOPY SRC FLGGHK Cr1 DTEf'10TR8 SI,P 1CI,.,A JI1P* fL..GCI1K nrOF ~H'P .-4 J~1P* FLGCHI< .EJECT o o o o o o o o o o o () o PAGE I o r~ ~1L1464 o 00466 (iHl467 v) (14 7 ~l H r141l{)61 R 74Fl10l!! R 6~H1521 R 7A2ti:l1kJ R 740~!l1i£' R 7 4t14~j~1 R 61~H15(11 () o o o F 0 L L 0 \'1 I NG ROUTINE INTERPI~ET IIJATA C(Jf'lPARE vlvl463 o DTCOPY OTCOPY SRC 11 0!!l465 !CJl1.l471 0.0472 707572 A ERROR A 5t1A Jt1P DATAE RTL. ; RA~ o SSBERR# o SNL JNP REAl..Er~ LAC SEARCH AND SAD JMP (~77777 (CHKIN PASS2 o (CHKOLJT .JI1P BL.KERR SAl) /REALER=STATUS 8 ERROR R 7 4(i1 1(10 A I?H1502 R fH1ft15 t 4 R ~1r.15 03 R 2~)1026 R R~ALER ~h1504 R 74(1~H11 A R ·~41~.166 R k105!d6 R 2kJ1114 R ~t!a 5 t15 () (1C1512 0 A ~H'5\11 V!(1507 R 1 '1~l624 R REAL,,~ R t ~j (i,) 7 El:2 R QH1511. R 2(1)1067 R REAL..1 ~AC MESS1~ C/1A [)AC S8WC ~J MS CRLf SS8ERR LAC ASKIN MESS11 C,'1A DAC SB~IC Ji1P REAL..1 STATUS 8 S8STRP LAC I-iL T R 7 4i;H~40 A IOTHER Ci1ESS10+1 J~lS ~l!i1510 R BvHH143 R 00514 R 201034 R (Ilv1515 R 74 (11 ~~ ~i1 A ~~vJ516 H r~ 41 ~j 6 6 R V,I~1517 R 201110 R (1 ('.I 5 2 ~j R 6l1~)5~j7 R SMA Jf'iP LAC 0~H513 o FOUNt). PASS2 ER~~ORS DAC A R ~}k1473 R 20r.,~52 R (1]0474 R 501111 R ~ji<.J475 R 54t112 R f%){lj4/6 R 6~JCj255 R (lj0477 R 541113 R v.~ (~500 R 6!~0531 R o o ERRORS DT~R R R A ANY IRESTART L.AC (MESS11+1 JI1P REAl,.,,0 .EJECT ERRORS o o o o o o o o o () o o o o o o o o o () 1 o o o o o PAGE 12 I)TCOPV SRC I[)AT~\~=OATA 11.)(:1521 R ~ ~~ 1. ~~) ti 6 R klt.) 522 R 7t"7~45 A vJ0 52 ~~ R 2nL~i'511 0~:)524 R 7411 itJ i;i 1 ~)i~) 5 ~ 5 R q41~J66 00526 R 2lil t 11 ti kH1527 R 1 'H162 4 VH15 J ~:, R fitt' vll-!l 4 ~, o LAC 11ES::i5 A CtlA l) 1\ C 58 y~C LAC (~1ESS5+1 R R R R o SBSTRP IRE TURN TO START rJf PROGRAM ASKIN 18LKERR=OUTPUT TAPE HAS 1100 ShOCKS, INPUT TAPE 1102. f1ESS6 BLKERR lAC Jf'1S .Jfl1P A CMA R ~Alq)(56 R 2 ~11117 R tfHi,624 R 2VJ V1703 R 7 4tH'lt/j 1 R ("41066 R PAC R R I..AC (MESS6+1 JI1S SBS'rRP R LAC MESS7 A. CMA DAC t~ AC SBWC (MESS7+1 JMS S8STRP 0v.1534 vJ0535 ~lvJ536 VH15'; 7 011540 OH1046 (110547 R R 20112~.l R R 1~H1624 R R 200'177 R R 74 (i) ~H~11 1\ R V141~166 R R 2 ~11121 R R lCH~624 R 0~J5tj0 R n«lt~255 R 00541 (-1£1542 00543 ~Jk)544 v.}~1545 o LAC DTLA ERROR. VH15;32 R 74 tH1L(il ~H:t533 o DATAE cor'1PARE UI~ I T R 0VJ5Jl H 2Ii.l~)757 R o DTCUPV I_AC CMA OAC LAC JJ~S ~J ~1 o o o o St3WC C) MESSa SBWC (NESS8tl S8STRP P PASS2 "EJECT o o o o o o C) o o o o o o o o o o o o o o o o I " ~) PAGE 0 /FIND OUT 0~1551 v.H~502 0 R CHHtH'J1(1 t{) A R 2~'1122 R ~'(i] 553 R t141 i()b2 R 00504 R 2 1/1(/)001 R t1 ~j 555 R 5~1112 3 R 0 kllil5 5 7 v1VJ 5 6'1 0 !~H1556 0",561 () 0 lMJ502 00563 0~1566 ll1!1067 0~.l571 (il~157 2 ~H~573 0 0 IfHJo74 0!1J575 vH:J576 (i)!,j577 0~' 6&H1 0vj601 0 o~I tj ill 2 {10 6 j~l3 006vJ4 0 0 rH16\:~5 ~Q)6t~'6 ~HiJ 6l~ 7 (11 ~H; 1 ~, ~H;J622 R 0g612 Vi0613 vl0ti 14 0 0(!J616 £111615 0~617 QH162"J ,,-... '0 :~(4~)0t!Jki t,,) ISZ COUNT R R S A () o ( 6 ~ vl ~ I(J o o Jr1P LOOP ~OOP SAD (300(10 ~lMP LOOP o JMP PASSl LAC COUNT DAt; o TE~1P l.. /~ C \Il C TAl) \~C o ISZ COUNT ,HlP ... 2 DAC I".AC SKPBI",K we o SKPBLK ISZ TEMP TAO o J (1 P .-2 [lAC SKPGLt< Ji1P PASS 1 NlH18ER ICHECK FOR VALID UNIT 11 o #. AND (77 R R TAD (-60 o SPA J t'1P • +3 A R R TAD SI'IA A (-11 o CL.A1CMA1SKP CLA A A R A o ~lNP L.OOP SAD (ti00~H:J Jt1P LOOP !SZ CLJUNT SA!) (4kHHH1 R V1VJ623 R 74 (,1 iiJ 1.1 ~l A o ANO (70~H1VJ SAO (7000(1] Jr-IP 1,.OOP R A o SIZE AND ADJUST BUfFER ACCORDINGLY. LAC CORCl-iK R (141v"iS3 R R f500126 R ~i:i)621 0VJ611 COR~ LAC ( .. 3 DAC COUNT R R R 441~162 R H 54"126 R R 6!1H1573 R R 541127 R R 6~Hj673 R R 6'dt;r} 126 R R 2 (tJ 1 \162 R R 041.11.161 R R 2"11~145 R R 341,045 R R 4 41~) 6:2 R R 6V)(1576 R R f,141v.i45 R R 2V1U~53 R R 341053 R R 441vH31 R R 5~H'6~j~ R R (.1 (I) ~ li) ~i ~) R 5i1113~1 R 341131 R 74110vI R 600611 R 341132 R 74011 Ci)l1 R 7510~11 R 7 5'10~H?l R 62061v) C) 0 R 541123 R 6~1fi.157 ;; R 441"H32 R 54\124 R 6~HH)7 3 R 541125 R r,vHJo73 CORCHK (1)\1064 v)Q15G5 R ~H157 ~) 0 OTCOPV DTCOPY SRC 13 JMP* NU~1BER SERV \1 ~iL 'T .tJECT IILLEGAL ENTRY INTO DTCOPY MODU~E. o 0 o 0 o 0 o 0 o 0 C) o o o o o PAGE 14 DrCUPY SRC IENTRANCE REQUIRES THAT ~I~ C IBE PRESENT IN SBWC AND IADOR OF MESSAGE BE IN A"C. .. 0~)624 ~J,(joj4 R f/1(10VJV1~j R 041,l165 R ?21¥J6ti R 741!H110, R 74201v) R 7 42~) U1 R 742V111!j R ~Hj1130 R 5411J~~ ~Hj6.j5 R 62~1624 00625 VJv.l626 ~H1627 ftH16J0 (i)06~~1 IIHH:i';2 (106J3 A R R A A A o o () () o o DAC LAC* R R R R R R R R R A R R R JMP* JMS LAC* (\10~H~t77 S8STRP TYPE SBTE~lP (0VJ0077 TYPE SBT~MP AND Ct1(~(:l077 SAD (0 Jr1P·.\' Jr15 SBSTRP TYPE I~Z SB\'~C Si~P .1 i';1p .. EJECT IGET CHARA IMASK SECOND ( ~J SBSTRP l,AC* ISZ IPRINT IT IROTATE SECOND RTR JitlP* IMASK FIRST ( ~J RTR RTR AND SAD J f1P* J ~1S ISAVE ADOR IGET CHARA o o o IROTATE F1RST RrL RTL AN!) SAP R 742r~2vj A SBTEMP# S8 TE~1P f~ AI... Rfl." (iH1642 R 7 42ir)2~ A ItH!l643 R 50113lil R ~:lg644 R 541,13~ 0!1645 R (12 (/)624 (40646 R 1 v)~) 6 61 00647 R 221l!JfH5 e!\100V' R 5~jll30 V;Jvj651 R 541133 vlkJ652 R 0201024 0vJ65~, R l0'~661 ~~~1604 R 44 1 yJ 6 fj klvJ6ti5 R 741~H)0 0~1656 R 620624 0lIJ6~)7 R 441~65 0vH56~1 R cHHH:526 k1 A Mt 1636 R 10vJ661 R 00637 R 221~965 R ['.106 4~' R 142!!t2l~' A (i'! \I) 6 41 S6STRP r< R R J o OTCUPY S8STRP SBT'i::MP IPRINT IT IGET C~IAR A If1ASK THIRD IPRINT IT lINe. we 100 MORE IEXIT IINC. MESS AO[)R SBSTRP+2 IS'fRIP NEXT' o o o o o o o o o o o o () o o o o o o o o o u o o o o o () () o () o o o o o () o PAGE it) DTCL1PY SRC 00661 R r~~H~~HH1 A ~10662 R :t141it1 70 R vH1663 F~ ;~411~~4 t1k)604 R 74'-1100 tiH1 (j 6 5 R 61-1 II) 6 71 v.IiQ 666 R 2f111170 DrCOPY It::NTRANCE i'1UST BE r~ A[) E WI Tri ICHARACTER TO 8E PRINTED lIN THE AC vJ TYPE DAC rYPEl!llf~ ISAVE TAO SMA R A R R 00667 R 341135 R (II ;;jf.j 7 OJ R 6~10673 R ("~1671 R ~0 U~7v) R {iJtl)672 R 341136 R (iH~67 3 (~1167 .4 (1(1675 R qvJrdk1~'16 00676 R 7001406 V,jvH,77 R 70v.l4£r, 1 (tH17iH1 R ry ~HI\ ti 77 (tJ (17 (11 R B~v1675 A A A R R v;l~'7(i)2 R (~0Q\\,tHHl.j A ", ~~171i.J 3 R ".01137 R ~)(il704 R 1 ~) Vl6 7 5 R V1V.17t15 R ~QJ114k) R 'H17 lIH5 R t0 fJ)(j7S R ~H17iA7 R 620702 R 00710 R t11~' 0 ~j vH3 ~~J711 R 70{]~;~n ~\1712 R 6 ~Hi17 11 ~~'1713 H 70V1312 1(10714 f~ 541.141 A A R _ ,.. 4 TVPE.l TAll J'1P .t3 LAC TYPE"l o PRINT TYPE o INUMERIC IAl..PHA (3~Hl (200 (1 TLS TSF JfvlP CRLf IPRINT IWAI'f II -1 J"1P* 0 PRINT LAC (210 JMS LAC JMS Ji1P* 11.OOP It:XIT PRINT R 6V.)(1722 R 541137 ~11d717 R 1;!t.H1724 li}07~'1 R '.~41W42 (1 v17 2 t R 600711 00722 R, 141k)~12 fr10723 R 6k1QI/l1 011724 R 10l17l:12 (1!1725 R 62v17!VI 111 K5F ,. ... 1 A KRB R SAD (377 KBROl IWAIT IL.OOP IGET CriARA IRUI:lOUT IYES ICARRIAGE RETLJRN ~1vJ715 R Jf\lP l~v)716 R R SAO (215 Jf1P KORDlt2 ANSW+2 15AVE IT KBR/)+l /GET TERMINATOR R R R R R R DAC .]MP KURDl Dl. ~1 Jr'ip JMS .Jr1P* .eJECT C) CrH,P / ANS\~+2 .. .J 11P o o (212 PRINT IEXIT IS iY1AOE WITH SING~E IINPUT CHARACTER IN KBRD o Jf1P JMS JMP* PRINT o LAC T J~D R t(1(tl67b R R 62(1\661 R C77774(;j o ANS~!J+2 KBRD+l CRLF KBRO ICLEAR PREVIOUS IGET NEXT 0 o o o o o o o o o o o o o () () 1 () (""" V PAGE () 0 0 0 0 0 0 () 0 0 () 0 0 0 () C) I:) 0 10 IIH~)726 DrCOPY SRC R ~~ ld li1 t~ QJ 4 A (111/) 7 2 7 R q 4 III !j l;J J A ~1t17J~ H 24(.) 12~) A ~I\d 7 J 1 R (154~H~13 A i1v.i732 R t 12(.<'31 A ~H17~)3 R r-H1 v.1 ~jj~j 4 A vHll7 ;~4 R 111620 A c~07 ;,so R ,-o244v.l A ~Hj7~i6 R 25j,011 A 011737 R ~472~I(J A vH174(1) R (,10 tryQHiJ 4 A ~0741 R 1.72524 A ~)\Ij 742 R ?~j2524 A ~1k~7 43 R 4~)~o16 A eJ~'744 R 112472 A V}Vl 7 4f; R r;H!H3~02 A 0k174f:i R r.,41716 A ~1~17 47 R r~541~)0 A 1,1 v) 7 !) k1 R ~:~ 'lH~H1 0 6 A liH1751 R t)!4v.i 124 A 00752 R ~14~H13 A 0~'J753 R 17\520 A ~it1754 R (., 12205 A 01,1755 R 41~0522 A 0070(1 R 221722 A ~H17 57 R ("00~~~'J A (1)1.1700 R 27f1l122 A ~h) 7 fj 1 R 1.61l16 A Q1yj762 R ~741(1~1 A ~H17t)3 R lil0Ql v] 13 A vH1764 R t1162~' A 0~17G5 R 25244(1 A 011766 R 253.611 A C1 t.17 t3 7 R 24401kJ A 01177vl R (~12340 A v) ~i17 71 R 61616 1,3 A ~H177? R 624(.')50 A 0(1773 R 1.7 1/}J24 A ~H)774 R 514v.H,2 A 00775 R 141703 A 0V.)776 R 132356 A v.HlJ777 R (-1I1HHrI14 A 01 t1vl~' R t725~4 A ~ 1 t<H11 R ~y.H~524 A ~) 1 V) It) 2 R 41112516 A 01Ql~j3 R 1.1244~) A ~11 (1 k) 4 R 1 (fJ il.' 1 23 A 01(~H]5 R 406161 A Q)1 vH:j 6 R 6 (1 (5 t14 kl A 010~17 R 5 t:)'.703 A ~)ll1t~1 R 21l5]4kj A v)1011 R 2121411' A ~'1012 R i131323 A OTCOPY f1t::SS 1 0 MESS2-M~SSl"1 .SIXBT uOECTAPE COpy" 0 MESS2 0 t1t::SS3""MESS2"1 .SXX8T "INPUT UNIT:" 0 r1ES53 rlESS4"~1ESS3"1 "SIXBT IIOUTPUT UN IT: II Mt;SS4 ME$S5,.MESS4-1 .SIX6T "DONE1" MESS5 r~ E S S 6 ,. Mt:: 5 5 5", 1 0 0 0 eSIXBT "OATA COf1PARE ERROR" C} 0 j1ESS6 ~1ESS7 NESS7 .. ~lESS6'" 1 .SIXBT " ~'l ARNI NG, " 0 11 E SS8 III! MES S 7 ... 1 0 .. SIXaT 1'1 NPUr UNIT HAS 11 k'J 2 (OCT) BI,OCKS .. " () 0 0 t1ESS8 t1ESS9-f1ESS8-1 .SIXBT II OUT' PUT UNIT HAS 11~0 (OCT) B~OCKS. I, 0 0 0 0 r, 0 U 0 0 C) C) \, CI "I '-" PAGE 0 () () 0 0 17 t') U~113 H 56l~Vlt'Hj A 01014 R iH1 {)I\~ 1 l, A (91 (ij 15 R l11p2VJ A ~1k116 0 -- U 1!SlXBT "INPUT & DU'TPl.JT UNITS SAME." A A A A A .A .A A 0 t1t::SS10 t~IESS 11 ~MESS 1 (ij"" 1 .5IXBT "UNI T NOT READY" R 2f>14ti}16 A {ill~)34 OJ H135 A R (110217 o U1~)6 R ~2240(~1 o 1 ~,~; 7 R ii' 0 ~1VH1 q, Q11 0.) 41.1 R 0 0 A R 220~'IO 1 A R ;;;'4~il\(lel A R '.~ (fj \I) ~j ~l 2 A ~, U1~2 0 ("\ '-" MtS511. ENtlMESS·''''ESS 11-1 0 ~j 0 .. SIXBT ",'BORT" A A A END MESS ANSW • BI.,OCK. 4 "IFOEF ADSS BUFfER 0 0 0 0 0 0 0 01044 R \iH)47'17 A (~1045 A vJlt~46 A R 764~1}0vJ R Ijf (j 1 t'j kl \C.l Y}1~147 R r~ 100 V,)l1 (11050 R (;12 (10 Vi ~1 ~]105'. R .:;121. ~Hj QJ ~) 1052 R jjl 0 ~j ~) ~l ~:, (11053 R (10 v_, lj 3 I.') I~j ll~:) 4 R 01J~H1~) ~)1{iJS5 R ~ 15V,ii{J \!I (11 C1 j 6 Q)t{r)ti7 A A A A A A ,l1. R j,l ~, f,1 ~) r~l 0 A R r~J~H10lZl0 A 01 ~HH) R 0I~j(100v.l A 707545 A 707544 A BUFfER we SI'<CRVN r'100E .ENPC "IFUNO ADSS 0 4777 .ENDC "'14~HH{1 0 61VJ00 11lJt.100 STOP 2~1~Ha0 SRCF~JN 21, vH10 QURBLK 0 SKP13l.K ~; k) READ WRITE UNIT UNTIN UNTOUT 13vH)Q) 0 CJ 15~HHj (1 v; 0 11 OTLA=707545 l1TXA;:70/544 DTEF=7075til DTRb::707572 0 A A DTI)F'=707fH1 t 0 A 0 A IOF=7000v12 () 7(ij~~~42 A ION=700V,l42 TL.S=700406 0 0 1777 I't:17561 7V17072 7(;'76Q] 1 7(1.1'1052 7 ~f) ~~ D~} 2 A 70 t;1406 A 7 ~1 (-14 01 7 (I:1f;hi VI 1 7('H~J 12 01(161 R Ci1 v) 0 ~1 V) ~,l A A A. A DTRA=707ot>2 0 TSF=7~H!l4v) 1 K 5 F =7 (.ij 0 3~' 1 I<RI3=7v.j0J12 T EMP ; C0 UNT; c a(1 P I'J; 0 0 0 0 0 C~ ''-'') C) "-- i t1ESS 1e-t1ESS9-l 01 C!,;j 1 R 17244Qj A ~~10~33 (:J MESS9 0 R "02440 A v,1017 R 464'111 ~ 1112!.1 R ~52420 v)lG21 H 25?44v., (~1(~22 R 251011 ~)1~'2~~ R ~?Ll234~l (l.i 1024 R ?J0115 '''1'025 R '::J556~JVi (1Ui)~6 R ~\1,,,\Ij~j5 ~j1027 R ':>.01ti11 (11(130 DTCOPV DTCOPY SRC I ('--" 0 .-, \_.J 0 0 0 0 0 0 0 () 0 0 0 0 0 () 0 \-) PAG£ 18 DTCOPY SRC V11062 R rll til !i1 Vl vH' A ~11 (1 ti 3 R ~~ I" l' It) ({) ~1 A (!) 1 vHj 4 R I~ ~l (ij ('l 01~1 A (,na vH:,\VHiI R 01y171 R (,1 ~~ 1i17 27 R *L (ij ll17 2 R t1vH1734 R *L VJ1073 R 1tiH1l~J07 A *L ti11l174 R ;:" It) j~ /'41 R *L C11Lli75 R 764VH1kl A 'Ill ~11 ~17 6 R 1/1 k1 (ij If) 3 ~) A *L V11 ~17 7 R ';H~) 11115 R *L 011~1~' R r1[i1tt.lv.)31 A *L ~;11ibl R (tl011 ~'I'd A *L (?Ii U~12 R 777t101~j A *l ~)11f13 R j~v't101 A *L V) 11 f~ 4 R 1:~0 U~)63 R *L 011t,5 R ?HHH11 v.J A *L v' 111f1 G I~ '~~)t077 A *L ~111l:J7 R 777777 A *1,.. 01110 R ;1 t1 (i) 746 R *l. . 0111'- R 077777 A *L CiJlt12 R ~~00173 H *L 01113 R ~il~1r1210 R *L 01114 R ~01t127 R *L 01115 R fiH13,{a 3 5 R *L QJ1116 R t~Y'l0751 R *L 01117 R r~f~076el R *L v'112~1 R r~~v'764 R *L "J1121 R (iH11 vHI)~) R *L 01122 R 777775 A *L. ~)1123 R, ~)70vHH1 A *L. 0)1124 R ~"60v)i(l(:1 A *l.. 01125 R. ~, 5 t~ ti) ~.i ~i A *l.. 01126 R :il4 (iH1 L:! I{) A *L 01127 R 1,1,; v1\:1 QH1 A *L 01130 R OH~'!H)7 7 A *L 011,,~1 R 77772v' A *l. ~} II J2 R 777767 A *L (;,ll lJ3 R r-H:jQI~Hjk) A *L t~11J4 R 777740 A *L ~, 1135 R o~Hi13l1 ~J A *L 01136 R ,:;1 It";' 2 0 vJ A *L (111;;7 R 110021 ti A *l. ~J11401 R :"H1(1212 A *l. 01141 R f:HH~~77 .A *L SIZt::=v.)1145 DTCUPY r· '-./ "t::NO UODS\'j 0 0 0 0 0 0 0 0 0 0 0 0 C) 0 NO ERROR L.INES 0 () 0 0 0 0 0 0 0 0 () 0 PAGE 0 0 O 0 0 ANS~~ 01~14:-;' R BUFr~f.R ~111~'44 R COMAGN v'032~~ R CRLF ~H1702 R OTEr7 yJ7 56 t A DrXA 7~) 7544 A fLGCHK C?l04t)4 R v.H171 (~ .R KBRP 0 0 ASKIN DTCOPV DATAE 00v}43 00173 01063 00521. OTl.A 7~17545 CHI< I N CO~,p R R R ASK OUT Ct11([)UT R A ()ONE A R R ~HiJ7 57 !11~) 47 NESS7 00763 R lJNTIN WRITE (11~)55 SRCREV SYSERR TYPE R NUMBER PRINT REAL..,. 1 SBWC SI<PB~K fJURBLI~ 0061 til R 00675 R READ v.1~511J R 01vJ66 R 01053 R RESTRT SEARCH SRCFWD R R R SRCRVN ~11046 TEMP TYPE,l I!IlvJfj1 R R UNTOU'T R ION KSF MESS11 01026 l~ta·7 4 5 00777 01052 01ftJo4 00121 ~l0 352 ~'''J 7 3:3 SERV vJ0463 R 70~312 MESS6 'ij05[~7 707572 ERROR MESS10 MESS4 j-1ESS8 ~lESS3 v11V165 00622 ti.10437 ~H1 VJ 2 r~ k10661 01007 A R ~)0726 R R R R R R SBTE~lP ~1062 707601 A 7000(iJ2 A R IZt0740 R f~ 01"'7t1 R 01 vHH) R C~iKl1 !30531 R (10167 R OTDF OTRB IOF KRB r-1ESS 1 REAL.t 7~7552 00~121 BL~(ERR COUNT INIT KBRDl r~ k.'0255 [)TRA R ~021" R 00t151 R I/J0343 R ERC(JOE ~J~573 MODE PASS2 CORCt~K ~J0!1163 01037 R 00033 R 00722 R ENDMES LOOP MESS2 i} 0 DTCOPY SRC 19 R R R R R "J0376 R SSBERR 01k,67 R 7(;)~4@6 A TLS ~1056 R UNIT 00t1(i)0 R UODS~i 7(;H~042 R A A ~lESS5 A 01034 R vJ0750 R MESS9 01014 R PASS1 REAL.ER 5BSTRP SEARCR SRCF~~N 7003'11 vHl126 R 00501 00624 /()0413 01051 R R R R 01050 H STOP rSF 70~4Y.ll ,A UNITEQ 00112 R we 01f!145 R o o o o o o () o 0 o f:) o 0 o 0 o 0 o 0 o C) o 0 o 0 o 0 o 0 o C) c· C) I o PAGE o o o o o o o OTCOPY SRC 2!') EHCOOE COMAGN R ovH.i 6 3 t< (tj(iJ 167 H ~H~32k) 11 SEARCR 0t141;j REALER BLKEHR 0~1501 ~)flj531 SERV lQ0622 R CRLF v)~702 ~lESS1(i) t10733 Vi0757 v.l1026 tjUFFeR v)1~44 STOP READ UNTOUT 01vJ54 UODS~j ~HH:H'0 ASKIN PASSl ~HaV)43 ASK OUT O~126 CHI< 11 R SYSERR ERROR DATAE NUMBER PRINT R R QHo255 R (11\137 ~ R (;10463 R ~Hj 52 t R (-1'161 ~~ R 00675 R ~'ESS 1 t-1072~ R ~1ESS2 MESS5 01i.l75iJ1 f~ v,1014 R 01Vl4i11 R 01047 R ~'1~151 R ~n057 R MESS6 PASS2 SRCF~~D MESS9 ANS~~ MODE SKPBLI< UNTIN COMP 'i'1t'J6~~ R TYPE .. 1 ~11 {ij 7 ill R 7(1031 II, A KRB DTLA DTDF 7v)7545 A 7t~76r11 A OTCOPV SBTEMP lOF TSF OTRA CrH~IN tH!J!lJ21 R 00112 R (10173 R DUNE ~h1343 ~ SRCREV \ijV)4~7 R k CORCHI~ ~H1v.120 0105~ 01'/J6fl 01060 7kl0vj02 R R R R H R R R. R A 7(1(141211 A 7v)7652 A UNITEGI REAhe0 SBSTRP KURD MESS3 ~1ESS7 Mt::SSll ~iC SRCF~1N WRITE TEMP SBWC ION TLS DTEF R R l;0507 R 00551 R B0624 f~ 00710 R 00740 R 0'1763 R VJlv)34 R (1)1045 R 0,l1V151 R ~10.55 R 01001 R 01066 R 7~1ra~142 A 7004VJ6 A 7~17561 A IN l'T RESTRf CHKOUT SEARCH fLGCHK REAL,l LOOP TYPE Kf3RDl MESS4 a~1"'3=~ H 00121 R t1021t1 R ~H~352 R 00454 R 00514 R 00073 R ~H16til R 00722 R ENDMES SRCRVN 00745 R 11(1777 R 01037 R 01~~46 R DURBLl< UNIT COUNT 01056 R 01 '162 R MESSa S56ERR C'· ({.llr~J52 R 01k'J67 R t\SF 700301 A OTXA 7~17544 .A OTRB 707572 A o o o o o o o o o o o o o o o o o o o o o o o o o o o o o o
Home
Privacy and Data
Site structure and layout ©2025 Majenko Technologies
