ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееWARMBOOTCOM DEFAULT COMBOOTINV COMB318 HEXM318B ASM[ 6789:;<=BANKSW ASMV M318A HEXM318B HEXееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееГ072182BJT WARMBOOT v2.240 $нs‹1 Н яН2€ Н:Ђ·К:ѓю:В:‚жЯюAКмЦ@хOН<К·Ї2r!"‰!"pн[‰НO!Н·В·Ђ*‰"‰*p#"p}ю Х\НсOНOН<КІ!"‰!"pн[‰НO"Н·ВІЂ*‰"‰*p#"p}ю ХOН*LINK COMTEST128KCOM !"READ ME #RAMDISK COM $%еRAMDISK COM 01RAMDISK DOC2345ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее.sн°!"‰Нs ^#fk^>2lЇ2kХнK‰Н|:kOНv:lOНyН·ВС*‰Ђ "‰нBКn!l4{ѕТ)6+4Г)!"‰:O=OНs ^#fk^ ~2m·Кб>2lЇ2kХнK‰Н|:kOНv:lOНyН‚·ВnС*‰Ђ "‰нBКм!l4{ѕТ™6+4:mѕВ™ НГџ:€_ Н*.<е"~"™ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее$$.Џ"†"Ћ:O=б…o~2‚*#^#VХл‰н°б~юНКnе6Нн[ђ#s#rб·нBе›н°б6Нн[ #s#r*$$.ђ}"лн°Г:‚*$$.•wГ!<~6(цЂ2|бй!|~Gжwё 2<Й:€_ Нн{‹ЙВЫ8 НГџ This program causes MMS CP/M to warm boot from the drive speto be addressed as. This can be any letter from "A" to "P". 7 - RAMDISK will then ask you if you wish to initialize the RAMDISK. The first time you execute RAMDISK following power-up, you MUST respond "Y". This causes the RAMDISK directory to beerwrite the last 1K of the BIOS with unpredictable and possibly disastrous results. 2 - Use SYSGEN to place this new system on your boot disk. 3 - Copy RAMDISK.COM from your MMS Distribution Disk to your boot disk. 4 - Reset your computer and rein drive is the default. $ґ Нн{Йі НГЈ CCP.SYS NOT FOUND $Changing Default Command Drive to .:$CCP SYScified as shown: WARMBOOT d: where d: is the drive name. After warm boot, the system may still need to read the directory of the logged-in drive, but the drive doesn't need to contain a valid copy of CP/M. $ Unable to write CCP.SYS to specifiГ052682BJT DEFAULT v2.240 $нs15 Н:Ђ·К›:ѓю:В›:‚жЯЦ@хъ›Ж@юQТ›2лЙ Н яН2 НоН<КЁЇ2ЂН!"о!Н·ВЁс2яо"НоН:_ НГProgram DEFAULT changes the default command drive specified by the last byte-boot using the disk SYSGENed in the above steps. 5 - Execute RAMDISK.COM by typing "RAMDISK" in response to the CP/M "A>" prompt. 6 - When RAMDISK prompts you for the "Logical Disk Address", enter the letter for the drive you wish the RAMDISK ---- To set the logical drive address: 0339H 02EH drive 1=B:, 2=C:, etc. To clear the RAMDISK directory each time RAMDISK.COM is executed: 0451H 011H 0C3H Act like answer was "Y" 0452H 0C0H 07EH 0453H 001H 001H To NOT clear the ded drive $ Not enough room for BDOS on system tracks$ CCP.SYS NOT FOUND $CCP SYSГГГГГГf t in the CCP. Called as: DEFAULT d: where d: specifies the new default drive. If '@:' is specified, the currently logged-in drive is the default. $ґ Нн{Йі НГЈ CCP.SYS NOT FOUND $Changing Default Command Drive to .:$CCP SYSу!А н°ГА>УтГB318 HEX M318B HEX M318B ASM]M318A HEX93E03D3D3D3E3D3DB3E0FD3D4D3E4D35C :1022E000DCDBD5DBE5DBDDDBD0DBE0DBD8C3700797 :1022F0003E20D3F2310000C30016000000000000B1 :1023000000000000000000000000000000000000CD :1023100000000000000000000000000000000000BD :1023200000000000000000000000000000000000ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее; 9/2/82 10:35 BJT ********** CP/M DISK I/O ROUTINES ********** ********** ********** ********************************************* ****** MACRO ASSEMBLER DIRECTIVES ********** TITLE 'Invisible Disk Driver' MACLIB Z80 ; USE Z80 LIBRARY this device to be extremely useful for speeding editing, assemblies, and any disk-intensive I/O operations. As an example of the incredible speed of the RAMDISK, try executing MBASIC from a normal disk drive. You will see that it takes several secondsAD :10233000000000000000000000000000000000009D :10234000000000000000000000000000000000008D :10235000000000000000000000000000000000007D :10236000000000000000000000000000000000006D :102370000000000000000000000000000000000C51 :10238000000020000000000000:040000000001FFFFFD :10228000C305000028E1310001E53A0400D628C06A :102290001100072100003A0300C6020E00B71FCB51 :1022A0001947EDB0F3AFD3D4D3E4D3DC3E03F680CB :1022B000D3D3D3E3D3DB210C007DD3D07CD3D12186 :1022C0000C007DD3E07CD3E12180017DD3D87CD389 :1022D000D $-MACRO ; DISABLE MACRO EXPANSIONS ********************************************* DW MODLEN,BUFLEN BASE EQU 0000H ; ORG FOR RELOC ***** PHYSICAL DRIVES ARE ASSIGNED AS FOLLOWS ***** ***** ***** ***** 40 112K INVISIBLE DISK DRIVE before the "Ok" prompt appears. Next use PIP to copy MBASIC.COM to the RAMDISK, and again execute it. You will see the "Ok" prompt appear in under 1 second! ext use PIP to copy MBASIC.COM to the RAMDISK, and again execute it. You will see the "Ok"00000000010240EA :10239000000000000000000000000000000000003D :0000000000 00000007D :10236000000000000000000000000000000000006D :102370000000000000000000000000000000000C51 :10238000000020000000000000 ***** ***** ***** *************************************************** *************************************************** ** PORTS AND CONSTANTS *************************************************** GP EQU 0F2H ; GP PORT BIT$MASK EQU ******* ** OVERLAY MODULE INFORMATION ON BIOS *************************************************** ORG PATCH DS 51 ; JUMP TABLE DSK$STAT: DS 1 STEPR: DS 1 ; MINI-FLOPPY STEP RATE SIDED: DS 3 ; SIDE CONTROL FOR EACH DRIVE (0-SINGLE,1=DOUBLE) DS BASE ; MODULE BASE COMBUF EQU BASE+0C000H ; COMMON BUFFER BUFFER EQU BASE+0F000H ; MODULE BUFFER GETCHR EQU PATCH+303H PUTCHR EQU PATCH+306H *************************************************** ** PAGE ZERO ASSIGNMENTS ***************************AD$MEM JMP WRITE$MEM DB '77318 ',0,'Invisible Disk w/ System Space ',0,'2.242$' OFF EQU 3 ;NUMBER OF SYSTEM TRACKS DRM EQU 64-1 ;# OF DIRECTORY ENTRIES DIR EQU OFF*32*128+DRM*32 ; FIRST BYTE OF LAST DIR ENTRY MEM$BASE: DW 0,0,0,0,DIRBUF,D0CAH ; MEMORY MAP BIT MASK ESC EQU 1BH CR EQU 0DH LF EQU 0AH BEL EQU 07H *************************************************** ** MEMORY BANK CONSTANTS FOR MAPPING *************************************************** BANKA EQU 00H BANKB EQU 20H 4 ; FOR EIGHT-INCH DRIVES MIXER: DB 40 DS 15 ; LOGICAL-PHYSICAL DRIVE TABLE DRIVE$BASE: DB 40,41 ; DRIVE MODULE BASE TABLE DW MBASE DS 28 TIME$OUT: DS 3 NEWBAS: DS 2 NEWDSK: DS 1 NEWTRK: DS 1 NEWSEC: DS 1 HRDTRK: DS 2 DMAA: DS 2 ************************ ORG 0 ?CPM: DS 3 ?DEV$STAT: DS 1 ?LOGIN$DSK: DS 1 ?BDOS: DS 3 ?RST1: DS 3 ?CLOCK: DS 2 ?INT$BYTE: DS 1 ?CTL$BYTE: DS 1 DS 77 ?FCB: DS 36 ?DMA: DS 128 ?TPA: DS 0 ********************************************PB,CSVCM,ALV3 DPB: DW 32 ; SPT DB 3,7,0 ; BSH, BLM, EXM DW 112-(4*OFF)-1,DRM ; DSM, DRM DB 11000000B,0 ; AL0, AL1 DW 0,OFF ; CKS, OFF ** mode bytes DB 0,80H,0,0,80H,0 ; IGNORE MODE BYTE ; ; SELECT DISK FUNCTION ; SEL$MEM: MVI BANKC EQU 04H BANKD EQU 24H BANKE EQU 10H BANKF EQU 30H BANKG EQU 14H BANKH EQU 34H *************************************************** ** LINKS TO REST OF SYSTEM *************************************************** PATCH EQU BASE+1600H MBASE EQU PAGE *************************************************** ** START OF RELOCATABLE DISK I/O MODULE *************************************************** ORG MBASE ; START OF MODULE JMP INIT ;INITIALIZE FIRST TIME, SELECT THEREAFTER JMP RE C,0 ; LOGICAL DRIVE NUMBER LXI D,MEM$BASE ; DISK PARM HEADER RET ; ; READ DISK FUNCTION READ$MEM: SSPD OLDSP ; SAVE CALLERS STACK LXI SP,STACK ; AND GET A NEW ONE CALL CALCUL ; CALCULATE DISK PARAMETERS CALL SETMEM ; MAP IN APPROPRIAy, with no initialization necessary, but ; ; -----> A KEY-LOCK SEQUENCE IS REQUIRED TO ACCESS THE OTHER 112K. <----- ; -----> THE KEY-LOCK SEQUENCE IS OUTPUT BY MAGNOLIA'S CP/M, SO IF <----- ; -----> YOU USE MMS CP/M, DO NOT BOTHER WITH THE KEY-E MEMORY CONFIGURATION ; WREND: LSPD OLDSP ; RESTORE STACK POINTER XRA A ; NO ERRORS RET PAGE CALCUL: ; CALCULATE DISK PARAMETERS LHLD HRDTRK ; REQUESTED TRACK DAD H ; *2 DAD H ; *4 DAD H ; *8 DAD H ; *16 DAD H ; *32 LDCHANGE THE MEMORY CONFIGURATION AS IT IS BEING OUTPUT, thus ; possibly switching the block holding the program outputting the sequence, ; with the result that something else (Code? A data table? 'INVISIBLE DISK' ; files?) is executed. The Key-Lock seqTE BANK LHLD SECLOC ; GET 128 BYTES FROM THE DISK LXI D,MYBUF PUSH D CALL MOVMEM CALL RESMEM ; RESTORE MEMORY CONFIGURATION POP H LDED DMAA CALL MOVMEM JR WREND ; ; WRITE DISK FUNCTION ; WRITE$MEM: SSPD OLDSP ; SAVE CALLERS STACLOCK SEQUENCE. <----- ; ; A specific sequence of bytes (the Key-Lock sequence) must be output to ; port 0F2H before the block switching feature is activated (before any outputs ; to this port will affect the memory configuration). The first time ; ; Accessing the Magnolia Microsystems 128K RAM Board: ; ; The MMS 128K RAM board doubles as the upper 16K of a standard 64K memory ; system and as two 56K blocks of RAM accessible through block switching. The ; 16K section is accessed normalluence may be output ONCE after the ; system is powered-up or reset without this occurring, and this is done by ; Magnolia Microsystems CP/M, so you don't have to bother if you are running ; MMS CP/M. If you are running Zenith CP/M, you will have to do K LXI SP,STACK ; AND GET A NEW ONE CALL CALCUL ; CALCULATE DISK PARAMETERS LHLD DMAA ; GET 128 BYTES FROM DMAA LXI D,MYBUF PUSH D CALL MOVMEM CALL SETMEM ; MAP IN APPROPRIATE BANK LDED SECLOC POP H CALL MOVMEM CALL RESMEM ; RESTORthis ; sequence is output, no block switching will take place, but the block ; switching feature will be activated (further outputs to this port will change ; the memory configuration). ONCE THE SEQUENCE HAS BEEN OUTPUT, REPEATING THE ; SEQUENCE WILL so. ; If a program does not know whether the Key-Lock sequence has been ; output, it may safely output the sequence if it is in the top 8K of RAM ; (locations 0E000H to 0FFFFH) when it does so. Repeatedly outputting the ; sequence will have no ef | | | ; | | | | 0 | 0 | ; | | | | | | ; 56K- + 0 + 0 + +-------+-------+ ; | | | | | | ; | | | standard configuration. ; 00001000B ; 00100010B <---- Final byte sets up the system memory as 64K of RAM, and ; turns on the 2 millisecond clock. ; Interrupts may be re-enabled after the sequence has been output. PAGE ; ; ; Memory Maps Available:A000E1CDF500CDE900ED7B2201AFC92A741640 :1000B00029292929293A731616005F19E511C0016B :1000C000ED52D13E34D2CB00EB3E1432210129292E :1000D0002929292929221F01C9212101F33A0D00CB :1000E000322401E6CAB6D3F2C93A2401E6FED3F2BD :1000F000320D00FBC9018000EDB0C977231fect if the outputting is done by a program running ; in these locations. ; ; Key-Lock Sequence: ; The Key-Lock sequence to be output to port 0F2H is: ; FIRST, DISABLE INTERRUPTS!!!! ; 00000100B Note: Leave the 2 millisecond clock off (bit 1 = 0) wh:0400000000030E00EB :01163C002885 :04164C002829000049 :10000000C36A01C36100C38500373733313820002C :10001000496E76697369626C65204469736B202050 :100020002D202066696C6573206F6E6C792020002E :10003000322E32343224000000000000000056C08E :10004000460000F000 ; ; | | ; | - MPM Map: 16K common block - | | ; | | - CPM Map: 8K common block - | ; | | | | ; 64K- +-------+-------+---------------+-------+-------+ ; | | | 0FCCDA3 :10010000D9000610C5212501CDF500C110F611E07A :1001100007211C02010600EDB0CDE900C3A70000D5 :1001200000100000001B711B5938201B451B5D246B :1001300024ED7322013100032100004648C5E5CDBE :10014000D900E1C104567042C5E5CDE900E1C17EA8 :10015000B9F5C5E5CDD90ile ; 00001100B this sequence is being output, and disable all interrupts. ; 00000100B Interrupts vector through locations 0000H to 0038H, and those ; 00001000B locations may not be valid when the interrupts occur if the ; 00001100B memory is not in a F020000307006F003F00C0F2 :1000500000000000000080000080000E001136004B :10006000C9ED732201310003CDAD00CDD9002A1FA7 :1000700001112501D5CDF500CDE900E1ED5B761646 :10008000CDF5001822ED732201310003CDAD002A19 :100090007616112501D5CDF500CDD900ED5B1F01F8 :10000E1C170CDE900F1ED7B80 :100160002201373FC821220237C9215B00E5220165 :10017000003A7016FEE0213702D43101D2D701CD0A :100180009B01216402CDEF01CD0319CDCA01219756 :10019000012204002207003E01B7C9E5212D01CD4F :1001A000EF01217931222E01CD0319FE0D281021F6 :1001B008 :100320004120101200000900400802084108909284 :1003300049249202412040404889244040920102D1 :100340004100042000000000000000000000000048 :10035000000000000000000000000000000000009D :0000000000 7265737320616E797C :10027000206B6579241B6A1B78311B701B59382051 :10028000241B6B24000000000000000000000000A0 :10029000000000000000000000000000000000005E :1002A000000000000000000000000000000000004E :1002B000000000000000000000000000000000003E :1002C00000:0400000000030E00EB :01163C002885 :04164C002829000049 :10000000C36A01C36100C38500373733313820002C :10001000496E76697369626C65204469736B2077F9 :100020002F2053797374656D2053706163652000D0 :10003000322E32343224000000000000000056C08E :10004000460000F00002D0177233624E5CD0319E1FE0D20F3212F :1001C0007502CDEF01E1CDEF01C9212501CDEF0190 :1001D000218102CDEF01C9CDFC01C806803EE52199 :1001E0002501110000ED732201310003C3FB003E25 :1001F00024BEC84EE5CD0619E12318F3310003CD26 :10020000D90021E007111C0206061ABE200413 JMP INIT ;INITIALIZE FIRST TIME, SELECT THEREAFTER JMP READ$MEM JMP WRITE$MEM DB '77318 ',0,'Invisible Disk ',0,'2.241$' OFF EQU 3 ;NUMBER OF SYSTEM TRACKS DRM EQU 64-1 ;# OF DIRECTORY ENTRIES DIR EQU OFF*32*128+DRM*32 ; FIRST BYTE OF 0000000000000000000000000000002E :1002D000000000000000000000000000000000001E :1002E000000000000000000000000000000000000E :1002F00000000000000000000000000000000000FE :100300002480000000000001540000010924912114 :1003100020924891122101000104011020100000DF0200003070063003F00C0FE :1000500000000003000080000080000E0011360048 :10006000C9ED732201310003CDAD00CDD9002A1FA7 :1000700001112501D5CDF500CDE900E1ED5B761646 :10008000CDF5001822ED732201310003CDAD002A19 :100090007616112501D5CDF500CDD900ED5B1F01F8 :100023A0 :1002100010F8F5CDE900F1ED7B2201C91F3F2F2732 :1002200023221B45074D656D6F7279206D6170202B :100230006572726F7221241B4507496E7669736976 :10024000626C65206469736B206D6F64756C6520EA :1002500062656C6F772035364B20626F756E646116 :1002600072792124202D2050LAST DIR ENTRY MEM$BASE: DW 0,0,0,0,DIRBUF,DPB,CSVCM,ALV3 DPB: DW 32 ; SPT DB 3,7,0 ; BSH, BLM, EXM DW 112-(4*OFF)-1,DRM ; DSM, DRM DB 11000000B,0 ; AL0, AL1 DW 0,OFF ; CKS, OFF ** mode bytes DB 0,80H,0,0,80H,0 ; IGNORE MODE BYTEA000E1CDF500CDE900ED7B2201AFC92A741640 :1000B00029292929293A731616005F19E511C0016B :1000C000ED52D13E34D2CB00EB3E1432210129292E :1000D0002929292929221F01C9212101F33A0D00CB :1000E000322401E6CAB6D3F2C93A2401E6FED3F2BD :1000F000320D00FBC9018000EDB0C9772317265737320616E797C :10027000206B6579241B6A1B78311B701B59382051 :10028000241B6B24000000000000000000000000A0 :10029000000000000000000000000000000000005E :1002A000000000000000000000000000000000004E :1002B000000000000000000000000000000000003E :1002C0000002D0177233624E5CD0319E1FE0D20F3212F :1001C0007502CDEF01E1CDEF01C9212501CDEF0190 :1001D000218102CDEF01C9CDFC01C806803EE52199 :1001E0002501110030ED732201310003C3FB003EF5 :1001F00024BEC84EE5CD0619E12318F3310003CD26 :10020000D90021E037111C0206061ABE200413TACK AND RETURN PAGE ; DATA STORAGE AND BUFFERS ; SECLOC: DW 0 DSKBNK: DB BANKE ; SO FILLBYT CAN HIT DIRECTORY WITH >1 SYS TRK OLDSP: DW 0 GPDATA: DB 0 MYBUF: CHRBFR: DB ESC,'q',ESC,'Y8 ',ESC,'E' ; NORMAL VID, CURSOR TO 25, CLEAR TRNMSG: 0FCCDA3 :10010000D9000610C5212501CDF500C110F611E07A :1001100037211C02010600EDB0CDE900C3A70000A5 :1001200000100000001B711B5938201B451B5D246B :1001300024ED7322013100032100004648C5E5CDBE :10014000D900E1C104567042C5E5CDE900E1C17EA8 :10015000B9F5C5E5CDD900000000000000000000000000000002E :1002D000000000000000000000000000000000001E :1002E000000000000000000000000000000000000E :1002F00000000000000000000000000000000000FE :100300002480000000000001540000010924912114 :1003100020924891122101000104011020100000D2370 :1002100010F8F5CDE900F1ED7B2201C91F3F2F2732 :1002200023221B45074D656D6F7279206D6170202B :100230006572726F7221241B4507496E7669736976 :10024000626C65206469736B206D6F64756C6520EA :1002500062656C6F772035364B20626F756E646116 :1002600072792124202D2050DB ESC,']$$' ; EXTRA $ FOR y1 (DISABLE 25TH)INSERTED LATER INIT: LXI H,SEL$MEM PUSH H ; 'RETURN' TO SELECT AFTER INIT SHLD MBASE+1 ; LATER SELECTS GO DIRECT LXI H,TRNMSG ; TELL TERMINAL TO TRANSMIT 25TH LINE CALL PRINT LXI H,'y1' ; DISABLES0E1C170CDE900F1ED7B80 :100160002201373FC821220237C9215B00E5220165 :10017000003A7016FEE0213702D43101D2D701CD0A :100180009B01216402CDEF01CD0319CDCA01219756 :10019000012204002207003E01B7C9E5212D01CD4F :1001A000EF01217931222E01CD0319FE0D281021F6 :1001B008 :100320004120101200000900400802084108909284 :1003300049249202412040404889244040920102D1 :100340004100042000000000000000000000000048 :10035000000000000000000000000000000000009D :0000000000 | | | ; | | | | | | ; 48K- +-------+-------+ 0 + + + +-------+-------+ ; | | | | | | | | ; | | | | | ; the 2 millisecond clock on would be a byte of 15H.) ; ; Bits ; Map D5 D4 D2 Byte Notes ; -------------------------------------------------------------- ; A 0 0 0 00H (reset) ; B 1 0 0 20H (Std. CP/M) ; C 0 0 | | | 2 | 1 | O | 0 | | | | ROM | | ; | | | | | M | | | | | | | ; 0K- +-------+-------+---+---+---+---+-------+-------+ +-------+-------+ ; | F | E | DES Z80 INSTRUCTIONS AND MUST BE ** ASSEMBLED WITH DIGITAL RESEARCH'S MAC(tm) ** MACRO ASSEMBLER. ** ** CP/M IS A TRADEMARK OF DIGITAL RESEARCH ** ** IF YOU ARE INTENDING TO RE-MAP MEMORY YOU NEED TO ** ** GUARANTEE ** THAT ALL DATA AND PROGRAM LOCAT | | | ; ~ ~ ~ ~ ~ ~ ~ CPU board ~ ; 2 1 1 2 RAM chips ; ~ ~ ~ ~ ~ ~ ~ only ~ ; | | | | | | 1 04H Use to initialize page 0 of maps E, G. ; D 1 0 1 24H Use to initialize page 0 of maps F, H. ; E 0 1 0 10H ; F 1 1 0 30H ; G 0 1 1 14H ; H 1 1 1 34H PAGE ; ; ; **************************** | C | A | B | G | H | | Maintenance | ; ; ; Port 0F2H Output Bit Patterns (bits are numbered from 0 to 7): ; ('Byte' is if all other bits of the port are 0. For example, ; the 2 millisecond clock enable bit is bit 1, and map G with IONS WHICH ** WILL BE USED ARE IN THE TOP 8K OR 16K OF MEMORY, ** BECAUSE AS THE MEMORY IS BEING REMAPPED THE PROGRAM DOING ** THE REMAPPING MAY DISAPPEAR, AS THE MEMORY WHICH CONTAINS ** THE PROGRAM IS SWITCHED OUT. THIS MAY BE DONE BY BUILDING ** A | (used for | ; | | | | | | | maintenance) | ; 8K- + + +---+---+---+ + + + +-------+ + ; | | | | | R | | | | | | | ; *********************** ** MACRO ASSEMBLER DIRECTIVES *************************************************** TITLE 'BANKSW - bank switching routines' MACLIB Z80 $-MACRO *************************************************** ** ** NOTE THIS CODE US CP/M SYSTEM SMALLER THAN 64K AND USING THE EXTRA SPACE ** ABOVE CP/M FOR YOUR PROGRAM. THE PROGRAM WOULD NEED ** TO RELOCATE ITSELF INTO UPPER MEMORY BEFORE EXECUTION. ** ** BEFORE EACH MAP-REMAP OPERATION, THE CALLERS STACK ** SHOULD BE REPLACED. I; THESE BANK CONSTANTS ARE BANKB EQU 00100000B ; TO BE ORed WITH THE CONTENTS BANKC EQU 00000100B ; OF INT$BYTE AND THEN OUTPUT BANKD EQU 00100100B ; TO THE 'GP' PORT. THESE ARE BANKE EQU 00010000B ; THE APPROPRIATE MAP BITS FOR BANKF EQU 00110000B ;AT CODE ALSO BEFORE WRITING YOUR OWN. *************************************************** PAGE *************************************************** ** PORTS AND CONSTANTS *************************************************** GP EQU 0F2H ; GP PTHIS ROUTINE MUST RUN IN THE TOP 8K OF MEMORY! <----- ; KEY$LOCK: LXI H,LOCK$SEQ ; POINT TO THE TABLE OF DATA TO BE OUTPUT MVI B,LOCK$LEN ; LENGTH OF THE TABLE MVI C,GP ; PORT TO OUTPUT THE SEQUENCE TO DI ; SHUT OFF INTERRUPTS OTIR ; Z-80 T SHOULD BE RESTORED WHEN THE ** OPERATION IS COMPLETE. ** ** NOTE THE USE OF AN INTERNAL DATA BUFFER. THIS IS BECAUSE ** ALL DATA MUST BE MOVED INTO THE BUFFER BEFORE ANY MAPPING ** OPERATION IS PERFORMED WHICH WOULD MAKE IT INACCESSIBLE. ** ** AL THE MAP PROM. THE BANK LETTERS BANKG EQU 00010100B ; MATCH THE MAP DESCRIPTIONS BANKH EQU 00110100B ; IN THE DOCUMENTATION. *************************************************** PAGE ORG MBASE ; START OF MODULE BEGIN: SHLD YOURBUF ; USERSORT BIT$MASK EQU 11001010B ; MEMORY MAP BIT MASK INT$BYTE EQU 00DH ; COMMON STORAGE *************************************************** ** MEMORY BANK CONSTANTS FOR MAPPING *************************************************** BANKA EQU 00000000B BLOCK OUTPUT INSTRUCTION EI ; INTERRUPTS BACK ON (YOU MAY NOT WANT THIS) RET ; DONE. ; ; TABLE OF DATA THAT UNLOCKS THE BLOCK SWITCHING FEATURE ; LOCK$SEQ: DB 00000100B ; DURING SEQUENCE, 2 MSEC CLOCK IS OFF. DB 00001100B ; THIS IS IMPORTANTHOUGH THIS IS NOT A PROGRAM WHICH WILL RUN, IT DOES ** GIVE EXAMPLES OF FUNCTIONS WHICH NEED TO BE PERFORMED TO ** ACCESS THE EXTENDED MEMORY. THESE ROUTINES OR ONES VERY ** SIMILAR ARE USED IN THE INVISIBLE DISK DRIVER. YOU MAY ** WANT TO EXAMINE TH BUFFER PASSED IN H,L SDED DTALOC ; FINAL DATA LOCATION IN D,E STA DSKBNK ; REQUESTED BANK PASSED IN 'A' ; CALL YOUR FUNCTION RET ; ; OUTPUT THE KEY-LOCK SEQUENCE TO ENABLE BLOCK SWITCHING ; AND END WITH THE 64K MEMORY CONFIGURATION. ; -----> T; THE INTERRUPT VECTORS DB 00000100B ; IN PAGE 0 WILL PROBABLY NOT BE THERE DB 00001000B ; IF AN INTERRUPT OCCURS. DB 00001100B DB 00001000B DB 00100010B ; SET 64K OF RAM, TURN ON 2 MSEC CLOCK. LOCK$LEN EQU $-LOCK$SEQ ; LENGTH OF SEQUENCE ; ; BANK. ; NOTE HOW THE EXISTING CONTENTS OF THE INT$BYTE ARE ; SAVED. YOU MUST BE CAREFUL NOT TO CHANGE ANYTHING ; EXCEPT THE MAP BITS. THE EXCEPTION IS BIT 0 WHICH IS ; THE SINGLE STEP BIT. THIS ** MUST ** ALWAYS BE ZERO ; OR MEMORY REFRESH MAY BE DEXTENDED MEMORY ; WRITE$MEM: SSPD OLDSP ; SAVE CALLERS STACK LXI SP,STACK ; AND GET A NEW ONE LHLD YOURBUF ; GET 128 BYTES FROM CALLERS BUFFER LXI D,MYBUF ; AND INSTALL IT IN THE INTERNAL PUSH D ; BUFFER CALL MOVMEM CALL SETMEM ; MAP THE 'SETMEM' ROUTINE IN THAT ; IT RESTORES THE CONFIGURATION TO WHAT IT WAS WHEN ; 'SETMEM' WAS CALLED. ; RESMEM: LDA GPDATA ; OLD GP PORT INFO ANI 0FEH ; REMOVE SINGLE STEP OUT GP STA INT$BYTE ; TO CLEAN UP INFORMATION EI ; AND ENABLE INT GET 128 BYTES OF DATA FROM EXTENDED MEMORY ; READ$MEM: SSPD OLDSP ; SAVE CALLERS STACK LXI SP,STACK ; AND GET A NEW ONE CALL SETMEM ; MAP IN APPROPRIATE BANK LHLD DTALOC ; GET 128 BYTES FROM LXI D,MYBUF ; EXTENDED MEMORY PUSH D CALL MOISABLED. ; ; NOTE INTERRUPTS BEING DISABLED. ON EVERY TICK OF THE ; SYSTEM CLOCK, THE CONTENTS OF INT$BYTE ARE OUTPUT TO ; PORT 'F2'. WE MUST BE CAREFUL TO GUARANTEE THE RIGHT ; BANK OF MEMORY IS MAPPED IN WHEN THIS FUNCTION IS ; PERFORMED. ; SETIN APPROPRIATE BANK LDED DTALOC ; AND MOVE DATA TO THE POP H ; REQUESTED LOCATION. CALL MOVMEM CALL RESMEM ; RESTORE MEMORY CONFIGURATION LSPD OLDSP ; RESTORE STACK POINTER RET PAGE ; THIS ROUTINE ACTUALLY SELECTS THE DESIRED MEMORYERRUPTS RET ; ; THIS ROUTINE MOVES 128 BYTES OF DATA BETWEEN BUFFERS ; MOVMEM: LXI B,128 LDIR ; Z80 BLOCK MOVE INSTRUCTION RET PAGE ; DATA STORAGE AND BUFFERS ; OLDSP: DW 0 ; CALLERS STACK POINTER FOR RETURN DTALOC: DW 0 ; NEWVMEM ; MOVE DATA INTO INTERNAL BUFFER CALL RESMEM ; RESTORE MEMORY CONFIGURATION POP H LDED YOURBUF ; GET THE DESTINATION ADDRESS CALL MOVMEM ; AND PUT THE DATA THERE LSPD OLDSP ; RESTORE STACK POINTER RET ; ; PUT 128 BYTES OF DATA INTO MEM: LXI H,DSKBNK DI ; DISABLE INTERRUPTS LDA INT$BYTE ; OLD GP PORT INFO STA GPDATA ; SAVE FOR RESTORATION LATER ANI BIT$MASK ; REMOVE MEMORY MAP BITS ; AND SINGLE STEP ORA M ; NEW MAP BITS OUT GP RET ; ; THIS IS THE COMPLEMENT OF LOCATION FOR WRITTEN DATA DSKBNK: DW 0 ; BANK OF MEMORY TO USE GPDATA: DW 0 ; EXISTING INT$BYTE YOURBUF: DW 0 ; LOCATION OF CALLERS BUFFER ; ; INTERNAL DATA BUFFER ; MYBUF: DS 128 DS 20 STACK: DS 0 ; AND STACK END DW 0 ; LOCATION OЖAн°н°Й·|g}o ВЙ)}l&Л·И#Й>Л:Л В/^·ИЛ=В?ЙНДШю:ВFЇ2ЁНљ2§·7ИНљхНљoсg"©Нљ:§·КFНљх:§=2§ВЋНљ:Ё·КЋс7Йс·*©е#"©бЙНДНёGЕНДНёБ°G:ЁЂ2ЁxЙЖЖЪїЖЖжЙ*¤:¦=тжЂНpН·7А>!Ђ2¦~#"¤·Й* }·ВЙ|юВЙ*њfollowing command format: LINK param1 {param2} param1 Name of module to link, assumed type of ".HEX" {param2} (optional) Name of MOVCPM type file, default is "MOVCPM.COM"$ "d:filename.typ" not found$ "d:filename.typ" is unrecognizable.$ Error duБЪЙGнC ! "ћНlЪЙOЕНlБЪЙGнCўxЎюяКрНlЪЙO|юВЙ}&Ђ ю<К~qНlЪЙO|юК9* yХеНlб+СO|µВYнSљЕ*Н "«*њНт·ВПЂ л лнK«нC«x±В{*н[љл* НБyнSћХеНlб+СТ¬|µВЙL*љ Н+еЭб!М :—W#x±КъЛТл~юТл‚w#}жВШЭ#Э^ГШЭ*ћЭ+6E76697369626C655C :10027000206469736B206D6F64756C652062656CBA :100280006F772035364B20626F756E64617279210D :1002900024202D20507265737320616E79206B6568 :1002A00079241B6A1B78311B701B593820241B458D :1002B00007457261736520696E76697369626C6562 :1002C00020Ђ Нт·ВПНlЪЙO|ю"ВЙ}юЂВЙyЂ К7ЕХНlСБЪЙГ$!Ђ Нч·ВЮ!Ђ Нч·ВЮн[њ!Ђ л ЕХНlСБЪЙ В^*њЂ Нч·ВЮГПе~юяКЏ#ВЃГђqНlOСЪЙ|юВЙ}юLКЁлГ~Ђ &~#ѕКД№Кк###В°Гд+q#еЕНlБOСЪЙ|юВSК9лГЗеХн[·нRСбЙ1,і Н:]ю ring write, "d:filename.typ" may be destroyed.$ Link Completed$ Too Many Modules Installed$ Module is already Linked$ Linking "d:filename.typ" module into "d:filename.typ"$и НГ!ґНх°ГµpГТ,!ТНхОГнхГµ@Гн^ НГЧл~#=т:жЭ~э!нK н[”y°КXyжВ&ЭwЭ#Э~ЭЛТSэ~юЪJюрЪSжgэnяэuяэtГS:—э†эwэ#ГЭw* ]TНн[Н "«*њНч·ВЮЂ л лнK«нC«x±Вv*Ѓ н[ "Ѓ *ѓ н[ў"ѓ !Ђ Нч·ВЮ!Ђ Нч·ВЮLНюяКЮ/ Н!,\н°LНюяКЮГ!Гщ"еХЕ}|Гр051282DRMЛТЩипН2НГыН Н» Нµ ГыMOVCPM COM! $$$ HEX LINK version 2.240 (c) 1982 Magnolia Microsystems$ This program uses the КІ!\p н°:mю К,!m-:uю В*н°:l2,2<pНюяpКЅ!,Lн°!<н°LНюяLКЅ!<н°,! НхLНюяКП!"n!…pНх!ў,Нхz Н!Ђ Нт·ВП*ѓ А"”*Ѓ я"–*Ѓ Н"*Ѓ "њ!Ђ Нт·ВП!Ђ"¤Ї2¦НFЪЙO|µВЙЕНlo>g"mНБLНСбЙ л лнK«нC«x±Вv*Ѓ н[ "Ѓ *ѓ н[ў"ѓ !Ђ Нч·ВЮ!Ђ Нч·ВЮLНюяКЮ/ Н!,\н°LНюяКЮГ!Гщ"еХЕ}|В:5 ·В<25 Ї2+ НќН6:5 юВ&!і НB!a НB*# #"# ГЫН Н«Н¶НБНМНЧНвГдН»Нн*6 #"6 *# #"# :6 жВњ!: Н(щ"3 !4 Ѓ Нk+Нk!7 ђ Нk+Нk!a НBНЏЙ>!r Гш>!j Гш>!b @Гш>!Z `Гш>!R ЂГш>!J Гш>!B АГш>!: аГш2* ". л"fect if the outputting is done by a program running ; in these locations. ; ; Key-Lock Sequence: ; The Key-Lock sequence to be output to port 0F2H is: ; FIRST, DISABLE INTERRUPTS!!!! ; 00000100B Note: Leave the 2 millisecond clock off (bit 1 = 0) wh:% †w#"( Вчx±ВнЙ:* Ж$2K !I НBЙ:* Ж$2R !P НBЙ*# DM*, Нq#pНЉВ=ЙЇ20 *# DM*, Н~№Дr#~ёД~НЉВY:0 ·ЙЕAН‡Б>20 ЙН‡>20 ЙЕХеЁG*. xGТњ4Вњ5# В‘х*8 >Н(Т®+"8 >я25 сбСБЙ!7 ? Нk+Нk!; НBЙ:* Ж$2Y [ *. ~·КхНk# ВЯ!W НBЙ> Гзехuence may be output ONCE after the ; system is powered-up or reset without this occurring, and this is done by ; Magnolia Microsystems CP/M, so you don't have to bother if you are running ; MMS CP/M. If you are running Zenith CP/M, you will have to do , НН2Н#НJКНПНeНЏЙ!6 DЇw#В!Й…oР>„gЙеХЕх!6 D:+ юЪQКKГTѕ ГTz н°сБСбЙеХЕх!7 :+ юЪКv* Г… т Г…Ш Й Нk+Нk!9 ЕСНk+НkсБСбЙеХЕх:+ юЪЦКБнKюїн[А>4УтНх!ГинKюїн[А>УтНх!ѕ ГинKюїн[А> УтНх!z 6 Dн°сБСбЙех*юї·нBМГ!(c) Magnolia Microsystems 1982уЇУ12!^НBНЇ2+ НюН+Н0<2+ Н0<2+ Н0Ї2+ 25 ! "ђ "’ "Ѓ "ѓ !"3 Нo"# !a НBН+!%НBНN:6 юЂВ}*3 |µКџ!ЏНBНLНNГ–!WНB!"6 НЈН!ЅтніГД !D ћ н°!a НB!КНBНН»Г6*6 #"6 *6 }жВ,Н0Н[:+ <ю!D НB:+ Ж0Н-сбЙН(КЫижНЙюaшю{рЦ ЙЫнжЙхЫож0ю0В.Ынж К7сУиЙ~·И#Н-ГBНe@њН(Вax±ВRГLНЙ>Н-Й~жрНЂ~жНЂЙю ъ‡ЖЖ0Й#zіЙН(ИНюRКџНeЙ:* юК12> Ут!^НB! "Й "Л "Ш "Ъ "т "ф " " " " "* ", !a НBНЇ2+ НюН0<2+ Н0<2+ Н0Ї2+ so. ; If a program does not know whether the Key-Lock sequence has been ; output, it may safely output the sequence if it is in the top 8K of RAM ; (locations 0E000H to 0FFFFH) when it does so. Repeatedly outputting the ; sequence will have no ef*А·нRМсбЙех>я25 !z НBННюYК%vН+сбЙех!НBсбЙеХЕх!^НBНюЇ2* юКj/<Ж‡‡‡·!: …o|Оg". НП:* <ГDсБСбЙ!ИНB!vНOН‘Ъђ))))µoyН-кЙЦ0ШЖйШЖтџЖШЖ ·Й!: ~#¶ В©·Кї!НBНLГ№р!н°!р>пНгС!п9щ!пй2% "& л"( *& V#"& *( zWТ25 ГЫx©©©xGyOЙ!]~ЃOНЉВ!~ЃOНЉВ-y2! :]ЃИ!! ·Нk!]ЕНk!mНBНLГWcEy4TEST128K 2.4 - Magnolia Microsystems' z89 Extended-RAM Memory Test Block X Bit Errors Detected in the Bank Pass: Bank Address Range return> to initiate the RAM test - Y5 J Testing Bank 7, Block 0 before relocating.Y5 J Bank 7 is OK. Relocating, testing other blocks.Y5 J ERROR IN BANK 7 -- TESTING BANK 7 FOREVER. REBOOT.Y, K KExtended memory testing begun. Enter an R at passes.K Block 2: errors in passes.K Y"^Y"&Y\<=Y\=>Y7 Y5 J BANK SWITCH ERROR -- Continue test anyway (Y/N)?Y5 J Functional test OK. Shift/Reset to end test, or leave running for mor $‰$H‘ ’A$’I!!$’H$ђ@I$’$H$DI!$’$’I$’$HAH’D’! „‚BA$I$’DI$ђHI$’Iђ$Ђ$ Ђ$’ "$@Hђ$’‰A €"D$€ „Ђђ‚I„ €H„‘$Bђ$„’ ђ@D$B@ђI$’I$‘$H‘$Ђ@$HI$’H7 6 5 4 3 2 1 0 in <==> out 0 0000-1FFF 8k 1 2000-3FFF 2 4000-5FFF 3 6000-7FFF 32k 4 8000-9FFF 5 A000-BFFF 48k 6 C000-DFFF 7 E000-FFFF 64k Enter an R at any time to restart the test. If any time to reset the test. Kesting other blocks.Y5 J ERROR IN BANK 7 -- TESTING BANK 7 FOREVER. REBOOT.Y, K KExtended memory testing begun. Enter an R ate thorough testing.Y5 J Y6 J MEMORY ERRORS IN BANK 7 (E000-FFFF), BLOCK 0 BLOCKING RELOCATION. REBOOT!Y5 J MEMORX PARALYZED DUE TO CHECKSUM ERROR - BANK 7 (E000-FFFF). Sum: Checksum: Y5 J Please remove disk(s) from drive(s), then press 2Нб!еs# В‘В‘: Ут2 * щыЙ ННж_хя НсЙ RAMDISK Logical Address (A-P) ? $Initialize RAMDISK ? $ MS CP/M distribution disk. ** Users of the Heath/Zenith release of CP/M should read the file "RAMDISK.DOC", as it documents the use of the "RAMDISK.COM" program which can be used to add INVISIBLE DISK features to your Zenith CP/M system. Г7ГMГUГEГ]Г†ГГГГ ГГГA##yЦ.2В!'ЇЙ`i"Г`i"Гy=2Г:·ВН¬Н»НбAХНтНшС*лНт* щыЇЙ:·В!*AНтН¬Н»Нбл!AНтНшГуС!9" !AщХЙ*}ю8>ЪМ}Ц8o>42))):_)))))))Йе!: 2жК¶УтбЙЂн°Й:Ут2 !9"€1љ*Н‡~#fo"/ь*DM!е Б~еg.|g Т?Жье*+"}ґбКX-В4б#Г/с*. л!ье ~хwс# Вmб$Н‡*€щыЙй GET 128 BYTES OF DATA FROM EXTENDED MEMORY ; READ$MEM: SSPD OLDSP ; SAVE CALLERS STACK LXI SP,STACK ; AND GET A NEW ONE CALL SETMEM ; MAP IN APPROPRIATE BANK LHLD DTALOC ; GET 128 BYTES FROM LXI D,MYBUF ; EXTENDED MEMORY PUSH D CALL MO** DO NOT execute the file "RAMDISK.COM" without reading and understanding the directions in the file "RAMDISK.DOC". RAMDISK.COM was developed for use by people who are using the Heath/Zenith release of CP/M. Users of the MMS release of CP/M Йяo?Ау: 2 !тніыАН©ВЦAЪTКTюТT29дН©юYК~юNИю ИГjН¬>2Нб!еs# В‘В‘: Ут2 * щыЙ ННж_хя НсЙ RAMDISK Logical Address (A-P) ? $Initialize RAMDISK ? $ VMEM ; MOVE DATA INTO INTERNAL BUFFER CALL RESMEM ; RESTORE MEMORY CONFIGURATION POP H LDED YOURBUF ; GET THE DESTINATION ADDRESS CALL MOVMEM ; AND PUT THE DATA THERE LSPD OLDSP ; RESTORE STACK POINTER RET ; ; PUT 128 BYTES OF DATA INTO MEM: LXI H,DSKBNK DI ; DISABLE INTERRUPTS LDA INT$BYTE ; OLD GP PORT INFO STA GPDATA ; SAVE FOR RESTORATION LATER ANI BIT$MASK ; REMOVE MEMORY MAP BITS ; AND SINGLE STEP ORA M ; NEW MAP BITS OUT GP RET ; ; THIS IS THE COMPLEMENT OF BANK. ; NOTE HOW THE EXISTING CONTENTS OF THE INT$BYTE ARE ; SAVED. YOU MUST BE CAREFUL NOT TO CHANGE ANYTHING ; EXCEPT THE MAP BITS. THE EXCEPTION IS BIT 0 WHICH IS ; THE SINGLE STEP BIT. THIS ** MUST ** ALWAYS BE ZERO ; OR MEMORY REFRESH MAY BE D LOCATION FOR WRITTEN DATA DSKBNK: DW 0 ; BANK OF MEMORY TO USE GPDATA: DW 0 ; EXISTING INT$BYTE YOURBUF: DW 0 ; LOCATION OF CALLERS BUFFER ; ; INTERNAL DATA BUFFER ; MYBUF: DS 128 DS 20 STACK: DS 0 ; AND STACK END DW 0 ; LOCATION OEXTENDED MEMORY ; WRITE$MEM: SSPD OLDSP ; SAVE CALLERS STACK LXI SP,STACK ; AND GET A NEW ONE LHLD YOURBUF ; GET 128 BYTES FROM CALLERS BUFFER LXI D,MYBUF ; AND INSTALL IT IN THE INTERNAL PUSH D ; BUFFER CALL MOVMEM CALL SETMEM ; MAP THE 'SETMEM' ROUTINE IN THAT ; IT RESTORES THE CONFIGURATION TO WHAT IT WAS WHEN ; 'SETMEM' WAS CALLED. ; RESMEM: LDA GPDATA ; OLD GP PORT INFO ANI 0FEH ; REMOVE SINGLE STEP OUT GP STA INT$BYTE ; TO CLEAN UP INFORMATION EI ; AND ENABLE INTISABLED. ; ; NOTE INTERRUPTS BEING DISABLED. ON EVERY TICK OF THE ; SYSTEM CLOCK, THE CONTENTS OF INT$BYTE ARE OUTPUT TO ; PORT 'F2'. WE MUST BE CAREFUL TO GUARANTEE THE RIGHT ; BANK OF MEMORY IS MAPPED IN WHEN THIS FUNCTION IS ; PERFORMED. ; SETееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееIN APPROPRIATE BANK LDED DTALOC ; AND MOVE DATA TO THE POP H ; REQUESTED LOCATION. CALL MOVMEM CALL RESMEM ; RESTORE MEMORY CONFIGURATION LSPD OLDSP ; RESTORE STACK POINTER RET PAGE ; THIS ROUTINE ACTUALLY SELECTS THE DESIRED MEMORYERRUPTS RET ; ; THIS ROUTINE MOVES 128 BYTES OF DATA BETWEEN BUFFERS ; MOVMEM: LXI B,128 LDIR ; Z80 BLOCK MOVE INSTRUCTION RET PAGE ; DATA STORAGE AND BUFFERS ; OLDSP: DW 0 ; CALLERS STACK POINTER FOR RETURN DTALOC: DW 0 ; NEWГр051282DRMЛТЩипН2НГыН Н» Нµ ГыMOVCPM COM! $$$ HEX LINK version 2.240 (c) 1982 Magnolia Microsystems$ This program uses the КІ!\p н°:mю К,!m-:uю В*н°:l2,2<pНюяpКЅ!,Lн°!<н°LНюяLКЅ!<н°,! НхLНюяКП!"n!…pНх!ў,Нхz Н!Ђ Нт·ВП*ѓ А"”*Ѓ я"–*Ѓ Н"*Ѓ "њ!Ђ Нт·ВП!Ђ"¤Ї2¦НFЪЙO|µВЙЕНlЖAн°н°Й·|g}o ВЙ)}l&Л·И#Й>Л:Л В/^·ИЛ=В?ЙНДШю:ВFЇ2ЁНљ2§·7ИНљхНљoсg"©Нљ:§·КFНљх:§=2§ВЋНљ:Ё·КЋс7Йс·*©е#"©бЙНДНёGЕНДНёБ°G:ЁЂ2ЁxЙЖЖЪїЖЖжЙ*¤:¦=тжЂНpН·7А>!Ђ2¦~#"¤·Й* }·ВЙ|юВЙ*њo>g"mНБLНСбЙ л лнK«нC«x±Вv*Ѓ н[ "Ѓ *ѓ н[ў"ѓ !Ђ Нч·ВЮ!Ђ Нч·ВЮLНюяКЮ/ Н!,\н°LНюяКЮГ!Гщ"еХЕ}|following command format: LINK param1 {param2} param1 Name of module to link, assumed type of ".HEX" {param2} (optional) Name of MOVCPM type file, default is "MOVCPM.COM"$ "d:filename.typ" not found$ "d:filename.typ" is unrecognizable.$ Error duБЪЙGнC ! "ћНlЪЙOЕНlБЪЙGнCўxЎюяКрНlЪЙO|юВЙ}&Ђ ю<К~qНlЪЙO|юК9* yХеНlб+СO|µВYнSљЕ*Н "«*њНт·ВПЂ л лнK«нC«x±В{*н[љл* НБyнSћХеНlб+СТ¬|µВЙL*љ Н+еЭб!М :—W#x±КъЛТл~юТл‚w#}жВШЭ#Э^ГШЭ*ћЭ+Ђ Нт·ВПНlЪЙO|ю"ВЙ}юЂВЙyЂ К7ЕХНlСБЪЙГ$!Ђ Нч·ВЮ!Ђ Нч·ВЮн[њ!Ђ л ЕХНlСБЪЙ В^*њЂ Нч·ВЮГПе~юяКЏ#ВЃГђqНlOСЪЙ|юВЙ}юLКЁлГ~Ђ &~#ѕКД№Кк###В°Гд+q#еЕНlБOСЪЙ|юВSК9лГЗеХн[·нRСбЙ1,і Н:]ю ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееring write, "d:filename.typ" may be destroyed.$ Link Completed$ Too Many Modules Installed$ Module is already Linked$ Linking "d:filename.typ" module into "d:filename.typ"$и НГ!ґНх°ГµpГТ,!ТНхОГнхГµ@Гн^ НГЧл~#=т:жЭ~э!нK н[”y°КXyжВ&ЭwЭ#Э~ЭЛТSэ~юЪJюрЪSжgэnяэuяэtГS:—э†эwэ#ГЭw* ]TНн[Н "«*њНч·ВЮЂ л лнK«нC«x±Вv*Ѓ н[ "Ѓ *ѓ н[ў"ѓ !Ђ Нч·ВЮ!Ђ Нч·ВЮLНюяКЮ/ Н!,\н°LНюяКЮГ!Гщ"еХЕ}|ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее*А·нRМсбЙех>я25 !z НBННюYК%vН+сбЙех!НBсбЙеХЕх!^НBНюЇ2* юКj/<Ж‡‡‡·!: …o|Оg". НП:* <ГDсБСбЙ!ИНB!vНOН‘Ъђ))))µoyН-кЙЦ0ШЖйШЖтџЖШЖ ·Й!: ~#¶ В©·Кї!НBНLГ№р!н°!р>пНгС!п9щ!пй2% "& л"( *& V#"& *( zWТВ:5 ·В<25 Ї2+ НќН6:5 юВ&!і НB!a НB*# #"# ГЫН Н«Н¶НБНМНЧНвГдН»Нн*6 #"6 *# #"# :6 жВњ!: Н(щ"3 !4 Ѓ Нk+Нk!7 ђ Нk+Нk!a НBНЏЙ>!r Гш>!j Гш>!b @Гш>!Z `Гш>!R ЂГш>!J Гш>!B АГш>!: аГш2* ". л"25 ГЫx©©©xGyOЙ!]~ЃOНЉВ!~ЃOНЉВ-y2! :]ЃИ!! ·Нk!]ЕНk!mНBНLГWcEy4TEST128K 2.4 - Magnolia Microsystems' z89 Extended-RAM Memory Test Block X Bit Errors Detected in the Bank Pass: Bank Address Range ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее:% †w#"( Вчx±ВнЙ:* Ж$2K !I НBЙ:* Ж$2R !P НBЙ*# DM*, Нq#pНЉВ=ЙЇ20 *# DM*, Н~№Дr#~ёД~НЉВY:0 ·ЙЕAН‡Б>20 ЙН‡>20 ЙЕХеЁG*. xGТњ4Вњ5# В‘х*8 >Н(Т®+"8 >я25 сбСБЙ!7 ? Нk+Нk!; НBЙ:* Ж$2Y [ *. ~·КхНk# ВЯ!W НBЙ> Гзех, НН2Н#НJКНПНeНЏЙ!6 DЇw#В!Й…oР>„gЙеХЕх!6 D:+ юЪQКKГTѕ ГTz н°сБСбЙеХЕх!7 :+ юЪКv* Г… т Г…Ш Й Нk+Нk!9 ЕСНk+НkсБСбЙеХЕх:+ юЪЦКБнKюїн[А>4УтНх!ГинKюїн[А>УтНх!ѕ ГинKюїн[А> УтНх!z 6 Dн°сБСбЙех*юї·нBМ7 6 5 4 3 2 1 0 in <==> out 0 0000-1FFF 8k 1 2000-3FFF 2 4000-5FFF 3 6000-7FFF 32k 4 8000-9FFF 5 A000-BFFF 48k 6 C000-DFFF 7 E000-FFFF 64k Enter an R at any time to restart the test. If Г!(c) Magnolia Microsystems 1982уЇУ12!^НBНЇ2+ НюН+Н0<2+ Н0<2+ Н0Ї2+ 25 ! "ђ "’ "Ѓ "ѓ !"3 Нo"# !a НBН+!%НBНN:6 юЂВ}*3 |µКџ!ЏНBНLНNГ–!WНB!"6 НЈН!ЅтніГД !D ћ н°!a НB!КНBНН»Г6*6 #"6 *6 }жВ,Н0Н[:+ <ю!D НB:+ Ж0Н-сбЙН(КЫижНЙюaшю{рЦ ЙЫнжЙхЫож0ю0В.Ынж К7сУиЙ~·И#Н-ГBНe@њН(Вax±ВRГLНЙ>Н-Й~жрНЂ~жНЂЙю ъ‡ЖЖ0Й#zіЙН(ИНюRКџНeЙ:* юК12> Ут!^НB! "Й "Л "Ш "Ъ "т "ф " " " " "* ", !a НBНЇ2+ НюН0<2+ Н0<2+ Н0Ї2+ any errors occur, see the dealer from whom you purchased the board.Test program relocated here. Y0 Error summary:K Top 8k: errors in passes. K Block 0: errors in passes.K Block 1: errors in any time to reset the test. Kreturn> to initiate the RAM test - Y5 J Testing Bank 7, Block 0 before relocating.Y5 J Bank 7 is OK. Relocating, testing other blocks.Y5 J ERROR IN BANK 7 -- TESTING BANK 7 FOREVER. REBOOT.Y, K KExtended memory testing begun. Enter an R atTHIS FILE SUPPLEMENTS THE PRINTED DOCUMENTATION INCLUDED WITH YOUR RAM BOARD. PLEASE READ IT BEFORE CALLING WITH ANY QUESTIONS. ** The MMS utility "LINK.COM" has been included on this distribution disk, in case it is not present on your original M passes.K Block 2: errors in passes.K Y"^Y"&Y\<=Y\=>Y7 Y5 J BANK SWITCH ERROR -- Continue test anyway (Y/N)?Y5 J Functional test OK. Shift/Reset to end test, or leave running for mor $‰$H‘ ’A$’I!!$’H$ђ@I$’$H$DI!$’$’I$’$HAH’D’! „‚BA$I$’DI$ђHI$’Iђ$Ђ$ Ђ$’ "$@Hђ$’‰A €"D$€ „Ђђ‚I„ €H„‘$Bђ$„’ ђ@D$B@ђI$’I$‘$H‘$Ђ@$HI$’H any time to reset the test. Kesting other blocks.Y5 J ERROR IN BANK 7 -- TESTING BANK 7 FOREVER. REBOOT.Y, K KExtended memory testing begun. Enter an R atMS CP/M distribution disk. ** Users of the Heath/Zenith release of CP/M should read the file "RAMDISK.DOC", as it documents the use of the "RAMDISK.COM" program which can be used to add INVISIBLE DISK features to your Zenith CP/M system. e thorough testing.Y5 J Y6 J MEMORY ERRORS IN BANK 7 (E000-FFFF), BLOCK 0 BLOCKING RELOCATION. REBOOT!Y5 J MEMORX PARALYZED DUE TO CHECKSUM ERROR - BANK 7 (E000-FFFF). Sum: Checksum: Y5 J Please remove disk(s) from drive(s), then press <ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее** DO NOT execute the file "RAMDISK.COM" without reading and understanding the directions in the file "RAMDISK.DOC". RAMDISK.COM was developed for use by people who are using the Heath/Zenith release of CP/M. Users of the MMS release of CP/M Йяo?Ау: 2 !тніыАН©ВЦAЪTКTюТT29дН©юYК~юNИю ИГjН¬>2Нб!еs# В‘В‘: Ут2 * щыЙ ННж_хя НсЙ RAMDISK Logical Address (A-P) ? $Initialize RAMDISK ? $ ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееshould follow the printed instructions in the manual. ath/Zenith release of CP/M. Users of the MMS release of CP/M K.COM was developed for use by people who are using the Heath/Zenith release of CP/M. Users of the MMS release of CP/M K$$’I$’Ђ* HHII"@‰$’$ђ BBI„Ђ$Ђ>2Нб!еs# В‘В‘: Ут2 * щыЙ ННж_хя НсЙ RAMDISK Logical Address (A-P) ? $Initialize RAMDISK ? $ Г7ГMГUГEГ]Г†ГГГГ ГГГA##yЦ.2В!'ЇЙ`i"Г`i"Гy=2Г:·ВН¬Н»НбAХНтНшС*лНт* щыЇЙ:·В!*AНтН¬Н»Нбл!AНтНшГуС!9" !AщХЙ*}ю8>ЪМ}Ц8o>42))):_)))))))Йе!: 2жК¶УтбЙЂн°Й:Ут2 ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее!9"€1љ*Н‡~#fo"/ь*DM!е Б~еg.|g Т?Жье*+"}ґбКX-В4б#Г/с*. л!ье ~хwс# Вmб$Н‡*€щыЙйееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее RAMDISK (c) - Version 82.02.04 Copyright (c) 1982 by Livingston Logic Labs Post Office Box 5334 Pasadena, California 91107 (213) 792 - 4763 5 PM to 8 PM Pacific RAMDISK is a utility for CP/M which allows the erwrite the last 1K of the BIOS with unpredictable and possibly disastrous results. 2 - Use SYSGEN to place this new system on your boot disk. 3 - Copy RAMDISK.COM from your MMS Distribution Disk to your boot disk. 4 - Reset your computer and re 1 - Use MOVCPM to generate a 63K CP/M system by typing "MOVCPM 63" in response to the CP/M "A>" prompt. If you are using the Heath/ Zenith CP/M, use the MOVCPM which corresponds to the disk format you wish to boot from. (See the Heath/Zenith C cleared of all files. On all subsequent COLD boots you may answer either "Y" or "N". However, note that if you answer "N" that ALL information currently in the RAMDISK will be lost, so be very careful! 8 - When the CP/M "A>" prompt returns, you Magnolia Microsystems 128K RAM board for the Heath H-89/Zenith Z-89 to be used as a disk drive emulator. This program should work with any implementation of CP/M which is compatible with the MMS 128K board. The RAMDISK behaves in exactly the same w-boot using the disk SYSGENed in the above steps. 5 - Execute RAMDISK.COM by typing "RAMDISK" in response to the CP/M "A>" prompt. 6 - When RAMDISK prompts you for the "Logical Disk Address", enter the letter for the drive you wish the RAMDISK P/M manuals for further details.) The RAMDISK driver is ALWAYS loaded into memory starting at address 0FC00H. It will function properly with any size CP/M system up to 63K. If an attempt is made to MOVCPM a 64K system, the RAMDISK driver will ovare ready to begin using your RAMDISK. Simply treat it as any other disk drive, accessing it by the logical name you assigned it in step 6 above. Some people may want to patch RAMDISK.COM to run without asking for for the logical drive address ay as a disk drive and provides 112K total storage capacity with extremely fast access. Files may be copied to and from the RAMDISK in exactly the same manner as with any normal disk drive. To "install" the RAMDISK, perform the following simple steps:to be addressed as. This can be any letter from "A" to "P". 7 - RAMDISK will then ask you if you wish to initialize the RAMDISK. The first time you execute RAMDISK following power-up, you MUST respond "Y". This causes the RAMDISK directory to beor whether to initialize the disk. The following patches allow this to be done. For details on patching files, see Digital Research's "DDT User's Guide". Location Old Value New Value Explanation -------- --------- --------- -------ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееthis device to be extremely useful for speeding editing, assemblies, and any disk-intensive I/O operations. As an example of the incredible speed of the RAMDISK, try executing MBASIC from a normal disk drive. You will see that it takes several seconds DAD H ; *128 SHLD SECLOC RET SETMEM: ; MAP IN APPROPRIATE MEMORY BANK LXI H,DSKBNK DI ; DISABLE INTERRUPTS LDA ?INT$BYTE ; OLD GP PORT INFO STA GPDATA ; SAVE FOR RESTORATION LATER ANI BIT$MASK ; REMOVE MEMORY MAP BITS ORA M ; NEW ---- To set the logical drive address: 0339H 02EH drive 1=B:, 2=C:, etc. To clear the RAMDISK directory each time RAMDISK.COM is executed: 0451H 011H 0C3H Act like answer was "Y" 0452H 0C0H 07EH 0453H 001H 001H To NOT clear the dA NEWSEC ; REQUESTED SECTOR MVI D,0 MOV E,A DAD D ; HL CONTAINS A SECTOR NUMBER PUSH H ; SAVE IT FOR LATER LXI D,56*8 ; SECTORS PER DISK DSBC D ; SEE IF ON PAGE 0 OR 1 POP D ; CLEAN UP STACK MVI A,BANKH ; DEFAULT TO BANK 2 JNC CALC before the "Ok" prompt appears. Next use PIP to copy MBASIC.COM to the RAMDISK, and again execute it. You will see the "Ok" prompt appear in under 1 second! ext use PIP to copy MBASIC.COM to the RAMDISK, and again execute it. You will see the "Ok"MAP BITS OUT GP RET RESMEM: ; RESTORE ORIGINAL MEMORY CONFIGURATION LDA GPDATA ; OLD GP PORT INFO ANI 0FEH ; REMOVE LSB OUT GP STA ?INT$BYTE ; TO CLEAN UP INFORMATION EI ; AND ENABLE INTERRUPTS RET MOVMEM: LXI B,128 LDIR Rirectory when RAMDISK is executed: 0451H 011H 0C9H Act like answer was "N" The RAMDISK will retain any information/files stored in it as long as system power remains on, providing no other programs write to the 128K RAM board. You will find ADR XCHG ; ACTUAL SECTOR TO HL MVI A,BANKG ; IN BANK 0 CALCADR: ; CALCULATE THE ACTUAL ADDRESS STA DSKBNK ; NEW MEMORY BANK BITS DAD H ; TIMES 128 FOR ACTUAL ADDRESS DAD H ; *4 DAD H ; *8 DAD H ; *16 DAD H ; *32 DAD H ; *64 ET ; ; INITIALIZATION ONLY ; FILBYT: MOV M,A INX H DJNZ FILBYT CALL SETMEM ; MAP IN BANK C MVI B,(DRM+1)/4 ; GET WHOLE DIRECTORY NXBYT: PUSH B LXI H,MYBUF CALL MOVMEM POP B DJNZ NXBYT LXI D,DIR ; POINT TO LAST ENTRY OF DIRECTORY W ; SAVE RESULT PUSH B PUSH H CALL SETMEM ; E AGAIN POP H POP B MOV M,B ; RESTORE CONTENT IN MAP E CALL RESMEM ; BACK TO B POP PSW ; GET MATCH RESULT LSPD OLDSP ; GET READY TO RETURN STC CMC ; [NC] FOR NO ERROR RZ ; OK IF SPD OLDSP ; SAVE STACK FROM MEMORY SWAP LXI SP,STACK LXI H,0 ; PICK AN ADDRESS BELOW COMMON MOV B,M ; GET CONTENT MOV C,B ; SAVE A COPY PUSH B PUSH H CALL SETMEM ; TEST MAP E POP H POP B INR B ; CHANGE THE VALUE MOV D,M ; SAVE ; CALL GET25 ; GET 25TH, PRINT MESSAGE LXI H,PRSMES ; PRESS ANY KEY CALL PRINT CALL GETCHR ; WAIT FOR RESPONSE CALL RES25 ; RESTORE 25TH LINE, IF ANY LXI H,RDWERR ; INDICATE READ/WRITE ERROR. . SHLD MBASE+4 ; ON ALL READS. . SHLD MBASE+ LXI H,CODE ; USER 31, THIS ENTRY = 'INITIALIZED ALREADY' LXI B,6 ; LENGTH OF CODE LDIR CALL RESMEM ; RESET TO PAGE 0 JMP WREND ; RESTORE THE STACK AND RETURN PAGE ; DATA STORAGE AND BUFFERS ; SECLOC: DW 0 DSKBNK: DB BANKE ; SO FILLMATCH LXI H,NOMEM ; ERROR MESSAGE STC RET ; RETURN [C] FOR ERROR INIT: ; PERFORM INITIALIZATION AND TESTS LXI H,SEL$MEM PUSH H ; 'RETURN' TO SELECT AFTER INIT SHLD MBASE+1 ; LATER SELECTS GO DIRECT LDA NEWBAS+1 ; PAGE ADDRESS OF PRESENT CONTENT FROM MAP E MOV M,B ; STASH CHANGED VALUE MOV B,D ; SAVE OLD VALUE IN B PUSH B PUSH H ; SAVE CALL RESMEM ; SWITCH BACK TO B POP H POP B MOV A,M ; GET BACK PRESUMED ORIGINAL CMP C ; DOES IT MATCH? - IT SHOULD PUSH PS7 ; AND WRITES ; RETURN TO SELECT RDWERR: MVI A,1 ; SIGNAL ERROR ON R/W, OR MAKE (A) <> 'Y' ORA A ; SET FLAG RET GET25: ; SAVE 25TH LINE, SEND MESSAGE PUSH H ; SAVE MESSAGE LXI H,TRNMSG ; TELL TERMINAL TO TRANSMIT 25TH LINE CALL PRBYT CAN HIT DIRECTORY OLDSP: DW 0 GPDATA: DB 0 MYBUF: CHRBFR: DB ESC,'q',ESC,'Y8 ',ESC,'E' ; NORMAL VID, CURSOR TO 25, CLEAR TRNMSG: DB ESC,']$$' ; EXTRA $ FOR y1 (DISABLE 25TH)INSERTED LATER RAMTEST: ; SEE IF 128K INSTALLED (WE'RE IN MAP B) SDRIVER CPI 0E0H ; >= 56K? LXI H,PAGERR ; IF [C], USE MESSAGE CNC RAMTEST ; IF NO ERR, CHECK RAM JNC NOERR ; IF STILL NO ERR, CHECK INITIALIZATION ; ; CHRBFR MUST END HERE ; IF $-TRNMSG<80 REPT 80+TRNMSG-$ DB NOP ENDM ENDIF INT LXI H,'y1' ; DISABLES 25TH SHLD TRNMSG+1 ; ASSUME NO 25TH LINE CALL GETCHR CPI CR ; CHECK FOR A CARRIAGE RETURN JRZ NO25 ; IF 1ST IS CR, THEN NO 25TH LINE LXI H,TRNMSG ; ADDRESS FOR TRANSMITTED LINE BUFFER MORE: MOV M,A ; SAVE CHARACTEN DIRECTORY LXI H,DIR ; POINT TO DIRECTORY LXI D,CODE ; POINT TO TEST PATTERN MVI B,6 TSTLP: LDAX D ; THIS LOOP COMPARES STRINGS CMP M ; MATCH? JRNZ XIT ; IF NO MATCH, RETURN NZ INX D ; POINT TO NEXT BYTES INX H DJNZ TSTLP ; WHEN DOB WITH ADDRESS OR RAM CALL PTEST ; WAS POWER DOWN, OR DISK NOT INITIALIZED? RZ ; IF INITIALIZED, GO TO SELECT MVI B,128 ; OTHERWISE, INITIALIZE DIRECTORY MVI A,0E5H ; FILL BUFFER WITH 0E5H LXI H,MYBUF LXI D,OFF*32*128 ; POINT TO DIRECTORY CURSOR, ENABLE 25, ; POSITION, REV VIDEO RESCSR: DB ESC,'k$' REPT (($+0FFH) AND (0FF00H))-$ DB 0 ; FILL TO PAGE BOUNDRY ENDM STACK: DS 0 MODLEN EQU $-MBASE ZMODLEN EQU MODLEN PAGE ; =====================================R INX H ; POINT TO NEXT MVI M,'$' ; STRING TERMINATOR PUSH H ; KEEP INTERRUPT ROUTINE FROM KILLING THIS CALL GETCHR POP H CPI CR JRNZ MORE NO25: LXI H,POSIT ; POINT TO 25,ETC, FOR FOLLOWING MESSAGES CALL PRINT POP H ; MESSAGE TO 2NE, FLAG Z XIT: PUSH PSW ; SAVE RESULT CALL RESMEM POP PSW LSPD OLDSP ; GET OLD POINTER RET ; RETURN Z OR NZ; A<>'Y' CODE: ; THIS IS A "GRAY" PATTERN, CLEVERLY DISGUISED DB 00011111B,00111111B,00101111B ; AS A DIRECTORY ENTRY DB 001 SSPD OLDSP LXI SP,STACK GOFIL: JMP FILBYT PRINT: MVI A,'$' CMP M RZ MOV C,M PUSH H CALL PUTCHR POP H INX H JR PRINT PTEST: ; IF DISK NOT INITIALIZED, RETURN NZ LXI SP,STACK ; CURRENT SP SAVED PREVIOUSLY CALL SETMEM ; MAP I===== ; PROGRAM RELOCATION BIT MAP ; ========================================== $-PRINT DB 00100100B,10000000B,00000000B,00000000B,00000000B,00000000B,00000000B,00000001B DB 01010100B,00000000B,00000000B,00000001B,00001001B,00100100B,10010001B5TH LINE CALL PRINT RET ; ETC. RES25: ; RESTORE 25TH LINE LXI H,CHRBFR ; NORMAL VID, CURSOR TO BEGINING OF LINE 25 CALL PRINT ; AND RESTORE PREVIOUS MESSAGE, IF ANY LXI H,RESCSR ; RESTORE CURSOR CALL PRINT RET NOERR: ; NO PRO00111B,00100011B,00100010B ; IN USER 31 NOMEM: DB ESC,'E',BEL DB 'Memory map error!$' PAGERR: DB ESC,'E',BEL DB 'Invisible disk module below 56K boundary!$' PRSMES: DB ' - Press any key$' POSIT: DB ESC,'j',ESC,'x1',ESC,'p',ESC,'Y8 $' ; SAVE,00100001B DB 00100000B,10010010B,01001000B,10010001B,00010010B,00100001B,00000001B,00000000B DB 00000001B,00000100B,00000001B,00010000B,00100000B,00010000B,00000000B,00000000B DB 01000001B,00100000B,00010000B,00010010B,00000000B,00000000B,00001001B,* BUFLEN EQU $-BUFFER END * ORG BUFFER CSVCM DS 0 ALV3 DS 14 ***************************************************************************************** ORG BUFFER CSVCM DS 0 ALV3 DS 14 *******************************************************000000B DB 00000000B,00000000B,00000000B,00000000B,00000000B,00000000B,00000000B,00000000B $+PRINT ******************************************************** ** COMMON BUFFERS ******************************************************** ORG COMBUF DS ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее00000000B DB 01000000B,00001000B,00000010B,00001000B,01000001B,00001000B,10010000B,10010010B DB 01001001B,00100100B,10010010B,00000010B,01000001B,00100000B,01000000B,01000000B DB 01001000B,10001001B,00100100B,01000000B,01000000B,10010010B,00000001B,0ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее20 DS 64 DS 2 DIRBUF: DS 128 ******************************************************** ** BUFFERS ******************************************************** ORG BUFFER CSVCM DS 0 ALV3 DS 14 *******************************************************ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее0000010B DB 01000001B,00000000B,00000100B,00100000B,00000000B,00000000B,00000000B,00000000B DB 00000000B,00000000B,00000000B,00000000B,00000000B,00000000B,00000000B,00000000B DB 00000000B,00000000B,00000000B,00000000B,00000000B,00000000B,00000000B,00ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее