home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug036.ark / PEN-CPM.ASM < prev    next >
Encoding:
Assembly Source File  |  1984-04-29  |  2.4 KB  |  72 lines
  1. ;
  2. ;
  3. ;* - - - - - - - - - - - - - - - - - - - - - *
  4. ;*                                           *
  5. ;*               - PEN-CPM -                 *
  6. ;*                                           *
  7. ;*   ROUTINE TO TRANSLATE ELECTRIC PENCIL    *
  8. ;*           FILES TO CP/M FORMAT            *
  9. ;*            (C) COPYRIGHT 1979             *
  10. ;* ROD HALLEN  BOX 73  TOMBSTONE, AZ  85638  *
  11. ;*               26 JULY 1979                *
  12. ;*    THIS PROGRAM MAY BE USED FREELY BY     *
  13. ;*   COMPUTER HOBBYISTS FOR NON-COMMERCIAL   *
  14. ;*   APPLICATIONS.  IT MAY NOT BE USED FOR   *
  15. ;*    COMMERCIAL PURPOSES OR SOLD WITHOUT    *
  16. ;*     WRITTEN PERMISSION OF  THE AUTHOR.    *
  17. ;*                                           *
  18. ;*    ASSEMBLE WITH DIGITAL RESEARCH  "MAC"  *
  19. ;*    ASSEMBLER AND SEQIO LIBRARY. COMMAND   *
  20. ;*       FORMAT IS "PEN-CPM X.PCL Y.Z"       *
  21. ;*         OUTPUT FILE WILL BE  "Y.Z".       *
  22. ;*                                           *
  23. ;* - - - - - - - - - - - - - - - - - - - - - *
  24. ;
  25. ;
  26. ;
  27.         ORG     100H
  28. ;
  29.         MACLIB  SEQIO   ;SEQUENTIAL I/O LIBRARY
  30. ;
  31.         LXI     H,0     ;SAVE OLD SP
  32.         DAD     SP      ;AND SET UP NEW SP
  33.         SHLD    OLDSP
  34.         LXI     SP,NEWSP
  35. ;
  36. FILE    INFILE,INF,,1,,1024     ;SETUP PENCIL INPUT FILE
  37. ;
  38. FILE    OUTFILE,OUTF,,2,,1024   ;SETUP CPM OUTPUT FILE
  39. ;
  40.         MESS    MES1    ;PRINT ACTIVITY MESSAGE
  41. ;
  42. PENCP   GET     INF     ;GET CHAR FROM INPUT FILE
  43.         CPI     0       ;PENCIL END OF FILE ?
  44.         JZ      DONE    ;IF SO, TIME TO EXIT
  45.         CPI     0DH     ;IS IT END OF LINE ?
  46.         CALL    OUTPT   ;SEND IT TO OUTPUT FILE
  47.         JNZ     PENCP   ;IF NOT EOL, SKIP LINE FEED
  48.         MVI     A,0AH   ;LOAD LINE FEED
  49.         CALL    OUTPT   ;SEND IT
  50.         JMP     PENCP   ;NEXT CHARACTER
  51. ;
  52. DONE    MESS    MES2    ;PRINT COMPLETION MESSAGE
  53.         FINIS   OUTF    ;CLOSE OUTPUT FILE
  54.         LHLD    OLDSP   ;GET OLD STACK POINTER
  55.         SPHL            ;AND RESTORE IT
  56.         RET             ;RETURN TO CPM
  57. ;
  58. OUTPT   PUT     OUTF    ;SEND CHAR TO OUTPUT FILE
  59.         RET
  60. ;
  61. OLDSP   DS      2       ;STORAGE FOR OLD STACK POINTER
  62.         DS      40H     ;NEW STACK LOCATION
  63. NEWSP                   ;NEW STACK POINTER
  64. ;
  65. MES1    DB      CR,LF,'CONVERTING ELECTRIC PENCIL FILE TO '
  66.         DB      'CP/M FORMAT . . . . .',CR,CR,LF,'$'
  67. MES2    DB      CR,LF,'<--- CONVERSION COMPLETE --->',CR,LF,'$'
  68. ;
  69. BUFFERS
  70. ;
  71.         END
  72.