home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / info / ibmkeybd.lzh / a51.c next >
Encoding:
C/C++ Source or Header  |  1990-03-27  |  148.9 KB  |  4,903 lines
  1. #include "a51.h"
  2. void convert();
  3. void hexs();
  4.  
  5. void cleanexit(t)
  6. char t[80];
  7. {
  8.     int x;
  9.     LINK tl;
  10.         tl=tag_list;
  11.         x=0;
  12.         hexsflag=0;
  13.         while (tl!=(LINK) NULL)
  14.         {
  15.             if (x==0) fprintf(f_lst,"\n");
  16.             else fprintf(f_lst,"\t");
  17.             hexs(tl->value);
  18.             fprintf(f_lst,"%s\t%s",tl->tag,hexstr);
  19.             tl=tl->next;
  20.         }
  21.         fprintf(f_lst,"\n\n");
  22.         fclose(f_lst);
  23.     printf("****%d\t%s\n",line,buffer);
  24.     printf("ERROR:%s\n",t);
  25.     exit();
  26. }
  27.  
  28. void warn(t)
  29. char t[80];
  30. {
  31.     printf("++++%d\t%s\n",line,buffer);
  32.     printf("WARNING:%s\n",t);
  33.     return;
  34. }
  35.  
  36. void strnullcpy(t,u,n)
  37. char t[80];
  38. char u[80];
  39. int n;
  40. {
  41.     strncpy(t,u,n);
  42.     t[n]='\0';
  43.     return;
  44. }
  45.  
  46. void hack(n)
  47. int n;
  48. {
  49.     int x;
  50.     for (x=0;x<=80;x++)
  51.         s[x]=s[x+n];
  52.     pos-=n;
  53.     return;
  54. }
  55.  
  56. char hexc(n)
  57. int n;
  58. {
  59.     if ((n+=48)>57) n+=7;
  60.     return((char) n);
  61. }
  62.  
  63. void hexs(l)
  64. long l;
  65. {
  66.     long m;
  67.     char t[7];
  68.     m=l;
  69.     t[0]=hexc(m/1048576);
  70.     m%=1048576;
  71.     t[1]=hexc(m/65536);
  72.     m%=65536;
  73.     t[2]=hexc(m/4096);
  74.     m%=4096;
  75.     t[3]=hexc(m/256);
  76.     m%=256;
  77.     t[4]=hexc(m/16);
  78.     m%=16;
  79.     t[5]=hexc(m);
  80.     t[6]='\0';
  81.     if (l>65535) {strcpy(hexstr,t);return;}
  82.     if ((l>255)||(hexsflag==1)) {strcpy(hexstr,&t[2]);return;}
  83.     strcpy(hexstr,&t[4]);
  84.     return;
  85. }
  86.  
  87. void showcode()
  88. {
  89.     int x,y;
  90.     int flag;
  91.     char filename[80];
  92.     char longstr[80];
  93.     strcpy(filename,basename);
  94.     f_hex=fopen(strcat(filename,".hex"),"w");
  95.     if (f_hex==(FILE *) NULL)
  96.         {
  97.         printf("Could not open file.hex for write.");
  98.         return;
  99.         }
  100.     for (x=0;x<32767-16;x+=16)
  101.     {
  102.         flag=0;
  103.         for (y=0;y<=15;y++)
  104.             if (mem[x+y]!=0) flag=1;
  105.         if (flag==1)
  106.         {
  107.             hexsflag=1;
  108.             hexs(x);
  109.             hexsflag=0;
  110.             strcpy(longstr,hexstr);
  111.             strcat(longstr,":    ");
  112.             for (y=0;y<=15;y++)
  113.             {
  114.                 hexs(mem[x+y]);
  115.                 strcat(longstr,hexstr);
  116.                 strcat(longstr," ");
  117.                 if (y==7) strcat(longstr," ");
  118.             }
  119.             fprintf(f_hex,"%s\n",longstr);
  120.         }
  121.     }
  122.     fclose(f_hex);
  123.     return;
  124. }    
  125.  
  126. void codeit(t)
  127. char t[80];
  128. {
  129.     char sht[3];
  130.     char tdup[80];
  131.     char buf[80];
  132.     char tdup2[80];
  133.     int ad,x,y;
  134.     strcpy(tdup,t);    
  135.     if (pass==1) return;
  136.     hexsflag=1;
  137.     hexs(addr);
  138.     hexsflag=0;
  139.     sht[2]='\0';
  140.     strcpy(buf,buffer);
  141.     if (strlen(buffer)>50) strnullcpy(buf,buffer,50);
  142.     strcpy(tdup2,tdup);
  143.     if (strlen(tdup)>6) strnullcpy(tdup2,tdup,6);
  144.     fprintf(f_lst,"%5d %4s  %6s   %s\n",line,hexstr,tdup2,buf);
  145.     
  146.     if (tdup[0]!=' ')
  147.     {
  148.         ad=addr;
  149.         for (x=0;x<strlen(tdup);x+=2)
  150.         {
  151.             y=tdup[x]-48;
  152.             if (y>9) y-=7;
  153.             value=y*16;
  154.             y=tdup[x+1]-48;
  155.             if (y>9) y-=7;
  156.             value+=y;    
  157.             mem[ad++]=value;
  158.         }
  159.     }
  160.     return;
  161. }
  162.  
  163. int tag_defined(t)
  164. char t[80];
  165. {
  166.     LINK    list;
  167.     list=tag_list;
  168.     while (list!=(LINK) NULL)
  169.     {
  170.         if (strcmp(t,list->tag)==0)
  171.             return(1);
  172.         list=list->next;
  173.     }
  174.     return(0);
  175. } 
  176.     
  177. void add_tag(val) 
  178. int val;
  179. {
  180.     LINK    list;
  181.     list=tag_list;
  182.     if (list!=(LINK) NULL)
  183.         while (list->next!=(LINK) NULL)
  184.             list=list->next;
  185.     if (list==(LINK) NULL)
  186.     {
  187.         tag_list=(LINK) malloc(sizeof(ELEM));
  188.         strcpy(tag_list->tag,name);
  189.         tag_list->value=val;
  190.         tag_list->next=(LINK) NULL;
  191.     }
  192.     else
  193.     {
  194.         list->next=(LINK) malloc(sizeof(ELEM));
  195.         strcpy(list->next->tag,name);
  196.         list->next->value=val;
  197.         list->next->next=(LINK) NULL;
  198.     }
  199.     return;
  200. } 
  201.  
  202. int validtag(t)
  203. char t[80];
  204. {
  205.     int x;
  206.     for (x=0;x<strlen(t);x++)
  207.     {
  208.         if ((
  209.         ((s[x]>='A')&&(s[x]<='Z'))||
  210.         ((s[x]>='0')&&(s[x]<='9'))||
  211.         (s[x]=='_')
  212.         )==0)
  213.             return(0);
  214.     }
  215.     return(1);
  216. }
  217.         
  218. void gettag(x)
  219. int x;
  220. {
  221.     strnullcpy(name,s,x);
  222.     if (validtag(name)==0)
  223.         cleanexit("Tag contains extranneous characters.");
  224.     if (pass==1)
  225.     {
  226.         if (tag_defined(name)) cleanexit("Tag already defined.");
  227.         add_tag(addr);
  228.     }
  229.     hack(x+1);
  230.     return;
  231. }
  232.  
  233. int testbase(b,c)
  234. int b;
  235. char c;
  236. {
  237.     int n;
  238.     n=((int) c)-48;
  239.  if (n<0) return(-1);
  240.     if ((n>9)&&(n<17)) return(-1);
  241.     if (n>9) n-=7;
  242.     if (n>(b-1)) return(-1);
  243.     return(n);
  244. }
  245.  
  246. void convert(base)
  247. int base;
  248. {
  249.     int x;
  250.     value=0;
  251.     while ((x=testbase(base,s[0]))>=0)
  252.     {
  253.         hack(1);
  254.         value*=base;
  255.         value+=x;
  256.     }
  257.     return;
  258. }
  259.  
  260. int lookup()
  261. {
  262.     LINK    list;
  263.     list=tag_list;
  264.     while (list!=(LINK) NULL)
  265.     {
  266.         if (strcmp(list->tag,name)==0) return(list->value);
  267.         list=list->next;
  268.     }
  269.     cleanexit("Lookup on identifier failed.");
  270. }
  271.  
  272. int regist(t)
  273. char t[80];
  274. {
  275.     if (strcmp(t,"AB")==0) return(18);
  276.     if (strcmp(t,"A")==0) return(1);
  277.     if (strcmp(t,"DPTR")==0) return(4);
  278.     if (t[0]=='R')
  279.         if (((t[1]>='0')&&(t[1]<='7'))&&(t[2]=='\0'))
  280.             return( ((int) t[1]) -38);
  281.     if (strcmp(t,"C")==0) return(3);
  282.     if (strcmp(t,"@DPTR")==0) return(5);
  283.     if (strcmp(t,"@R0")==0) return(8);
  284.     if (strcmp(t,"@R1")==0) return(9);
  285.     return(0);
  286. }
  287.  
  288. int getexp()
  289. {
  290.     int flag,x;
  291.     value=0;
  292.     flag=0;
  293.     if (s[0]=='#')
  294.     {
  295.         hack(1);
  296.         flag=1;
  297.     }
  298.     if (strncmp(s,"H'",2)==0)
  299.     {
  300.         hack(2);
  301.         convert(16,s);
  302.         return(7-flag);
  303.     }
  304.     if (strncmp(s,"B'",2)==0)
  305.     {
  306.         hack(2);
  307.         convert(2,s);
  308.         return(7-flag);
  309.     }
  310.     x=0;
  311.     if (testbase(10,s[0])>=0)
  312.     {
  313.         while(testbase(16,s[x])>=0) x++;
  314.         if (s[x]=='H') {convert(16,s);hack(1);return(7-flag);}
  315.         if (s[x-1]=='B') {convert(2,s);hack(1); return(7-flag);}
  316.         convert(10,s); return(7-flag);
  317.     }
  318.     if (s[0]=='\'')
  319.     {
  320.         hack(1);
  321.         if (s[1]!='\'') cleanexit("Need another single quote.");
  322.         value=(int) s[0];
  323.         hack(2);
  324.         if (flag==0)
  325.         {
  326.             warn("Character constants not advisable here.");
  327.             return(7);
  328.         }
  329.         return(6);
  330.     }
  331.     x=0;
  332.     while (
  333.     (s[0]!=',')&&
  334.     (s[0]!='\0')&&
  335.     (s[0]!='+')&&
  336.     (s[0]!='*')&&
  337.     (s[0]!='-')&&
  338.     (s[0]!=';')&&
  339.     (s[0]!=' ')
  340.     )
  341.     {
  342.         name[x++]=s[0];
  343.         hack(1);
  344.     }
  345.     name[x]='\0';
  346.     while (s[0]==' ') hack(1);
  347.     x=regist(name);
  348.     if (x>0) return(x);
  349.     if (tag_defined(name)==0)
  350.     {
  351.         if (pass==1) {value=0;return(7-flag);}
  352.         cleanexit("Need to define this expression.");
  353.     }
  354.     value=lookup();
  355.     return(7-flag);
  356. }
  357.         
  358. int getbyte()
  359. {
  360.     int v,x,firstx;
  361.     char c;
  362.     x=getexp();    
  363.     v=value;
  364.     firstx=x;
  365.     while ((s[0]=='+')||(s[0]=='-')||(s[0]=='*'))
  366.     {
  367.         c=s[0];
  368.         hack(1);
  369.         x=getexp();
  370.         if (x!=firstx) cleanexit("Expression types must match.");
  371.         switch(c) {
  372.             case '+':
  373.                 v+=value;
  374.                 break;
  375.             case '-':
  376.                 v-=value;
  377.                 break;
  378.             case '*':
  379.                 v*=value;
  380.                 break;
  381.             default:
  382.                 break;
  383.             }
  384.     }
  385.     realvalue=v;
  386.     value=v;
  387.     if (value<-65536) cleanexit("Value out of range.");
  388.     if (value<-128) value+=65536;
  389.     if (value<0) value+=256;
  390.     if (value>65535) cleanexit("Value out of range.");
  391.     return(x);
  392. }
  393.  
  394. void equate()
  395. {
  396.     char left[80];
  397.     int x;
  398.     hack(5);
  399.     x=0;
  400.     while ((s[x]!=',')&&(s[x]!='\0')) x++;
  401.     if (s[x]!=',') cleanexit("Equate needs a comma.");
  402.     strnullcpy(left,s,x);
  403.     if (regist(left)>0) cleanexit("Cannot use registers in equate.");
  404.     hack(x+1);
  405.     codeit("  ->");
  406.     if (pass==2)
  407.     {
  408.         x=getbyte();
  409.         return;
  410.     }
  411.     if (tag_defined(left)==1)
  412.         cleanexit("Identifier already defined.");
  413.     if (getbyte()!=7) cleanexit("Value must be a byte/word.");
  414.     strcpy(name,left);
  415.     add_tag(value);
  416.     return;
  417. }
  418.  
  419. void origin()
  420. {
  421.     hack(5);
  422.     if (getbyte()!=7) cleanexit("Must be byte/word.");
  423.     if (pass==2) codeit("  ->");
  424.     addr=value;
  425.     return;
  426. }
  427.  
  428. void defbyte()
  429. {
  430.     hack(4);
  431.     if (getbyte()!=7) cleanexit("Must be byte.");
  432.     if (value>255) cleanexit("Byte value out of range.");
  433.     if (pass==2)
  434.     {
  435.         hexs(value);
  436.         codeit(hexstr);
  437.     }
  438.     addr+=1;
  439.     return;
  440. }
  441.  
  442. void defword()
  443. {
  444.     hack(4);
  445.     if (getbyte()!=7) cleanexit("Must be word.");
  446.     if (pass==2)
  447.     {
  448.         hexsflag=1;
  449.         hexs(value);
  450.         hexsflag=0;
  451.         codeit(hexstr);
  452.     }
  453.     addr+=2;
  454.     return;
  455. }
  456.  
  457. void defmsg()
  458. {
  459.     char t[80];
  460.     int x;
  461.     hack(4);
  462.     if (s[0]!='\'')
  463.         cleanexit("Must start with single quote.");
  464.     hack(1);
  465.     t[0]='\0';
  466.     for (x=0;x<=pos;x++)
  467.     {
  468.         if (s[x]=='\'')
  469.         {
  470.             if (pass==2) codeit(t);
  471.             addr+=x;
  472.             hack(x+1);
  473.             return;
  474.         }
  475.         if (pass==2)
  476.         {
  477.             hexs(s[x]);
  478.             strcat(t,hexstr);
  479.         }
  480.     }
  481.     cleanexit("Must end with single quote.");
  482. }
  483.  
  484. void reserve()
  485. {
  486.     hack(4);
  487.     if (getbyte()!=7) cleanexit("Must be byte/word.");
  488.     if (pass==2) codeit("  ->");
  489.     addr+=value;
  490.     return;
  491. }
  492.  
  493. void endassm()
  494. {
  495.     hack(4);
  496.     return;
  497. }
  498.  
  499. void getdirec()
  500. {
  501.     if (strncmp(s,".EQU",4)==0) {equate();return;}
  502.     if (strncmp(s,".ORG",4)==0) {origin();return;}
  503.     if (strncmp(s,".DB",3)==0) {defbyte();return;}
  504.     if (strncmp(s,".DW",3)==0) {defword();return;}
  505.     if (strncmp(s,".DM",3)==0) {defmsg();return;}
  506.     if (strncmp(s,".RS",3)==0) {reserve();return;}
  507.     if (strncmp(s,".END",3)==0) {endassm();return;}
  508.     cleanexit("Compiler directive not understood.");
  509. }
  510.  
  511. void get2()
  512. {
  513.     mi=1;
  514.     lop=getbyte();
  515.     lval=value;
  516.     if ((lop==6)||(lop==7)) mi++;
  517.     if (lval>255) cleanexit("Left operator value > 255.");
  518.     if (s[0]!=',')
  519.         cleanexit("This statement needs two operands.");
  520.     hack(1);
  521.     rop=getbyte();
  522.     rval=value;
  523.     if ((rop==6)||(rop==7)) mi++;
  524.     if (rval>255) cleanexit("Right operator value > 255.");
  525.     return;
  526. }
  527.  
  528. void get1()
  529. {
  530.     mi=1;
  531.     lop=getbyte();
  532.     lval=value;
  533.     if ((lop==6)||(lop==7)) mi++;
  534.     if (lval>255) cleanexit("Operator value > 255.");
  535.     return;
  536. }
  537.  
  538. void addr11()
  539. {
  540.     lop=getbyte();
  541.     if (lop!=7) cleanexit("Operand must be an address.");
  542.     if (pass==1) {value=0;return;}
  543.     if ((value&63488)!=(addr&63488))
  544.         cleanexit("11 bit address out of range.");
  545.     value&=2047;
  546.     return;
  547. }
  548.  
  549. void addr16()
  550. {
  551.     lop=getbyte();
  552.     if (lop!=7) cleanexit("Operand must be an address.");
  553.     return;
  554. }
  555.  
  556. void data16()
  557. {
  558.     lop=getbyte();
  559.     if (lop!=6) cleanexit("Operand must be data.");
  560.     return;
  561. }
  562.  
  563. int getrel()
  564. {
  565.     int x,r;
  566.     x=getbyte();
  567.     if (x!=7) cleanexit("Operand must be an address.");
  568.     if (pass==1) {return(0);} 
  569.     r=realvalue-(addr+mi);
  570.     if (r<-128) cleanexit("Relative offset < -128.");
  571.     if (r>127) cleanexit("Relative offset > 127.");
  572.     if (r<0) r+=256;
  573.     return(r);
  574. }
  575.  
  576.  
  577. void ljmp()
  578. {
  579.     hack(5);
  580.     addr16();
  581.     hexs(02*65536+value);
  582.     codeit(hexstr);
  583.     addr+=3;
  584. }
  585.  
  586. void form0(n)
  587. int n;
  588. {
  589.     mi=2;
  590.     hexs(n*256+getrel());
  591.     codeit(hexstr);
  592.     addr+=mi;
  593. }
  594.  
  595. void sjmp()
  596. {
  597.     hack(5);
  598.     form0(128);
  599. }
  600.  
  601. jc()
  602. {
  603.     hack(3);
  604.     form0(64);
  605. }
  606.  
  607. jnc()
  608. {
  609.     hack(4);
  610.     form0(80);
  611. }
  612.  
  613. void form1(n)
  614. int n;
  615. {
  616.     get1();
  617.     mi++;
  618.     if (lop!=7) cleanexit("Left operand must be bit address.");
  619.     if (s[0]!=',') cleanexit("This command needs two operands.");
  620.     hack(1);
  621.     hexs(n*65536+lval*256+getrel());
  622.     codeit(hexstr);
  623.     addr+=mi;
  624. }
  625.  
  626. void jb()
  627. {
  628.     hack(3);
  629.     form1(32);
  630. }
  631.  
  632. void jnb()
  633. {
  634.     hack(4);
  635.     form1(48);
  636. }
  637.  
  638. void jbc()
  639. {
  640.     hack(4);
  641.     form1(16);
  642. }
  643.     
  644. void form2(n)
  645. int n;
  646. {
  647.     int x,y;
  648.     addr11();
  649.     x=(value/256)<<5;
  650.     x+=n;
  651.     y=(value%256);
  652.     hexs(x*256+y);
  653.     codeit(hexstr);
  654.     addr+=2;
  655. }
  656.  
  657. void ajmp()
  658. {
  659.     hack(5);
  660.     form2(1);
  661.     }
  662.  
  663. void acall()
  664. {
  665.     hack(6);
  666.     form2(17);
  667. }
  668.  
  669. void lcall()
  670. {
  671.     hack(6);
  672.     addr16();
  673.     hexs(18*65536+value);
  674.     codeit(hexstr);
  675.     addr+=3;
  676. }
  677.  
  678. void jz()
  679. {
  680.     hack(3);
  681.     form0(96);
  682. }
  683.  
  684. void jnz()
  685. {
  686.     hack(4);
  687.     form0(112);
  688. }
  689.  
  690. void djnz()
  691. {
  692.     hack(5);
  693.     get1();
  694.     if (s[0]!=',') cleanexit("This statement needs two operands.");
  695.     hack(1);
  696.     mi++;
  697.     if (lop==7)
  698.     {
  699.         hexs(213*65536+lval*256+getrel());
  700.         codeit(hexstr);
  701.         addr+=mi;
  702.         return;
  703.     }
  704.     if ((lop>=10)&&(lop<=17))
  705.     {
  706.         hexs((216-10+lop)*256+getrel());
  707.         codeit(hexstr);
  708.         addr+=mi;
  709.         return;
  710.     }
  711.     cleanexit("Left operand must be a direct addr or Rn.");
  712. }
  713.  
  714. void cjne()
  715. {
  716.     hack(5);
  717.     get2();
  718.     if (s[0]!=',') cleanexit("This statement needs 3 operands.");
  719.     hack(1);
  720.     mi++;
  721.     if (lop==1)
  722.     {
  723.         if (rop==6)
  724.         {
  725.             hexs(180*65536+rval*256+getrel());
  726.             codeit(hexstr);
  727.             addr+=mi;
  728.             return;
  729.         }
  730.         if (rop==7)
  731.         {
  732.             hexs(181*65536+rval*256+getrel());
  733.             codeit(hexstr);
  734.             addr+=mi;
  735.             return;
  736.         }
  737.         cleanexit("Middle operand must be # or $.");
  738.     }
  739.     if ((lop>=8)&&(lop<=17))
  740.     {
  741.         if (rop!=6) cleanexit("Middle operand must be #.");
  742.         hexs((182-8+lop)*65536+rval*256+getrel());
  743.         codeit(hexstr);
  744.         addr+=mi;
  745.         return;
  746.     }
  747.     cleanexit("Left operand must be A,@Ri, or Rn.");
  748. }
  749.  
  750. void movdptr()
  751. {
  752.     hack(8);
  753.     if (s[0]!=',') cleanexit("Comma needed.");
  754.     hack(1);
  755.     data16();
  756.     hexs(144*65536+value);
  757.     codeit(hexstr);
  758.     addr+=3;
  759.     return;
  760. }
  761.  
  762. void form4(n)
  763. int n;
  764. {
  765.     get2();
  766.     if (lop!=1) cleanexit("Left operand must be A.");
  767.     if ((rop>=6)&&(rop<=17))
  768.     {
  769.         hexs(n-6+rop);
  770.         if ((rop==6)||(rop==7))
  771.         {
  772.             hexs((n-6+rop)*256+rval);
  773.         }
  774.         codeit(hexstr);
  775.         addr+=mi;
  776.         return;
  777.     }
  778.     cleanexit("Right operand must be #,$,@Ri, or Rn.");
  779. }
  780.  
  781. void addc()
  782. {
  783.     hack(5);
  784.     form4(52);
  785. }
  786.  
  787. void add()
  788. {
  789.     hack(4);
  790.     form4(36);
  791. }
  792.  
  793. void subb()
  794. {
  795.     hack(5);
  796.     form4(148);
  797. }
  798.  
  799. void inc()
  800. {
  801.     hack(4);
  802.     get1();
  803.     if (lop==1) lop=6;
  804.     if ((lop>=6)&&(lop<=17))
  805.     {
  806.         hexs(4-6+lop);
  807.         if (lop==7)
  808.             hexs((4-6+lop)*256+lval);
  809.         codeit(hexstr);
  810.         addr+=mi;
  811.         return;
  812.     }
  813.     if (lop==4)
  814.     {
  815.         hexs(163);
  816.         codeit(hexstr);
  817.         addr+=mi;
  818.         return;
  819.     }
  820.     cleanexit("Operand must be A,$,@Ri, Rn, or DPTR.");
  821. }
  822.  
  823. void dec()
  824. {
  825.     hack(4);
  826.     get1();
  827.     if (lop==1) lop=6;
  828.     if ((lop>=6)&&(lop<=17))
  829.     {
  830.         hexs(20-6+lop);
  831.         if (lop==7)
  832.             hexs((20-6+lop)*256+lval);
  833.         codeit(hexstr);
  834.         addr+=mi;
  835.         return;
  836.     }
  837.     cleanexit("Operand must be A,$,@Ri, or Rn.");
  838. }
  839.  
  840. void mul()
  841. {
  842.     hack(4);
  843.     get1();
  844.     if (lop!=18) cleanexit("Operand must be AB.");
  845.     hexs(164);
  846.     codeit(hexstr);
  847.     addr++;
  848. }
  849.  
  850. void div()
  851. {
  852.     hack(4);
  853.     get1();
  854.     if (lop!=18) cleanexit("Operand must be AB.");
  855.     hexs(132);
  856.     codeit(hexstr);
  857.     addr++;
  858. }
  859.  
  860. void da()
  861. {
  862.     hack(3);
  863.     get1();
  864.     if (lop!=1) cleanexit("Operand must be A.");
  865.     hexs(212);
  866.     codeit(hexstr);
  867.     addr++;
  868. }
  869.  
  870. void form5(n,m,o,p)
  871. int n;
  872. int m;
  873. int o;
  874. int p;
  875. {
  876.     get2();
  877.     if (lop==1)
  878.     {
  879.         if ((rop>=6)&&(rop<=17))
  880.         {
  881.             hexs(n-8+rop);
  882.             if ((rop==6)||(rop==7))
  883.                 hexs((m-6+rop)*256+rval);
  884.             codeit(hexstr);
  885.             addr+=mi;
  886.             return;
  887.         }
  888.         cleanexit("Right OP must be #,$,@Ri, or Rn.");
  889.     }
  890.     if (lop==7)
  891.     {
  892.         if (rop==1)
  893.         {
  894.             hexs(o*256+lval);
  895.             codeit(hexstr);
  896.             addr+=mi;
  897.             return;
  898.         }
  899.         if (rop==6)
  900.         {
  901.             hexs((o+1)*65536+lval*256+rval);
  902.             codeit(hexstr);
  903.             addr+=mi;
  904.             return;
  905.         }
  906.         cleanexit("Right operand must be A or #.");
  907.     }
  908.     if (lop==3)
  909.     {
  910.         if (rop==7)
  911.         {
  912.             hexs(p*256+rval);
  913.             codeit(hexstr);
  914.             addr+=mi;
  915.             return;
  916.         }
  917.         cleanexit("Right operand must be bit address.");
  918.     }
  919.     cleanexit("Left operand must be A, C, or $.");
  920. }
  921.  
  922. void orl()
  923. {
  924.     hack(4);
  925.     form5(70,68,66,114);
  926. }
  927.  
  928. void anl()
  929. {
  930.     hack(4);
  931.     form5(86,84,82,130);
  932. }
  933.  
  934. void xrl()
  935. {
  936.     hack(4);
  937.     get2();
  938.     if (lop==1)
  939.     {
  940.         if ((rop>=6)&&(rop<=17))
  941.         {
  942.             hexs(100-6+rop);
  943.             if ((rop==6)||(rop==7))
  944.                 hexs((100-6+rop)*256+rval);
  945.             codeit(hexstr);
  946.             addr+=mi;
  947.             return;
  948.         }
  949.         cleanexit("Right OP must be #,$,@Ri, or Rn.");
  950.     }
  951.     if (lop==7)
  952.     {
  953.         if (rop==1)
  954.         {
  955.             hexs(98*256+lval);
  956.             codeit(hexstr);
  957.             addr+=mi;
  958.             return;
  959.         }
  960.         if (rop==6)
  961.         {
  962.             hexs(99*65536+lval*256+rval);
  963.             codeit(hexstr);
  964.             addr+=mi;
  965.             return;
  966.         }
  967.         cleanexit("Right operand must be A or #.");
  968.     }
  969.     cleanexit("Left operand must be A or $.");
  970. }
  971.  
  972. void form6(n,m,o)
  973. int m,n,o;
  974. {
  975.     get1();
  976.     if (lop==1)
  977.     {
  978.         hexs(n);
  979.         codeit(hexstr);
  980.         addr++;
  981.         return;
  982.     }
  983.     if (lop==3)
  984.     {
  985.         hexs(m);
  986.         codeit(hexstr);
  987.         addr++;
  988.         return;
  989.     }
  990.     if (lop==7)
  991.     {
  992.         hexs(o*256+lval);
  993.         codeit(hexstr);
  994.         addr+=2;
  995.         return;
  996.     }
  997.     cleanexit("Operand must be A, C, or $.");
  998. }
  999.  
  1000. void clr()
  1001. {
  1002.     hack(4);
  1003.     form6(228,195,194);
  1004. }
  1005.  
  1006. void cpl()
  1007. {
  1008.     hack(4);
  1009.     form6(244,179,178);
  1010. }
  1011.  
  1012. void setb()
  1013. {
  1014.     hack(5);
  1015.     get1();
  1016.     if (lop==3)
  1017.     {
  1018.         hexs(211);
  1019.         codeit(hexstr);
  1020.         addr++;
  1021.         return;
  1022.     }
  1023.     if (lop==7)
  1024.     {
  1025.         hexs(210*256+lval);
  1026.         codeit(hexstr);
  1027.         addr+=2;
  1028.         return;
  1029.     }
  1030.     cleanexit("Operand must be C or $.");
  1031. }
  1032.  
  1033. void form7(n)
  1034. int n;
  1035. {
  1036.     get1();
  1037.     if (lop!=1) cleanexit("Operand must be A.");
  1038.     hexs(n);
  1039.     codeit(hexstr);
  1040.     addr++;
  1041. }
  1042.  
  1043. void rl()
  1044. {
  1045.     hack(3);
  1046.     form7(35);
  1047. }
  1048.  
  1049. void rlc()
  1050. {
  1051.     hack(4);
  1052.     form7(51);
  1053. }
  1054.  
  1055. void rr()
  1056. {
  1057.     hack(3);
  1058.     form7(3);
  1059. }
  1060.  
  1061. void rrc()
  1062. {
  1063.     hack(4);
  1064.     form7(19);
  1065. }
  1066.  
  1067. void swap()
  1068. {
  1069.     hack(5);
  1070.     form7(196);
  1071. }
  1072.  
  1073. void mov()
  1074. {
  1075.     hack(4);
  1076.     get2();
  1077.     if (lop==1)
  1078.     {
  1079.         if ((rop>=7)&&(rop<=17))
  1080.         {
  1081.             hexs(229-7+rop);
  1082.             if (rop==7)
  1083.                 hexs(229*256+rval);
  1084.             codeit(hexstr);
  1085.             addr+=mi;
  1086.             return;
  1087.         }
  1088.         if (rop==6)
  1089.         {
  1090.             hexs(116*256+rval);
  1091.             codeit(hexstr);
  1092.             addr+=mi;
  1093.             return;
  1094.         }
  1095.         cleanexit("Right operand must be #,$,@Ri, or Rn.");
  1096.     }
  1097.     if ((lop>=8)&&(lop<=17))
  1098.     {
  1099.         if (rop==1)
  1100.         {
  1101.             hexs(245-8+lop);
  1102.             if (lop==7)
  1103.                 hexs((245-8+lop)*256+rval);
  1104.             codeit(hexstr);
  1105.             addr+=mi;
  1106.             return;
  1107.         }
  1108.         if (rop==7)
  1109.         {
  1110.             hexs((166-8+lop)*256+rval);
  1111.             codeit(hexstr);
  1112.             addr+=mi;
  1113.             return;
  1114.         }
  1115.         if (rop==6)
  1116.         {
  1117.             hexs((118-8+lop)*256+rval);
  1118.             codeit(hexstr);
  1119.             addr+=mi;
  1120.             return;
  1121.         }
  1122.         cleanexit("Right operand must be A,#, or $.");
  1123.     }
  1124.     if (lop==7)
  1125.     {
  1126.         if ((rop>=7)&&(rop<=17))
  1127.         {
  1128.             hexs((133-7+rop)*256+lval);
  1129.             if (rop==7)
  1130.                 hexs(133*65536+lval*256+rval);
  1131.             codeit(hexstr);
  1132.             addr+=mi;
  1133.             return;
  1134.         }
  1135.         if (rop==6)
  1136.         {
  1137.             hexs(117*65536+lval*256+rval);
  1138.             codeit(hexstr);
  1139.             addr+=mi;
  1140.             return;
  1141.         }
  1142.         if (rop==3)
  1143.         {
  1144.             hexs(146*256+lval);
  1145.             codeit(hexstr);
  1146.             addr+=mi;
  1147.             return;
  1148.         }
  1149.         if (rop==1)
  1150.         {
  1151.             hexs(245*256+lval);
  1152.             codeit(hexstr);
  1153.             addr+=mi;
  1154.             return;
  1155.         }
  1156.         cleanexit("Right operand must be #,$, @Ri, or Rn.");
  1157.     }
  1158.     if (lop==3)
  1159.     {
  1160.         if (rop!=7) cleanexit("Right operand must be bit addr.");
  1161.         hexs(162*256+rval);
  1162.         codeit(hexstr);
  1163.         addr+=mi;
  1164.         return;
  1165.     }
  1166.     cleanexit("Left operand must be A,$, or C.");
  1167. }
  1168.  
  1169. void movx()
  1170. {
  1171.     hack(5);
  1172.     get2();
  1173.     if (lop==1)
  1174.     {
  1175.         if (rop==5)
  1176.         {
  1177.             hexs(224);
  1178.             codeit(hexstr);
  1179.             addr++;
  1180.             return;
  1181.         }
  1182.         if (rop==8)
  1183.         {
  1184.             hexs(226);
  1185.             codeit(hexstr);
  1186.             addr++;
  1187.             return;
  1188.         }
  1189.         if (rop==9)
  1190.         {
  1191.             hexs(227);
  1192.             codeit(hexstr);
  1193.             addr++;
  1194.             return;
  1195.         }
  1196.         cleanexit("Right operand must be @Ri, or @DPTR.");
  1197.     }
  1198.     if (lop==5)
  1199.     {
  1200.         if (rop!=1) cleanexit("Right OP must be A.");
  1201.         hexs(240);
  1202.         codeit(hexstr);
  1203.         addr++;
  1204.         return;
  1205.     }
  1206.     if (lop==8)
  1207.     {
  1208.         if (rop!=1) cleanexit("Right OP must be A.");
  1209.         hexs(242);
  1210.         codeit(hexstr);
  1211.         addr++;
  1212.         return;
  1213.     }
  1214.     if (lop==9)
  1215.     {
  1216.         if (rop!=1) cleanexit("Right OP must be A.");
  1217.         hexs(243);
  1218.         codeit(hexstr);
  1219.         addr++;
  1220.         return;
  1221.     }
  1222.     cleanexit("Left operand must be A,@Ri, or @DPTR.");
  1223. }
  1224.  
  1225. void pop()
  1226. {
  1227.     hack(4);
  1228.     get1();
  1229.     if (lop!=7) cleanexit("Operand must be direct byte.");
  1230.     hexs(208*256+lval);
  1231.     codeit(hexstr);
  1232.     addr+=mi;
  1233. }
  1234.  
  1235. void push()
  1236. {
  1237.     hack(5);
  1238.     get1();
  1239.     if (lop!=7) cleanexit("Operand must be direct byte.");
  1240.     hexs(192*256+lval);
  1241.     codeit(hexstr);
  1242.     addr+=mi;
  1243. }
  1244.  
  1245. void form8(n)
  1246. int n;
  1247. {
  1248.     hexs(n);
  1249.     codeit(hexstr);
  1250.     addr++;
  1251.     return;
  1252. }
  1253.  
  1254. void ret()
  1255. {
  1256.     hack(3);
  1257.     form8(34);
  1258. }
  1259.  
  1260. void reti()
  1261. {
  1262.     hack(4);
  1263.     form8(50);
  1264. }
  1265.  
  1266. void nop()
  1267. {
  1268.     hack(3);
  1269.     form8(0);
  1270. }
  1271.  
  1272. void xch()
  1273. {
  1274.     hack(4);
  1275.     get2();
  1276.     if (lop!=1) cleanexit("Left operand must be A.");
  1277.     if ((rop>=7)&&(rop<=17))
  1278.     {
  1279.         hexs(197-7+rop);
  1280.         if (rop==7) hexs((197-7+rop)*256+rval);
  1281.         codeit(hexstr);
  1282.         addr+=mi;
  1283.         return;
  1284.     }
  1285.     cleanexit("Right operand must be $,@Ri, or Rn.");
  1286. }
  1287.  
  1288. void xchd()
  1289. {
  1290.     hack(5);
  1291.     get2();
  1292.     if (lop!=1) cleanexit("Left operand must be A.");
  1293.     if ((rop>=8)&&(rop<=17))
  1294.     {
  1295.         hexs(214-8+rop);
  1296.         codeit(hexstr);
  1297.         addr++;
  1298.         return;
  1299.     }
  1300.     cleanexit("Right operand must be @Ri.");
  1301. }
  1302.  
  1303. void movcadptr()
  1304. {
  1305.     hack(14);
  1306.     hexs(147);
  1307.     codeit(hexstr);
  1308.     addr++;
  1309. }
  1310.  
  1311. void movcapc()
  1312. {
  1313.     hack(12);
  1314.     hexs(131);
  1315.     codeit(hexstr);
  1316.     addr++;
  1317. }
  1318.  
  1319. void jmpadptr()
  1320. {
  1321.     hack(11);
  1322.     hexs(115);
  1323.     codeit(hexstr);
  1324.     addr++;
  1325. }
  1326.  
  1327. void opcode()
  1328. {
  1329.     if (strncmp(s,"ADDC ",5)==0) {addc();return;}
  1330.     if (strncmp(s,"ADD ",4)==0) {add();return;}
  1331.     if (strncmp(s,"SUBB ",5)==0) {subb();return;}
  1332.     if (strncmp(s,"INC ",4)==0) {inc();return;}
  1333.     if (strncmp(s,"DEC ",4)==0) {dec();return;}
  1334.     if (strncmp(s,"MUL ",4)==0) {mul();return;}
  1335.     if (strncmp(s,"DIV ",4)==0) {div();return;}
  1336.     if (strncmp(s,"DA ",3)==0) {da();return;}
  1337.     if (strncmp(s,"ANL ",4)==0) {anl();return;}
  1338.     if (strncmp(s,"ORL ",4)==0) {orl();return;}
  1339.     if (strncmp(s,"XRL ",4)==0) {xrl();return;}
  1340.     if (strncmp(s,"CPL ",4)==0) {cpl();return;}
  1341.     if (strncmp(s,"RLC ",4)==0) {rlc();return;}
  1342.     if (strncmp(s,"RR ",3)==0) {rr();return;}
  1343.     if (strncmp(s,"RRC ",4)==0) {rrc();return;}
  1344.     if (strncmp(s,"RL ",3)==0) {rl();return;}
  1345.     if (strncmp(s,"SWAP ",5)==0) {swap();return;}
  1346.     if (strncmp(s,"MOVX ",5)==0) {movx();return;}
  1347.     if (strncmp(s,"MOV DPTR",8)==0) {movdptr();return;}
  1348.     if (strncmp(s,"MOVC A,@A+DPTR",14)==0) {movcadptr();return;}
  1349.     if (strncmp(s,"MOVC A,@A+PC",12)==0) {movcapc();return;}
  1350.     if (strncmp(s,"JMP @A+DPTR",11)==0) {jmpadptr();return;}
  1351.     if (strncmp(s,"MOV ",4)==0) {mov();return;}
  1352.     if (strncmp(s,"PUSH ",5)==0) {push();return;}
  1353.     if (strncmp(s,"POP ",4)==0) {pop();return;}
  1354.     if (strncmp(s,"XCHD ",5)==0) {xchd();return;}
  1355.     if (strncmp(s,"XCH ",4)==0) {xch();return;}
  1356.     if (strncmp(s,"CLR ",4)==0) {clr();return;}
  1357.     if (strncmp(s,"SETB ",5)==0) {setb();return;}
  1358.     if (strncmp(s,"JC ",3)==0) {jc();return;}
  1359.     if (strncmp(s,"JNC ",4)==0) {jnc();return;}
  1360.     if (strncmp(s,"JNB ",4)==0) {jnb();return;}
  1361.     if (strncmp(s,"JBC ",4)==0) {jbc();return;}
  1362.     if (strncmp(s,"JB ",3)==0) {jb();return;}
  1363.     if (strncmp(s,"ACALL ",6)==0) {acall();return;}
  1364.     if (strncmp(s,"LCALL ",6)==0) {lcall();return;}
  1365.     if (strncmp(s,"RETI",4)==0) {reti();return;}
  1366.     if (strncmp(s,"RET",3)==0) {ret();return;}
  1367.     if (strncmp(s,"SJMP ",5)==0) {sjmp();return;}
  1368.     if (strncmp(s,"LJMP ",5)==0) {ljmp();return;}
  1369.     if (strncmp(s,"AJMP ",5)==0) {ajmp();return;}
  1370.     if (strncmp(s,"JZ ",3)==0) {jz();return;}
  1371.     if (strncmp(s,"JNZ ",4)==0) {jnz();return;}
  1372.     if (strncmp(s,"CJNE ",5)==0) {cjne();return;}
  1373.     if (strncmp(s,"DJNZ ",5)==0) {djnz();return;}
  1374.     if (strncmp(s,"NOP",3)==0) {nop();return;}
  1375.     if ((s[0]>32)&&(s[0]<127)) 
  1376.         warn("Syntax Error.");
  1377.     return;
  1378. }
  1379.  
  1380. void assemble()
  1381. {
  1382.     int x,y;
  1383.     while (s[0]==' ') hack(1);
  1384.     if (s[0]==';') {codeit("  **"); return;}
  1385.     y=(-1); x=0;
  1386.     do
  1387.     {
  1388.         if (s[x]==';')        
  1389.             y=x;
  1390.         x++;
  1391.     } while ((x<=pos)&&(y<0));
  1392.     if (y>=0)
  1393.     {
  1394.         s[y]='\0';
  1395.         pos=y;
  1396.     }
  1397.  
  1398.     while (s[0]==':')
  1399.     {
  1400.     warn (": at beginning of line.");
  1401.     hack(1);
  1402.     }
  1403.     
  1404.     for (x=0;x<=pos;x++)
  1405.         if (s[x]==':')
  1406.         {
  1407.             if (pass==1) gettag(x);
  1408.             else hack(x+1);
  1409.             while (s[0]==' ') hack(1);
  1410.             if (s[0]=='\0') codeit(" --]");
  1411.         }
  1412.     while (s[0]==' ') hack(1);    
  1413.     if (s[0]=='.') {getdirec();return;}
  1414.     opcode();
  1415.     return;
  1416. }
  1417.  
  1418. int getline()
  1419. {
  1420.     int x;
  1421.     x=0;
  1422.     while ((c=fgetc(f))<32)
  1423.     {
  1424.         if (c=='\n')
  1425.              {strcpy(buffer,"    ");line++;codeit("     ");}
  1426.         if (c==EOF) return(-1);
  1427.     }
  1428.     buffer[x++]=c;
  1429.     while ((c=fgetc(f))!='\n')
  1430.         buffer[x++]=c;
  1431.     buffer[x]='\0';
  1432.     return(x);
  1433. }
  1434.  
  1435. void main(argc,argv)
  1436. int argc;
  1437. char *argv[];
  1438. {
  1439.     int n,x,y,last,white;
  1440.     char filename[80];
  1441.     LINK tl;
  1442.     tag_list=(LINK) NULL;
  1443.     printf("8051 assembler by Eric Rudolph, 1991. Version 1.\n");
  1444.     strcpy(basename,argv[1]);
  1445.     strcpy(filename,basename);
  1446.     f=fopen("a51.equ","r");
  1447.     if (f==(FILE *) NULL)
  1448.         printf("Could not find asm.equ file.\n");
  1449.     else
  1450.         do
  1451.         {
  1452.             fscanf(f,"%s",name);
  1453.             fscanf(f,"%d",&value);
  1454.             if (value>0) add_tag(value);
  1455.         } while (value>0);
  1456.     for (x=0;x<32767;x++)
  1457.         mem[x]=0;
  1458.     
  1459.     f=fopen(filename,"r");
  1460.     hexsflag=0;
  1461.     if (f!=(FILE *) NULL)
  1462.     {
  1463.         printf("PASS1\n");
  1464.         addr=0;pass=1;line=0;
  1465.         do
  1466.         {
  1467.             n=getline();
  1468.             if (n>0)
  1469.             {
  1470.                 line++;
  1471.                 y=0;
  1472.                 last=1;
  1473.                 for (x=0;x<=n;x++)
  1474.                 {
  1475.                     white=0;
  1476. if ((buffer[x]==' ')||(buffer[x]=='\t'))
  1477.     white=1;
  1478. if ((white==1)&&(last==0))
  1479.     s[y++]=' ';
  1480. if (white==0)
  1481. {
  1482.     s[y]=buffer[x];
  1483.     if ((buffer[x]>='a')&&(buffer[x]<='z')) s[y]-=32;
  1484.     y++;
  1485. }
  1486.                     last=white;
  1487.                 }
  1488.                 pos=strlen(s);
  1489.                 if (s[pos-1]==' ') {s[pos-1]='\0';pos--;}
  1490.                 assemble();
  1491.             }
  1492.         } while (n>=1);
  1493.         fclose(f);
  1494.         printf("PASS2\n");
  1495.         f=fopen(filename,"r");
  1496.         strcat(filename,".lst");
  1497.         f_lst=fopen(filename,"w");
  1498.         if (f_lst==(FILE *) NULL) cleanexit("Can't open .lst for write.");
  1499.         addr=0;pass=2;line=0;
  1500.         do
  1501.         {
  1502.             n=getline();
  1503.             if (n>0)
  1504.                 {
  1505.                 line++;
  1506.                 y=0;
  1507.                 last=1;
  1508.                 for (x=0;x<=n;x++)
  1509.                 {
  1510.                     white=0;
  1511. if ((buffer[x]==' ')||(buffer[x]=='\t'))
  1512.     white=1;
  1513. if ((white==1)&&(last==0))
  1514.     s[y++]=' ';
  1515. if (white==0)
  1516. {
  1517.     s[y]=buffer[x];
  1518.     if ((buffer[x]>='a')&&(buffer[x]<='z')) s[y]-=32;
  1519.     y++;
  1520. }
  1521.                     last=white;
  1522.                 }
  1523.                 pos=strlen(s);
  1524.                 if (s[pos-1]==' ') {s[pos-1]='\0';pos--;}
  1525.                 assemble();
  1526.             }
  1527.         } while (n>=1);
  1528.         fprintf(f_lst,"=============================\n");
  1529.         tl=tag_list;
  1530.         x=0;
  1531.         hexsflag=0;
  1532.         while (tl!=(LINK) NULL)
  1533.         {
  1534.             if (x==0) fprintf(f_lst,"\n");
  1535.             else fprintf(f_lst,"\t");
  1536.             hexs(tl->value);
  1537.             fprintf(f_lst,"%s\t%s",tl->tag,hexstr);
  1538.             tl=tl->next;
  1539.         }
  1540.         fprintf(f_lst,"\n\n");
  1541.         fclose(f_lst);
  1542.         showcode();
  1543.         printf("END OF ASSEMBLY.\n");
  1544.     }
  1545.     else 
  1546.         printf("No such file.\n");
  1547.     
  1548. }
  1549.  
  1550. @\Rogue\Monster\
  1551. else
  1552.   echo "shar: Will not over write a51.c"
  1553. fi
  1554. if `test ! -s a51.doc`
  1555. then
  1556. echo "x - a51.doc"
  1557. cat > a51.doc << '@\Rogue\Monster\'
  1558. This is an 8031/8051 assembler.
  1559.  
  1560. This assembler is a simple one, I think. It includes little error checking
  1561. but it does work on programs that are correctly written. It will bomb out
  1562. of assembling on any error. Usually when compling programs anyhow, the
  1563. rest of the errors are useless anyhow. It is not "case sensative".
  1564.  
  1565. This assembler has several directives:
  1566.  
  1567.     .org exp    ;start address at exp.
  1568.     .equ exp,exp    ;equate left expression to right one.
  1569.     .db exp        ;define byte of expression
  1570.     .dw exp        ;define word.
  1571.     .rs exp        ;reserve exp bytes of space
  1572.     .dm exp        ;define message. Put in single quotes.
  1573.     .end exp    ;end assembly. Start address=exp
  1574.  
  1575. "exp" is either a string constant or a number, or a math function of both.
  1576. Either way, the resulting expression must be a constant. I.e. No registers.
  1577. Is that clear? (I am not good at documentation!) 
  1578.  
  1579. string names, called "tags" can be up to 80 characters in length, but each
  1580. line can ONLY be 80 characters long, so it's probably best to make them a
  1581. little shorter than 80.
  1582.  
  1583. This compiler supports addition, subtraction, and multiplication of 
  1584. constants. Plus, any character within single quotes will be treated as the
  1585. ASCII decimal equivalent. I.e. 'A'=65.
  1586.  
  1587. numerical constants can be specified in one of three ways, not including the
  1588. character constant. Decimal, Hexidecimal, and Binary are all supported.
  1589. Both H'xxx and 0xxxH and B'xxx and 0xxxB are supported. My favorite is 0xxxH.
  1590. If the trailing H is used in hexidecimal format, like most compilers, if the
  1591. first number is a alphabet character (A-F) it must be preceded with a 0.
  1592.  
  1593. The full 8051 instruction set it translated in this assembler EXCEPT for
  1594. 1. ANL c,/bit and 2. ORL c,/bit. Oh well!
  1595.  
  1596. To use this assembler, first compile it with "cc a51.c -o a51"
  1597. The compiler must be able to handle arrays of 32k long. With this capability,
  1598. you can have programs with an ADDRESS SPACE OF 0-8000 HEX! Addresses
  1599. farther than this will cause the program to BOMB. If your compiler can
  1600. handle it, change the array bounds in a51.h to 64k and all limiting
  1601. references to 32k in the program to 64k. I can't imagine a 32k program on
  1602. the 8051 myself...
  1603.  
  1604. To use the program, type "a51 filename" The assembler will generate two
  1605. files, a filename.lst file and a filename.hex file. 
  1606.     The .lst file will contain a listing of your program with the code
  1607. beside it followed by a table of tags that were defined.
  1608.     The .hex file will contain all the object code that is in your program
  1609. but no checksums, since I don't know how to do that. (any ideas?)
  1610.  
  1611. To make life easy, the assembler comes with an additional file, "a51.equ"
  1612. that has predefined tags with thier values. This file must end with a negative
  1613. number as a delimiter. Feel free to add your own equates if you want. It will
  1614. work the same.
  1615.  
  1616. Negative numbers are treated as two's complement. Always. If the number is
  1617. negative and greater than -256, it is treated as a byte.
  1618. If the number is negative and less than -255 (like -256) it is treated as
  1619. a word. Remember this! It's probably best not even to use negative 
  1620. constants. Figure them out yourself and compliment them. Just to make sure,
  1621. check the code listing and see if it's right.
  1622.  
  1623. rem statements are preceded by semicolons. 
  1624.  
  1625. Example programs foo and foo2 are included to show a couple of the features.
  1626.  
  1627. Questions? Complaints? Bugs?
  1628.  
  1629. rudolpe@jacobs.cs.orst.edu (503-745-7466)
  1630.  
  1631. @\Rogue\Monster\
  1632. else
  1633.   echo "shar: Will not over write a51.doc"
  1634. fi
  1635. if `test ! -s a51.equ`
  1636. then
  1637. echo "x - a51.equ"
  1638. cat > a51.equ << '@\Rogue\Monster\'
  1639. ACC
  1640. 224
  1641. ACC.0
  1642. 224
  1643. ACC.1
  1644. 225
  1645. ACC.2
  1646. 226
  1647. ACC.3
  1648. 227
  1649. ACC.4
  1650. 228
  1651. ACC.5
  1652. 229
  1653. ACC.6
  1654. 230
  1655. ACC.7
  1656. 231
  1657. B
  1658. 240
  1659. B.0
  1660. 240
  1661. B.1
  1662. 241
  1663. B.2
  1664. 242
  1665. B.3
  1666. 243
  1667. B.4
  1668. 244
  1669. B.5
  1670. 245
  1671. B.6
  1672. 246
  1673. B.7
  1674. 247
  1675. PSW
  1676. 208
  1677. PSW.0
  1678. 208
  1679. PSW.1
  1680. 209
  1681. PSW.2
  1682. 210
  1683. PSW.3
  1684. 211
  1685. PSW.4
  1686. 212
  1687. PSW.5
  1688. 213
  1689. PSW.6
  1690. 214
  1691. PSW.7
  1692. 215
  1693. P0
  1694. 128
  1695. P0.0
  1696. 128
  1697. P0.1
  1698. 129
  1699. P0.2
  1700. 130
  1701. P0.3
  1702. 131
  1703. P0.4
  1704. 132
  1705. P0.5
  1706. 133
  1707. P0.6
  1708. 134
  1709. P0.7
  1710. 135
  1711. TCON
  1712. 136
  1713. TCON.0
  1714. 136
  1715. TCON.1
  1716. 137
  1717. TCON.2
  1718. 138
  1719. TCON.3
  1720. 139
  1721. TCON.4
  1722. 140
  1723. TCON.5
  1724. 141
  1725. TCON.6
  1726. 142
  1727. TCON.7
  1728. 143
  1729. P1
  1730. 144
  1731. P1.0
  1732. 144
  1733. P1.1
  1734. 145
  1735. P1.2
  1736. 146
  1737. P1.3
  1738. 147
  1739. P1.4
  1740. 148
  1741. P1.5
  1742. 149
  1743. P1.6
  1744. 150
  1745. P1.7
  1746. 151
  1747. SCON
  1748. 152
  1749. SCON.0
  1750. 152
  1751. SCON.1
  1752. 153
  1753. SCON.2
  1754. 154
  1755. SCON.3
  1756. 155
  1757. SCON.4
  1758. 156
  1759. SCON.5
  1760. 157
  1761. SCON.6
  1762. 158
  1763. SCON.7
  1764. 159
  1765. P2
  1766. 160
  1767. P2.0
  1768. 160
  1769. P2.1
  1770. 161
  1771. P2.2
  1772. 162
  1773. P2.3
  1774. 163
  1775. P2.4
  1776. 164
  1777. P2.5
  1778. 165
  1779. P2.6
  1780. 166
  1781. P2.7
  1782. 167
  1783. IE
  1784. 168
  1785. IE.0
  1786. 168
  1787. IE.1
  1788. 169
  1789. IE.2
  1790. 170
  1791. IE.3
  1792. 171
  1793. IE.4
  1794. 172
  1795. IE.5
  1796. 173
  1797. IE.6
  1798. 174
  1799. IE.7
  1800. 175
  1801. P3
  1802. 176
  1803. P3.0
  1804. 176
  1805. P3.1
  1806. 177
  1807. P3.2
  1808. 178
  1809. P3.3
  1810. 179
  1811. P3.4
  1812. 180
  1813. P3.5
  1814. 181
  1815. P3.6
  1816. 182
  1817. P3.7
  1818. 183
  1819. SBUF
  1820. 153
  1821. TMOD
  1822. 137
  1823. TL0
  1824. 138
  1825. TL1
  1826. 139
  1827. TH0
  1828. 140
  1829. TH1
  1830. 141
  1831. SP
  1832. 129
  1833. DPL
  1834. 130
  1835. DPH
  1836. 131
  1837. PCON
  1838. 135
  1839. P
  1840. 208
  1841. OV
  1842. 210
  1843. RS0
  1844. 211
  1845. RS1
  1846. 212
  1847. F0
  1848. 213
  1849. AC
  1850. 214
  1851. CY
  1852. 215
  1853. EA
  1854. 175
  1855. ES
  1856. 172
  1857. ET1
  1858. 171
  1859. EX1
  1860. 170
  1861. ET0
  1862. 169
  1863. EX0
  1864. 168
  1865. PS
  1866. 188
  1867. PT1
  1868. 187
  1869. PX1
  1870. 186
  1871. PT0
  1872. 185
  1873. PX0
  1874. 184
  1875. TF1
  1876. 143
  1877. TR1
  1878. 142
  1879. TF0
  1880. 141
  1881. TR0
  1882. 140
  1883. IE1
  1884. 139
  1885. IT1
  1886. 138
  1887. IE0
  1888. 137
  1889. IT0
  1890. 136
  1891. SM0
  1892. 159
  1893. SM1
  1894. 158
  1895. SM2
  1896. 157
  1897. REN
  1898. 156
  1899. TB8
  1900. 155
  1901. RB8
  1902. 154
  1903. TI
  1904. 153
  1905. RI
  1906. 152
  1907. INT0
  1908. 178
  1909. INT1
  1910. 179
  1911. IP
  1912. 184
  1913. IP.0
  1914. 184
  1915. IP.1
  1916. 185
  1917. IP.2
  1918. 186
  1919. IP.3
  1920. 187
  1921. IP.4
  1922. 188
  1923. IP.5
  1924. 189
  1925. RXD
  1926. 176
  1927. TXD
  1928. 177
  1929. END
  1930. -1
  1931.  
  1932. @\Rogue\Monster\
  1933. else
  1934.   echo "shar: Will not over write a51.equ"
  1935. fi
  1936. if `test ! -s a51.h`
  1937. then
  1938. echo "x - a51.h"
  1939. cat > a51.h << '@\Rogue\Monster\'
  1940. #include <stdio.h>
  1941. #include <string.h>
  1942.  
  1943. short        mem[32768];
  1944. char        s[80];
  1945. char        buffer[80];
  1946. char        hexstr[7];
  1947. char        name[80];
  1948. char        left[80];
  1949. char        basename[80];
  1950. char        c;
  1951. int        addr,line,lval,mi,pass,pos,rval,realvalue,value;
  1952. int        lop,rel,rop,ln,hexsflag;
  1953. FILE         *f,*f_lst,*f_hex;
  1954. struct        taglist {
  1955.     char    tag[80];
  1956.     int    value;
  1957.     struct    taglist *next;
  1958.     };
  1959. struct taglist    *tag_list;
  1960. typedef    struct taglist ELEM;
  1961. typedef    ELEM *LINK;
  1962.  
  1963. @\Rogue\Monster\
  1964. else
  1965.   echo "shar: Will not over write a51.h"
  1966. fi
  1967. if `test ! -s foo`
  1968. then
  1969. echo "x - foo"
  1970. cat > foo << '@\Rogue\Monster\'
  1971. nop
  1972. ajmp 100h
  1973. ljmp 100h
  1974. rr a
  1975. inc a
  1976. inc 40h
  1977. inc r0
  1978. inc r1
  1979. inc r2
  1980. inc r3
  1981. inc r4
  1982. inc r5
  1983. inc r6
  1984. inc r7
  1985. jbc 20h,77h
  1986. acall 0
  1987. lcall 4220h
  1988. rrc a
  1989. dec a
  1990. dec 40h
  1991. dec @r0
  1992. dec @r1
  1993. dec r0
  1994. dec r1
  1995. dec r2
  1996. dec r3
  1997. dec r4
  1998. dec r5
  1999. dec r6
  2000. dec r7
  2001. jb 10h,77h
  2002. ret
  2003. rl a
  2004. add a,#1
  2005. add a,20h
  2006. add a,@r0
  2007. add a,@r1
  2008. add a,r0
  2009. add a,r1
  2010. add a,r2
  2011. add a,r3
  2012. add a,r4
  2013. add a,r5
  2014. add a,r6
  2015. add a,r7
  2016. jnb 10h,77h
  2017. reti
  2018. rlc a
  2019. addc a,#1
  2020. addc a,20h
  2021. addc a,@r0
  2022. addc a,@r1
  2023. addc a,r0
  2024. addc a,r1
  2025. addc a,r2
  2026. addc a,r3
  2027. addc a,r4
  2028. addc a,r5
  2029. addc a,r6
  2030. addc a,r7
  2031. jc 77h
  2032. orl 20h,a
  2033. orl 20h,#1
  2034. orl a,#1
  2035. orl a,20h
  2036. orl a,@r0
  2037. orl a,@r1
  2038. orl a,r0
  2039. orl a,r1
  2040. orl a,r2
  2041. orl a,r3
  2042. orl a,r4
  2043. orl a,r5
  2044. orl a,r6
  2045. orl a,r7
  2046. jnc 77h
  2047. anl 20h,a
  2048. anl 20h,#1
  2049. anl a,#1
  2050. anl a,20h
  2051. anl a,@r0
  2052. anl a,@r1
  2053. anl a,r0
  2054. anl a,r1
  2055. anl a,r2
  2056. anl a,r3
  2057. anl a,r4
  2058. anl a,r5
  2059. anl a,r6
  2060. anl a,r7
  2061. jz 77h
  2062. xrl 20h,a
  2063. xrl 20h,#1
  2064. xrl a,#1
  2065. xrl a,20h
  2066. xrl a,@r0
  2067. xrl a,@r1
  2068. xrl a,r0
  2069. xrl a,r1
  2070. xrl a,r2
  2071. xrl a,r3
  2072. xrl a,r4
  2073. xrl a,r5
  2074. xrl a,r6
  2075. xrl a,r7
  2076. jnz 77h
  2077. orl c,10h
  2078. jmp @a+dptr
  2079. mov a,#1
  2080. mov 20h,#1
  2081. mov @r0,#1
  2082. mov @r1,#1
  2083. mov r0,#1
  2084. mov r1,#1
  2085. mov r2,#1
  2086. mov r3,#1
  2087. mov r4,#1
  2088. mov r5,#1
  2089. mov r6,#1
  2090. mov r7,#1
  2091. sjmp 77h
  2092. anl c,77h
  2093. movc a,@a+pc
  2094. div ab
  2095. mov 20h,21h
  2096. mov 20h,@r0
  2097. mov 20h,@r1
  2098. mov 20h,r0
  2099. mov 20h,r1
  2100. mov 20h,r2
  2101. mov 20h,r3
  2102. mov 20h,r4
  2103. mov 20h,r5
  2104. mov 20h,r6
  2105. mov 20h,r7
  2106. mov dptr,#2123h
  2107. mov 77h,c
  2108. movc a,@a+dptr
  2109. subb a,#1
  2110. subb a,20h
  2111. subb a,@r0
  2112. subb a,@r1
  2113. subb a,r0
  2114. subb a,r1
  2115. subb a,r2
  2116. subb a,r3
  2117. subb a,r4
  2118. subb a,r5
  2119. subb a,r6
  2120. subb a,r7
  2121. mov c,77h
  2122. inc dptr
  2123. mul ab
  2124. mov @r0,20h
  2125. mov @r1,20h
  2126. mov r0,20h
  2127. mov r1,20h
  2128. mov r2,20h
  2129. mov r3,20h
  2130. mov r4,20h
  2131. mov r5,20h
  2132. mov r6,20h
  2133. mov r7,20h
  2134. cpl 77h
  2135. cpl c
  2136. cjne a,#1,loo
  2137. cjne a,20h,loo
  2138. cjne @r0,#1,loo
  2139. cjne @r1,#1,loo
  2140. cjne r0,#1,loo
  2141. cjne r1,#1,loo 
  2142. cjne r2,#1,loo 
  2143. cjne r3,#1,loo 
  2144. cjne r4,#1,loo 
  2145. cjne r5,#1,loo 
  2146. cjne r6,#1,loo 
  2147. cjne r7,#1,loo 
  2148. loo:
  2149. push 40h
  2150. clr 77h
  2151. clr c
  2152. swap a
  2153. xch a,20h
  2154. xch a,@r0
  2155. xch a,@r1
  2156. xch a,r0
  2157. xch a,r1
  2158. xch a,r2
  2159. xch a,r3
  2160. xch a,r4
  2161. xch a,r5
  2162. xch a,r6
  2163. xch a,r7
  2164. pop 40h
  2165. setb 77h
  2166. setb c
  2167. da a
  2168. djnz 40h,loo 
  2169. xchd a,@r0
  2170. xchd a,@r1
  2171. loop:
  2172. djnz r0,loop
  2173. djnz r1,loop
  2174. djnz r2,loop
  2175. djnz r3,loop
  2176. djnz r4,loop
  2177. djnz r5,loop
  2178. djnz r6,loop
  2179. djnz r7,loop
  2180. movx a,@dptr
  2181. movx a,@r0
  2182. movx a,@r1
  2183. clr a
  2184. mov a,20h
  2185. mov a,@r0
  2186. mov a,@r1
  2187. mov a,r0
  2188. mov a,r1
  2189. mov a,r2
  2190. mov a,r3
  2191. mov a,r4
  2192. mov a,r5
  2193. mov a,r6
  2194. mov a,r7
  2195. movx @dptr,a
  2196. movx @r0,a
  2197. movx @r1,a
  2198. cpl a
  2199. mov @r0,a
  2200. mov @r1,a
  2201. mov r0,a
  2202. mov r1,a
  2203. mov r2,a
  2204. mov r3,a
  2205. mov r4,a
  2206. mov r5,a
  2207. mov r6,a
  2208. mov r7,a
  2209.  
  2210.  
  2211.  
  2212.  
  2213. @\Rogue\Monster\
  2214. else
  2215.   echo "shar: Will not over write foo"
  2216. fi
  2217. if `test ! -s foo2`
  2218. then
  2219. echo "x - foo2"
  2220. cat > foo2 << '@\Rogue\Monster\'
  2221. mov a,#'A'
  2222. .dw 2000h
  2223.  
  2224.  
  2225. .db 24h+111b+'a'
  2226. .db 1111b
  2227. .dm 'hello'
  2228. .equ apple_soft,45h
  2229. .db apple_soft
  2230. .end
  2231.  
  2232. @\Rogue\Monster\
  2233. else
  2234.   echo "shar: Will not over write foo2"
  2235. fi
  2236. if `test ! -s key.asm`
  2237. then
  2238. echo "x - key.asm"
  2239. cat > key.asm << '@\Rogue\Monster\'
  2240. ;* these port equates are explained below. Relocate them to any of
  2241. ;* Port1, pins 0-7 or Port3, pins 0-7, except Port3, pins2 and 3
  2242. ;* because these are the external interrupts.
  2243. ;* it doesn't matter as long as you equate the right pin to the right
  2244. ;* signal.
  2245.  
  2246.         .equ    Kclk,p1.0
  2247.         .equ    Kdat,p1.1
  2248.         .equ    Aclk,p1.3
  2249.         .equ    Adat,p1.4
  2250.         .equ    Areset,p1.5
  2251.         .equ    Kswitch,p1.7
  2252.  
  2253.         .org    0000h
  2254. init:   ljmp    start
  2255.         .org    0003h
  2256.         ljmp    resetint
  2257.         .org    001bh
  2258.         ljmp    timer1int
  2259.  
  2260. ;**************************************************
  2261. ;*
  2262. ;*
  2263. ;* Equates Descriptions:
  2264. ;* 
  2265. ;*      Aclk is the line to the Amiga keyboard clock in. (P1.3)
  2266. ;*      Adat is the line to the Amiga keyboard data in. (P1.4)
  2267. ;*      Areset is the Amiga Reset line (P1.5) (for the A500)
  2268. ;*      Kclk is the line to the Keyboard clock out (P1.0)
  2269. ;*      Kdat is the line to the Keyboard data out (P1.1)
  2270. ;*      Kstyle is bit defining whether or not the keyboard
  2271. ;*        is AT or XT. if AT, Kstyle=1
  2272. ;*
  2273. ;*      Oldchar is the last character typed to go to the Amiga.
  2274. ;* This is used to tell if the Capslock was Pressed and 
  2275. ;* Released without pressing any other keys. If this was done, 
  2276. ;* then it is a "Caps Lock" otherwise, the Caps key functions
  2277. ;* as the Control Key because of the keyboard remapping.
  2278. ;*
  2279. ;*      Capbit is the flag which tells whether the Caps Lock
  2280. ;* should be down or up.
  2281. ;*      Capdown is the flag which tells whether the Caps Lock 
  2282. ;* KEY is presently down or up. The difference between Capdown 
  2283. ;* and Capbit is that Capdown relates to the KEY. Capbit toggles 
  2284. ;* once for every "press and release" of the Cap Lock Key. 
  2285. ;* Press and release Cap Lock Key, and Capbit goes low.....
  2286. ;* Press and release it again, and Capbit goes high....
  2287. ;*      Cntldown is the flag which is set and reset when you 
  2288. ;* press Cap Lock and then another key. Then, Cap Lock Key 
  2289. ;* functions as the Control Key.
  2290. ;* LAMIGA,RAMIGA,and CONTROL are all flags that tell if those 
  2291. ;* keys are being held down. When all three are, the computer
  2292. ;* will reset.
  2293. ;*
  2294. ;* ATparity is the 10th bit that the AT keyboard transmits. It 
  2295. ;* is SET if the number of DATA bits set is EVEN. Otherwise, its
  2296. ;* CLEARED.
  2297. ;*
  2298. ;**************************************************
  2299.  
  2300.         ;bit memory locations:
  2301.  
  2302.         .equ    Capbit,42h
  2303.         .equ    Capdown,43h
  2304.         .equ    Ctrldown,44h
  2305.         .equ    CONTROL,45h
  2306.         .equ    LAMIGA,46h
  2307.         .equ    RAMIGA,47h
  2308.         .equ    ATparity,48h
  2309.         .equ    Make,49h
  2310.         .equ    XT7bit,4ah
  2311.         .equ    Kstyle,4bh
  2312.  
  2313.         ;byte memory locations:
  2314.  
  2315.         .equ    Charbad,50h
  2316.         .equ    Oldchar,51h
  2317.         .equ    Amigachar,52h
  2318.  
  2319.         .org    0200h
  2320.  
  2321. start:  mov     tmod,#11h       ;two 16 bit timers
  2322.         mov     tcon,#05h    ;edge triggered interrupt.
  2323.         mov     ie,#00h         ;clear all interrupts
  2324.         setb    ea
  2325.         setb    et1             ;enable timer 1
  2326.         setb    ex0             ;enable external 0
  2327.         setb    int0            ;make sure it's high
  2328.         setb    pt0        ;timer 0 has high priority
  2329.         mov     sp,#30h         ;stack somewhere safe.
  2330.  
  2331. ; set the ports for input
  2332.         mov     p1,#255         ;set port1 for read
  2333.         clr     tr1             ;make sure timers are in
  2334.         clr     tf1             ;reset state.
  2335.         clr     tr0
  2336.         clr     tf0
  2337.  
  2338. ; clear out the miscellaneous flags.
  2339.         clr     Capdown         ;Caps is up...
  2340.         clr     Ctrldown        ;Control is up
  2341.         clr     Capbit          ;Caps light is off.
  2342.         setb    CONTROL         ;all reset keys are UP
  2343.         setb    LAMIGA
  2344.         setb    RAMIGA
  2345.  
  2346. ;**** sync the controller with the Amiga. clock out
  2347. ;**** ones until we receive a handshake...
  2348. sync:
  2349.         mov     tl1,#0          ;set up timer for 143ms
  2350.         mov     th1,#0
  2351.         mov     r1,#2
  2352.         setb     tr1
  2353. sync2:
  2354.         jb      Adat,sync2      ;wait for handshake
  2355. sync3:
  2356.         jnb     Adat,sync3      ;wait for end of handshake
  2357.         clr     tr1
  2358.  
  2359. ;**** transmit power up key stream and end key stream.
  2360.         mov     a,#0FDh
  2361.         acall   actualtransmit
  2362.         mov     a,#0FEh
  2363.         acall   actualtransmit
  2364.  
  2365. ;**** test for XT keyboard, if Kswitch is low, automatically
  2366. ;**** jump to XT mode.
  2367. ;**** otherwise, test to see if Kdat is low and stays there.
  2368. ;**** If so, it's in XT mode.                                
  2369.  
  2370.         jnb     Kswitch,XTPowerup 
  2371.         jb      Kdat,ATPowerup
  2372.         mov     th0,#0
  2373.         mov     tl0,#0
  2374.         clr     tf0
  2375.         setb    tr0
  2376. XTtest: jb      tf0,XTPowerup   ;timer ran out. XT mode.
  2377.         jnb     Kdat,XTtest     ;data is low, but for how long?
  2378.         clr     tr0
  2379.         clr     tf0
  2380.         sjmp    ATPowerup
  2381. XTPowerup:
  2382.         clr     Kstyle          ;XT flag.
  2383.         clr     tf0
  2384.         clr     Kclk            ;Clock low=Reset for the XT.
  2385. XTreset:
  2386.         jnb     tf0,XTreset
  2387.         setb    Kclk
  2388.         clr     tr0
  2389.         clr     tf0
  2390. ll:     acall   XTgetkey        ;(Should be AA)
  2391.         ljmp    XTstyle
  2392.  
  2393. ;**** sync up the AT and go with it!
  2394.  
  2395. ATPowerup:
  2396.         setb    Kstyle
  2397.         mov     a,#0ffh         ;RESET
  2398.         acall   SendtoAT
  2399.         mov     a,#0f6h         ;DEFAULT
  2400.         acall   SendtoAT
  2401.         mov     a,#0edh         ;NEXT DATA is FOR LIGHTS
  2402.         acall   SendtoAT
  2403.         mov     a,#2            ;NUMLOCK ON?
  2404.         acall   SendtoAT
  2405.         mov     a,#0f4h         ;CLEAR BUFFER
  2406.         acall   SendtoAT
  2407.         ljmp    ATstyle         ;go and parse AT keyboard
  2408.  
  2409. ;***********************************************
  2410. ;* ATgetkey
  2411. ;* ATgetkey
  2412. ;* ATgetkey
  2413. ;*
  2414. ;* ATgetkey looks at the keyboard and waits for a key to be
  2415. ;* pressed. ATinkey is the actual routine that watched the logic
  2416. ;* levels of Kdat and Kclk. IF the character's parity is not 
  2417. ;* what it is supposed to be, then the routine will attempt to
  2418. ;* tell the keyboard to resend.
  2419. ;*
  2420. ;* When exiting from this routine, Kclock is pulled low to hold 
  2421. ;* off any more transmissions. You must restore it to 5 volts to
  2422. ;* receive any more characters later.
  2423. ;*
  2424. ;*
  2425.  
  2426. ATgetkey:
  2427.         mov     r0,#11          ;number of bits
  2428.         setb    Kclk
  2429. ATwaitC0:         
  2430.         jb      Kclk,ATwaitC0   ;wait for a clock pulse
  2431.         dec     r0              ;decrement clock bit counter
  2432.         cjne    r0,#10,ATnstart ;test for startbit
  2433.         sjmp    ATwait  
  2434. ATnstart:
  2435.         cjne    r0,#0,ATnstop   ;check for stopbit      
  2436. ATwaitC1:
  2437.         jnb     Kclk,ATwaitC1   ;wait for clock to go high                     
  2438.         clr     Kclk            ;hold off more data
  2439.         mov     r0,#20          ;small delay
  2440. pause:  djnz    r0,pause
  2441. ;**** now we check to see if the parity between
  2442. ;**** Bit register P (which is set if Parity of Acc is odd)
  2443. ;**** is compared to the received Parity Bit.
  2444.         jb      p,parityodd     ;test if parity of DATA is odd
  2445. parityeven:
  2446.         jnb     ATparity,ATerror
  2447.         ret                     ;Okay to return. A=valid
  2448. parityodd:
  2449.         jb      ATparity,ATerror
  2450.         ret                     ;Okay to return. A=valid
  2451. ATerror:
  2452.         mov     a,#0feh         ;RESEND character
  2453.         acall   SendtoAT
  2454.         sjmp    ATgetkey        ;now return to caller
  2455. ATnstop:
  2456.         cjne    r0,#1,ATdatab   ;check for paritybit
  2457.         mov     c,Kdat          ;error checking! (AT only)
  2458.         mov     ATparity,c
  2459.         sjmp    ATwait          ;
  2460. ATdatab: 
  2461.         mov     c,Kdat          ;get data bit
  2462.         rrc     a               ;shift it into accumulator
  2463. ATwait: jnb     Kclk,ATwait     ;wait for clock line to go low
  2464.         sjmp    ATwaitC0        ;get another bit
  2465.  
  2466.  
  2467. ;**************************************************
  2468. ;* AT-STYLE
  2469. ;*
  2470. ;*     This waits for a keycode or two from the IBM and then calls
  2471. ;* the appropriate transmit subroutine. The IBM keyboard sends 
  2472. ;* out special codes in front of and behind some scancodes. This
  2473. ;* routine will chop them out before doing a lookup on the 
  2474. ;* code to see what to send to the AMIGA. The scancodes between 
  2475. ;* the IBM and the AMIGA are of course, not the same!
  2476. ;*
  2477. ;**************************************************
  2478.  
  2479. ATstyle:
  2480.         acall   ATgetkey          ;get one scancode.
  2481.         cjne    a,#0e1h,ATnE1
  2482.         acall   ATgetkey          ;(should be 14)
  2483.         acall   ATgetkey          ;(should be 77)
  2484.         acall   ATgetkey          ;(should be E1)
  2485.         acall   ATgetkey          ;(should be F0)
  2486.         acall   ATgetkey          ;(should be 14)
  2487.         acall   ATgetkey          ;(should be F0)
  2488.         acall   ATgetkey          ;(should be 77)
  2489.         sjmp    ATstyle
  2490. ;PAUSE was pressed. Just ignore it.
  2491. ATnE1:
  2492.         mov     dptr,#ATtb1
  2493.         cjne    a,#0e0h,ATnE0
  2494.         mov     dptr,#ATtb2
  2495.         acall   ATgetkey
  2496.         cjne    a,#0f0h,ATnE0F0
  2497.         acall   ATgetkey
  2498.         cjne    a,#12h,ATnEF12
  2499.         ljmp    ATstyle         ;(E0F012....ignore it)
  2500. ATnEF12:
  2501.         cjne    a,#59h,ATup     ;(E0F0mk)
  2502.         ljmp    ATstyle         ;(E0F059....ignore it)
  2503. ATnE0F0:
  2504.         cjne    a,#12h,ATnE012
  2505.         ljmp    ATstyle         ;(E012....ignore it)
  2506. ATnE012:
  2507.         cjne    a,#59h,ATdown   ;(E0mk)
  2508.         ljmp    ATstyle         ;(E059....ignore it)
  2509. ATnE0:
  2510.         cjne    a,#0f0h,ATdown  ;(mk)
  2511.         acall   ATgetkey
  2512.         sjmp    ATup            ;(F0mk....normal key break)
  2513.  
  2514. ;**************************************************
  2515. ;* ATdown and the rest here call a lookup table to change
  2516. ;* the AT scancodes into AMIGA scancodes. In the "down"
  2517. ;* routine, the "make" bit is asserted. In the "up" routine
  2518. ;* it is de-asserted.
  2519. ;**************************************************
  2520. ATdown:
  2521.         movc    a,@a+dptr       ;indexed into table
  2522.         clr     acc.7           ;clear make/break bit
  2523.         acall   transmit        ;transmit it
  2524.         ljmp    ATstyle
  2525. ATup:
  2526.         movc    a,@a+dptr
  2527.         setb    acc.7           ;set make/break bit
  2528.         acall   transmit        ;transmit it
  2529.         ljmp    ATstyle
  2530.  
  2531. ;**************************************************
  2532. ;* SendtoAT is the subroutine that sends special codes
  2533. ;* to the keyboard from the controller. Codes include
  2534. ;* the command to reset (FF) or the command to change
  2535. ;* the lights (ED). It is advisable to keep the timing
  2536. ;* very close to how I have it done in this routine.
  2537. ;**************************************************
  2538.  
  2539. SendtoAT:
  2540.         setb    Kclk
  2541.         clr     Kdat
  2542.         mov     r0,#8
  2543. Send4:  jb      Kclk,Send4      ;data bit
  2544.         mov     c,acc.0
  2545.         mov     Kdat,c
  2546.         rr      a 
  2547. Send5:  jnb     Kclk,Send5      ;data bit
  2548.         dec     r0
  2549.         cjne    r0,#0,Send4
  2550.         mov     c,p
  2551.         cpl     c
  2552. Send6:  jb      Kclk,Send6      ;parity bit
  2553.         mov     Kdat,c
  2554. Send7:  jnb     Kclk,Send7      ;parity bit
  2555. Send77: jb      Kclk,Send77     ;stop bit
  2556.         setb    Kdat
  2557. Send78: jnb     Kclk,Send78     ;stop bit
  2558. Send79: jb      Kclk,Send79
  2559. Send7a: jnb     Kclk,Send7a
  2560.         mov     r0,#8           ;small delay
  2561. Send8:  djnz    r0,Send8
  2562.         clr     Kclk            ;drive clock low
  2563.         mov     r0,#20          ;long delay
  2564. Send9:  djnz    r0,Send9
  2565.         setb    Kclk
  2566.         acall   ATgetkey        ;should check if response isbad.
  2567.         ret                     ;who cares if it is? not me!
  2568.  
  2569. XTgetkey:
  2570.         setb    Kdat            ;let data flow!
  2571.         mov     r0,#8
  2572. XTw1:   jb      Kclk,XTw1       ;start bit1
  2573. XTw2:   jnb     Kclk,XTw2       ;start bit1
  2574. XTw3:   jb      Kclk,XTw3       ;start bit2
  2575. XTw4:   jnb     Kclk,XTw4       ;start bit2
  2576. XTw5:   jb      Kclk,XTw5       ;data bit
  2577.         mov     c,Kdat
  2578.         rrc     a
  2579. XTw6:   jnb     Kclk,XTw6       ;data bit
  2580.         djnz    r0,XTw5
  2581.         clr     Kdat            ;hold off data
  2582.         ret
  2583.  
  2584. XTstyle:
  2585.         acall   XTgetkey
  2586.         cjne    a,#0e1h,XTnE1
  2587.         acall   XTgetkey        ;(should be 1d)
  2588.         acall   XTgetkey        ;(should be 45)
  2589.         acall   XTgetkey        ;(should be e1)
  2590.         acall   XTgetkey        ;(should be 9d)
  2591.         acall   XTgetkey        ;(should be c5)
  2592.         sjmp    XTstyle
  2593. XTnE1:
  2594.         cjne    a,#0e0h,XTnE0
  2595.         acall   XTgetkey
  2596.         cjne    a,#0aah,XTnAA
  2597.         sjmp    XTstyle
  2598. XTnAA:
  2599.         cjne    a,#2ah,XTn2A
  2600.         sjmp    XTstyle
  2601. XTn2A:
  2602.         cjne    a,#0b6h,XTnB6
  2603.         sjmp    XTstyle
  2604. XTnB6:
  2605.         cjne    a,#36h,XTn36
  2606.         sjmp    XTstyle
  2607. XTn36:
  2608.         mov     dptr,#XTtb2
  2609. XTlookup:
  2610.         mov     c,acc.7         ;(1=break)
  2611.         mov     XT7bit,c
  2612.         clr     acc.7
  2613.         movc    a,@a+dptr
  2614.         mov     c,XT7bit
  2615.         mov     acc.7,c
  2616.         acall   transmit
  2617.         ljmp    XTstyle
  2618. XTnE0:
  2619.         mov     dptr,#XTtb1
  2620.         sjmp    XTlookup
  2621.  
  2622. ;**************************************************
  2623. ;*
  2624. ;* TRANSMIT first does some checking to take out repeating
  2625. ;* keys and does the conversion on the Caps Lock Key and
  2626. ;* then calls Actualtransmit.
  2627. ;*
  2628. ;**************************************************
  2629.  
  2630. dontrans:                       ;jumps back if key is already
  2631.         pop     acc             ;held down.
  2632.         ret
  2633. transmit:
  2634.         cjne    a,Oldchar,transok
  2635.         ret
  2636. transok:
  2637.         cjne    a,#62h,transok2 ;jump if not CapsLock=down
  2638.         mov     Oldchar,a
  2639.         setb    Capdown         ;set the flags for later
  2640.         ret
  2641. transok2:                       
  2642.         cjne    a,#0e2h,transok3;jump if not CapsLock=up
  2643.         mov     a,Oldchar       ;see if Caps was just down
  2644.         jnb     Kstyle,XTcap    ;if XT, skip control feature.
  2645.         cjne    a,#62h,transok4 ;if not, then it was a control
  2646. XTcap:
  2647.         clr     Capdown         ;clear flag
  2648.         cpl     Capbit          ;toggle down/up-ness of Caplock
  2649.         mov     a,#62h
  2650.         mov     c,Capbit
  2651.         cpl     c
  2652.         mov     acc.7,c
  2653.         acall   actualtransmit  ;(Caps to Amiga!)
  2654.         jnb     Kstyle,skiplights ;(don't do lights if XT)
  2655.         mov     a,#0edh         ;set lights on next byte.
  2656.         acall   SendtoAT
  2657.         mov     a,#2            ;numlock on
  2658.         mov     c,Capbit
  2659.         mov     acc.2,c
  2660.         acall   SendtoAT        ;maybe capslock light
  2661. skiplights: 
  2662.         ret           
  2663. transok4:
  2664.         clr     CtrlDown        ;This sends out a Control Up.
  2665.         clr     Capdown         ;Caps lock is done functioning as Ctl
  2666.         mov     a,#63h          ;Control Key
  2667.         setb    acc.7           ;break bit set.
  2668.         acall   actualtransmit  ;send to Amiga.
  2669.         ret
  2670. transok3:
  2671.         mov     Oldchar,a
  2672.         jnb     Kstyle,noControl
  2673.         jnb     Capdown,noControl
  2674.         jb      CtrlDown,noControl
  2675.         setb    CtrlDown        ;Caps lock is beginning to function
  2676.         mov     a,#63h          ;as the Control Key.
  2677.         acall   actualtransmit  ;send Control Down to Amiga
  2678.         mov     a,Oldchar       ;now send the actual key
  2679.  
  2680. noControl:                      ;its not a controlled key
  2681.         mov     c,acc.7         ;c=make/break bit
  2682.         mov     Make,c          ;will be set if key up
  2683.         clr     acc.7           ;test for key only. NO make/break
  2684.         cjne    a,#0eh,noMup    ;special key mouse up
  2685.         jnb     Make,kmupdown
  2686. kmupup:
  2687.         mov     a,#0cch         ;cursor up break
  2688.         acall   actualtransmit
  2689.         acall   Smalldelay
  2690.         mov     a,#0e7h         ;right amiga break
  2691.         acall   actualtransmit
  2692.         ret
  2693. kmupdown:
  2694.         mov     a,#67h          ;amiga make
  2695.         acall   actualtransmit
  2696.         acall   Smalldelay
  2697.         mov     a,#4ch          ;cursor up make
  2698.         acall   actualtransmit
  2699.         ret
  2700. noMup:
  2701.         cjne    a,#1ch,noMdown  ;special key mouse down
  2702.         jnb     Make,kmdowndown
  2703. kmdownup:
  2704.         mov     a,#0cdh         ;cursor down break
  2705.         acall   actualtransmit
  2706.         mov     a,#0e7h         ;amiga break
  2707.         acall   Smalldelay
  2708.         acall   actualtransmit
  2709.         ret
  2710. kmdowndown:
  2711.         mov     a,#67h          ;amiga make
  2712.         acall   actualtransmit
  2713.         acall   Smalldelay      ;cursor down make
  2714.         mov     a,#4dh
  2715.         acall   actualtransmit
  2716.         ret
  2717. noMdown:
  2718.         cjne    a,#2ch,noMleft  ;special key mouse left
  2719.         jnb     Make,kmleftdown
  2720. kmleftup:
  2721.         mov     a,#0cfh         ;cursor left break
  2722.         acall   actualtransmit
  2723.         acall   Smalldelay      ;amiga break
  2724.         mov     a,#0e7h
  2725.         acall   actualtransmit
  2726.         ret
  2727. kmleftdown:
  2728.         mov     a,#67h          ;amiga make
  2729.         acall   actualtransmit
  2730.         acall   Smalldelay
  2731.         mov     a,#4fh          ;cursor left make
  2732.         acall   actualtransmit
  2733.         ret
  2734. noMleft:                        ;special key mouse right
  2735.         cjne    a,#47h,notspecial
  2736.         jnb     Make,kmrhtdown
  2737. kmrhtup:
  2738.         mov     a,#0ceh         ;cursor right break
  2739.         acall   actualtransmit
  2740.         acall   Smalldelay
  2741.         mov     a,#0e7h         ;amiga break
  2742.         acall   actualtransmit
  2743.         ret
  2744. kmrhtdown:
  2745.         mov     a,#67h          ;amiga make
  2746.         acall   actualtransmit
  2747.         acall   Smalldelay
  2748.         mov     a,#04eh         ;cursor right make
  2749.         acall   actualtransmit
  2750.         ret
  2751. Smalldelay:
  2752.         mov     th0,#0
  2753.         mov     tl0,#0
  2754.         clr     tf0
  2755.         setb    tr0
  2756. small1: jnb     tf0,small1
  2757.         clr     tf0
  2758.         clr     tr0
  2759.         ret
  2760. notspecial:
  2761.         mov     a,Oldchar
  2762.         acall   actualtransmit  ;transmit the keycode
  2763.         mov     a,Oldchar       ;get back same keycode, in A.
  2764.         mov     c,acc.7         ;put make/break bit in Make
  2765.         mov     Make,c
  2766.         clr     acc.7           ;start testing for reset keys
  2767.         cjne    a,#63h,nrset1   ;held down
  2768.         mov     c,Make
  2769.         mov     CONTROL,c
  2770.         sjmp    trset
  2771. nrset1: cjne    a,#66h,nrset2
  2772.         mov     c,Make
  2773.         mov     LAMIGA,c
  2774.         sjmp    trset
  2775. nrset2: cjne    a,#67h,trset
  2776.         mov     c,Make
  2777.         mov     RAMIGA,c
  2778. trset:  jnb     CONTROL,maybefree       ;if bit set, this key is up
  2779.         jb      CtrlDown,maybefree      ;if bit set, this key is down
  2780.         sjmp    free
  2781. maybefree:
  2782.         jb      LAMIGA,free     ;ditto
  2783.         jb      RAMIGA,free     ;ditto
  2784.         sjmp    resetwarn       ;OOPS! They are all down!
  2785. free:   ret
  2786. dummy:
  2787.         reti
  2788. resetint:
  2789.         acall   dummy
  2790. resetwarn:
  2791.         clr     tf0             
  2792.         mov     a,78h
  2793.         mov     r1,#2           ;set up timer 0 watchdog
  2794.         mov     tl0,#0
  2795.         mov     th0,#0
  2796.         cpl     a               ;invert, don't know why.
  2797.         mov     r0,#8
  2798. wr1:
  2799.         rl      a
  2800.         mov     c,acc.7
  2801.         mov     Adat,c
  2802.         mov     b,#8
  2803. wr2:
  2804.         djnz    b,wr2             ; transmit it.
  2805.         clr     Aclk
  2806.         mov     b,#8
  2807. wr3:
  2808.         djnz    b,wr3
  2809.         setb    Aclk
  2810.         mov     b,#10
  2811. wr4:
  2812.         djnz    b,wr4
  2813.         djnz    r0,wr1
  2814.         setb    Adat
  2815.         setb    tr0             ;start watchdog
  2816. wr5:
  2817.         jnb     Adat,caught1
  2818.         jnb     tf0,wr5
  2819.         clr     tf0
  2820.         djnz    r1,wr5
  2821.         sjmp    Hardreset
  2822. caught1:
  2823.         clr     tr0
  2824.         clr     tf0
  2825.         mov     a,78h
  2826.         mov     r1,#4
  2827.         mov     tl0,#0
  2828.         mov     th0,#0
  2829.         cpl     a    
  2830.         mov     r0,#8
  2831. wr11:
  2832.         rl      a
  2833.         mov     c,acc.7
  2834.         mov     Adat,c
  2835.         mov     b,#8
  2836. wr22:
  2837.         djnz    b,wr22   
  2838.         clr     Aclk
  2839.         mov     b,#8
  2840. wr33:
  2841.         djnz    b,wr33
  2842.         setb    Aclk
  2843.         mov     b,#10
  2844. wr44:
  2845.         djnz    b,wr44
  2846.         djnz    r0,wr11
  2847.         setb    Adat
  2848.         setb    tr0             ;start watchdog
  2849. wr55:
  2850.         jnb     Adat,caught2
  2851.         jnb     tf0,wr55
  2852.         clr     tf0
  2853.         djnz    r1,wr55
  2854.         sjmp    Hardreset
  2855. caught2:
  2856. hold:   jnb     Adat,hold
  2857. Hardreset:
  2858.         clr     tr0
  2859.         clr     tf0
  2860.         clr     Areset
  2861.         clr     Aclk            ;clear both lines for A500/A1000
  2862.         mov     r1,#15          ;clock should go low for over 500ms
  2863.         mov     th0,#0          ;timer 1 will overflow repeatedly
  2864.         mov     tl0,#0
  2865.         setb    tr0
  2866. hsloop:
  2867.         jnb     tf0,hsloop      ;wait for overflow flag
  2868.         clr     tf0             ;clear it again
  2869.         djnz    r1,hsloop
  2870.         clr     tf0
  2871.         clr     tr0             ;stop the timer
  2872.         ljmp    start
  2873.  
  2874. ;**************************************************
  2875. ;* 
  2876. ;* ActualTransmit sends the character out to the Amiga and waits
  2877. ;* for an acknowledge handshake. If it does not receive one in
  2878. ;* 143 ms, then it clocks out 1's on the data line until it 
  2879. ;* receives the acknowledge. If the Amiga is not connected up, 
  2880. ;* then it will hang here. The handshake is that the AMIGA 
  2881. ;* drives the clock line low.
  2882. ;*
  2883. ;*      The loops with register B are for timing delays. 
  2884. ;* There should be about 20usec between when the Data line is 
  2885. ;* set, the Clock line is driven low, and the Clock line
  2886. ;* is driven high.
  2887. ;*
  2888. ;**************************************************
  2889.  
  2890. actualtransmit:
  2891.         mov     Amigachar,a     ;set the character to transmit
  2892.  
  2893.         mov     r0,#05          ;do a small delay
  2894. dly:
  2895.         mov     b,#0
  2896. delay:  djnz    b,delay
  2897.         djnz    r0,dly
  2898.  
  2899. actual2:
  2900.         mov     a,Amigachar     ;restore it
  2901.         clr     Charbad         ;character is not bad yet
  2902.         mov     r1,#2           ;set up timer 0 watchdog
  2903.         mov     tl1,#0
  2904.         mov     th1,#0
  2905.         cpl     a               ;invert, don't know why.
  2906.         mov     r0,#8
  2907. f:      rl      a
  2908.         mov     c,acc.7
  2909.         mov     Adat,c
  2910.         mov     b,#8
  2911. g:      djnz    b,g             ; transmit it.
  2912.         clr     Aclk
  2913.         mov     b,#8
  2914. h:      djnz    b,h
  2915.         setb    Aclk
  2916.         mov     b,#10
  2917. i:      djnz    b,i
  2918.         djnz    r0,f
  2919.         setb    Adat
  2920.         setb    tr1             ;start watchdog
  2921. waitshake:
  2922.         jb      Adat,waitshake
  2923.         clr     tr1             ;stop watchdog
  2924. gotit:  jnb     Adat,gotit
  2925.         ret
  2926.  
  2927. timer1int:
  2928.         djnz    r1,t3           ;we wait for 143 ms.
  2929.         mov     r1,#2           
  2930.         setb    Charbad         ;flag to resend the character
  2931.         clr     Adat            ;1 on the data line
  2932.         mov     b,#8
  2933. tt1:    djnz    b,tt1           ;wait for it
  2934.         clr     Aclk            ;clock asserted
  2935.         mov     b,#8            ;sync up the controller to the
  2936. tt2:    djnz    b,tt2           ;amiga
  2937.         setb    Aclk
  2938.         mov     b,#10
  2939. tt3:    djnz    b,tt3
  2940.         setb    Adat
  2941. t3:     reti                    ;return and send again.
  2942.  
  2943. ATtb1: 
  2944.         .db     0               
  2945.         .db     58h             ;F9
  2946.         .db     0               
  2947.         .db     54h             ;F5
  2948.         .db     52h             ;F3
  2949.         .db     50h             ;F1
  2950.         .db     51h             ;F2
  2951.         .db     5bh             ;F12=right parenthesis
  2952.         .db     0
  2953.         .db     59h             ;F10
  2954.         .db     57h             ;F8
  2955.         .db     55h             ;F6
  2956.         .db     53h             ;F4
  2957.         .db     42h             ;TAB
  2958.         .db     00h             ;~
  2959.         .db     0
  2960.  
  2961.         .db     0
  2962.         .db     64h             ;Left ALT
  2963.         .db     60h             ;Left SHIFT
  2964.         .db     0
  2965.         .db     66h             ;Left Ctrl=Left AMIGA
  2966.         .db     10h             ;Q
  2967.         .db     01h             ;1
  2968.         .db     0
  2969.         .db     0
  2970.         .db     0
  2971.         .db     31h             ;Z
  2972.         .db     21h             ;S
  2973.         .db     20h             ;A
  2974.         .db     11h             ;W
  2975.         .db     02h             ;2
  2976.         .db     0
  2977.  
  2978.         .db     0
  2979.         .db     33h             ;C
  2980.         .db     32h             ;X
  2981.         .db     22h             ;D
  2982.         .db     12h             ;E
  2983.         .db     04h             ;4
  2984.         .db     03h             ;3
  2985.         .db     0
  2986.         .db     0
  2987.         .db     40h             ;SPACE
  2988.         .db     34h             ;V
  2989.         .db     23h             ;F
  2990.         .db     14h             ;T
  2991.         .db     13h             ;R
  2992.         .db     05h             ;5
  2993.         .db     0
  2994.  
  2995.         .db     0
  2996.         .db     36h             ;N
  2997.         .db     35h             ;B
  2998.         .db     25h             ;H
  2999.         .db     24h             ;G
  3000.         .db     15h             ;Y
  3001.         .db     06h             ;6
  3002.         .db     0
  3003.         .db     0
  3004.         .db     0
  3005.         .db     37h             ;M
  3006.         .db     26h             ;J
  3007.         .db     16h             ;U
  3008.         .db     07h             ;7
  3009.         .db     08h             ;8
  3010.         .db     0
  3011.  
  3012.         .db     0
  3013.         .db     38h             ;<
  3014.         .db     27h             ;K
  3015.         .db     17h             ;I
  3016.         .db     18h             ;O
  3017.         .db     0Ah             ;0
  3018.         .db     09h             ;9
  3019.         .db     0
  3020.         .db     0
  3021.         .db     39h             ;>
  3022.         .db     3ah             ;/
  3023.         .db     28h             ;L
  3024.         .db     29h             ; ';'
  3025.         .db     19h             ;P
  3026.         .db     0bh             ;-
  3027.         .db     0
  3028.  
  3029.         .db     0
  3030.         .db     0
  3031.         .db     2ah             ;'
  3032.         .db     0
  3033.         .db     1ah             ;[
  3034.         .db     0ch             ;=
  3035.         .db     0
  3036.         .db     0
  3037.         .db     62h             ;CAPS LOCK?
  3038.         .db     61h             ;Right SHIFT
  3039.         .db     44h             ;RETURN
  3040.         .db     1bh             ;]
  3041.         .db     0
  3042.         .db     0dh             ;\
  3043.         .db     0
  3044.         .db     0
  3045.  
  3046.         .rs     6
  3047.         .db     41h             ;Back SPACE
  3048.         .db     0
  3049.         .db     0
  3050.         .db     1dh             ;1 keypad
  3051.         .db     0
  3052.         .db     2dh             ;4 keypad
  3053.         .db     3dh             ;7 keypad
  3054.         .db     0
  3055.         .db     0
  3056.         .db     0
  3057.  
  3058.         .db     0fh             ;0 keypad
  3059.         .db     3ch             ;dot keypad
  3060.         .db     1eh             ;2 keypad
  3061.         .db     2eh             ;5 keypad
  3062.         .db     2fh             ;6 keypad
  3063.         .db     3eh             ;8 keypad
  3064.         .db     45h             ;ESCAPE!
  3065.         .db     63h             ;Number Lock=CTRL
  3066.         .db     5ah             ;F11=( keypad
  3067.         .db     5eh             ;+ keypad
  3068.         .db     1fh             ;3 keypad
  3069.         .db     4ah             ;- keypad
  3070.         .db     5dh             ;* keypad
  3071.         .db     3fh             ;9 keypad
  3072.         .db     67h             ;scroll Lock=Right AMIGA
  3073.         .db     0
  3074. ATtb2:
  3075.         .rs     3
  3076.         .db     56h             ;F7
  3077.         .db     66h             ;print screen=Left Amiga
  3078.         .rs     11
  3079.  
  3080.         .db     0
  3081.         .db     65h             ;Right ALT
  3082.         .db     0
  3083.         .db     0
  3084.         .db     67h             ;Right CTL=RIGHT AMIGA
  3085.         .rs     11
  3086.  
  3087.         .rs     10h
  3088.         
  3089.         .rs     10h
  3090.  
  3091.         .rs     10
  3092.         .db     5ch             ;/key, supposedly
  3093.         .rs     5
  3094.  
  3095.         .rs     10
  3096.         .db     43h             ;Numeric Enter
  3097.         .rs     5
  3098.  
  3099.         .rs     9
  3100.         .db     1ch             ;End=Mouse down
  3101.         .db     0
  3102.         .db     4fh             ;Cursor Left
  3103.         .db     0eh             ;Home=Mouse up
  3104.         .db     0
  3105.         .db     0
  3106.         .db     63h             ;MACRO key=control
  3107.  
  3108.         .db     2ch             ;Insert=Mouse Left
  3109.         .db     46h             ;Delete
  3110.         .db     4dh             ;Cursor Down
  3111.         .db     0
  3112.         .db     4eh             ;Cursor Right
  3113.         .db     4ch             ;Cursor Up
  3114.         .rs     4
  3115.         .db     5fh             ;Page Down=Help
  3116.         .db     0
  3117.         .db     66h             ;print screen=LEFT AMIGA
  3118.         .db     47h             ;Page up=mouse right
  3119.         .db     40h             ;Break=Space?
  3120.         .db     0
  3121. XTtb1:
  3122.         .db     0
  3123.         .db     45h             ;esc
  3124.         .db     01h             ;1
  3125.         .db     02h             ;2
  3126.         .db     03h             ;3
  3127.         .db     04h             ;4
  3128.         .db     05h             ;5
  3129.         .db     06h             ;6
  3130.         .db     07h             ;7
  3131.         .db     08h             ;8
  3132.         .db     09h             ;9
  3133.         .db     0ah             ;0
  3134.         .db     0bh             ;-
  3135.         .db     0ch             ;=
  3136.         .db     41h             ;Backspace
  3137.         .db     42h             ;Tab
  3138.  
  3139.         .db     10h             ;Q
  3140.         .db     11h             ;W
  3141.         .db     12h             ;E
  3142.         .db     13h             ;R
  3143.         .db     14h             ;T
  3144.         .db     15h             ;Y
  3145.         .db     16h             ;U
  3146.         .db     17h             ;I
  3147.         .db     18h             ;O
  3148.         .db     19h             ;P
  3149.         .db     1Ah             ;[
  3150.         .db     1Bh             ;]
  3151.         .db     44h             ;ENTER
  3152.         .db     66h             ;L.CTL=LEFT AMIGA
  3153.         .db     20h             ;A
  3154.         .db     21h             ;S
  3155.  
  3156.         .db     22h             ;D
  3157.         .db     23h             ;F
  3158.         .db     24h             ;G
  3159.         .db     25h             ;H
  3160.         .db     26h             ;J
  3161.         .db     27h             ;K
  3162.         .db     28h             ;L
  3163.         .db     29h             ;';'
  3164.         .db     2Ah             ;'
  3165.         .db     00h             ;~
  3166.         .db     60h             ;Left Shift
  3167.         .db     0dh             ;\
  3168.         .db     31h             ;Z
  3169.         .db     32h             ;X
  3170.         .db     33h             ;C
  3171.         .db     34h             ;V
  3172.  
  3173.         .db     35h             ;B
  3174.         .db     36h             ;N
  3175.         .db     37h             ;M
  3176.         .db     38h             ;<
  3177.         .db     39h             ;>
  3178.         .db     3Ah             ;/
  3179.         .db     61h             ;Right Shift
  3180.         .db     5dh             ;Numeric *
  3181.         .db     64h             ;Left Alt
  3182.         .db     40h             ;space
  3183.         .db     62h             ;CapsLock
  3184.         .db     50h             ;F1
  3185.         .db     51h             ;F2
  3186.         .db     52h             ;F3
  3187.         .db     53h             ;F4
  3188.         .db     54h             ;F5
  3189.  
  3190.         .db     55h             ;F6
  3191.         .db     56h             ;F7
  3192.         .db     57h             ;F8
  3193.         .db     58h             ;F9
  3194.         .db     59h             ;F10
  3195.         .db     63h             ;Number Lock=Control
  3196.         .db     67h             ;Scroll Lock=Right Amiga
  3197.         .db     3dh             ;Numeric 7
  3198.         .db     3eh             ;* 8
  3199.         .db     3fh             ;* 9
  3200.         .db     4ah             ;* -
  3201.         .db     2dh             ;* 4
  3202.         .db     2eh             ;* 5
  3203.         .db     2fh             ;* 6
  3204.         .db     5eh             ;* +
  3205.         .db     1dh             ;* 1
  3206.  
  3207.         .db     1eh             ;* 2
  3208.         .db     1fh             ;* 3
  3209.         .db     0fh             ;* 0
  3210.         .db     3ch             ;* .
  3211.         .db     63h             ;print screen=CONTROL
  3212.         .db     0
  3213.         .db     0
  3214.         .db     5ah             ;F11=Numeric (
  3215.         .db     5bh             ;F12=Numeric )
  3216.         .rs     7
  3217.  
  3218.         .rs     10h
  3219.  
  3220.         .rs     10h
  3221. XTtb2:
  3222.         .rs     10h
  3223.  
  3224.         .rs     12
  3225.         .db     43h             ;Numeric Enter
  3226.         .db     67h             ;Right Control=RIGHT AMIGA
  3227.         .rs     2
  3228.  
  3229.         .rs     10h
  3230.         
  3231.         .rs     5
  3232.         .db     5ch             ;Numeric /key
  3233.         .db     0
  3234.         .db     66h             ;Print Screeen=Left Amiga
  3235.         .db     65h             ;Right Alt
  3236.         .rs     7
  3237.  
  3238.         .rs     6
  3239.         .db     5fh             ;BREAK=HELP!
  3240.         .db     0eh             ;Home=MOUSE UP
  3241.         .db     4ch             ;cursor up
  3242.         .db     47h             ;pageup=mouse right
  3243.         .db     0
  3244.         .db     4fh             ;cursor left
  3245.         .db     0
  3246.         .db     4eh             ;cursor right
  3247.         .db     0
  3248.         .db     1ch             ;End=mouse down
  3249.  
  3250.         .db     4dh             ;cursor down
  3251.         .db     5fh             ;page down=HELP!
  3252.         .db     2ch             ;insert=mouse left
  3253.         .db     46h             ;delete
  3254.         .rs     12
  3255.        
  3256.         .rs     15
  3257.         .db     63h             ;Macro=control
  3258.  
  3259.         .rs     10h
  3260.  
  3261.         .end    0
  3262.  
  3263. @\Rogue\Monster\
  3264. else
  3265.   echo "shar: Will not over write key.asm"
  3266. fi
  3267. if `test ! -s key.asm.hex`
  3268. then
  3269. echo "x - key.asm.hex"
  3270. cat > key.asm.hex << '@\Rogue\Monster\'
  3271. 0000:    02 02 00 02 04 D0 00 00  00 00 00 00 00 00 00 00 
  3272. 0010:    00 00 00 00 00 00 00 00  00 00 00 02 05 B4 00 00 
  3273. 0200:    75 89 11 75 88 05 75 A8  00 D2 AF D2 AB D2 A8 D2 
  3274. 0210:    B2 D2 B9 75 81 30 75 90  FF C2 8E C2 8F C2 8C C2 
  3275. 0220:    8D C2 43 C2 44 C2 42 D2  45 D2 46 D2 47 75 8B 00 
  3276. 0230:    75 8D 00 79 02 D2 8E 20  94 FD 30 94 FD C2 8E 74 
  3277. 0240:    FD B1 6F 74 FE B1 6F 30  97 19 20 91 2A 75 8C 00 
  3278. 0250:    75 8A 00 C2 8D D2 8C 20  8D 09 30 91 FA C2 8C C2 
  3279. 0260:    8D 80 14 C2 4B C2 8D C2  90 30 8D FD D2 90 C2 8C 
  3280. 0270:    C2 8D 71 5C 02 03 7A D2  4B 74 FF 71 1F 74 F6 71 
  3281. 0280:    1F 74 ED 71 1F 74 02 71  1F 74 F4 71 1F 02 02 CB 
  3282. 0290:    78 0B D2 90 20 90 FD 18  B8 0A 02 80 29 B8 00 1A 
  3283. 02A0:    30 90 FD C2 90 78 14 D8  FE 20 D0 04 30 48 05 22 
  3284. 02B0:    20 48 01 22 74 FE 71 1F  80 D6 B8 01 06 A2 91 92 
  3285. 02C0:    48 80 03 A2 91 13 30 90  FD 80 C9 51 90 B4 E1 10 
  3286. 02D0:    51 90 51 90 51 90 51 90  51 90 51 90 51 90 80 EB 
  3287. 02E0:    90 05 D5 B4 E0 22 90 06  55 51 90 B4 F0 0E 51 90 
  3288. 02F0:    B4 12 03 02 02 CB B4 59  1E 02 02 CB B4 12 03 02 
  3289. 0300:    02 CB B4 59 0A 02 02 CB  B4 F0 04 51 90 80 08 93 
  3290. 0310:    C2 E7 71 BF 02 02 CB 93  D2 E7 71 BF 02 02 CB D2 
  3291. 0320:    90 C2 91 78 08 20 90 FD  A2 E0 92 91 03 30 90 FD 
  3292. 0330:    18 B8 00 F1 A2 D0 B3 20  90 FD 92 91 30 90 FD 20 
  3293. 0340:    90 FD D2 91 30 90 FD 20  90 FD 30 90 FD 78 08 D8 
  3294. 0350:    FE C2 90 78 14 D8 FE D2  90 51 90 22 D2 91 78 08 
  3295. 0360:    20 90 FD 30 90 FD 20 90  FD 30 90 FD 20 90 FD A2 
  3296. 0370:    91 13 30 90 FD D8 F5 C2  91 22 71 5C B4 E1 0C 71 
  3297. 0380:    5C 71 5C 71 5C 71 5C 71  5C 80 EF B4 E0 29 71 5C 
  3298. 0390:    B4 AA 02 80 E5 B4 2A 02  80 E0 B4 B6 02 80 DB B4 
  3299. 03A0:    36 02 80 D6 90 07 55 A2  E7 92 4A C2 E7 93 A2 4A 
  3300. 03B0:    92 E7 71 BF 02 03 7A 90  06 D5 80 EB D0 E0 22 B5 
  3301. 03C0:    51 01 22 B4 62 05 F5 51  D2 43 22 B4 E2 30 E5 51 
  3302. 03D0:    30 4B 03 B4 62 1D C2 43  B2 42 74 62 A2 42 B3 92 
  3303. 03E0:    E7 B1 6F 30 4B 0C 74 ED  71 1F 74 02 A2 42 92 E2 
  3304. 03F0:    71 1F 22 C2 44 C2 43 74  63 D2 E7 B1 6F 22 F5 51 
  3305. 0400:    30 4B 0E 30 43 0B 20 44  08 D2 44 74 63 B1 6F E5 
  3306. 0410:    51 A2 E7 92 49 C2 E7 B4  0E 19 30 49 0B 74 CC B1 
  3307. 0420:    6F 91 87 74 E7 B1 6F 22  74 67 B1 6F 91 87 74 4C 
  3308. 0430:    B1 6F 22 B4 1C 19 30 49  0B 74 CD B1 6F 74 E7 91 
  3309. 0440:    87 B1 6F 22 74 67 B1 6F  91 87 74 4D B1 6F 22 B4 
  3310. 0450:    2C 19 30 49 0B 74 CF B1  6F 91 87 74 E7 B1 6F 22 
  3311. 0460:    74 67 B1 6F 91 87 74 4F  B1 6F 22 B4 47 2B 30 49 
  3312. 0470:    0B 74 CE B1 6F 91 87 74  E7 B1 6F 22 74 67 B1 6F 
  3313. 0480:    91 87 74 4E B1 6F 22 75  8C 00 75 8A 00 C2 8D D2 
  3314. 0490:    8C 30 8D FD C2 8D C2 8C  22 E5 51 B1 6F E5 51 A2 
  3315. 04A0:    E7 92 49 C2 E7 B4 63 06  A2 49 92 45 80 10 B4 66 
  3316. 04B0:    06 A2 49 92 46 80 07 B4  67 04 A2 49 92 47 30 45 
  3317. 04C0:    05 20 44 02 80 08 20 46  05 20 47 02 80 04 22 32 
  3318. 04D0:    91 CF C2 8D E5 78 79 02  75 8A 00 75 8C 00 F4 78 
  3319. 04E0:    08 23 A2 E7 92 94 75 F0  08 D5 F0 FD C2 93 75 F0 
  3320. 04F0:    08 D5 F0 FD D2 93 75 F0  0A D5 F0 FD D8 E3 D2 94 
  3321. 0500:    D2 8C 30 94 09 30 8D FA  C2 8D D9 F6 80 41 C2 8C 
  3322. 0510:    C2 8D E5 78 79 04 75 8A  00 75 8C 00 F4 78 08 23 
  3323. 0520:    A2 E7 92 94 75 F0 08 D5  F0 FD C2 93 75 F0 08 D5 
  3324. 0530:    F0 FD D2 93 75 F0 0A D5  F0 FD D8 E3 D2 94 D2 8C 
  3325. 0540:    30 94 09 30 8D FA C2 8D  D9 F6 80 03 30 94 FD C2 
  3326. 0550:    8C C2 8D C2 95 C2 93 79  0F 75 8C 00 75 8A 00 D2 
  3327. 0560:    8C 30 8D FD C2 8D D9 F9  C2 8D C2 8C 02 02 00 F5 
  3328. 0570:    52 78 05 75 F0 00 D5 F0  FD D8 F8 E5 52 C2 50 79 
  3329. 0580:    02 75 8B 00 75 8D 00 F4  78 08 23 A2 E7 92 94 75 
  3330. 0590:    F0 08 D5 F0 FD C2 93 75  F0 08 D5 F0 FD D2 93 75 
  3331. 05A0:    F0 0A D5 F0 FD D8 E3 D2  94 D2 8E 20 94 FD C2 8E 
  3332. 05B0:    30 94 FD 22 D9 1E 79 02  D2 50 C2 94 75 F0 08 D5 
  3333. 05C0:    F0 FD C2 93 75 F0 08 D5  F0 FD D2 93 75 F0 0A D5 
  3334. 05D0:    F0 FD D2 94 32 00 58 00  54 52 50 51 5B 00 59 57 
  3335. 05E0:    55 53 42 00 00 00 64 60  00 66 10 01 00 00 00 31 
  3336. 05F0:    21 20 11 02 00 00 33 32  22 12 04 03 00 00 40 34 
  3337. 0600:    23 14 13 05 00 00 36 35  25 24 15 06 00 00 00 37 
  3338. 0610:    26 16 07 08 00 00 38 27  17 18 0A 09 00 00 39 3A 
  3339. 0620:    28 29 19 0B 00 00 00 2A  00 1A 0C 00 00 62 61 44 
  3340. 0630:    1B 00 0D 00 00 00 00 00  00 00 00 41 00 00 1D 00 
  3341. 0640:    2D 3D 00 00 00 0F 3C 1E  2E 2F 3E 45 63 5A 5E 1F 
  3342. 0650:    4A 5D 3F 67 00 00 00 00  56 66 00 00 00 00 00 00 
  3343. 0660:    00 00 00 00 00 00 65 00  00 67 00 00 00 00 00 00 
  3344. 0690:    00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 5C 
  3345. 06A0:    00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 43 
  3346. 06B0:    00 00 00 00 00 00 00 00  00 00 00 00 00 00 1C 00 
  3347. 06C0:    4F 0E 00 00 63 2C 46 4D  00 4E 4C 00 00 00 00 5F 
  3348. 06D0:    00 66 47 40 00 00 45 01  02 03 04 05 06 07 08 09 
  3349. 06E0:    0A 0B 0C 41 42 10 11 12  13 14 15 16 17 18 19 1A 
  3350. 06F0:    1B 44 66 20 21 22 23 24  25 26 27 28 29 2A 00 60 
  3351. 0700:    0D 31 32 33 34 35 36 37  38 39 3A 61 5D 64 40 62 
  3352. 0710:    50 51 52 53 54 55 56 57  58 59 63 67 3D 3E 3F 4A 
  3353. 0720:    2D 2E 2F 5E 1D 1E 1F 0F  3C 63 00 00 5A 5B 00 00 
  3354. 0770:    00 43 67 00 00 00 00 00  00 00 00 00 00 00 00 00 
  3355. 0780:    00 00 00 00 00 00 00 00  00 00 5C 00 66 65 00 00 
  3356. 0790:    00 00 00 00 00 00 00 00  00 00 00 5F 0E 4C 47 00 
  3357. 07A0:    4F 00 4E 00 1C 4D 5F 2C  46 00 00 00 00 00 00 00 
  3358. 07C0:    00 00 00 00 63 00 00 00  00 00 00 00 00 00 00 00 
  3359. @\Rogue\Monster\
  3360. else
  3361.   echo "shar: Will not over write key.asm.hex"
  3362. fi
  3363. if `test ! -s key.list`
  3364. then
  3365. echo "x - key.list"
  3366. cat > key.list << '@\Rogue\Monster\'
  3367. 000001 0000                  ;* these equates are explained below. Relocate them to any of
  3368. 000002 0000                  ;* Port1, pins 0-7 or Port3, pins 0-7, except Port3, pins2 and 3
  3369. 000003 0000                  ;* because these are the external interrupts.
  3370. 000004 0000                  
  3371. 000005 0090                          .equ    Kclk,p1.0
  3372. 000006 0091                          .equ    Kdat,p1.1
  3373. 000007 0092                          .equ    Kreset,p1.2 
  3374. 000008 0093                          .equ    Aclk,p1.3
  3375. 000009 0094                          .equ    Adat,p1.4
  3376. 000010 0095                          .equ    Areset,p1.5
  3377. 000011 0097                          .equ    Kswitch,p1.7
  3378. 000012 0000                  
  3379. 000013 0000                          .org    0000h
  3380. 000014 0000 020200           init:   ljmp    start
  3381. 000015 0003                          .org    0003h
  3382. 000016 0003 0204D0                   ljmp    resetint
  3383. 000017 001B                          .org    001bh
  3384. 000018 001B 0205B4                   ljmp    timer1int
  3385. 000019 001E                  
  3386. 000020 001E                  ;**************************************************
  3387. 000021 001E                  ;*
  3388. 000022 001E                  ;*
  3389. 000023 001E                  ;* Equates Descriptions:
  3390. 000024 001E                  ;* 
  3391. 000025 001E                  ;*    Watch1 is a flag which tells the IBM keycode parser that
  3392. 000026 001E                  ;* some extranneous codes are to come across the lines. In 
  3393. 000027 001E                  ;* particular, these codes will be either E0 4A or E0 59. The 
  3394. 000028 001E                  ;* parser should ignore them.
  3395. 000029 001E                  ;*      Watch2 is also the same type of flag as Watch1. It
  3396. 000030 001E                  ;* tells the parser that E0 12 59 will follow and to ignore it.
  3397. 000031 001E                  ;*
  3398. 000032 001E                  ;*      Aclk is the line to the Amiga keyboard clock in. (P1.3)
  3399. 000033 001E                  ;*      Adat is the line to the Amiga keyboard data in. (P1.4)
  3400. 000034 001E                  ;*      Areset is the Amiga Reset line (P1.5)
  3401. 000035 001E                  ;*      Kclk is the line to the Keyboard clock out (P1.0)
  3402. 000036 001E                  ;*      Kdat is the line to the Keyboard data out (P1.1)
  3403. 000037 001E                  ;*      Kreset is the Keyboard Reset line (P1.2)
  3404. 000038 001E                  ;*      Kstyle is bit defining whether or not the keyboard
  3405. 000039 001E                  ;*        is AT or XT. if AT, Kstyle=1
  3406. 000040 001E                  ;*
  3407. 000041 001E                  ;*      Oldchar is the last character typed to go to the Amiga.
  3408. 000042 001E                  ;* This is used to tell if the Capslock was Pressed and 
  3409. 000043 001E                  ;* Released without pressing any other keys. If this was done, 
  3410. 000044 001E                  ;* then it is a "Caps Lock" otherwise, the Caps key functions
  3411. 000045 001E                  ;* as the Control Key because of the keyboard remapping.
  3412. 000046 001E                  ;*
  3413. 000047 001E                  ;*      Capbit is the flag which tells whether the Caps Lock
  3414. 000048 001E                  ;* should be down or up.
  3415. 000049 001E                  ;*      Capdown is the flag which tells whether the Caps Lock 
  3416. 000050 001E                  ;* KEY is presently down or up. The difference between Capdown 
  3417. 000051 001E                  ;* and Capbit is that Capdown relates to the KEY. Capbit toggles 
  3418. 000052 001E                  ;* once for every "press and release" of the Cap Lock Key. 
  3419. 000053 001E                  ;* Press and release Cap Lock Key, and Capbit goes low.....
  3420. 000054 001E                  ;* Press and release it again, and Capbit goes high....
  3421. 000055 001E                  ;*      Cntldown is the flag which is set and reset when you 
  3422. 000056 001E                  ;* press Cap Lock and then another key. Then, Cap Lock Key 
  3423. 000057 001E                  ;* functions as the Control Key.
  3424. 000058 001E                  ;* LAMIGA,RAMIGA,and CONTROL are all flags that tell if those 
  3425. 000059 001E                  ;* keys are being held down. When all three are, the computer
  3426. 000060 001E                  ;* will reset.
  3427. 000061 001E                  ;*
  3428. 000062 001E                  ;* ATparity is the 10th bit that the AT keyboard transmits. It 
  3429. 000063 001E                  ;* is SET if the number of DATA bits set is EVEN. Otherwise, its
  3430. 000064 001E                  ;* CLEARED.
  3431. 000065 001E                  ;*
  3432. 000066 001E                  ;**************************************************
  3433. 000067 001E                  
  3434. 000068 001E                          ;bit memory locations:
  3435. 000069 001E                  
  3436. 000070 0042                          .equ    Capbit,42h
  3437. 000071 0043                          .equ    Capdown,43h
  3438. 000072 0044                          .equ    Ctrldown,44h
  3439. 000073 0045                          .equ    CONTROL,45h
  3440. 000074 0046                          .equ    LAMIGA,46h
  3441. 000075 0047                          .equ    RAMIGA,47h
  3442. 000076 0048                          .equ    ATparity,48h
  3443. 000077 0049                          .equ    Make,49h
  3444. 000078 004A                          .equ    XT7bit,4ah
  3445. 000079 004B                          .equ    Kstyle,4bh
  3446. 000080 001E                  
  3447. 000081 001E                          ;byte memory locations:
  3448. 000082 001E                  
  3449. 000083 0050                          .equ    Charbad,50h
  3450. 000084 0051                          .equ    Oldchar,51h
  3451. 000085 0052                          .equ    Amigachar,52h
  3452. 000086 001E                  
  3453. 000087 0200                          .org    0200h
  3454. 000088 0200                  
  3455. 000089 0200 758911           start:  mov     tmod,#11h       ;two 16 bit timers
  3456. 000090 0203 758805                   mov     tcon,#05h
  3457. 000091 0206 75A800                   mov     ie,#00h         ;clear all interrupts
  3458. 000092 0209 D2AF                     setb    ea
  3459. 000093 020B D2AB                     setb    et1             ;enable timer 1
  3460. 000094 020D D2A8                     setb    ex0             ;enable external 0
  3461. 000095 020F D2B2                     setb    int0            ;make sure it's high
  3462. 000096 0211 D2B9                     setb    pt0
  3463. 000097 0213 758130                   mov     sp,#30h         ;stack somewhere safe.
  3464. 000098 0216                  
  3465. 000099 0216                  ; set the ports for input
  3466. 000100 0216 7590FF                   mov     p1,#255         ;set port1 for read
  3467. 000101 0219 C28E                     clr     tr1             ;make sure timers are in
  3468. 000102 021B C28F                     clr     tf1             ;reset state.
  3469. 000103 021D C28C                     clr     tr0
  3470. 000104 021F C28D                     clr     tf0
  3471. 000105 0221                  
  3472. 000106 0221                  ; clear out the miscellaneous flags.
  3473. 000107 0221 C243                     clr     Capdown         ;Caps is up...
  3474. 000108 0223 C244                     clr     Ctrldown        ;Control is up
  3475. 000109 0225 C242                     clr     Capbit          ;Caps light is off.
  3476. 000110 0227 D245                     setb    CONTROL         ;all reset keys are UP
  3477. 000111 0229 D246                     setb    LAMIGA
  3478. 000112 022B D247                     setb    RAMIGA
  3479. 000113 022D                  
  3480. 000114 022D                  ;**** sync the controller with the Amiga. clock out
  3481. 000115 022D                  ;**** ones until we receive a handshake...
  3482. 000116 022D                  sync:
  3483. 000117 022D 758B00                   mov     tl1,#0          ;set up timer for 143ms
  3484. 000118 0230 758D00                   mov     th1,#0
  3485. 000119 0233 7902                     mov     r1,#2
  3486. 000120 0235 D28E                     setb     tr1
  3487. 000121 0237                  sync2:
  3488. 000122 0237 2094FD                   jb      Adat,sync2      ;wait for handshake
  3489. 000123 023A                  sync3:
  3490. 000124 023A 3094FD                   jnb     Adat,sync3      ;wait for end of handshake
  3491. 000125 023D C28E                     clr     tr1
  3492. 000126 023F                  
  3493. 000127 023F                  ;**** transmit power up key stream and end key stream.
  3494. 000128 023F 74FD                     mov     a,#0FDh
  3495. 000129 0241 B16F                     acall   actualtransmit
  3496. 000130 0243 74FE                     mov     a,#0FEh
  3497. 000131 0245 B16F                     acall   actualtransmit
  3498. 000132 0247                  
  3499. 000133 0247                  ;**** test for XT keyboard, if Kswitch is low, automatically
  3500. 000134 0247                  ;**** jump to XT mode.
  3501. 000135 0247                  ;**** otherwise, test to see if Kdat is low and stays there.
  3502. 000136 0247                  ;**** If so, it's in XT mode.                                
  3503. 000137 0247 309719                   jnb     Kswitch,XTPowerup 
  3504. 000138 024A 20912A                   jb      Kdat,ATPowerup
  3505. 000139 024D 758C00                   mov     th0,#0
  3506. 000140 0250 758A00                   mov     tl0,#0
  3507. 000141 0253 C28D                     clr     tf0
  3508. 000142 0255 D28C                     setb    tr0
  3509. 000143 0257 208D09           XTtest: jb      tf0,XTPowerup   ;timer ran out. XT mode.
  3510. 000144 025A 3091FA                   jnb     Kdat,XTtest     ;data is low, but for how long?
  3511. 000145 025D C28C                     clr     tr0
  3512. 000146 025F C28D                     clr     tf0
  3513. 000147 0261 8014                     sjmp    ATPowerup
  3514. 000148 0263                  XTPowerup:
  3515. 000149 0263 C24B                     clr     Kstyle          ;XT flag.
  3516. 000150 0265 C28D                     clr     tf0
  3517. 000151 0267 C290                     clr     Kclk            ;Clock low=Reset for the XT.
  3518. 000152 0269                  XTreset:
  3519. 000153 0269 308DFD                   jnb     tf0,XTreset
  3520. 000154 026C D290                     setb    Kclk
  3521. 000155 026E C28C                     clr     tr0
  3522. 000156 0270 C28D                     clr     tf0
  3523. 000157 0272 715C             ll:     acall   XTgetkey        ;(Should be AA)
  3524. 000158 0274 02037A                   ljmp    XTstyle
  3525. 000159 0277                  
  3526. 000160 0277                  ;**** sync up the AT and go with it!
  3527. 000161 0277                  
  3528. 000162 0277                  ATPowerup:
  3529. 000163 0277 D24B                     setb    Kstyle
  3530. 000164 0279 74FF                     mov     a,#0ffh         ;RESET
  3531. 000165 027B 711F                     acall   SendtoAT
  3532. 000166 027D 74F6                     mov     a,#0f6h         ;DEFAULT
  3533. 000167 027F 711F                     acall   SendtoAT
  3534. 000168 0281 74ED                     mov     a,#0edh         ;NEXT DATA is FOR LIGHTS
  3535. 000169 0283 711F                     acall   SendtoAT
  3536. 000170 0285 7402                     mov     a,#2            ;NUMLOCK ON?
  3537. 000171 0287 711F                     acall   SendtoAT
  3538. 000172 0289 74F4                     mov     a,#0f4h         ;CLEAR BUFFER
  3539. 000173 028B 711F                     acall   SendtoAT
  3540. 000174 028D 0202CB                   ljmp    ATstyle         ;go and parse AT keyboard
  3541. 000175 0290                  
  3542. 000176 0290                  ;***********************************************
  3543. 000177 0290                  ;* ATgetkey
  3544. 000178 0290                  ;* ATgetkey
  3545. 000179 0290                  ;* ATgetkey
  3546. 000180 0290                  ;*
  3547. 000181 0290                  ;* ATgetkey looks at the keyboard and waits for a key to be
  3548. 000182 0290                  ;* pressed. ATinkey is the actual routine that watched the logic
  3549. 000183 0290                  ;* levels of Kdat and Kclk. IF the character's parity is not 
  3550. 000184 0290                  ;* what it is supposed to be, then the routine will attempt to
  3551. 000185 0290                  ;* tell the keyboard to resend.
  3552. 000186 0290                  ;*
  3553. 000187 0290                  ;* When exiting from this routine, Kclock is pulled low to hold 
  3554. 000188 0290                  ;* off any more transmissions. You must restore it to 5 volts to
  3555. 000189 0290                  ;* receive any more characters later.
  3556. 000190 0290                  ;*
  3557. 000191 0290                  ;*
  3558. 000192 0290                  
  3559. 000193 0290                  ATgetkey:
  3560. 000194 0290 780B                     mov     r0,#11          ;number of bits
  3561. 000195 0292 D290                     setb    Kclk
  3562. 000196 0294                  ATwaitC0:         
  3563. 000197 0294 2090FD                   jb      Kclk,ATwaitC0   ;wait for a clock pulse
  3564. 000198 0297 18                       dec     r0              ;decrement clock bit counter
  3565. 000199 0298 B80A02                   cjne    r0,#10,ATnstart ;test for startbit
  3566. 000200 029B 8029                     sjmp    ATwait  
  3567. 000201 029D                  ATnstart:
  3568. 000202 029D B8001A                   cjne    r0,#0,ATnstop   ;check for stopbit      
  3569. 000203 02A0                  ATwaitC1:
  3570. 000204 02A0 3090FD                   jnb     Kclk,ATwaitC1   ;wait for clock to go high                     
  3571. 000205 02A3 C290                     clr     Kclk            ;hold off more data
  3572. 000206 02A5 7814                     mov     r0,#20          ;small delay
  3573. 000207 02A7 D8FE             pause:  djnz    r0,pause
  3574. 000208 02A9                  ;**** now we check to see if the parity between
  3575. 000209 02A9                  ;**** Bit register P (which is set if Parity of Acc is odd)
  3576. 000210 02A9                  ;**** is compared to the received Parity Bit.
  3577. 000211 02A9 20D004                   jb      p,parityodd     ;test if parity of DATA is odd
  3578. 000212 02AC                  parityeven:
  3579. 000213 02AC 304805                   jnb     ATparity,ATerror
  3580. 000214 02AF 22                       ret                     ;Okay to return. A=valid
  3581. 000215 02B0                  parityodd:
  3582. 000216 02B0 204801                   jb      ATparity,ATerror
  3583. 000217 02B3 22                       ret                     ;Okay to return. A=valid
  3584. 000218 02B4                  ATerror:
  3585. 000219 02B4 74FE                     mov     a,#0feh         ;RESEND character
  3586. 000220 02B6 711F                     acall   SendtoAT
  3587. 000221 02B8 80D6                     sjmp    ATgetkey        ;now return to caller
  3588. 000222 02BA                  ATnstop:
  3589. 000223 02BA B80106                   cjne    r0,#1,ATdatab   ;check for paritybit
  3590. 000224 02BD A291                     mov     c,Kdat          ;error checking! (AT only)
  3591. 000225 02BF 9248                     mov     ATparity,c
  3592. 000226 02C1 8003                     sjmp    ATwait          ;
  3593. 000227 02C3                  ATdatab: 
  3594. 000228 02C3 A291                     mov     c,Kdat          ;get data bit
  3595. 000229 02C5 13                       rrc     a               ;shift it into accumulator
  3596. 000230 02C6 3090FD           ATwait: jnb     Kclk,ATwait     ;wait for clock line to go low
  3597. 000231 02C9 80C9                     sjmp    ATwaitC0        ;get another bit
  3598. 000232 02CB                  
  3599. 000233 02CB                  
  3600. 000234 02CB                  ;**************************************************
  3601. 000235 02CB                  ;* AT-STYLE
  3602. 000236 02CB                  ;*
  3603. 000237 02CB                  ;*     This waits for a keycode or two from the IBM and then calls
  3604. 000238 02CB                  ;* the appropriate transmit subroutine. The IBM keyboard sends 
  3605. 000239 02CB                  ;* out special codes in front of and behind some scancodes. This
  3606. 000240 02CB                  ;* routine will chop them out before doing a lookup on the 
  3607. 000241 02CB                  ;* code to see what to send to the AMIGA. The scancodes between 
  3608. 000242 02CB                  ;* the IBM and the AMIGA are of course, not the same!
  3609. 000243 02CB                  ;*
  3610. 000244 02CB                  ;**************************************************
  3611. 000245 02CB                  
  3612. 000246 02CB                  ATstyle:
  3613. 000247 02CB 5190                     acall   ATgetkey          ;get one scancode.
  3614. 000248 02CD B4E110                   cjne    a,#0e1h,ATnE1
  3615. 000249 02D0 5190                     acall   ATgetkey          ;(should be 14)
  3616. 000250 02D2 5190                     acall   ATgetkey          ;(should be 77)
  3617. 000251 02D4 5190                     acall   ATgetkey          ;(should be E1)
  3618. 000252 02D6 5190                     acall   ATgetkey          ;(should be F0)
  3619. 000253 02D8 5190                     acall   ATgetkey          ;(should be 14)
  3620. 000254 02DA 5190                     acall   ATgetkey          ;(should be F0)
  3621. 000255 02DC 5190                     acall   ATgetkey          ;(should be 77)
  3622. 000256 02DE 80EB                     sjmp    ATstyle
  3623. 000257 02E0                  ;PAUSE was pressed. Just ignore it.
  3624. 000258 02E0                  ATnE1:
  3625. 000259 02E0 9005D5                   mov     dptr,#ATtb1
  3626. 000260 02E3 B4E022                   cjne    a,#0e0h,ATnE0
  3627. 000261 02E6 900655                   mov     dptr,#ATtb2
  3628. 000262 02E9 5190                     acall   ATgetkey
  3629. 000263 02EB B4F00E                   cjne    a,#0f0h,ATnE0F0
  3630. 000264 02EE 5190                     acall   ATgetkey
  3631. 000265 02F0 B41203                   cjne    a,#12h,ATnEF12
  3632. 000266 02F3 0202CB                   ljmp    ATstyle         ;(E0F012....ignore it)
  3633. 000267 02F6                  ATnEF12:
  3634. 000268 02F6 B4591E                   cjne    a,#59h,ATup     ;(E0F0mk)
  3635. 000269 02F9 0202CB                   ljmp    ATstyle         ;(E0F059....ignore it)
  3636. 000270 02FC                  ATnE0F0:
  3637. 000271 02FC B41203                   cjne    a,#12h,ATnE012
  3638. 000272 02FF 0202CB                   ljmp    ATstyle         ;(E012....ignore it)
  3639. 000273 0302                  ATnE012:
  3640. 000274 0302 B4590A                   cjne    a,#59h,ATdown   ;(E0mk)
  3641. 000275 0305 0202CB                   ljmp    ATstyle         ;(E059....ignore it)
  3642. 000276 0308                  ATnE0:
  3643. 000277 0308 B4F004                   cjne    a,#0f0h,ATdown  ;(mk)
  3644. 000278 030B 5190                     acall   ATgetkey
  3645. 000279 030D 8008                     sjmp    ATup            ;(F0mk....normal key break)
  3646. 000280 030F                  
  3647. 000281 030F                  ;**************************************************
  3648. 000282 030F                  ;* ATdown and the rest here call a lookup table to change
  3649. 000283 030F                  ;* the AT scancodes into AMIGA scancodes. In the "down"
  3650. 000284 030F                  ;* routine, the "make" bit is asserted. In the "up" routine
  3651. 000285 030F                  ;* it is de-asserted.
  3652. 000286 030F                  ;**************************************************
  3653. 000287 030F                  ATdown:
  3654. 000288 030F 93                       movc    a,@a+dptr       ;indexed into table
  3655. 000289 0310 C2E7                     clr     acc.7           ;clear make/break bit
  3656. 000290 0312 71BF                     acall   transmit        ;transmit it
  3657. 000291 0314 0202CB                   ljmp    ATstyle
  3658. 000292 0317                  ATup:
  3659. 000293 0317 93                       movc    a,@a+dptr
  3660. 000294 0318 D2E7                     setb    acc.7           ;set make/break bit
  3661. 000295 031A 71BF                     acall   transmit        ;transmit it
  3662. 000296 031C 0202CB                   ljmp    ATstyle
  3663. 000297 031F                  
  3664. 000298 031F                  ;**************************************************
  3665. 000299 031F                  ;* SendtoAT is the subroutine that sends special codes
  3666. 000300 031F                  ;* to the keyboard from the controller. Codes include
  3667. 000301 031F                  ;* the command to reset (FF) or the command to change
  3668. 000302 031F                  ;* the lights (ED). It is advisable to keep the timing
  3669. 000303 031F                  ;* very close to how I have it done in this routine.
  3670. 000304 031F                  ;**************************************************
  3671. 000305 031F                  
  3672. 000306 031F                  SendtoAT:
  3673. 000307 031F D290                     setb    Kclk
  3674. 000308 0321 C291                     clr     Kdat
  3675. 000309 0323 7808                     mov     r0,#8
  3676. 000310 0325 2090FD           Send4:  jb      Kclk,Send4      ;data bit
  3677. 000311 0328 A2E0                     mov     c,acc.0
  3678. 000312 032A 9291                     mov     Kdat,c
  3679. 000313 032C 03                       rr      a 
  3680. 000314 032D 3090FD           Send5:  jnb     Kclk,Send5      ;data bit
  3681. 000315 0330 18                       dec     r0
  3682. 000316 0331 B800F1                   cjne    r0,#0,Send4
  3683. 000317 0334 A2D0                     mov     c,p
  3684. 000318 0336 B3                       cpl     c
  3685. 000319 0337 2090FD           Send6:  jb      Kclk,Send6      ;parity bit
  3686. 000320 033A 9291                     mov     Kdat,c
  3687. 000321 033C 3090FD           Send7:  jnb     Kclk,Send7      ;parity bit
  3688. 000322 033F 2090FD           Send77: jb      Kclk,Send77     ;stop bit
  3689. 000323 0342 D291                     setb    Kdat
  3690. 000324 0344 3090FD           Send78: jnb     Kclk,Send78     ;stop bit
  3691. 000325 0347 2090FD           Send79: jb      Kclk,Send79
  3692. 000326 034A 3090FD           Send7a: jnb     Kclk,Send7a
  3693. 000327 034D 7808                     mov     r0,#8           ;small delay
  3694. 000328 034F D8FE             Send8:  djnz    r0,Send8
  3695. 000329 0351 C290                     clr     Kclk            ;drive clock low
  3696. 000330 0353 7814                     mov     r0,#20          ;long delay
  3697. 000331 0355 D8FE             Send9:  djnz    r0,Send9
  3698. 000332 0357 D290                     setb    Kclk
  3699. 000333 0359 5190                     acall   ATgetkey        ;should check if response isbad.
  3700. 000334 035B 22                       ret                     ;who cares if it is? not me!
  3701. 000335 035C                  
  3702. 000336 035C                  XTgetkey:
  3703. 000337 035C D291                     setb    Kdat            ;let data flow!
  3704. 000338 035E 7808                     mov     r0,#8
  3705. 000339 0360 2090FD           XTw1:   jb      Kclk,XTw1       ;start bit1
  3706. 000340 0363 3090FD           XTw2:   jnb     Kclk,XTw2       ;start bit1
  3707. 000341 0366 2090FD           XTw3:   jb      Kclk,XTw3       ;start bit2
  3708. 000342 0369 3090FD           XTw4:   jnb     Kclk,XTw4       ;start bit2
  3709. 000343 036C 2090FD           XTw5:   jb      Kclk,XTw5       ;data bit
  3710. 000344 036F A291                     mov     c,Kdat
  3711. 000345 0371 13                       rrc     a
  3712. 000346 0372 3090FD           XTw6:   jnb     Kclk,XTw6       ;data bit
  3713. 000347 0375 D8F5                     djnz    r0,XTw5
  3714. 000348 0377 C291                     clr     Kdat            ;hold off data
  3715. 000349 0379 22                       ret
  3716. 000350 037A                  
  3717. 000351 037A                  XTstyle:
  3718. 000352 037A 715C                     acall   XTgetkey
  3719. 000353 037C B4E10C                   cjne    a,#0e1h,XTnE1
  3720. 000354 037F 715C                     acall   XTgetkey        ;(should be 1d)
  3721. 000355 0381 715C                     acall   XTgetkey        ;(should be 45)
  3722. 000356 0383 715C                     acall   XTgetkey        ;(should be e1)
  3723. 000357 0385 715C                     acall   XTgetkey        ;(should be 9d)
  3724. 000358 0387 715C                     acall   XTgetkey        ;(should be c5)
  3725. 000359 0389 80EF                     sjmp    XTstyle
  3726. 000360 038B                  XTnE1:
  3727. 000361 038B B4E029                   cjne    a,#0e0h,XTnE0
  3728. 000362 038E 715C                     acall   XTgetkey
  3729. 000363 0390 B4AA02                   cjne    a,#0aah,XTnAA
  3730. 000364 0393 80E5                     sjmp    XTstyle
  3731. 000365 0395                  XTnAA:
  3732. 000366 0395 B42A02                   cjne    a,#2ah,XTn2A
  3733. 000367 0398 80E0                     sjmp    XTstyle
  3734. 000368 039A                  XTn2A:
  3735. 000369 039A B4B602                   cjne    a,#0b6h,XTnB6
  3736. 000370 039D 80DB                     sjmp    XTstyle
  3737. 000371 039F                  XTnB6:
  3738. 000372 039F B43602                   cjne    a,#36h,XTn36
  3739. 000373 03A2 80D6                     sjmp    XTstyle
  3740. 000374 03A4                  XTn36:
  3741. 000375 03A4 900755                   mov     dptr,#XTtb2
  3742. 000376 03A7                  XTlookup:
  3743. 000377 03A7 A2E7                     mov     c,acc.7         ;(1=break)
  3744. 000378 03A9 924A                     mov     XT7bit,c
  3745. 000379 03AB C2E7                     clr     acc.7
  3746. 000380 03AD 93                       movc    a,@a+dptr
  3747. 000381 03AE A24A                     mov     c,XT7bit
  3748. 000382 03B0 92E7                     mov     acc.7,c
  3749. 000383 03B2 71BF                     acall   transmit
  3750. 000384 03B4 02037A                   ljmp    XTstyle
  3751. 000385 03B7                  XTnE0:
  3752. 000386 03B7 9006D5                   mov     dptr,#XTtb1
  3753. 000387 03BA 80EB                     sjmp    XTlookup
  3754. 000388 03BC                  
  3755. 000389 03BC                  ;**************************************************
  3756. 000390 03BC                  ;*
  3757. 000391 03BC                  ;* TRANSMIT first does some checking to take out repeating
  3758. 000392 03BC                  ;* keys and does the conversion on the Caps Lock Key and
  3759. 000393 03BC                  ;* then calls Actualtransmit.
  3760. 000394 03BC                  ;*
  3761. 000395 03BC                  ;**************************************************
  3762. 000396 03BC                  
  3763. 000397 03BC                  dontrans:                       ;jumps back if key is already
  3764. 000398 03BC D0E0                     pop     acc             ;held down.
  3765. 000399 03BE 22                       ret
  3766. 000400 03BF                  transmit:
  3767. 000401 03BF B55101                   cjne    a,Oldchar,transok
  3768. 000402 03C2 22                       ret
  3769. 000403 03C3                  transok:
  3770. 000404 03C3 B46205                   cjne    a,#62h,transok2 ;jump if not CapsLock=down
  3771. 000405 03C6 F551                     mov     Oldchar,a
  3772. 000406 03C8 D243                     setb    Capdown         ;set the flags for later
  3773. 000407 03CA 22                       ret
  3774. 000408 03CB                  transok2:                       
  3775. 000409 03CB B4E230                   cjne    a,#0e2h,transok3;jump if not CapsLock=up
  3776. 000410 03CE E551                     mov     a,Oldchar       ;see if Caps was just down
  3777. 000411 03D0 304B03                   jnb     Kstyle,XTcap    ;if XT, skip control feature.
  3778. 000412 03D3 B4621D                   cjne    a,#62h,transok4 ;if not, then it was a control
  3779. 000413 03D6                  XTcap:
  3780. 000414 03D6 C243                     clr     Capdown         ;clear flag
  3781. 000415 03D8 B242                     cpl     Capbit          ;toggle down/up-ness of Caplock
  3782. 000416 03DA 7462                     mov     a,#62h
  3783. 000417 03DC A242                     mov     c,Capbit
  3784. 000418 03DE B3                       cpl     c
  3785. 000419 03DF 92E7                     mov     acc.7,c
  3786. 000420 03E1 B16F                     acall   actualtransmit  ;(Caps to Amiga!)
  3787. 000421 03E3 304B0C                   jnb     Kstyle,skiplights ;(don't do lights if XT)
  3788. 000422 03E6 74ED                     mov     a,#0edh         ;set lights on next byte.
  3789. 000423 03E8 711F                     acall   SendtoAT
  3790. 000424 03EA 7402                     mov     a,#2            ;numlock on
  3791. 000425 03EC A242                     mov     c,Capbit
  3792. 000426 03EE 92E2                     mov     acc.2,c
  3793. 000427 03F0 711F                     acall   SendtoAT        ;maybe capslock light
  3794. 000428 03F2                  skiplights: 
  3795. 000429 03F2 22                       ret           
  3796. 000430 03F3                  transok4:
  3797. 000431 03F3 C244                     clr     CtrlDown        ;This sends out a Control Up.
  3798. 000432 03F5 C243                     clr     Capdown         ;Caps lock is done functioning as Ctl
  3799. 000433 03F7 7463                     mov     a,#63h          ;Control Key
  3800. 000434 03F9 D2E7                     setb    acc.7           ;break bit set.
  3801. 000435 03FB B16F                     acall   actualtransmit  ;send to Amiga.
  3802. 000436 03FD 22                       ret
  3803. 000437 03FE                  transok3:
  3804. 000438 03FE F551                     mov     Oldchar,a
  3805. 000439 0400 304B0E                   jnb     Kstyle,noControl
  3806. 000440 0403 30430B                   jnb     Capdown,noControl
  3807. 000441 0406 204408                   jb      CtrlDown,noControl
  3808. 000442 0409 D244                     setb    CtrlDown        ;Caps lock is beginning to function
  3809. 000443 040B 7463                     mov     a,#63h          ;as the Control Key.
  3810. 000444 040D B16F                     acall   actualtransmit  ;send Control Down to Amiga
  3811. 000445 040F E551                     mov     a,Oldchar       ;now send the actual key
  3812. 000446 0411                  
  3813. 000447 0411                  noControl:                      ;its not a controlled key
  3814. 000448 0411 A2E7                     mov     c,acc.7         ;c=make/break bit
  3815. 000449 0413 9249                     mov     Make,c          ;will be set if key up
  3816. 000450 0415 C2E7                     clr     acc.7           ;test for key only. NO make/break
  3817. 000451 0417 B40E19                   cjne    a,#0eh,noMup    ;special key mouse up
  3818. 000452 041A 30490B                   jnb     Make,kmupdown
  3819. 000453 041D                  kmupup:
  3820. 000454 041D 74CC                     mov     a,#0cch         ;cursor up break
  3821. 000455 041F B16F                     acall   actualtransmit
  3822. 000456 0421 9187                     acall   Smalldelay
  3823. 000457 0423 74E7                     mov     a,#0e7h         ;right amiga break
  3824. 000458 0425 B16F                     acall   actualtransmit
  3825. 000459 0427 22                       ret
  3826. 000460 0428                  kmupdown:
  3827. 000461 0428 7467                     mov     a,#67h          ;amiga make
  3828. 000462 042A B16F                     acall   actualtransmit
  3829. 000463 042C 9187                     acall   Smalldelay
  3830. 000464 042E 744C                     mov     a,#4ch          ;cursor up make
  3831. 000465 0430 B16F                     acall   actualtransmit
  3832. 000466 0432 22                       ret
  3833. 000467 0433                  noMup:
  3834. 000468 0433 B41C19                   cjne    a,#1ch,noMdown  ;special key mouse down
  3835. 000469 0436 30490B                   jnb     Make,kmdowndown
  3836. 000470 0439                  kmdownup:
  3837. 000471 0439 74CD                     mov     a,#0cdh         ;cursor down break
  3838. 000472 043B B16F                     acall   actualtransmit
  3839. 000473 043D 74E7                     mov     a,#0e7h         ;amiga break
  3840. 000474 043F 9187                     acall   Smalldelay
  3841. 000475 0441 B16F                     acall   actualtransmit
  3842. 000476 0443 22                       ret
  3843. 000477 0444                  kmdowndown:
  3844. 000478 0444 7467                     mov     a,#67h          ;amiga make
  3845. 000479 0446 B16F                     acall   actualtransmit
  3846. 000480 0448 9187                     acall   Smalldelay      ;cursor down make
  3847. 000481 044A 744D                     mov     a,#4dh
  3848. 000482 044C B16F                     acall   actualtransmit
  3849. 000483 044E 22                       ret
  3850. 000484 044F                  noMdown:
  3851. 000485 044F B42C19                   cjne    a,#2ch,noMleft  ;special key mouse left
  3852. 000486 0452 30490B                   jnb     Make,kmleftdown
  3853. 000487 0455                  kmleftup:
  3854. 000488 0455 74CF                     mov     a,#0cfh         ;cursor left break
  3855. 000489 0457 B16F                     acall   actualtransmit
  3856. 000490 0459 9187                     acall   Smalldelay      ;amiga break
  3857. 000491 045B 74E7                     mov     a,#0e7h
  3858. 000492 045D B16F                     acall   actualtransmit
  3859. 000493 045F 22                       ret
  3860. 000494 0460                  kmleftdown:
  3861. 000495 0460 7467                     mov     a,#67h          ;amiga make
  3862. 000496 0462 B16F                     acall   actualtransmit
  3863. 000497 0464 9187                     acall   Smalldelay
  3864. 000498 0466 744F                     mov     a,#4fh          ;cursor left make
  3865. 000499 0468 B16F                     acall   actualtransmit
  3866. 000500 046A 22                       ret
  3867. 000501 046B                  noMleft:                        ;special key mouse right
  3868. 000502 046B B4472B                   cjne    a,#47h,notspecial
  3869. 000503 046E 30490B                   jnb     Make,kmrhtdown
  3870. 000504 0471                  kmrhtup:
  3871. 000505 0471 74CE                     mov     a,#0ceh         ;cursor right break
  3872. 000506 0473 B16F                     acall   actualtransmit
  3873. 000507 0475 9187                     acall   Smalldelay
  3874. 000508 0477 74E7                     mov     a,#0e7h         ;amiga break
  3875. 000509 0479 B16F                     acall   actualtransmit
  3876. 000510 047B 22                       ret
  3877. 000511 047C                  kmrhtdown:
  3878. 000512 047C 7467                     mov     a,#67h          ;amiga make
  3879. 000513 047E B16F                     acall   actualtransmit
  3880. 000514 0480 9187                     acall   Smalldelay
  3881. 000515 0482 744E                     mov     a,#04eh         ;cursor right make
  3882. 000516 0484 B16F                     acall   actualtransmit
  3883. 000517 0486 22                       ret
  3884. 000518 0487                  Smalldelay:
  3885. 000519 0487 758C00                   mov     th0,#0
  3886. 000520 048A 758A00                   mov     tl0,#0
  3887. 000521 048D C28D                     clr     tf0
  3888. 000522 048F D28C                     setb    tr0
  3889. 000523 0491 308DFD           small1: jnb     tf0,small1
  3890. 000524 0494 C28D                     clr     tf0
  3891. 000525 0496 C28C                     clr     tr0
  3892. 000526 0498 22                       ret
  3893. 000527 0499                  notspecial:
  3894. 000528 0499 E551                     mov     a,Oldchar
  3895. 000529 049B B16F                     acall   actualtransmit  ;transmit the keycode
  3896. 000530 049D E551                     mov     a,Oldchar       ;get back same keycode, in A.
  3897. 000531 049F A2E7                     mov     c,acc.7         ;put make/break bit in Make
  3898. 000532 04A1 9249                     mov     Make,c
  3899. 000533 04A3 C2E7                     clr     acc.7           ;start testing for reset keys
  3900. 000534 04A5 B46306                   cjne    a,#63h,nrset1   ;held down
  3901. 000535 04A8 A249                     mov     c,Make
  3902. 000536 04AA 9245                     mov     CONTROL,c
  3903. 000537 04AC 8010                     sjmp    trset
  3904. 000538 04AE B46606           nrset1: cjne    a,#66h,nrset2
  3905. 000539 04B1 A249                     mov     c,Make
  3906. 000540 04B3 9246                     mov     LAMIGA,c
  3907. 000541 04B5 8007                     sjmp    trset
  3908. 000542 04B7 B46704           nrset2: cjne    a,#67h,trset
  3909. 000543 04BA A249                     mov     c,Make
  3910. 000544 04BC 9247                     mov     RAMIGA,c
  3911. 000545 04BE 304505           trset:  jnb     CONTROL,maybefree       ;if bit set, this key is up
  3912. 000546 04C1 204402                   jb      CtrlDown,maybefree      ;if bit set, this key is down
  3913. 000547 04C4 8008                     sjmp    free
  3914. 000548 04C6                  maybefree:
  3915. 000549 04C6 204605                   jb      LAMIGA,free     ;ditto
  3916. 000550 04C9 204702                   jb      RAMIGA,free     ;ditto
  3917. 000551 04CC 8004                     sjmp    resetwarn       ;OOPS! They are all down!
  3918. 000552 04CE 22               free:   ret
  3919. 000553 04CF                  dummy:
  3920. 000554 04CF 32                       reti
  3921. 000555 04D0                  resetint:
  3922. 000556 04D0 91CF                     acall   dummy
  3923. 000557 04D2                  resetwarn:
  3924. 000558 04D2 C28D                     clr     tf0             
  3925. 000559 04D4 E578                     mov     a,78h
  3926. 000560 04D6 7902                     mov     r1,#2           ;set up timer 0 watchdog
  3927. 000561 04D8 758A00                   mov     tl0,#0
  3928. 000562 04DB 758C00                   mov     th0,#0
  3929. 000563 04DE F4                       cpl     a               ;invert, don't know why.
  3930. 000564 04DF 7808                     mov     r0,#8
  3931. 000565 04E1                  wr1:
  3932. 000566 04E1 23                       rl      a
  3933. 000567 04E2 A2E7                     mov     c,acc.7
  3934. 000568 04E4 9294                     mov     Adat,c
  3935. 000569 04E6 75F008                   mov     b,#8
  3936. 000570 04E9                  wr2:
  3937. 000571 04E9 D5F0FD                   djnz    b,wr2             ; transmit it.
  3938. 000572 04EC C293                     clr     Aclk
  3939. 000573 04EE 75F008                   mov     b,#8
  3940. 000574 04F1                  wr3:
  3941. 000575 04F1 D5F0FD                   djnz    b,wr3
  3942. 000576 04F4 D293                     setb    Aclk
  3943. 000577 04F6 75F00A                   mov     b,#10
  3944. 000578 04F9                  wr4:
  3945. 000579 04F9 D5F0FD                   djnz    b,wr4
  3946. 000580 04FC D8E3                     djnz    r0,wr1
  3947. 000581 04FE D294                     setb    Adat
  3948. 000582 0500 D28C                     setb    tr0             ;start watchdog
  3949. 000583 0502                  wr5:
  3950. 000584 0502 309409                   jnb     Adat,caught1
  3951. 000585 0505 308DFA                   jnb     tf0,wr5
  3952. 000586 0508 C28D                     clr     tf0
  3953. 000587 050A D9F6                     djnz    r1,wr5
  3954. 000588 050C 8041                     sjmp    Hardreset
  3955. 000589 050E                  caught1:
  3956. 000590 050E C28C                     clr     tr0
  3957. 000591 0510 C28D                     clr     tf0
  3958. 000592 0512 E578                     mov     a,78h
  3959. 000593 0514 7904                     mov     r1,#4
  3960. 000594 0516 758A00                   mov     tl0,#0
  3961. 000595 0519 758C00                   mov     th0,#0
  3962. 000596 051C F4                       cpl     a    
  3963. 000597 051D 7808                     mov     r0,#8
  3964. 000598 051F                  wr11:
  3965. 000599 051F 23                       rl      a
  3966. 000600 0520 A2E7                     mov     c,acc.7
  3967. 000601 0522 9294                     mov     Adat,c
  3968. 000602 0524 75F008                   mov     b,#8
  3969. 000603 0527                  wr22:
  3970. 000604 0527 D5F0FD                   djnz    b,wr22   
  3971. 000605 052A C293                     clr     Aclk
  3972. 000606 052C 75F008                   mov     b,#8
  3973. 000607 052F                  wr33:
  3974. 000608 052F D5F0FD                   djnz    b,wr33
  3975. 000609 0532 D293                     setb    Aclk
  3976. 000610 0534 75F00A                   mov     b,#10
  3977. 000611 0537                  wr44:
  3978. 000612 0537 D5F0FD                   djnz    b,wr44
  3979. 000613 053A D8E3                     djnz    r0,wr11
  3980. 000614 053C D294                     setb    Adat
  3981. 000615 053E D28C                     setb    tr0             ;start watchdog
  3982. 000616 0540                  wr55:
  3983. 000617 0540 309409                   jnb     Adat,caught2
  3984. 000618 0543 308DFA                   jnb     tf0,wr55
  3985. 000619 0546 C28D                     clr     tf0
  3986. 000620 0548 D9F6                     djnz    r1,wr55
  3987. 000621 054A 8003                     sjmp    Hardreset
  3988. 000622 054C                  caught2:
  3989. 000623 054C 3094FD           hold:   jnb     Adat,hold
  3990. 000624 054F                  Hardreset:
  3991. 000625 054F C28C                     clr     tr0
  3992. 000626 0551 C28D                     clr     tf0
  3993. 000627 0553 C295                     clr     Areset
  3994. 000628 0555 C293                     clr     Aclk            ;clear both lines for A500/A1000
  3995. 000629 0557 790F                     mov     r1,#15          ;clock should go low for over 500ms
  3996. 000630 0559 758C00                   mov     th0,#0          ;timer 1 will overflow repeatedly
  3997. 000631 055C 758A00                   mov     tl0,#0
  3998. 000632 055F D28C                     setb    tr0
  3999. 000633 0561                  hsloop:
  4000. 000634 0561 308DFD                   jnb     tf0,hsloop      ;wait for overflow flag
  4001. 000635 0564 C28D                     clr     tf0             ;clear it again
  4002. 000636 0566 D9F9                     djnz    r1,hsloop
  4003. 000637 0568 C28D                     clr     tf0
  4004. 000638 056A C28C                     clr     tr0             ;stop the timer
  4005. 000639 056C 020200                   ljmp    start
  4006. 000640 056F                   
  4007. 000641 056F                  ;**************************************************
  4008. 000642 056F                  ;* 
  4009. 000643 056F                  ;* ActualTransmit sends the character out to the Amiga and waits
  4010. 000644 056F                  ;* for an acknowledge handshake. If it does not receive one in
  4011. 000645 056F                  ;* 143 ms, then it clocks out 1's on the data line until it 
  4012. 000646 056F                  ;* receives the acknowledge. If the Amiga is not connected up, 
  4013. 000647 056F                  ;* then it will hang here. The handshake is that the AMIGA 
  4014. 000648 056F                  ;* drives the clock line low.
  4015. 000649 056F                  ;*
  4016. 000650 056F                  ;*      The loops with register B are for timing delays. 
  4017. 000651 056F                  ;* There should be about 20usec between when the Data line is 
  4018. 000652 056F                  ;* set, the Clock line is driven low, and the Clock line
  4019. 000653 056F                  ;* is driven high.
  4020. 000654 056F                  ;*
  4021. 000655 056F                  ;**************************************************
  4022. 000656 056F                  
  4023. 000657 056F                  actualtransmit:
  4024. 000658 056F F552                     mov     Amigachar,a     ;set the character to transmit
  4025. 000659 0571                  
  4026. 000660 0571 7805                     mov     r0,#05          ;do a small delay
  4027. 000661 0573                  dly:
  4028. 000662 0573 75F000                   mov     b,#0
  4029. 000663 0576 D5F0FD           delay:  djnz    b,delay
  4030. 000664 0579 D8F8                     djnz    r0,dly
  4031. 000665 057B                  
  4032. 000666 057B                  actual2:
  4033. 000667 057B E552                     mov     a,Amigachar     ;restore it
  4034. 000668 057D C250                     clr     Charbad         ;character is not bad yet
  4035. 000669 057F 7902                     mov     r1,#2           ;set up timer 0 watchdog
  4036. 000670 0581 758B00                   mov     tl1,#0
  4037. 000671 0584 758D00                   mov     th1,#0
  4038. 000672 0587 F4                       cpl     a               ;invert, don't know why.
  4039. 000673 0588 7808                     mov     r0,#8
  4040. 000674 058A 23               f:      rl      a
  4041. 000675 058B A2E7                     mov     c,acc.7
  4042. 000676 058D 9294                     mov     Adat,c
  4043. 000677 058F 75F008                   mov     b,#8
  4044. 000678 0592 D5F0FD           g:      djnz    b,g             ; transmit it.
  4045. 000679 0595 C293                     clr     Aclk
  4046. 000680 0597 75F008                   mov     b,#8
  4047. 000681 059A D5F0FD           h:      djnz    b,h
  4048. 000682 059D D293                     setb    Aclk
  4049. 000683 059F 75F00A                   mov     b,#10
  4050. 000684 05A2 D5F0FD           i:      djnz    b,i
  4051. 000685 05A5 D8E3                     djnz    r0,f
  4052. 000686 05A7 D294                     setb    Adat
  4053. 000687 05A9 D28E                     setb    tr1             ;start watchdog
  4054. 000688 05AB                  waitshake:
  4055. 000689 05AB 2094FD                   jb      Adat,waitshake
  4056. 000690 05AE C28E                     clr     tr1             ;stop watchdog
  4057. 000691 05B0 3094FD           gotit:  jnb     Adat,gotit
  4058. 000692 05B3 22                       ret
  4059. 000693 05B4                  
  4060. 000694 05B4                  timer1int:
  4061. 000695 05B4 D91E                     djnz    r1,t3           ;we wait for 143 ms.
  4062. 000696 05B6 7902                     mov     r1,#2           
  4063. 000697 05B8 D250                     setb    Charbad         ;flag to resend the character
  4064. 000698 05BA C294                     clr     Adat            ;1 on the data line
  4065. 000699 05BC 75F008                   mov     b,#8
  4066. 000700 05BF D5F0FD           tt1:    djnz    b,tt1           ;wait for it
  4067. 000701 05C2 C293                     clr     Aclk            ;clock asserted
  4068. 000702 05C4 75F008                   mov     b,#8            ;sync up the controller to the
  4069. 000703 05C7 D5F0FD           tt2:    djnz    b,tt2           ;amiga
  4070. 000704 05CA D293                     setb    Aclk
  4071. 000705 05CC 75F00A                   mov     b,#10
  4072. 000706 05CF D5F0FD           tt3:    djnz    b,tt3
  4073. 000707 05D2 D294                     setb    Adat
  4074. 000708 05D4 32               t3:     reti                    ;return and send again.
  4075. 000709 05D5                  
  4076. 000710 05D5                  ATtb1: 
  4077. 000711 05D5 00                       .db     0               
  4078. 000712 05D6 58                       .db     58h             ;F9
  4079. 000713 05D7 00                       .db     0               
  4080. 000714 05D8 54                       .db     54h             ;F5
  4081. 000715 05D9 52                       .db     52h             ;F3
  4082. 000716 05DA 50                       .db     50h             ;F1
  4083. 000717 05DB 51                       .db     51h             ;F2
  4084. 000718 05DC 5B                       .db     5bh             ;F12=right parenthesis
  4085. 000719 05DD 00                       .db     0
  4086. 000720 05DE 59                       .db     59h             ;F10
  4087. 000721 05DF 57                       .db     57h             ;F8
  4088. 000722 05E0 55                       .db     55h             ;F6
  4089. 000723 05E1 53                       .db     53h             ;F4
  4090. 000724 05E2 42                       .db     42h             ;TAB
  4091. 000725 05E3 00                       .db     00h             ;~
  4092. 000726 05E4 00                       .db     0
  4093. 000727 05E5                  
  4094. 000728 05E5 00                       .db     0
  4095. 000729 05E6 64                       .db     64h             ;Left ALT
  4096. 000730 05E7 60                       .db     60h             ;Left SHIFT
  4097. 000731 05E8 00                       .db     0
  4098. 000732 05E9 66                       .db     66h             ;Left Ctrl=Left AMIGA
  4099. 000733 05EA 10                       .db     10h             ;Q
  4100. 000734 05EB 01                       .db     01h             ;1
  4101. 000735 05EC 00                       .db     0
  4102. 000736 05ED 00                       .db     0
  4103. 000737 05EE 00                       .db     0
  4104. 000738 05EF 31                       .db     31h             ;Z
  4105. 000739 05F0 21                       .db     21h             ;S
  4106. 000740 05F1 20                       .db     20h             ;A
  4107. 000741 05F2 11                       .db     11h             ;W
  4108. 000742 05F3 02                       .db     02h             ;2
  4109. 000743 05F4 00                       .db     0
  4110. 000744 05F5                  
  4111. 000745 05F5 00                       .db     0
  4112. 000746 05F6 33                       .db     33h             ;C
  4113. 000747 05F7 32                       .db     32h             ;X
  4114. 000748 05F8 22                       .db     22h             ;D
  4115. 000749 05F9 12                       .db     12h             ;E
  4116. 000750 05FA 04                       .db     04h             ;4
  4117. 000751 05FB 03                       .db     03h             ;3
  4118. 000752 05FC 00                       .db     0
  4119. 000753 05FD 00                       .db     0
  4120. 000754 05FE 40                       .db     40h             ;SPACE
  4121. 000755 05FF 34                       .db     34h             ;V
  4122. 000756 0600 23                       .db     23h             ;F
  4123. 000757 0601 14                       .db     14h             ;T
  4124. 000758 0602 13                       .db     13h             ;R
  4125. 000759 0603 05                       .db     05h             ;5
  4126. 000760 0604 00                       .db     0
  4127. 000761 0605                  
  4128. 000762 0605 00                       .db     0
  4129. 000763 0606 36                       .db     36h             ;N
  4130. 000764 0607 35                       .db     35h             ;B
  4131. 000765 0608 25                       .db     25h             ;H
  4132. 000766 0609 24                       .db     24h             ;G
  4133. 000767 060A 15                       .db     15h             ;Y
  4134. 000768 060B 06                       .db     06h             ;6
  4135. 000769 060C 00                       .db     0
  4136. 000770 060D 00                       .db     0
  4137. 000771 060E 00                       .db     0
  4138. 000772 060F 37                       .db     37h             ;M
  4139. 000773 0610 26                       .db     26h             ;J
  4140. 000774 0611 16                       .db     16h             ;U
  4141. 000775 0612 07                       .db     07h             ;7
  4142. 000776 0613 08                       .db     08h             ;8
  4143. 000777 0614 00                       .db     0
  4144. 000778 0615                  
  4145. 000779 0615 00                       .db     0
  4146. 000780 0616 38                       .db     38h             ;<
  4147. 000781 0617 27                       .db     27h             ;K
  4148. 000782 0618 17                       .db     17h             ;I
  4149. 000783 0619 18                       .db     18h             ;O
  4150. 000784 061A 0A                       .db     0Ah             ;0
  4151. 000785 061B 09                       .db     09h             ;9
  4152. 000786 061C 00                       .db     0
  4153. 000787 061D 00                       .db     0
  4154. 000788 061E 39                       .db     39h             ;>
  4155. 000789 061F 3A                       .db     3ah             ;/
  4156. 000790 0620 28                       .db     28h             ;L
  4157. 000791 0621 29                       .db     29h             ; ';'
  4158. 000792 0622 19                       .db     19h             ;P
  4159. 000793 0623 0B                       .db     0bh             ;-
  4160. 000794 0624 00                       .db     0
  4161. 000795 0625                  
  4162. 000796 0625 00                       .db     0
  4163. 000797 0626 00                       .db     0
  4164. 000798 0627 2A                       .db     2ah             ;'
  4165. 000799 0628 00                       .db     0
  4166. 000800 0629 1A                       .db     1ah             ;[
  4167. 000801 062A 0C                       .db     0ch             ;=
  4168. 000802 062B 00                       .db     0
  4169. 000803 062C 00                       .db     0
  4170. 000804 062D 62                       .db     62h             ;CAPS LOCK?
  4171. 000805 062E 61                       .db     61h             ;Right SHIFT
  4172. 000806 062F 44                       .db     44h             ;RETURN
  4173. 000807 0630 1B                       .db     1bh             ;]
  4174. 000808 0631 00                       .db     0
  4175. 000809 0632 0D                       .db     0dh             ;\
  4176. 000810 0633 00                       .db     0
  4177. 000811 0634 00                       .db     0
  4178. 000812 0635                  
  4179. 000813 0635                          .rs     6
  4180. 000814 063B 41                       .db     41h             ;Back SPACE
  4181. 000815 063C 00                       .db     0
  4182. 000816 063D 00                       .db     0
  4183. 000817 063E 1D                       .db     1dh             ;1 keypad
  4184. 000818 063F 00                       .db     0
  4185. 000819 0640 2D                       .db     2dh             ;4 keypad
  4186. 000820 0641 3D                       .db     3dh             ;7 keypad
  4187. 000821 0642 00                       .db     0
  4188. 000822 0643 00                       .db     0
  4189. 000823 0644 00                       .db     0
  4190. 000824 0645                  
  4191. 000825 0645 0F                       .db     0fh             ;0 keypad
  4192. 000826 0646 3C                       .db     3ch             ;dot keypad
  4193. 000827 0647 1E                       .db     1eh             ;2 keypad
  4194. 000828 0648 2E                       .db     2eh             ;5 keypad
  4195. 000829 0649 2F                       .db     2fh             ;6 keypad
  4196. 000830 064A 3E                       .db     3eh             ;8 keypad
  4197. 000831 064B 45                       .db     45h             ;ESCAPE!
  4198. 000832 064C 63                       .db     63h             ;Number Lock=CTRL
  4199. 000833 064D 5A                       .db     5ah             ;F11=( keypad
  4200. 000834 064E 5E                       .db     5eh             ;+ keypad
  4201. 000835 064F 1F                       .db     1fh             ;3 keypad
  4202. 000836 0650 4A                       .db     4ah             ;- keypad
  4203. 000837 0651 5D                       .db     5dh             ;* keypad
  4204. 000838 0652 3F                       .db     3fh             ;9 keypad
  4205. 000839 0653 67                       .db     67h             ;scroll Lock=Right AMIGA
  4206. 000840 0654 00                       .db     0
  4207. 000841 0655                  ATtb2:
  4208. 000842 0655                          .rs     3
  4209. 000843 0658 56                       .db     56h             ;F7
  4210. 000844 0659 66                       .db     66h             ;print screen=Left Amiga
  4211. 000845 065A                          .rs     11
  4212. 000846 0665                  
  4213. 000847 0665 00                       .db     0
  4214. 000848 0666 65                       .db     65h             ;Right ALT
  4215. 000849 0667 00                       .db     0
  4216. 000850 0668 00                       .db     0
  4217. 000851 0669 67                       .db     67h             ;Right CTL=RIGHT AMIGA
  4218. 000852 066A                          .rs     11
  4219. 000853 0675                  
  4220. 000854 0675                          .rs     10h
  4221. 000855 0685                          
  4222. 000856 0685                          .rs     10h
  4223. 000857 0695                  
  4224. 000858 0695                          .rs     10
  4225. 000859 069F 5C                       .db     5ch             ;/key, supposedly
  4226. 000860 06A0                          .rs     5
  4227. 000861 06A5                  
  4228. 000862 06A5                          .rs     10
  4229. 000863 06AF 43                       .db     43h             ;Numeric Enter
  4230. 000864 06B0                          .rs     5
  4231. 000865 06B5                  
  4232. 000866 06B5                          .rs     9
  4233. 000867 06BE 1C                       .db     1ch             ;End=Mouse down
  4234. 000868 06BF 00                       .db     0
  4235. 000869 06C0 4F                       .db     4fh             ;Cursor Left
  4236. 000870 06C1 0E                       .db     0eh             ;Home=Mouse up
  4237. 000871 06C2 00                       .db     0
  4238. 000872 06C3 00                       .db     0
  4239. 000873 06C4 63                       .db     63h             ;MACRO key=control
  4240. 000874 06C5                  
  4241. 000875 06C5 2C                       .db     2ch             ;Insert=Mouse Left
  4242. 000876 06C6 46                       .db     46h             ;Delete
  4243. 000877 06C7 4D                       .db     4dh             ;Cursor Down
  4244. 000878 06C8 00                       .db     0
  4245. 000879 06C9 4E                       .db     4eh             ;Cursor Right
  4246. 000880 06CA 4C                       .db     4ch             ;Cursor Up
  4247. 000881 06CB                          .rs     4
  4248. 000882 06CF 5F                       .db     5fh             ;Page Down=Help
  4249. 000883 06D0 00                       .db     0
  4250. 000884 06D1 66                       .db     66h             ;print screen=LEFT AMIGA
  4251. 000885 06D2 47                       .db     47h             ;Page up=mouse right
  4252. 000886 06D3 40                       .db     40h             ;Break=Space?
  4253. 000887 06D4 00                       .db     0
  4254. 000888 06D5                  XTtb1:
  4255. 000889 06D5 00                       .db     0
  4256. 000890 06D6 45                       .db     45h             ;esc
  4257. 000891 06D7 01                       .db     01h             ;1
  4258. 000892 06D8 02                       .db     02h             ;2
  4259. 000893 06D9 03                       .db     03h             ;3
  4260. 000894 06DA 04                       .db     04h             ;4
  4261. 000895 06DB 05                       .db     05h             ;5
  4262. 000896 06DC 06                       .db     06h             ;6
  4263. 000897 06DD 07                       .db     07h             ;7
  4264. 000898 06DE 08                       .db     08h             ;8
  4265. 000899 06DF 09                       .db     09h             ;9
  4266. 000900 06E0 0A                       .db     0ah             ;0
  4267. 000901 06E1 0B                       .db     0bh             ;-
  4268. 000902 06E2 0C                       .db     0ch             ;=
  4269. 000903 06E3 41                       .db     41h             ;Backspace
  4270. 000904 06E4 42                       .db     42h             ;Tab
  4271. 000905 06E5                  
  4272. 000906 06E5 10                       .db     10h             ;Q
  4273. 000907 06E6 11                       .db     11h             ;W
  4274. 000908 06E7 12                       .db     12h             ;E
  4275. 000909 06E8 13                       .db     13h             ;R
  4276. 000910 06E9 14                       .db     14h             ;T
  4277. 000911 06EA 15                       .db     15h             ;Y
  4278. 000912 06EB 16                       .db     16h             ;U
  4279. 000913 06EC 17                       .db     17h             ;I
  4280. 000914 06ED 18                       .db     18h             ;O
  4281. 000915 06EE 19                       .db     19h             ;P
  4282. 000916 06EF 1A                       .db     1Ah             ;[
  4283. 000917 06F0 1B                       .db     1Bh             ;]
  4284. 000918 06F1 44                       .db     44h             ;ENTER
  4285. 000919 06F2 66                       .db     66h             ;L.CTL=LEFT AMIGA
  4286. 000920 06F3 20                       .db     20h             ;A
  4287. 000921 06F4 21                       .db     21h             ;S
  4288. 000922 06F5                  
  4289. 000923 06F5 22                       .db     22h             ;D
  4290. 000924 06F6 23                       .db     23h             ;F
  4291. 000925 06F7 24                       .db     24h             ;G
  4292. 000926 06F8 25                       .db     25h             ;H
  4293. 000927 06F9 26                       .db     26h             ;J
  4294. 000928 06FA 27                       .db     27h             ;K
  4295. 000929 06FB 28                       .db     28h             ;L
  4296. 000930 06FC 29                       .db     29h             ;';'
  4297. 000931 06FD 2A                       .db     2Ah             ;'
  4298. 000932 06FE 00                       .db     00h             ;~
  4299. 000933 06FF 60                       .db     60h             ;Left Shift
  4300. 000934 0700 0D                       .db     0dh             ;\
  4301. 000935 0701 31                       .db     31h             ;Z
  4302. 000936 0702 32                       .db     32h             ;X
  4303. 000937 0703 33                       .db     33h             ;C
  4304. 000938 0704 34                       .db     34h             ;V
  4305. 000939 0705                  
  4306. 000940 0705 35                       .db     35h             ;B
  4307. 000941 0706 36                       .db     36h             ;N
  4308. 000942 0707 37                       .db     37h             ;M
  4309. 000943 0708 38                       .db     38h             ;<
  4310. 000944 0709 39                       .db     39h             ;>
  4311. 000945 070A 3A                       .db     3Ah             ;/
  4312. 000946 070B 61                       .db     61h             ;Right Shift
  4313. 000947 070C 5D                       .db     5dh             ;Numeric *
  4314. 000948 070D 64                       .db     64h             ;Left Alt
  4315. 000949 070E 40                       .db     40h             ;space
  4316. 000950 070F 62                       .db     62h             ;CapsLock
  4317. 000951 0710 50                       .db     50h             ;F1
  4318. 000952 0711 51                       .db     51h             ;F2
  4319. 000953 0712 52                       .db     52h             ;F3
  4320. 000954 0713 53                       .db     53h             ;F4
  4321. 000955 0714 54                       .db     54h             ;F5
  4322. 000956 0715                  
  4323. 000957 0715 55                       .db     55h             ;F6
  4324. 000958 0716 56                       .db     56h             ;F7
  4325. 000959 0717 57                       .db     57h             ;F8
  4326. 000960 0718 58                       .db     58h             ;F9
  4327. 000961 0719 59                       .db     59h             ;F10
  4328. 000962 071A 63                       .db     63h             ;Number Lock=Control
  4329. 000963 071B 67                       .db     67h             ;Scroll Lock=Right Amiga
  4330. 000964 071C 3D                       .db     3dh             ;Numeric 7
  4331. 000965 071D 3E                       .db     3eh             ;* 8
  4332. 000966 071E 3F                       .db     3fh             ;* 9
  4333. 000967 071F 4A                       .db     4ah             ;* -
  4334. 000968 0720 2D                       .db     2dh             ;* 4
  4335. 000969 0721 2E                       .db     2eh             ;* 5
  4336. 000970 0722 2F                       .db     2fh             ;* 6
  4337. 000971 0723 5E                       .db     5eh             ;* +
  4338. 000972 0724 1D                       .db     1dh             ;* 1
  4339. 000973 0725                  
  4340. 000974 0725 1E                       .db     1eh             ;* 2
  4341. 000975 0726 1F                       .db     1fh             ;* 3
  4342. 000976 0727 0F                       .db     0fh             ;* 0
  4343. 000977 0728 3C                       .db     3ch             ;* .
  4344. 000978 0729 63                       .db     63h             ;print screen=CONTROL
  4345. 000979 072A 00                       .db     0
  4346. 000980 072B 00                       .db     0
  4347. 000981 072C 5A                       .db     5ah             ;F11=Numeric (
  4348. 000982 072D 5B                       .db     5bh             ;F12=Numeric )
  4349. 000983 072E                          .rs     7
  4350. 000984 0735                  
  4351. 000985 0735                          .rs     10h
  4352. 000986 0745                  
  4353. 000987 0745                          .rs     10h
  4354. 000988 0755                  XTtb2:
  4355. 000989 0755                          .rs     10h
  4356. 000990 0765                  
  4357. 000991 0765                          .rs     12
  4358. 000992 0771 43                       .db     43h             ;Numeric Enter
  4359. 000993 0772 67                       .db     67h             ;Right Control=RIGHT AMIGA
  4360. 000994 0773                          .rs     2
  4361. 000995 0775                  
  4362. 000996 0775                          .rs     10h
  4363. 000997 0785                          
  4364. 000998 0785                          .rs     5
  4365. 000999 078A 5C                       .db     5ch             ;Numeric /key
  4366. 001000 078B 00                       .db     0
  4367. 001001 078C 66                       .db     66h             ;Print Screeen=Left Amiga
  4368. 001002 078D 65                       .db     65h             ;Right Alt
  4369. 001003 078E                          .rs     7
  4370. 001004 0795                  
  4371. 001005 0795                          .rs     6
  4372. 001006 079B 5F                       .db     5fh             ;BREAK=HELP!
  4373. 001007 079C 0E                       .db     0eh             ;Home=MOUSE UP
  4374. 001008 079D 4C                       .db     4ch             ;cursor up
  4375. 001009 079E 47                       .db     47h             ;pageup=mouse right
  4376. 001010 079F 00                       .db     0
  4377. 001011 07A0 4F                       .db     4fh             ;cursor left
  4378. 001012 07A1 00                       .db     0
  4379. 001013 07A2 4E                       .db     4eh             ;cursor right
  4380. 001014 07A3 00                       .db     0
  4381. 001015 07A4 1C                       .db     1ch             ;End=mouse down
  4382. 001016 07A5                  
  4383. 001017 07A5 4D                       .db     4dh             ;cursor down
  4384. 001018 07A6 5F                       .db     5fh             ;page down=HELP!
  4385. 001019 07A7 2C                       .db     2ch             ;insert=mouse left
  4386. 001020 07A8 46                       .db     46h             ;delete
  4387. 001021 07A9                          .rs     12
  4388. 001022 07B5                         
  4389. 001023 07B5                          .rs     15
  4390. 001024 07C4 63                       .db     63h             ;Macro=control
  4391. 001025 07C5                  
  4392. 001026 07C5                          .rs     10h
  4393. 001027 07D5                  
  4394. 001028 07D5                          .end    0
  4395.  
  4396. AC      =00D6  ET2     =00AD  P0.0    =0080  RXD     =00B0  TMOD    =0089  
  4397. ACC     =00E0  EX0     =00A8  P0.1    =0081  SBUF    =0099  TR0     =008C  
  4398. ACC.0   =00E0  EX1     =00AA  P0.2    =0082  SCON    =0098  TR1     =008E  
  4399. ACC.1   =00E1  EXEN2   =00CB  P0.3    =0083  SCON.0  =0098  TR2     =00CA  
  4400. ACC.2   =00E2  EXF2    =00CE  P0.4    =0084  SCON.1  =0099  TRANSMIT=03BF  
  4401. ACC.3   =00E3  F       =058A  P0.5    =0085  SCON.2  =009A  TRANSOK =03C3  
  4402. ACC.4   =00E4  F0      =00D5  P0.6    =0086  SCON.3  =009B  TRANSOK2=03CB  
  4403. ACC.5   =00E5  FREE    =04CE  P0.7    =0087  SCON.4  =009C  TRANSOK3=03FE  
  4404. ACC.6   =00E6  G       =0592  P1      =0090  SCON.5  =009D  TRANSOK4=03F3  
  4405. ACC.7   =00E7  GOTIT   =05B0  P1.0    =0090  SCON.6  =009E  TRSET   =04BE  
  4406. ACLK    =0093  H       =059A  P1.1    =0091  SCON.7  =009F  TT1     =05BF  
  4407. ACTUAL2 =057B  HARDRESE=054F  P1.2    =0092  SEND4   =0325  TT2     =05C7  
  4408. ACTUALTR=056F  HOLD    =054C  P1.3    =0093  SEND5   =032D  TT3     =05CF  
  4409. ADAT    =0094  HSLOOP  =0561  P1.4    =0094  SEND6   =0337  TXD     =00B1  
  4410. AMIGACHA=0052  I       =05A2  P1.5    =0095  SEND7   =033C  WAITSHAK=05AB  
  4411. ARESET  =0095  IE      =00A8  P1.6    =0096  SEND77  =033F  WR1     =04E1  
  4412. ATDATAB =02C3  IE.0    =00A8  P1.7    =0097  SEND78  =0344  WR11    =051F  
  4413. ATDOWN  =030F  IE.1    =00A9  P2      =00A0  SEND79  =0347  WR2     =04E9  
  4414. ATERROR =02B4  IE.2    =00AA  P2.0    =00A0  SEND7A  =034A  WR22    =0527  
  4415. ATGETKEY=0290  IE.3    =00AB  P2.1    =00A1  SEND8   =034F  WR3     =04F1  
  4416. ATNE0   =0308  IE.4    =00AC  P2.2    =00A2  SEND9   =0355  WR33    =052F  
  4417. ATNE012 =0302  IE.5    =00AD  P2.3    =00A3  SENDTOAT=031F  WR4     =04F9  
  4418. ATNE0F0 =02FC  IE.7    =00AF  P2.4    =00A4  SKIPLIGH=03F2  WR44    =0537  
  4419. ATNE1   =02E0  IE0     =0089  P2.5    =00A5  SM0     =009F  WR5     =0502  
  4420. ATNEF12 =02F6  IE1     =008B  P2.6    =00A6  SM1     =009E  WR55    =0540  
  4421. ATNSTART=029D  INIT    =0000  P2.7    =00A7  SM2     =009D  XT7BIT  =004A  
  4422. ATNSTOP =02BA  INT0    =00B2  P3      =00B0  SMALL1  =0491  XTCAP   =03D6  
  4423. ATPARITY=0048  INT1    =00B3  P3.0    =00B0  SMALLDEL=0487  XTGETKEY=035C  
  4424. ATPOWERU=0277  IP      =00B8  P3.1    =00B1  SP      =0081  XTLOOKUP=03A7  
  4425. ATSTYLE =02CB  IP.0    =00B8  P3.2    =00B2  START   =0200  XTN2A   =039A  
  4426. ATTB1   =05D5  IP.1    =00B9  P3.3    =00B3  SYNC    =022D  XTN36   =03A4  
  4427. ATTB2   =0655  IP.2    =00BA  P3.4    =00B4  SYNC2   =0237  XTNAA   =0395  
  4428. ATUP    =0317  IP.3    =00BB  P3.5    =00B5  SYNC3   =023A  XTNB6   =039F  
  4429. ATWAIT  =02C6  IP.4    =00BC  P3.6    =00B6  T2CON   =00C8  XTNE0   =03B7  
  4430. ATWAITC0=0294  IP.5    =00BD  P3.7    =00B7  T2CON.0 =00C8  XTNE1   =038B  
  4431. ATWAITC1=02A0  IT0     =0088  PARITYEV=02AC  T2CON.1 =00C9  XTPOWERU=0263  
  4432. B       =00F0  IT1     =008A  PARITYOD=02B0  T2CON.2 =00CA  XTRESET =0269  
  4433. B.0     =00F0  KCLK    =0090  PAUSE   =02A7  T2CON.3 =00CB  XTSTYLE =037A  
  4434. B.1     =00F1  KDAT    =0091  PCON    =0087  T2CON.4 =00CC  XTTB1   =06D5  
  4435. B.2     =00F2  KMDOWNDO=0444  PS      =00BC  T2CON.5 =00CD  XTTB2   =0755  
  4436. B.3     =00F3  KMDOWNUP=0439  PSW     =00D0  T2CON.6 =00CE  XTTEST  =0257  
  4437. B.4     =00F4  KMLEFTDO=0460  PSW.0   =00D0  T2CON.7 =00CF  XTW1    =0360  
  4438. B.5     =00F5  KMLEFTUP=0455  PSW.1   =00D1  T3      =05D4  XTW2    =0363  
  4439. B.6     =00F6  KMRHTDOW=047C  PSW.2   =00D2  TB8     =009B  XTW3    =0366  
  4440. B.7     =00F7  KMRHTUP =0471  PSW.3   =00D3  TCLK    =00CC  XTW4    =0369  
  4441. CAPBIT  =0042  KMUPDOWN=0428  PSW.4   =00D4  TCON    =0088  XTW5    =036C  
  4442. CAPDOWN =0043  KMUPUP  =041D  PSW.5   =00D5  TCON.0  =0088  XTW6    =0372  
  4443. CAUGHT1 =050E  KRESET  =0092  PSW.6   =00D6  TCON.1  =0089  
  4444. CAUGHT2 =054C  KSTYLE  =004B  PSW.7   =00D7  TCON.2  =008A  
  4445. CHARBAD =0050  KSWITCH =0097  PT0     =00B9  TCON.3  =008B  
  4446. CONTROL =0045  LAMIGA  =0046  PT1     =00BB  TCON.4  =008C  
  4447. CPRL2   =00C8  LL      =0272  PT2     =00BD  TCON.5  =008D  
  4448. CT2     =00C9  MAKE    =0049  PX0     =00B8  TCON.6  =008E  
  4449. CTRLDOWN=0044  MAYBEFRE=04C6  PX1     =00BA  TCON.7  =008F  
  4450. CY      =00D7  NOCONTRO=0411  RAMIGA  =0047  TF0     =008D  
  4451. DELAY   =0576  NOMDOWN =044F  RB8     =009A  TF1     =008F  
  4452. DLY     =0573  NOMLEFT =046B  RCAP2H  =00CB  TF2     =00CF  
  4453. DONTRANS=03BC  NOMUP   =0433  RCAP2L  =00CA  TH0     =008C  
  4454. DPH     =0083  NOTSPECI=0499  RCLK    =00CD  TH1     =008D  
  4455. DPL     =0082  NRSET1  =04AE  REN     =009C  TH2     =00CD  
  4456. DUMMY   =04CF  NRSET2  =04B7  RESETINT=04D0  TI      =0099  
  4457. EA      =00AF  OLDCHAR =0051  RESETWAR=04D2  TIMER1IN=05B4  
  4458. ES      =00AC  OV      =00D2  RI      =0098  TL0     =008A  
  4459. ET0     =00A9  P       =00D0  RS0     =00D3  TL1     =008B  
  4460. ET1     =00AB  P0      =0080  RS1     =00D4  TL2     =00CC  
  4461. @\Rogue\Monster\
  4462. else
  4463.   echo "shar: Will not over write key.list"
  4464. fi
  4465. if `test ! -s key.obj`
  4466. then
  4467. echo "x - key.obj"
  4468. cat > key.obj << '@\Rogue\Monster\'
  4469. :03000000020200F9
  4470. :030003000204D024
  4471. :03001B000205B427
  4472. :1002000075891175880575A800D2AFD2ABD2A8D276
  4473. :10021000B2D2B97581307590FFC28EC28FC28CC2C6
  4474. :100220008DC243C244C242D245D246D247758B00EA
  4475. :10023000758D007902D28E2094FD3094FDC28E74AB
  4476. :10024000FDB16F74FEB16F30971920912A758C0043
  4477. :10025000758A00C28DD28C208D093091FAC28CC271
  4478. :100260008D8014C24BC28DC290308DFDD290C28C55
  4479. :10027000C28D715C02037AD24B74FF711F74F671E8
  4480. :100280001F74ED711F7402711F74F4711F0202CB91
  4481. :10029000780BD2902090FD18B80A028029B8001A75
  4482. :1002A0003090FDC2907814D8FE20D004304805224A
  4483. :1002B0002048012274FE711F80D6B80106A29192D7
  4484. :1002C000488003A291133090FD80C95190B4E11091
  4485. :1002D000519051905190519051905190519080EB8C
  4486. :1002E0009005D5B4E0229006555190B4F00E51908F
  4487. :1002F000B412030202CBB4591E0202CBB4120302A1
  4488. :1003000002CBB4590A0202CBB4F004519080089396
  4489. :10031000C2E771BF0202CB93D2E771BF0202CBD218
  4490. :1003200090C29178082090FDA2E09291033090FD58
  4491. :1003300018B800F1A2D0B32090FD92913090FD202A
  4492. :1003400090FDD2913090FD2090FD3090FD7808D83E
  4493. :10035000FEC2907814D8FED290519022D2917808A3
  4494. :100360002090FD3090FD2090FD3090FD2090FDA26A
  4495. :1003700091133090FDD8F5C29122715CB4E10C71FB
  4496. :100380005C715C715C715C715C80EFB4E029715CE4
  4497. :10039000B4AA0280E5B42A0280E0B4B60280DBB4DD
  4498. :1003A000360280D6900755A2E7924AC2E793A24A46
  4499. :1003B00092E771BF02037A9006D580EBD0E022B5B8
  4500. :1003C000510122B46205F551D24322B4E230E55125
  4501. :1003D000304B03B4621DC243B2427462A242B39274
  4502. :1003E000E7B16F304B0C74ED711F7402A24292E2C0
  4503. :1003F000711F22C244C2437463D2E7B16F22F55128
  4504. :10040000304B0E30430B204408D2447463B16FE587
  4505. :1004100051A2E79249C2E7B40E1930490B74CCB12E
  4506. :100420006F918774E7B16F227467B16F9187744CD5
  4507. :10043000B16F22B41C1930490B74CDB16F74E791C0
  4508. :1004400087B16F227467B16F9187744DB16F22B419
  4509. :100450002C1930490B74CFB16F918774E7B16F22BB
  4510. :100460007467B16F9187744FB16F22B4472B3049D5
  4511. :100470000B74CEB16F918774E7B16F227467B16F5F
  4512. :100480009187744EB16F22758C00758A00C28DD22F
  4513. :100490008C308DFDC28DC28C22E551B16FE551A229
  4514. :1004A000E79249C2E7B46306A24992458010B46658
  4515. :1004B00006A24992468007B46704A2499247304594
  4516. :1004C000052044028008204605204702800422328D
  4517. :1004D00091CFC28DE5787902758A00758C00F47829
  4518. :1004E0000823A2E7929475F008D5F0FDC29375F049
  4519. :1004F00008D5F0FDD29375F00AD5F0FDD8E3D2947B
  4520. :10050000D28C309409308DFAC28DD9F68041C28CDC
  4521. :10051000C28DE5787904758A00758C00F47808231B
  4522. :10052000A2E7929475F008D5F0FDC29375F008D556
  4523. :10053000F0FDD29375F00AD5F0FDD8E3D294D28CB9
  4524. :10054000309409308DFAC28DD9F680033094FDC203
  4525. :100550008CC28DC295C293790F758C00758A00D2BA
  4526. :100560008C308DFDC28DD9F9C28DC28C020200F58E
  4527. :1005700052780575F000D5F0FDD8F8E552C25079F3
  4528. :1005800002758B00758D00F4780823A2E7929475AC
  4529. :10059000F008D5F0FDC29375F008D5F0FDD2937543
  4530. :1005A000F00AD5F0FDD8E3D294D28E2094FDC28E0D
  4531. :1005B0003094FD22D91E7902D250C29475F008D52C
  4532. :1005C000F0FDC29375F008D5F0FDD29375F00AD511
  4533. :1005D000F0FDD29432005800545250515B005957EC
  4534. :1005E00055534200000064600066100100000031B5
  4535. :1005F0002120110200003332221204030000403493
  4536. :100600002314130500003635252415060000003795
  4537. :10061000261607080000382717180A090000393A7B
  4538. :100620002829190B0000002A001A0C0000626144FE
  4539. :050630001B000D00009D
  4540. :10063B004100001D002D3D0000000F3C1E2E2F3EE3
  4541. :0A064B0045635A5E1F4A5D3F6700D9
  4542. :020658005666E4
  4543. :050665000065000067C4
  4544. :01069F005CFE
  4545. :0106AF004307
  4546. :0D06BE001C004F0E0000632C464D004E4CFA
  4547. :1006CF005F00664740000045010203040506070866
  4548. :1006DF00090A0B0C41421011121314151617181991
  4549. :1006EF001A1B4466202122232425262728292A0085
  4550. :1006FF00600D3132333435363738393A615D644005
  4551. :10070F00625051525354555657585963673D3E3FA7
  4552. :0F071F004A2D2E2F5E1D1E1F0F3C6300005A5BDC
  4553. :020771004367DC
  4554. :04078A005C00666544
  4555. :0E079B005F0E4C47004F004E001C4D5F2C4679
  4556. :0107C40063D1
  4557. :00000001FF
  4558. @\Rogue\Monster\
  4559. else
  4560.   echo "shar: Will not over write key.obj"
  4561. fi
  4562. if `test ! -s keydoc`
  4563. then
  4564. echo "x - keydoc"
  4565. cat > keydoc << '@\Rogue\Monster\'
  4566. IBM Keyboard Interfact Project, by ERic Rudolph, 1991.
  4567. No Copyright Whatsoever, but I would like credit where it's due.
  4568.  
  4569. This is documentation for the circuit I built which converts the information
  4570. put out by an XT or AT keyboard to that which can be recognized by an Amiga.
  4571.  
  4572. The circuit itself is a simple 8051 with an address latch and an Eprom.
  4573. It is inserted between the keyboard and the Amiga and sends data in both
  4574. directions to the Keyboard and the Amiga. 
  4575.  
  4576. Parts count could be reduced by using an 8751 which contains a 4k internal
  4577. Eprom. Seeing as how I don't know how to program them yet, I will stick to
  4578. the above design, but I am sure it's not hard to do. :-\
  4579.  
  4580. Full Parts List:
  4581. ================
  4582. 1) Intel 8031/8051, preferrably low power
  4583. 2) 74373 address latch
  4584. 3) 2732 Eprom
  4585. 4) 11.059 MHZ crystal
  4586. 5) 2 30pf caps
  4587. 6) 1 10k resistor, 1/4 watt
  4588. 7) 1 10uF electolytic cap
  4589. 8) 2 momentary pushbutton switches. Neither is really needed.
  4590. 10) connectors to the Amiga and the IBM
  4591.  
  4592. The total cost for these parts come to about $18.00 minus box and breadboard.
  4593. It certainly would be cheaper to use some used components. 
  4594.  
  4595. Wiring List:
  4596. ============
  4597. INTEL 8031/8051:
  4598. Port1, pins 1-8 can be connected in any manner whatsoever,
  4599. so long as you change the source code. You can relocate
  4600. the lines to the Keyboard and the Amiga wherever suitable.
  4601. If you understand the 8051 or read the 8051 manual, it will make more
  4602. sense.
  4603.     pin    to
  4604.     ===    ==
  4605.     1(p1.0)    Keyboard Clock. Female 5-pin, pin #1
  4606.     2    Keyboard Data, Female 5-pin, pin #2
  4607.     3     
  4608.     4    Amiga Clock
  4609.     5    Amiga Data
  4610.     6    Amiga Reset
  4611.     7
  4612.     8(p1.7)    XT/AT pin. Tie low to always convert an XT keyboard.
  4613.         For Auto detect, leave pin unconnected.
  4614.     9(reset) to - side of 10uF cap & 10k resistor & pushbutton switch
  4615.         only if you want a manual CIRCUIT reset switch.
  4616.     10(p3.0)
  4617.     11
  4618.     12(int0)  pushbutton switch2
  4619.     13-16
  4620.     17(p3.7)
  4621.     18    clock crystal & 30pf cap1
  4622.     19    clock crystal(other pin) & 30pf cap2
  4623.     20     Ground
  4624.     21(a8)    Eprom Addr8, 2732 pin#23
  4625.     22     Eprom Addr9, 2732 pin#22
  4626.     23     Eprom Addr10, 2732 pin#19
  4627.     24(a11)    Eprom Addr11, 2732 pin#21
  4628.     25-28
  4629.     29    Eprom Read, 2732 pin#20
  4630.     30    373 Gate, pin# 11
  4631.     31     Ground
  4632.     32(ad7)    373 D7, pin#13 & Eprom Data7, pin#17
  4633.     33    373 D6, pin#14 & Eprom Data6, pin#16
  4634.     34    373 D5, pin#8 & Eprom Data5, pin#15
  4635.     35    373 D4, pin#7 & Eprom Data4, pin#14
  4636.     36    373 D3, pin#4 & Eprom Data3, pin#13
  4637.     37    373 D2, pin#3 & Eprom Data2, pin#11
  4638.     38    373 D1, pin#17 & Eprom Data1, pin#10
  4639.     39(ad0)    373 D0, pin#18 & Eprom Data0, pin#9
  4640.     40    +5 Volts
  4641. 74373:
  4642.     1    Ground
  4643.     2    Eprom Addr2, pin#6
  4644.     3    done
  4645.     4    done
  4646.     5    Eprom Addr3, pin#5
  4647.     6    Eprom Addr4, pin#4    
  4648.     7    done
  4649.     8    done
  4650.     9    Eprom Addr5, pin#3    
  4651.     10    Ground
  4652.     11    done
  4653.     12    Eprom Addr7, pin#1
  4654.     13    done
  4655.     14    done
  4656.     15    Eprom Addr6, pin#2
  4657.     16    Eprom Addr1, pin#7
  4658.     17    done
  4659.     18    done
  4660.     19    Eprom Addr0, pin#8
  4661.     20    +5 volts
  4662. 2732 Prom:
  4663.     1-11    done
  4664.     12    Ground
  4665.     13-17    done
  4666.     18    Ground (chip enable. Doesn't save power very much)
  4667.     19-23    done
  4668.     24    +5 volts
  4669. crystal:
  4670.     connected between 8051 pins 18 and 19
  4671. 30pf cap1:
  4672.     connected between a lead of cystal and ground
  4673. 30pf cap2:
  4674.     connected between other lead of crystal and ground
  4675. 10uF Electrolytic Cap:
  4676.     minus end to 8051 pin9, + end to +5 volts.
  4677. 10k resistor:
  4678.     tied between ground and 8051 pin 9
  4679. VVV reset pushbutton switch. This is not absolutely necessary.
  4680. Pushbutton Switch1:
  4681.     tied between 8051 pin9 and +5 volts
  4682. VVV only use if you want a one-button hard reset.
  4683. Pushbutton Switch2: (amiga reset switch)
  4684.     tied between 8051 pin12 (int0) and ground
  4685. 5-pin Female IBM connector:
  4686.     Connect plus voltage pin to +5 volts
  4687.     Connect ground pin to ground
  4688.     connect clock and data as in above
  4689. (pin1=clock, pin2=data, pin3=NC, pin4=ground, pin5=+5v)
  4690. (as you face the back of the 5-pin female din, with the notch pointing up,
  4691. the pin order from left to right is 1,4,2,5,3)
  4692.  
  4693. Amiga Connector: each of the amiga connectors for the 500/1000/2000 will 
  4694.     be different.
  4695. On the Amiga 1000, the keyboard connects by means of a telephone
  4696.     HANDSET connector with a regular phone handset cord. The pins
  4697.     from left to right on the back of the Amiga 1000 are +5,clock,data,GND.
  4698.     If you make this circuit yourself, I suggest purchasing a little jack
  4699.     from the local telephone repairman. They are fairly standard jacks
  4700.     I believe. Connect red on the jack to +5,white to clock,greeen to
  4701.     data, black to ground. (On the circuit board, that is...)
  4702.     Clock and Data are wherever you locate them in the source code.
  4703.     As it stands, Amiga Clock is on pin 3 of the 8051, and Data is
  4704.     on pin 4.
  4705.  
  4706. For the Amiga 500, there is a 8 pin straight line on the mother board.
  4707. These pins from left to right are
  4708. 1. Data
  4709. 2. Clock
  4710. 3. Reset
  4711. 4.+5
  4712. 5 Not connected. (Key)
  4713. 6.Ground
  4714. 7. Status (not used)
  4715. 8. Disk Light (not used)
  4716.  
  4717. Make yourself a special adaptor that connects your amiga to the circuit.
  4718. You WILL need to connect the reset line if you want to soft reset from
  4719. the keyboard. The A500 only resets by having the Reset line driven low.
  4720.  
  4721. It says in my hardware manual here that The connector TO the keyboard
  4722. goes as follows:
  4723. 1: Clock
  4724. 2: Data
  4725. 3: Not connected.
  4726. 4: Ground
  4727. 5: +5 volts.
  4728. I imagine it's just like the AT connector, but it's a shame they don't use
  4729. the same data signals!
  4730.  
  4731.  
  4732.  
  4733. VERY IMPORTANT:!!!! The cord from the Amiga to the Converter must be
  4734. very very short and have very low resistance for this circuit to run on it's
  4735. own power. Do NOT use a long handset cord, it will load down the power lines.
  4736. IT's made of ribbon copper wound around some white stuff and it conducts poorly
  4737. on purpose. I used a hackup phone handset cord that is only about 3 inches
  4738. long. That works fine. You may need to get a phone repairman to make the
  4739. little cord special. He can do it, I know. It's a common thing. It shouldn't
  4740. be expensive. The one he made for me cost 1$.
  4741.  
  4742. That's it!
  4743. ====================================================================
  4744. A little background on the IBM AT keyboard:
  4745. The keyboard I used for this circuit was a BTC 5339sx. It costs about $40
  4746. Lucky Computers, 1-800-348-5825. I have also tested the circuit on a 
  4747. standard PC keyboard, and an HP Vectra AT keyboard.
  4748.  
  4749. The AT keyboard DIN connector has 5 pins. Pin 3 is called Reset, but it's
  4750. reserved, so we can't use it. Forget it exists on the AT keyboard. They just
  4751. charge you money for it. (joke) Open collectors drive the clock and data pins,
  4752. so when they are not driven low, they float at 5 volts.
  4753.  
  4754. The keyboard transmits data by bits, each synchonous somehow with the clock
  4755. line. They keyboard when clocking in or out data, always runs the clock.
  4756. The controller can drive the clock line, but not with reference to data.
  4757.     When the Keyboard sends data, it first sets the data, then drives
  4758. clock low, then high, and then changes the data to the next value.
  4759.     The AT uses 11 bits for a transmission, 1 start bit (0), 8 data
  4760. bits, 1 parity bit-set if the number of 1's in the data bits is even, and
  4761. a stop bit (1). When the keyboard sends it's last bit, the stop bit, the
  4762. controller must drive clock line low as a handshake and to tell the 
  4763. keyboard not to send until clock goes high again.
  4764.     Theoretically, the controller could interrupt the sending of the
  4765. bits, but I consider this unnecessary, and don't bother with it.
  4766. When the computer needs to send a command to the keyboard, it sets clock
  4767. line high and the data line low. When the keyboard sees this, it will
  4768. start clocking pulsed on the data line. 
  4769. Then, the controller must look for the clock line going low, set the data
  4770. bit, wait for the clock to go high, then wait for the clock to go low
  4771. again, and then change the bit. Thus, it changes the data in the middle
  4772. of the clock low pulse. When the keyboard has received it's 10th bit,
  4773. it will drive the data line low while at the same time clocking out
  4774. an extra clock low pulse. Then, it expects a handshake of the clock line
  4775. low from the controller.
  4776.                     0       1       2   |   7       P     stop    extra
  4777. Clock:------------\___/---\___/---\___/---\___/---\___/---\___/---\___/end
  4778.  
  4779. Data:-------\_______00000001111111122222|6677777777PPPPPPPP1111xxxxxxxx_____
  4780.  
  4781. Notice there is NO start bit when the controller sends data to the Keyboard.
  4782.  
  4783. Special Commands the Keyboard can Send to the Controller:
  4784. -----------------------------------------------------------
  4785. 00     Keyboard buffer overflowed
  4786. AA     Selftest passed
  4787. FA    The command sent was received correctly
  4788. FE    The command sent was received poorly. Please resend.
  4789.  
  4790. Special Commands the Controller can Send to the Keyboard:
  4791. -----------------------------------------------------------
  4792. ED    Set the LEDs according to next byte I send
  4793.     bit 0=Scroll lock 1=on
  4794.     bit 1=Num lock
  4795.     bit 2=Caps lock
  4796.     bits 3-7 must be 0
  4797. F4    clear the key buffer and start scanning
  4798. F6    restore default values
  4799. FE    retransmit last character, please
  4800. FF    Reset, you stupid keyboard!
  4801.  
  4802. Whew! That about raps it up for the AT keybard! Enough said, right?
  4803.  
  4804.  
  4805. XT keyboards transmit much the same way except they only use 10 bits.
  4806. Two start bits (both high) and 8 data bits, transmitted in order 0-1-2...-7
  4807. The last bit is a make/break bit which is 1 to signify a break.
  4808.  
  4809. The XT can have no commands sent to it. The way to reset it is to drive
  4810. the Clock line low for some longish period of time. The keyboard will not
  4811. send data (it will hold off) if the data line is being held low by an
  4812. external source (the controller)
  4813.  
  4814. AMIGA SIDE=========================================
  4815.  
  4816. Now I bet you are all wondering which keys are mapped to which keys.
  4817. I am using the 101 AT keyboard.
  4818.  
  4819. AT            Amiga
  4820. ==            =====
  4821.  
  4822. Left Ctrl        Left Amiga
  4823. Right Ctrl        Right Amiga
  4824. F11            Numeric Keypad (
  4825. F12            Numeric Keypad ) (doesn't work on A1000's)
  4826. Capslock        Control (IF used in conjunction with another key)
  4827. Delete            Delete
  4828. Page Down        Help
  4829. PrintScreen        Left Amiga
  4830. ScrollLock        Right Amiga
  4831. NumLock            Control
  4832. (the above three keys mapped for easy one-hand reset)
  4833. Insert            Amiga+Left Cursor
  4834. Home            Amiga+Up Cursor
  4835. End            Amiga+Down Cursor
  4836. PageUp            Amiga+Right Cursor
  4837. (the above keys mapped for easy mouse pointer control in workbench.)
  4838.  
  4839. The BTC keyboard I used also included a Macro key (conveniently) that
  4840. is mapped as a control key.
  4841.  
  4842.  
  4843. All other keys are mapped exactly the same.
  4844.  
  4845. Since the Control Keys on the AT are mapped to the Amiga keys,
  4846. I made a little routine that defines the Capslock Key to work as
  4847. Control if you hold it down first, then type the other key.
  4848. Just use it as you would an ordinary Control key.
  4849. This only works for the AT, not the XT since I can't control the lights
  4850. on the XT.
  4851.  
  4852. The explanation for how the Amiga Keyboard works is provided in the
  4853. Hardware Reference Manual. I will not repeat this info here, for fear of
  4854. copyright infringements and because the manual is cheap and a valuable
  4855. must for anyone who indulges in this kind of thing.
  4856.  
  4857.  
  4858. <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
  4859.  
  4860. SOFTWARE:
  4861.  
  4862. I have included the source and the machine code for the software that
  4863. runs this circuit. The timing loops are pretty stringent so if you want to
  4864. change things, better have a logic analyzer on hand!
  4865.  
  4866. I am also going to include a simple 8051 code assembler for those who don't
  4867. like to hand-code. If you keep your programs neatly written, it should 
  4868. assemble fine.
  4869.  
  4870. Documentation is within the program listing. It's not too hard to follow if
  4871. you know what you are doing.
  4872.  
  4873. Feel free to change anything you want, but before you redistribute it,
  4874. please tell me of the changes. Make it known within the program that you
  4875. have made changes.
  4876.  
  4877. The circuit, once built, should never have to be removed once plugged into
  4878. your computer. It should Auto Detect which style keyboard is hooked up
  4879. if the XT/AT pin (now coded as Port 1.7 (pin 8)) is not tied low.
  4880. IF for some reason the circuit does not start up fine, you may need
  4881. a reset CIRCUIT switch. This is different than the reset Computer
  4882. switch. This switch SHOULD restart the circuit and make it sync
  4883. up to the computer and the keyboard.
  4884.  
  4885. I will sell anybody any number of the parts needed, from circuit board
  4886. to telephone connectors to the whole thing.
  4887.  
  4888. Circuit board alone: 5$
  4889. Telephone connector: 1.50$
  4890. Whole thing minus case:25$ plus shipping.
  4891. Full documentation: 1$ plus postage.
  4892.  
  4893. Any questions? Be glad to answer em!
  4894. Email address: rudolpe@jacobs.cs.orst.edu
  4895. Phone # 503-745-7466 (Oregon)
  4896.  
  4897. @\Rogue\Monster\
  4898. else
  4899.   echo "shar: Will not over write keydoc"
  4900. fi
  4901. # to concatenate archives, remove anything after this line
  4902. exit 0
  4903.