PSEUDO BASQ PSEUDO COM INIT COMINIT2 COMPARAM DAT{ X  i ii : :PART: -i : "<1> CHANGE DRIVE"i j : "<2> CHANGE NUMBER OF DIRECTORY"3j  : "BLOCKS";j Rj : "<3> EXIT"rj : " WHICH OPTION";Zj Z  j Z CH1 c SL ,,,,,,c    BK,CH1: d 2  BK,CH1: !d 2  BK,CH1: @d 2 BK,CH1: _d  BK,CH1: ~d G BK,CH1: d G Igc : : : gm " ";gw A$g ",g )gh -h I  ,h P(I,) =h J  [hSL I:BK J:CH P(I,J)fh [oh Jxh Ih I  hN,v: ie_ @,wei es STOP FLASHe} SL ,,,,,,f ,: !f +,: :f +,: Sf +,: nf  ,: f @,: f BK,CH1: d G  BK,CH1d dd SL #,-,7,A,K,U,_e ,p: ie# +,q: i6e- +,r: iOe7 +,s: iheA ,t: ieK @,u: ieU @ P(I,):W Ih h  Ih : h! : h+ : "<1> CHANGE SLOT CONTENTS"h5 'i? : "<2> CHANGE DISK PARAMETERS": >iI : "<3> EXIT"JiS : fi] " WHICH OPTION";Xyig X  aiq X  ib P(,),CRD1(),CRD2()b CH( )b  b b) b3 O  c= O  cG O  cQ c[;ce CH y,,,OcoCH1 : ccyCH1 : wcCH1 : cCH1 : c@,: f @,f f START OF LISTER ROUTINEf -f I   g P(I,) 1g  J  :gSL I:BK J:CH P(I,J)Eg [Ng' JWg1 Ihg; I  }gEN P(I,):W IgO gY  9j Z  j j : "NEW DRIVE FOR PSEUDO DISK";DRIVE$jDRIVE$(DRIVE$,)1k% DRIVE$"F" DRIVE$"B" "TRY AGAIN";: ";: A$: )2z TYPEP(I,)Jz J  (TYPE)`z P(I,J) y z) TYPE  :CRD1(P)I:CRD2(P)C sm  EMPTY (NOT RAM)";r : " <4> 32K RAM CARD"r " <2> 128K RAM CARD";?r : " <5> 16K RAM CARD"[r " <3> 64K RAM CARD";cr tr LABELLERr  N ,',;,O "TRY AGAIN";: CkW ka kk : : ku " WHICH SLOT";Wk W  W  u lSL Wl l Jl  :: "PARAMETER FILE FOR THIS SLOT:"Ul [ll: ",(I): #,(I)l "ENTER , INC."u# " COPYRIGHT 1982, KENNETH ROE"u+ : NPT NPT:: "NO PARAMETER TABLE": : v5: *v? "<1> LOOK AT PSEUDO DISK SET-UP"7vI : [vS "<2> SET-UP THE PSEUDO DISK"hv] : vg "<3> SET UP INIT.COM AND INIT2. -: tK -: tK : tK B: tK B: tK Bu JK C: KJK,CH(JK):u%u 7u: : : ]u " CP/M PSEUDO DISK"eu  u! " COPYRIGHT 1982, SATURN SYSTEMS "Y" P(W,I) : nP(W,I) nSL W:BK I:CH P(W,I)n [n In s: o o I : P(W,I): I'oSL W2o s=o Mo ",Xo  co )vo END SET-UPo# N  o-  J P(I,J):BIUBIUxu x x x x NPT2 "PARAM.DAT"x "O",#,"PARAM.DAT"y #,DRIVE$,BLOCKS=y I : J : #,P(I,J)::Cy Iy Qy P_y I y P(I,) P(I,)  y TP(I,)"z,c,wrC : X C:CH(X):: r r'C :CH() :CH() :CH() r1 's;C :CH() :CH() :CH() 2sE ]sOC :CH() :CH() :CH() hsY scC :CH() :CH() :CH() 1-5";Nl N  N  l l #,: ",: lP(W,) Nm N  =m  N  =&m N  =9m N  =Lm) N  Wm3 m= I  :SL W:BK I:CH :P(W,I) mG COM"vq : "AND EXIT"v{ : v "<4> EXIT"v : : " WHICH OPTION";Ow O  O  w w  6w "I",#,"PARAM.DAT"Dw [w #,DRIVE$,BLOCKSw I  : J : #,P(I,J)::w:w : "4": ps : "1";: : "5": p} : "2";: : "6": p : "3";: : "7"q "----------------------------------------";:: "Y";::"-USED ";:: "N";::"-NOT USED ";:: "C";:: "-RESERVED FOR CP/M"q  : : "CP/M PSEUDO DISK"o7 pA "DRIVE ";:: DRIVE$":";::" DIRECTORY BLOCKS ";:: BLOCKS;:!pK PART PART: :HpU: : "BANK";: #: "BANK"{p_ " SLOT 12345678 SLOT 12345678";pi : "0";: RD1(P)z3 TYPE G z=  :CRD1(P)I(J):CRD2(P)CRD1(P)zG TYPE o zQ  {[ BKJ: BK BKBK;{e CRD1(P)BKI:CRD2(P)IA{o G{y M{ W{  { PP: P : "ERROR - PSEUDO DISK CAN NOT HAN2 , 205 , 0 , 208 , 157 , 130 o 192 , 96 , 157 , 140 , 192 , 157 , 131 , 192 , 157 , 131 *y 192 , 141 , 0 , 208 , 205 , 0 , 208 , 240 , 6 , 157 g 130 , 192 , 169 , 0 , 96 , 157 , 132 , 192 , 141 , 0  208,157,140,192,73,255,141,0,208, 9 , 192 , 141 , 37 , 160 , 141 u 40 , 160 , 141 , 55 , 160 , 141 , 58 , 160 , 141 , 45 ( 160 , 141 , 72 , 160 , 41 , 15 , 10 , 10 , 10 , 10 c 170 , 240 , 59 , 160 , 3 , 173 , 5 , 198 , 205 , 5  198 , 208 , 49 , 205 , 5 , 198 , 208B} FB H} A$(( FB))} #,FB} FBFB} } #~ "R",#,"INIT2.COM",~ #, AS A$~ FB-~ FBK~' A$(( FBM))Y~1 #,FBe~; FBFBk~E v~O FB~Y FB H~c A 160 , 96 , 72 , 189 , 131 , 192 , 189  131 , 192 , 104 , 141 , 0 , 208 , 205 , 0 , 208 , 8 2) 189 , 130 , 192 , 189 , 130 , 192 , 40 , 96 , 157 , 131 r3 192 , 157 , 131 , 192 , 141 , 0 , 208 , 157 , 135 , 192 = 157 , 135 , 192 , 73 SLT,SL: %TEST:T(SLT)߁ Z80( ): Z80(Z80)SL T "SLOT"SL;: T "IS EMPTY": "HAS A ";> T "DISK CONTROLLER CARD":d T "COMMUNICATIONS CARD": T "SERIAL CARD": T DLE MORE THAN 256K RAM": "PRESS SPACE TO CONTINUE>";: A$: ){ { I%()| I :I%(I)( I):| "R",#,"PSEUDO.COM",0| #, AS A$:| H E| #,Z| H,(A$):HHf| H Ho| #~| H,(A$)| HH| ̅ 160 , 96 , 169 , 255 , 141 , 0 , 160 , 169 , 85 , 32  175 , 160 , 208 , 31 , 169 , 170 , 32 , 175 , 160 , 208 G 24 , 169 , 5 , 141 , 0 , 160 , 169 , 85 , 32 , 198  160 , 208 , 13 , 169 , 170 , 32 , 198 , 160 , 208 , 6  16 , 44 , 217 , 53 ݄ 161 , 208 , 30 , 173 , 7 , 198 , 205 , 7 , 198 , 208  31 , 217 , 57 , 161 , 208 , 17 , 192 , 2 , 208 , 9 S 173 , 11 , 198 , 201 , 1 , 208 , 2 , 160 , 4 , 140  0 , 160 , 96 , 136 , 16 , 205 , 169 , 254 , 141 , 0 $(( FB))~m #,FB~w FBFB~ ~ #~  ~ ,P~ X P X,CRD1(X) : "X,CRD2(X) X& ,PD M,  : M, b M, : M,  "M,  : #M,  M, , 255 , 141 , 0 , 208 , 73 , 255 G 157 , 131 , 192 , 205 , 0 , 208 , 157 , 130 , 192 , 96 1Q 157 , 131 , 192 , 157 , 131 , 192 , 157 , 132 , 192 , 141 n[ 0 , 208 , 157 , 133 , 192 , 73 , 255 , 141 , 0 , 208 e 73 , 255 , 157 , 132 , 19 "PRINTER CARD":˂% T "FIRMWARE INTERFASE CARD":/ T "16K RAMCARD" 9 T "SATURN 32K RAMCARD"-C T "SATURN 64K RAMCARD"JM T "Z80 SOFTCARD"nW T "SATURN 128K RAMCARD"tak 0 , 173 , 0 , 160 ,| #|# + |- |7 D$DRIVE$|A D(D$)A: [,D: x,D: 3,D|K  }U "R",#,"INIT.COM",}_ #, AS A$#}i A$(D)0}s #, b;}} FBK} FBi} A$(( FBM))w} #,FB} FBFB} } F9 , 6 , 141 , 0 , 160 , 96 , 169 , 85 , 32 , 230  160 , 208 , 248 , 169 , 170 , 32 , 230 , 160 , 208 , 241 ; 169 , 8 , 141 , 0 , 160 , 169 , 85 , 32 , 6 , 161 z  208 , 229 , 169 , 170 , 32 , 6 , 161 , 208 , 222 , 169  7 , 141 , 0 ,S :,DE : ;,DD] DEDEDD؀g C:I: X DE  q AL(C)AL(C)I:II: I C:I{ # <,AL(): =,AL()- - 3 R I : I,I%(I):X x I @: Q: I,Q: SLT :TEST  : M,  (M, : )M,  +M,  : ,M,  M, 3 : M,  8,P! U $+ DEBLOCKS 05 DEDE\? DE DE "TRY AGAIN": + I DE DEDE:DD: DE DE:DD157 132,192,205,0,208,157,130,192,96,3ߊ 24,56,72,60,56,24,72,40,207,1 53,81,197,175,182,35,9455,141,0,208, , 0 , 208 , 240 , 6 , 157 g 130 , 192 , 169 , 0 , 96 , 157 , 132 , 192 , 141 , 0  208,157,140,192,73,255,141,0,208,2Uy?_!~2S!#~G:U2U*O*M"QVy2Dm!:DŽ~M!͕*!::*Sw*Uww`i*U}oww:::>y2C!og"M*O"QÉy_!E~2P!I~ Î`i`ޓښ:ޓڦJޓڲZޓھjޓz3ߊ / !~ `66= !; !{g1:Q!;͢گ22>2!"2!"͎>2:O*:)/ Î`i`ޓښ:ޓڦJޓڲZޓھjޓz3ߊ / !~ `66= !; !{g1:Q!;͢گ22>2!"2!"͎>2:O*:)/2Uy?_!~2S!#~G:U2U*O*M"QVy2Dm!:DŽ~M!͕*!::*Sw*Uww`i*U}oww:::>y2C!og"M*O"QÉy_!E~2P!I~tW;. o   ʆ:D£**QÕ:D“*QDM!͕*!::*Sw*Uww`i*U}oww:::>y2C!og"M*O"QÉy_!E~2P!I~tW;.   :D£**QÕ:D“*QDM!͕*!::*Sw*Uww`i*U}oww:::>y2C!og"M*O"QÉy_!E~2P!I~tW;. o  Ά:D£**QÕ:D“*QDM!͕*!::*Sw*Uww`i*U}oww:::>y2C!og"M*O"QÉy_!E~2P!I~1!!!H!>w#|/J K_{<z<\>2\>?2]2^2_2`2a2b2c2d2e2f2g1!!!H 2Uy?_!~2S!#~G:U2U*O*M"QVy2Dm!:DŽ!z6 # L!zw͌j# X:z 0 ͘=N#Fy}80*z{¯#z+++ ¥ z#½# · 9!`͠ y9!rͷ"C",1 2 3 2 2 2 2 2 2 2 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0  0 0 0 0 0 0 1 0 0 0 0