home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / convergent / ctsamg.asm < prev    next >
Assembly Source File  |  2020-01-01  |  2KB  |  31 lines
  1. $INCLUDE (samgen.mdf)
  2. %Init
  3. $EJECT
  4. %DeviceOpen([Kbd],OpenByteStreamK)
  5. %DeviceOpen([Vid],OpenByteStreamVid)
  6. %DeviceOpen([Lpt],OpenByteStreamLpt)
  7. %DeviceOpen([Ptr],OpenByteStreamC)
  8. %DeviceOpen([Nul],OpenByteStreamN)
  9. %DeviceOpen([Comm],OpenByteStreamC)
  10. %DeviceOpen([Spl],OpenByteStreamSpl)
  11. %DeviceOpen([Disk],OpenByteStreamAD)
  12. $EJECT
  13. %tagProcs(tagDiskRead,FillBufferAD,FlushBufIllegal,CheckPointBsAD,ReleaseByteStreamAD,SetImageModeIllegal)
  14. %tagProcs(tagDiskWrite,FillBufIllegal,FlushBufferAD,CheckPointBsAD,ReleaseByteStreamAD,SetImageModeIllegal)
  15. %tagProcs(tagDiskModify,FillBufferAD,FlushBufferAD,CheckPointBsAD,ReleaseByteStreamAD,SetImageModeIllegal)
  16. %tagProcs(tagKbdRead,FillBufferK,FlushBufIllegal,ChkptNop,ReleaseEasy,SetImageModeIllegal)
  17. %tagProcs(tagVideoWrite,FillBufIllegal,FlushBufferVid,ChkptNop,ReleaseEasy,SetImageModeIllegal)
  18. %tagProcs(tagLptWrite,FillBufIllegal,FlushBufferLpt,CheckPointBsLpt,ReleaseByteStreamLpt,SetImageModeLpt)
  19. %tagProcs(tagPtrWrite,FillBufIllegal,FlushBufferC,CheckPointBsC,ReleaseByteStreamC,SetImageModeC)
  20. %tagProcs(tagNul,FillBufferN,FlushBufferN,ChkptNop,ReleaseEasy,SetImageModeIllegal)
  21. %tagProcs(tagCommRead,FillBufferC,FlushBufIllegal,CheckPointBsC,ReleaseByteStreamC,SetImageModeC)
  22. %tagProcs(tagCommWrite,FillBufIllegal,FlushBufferC,CheckPointBsC,ReleaseByteStreamC,SetImageModeC)
  23. %tagProcs(tagCommModify,FillBufferC,FlushBufferC,CheckPointBsC,ReleaseByteStreamC,SetImageModeC)
  24. %tagProcs(tagSplWrite,FillBufIllegal,FlushBufferAD,CheckPointBsAD,ReleaseByteStreamSpl,SetImageModeSpl)
  25. $EJECT
  26. %DevDepProc(QueryVidBs,QueryVideoBs)
  27. %DevDepProc(GetBsLfa,GetBsLfaAsync)
  28. %DevDepProc(SetBsLfa,SetBsLfaAsync)
  29. %DevDepProc(SetImageMode,SetImageModeBrn)
  30. %Final
  31.