home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / MEMORIA / QUADRAM.ZIP / SETCLK.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1983-07-21  |  4.1 KB  |  15 lines
  1. 1  '********** SETCLK.BAS ***********
  2. 2  '* Set the Date and time of the  *
  3. 3  '* Quadboard and System Clocks.  *
  4. 4  '*      QUADRAM CORPORATION      *
  5. 5  '*        4357 PARK DRIVE        *
  6. 6  '*    NORCROSS, GEORGIA  30093   *
  7. 7  '*********************************
  8. 10  DEFINT A-Z
  9. 20  DIM Q(12)
  10. 25  OUT &H313,&H90:OUT &H311,97:IF INP(&H311)<>97 THEN A=&H210 ELSE A=&H310
  11. 30  B=A+1:C=A+2:Z=A+3    'define ports A,B,C and Control word address
  12. 40  OM=&H80:IM=&H90     'Define two control words for writing and reading clstem disk or disk error<UNK! {000D}><UNK! {000A}>Replace and strike any key when ready<UNK! {000D}><UNK! {000A}>
  13. 26948  sk Boot failure<UNK! {000D}><UNK! {000A}>
  14. 25197  io  com0ibmdos  com0
  15.