АААБА ; АААВА ; Source Filename: XMODEM/SRC АААГА ; Object Filename: XMODEM/CMD АААДА ; АААЕА ; Program Author: Steven Bradley АААЖА ; Creation Date: 01-27-84 АААЗА ; Version: 2.02 АААИА ; АААЙА ; Last changed on: 06-05-84 ААБАА ; ААББА ; This program is supplied for your personal and ААБВА ; non-commercial use only. No commercial use is ААБГА ; permitted. Any distribution for profit is ААБДА ; prohibited. Distribution to any system that ААБЕА ; charges for computer access is prohibited ААБЖА ; unless written permission has been obtained ААБЗА ; from the program author. ААБИА ; ААБЙА ; Please send problem reports and suggestions ААВАА ; ААВБА ; To: Steven Bradley ААВВА ; 121 Cambridge Drive ААВГА ; Longwood, Florida 32779 ААВДА ; ААВЕА ; Or call (305) 788-1968 ААВЖА ; ААВЗА XKEY EQU 0 ; Bit for the 'X' key ААВИА SOH EQU 1 ; Start of header ААВЙА BRKKEY EQU 2 ; Break key bit ААГАА EOL EQU 3 ; End of line ААГБА EOT EQU 4 ; End of transmission ААГВА DWNARR EQU 4 ; Down arrow pressed ААГГА ACK EQU 6 ; Acknowledge ААГДА BELL EQU 7 ; Ding-dong! ААГЕА BCKSPC EQU 8 ; Backspace ААГЖА LF EQU 10 ; Linefeed ААГЗА CR EQU 13 ; Carriage return ААГИА ILLFNM EQU 19 ; Illegal filename error ААГЙА INPBYT EQU 19 ; Input byte routine ААДАА NAK EQU 21 ; Negative acknowledge ААДБА CANCEL EQU 24 ; Cancel (ctrl-x) ААДВА OUTBYT EQU 27 ; Output byte routine ААДГА EOF EQU 28 ; End of file error ААДДА LCTOUC EQU 32 ; Lower to uppercase ААДЕА SPACE EQU 32 ; Space ААДЖА COMMA EQU 44 ; Comma ААДЗА CHROUT EQU 51 ; Character to crt ААДИА FEXIST EQU 53 ; File exists error ААДЙА OUTMEM EQU 59 ; Out of memory ААЕАА INPUT EQU 40H ; Line input routine ААЕБА MODEL3 EQU 49H ; Test for model III ААЕВА LCCHAR EQU 60H ; Test for lowercase char ААЕГА CONFIG EQU 6DH ; 8-1-N configuration ААЕДА HIGH EQU 80H ; Bit 7 value ААЕЕА RETURN EQU 0C9H ; Return instr. ААЕЖА MR EQU 0E8H ; Master reset (rs232) ААЕЗА MODEM EQU 0E8H ; Modem status port ААЕИА CARDET EQU 5 ; Carrier detect ААЕЙА BAUD EQU 0E9H ; Set baud location ААЖАА RSCTRL EQU 0EAH ; RS232 control port ААЖБА STATUS EQU 0EAH ; RS232 status port ААЖВА DRECVD EQU 7 ; Data received ААЖГА XEMPTY EQU 6 ; Transmit buffer empty ААЖДА OVRERR EQU 5 ; Over-run error ААЖЕА FRMERR EQU 4 ; Framing error ААЖЖА RSDATA EQU 0EBH ; RS232 data port ААЖЗА PORT EQU 0FEH ; Custom options port ААЖИА M1OR3 EQU 125H ; Model I/III addr check ААЖЙА VIDEO3 EQU 473H ; Model III video driver ААЗАА P10TBL EQU 13D8H ; Powers of ten table ААЗБА XYZVEC EQU 3808H ; XYZ keyboard vector ААЗВА CTLVEC EQU 3840H ; Control keys ААЗГА SHIFT EQU 3880H ; Shift key ААЗДА VIDDCB EQU 401EH ; Video DCB ААЗЕА DOS EQU 402DH ; DOS exit ААЗЖА NMSERR EQU 4030H ; No message error exit ААЗЗА HIMEM1 EQU 4049H ; Model I himem ААЗИА ERROR EQU 4409H ; Error exit ААЗЙА HIMEM3 EQU 4411H ; Model III himem ААИАА GFSPEC EQU 441CH ; Get filespec ААИБА OPENN EQU 4420H ; Open new file ААИВА OPENE EQU 4424H ; Open old file ААИГА CLOSE EQU 4428H ; Close file ААИДА KILL EQU 442CH ; Kill file ААИЕА MSGOUT EQU 4467H ; Display message ААИЖА ORIGIN EQU 5300H ; Origin of program ААИЗА STACK EQU ORIGIN ; Stack location ААИИА ; ААИЙА BR50 EQU 0 ; Baud rate values ААЙАА BR75 EQU 11H ААЙБА BR110 EQU 22H ААЙВА BR135 EQU 33H ААЙГА BR150 EQU 44H ААЙДА BR300 EQU 55H ААЙЕА BR600 EQU 66H ААЙЖА BR1200 EQU 77H ААЙЗА BR1800 EQU 88H ААЙИА BR2000 EQU 99H ААЙЙА BR2400 EQU 0AAH АБААА BR3600 EQU 0BBH АБАБА BR4800 EQU 0CCH АБАВА BR7200 EQU 0DDH АБАГА BR9600 EQU 0EEH АБАДА BR1920 EQU 0FFH АБАЕА ; АБАЖА ORG ORIGIN АБАЗА ; АБАИА START PUSH HL ; Save command pointer АБАЙА LD HL,(HIMEM1) ; Model I addresses АББАА LD DE,VIDEO1 АБББА LD BC,3000H АББВА LD A,(M1OR3) ; Check model АББГА CP MODEL3 ; Is it a model III? АББДА JR NZ,CM1OR3 ; No, a model I АББЕА LD HL,(HIMEM3) ; Model III addresses АББЖА LD DE,VIDEO3 АББЗА LD BC,4000H АББИА CM1OR3 LD (NEWDVR),DE ; Store video driver АББЙА LD (RSIDLY),BC ; and input delay АБВАА LD DE,ENDPGM ; Get end of pgm addr АБВБА OR A ; Clear carry АБВВА SBC HL,DE ; Enough memory? АБВГА POP HL ; Restore command pointer АБВДА LD A,OUTMEM ; Out of memory err code АБВЕА JP C,ERROR ; and take error exit АБВЖА XOR A ; Turn off any custom АБВЗА OUT (PORT),A ; port 254 options АБВИА LD (STKSAV),SP ; Save stack pointer АБВЙА LD SP,STACK ; and set new stack АБГАА PUSH HL АБГБА CALL ILPRNT АБГВА DEFB LF АБГГА DEFM 'XMODEM File Transfer Utility - Version 2.02 / June 5, 1984' АБГДА DEFB LF АБГЕА DEFM 'Written by Steven Bradley. *** Not for sale. ***' АБГЖА DEFB CR АБГЗА POP HL АБГИА GETOPT LD A,(HL) ; Get option АБГЙА CP CR ; CR? АБДАА JP NZ,CHKOPT ; No, so check the option АБДБА BADOPT CALL ILPRNT ; Missing or bad option АБДВА DEFB LF АБДГА DEFB BELL АБДДА DEFM 'Parameters available are:' АБДЕА DEFB LF АБДЖА DEFB LF АБДЗА DEFM 'Receive a new file: R {filename}' АБДИА DEFB LF АБДЙА DEFM 'Send an existing file: S {filename}' АБЕАА DEFB LF АБЕБА DEFM 'Initialize the RS232 interface: I {=baud rate}' АБЕВА DEFB CR АБЕГА IN A,(MODEM) ; Check for carrier АБЕДА BIT CARDET,A ; Any present? АБЕЕА JP Z,EXIT ; Yes, so skip this cmd АБЕЖА CALL ILPRNT АБЕЗА DEFM 'Direct transfer, no modems: X' АБЕИА DEFB CR АБЕЙА EXIT LD SP,(STKSAV) ; Restore system stack АБЖАА JP DOS ; and exit to DOS АБЖБА ; АБЖВА CHKOPT CP LCCHAR ; Is it lowercase? АБЖГА JR C,NOTLCO ; No, do not convert АБЖДА SUB LCTOUC ; Make it uppercase АБЖЕА NOTLCO LD (OPTSAV),A ; Save option АБЖЖА CP 'R' ; Receive? АБЖЗА JR Z,RECSND АБЖИА CP 'S' ; Send? АБЖЙА JR Z,RECSND АБЗАА CP 'I' ; Initialize RS232 board? АБЗБА JP Z,RSINIT АБЗВА PUSH AF АБЗГА IN A,(MODEM) ; Check for carrier АБЗДА BIT CARDET,A ; any present? АБЗЕА JP Z,BADOPT ; Yes, so bad option АБЗЖА POP AF АБЗЗА CP 'X' ; Direct transfer? АБЗИА JP Z,NMDMCK АБЗЙА JP BADOPT ; Bad option АБИАА ; АБИБА FNDCHR INC HL ; Point to next character АБИВА LD A,(HL) ; Get the char. АБИГА CP SPACE ; Is it a space? АБИДА JR Z,FNDCHR ; Yes, so look some more АБИЕА CP COMMA ; Is it a comma? АБИЖА JR Z,FNDCHR ; Yes, so look some more АБИЗА CP CR ; Set Z flag if CR АБИИА RET ; and return АБИЙА ; АБЙАА FNDOPT CALL FNDCHR ; Get next character АБЙБА JP Z,EXIT ; If CR, end options chk АБЙВА JP GETOPT ; Go to normal checking АБЙГА ; АБЙДА RECSND CALL FNDCHR ; Get next character АБЙЕА JP NZ,GFILE ; If not CR, go get file АБЙЖА DEC HL ; HL=HL-1 АБЙЗА LD (CMDPTR),HL ; Save command pointer АБЙИА LD A,(OPTSAV) ; Get option key АБЙЙА CP 'R' ; Receive? АВААА JR NZ,ASDMSG ; No, ask for send name АВАБА CALL ILPRNT АВАВА DEFB LF АВАГА DEFM 'Receiving' АВАДА DEFB EOL АВАЕА JR ASKNAM ; Go finish question АВАЖА ; АВАЗА ASDMSG CALL ILPRNT ; Ask for send name АВАИА DEFB LF АВАЙА DEFM 'Sending' АВБАА DEFB EOL АВББА ASKNAM CALL ILPRNT ; Finish question АВБВА DEFM ' - Enter filename: ' АВБГА DEFB BELL АВБДА DEFB EOL АВБЕА LD B,23 ; Max of 23 characters АВБЖА LD HL,DSKBUF ; into disk buffer (temp) АВБЗА CALL INPUT ; Get filename АВБИА JP C,EXIT ; If break - exit АВБЙА LD A,(HL) ; Check for no input АВВАА CP CR ; CR only? АВВБА JP Z,EXIT ; Yes - exit АВВВА XOR A ; Set entry status АВВГА GFILE PUSH AF ; Save entry status АВВДА LD DE,FILE ; Get filename АВВЕА CALL GFSPEC ; Create filespec АВВЖА JR Z,NAMEOK ; If no error, else АВВЗА LD A,ILLFNM+HIGH ; must be bad name АВВИА CALL ERROR ; Display error АВВЙА JP EXIT ; and abort АВГАА ; АВГБА NAMEOK POP AF ; Get entry status АВГВА JR Z,XOPEN ; If asked for name АВГГА DEC HL ; HL=HL-1 АВГДА LD (CMDPTR),HL ; Save command pointer АВГЕА XOPEN PUSH DE АВГЖА LD B,23 ; Format filename for АВГЗА LD HL,FNAME ; displaying later АВГИА XOPENL LD A,(DE) АВГЙА CP EOL АВДАА JR Z,XOPENM АВДБА CP CR АВДВА JR Z,XOPENM АВДГА CP 'A' АВДДА JR C,CHROK АВДЕА OR LCTOUC АВДЖА SUB LCTOUC АВДЗА CHROK LD (HL),A АВДИА INC DE АВДЙА INC HL АВЕАА DJNZ XOPENL АВЕБА XOPENM LD (HL),CR АВЕВА POP DE АВЕГА LD B,0 ; LRL=256 АВЕДА LD HL,DSKBUF ; Sector buffer АВЕЕА LD A,(OPTSAV) ; Get option key АВЕЖА CP 'R' ; Is it receive? АВЕЗА JR NZ,OPENSF ; No, it is send АВЕИА CALL OPENN ; Open new file АВЕЙА JR Z,RFOPEN ; Go if no error АВЖАА OPNERR OR HIGH ; Make it CALLable АВЖБА CALL ERROR ; Display error АВЖВА JP EXIT ; and abort АВЖГА ; АВЖДА RFOPEN JR C,RECEIV ; Go if new file created АВЖЕА CALL CLOSEF ; else close file because АВЖЖА LD A,FEXIST ; file already exists err АВЖЗА JR OPNERR ; Display error and exit АВЖИА ; АВЖЙА OPENSF CALL OPENE ; Open existing file АВЗАА JP Z,SEND ; Go to send if no error АВЗБА JR OPNERR ; Show error and exit АВЗВА ; АВЗГА RECEIV LD HL,FMSG АВЗДА CALL MSGOUT АВЗЕА CALL ILPRNT АВЗЖА DEFB LF АВЗЗА DEFM 'Enter ctrl-x to abort file transfer.' АВЗИА DEFB LF АВЗЙА DEFB LF АВИАА DEFM 'Ready to receive - awaiting transmission.' АВИБА DEFB CR АВИВА CALL INITRS ; Receive-send init АВИГА XOR A ; Zero first block АВИДА LD (FIRST),A ; SOH found status АВИЕА LD A,NAK ; Send a negative АВИЖА CALL CRSOUT ; acknowledge АВИЗА RECFIL CALL INCBLK ; Increment block count АВИИА CALL RECBKS ; Receive a block АВИЙА JR C,RECEND ; Go if end of file АВЙАА LD A,(BLOCKS) ; Increment the АВЙБА INC A ; number of АВЙВА LD (BLOCKS),A ; transferred АВЙГА CP 20 ; Have there been 20? АВЙДА CALL Z,SAVBLK ; Yes, so save the blocks АВЙЕА CALL SNDACK ; Send acknowledge АВЙЖА JR RECFIL ; and go receive more АВЙЗА ; АВЙИА RECEND LD A,(BLOCKS) ; Get blocks xfered count АВЙЙА OR A ; Zero blocks? АГААА CALL NZ,SAVBLK ; If blocks to be saved АГАБА CALL CLOSEF ; Close the file АГАВА OR A ; Any error occured? АГАГА JP NZ,ABORT ; Yes, so send cancel АГАДА CALL SNDACK ; No, so send acknowledge АГАЕА JP SUCCES ; and xfer completed АГАЖА ; АГАЗА RECBKS XOR A ; Zero number of tries АГАИА LD (TRIES),A ; counter АГАЙА RECBLK LD B,10 ; 10 seconds per attempt АГБАА CALL CRSINP ; Look for a character АГББА JR C,RTRIES ; If no char, check tries АГБВА CP CANCEL ; Cancelled? АГБГА JP Z,ABORT ; Yes, so abort transfer АГБДА CP SOH ; Is it start of header? АГБЕА JR Z,RECBKH ; Yes, so get first block АГБЖА CP EOT ; End of transmission? АГБЗА SCF ; Maybe... АГБИА RET Z ; Yes, so return АГБЙА RTRIES CALL WNCHRS ; No, wait until no chars АГВАА LD A,NAK ; and then send negative АГВБА CALL CRSOUT ; acknowledge АГВВА BADACK LD A,(FIRST) ; Check for initial block АГВГА OR A ; Has it been started? АГВДА JR Z,CRTRYS ; No error display needed АГВЕА CALL DPYBLK ; Display error block # АГВЖА CALL ILPRNT ; Display * error status АГВЗА DEFM '* ' АГВИА DEFB EOL АГВЙА CRTRYS LD A,(TRIES) ; Get number of attempts АГГАА INC A ; and increment it by 1 АГГБА LD (TRIES),A ; Store # attempts left АГГВА CP 10 ; Have there been 10? АГГГА JR NZ,RECBLK ; If not 10, try again АГГДА JP ABORT ; else abort transfer! АГГЕА ; АГГЖА RECBKH LD A,HIGH ; Since an SOH was recvd АГГЗА LD (FIRST),A ; rest of blk should come АГГИА CALL DPYBLK ; Display current block # АГГЙА LD BC,RTRIES ; Save error return addr АГДАА PUSH BC ; for convenient exits АГДБА LD B,1 ; 1 second attempt АГДВА CALL CRSINP ; Look for a character АГДГА RET C ; If no character, exit АГДДА LD D,A ; Save first block number АГДЕА LD B,1 ; 1 second attempt АГДЖА CALL CRSINP ; Look for a character АГДЗА RET C ; If no character, exit АГДИА CPL ; Make normal block # АГДЙА CP D ; Is it the same? АГЕАА RET NZ ; No, so error exit АГЕБА LD A,(BLKCNT) ; Check block number АГЕВА CP D ; Is it the same? АГЕГА JR Z,NEWBLK ; Yes, go get block АГЕДА DEC A ; Check for bad ack char АГЕЕА CP D ; Was it previous block? АГЕЖА RET NZ ; No, so error exit АГЕЗА CALL WNCHRS ; Yes, so wait until all АГЕИА CALL SNDACK ; sent, then send an ack АГЕЙА POP HL ; Fix stack АГЖАА JR BADACK ; and try block again АГЖБА ; АГЖВА NEWBLK LD HL,(BLKADR) ; Get start of block АГЖГА LD E,128 ; 128 bytes expected АГЖДА LD C,0 ; Zero checksum АГЖЕА RECBLP LD B,1 ; 1 second attempt АГЖЖА CALL CRSINP ; Look for character АГЖЗА RET C ; If no character, exit АГЖИА LD (HL),A ; Store character АГЖЙА INC HL ; Increment buffer ptr АГЗАА DEC E ; Decrement # received АГЗБА JR NZ,RECBLP ; and loop if not 0 АГЗВА LD D,C ; Save calculated chksum АГЗГА LD B,1 ; 1 second attempt АГЗДА CALL CRSINP ; Look for character АГЗЕА RET C ; If no character, exit АГЗЖА CP D ; Do checksums match? АГЗЗА RET NZ ; If no match, error exit АГЗИА LD (BLKADR),HL ; Save new address АГЗЙА POP HL ; and pop the error addr АГИАА RET ; and we are done АГИБА ; АГИВА SAVBLK LD HL,BUFFER ; Get start of buffer АГИГА LD DE,FILE ; Open file АГИДА LD C,A ; Number of blocks АГИЕА SAVEBK LD B,128 ; Length of each block АГИЖА SAVELP LD A,(HL) ; Get a byte АГИЗА CALL OUTBYT ; Write to disk file АГИИА JR Z,NSERR ; Go if no error АГИЙА OR HIGH ; Make it CALLable АГЙАА CALL ERROR ; Display error АГЙБА JP ABORT ; and abort АГЙВА ; АГЙГА NSERR INC HL ; Increment buffer АГЙДА DJNZ SAVELP ; Loop until 128 written АГЙЕА DEC C ; Decrement blocks АГЙЖА JR NZ,SAVEBK ; Loop until all written АГЙЗА XOR A ; Zero number of blocks АГЙИА LD (BLOCKS),A ; transferred АГЙЙА LD HL,BUFFER ; Reset block buffer АДААА LD (BLKADR),HL ; to the start of buffer АДАБА RET АДАВА ; АДАГА SEND LD HL,(FILE+12) ; Get # of full records АДАДА ADD HL,HL ; # of 128 byte records АДАЕА LD A,(FILE+8) ; and see if any in eof АДАЖА OR A ; Any bytes in eof sec? АДАЗА JR Z,CALC ; No, so go calc АДАИА INC HL ; Increment # of records АДАЙА CP 129 ; See how many recs, 1-2 АДБАА JR C,CALC ; If 1 record, end check АДББА INC HL ; otherwise 2 records АДБВА CALC PUSH HL ; Save number of records АДБГА XOR A ; Zero number of АДБДА LD (BLOCKS),A ; blocks counter АДБЕА LD DE,0 ; Init seconds counter АДБЖА LD BC,5 ; Init i/o time used АДБЗА LD A,132 ; Number bytes per record АДБИА PUSH AF ; and save it to stack АДБЙА JR CALENT ; Enter calculation loop АДВАА ; АДВБА CALC1 POP AF ; Get number left in rec АДВВА SUB 30 ; 30 cps АДВГА PUSH AF ; Save number left in rec АДВДА JR C,CALC2 ; End loop if not enough АДВЕА ; АДВЖА INC DE ; Increment # of seconds АДВЗА JR CALC1 ; and resume calculating АДВИА ; АДВЙА CALC2 POP AF ; Get number left АДГАА ADD A,162 ; Add previous & next rec АДГБА PUSH AF ; Store new value АДГВА LD A,(BLOCKS) ; Get record count АДГГА INC A ; Increment it АДГДА CP 2 ; Have there been 2? АДГЕА JR NZ,CALC3 ; No, so nothing done АДГЖА ; АДГЗА INC BC ; Inc i/o seconds count АДГИА XOR A ; and zero record count АДГЙА ; АДДАА CALC3 LD (BLOCKS),A ; Store new count АДДБА DEC HL ; Decrement # of records АДДВА CALENT LD A,H ; Check for end of record АДДГА OR L ; End of records? АДДДА JR NZ,CALC1 ; No, so go get more АДДЕА ; АДДЖА POP AF ; Fix the stack АДДЗА PUSH BC ; Save i/o seconds АДДИА PUSH DE ; Save seconds for later АДДЙА ; АДЕАА EX DE,HL ; Move DE to HL АДЕБА ADD HL,BC ; Get total seconds АДЕВА LD BC,60 ; Number to divide by АДЕГА CALL DIVIDE ; Divide 60 into HL АДЕДА PUSH DE ; Save remainder АДЕЕА LD B,3 ; 3 places АДЕЖА LD A,B ; Suppress leading zeroes АДЕЗА LD DE,BM300 ; Where to store it АДЕИА CALL BINASC ; Convert to ascii АДЕЙА POP HL ; Get remainder АДЖАА LD B,2 ; 2 places АДЖБА LD A,B ; Suppress leading zeroes АДЖВА LD DE,BS300 ; Where to store it АДЖГА CALL BINASC ; Convert to ascii АДЖДА POP HL ; Now to calc for 1200 АДЖЕА LD BC,4 ; Number to divide by АДЖЖА CALL DIVIDE ; Divide 4 into HL АДЖЗА POP BC ; Get i/o seconds АДЖИА ADD HL,BC ; and add for total secs АДЖЙА LD BC,60 ; Number to divide by АДЗАА CALL DIVIDE ; Divide 60 into HL АДЗБА PUSH DE ; Save remainder АДЗВА LD B,3 ; 3 places АДЗГА LD A,B ; Suppress leading zeroes АДЗДА LD DE,BM1200 ; Where to store it АДЗЕА CALL BINASC ; Convert to ascii АДЗЖА POP HL ; Get remainder АДЗЗА LD B,2 ; 2 places АДЗИА LD A,B ; Suppress leading zeroes АДЗЙА LD DE,BS1200 ; Where to store it АДИАА CALL BINASC ; Convert to ascii АДИБА ; АДИВА POP HL ; Get number of records АДИГА PUSH HL ; and keep it saved АДИДА LD B,5 ; 5 places АДИЕА LD A,B ; Suppress leading zeroes АДИЖА LD DE,NUMREC ; Where to store it АДИЗА CALL BINASC ; Convert to ascii АДИИА ; АДИЙА POP HL ; Get number of records АДЙАА LD BC,8 ; Divide them by 8 to АДЙБА CALL DIVIDE ; get number of K bytes АДЙВА PUSH DE ; and save the remainder АДЙГА LD B,3 ; 3 places АДЙДА LD A,B ; Suppress leading zeroes АДЙЕА LD DE,KBYTES ; Where to store it АДЙЖА CALL BINASC ; Convert it to ascii АДЙЗА ; АДЙИА POP HL ; Get number of records АДЙЙА LD B,10 ; Number to multiply by АЕААА CALL MULT ; Multiply by 10 АЕАБА LD BC,8 ; Get 10ths of a K АЕАВА CALL DIVIDE ; Go get it АЕАГА LD A,L ; Get value АЕАДА ADD A,'0' ; Make it ascii АЕАЕА LD (DBYTES),A ; and store it АЕАЖА ; АЕАЗА LD HL,FMSG АЕАИА CALL MSGOUT АЕАЙА CALL ILPRNT ; Show message АЕБАА DEFB LF АЕББА DEFM 'File size in Kilobytes: ' АЕБВА KBYTES DEFM 'kkk.' АЕБГА DBYTES DEFM 'd (1 K-byte = 1024 bytes) АЕБДА DEFB LF АЕБЕА DEFM ' Block(s): ' АЕБЖА NUMREC DEFM 'nnnnn (1 Block = 128 bytes)' АЕБЗА DEFB LF АЕБИА DEFB LF АЕБЙА DEFM 'Send time at 1200 baud: ' АЕВАА BM1200 DEFM 'mmm minute(s), ' АЕВБА BS1200 DEFM 'ss second(s).' АЕВВА DEFB LF АЕВГА DEFM ' 300 baud: ' АЕВДА BM300 DEFM 'mmm minute(s), ' АЕВЕА BS300 DEFM 'ss second(s).' АЕВЖА DEFB LF АЕВЗА DEFB LF АЕВИА DEFM 'Enter ctrl-x to abort file transfer.' АЕВЙА DEFB LF АЕГАА DEFB LF АЕГБА DEFM 'Ready to send - awaiting initial NAK.' АЕГВА DEFB CR АЕГГА ; АЕГДА CALL INITRS ; Send initialization АЕГЕА ; АЕГЖА LD E,90 ; Number of tries for NAK АЕГЗА ; АЕГИА GETNAK LD B,1 ; 1 second attempt АЕГЙА CALL CRSINP ; Look for a character АЕДАА JR C,NOCHAR ; If no character АЕДБА ; АЕДВА CP NAK ; NAK received? АЕДГА JR Z,SNDFIL ; Yes, so go send file АЕДДА ; АЕДЕА CP CANCEL ; Is it cancelled? АЕДЖА JP Z,ABORT ; Yes, so go abort xfer АЕДЗА ; АЕДИА NOCHAR DEC E ; Keep looking? АЕДЙА JR NZ,GETNAK ; Yes АЕЕАА JP ABORT ; No, abort transfer АЕЕБА ; АЕЕВА SNDFIL CALL INCBLK ; Increment block number АЕЕГА LD A,(BLOCKS) ; Check number of blocks АЕЕДА OR A ; More needed? АЕЕЕА CALL Z,GETBKS ; If we have run out АЕЕЖА JR C,SNDEND ; If end of file АЕЕЗА CALL SNDBKS ; Send the blocks АЕЕИА JR SNDFIL ; and go get/send more АЕЕЙА ; АЕЖАА SNDEND LD A,(BLOCKS) ; Check number to send АЕЖБА OR A ; Are there any left? АЕЖВА JR Z,SNDEOT ; No, so go send EOT АЕЖГА CALL SNDBKS ; Send last blocks АЕЖДА CALL INCBLK ; Increment block count АЕЖЕА JR SNDEND ; Loop if more to send АЕЖЖА ; АЕЖЗА SNDEOT CALL SNDBKS ; Send EOT character АЕЖИА CALL CLOSEF ; Close the file АЕЖЙА JP SUCCES ; and xfer completed АЕЗАА ; АЕЗБА GETBKS LD HL,BUFFER ; Get start of buffer АЕЗВА LD (BLKADR),HL ; Store start of block АЕЗГА LD DE,FILE ; Open file АЕЗДА LD C,0 ; Zero blocks read АЕЗЕА ; АЕЗЖА LOADBK LD B,128 ; Length of each block АЕЗЗА ; АЕЗИА LOADLP CALL INPBYT ; Read a byte АЕЗЙА JR Z,NLERR ; Go if no error АЕИАА ; АЕИБА CP EOF ; End of file? АЕИВА JR Z,LDEOF ; Yes, go to eof routine АЕИГА ; АЕИДА OR HIGH ; Make it CALLable АЕИЕА CALL ERROR ; Display error АЕИЖА JP ABORT ; and abort АЕИЗА ; АЕИИА NLERR LD (HL),A ; Store byte АЕИЙА INC HL ; and prepare for next АЕЙАА DJNZ LOADLP ; Read rest of block АЕЙБА ; АЕЙВА INC C ; Increment blocks read АЕЙГА ; АЕЙДА LD A,20 ; Check # blocks read АЕЙЕА CP C ; Have we read 20? АЕЙЖА JR NZ,LOADBK ; No, so read more АЕЙЗА ; АЕЙИА LD (BLOCKS),A ; Store number read АЕЙЙА RET ; and return АЖААА ; АЖАБА LDEOF LD A,128 ; Check bytes read АЖАВА CP B ; Any bytes read in? АЖАГА JR Z,LDEND ; No, so skip fill АЖАДА ; АЖАЕА XOR A ; Set fill char = 0 АЖАЖА ; АЖАЗА LDFILL LD (HL),A ; Store character АЖАИА INC HL ; Increment buffer АЖАЙА DJNZ LDFILL ; and loop until filled АЖБАА ; АЖББА INC C ; Inc blocks read count АЖБВА ; АЖБГА LDEND LD A,C ; Get block count АЖБДА LD (BLOCKS),A ; and store it АЖБЕА SCF ; Show end of file АЖБЖА RET ; and we are done АЖБЗА ; АЖБИА SNDBKS XOR A ; Zero number of tries АЖБЙА LD (TRIES),A ; counter АЖВАА ; АЖВБА SNDBLK LD A,(BLOCKS) ; Check if any to send АЖВВА OR A ; Are there any blocks? АЖВГА JR Z,SDEOTC ; No, send EOT character АЖВДА ; АЖВЕА CALL DPYBLK ; Since not EOT block АЖВЖА ; АЖВЗА LD A,SOH ; Send start of header АЖВИА CALL CRSOUT ; character АЖВЙА ; АЖГАА LD A,(BLKCNT) ; Get block count АЖГБА CALL CRSOUT ; Send it АЖГВА CPL ; Complement it АЖГГА CALL CRSOUT ; Send it АЖГДА ; АЖГЕА LD HL,(BLKADR) ; Get start of block АЖГЖА LD B,128 ; 128 bytes / block АЖГЗА LD C,0 ; Zero checksum АЖГИА ; АЖГЙА SNDBLP LD A,(HL) ; Get character АЖДАА CALL CRSOUT ; Send it АЖДБА INC HL ; Prepare for next АЖДВА DJNZ SNDBLP ; and keep sending АЖДГА ; АЖДДА LD A,C ; Get checksum АЖДЕА CALL CRSOUT ; and send it АЖДЖА ; АЖДЗА SNDAWT LD B,10 ; 10 seconds per attempt АЖДИА CALL CRSINP ; Look for a character АЖДЙА JR C,STRIES ; If no character АЖЕАА ; АЖЕБА CP CANCEL ; Is it cancelled? АЖЕВА JP Z,ABORT ; Yes, so abort АЖЕГА ; АЖЕДА CP ACK ; Acknowledge character? АЖЕЕА JR NZ,STRIES ; No, so check tries АЖЕЖА ; АЖЕЗА LD A,(BLOCKS) ; Decrement number of АЖЕИА OR A ; Is it zero? АЖЕЙА RET Z ; Yes, so end here АЖЖАА DEC A ; Decrement blocks left АЖЖБА LD (BLOCKS),A ; and store new number АЖЖВА LD (BLKADR),HL ; Store new block addr АЖЖГА RET ; and we are done АЖЖДА ; АЖЖЕА SDEOTC LD A,EOT ; Send EOT АЖЖЖА CALL CRSOUT ; character АЖЖЗА JR SNDAWT ; and look for ack АЖЖИА ; АЖЖЙА STRIES CALL WNCHRS ; Wait until no chars АЖЗАА CALL ILPRNT ; Display * error status АЖЗБА DEFM '* ' ; АЖЗВА DEFB EOL ; АЖЗГА ; АЖЗДА LD A,(TRIES) ; Get number of attempts АЖЗЕА INC A ; and increment it by 1 АЖЗЖА LD (TRIES),A ; Store # attempts left АЖЗЗА CP 10 ; Have there been 10? АЖЗИА JR NZ,SNDBLK ; If not 10, try again АЖЗЙА JP ABORT ; else abort transfer! АЖИАА ; АЖИБА RSINIT LD BC,2 ; Wait for RS232 data АЖИВА CALL DELAY ; registers to clear АЖИГА ; АЖИДА OUT (MR),A ; Reset the RS232 board АЖИЕА ; АЖИЖА INC HL АЖИЗА LD A,(HL) АЖИИА CP '=' АЖИЙА JR Z,GIBAUD АЖЙАА DEC HL АЖЙБА PUSH HL АЖЙВА LD HL,BDTBL АЖЙГА IN A,(BAUD) АЖЙДА AND 7 АЖЙЕА LD B,0 АЖЙЖА LD C,A АЖЙЗА ADD HL,BC АЖЙИА LD A,(HL) АЖЙЙА JR CRS232 АЗААА GIBAUD PUSH HL АЗАБА LD B,0 АЗАВА FBDLEN INC HL АЗАГА INC B АЗАДА LD A,(HL) АЗАЕА CP '0' АЗАЖА JR C,FBDEND АЗАЗА CP '9'+1 АЗАИА JR C,FBDLEN АЗАЙА FBDEND DEC B АЗБАА POP DE АЗББА INC DE АЗБВА LD A,B АЗБГА OR A АЗБДА JP Z,BADOPT АЗБЕА CP 6 АЗБЖА JP NC,BADOPT АЗБЗА CALL ASCBIN АЗБИА PUSH DE АЗБЙА PUSH HL АЗВАА POP BC АЗВБА LD IX,BDCTBL АЗВВА FIBDLP LD L,(IX+0) АЗВГА LD H,(IX+1) АЗВДА LD A,H АЗВЕА OR L АЗВЖА JP Z,BADOPT АЗВЗА LD A,(IX+2) АЗВИА INC IX АЗВЙА INC IX АЗГАА INC IX АЗГБА SBC HL,BC АЗГВА JR NZ,FIBDLP АЗГГА CRS232 LD IX,BDCTBL-3 АЗГДА GBDRLP INC IX АЗГЕА INC IX АЗГЖА INC IX АЗГЗА CP (IX+2) АЗГИА JR NZ,GBDRLP АЗГЙА PUSH AF АЗДАА LD L,(IX+0) АЗДБА LD H,(IX+1) АЗДВА LD DE,BAUDMS АЗДГА LD B,5 АЗДДА LD A,B АЗДЕА CALL BINASC АЗДЖА POP AF АЗДЗА OUT (BAUD),A ; Set the baud rate АЗДИА LD A,CONFIG ; 8 word, 1 stop, no par. АЗДЙА OUT (RSCTRL),A ; Set the configuration АЗЕАА ; АЗЕБА CALL ILPRNT ; Display initialized msg АЗЕВА DEFB LF АЗЕГА DEFM 'The serial interface has been configured for xmodem file xfer.' АЗЕДА DEFB LF АЗЕЕА DEFM 'Configuration is 8 bit word length, 1 stop bit, and no parity.' АЗЕЖА DEFB LF АЗЕЗА DEFB LF АЗЕИА DEFM 'Baud rate selected: ' АЗЕЙА BAUDMS DEFM 'nnnnn bps.' АЗЖАА DEFB CR АЗЖБА ; АЗЖВА POP HL ; Get command pointer АЗЖГА JP FNDOPT ; Check for more options АЗЖДА ; АЗЖЕА NMDMCK LD A,RETURN ; Set a bypass return АЗЖЖА LD (MDMCHK),A ; to not check carrier АЗЖЗА PUSH HL ; Save cmd params АЗЖИА CALL ILPRNT АЗЖЙА DEFB LF АЗЗАА DEFM 'Modem carrier check disabled for direct serial to serial xfer.' АЗЗБА DEFB CR АЗЗВА ; АЗЗГА POP HL АЗЗДА JP FNDOPT ; Go check next option АЗЗЕА ; АЗЗЖА DELAY PUSH BC ; Save count АЗЗЗА LD BC,0 ; 1 second of delay АЗЗИА CALL 60H ; Delay for 1 second АЗЗЙА POP BC ; Get count АЗИАА DEC BC ; Decrement it АЗИБА LD A,B ; Is it АЗИВА OR C ; zero? АЗИГА JR NZ,DELAY ; No, so delay some more АЗИДА RET ; otherwise return АЗИЕА ; АЗИЖА MULT PUSH HL ; Move the value to DE АЗИЗА POP DE ; without losing HL АЗИИА ; АЗИЙА MULTLP ADD HL,DE ; Do the multiplying АЗЙАА DJNZ MULTLP ; Until done АЗЙБА RET ; and then return АЗЙВА ; АЗЙГА DIVIDE OR A ; Clear carry АЗЙДА LD DE,0 ; To be used as a counter АЗЙЕА ; АЗЙЖА DIVLP SBC HL,BC ; Subtract АЗЙЗА JR C,DIVEND ; until carry АЗЙИА INC DE ; and increment each time АЗЙЙА JR DIVLP ; Keep going til too much АИААА ; АИАБА DIVEND ADD HL,BC ; Fix value АИАВА EX DE,HL ; Flip the count and the АИАГА RET ; remainder, then return АИАДА ; АИАЕА BINASC LD (BAFLAG),A ; Zero=spaces option АИАЖА LD IX,P10TBL+10 ; Get powers of ten table АИАЗА LD A,B ; Check # of positions АИАИА OR A ; Zero positions? АИАЙА JR NZ,BA0 ; No, so ok АИБАА ; АИББА LD B,1 ; Set to 1 position АИБВА LD A,B ; and in register A too! АИБГА ; АИБДА BA0 CP 6 ; Check for too many АИБЕА JR C,BA1 ; Go if not too many АИБЖА ; АИБЗА LD B,5 ; Set to 5 positions АИБИА LD A,B ; and in register A too! АИБЙА ; АИВАА BA1 DEC IX ; Get location in table АИВБА DEC IX ; АИВВА DJNZ BA1 ; and loop until found АИВГА ; АИВДА CP 5 ; Max value allowed? АИВЕА JR Z,BA2 ; Yes, so no check needed АИВЖА ; АИВЗА PUSH HL ; Save value АИВИА LD B,(IX-1) ; Get check value АИВЙА LD C,(IX-2) ; to test for too high АИГАА OR A ; Clear carry flag АИГБА SBC HL,BC ; Too high? АИГВА POP HL ; Fix HL АИГГА JR C,BA2 ; Not too high, so skip АИГДА ; АИГЕА PUSH BC ; Move BC to HL АИГЖА POP HL ; АИГЗА DEC HL ; Set highest value АИГИА ; АИГЙА BA2 XOR A ; Zero leading zeroes АИДАА LD (LEADNZ),A ; check flag АИДБА ; АИДВА BA3 XOR A ; Zero the A register АИДГА LD C,(IX+0) ; Get current power of АИДДА LD B,(IX+1) ; ten from the table АИДЕА ; АИДЖА BA4 SBC HL,BC ; Subtract values АИДЗА JR C,BA5 ; until too much АИДИА ; АИДЙА INC A ; Increment ascii value АИЕАА JR BA4 ; and keep going АИЕБА ; АИЕВА BA5 ADD HL,BC ; Fix value АИЕГА ADD A,'0' ; Make ascii character АИЕДА PUSH AF ; Save character АИЕЕА LD A,C ; Check for last location АИЕЖА CP 1 ; Is it last? АИЕЗА JR Z,BA7 ; Yes, no more processing АИЕИА ; АИЕЙА POP AF ; Restore AF АИЖАА PUSH AF ; and keep it on stack АИЖБА CP '0' ; Ascii zero? АИЖВА JR Z,BA6 ; Yes, so go process АИЖГА ; АИЖДА LD A,HIGH ; Set flag to a АИЖЕА LD (LEADNZ),A ; non-zero value АИЖЖА ; АИЖЗА BA6 LD A,0 ; Check for storing АИЖИА BAFLAG EQU $-1 ; leading zeroes АИЖЙА OR A ; Store them? АИЗАА JR Z,BA7 ; Yes АИЗБА LD A,0 ; Check for previous АИЗВА LEADNZ EQU $-1 ; non-zero value stored АИЗГА OR A ; Any found? АИЗДА JR NZ,BA7 ; Yes, so store value АИЗЕА POP AF ; Get character АИЗЖА LD A,SPACE ; Change it to a space АИЗЗА PUSH AF ; and restore character АИЗИА ; АИЗЙА BA7 POP AF ; Get character from stk АИИАА LD (DE),A ; Store character АИИБА INC DE ; Prepare for next АИИВА LD A,C ; Check for end АИИГА CP 1 ; Have we done yet? АИИДА RET Z ; Yes, so return АИИЕА INC IX ; No, so get next АИИЖА INC IX ; power of ten position АИИЗА JR BA3 ; and resume converting АИИИА ; АИИЙА ASCBIN LD IX,P10TBL+10 ; Obtain powers of ten АИЙАА LD HL,0 ; Initialize HL to zero АИЙБА LD A,B ; Check for zero pos(s) АИЙВА OR A ; Zero? АИЙГА JR NZ,AB0 ; No, so skip section АИЙДА ; АИЙЕА LD B,1 ; Set field to 1 АИЙЖА LD A,B ; and store new value АИЙЗА ; АИЙИА AB0 CP 6 ; Check for too many! АИЙЙА JR C,AB1 ; If less than 6 АЙААА LD B,5 ; Set to max allowed АЙАБА ; АЙАВА AB1 DEC IX ; Find place in table АЙАГА DEC IX ; АЙАДА DJNZ AB1 ; Until B=0 АЙАЕА ; АЙАЖА AB2 XOR A ; Clear flags АЙАЗА LD C,(IX+0) ; Obtain power of ten АЙАИА LD B,(IX+1) ; АЙАЙА LD A,(DE) ; Get value from buffer АЙБАА SUB '0' ; and make it 0-9 binary АЙББА ; АЙБВА AB3 SUB 1 ; Decrement it АЙБГА JR C,AB4 ; until too many АЙБДА ADD HL,BC ; Accum value if not АЙБЕА JR AB3 ; and keep looping АЙБЖА ; АЙБЗА AB4 LD A,C ; Check for end АЙБИА CP 1 ; Are we there? АЙБЙА RET Z ; Yes, so return АЙВАА INC DE ; else get next position АЙВБА INC IX ; and next power of ten АЙВВА INC IX ; АЙВГА JR AB2 ; and keep looping АЙВДА ; АЙВЕА ILPRNT POP HL ; Get message address АЙВЖА LD A,(HL) ; and char found there АЙВЗА INC HL ; Increment for next char АЙВИА PUSH HL ; and push back on stack АЙВЙА ; АЙГАА CP EOL ; End of line? АЙГБА RET Z ; Yes, so we are done АЙГВА ; АЙГГА PUSH AF ; Save AF and DE АЙГДА PUSH DE ; АЙГЕА CALL CHROUT ; Display character АЙГЖА POP DE ; Restore DE and AF АЙГЗА POP AF ; АЙГИА ; АЙГЙА CP CR ; Was it a CR? АЙДАА RET Z ; Yes, so we are done АЙДБА ; АЙДВА JR ILPRNT ; Look for next character АЙДГА ; АЙДДА CLOSEF LD DE,FILE ; Get open file АЙДЕА CALL CLOSE ; try and close it АЙДЖА RET Z ; Done if no error АЙДЗА OR HIGH ; Make it CALLable АЙДИА JP ERROR ; and return to previous АЙДЙА ; АЙЕАА ABORT IN A,(MODEM) ; Check for carrier АЙЕБА BIT CARDET,A ; Carrier detected? АЙЕВА JR NZ,ABORT1 ; No, so skip cancel send АЙЕГА ; АЙЕДА CALL WNCHRS ; Wait until no chars АЙЕЕА LD A,CANCEL ; Send the cancel char АЙЕЖА CALL CRSOUT ; to show aborting АЙЕЗА ; АЙЕИА ABORT1 CALL VIDFIX ; Fix the video output АЙЕЙА LD DE,FILE ; Get open file АЙЖАА LD A,(OPTSAV) ; Check receive or send АЙЖБА CP 'R' ; Receive? АЙЖВА JR NZ,SNDABT ; No, must be send АЙЖГА ; АЙЖДА CALL KILL ; Kill received file АЙЖЕА JR RECABT ; Exit to receive abort АЙЖЖА ; АЙЖЗА SNDABT CALL CLOSEF ; Close send file АЙЖИА RECABT JR Z,DPYABT ; Display abort message АЙЖЙА OR HIGH ; Make it CALLable АЙЗАА CALL ERROR ; Display error АЙЗБА ; АЙЗВА DPYABT CALL ILPRNT ; Display message АЙЗГА DEFB BELL АЙЗДА DEFB LF АЙЗЕА DEFB LF АЙЗЖА DEFM '>> File transfer aborted!' АЙЗЗА DEFB CR АЙЗИА ; АЙЗЙА JP EXIT ; and take normal exit АЙИАА ; АЙИБА SUCCES CALL VIDFIX ; Fix video output АЙИВА CALL ILPRNT ; Display message АЙИГА DEFB BELL АЙИДА DEFB LF АЙИЕА DEFB LF АЙИЖА DEFM '>> File transfer completed.' АЙИЗА DEFB CR АЙИИА ; АЙИЙА LD HL,(CMDPTR) ; Get command pointer АЙЙАА JP FNDOPT ; and see if more waiting АЙЙБА ; АЙЙВА VIDFIX LD HL,(VIDSAV) ; Get old video driver АЙЙГА LD (VIDDCB),HL ; and store it АЙЙДА RET ; and return АЙЙЕА ; АЙЙЖА INCBLK PUSH AF ; Save AF АЙЙЗА LD A,(BLKCNT) ; Get block count АЙЙИА INC A ; and increment it АЙЙЙА LD (BLKCNT),A ; and save it БАААА POP AF ; Restore AF БААБА RET ; then return БААВА ; БААГА SNDACK LD A,ACK ; Send acknowledge БААДА JP CRSOUT ; character БААЕА ; БААЖА WNCHRS LD B,1 ; 1 second attempt БААЗА CALL CRSINP ; Look for character БААИА JR NC,WNCHRS ; Loop if character found БААЙА RET ; otherwise return БАБАА ; БАББА ABTCHK LD A,(CTLVEC) ; Get control keys info БАБВА BIT BRKKEY,A ; Break pressed? БАБГА JR Z,CTLXCK ; No, so check ctrl-x БАБДА ; БАБЕА BRKLP LD A,(CTLVEC) ; Get control keys info БАБЖА BIT BRKKEY,A ; Break still held down? БАБЗА JR NZ,BRKLP ; Yes, wait 'til released БАБИА ABTKEY JP ABORT ; Abort transfer БАБЙА ; БАВАА CTLXCK LD A,(SHIFT) ; Check shift key БАВБА OR A ; Is it pressed? БАВВА JR Z,MDMCHK ; No, so check modem БАВГА LD A,(CTLVEC) ; Check down arrow БАВДА BIT DWNARR,A ; Is it pressed? БАВЕА JR Z,MDMCHK ; No, so check modem БАВЖА LD A,(XYZVEC) ; Check for key X БАВЗА BIT XKEY,A ; Is it pressed? БАВИА JR Z,MDMCHK ; No, so check modem БАВЙА ; БАГАА CTLXLP LD A,(SHIFT) ; Wait 'til keys released БАГБА OR A ; Is shift pressed? БАГВА JR NZ,CTLXLP ; Yes, so try again БАГГА LD A,(CTLVEC) ; Check down arrow БАГДА BIT DWNARR,A ; Is it pressed? БАГЕА JR NZ,CTLXLP ; Yes, so try again БАГЖА LD A,(XYZVEC) ; Check for key X БАГЗА BIT XKEY,A ; Is it pressed? БАГИА JR NZ,CTLXLP ; Yes, so try again БАГЙА JR ABTKEY ; Jump to abort routine БАДАА ; БАДБА MDMCHK NOP ; If bypass = return БАДВА IN A,(MODEM) ; Check for carrier БАДГА BIT CARDET,A ; Carrier present? БАДДА RET Z ; Yes, so we are done БАДЕА ; БАДЖА CALL ILPRNT ; Display a message БАДЗА DEFB BELL БАДИА DEFB LF БАДЙА DEFB LF БАЕАА DEFM '>> No carrier detected!' БАЕБА DEFB EOL БАЕВА ; БАЕГА JP ABORT1 ; Abort transfer БАЕДА ; БАЕЕА INITRS XOR A ; Zero some counters БАЕЖА LD (BLOCKS),A ; Blocks transferred БАЕЗА LD (BLKCNT),A ; Block count БАЕИА LD (DPYHDR),A ; Zero to dpy blk msg БАЕЙА LD HL,BUFFER ; Set block address БАЖАА LD (BLKADR),HL ; to start of buffer БАЖБА IN A,(RSDATA) ; Clear RS232 flags/port БАЖВА ; БАЖГА LD HL,(VIDDCB) ; Get old video driver БАЖДА LD (VIDSAV),HL ; and save it БАЖЕА LD HL,0 ; Get new video driver БАЖЖА NEWDVR EQU $-2 ; Location of driver БАЖЗА LD (VIDDCB),HL ; Store new driver БАЖИА ; БАЖЙА RET ; and we are done БАЗАА ; БАЗБА DPYBLK CALL DPYHDR ; Display block message БАЗВА LD A,BCKSPC ; Move cursor back two БАЗГА CALL CHROUT ; positions by sending БАЗДА LD A,BCKSPC ; two backspace codes БАЗЕА CALL CHROUT ; to the screen БАЗЖА LD A,(BLKCNT) ; Get current block count БАЗЗА PUSH AF ; and save for low bits БАЗИА CALL HIBITS ; Display high nibble БАЗЙА POP AF ; Restore for low bits БАИАА JP LOBITS ; and display low nibble БАИБА ; БАИВА HIBITS RRCA ; We want the high БАИГА RRCA ; nibble here, so rotate БАИДА RRCA ; the four bits into БАИЕА RRCA ; position БАИЖА ; БАИЗА LOBITS AND 15 ; Get first 4 bits only БАИИА CP 10 ; Is it > 9 ? БАИЙА JR C,NOTAF ; No, so it is not A - F БАЙАА ; БАЙБА ADD A,7 ; A-F after conversion БАЙВА ; БАЙГА NOTAF ADD A,'0' ; Make it ascii БАЙДА JP CHROUT ; and display it (done) БАЙЕА ; БАЙЖА DPYHDR NOP ; Executes once/file xfer БАЙЗА LD A,RETURN ; Make sure only once БАЙИА LD (DPYHDR),A ; by storing a return БАЙЙА ; ББААА LD A,(OPTSAV) ; Get option ББАБА CP 'R' ; Is it receive? ББАВА JR NZ,DPYSDH ; No, must be send ББАГА ; ББАДА CALL ILPRNT ; Display block message ББАЕА DEFB LF ББАЖА DEFM 'Receiving' ББАЗА DEFB EOL ББАИА JR ENDHDR ; End block message ББАЙА ; БББАА DPYSDH CALL ILPRNT ; Display block message ББББА DEFB LF БББВА DEFM 'Sending' БББГА DEFB EOL БББДА ; БББЕА ENDHDR CALL ILPRNT ; Display rest of blk msg БББЖА DEFM ' Block: ' БББЗА DEFB EOL БББИА RET ; Now we are done БББЙА ; ББВАА VIDEO1 JR C,NORMAL ; If carry, use rom ББВБА LD L,(IX+3) ; otherwise get cursor ББВВА LD H,(IX+4) ; screen location ББВГА LD A,C ; and the character ББВДА SUB 20H ; Lower it 20H ББВЕА CP LCCHAR ; Is it lowercase? ББВЖА LD A,C ; Obtain original again ББВЗА JP C,47DH ; Yes, it is lc so exit ББВИА NORMAL JP 458H ; else use normal entry ББВЙА ; ББГАА CRSINP PUSH DE ; Save DE ББГБА ; ББГВА RSINP1 LD DE,3000H ; Count = 1 second ББГГА RSIDLY EQU $-2 ; Number of tries ББГДА ; ББГЕА RSINP2 CALL ABTCHK ; Check for abort ББГЖА IN A,(STATUS) ; Check receive buffer ББГЗА BIT DRECVD,A ; Any data received? ББГИА JR NZ,DARECV ; Yes, so exit loop ББГЙА ; ББДАА DEC DE ; Decrement counter ББДБА LD A,D ; Check for end of loop ББДВА OR E ; End? ББДГА JR NZ,RSINP2 ; No, so try again ББДДА ; ББДЕА DJNZ RSINP1 ; Loop if more secs ББДЖА ; ББДЗА RSIERR POP DE ; Restore DE ББДИА IN A,(RSDATA) ; Clear the RS data reg ББДЙА SCF ; Set carry=no char recvd ББЕАА RET ; and we are done ББЕБА ; ББЕВА DARECV IN A,(STATUS) ; Check for errors ББЕГА BIT OVRERR,A ; Overrun error? ББЕДА JR NZ,RSIERR ; Yes, take error exit ББЕЕА ; ББЕЖА BIT FRMERR,A ; Framing error? ББЕЗА JR NZ,RSIERR ; Yes, take error exit ББЕИА ; ББЕЙА IN A,(RSDATA) ; Get character ББЖАА POP DE ; Restore DE ББЖБА ; ББЖВА PUSH AF ; Save character ББЖГА ADD A,C ; Perform ББЖДА LD C,A ; checksum ББЖЕА POP AF ; Restore character ББЖЖА OR A ; Clear carry if set ББЖЗА RET ; and we are done ББЖИА ; ББЖЙА CRSOUT PUSH AF ; Save character ББЗАА ADD A,C ; Perform ББЗБА LD C,A ; checksum ББЗВА ; ББЗГА RSOUT CALL ABTCHK ; Check for abort ББЗДА IN A,(STATUS) ; Check xmit buffer ББЗЕА BIT XEMPTY,A ; Is it empty? ББЗЖА JR Z,RSOUT ; No, so keep looping ББЗЗА ; ББЗИА POP AF ; Restrieve character ББЗЙА OUT (RSDATA),A ; and sent it ББИАА RET ; and we are done ББИБА ; ББИВА BDTBL DEFB BR110 ББИГА DEFB BR150 ББИДА DEFB BR300 ББИЕА DEFB BR600 ББИЖА DEFB BR1200 ББИЗА DEFB BR2400 ББИИА DEFB BR4800 ББИЙА DEFB BR9600 ББЙАА ; ББЙБА BDCTBL DEFW 50 ББЙВА DEFB BR50 ББЙГА DEFW 75 ББЙДА DEFB BR75 ББЙЕА DEFW 110 ББЙЖА DEFB BR110 ББЙЗА DEFW 135 ББЙИА DEFB BR135 ББЙЙА DEFW 150 БВААА DEFB BR150 БВАБА DEFW 300 БВАВА DEFB BR300 БВАГА DEFW 600 БВАДА DEFB BR600 БВАЕА DEFW 1200 БВАЖА DEFB BR1200 БВАЗА DEFW 1800 БВАИА DEFB BR1800 БВАЙА DEFW 2000 БВБАА DEFB BR2000 БВББА DEFW 2400 БВБВА DEFB BR2400 БВБГА DEFW 3600 БВБДА DEFB BR3600 БВБЕА DEFW 4800 БВБЖА DEFB BR4800 БВБЗА DEFW 7200 БВБИА DEFB BR7200 БВБЙА DEFW 9600 БВВАА DEFB BR9600 БВВБА DEFW 19200 БВВВА DEFB BR1920 БВВГА DEFW 0 БВВДА ; БВВЕА FMSG DEFB LF БВВЖА DEFM 'File = ' БВВЗА FNAME DEFS 24 БВВИА STKSAV DEFS 2 ; Save area for stack ptr БВВЙА VIDSAV DEFS 2 ; Save area for video dvr БВГАА OPTSAV DEFS 1 ; Save area for opt key БВГБА TRIES DEFS 1 ; Number of attempts БВГВА BLKCNT DEFS 1 ; Block counter БВГГА BLOCKS DEFS 1 ; Number transferred БВГДА BLKADR DEFS 2 ; Current buffer pointer БВГЕА CMDPTR DEFS 2 ; End of current command БВГЖА FIRST DEFS 1 ; First block flag БВГЗА FILE DEFS 50 ; Filespec work area БВГИА DSKBUF DEFS 256 ; Disk sector buffer БВГЙА BUFFER DEFS 2560 ; Big buffer for blocks БВДАА ENDPGM EQU $-1 ; Last addr used by pgm БВДБА ; БВДВА END START Downloaded from Guy Omer of 8/N/1 #1 at 904/377-1200 in Gainesville,FL.