diff --git a/applecorn.po b/applecorn.po index 45ca1f0..d3f22c4 100644 Binary files a/applecorn.po and b/applecorn.po differ diff --git a/auxmem.gfx.s b/auxmem.gfx.s index 1f55c08..56a963c 100644 --- a/auxmem.gfx.s +++ b/auxmem.gfx.s @@ -54,8 +54,6 @@ HRSCR1LINE >>> WRTMAIN STX MTXTWINRGT >>> WRTAUX >>> XF2MAIN,HGRRSCR1L -HRSCR1RET >>> ENTAUX - RTS HSCRCLREOL LDA VDUTEXTY ASL diff --git a/auxmem.init.s b/auxmem.init.s index 4df9e74..ff926a1 100644 --- a/auxmem.init.s +++ b/auxmem.init.s @@ -204,7 +204,7 @@ BYTE00 BEQ BYTE00A ; OSBYTE 0,0 - generate error RTS ; %000x1xxx host type, 'A'pple BYTE00A BRK DB $F7 -HELLO ASC 'Applecorn MOS 2022-09-18' +HELLO ASC 'Applecorn MOS 2022-09-19' DB $00 ; Unify MOS messages diff --git a/mainmem.gfx.s b/mainmem.gfx.s index 4645a21..d8e9e39 100644 --- a/mainmem.gfx.s +++ b/mainmem.gfx.s @@ -158,7 +158,7 @@ HGRSCR1L >>> ENTMAIN STA A1L LDA MHGRTAB+1,X STA A1H - LDX #$00 +DOHGRSCR1L LDX #$00 :L1 LDY MTXTWINLFT :L2 LDA (A1L),Y STA (A4L),Y @@ -193,25 +193,7 @@ HGRRSCR1L >>> ENTMAIN STA A4L LDA MHGRTAB+1,X STA A4H - LDX #$00 -:L1 LDY MTXTWINLFT -:L2 LDA (A1L),Y - STA (A4L),Y - INY - CPY MTXTWINRGT - BNE :L2 - INC A1H ; Advance source 1024 bytes - INC A1H - INC A1H - INC A1H - INC A4H ; Advance dest 1024 bytes - INC A4H - INC A4H - INC A4H - INX - CPX #8 ; 8 pixel rows in character - BNE :L1 - >>> XF2AUX,HRSCR1RET + BRA DOHGRSCR1L * Clear one text line on HGR screen, * from current cursor col to text window right limit