mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-06-16 13:29:33 +00:00
Fixed bug in module screen function setsrc()
This commit is contained in:
parent
0e060485ff
commit
58bc426886
|
@ -6,7 +6,7 @@ SMTEXT EQU $00 ;Default Text Screen
|
|||
SMWIDE EQU $FF ;Wide Text Screen (Undefined)
|
||||
|
||||
;Set Screen Mode
|
||||
SETSCR: CMP SMTEXT ;If Default Text Screen
|
||||
SETSCR: CMP #SMTEXT ;If Default Text Screen
|
||||
BEQ GETSCR ;Return Return 0
|
||||
LDA #$FF ;Else Return ERROR
|
||||
RTS
|
||||
|
|
|
@ -6,7 +6,7 @@ SMTEXT EQU $00 ;Default Text Screen
|
|||
SMWIDE EQU $FF ;Wide Text Screen (Undefined)
|
||||
|
||||
;Set Screen Mode
|
||||
SETSCR: CMP SMTEXT ;If Default Text Screen
|
||||
SETSCR: CMP #SMTEXT ;If Default Text Screen
|
||||
BEQ GETSCR ;Return Return 0
|
||||
LDA #$FF ;Else Return ERROR
|
||||
RTS
|
||||
|
|
|
@ -6,7 +6,7 @@ SMTEXT EQU $00 ;Default Text Screen
|
|||
SMWIDE EQU $FF ;Wide Text Screen (Undefined)
|
||||
|
||||
;Set Screen Mode
|
||||
SETSCR: CMP SMTEXT ;If Default Text Screen
|
||||
SETSCR: CMP #SMTEXT ;If Default Text Screen
|
||||
BEQ GETSCR ;Return Return 0
|
||||
LDA #$FF ;Else Return ERROR
|
||||
RTS
|
||||
|
|
|
@ -7,7 +7,7 @@ SMTEXT EQU $00 ;Default Text Screen
|
|||
SMWIDE EQU $FF ;Wide Text Screen (Undefined)
|
||||
|
||||
;Set Screen Mode
|
||||
SETSCR: CMP SMTEXT ;If Default Text Screen
|
||||
SETSCR: CMP #SMTEXT ;If Default Text Screen
|
||||
BEQ GETSCR ;Return Return 0
|
||||
LDA #$FF ;Else Return ERROR
|
||||
RTS
|
||||
|
|
|
@ -6,7 +6,7 @@ SMTEXT EQU $00 ;Default Text Screen
|
|||
SMWIDE EQU $FF ;Wide Text Screen (Undefined)
|
||||
|
||||
;Set Screen Mode
|
||||
SETSCR: CMP SMTEXT ;If Default Text Screen
|
||||
SETSCR: CMP #SMTEXT ;If Default Text Screen
|
||||
BEQ GETSCR ;Return Return 0
|
||||
LDA #$FF ;Else Return ERROR
|
||||
RTS
|
||||
|
|
39
include/run6502/screen.a02
Normal file
39
include/run6502/screen.a02
Normal file
|
@ -0,0 +1,39 @@
|
|||
;Screen Control Assembly Lanuage Routines for C02
|
||||
;Skeleton Code for Systems with no Screen Control
|
||||
|
||||
SUBROUTINE _SCREEN
|
||||
|
||||
SMTEXT EQU $00 ;Default Text Screen
|
||||
SMWIDE EQU $FF ;Wide Text Screen (Undefined)
|
||||
|
||||
;Set Screen Mode
|
||||
SETSCR: CMP #SMTEXT ;If Not Default Text
|
||||
BNE GETPOS ;Return Error
|
||||
;Else Return 0
|
||||
;Get Screen Mode
|
||||
GETSCR: LDA #0 ;Return 0 (Default Text Mode)
|
||||
RTS
|
||||
|
||||
;Clear the Screen
|
||||
CLRSCR: RTS ;No Action
|
||||
LDY #>.CLRSCS ;Execute System Call CLS
|
||||
LDX #<.CLRSCS
|
||||
JMP SYSTEM
|
||||
.CLRSCS BYTE "CLS",0
|
||||
|
||||
;Move Cursor Home
|
||||
CRSRHM RTS ;No Action
|
||||
|
||||
;Move Cursor to Specified Coordinates
|
||||
SETPOS RTS ;No Action
|
||||
|
||||
;Get Cursor Position
|
||||
GETPOS: LDA #$FF ;Return Error
|
||||
TAY
|
||||
RTS
|
||||
|
||||
;Get Screen Size
|
||||
GETSIZ LDA #80 ;Return 80x25
|
||||
LDY #25
|
||||
RTS
|
||||
|
|
@ -7,8 +7,8 @@ SMTEXT EQU $00 ;Default Text Screen
|
|||
SMWIDE EQU $FF ;Wide Text Screen (Undefined)
|
||||
|
||||
;Set Screen Mode
|
||||
SETSCR: CMP SMTEXT ;If Not Default Text
|
||||
BEQ GETPOS ;Return Error
|
||||
SETSCR: CMP #SMTEXT ;If Not Default Text
|
||||
BNE GETPOS ;Return Error
|
||||
;Else Return 0
|
||||
;Get Screen Mode
|
||||
GETSCR: LDA #0 ;Return 0 (Default Text Mode)
|
||||
|
@ -29,5 +29,7 @@ GETPOS: LDA #$FF ;Return Error
|
|||
RTS
|
||||
|
||||
;Get Screen Size
|
||||
GETSIZ EQU GETPOS ;Return Error
|
||||
GETSIZ LDA #80 ;Return 80x25
|
||||
LDY #25
|
||||
RTS
|
||||
|
||||
|
|
|
@ -5,7 +5,7 @@
|
|||
/* Screen Modes for getscr() and setscr() *
|
||||
* Invalid Modes have value $FF */
|
||||
#define SMTEXT $00 //System Default Text Mode
|
||||
#define SMWIDE $FF //Wide Screen Text Mode (Usuallu 80 Columns)
|
||||
#define SMWIDE $FF //Wide Screen Text Mode (Usually 80 Columns)
|
||||
|
||||
/* Clear the Screen */
|
||||
void clrscn();
|
||||
|
|
|
@ -6,7 +6,7 @@ SMTEXT EQU $00 ;Default Text Screen
|
|||
SMWIDE EQU $FF ;Wide Text Screen (Undefined)
|
||||
|
||||
;Set Screen Mode
|
||||
SETSCR: CMP SMTEXT ;If Default Text Screen
|
||||
SETSCR: CMP #SMTEXT ;If Default Text Screen
|
||||
BEQ GETSCR ;Return Return 0
|
||||
LDA #$FF ;Else Return ERROR
|
||||
RTS
|
||||
|
|
Loading…
Reference in New Issue
Block a user