home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 405.lha / AppleII_Emulators_src / src-2 / quick_fctn.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-06-28  |  991 b   |  52 lines
  1. #include <cpu_prog_model.h>
  2.  
  3. void  init_screen(),
  4.       clear_screen();
  5.  
  6. short display_page();
  7.  
  8. extern char *dub_screen [];
  9.  
  10. void home( code)
  11. PM *code;
  12. {
  13.    unsigned short int address;
  14.  
  15.    if (!dub_screen [0] || !dub_screen [1])
  16.       init_screen();
  17.    else
  18.       clear_screen();
  19.  
  20.    code->Me [0x25] = code->Me [0x22];
  21.    code->Me [0x24] = 0;
  22.  
  23.    for (address = 0x0400;address < 0x0800;address ++)
  24.       if (display_page( address) )
  25.          code->Me [address] = 0xA0;
  26. }
  27.  
  28. void bascalc( vertical, code)
  29. short   vertical;
  30. PM    * code;
  31. {
  32.    short temp_value;
  33.  
  34.    code->Me [0x29] = ( (vertical >> 1) & 0x3) | 0x4;
  35.  
  36.    if (vertical & 0x1)
  37.       code->Me [0x28] = temp_value = ((vertical & 0x18) + 0x80) & 0xFF;
  38.    else
  39.       code->Me [0x28] = temp_value = vertical & 0x18;
  40.  
  41.    code->Ca = (temp_value & 0x40) == 0x40;
  42.    code->Ac = (code->Me [0x28] |= ( (temp_value << 2) & 0xFF) );
  43. }
  44.  
  45. void wait( code)
  46. PM *code;
  47. {
  48.    /*                                 printf("<Wait.>\n");*/
  49.    code->Ac = 0;
  50. }
  51.  
  52.