home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / CPM / UTILS / A / BITS.ARC / CPS.CMD next >
OS/2 REXX Batch file  |  1990-07-21  |  3KB  |  78 lines
  1. *
  2. *   start.cmd
  3. *
  4. *   Glenn Story - 1/1/83
  5. *
  6. *  This command procedure starts up DBASE
  7. *
  8. set talk off
  9. *
  10. *  First get the date from the CPS card
  11. *  we poke a small assembler routine to convert a DBASE string descriptor
  12. * to an MBASIC string descriptor
  13. * the code we are poking is as follows:
  14. *
  15. * CLOCK: MOV A,M;  get string length
  16. *  STA DESC;  store into descriptor
  17. *  INX H;  bump pointer
  18. *  SHLD DESC+1;  store address
  19. *  LXI H,DESC;  point to new descriptor
  20. *  JMP 0f300h;  jump to clock driver in bdos
  21. *
  22. * DESC EQU CLOCK+20H
  23. store 41984 to clock
  24. poke clock, 126,32,164,34, 33, 164, 35, 33, 32, 164, 195, 0, 243
  25. store "                   " to tod
  26. set call to clock
  27. call tod
  28. *
  29. *  now we have the time we can extract the date
  30. *
  31. store $(tod,2,8) to date
  32. *
  33. *  now tell the system
  34. *
  35. set date to &date
  36. *  all my files, lord, are on drive b
  37. set default to b
  38. *
  39. ? "Current date set to ",date
  40. ? "dBASE II is ready"
  41. set talk on
  42.  
  43.  
  44.  
  45.  
  46.  
  47. 8   ;ZERO-PAGE,Y MODE   <LDX, STX>
  48.        ;NONE OF ABOVE, DEFAULT TO ABSOLUTE OR IMPLICIT MODE
  49. ;---------------------------------------------------------
  50. ;
  51.        DB    1           ;MAKE ONE PATCH
  52.        DW    ORIGIN      ;DESTINATION OF DRIVER
  53.        DW    CEND-CLOCK  ;LENGTH OF DRIVER
  54.        DB    1           ;PAt get the date from the CPS card
  55. *  we poke a small assembler routine to convert a DBASE string descriptor
  56. * to an MBASIC string descriptor
  57. * the code we are poking is as follows:
  58. *
  59. *  MOV A,M;  get string length
  60. *  STA DESC;  store *   start.cmd
  61. *
  62. *   Glenn Story - 1/1/83
  63. *
  64. *  This command procedure starts up DBASE
  65. *
  66. set talk off
  67. *
  68. *  First get the date from the CPS card
  69. *  we poke a small assembler routine to convert a DBASE string descriptor
  70. * to an MBASIC string descriptor
  71. * the code we are poking is as follows:
  72. *
  73. * CLOCK: MOV A,M;  get string length
  74. *  STA DESC;  store into descriptor
  75. *  INX H;  bump pointer
  76. *  SHLD DESC+1;  store address
  77. *  LXI H,DESC;  point to new descriptor
  78. *  JMP 0f300h;  jump to clock dr÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷