X  J THIS DISKETTE CONTAINS TH  J CP/M PSEUDO DIS  J FOR TH   SATURN SYSTEMS, INC. 128K RAMBOAR  J THIS DISKETTE WILL NOT BOO   USE A CP/M SYSTEM MASTEҦ+  `hh (HH`PSEUDO COMINIT COMINIT2 COMPARAM DATPSEUDO BAS? tW ;. :D£**QÕ:D“*QDM!͕*!::*Sw*Uww`i*U}oww:::>y_!E~2P!I~2C:UG:C2Uyog"M*O"QÉy_!~2S!#F:C2UVy2Dm!:DŽ :6 # L!zw͌j# X:z 0 ͘=N#Fy}80*z{¯#z+++ ¥ z#½# · 9!`͠ y9!rͷ1!!J!>w#|$J K_{1z1\>2\>?2]2^2_2`2a2b2c2d2e2f2g Î`iޓښ:ޓڦJޓڲZޓھjޓz3` / !~ `66= !; !{g1:Q!͢گ22>2!"2!"͎>2:O*:P/tW ;.o  :D£**QÕ:D“*QDM!͕*!::*Sw*Uww`i*U}oww:::>y_!E~2P!I~2C:UG:C2Uyog"M*O"QÉy_!~2S!#F:C2UVy2Dm!:DŽ :M!͕*!::*Sw*Uww`i*U}oww:::>y_!E~2P!I~2C:UG:C2Uyog"M1!!J200 ORG 200H 0200 VECT DS 100H 0300 ORG 300H 0300 DRV DS 100H 040 Î`i`ޓښ:ޓڦJޓڲZޓھjޓz3` / !~ `66= !; !{g1:Q!͢گ22>2!"2!"͎>2:O*:PtW ;.o :D£**QÕ:D“*QDM!͕*!::*Sw*Uww`i*U}oww:::>y_!E~2P!I~2C:UG:C2Uyog"M*O"QÉy_!~2S!#F:C2UVy2Dm!:DŽ :M!͕*!::*Sw*Uww`i*U}oww:::>y_!E~2P!I~2C:UG:C2Uyog"M0,"C",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 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 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 bb VERSION 2.0 80 COLUMN DATED 12 AUG 1982 JRVb P(,),CRD1(),CRD2()cM: ()@ M 0c CH()c (c) ;c3 O  Nc= O  ^cG O  fcQ lc[ce CH y,,,coCH1 : cyCH1 : cCH1 : cCH1 : cCH1  d SL ,,,,,,$d : ( BK): "; hw A$h TOPh )%h0h -Ah I  Vh P(I,) gh J  hSL I:BK J:CH P(I,J)h [h Jh Ih I  hN P(I,):W Ih h  Ih TOP : : ()"Y"i+ : "<1> CHANGE SLOT CONTENTS"'i5 Ti? : "<2> CHANGE DISK PARAMETERS": kiI : "<3> EXIT"wiS : i] " WHICH OPTION";Xig X  aiq X  i{ X  i ii TOP: ()"Y"j : "<1> CHANGE DRIVE"j Gj : "<2> CHANGE NUMBER OF DIRECTORY"[j  : "BLOCKS"cj zj : "<3> EXIT"j : " WHICH OPTION";Zj TOP: ()"Y"j Z  j Z  9j Z  j "k : "NEW DRIVE FOR PSEUDO DISK";DRIVE$:kDRIVE$(DRIVE$,)ok% DRIVE$"F" DRIVE$"B" "TRY AGAIN";: k' : :: DRIVE$":":k/ k9 kC : "NUMBER OF DIRECTORY BLOCKS";BLOCKSkM BLOCKS BLOCKS "TRY AGAIN";: ClO : &:: BLOCKS:$lW ,la Blk TOP: ()"Y"[lu " WHICH SLOT";Wyl W  W  ulSL Wl l TOP: ()"Y"l" WHAT SHOULD BE IN THE SLOT?"l l:m ",(I): #,(I)m "ENTER 1-5";N0m N  N  :m Pm TOP: ()"Y"sm #,: ",: mP(W,) Nm N  =m  N  =m N  =m N  =m) N  m3 n= I  :SL W:BK I:CH :P(W,I) (nG [1nQ IZn[J : W  (W M) en\ TOP: :" BANK 1 SAVED FOR CP/M":SLW:BK:CH:P(,):Jne [no J ( ( N)) ny I J ( ( N))n~ TOP: #o "DO YOU WANT TO USE BANK "I;: A$Go A$ "Y" P(W,I) : VoP(W,I) toSL W:BK I:CH P(W,I)o [o Io s: o o I oP(W,I):CHoSLW:BKIo [o IoSL Wo sp p ",p  'p ):p END SET-UPMp# N  qp- : : "CP/M PSEUDO DISK"yp7 pA "DRIVE ";:: DRIVE$":";:pD" DIRECTORY BLOCKS ";:: BLOCKS:pK PART PART: : qU : "BANK";: ": "BANK"@q_ " SLOT 12345678 SLOT 12345678";:bqi : "0";: : "4": qs : "1";: : "5": q} : "2";: : "6": q : "3";: : "7"q "---------------------------------------":: "Y";*r:"-USED ";::"N";::"-NOT USED ";Mr "C";::"-RESERVED FOR CP/M"[r TOP cr {r MENU SUBROUTINEr r " <1> EMPTY (NOT RAM)";r : " <4> 32K RAM CARD"r " <2> 128K RAM CARD";s : " <5> 16K RAM CARD"s " <3> 64K RAM CARD";'s 8s LABELLER[s  N ,',;,O,c,wsC: X C:CH(X):: s s'C :CH() :CH() :CH() s1 s;C :CH() :CH() :CH() sE !tOC :CH() :CH() :CH() ,tY WtcC :CH() :CH() :CH() btm twC  :CH() :CH() :CH() :CH() :CH() tyCH():CH():CH():CH():CH( ):CH( )t{CH( ):CH( )u W ,,,,,,3u : : Gu : : [u  : : ou  : : u : : u : : u  : : u  : u JK C: (CH(JK));:uu u: : : v " CP/M PSEUDO DISK"&v  Tv! "COPYRIGHT 1982, SATURN SYSTEMS, INC."v+ : NPT NPT:: "NO PARAMETER TABLE": : v5: v? "<1> LOOK AT PSEUDO DISK SET-UP"vI : vS "<2> SET-UP THE PSEUDO DISK"v] : &wg "<3> SET UP INIT.COM AND INIT2.COM";wq : "AND EXIT"Hw{ : Zw "<4> EXIT"|w : : " WHICH OPTION";Ow O  O  w w  w "I",#,"PARAM.DAT"w w #,LGS,DRIVE$,BLOCKSx I  : J : #,P(I,J)::#x:1x ;xNPTFxNPT2^x DRIVE$"C":BLOCKSdx nx x : : NPT2 "PARAM.DAT"x "O",#,"PARAM.DAT"x #,LGS,DRIVE$,BLOCKSx I : J : #,P(I,J)::x x y Py I 0y P(I,) P(I,)  =y TP(I,)Uy " PLEASE WAIT!"ey TYPEP(I,)}y J  (TYPE)y P(I,J) y y) TYPE  :CRD1(P)I:CRD2(P)CRD1(P)y3 TYPE G z=  :CRD1(P)I(J):CRD2(P)CRD1(P)!zG TYPE o +zQ  Gz[ BKJ: BK BKBKnze CRD1(P)BKI:CRD2(P)Itzo zzy z z  z PP: P z P "ERROR - PSEUDO DISK CANNOT HANDLE MORE THAN 256K RAM"{ P "";: A$: )"{ /{ I%()R{ I :I%(I)( IM):n{ "R",#,"PSEUDO.COM",{ #, AS A${ H { #,{ H,(A$):HH{ H K{ #{ H,(A$){ HH{ { #{# {- |7 D$DRIVE$4|A D(D$)A: [,D: x,D: 3,D: ?,DJ|F LGS 3, pT|K  r|U :: "R",#,"INIT.COM",|_ #, AS A$|i A$(D)|s #, W|t M A$( ) : A$( )|u #,|} FB| FB} A$(( FBM))} #,FB(} FBFB.} 9} FBJ} FB Kb} A$(( FB))p} #,FB|} FBFB} } #} "R",#,"INIT2.COM",} #, AS A$} M A$( ) : A$( )} #,} FB~ FB$~' A$(( FBM))2~1 #,FB>~; FBFBD~E O~O FB`~Y FB Kx~c A$(( FB))~m #,FB~w FBFB~ ~ #~  ~ ,P~ X P~ X,CRD1(X) : "X,CRD2(X)~ X~ ,P M,  : M, ; M, : M, Y "M,  : #M, w M, : M,  (M, : )M,  +M,  : ,M,  M, 3 : M,  : M, `: M,  8,P LGS 8,P"! U 3+ DEBLOCKS ?5 DEDEk? DE DE "TRY AGAIN": + I DE DEDE:DD: DE DE:DDS :,DE : ;,DDȀ] DEDEDDg C:I: X DE  q AL(C)AL(C)I:II: I C:I{ 2 <,AL(): =,AL()< - B c I : IM,I%(I):i y M +  ^, : {, : , : -,  6, : B, Ձ a, : , ま 9, 0 +  +  ^, : {, { 2 <,AL(): =,AL()< - B c I : IM,I%(I):i y M +  ^, : {,