Changeset 8325447 in buchla-68k for vlib/glcplot.s
- Timestamp:
- 08/07/2017 02:04:35 PM (7 years ago)
- Branches:
- master
- Children:
- 27c8d40
- Parents:
- 84c0125
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
vlib/glcplot.s
r84c0125 r8325447 14 14 .text 15 15 16 .xdef _GLCplot17 .xref _lcd_a0,_lcd_a1,_lcdbase16 .xdef GLCplot 17 .xref lcd_a0,lcd_a1,lcdbase 18 18 19 19 XLOC = 8 | 'x' parameter offset … … 27 27 .page 28 28 29 _GLCplot: link a6,#0 | Link stack frames29 GLCplot: link a6,#0 | Link stack frames 30 30 moveq #63,d0 | d0 = (63-y) * 85 31 31 sub.w YLOC(a6),d0 | ... … … 41 41 lsr.w #3,d1 | d1 = (x%6) / 8 42 42 add.w d1,d0 | d0 = cursor address 43 add.w _lcdbase,d0 | ...43 add.w lcdbase,d0 | ... 44 44 move.w d0,d1 | d1 = cursor address, too 45 move.b #G_CRSWR, _lcd_a1| Send cursor address to GLC46 move.b d0, _lcd_a0 | ...45 move.b #G_CRSWR,lcd_a1 | Send cursor address to GLC 46 move.b d0,lcd_a0 | ... 47 47 lsr.w #8,d0 | ... 48 move.b d0, _lcd_a0 | ...49 move.b #G_MREAD, _lcd_a1| Read old pixel byte50 move.b _lcd_a1,d0 | ... into d048 move.b d0,lcd_a0 | ... 49 move.b #G_MREAD,lcd_a1 | Read old pixel byte 50 move.b lcd_a1,d0 | ... into d0 51 51 tst.w VAL(a6) | Check val for zero 52 52 beq glcplt1 | Jump if val EQ 0 … … 57 57 glcplt1: bclr d2,d0 | Clear the pixel to 0 58 58 59 glcplt2: move.b #G_CRSWR, _lcd_a1| Send cursor address to GLC60 move.b d1, _lcd_a0 | ...59 glcplt2: move.b #G_CRSWR,lcd_a1 | Send cursor address to GLC 60 move.b d1,lcd_a0 | ... 61 61 lsr.w #8,d1 | ... 62 move.b d1, _lcd_a0 | ...63 move.b #G_MWRITE, _lcd_a1 | Setup GLC to write pixel64 move.b d0, _lcd_a0 | Write pixel62 move.b d1,lcd_a0 | ... 63 move.b #G_MWRITE,lcd_a1 | Setup GLC to write pixel 64 move.b d0,lcd_a0 | Write pixel 65 65 unlk a6 | Unlink stack frames 66 66 rts | Return to caller
Note:
See TracChangeset
for help on using the changeset viewer.