开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 操作系统开发 > 查看源码
llega.asm
资源名称：DOS系统的源代码.rar　[点击查看]
上传用户：xiaoan1112
上传日期：2013-04-11
资源大小：19621k
文件大小：54k
源码类别：

操作系统开发

开发平台：

Visual C++

llega.asm：源码内容
  1. TITLE LLEGA - EGA screen mode support
  2. ;***
  3. ;LLEGA - EGA screen mode support
  4. ;
  5. ; Copyright <C> 1986, Microsoft Corporation
  6. ;
  7. ;Purpose:
  8. ; Support for EGA graphics screen modes (BIOS D,E,F,10).
  9. ; Note that this module module contains support
  10. ; code for all adapters capable of handling these
  11. ; screen modes and also attempts to compensate for
  12. ; the subtle differences in their treatment.
  13. ;
  14. ; This module sets hooks in the mode-independent
  15. ; modules to routines here for mode-dependent
  16. ; graphics support.  See the mode-independent
  17. ; modules for more precise descriptions of the
  18. ; purposes and interfaces of these routines.
  19. ;
  20. ; The following table summarizes the information for
  21. ; the modes and configurations covered:
  22. ;
  23. ;    C   | A      B
  24. ;    O   |  B T      I
  25. ;    L   |  I T  P      T
  26. ;    O      A M |  O R  A    C      S
  27. ;  S R      D O |  S I    C  G    H      / P
  28. ;  C B      A N | B    O  E    A   P  P L
  29. ;  R U C  R P I |  M U    L  X   Y  S    R   A  I A
  30. ;  E R O  O T T |  O T    O  R   R  I    B   G  X N
  31. ;  E S L  W E O |  D E    R  E   E  Z    O   E  E E
  32. ;  N T S  S R R |  E S    S  S   S  E    X   S  L S
  33. ; -- - -- -- - -- | -- --- ---- --- --- --- ---- --- - -
  34. ;  7 x 40 25 E C |  D 16  16 320 200  32 8x8  (2) 1 4
  35. ;  7 x 40 25 E E |  "   "   "   "   "    "  "    "  " "
  36. ;  7 x 40 25 S x |  "   "   "   "   "    "  "    "  " "
  37. ;
  38. ;  8 x 80 25 E C |  E 16  16 640 200  64 8x8  (2) 1 4
  39. ;  8 x 80 25 E E |  "   "   "   "   "    "  "    "  " "
  40. ;  8 x 80 25 S x |  "   "   "   "   "    "  "    "  " "
  41. ;
  42. ;  9 x 80 25 E E | 10  4  64 640 350  64 8x14  1  1 2  (64K video memory)
  43. ;  9 x 80 43 E E |  "   "   "   "   "    " 8x8   "  " "
  44. ;
  45. ;  9 x 80 25 E E | 10 16  64 640 350 128 8x14 (2) 1 4  (>64K video memory)
  46. ;  9 x 80 25 S x |  "   "   "   "   "    "  "    "  " "
  47. ;  9 x 80 43 E E |  "   "   "   "   "    " 8x8   "  " "
  48. ;  9 x 80 43 S x |  "   "   "   "   "    "  "    "  " "
  49. ;
  50. ; 10 x 80 25 E M |  F  4   9 640 350  64 8x14 (1) 1 2  (>64K video memory)
  51. ; 10 x 80 25 S x |  "   "   "   "   "    "  "    "  " "
  52. ; 10 x 80 43 E M |  "   "   "   "   "    " 8x8   "  " "
  53. ; 10 x 80 43 S x |  "   "   "   "   "    "  "    "  " "
  54. ;
  55. ;-----------------------------------------------------------------------
  56. ;NOTES:  (1) PAGES = <video memory> / 2 / PAGESIZE (max 8 pages)
  57. ;  (2) PAGES = <video memory> / PAGESIZE    (max 8 pages)
  58. ;-----------------------------------------------------------------------
  59. ;******************************************************************************
  61. INCLUDE switch.inc ;feature switches
  62. INCLUDE rmacros.inc
  64. USESEG _DATA
  65. USESEG _BSS
  66. USESEG GR_TEXT
  67. USESEG CN_TEXT
  68. USESEG XIB
  69. USESEG XI
  70. USESEG XIE
  72. INCLUDE seg.inc
  73. INCLUDE ibmunv.inc
  74. INCLUDE baslibma.inc
  75. INCLUDE llgrp.inc ; Constant definitions
  76. INCLUDE idmac.inc
  77. INCLUDE grmac.inc ;ModeData macros
  79. INITIALIZER B$xINITEGA ;Put B$xINITEGA in initializer list
  82. sBegin _BSS
  83. ;
  84. ; ***************************************************************************
  85. ; External function vectors
  86. ; ***************************************************************************
  87. ;
  88. externW b$PutVector
  89. externW b$PalPut
  90. externW b$SetAttr
  91. ;
  92. ; ***************************************************************************
  93. ; External variables
  94. ; ***************************************************************************
  95. ;
  96. externB b$BiosMode
  97. externB b$Adapter
  98. externB b$Monitor
  99. externW b$VideoMem
  100. externW b$CurPages
  101. externW b$VideoBase
  102. externB b$MaskC
  103. externB b$AttrC
  104. externW b$PenC 
  105. externW b$OffC
  106. externW b$SegC
  107. externB b$MaxAttr
  108. externB b$MaxColor
  109. externW B$LEOFST
  110. externW B$REOFST
  111. externB B$VLMASK
  112. externB B$VRMASK
  113. externB b$ForeColor
  114. externB b$PageSize
  115. externW b$CurrPSize
  116. externB b$ScrHeight
  117. externB b$MaxPage
  118. externB b$Tiling
  119. externB b$ForeMapped
  120. externW b$CURSOR
  121. externW b$CSRTYP
  122. externW b$SaveCa
  123. externB b$SaveCm
  124. externB b$PlaneMask
  125. externW b$ScreenTab
  127. ;
  128. ; ***************************************************************************
  129. ; Local variables
  130. ; ***************************************************************************
  131. ;
  132. staticB MapMask,,1 ;bit mask for Map Mask Register odd/even map
  133. staticB BasePlane,,1 ;base plane for odd/even modes
  134. sEnd _BSS
  136. sBegin CN_TEXT
  137. externNP B$USRCSR
  138. sEnd CN_TEXT
  140. assumes CS,GR_TEXT
  141. sBegin GR_TEXT
  143. externNP B$OutWord
  144. externNP B$BumpDS
  145. externNP B$BumpES
  146. externNP B$InitModeData
  147. externNP B$GetParm
  148. externNP b$ColorPalette
  149. externNP b$EnhPalette
  150. externNP B$EgaPalReset
  151. externNP B$EgaPalResetB
  152. externNP B$EgaPalPut
  153. externNP B$EgaPalTrans
  154. externNP B$EgaPalSet
  155. externNP B$EgaMapXYC
  156. externNP B$EgaMapXYC_D
  157. externNP B$EgaLeftC
  158. externNP B$EgaChkUpC
  159. externNP B$EgaUpC
  160. externNP B$EgaChkDownC
  161. externNP B$EgaDownC
  162. externNP B$EgaSetAttr
  163. externNP B$EgaReadC
  164. externNP B$EgaReadC_F
  165. externNP B$EgaReadC_64K
  166. externNP B$EgaSetC
  167. externNP B$EgaSetPixC
  168. externNP B$EgaSetPixFirstC
  169. externNP B$ResetEGA
  170. externNP B$EgaLineX
  171. externNP B$EgaLineY
  172. externNP B$EgaLineV
  173. externNP B$EgaPutAction
  174. externNP B$EgaPutAction_F
  175. externNP B$EgaPutAction_64K
  176. externNP B$EgaNReadL
  177. externNP B$EgaNReadL_F
  178. externNP B$EgaNWriteL
  179. externNP B$EgaNWriteL_F
  180. externNP B$EgaNSetC
  181. externNP B$EgaPaintBound
  182. externNP B$EgaPaintBound_D
  183. externNP B$EgaSetTile
  184. externNP B$EgaScanL
  185. externNP B$EgaScanR
  186. externNP B$EgaCHKBTL
  187. externNP B$EgaCHKBTR
  188. externNP B$EgaPAINPX
  189. externNP B$EgaPIXCNT
  190. externNP B$EgaScanInit
  191. externNP B$EgaSETCMP
  192. externNP B$EgaTILLFT
  193. externNP B$EgaTILRGT
  195. ;===========================================================================
  196. mModeData ModeDData
  197. ;
  198. ; SCREEN 7, BIOS mode D
  199. ;
  200. ; Mode-dependent data follows to initialize the the "b$ModeData" table
  201. ; in LLCGRP.
  202. ;
  203. ;===========================================================================
  204. mScreenMode 7
  205. mBiosMode 0DH
  206. mBurst 0
  207. mScrWidth 40
  208. mScrHeight 25
  209. mHorzRes 320
  210. mVertRes 200
  211. mVideoBase 0A000H
  212. mMaxAttr 15
  213. mMaxColor 15
  214. mPageSize 32     ;page size in K
  215. mCurrPSize <(32/4*1024) shr 4> ;page size in paragraphs (1 plane)
  216. mMaxPage 0
  217. mNullColor 0
  218. mForeColor 15
  219. mBackColor 0
  220. mEgaWrMd 2
  221. mInitPalette b$ColorPalette  ;moved to LLXGASUP for sharing
  222. mInitVgaPal b$VgaPalette
  223. mAlphaDim AlphaDim_D
  224. mSetMode SetMode
  225. mSetPages SetPages
  226. mPalReset B$EgaPalReset
  227. mPalPut  B$EgaPalPut
  228. mPalTrans B$EgaPalTrans
  229. mPalSet  B$EgaPalSet
  230. mSetColor SetColor
  231. mForeMapped 15
  232. mBitsPerPixel 1
  233. mPlanes  4
  234. mMapXYC  B$EgaMapXYC_D
  235. mLeftC B$EgaLeftC
  236. mChkUpC  B$EgaChkUpC
  237. mUpC B$EgaUpC
  238. mChkDownC B$EgaChkDownC
  239. mDownC B$EgaDownC
  240. mSetAttr B$EgaSetAttr
  241. mReadC B$EgaReadC
  242. mSetC B$EgaSetC
  243. mSetPixC B$EgaSetPixC
  244. mSetPixFirstC B$EgaSetPixFirstC
  245. mSetPixLastC B$ResetEGA
  246. mLineX B$EgaLineX
  247. mLineY B$EgaLineY
  248. mLineV B$EgaLineV
  249. mPutAction B$EgaPutAction
  250. mNReadL  B$EgaNReadL
  251. mNWriteL B$EgaNWriteL
  252. mNSetC B$EgaNSetC
  253. mPaintBound B$EgaPaintBound_D
  254. mSetTile B$EgaSetTile
  255. mScanL B$EgaScanL
  256. mScanR B$EgaScanR
  257. mEnd GraphDataLen
  258. ;===========================================================================
  260. ;===========================================================================
  261. mModeData ModeEData
  262. ;
  263. ; SCREEN 8, BIOS mode E
  264. ;
  265. ; Mode-dependent data follows to initialize the the "b$ModeData" table
  266. ; in LLCGRP.
  267. ;
  268. ;===========================================================================
  269. mScreenMode 8
  270. mBiosMode 0EH
  271. mBurst 0
  272. mScrWidth 80
  273. mScrHeight 25
  274. mHorzRes 640
  275. mVertRes 200
  276. mVideoBase 0A000H
  277. mMaxAttr 15
  278. mMaxColor 15
  279. mPageSize 64     ;page size in K
  280. mCurrPSize <(64/4*1024) shr 4> ;page size in paragraphs (1 plane)
  281. mMaxPage 0
  282. mNullColor 0
  283. mForeColor 15
  284. mBackColor 0
  285. mEgaWrMd 2
  286. mInitPalette b$ColorPalette  ;moved to LLXGASUP for sharing
  287. mInitVgaPal b$VgaPalette
  288. mAlphaDim AlphaDim_E
  289. mSetMode SetMode
  290. mSetPages SetPages
  291. mPalReset B$EgaPalReset
  292. mPalPut  B$EgaPalPut
  293. mPalTrans B$EgaPalTrans
  294. mPalSet  B$EgaPalSet
  295. mSetColor SetColor
  296. mForeMapped 15
  297. mBitsPerPixel 1
  298. mPlanes  4
  299. mMapXYC  B$EgaMapXYC
  300. mLeftC B$EgaLeftC
  301. mChkUpC  B$EgaChkUpC
  302. mUpC B$EgaUpC
  303. mChkDownC B$EgaChkDownC
  304. mDownC B$EgaDownC
  305. mSetAttr B$EgaSetAttr
  306. mReadC B$EgaReadC
  307. mSetC B$EgaSetC
  308. mSetPixC B$EgaSetPixC
  309. mSetPixFirstC B$EgaSetPixFirstC
  310. mSetPixLastC B$ResetEGA
  311. mLineX B$EgaLineX
  312. mLineY B$EgaLineY
  313. mLineV B$EgaLineV
  314. mPutAction B$EgaPutAction
  315. mNReadL  B$EgaNReadL
  316. mNWriteL B$EgaNWriteL
  317. mNSetC B$EgaNSetC
  318. mPaintBound B$EgaPaintBound
  319. mSetTile B$EgaSetTile
  320. mScanL B$EgaScanL
  321. mScanR B$EgaScanR
  322. mEnd GraphDataLen
  323. ;===========================================================================
  325. ;===========================================================================
  326. mModeData ModeFData
  327. ;
  328. ; SCREEN 10, BIOS mode F (with > 64K video memory>
  329. ;
  330. ; Mode-dependent data follows to initialize the the "b$ModeData" table
  331. ; in LLCGRP.
  332. ;
  333. ;===========================================================================
  334. mScreenMode 10
  335. mBiosMode 0FH
  336. mBurst 0
  337. mScrWidth 80
  338. mScrHeight 25
  339. mHorzRes 640
  340. mVertRes 350
  341. mVideoBase 0A000H
  342. mMaxAttr 3
  343. mMaxColor 8
  344. mPageSize 64     ;page size in K
  345. mCurrPSize <(64/2*1024) shr 4> ;page size in paragraphs (1 plane)
  346. mMaxPage 0
  347. mNullColor 0
  348. mForeColor 3
  349. mBackColor 0
  350. mEgaWrMd 2     ;no even/odd with > 64K
  351. mInitPalette ModeFPalette
  352. mInitVgaPal 0 ;not applicable
  353. mAlphaDim AlphaDim_F
  354. mSetMode SetMode
  355. mSetPages SetPages
  356. mPalReset B$EgaPalResetB
  357. mPalPut  PalPut_F
  358. mPalTrans PalTrans_F
  359. mPalSet  B$EgaPalSet
  360. mSetColor SetColor
  361. mForeMapped 5     ;attr 3 maps to hardware attr 5
  362. mBitsPerPixel 1
  363. mPlanes  2
  364. mMapXYC  B$EgaMapXYC
  365. mLeftC B$EgaLeftC
  366. mChkUpC  B$EgaChkUpC
  367. mUpC B$EgaUpC
  368. mChkDownC B$EgaChkDownC
  369. mDownC B$EgaDownC
  370. mSetAttr SetAttr_F_10_64K
  371. mReadC B$EgaReadC_F
  372. mSetC B$EgaSetC
  373. mSetPixC B$EgaSetPixC
  374. mSetPixFirstC B$EgaSetPixFirstC
  375. mSetPixLastC B$ResetEGA
  376. mLineX B$EgaLineX
  377. mLineY B$EgaLineY
  378. mLineV B$EgaLineV
  379. mPutAction B$EgaPutAction_F
  380. mNReadL  B$EgaNReadL_F
  381. mNWriteL B$EgaNWriteL_F
  382. mNSetC B$EgaNSetC
  383. mPaintBound B$EgaPaintBound
  384. mSetTile B$EgaSetTile
  385. mScanL ScanLX
  386. mScanR ScanRX
  387. mEnd GraphDataLen
  388. ;===========================================================================
  390. ;===========================================================================
  391. mModeData ModeFData_64K
  392. ;
  393. ; SCREEN 10, BIOS mode F with 64K video memory
  394. ;
  395. ; Mode-dependent data follows to initialize the the "b$ModeData" table
  396. ; in LLCGRP.
  397. ;
  398. ;===========================================================================
  399. mScreenMode 10
  400. mBiosMode 0FH
  401. mBurst 0
  402. mScrWidth 80
  403. mScrHeight 25
  404. mHorzRes 640
  405. mVertRes 350
  406. mVideoBase 0A000H
  407. mMaxAttr 3
  408. mMaxColor 8
  409. mPageSize 64     ;page size in K
  410. mCurrPSize <(64/2*1024) shr 4> ;page size in paragraphs (1 plane)
  411. mMaxPage 0
  412. mNullColor 0
  413. mForeColor 3
  414. mBackColor 0
  415. mEgaWrMd 12H
  416. mInitPalette ModeFPalette
  417. mInitVgaPal 0 ;not applicable
  418. mAlphaDim AlphaDim_F
  419. mSetMode SetMode
  420. mSetPages SetPages
  421. mPalReset B$EgaPalResetB
  422. mPalPut  PalPut_F
  423. mPalTrans PalTrans_F
  424. mPalSet  B$EgaPalSet
  425. mSetColor SetColor
  426. mForeMapped 5     ;attr 3 maps to hardware attr 5
  427. mBitsPerPixel 1
  428. mPlanes  2
  429. mMapXYC  B$EgaMapXYC
  430. mLeftC B$EgaLeftC
  431. mChkUpC  B$EgaChkUpC
  432. mUpC B$EgaUpC
  433. mChkDownC B$EgaChkDownC
  434. mDownC B$EgaDownC
  435. mSetAttr SetAttr_F_10_64K
  436. mReadC B$EgaReadC_64K
  437. mSetC B$EgaSetC
  438. mSetPixC B$EgaSetPixC
  439. mSetPixFirstC B$EgaSetPixFirstC
  440. mSetPixLastC B$ResetEGA
  441. mLineX B$EgaLineX
  442. mLineY B$EgaLineY
  443. mLineV B$EgaLineV
  444. mPutAction B$EgaPutAction_64K
  445. mNReadL  NReadL_64K
  446. mNWriteL NWriteL_64K
  447. mNSetC B$EgaNSetC
  448. mPaintBound B$EgaPaintBound
  449. mSetTile B$EgaSetTile
  450. mScanL ScanLX
  451. mScanR ScanRX
  452. mEnd GraphDataLen
  453. ;===========================================================================
  455. ;===========================================================================
  456. mModeData Mode10Data
  457. ;
  458. ; SCREEN 9, BIOS mode 10 (with > 64K video memory)
  459. ;
  460. ; Mode-dependent data follows to initialize the the "b$ModeData" table
  461. ; in LLCGRP.
  462. ;
  463. ;===========================================================================
  464. mScreenMode 9
  465. mBiosMode 10H
  466. mBurst 0
  467. mScrWidth 80
  468. mScrHeight 25
  469. mHorzRes 640
  470. mVertRes 350
  471. mVideoBase 0A000H
  472. mMaxAttr 15
  473. mMaxColor 63
  474. mPageSize 128     ;page size in K
  475. mCurrPSize <(128/4*1024) shr 4>;page size in paragraphs (1 plane)
  476. mMaxPage 0
  477. mNullColor 0
  478. mForeColor 15
  479. mBackColor 0
  480. mEgaWrMd 2
  481. mInitPalette b$EnhPalette ;moved to LLXGASUP for sharing
  482. mInitVgaPal b$VgaPalette
  483. mAlphaDim AlphaDim_10
  484. mSetMode SetMode
  485. mSetPages SetPages
  486. mPalReset B$EgaPalReset
  487. mPalPut  B$EgaPalPut
  488. mPalTrans B$EgaPalTrans
  489. mPalSet  B$EgaPalSet
  490. mSetColor SetColor
  491. mForeMapped 15
  492. mBitsPerPixel 1
  493. mPlanes  4
  494. mMapXYC  B$EgaMapXYC
  495. mLeftC B$EgaLeftC
  496. mChkUpC  B$EgaChkUpC
  497. mUpC B$EgaUpC
  498. mChkDownC B$EgaChkDownC
  499. mDownC B$EgaDownC
  500. mSetAttr B$EgaSetAttr
  501. mReadC B$EgaReadC
  502. mSetC B$EgaSetC
  503. mSetPixC B$EgaSetPixC
  504. mSetPixFirstC B$EgaSetPixFirstC
  505. mSetPixLastC B$ResetEGA
  506. mLineX B$EgaLineX
  507. mLineY B$EgaLineY
  508. mLineV B$EgaLineV
  509. mPutAction B$EgaPutAction
  510. mNReadL  B$EgaNReadL
  511. mNWriteL B$EgaNWriteL
  512. mNSetC B$EgaNSetC
  513. mPaintBound B$EgaPaintBound
  514. mSetTile B$EgaSetTile
  515. mScanL B$EgaScanL
  516. mScanR B$EgaScanR
  517. mEnd GraphDataLen
  518. ;===========================================================================
  520. ;===========================================================================
  521. mModeData Mode10Data_64K
  522. ;
  523. ; SCREEN 9, BIOS mode 10 (with 64K video memory)
  524. ;
  525. ; Mode-dependent data follows to initialize the the "b$ModeData" table
  526. ; in LLCGRP.
  527. ;
  528. ;===========================================================================
  529. mScreenMode 9
  530. mBiosMode 10H
  531. mBurst 0
  532. mScrWidth 80
  533. mScrHeight 25
  534. mHorzRes 640
  535. mVertRes 350
  536. mVideoBase 0A000H
  537. mMaxAttr 3
  538. mMaxColor 63
  539. mPageSize 64     ;page size in K
  540. mCurrPSize <(64/2*1024) shr 4> ;page size in paragraphs (1 plane)
  541. mMaxPage 0
  542. mNullColor 0
  543. mForeColor 3
  544. mBackColor 0
  545. mEgaWrMd 12H
  546. mInitPalette Mode10Palette_64K
  547. mInitVgaPal Mode10VgaPal_64K
  548. mAlphaDim AlphaDim_10
  549. mSetMode SetMode
  550. mSetPages SetPages
  551. mPalReset B$EgaPalReset
  552. mPalPut  B$EgaPalPut
  553. mPalTrans PalTrans_10_64K
  554. mPalSet  B$EgaPalSet
  555. mSetColor SetColor
  556. mForeMapped 15
  557. mBitsPerPixel 1
  558. mPlanes  2
  559. mMapXYC  B$EgaMapXYC
  560. mLeftC B$EgaLeftC
  561. mChkUpC  B$EgaChkUpC
  562. mUpC B$EgaUpC
  563. mChkDownC B$EgaChkDownC
  564. mDownC B$EgaDownC
  565. mSetAttr SetAttr_F_10_64K
  566. mReadC B$EgaReadC_64K
  567. mSetC B$EgaSetC
  568. mSetPixC B$EgaSetPixC
  569. mSetPixFirstC B$EgaSetPixFirstC
  570. mSetPixLastC B$ResetEGA
  571. mLineX B$EgaLineX
  572. mLineY B$EgaLineY
  573. mLineV B$EgaLineV
  574. mPutAction B$EgaPutAction_64K
  575. mNReadL  NReadL_64K
  576. mNWriteL NWriteL_64K
  577. mNSetC B$EgaNSetC
  578. mPaintBound B$EgaPaintBound
  579. mSetTile B$EgaSetTile
  580. mScanL ScanLX
  581. mScanR ScanRX
  582. mEnd GraphDataLen
  583. ;===========================================================================
  585. ;
  586. ; ModeFPalette - used to initialize the EGA palette for SCREEN 10
  587. ;  (BIOS mode F).
  588. ;
  589. labelB ModeFPalette ;EGA palette for BIOS mode 0FH
  590. ; RGBrgb
  591. DB 000000B  ;black
  592. DB 001000B  ;video
  593. DB 000000B  ;black
  594. DB 000000B  ;black
  595. DB 011000B  ;intensified
  596. DB 011000B  ;intensified
  597. DB 000000B  ;black
  598. DB 000000B  ;black
  599. DB 000000B  ;black
  600. DB 001000B  ;video
  601. DB 000000B  ;black
  602. DB 000000B  ;black
  603. DB 000000B  ;black
  604. DB 011000B  ;intensified
  605. DB 000000B  ;black
  606. DB 000000B  ;black
  607. ;
  608. ; Mode10Palette_64K - used to initialize the EGA palette for SCREEN 9
  609. ;   (BIOS mode 10) with 64K of video memory.
  610. ;
  611. labelB Mode10Palette_64K ;EGA palette for BIOS mode 10H with only 64K
  612. ; RGBrgb
  613. DB 000000B  ;black
  614. DB 111011B  ;light cyan
  615. DB 000000B  ;black (not used)
  616. DB 000000B  ;black (not used)
  617. DB 111101B  ;light magenta
  618. DB 111111B  ;bright white
  619. ;DB      10 DUP (0)      ;brown
  622. labelNP <PUBLIC,B$EGAUSED>
  624. ;*** 
  625. ; B$Screen7
  626. ;
  627. ;Purpose:
  628. ; Establish all relevent mode dependent data values and function
  629. ; vectors for BASIC screen mode 7.
  630. ;Entry:
  631. ; AL = screen mode (7)
  632. ; AH = burst (0 or 1)
  633. ; CL = alpha columns
  634. ;Exit:
  635. ; PSW.C = set indicates error
  636. ;Uses:
  637. ; per conv.
  638. ;Exceptions:
  639. ;******************************************************************************
  640. cProc B$Screen7,<PUBLIC,NEAR>
  641. cBegin
  642. mov bx,GR_TEXTOFFSET ModeDData  ;mode-specific data
  643. jmp short ScrCommon2     ;common routine
  644. cEnd <nogen>
  646. ;*** 
  647. ; B$Screen8
  648. ;
  649. ;Purpose:
  650. ; Establish all relevent mode dependent data values and function
  651. ; vectors for BASIC screen mode 8.
  652. ;Entry:
  653. ; AL = screen mode (8)
  654. ; AH = burst (0 or 1)
  655. ; CL = alpha columns
  656. ;Exit:
  657. ; PSW.C = set indicates error
  658. ;Uses:
  659. ; per conv.
  660. ;Exceptions:
  661. ;******************************************************************************
  662. cProc B$Screen8,<PUBLIC,NEAR>
  663. cBegin
  664. mov bx,GR_TEXTOFFSET ModeEData  ;mode-specific data
  665. ScrCommon2:
  666. test b$Monitor,AnalogColor + EnhColor + StdColor
  667. ;check for monitor support
  668. je ScrErr ;exit w/error if not supported
  669. jmp short ScrCommon ;common routine
  670. cEnd <nogen>
  672. ;*** 
  673. ; B$Screen9
  674. ;
  675. ;Purpose:
  676. ; Establish all relevent mode dependent data values and function
  677. ; vectors for BASIC screen mode 9.
  678. ;Entry:
  679. ; AL = screen mode (9)
  680. ; AH = burst (0 or 1)
  681. ; CL = alpha columns
  682. ;Exit:
  683. ; PSW.C = set indicates error
  684. ;Uses:
  685. ; per conv.
  686. ;Exceptions:
  687. ;******************************************************************************
  688. cProc B$Screen9,<PUBLIC,NEAR>
  689. cBegin
  690. test b$Monitor,AnalogColor + EnhColor ;check for monitor support
  691. je ScrErr ;exit w/error if not supported
  692. mov bx,GR_TEXTOFFSET Mode10Data ;mode-specific data
  693. cmp b$VideoMem,64 ;check for mode 10 w/only 64K
  694. ja ScrCommon ;go if greater, otherwise use diff table
  695. mov bx,GR_TEXTOFFSET Mode10Data_64K ;mode-specific data
  696. ScrCommon:
  697. test b$Adapter,VGA + EGA ;check for adapter support
  698. je ScrErr ;exit w/error if not supported
  699. mov cx,GraphDataLen 
  700. call B$InitModeData ;initialize table data
  701. mov ax,b$VideoMem ;MaxPage = VideoMem / PageSize - 1
  702. div b$PageSize
  703. dec al ;MaxPage = #pages-1
  704. mov b$MaxPage,al
  705. clc ;indicate no error
  706. cEnd
  708. ;*** 
  709. ; B$Screen10
  710. ;
  711. ;Purpose:
  712. ; Establish all relevent mode dependent data values and function
  713. ; vectors for BASIC screen mode 10.
  714. ;Entry:
  715. ; AL = screen mode (10)
  716. ; AH = burst (0 or 1)
  717. ; CL = alpha columns
  718. ;Exit:
  719. ; PSW.C = set indicates error
  720. ;Uses:
  721. ; per conv.
  722. ;Exceptions:
  723. ;******************************************************************************
  724. cProc B$Screen10,<PUBLIC,NEAR>
  725. cBegin
  726. test b$Monitor,AnalogMono + Monochrome ;check monitor support
  727. je ScrErr ;exit w/error if not supported
  728. mov bx,GR_TEXTOFFSET ModeFData  ;mode-specific data
  729. cmp b$VideoMem,64 ;check for mode F w/only 64K
  730. ja Scr10Common ;go if greater, otherwise use diff table
  731. mov bx,GR_TEXTOFFSET ModeFData_64K ;mode-specific data
  732. Scr10Common:
  733. test b$Adapter,VGA + EGA ;check for adapter support
  734. je ScrErr ;exit w/error if not supported
  735. mov cx,GraphDataLen 
  736. call B$InitModeData ;initialize table data
  737. mov ax,b$VideoMem ; MaxPage = VideoMem / 2 / PageSize - 1
  738. shr ax,1 ; divide VideoMem by 2
  739. div b$PageSize
  740. sub al,1 ;MaxPage = #pages-1
  741. adc al,0 ;if MaxPage < 0 (64K EGA), force back to 0
  742. mov b$MaxPage,al
  743. clc ;indicate no error
  744. jmp short ScrExit
  745. ScrErr:
  746. stc
  747. ScrExit:
  748. cEnd
  750. ;***
  751. ; AlphaDim_D
  752. ;
  753. ;Purpose:
  754. ; Validate the proposed text dimensions for Screen 7.
  755. ;   If 40x25 is requested, this mode satisfies the request
  756. ;   elseif 80x25 is requested, suggest screen mode 8
  757. ;   else suggest screen mode 0.
  758. ;Entry:
  759. ; BH = number of lines
  760. ; BL = number of columns
  761. ;Exit:
  762. ; AL = -1 if this mode satisfies the request, otherwise
  763. ; AL is suggested screen mode to invoke for desired dimensions
  764. ;Uses:
  765. ; per conv.
  766. ;Exceptions:
  767. ;******************************************************************************
  768. DbPub AlphaDim_D
  769. cProc AlphaDim_D,<NEAR>
  770. cBegin
  771. mov al,-1 ;flag request satisfied (maybe)
  772. cmp bx,40+25*256 ;40x25?
  773. je ADimSet  ;exit if so, standard stuff
  774. mov al,8 ;prepare request for screen 8, JIC
  775. cmp bx,80+25*256 ;80x25?
  776. je ADimDOk  ;exit if so, try screen 8
  777. xor al,al ;flag request for screen 0
  778. ADimDOk:
  779. cEnd
  781. ;***
  782. ; AlphaDim_F
  783. ;
  784. ;Purpose:
  785. ; Validate the proposed text dimensions for Screen 10.
  786. ;   If 40 columns are requested, treat as if 80 were requested.
  787. ;   Fall through to AlphaDim_10 for validation.
  788. ;Entry:
  789. ; BL = number of lines
  790. ; BH = number of columns
  791. ;Exit:
  792. ; falls through to AlphaDim_10
  793. ;Uses:
  794. ; per conv.
  795. ;Exceptions:
  796. ;******************************************************************************
  797. DbPub AlphaDim_F
  798. cProc AlphaDim_F,<NEAR>
  799. cBegin
  800. cmp bl,40 ;40 columns?
  801. jne AlphaDim_10 ;go if not, as if mode 10H
  802. mov bl,80 ;treat 40 as if request for 80
  803. cEnd <nogen>  ;fall thru to AlphaDim_10
  805. ;***
  806. ; AlphaDim_10/AlphaDim_E
  807. ;
  808. ;Purpose:
  809. ; Validate the proposed text dimensions for Screen 9 or Screen 8,
  810. ; depending on entry point.
  811. ;   If 80x25 or 80x43 is requested, this mode satisfies the request
  812. ;   elseif 40x25 is requested, suggest screen mode 7
  813. ;   else suggest screen mode 0.
  814. ;Entry:
  815. ; BL = number of lines
  816. ; BH = number of columns
  817. ;Exit:
  818. ; If this mode satisfies request
  819. ;   AL = -1
  820. ;   b$ScrHeight is set to value in BL
  821. ; else
  822. ;   AL = suggested screen mode to invoke for desired dimensions
  823. ;Uses:
  824. ; per conv.
  825. ;Exceptions:
  826. ;******************************************************************************
  827. DbPub AlphaDim_10
  828. cProc AlphaDim_10,<NEAR>
  829. cBegin
  830. mov al,-1 ;flag request satisfied (maybe)
  831. cmp bx,80+43*256 ;80x43?
  832. je ADimSet  ;exit if so, standard stuff
  834. labelNP AlphaDim_E
  836. mov al,-1 ;flag request satisfied (maybe)
  837. cmp bx,80+25*256 ;80x25?
  838. je ADimSet  ;exit if so, standard stuff
  839. mov al,7 ;prepare request for screen 7, JIC
  840. cmp bx,40+25*256 ;40x25?
  841. je ADimOk ;exit if so, try screen 7
  842. xor al,al ;flag request for screen 0
  843. jmp short ADimOk ;  and exit
  844. ADimSet:
  845. mov b$ScrHeight,bh ;set alpha rows
  846. ADimOk:
  847. clc ;no error
  848. cEnd
  850. ;***
  851. ; SetMode
  852. ;
  853. ;Purpose:
  854. ; Set EGA screen mode according to the characteristics established
  855. ; by previous call to B$Screenx and b$AlphaDim.  Set 8x8 character
  856. ; font if new mode is to be 43 lines.
  857. ;Entry:
  858. ; b$BiosMode is mode to set
  859. ; b$ScrHeight is number of lines
  860. ;Exit:
  861. ; None
  862. ;Uses:
  863. ; per conv.
  864. ;Exceptions:
  865. ;******************************************************************************
  866. cProc SetMode,<NEAR>
  867. cBegin
  868. mov al,b$BiosMode ;set BIOS mode
  869. SCNIO vSetMode
  870. cmp b$ScrHeight,43 ;43 lines?
  871. jne SetMode25 ;go if not
  872. mov dl,43 ; char gen call wants # of lines in DL
  873. mov ax,1123H ;character generator request
  874. xor bl,bl ;  to load 8x8 font
  875. SCNIO ;  which gets 43 lines
  876. SetMode25:
  877. call B$ResetEGA
  878. MOV DX,b$CURSOR ; Get current cursor position
  879. MOV BYTE PTR b$CSRTYP,-1 ; invalidate present cursor type so it
  880. ; will get changed
  881. CALL B$USRCSR ; display user cursor
  882. cEnd
  884. ;***
  885. ; SetPages
  886. ;
  887. ;Purpose:
  888. ; Set the current active and visual pages and calculate page size
  889. ; and video segment offset for EGA modes.
  890. ;Entry:
  891. ; AL = active page
  892. ; AH = visual page
  893. ;Exit:
  894. ; b$CurPages set to new active and visual pages.
  895. ; b$SegC set to start of new active page.
  896. ;Uses:
  897. ; per conv.
  898. ;Exceptions:
  899. ;******************************************************************************
  900. cProc SetPages,<NEAR>
  901. cBegin
  902. mov b$CurPages,ax ;save page numbers
  903. push ax
  904. mov al,ah
  905. SCNIO vSelActivePage ;set visual page
  906. pop ax
  907. cbw ;extend active page to word
  908. mul b$CurrPSize ;times page size in paras
  909. add ax,b$VideoBase ;set video segment
  910. mov b$SegC,ax
  911. cEnd
  913. ;***
  914. ; PalPut_F
  915. ;
  916. ;Purpose:
  917. ; Change palette entry for Screen 10 with translation/verification.
  918. ; A color value of -1 indicates that the associated palette
  919. ; entry is not to be modified.
  920. ;Entry:
  921. ; DX:AX = color
  922. ; BL = attribute
  923. ;Exit:
  924. ; PSW.C reset indicates successful operation
  925. ; set indicates PALETTE function call error
  926. ;Uses:
  927. ; per conv.
  928. ;Exceptions:
  929. ;******************************************************************************
  930. DbPub PalPut_F
  931. cProc PalPut_F,<NEAR>
  932. cBegin
  933. cmp ax,-1 ;lo word of color == -1?
  934. jne PalPut1  ;go if not, can't ignore
  935. cmp dx,ax ;hi word too?
  936. je PalPutExit ;exit if color == -1
  937. PalPut1:
  938. call PalTrans_F ;translate to external form
  939. jc PalPutExit ;exit if invalid w/error
  940. mov bh,al ;BH:BL = color:attribute
  941. mov al,bl ;ah:al = 2nd pair
  942. add al,8
  943. push ax ;save 2nd values in pair
  944. xor al,al ;subfunction "Set Individual Palette Register"
  945. SCNIO vSetEgaPalette
  946. pop ax
  947. xchg bx,ax ;2nd pair
  948. xor al,al ;subfunction "Set Individual Palette Register"
  949. SCNIO vSetEgaPalette
  950. clc ;no error
  951. PalPutExit:
  952. cEnd
  954. labelW TransF
  955. DB 0,0,0,8,0,24 ;9 possible value pairs of mode 0FH
  956. DB 8,0,8,8,8,24 ;0 - black, 8 - video, 18H - intensified
  957. DB 24,0,24,8,24,24
  959. ;***
  960. ; PalTrans_F
  961. ;
  962. ;Purpose:
  963. ; Translate a user supplied attribute/color pair for Screen 10 to
  964. ; the corresponding hardware values after verifying that they are
  965. ; in the legal range.
  966. ;     Attribute mapping: 0 --> 0
  967. ; 1 --> 1
  968. ; 2 --> 4
  969. ; 3 --> 5
  970. ;     Color pair mapping per TransF table.
  971. ;Entry:
  972. ; DX:AX = user supplied color value
  973. ; BL    = user supplied attribute value
  974. ;Exit:
  975. ; PSW.C set if illegal value, reset if Ok
  976. ; AX = actual color pair value
  977. ; BL = actual attribute value
  978. ;Uses:
  979. ; per conv.
  980. ;Exceptions:
  981. ; can exit through PalTrans_10_64K error exit.
  982. ;******************************************************************************
  983. DbPub PalTrans_F
  984. cProc PalTrans_F,<NEAR>
  985. cBegin
  986. cmp bl,b$MaxAttr ;is legal attribute ?
  987. ja PalTrErr ;error return
  988. or dh,dl ;hi 3 bytes of color must be 0
  989. or dh,ah
  990. jnz PalTrErr ;error if not
  991. cmp al,b$MaxColor ;is legal color ?
  992. ja PalTrErr ;error return
  993. cmp bl,2 ;attributes 0 and 1 map directly
  994. jb PalTrNxt ;go if so
  995. add bl,2 ;attribute 2 maps to 4, 3 to 5
  996. PalTrNxt:
  997. push di
  998. MOV DI,GR_TEXTOFFSET TransF ;translate to color pair
  999. XOR AH,AH
  1000. SHL AL,1 ;word index
  1001. ADD DI,AX
  1002. MOV AX,CS:[DI] ;translate color AX to color pair AX
  1003. pop di
  1004. clc ;no error
  1005. cEnd
  1007. ;***
  1008. ; PalTrans_10_64K
  1009. ;
  1010. ;Purpose:
  1011. ; Translate a user supplied attribute for Screen 9/64K to the
  1012. ; corresponding hardware value after verifying that the attribute
  1013. ; value and the color value are in the legal ranges.
  1014. ;     Attribute mapping: 0 --> 0
  1015. ; 1 --> 1
  1016. ; 2 --> 4
  1017. ; 3 --> 5
  1018. ;Entry:
  1019. ; DX:AX = user supplied color value
  1020. ; BL    = user supplied attribute value
  1021. ;Exit:
  1022. ; PSW.C set if illegal value, reset if Ok
  1023. ; DX:AX = unchanged (user supplied color value)
  1024. ; BL    = actual attribute value
  1025. ;Uses:
  1026. ; per conv.
  1027. ;Exceptions:
  1028. ;******************************************************************************
  1029. DbPub PalTrans_10_64K
  1030. cProc PalTrans_10_64K,<NEAR>
  1031. cBegin
  1032. call B$EgaPalTrans ;check attribute and translate color
  1033. jc PalTrErr ;error return
  1034. cmp bl,2 ;attributes 0 and 1 map directly
  1035. jb PalTrExit ;go if so
  1036. add bl,2 ;attribute 2 maps to 4, 3 to 5
  1037. PalTrExit:
  1038. clc ;no error
  1039. ret
  1040. PalTrErr:
  1041. STC ;indicate error
  1042. cEnd
  1044. labelB AttrX
  1045. DB 0,3,0CH,0FH ;map to 0,3,C,F for odd/even
  1047. ;***
  1048. ; SetAttr_F_10_64K
  1049. ;
  1050. ;Purpose:
  1051. ; Map attribute value to the value needed by odd/even mode functions.
  1052. ; 0 --> 00
  1053. ; 1 --> 03
  1054. ; 2 --> 0C
  1055. ; 3 --> 0F
  1056. ; If supplied attribute is outside legal range, use maximum legal value.
  1057. ;Entry:
  1058. ; AL = attribute
  1059. ;Exit:
  1060. ; b$Attr updated
  1061. ;Uses:
  1062. ; per conv.
  1063. ;Exceptions:
  1064. ;******************************************************************************
  1065. DbPub SetAttr_F_10_64K
  1066. cProc SetAttr_F_10_64K,<NEAR>,<AX,BX>
  1067. cBegin
  1068. cmp al,b$MaxAttr ;test against maximum attribute
  1069. jbe SetAttrXOk ;Brif legal
  1070. mov al,b$MaxAttr ;limit to max
  1071. SetAttrXOk:
  1072. mov bx,GR_TEXTOFFSET AttrX ;translate for odd/even mode
  1073. xlat cs:[bx]
  1074. mov b$AttrC,al
  1075. clc ;exit no error
  1076. cEnd
  1078. ;***
  1079. ; SetColor
  1080. ;
  1081. ;Purpose:
  1082. ; Process the color statement for Bios modes 0Dh - 010h (BASIC Screen
  1083. ; modes 7-10).  Syntax for Screen 7-10 color statement is as follows:
  1084. ;
  1085. ; COLOR [foreground],[background]
  1086. ;
  1087. ; where "foreground" is the attribute to be used for the foreground
  1088. ;   and "background" is the color to be used for the background
  1089. ;
  1090. ; Any omitted parameter(s) indicate no change for that parameter.
  1091. ;Entry:
  1092. ; parameter list
  1093. ; WORD 1 = flag 0 if param not present
  1094. ; WORD 2 = parameter if WORD 1 <> 0, else second param flag
  1095. ; etc.
  1096. ;Exit:
  1097. ; PSW.C set if error, reset if Ok.
  1098. ; b$ForeColor is set to foreground attribute
  1099. ; b$ForeMapped is set to foreground attribute mapped to internal value
  1100. ;
  1101. ;Uses
  1102. ; per conv.
  1103. ;Exceptions:
  1104. ;*****************************************************************************
  1105. cProc SetColor,<NEAR>
  1106. cBegin
  1107. cCall B$GetParm ;AL=foreground parameter
  1108. mov bh,b$ForeColor ;use old values as default
  1109. mov bl,b$ForeMapped
  1110. jz GotFore  ;go if none supplied
  1111. cmp b$MaxAttr,al ;check for valid range
  1112. jc SetColDun ;go if error
  1113. push ax ;save: unmapped attr [14]
  1114. push cx ;      param count
  1115. push b$PenC  ;  b$AttrC
  1116. call [b$SetAttr] ;translate the attribute
  1117. mov bl,b$AttrC ;translated attr in BL
  1118. pop b$PenC 
  1119. pop cx
  1120. pop ax ;restore unmapped attr
  1121. mov bh,al ;unmapped attr to BH
  1122. GotFore:
  1123. cCall B$GetParm ;AL=background parameter
  1124. jz NoBack ;go if none supplied
  1125. push bx ;preserve foreground info
  1126. xor bx,bx ;attribute 0 is background
  1127. cbw ;AX=color
  1128. cwd ;DX:AX=color
  1129. call [b$PalPut] ;set background
  1130. pop bx
  1131. jc SetColDun ;go if error
  1132. NoBack:
  1133. mov b$ForeColor,bh ;save foreground values
  1134. mov b$ForeMapped,bl
  1135. clc ;indicate no error
  1136. jcxz SetColDun ;if we got all params, thats true
  1137. stc ;otherwise set error
  1138. SetColDun:
  1139. cEnd
  1141. ;***
  1142. ; PIXLF3
  1143. ;Purpose:
  1144. ; Check for non-paint pixels left, odd/even EGA modes.
  1145. ; Look through entire range of non-border pixels right to left
  1146. ; to determine whether any will actually change color.
  1147. ; Use AL as Color Don't Care mask.
  1148. ;
  1149. ; If using EGAINT10 interface, this routine must access the CDCReg
  1150. ; and perform the associated color compare read with ints disabled,
  1151. ; then reenable them to allow other processes to access the card
  1152. ; before the next byte is checked.  Since another process may have
  1153. ; modified the graphics chip index reg as well as the data reg, we
  1154. ; must send both index and data for each odd/even toggle.
  1155. ;Entry:
  1156. ; SI = byte address of rightmost byte in range
  1157. ; BH = bit mask for leftmost byte
  1158. ; BL = bit mask for rightmost byte
  1159. ; DI = total number of whole bytes between first and last
  1160. ; ES = video segment
  1161. ;Exit:
  1162. ; CL = 0 if no pixels found to change, non-zero if pixels to change
  1163. ;Uses:
  1164. ; per conv.
  1165. ;Exceptions:
  1166. ;****
  1167. DbPub PIXLF3
  1168. cProc PIXLF3,<NEAR>,<DX>
  1169. cBegin
  1170. MOV DX,GRPADD ;index port for graphics register
  1171. MOV AL,LOW CDCREG ;specify Color Don't Care
  1172. EGAINT10CLI ;disable ints if using EGAINT10
  1173. OUT DX,AL
  1174. INC DX
  1175. MOV AL,10101010B ;initially assume odd byte address
  1176. TEST SI,1
  1177. JNZ STMSKL ;if correct, set this mask
  1178. ROR AL,1 ;else rotate for other pair of planes
  1179. STMSKL:
  1180. OUT DX,AL ;set up for initial color compare
  1182. ; read first byte
  1184. MOV CL,ES:[SI] ;bit pattern of first byte with 0's where
  1185. ;color not paint attribute
  1186. AND CL,BL ;AND now produces difference if non-paint
  1187. ;bit in significant position
  1188. XOR CL,BL ;for significant bits in our first byte (bit
  1189. ;set in BH), then non-paint will be one
  1190. JNZ SETBTL ;found a bit to change
  1191. OR BH,BH ;see if only one byte
  1192. JZ NOSETL ;nothing to paint
  1193. OR DI,DI ;see if only a "last byte"
  1194. JZ LSBYT3
  1196. ; Look at whole bytes within viewport range until non-paint color found.
  1198. LKPTL3:
  1199. DEC SI
  1200. ROR AL,1
  1201. OUT DX,AL ;set up opposite Don't Care planes each time
  1202. MOV CL,ES:[SI]
  1203. EGAINT10STI ;read is done, reenable ints if EGAINT10
  1204. NOT CL ;check if all bits set (all paint color)
  1205. OR CL,CL ;NOT does not affect flags
  1206. JNZ SETBTL
  1207. DEC DI
  1208. EGAINT10CLI ;disable ints for next OUTs (loop
  1209. ; or fall through)
  1210. JNZ LKPTL3 ;keep looking until search of complete
  1211. ;bytes is exhausted
  1213. ; On last byte now, mask in BH.
  1215. LSBYT3:
  1216. DEC SI
  1217. ROR AL,1
  1218. OUT DX,AL ;last Don't Care
  1219. MOV CL,ES:[SI] ;do last compare
  1220. AND CL,BH ;significant bit = 0 if not paint color
  1221. XOR CL,BH ;if different, non-paint pixel(s) present
  1222. JNZ SETBTL
  1223. NOSETL:
  1224. XOR CL,CL ;no bits to set, so zero pixels-changed flag
  1225. SETBTL:
  1226. EGAINT10STI ;reenable ints at common exit
  1227. cEnd
  1229. ;***
  1230. ; PIXRT3
  1231. ;Purpose:
  1232. ; Check for non-paint pixels right with odd/even EGA modes.
  1233. ; Look through entire range of non-border pixels left to right
  1234. ; to determine whether any will actually change color.
  1235. ; AL is used for Color Don't Care mask
  1236. ;
  1237. ; If using EGAINT10 interface, this routine must access the CDCReg
  1238. ; and perform the associated color compare read with ints disabled,
  1239. ; then reenable them to allow other processes to access the card
  1240. ; before the next byte is checked.  Since another process may have
  1241. ; modified the graphics chip index reg as well as the data reg, we
  1242. ; must send both index and data for each odd/even toggle.
  1243. ;Entry:
  1244. ; SI = byte address of leftmost byte in range
  1245. ; BH = bit mask for rightmost byte
  1246. ; BL = bit mask for leftmost byte
  1247. ; DI = total number of whole bytes -1
  1248. ; ES = video segment
  1249. ;Exit:
  1250. ; CL = 0 if no pixels found to change, non-zero if pixels to change
  1251. ;Uses:
  1252. ; per conv.
  1253. ;Exceptions:
  1254. ;****
  1255. DbPub PIXRT3
  1256. cProc PIXRT3,<NEAR>,<DX>
  1257. cBegin
  1258. MOV DX,GRPADD ;index port for graphics
  1259. MOV AL,LOW CDCREG ;set up for Color Don't Care register
  1260. EGAINT10CLI ;disable ints if using EGAINT10
  1261. OUT DX,AL
  1262. INC DX
  1263. MOV AL,10101010B ;initially assume odd byte mask
  1264. TEST SI,1 ;check whether first byte odd or even
  1265. JNZ SETMSK ;if odd, branch to set mask
  1266. ROR AL,1 ;else rotate mask 1 right
  1267. SETMSK:
  1268. OUT DX,AL
  1270. ; read first byte
  1272. MOV CL,ES:[SI] ;bit pattern of first byte with 0's where
  1273. ;color not paint attribute
  1274. AND CL,BL ;AND now produces difference if non-paint
  1275. ;bit in significant position
  1276. XOR CL,BL ;for significant bits in our first byte (bit
  1277. ;set in BH), then non-paint will be one
  1278. JNZ PNTBIT ;found a bit to change
  1279. OR DI,DI ;any more bytes?
  1280. JZ PIXLAST  ;no full bytes, go try last
  1283. ; Look at whole bytes within viewport range until non-paint color found.
  1285. LKPTR3:
  1286. INC SI
  1287. ROR AL,1 ;shift Don't Care mask
  1288. OUT DX,AL
  1289. MOV CL,ES:[SI]
  1290. EGAINT10STI ;read is done, reenable ints if EGAINT10
  1291. NOT CL ;check if all bits set (all paint color)
  1292. OR CL,CL ;NOT does not affect flags
  1293. JNZ PNTBIT
  1294. DEC DI
  1295. EGAINT10CLI ;disable ints for next OUTs (loop
  1296. ; or fall through)
  1297. JNZ LKPTR3 ;keep looking until search of complete
  1298. ;bytes is exhausted
  1300. ; On last byte now, mask in BH.
  1301. PIXLAST:
  1302. INC SI
  1303. ROR AL,1
  1304. OUT DX,AL
  1305. MOV CL,ES:[SI] ;do last compare
  1306. AND CL,BH ;significant bit = 0 if not paint color
  1307. XOR CL,BH ;if different, non-paint color pixels
  1308. JNZ PNTBIT ;leave CL non-zero as flag
  1309. NOBTR3:
  1310. XOR CL,CL ;else zero the flag
  1311. PNTBIT:
  1312. EGAINT10STI ;reenable ints at common exit
  1313. cEnd
  1315. ;***
  1316. ; ScanLX
  1317. ;Purpose:
  1318. ; Scan left beginning with the pixel to the left of cursor,
  1319. ; and paint pixels until:
  1320. ; (1) the viewport edge is encounteered (edge painted)
  1321. ; (2) a border pixel is encountered (border not painted)
  1322. ;
  1323. ; This version supports PAINT for the odd/even EGA modes (bios mode
  1324. ; 10H with 64K of memory, and monochrome bios mode F).  It differs
  1325. ; from SCANL2 in its use of the Color Don't Care register in
  1326. ; conjunction with screen reads. This is necessary because if the
  1327. ; planes representing the even bytes and those representing the odd
  1328. ; bytes are not disabled during color compares for odd and even bytes,
  1329. ; respectively, the color compare is made as the sum of the bits set
  1330. ; for each even byte and its odd successor, all four planes at one
  1331. ; address.
  1332. ;Entry:
  1333. ; b$AddrC, b$MaskC = pixel to right of starting pixel
  1334. ; b$PaintBorder    = attribute of paint region border
  1335. ; b$AttrC    = attribute to paint
  1336. ; B$LEOFST, B$VLMASK   = left viewport edge
  1337. ;Exit:
  1338. ; BX    = number of pixels scanned
  1339. ; CL    = 0 iff no pixels changed color
  1340. ; b$OffC, b$MaskC  = the last non-border pixel examined/painted
  1341. ;Uses:
  1342. ; per conv.
  1343. ;Exceptions:
  1344. ;*****************************************************************************
  1345. DbPub ScanLX
  1346. cProc ScanLX,<NEAR>,<ES>
  1347. cBegin
  1348. CALL B$EgaScanInit
  1349. ROL CH,1 ;see if cursor is left edge of byte
  1350. JNB VWBYT1 ;if not, proceed to viewport checks
  1351. DEC SI ;if so, start next byte left
  1352. JS SCNOUT ;if negative, hit corner of screen
  1353. VWBYT1: ;start on-screen viewport checks
  1354. CMP SI,B$LEOFST ;see if off edge of viewport to left
  1355. JNB VWBYT2
  1356. SCNOUT:
  1357. JMP BRDEX3 ;else do nothing, exit
  1358. VWBYT2:
  1359. JNZ NOTBYT ;if not edge byte, skip bit checks
  1360. CMP CH,B$VLMASK ;else check for pixel left too far and
  1361. JNA NOTBYT
  1362. JMP BRDEX3 ;thus off viewport edge -- exit if so
  1363. NOTBYT:
  1364. MOV DI,SI ;extra copy of first byte address
  1365. MOV BL,CH ;extra copy of initial bit mask
  1366. MOV BP,-1 ;this will be count of whole bytes
  1367. XOR AH,AH ;initialize this byte's viewport mask to 0
  1369. ; First task is to set up initial Color Don't Care mask depending
  1370. ; on whether first byte is odd or even.
  1372. MOV CL,10101010B ;initially assume odd byte -- 10101010
  1373. TEST SI,1
  1374. JNZ STCDC3
  1375. ROR CL,1 ;if even, set up 01010101
  1376. STCDC3:
  1377. MOV DX,GRPADD
  1378. MOV AL,LOW CDCREG ;index to Color Don't Care register
  1380. OUT DX,AL
  1381. INC DX
  1382. MOV AL,CL
  1383. OUT DX,AL
  1385. ; read first byte off the screen
  1387. MOV AL,ES:[DI]
  1388. EGAINT10STI ;read is done, reenable ints if EGAINT10
  1389. TEST AL,CH ;see whether initial pixel is border
  1390. JZ SRCLF3 ;if not, start search left
  1391. XOR CL,CL ;else set pixels-changed flag back to 0
  1392. MOV BL,CL ;zero out 8-bit register used
  1393. JMP BRDEX3 ;and exit gracefully
  1394. SRCLF3:
  1396. ; look for border or viewport in first byte
  1398. CMP DI,B$LEOFST ;is this in fact viewport edge byte?
  1399. JNZ NTVWL3
  1400. MOV AH,B$VLMASK ;if so, set up viewport mask in AH
  1401. NTVWL3:
  1403. ; while not border
  1405. TEST AL,CH
  1406. JNZ HAVPX3
  1408. ; and not viewport edge
  1410. TEST AH,CH
  1411. JNZ HAVPX3
  1413. ; and not off the edge of the byte
  1415. ROL CH,1
  1416. JNB NTVWL3
  1418. ; keep moving left - edge of first byte
  1420. DEC DI ;next byte address left
  1421. INC BP ;count of intermediate bytes
  1422. ROR CL,1 ;rotate Color Don't Care mask
  1423. MOV AL,CL
  1424. OUT DX,AL
  1425. MOV AL,ES:[DI] ;read next byte left
  1426. EGAINT10STI ;reenable ints between bytes if EGAINT10
  1427. JMP SHORT SRCLF3 ;check next byte
  1429. ; Here when border or viewport edge found.
  1430. ; Set up bit mask for first (possibly only) byte
  1431. ; SI = rightmost byte
  1432. ; DI = leftmost byte (possibly same byte)
  1433. ; BL = mask for rightmost bit in rightmost byte
  1435. ; If viewport edge was found, AH will contain the viewport bit
  1436. ; mask, and DI is the viewport edge byte.  If SI=DI=viewport edge
  1437. ; byte, we need to retain the viewport mask in AH.  Otherwise
  1438. ; clear AH and fetch the mask again later if needed for DI.
  1440. HAVPX3:
  1441. CMP SI,B$LEOFST ;see if rightmost byte is LEFT viewport
  1442. JZ SINTV2 ;if so, don't clear viewport mask
  1443. ; register
  1444. XOR AH,AH ;else clear AH for CHKBTL on
  1445. SINTV2: ; rightmost byte
  1446. MOV CH,BL ;initial bit position in CH
  1447. MOV CL,10101010B ;need to reset Color Don't Care mask
  1448. TEST SI,1 ;see if odd byte
  1449. JNZ SISET
  1450. ROR CL,1
  1451. SISET:
  1452. MOV AL,CL
  1453. OUT DX,AL ;set up Color Don't Care
  1454. MOV AL,ES:[SI] ;get border bits if any
  1455. XOR DX,DX ;this will be #pixels painted
  1456. CALL B$EgaCHKBTL ;set up bit mask for first byte
  1457. MOV BL,BH ;store in BL
  1458. XOR BH,BH ;there may be only one byte
  1460. ; see if more than 1 byte to paint
  1462. PUSH SI ;save a copy of rightmost address
  1463. INC BP ;see if still -1
  1464. JZ ONEALN ;"one alone"
  1465. DEC BP ;if not, recover real value
  1466. PUSH DX ;store pixel count
  1467. MOV DX,GRPADD+1 ;data port for Color Don't Care
  1468. MOV CL,10101010B ;assume mask 10101010
  1469. TEST DI,1 ;check DI for odd or even address
  1470. JNZ DISET
  1471. ROR CL,1 ;if even, set up 01010101
  1472. DISET:
  1473. MOV AL,CL
  1474. OUT DX,AL
  1475. POP DX ;restore pixel count
  1476. MOV AL,ES:[DI] ;get border bits if any
  1477. MOV CH,1 ;set up mask for final byte
  1478. CMP DI,B$LEOFST ;was this viewport byte?
  1479. JNZ DINTV2 ;no -- don't need viewport mask
  1480. MOV AH,B$VLMASK ;yes -- get viewport mask for CHKTBL
  1481. DINTV2:
  1482. CALL B$EgaCHKBTL ;set up leftmost byte bit mask in BH
  1483. ONEALN:
  1484. MOV b$OffC,DI
  1485. MOV b$MaskC,CH ;update cursor
  1486. PUSH DI ;save a copy of leftmost address
  1487. MOV DI,BP ;store whole byte count for PIXLFT
  1488. CMP b$Tiling,0 ;see if tiling is on
  1489. JZ COLCM7
  1490. CALL B$EgaTILLFT
  1491. JMP SHORT COLCM8
  1492. COLCM7:
  1493. CALL B$EgaSETCMP ;set color compare register to paint attribute
  1494. CALL PIXLF3 ;see whether any pixels in range will change
  1495. COLCM8:
  1496. POP SI ;restore leftmost address to SI
  1497. POP DI ;restore rightmost address to DI
  1498. OR CL,CL ;returns CL non-zero if changes needed
  1499. JZ BRDEX2
  1501. ; we found at least 1 pixel to change, so set entire range
  1502. ; set pixels-changed flag, set up write mode 2
  1504. XOR CH,CH
  1505. NOT CH ;set to FF as decrement flag
  1506. STD ;for SCANL, decrement from DI
  1507. CALL B$EgaPAINPX
  1508. CLD
  1509. BRDEX2:
  1510. CALL B$EgaPIXCNT ;returns # pixels "painted" in BX
  1511. BRDEX3:
  1512. CALL B$ResetEGA
  1513. cEnd
  1515. ;***
  1516. ; ScanRX
  1517. ;Purpose:
  1518. ; Starting with the current pixel, search right until:
  1519. ; (1) a non-border pixel is found
  1520. ; (2) [DX] pixels have been tested
  1521. ; (3) the viewport edge is encountered
  1522. ;
  1523. ; If (2) or (3) terminated the scan, exit with:
  1524. ; DX = remaining border bount = 0
  1525. ;
  1526. ; If (1) terminated the scan, scan and paint non-border pixels until:
  1527. ; (1) the viewport edge is encountered (edge painted)
  1528. ; (2) a border pixel is encountered (border not painted)
  1529. ;
  1530. ; This version supports PAINT for the odd/even EGA modes (bios mode
  1531. ; 10H with 64K of memory, and monochrome bios mode F).  It differs
  1532. ; from SCANR2 in its use of the Color Don't Care register in
  1533. ; conjunction with screen reads. This is necessary because if the
  1534. ; planes representing the even bytes and those representing the odd
  1535. ; bytes are not disabled during color compares for odd and even bytes,
  1536. ; respectively, the color compare is made as the sum of the bits set
  1537. ; for each even byte and its odd successor, all four planes at one
  1538. ; address.
  1539. ;Entry:
  1540. ; DX    = count of border pixels which may be skipped
  1541. ; b$AddrC, b$MaskC = starting pixel
  1542. ; b$PaintBorder    = attribute of paint region border
  1543. ; b$AttrC    = attribute to paint
  1544. ; B$REOFST, B$VRMASK   = right viewport edge
  1545. ;Exit:
  1546. ; BX    = number of pixels painted
  1547. ; (whether or not they changed color)
  1548. ; CL    = 0 iff no pixels changed color
  1549. ; DX    = remaining border pixel count
  1550. ; b$OffC, b$MaskC  = the last non-border pixel examined/painted
  1551. ; SI, AL    = the first non-border pixel encountered
  1552. ;Uses:
  1553. ; per conv.
  1554. ;Exceptions:
  1555. ;
  1556. ;****************************************************************************
  1557. DbPub ScanRX
  1558. cProc ScanRX,<NEAR>,<ES>
  1559. cBegin
  1560. ; set up EGA registers for color compare read
  1561. ; point ES:[SI] to screen memory, b$MaskC in CH
  1562. ; CL = 0 (pixels changed flag)
  1564. CALL B$EgaScanInit ;setup
  1566. ; Initial task is to set up a mask for specifying which planes
  1567. ; we want to read when doing color compare reads. For even bytes,
  1568. ; we need to specify 0's in bits 1 and 3 (color don't care planes
  1569. ; 1 and 3), vice versa for odd bytes.  For convenience in coding,
  1570. ; we set up an 8-bit mask in CL and rotate right as we move across
  1571. ; the screen.
  1573. MOV BX,DX ;decrement BX instead of DX (needed for OUTs)
  1574. MOV CL,10101010B ;assume start mask 10101010
  1575. TEST SI,1 ;check whether odd or even byte
  1576. JNZ COLCOM ;if odd, we're in business
  1577. ROR CL,1 ;else 010101
  1578. COLCOM:
  1579. MOV DX,GRPADD ;address of index port
  1580. MOV AL,LOW CDCREG ;Color Don't Care register
  1582. OUT DX,AL
  1583. INC DX ;data port address
  1584. MOV AL,CL ;mask indicating planes to ignore (=0)
  1585. OUT DX,AL ;set up initial Color Don't Care planes
  1587. ; perform color compare on first byte
  1589. MOV AL,ES:[SI] ;bits set where border found
  1590. EGAINT10STI ;read is done, reenable ints if EGAINT10
  1592. ; Starting at entry cursor, search right looking for non-border,
  1593. ; viewport edge, or end-of-byte as long as DX does not decrement to 0.
  1595. XOR AH,AH ;initialize viewport mask to 0
  1596. SRCRT3:
  1597. CMP SI,B$REOFST ;check whether we are in viewport edge byte
  1598. JNZ NOTVP3
  1599. MOV AH,B$VRMASK ;if so, get viewport edge mask
  1600. NOTVP3:
  1602. ; While border...
  1604. TEST AL,CH ;compare color compare mask with b$MaskC
  1605. JZ ENDRT3 ;if pixel not border, exit loop
  1607. ; and not viewport edge...
  1609. TEST AH,CH ;compare viewport edge mask with b$MaskC
  1610. JNZ ENDRT3 ;if edge found, exit
  1612. ; and BX is greater than 0...
  1614. DEC BX ;contains # pixels which can be skipped
  1615. JZ ENDRT3 ;in search for non-border pixel
  1617. ; and not off the edge of the byte...
  1619. ROR CH,1 ;shift bit mask right
  1621. ; repeat the search
  1623. JNB NOTVP3
  1625. ; end of first byte.
  1627. INC SI ;next byte address
  1628. ROR CL,1 ;rotate mask for next Color Don't Care
  1629. MOV AL,CL
  1630. OUT DX,AL ;next compare with alternate planes disabled
  1631. MOV AL,ES:[SI]
  1632. EGAINT10STI ;reenable ints between bytes if EGAINT10
  1633. MOV CH,80H ;mask now 1000/0000 for next search
  1634. JMP SHORT SRCRT3
  1636. ; either (not border) OR (viewport edge) OR (DX = 0)
  1638. ENDRT3:
  1639. MOV DX,BX ;return decremented value to proper register
  1640. TEST AL,CH ;border?
  1641. JZ NTBRD3 ;if so, we are either at viewport edge
  1642. XOR DX,DX ;or have skipped DX pixels and therefore
  1643. MOV BX,DX ;should exit with info as initialized
  1644. XOR CL,CL ;restore old value to flag
  1645. JMP SHORT SCNEX3
  1647. ; Look for viewport edge to determine how many bytes to look
  1648. ; through for border pixel.
  1650. NTBRD3:
  1651. PUSH DX ;store skipcount for later
  1652. XOR DX,DX ;use to count pixels painted
  1653. MOV b$SaveCa,SI ;we have a new CSAVE
  1654. PUSH SI ;store copy of first byte address
  1655. MOV b$SaveCm,CH
  1656. CALL B$EgaCHKBTR ;set up byte for write, and count some pixels
  1657. ;(AH = viewport edge mask if any)
  1658. MOV BL,BH ;store first bit mask in BL
  1659. XOR BH,BH ;zero BH until last byte bit mask if any
  1660. XOR BP,BP ;start whole byte count at 0
  1661. MOV DI,B$REOFST
  1662. SUB DI,SI ;viewport edge address - first byte address
  1663. TEST BL,1 ;if last bit not set, we found border for sure
  1664. JZ WRTPX3 ;if just one byte, we're done
  1665. OR DI,DI ;check also if we hit viewport edge
  1666. JZ WRTPX3 ;if so, also done
  1668. ; else look through DI bytes for border (this includes viewport
  1669. ; edge byte)
  1671. DEC BP ;start increment at -1
  1672. MOV CH,80H ;start each byte at left edge
  1673. PUSH DX ;save accumulating bit count
  1674. MOV DX,GRPADD+1 ;prepare to send Color Don't Care data
  1675. SCANM3:
  1676. INC BP ;whole byte count
  1677. INC SI ;point to byte
  1678. ROR CL,1 ;rotate plane mask
  1679. MOV AL,CL
  1680. OUT DX,AL
  1681. MOV AL,ES:[SI] ;read each byte for color compare
  1682. EGAINT10STI ;read is done, reenable ints if EGAINT10
  1683. OR AL,AL ;check for occurrence of border pixel(s)
  1684. JNZ BRDPX3 ;set up last byte
  1685. DEC DI ;decrement to 0 to include last byte
  1686. JNZ SCANM3 ;go check out this byte
  1687. ; MOV AH,B$VRMASK ;if edge of viewport, get viewport mask
  1688. ;and proceed to set up byte for write
  1689. BRDPX3:
  1690. ;may have found border, viewport
  1691. ; edge, or have both in same byte
  1692. CMP SI,B$REOFST ;heck if this is edge byte
  1693. JNZ BRDFD3
  1694. MOV AH,B$VRMASK ;if found, install viewport edge mask
  1695. BRDFD3:
  1696. POP DX ;restore pixel count
  1697. CALL B$EgaCHKBTR ;set up byte for write
  1699. ; most recent call to CHKBTR has generated new cursor location and mask
  1701. WRTPX3:
  1702. MOV b$OffC,SI
  1703. MOV b$MaskC,CH
  1704. POP DI ;restore leftmost byte address
  1705. PUSH DI ;save a copy for leftmost add. for painting
  1706. PUSH SI ;save copy of rightmost address also
  1707. MOV SI,DI ;leftmost byte address in SI for PIXRGT
  1708. MOV DI,BP ;PIXRGT will use DI to count whole bytes
  1709. CMP b$Tiling,0 ;see whether tiling is on
  1710. JZ COLCM3
  1711. CALL B$EgaTILRGT
  1712. JMP SHORT COLCM4
  1713. COLCM3:
  1714. CALL B$EgaSETCMP ;set color compare register to paint attribute
  1715. CALL PIXRT3 ;routine to determine whether any pixels change
  1716. COLCM4:
  1717. POP SI ;restore rightmost
  1718. POP DI ;and leftmost byte addresses
  1719. OR CL,CL ;non-zero indicates at least one must change
  1720. JZ NPNTR3
  1721. XOR CH,CH ;zero as increment flag
  1722. CLD ;for SCANR, paint routine should increment REP
  1723. CALL B$EgaPAINPX ;set line
  1724. NPNTR3:
  1725. CALL B$EgaPIXCNT ;return # pixels "painted" in BX
  1726. POP DX ;skipcount in DX
  1727. SCNEX3:
  1728. CALL B$ResetEGA ;reset EGA registers for BIOS write mode 0
  1729. MOV SI,b$SaveCa ;return CSAVE
  1730. MOV AL,b$SaveCm
  1731. cEnd
  1733. ASSUME DS:NOTHING
  1735. ;***
  1736. ; Read_64K
  1737. ;
  1738. ;Purpose:
  1739. ; Support routine for NReadL_64K, reads one byte from screen
  1740. ; memory into AL.  Read from even plane even address, from
  1741. ; odd plane if odd address.
  1742. ;Entry:
  1743. ; DS:SI = screen address
  1744. ;Exit:
  1745. ; AL    = screen contents from address at ES:DI
  1746. ; DI    = incremented to next screen byte
  1747. ;Uses:
  1748. ; per conv.
  1749. ;Exceptions:
  1750. ;******************************************************************************
  1751. DbPub Read_64K
  1752. cProc Read_64K,<NEAR>
  1753. cBegin
  1754. EGAINT10CLI ;disable ints if using EGAINT10
  1755. mov al,RMPREG ;select read map select register
  1756. out dx,al
  1757. inc dx
  1758. xor al,al ;for plane computation
  1759. ror di,1 ;carry = 1 if odd address
  1760. adc al,BasePlane ;base plane +1 iff odd address
  1761. rol di,1 ;restore address
  1762. out dx,al ;set plane to read
  1763. dec dx
  1764. lodsb ;read it (finally!!)
  1765. EGAINT10STI ;reenable ints if using EGAINT10
  1766. cEnd
  1768. ;***
  1769. ; NReadL_64K
  1770. ;
  1771. ;Purpose:
  1772. ; Read a line of pixels from a specified plane to an array for
  1773. ; 64K Screen mode 9 (odd/even color mode).
  1774. ;Entry:
  1775. ; DS:SI = screen address
  1776. ; ES:DI = array address
  1777. ; CL    = array align shift count
  1778. ; CH    = mask for last partial byte
  1779. ; BP    = count of bits to read
  1780. ; BH    = plane to read from
  1781. ;Exit:
  1782. ; ES:DI = updated to array byte past point used
  1783. ;Uses:
  1784. ; per conv.
  1785. ;Exceptions:
  1786. ;******************************************************************************
  1787. DbPub NReadL_64K
  1788. cProc NReadL_64K,<NEAR>
  1789. cBegin
  1790. MOV DX,GRPADD ;address graphics controller
  1791. ;the next 2 statements appear to be unnecessary, but I'm not totally sure.
  1792. ; MOV AX,RWMREG ;r/w mode, [ah] = 0
  1793. ; OutWord  ;non color compare read
  1794. shl bh,1 ;plane 0 = maps 0/1, plane 1 = maps 2/3
  1795. mov BasePlane,bh
  1796. call Read_64K ;preload hi byte
  1797. mov ah,al ;  to ah
  1798. NRdLoopX:
  1799. call Read_64K ;fill ax word with video bytes
  1800. mov bh,al ;this lo byte will become next hi byte
  1801. rol ax,cl ;align to array
  1802. sub bp,8 ;8 bits done
  1803. jbe NRdLastX ;go if bit count exhausted
  1804. mov es:[di],ah ;save full byte
  1805. inc di
  1806. mov ah,bh ;move lo byte (BH) to hi byte (AH)
  1807. jnz NRdLoopX ;loop if no offset overflow
  1808. call B$BumpES ;move array pointer over segment boundary
  1809. jmp short NRdLoopX ;go do another
  1810. NRdLastX:
  1811. and ah,ch ;strip unused bits from last byte
  1812. mov es:[di],ah ;save last byte
  1813. inc di
  1814. jnz NRdDoneX
  1815. call B$BumpES ;move array pointer over segment boundary
  1816. NRdDoneX:
  1817. cEnd
  1819. ;***
  1820. ; Write_64K
  1821. ;
  1822. ;Purpose:
  1823. ; Support routine for NWriteL_64K, writes one byte to screen
  1824. ; memory from AL.  Initializes EGA regs to appropriate plane and
  1825. ; vectors through [b$PutVector] which writes the byte after
  1826. ; applying any bitwise logic necessary.
  1827. ;Entry:
  1828. ; ES:DI = screen address
  1829. ;Exit:
  1830. ; None
  1831. ;Uses:
  1832. ; per conv.
  1833. ;Exceptions:
  1834. ;******************************************************************************
  1835. DbPub Write_64K
  1836. cProc Write_64K,<NEAR>,<AX,DX>
  1837. cBegin
  1838. push ax
  1839. MOV DX,GRPADD ;address graphics controller
  1840. mov al,RMPREG ;select read map select register
  1841. out dx,al
  1842. inc dx
  1843. xor al,al ;for plane computation
  1844. ror di,1 ;carry = 1 if odd address
  1845. adc al,BasePlane ;base plane +1 iff odd address
  1846. rol di,1 ;restore address
  1847. out dx,al ;set plane to read
  1848. MOV DX,SEQADD ;address the sequencer
  1849. MOV AL,MMREG ;  map mask register
  1850. out dx,al
  1851. inc dx
  1852. mov al,b$PlaneMask ;get base plane mask
  1853. and al,MapMask ;with even/odd map mask
  1854. and al,0FH ;strip to nibble
  1855. out dx,al ;set plane to write
  1856. rol MapMask,1 ;rotate even/odd mask for next byte
  1857. pop ax
  1858. .erre ID_SSEQDS ;assumes ss = ds
  1859. call ss:[b$PutVector]   ;put the byte (finally!!)
  1860. cEnd
  1862. ;***
  1863. ; NWriteL_64K
  1864. ;
  1865. ;Purpose:
  1866. ; Write a line of pixels from an array to a specified plane for
  1867. ; 64K Screen mode 9 (odd/even color mode).
  1868. ;Entry:
  1869. ; ES:DI = screen address
  1870. ; DS:SI = array address
  1871. ; CX    = array align shift count
  1872. ; BP    = count of bits to write
  1873. ; BH    = plane to write to
  1874. ; DL    = last partial byte mask
  1875. ; DH    = first partial byte mask
  1876. ;Exit:
  1877. ; DS:SI = updated to array byte past point used
  1878. ;Uses:
  1879. ; per conv.
  1880. ;Exceptions:
  1881. ;******************************************************************************
  1882. DbPub NWriteL_64K
  1883. cProc NWriteL_64K,<NEAR>
  1884. cBegin
  1885. rol b$PlaneMask,1 ;shift to next plane
  1886. rol b$PlaneMask,1
  1887. mov MapMask,01010101B ;setup map mask for even access
  1888. test di,1 ;is it even?
  1889. jz IsEvenX  ;go if so
  1890. rol MapMask,1
  1891. IsEvenX:
  1892. shl bh,1 ;plane 0 = maps 0/1, plane 1 = maps 2/3
  1893. mov BasePlane,bh
  1894. push dx
  1895. mov ah,dh ;first byte bit mask
  1896. MOV DX,GRPADD ;address graphics controller
  1897. mov al,BMKREG ;  bit mask register
  1898. EGAINT10CLI ;disable ints if using EGAINT10 interface
  1899. OutWord  ;set first partial byte mask
  1900. pop dx
  1902. mov ah,[si]  ;preload byte from array
  1903. inc si
  1904. jnz NWrOvfl1X
  1905. call B$BumpDS ;move array pointer over segment boundary
  1906. NWrOvfl1X:
  1907. ror ax,cl ;align to video
  1908. add bp,cx
  1909. sub bp,8 ;account for first partial byte
  1910. jbe NWrLastX ;go if last byte
  1911. call Write_64K
  1912. mov dh,0FFH  ;mask for whole bytes in the middle
  1913. push ax
  1914. push dx
  1915. mov ah,dh ;middle byte bit mask
  1916. MOV DX,GRPADD ;address graphics controller
  1917. mov al,BMKREG ;  bit mask register
  1918. OutWord  ;set full byte mask for middle bytes
  1919. EGAINT10STI ;reenable ints if using EGAINT10 interface
  1920. pop dx
  1921. pop ax
  1922. jmp short NWrLoopX2
  1923. NWrLoopX:
  1924. .erre ID_SSEQDS ;assumes ss = ds
  1925. EGAINT10CLI ;disable ints if using EGAINT10 interface
  1926. call Write_64K ;put the byte
  1927. EGAINT10STI ;reenable ints if using EGAINT10 interface
  1928. NWrLoopX2:
  1929. rol ax,cl ;re-align to array
  1930. xchg ah,al
  1931. cmp cx,bp ;enough bits in this byte to finish
  1932. jae NWrOvfl2X ;go if so, don't load another
  1933. mov ah,[si]  ;fill ax word with array bytes
  1934. inc si
  1935. jnz NWrOvfl2X
  1936. call B$BumpDS ;move array pointer over segment boundary
  1937. NWrOvfl2X:
  1938. ror ax,cl ;align to video
  1939. sub bp,8 ;8 bits done
  1940. ja NWrLoopX ;go if bit count not exhausted
  1941. NWrLastX:
  1942. push ax
  1943. and dh,dl ;combine first|middle mask with end mask
  1944. mov ah,dh ;last byte bit mask
  1945. MOV DX,GRPADD ;address graphics controller
  1946. mov al,BMKREG ;  bit mask register
  1947. EGAINT10CLI ;disable ints if using EGAINT10 interface
  1948. OutWord  ;set first partial byte mask
  1949. pop ax
  1950. .erre ID_SSEQDS ;assumes ss = ds
  1951. call Write_64K ;put the last byte
  1952. EGAINT10STI ;reenable ints if using EGAINT10 interface
  1953. cEnd
  1955. ASSUME DS:DGROUP
  1957. ;***
  1958. ; B$xINITEGA - initialize EGA modes
  1959. ;
  1960. ;Purpose:
  1961. ; Added with revision [26].
  1962. ; Put the addresses of EGA screen mode support routines into the
  1963. ; dispatch table used by the screen statement.
  1964. ;
  1965. ;Entry:
  1966. ; None
  1967. ;Exit:
  1968. ; ScreenTab updated
  1969. ;Uses:
  1970. ; None
  1971. ;Exceptions:
  1972. ;******************************************************************************
  1973. cProc B$xINITEGA,<FAR,PUBLIC> 
  1974. cBegin
  1975. MOV WORD PTR [b$ScreenTab + (7*2) + 1],OFFSET B$Screen7
  1976. MOV WORD PTR [b$ScreenTab + (8*2) + 1],OFFSET B$Screen8
  1977. MOV WORD PTR [b$ScreenTab + (9*2) + 1],OFFSET B$Screen9
  1978. MOV WORD PTR [b$ScreenTab + (10*2)+ 1],OFFSET B$Screen10
  1979. cEnd
  1981. sEnd GR_TEXT
  1983. END