home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol155 / offbase.cmd < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.2 KB  |  80 lines
  1.  *                OFFBASE.CMD
  2.  *                Mike Olfe Lifelines July 82
  3.  *
  4.  *                Parameter passing to subroutine
  5. *
  6. *                Entered 05/19/83
  7. *
  8.  
  9.  
  10. SET ECHO OFF
  11. SET TALK OFF
  12. ERASE
  13.  
  14. * DISPLAY CURRENT FCB
  15.  
  16. STOR (5*16)+13 TO FCBL
  17. STOR 0 TO COUNT
  18. STOR ' ' TO s
  19. DO WHILE COUNT<12
  20. STOR s+CHR(PEEK(FCBL+COUNT)) TO s
  21. STOR COUNT +1 TO COUNT
  22. ENDD
  23. @ 10,0 SAY "Current FCB= "+S
  24.  
  25. * BLANK THE FCB
  26. POKE FCBL,32,32,32,32,32,32,32,32,32,32,32,0,0,0,0,0
  27.  
  28. * GET parameters for called program
  29.  
  30. STOR '        **' TO PARAM
  31.  
  32. * Truncate, capitalise for CP/M
  33.  
  34. STOR TRIM(PARAM) TO PARAM
  35. STOR !(PARAM) TO PARAM
  36.  
  37. * Convert ASCII to DECIMAL
  38.  
  39. STOR '*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`' TO TABLE
  40. STOR 41 TO BASE
  41. STOR ' ' TO DSTRING
  42. STOR 0 TO POINTER
  43. DO WHILE POINTER<LEN(PARAM)
  44. STOR S(PARAM,POINTER+1,1) SRCHCHAR
  45. STOR @(SRCHCHAR, TABLE) TO POSITION
  46. STOR DSTRING+ STR(POSITION+BASE,2)+',' TO DSTRING
  47. STOR POINTER +1 TO POINTER
  48. ENDDO
  49.  
  50. * Remove last comma
  51.  
  52. STORE LEN(DSTRING) TO LENG
  53. STORE $(DSTRING,1,LENG-1) TO DSTRING
  54.  
  55.  
  56. * POKE THE FCB
  57.  
  58.  
  59. STOR 5*(16)+13 TO FCBL
  60. POKE FCBL,&DSTRING
  61.  
  62.  
  63. * SET UP CALL ADDRESS
  64.  
  65.  
  66. STOR 10*(16*16*16) TO CA
  67. STOR CA+(4*(16*16)) TO CA
  68. SET CALL TO CA
  69. STOR 'DUMMY' TO ADRESS
  70.  
  71.  
  72. * DO THE CALL
  73.  
  74. CALL  ADRESS 
  75.  
  76.  
  77. *
  78. *            END OFFBASE.CMD
  79. *
  80.