?p @ @ @ ?x e>ly7Kb) |d$` INX Q F: { A) }{B E@ oJ > e nD
x - _h- ( P
? (1H0,'ROMGEN 2J(1) 23-NOV-77') (1H0,'DATABASE FORMAT INPUT(Y OR N)? '$)(1H ,'DATABASE FILE NAME? ',$)(A10)(1H0,'ANY CHANGE TO THE DATABASE(Y OR N)? '$)(A1) (1H ,'PART NUMBER CHANGE(Y OR N)? '$) (1H0,'DEC PART NUMBER: ',$) (1H ,'ORIGINATOR CHANGE(Y OR N)? '$) (1H ,'ORIGINATOR: ',$) (15A5) (1H ,'CHANGE IN DATE OF ORIGIN(Y OR N)? '$) (1H ,'DATE OF ORIGIN: ',$) (' CHANGE NOTES(Y OR N)? ',$) (' NOTE NUMBER (CR= DONE)? ',$) (I) (' NOTE NUMBER OUT OF RANGE. TRY AGAIN.') (' NEW NOTE: ',$) (1H0,'TYPE SEQ OR RAND FOR DATA TYPE? '$) (1H ,'TO LEAVE ENTRY MODE, TYPE THE LETTER D'/1H )(1H ,'INPUT OCTAL ADDRESS, SPACE, AND OCTAL DATA',/) (1H ,' *',$) (15A1) (1H ,'??BAD DATA, TRY AGAIN!!!') (1H ,'??LOCATION TOO BIG,TRY AGAIN!!!') (1H0,'ARE YOU REALLY FINISHED WITH THIS ROM(Y OR N)? '$) (1H ,'?? DATA IS TOO WIDE,TRY AGAIN!!!')(1H0,'PAPER TAPE FILE INPUT(Y OR N)? '$)(1H0,'**********'/1H ,'ALL DATA(LOC AND CONTENT)',' MUST BE GIVEN IN OCTAL'/1H ,'**********'/) (1H0,'STARTING ADDRESS LOCATION(OCTAL VALUE)? '$) (1H ,'??ADDRESS TOO BIG,TRY AGAIN!!') (1H ,'??BAD ADDRESS,TRY AGAIN!!') (1H ,O,'= ',$) (1H ,'??BAD DATA, TRY AGAIN!!!') (1H0,'TYPE PAPER TAPE INPUT FILE NAME? '$) (1H0,'STANDARD FORMAT PAPER TAPE (Y OR N)? ',$) (1H0,'TYPE DATABASE OUTPUT FILE NAME? '$) (1H0,'TYPE PTP OUTPUT FILENAME (CR=NO PTP): ',$) (/' DEVICE SIZE IS TOO WIDE TO PROVIDE',' PAPER TAPE OUTPUT') ('0PUNCH USING COMMAND: .PUNCH/TAPE:IMAGE ',A10/' FOR MORE INFO ABOUT THIS FORMAT TYPE HELP: ',$) (A1) ('0MFG. STANDARD BLASTER TAPE CONSISTS OF PATTERN CONTROL',' INFO ENCLOSED'/' WITHIN START AND END TRIANGLES, FOLLOWED BY',' 10 INCHES OF BLANK TAPE,'/' FOLLOWED BY A DATA START MARK OF',' ALL EIGHT HOLES PUNCHED, FOLLOWED BY'/' THE PATTERN DATA IN',' BLASTER FORM. MOUNT TAPE ON BLASTER IN THE BLANK'/' AREA',' PRECEDING THE DATA START MARK.') (1H0,'TYPE LISTING OUTPUT FILE NAME (CR=NO LST): '$) (1H0,'VENDOR OUTPUTS (Y OR N)? ',$)(1H0,'FILE NAME FOR MOTOROLA PAPER TAPE (CR= NO PTP): ',$) ('0PUNCH USING COMMAND: .PUNCH/TAPE:ASCII ',A10) S Y H 8 + -< ,L <
_, , @d 7 $ D 6 <
b, , <
e, <
h, 2D v+ e <
i, , <
l, <
o, <
^, l <
q, , <
t, <
w, v2D +
' <
x, , <
{, <
~, 2D + < < , < 2D v+ ,< < < , < 2D v+ $,< < (< , < 2D v+ :,< < 7D + :0$ 0d + 0+ 2 < x, ( . .& HI*d 6+ ) < J< , <
\, -6/ @ 3D u+ m,< < w,D ZD $ $ < : $; + H, <
Z, 1D + Y5D R 2f 6+ T 2h + ` H 6+ D < u+
+ D,< < 3D v+
3D u+ m+ B 1D + Y < u+
+ D,< < 3D v+
<
P, q,< + : < w,D ZD $ $ < : $; + q, <
W, 1D + Y5D {6 3& 6+ } < < , < ,
< ,
w_D ZD $ $ < ,
: $; +
, <
U, 1D + Y5D
2f + ` F 6: ; +
+ Y+
< , , +
<
, , < , < , 03D 2F 7 + e < , , < , < , 2D v+
<
P, I <
P, ,e <
P, *) < , , < , < !, 13D 2F 7 +
<
T, < #, , < &, < ), 23D 2F 7 +
8 71d +
0 < *, , +
8 < -, < 0, < 2, < 5, 2D w+
7 < 6, , <
S, g < 9, , < <, < ?, 33D 2F 7 +
? <
R, ! < A, , < D, < G, 2D v+
M < H, , < K, < N, 23D 2F 7 +
M <
Q, < P, < S, <
P, ,e <
P,
x 2x 3x 2x 1`
v 7x 0X % X ( X ~ 4 $ X , X ~ / 0 0 X 0 X ~ 4 $ X 5 X ~ 4 $ X 9 X ~ B @ 8 X < X ~ 4 $ X @ X ~ B @ ? X C X ~ 4 $ X H X ~ B @ G X K X ~ 4 $ X N X ~ Q $ X R X V X ~ B @ X X X ~ 4 $ X ] X b X g X R i $ X j X m X q X ~ 4 $ X w X { X ~ 4 $ X X
X { i $ X
X
X
$ X
i $ X
X
X ~ / 0 0 X
X ~ 4 $ X
$ X ~ / 0 1 X
( X ~ / 0 2 X
- X
4
0 2 X ~
> $ X
> "X
a X ~ / 0 3 X
f X ~ 4 $ X
j X ~ / 0 2 X
p 0 2 (1H0,'DEC PART NUMBER: ',$) (15A5) (1H ,'DEVICE LENGTH: ',$)(I) (1H ,'DEVICE WIDTH: ',$) (1H ,'ORIGINATOR: ',$) (1H 'DATE OF ORIGIN: ',$)(' NOTE',I2,' (CR= NONE): ',$) 8 Q@ \ n o@f 5*d r < , , < , < ,
< !, , < $, < ',
< (, , < +, < .,
< , i4 v < 0, , < 3, < 6,
< 8, , < ;, < >,
@d U, n D VZD U7 U+
< E, < H,
Od U o U( . U.& W HI W2F p@f U*d : U; V+ n,~ p 6 7X \ X ~ _ @ 8 X ` X ~ c $ 6 X c X ~ c $ 7 X f X ~ _ @ ? X h X ~ _ @ G X k $ U X ~ _ @ W 4 (1H0,'?? ONLY FOLLOWING COMBINATIONS ARE LEGAL,',' TRY AGAIN!!!')(1H ,2X,I4,' X ',I4) S2dYv \ f F g D f p @ ] p @ K@d \" [ $ F L D \ L2F ]+ r S3F K+ y: \; L+ o < }, , " [ $ < , < ,
.$ 8& vOd \ f f g \,~ X ] X d $L $S 7 0 (2O) } D C:dH: \
!p @ p @ p @ p @ 2D
+ $ D + "@d "& $ F D . 3F + . 3& + 3f + $ D + ": ; + < (, < +,
Ap Ap Ap ,~ X }
$ $ Y (' PROCESSING PART NUMBER: ',9A5/' DO YOU WANT',' OUTPUTS (Y OR N)? ',$) (A1) (' FROM PATTERN PRODUCED OUTPUT FILES: ',4(A10,2H, )) (' BAD PAPER TAPE INPUT. WAS THAT THE RIGHT FILE?') IMAGE SEQIN SAVE ]>
< m, < p,
12D 0+ K < _, ; < b, < a, g < `, ! < q, < t,
+ K < w, 7 0+ ] < z, , E,~ x 3x 2x 1x 1P 5 P 0^ F ^ GX 2 @ 8 X ~ 9 ( 1 X : 0 1 0 2 0 3 X 5 P 0> HX ? aS@ \ ~ p @ }@d } <
, }+ < , 2 < , x < , Od } ~ } Ap ,~ x } eC ` \
p @ $ D < , S7 + 2F
+ 1D + : +
Ap ,~ p
(' WARNING. TOO MANY FIELDS IN PCI. MIGHT BE WRONG PAPER',' TAPE INPUT.'/' NON-FATAL ERROR.') (' BAD FORMAT PAPER TAPE INPUT. TOO FEW FIELDS IN PCI.','CANNOT CONTINUE.') } xX e: \ . $ D 6 0 F5*d 4 < X, C 0D 0$ + 9+ H1d + ; < Y, , < V, [ < U, ! < T, ! < S, [ < Q, [ 1D + E < P, [ < N, [ < M, [+ J 0 FN*d F+ J < \, , < L, ,e .,~ p w 1p e 1p N /p G /p ? /x 7x 6p 8 /x X X ' (' IMPROPER TAPE FORMAT. CHECK THAT TAPE WAS INDEED NEW',' FORMAT AND THAT IT'/' WAS READ IN PROPERLY (AFTER MAN-','READABLE LEADER).') @ e
&9@ \ w@d h $ D g < , C h hFF^.$ &$ E .D h g h2F + y1D + "& .F g+ z wZD i & . h&& F h6H^+ *d + < , C7D h+ 1D + < , , < , ,e w,~ x hx hX i < 5, ,e ,~ x x X ? (5A1)(' WARNING. A FIELD IN PATTERN CONTROL INFO ON THE PAPER',' TAPE IS TOO LARGE.'/' NON-FATAL ERROR. WILL TRUNCATE DATA TO',I3,' CHARACTERS.'/' MIGHT BE WRONG PAPER TAPE INPUT.') X e5I \ X !p @ = p @ ? < , -W < , C ?1$ + ?( . ? F <3d <+ f < , < ,
" ? $ D.
> J .$ 8& g $ . ?&$ d D =@f ;" =F $ F @ D E"& $ F @ D > > FA: ;2f ?+ y < , C <A D( D D <
: >; @+ q E2d ?+ . D < , < ,
: E; @+ o X,~ x Dx ?P Y E = D Y ?X F $ < P F D $A P F @ A (' BAD FORMAT PAPER TAPE INPUT. CANNOT CONTINUE.') e5I \ p @ < 5, C 0$ 0d + .@f " $ F D < 4, C A ( . D : ; + (+ 1 < 6, , < 3, ,e Ap ,~ x x X (' PREMATURE END OF FILE. MIGHT BE WRONG PAPER TAPE',' INPUT. CANNOT CONTINUE.') e@ \ B p @ : < M, S6 9+ I < N, , < L, ,e B : Ap ,~ p : 9X : eH \ R p @ R p @ Q < ^, < `,
@d Q+ YOd Q R R Ap Q Ap ,~ h 5 Y $ R IMAGE SEQOUT SAVE aS}: \ bp a < q, < p, z < p, < p, / < p, D < t, b,~ P 5 P a^ c ^ dX 5 P a> e @ oC ` \ y"& $ F w D x F x < , : x; w+ } y,~ x x oB \ < ), < (, h < ', 7$ 6.$ (| D < &, " ( . 6 D < %, < $, < #, < !, h < , h < , h < , h < , h ,~ p w p e p N p G p ? x 7x x x x p 8 x 6 y` o
&9@ \ ,"& $ F + D , F + < ?, > ,; ++ 2 ._D *ZD , < >, : ,; *+ 7 < =, ,,~ x
.x -x + o
M` \ C 70D + G B F @0D + I @ F @@f 7" 6 $ F A D B 5A @ F A < V, 7. AA @ D 7: B; A+ L < U, C,~ x 7x A (5A1)(' ',A1) X SYSTEM ERROR FOUND IN WFLDA. odH \ c !p @ X p @ Z < , -W" Z Z D X X. _ 2D Y+ r> X8& m $ D X X( . X D Z1d + v < , ,e <
, " X $ F [ D `. _ < , < ,
"& $ F [ D Y < , < ,
WA _7 .& ( F _ < , : Y; [+ }: `; [+ y c,~ x _x ZP c ` X _ c Zx dP a @ \ P a _ $ \ oH \ p @ < ", < $,
,~ h 5 $ . (' TYPE DATA BASE FILE NAME FOR OUTPUT: ',$) (10A1) (' FILE NAME TOO LONG (OVER 6 CHARACTERS). TRY AGAIN.') C L H P g$k@ \ 7 < T, , < W, < Z,
9ZD & & &3F %+ D*d ? < \, , + ; < _, < c,
& : F ' F ' 9 F ( < e, < i,
8 F ' < k, < o,
8 F ' < q, < u,
7,~ X , X ~ 0 @ ' X 1 P 0 1 @ ' P 0 2 @ ' P 0 3 @ ' P 0 4 @ ' SEQOUT BINARY SAVE I
~] \ zp w < , @d 7" 6 $ 5. 7A x H 7.$ 8& $ D 6 < ", < $,
< ', < ),
60D + < +, < -,
0D + < 0, < 2,
0d 0d + < 4, < 6,
0D + < 9, < ;,
0D + < =, < ?,
< B, z,~ P 5 P w ^ {^ |h 5 @ 6 h 5 @ : N h 5 @ 6 h 5 @ 6 h 5 @ 6 h 5 @ 6 h 5 @ 6 X 5 P w> ~ (' WARNING. THE INPUT DATA BASE FORMAT DOES NOT LOOK',' FAMILIAR. BUT'/' WILL CONTINUE READING ANYWAY. THERE MAY',' OR MAY NOT BE A PROBLEM.'/' CHECK THE LISTING OUTPUT',' CAREFULLY.') (' DATA BASE INPUT HOLDS ILLEGAL DEVICE SIZE CODE.'/'THIS MIGHT BE THE WRONG FILE FOR INPUT. CHECK INTO IT.') 8 SEQIN BINARY SAVE I
M` \ fp E g@f 5*d n g_D GZD H f & ( .& . H h HI*d q: H; G+ q < , < , < ",
< , i4 $ 2D 6+ ~ < %, < ',
60F 3D + < ), , 60D + < ,, < .,
60D + < 1, < 3,
60d 0d +
60D + < :, < <,
60D + < >, < @,
< C, + < E, , < H, < , ,e f,~ p 6 7P 5 P E ^ h^ ih 5 @ 6 h 5 @ : N X H h 5 @ 6 h 5 @ 6 h 5 @ 6 h 5 @ 6 h 5 @ 6 ` 5 > kX [ h 5 (A2,5A1) (5A1)('S0110000444543203233',10A1,'2D3030',2A1) ('S113',38A1) ('S9030000FC') (' CANNOT CREATE A MOTOROLA PAPER TAPE FOR THIS DEVICE,',' ONLY 8 BIT WIDE ROMS.') X SEQOUT ASCII SAVE [$ \ |p P 70D + B < T, < S, ) < X, < [,
$ w D R"& $ F U D j < ^, < b,
& A O7 .& ( F O. RA& F R( /$ D L < P, ' : j; U+ $ DD R < N, ' < e, _D TZD j j < h,
: j; T+ , 7$ 6.$ (~ D S" S $ F T D j/$ ( D Q < K, ' 7$ Q.$ (| D U" ( . Q D i U.$ . iA$ D R $ D L $ . Q D i"& / Q. i i F S D Q 5 F O < I, ' O. RA$ D R $ .D L: Q; S+ 3 $ DD R < F, ' < j, < m,
: j; T+ % < o, , < r, + D < u, , |,~ ` V L ~ R` V L ~ O` V } ~ Q` V ~ R` V L ~ Op 8 KP 5 P P ^ ^ P k K ( J @ M P l O $ R $ R $ R $ R $ L X 5 l $ U X 5 q @ V X 5 r ` 5 > X t ROM/PROM PATTERN SPEC (I5) (' X',I2,' ') (5A1)('19',2A1,'.') (' SYSTEM ERROR. DEVICE TOO LONG TO BE LISTED.') (15(/1X)) ~ ASCII SEQOUT SAVE e>mLz \ !p !
< !e, < !h, < !l,
< !m, < !q,
< !c, ) < !b, -d < !r, < !v,
< !y, < !},
7 D y.$ &$ D z y.$ 7 .$ ( D z $ D x 71d + !6 $ D x x( D ~"$ . 6. ~& ~ D w $ D ! ! ZD ~ !( F !2& 6+ !A*d !; < !, , < ![, ,e $ . ~&$ D x $ . ~7 .$ ( D y@d }" w $ F ! D ! D ! < !a, "2"$ . !$ ~ D } !_D ! ZD ~ < !`, &7: }: ~; ! + !N ! 0d + !T < !^, #}+ !V < ", , < !\, %X: !; ! + !I < ", < ", !,~ p ! {` ! { Nx }x ! x !p 8 {P 5 P !
^ ! ^ ! P ! ! $ 6 P ! ! $ 7 P ! ! ( } ( ! ( ! ( !
> !
(A1,' DEC PART NUMBER: ',5A5,'ORIGINATOR: ',5A5,5X,' BINARY DATA "1" = HIGH',7X,'SHEET',I3,' OF',I3/' LEFT COLUMN OF BIN DATA IS MSB',12X,'DATE ORIGINATED: ',5A5,' BINARY DATA "0" = LOW'/1H ) (4(4X,'DEC HEX OCT OCT HEX BIN',4X)/4(4X,'LOC LOC LOC DAT DAT DAT',4X)/1H ) (2(8X,'DEC HEX OCT OCT HEX BIN',21X)/2(8X,'LOC LOC LOC DAT DAT DAT',21X)/1H ) YO% \ "1 p @ "
< "=, < "@,
70d + "8 < "G, , 1d + "; < "J, , "1,~ X 5 " $ " @ 8 @ ? $ "
$ w @ G X 5 " X 5 "'
(I2,'. ')(1X/1X,131('_')/1X,'! ! !',11X,'N O T E S',32X,'!FIRST USED ON OPTION MODEL !',T132,'!'/1X,'! !REV!',52X,'!',32X,'! DIGITAL EQUIPMENT CORPORATION',T132,'!'/1X,'! !___!__ ',A4,9A5,'!',32('_'),'! MAYNARD, MASSACHUSETTS',T132,'!'/' ! ! ! ',A4,9A5,'!DRN. ',15X,'!DATE !',37('_'),'!')(1X,'!R! C ! ',A4,9A5,'!',20('_'),'!',11('_'),'!TITLE',T132,'!'/1X,'!E! H ! ',A4,9A5,'!CHK''D. ',13X,'!DATE ! ',7A5,T132,'!'/1X,'!V! A ! ',A4,9A5,'!',20('_'),'!',11('_'),'!',T132,'!'/1X,'!I! N ! ',A4,9A5,'!ENG. ',15X,'!DATE ! ',7A5,T132,'!'/1X,'!S! G ! ',A4,9A5,'!',20('_'),'!',11('_'),'!',T132,'!') (1X,'!I! E ! ',A4,9A5,'!PROJ.ENG. ',10X,'!DATE ! ',7A5,T132,'!'/1X,'!O! ! ',A4,9A5,'!',20('_'),'!',11('_'),'!',37('_'),'!'/1X,'!N! N ! ',A4,9A5,'!PROD. ',14X,'!DATE !SIZE!CODE!',' NUMBER ! REV !'/1X,'!S! O ! ',A4,9A5,'!',20('_'),'!',11('_'),'! K ! PS !',4X,3A5,2X,'!',5X,'!') (1X,'! !___!__ ',A4,9A5,'!NEXT HIGHER ASSEMBLY ',11X,'!____!____!',21('_'),'!_____!'/1X,'! !CHK! ',A4,9A5,'!',32X,'!DIST.! ! ! ! ! ! ! ! !'/1X,'!_!___!',52('_'),'!',32('_'),'!_____!',8('___!')) (' ! "THIS DRAWING AND SPECIFICATIONS HEREIN,',' ARE THE PROPERTY OF DIGITAL EQUIPMENT CORPORATION AND SHALL',' NOT BE REPRODUCED',T132,'!'/' ! OR COPIED OR USED IN',' WHOLE OR IN PART AS THE BASIS FOR THE MANUFACTURE OR SALE OF',' ITEMS WITHOUT WRITTEN PERMISSION.',T132,'!'/1X,'!',42X,'COPYRIGHT ',A5,' DIGITAL EQUIPMENT CORPORATION"',T132,'!'/1X,'!',129('_'),'!') 8 H YO$Ms \ #z p @ "V !p @ "Y !p @ "N !p @ "_"& $ F "Z D "U #| F"N( . "U. "_3F{+ $
"U < $s, < $w,
: "U; "Z+ $ < $x, < ${,
#{_D "YZD "^ "^. "_ < $},
: "^; "Y+ $ < $~,
#{_D "XZD "^ "^. "_ < % ,
: "^; "X+ $, < %, < %,
#{_D "XZD "^ "^. "_ < %,
: "^; "X+ $ < %,
#{_D "WZD "^ "^. "_ < % ,
: "^; "W+ $" #|_D "WZD "^ "^. "Y < %
,
: "^; "W+ $' < %
,
, #{D "VZD "^ "^. " < %
: "^; "V+ $- < %,
#{_D "UZD "^ "^. "_ < %,
: "^; "U+ $3 #|_D "^ZD "^ "^. "Y < %,
: "^; "^+ $8 < %,
#{_D "]ZD "^ "^. "_ < %,
: "^; "]+ $>, < %, < %,
#{_D "]ZD "^ "^. "_ < %,
: "^; "]+ $F #|_D "\ZD "^ "^. "Y < % ,
: "^; "\+ $K < % ,
#{_D "\ZD "^ "^. "_ < % ,
: "^; "\+ $Q < %!,
#{_D "[ZD "^ "^. "_ < %",
: "^; "[+ $W < %$,
#{_D "[ZD "^ "^. "_ < %%,
: "^; "[+ $] < %',
< %), < %,,
#{_D "ZZD "^ "^. "_ < %.,
: "^; "Z+ $e < %/,
#{_D "MZD "^ "^. "_ < %1,
: "^; "M+ $k, < %2, < %5,
#z,~ P " "N $ "U X 5 "` $ "N $ $ "O $ X 5 " $ "O $ $ "P $ $ ( $ "S $ , @ "N X 5 #? $ "T $ 1 $ "T $ 5 X 5 #T & $ "V (1X/1X,131('')/1X,'!',31X,'!TITLE ',7A5,17X,'!SIZE!CODE! NUMBER ! REV !'/1X,'! DIGITAL EQUIPMENT CORPORATION !',7X,7A5,17X,'! ! !',21X,'! !'/1X,'! MAYNARD, MASSACHUSETTS !',7X,7A5,17X,'! K ! PS !',4X,3A5,2X,'! !'/1X,'!',31(''),'!',59(''),'!!!',21(''),'!!') YO$;Z \ %W !p @ %7 !p @ %7 < %, < %b,
%W,~ X 5 %8 @
%7 @ %7 (I5) (5A1)(132A1) w` X YO%J7 \ &4 p @ &0 &5 %h F%n*d &9 &0 D %g 71d + &? $ D %f $ D %f+ &A $ D %f $ D %f" x $ F %m D &2 %g2& 6+ &b 70f + &I/$ ( . .( H %g1f + &M &2/$ $$ .$ D %g < &}, < ' ,
< ', < ',
&6 %g.& %i H%n*d &Q $ .D %g < &z, ' $ .D %g < &x, 'K %g 6 D &1 $ .D %g < &u, 'K %f.D %g < &s, ' %f.D %g < &p, 'l $ .D %g: &2; %m+ &C"& B $ B D %h %h %n2D %h+ &g> %h8& &c $ D %h < ', " %h $ F %l D &2 &2 < ' ,
: &2; %l+ &j, &4,~ ` %n %g y &1` %n %g z &1` %n %g z &1` %n %g x %g` %n %g y %gP &2 &1 $ %g P &3 &1 @ %i X 5 &3 $%n 0 1 2 3 4 5 6 7 8 9 A B C D E F (' STHEX SPEAKING. SYSTEM ERROR. CHOKED ON HEX DATA.') gRD^ \ ' !p @ ' p @ ' p B ' p B ' B ' '/$ . ' D '4d '3 '/& / ' '7( '.( (~ H '" ( . ' H '
.
'
'
L/
' J '/$ 8& '*7D '+ '5 < '8, , < '7, ,e ' ,~ X ' 0 1 2 3 4 5 6 7 (' STOCT SPEAKING. SYSTEM ERROR. CHOKED ON OCT DATA.') gR|= \ 'I !p @ 'C p @ '? p B 'A p B '@ B '? '?/$ . 'A D '@4d '] '?/& / '@ '@7( '?.( (~ H 'A" ( . '? H 'B
.
'C
'; L/
'A J '?/$ 8& 'T7D '?+ '` < 'b, , < 'a, ,e 'I,~ X 'D 0 1 gR@ !p @ 'i p @ 'f p B 'g p B 'f B 'e 'f/$ . 'g D 'g 'f/& / 'g 'g7( 'e.( ( H 'h" ( . 'e H 'h5H '{
.
'i
'k L/0H + '~ . 'i
'k L/
'h J 'e/$ 8& 'u,~ (I2) (2A1)(2A5,X,64A1,X,2A1,I2) (' SORRY, BUT NO CARD DECK OUTPUT IS ALLOWED FOR THIS',' DEVICE SIZE.') 0 p ASCII SEQOUT SAVE [ R \ (4p ( 70D + (^ < (e, @d (7$ 6.$ (} D ((" (( $ F (' D ("& $ F (& D (: (2d 6+ (^ $ 5 D (4 < (b, ' ( ( F( ( F( $ .d (; (&+ (F < (h, < (l,
< (m, < (q,
(2D (7+ (U (6 D ( < (s, (7_D (&ZD (( (( < (v,
: ((; (&+ (W < (x,
: (; ('+ (D < (|, + (` < (, , (4,~ ` ( (5 (6 (4P 5 P (^ (8 ^ (9P () (' $ ( P () (' @ ( X 5 (* $7 @ ( @ ( $ (( ` 5 > (:X (, (15A1) ('23',5A1,'-0-0 ') ('NO PART NUMBER!') 3 - 2 X I> m6 \ ) !p @ ) !p @ ) < )3, < )6,
)ZD ) ) )2F )+ )"*d ) + )/"$ . ) D ) ) )2F )+ )( )2F )+ )( & . ) F ) )3F ): ) ) ).& ) F)*d )* < )9, < )<,
+ )0"< )?, ),~ P ) ) @ ) P ) ) @ ) P ) ) ('0POSITION VIRTUAL READ HEAD OVER FIRST FRAME OF BINARY ','DATA BY USING'/' THE COMMANDS: (NOTE: MAY ABBREVIATE WITH FIRST',' LETTER)'/' SEARCH (FOR DESIGNATED FRAME CHARACTER)'/' # (GIVE OCTAL NUMBER TO SEARCH FOR)'/' MOVE (HEAD FORWARD OR BACKWARDS GIVEN NUMBER OF FRAMES)'/' # (FORWARD= POSITIVE #, BACKWARD= NEGATIVE #)'/' JUMP (TO SPECIFIED FRAME)'/' # (NUMBER OF FRAME',' TO JUMP TO, IN DECIMAL)'/' GRAB (DATA BEGINNING WITH FRAME POINTED TO BY THE',' CURSOR)'/1H ) (1H /' POSITIONING COMMAND: ',$) (A1) (' OCTAL NUMBER TO SEARCH FOR: ',$)(O) (' NUMBER OF FRAMES TO MOVE (-NO.= BACKWARDS): ',$) (I) (' NUMBER OF FRAME TO JUMP TO (DECIMAL): ',$)(' UNRECOGNIZED COMMAND. TRY AGAIN.') (' USER ERROR. PTP CURSOR INCORRECTLY POSITIONED.',' THERE WERE'/' NOT',I5,' FRAMES OF PATTERN DATA',' FOLLOWING THE PRESUMED START OF DATA'/' TRY AGAIN.') S G J M IMAGE RANDIN SAVE m
: )B+ *-"$ .D )B@d )B < *o, , < *r, , < *u, < *x,
)F3D *$+ *P2D *#+ *? < *y, , < *|, < *,
< *d, +) < *a, +}+ *3 )F2D *%+ *F < +, , < +, < +,
< *c, +K < *a, +}+ *3 )F2D *$+ *N < +, , < + , < +,
< *b, +g < *a, +}+ *3 < +, , + *1 $ D )E 70D + *S $ D )E )B D )G" 6 $ D )G < +, < +,
)G )FA )E H 5: )G: )G8& *V < +, + *_ < +, < + ,
+ *1 *",~ x )Dp )D )Fx )D@ 5 P 0^ *% ^ *& *#D )CP 5 *0 )B $ )F X )H 4X )| X ~ * $ )F X * X ~ * $ )D X * X ~ *
$ )D X *
X ~ *
$ )D X * P 5 *] )G $ )F ` 5 > *(X * $ 6 (' CHARACTER ',O3,' NOT FOUND. CURSOR RESET TO BEGINNING',' OF TAPE.') g(t \ +' p @ + + A$ D + : )B4d +,2d )B+ +3 < +8, < +<,
& A + 2F + + +,: )B+ +6 $ D )B < +=, < +@,
+',~ P 5 +3 )B $ + X + $ + (' NON-FATAL PROGRAM ERROR. LSTFRM WRONG. CALL',' PROGRAMMER.') TRAILLEAD g{ \ +I p @ +B p B +B.@ )B7d )B+ +T2d )B+ +U < +^, < +a,
& AF +B+ +ZB +J D +B+ +ZB +JkD +B+ +ZB< +c, , "$ . )B D )B+ +U +I +B Ap ,~ P 5 +W )B $ +B X +C UVn~P o&tK{ \ +z < ,, , < ,, +K +|D +nZD +o < ,, +K < ,, ,1 +o1D + , < ,, < ,,
0D + ,
< , , < , ,
: +o; +n+ , < ,, +K +z,~ p +{ +op +o +mp +z +op +{ +oX +p X +s 0 +m $ +o X +u 0 +m $ +o $ )B ('!',8A1,'!') TRAIL* ! TRAILER!! LEADER ! LEAD aSlV \ ,+ p @ ,(p ,"3@ ,0+ ,A3@ ,,+ ,B @ ,#"& $ ,/ H,# ,#&( 0H + ,; ,- H,#7( ,#.( ( H ,#/$ 8& ,7 < ,G, < ,J,
+ ,C ,. ,"+ ,C ,- ," ,+ ,"p ,~ P ,) ," @ ,$ ` Z (X^ . > X.~ (3~ + ,Q ~ + ,\Z . \x <x *<x .ez+ ,W!" b + " ,Y b + Z . h + gg M?}
& ,^ b + ,L,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1 ,> -|O@ - + ,ggR~@1 ,> -|@@ - ,> ,> @ 6 w+ ,s" -!0B + ,o!"A`X#p 5@ ,l/#p !" X#p + ,s\p + ,sa.9'1 ,> -|,> ,> O@ - + ,s,>
6 + _ 4` ,|"` Q@ ,> < -", ,^ ,> < -%,
,^ *b ,y+ -,> < -&, ,^ 7@ - + -,> < -),
,^ + -,> < -+,
,^ Z 5" -,> < -,,
,^ , 7@ - ,
,> < -., ,^ , ,> < -1, ,^ ,> < -4, ,^ (@qd 1@ ,,
1@ #+ -0@ *+ -,> < -5, ,^ + -,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X - p X - p - p - p X - X ~ - p x Kc@ p p + -AKcK , -A @ ,~ KcJ , -A @ ,~ KcI , -A @ ,~ KcH4B -R5@ -E5" -N+D ,]0
-DU ,~ 4" -S,> $ D -Q5` -KaB + -KL@ -Q+ -K$ +" -N(BdB $ +" -N5b -I ,^ ,~ , -C6 -Q+ -M"` / + -M ,~ aB #` 0@ 3@ -S,~ ,~ CR@1 ,> -|,> ,> p p Ep <b -` $Ep $ E . .& + -\" .!p Ap $Ep ,^ ,^ ,~ I$P 1 ,> -| #p D F b &" .$ &$ 7@ "$ (@ . &" * -v)@
(@ $ &$ .$ .& (D (F . . #p * * ,~ .$ D .& -Jan--Feb--Mar--Apr--May--Jun--Jul--Aug--Sep--Oct--Nov--Dec- -|Y\ -~Q< X\ -~* +