Changeset 8325447 in buchla-68k for vlib/acctrl.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/acctrl.s
r84c0125 r8325447 28 28 .text 29 29 30 .xdef _objclr,_objoff,_objon30 .xdef objclr,_objoff,objon 31 31 32 .xref _v_actab32 .xref v_actab 33 33 34 34 SCSIZE = 350 | Screen height … … 47 47 | its bit in all words of the access table. 48 48 | ------------------------------------------------------------------------------ 49 _objclr:link a6,#0 | Link stack frames49 objclr: link a6,#0 | Link stack frames 50 50 move.w OBJ(a6),d1 | Get object bit number in d1 51 lea _v_actab,a0 | Get base of object table in a051 lea v_actab,a0 | Get base of object table in a0 52 52 move.w #SCSIZE-1,d2 | Put line count in d2 53 53 … … 73 73 move.w LINE(a6),d2 | Get top line number 74 74 add.w d2,d2 | Convert to word offset 75 lea _v_actab,a0 | Get base address of access table75 lea v_actab,a0 | Get base address of access table 76 76 move.w 0(a0,d2),d0 | Get top line access word 77 77 bset.l d1,d0 | Set object bit … … 101 101 | at 'line' thru 'line'+'num'. Enables the object. 102 102 | ------------------------------------------------------------------------------ 103 _objon: link a6,#0 | Link stack frames103 objon: link a6,#0 | Link stack frames 104 104 move.w OBJ(a6),d1 | Get object bit number into d1 105 105 move.w LINE(a6),d2 | Get top line number 106 106 add.w d2,d2 | Convert to word offset 107 lea _v_actab,a0 | Get base address of access table107 lea v_actab,a0 | Get base address of access table 108 108 move.w 0(a0,d2),d0 | Get top line access word 109 109 bclr.l d1,d0 | Clear object bit
Note:
See TracChangeset
for help on using the changeset viewer.