mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-09 22:29:36 +00:00
mixed: comment the code
This commit is contained in:
parent
b0973496f8
commit
d19cbaeaaf
|
@ -20,6 +20,10 @@ LORES = $C056
|
||||||
HLINE = $F819 ; LORES HLINE SUBROUTINE
|
HLINE = $F819 ; LORES HLINE SUBROUTINE
|
||||||
|
|
||||||
ltw:
|
ltw:
|
||||||
|
;==================================
|
||||||
|
; draw lo-res green screen
|
||||||
|
;==================================
|
||||||
|
|
||||||
sta COL40 ; Single-Res Display
|
sta COL40 ; Single-Res Display
|
||||||
lda LORES
|
lda LORES
|
||||||
lda #39 ; Fill screen using HLINE
|
lda #39 ; Fill screen using HLINE
|
||||||
|
@ -33,13 +37,24 @@ fill:
|
||||||
jsr HLINE
|
jsr HLINE
|
||||||
dex
|
dex
|
||||||
bpl fill
|
bpl fill
|
||||||
|
|
||||||
|
;==================================
|
||||||
|
; insert text message
|
||||||
|
;==================================
|
||||||
|
|
||||||
ldx #21 ; Insert message
|
ldx #21 ; Insert message
|
||||||
msglp:
|
msglp:
|
||||||
lda MSG,X
|
lda MSG,X
|
||||||
ora #$80
|
eor #$80
|
||||||
sta $5b1,X ; Message at line 11, position 10
|
sta $5b1,X ; Message at line 11, position 10
|
||||||
dex
|
dex
|
||||||
bpl msglp
|
bpl msglp
|
||||||
|
|
||||||
|
|
||||||
|
;==================================
|
||||||
|
; get exact vblank region
|
||||||
|
;==================================
|
||||||
|
|
||||||
poll1:
|
poll1:
|
||||||
lda VBLOFF ; Find end of VBL
|
lda VBLOFF ; Find end of VBL
|
||||||
bmi poll1 ; Fall through at VBL
|
bmi poll1 ; Fall through at VBL
|
||||||
|
@ -58,6 +73,10 @@ lp17029:
|
||||||
nop ; ; 2
|
nop ; ; 2
|
||||||
bmi lp17029 ; no, slew back ; 2/3
|
bmi lp17029 ; no, slew back ; 2/3
|
||||||
|
|
||||||
|
;==================================
|
||||||
|
; maintain window
|
||||||
|
;==================================
|
||||||
|
|
||||||
ldx #5 ; yes, end VBL is precisely located ; 2
|
ldx #5 ; yes, end VBL is precisely located ; 2
|
||||||
jsr waitx1k ; now wait 5755 cycles for text window ; 5000
|
jsr waitx1k ; now wait 5755 cycles for text window ; 5000
|
||||||
ldy #73 ; ; 2
|
ldy #73 ; ; 2
|
||||||
|
@ -119,6 +138,6 @@ rts1:
|
||||||
rts ; 6
|
rts ; 6
|
||||||
|
|
||||||
MSG:
|
MSG:
|
||||||
.byte 0 ; switch in the black
|
.byte $80 ; switch in the black
|
||||||
.byte "*Little Text Window* "
|
.byte "*Little Text Window* "
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user