L X  1 JULY 1983+ o X  THIS DISKETTE CONTAINS THE CP/M PSEUDO DISK FOR THE Titan Technologies, Inc SATURN RAMBOARDS THIS DISKETTE WILL NOT BOOT! USE A CP/M SYSTEM MASTERLhh (HH`PSEUDO BAS@ PSEUDO COM INIT2 COM INIT COM PS56 BASA PS56 COMPARAM DATiN P(I,):W Ii  i Ii TOP : : ()"Y"i : "<1> CHANGE SLOT CONTENTS"j .j : "<2> CHANGE DISK PARAMETERS": Ej : "<3> EXIT"Qj : mj " WHICH OPTION";Xj X   j X  ޠcz M c| "PS56"c:"This version of the CP/M Pseudo Disk is" d"designed for use with CP/M Ver. 2.23"d!d CH()+d  6d  Id O  v\d O  *ld O x td zdd CH ,,: lgb  : gl (SL0)gqgv START OF LISTER ROUTINEg g I   h P(I,) h J  :hSL I:BK J:CH P(I,J)Eh Nh JWh Ihh I  }hN P(I,):W Ih  h eh : (BK): er  : (BK): e|  : (BK): e (CH1)ee f SL ,,,,,,2f : : Df : : Wf  : : jf  : : }f : : f : : ,"dCH1 : ,dCH1 : ,dCH1 : ,dCH1 : ,d"CH1 e, SL @,J,T,^,h,r,|2e6 : ( BK): Je@ : ( BK): ceJ  : ( BK): |eT  : ( BK): e^ : (BK): Ih TOP: : ()"Y"h " ";h  A$h TOPh  h* i4 i> I  0iH P(I,) zAiR J  _i\SL I:BK J:CH P(I,J)jif sip J|iz Ii I  b b 60K VERSION DATED 29 JUN 1983 JRVb P(,),CRD1(),CRD2()b(QR():Mc2 QR Mc< QR M)cF QR n8cPQR( mZ)KcZ QR M^cd QR Mtcn M IS NOW ID TAGcx ((M) (M)) f  : : f  : f ();(SL0);()ff STOP FLASHg SL &,0,:,D,N,X,b#g : : l5g& : : lHg0  : : l[g:  : : lngD : : lgN : : lgX  :  j X  j jj$ TOP: ()"Y"j. : "<1> CHANGE DRIVE"j8 !kB : "<2> CHANGE NUMBER OF DIRECTORY"5kL  : "BLOCKS"=kV Tk` : "<3> EXIT"tkj : " WHICH OPTION";Zkt TOP: ()"Y"k~DAT"yP #,LGS,DRIVE$,BLOCKSyZ I : J : #,P(I,J)::yd yn yx Py I z P(I,) P(I,) " %z TP(I,)=z " PLEASE WAIT!"Mz TYPEP(I,)ez J  (TYPE){z P(I,J)  z TYPE 6 : " <4> 32K RAM CARD"s " <2> 128K RAM CARD";s : " <5> 16K RAM CARD"t " <3> 64K RAM CARD"; t t  LABELLER@t N  ,4,H,\,p,dt C: X C:CH(X):: ot* t4C :CH() :CH() HOULD BE IN THE SLOT?"mZ md:mn ",(I): #,(I)mx "ENTER 1-5";N n N  N  n F*n TOP: ()"Y"Mn #,: ",:  \nP(W,) Non N  n N  n N AT PSEUDO DISK SET-UP"w` : wj "<2> SET-UP THE PSEUDO DISK"wt : x~ "<3> SET UP INIT.COM AND INIT2.COM"#x : "AND EXIT"0x : Bx "<4> EXIT"dx : : " WHICH OPTION";Ox O  O  x  x DIRECTORY BLOCKS ";:: BLOCKS:qD PART PART: :qN : "BANK";: ": "BANK"%rX " SLOT 12345678 SLOT 12345678";:Grb : "0";: : "4": irl : "1";: : "5": rv : "2";: : "6": r Z  k Z  k Z  k $k : "NEW DRIVE FOR PSEUDO DISK";DRIVE$lDRIVE$(DRIVE$,)Il DRIVE$"F" DRIVE$"B" "TRY AGAIN";: el : :: DRIVE$":":pl $xl l : "NUMBER OF H():CH():CH():CH():CH( ):CH( )uCH( ):CH( )v W ,,,,,,v : : ,v : : @v  : : Tv  : : iv : : ~v : : v  : : :CH() t> tHC :CH() :CH() :CH() tR u\C :CH() :CH() :CH() uf  EMPTY (NOT RAM)";s DIRECTORY BLOCKS";BLOCKSl BLOCKS BLOCKS "TRY AGAIN";: l : &:: BLOCKS:l $m  m TOP: ()"Y"5m " WHICH SLOT";WSm( W  W  ^m2SL Wim< mF TOP: ()"Y"mP" WHAT S v  : v JK C: (CH(JK));:v v v : : : w$ " CP/M PSEUDO DISK" w. LOOK pP(W,I):CHpSLW:BKIp p IpSL Wp p p ",q < q q END SET-UP2q N  Vq : : "CP/M PSEUDO DISK"^q& q0 "DRIVE ";:: DRIVE$":";:q:" o, J ( ( N)) o6 I J ( ( N))o@ TOP: pJ "DO YOU WANT TO USE BANK "I;: A$,pT A$ "Y" P(W,I) : h;p^P(W,I) YphSL W:BK I:CH P(W,I)dpr mp| I}p : p p I :CRD1(P)I:CRD2(P)CRD1(P)z TYPE  z 6 :CRD1(P)I(J):CRD2(P)CRD1(P) { TYPE  { 6 /{ BKJ: BK BKBKV{ CRD1(P)BKI:CRD2(P)I\{ b{ h{" r{, ^ {6 PP: P {@ P~2S!#F:C2UÀy2D—!c:Du~2S!#F:C2Uwy2DŽ!c:Dl$( )}N #,}X FB}b FB}l A$(( FB))}v #,FB} FBFB} ~ FB~ FB K.~ A$(( FB))<~ #,FBH~ FBFBN~ W~ #r~ "R",#,"INIT2.COM",~ #, AS A$~ A$ `i@s}ss3` / !~ ͊66= ̓!E  ! Ͱ !{g1:Q!E͂:(!Y"*>w2 2ӯ22>2!"2!">2N:O*:/: I C:I~ā <,AL(): =,AL()΁  ԁ I : I,I%(I):  M .# ], : q, = `, : t, c , : , : (, um .  M .# "ERROR - PSEUDO DISK CANNOT HANDLE MORE THAN 256K RAM"|J P "";: A$:  |T |^ I%()8|h I :I%(I)( I):T|r "R",#,"PSEUDO.COM",e|| #, AS A$o| H z| #,| H,(A$):HH( )~ #,~ FB~ FB~ A$(( FB))~ #,FB~* FBFB~4 > FBH FB K*R A$(( FB))8\ #,FBDf FBFBJp Sz #] i ,Pw X P X,CRD1(X) : kWç" :D*DM*Q|:D**QDM::*S~*U~~`i*U}o~~:::>y_!E~2P!I~2C:UG:C2Uyog"M*O"Qy_!kWç" :D*DM*Q|:D½**QDM::*S~*U~~`i*U}o~~:::>y_!E~2P!I~2C:UG:C2Uyog"M*O"Qy_!| H K| #| H,(A$)| HH| | #| | | D$DRIVE$} D(D$)A: [,D: o,D: ,D: &,D0} LGS 3, p:}  X} :: "R",#,"INIT.COM",i}& #, AS A$z}0 A$(D)}: #, W}D A1!!J200 ORG 200H 0200 VECT DS 100H 0300 ORG 300H 0300 DRV DS 100H 040 LGS 8,P$  ŀ.DEBLOCKS р8DEDEB DE DE "TRY AGAIN": ./L DE DEDE:DD: DE DE:DDGV :,DE : ;,DDZ`DEDEDDyjC:I: X DE  tAL(C)AL(C)I:II "X,CRD2(X) X ,P ,  : ,  , : ,  ",  : #,  , : , 3 (, : ), M +,  : ,, f m, 3: n,  q, ` : r,  8,P1!!J!>w#|$J K_{1z1\>2\>?2]2^2_2`2a2b2c2d2e2f2gHE SLOT?"md mn:mx ",(I): #,(I)m "ENTER 1-5";Nm N  N  n Pn TOP: ()"Y"@n #,: ",: OnP(W,) Nbn N  un N  n N  n vgl ,gv g START OF LISTER ROUTINEg &g I  g P(I,) h J  -hSL I:BK J:CH P(I,J)8h Ah JJh I[h I  phN P(I,):W I{h h Ih TOP~2S!#F:C2UÀy2D—!c:Duk Z  k Z  k .k : "NEW DRIVE FOR PSEUDO DISK";DRIVE$lDRIVE$(DRIVE$,)w2 2ӯ22>2!"2!">2N:O*:/:W Ii i Ii TOP : : ()"Y"i : "<1> CHANGE SLOT CONTENTS"i !j : "<2> CHANGE DISK PARAMETERS": 8j : "<3> EXIT"Dj : `j " WHICH OPTION";Xsj X  j X  $j X: : ()"Y"h  " ";h A$h  TOPh* h4h> &iH I  #iR P(I,) 4i\ J  RifSL I:BK J:CH P(I,J)]ip fiz Joi Ii I  iN P(I,)b T():Mb T Mb T Mb( T Pb2T( mZ)b< T M cF T M cP M IS NOW ID TAG:cZ (M) (M) @cdlcn"THIS VERSION OF THE CP/M PSEUDO DISK"cx"WAS DESIGNED FOR CP/M 2.20"CKS";BLOCKSl BLOCKS BLOCKS "TRY AGAIN";: l : &:: BLOCKS:l  .l m TOP: ()"Y"(m( " WHICH SLOT";WFm2 W  W  (Qm<SL W\mF rmP TOP: ()"Y"mZ" WHAT SHOULD BE IN Tf ,wf f STOP FLASHf SL 0,:,D,N,X,b,lf& ,: vg0 ,: v/g: ,: vHgD ,: vagN ,: vzgX ,: vgb ,: kWç" :D*DM*Q|:D**QDM::*S~*U~~`i*U}o~~:::>y_!E~2P!I~2C:UG:C2Uyog"M*O"Qy_!  j j$j. TOP: ()"Y"j8 : "<1> CHANGE DRIVE"jB kL : "<2> CHANGE NUMBER OF DIRECTORY"(kV  : "BLOCKS"0k` Gkj : "<3> EXIT"gkt : " WHICH OPTION";Z}k~ TOP: ()"Y"k Z  6d"CH1 : 6d,CH1 d6 SL J,T,^,h,r,|,d@ : ( BK):  eJ : ( BK): "eT  : ( BK): ;e^  : ( BK): Seh : (BK): ker : (BK): e|  : (BK): e  :ɔccc P(,),CRD1(),CRD2()c M M 0 : Mc CH()c  c $ d O  d O  4+d O  3d 9dUd CH ,,",,idCH1 : 6}dCH1 : 6dCH1 :  N  n N  n Pn I  :SL W:BK I:CH :P(W,I) n n I2oJ : W  (W ((M) (M))) ,yo" TOP: :" BANK 1 SAVED FOR CP/M":SLW:BK:CH:P(,):Jo, o6 J ) : A$( )}X #,}b FB}l FB}v A$(( FBM))} #,FB} FBFB~ ~ FB ~ FB K8~ A$(( FB))F~ #,FBR~ FBFBX~ a~ #|~ "R",#,"INIT2.COM",~ #, AS A$ET-UP"wj : wt "<2> SET-UP THE PSEUDO DISK"w~ : w "<3> SET UP INIT.COM AND INIT2.COM"x : "AND EXIT" x : 2x "<4> EXIT"Tx : : " WHICH OPTION";Oox O  O  zx $ x < x LOCKS ";:: BLOCKS:qN PART PART: :qX : "BANK";: ": "BANK"rb " SLOT 12345678 SLOT 12345678";::rl : "0";: : "4": \rv : "1";: : "5": ~r : "2";: : "6": r : "3";PSEUDO DISK CANNOT HANDLE MORE THAN 256K RAM"{T P "";: A$: {^ |h I%()*|r I :I%(I)( IM):D|| "R",#,"PS56.COM",U| #, AS A$_| H j| #,| H,(A$):HH| H K|:CH():CH():CH( ):CH( )uCH( ):CH( )u W ,,,,,, v : :  v : :  3v  : :  Gv  : :  \v : :  qv : :  v  : :  v  ( ( N)) o@ I J ( ( N))oJ TOP: oT "DO YOU WANT TO USE BANK "I;: A$p^ A$ "Y" P(W,I) : r.phP(W,I) LprSL W:BK I:CH P(W,I)Wp| `p Ipp : xp p I pP(W,S,DRIVE$,BLOCKSyd I : J : #,P(I,J)::yn yx y Py I z P(I,) P(I,) , z TP(I,)-z " PLEASE WAIT!"=z TYPEP(I,)Uz J  (TYPE)kz P(I,J) " z TYPE @ :CRD1(P)I"I",#,"PARAM.DAT"x x #,LGS,DRIVE$,BLOCKSx I  : J : #,P(I,J)::x : y y NPTy NPT26y( DRIVE$"C":BLOCKS EMPTY (NOT RAM)";s : " <4> #| H,(A$)| HH| | #| | | D$DRIVE$ } D(D$)A: [,D: x,D: 3,D: ?,D } LGS 3, p*}  H}& :: "R",#,"INIT.COM",Y}0 #, AS A$j}: A$(D)w}D #, W}N M A$( : v JK C: (CH(JK));:v v v$ : : : v. " CP/M PSEUDO DISK"v8 ,wB "COPYRIGHT 1982, SATURN SYSTEMS, INC."cwL : NPT NPT:: "NO PARAMETER TABLE": : mwV : w` "<1> LOOK AT PSEUDO DISK SI):CHpSLW:BKIp p IpSL Wp p p ",p F p q END SET-UP%q N  Iq& : : "CP/M PSEUDO DISK"Qq0 rq: "DRIVE ";:: DRIVE$":";:qD" DIRECTORY B:CRD2(P)CRD1(P)z TYPE  z @ :CRD1(P)I(J):CRD2(P)CRD1(P)z TYPE  { @ { BKJ: BK BKBKF{ CRD1(P)BKI:CRD2(P)IL{ R{" X{, b{6 h w{@ PP: P {J P "ERROR - tH tRC :CH() :CH() :CH() t\ tfC :CH() :CH() :CH() up /uzC :CH() :CH() :CH() :u |uC  :CH() :CH() :CH() :CH() :CH() uCH():CH() 32K RAM CARD"s " <2> 128K RAM CARD";s : " <5> 16K RAM CARD"s " <3> 64K RAM CARD";s  t LABELLER3t  N *,>,R,f,z,Wt*C: X C:CH(X):: bt4 t>C :CH() :CH() :CH() ~ M A$( ) : A$( )~ #,~ FB~ FB~ A$(( FBM))* #,FB4 FBFB> %H FB6R FB KN\ A$(( FB))\f #,FBhp FBFBnz w #  ,P*O"QÉy_!~2S!#F:C2UVy2Dm!:DŽ :6 # L!zw͌j# X:z 0 ͘=N#Fy}80*z{¯#z+++ ¥ z#½# · 9!`͠ y9!rͷDEDEDDtC:I: X DE  ~AL(C)AL(C)I:II: I C:I쁈 <,AL(): =,AL()  9 I : IM,I%(I):?O M 8{ ^, : {, : , : -,  6, : B X P X,CRD1(X) : "X,CRD2(X) X ,P M,  : M,  M, : M, / "M,  : #M, M M, : M, k (M, : )M, +M,  : ,M, ,  a, : ,  9, Â 8 8{ ^, : {, : , : -,  6, : B 9 I : IM,I%(I):?O M 8{ ^, : {, : , : -,  6, : BtW ;. :D£**QÕ:D“*QDM!͕*!::*Sw*Uww`i*U}oww:::>y_!E~2P!I~2C:UG:C2Uyog"M M, 3 : M, Ā: M, `: M, Հ 8,P$ LGS 8,P. & 8DEBLOCKS BDEDEAL DE DE "TRY AGAIN": 8sV DE DEDE:DD: DE DE:DD` :,DE : ;,DDj0,"B",1 2 3 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0  0 0 0 0 0 0 0 0 0 0