Mazday

*** Answering a msg posted in area HARDWARE.ZX (HARDWARE.ZX). Hello Dmitry! Thursday January 14 1999 00:16, Dmitry Lomov wrote to Kirill Frolov: KF>> Or maybe you know how 1818VG93 calculates CRC? Tell us! DL> the same as MAC wrote :) I didn’t look into it in detail, I don’t know. DL> has anyone done this? Uncle DARK, you had something DL> is this? AU. === Beginning of crc.txt === ORG #6000 LD HL,TESTHD LD DE,#B230 LD C,4 CALL CRC LD HL,TESTHD LD DE,#E295 LD C,0 CALL CRC RET DW 0 ; IN :HL=DATA; DE=INIT CRC; C=SIZE ;OUT :DE=CRC ^^ #B230=HEADER #E295=DATA CRC LD A,D:XOR (HL):LD D,A:INC HL LD B,8 CRC2 SLA E:RL D:JR NC,CRC3 LD A,D:XOR #10:LD D,A LD A,E:XOR #21:LD E,A CRC3 DJNZ CRC2 DEC C:JR NZ,CRC RET ;--------------------------------------- TESTHD DB 0,0,1,1 TESTDT DS 256 === End of crc.txt === Stinger.

Hello Alexandr. 14 Mar 99 10:02, Alexandr Knyzev wrote to Aleksandr Majorov: AK> 2FK0: plz post a list of commands your server faq-off ;) === Cut === List of X-FAQ server commands: %HELP - help file %LIST - list %POINT812 - pointlist of SPBZXNET %CMOS - connecting the watch to the spectrum %AUTOMMD - automation for MMD 4.00 %ZXFAQ - FAQ for emulators === Cut === Write to: X-FAQ subj: %TEAM === Cut === FTN does not allow characters with codes in the text of the letter less than 32, which *MAS* clearly abuses. Code 22, separating the file name from the extension will be replaced by symbol | vertical broken line. ;WARNING! ;AT THE VERY BOTTOM OF THIS FILE THERE IS MORE BUCK ;----------------------- ;DISK FOR OVERLEASES ~1=3 ;PAUSE IN MAILER ~2=100 ;DISK FOR ECHOFILES ~3=0 ;DISK FOR RECEIVING FILES ~5=0 ;FILE TRANSFER DISK ~7=0 ;DISK FOR LOG ~A=0 ;ATTEMPTS TO TRANSFER FILES ~4=5 ;ATTEMPTS TO RECEIVE FILES ~6=5 ;DISC WITH CHALK ~8=1 ;--------------------- ; USE_MAIL.C file 06-11-98 ; In userlist write: ; ; @NAME - Mailer / Run - launch MELON.B ; @ADDR|* - the file will be transferred and deleted ; @MAIL|(mask) - sent and deleted ; @LEVEL - initial speed ; or cfg number for MELON.B ; `0=0 - always call ; `0=1 - only if there is soap; `1,2=attempt counters ; `3 - prohibition (if<>0) ; @PASS - password to pass ; @PHONE - where to call ; @MFREETIME - time for session ; %032=1 - pass the fence ; @UPLD - start when to call HHMM ; @DOWNLD - end HHMM ; RETURN FROM INTERRUPTS RET ONLY ; HAS ITS OWN VARIABLE &N ! ; OTHER ERRORS - CHECK &M MODE! OVERLAY ;CALL FROM BBS WHEN CALLING JPIF &M=1 _BBS_MAIL ;OVERLEAS ARE STORED ON THE DISK ~1 IF @DISK!~1 ? DISK ~1 &1=&N UPTXT ~MAILER THINK~ JP_MWC11 _MWC0 &N=0 _MWC1 RETIF @LINE RETIF &N=&1 _MWC11 INC&N OPEN_USER&N JPNZ_MWC0 CP @NAME Run JPZ_MWC12 CP @NAME Mailer JPNZ_MWC1 _MWC12 JPIF `3!0 _MWC1 JPIF `2=3 _MWC1 JPIF `1=3 _MWC1 JPIF `0=1 _MWC1 _WTIME &0=@HOUR*100 &0=&0+@MIN &2=@HOUR*100 &2=&2+@MIN JPIF &0!&2 _WTIME JPIF @UPLD>@DOWNLD _MWC2 ; AT ALL LESS THAN OR EQUAL TO KOTS JPIF &0<@UPLD _MWC1 JPIF &0<@DOWNLD _MWC3 JP_MWC1 ; ACHALO MORE KOTS _MWC2 JPIF &0<@DOWNLD _MWC3 JPIF &0<@UPLD _MWC1 _MWC3 JPIF `0=0 _MWC4 CP @NAME Run JPZ_MWC1 RETIF @LINE CALL_SEL_MAIL JPIF @MARK=0 _MWC1 _MWC4 RETIF @LINE CP @NAME Run JPZ_MRUN FAST UPTXT ~ MAILER ~@PHONE SET %069.#0D#0D#0D .~+~ @TIME @DATE MAILER DIALING @ADDR RES %066 %067 ONLINE PAUSE 40 OFFLINE PAUSE 40 NORMAL PHONE @PHONE 1000 JPZ _MC1 SET %066 %067 JPIF @ERR=32 _MC0 .~-~ @TIME @DATE DIALER ERROR: @ERR INC `1 IF `1=3 ? .~-~ @TIME @DATE RETRY COUNTER = 0 CLOSE_USER JP _MWC1 _MC0 .~-~ @TIME @DATE DIALER: BUSY CLEAR_USER JP _MWC1 ;------------------------------- ;ЗАПУСК МЕЛОА _MRUN OFFLINE UPTXT MELON DISK ~8 IF @ERR!0 ? DISK ~8 RENAME mel_cfg*|C mel_cfg0|C UNSEL_ALL &0=@LEVEL-48 SEL mel_cfg0|C JPIF &0=0 _MRUN1 _MRUN0 UNSEL_FM DJNZ &0 _MRUN0 _MRUN1 JPIF @MARK=0 _MRUNE SELREN mel_cfg*|C RENAME mel_cfg1|C mel_cfg|C .~!~ @TIME @DATE MELON: @PASS `0=1 CLOSE_USER DISK ~A SAVLOG logging|C DISK ~8 UNSEL_ALL SEL MELON|B IF @MARK ? RUN MELON|B _MRUNE .~!~ @TIME @DATE CAN'T RUN MELON DISK ~1 JP _MWC1 ;-------------------------------------- ; ДОЗВОИЛСЯ _MC1 FAST &M=2 RES %058 %067 SET %068 %069 RES %070 %073 SET %074 RES %075 %076 SET %077 %078 RES %079 &0=@LEVEL-48 .~+~ @TIME @DATE CONNECT SPEED &0 SPEED &0 TWLINE 500 CALL _TIMEUSER NORMAL &0=10 _MC2 PAUSE 20 CLEARIN WSTR JPZ _MC3 JPIF @ERR=4 _MCERR _MC4 DJNZ &0 _MC2 JP _MCERR _MC3 CP $E MAIL_REQ JPNZ _MC4 .~+~ @TIME @DATE REQUEST ACCEPTED &0=5 _MC5 PAUSE 20 THE BBS WILL BE COUNTED. _ML3 IF @$E=0 ? &M=1 ? RET CP $E MAIL_INQ JPNZ_ML2 .~+~ @TIME @DATE REQUEST OK UPTXT ~MAILER REPLY~ &1=5 _ML4 PAUSE 20 $0=PASSWORD CALL_OUT_INFO CLEARIN WSTR JPZ_ML5 JPIF @ERR=4 _MERR _ML6 .~-~ @TIME @DATE BAD PASSWORD DJNZ&1_ML4 JP_MERR _ML5 PASSWORD $E JPNZ_ML6 CP @NAME Mailer JPZ_ML6 CP @NAME Run JPZ_ML6 .~+~ @TIME @DATE PASSWORD OK JPIF `7!0 _ML7_1 .~!~ @TIME @DATE MAIL MODE DISABLED JP_MERR _ML7_1 CALL_TIMEUSER CALL_PRINT_INFO $0=PASSED $1=READY CALL_IN_F JPIF &0=0 _MERR CALL_SEL_MAIL IF %032=1 ? SEL fence06|C CALL_OUT_M JPIF &0=0 _MERR CALL_OUT_E JPIF &0=0 _MERR CALL_MAIL_END &M=0 RET _MERR FAST TIME_OFF TWLINE 0.~!~ @TIME @DATE SESSION ABORTED ERROR: @ERR OUTBREAK OUTBREAK OFFLINE NORMAL CLOSE_USER &M=0 RET _TIMEUSER FAST TIME_OFF SLIMIT @MFREETIME RUN_USER SETTIME @MFREETIME TIME_ON NORMAL RET ;--------------------------------- ;PRESSION OF INFORMATION _OUT_INFO CLEARIN <$0 <500:812/28.13,X-Station $0=$0 RET ;--------------------------------- ;MAIL MARK _SEL_MAIL IF @DISK!~7 DISK ~7 UNSEL_ALL SEL @MFILE SEL @ADDR|* UNSEL 812*2813|* UNSEL 812*0908|* RET === Cut === ^^^^^ I don’t know how many glitches there are, but it needs to be optimized. I won't. Kirill