IF NOT lasm .printx * CPXCOM.ASM * ENDIF ; NOT lasm ; KERMIT - (Celtic for "FREE") ; ; This is the CP/M-80 implementation of the Columbia University ; KERMIT file transfer protocol. ; ; Version 4.0 ; ; Copyright June 1981,1982,1983,1984,1985 ; Columbia University ; ; Originally written by Bill Catchings of the Columbia University Center for ; Computing Activities, 612 W. 115th St., New York, NY 10025. ; ; Contributions by Frank da Cruz, Daphne Tzoar, Bernie Eiben, ; Bruce Tanner, Nick Bush, Greg Small, Kimmo Laaksonen, Jeff Damens, and many ; others. ; ; This file contains part common code required for most if not all ; systems. Specifiacally, SYSINIT, INIADR, MOVER, and DELAY to name ; the most important ones. ; ; revision history: ; ; edit 1, 21st July 1987 by OBSchou. Regretably, I have had to include ; some system dependent IFs, mainly for CRT, TORCH and OSI. Inclusion ; here means simpler family files later on. (Regrettably, the delay ; loop for APMMDM differs too.) ; ; Set the fuzzy timeout value. Range is 1 (VERY short) through 0ffffH to zero ; (maximum). The actual duration is a function of the loop length and the ; processor speed. For now, we'll make it zero for everybody, but feel free ; to change it for your system. ; [OBS] make it a little less than max, say 1000H. More useful. fuzval EQU 1000H ; ; System-dependent initialization ; Called once at program start. sysinit: ; ; [13] Had to move this call to here, as the prtstr routine needs this ; before the config message is sent out. It has only been moved. ; call iniadr ;Initialize the BIOS addresses mvi c,gtiob ;Get current I/O byte call bdos ;From CP/M sta coniob ;Remember where console is mvi c,getvnm ; get the BDOS version number (e.g. 22H, 31H) call bdos mov a,l sta bdosvr ; and store it away for future reference lxi d,cfgmsg ; "configured for " call prtstr lxi d,sysver ; get configuration we're configured for call prtstr ; print it. ; ; If we're set up to do special terminal handling, say what kind ; of terminal we expect... (unless it's the generic 'crt') IF termin lxi d,witmsg ; " with " call prtstr lxi d,ttytyp ; terminal type call prtstr ENDIF;termin call prcrlf ; print CR/LF ; ; now, to work... ; ; locate large buffer for multi-sector I/O ; What we want to do here is find the ccp. Space between ovlend and the ccp ; is available for buffering, except we don't want to use more than maxsec ; buffers (if we use too many, the remote end could time out while we're ; writing to disk). maxsec is system-dependent, but for now we'll just ; use 8Kbytes. If you get retransmissions and other protocol errors after ; transferring the first maxsec sectors, lower maxsec. maxsec EQU (8*1024)/bufsiz ; 8K / number of bytes per sector lxi h,ovlend ; get start of buffer shld bufadr ; store in linkage section mvi a,maxsec ; get size of buffer, in sectors sta bufsec ; store that, too. call sysxin ; call system specific init code ret ; return from system-dependent routine bdosvr: ds 1 ; space to save the BDOS version number IF NOT iobyt coniob: ds 1 ; space to save copy of IO byte ENDIF ;NOT iobyt ; ; This one is hopefully the last "improvement" in view of GENERIC ;Kermit. It uses for Character-I/O the BIOS-routines ( instead of the ;"normal" BDOS routines. What does it give us (hopefully) : More speed, ;higher chance of success ( I/O byte implemented in BIOS [if at all]), ;but no "extra" device handling - that's done by BDOS. ; ; How do we "get" the call-adresses? Location 0 has a JMP Warm-Boot ;in CP/M which points into the second location of the BIOS JMP-Vector. The ;next three locations of the JMP-Vector point to the CONSTAT,CONIN,CONOUT ;BIOS-routines. CONOUT wants the character in C. ; ;- Bernie Eiben iniadr: lhld 1 ;get BIOS Warmstart-address lxi d,3 ;next adress is CONSTAT in BIOS dad d shld bconst+1 ;stuff it into the call-instruction lxi d,3 ;next adress is CONIN in BIOS dad d shld bconin+1 ; lxi d,3 ;next adress is CONOUT in BIOS dad d shld bcnout+1 lxi d,3 ;next address is LIST in BIOS dad d shld blsout+1 lxi d,10*3 ; get printer status routine dad d shld bprtst ret ;And return bconst: jmp $-$ ;Call BIOS directly (filled in by iniadr) bconin: jmp $-$ ;Call BIOS directly (filled in by iniadr) bcnout: jmp $-$ ;Call BIOS directly (filled in by iniadr) blsout: jmp $-$ ; .... bprtst: jmp $-$ ; Call BIOS directly for printer status IF NOT apmmdm ; Shame about this, but the Apple needs a different delay ; ;[cjc] Delay routine. Called with time (hundredths of seconds) in A. ; The inner loop delays 1001 T-states, assuming no wait states are ; inserted; this is repeated CPUSPD times, for a total delay of just ; over 0.01 second. (CPUSPD should be set to the system clock rate, ; in units of 100KHz: for an unmodified Kaypro II, that's 25 for ; 2.5 MHz. Some enterprising soul could determine whether or not the ; Kaypro actually inserts a wait state on instruction fetch (a common ; practice); if so, the magic number at delay2 needs to be decreased. ; (We also neglect to consider time spent at interrupt level). ; ; called by: sendbr ; destroys BC delay: mvi c,cpuspd ; Number of times to wait 1000 T-states to ; make .01 second delay delay2: mvi b,70 ; Number of times to execute inner loop to ; make 1000 T-state delay delay3: dcr b ; 4 T-states (* 70 * cpuspd) jnz delay3 ; 10 T-states (* 70 * cpuspd) dcr c ; 4 T-states (* cpuspd) jnz delay2 ; 10 T-states (* cpuspd) ; total delay: ((14 * 70) + 14) * cpuspd ; = 1001 * cpuspd dcr a ; 4 T-states jnz delay ; 10 T-states ret ; grand total: ((1001 * cpuspd) + 14) * a ENDIF ; NOT apmmdm ; ; ; Set up screen display for file transfer ; called with kermit version in DE ; sysscr: push d ; save version for a bit lxi d,outlin ; clear screen, position cursor call prtstr ; do it pop d ; get Kermit's version IF NOT (osi OR crt) ; got cursor control? call prtstr ; print it mvi e,'[' ; open bracket call outcon ; print it (close bracket is in outln2) lxi d,sysver ; get name and version of system module call prtstr lxi d,outln2 ; yes, print field names call prtstr lda dbgflg ; is debugging enabled? ora a rz ; finished if no debugging lxi d,outln3 ; set up debugging fields call prtstr ENDIF;NOT (osi OR crt) ret ; ; Calculate free space for current drive ; returns value in HL sysspc: lda bdosvr ;cpm3's alloc vect may be in another bank cpi 30H ;cpm3 or later? jm cp2spc ;no: use cp/m 2 algorithm lda fcb ;If no drive, get ora a ; logged in drive jz dir180 dcr a ;FCB drive A=1 normalize to be A=0 jmp dir18a dir180: mvi c,rddrv call bdos dir18a: mov e,a ;drive in e mvi c,getfs ;get free space BDOS funct call bdos ;returns free recs (3 bytes in buff..buff+2) mvi b,3 ;conv recs to K by 3 bit shift dir18b: xra a ;clear carry mvi c,3 ;for 3 bytes lxi h,buff+3 ;point to addr + 1 dir18c: dcx h ;point to less sig. byte mov a,m ;get byte rar ;carry -> A -> carry mov m,a ;put back byte dcr c ;for all bytes (carry not mod) jnz dir18c dcr b ;shift 1 bit 3 times jnz dir18b mov e,m ;get least sig byte inx h mov d,m ;get most sig byte xchg ;get K free in HL ret ; the rest are CP/M 2.2 systems, so use the alloc vector cp2spc: mvi c,getalv ;Address of CP/M Allocation Vector call bdos xchg ;Get its length lhld bmax inx h lxi b,0 ;Initialize Block count to zero dir19: push d ;Save allocation address ldax d mvi e,8 ;set to process 8 blocks dir20: ral ;Test bit jc dir20a inx b dir20a: mov d,a ;Save bits dcx h mov a,l ora h jz dir21 ;Quit if out of blocks mov a,d ;Restore bits dcr e ;count down 8 bits jnz dir20 ;do another bit pop d ;Bump to next count of Allocation Vector inx d jmp dir19 ;process it dir21: pop d ;Clear Allocation vector from stack mov l,c ;Copy block to 'HL' mov h,b lda bshiftf ;Get Block Shift Factor sui 3 ;Convert from records to thousands rz ;Skip shifts if 1K blocks dir22: dad h ;Multiply blocks by 'K per Block' dcr a jnz dir22 ret ; +----|----|----|----|----|----|----|... ; 1 | ; 2 | Kermit-80 v4.0 [system] ; 3 | ; 4 |Number of packets: ____ ; 5 |Number of retries: ____ ; 6 |File name: ____________ ; 7 |... ; 8 |... ; 9 |RPack: ___(if debugging)... ; 10 | ; 11 |SPack: ___(if debugging)... ; 12 | ; 13 |Kermit-80 A:> (when finished) ; ; For the PX-8, the display looks like: ; 5 10 15 20 25 30 35 40 45 50 55 ; +----|----|----|----|----|----|----|----|----|----|----|----|---- ; 1 |Kermit-80 v4.05 [Epson PX-8] Number of retries: ____ ; 2 |Number of packets: ____ File name: ________.___ ; 3 |... ; 4 |... ; 5 |RPack: ___ (if debugging)... ; 6 | ; 7 |SPack: ___ (if debugging)... ; 8 | ; 9 |Kermit-80 A:> (when finished) ; IF NOT px8 ; [29] nppos EQU 4*100h+20 rtpos EQU 5*100h+20 fnpos EQU 6*100h+12 errlin EQU 7 stlin EQU 8 rplin EQU 9 splin EQU 11 prplin EQU 13 ENDIF ; NOT px8 IF px8 nppos EQU 2*100h+20 rtpos EQU 1*100h+59 fnpos EQU 2*100h+51 errlin EQU 3 stlin EQU 4 rplin EQU 5 splin EQU 7 prplin EQU 9 ENDIF ; px8 [29] IF NOT (osi OR crt );[26] scrnp: lxi b,nppos jmp csrpos scrnrt: lxi b,rtpos jmp csrpos scrfln: lxi b,fnpos call csrpos clreol: lxi d,tk jmp prtstr screrr: lxi b,errlin*100H+1 call csrpos jmp clreol scrst: lxi b,stlin*100H+1 call csrpos jmp clreol rppos: lxi b,rplin*100H+8 call csrpos jmp clreol sppos: lxi b,splin*100H+8 call csrpos jmp clreol ; [29] Modify scrend to make the cursor line conditional on use of debugging ; This means that in most cases the entire file transfer will fit on PX-8 lcd scrend: lda dbgflg ora a jz scr1nd lxi b,prplin*100H+1 ; debugging in use [29] jmp scr2nd scr1nd: lxi b,rplin*100H+1 ; no debugging scr2nd: call csrpos clreos: lxi d,tj jmp prtstr ; [29] and nop out the rest for now... ; ;scrend: lxi b,prplin*100H+1 ; call csrpos ;clreos: lxi d,tj ; jmp prtstr ENDIF;NOT (osi OR crt ) [26] IF osi OR crt ; no cursor control scrnp: mvi e,' ' jmp outcon scrnrt: mvi e,' ' call outcon mvi e,'%' jmp outcon scrfln: screrr: scrst: scrend: jmp prcrlf ;Print CR/LF [Toad Hall] rppos: lxi d,prpack jmp prtstr sppos: lxi d,pspack jmp prtstr ENDIF;osi OR crt ; Some frequently-used routines (duplicates of those in CPSMIT): ; prcrlf - output a CR/LF ; prtstr - output string in DE ; rskp - return, skipping over error return prcrlf: lxi d,crlf prtstr: ; [17] added this to avoid prtstr.. emulate function 9 call. ; Works on most machines. IF (torch OR px8 OR z80mu) ; ; Modified print string as the CP/N (for Nut) system traps control ; characters in a function 9 call.. rot its cotton socks. push h push d push b prtst1: ldax d inx d cpi '$' ; if a dollar then end of string jz prtst2 push d mov e,a mov c,a ; also to c if its via conout in BIOS call outcon ; send it to the screen pop d jmp prtst1 prtst2: pop b pop d pop h ret ; regs restored.. just in case ENDIF ;(torch OR px8 OR z80mu) IF NOT (torch OR px8 or z80mu) ;ie any machine that can send ctrl chrs via dos call 9 PUSH H PUSH D push b mvi c,9 ; Dos call 9 (print a string) call bdos pop b POP D POP H ret ; all done for good machines ENDIF ;NOT (torch OR px8 OR z80mu) ; ; rskp - return to calling address + 3. rskp: pop h ; Get the return address inx h ; Increment by three inx h inx h pchl ; Copy block of data ; source in HL, destination in DE, byte count in BC ; called by: cpxsys, mfname ; mover: ;IF NOT z80 ; 8080's have to do it the hard way ;OBS assume its an 8080 for now - this will work on Z80s anyway. mov a,m stax d inx h inx d dcx b mov a,b ora c jnz mover ;ENDIF;NOT z80 ;IF z80 ; db 0EDh,0B0h ; Z80 LDIR instruction ;ENDIF;z80 ret ; ; Miscellaneous messages ; crlf: db cr,lf,'$' cfgmsg: db 'configured for $' witmsg: db ' with $' ; Its included if we get here ('with terminal') IF NOT (osi OR crt OR px8) ; [29] got cursor control? outln2: db ']',cr,lf,cr,lf,'Number of packets:' db cr,lf,'Number of retries:' db cr,lf,'File name:$' ENDIF;NOT (osi OR crt OR px8) IF px8 ; [29] outln2: db '] Number of retries:', cr, lf db 'Number of packets: File name:$' ENDIF ; px8 [29] IF NOT (osi OR crt) ; [29] outln3: db cr,lf,cr,lf ; debugging messages db cr,lf,'Rpack:' db cr,lf ; Blank line in case of long packet db cr,lf,'Spack:$' ENDIF ; NOT (osi OR crt) [29] IF lasm LINK CPXSWT.ASM ENDIF ;lasm