
 ô READCOUT8 ô to open a z80 com file and serial output it in hex# ô to srlrun.com on the Einstein6 ô SRLRUN needs "\" sent before loading Hex as codeA  ô characters A B C D E F  0 1 2 3 4 5 6 7 8 9  will be loadedJ! ô after the "\". Characters  : ; < > ? @ should not be sent after "\".H" ô The "=" character will terminate transmission and run the program.H# ô All lower case letters, tabs, spaces and carriage returns ignored.( ń Š20) "BYTES SENT" 2 PORT% = ­ "COM1: 9600,N,8,2"< ń:ń:ń:ń:ń:.A ń "COM1 SERIAL PORT IS *OUTPUT "; PORT%: ń
F Ţ P% 6=P [OPT 0 ; machine code routine to read and write PC ports.)Z .INPORT IN AL,DX : MOVZX EAX,AL : RETd .OUTPUT OUT DX,AL : RET : ])n ń Š0,20) "TO SELECT FILE TO TRANSFER"2x č"PRESS ENTER";A$: ô these two lines will open7‚ X=Ž(A$)                   : ô the Windows file box.'Ś L=˘#X:ń,"LENGTH ";L,"BLOCKS ";L/256– ń"FILE NUMBER ";X  *OUTPUT 1FŞ ń "zilog com file to output in hex \":ô \ needed to start loading.´ ă I=1 ¸ L
ľ Y=š# XČ *OUTPUT 00Ň D%=&03FE        : ô tests PC serial register*Ü DAT=ş(INPORT) : ô to see if Einstein's$ć ô CALL INPORT     : REM set RTS.3đ BT=DAT € 16   : ô If bit 5 of serial register 00ú ç BT=0 ĺ ŤdR@  : ô jump back and poll again.ń Š0,0) I*OUTPUT 1(ç Y<&10 Ś ń"0"; :ô add character "0"	"ń;~Y;,í I06ń"=":ô "=" Needed to terminate transmission.@*OUTPUT 0JŮ# X.Tń:ń"FILE ";A$,"FILE NUMBER ";X,"LENGTH ";L ˙˙