![(please configure the [header_logo] section in trac.ini)](http://bob.lopatic.de/chrome/site/logo.png){kind=logo}
- Timestamp:
- 08/07/2017 01:05:57 PM (7 years ago)
- Branches:
- master
- Children:
- 8325447
- Parents:
- 15854f1
- Location:
- vlib
- Files:
-
- 15 edited
-
glcplot.s (modified) (2 diffs)
-
tsplot4.s (modified) (3 diffs)
-
vclrav.s (modified) (2 diffs)
-
vcputs.s (modified) (3 diffs)
-
vcputsv.s (modified) (3 diffs)
-
vputa.s (modified) (2 diffs)
-
vputc.s (modified) (2 diffs)
-
vputcv.s (modified) (2 diffs)
-
vputp.s (modified) (1 diff)
-
vsetav.s (modified) (2 diffs)
-
vsetcv.s (modified) (2 diffs)
-
vsplot4.s (modified) (3 diffs)
-
vvputsv.s (modified) (3 diffs)
-
vwputp.s (modified) (1 diff)
-
vwputs.s (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
vlib/glcplot.s
r15854f1 r84c0125 28 28 29 29 _GLCplot: link a6,#0 | Link stack frames 30 moveq #63,d0 | d0 = (63-y) |8530 moveq #63,d0 | d0 = (63-y) * 85 31 31 sub.w YLOC(a6),d0 | ... 32 32 mulu #85,d0 | ... … … 34 34 move.w XLOC(a6),d1 | ... 35 35 divu #6,d1 | ... 36 add.w d1,d0 | d0 = (63-y) |85 + (x/6)36 add.w d1,d0 | d0 = (63-y)*85 + (x/6) 37 37 swap d1 | d2 = 7 - (x%6) % 8 38 38 moveq #7,d2 | ... -
vlib/tsplot4.s
r15854f1 r84c0125 7 7 8 8 | tsplot4(obase, nw, fg, row, col, str. pitch) 9 | int |obase, nw, fg, row, col, pitch;10 | char |str;9 | int *obase, nw, fg, row, col, pitch; 10 | char *str; 11 11 12 12 | Outputs characters from the string at 'str' to an 'nw' … … 77 77 move.w ROW(a6),d0 | Calculate output address 78 78 move.w PITCH(a6),d1 | ... PITCH 79 mulu d1,d0 | ... |ROW79 mulu d1,d0 | ... * ROW 80 80 add.w #VPIX-1,d0 | ... + VPIX-1 81 mulu d5,d0 | ... |NW81 mulu d5,d0 | ... * NW 82 82 clr.l d1 | ... 83 83 move.w COL(a6),d1 | ... + 84 lsl.w #2,d1 | ... COL |484 lsl.w #2,d1 | ... COL * 4 85 85 add.l d1,d0 | ... 86 86 add.l OBASE(a6),d0 | ... + OBASE … … 95 95 adda.l #HCW,a3 | Update output pointer for next char. 96 96 lea _cgtable,a0 | Establish CG pointer in a0 97 lsl.w #1,d0 | ... 2 |character97 lsl.w #1,d0 | ... 2 * character 98 98 adda.w d0,a0 | ... + _cgtable address 99 99 move.w #VPIX-1,d6 | Set scan line counter in d6 -
vlib/vclrav.s
r15854f1 r84c0125 6 6 7 7 | vclrav(adr, row, col, atr, len) 8 | unsigned int |adr, row, col, atr, len;8 | unsigned int *adr, row, col, atr, len; 9 9 10 10 | Clears attribute 'atr' at ('row', 'col') in the … … 28 28 move.w P_COL(a6),d1 | Get col 29 29 add.l d1,d0 | Add col into d0 to get char. # 30 move.l d0,d1 | Develop cw = (cn/2) |6 in d130 move.l d0,d1 | Develop cw = (cn/2)*6 in d1 31 31 andi.l #0xFFFFFFFE,d1 | ... 32 32 move.l d1,d2 | ... -
vlib/vcputs.s
r15854f1 r84c0125 6 6 7 7 | vcputs(obase, nw, fg, bg, row, col, str) 8 | int |obase, nw, fg, bg, row, col;9 | char |str;8 | int *obase, nw, fg, bg, row, col; 9 | char *str; 10 10 11 11 | Outputs characters from the string at 'str' to an 'nw' … … 73 73 move.w ROW(a6),d0 | Calculate output address 74 74 move.w #VPIX,d1 | ... VPIX 75 mulu d1,d0 | ... |ROW75 mulu d1,d0 | ... * ROW 76 76 add.w #VPIX-1,d0 | ... + VPIX-1 77 mulu d5,d0 | ... |NW77 mulu d5,d0 | ... * NW 78 78 clr.l d1 | ... 79 79 move.w COL(a6),d1 | ... + 80 lsl.w #2,d1 | ... COL |480 lsl.w #2,d1 | ... COL * 4 81 81 add.l d1,d0 | ... 82 82 add.l OBASE(a6),d0 | ... + OBASE … … 91 91 adda.l #HCW,a3 | Update output pointer for next char. 92 92 lea _cgtable,a0 | Establish CG pointer in a0 93 lsl.w #1,d0 | ... 2 |character93 lsl.w #1,d0 | ... 2 * character 94 94 adda.w d0,a0 | ... + _cgtable address 95 95 move.w #VPIX-1,d6 | Set scan line counter in d6 -
vlib/vcputsv.s
r15854f1 r84c0125 7 7 8 8 | vcputsv(obase, nw, fg, bg, row, col, str. pitch) 9 | int |obase, nw, fg, bg, row, col, pitch;10 | char |str;9 | int *obase, nw, fg, bg, row, col, pitch; 10 | char *str; 11 11 12 12 | Outputs characters from the string at 'str' to an 'nw' … … 80 80 move.w ROW(a6),d0 | Calculate output address 81 81 move.w PITCH(a6),d1 | ... PITCH 82 mulu d1,d0 | ... |ROW82 mulu d1,d0 | ... * ROW 83 83 add.w #VPIX-1,d0 | ... + VPIX-1 84 mulu d5,d0 | ... |NW84 mulu d5,d0 | ... * NW 85 85 clr.l d1 | ... 86 86 move.w COL(a6),d1 | ... + 87 lsl.w #2,d1 | ... COL |487 lsl.w #2,d1 | ... COL * 4 88 88 add.l d1,d0 | ... 89 89 add.l OBASE(a6),d0 | ... + OBASE … … 98 98 adda.l #HCW,a3 | Update output pointer for next char. 99 99 lea _cgtable,a0 | Establish CG pointer in a0 100 lsl.w #1,d0 | ... 2 |character100 lsl.w #1,d0 | ... 2 * character 101 101 adda.w d0,a0 | ... + _cgtable address 102 102 move.w #VPIX-1,d6 | Set scan line counter in d6 -
vlib/vputa.s
r15854f1 r84c0125 6 6 7 7 | vputa(sbase, row, col, attrib) 8 | unsigned int |sbase, row, col, attrib;8 | unsigned int *sbase, row, col, attrib; 9 9 10 10 | Stores attribute value 'attrib' for the character … … 28 28 andi.l #0x0000003F,d1 | Mask down to 6 bits 29 29 or.l d1,d0 | OR into d0 to get char. # 30 move.w d0,d1 | Develop cw = (cn/2) |6 in d130 move.w d0,d1 | Develop cw = (cn/2)*6 in d1 31 31 andi.l #0xFFFFFFFE,d1 | ... 32 32 move.l d1,d2 | ... -
vlib/vputc.s
r15854f1 r84c0125 6 6 7 7 | vputc(sbase, row, col, c, attrib) 8 | unsigned int |sbase, row, col, c, attrib;8 | unsigned int *sbase, row, col, c, attrib; 9 9 10 10 | Stores character c at (row,col) in sbase with … … 23 23 andi.l #0x0000003F,d1 | Mask down to 6 bits 24 24 or.l d1,d0 | OR into d0 to get char. # 25 move.w d0,d1 | Develop cw = (cn/2) |6 in d125 move.w d0,d1 | Develop cw = (cn/2)*6 in d1 26 26 andi.l #0xFFFFFFFE,d1 | ... 27 27 move.l d1,d2 | ... -
vlib/vputcv.s
r15854f1 r84c0125 6 6 7 7 | vputcv(adr, row, col, chr, atr, cols) 8 | unsigned int |adr, row, col, chr, atr, cols;8 | unsigned int *adr, row, col, chr, atr, cols; 9 9 10 10 | Stores character 'chr' at ('row', 'col') in the … … 32 32 move.w P_COL(a6),d1 | Get col 33 33 add.l d1,d0 | Add col into d0 to get char. # 34 move.l d0,d1 | Develop cw = (cn/2) |6 in d134 move.l d0,d1 | Develop cw = (cn/2)*6 in d1 35 35 andi.l #0xFFFFFFFE,d1 | ... 36 36 move.l d1,d2 | ... -
vlib/vputp.s
r15854f1 r84c0125 6 6 | int 7 7 | vputp(octad, xloc, yloc, val) 8 | struct octent |octad;8 | struct octent *octad; 9 9 | int xloc, yloc; 10 10 -
vlib/vsetav.s
r15854f1 r84c0125 6 6 7 7 | vsetav(adr, row, col, atr, len) 8 | unsigned int |adr, row, col, atr, len;8 | unsigned int *adr, row, col, atr, len; 9 9 10 10 | Sets attribute 'atr' at ('row', 'col') in the … … 28 28 move.w P_COL(a6),d1 | Get col 29 29 add.l d1,d0 | Add col into d0 to get char. # 30 move.l d0,d1 | Develop cw = (cn/2) |6 in d130 move.l d0,d1 | Develop cw = (cn/2)*6 in d1 31 31 andi.l #0xFFFFFFFE,d1 | ... 32 32 move.l d1,d2 | ... -
vlib/vsetcv.s
r15854f1 r84c0125 6 6 7 7 | vsetcv(adr, row, col, cfb, len) 8 | unsigned int |adr, row, col, cfb, len;8 | unsigned int *adr, row, col, cfb, len; 9 9 10 10 | Sets colors 'cfb' at ('row', 'col') in the … … 28 28 move.w P_COL(a6),d1 | Get col 29 29 add.l d1,d0 | Add col into d0 to get char. # 30 move.l d0,d1 | Develop cw = (cn/2) |6 in d130 move.l d0,d1 | Develop cw = (cn/2)*6 in d1 31 31 andi.l #0xFFFFFFFE,d1 | ... 32 32 move.l d1,d2 | ... -
vlib/vsplot4.s
r15854f1 r84c0125 7 7 8 8 | vsplot4(obase, nw, fg, row, col, str, pitch, ht, cgtab) 9 | uint |obase, nw, fg, row, col, pitch, ht, cgtab[][256];10 | char |str;9 | uint *obase, nw, fg, row, col, pitch, ht, cgtab[][256]; 10 | char *str; 11 11 12 12 | Outputs characters from the string at 'str' to an 'nw' … … 78 78 move.w ROW(a6),d0 | Calculate output address 79 79 move.w PITCH(a6),d1 | ... PITCH 80 mulu d1,d0 | ... |ROW80 mulu d1,d0 | ... * ROW 81 81 add.w HT(a6),d0 | ... + HT-1 82 82 subq.w #1,d0 | ... 83 mulu d5,d0 | ... |NW83 mulu d5,d0 | ... * NW 84 84 clr.l d1 | ... 85 85 move.w COL(a6),d1 | ... + 86 lsl.w #2,d1 | ... COL |486 lsl.w #2,d1 | ... COL * 4 87 87 add.l d1,d0 | ... 88 88 add.l OBASE(a6),d0 | ... + OBASE … … 97 97 adda.l #HCW,a3 | Update output pointer for next char. 98 98 movea.l CGTAB(a6),a0 | Establish CG pointer in a0 99 lsl.w #1,d0 | ... 2 |character99 lsl.w #1,d0 | ... 2 * character 100 100 adda.w d0,a0 | ... + cgtab address 101 101 move.w HT(a6),d6 | Set scan line counter in d6 -
vlib/vvputsv.s
r15854f1 r84c0125 7 7 8 8 | vvputsv(obase, nw, fg, bg, row, col, str, pitch, ht, cgtab) 9 | uint |obase, nw, fg, bg, row, col, pitch, ht, cgtab[][256];10 | char |str;9 | uint *obase, nw, fg, bg, row, col, pitch, ht, cgtab[][256]; 10 | char *str; 11 11 12 12 | Outputs characters from the string at 'str' to an 'nw' … … 79 79 move.w ROW(a6),d0 | Calculate output address 80 80 move.w PITCH(a6),d1 | ... PITCH 81 mulu d1,d0 | ... |ROW81 mulu d1,d0 | ... * ROW 82 82 add.w HT(a6),d0 | ... + HT-1 83 83 subq.w #1,d0 | ... 84 mulu d5,d0 | ... |NW84 mulu d5,d0 | ... * NW 85 85 clr.l d1 | ... 86 86 move.w COL(a6),d1 | ... + 87 lsl.w #2,d1 | ... COL |487 lsl.w #2,d1 | ... COL * 4 88 88 add.l d1,d0 | ... 89 89 add.l OBASE(a6),d0 | ... + OBASE … … 98 98 adda.l #HCW,a3 | Update output pointer for next char. 99 99 movea.l CGTAB(a6),a0 | Establish CG pointer in a0 100 lsl.w #1,d0 | ... 2 |character100 lsl.w #1,d0 | ... 2 * character 101 101 adda.w d0,a0 | ... + cg table address 102 102 move.w HT(a6),d6 | Set scan line counter in d6 -
vlib/vwputp.s
r15854f1 r84c0125 6 6 | int 7 7 | vwputp(octad, xloc, yloc, val) 8 | struct octent |octad;8 | struct octent *octad; 9 9 | int xloc, yloc; 10 10 -
vlib/vwputs.s
r15854f1 r84c0125 6 6 7 7 | vwputs(obase, nw, fg, bg, row, col, str) 8 | int |obase, nw, fg, bg, row, col;9 | char |str;8 | int *obase, nw, fg, bg, row, col; 9 | char *str; 10 10 11 11 | Outputs characters from the string at 'str' to an 'nw' … … 67 67 move.w ROW(a6),d0 | Calculate output address 68 68 move.w #VPITCH,d1 | ... 69 mulu d1,d0 | ... ROW |VPITCH69 mulu d1,d0 | ... ROW * VPITCH 70 70 add.w #NVPIX-1,d0 | ... + NVPIX-1 71 mulu d5,d0 | ... |NW71 mulu d5,d0 | ... * NW 72 72 clr.l d1 | ... 73 move.w COL(a6),d1 | ... + (COL |2)73 move.w COL(a6),d1 | ... + (COL * 2) 74 74 lsl.l #1,d1 | ... 75 75 add.l d1,d0 | ... … … 86 86 adda.l #2,a3 | Update output pointer for next char. 87 87 lea _cgtable,a0 | Establish CG pointer in a0 88 lsl.w #1,d0 | ... 2 |character88 lsl.w #1,d0 | ... 2 * character 89 89 adda.w d0,a0 | ... + _cgtable address 90 90 move.w #NVPIX-1,d6 | Set scan line counter in d6
Note:
See TracChangeset
for help on using the changeset viewer.
