6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-08-10 04:25:21 +00:00
Code Issues Projects Releases Wiki Activity

Minor comment adjustment.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@4544 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
ol.sc
2010-01-08 22:24:38 +00:00
parent 7d3dc3891e
commit c3ef1369f3
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
libsrc/apple2/apple2-280-192-8.s
View File

@@ -215,12 +215,12 @@ CONTROL:
; Check data msb and code to be 0 ; Check data msb and code to be 0
ora ptr1+1 ora ptr1+1
bne err bne err
; Check data lsb to be [0..1] ; Check data lsb to be [0..1]
lda ptr1 lda ptr1
cmp #1+1 cmp #1+1
bcs err bcs err
; Set text window top ; Set text window top
tax tax
beq :+ beq :+
@@ -230,10 +230,11 @@ CONTROL:
; Switch 4 lines of text ; Switch 4 lines of text
.assert MIXCLR + 1 = MIXSET, error .assert MIXCLR + 1 = MIXSET, error
lda MIXCLR,x ; No BIT absolute,X available lda MIXCLR,x ; No BIT absolute,X available
; Done, reset the error code
lda #TGI_ERR_OK lda #TGI_ERR_OK
beq :+ ; Branch always beq :+ ; Branch always
; Done, set the error code ; Done, set the error code
err: lda #TGI_ERR_INV_ARG err: lda #TGI_ERR_INV_ARG
: sta ERROR : sta ERROR