Index: vlib/acctrl.s =================================================================== --- vlib/acctrl.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ vlib/acctrl.s (revision 197ff76a1a6e3dac031f1d386945a4be68fb9ce6) @@ -28,7 +28,7 @@ .text - .xdef _objclr,_objoff,_objon + .xdef objclr,_objoff,objon - .xref _v_actab + .xref v_actab SCSIZE = 350 | Screen height @@ -47,7 +47,7 @@ | its bit in all words of the access table. | ------------------------------------------------------------------------------ -_objclr: link a6,#0 | Link stack frames +objclr: link a6,#0 | Link stack frames move.w OBJ(a6),d1 | Get object bit number in d1 - lea _v_actab,a0 | Get base of object table in a0 + lea v_actab,a0 | Get base of object table in a0 move.w #SCSIZE-1,d2 | Put line count in d2 @@ -73,5 +73,5 @@ move.w LINE(a6),d2 | Get top line number add.w d2,d2 | Convert to word offset - lea _v_actab,a0 | Get base address of access table + lea v_actab,a0 | Get base address of access table move.w 0(a0,d2),d0 | Get top line access word bset.l d1,d0 | Set object bit @@ -101,9 +101,9 @@ | at 'line' thru 'line'+'num'. Enables the object. | ------------------------------------------------------------------------------ -_objon: link a6,#0 | Link stack frames +objon: link a6,#0 | Link stack frames move.w OBJ(a6),d1 | Get object bit number into d1 move.w LINE(a6),d2 | Get top line number add.w d2,d2 | Convert to word offset - lea _v_actab,a0 | Get base address of access table + lea v_actab,a0 | Get base address of access table move.w 0(a0,d2),d0 | Get top line access word bclr.l d1,d0 | Clear object bit Index: vlib/glcplot.s =================================================================== --- vlib/glcplot.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ vlib/glcplot.s (revision 197ff76a1a6e3dac031f1d386945a4be68fb9ce6) @@ -14,6 +14,6 @@ .text - .xdef _GLCplot - .xref _lcd_a0,_lcd_a1,_lcdbase + .xdef GLCplot + .xref lcd_a0,lcd_a1,lcdbase XLOC = 8 | 'x' parameter offset @@ -27,5 +27,5 @@ .page -_GLCplot: link a6,#0 | Link stack frames +GLCplot: link a6,#0 | Link stack frames moveq #63,d0 | d0 = (63-y) * 85 sub.w YLOC(a6),d0 | ... @@ -41,12 +41,12 @@ lsr.w #3,d1 | d1 = (x%6) / 8 add.w d1,d0 | d0 = cursor address - add.w _lcdbase,d0 | ... + add.w lcdbase,d0 | ... move.w d0,d1 | d1 = cursor address, too - move.b #G_CRSWR,_lcd_a1 | Send cursor address to GLC - move.b d0,_lcd_a0 | ... + move.b #G_CRSWR,lcd_a1 | Send cursor address to GLC + move.b d0,lcd_a0 | ... lsr.w #8,d0 | ... - move.b d0,_lcd_a0 | ... - move.b #G_MREAD,_lcd_a1 | Read old pixel byte - move.b _lcd_a1,d0 | ... into d0 + move.b d0,lcd_a0 | ... + move.b #G_MREAD,lcd_a1 | Read old pixel byte + move.b lcd_a1,d0 | ... into d0 tst.w VAL(a6) | Check val for zero beq glcplt1 | Jump if val EQ 0 @@ -57,10 +57,10 @@ glcplt1: bclr d2,d0 | Clear the pixel to 0 -glcplt2: move.b #G_CRSWR,_lcd_a1 | Send cursor address to GLC - move.b d1,_lcd_a0 | ... +glcplt2: move.b #G_CRSWR,lcd_a1 | Send cursor address to GLC + move.b d1,lcd_a0 | ... lsr.w #8,d1 | ... - move.b d1,_lcd_a0 | ... - move.b #G_MWRITE,_lcd_a1 | Setup GLC to write pixel - move.b d0,_lcd_a0 | Write pixel + move.b d1,lcd_a0 | ... + move.b #G_MWRITE,lcd_a1 | Setup GLC to write pixel + move.b d0,lcd_a0 | Write pixel unlk a6 | Unlink stack frames rts | Return to caller Index: vlib/tsplot4.s =================================================================== --- vlib/tsplot4.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ vlib/tsplot4.s (revision 197ff76a1a6e3dac031f1d386945a4be68fb9ce6) @@ -22,7 +22,7 @@ .text - .xdef _tsplot4 + .xdef tsplot4 - .xref _cgtable + .xref cgtable | Argument offsets from a6: @@ -68,5 +68,5 @@ .page -_tsplot4: link a6,#0 | Link stack frames +tsplot4: link a6,#0 | Link stack frames movem.l d3-d6/a3,-(a7) | Save registers we use move.w #PSHIFT,d1 | Set shift constant @@ -94,7 +94,7 @@ movea.l a3,a1 | Establish output pointer in a1 adda.l #HCW,a3 | Update output pointer for next char. - lea _cgtable,a0 | Establish CG pointer in a0 + lea cgtable,a0 | Establish CG pointer in a0 lsl.w #1,d0 | ... 2 * character - adda.w d0,a0 | ... + _cgtable address + adda.w d0,a0 | ... + cgtable address move.w #VPIX-1,d6 | Set scan line counter in d6 Index: vlib/vbank.s =================================================================== --- vlib/vbank.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ vlib/vbank.s (revision 197ff76a1a6e3dac031f1d386945a4be68fb9ce6) @@ -15,8 +15,8 @@ | Wait for a FRAMESTOP update to transpire. | ------------------------------------------------------------------------------ - .xdef _vbank - .xdef _vfwait + .xdef vbank + .xdef vfwait - .xref _v_regs + .xref v_regs .text @@ -42,7 +42,7 @@ -_vbank: link a6,#0 | link stack frames +vbank: link a6,#0 | link stack frames movem.l d5-d7,-(sp) | preserve registers - move.w _v_regs+VSDD_R5,OLDB | get v_regs[5] + move.w v_regs+VSDD_R5,OLDB | get v_regs[5] lsr.w #6,OLDB | extract BS bits move.w OLDB,d0 | ... @@ -66,16 +66,16 @@ andi.w #256,NEWB | ... or.w NEWB,d0 | ... - move.w d0,_v_regs+VSDD_R5 | set v_regs[5] with new BS bits + move.w d0,v_regs+VSDD_R5 | set v_regs[5] with new BS bits -vw1b: cmp.w #VT_1,_v_regs+VSDD_R11 | wait for FRAMESTOP +vw1b: cmp.w #VT_1,v_regs+VSDD_R11 | wait for FRAMESTOP bcc vw1b | ... -vw2b: cmp.w #VT_1,_v_regs+VSDD_R11 | ... +vw2b: cmp.w #VT_1,v_regs+VSDD_R11 | ... bcs vw2b | ... -vw3b: cmp.w #VT_1,_v_regs+VSDD_R11 | ... +vw3b: cmp.w #VT_1,v_regs+VSDD_R11 | ... bcc vw3b | ... -vw4b: cmp.w #VT_2,_v_regs+VSDD_R11 | ... +vw4b: cmp.w #VT_2,v_regs+VSDD_R11 | ... bcs vw4b | ... @@ -93,16 +93,16 @@ | ------------------------------------------------------------------------------ -_vfwait: link a6,#0 | link stack frames +vfwait: link a6,#0 | link stack frames -vw1a: cmp.w #VT_1,_v_regs+VSDD_R11 | wait for FRAMESTOP +vw1a: cmp.w #VT_1,v_regs+VSDD_R11 | wait for FRAMESTOP bcc vw1a | ... -vw2a: cmp.w #VT_1,_v_regs+VSDD_R11 | ... +vw2a: cmp.w #VT_1,v_regs+VSDD_R11 | ... bcs vw2a | ... -vw3a: cmp.w #VT_1,_v_regs+VSDD_R11 | ... +vw3a: cmp.w #VT_1,v_regs+VSDD_R11 | ... bcc vw3a | ... -vw4a: cmp.w #VT_2,_v_regs+VSDD_R11 | ... +vw4a: cmp.w #VT_2,v_regs+VSDD_R11 | ... bcs vw4a | ... Index: vlib/vclrav.s =================================================================== --- vlib/vclrav.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ vlib/vclrav.s (revision 197ff76a1a6e3dac031f1d386945a4be68fb9ce6) @@ -14,5 +14,5 @@ .text - .xdef _vclrav + .xdef vclrav P_ADR = 8 @@ -22,5 +22,5 @@ P_LEN = 18 -_vclrav: link a6,#0 | Link stack frame pointer +vclrav: link a6,#0 | Link stack frame pointer move.w P_ROW(a6),d0 | Get row mulu P_LEN(a6),d0 | Multiply by len Index: vlib/vcputsv.s =================================================================== --- vlib/vcputsv.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ vlib/vcputsv.s (revision 197ff76a1a6e3dac031f1d386945a4be68fb9ce6) @@ -22,7 +22,7 @@ .text - .xdef _vcputsv + .xdef vcputsv - .xref _cgtable + .xref cgtable | Argument offsets from a6: @@ -69,5 +69,5 @@ .page -_vcputsv: link a6,#0 | Link stack frames +vcputsv: link a6,#0 | Link stack frames movem.l d3-d6/a3,-(a7) | Save registers we use move.w #PSHIFT,d1 | Set shift constant @@ -97,7 +97,7 @@ movea.l a3,a1 | Establish output pointer in a1 adda.l #HCW,a3 | Update output pointer for next char. - lea _cgtable,a0 | Establish CG pointer in a0 + lea cgtable,a0 | Establish CG pointer in a0 lsl.w #1,d0 | ... 2 * character - adda.w d0,a0 | ... + _cgtable address + adda.w d0,a0 | ... + cgtable address move.w #VPIX-1,d6 | Set scan line counter in d6 Index: vlib/viint.s =================================================================== --- vlib/viint.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ vlib/viint.s (revision 197ff76a1a6e3dac031f1d386945a4be68fb9ce6) @@ -19,8 +19,8 @@ .text - .xdef _VIint | Vertical Interval int. handler - - .xdef _vi_sadr | score object base address - .xdef _vi_scrl | score object scroll offset + .xdef VIint | Vertical Interval int. handler + + .xdef vi_sadr | score object base address + .xdef vi_scrl | score object scroll offset .xdef lclsadr | local scroll address .xdef lclscrl | local scroll offset @@ -32,10 +32,10 @@ .xdef VIct4 | VSDD interrupt R11 - .xref _v_regs | VSDD registers - .xref _v_odtab | VSDD object descriptor table - - .xref _vi_clk | scroll delay timer - .xref _vi_ctl | unblank control word - .xref _vi_tag | VSDD 'needs service' tag + .xref v_regs | VSDD registers + .xref v_odtab | VSDD object descriptor table + + .xref vi_clk | scroll delay timer + .xref vi_ctl | unblank control word + .xref vi_tag | VSDD 'needs service' tag .page @@ -47,6 +47,6 @@ STACKSR = 32 | offset to sr on stack V_BLA = 4 | V_BLA (blank) bit number -VSDD_R5 = 10 | VSDD R5 byte offset in _v_regs -VSDD_R11 = 22 | VSDD R11 byte offset in _v_regs +VSDD_R5 = 10 | VSDD R5 byte offset in v_regs +VSDD_R11 = 22 | VSDD R11 byte offset in v_regs VT_BASE = 128 | word offset of VSDD Access Table @@ -74,12 +74,12 @@ .page -| _VIint -- Vertical interval interrupt handler -| ------ ----------------------------------- -_VIint: movem.l d0-d3/a0-a2/a6,-(a7) | save registers +| VIint -- Vertical interval interrupt handler +| ----- ----------------------------------- +VIint: movem.l d0-d3/a0-a2/a6,-(a7) | save registers addi.w #0x0100,STACKSR(a7) | raise IPL in sr on the stack - move.w _v_regs+VSDD_R11,VIct1 | save the VSDD R11 value - - tst.w _vi_sadr | see if we should scroll + move.w v_regs+VSDD_R11,VIct1 | save the VSDD R11 value + + tst.w vi_sadr | see if we should scroll beq viunbl | jump if not @@ -87,64 +87,64 @@ | setup delayed scroll parameters | ------------------------------------------------------------------------------ - move.w _v_regs+VSDD_R5,d0 | get VSDD R5 + move.w v_regs+VSDD_R5,d0 | get VSDD R5 move.w d0,d1 | save it for later andi.w #0x0180,d0 | see if we're already in bank 0 beq dlyscrl | jump if so - clr.w _v_regs+VSDD_R5 | set bank 0 - - move.w _v_regs+VSDD_R11,VIct2 | save the VSDD R11 value - -vw1a: cmp.w #VT_1,_v_regs+VSDD_R11 | wait for FRAMESTOP + clr.w v_regs+VSDD_R5 | set bank 0 + + move.w v_regs+VSDD_R11,VIct2 | save the VSDD R11 value + +vw1a: cmp.w #VT_1,v_regs+VSDD_R11 | wait for FRAMESTOP bcc vw1a | ... -vw2a: cmp.w #VT_1,_v_regs+VSDD_R11 | ... +vw2a: cmp.w #VT_1,v_regs+VSDD_R11 | ... bcs vw2a | ... -vw3a: cmp.w #VT_1,_v_regs+VSDD_R11 | ... +vw3a: cmp.w #VT_1,v_regs+VSDD_R11 | ... bcc vw3a | ... -vw4a: cmp.w #VT_2,_v_regs+VSDD_R11 | ... +vw4a: cmp.w #VT_2,v_regs+VSDD_R11 | ... bcs vw4a | ... -dlyscrl: tst.w _vi_tag | wait for previous scroll +dlyscrl: tst.w vi_tag | wait for previous scroll bne dlyscrl | ... - move.w _vi_sadr,lclsadr | save address for timeint - move.w _vi_scrl,lclscrl | save offset for timeint - clr.w _vi_sadr | reset for next time - clr.w _vi_scrl | ... - move.w vdelay,_vi_clk | set the scroll delay timer - st _vi_tag | set the 'need service' tag + move.w vi_sadr,lclsadr | save address for timeint + move.w vi_scrl,lclscrl | save offset for timeint + clr.w vi_sadr | reset for next time + clr.w vi_scrl | ... + move.w vdelay,vi_clk | set the scroll delay timer + st vi_tag | set the 'need service' tag | ------------------------------------------------------------------------------ | check for unblank requests | ------------------------------------------------------------------------------ - move.w _vi_ctl,d2 | get the unblank control word + move.w vi_ctl,d2 | get the unblank control word beq viexit | exit if nothing to unblank bra unblnk | go unblank some objects -viunbl: move.w _vi_ctl,d2 | get the unblank control word +viunbl: move.w vi_ctl,d2 | get the unblank control word beq vidone | exit if nothing to unblank - move.w _v_regs+VSDD_R5,d0 | get VSDD R5 + move.w v_regs+VSDD_R5,d0 | get VSDD R5 move.w d0,d1 | save it for later andi.w #0x0180,d0 | see if we're already in bank 0 beq unblnk | jump if so - clr.w _v_regs+VSDD_R5 | set bank 0 - - move.w _v_regs+VSDD_R11,VIct3 | save the VSDD R11 value - -vw1b: cmp.w #VT_1,_v_regs+VSDD_R11 | wait for FRAMESTOP + clr.w v_regs+VSDD_R5 | set bank 0 + + move.w v_regs+VSDD_R11,VIct3 | save the VSDD R11 value + +vw1b: cmp.w #VT_1,v_regs+VSDD_R11 | wait for FRAMESTOP bcc vw1b | ... -vw2b: cmp.w #VT_1,_v_regs+VSDD_R11 | ... +vw2b: cmp.w #VT_1,v_regs+VSDD_R11 | ... bcs vw2b | ... -vw3b: cmp.w #VT_1,_v_regs+VSDD_R11 | ... +vw3b: cmp.w #VT_1,v_regs+VSDD_R11 | ... bcc vw3b | ... -vw4b: cmp.w #VT_2,_v_regs+VSDD_R11 | ... +vw4b: cmp.w #VT_2,v_regs+VSDD_R11 | ... bcs vw4b | ... @@ -152,10 +152,10 @@ | ------------------------------------------------------------------------------ -| unblank objects indicated by contents of d2 (loaded earlier from _vi_ctl) +| unblank objects indicated by contents of d2 (loaded earlier from vi_ctl) | ------------------------------------------------------------------------------ unblnk: clr.w d3 | clear the counter - clr.w _vi_ctl | clear the unblank control word - lea _v_odtab,a1 | point at first object + clr.w vi_ctl | clear the unblank control word + lea v_odtab,a1 | point at first object vicheck: btst d3,d2 | check the object bit @@ -181,21 +181,21 @@ beq vidone | jump if so -viwait: tst.w _vi_tag | wait for timer to run out +viwait: tst.w vi_tag | wait for timer to run out bne viwait | ... so timeint sees bank 0 - move.w d1,_v_regs+VSDD_R5 | restore v_regs[5] to old bank - - move.w _v_regs+VSDD_R11,VIct4 | save the VSDD R11 value - -vw1c: cmp.w #VT_1,_v_regs+VSDD_R11 | wait for FRAMESTOP + move.w d1,v_regs+VSDD_R5 | restore v_regs[5] to old bank + + move.w v_regs+VSDD_R11,VIct4 | save the VSDD R11 value + +vw1c: cmp.w #VT_1,v_regs+VSDD_R11 | wait for FRAMESTOP bcc vw1c | ... -vw2c: cmp.w #VT_1,_v_regs+VSDD_R11 | ... +vw2c: cmp.w #VT_1,v_regs+VSDD_R11 | ... bcs vw2c | ... -vw3c: cmp.w #VT_1,_v_regs+VSDD_R11 | ... +vw3c: cmp.w #VT_1,v_regs+VSDD_R11 | ... bcc vw3c | ... -vw4c: cmp.w #VT_2,_v_regs+VSDD_R11 | ... +vw4c: cmp.w #VT_2,v_regs+VSDD_R11 | ... bcs vw4c | ... @@ -219,6 +219,6 @@ | ------------------------------------------------------------------------------ -_vi_sadr: .ds.w 1 | score object base address -_vi_scrl: .ds.w 1 | score object scroll offset +vi_sadr: .ds.w 1 | score object base address +vi_scrl: .ds.w 1 | score object scroll offset lclsadr: .ds.w 1 | local copy of vi_sadr Index: vlib/vputa.s =================================================================== --- vlib/vputa.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ vlib/vputa.s (revision 197ff76a1a6e3dac031f1d386945a4be68fb9ce6) @@ -14,5 +14,5 @@ .text - .xdef _vputa + .xdef vputa SBASE = 8 | LONG - 'sbase' @@ -21,5 +21,5 @@ ATTR = 16 | WORD - 'attrib' -_vputa: link a6,#0 | Link stack frame pointer +vputa: link a6,#0 | Link stack frame pointer clr.l d0 | Clear out d0 move.w ROW(a6),d0 | Get row Index: vlib/vputc.s =================================================================== --- vlib/vputc.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ vlib/vputc.s (revision 197ff76a1a6e3dac031f1d386945a4be68fb9ce6) @@ -14,7 +14,7 @@ .text - .xdef _vputc + .xdef vputc -_vputc: link a6,#0 | Link stack frame pointer +vputc: link a6,#0 | Link stack frame pointer clr.l d0 | Clear out d0 move.w 12(a6),d0 | Get row Index: vlib/vputcv.s =================================================================== --- vlib/vputcv.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ vlib/vputcv.s (revision 197ff76a1a6e3dac031f1d386945a4be68fb9ce6) @@ -15,5 +15,5 @@ .text - .xdef _vputcv + .xdef vputcv P_ADR = 8 @@ -26,5 +26,5 @@ .page -_vputcv: link a6,#0 | Link stack frame pointer +vputcv: link a6,#0 | Link stack frame pointer move.w P_ROW(a6),d0 | Get row mulu P_LEN(a6),d0 | Multiply by len Index: vlib/vputp.s =================================================================== --- vlib/vputp.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ vlib/vputp.s (revision 197ff76a1a6e3dac031f1d386945a4be68fb9ce6) @@ -32,5 +32,5 @@ .text - .xdef _vputp + .xdef vputp OCTAD = 8 @@ -51,5 +51,5 @@ .page -_vputp: link a6,#0 | Link stack frames +vputp: link a6,#0 | Link stack frames movea.l OCTAD(a6),a1 | Get OCTAD base into a1 move.w XLOC(a6),d0 | Get XLOC into d0 Index: vlib/vsetav.s =================================================================== --- vlib/vsetav.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ vlib/vsetav.s (revision 197ff76a1a6e3dac031f1d386945a4be68fb9ce6) @@ -14,5 +14,5 @@ .text - .xdef _vsetav + .xdef vsetav P_ADR = 8 @@ -22,5 +22,5 @@ P_LEN = 18 -_vsetav: link a6,#0 | Link stack frame pointer +vsetav: link a6,#0 | Link stack frame pointer move.w P_ROW(a6),d0 | Get row mulu P_LEN(a6),d0 | Multiply by len Index: vlib/vsetcv.s =================================================================== --- vlib/vsetcv.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ vlib/vsetcv.s (revision 197ff76a1a6e3dac031f1d386945a4be68fb9ce6) @@ -14,5 +14,5 @@ .text - .xdef _vsetcv + .xdef vsetcv P_ADR = 8 @@ -22,5 +22,5 @@ P_LEN = 18 -_vsetcv: link a6,#0 | Link stack frame pointer +vsetcv: link a6,#0 | Link stack frame pointer move.w P_ROW(a6),d0 | Get row mulu P_LEN(a6),d0 | Multiply by len Index: vlib/vsplot4.s =================================================================== --- vlib/vsplot4.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ vlib/vsplot4.s (revision 197ff76a1a6e3dac031f1d386945a4be68fb9ce6) @@ -24,5 +24,5 @@ .text - .xdef _vsplot4 + .xdef vsplot4 | Argument offsets from a6: @@ -69,5 +69,5 @@ .page -_vsplot4: link a6,#0 | Link stack frames +vsplot4: link a6,#0 | Link stack frames movem.l d3-d6/a3,-(a7) | Save registers we use move.w #PSHIFT,d1 | Set shift constant Index: vlib/vvputsv.s =================================================================== --- vlib/vvputsv.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ vlib/vvputsv.s (revision 197ff76a1a6e3dac031f1d386945a4be68fb9ce6) @@ -22,5 +22,5 @@ .text - .xdef _vvputsv + .xdef vvputsv | Argument offsets from a6: @@ -68,5 +68,5 @@ .page -_vvputsv: link a6,#0 | Link stack frames +vvputsv: link a6,#0 | Link stack frames movem.l d3-d6/a3,-(a7) | Save registers we use move.w #PSHIFT,d1 | Set shift constant Index: vlib/vwputp.s =================================================================== --- vlib/vwputp.s (revision 84c01255fcf53ea395d67ce5468972fe0ba4aca6) +++ vlib/vwputp.s (revision 197ff76a1a6e3dac031f1d386945a4be68fb9ce6) @@ -35,5 +35,5 @@ .text - .xdef _vputp + .xdef vputp OCTAD = 8