2022-12-22 00:26:50 +00:00
|
|
|
* AUXMEM.SHR.S
|
|
|
|
|
* (c) Bobbi 2022 GPLv3
|
|
|
|
|
*
|
|
|
|
|
* Routines for drawing bitmapped text and graphics in SHR mode
|
2022-12-22 18:44:40 +00:00
|
|
|
* on Apple IIGS (640x200 4 colour, or 320x200 16 colour.)
|
2022-12-22 00:26:50 +00:00
|
|
|
*
|
|
|
|
|
|
2022-12-23 01:58:38 +00:00
|
|
|
SCB320 EQU $00 ; SCB for 320 mode
|
|
|
|
|
SCB640 EQU $80 ; SCB for 640 mode
|
|
|
|
|
|
2022-12-22 18:44:40 +00:00
|
|
|
* Enable SHR mode
|
|
|
|
|
SHRVDU22 JSR VDU12 ; Clear text and HGR screen
|
|
|
|
|
LDA #$80 ; Most significant bit
|
|
|
|
|
TSB NEWVIDEO ; Enable SHR mode
|
|
|
|
|
RTS
|
2022-12-22 00:26:50 +00:00
|
|
|
|
2022-12-23 01:58:38 +00:00
|
|
|
|
|
|
|
|
* Write character to SHR screen
|
|
|
|
|
SHRPRCHAR
|
|
|
|
|
RTS
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
* Calculate character address in SHR screen memory
|
|
|
|
|
SHRCHARADDR
|
|
|
|
|
RTS
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
* Forwards scroll one line
|
|
|
|
|
SHRSCR1LINE
|
|
|
|
|
RTS
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
* Reverse scroll one line
|
|
|
|
|
SHRRSCR1LINE
|
|
|
|
|
RTS
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
* Clear from current location to EOL
|
|
|
|
|
SHRCLREOL
|
|
|
|
|
RTS
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
* VDU16 (CLG) clears the whole SHR screen right now
|
|
|
|
|
SHRCLEAR
|
|
|
|
|
RTS
|
|
|
|
|
|
|
|
|
|
|
